(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "11-Sep-2022 20:07:43" ("compiled on " {DSK}larry>medley>sources>IOCHAR.;2) " 9-Sep-2022 14:56:43" "COMPILE-FILEd" in "Welcome to Fuller sysout 9-Sep-2022 ..." dated " 9-Sep-2022 15:00:40") (FILECREATED "11-Sep-2022 20:07:43" {DSK}larry>medley>sources>IOCHAR.;2 100127 :CHANGES-TO (VARS IOCHARCOMS) :PREVIOUS-DATE "24-Jul-2022 14:56:20" {DSK}larry>medley>sources>IOCHAR.;1) (RPAQQ IOCHARCOMS ((COMS (FNS CHCON UNPACK DCHCON DUNPACK) (FNS UALPHORDER ALPHORDER CONCAT CONCATCODES PACKC PACK PACK* \PACK.ITEM STRPOS) (FUNCTIONS XCL:PACK XCL:PACK*) (GLOBALVARS \SIGNFLAG \PRINTRADIX) (EXPORT (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 FILEPOS FFILEPOS \SETUP.FFILEPOS \SLOWFILEPOS) (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 Functions") (FNS DATE DATEFORMAT GDATE IDATE \IDATESCANTOKEN \IDATE-PARSE-MONTH \OUTDATE \OUTDATE-STRING \RPLRIGHT \UNPACKDATE \PACKDATE \DTSCAN \ISDST? \CHECKDSTCHANGE) (OPTIMIZERS DATEFORMAT) (* ;; "Default values for \BeginDST and \EndDST are set for (most places in) the U.S., 74 and 312 as of 2021." ) (* ;; " Note: this might not be relevant to users with local time servers that do the right thing.") (INITVARS (\TimeZoneComp 8) (\BeginDST 74) (\EndDST 312) (\DayLightSavings T)) (ADDVARS (TIME.ZONES ( 8 "PST" "PDT") (7 "MST" "MDT") (6 "CST" "CDT") (5 "EST" "EDT") (0 "GMT" "BST") (0 "UT") (-1 "MET" "MET DST") (-2 "EET" "EET DST"))) (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 :D8 (L (1 CODE 0 DUMMY) F 0 \CHCONLSTAIL F 1 \CHCONLST) P AhccdA&cNIL NIL () CHCON :D8 (L (2 RDTBL 1 FLG 0 X) P 4 \CHCONLSTAIL P 3 \CHCONLST) `Ag@AB K@dd3@ @k@ jh@H @dj @dj lD@dj @l IJmI2 ON/MHOHO_OOh__Ok_O&_O(127 \GETBASEFIXP 115 %%ARRAY-OFFSET 94 %%ARRAY-TYPE-NUMBER 77 %%ARRAY-BASE 62 STRINGP 17 \MAPPNAME) (9 CHCONA0001) () UNPACKA0002 :D8 (L (1 CODE 0 DUMMY) F 0 \CHCONLSTAIL F 1 \CHCONLST) AAdl !l9`Al ُl0AAl0ن`AbP dhccdA&c(10 CHARACTER) (41 \OneCharAtomBase 21 \OneCharAtomBase) () UNPACK :D8 (L (2 RDTBL 1 FLG 0 X) P 4 \CHCONLSTAIL P 3 \CHCONLST) pAg@AB K@dd3@ @k@ jh@H @dj @dj @dj lD@l IJmI2 OO[MHOHO^dl !l9`Nl ُl0NNl0ن`N_OOh__Ok_O&_O(169 CHARACTER 127 \GETBASEFIXP 111 %%ARRAY-TYPE-NUMBER 94 %%ARRAY-OFFSET 77 %%ARRAY-BASE 62 STRINGP 17 \MAPPNAME) (200 \OneCharAtomBase 180 \OneCharAtomBase 9 UNPACKA0002) () DCHCONA0001 :D8 (L (1 CODE 0 DUMMY) F 0 !SCRATCHTAIL) P PdhhcANIL NIL () DCHCON :D8 (L (3 RDTBL 2 FLG 1 SCRATCHLIST 0 X) P 1 !SCRATCHTAIL P 0 !SCRATCHLIST) AhhAHY@B@dd3@"@k@ jh_@J w@dj @dj @dj lD_@l _NOmNKJ2I IdhhYOMKMKKk[g@BC IHhHHIIhH LL(221 FLAST 196 \MAPPNAME 131 \GETBASEFIXP 113 %%ARRAY-TYPE-NUMBER 96 %%ARRAY-OFFSET 79 %%ARRAY-BASE 64 STRINGP) (188 DCHCONA0001) () DUNPACKA0002 :D8 (L (1 CODE 0 DUMMY) F 0 !SCRATCHTAIL) >P PdhhcAdl !l9`Al ُl0AAl0ن`A(25 CHARACTER) (56 \OneCharAtomBase 36 \OneCharAtomBase) () DUNPACK :D8 (L (3 RDTBL 2 FLG 1 SCRATCHLIST 0 X) P 1 !SCRATCHTAIL P 0 !SCRATCHLIST)  AhhQHY@ B@dd3@$@k_@ jh_@N @dj @dj _@dj lD_@l _OOmOLK^I IdhhYONLNLZdl !l9`Jl ُl0JJl0ن`JLk\g@BC IHhHHIIhH MM(273 FLAST 248 \MAPPNAME 194 CHARACTER 137 \GETBASEFIXP 119 %%ARRAY-TYPE-NUMBER 100 %%ARRAY-OFFSET 83 %%ARRAY-BASE 66 STRINGP) (240 DUNPACKA0002 225 \OneCharAtomBase 205 \OneCharAtomBase) () UALPHORDER :D8 (L (1 B 0 ARG1)) @A` (11 ALPHORDER) (6 UPPERCASEARRAY) () ALPHORDER :D8 (L (2 CASEARRAY 1 B 0 A))  @dd3@ @k@@ jhJd k@dj @dj @l @dj lDAdd3@LAk_AA jht3A3h+@AhA3Ad3@A hi }Adj Adj _Al Adj lD_B`bXjBkBB JOJNgA3hNOnHOOLIOKIOKO"dOO OO"OO"_HOOOMOOMOOO*dO&O(O$O*O$O*_OOgOk_Z(260 %%ARRAY-TYPE-NUMBER 246 \GETBASEFIXP 232 %%ARRAY-OFFSET 215 %%ARRAY-BASE 200 STRINGP 190 STRINGP 105 %%ARRAY-TYPE-NUMBER 91 \GETBASEFIXP 79 %%ARRAY-OFFSET 62 %%ARRAY-BASE 46 STRINGP) (464 LESSP 324 EQUAL 283 ARRAYP 278 \TRANSPARENT) () CONCAT :D8 (L (0 N)) eHjk3IjjIa]d NLMdj< 8d3@N4M jh'IM ] NMdj lDJM غIkYJhdN IHIkعLKIa KIa ػL(155 NCHARS 146 RPLSTRING 127 ALLOCSTRING 110 NCHARS 95 %%ARRAY-TYPE-NUMBER 78 \SETARG0 72 MKSTRING 43 %%ARRAY-TYPE-NUMBER 23 STRINGP) NIL () CONCATCODES :D8 (L (0 CHARCODES)) .@ @kIHHJK IJkԺ(34 RPLCHARCODE 10 ALLOCSTRING 5 LENGTH) NIL () PACKC :D8 (L (0 X)) `lhdi !@jHdj h#KMjLN H_Llhl NMLO3OlMLOǰ&jLkٺIJMJMJJmԺMLOi^LkԼK[(88 \LISPERROR 62 \MKATOM 34 %%ARRAY-BASE 16 ALLOCSTRING) (69 \\PNAMESTRING.GLOBALRESOURCE 41 \\PNAMESTRING.GLOBALRESOURCE 4 \\PNAMESTRING.GLOBALRESOURCE) () PACK :D8 (L (0 X) P 1 PACK.INDEX P 0 \PNAMESTRING) @@@ `"lhdi !k@.HjH hHjIki HZ Jdd3@$HIdJ Ylkhl J @b(135 \PACK.ITEM 129 RPLSTRING 122 \LISPERROR 106 NCHARS 87 STRINGP 72 \MKATOM 49 %%ARRAY-BASE 28 ALLOCSTRING 10 \ILLEGAL.ARG) (78 \\PNAMESTRING.GLOBALRESOURCE 56 \\PNAMESTRING.GLOBALRESOURCE 16 \\PNAMESTRING.GLOBALRESOURCE) () PACK* :D8 (L (0 U) P 6 PACK.INDEX P 1 \PNAMESTRING F 9 *PACKAGE*) 0 e`*lhdi AkdOdH0IjI hIjNki Ia_WOdd3@OOO jhMkLK &INdO ^lkhl O sl INdO J^lkhl OkJ O@OOJIdnlldܹl_:OL#Oo _LlONdOL _@ԀjlO4jtO2llOBjlOP5Odl l Om_lpjl _la_Pl OO6k_*ljO8j#3lOO8O8`_8 k_,dl _.O2OHIdkK O<_0O.O0k_0O( O.O0l Mkl_0Mk O.O0k_0l, MO.O>_0Mk O.O0k_0O( ODO.O0O<_0KO< O.O0KOFh O0O<_0O.O0k_0O( O.O0O:_0Il O4O0k_0OL6O,O@k_ O.O l( O.O OLON O.O,l) j_0O4O.O0O*_0OOPkl O.O0kl: O.O0l_0Ol OB#O.O0kl: O.O0l_0Ol OP!O.O0kOP O.O0l_0lm O8BO.kmB 3OO8k_8O.O0lO8jjO8_8l+l- O8d3 (O.O0lO8l O.O0lo _&_$O&_"O.O0lO$l O.O0lO"l< l SO.O0lO8 AO.(1248 RPLSTRING 1230 \RPLRIGHT 1223 ROUND 1205 \RPLRIGHT 1176 \MVLIST 1171 CL:TRUNCATE 1163 RPLSTRING 1145 \RPLRIGHT 1120 RPLCHARCODE 1074 SUBSTRING 1053 RPLCHARCODE 1036 RPLCHARCODE 1018 \RPLRIGHT 999 RPLCHARCODE 981 \RPLRIGHT 962 RPLCHARCODE 948 \RPLRIGHT 914 RPLCHARCODE 902 \OUTDATE-STRING 888 RPLCHARCODE 852 \RPLRIGHT 834 RPLCHARCODE 810 \OUTDATE-STRING 794 \RPLRIGHT 772 RPLCHARCODE 756 \RPLRIGHT 741 RPLCHARCODE 725 \RPLRIGHT 701 RPLCHARCODE 680 RPLSTRING 660 ALLOCSTRING 646 NCHARS 520 NCHARS 503 CL:NTH 440 NCHARS 430 CL:NTH 293 CL:ASSOC 95 \LISPERROR) (639 \TimeZoneComp 358 CIVILIAN.TIME 345 DAY.SHORT 329 DAY.OF.WEEK 315 NO.SECONDS 302 \TimeZoneComp 288 = 283 :TEST 278 TIME.ZONES 270 TIME.ZONES 261 \TimeZoneComp 253 TIME.ZONE 239 NO.LEADING.SPACES 221 SPACES 205 SLASHES 188 MONTH.LEADING 173 MONTH.LONG 156 YEAR.LONG 141 NUMBER.OF.MONTH 124 NO.TIME 109 NO.DATE 83 DATEFORMAT) ( 1158 "00" 498 ("Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday" "Sunday") 425 ("January" "February" "March" "April" "May" "June" "July" "August" "September" "October" "November" "December")) \OUTDATE-STRING :D8 (L (3 SHORTP 2 STRING 1 N 0 S)) 2C%lkIHh@AIBI IkY@AkB (47 RPLSTRING 30 RPLCHARCODE 25 NTHCHARCODE) NIL () \RPLRIGHT :D8 (L (3 MINDIGITS 2 N 1 AT 0 S)) 1@Al0Bl Ckl BAkBl Ckbbbh(13 RPLCHARCODE) NIL () \UNPACKDATE :D8 (L (0 D)) Q@b`@ol@ll< Il<_`_ 3 O __ O_Il