(loader '((title |path.lo|)))
(if (not (>= (version) 15.2)) (progn (error 'load 'erricf 'pathname)))
(setq #:sys-package:colon 'pathname)
(add-feature 'pathname)
(putprop 'pathname '((() () () () () ()) host device directory name type version) 'defstruct)
(loader'((fentry #:pathname:make subr0)
(entry #:pathname:make subr0)
(push (@ 101))
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(mov '6 a4)
(jmp vector)
101
(eval ())
(push a1)
(push (@ 102))
(push a1)
(push 'pathname)
(mov '2 a4)
(jmp typevector)
102
(eval ())
(mov (& 0) a1)
(adjstk '1)
(return)
))
(if (featurep 'setf) (progn (progn (putprop '#:pathname:host '#:pathname:host 'setf-inverse) '#:pathname:host)))
(if (featurep 'compiler) (progn (defmacro-open #:pathname:host (struct . valeur) (ifn valeur (list 'vref struct 0) (list 'vset struct 0 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:pathname:device '#:pathname:device 'setf-inverse) '#:pathname:device)))
(if (featurep 'compiler) (progn (defmacro-open #:pathname:device (struct . valeur) (ifn valeur (list 'vref struct 1) (list 'vset struct 1 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:pathname:directory '#:pathname:directory 'setf-inverse) '#:pathname:directory)))
(if (featurep 'compiler) (progn (defmacro-open #:pathname:directory (struct . valeur) (ifn valeur (list 'vref struct 2) (list 'vset struct 2 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:pathname:name '#:pathname:name 'setf-inverse) '#:pathname:name)))
(if (featurep 'compiler) (progn (defmacro-open #:pathname:name (struct . valeur) (ifn valeur (list 'vref struct 3) (list 'vset struct 3 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:pathname:type '#:pathname:type 'setf-inverse) '#:pathname:type)))
(if (featurep 'compiler) (progn (defmacro-open #:pathname:type (struct . valeur) (ifn valeur (list 'vref struct 4) (list 'vset struct 4 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:pathname:version '#:pathname:version 'setf-inverse) '#:pathname:version)))
(if (featurep 'compiler) (progn (defmacro-open #:pathname:version (struct . valeur) (ifn valeur (list 'vref struct 5) (list 'vset struct 5 (car valeur))))))
(loader'((fentry namestring subr1)
(entry namestring subr1)
(push a1)
(jcall pathnamep)
(bfnil a1 102)
(mov (& 0) a3)
(mov 'errbpa a2)
(mov 'namestringname a1)
(jcall error)
102
(btnil (cvalq #:system:unixp) 103)
(mov (& 0) a1)
(adjstk '1)
(jmp #:unix:namestring)
103
(jcall system)
(cabne a1 'vaxvms 105)
(mov (& 0) a1)
(adjstk '1)
(bra #:vaxvms:namestring)
105
(push (@ 107))
(push (@ 108))
(jcall system)
(push a1)
(push 'namestring)
(push nil)
(mov '3 a4)
(jmp getfn)
108
(eval ())
(push a1)
(push (& 2))
(mov '2 a4)
(jmp funcall)
107
(eval ())
(adjstk '1)
(return)
))
(loader'((fentry #:unix:namestring subr1)
(entry #:unix:namestring subr1)
(push a1)
(push (@ 101))
(call #:unix:directory-namestring)
(push a1)
(mov (& 2) a1)
(call #:unix:file-namestring)
(push a1)
(mov '2 a4)
(jmp catenate)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((entry #:vaxvms:namestring subr1)
(push a1)
(push (@ 101))
(call #:vaxvms:host-namestring)
(push a1)
(mov (& 2) a1)
(call #:vaxvms:device-namestring)
(push a1)
(mov (& 3) a1)
(call #:vaxvms:directory-namestring)
(push a1)
(mov (& 4) a1)
(call #:vaxvms:file-namestring)
(push a1)
(mov '4 a4)
(jmp catenate)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((fentry pathnamep subr1)
(entry pathnamep subr1)
(jcall type-of)
(mov 'pathname a2)
(jmp eq)
))
(loader'((fentry pathname-host subr1)
(entry pathname-host subr1)
(push a1)
(jcall pathnamep)
(bfnil a1 102)
(mov (& 0) a1)
(jcall pathname)
(mov a1 (& 0))
102
(hpxmov (& 0) '0 a1)
(adjstk '1)
(return)
))
(loader'((fentry pathname-device subr1)
(entry pathname-device subr1)
(push a1)
(jcall pathnamep)
(bfnil a1 102)
(mov (& 0) a1)
(jcall pathname)
(mov a1 (& 0))
102
(hpxmov (& 0) '1 a1)
(adjstk '1)
(return)
))
(loader'((fentry pathname-directory subr1)
(entry pathname-directory subr1)
(push a1)
(jcall pathnamep)
(bfnil a1 102)
(mov (& 0) a1)
(jcall pathname)
(mov a1 (& 0))
102
(hpxmov (& 0) '2 a1)
(adjstk '1)
(return)
))
(loader'((fentry pathname-name subr1)
(entry pathname-name subr1)
(push a1)
(jcall pathnamep)
(bfnil a1 102)
(mov (& 0) a1)
(jcall pathname)
(mov a1 (& 0))
102
(hpxmov (& 0) '3 a1)
(adjstk '1)
(return)
))
(loader'((fentry pathname-type subr1)
(entry pathname-type subr1)
(push a1)
(jcall pathnamep)
(bfnil a1 102)
(mov (& 0) a1)
(jcall pathname)
(mov a1 (& 0))
102
(hpxmov (& 0) '4 a1)
(adjstk '1)
(return)
))
(loader'((fentry pathname-version subr1)
(entry pathname-version subr1)
(push a1)
(jcall pathnamep)
(bfnil a1 102)
(mov (& 0) a1)
(jcall pathname)
(mov a1 (& 0))
102
(hpxmov (& 0) '5 a1)
(adjstk '1)
(return)
))
(loader'((fentry pathname subr1)
(entry pathname subr1)
(push a1)
(mov '"" a2)
(jcall equal)
(btnil a1 101)
(mov 'pathname a1)
(adjstk '1)
(jmp new)
101
(btnil (cvalq #:system:unixp) 103)
(mov (& 0) a1)
(adjstk '1)
(jmp #:unix:pathname)
103
(jcall system)
(cabne a1 'vaxvms 105)
(mov (& 0) a1)
(adjstk '1)
(bra #:vaxvms:pathname)
105
(push (@ 107))
(push (@ 108))
(jcall system)
(push a1)
(push 'pathname)
(push nil)
(mov '3 a4)
(jmp getfn)
108
(eval ())
(push a1)
(push (& 2))
(mov '2 a4)
(jmp funcall)
107
(eval ())
(adjstk '1)
(return)
))
(loader'((fentry #:unix:pathname subr1)
(entry #:unix:pathname subr1)
(push a1)
(mov 'pathname a1)
(jcall new)
(push a1)
(mov (& 1) a1)
(jcall string)
(push nil)
(push nil)
(push a1)
(hgsize a1 a4)
(cabne a4 '0 101)
(mov (& 3) a1)
(adjstk '5)
(return)
101
(hbxmov a1 '0 a4)
(cabne a4 '47 103)
(push (@ 105))
(push a1)
(push '1)
(mov '2 a4)
(jmp substring)
105
(eval ())
(mov a1 (& 0))
(bra 117)
103
(push (@ 108))
(push '"../")
(push a1)
(mov '2 a4)
(jmp index)
108
(eval ())
(cabne a1 '0 106)
(push (@ 109))
(push (& 1))
(push '3)
(mov '2 a4)
(jmp substring)
109
(eval ())
(mov a1 (& 0))
(mov '#:pathname:up a1)
(jcall ncons)
(hpmovx a1 (& 3) '2)
(bra 117)
106
(push (@ 112))
(push '"./")
(push (& 2))
(mov '2 a4)
(jmp index)
112
(eval ())
(cabne a1 '0 110)
(push (@ 113))
(push (& 1))
(push '2)
(mov '2 a4)
(jmp substring)
113
(eval ())
(mov a1 (& 0))
(mov '#:pathname:current a1)
(jcall ncons)
(hpmovx a1 (& 3) '2)
(bra 117)
110
(push (@ 116))
(push '"/")
(push (& 2))
(mov '2 a4)
(jmp index)
116
(eval ())
(btnil a1 117)
(mov '#:pathname:current a1)
(jcall ncons)
(hpmovx a1 (& 3) '2)
117
(push (@ 119))
(push '"/")
(push (& 2))
(mov '2 a4)
(jmp index)
119
(eval ())
(mov a1 (& 1))
(btnil a1 118)
(push (@ 122))
(push (& 1))
(push '0)
(push a1)
(mov '3 a4)
(jmp substring)
122
(eval ())
(mov a1 (& 2))
(mov '".." a2)
(jcall equal)
(btnil a1 120)
(mov '#:pathname:up (& 2))
(bra 121)
120
(mov '"." a2)
(mov (& 2) a1)
(jcall equal)
(btnil a1 123)
(mov '#:pathname:current (& 2))
(bra 121)
123
(mov '"*" a2)
(mov (& 2) a1)
(jcall equal)
(btnil a1 121)
(mov '#:pathname:wild (& 2))
121
(hpxmov (& 3) '2 a2)
(mov (& 2) a1)
(jcall cons)
(hpmovx a1 (& 3) '2)
(push (@ 127))
(push (& 1))
(mov (& 3) a4)
(plus '1 a4)
(push a4)
(mov '2 a4)
(jmp substring)
127
(eval ())
(mov a1 (& 0))
(bra 117)
118
(hpxmov (& 3) '2 a1)
(jcall nreverse)
(hpmovx a1 (& 3) '2)
(hgsize (& 0) a4)
(cabeq a4 '0 129)
(hbxmov (& 0) '0 a4)
(cabeq a4 '46 129)
(push (@ 130))
(push (& 1))
(push '0)
(push (@ 132))
(push '".")
(push (& 5))
(mov '2 a4)
(jmp index)
132
(eval ())
(mov a1 a4)
(bfnil a4 131)
(hgsize (& 3) a4)
131
(mov a4 (& 4))
(push a4)
(mov '3 a4)
(jmp substring)
130
(eval ())
(mov a1 (& 2))
(mov '"*" a2)
(jcall equal)
(btnil a1 133)
(mov '#:pathname:wild a4)
(bra 134)
133
(mov (& 2) a4)
134
(hpmovx a4 (& 3) '3)
(push (@ 135))
(push (& 1))
(push (& 3))
(mov '2 a4)
(jmp substring)
135
(eval ())
(mov a1 (& 0))
129
(hgsize (& 0) a4)
(cabeq a4 '0 137)
(push (@ 138))
(push (& 1))
(push '1)
(mov '2 a4)
(jmp substring)
138
(eval ())
(mov a1 (& 0))
(hgsize a1 a4)
(cabeq a4 '0 137)
(push (@ 139))
(push (& 1))
(push '0)
(push (@ 141))
(push '".")
(push (& 5))
(mov '2 a4)
(jmp index)
141
(eval ())
(mov a1 a4)
(bfnil a4 140)
(hgsize (& 3) a4)
140
(mov a4 (& 4))
(push a4)
(mov '3 a4)
(jmp substring)
139
(eval ())
(mov a1 (& 2))
(mov '"*" a2)
(jcall equal)
(btnil a1 142)
(mov '#:pathname:wild a4)
(bra 143)
142
(cabne (& 1) '0 144)
(mov nil a4)
(bra 143)
144
(mov (& 2) a4)
143
(hpmovx a4 (& 3) '4)
(push (@ 146))
(push (& 1))
(push (& 3))
(mov '2 a4)
(jmp substring)
146
(eval ())
(mov a1 (& 0))
137
(hgsize (& 0) a4)
(cabeq a4 '0 148)
(push (@ 149))
(push (& 1))
(push '1)
(mov '2 a4)
(jmp substring)
149
(eval ())
(mov a1 (& 0))
(hgsize a1 a4)
(cabeq a4 '0 148)
(hgsize (& 0) a1)
(mov nil a3)
(mov (& 0) a2)
(jcall stratom)
(mov a1 (& 2))
(bffix a1 150)
(mov a1 a4)
(bra 151)
150
(mov '"*" a2)
(mov (& 0) a1)
(jcall equal)
(btnil a1 152)
(mov '#:pathname:wild a4)
(bra 151)
152
(btfix (& 2) 154)
(btnil (cvalq *portable-pathname*) 157)
(mov (& 2) a3)
(mov '"Version n'est pas un numerique" a2)
(mov 'pathname a1)
(jcall printerror)
157
(mov nil a4)
(bra 151)
154
(mov nil a4)
151
(hpmovx a4 (& 3) '5)
148
(mov (& 3) a1)
(adjstk '5)
(return)
))
(loader'((entry #:vaxvms:pathname subr1)
(push a1)
(mov 'pathname a1)
(jcall new)
(push a1)
(mov (& 1) a1)
(jcall string)
(push nil)
(push a1)
(push (@ 103))
(push '"::")
(push a1)
(mov '2 a4)
(jmp index)
103
(eval ())
(mov a1 (& 1))
(btnil a1 102)
(push (@ 104))
(push (& 1))
(push '0)
(push a1)
(mov '3 a4)
(jmp substring)
104
(eval ())
(hpmovx a1 (& 2) '0)
(push (@ 105))
(push (& 1))
(mov (& 3) a4)
(plus '2 a4)
(push a4)
(mov '2 a4)
(jmp substring)
105
(eval ())
(mov a1 (& 0))
102
(push (@ 108))
(push '":")
(push (& 2))
(mov '2 a4)
(jmp index)
108
(eval ())
(mov a1 (& 1))
(btnil a1 107)
(push (@ 109))
(push (& 1))
(push '0)
(push a1)
(mov '3 a4)
(jmp substring)
109
(eval ())
(hpmovx a1 (& 2) '1)
(push (@ 110))
(push (& 1))
(mov (& 3) a4)
(plus '1 a4)
(push a4)
(mov '2 a4)
(jmp substring)
110
(eval ())
(mov a1 (& 0))
107
(hgsize (& 0) a4)
(cabeq a4 '0 112)
(hbxmov (& 0) '0 a4)
(cabne a4 '91 112)
(push (@ 113))
(push (& 1))
(push '1)
(mov '2 a4)
(jmp substring)
113
(eval ())
(mov a1 (& 0))
114
(push (@ 116))
(push '"]")
(push (& 2))
(mov '2 a4)
(jmp index)
116
(eval ())
(btnil a1 115)
(push (@ 119))
(push (& 1))
(push '".]")
(mov '2 a4)
(jmp scanstring)
119
(eval ())
(mov a1 (& 1))
(btnil a1 117)
(push (@ 120))
(push (& 1))
(push '0)
(push a1)
(mov '3 a4)
(jmp substring)
120
(eval ())
(hpxmov (& 2) '2 a2)
(jcall cons)
(hpmovx a1 (& 2) '2)
(bra 118)
117
(mov (& 3) a3)
(mov 'errsxt a2)
(mov '#:vaxvms:pathname a1)
(jcall error)
118
(push (@ 121))
(push (& 1))
(mov (& 3) a4)
(plus '1 a4)
(push a4)
(mov '2 a4)
(jmp substring)
121
(eval ())
(mov a1 (& 0))
(bra 114)
115
(hpxmov (& 2) '2 a1)
(jcall nreverse)
(hpmovx a1 (& 2) '2)
112
(hgsize (& 0) a4)
(cabeq a4 '0 124)
(hbxmov (& 0) '0 a4)
(cabne a4 '46 122)
124
(push (@ 125))
(push (& 1))
(push '1)
(mov '2 a4)
(jmp substring)
125
(eval ())
(mov a1 (& 0))
(bra 123)
122
(push (@ 126))
(push (& 1))
(push '0)
(push (@ 129))
(push '".")
(push (& 5))
(mov '2 a4)
(jmp index)
129
(eval ())
(mov a1 (& 4))
(btnil a1 127)
(mov a1 a4)
(bra 128)
127
(hgsize (& 3) a4)
(mov a4 (& 4))
128
(push a4)
(mov '3 a4)
(jmp substring)
126
(eval ())
(hpmovx a1 (& 2) '3)
(push (@ 130))
(push (& 1))
(push (@ 131))
(mov (& 4) a4)
(plus '1 a4)
(push a4)
(hgsize (& 4) a4)
(push a4)
(mov '2 a4)
(jmp min)
131
(eval ())
(push a1)
(mov '2 a4)
(jmp substring)
130
(eval ())
(mov a1 (& 0))
123
(hgsize a1 a4)
(cabeq a4 '0 133)
(push (@ 134))
(push a1)
(push '0)
(push (@ 137))
(push '";")
(push a1)
(mov '2 a4)
(jmp index)
137
(eval ())
(mov a1 (& 4))
(btnil a1 135)
(mov a1 a4)
(bra 136)
135
(hgsize (& 3) a4)
(mov a4 (& 4))
136
(push a4)
(mov '3 a4)
(jmp substring)
134
(eval ())
(hpmovx a1 (& 2) '4)
(push (@ 138))
(push (& 1))
(push (@ 139))
(mov (& 4) a4)
(plus '1 a4)
(push a4)
(hgsize (& 4) a4)
(push a4)
(mov '2 a4)
(jmp min)
139
(eval ())
(push a1)
(mov '2 a4)
(jmp substring)
138
(eval ())
(mov a1 (& 0))
133
(hgsize a1 a4)
(cabeq a4 '0 141)
(hgsize a1 a1)
(mov nil a3)
(mov (& 0) a2)
(jcall stratom)
(jcall fixp)
(mov a1 a4)
(bfnil a4 142)
(mov nil a4)
142
(hpmovx a4 (& 2) '5)
141
(mov (& 2) a1)
(adjstk '4)
(return)
))
(loader'((fentry user-homedir-pathname subr0)
(entry user-homedir-pathname subr0)
(btnil (cvalq #:system:unixp) 101)
(push (@ 103))
(mov '"HOME" a1)
(jcall getenv)
(push a1)
(push '"/")
(mov '2 a4)
(jmp catenate)
103
(eval ())
(jmp #:unix:pathname)
101
(jcall system)
(cabne a1 'vaxvms 104)
(mov '"sys$login:" a1)
(call #:vaxvms:trlnm)
(bra #:vaxvms:pathname)
104
(push (@ 106))
(push (@ 107))
(jcall system)
(push a1)
(push 'homedir-pathname)
(push nil)
(mov '3 a4)
(jmp getfn)
107
(eval ())
(push a1)
(mov '1 a4)
(jmp funcall)
106
(eval ())
(return)
))
(loader'((fentry control-file-pathname subr1)
(entry control-file-pathname subr1)
(jcall string)
(push a1)
(jcall user-homedir-pathname)
(push a1)
(hgsize (& 1) a4)
(cnble a4 '12 102)
(push (@ 103))
(push (& 2))
(push '0)
(push '11)
(mov '3 a4)
(jmp substring)
103
(eval ())
(mov a1 (& 1))
102
(push (@ 104))
(push (& 2))
(push '"rc")
(mov '2 a4)
(jmp catenate)
104
(eval ())
(hpmovx a1 (& 0) '4)
(mov (& 0) a1)
(adjstk '2)
(return)
))
(loader'((fentry temporary-file-pathname subr1)
(entry temporary-file-pathname subr1)
(push a1)
(btnil (cvalq #:system:unixp) 101)
(push (@ 103))
(push '"/tmp/")
(push a1)
(mov '2 a4)
(jmp catenate)
103
(eval ())
(adjstk '1)
(jmp pathname)
101
(jcall system)
(cabne a1 'vaxvms 104)
(push (@ 106))
(push '"sys$scratch:")
(push (& 2))
(mov '2 a4)
(jmp catenate)
106
(eval ())
(adjstk '1)
(jmp pathname)
104
(push (@ 107))
(push (@ 108))
(jcall system)
(push a1)
(push 'temporary-file-pathname)
(push nil)
(mov '3 a4)
(jmp getfn)
108
(eval ())
(push a1)
(push (& 2))
(mov '2 a4)
(jmp funcall)
107
(eval ())
(adjstk '1)
(return)
))
(loader'((entry #:bsd:pathname-check subr1)
(mov 't a1)
(return)
))
(loader'((entry #:sys5:pathname-check subr1)
(push (@ 101))
(hpxmov a1 '4 a4)
(push a4)
(hpxmov a1 '3 a4)
(push a4)
(hpxmov a1 '2 a4)
(push a4)
(mov '3 a4)
(jmp mcons)
101
(eval ())
(push a1)
(push 't)
102
(bfcons (& 1) 103)
(mov (& 1) a4)
(mov (cdr a4) (& 1))
(push (car a4))
(hgsize (& 0) a1)
(mov '14 a2)
(jcall le)
(adjstk '1)
(mov a1 (& 0))
(btnil a1 103)
(bra 102)
103
(mov (& 0) a1)
(adjstk '2)
(return)
))
(loader'((entry #:aegis:pathname-check subr1)
(mov 't a1)
(return)
))
(loader'((entry #:vaxvms:pathname-check subr1)
(push a1)
(push (@ 101))
(hpxmov a1 '4 a4)
(push a4)
(hpxmov a1 '3 a4)
(push a4)
(hpxmov a1 '2 a4)
(push a4)
(mov '3 a4)
(jmp mcons)
101
(eval ())
(push a1)
(hpxmov (& 1) '2 a1)
(jcall length)
(mov '8 a2)
(jcall le)
(btnil a1 102)
(push (& 0))
(push 't)
103
(bfcons (& 1) 104)
(mov (& 1) a4)
(mov (cdr a4) (& 1))
(push (car a4))
(btnil (& 0) 105)
(hgsize (& 0) a1)
(mov '32 a2)
(jcall le)
(mov a1 a4)
(bra 106)
105
(mov 't a4)
106
(adjstk '1)
(mov a4 (& 0))
(btnil a4 104)
(bra 103)
104
(mov (& 0) a1)
(adjstk '2)
(btnil a1 102)
(push (& 0))
(push 't)
107
(bfcons (& 1) 108)
(mov (& 1) a4)
(mov (cdr a4) (& 1))
(push (car a4))
(push (@ 111))
(push (& 1))
(push '"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890←-$")
(mov '2 a4)
(jmp spanstring)
111
(eval ())
(btnil a1 109)
(mov nil a4)
(bra 110)
109
(mov 't a4)
110
(adjstk '1)
(mov a4 (& 0))
(btnil a4 108)
(bra 107)
108
(mov (& 0) a1)
(adjstk '2)
(btnil a1 102)
(hpxmov (& 1) '5 a4)
(btnil a4 112)
(hpxmov (& 1) '5 a1)
(adjstk '2)
(jmp fixp)
112
(mov 't a1)
(adjstk '2)
(return)
102
(adjstk '2)
(return)
))
(loader'((fentry portable-pathname-p subr1)
(entry portable-pathname-p subr1)
(push a1)
(push (@ 101))
(mov '0 a4)
(jmp outchan)
101
(eval ())
(push a1)
(push (@ 102))
(push dlink)
(push prot)
(stack dlink)
(push (@ 104))
(push 't)
(mov '1 a4)
(jmp outchan)
104
(eval ())
(mov (& 4) a1)
(jcall pathnamep)
(bfnil a1 106)
(mov (& 4) a3)
(mov '"N'est pas un pathname" a2)
(mov 'portable-pathnamep a1)
(jcall error)
106
(hpxmov (& 4) '0 a4)
(bfnil a4 109)
(hpxmov (& 4) '1 a4)
(btnil a4 108)
109
(push (@ 110))
(hpxmov (& 5) '0 a4)
(push a4)
(hpxmov (& 6) '1 a4)
(push a4)
(mov '2 a4)
(jmp list)
110
(eval ())
(mov a1 a3)
(mov '" Attention les champs Host ou Device ne sont pas vides" a2)
(mov 'portable-pathnamep a1)
(jcall printerror)
108
(mov (& 4) a1)
(call #:vaxvms:pathname-check)
(bfnil a1 112)
(mov (& 4) a3)
(mov '"Pas une specification VMS" a2)
(mov 'portable-pathnamep a1)
(jcall printerror)
112
(mov (& 4) a1)
(call #:bsd:pathname-check)
(bfnil a1 114)
(mov (& 4) a3)
(mov '"Pas une specification  BSD" a2)
(mov 'portable-pathnamep a1)
(jcall printerror)
114
(mov (& 4) a1)
(call #:sys5:pathname-check)
(bfnil a1 116)
(push (@ 117))
(push 'portable-pathnamep)
(push '"Pas une specification SYS5")
(push (& 7))
(mov '3 a4)
(jmp print)
117
(eval ())
116
(mov (& 4) a1)
(call #:aegis:pathname-check)
(bfnil a1 118)
(push (@ 120))
(push 'portable-pathnamep)
(push '"Pas une specification AEGIS")
(push (& 7))
(mov '3 a4)
(jmp print)
120
(eval ())
(bra 119)
118
(mov nil a1)
119
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 103) a3)
102
(push a3)
(push a2)
(push (@ 121))
(push (& 4))
(mov '1 a4)
(jmp outchan)
121
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
103
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry #:pathname:prin subr1)
(entry #:pathname:prin subr1)
(push a1)
(btnil (cvalq #:system:print-for-read) 101)
(push nil)
(push (cvalq #:system:print-for-read))
(mov (& 1) (cvalq #:system:print-for-read))
(push '1)
(push '(#:system:print-for-read))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(push (@ 103))
(push '":#[ ")
(mov '1 a4)
(jmp prin)
103
(eval ())
(mov (& 1) dlink)
(mov (& 6) (cvalq #:system:print-for-read))
(adjstk '8)
(push '0)
(push (& 1))
(hgsize (& 0) a4)
(push a4)
104
(cnbge (& 2) (& 0) 105)
(hpxmov (& 1) (& 2) a4)
(push (@ 106))
(push a4)
(mov '1 a4)
(jmp prin)
106
(eval ())
(push (@ 107))
(push '32)
(mov '1 a4)
(jmp princn)
107
(eval ())
(mov (& 2) a4)
(plus '1 a4)
(mov a4 (& 2))
(bra 104)
105
(adjstk '3)
(push (@ 108))
(push '93)
(mov '1 a4)
(jmp princn)
108
(eval ())
(bra 102)
101
(push (@ 109))
(push '"#p""")
(jcall namestring)
(push a1)
(push '"""")
(mov '3 a4)
(jmp prin)
109
(eval ())
102
(mov (& 0) a1)
(adjstk '1)
(return)
))
(defsharp p () (ncons (pathname (read))))
(defsharp u () (ncons (#:unix:pathname (read))))
(defvar *default-pathname-defaults* :#[ () () () () () () ])
(defvar *portable-pathname* ())
(loader'((fentry make-pathname nsubr)
(entry make-pathname nsubr)
(jcall #:llcp:nlist)
(push a1)
(mov 'pathname a1)
(jcall new)
(push a1)
(mov (& 1) a4)
(mov (car a4) a4)
(bfnil a4 101)
(hpxmov (cvalq *default-pathname-defaults*) '0 a4)
101
(hpmovx a4 a1 '0)
(mov (& 1) a4)
(mov (cdr a4) a4)
(mov (car a4) a4)
(bfnil a4 102)
(hpxmov (cvalq *default-pathname-defaults*) '1 a4)
102
(hpmovx a4 a1 '1)
(mov (& 1) a4)
(mov (cdr a4) a4)
(mov (cdr a4) a4)
(mov (car a4) a4)
(bfnil a4 103)
(hpxmov (cvalq *default-pathname-defaults*) '2 a4)
103
(hpmovx a4 a1 '2)
(mov (& 1) a4)
(mov (cdr a4) a4)
(mov (cdr a4) a4)
(mov (cdr a4) a4)
(mov (car a4) a4)
(bfnil a4 104)
(hpxmov (cvalq *default-pathname-defaults*) '3 a4)
104
(hpmovx a4 a1 '3)
(mov (& 1) a4)
(mov (cdr a4) a4)
(mov (cdr a4) a4)
(mov (cdr a4) a4)
(mov (cdr a4) a4)
(mov (car a4) a4)
(bfnil a4 105)
(hpxmov (cvalq *default-pathname-defaults*) '4 a4)
105
(hpmovx a4 a1 '4)
(push a1)
(mov (& 2) a1)
(mov (cdr a1) a1)
(mov (cdr a1) a1)
(mov (cdr a1) a1)
(mov (cdr a1) a1)
(mov (cdr a1) a1)
(mov (car a1) a1)
(jcall fixp)
(mov a1 a4)
(bfnil a4 106)
(hpxmov (cvalq *default-pathname-defaults*) '5 a4)
106
(pop a3)
(hpmovx a4 a3 '5)
(mov (& 0) a1)
(adjstk '2)
(return)
))
(loader'((fentry file-namestring subr1)
(entry file-namestring subr1)
(push a1)
(jcall pathnamep)
(btnil a1 101)
(btnil (cvalq #:system:unixp) 103)
(mov (& 0) a1)
(adjstk '1)
(bra #:unix:file-namestring)
103
(jcall system)
(cabne a1 'vaxvms 105)
(mov (& 0) a1)
(adjstk '1)
(bra #:vaxvms:file-namestring)
105
(push (@ 107))
(push (@ 108))
(jcall system)
(push a1)
(push 'file-namestring)
(push nil)
(mov '3 a4)
(jmp getfn)
108
(eval ())
(push a1)
(push (& 2))
(mov '2 a4)
(jmp funcall)
107
(eval ())
(adjstk '1)
(return)
101
(mov (& 0) a3)
(mov (cvalq errbpa) a2)
(mov 'file-namestring a1)
(adjstk '1)
(jmp error)
))
(loader'((fentry directory-namestring subr1)
(entry directory-namestring subr1)
(push a1)
(jcall pathnamep)
(btnil a1 101)
(btnil (cvalq #:system:unixp) 103)
(mov (& 0) a1)
(adjstk '1)
(bra #:unix:directory-namestring)
103
(jcall system)
(cabne a1 'vaxvms 105)
(mov (& 0) a1)
(adjstk '1)
(bra #:vaxvms:directory-namestring)
105
(push (@ 107))
(push (@ 108))
(jcall system)
(push a1)
(push 'directory-namestring)
(push nil)
(mov '3 a4)
(jmp getfn)
108
(eval ())
(push a1)
(push (& 2))
(mov '2 a4)
(jmp funcall)
107
(eval ())
(adjstk '1)
(return)
101
(mov (& 0) a3)
(mov (cvalq errbpa) a2)
(mov 'directory-namestring a1)
(adjstk '1)
(jmp error)
))
(loader'((fentry host-namestring subr1)
(entry host-namestring subr1)
(push a1)
(jcall pathnamep)
(btnil a1 101)
(btnil (cvalq #:system:unixp) 103)
(mov (& 0) a1)
(adjstk '1)
(bra #:unix:host-namestring)
103
(jcall system)
(cabne a1 'vaxvms 105)
(mov (& 0) a1)
(adjstk '1)
(bra #:vaxvms:host-namestring)
105
(push (@ 107))
(push (@ 108))
(jcall system)
(push a1)
(push 'host-namestring)
(push nil)
(mov '3 a4)
(jmp getfn)
108
(eval ())
(push a1)
(push (& 2))
(mov '2 a4)
(jmp funcall)
107
(eval ())
(adjstk '1)
(return)
101
(mov (& 0) a3)
(mov (cvalq errbpa) a2)
(mov 'host-namestring a1)
(adjstk '1)
(jmp error)
))
(loader'((fentry device-namestring subr1)
(entry device-namestring subr1)
(push a1)
(jcall pathnamep)
(btnil a1 101)
(btnil (cvalq #:system:unixp) 103)
(mov (& 0) a1)
(adjstk '1)
(bra #:unix:device-namestring)
103
(jcall system)
(cabne a1 'vaxvms 105)
(mov (& 0) a1)
(adjstk '1)
(bra #:vaxvms:device-namestring)
105
(push (@ 107))
(push (@ 108))
(jcall system)
(push a1)
(push 'device-namestring)
(push nil)
(mov '3 a4)
(jmp getfn)
108
(eval ())
(push a1)
(push (& 2))
(mov '2 a4)
(jmp funcall)
107
(eval ())
(adjstk '1)
(return)
101
(mov (& 0) a3)
(mov (cvalq errbpa) a2)
(mov 'device-namestring a1)
(adjstk '1)
(jmp error)
))
(loader'((entry #:unix:host-namestring subr1)
(mov '"" a1)
(return)
))
(loader'((entry #:unix:device-namestring subr1)
(mov '"" a1)
(return)
))
(loader'((entry #:unix:directory-namestring subr1)
(hpxmov a1 '2 a4)
(bfnil a4 101)
(mov '"" a1)
(return)
101
(hpxmov a1 '2 a4)
(bfstrg (car a4) 103)
(mov '"/" a4)
(bra 104)
103
(mov '"" a4)
104
(push '"/")
(push a4)
(hpxmov a1 '2 a3)
(push a3)
105
(bfcons (& 0) 106)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(push (@ 107))
(push (& 3))
(bfstrg (& 2) 108)
(mov (& 2) a4)
(bra 109)
108
(cabne (& 2) '#:pathname:up 110)
(mov '".." a4)
(bra 109)
110
(cabne (& 2) '#:pathname:wild 112)
(mov '"*" a4)
(bra 109)
112
(cabne (& 2) '#:pathname:current 114)
(mov '"." a4)
(bra 109)
114
(mov nil a4)
109
(push a4)
(push (& 6))
(mov '3 a4)
(jmp catenate)
107
(eval ())
(mov a1 (& 2))
(adjstk '1)
(bra 105)
106
(adjstk '1)
(mov (& 0) a1)
(adjstk '2)
(return)
))
(loader'((entry #:unix:file-namestring subr1)
(push a1)
(push (@ 101))
(hpxmov a1 '3 a1)
(jcall stringp)
(mov a1 a4)
(bfnil a4 102)
(hpxmov (& 1) '3 a4)
(bfnil a4 103)
(mov '"" a4)
(bra 102)
103
(hpxmov (& 1) '3 a4)
(cabne a4 '#:pathname:wild 105)
(mov '"*" a4)
(bra 102)
105
(mov nil a4)
102
(push a4)
(hpxmov (& 2) '4 a4)
(btnil a4 107)
(mov '"." a4)
(bra 108)
107
(mov nil a4)
108
(push a4)
(hpxmov (& 3) '4 a3)
(bfstrg a3 109)
(hpxmov (& 3) '4 a4)
(bra 110)
109
(hpxmov (& 3) '4 a3)
(bfnil a3 111)
(mov '"" a4)
(bra 110)
111
(hpxmov (& 3) '4 a3)
(cabne a3 '#:pathname:wild 113)
(mov '"*" a4)
(bra 110)
113
(mov nil a4)
110
(push a4)
(hpxmov (& 4) '5 a4)
(btnil a4 115)
(mov '"." a4)
(bra 116)
115
(mov nil a4)
116
(push a4)
(hpxmov (& 5) '5 a3)
(bffix a3 117)
(hpxmov (& 5) '5 a1)
(jcall string)
(mov a1 a4)
(bra 118)
117
(hpxmov (& 5) '5 a3)
(cabne a3 '#:pathname:wild 119)
(mov '"*" a4)
(bra 118)
119
(mov '"" a4)
118
(push a4)
(mov '5 a4)
(jmp catenate)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((entry #:vaxvms:host-namestring subr1)
(hpxmov a1 '0 a4)
(btnil a4 101)
(push (@ 103))
(hpxmov a1 '0 a4)
(push a4)
(push '"::")
(mov '2 a4)
(jmp catenate)
103
(eval ())
(return)
101
(mov '"" a1)
(return)
))
(loader'((entry #:vaxvms:device-namestring subr1)
(hpxmov a1 '1 a4)
(btnil a4 101)
(push (@ 103))
(hpxmov a1 '1 a4)
(push a4)
(push '":")
(mov '2 a4)
(jmp catenate)
103
(eval ())
(return)
101
(mov '"" a1)
(return)
))
(loader'((entry #:vaxvms:directory-namestring subr1)
(push '"[")
(hpxmov a1 '2 a4)
(btnil a4 101)
(hpxmov a1 '2 a4)
(push a4)
103
(bfcons (& 0) 104)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(bfstrg (& 0) 105)
(hgsize (& 2) a4)
(diff '1 a4)
(hbxmov (& 2) a4 a4)
(cabeq a4 '91 109)
(hgsize (& 2) a4)
(diff '1 a4)
(hbxmov (& 2) a4 a4)
(cabne a4 '46 107)
109
(push (@ 110))
(push (& 3))
(push (& 2))
(mov '2 a4)
(jmp catenate)
110
(eval ())
(mov a1 a4)
(bra 106)
107
(push (@ 111))
(push (& 3))
(push '".")
(push (& 3))
(mov '3 a4)
(jmp catenate)
111
(eval ())
(mov a1 a4)
(bra 106)
105
(cabne (& 0) '#:pathname:wild 112)
(hgsize (& 2) a4)
(diff '1 a4)
(hbxmov (& 2) a4 a4)
(cabeq a4 '91 116)
(hgsize (& 2) a4)
(diff '1 a4)
(hbxmov (& 2) a4 a4)
(cabne a4 '46 114)
116
(push (@ 117))
(push (& 3))
(push '"*")
(mov '2 a4)
(jmp catenate)
117
(eval ())
(mov a1 a4)
(bra 106)
114
(push (@ 118))
(push (& 3))
(push '".*")
(mov '2 a4)
(jmp catenate)
118
(eval ())
(mov a1 a4)
(bra 106)
112
(cabne (& 0) '#:pathname:current 119)
(push (@ 121))
(push (& 3))
(push '".")
(mov '2 a4)
(jmp catenate)
121
(eval ())
(mov a1 a4)
(bra 106)
119
(cabne (& 0) '#:pathname:up 122)
(push (@ 124))
(push (& 3))
(push '"-")
(mov '2 a4)
(jmp catenate)
124
(eval ())
(mov a1 a4)
(bra 106)
122
(mov nil a4)
106
(mov a4 (& 2))
(adjstk '1)
(bra 103)
104
(adjstk '1)
(hgsize (& 0) a4)
(diff '1 a4)
(hbxmov (& 0) a4 a4)
(cabne a4 '46 125)
(hgsize (& 0) a4)
(diff '1 a4)
(hbmovx '93 (& 0) a4)
(bra 126)
125
(push (@ 127))
(push (& 1))
(push '"]")
(mov '2 a4)
(jmp catenate)
127
(eval ())
(mov a1 (& 0))
126
(mov '"[]" a2)
(mov (& 0) a1)
(jcall equal)
(btnil a1 128)
(mov '"" a1)
(adjstk '1)
(return)
128
(mov (& 0) a1)
(adjstk '1)
(return)
101
(mov nil a1)
(adjstk '1)
(return)
))
(loader'((entry #:vaxvms:file-namestring subr1)
(push a1)
(push (@ 101))
(hpxmov a1 '3 a4)
(bfstrg a4 102)
(hpxmov a1 '3 a4)
(bra 103)
102
(hpxmov a1 '3 a4)
(cabne a4 '#:pathname:wild 104)
(mov '"*" a4)
(bra 103)
104
(hpxmov a1 '3 a4)
(bfnil a4 106)
(mov '"" a4)
(bra 103)
106
(hpxmov a1 '3 a3)
(mov 'errsxt a2)
(mov 'file-namestring a1)
(jcall error)
(mov a1 a4)
103
(push a4)
(hpxmov (& 2) '4 a4)
(btnil a4 108)
(mov '"." a4)
(bra 109)
108
(mov '"" a4)
109
(push a4)
(hpxmov (& 3) '4 a3)
(bfstrg a3 110)
(hpxmov (& 3) '4 a4)
(bra 111)
110
(hpxmov (& 3) '4 a3)
(cabne a3 '#:pathname:wild 112)
(mov '"*" a4)
(bra 111)
112
(hpxmov (& 3) '4 a3)
(bfnil a3 114)
(mov '"" a4)
(bra 111)
114
(hpxmov (& 3) '4 a3)
(mov 'errsxt a2)
(mov 'file-namestring a1)
(jcall error)
(mov a1 a4)
111
(push a4)
(hpxmov (& 4) '5 a4)
(btnil a4 116)
(mov '";" a4)
(bra 117)
116
(mov '"" a4)
117
(push a4)
(hpxmov (& 5) '5 a1)
(jcall string)
(push a1)
(mov '5 a4)
(jmp catenate)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((fentry merge-pathnames subr2)
(entry merge-pathnames subr2)
(push a2)
(push a1)
(mov 'pathname a1)
(jcall new)
(hpxmov (& 0) '0 a4)
(bfnil a4 101)
(hpxmov (& 1) '0 a4)
101
(hpmovx a4 a1 '0)
(hpxmov (& 0) '1 a4)
(bfnil a4 102)
(hpxmov (& 1) '1 a4)
102
(hpmovx a4 a1 '1)
(hpxmov (& 0) '2 a4)
(bfnil a4 103)
(hpxmov (& 1) '2 a4)
103
(hpmovx a4 a1 '2)
(hpxmov (& 0) '3 a4)
(bfnil a4 104)
(hpxmov (& 1) '3 a4)
104
(hpmovx a4 a1 '3)
(hpxmov (& 0) '4 a4)
(bfnil a4 105)
(hpxmov (& 1) '4 a4)
105
(hpmovx a4 a1 '4)
(hpxmov (& 0) '5 a4)
(bfnil a4 106)
(hpxmov (& 1) '5 a4)
106
(hpmovx a4 a1 '5)
(adjstk '2)
(return)
))
(loader'((fentry enough-namestring nsubr)
(entry enough-namestring nsubr)
(cnbge a4 '1 0)
(mov 'enough-namestring a1)
(mov '1 a2)
(jmp #:llcp:errwna)
0
(diff '1 a4)
(jcall #:llcp:nlist)
(push a1)
(bfnil a1 101)
(mov (cvalq *default-pathname-defaults*) (& 0))
(bra 102)
101
(mov (car a1) (& 0))
(mov (car a1) a1)
(jcall pathnamep)
(bfnil a1 102)
(mov (& 0) a1)
(jcall pathname)
(mov a1 (& 0))
102
(mov 'pathname a1)
(jcall new)
(push a1)
(hpxmov (& 1) '0 a1)
(hpxmov (& 2) '0 a2)
(jcall equal)
(bfnil a1 106)
(hpxmov (& 2) '0 a4)
(hpmovx a4 (& 0) '0)
106
(hpxmov (& 1) '1 a1)
(hpxmov (& 2) '1 a2)
(jcall equal)
(bfnil a1 108)
(hpxmov (& 2) '1 a4)
(hpmovx a4 (& 0) '1)
108
(hpxmov (& 1) '2 a1)
(hpxmov (& 2) '2 a2)
(jcall equal)
(bfnil a1 110)
(hpxmov (& 2) '2 a4)
(hpmovx a4 (& 0) '2)
110
(hpxmov (& 1) '3 a1)
(hpxmov (& 2) '3 a2)
(jcall equal)
(bfnil a1 112)
(hpxmov (& 2) '3 a4)
(hpmovx a4 (& 0) '3)
112
(hpxmov (& 1) '4 a1)
(hpxmov (& 2) '4 a2)
(jcall equal)
(bfnil a1 114)
(hpxmov (& 2) '4 a4)
(hpmovx a4 (& 0) '4)
114
(hpxmov (& 1) '5 a1)
(hpxmov (& 2) '5 a2)
(jcall equal)
(bfnil a1 116)
(hpxmov (& 2) '5 a4)
(hpmovx a4 (& 0) '5)
116
(mov (& 0) a1)
(adjstk '3)
(jmp namestring)
))
(loader'((fentry true-pathname subr1)
(entry true-pathname subr1)
(push (cvalq p))
(mov a1 (cvalq p))
(push '1)
(push '(p))
(push (@ true-pathname))
(push llink)
(mov nil llink)
(push dlink)
(push cbindn)
(stack dlink)
(jcall pathnamep)
(btnil a1 101)
(btnil (cvalq #:system:unixp) 103)
(mov (cvalq p) a1)
(call #:unix:true-pathname)
(bra 102)
103
(jcall system)
(cabne a1 'vaxvms 105)
(mov (cvalq p) a1)
(call #:vaxvms:true-pathname)
(bra 102)
105
(push (@ 107))
(push (@ 108))
(jcall system)
(push a1)
(push 'true-pathname)
(push nil)
(mov '3 a4)
(jmp getfn)
108
(eval ())
(push a1)
(push (cvalq p))
(mov '2 a4)
(jmp funcall)
107
(eval ())
(bra 102)
101
(mov (cvalq p) a3)
(mov (cvalq errbpa) a2)
(mov 'true-pathname a1)
(jcall error)
102
(mov (& 1) dlink)
(mov (& 2) llink)
(mov (& 6) (cvalq p))
(adjstk '7)
(return)
))
(loader'((entry #:unix:true-pathname subr1)
(push a1)
(mov 'pathname a1)
(jcall new)
(push nil)
(push a1)
(hpxmov (& 2) '2 a4)
(cabne (car a4) '#:pathname:current 101)
(hpxmov (& 2) '2 a4)
(mov (cdr a4) a4)
(bfstrg (car a4) 101)
(hpxmov (& 2) '2 a3)
(mov (cdr a3) a3)
(hbxmov (car a3) '0 a3)
(cabne a3 '36 101)
(push (@ 103))
(hpxmov (& 3) '2 a3)
(mov (cdr a3) a3)
(push (car a3))
(push '1)
(mov '2 a4)
(jmp substring)
103
(eval ())
(jcall getenv)
(mov a1 (& 1))
(btnil a1 101)
(jcall string)
(mov a1 (& 1))
(btnil a1 101)
(hbxmov (& 1) '0 a4)
(cabeq a4 '47 104)
(mov (& 1) a1)
(bra 105)
104
(push (@ 106))
(push (& 2))
(push '1)
(mov '2 a4)
(jmp substring)
106
(eval ())
105
(hpxmov (& 2) '2 a2)
(mov (cdr a2) a2)
(mov (cdr a2) a2)
(mov (car a2) a2)
(jcall cons)
(hpmovx a1 (& 0) '2)
(bra 102)
101
(hpxmov (& 2) '2 a4)
(hpmovx a4 (& 0) '2)
102
(hpxmov (& 2) '3 a4)
(bfstrg a4 107)
(hpxmov (& 2) '3 a4)
(hbxmov a4 '0 a4)
(cabne a4 '36 107)
(push (@ 109))
(hpxmov (& 3) '3 a4)
(push a4)
(push '1)
(mov '2 a4)
(jmp substring)
109
(eval ())
(jcall getenv)
(jcall string)
(mov a1 (& 1))
(btnil a1 107)
(hpmovx (& 1) (& 0) '3)
(bra 108)
107
(hpxmov (& 2) '3 a4)
(hpmovx a4 (& 0) '3)
108
(hpxmov (& 2) '4 a4)
(hpmovx a4 (& 0) '4)
(hpxmov (& 2) '5 a4)
(hpmovx a4 (& 0) '5)
(mov (& 0) a1)
(jcall #:unix:namestring)
(adjstk '3)
(jmp #:unix:pathname)
))
(loader'((entry #:vaxvms:true-pathname subr1)
(mov (cvalq p) a1)
(call #:vaxvms:namestring)
(call #:vaxvms:trlnm)
(jmp pathname)
))
(loader'((entry #:vaxvms:trlnm subr1)
(return)
))
(loader'((fentry current-directory nsubr)
(entry current-directory nsubr)
(jcall #:llcp:nlist)
(push a1)
(btnil (cvalq #:system:unixp) 101)
(push (@ 103))
(push (car a1))
(mov '1 a4)
(bra #:unix:current-directory)
103
(eval ())
(adjstk '1)
(return)
101
(jcall system)
(cabne a1 'vaxvms 104)
(push (@ 106))
(mov (& 1) a4)
(push (car a4))
(mov '1 a4)
(bra #:vaxvms:current-directory)
106
(eval ())
(adjstk '1)
(return)
104
(push (@ 107))
(push (@ 108))
(jcall system)
(push a1)
(push 'current-directory)
(push nil)
(mov '3 a4)
(jmp getfn)
108
(eval ())
(push a1)
(mov (& 2) a4)
(push (car a4))
(mov '2 a4)
(jmp funcall)
107
(eval ())
(adjstk '1)
(return)
))
(loader'((entry #:unix:current-directory nsubr)
(jcall #:llcp:nlist)
(push a1)
(bfnil (car a1) 101)
(mov '32 a2)
(mov '100 a1)
(jcall makestring)
(push nil)
(push a1)
(mov '100 a2)
(call ←llgetwd)
(mov a1 (& 1))
(push (@ 103))
(push (& 1))
(push '0)
(push a1)
(mov '3 a4)
(jmp substring)
103
(eval ())
(adjstk '3)
(return)
101
(mov (car a1) a1)
(jcall pathnamep)
(btnil a1 104)
(mov (& 0) a1)
(jcall stringp)
(mov a1 a4)
(bfnil a4 106)
(mov (& 0) a1)
(mov (car a1) a1)
(jcall directory-namestring)
(mov a1 a4)
106
(mov '0 a3)
(mov a4 a2)
(mov a4 a1)
(adjstk '1)
(bra ←llglobb)
104
(mov (& 0) a3)
(mov (car a3) a3)
(mov (cvalq errbpa) a2)
(mov 'current-directory a1)
(adjstk '1)
(jmp error)
))
(loader'((entry ←llgetwd subr2)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←llgetwd))))
(push '1)
(push a1)
(push '3)
(push a2)
(push '1)
(mov '6 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((entry ←llglobb subr3)
(push (@ 101))
(push (eval (kwote (#:system:cached-getglobal '←llglobb))))
(push '1)
(push a1)
(push '3)
(push a2)
(push '3)
(push a3)
(push '1)
(mov '8 a4)
(jmp callextern)
101
(eval ())
(return)
))
(loader'((fentry expand-pathname subr1)
(entry expand-pathname subr1)
(push a1)
(btnil (cvalq #:system:unixp) 101)
(adjstk '1)
(bra #:unix:wild)
101
(jcall system)
(cabne a1 'vaxvms 103)
(mov (& 0) a1)
(adjstk '1)
(bra #:vaxvms:wild)
103
(push (@ 105))
(push (@ 106))
(jcall system)
(push a1)
(push 'wild)
(push nil)
(mov '3 a4)
(jmp getfn)
106
(eval ())
(push a1)
(mov (& 2) a4)
(push (car a4))
(mov '2 a4)
(jmp funcall)
105
(eval ())
(adjstk '1)
(return)
))
(loader'((entry #:unix:wild subr1)
(push a1)
(mov '32 a2)
(mov '1024 a1)
(jcall makestring)
(push a1)
(mov (& 1) a1)
(jcall stringp)
(mov a1 a4)
(bfnil a4 101)
(mov (& 1) a1)
(jcall namestring)
(mov a1 a4)
101
(push nil)
(push nil)
(push nil)
(hgsize (& 3) a3)
(mov (& 3) a2)
(mov a4 a1)
(call ←llglobb)
(mov a1 (& 1))
(push (@ 102))
(push (& 4))
(push '0)
(push a1)
(mov '3 a4)
(jmp substring)
102
(eval ())
(mov a1 (& 3))
(hgsize a1 a1)
(diff '1 a1)
(mov '32 a3)
(mov (& 3) a2)
(jcall chrset)
103
(cabeq (& 1) '0 104)
(push (@ 105))
(push '32)
(push (& 5))
(mov '2 a4)
(jmp chrpos)
105
(eval ())
(mov a1 (& 0))
(push (@ 106))
(push (& 4))
(push '0)
(push a1)
(mov '3 a4)
(jmp substring)
106
(eval ())
(jcall #:unix:pathname)
(mov (& 2) a2)
(jcall cons)
(mov a1 (& 2))
(push (@ 107))
(push (& 4))
(mov (& 2) a4)
(plus '1 a4)
(push a4)
(mov '2 a4)
(jmp substring)
107
(eval ())
(mov a1 (& 3))
(hgsize a1 a4)
(mov a4 (& 1))
(bra 103)
104
(mov (& 2) a1)
(adjstk '5)
(jmp nreverse)
))
(loader'((entry #:vaxvms:current-directory nsubr)
(jcall #:llcp:nlist)
(mov '"" a1)
(return)
))
(loader'((entry #:vaxvms:wild subr1)
(mov nil a1)
(return)
))
(loader'((fentry coerce-namestring subr1)
(entry coerce-namestring subr1)
(push a1)
(jcall pathnamep)
(btnil a1 101)
(btnil (cvalq *portable-pathname*) 104)
(mov (& 0) a1)
(jcall portable-pathname-p)
104
(mov (& 0) a1)
(adjstk '1)
(jmp namestring)
101
(mov (& 0) a1)
(adjstk '1)
(return)
))
(loader '((end)))