;;; translation the inverse (unparse) functions.
(def!struct (host (:constructor nil))
(parse (missing-arg) :type function)
+ (parse-native (missing-arg) :type function)
(unparse (missing-arg) :type function)
+ (unparse-native (missing-arg) :type function)
(unparse-host (missing-arg) :type function)
(unparse-directory (missing-arg) :type function)
(unparse-file (missing-arg) :type function)
(unparse-enough (missing-arg) :type function)
+ (unparse-directory-separator (missing-arg) :type simple-string)
+ (simplify-namestring (missing-arg) :type function)
(customary-case (missing-arg) :type (member :upper :lower)))
(def!method print-object ((host host) stream)
(print-unreadable-object (host stream :type t :identity t)))
(def!struct (logical-host
- (:make-load-form-fun make-logical-host-load-form-fun)
- (:include host
- (parse #'parse-logical-namestring)
- (unparse #'unparse-logical-namestring)
- (unparse-host
- (lambda (x)
- (logical-host-name (%pathname-host x))))
- (unparse-directory #'unparse-logical-directory)
- (unparse-file #'unparse-unix-file)
- (unparse-enough #'unparse-enough-namestring)
- (customary-case :upper)))
- (name "" :type simple-base-string)
+ (:make-load-form-fun make-logical-host-load-form-fun)
+ (:include host
+ (parse #'parse-logical-namestring)
+ (parse-native
+ (lambda (x)
+ (error "called PARSE-NATIVE-NAMESTRING using a ~
+ logical host: ~S" x)))
+ (unparse #'unparse-logical-namestring)
+ (unparse-native
+ (lambda (x)
+ (error "called NATIVE-NAMESTRING using a ~
+ logical host: ~S" x)))
+ (unparse-host
+ (lambda (x)
+ (logical-host-name (%pathname-host x))))
+ (unparse-directory #'unparse-logical-directory)
+ (unparse-file #'unparse-logical-file)
+ (unparse-enough #'unparse-enough-namestring)
+ (unparse-directory-separator ";")
+ (simplify-namestring #'identity)
+ (customary-case :upper)))
+ (name "" :type simple-string)
(translations nil :type list)
(canon-transls nil :type list))
(print-unreadable-object (logical-host stream :type t)
(prin1 (logical-host-name logical-host) stream)))
-;;; What would it mean to dump a logical host and reload it into
-;;; another Lisp image? It's not clear, so we don't support it.
(defun make-logical-host-load-form-fun (logical-host)
- (error "~@<A logical host can't be dumped as a constant: ~2I~_~S~:>"
- logical-host))
+ (values `(find-logical-host ',(logical-host-name logical-host))
+ nil))
;;; A PATTERN is a list of entries and wildcards used for pattern
;;; matches of translations.
-(sb!xc:defstruct (pattern (:constructor make-pattern (pieces)))
+(def!struct (pattern (:constructor make-pattern (pieces)))
(pieces nil :type list))
\f
;;;; PATHNAME structures
;;; the various magic tokens that are allowed to appear in pretty much
;;; all pathname components
-(sb!xc:deftype pathname-component-tokens ()
- '(member nil :unspecific :wild))
+(eval-when (#-sb-xc :compile-toplevel :load-toplevel :execute)
+ (def!type pathname-component-tokens ()
+ '(member nil :unspecific :wild)))
(sb!xc:defstruct (pathname (:conc-name %pathname-)
- (:constructor %make-pathname (host
- device
- directory
- name
- type
- version))
- (:predicate pathnamep))
+ (:constructor %make-pathname (host
+ device
+ directory
+ name
+ type
+ version))
+ (:predicate pathnamep))
;; the host (at present either a UNIX or logical host)
(host nil :type (or host null))
;; the name of a logical or physical device holding files
;;; Logical pathnames have the following format:
;;;
;;; logical-namestring ::=
-;;; [host ":"] [";"] {directory ";"}* [name] ["." type ["." version]]
+;;; [host ":"] [";"] {directory ";"}* [name] ["." type ["." version]]
;;;
;;; host ::= word
;;; directory ::= word | wildcard-word | **
;;; Logical pathnames are a subclass of PATHNAME. Their class
;;; relations are mimicked using structures for efficiency.
(sb!xc:defstruct (logical-pathname (:conc-name %logical-pathname-)
- (:include pathname)
- (:constructor %make-logical-pathname
- (host
- device
- directory
- name
- type
- version))))
+ (:include pathname)
+ (:constructor %make-logical-pathname
+ (host
+ device
+ directory
+ name
+ type
+ version))))