;;; -*- Mode:Common-Lisp; Base:10 -*-

(FS:SET-LOGICAL-PATHNAME-HOST "tex"
                              :PHYSICAL-HOST (send (fs:get-pathname-host "SYS") :host) 
                              :TRANSLATIONS  '(("tex" "public.tex;")
					       ("systems" "public.tex.systems;")
                                               ))


(FS:SET-LOGICAL-PATHNAME-HOST "teXfmt" 
                              :PHYSICAL-HOST (send (fs:get-pathname-host "SYS") :host) 
                              :TRANSLATIONS  '(("tex" "public.tex.texware;")
                                               ))

;;; This is the logical host that tells TeX where the *.tfm (font metric files) are
;;; located.

(FS:SET-LOGICAL-PATHNAME-HOST "texfonts"
                              :PHYSICAL-HOST (send (fs:get-pathname-host "SYS") :host) 
                              :TRANSLATIONS  '(("tex" "public.tex.fonts;")
                                               ))


(FS:SET-LOGICAL-PATHNAME-HOST "texinputs" 
                              :PHYSICAL-HOST (send (fs:get-pathname-host "SYS") :host) 
                              :TRANSLATIONS  '(("tex" "public.tex.texware;")
                                               ))