(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (filecreated "16-Oct-86 17:21:52" ("compiled on " {eris}sources>iochar.\;23) "14-Oct-86 21:06:05" "COMPILE-FILEd" |in| "Xerox Lisp 14-Oct-86 ..." |dated| "14-Oct-86 22:24:47") (filecreated "16-Oct-86 17:19:48" {eris}sources>iochar.\;23 100722 |changes| |to:| (fns date dateformat gdate \\outdate) |previous| |date:| "12-Oct-86 15:34:10" {eris}sources>iochar.\;21) (rpaqq iocharcoms ((coms (fns chcon unpack dchcon dunpack) (fns ualphorder alphorder packc concat pack pack* \\pack.item strpos) (functions xcl:pack xcl:pack*) (globalvars \\signflag \\printradix) ( declare\: dontcopy (macros \\catranslate))) (coms (fns strposl makebittable) (declare\: dontcopy ( resources \\strposlarray)) (initresources \\strposlarray)) (coms (fns casearray uppercasearray) (p ( movd? (quote seta) (quote setcasearray)) (movd? (quote elt) (quote getcasearray))) (declare\: donteval@load docopy (vars (\\transparent (casearray)) (uppercasearray (uppercasearray)))) (declare\: eval@compile (prop globalvar uppercasearray) dontcopy (globalvars \\transparent))) (coms (fns skread skbracket skreadc) (blocks (skread skread skbracket skreadc))) (coms (fns filepos ffilepos \\setup.ffilepos) (declare\: eval@compile dontcopy (resources \\ffdelta1 \\ffdelta2 \\ffpatchar) ( constants (\\max.pattern.size 128) (\\min.pattern.size 3) (filepos.segment.size 32768) ( \\min.search.length 100))) (initresources \\ffdelta1 \\ffdelta2 \\ffpatchar)) (coms (* date) (fns date dateformat gdate idate \\idatescantoken \\outdate \\rplright \\unpackdate \\packdate \\dtscan \\isdst? \\checkdstchange) (optimizers dateformat) (initvars (|\\TimeZoneComp| 8) (|\\BeginDST| 120) ( |\\EndDST| 304) (|\\DayLightSavings| t)) (addvars (time.zones (8 . p) (7 . m) (6 . c) (5 . e) (0 . gmt ))) (declare\: eval@compile dontcopy (globalvars |\\TimeZoneComp| |\\BeginDST| |\\EndDST| |\\DayLightSavings| time.zones) (constants (|\\4YearsDays| (add1 (itimes 365 4)))))) (localvars . t) ( prop filetype iochar) (declare\: donteval@load doeval@compile dontcopy compilervars (addvars (nlama dateformat) (nlaml) (lama pack* concat))))) chcona0001 d1 (l (1 code 0 dummy) f 0 \\chconlstail f 1 \\chconlst) P AhccdA&cnil nil () chcon d1 (l (2 rdtbl 1 flg 0 x) p 4 \\chconlstail p 3 \\chconlst) `A@dl @k@ jh@lX@@Cjhi@@IJkI2 ON/MHOHO_OOh__Ok_O&_Og@AB K(145 \\mappname) (139 chcona0001) () unpacka0002 d1 (l (1 code 0 dummy) f 0 \\chconlstail f 1 \\chconlst) @Adl "l9`Al ٰl0AhiAl0ل`AbP dhccdA&c(8 character) (40 |\\OneCharAtomBase| 17 |\\OneCharAtomBase|) () unpack d1 (l (2 rdtbl 1 flg 0 x) p 4 \\chconlstail p 3 \\chconlst) pA@dl @k@ jh@l@@@Cjhi@IJkI2 OOZMHOHO^dl "l9`Nl ٰl0NhiNl0ل`N_OOh__Ok_O&_Og@AB K(191 \\mappname 113 character) (185 unpacka0002 145 |\\OneCharAtomBase| 122 |\\OneCharAtomBase|) () dchcona0001 d1 (l (1 code 0 dummy) f 0 !scratchtail) P PdhhcAnil nil () dchcon d1 (l (3 rdtbl 2 flg 1 scratchlist 0 x) p 1 !scratchtail p 0 !scratchlist) AhhAHY@Bl@dl!@k@ jh_@l@@@@_NOkNKJ.I IdhhYOMKMKKk[g@BC IHhHHIIhH LL(155 flast 132 \\mappname) (126 dchcona0001) () dunpacka0002 d1 (l (1 code 0 dummy) f 0 !scratchtail) =P PdhhcAdl "l9`Al ٰl0AhiAl0ل`A(23 character) (55 |\\OneCharAtomBase| 32 |\\OneCharAtomBase|) () dunpack d1 (l (3 rdtbl 2 flg 1 scratchlist 0 x) p 1 !scratchtail p 0 !scratchlist) AhhQHY@ B@dl$@k_@ jh_@!l|@@_@Cjhi_@_OOkOLKYI IdhhYONLNLZdl "l9`Jl ٰl0JhiJl0ل`JLk\g@BC IHhHHIIhH MM(220 flast 197 \\mappname 146 character) (191 dunpacka0002 178 |\\OneCharAtomBase| 155 |\\OneCharAtomBase|) () ualphorder d1 (l (1 b 0 arg1)) @A` (7 alphorder) (4 uppercasearray) () alphorder d1 (l (2 casearray 1 b 0 a)) o @dlk@@ jh?@@@@CjhiAdlJk_AA jhH@3A3hi@AdiA3AlAhHAA_AACjhi_B`bXjBCkB JOhA3hiJNxgNOhiHOOLIOKIOKO"OhiOO"O"_HOOOMOOMOOO*O&hiO$O*O*_OOgOk_jnil (354 lessp 236 equal 207 arrayp 198 arrayp 190 arrayp 185 arrayp 182 \\transparent) () packc d1 (l (0 x)) P`'lhdi @jHIKjJi HhJlhl KJLJkԺIY(61 \\lisperror 34 \\mkatom 12 allocstring) (45 \\\\pnamestring.globalresource 39 \\\\pnamestring.globalresource 2 \\\\pnamestring.globalresource) () concat d1 (l (0 n)) eHjk3IjPIa]dN8MCj.h,lN%M jhIM ] NMCjhiJM غIkYJhdN IHIkعLKIa KIa ػL(123 nchars 116 rplstring 99 allocstring 84 nchars 65 \\setarg0 61 mkstring) nil () pack d1 (l (0 x) p 1 n p 0 \\pnamestring) n@@@ `&lhdi !k@HjIki HhZJdlHIdJ Ynhl J @b(100 \\pack.item 96 rplstring 91 \\lisperror 78 nchars 44 \\mkatom 22 allocstring 8 \\illegal.arg) (54 \\\\pnamestring.globalresource 48 \\\\pnamestring.globalresource 34 stringp 12 \\\\pnamestring.globalresource) () pack* d1 (l (0 u) p 2 n p 1 \\pnamestring) oe`.lhdi kdKdHIjJki Iha\LdlIJdL Znhl L Kk[(102 \\pack.item 98 rplstring 93 \\lisperror 80 nchars 45 \\mkatom 16 allocstring) (56 \\\\pnamestring.globalresource 50 \\\\pnamestring.globalresource 35 stringp 6 \\\\pnamestring.globalresource) () \\pack.itema0001 d1 (l (1 code 0 dummy) f 0 n f 1 \\pnamestring) Plhl QPkAPkc(10 \\lisperror) nil () \\pack.item d1 (l (0 item)) g@ (6 \\mappname) (2 \\pack.itema0001) () strpos d1 (l (7 backwardsflg 6 casearray 5 tail 4 anchor 3 skip 2 start 1 string 0 pat)) {& @dlk@@ jh(@ b@@@@Cjhi_AdlkAA jh(A bAAAACjhi_KHk^jhi.BGNkbHjhjBBKkbkBhBNhiBCC bF `b "FCjFCkhiF Mm]JmZFFFCkFMBGkmMDBGkNJlJHOjoF OOOOIJkIJkO,O(hiO&O,O,_GOm_O Ok_O *OC1OOOOOLOLOO4O0hiO.O4O4O$O"OkO8O6sCOOOOIO8IO8!OBO>hiO`!`@@hH bAdl%AkA jh/hA bAAAACjhi_BDMkbLmԼC!jjBBMkbkBhpBMhhkbLBؾLDNkԾkNmԾM_DNm^ONk^Oh6C@OKNKNºJlIɀJIɀ jIJNLH(251 gethash 78 mkstring 25 makebittable) (269 \\\\strposlarray.globalresource 246 chartable 238 chartable 96 stringp 89 stringp 68 \\\\strposlarray.globalresource 18 chartable 7 |CHARTABLETYPE#| 2 \\\\strposlarray.globalresource) () makebittable d1 (l (2 a 1 neg 0 l)) BBjl BɀBɀ `b@.d!BHdlH JlhiIJkDžIJk AMljIHBBIdlBɀIBɀ jBIkKlhiJKLDžJKL IkYB(159 \\setfatsyncode 127 gethash 83 \\setfatsyncode 61 chcon1 30 clrhash 12 \\zerobytes) (122 chartable 114 chartable 34 |CHARTABLETYPE#| 25 chartable 17 chartable 3 chartable) () (/settopval (quote \\\\strposlarray.globalresource)) casearray d1 (l (0 oldar)) .@ngjd !ljJIH HJd JkZ(37 seta 30 copyarray 13 array) (8 byte) () uppercasearray d1 nil -`&!lzlaJIHJdl JkZH(31 setcasearray 9 casearray) (42 uppercasearray 2 uppercasearray) () (movd? (quote seta) (quote setcasearray)) (movd? (quote elt) (quote getcasearray)) (rpaq \\transparent (casearray)) (rpaq uppercasearray (uppercasearray)) (putprops uppercasearray globalvar t) skread d1 (l (2 rdtbl 0 file) p 1 rrptr i 1 rereadstring f 4 \\linebuf.ofd) F@g Ak"HTo@ B` bIHB ZdltHB lugJdlrLk[IHB dltHB dludlrKk԰dlsKk[jhlqIHB lqlsgJdl`lprJdlqIHB lqhj4IHB jIMH HHd22n2l1H +(JHHBAlJbIIHB jhHd !Hd22n2lHd HB h(322 read 315 \\backfileptr 285 \\backfileptr 274 skreadc 236 \\backfileptr 207 \\backfileptr 196 skreadc 179 skreadc 139 skreadc 93 skbracket 82 skreadc 56 skbracket 44 skreadc 35 \\gtreadtable 25 error 6 \\getstream) (247 stream 153 \) 64 ] 32 filerdtbl 3 input) ( 21 "SKREAD NOT LEGAL FROM TTY") skbracket d1 (l (1 rdtbl 0 strm) f 1 rrptr) 9kQ@A dltHkԸdluHkXjhlqQ@A lq(48 skreadc 9 skreadc) nil () skreadc d1 (l (2 rdtbl 1 strm 0 userrptrflg) f 14 rrptr f 15 rereadstring) | @WWdkc YhcA ^lAd ^lNBIlJɀIJɀ jJIXdlFBjWWdkc thcA [l#Ad [lKAd jl \2A LA2\nKA KdLKAdl Mdj𒿰lAi l A l Mkjlj IB YllIg HAd jl _2A OA2_nNA NdONA__dl +Odjl 0lAi l A l l l l Okl l OYB_IlOɀIOɀ jOIXddlFBjA _l)Ad _lOAd jl _2A _OA2_nOA OdOOA_dl Odj𒿰lAi l A l OkjljIB Yl Ig H(631 getprop 616 gethash 581 \\peekbin 505 \\nsin.24bitencoding.error 439 gethash 368 \\peekbin 293 \\nsin.24bitencoding.error 277 getprop 258 gethash 224 \\peekbin 160 \\nsin.24bitencoding.error 123 nthcharcode 80 gethash 18 nthcharcode) (628 skread 611 readtablep 462 readtablep 434 chartable 425 chartable 409 readtablep 274 skread 253 readtablep 101 readtablep 75 chartable 67 chartable 54 readtablep) () filepos d1 (l (6 casearray 5 tail 4 skip 3 end 2 start 1 file 0 str)) CDd F0`Ag @@dl,k@6dFdCjF @ b@@@_B#J0_"JkO"__C=J j3 jBhihiBl J0_ JkO _JB BjChiCJ O_$dO$O$OjCJ J CkOk_OhiO_OjIMN\HOk_J NkԾOk_ON_Odj__;_On_O_On_OOOn_OO(OOj_Ok_OO_jJO hLIJ Ok_N_Ok_O:IMO[IJ KHJd0_&JkO&ON Ok_EhiJd0_(JkO(O J0_*JkO*(556 \\setfileptr 514 \\setfileptr 435 \\setfileptr 245 \\geteofptr 240 \\geteofptr 212 \\geteofptr 194 \\setfileptr 166 \\lisperror 143 \\geteofptr 86 mkstring 77 casearray 23 \\getstream 5 chcon1) (566 fdev 561 stream 540 fdev 535 stream 496 fdev 491 stream 176 fdev 171 stream 121 fdev 116 stream 104 stringp 97 stringp 64 arrayp 20 input 14 arrayp 11 \\transparent) () ffilepos d1 (l (6 casearray 5 tail 4 skip 3 end 2 start 1 file 0 pattern)) A DH0jhi@dlk@@ b@@@[lJlKBH0_HkOBLKkؽH _C/3 jBhihiBl BjCOCk؀CKdOO^MhihldNMHM `ng `|lg `hlg FD`OO O"KkEIJKO*O&O(O$ Nd@H _l:8HkԸ]3 "@H _dl:'HkԸ^3 @H _LldܽLldۼO~OlAOlPOlaOdlpB@Hk dlMdlmOOlPOlpl L=Ll \7Ldl m\+l %hl Ol-_`_'h_LljMl;dN\KIkJLMNjO _OOOk O,Ol i!Ol dgOkٰgOOl;h(664 nthchar 653 nthchar 640 nthchar 620 \\packdate 573 \\idatescantoken 499 nthcharcode 447 nthcharcode 433 \\idatescantoken 417 nthcharcode 403 \\idatescantoken 389 nthcharcode 375 \\idatescantoken 91 \\idatescantoken 62 nthcharcode 49 \\idatescantoken 25 nthcharcode 12 \\idatescantoken 4 daytime) (681 s 668 d 579 time.zones 286 dec 277 nov 266 oct 256 sep 245 aug 235 jul 224 jun 214 may 203 apr 193 mar 182 feb 173 jan) () \\idatescantoken d1 (f 9 pos f 10 str)  `WW Ydl WkcIl0JhiIJl9hi?Il0XWWkc Yhi&Il0KhiKl9hihiHl Il0ظHIl_lALhiLlZhilaIhiIlzhiIl_I0WWkc YhiNIl_lAMhiMlZhihi2laIhiIlzhiIl_I_O Oh_O&_N (261 packc 172 nthcharcode 64 nthcharcode 9 nthcharcode) nil () \\outdate d1 (l (2 string 1 format 0 ud)) @l-@AhiAdgl d_(dgi_gi_yO(dgi_ jgi_"_O(dgl/Qgl GO(dgi_8g``_&O(dgi_gi_$O(gi_&gOj@Zni_"lO"lJldܺl_l @\Okl@kؽO Ol Mkl_lO$1oHk _$O&O$kl _$lO$ _&l؀jlOj(OllOjlOj _dklk[dl ^OhiNOl Lkl_Lk NOk_I O NOO_MO NOkoM  Ol_NOk_I NOO_Jl OOk_O$&NKO&kl( NKO&O$ NKl) j_OhiNOlHl NOll: NOl_Hl OhiNOkl: NOl_Hl O-NOlO OkNOlHoo BNkmB N(699 substring 688 rplstring 657 rplstring 641 \\rplright 623 rplcharcode 604 \\rplright 587 rplcharcode 575 \\rplright 547 rplcharcode 539 rplstring 528 rplcharcode 501 \\rplright 486 rplcharcode 466 rplstring 462 nth 447 \\rplright 429 rplcharcode 417 \\rplright 386 allocstring 364 nchars 321 nchars 310 substring 295 nth 37 \\lisperror) (183 day.short 171 day.of.week 159 no.seconds 146 time.zones 143 |\\TimeZoneComp| 138 time.zone 126 no.leading.spaces 113 spaces 102 slashes 88 year.long 76 number.of.month 62 no.time 49 no.date 27 dateformat) ( 685 "ST" 680 "DT" 458 ("Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec") 284 ("Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday" "Sunday")) \\rplright d1 (l (3 mindigits 2 n 1 at 0 s)) 2@ABl l0 Ckl BhiAkBl Ckbbb(11 rplcharcode) nil () \\unpackdate d1 (l (0 d)) @b`@ool @ll< Il<_Il