(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 6-Jul-94 01:13:02" ("compiled on " {DSK}lispusers>UUENCODE.;1) " 2-Jun-94 10:43:09" bcompl'd in "Medley 2-Jun-94 ..." dated " 2-Jun-94 10:52:50") (FILECREATED " 7-Oct-87 18:15:20" |{POGO:AISNORTH:XEROX}LISP>UUENCODE.;4| 10562 changes to%: (VARS UUENCODECOMS) (FUNCTIONS UU.SIXBITS UU.LSH) (FNS UUDECODE-BEGIN-LINE-INTERNAL UUENCODE-INTERNAL UUDECODE-INTERNAL UUDECODE-BODY UUENCODE UUENCODE-ONE-FILE UUDECODE UUDECODE-BEGIN-LINE UU.TEDIT-INCLUDE-ENCODED UU.DECODE-FROM-TEDIT) previous date%: " 7-Oct-87 17:46:11" |{POGO:AISNORTH:XEROX}LISP>UUENCODE.;3|) UUENCODEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 2 INTO-STREAM P 1 FILE I 0 SI::*CLEANUP-FORMS* F 3 SI::*RESETFORMS* F 4 FILES F 5 INTO-FILE) CTddh!Ug gJhhdScH J YJ HX(59 UUENCODE-ONE-FILE 50 CLOSEF 21 OPENSTREAM) (27 CLOSEF? 16 OUTPUT) () UUENCODE :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 INTO-FILE I 0 FILES F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 UUENCODEA0001) (8 SI::RESETUNWIND) () UUENCODE-ONE-FILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 2 OUTS P 1 ALREADY-OPEN? P 0 INS I 0 SI::*CLEANUP-FORMS* F 3 SI::*RESETFORMS* F 4 OUT-FILE-OR-STREAM F 5 IN-FILE) ~Ug gHhhdScTg ITg Tg IgJhhdScHJUi H IJ J(121 CLOSEF 113 CLOSEF 107 UUENCODE-INTERNAL 102 NAMEFIELD 69 OPENSTREAM 57 GETSTREAM 41 OPENP 10 OPENSTREAM) (80 CLOSEF? 64 OUTPUT 52 OUTPUT 36 OUTPUT 18 CLOSEF? 5 INPUT) () UUENCODE-ONE-FILE :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 OUT-FILE-OR-STREAM I 0 IN-FILE F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 UUENCODE-ONE-FILEA0001) (8 SI::RESETUNWIND) () UUENCODE-INTERNALA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 FILE-MODE F 1 OUTS) P`Q (13 PRIN1) (7 UU.MODE-DEFAULT) () UUENCODE-INTERNAL :D8 (P 10 SI::*RESETFORMS* P 3 STOP P 2 PADDING P 0 EOF I 3 FILE-MODE I 2 DECODE-NAME I 1 OUTS I 0 INS)  @ Hl JjJHlJKkdj$ A oA gl hhh g $oA B@ i A MLOjJO=@ @ _NdkYAOm Ol_ EHG A AH@ ٹl-IIl- l"AOlOm Ol_5Nl*AOlOm AOm? Nl kؾOkl- _Mk]A oA A oA A A(440 TERPRI 433 PRIN1 421 TERPRI 414 PRIN1 402 TERPRI 386 CL:MOD 372 CL:MOD 363 SHOULDNT 357 BOUT 352 UU.BYTE 340 BOUT 335 UU.BYTE 302 BOUT 297 UU.BYTE 272 BOUT 267 UU.BYTE 251 GETFILEPTR 242 TERPRI 234 \FZEROP 221 \FZEROP 205 BOUT 200 UU.BYTE 176 EOFP 150 PRIN1 144 NAMEFIELD 138 FULLNAME 128 PRIN1 112 SI::RESETUNWIND 107 \MVLIST 102 UUENCODE-INTERNALA0001 82 RADIX 69 PRIN1 57 TERPRI 16 CL:MOD 5 GETEOFPTR) (97 SI::RESETUNWIND 75 RADIX) ( 427 "end" 408 " " 122 " " 63 "begin ") UUDECODEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 5 OUT-FILE P 1 INS P 0 ALREADY-OPEN? I 0 SI::*CLEANUP-FORMS* F 6 FILE-OR-STREAM F 7 ONLY-ONE-FILE? F 8 SI::*RESETFORMS*) oVg HVg Vg HgIhhdWcWIW h@IW ]JK Lh[L&(88 UUDECODE-INTERNAL 74 UUDECODE-INTERNAL 38 OPENSTREAM 26 GETSTREAM 10 OPENP) (49 CLOSEF 33 INPUT 21 INPUT 5 INPUT) () UUDECODE :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 ONLY-ONE-FILE? I 0 FILE-OR-STREAM F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 UUDECODEA0001) (8 SI::RESETUNWIND) () UUDECODE-INTERNALA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 2 BYTE P 0 OUTS I 0 SI::*CLEANUP-FORMS* F 3 OUT-FILE F 4 SI::*RESETFORMS* F 5 INS) XSg gHhhdTcUH oIiSo H U JhIY(70 CLOSEF 63 ERROR 37 UUDECODE-BODY 10 OPENSTREAM) (18 CLOSEF? 5 OUTPUT) ( 58 "NO `end' LINE FOUND" 42 (101 110 100)) UUDECODE-INTERNAL :D8 (P 3 RESETSTATE P 2 SI::*RESETFORMS* P 1 LISPXHIST P 0 OUT-FILE I 1 ONLY-ONE-FILE? I 0 INS F 4 LISPXHIST) -@Ah HT!g $(38 SI::RESETUNWIND 33 \MVLIST 28 UUDECODE-INTERNALA0001 8 UUDECODE-BEGIN-LINE) (23 SI::RESETUNWIND) () UUDECODE-BEGIN-LINEA0001A0002 :D8 (I 0 S) gh (10 RETFROM) (4 UUDECODE-BEGIN-LINE) () UUDECODE-BEGIN-LINEA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 INS F 1 SI::*RESETFORMS*) ;gPgPg hhdQcPgg P (56 UUDECODE-BEGIN-LINE-INTERNAL 50 SETFILEINFO 21 GETFILEINFO) (45 UUDECODE-BEGIN-LINEA0001A0002 40 ENDOFSTREAMOP 16 ENDOFSTREAMOP 10 ENDOFSTREAMOP 4 SETFILEINFO) () UUDECODE-BEGIN-LINE :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 NO-ERROR I 0 INS F 3 LISPXHIST) (AS!g $@ (37 UUDECODE-BEGIN-LINE-INTERNAL 26 SI::RESETUNWIND 21 \MVLIST 16 UUDECODE-BEGIN-LINEA0001) (11 SI::RESETUNWIND) () UUDECODE-BEGIN-LINE-INTERNALA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 INS) !P` P o (30 ERROR 20 FULLNAME 10 RATOM) (5 UU.READTABLE) ( 25 "BAD `begin' LINE") UUDECODE-BEGIN-LINE-INTERNAL :D8 (P 3 SI::*RESETFORMS* P 2 BYTE P 0 FILE-NAME I 0 INS) oIi0@ dl dl i@ J@ hIYӿhְgl hhhg $@ l @ o @` @ dl dl @ o H(178 ERROR 168 FULLNAME 146 RSTRING 134 ERROR 124 FULLNAME 106 SI::RESETUNWIND 101 \MVLIST 96 UUDECODE-BEGIN-LINE-INTERNALA0001 76 RADIX 43 \PEEKBIN) (141 UU.READTABLE 91 SI::RESETUNWIND 69 RADIX) ( 173 "BAD `begin' LINE" 129 "BAD `begin' LINE" 7 (98 101 103 105 110 32)) UUDECODE-BODY :D8 (I 1 OUTS I 0 INS) 0@ Xj2H&jd2LlkؼHKLdk5@ @ dl dl @ o hl$@ AMl Nm KkԻLdl)@ _ANl Om KkԻgl!AOl @ KkԻC:LklLJI@ JkZ@ dl dl @ o (279 ERROR 269 FULLNAME 221 SHOULDNT 208 BOUT 202 UU.SIXBITS 195 UU.LSH 172 BOUT 161 UU.LSH 149 UU.SIXBITS 127 BOUT 117 UU.LSH 107 UU.SIXBITS 93 ERROR 83 FULLNAME 60 \FZEROP 52 UU.SIXBITS 9 UU.SIXBITS) NIL ( 274 "LINE TOO LONG - FILE BASHED?" 88 "LINE TOO LONG - FILE BASHED?") UU.TEDIT-INCLUDE-ENCODEDA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 0 TEMP-STREAM I 0 SI::*CLEANUP-FORMS* F 1 SI::*RESETFORMS* F 2 FILE F 3 TEXTSTREAM) @gg gHhhdQcRH Hj SRH (61 TEDIT.RAW.INCLUDE 56 UUENCODE-ONE-FILE 48 SETFILEPTR 41 UUENCODE-ONE-FILE 14 OPENSTREAM) (22 CLOSEF? 9 BOTH 4 {NODIRCORE}) () UU.TEDIT-INCLUDE-ENCODED :D8 (P 3 RESETSTATE P 2 SI::*RESETFORMS* P 1 LISPXHIST P 0 FILE I 0 TEXTSTREAM F 4 LISPXHIST) ;@o HT!g $@o (56 TEDIT.PROMPTPRINT 40 SI::RESETUNWIND 35 \MVLIST 30 UU.TEDIT-INCLUDE-ENCODEDA0001 10 TEDIT.GETINPUT) (25 SI::RESETUNWIND) ( 51 " [aborted]" 5 "File to encode:") UU.DECODE-FROM-TEDIT :D8 (P 1 LAST-FILE P 0 OUT-FILE I 0 TEXTSTREAM) P @j @oi H@ X@Ioo hI@o @H (76 TEDIT.PROMPTPRINT 68 TEDIT.PROMPTPRINT 53 TEDIT.PROMPTPRINT 31 UUDECODE-INTERNAL 22 TEDIT.PROMPTPRINT 9 SETFILEPTR) NIL ( 63 ", " 48 "nothing to decode!" 42 " done." 16 "Decoding ... ") (PRETTYCOMPRINT UUENCODECOMS) (RPAQQ UUENCODECOMS ((* ;; "UNIX compatible uuencode & uudecode.") (COMS (* ;; "encoding") (FNS UUENCODE UUENCODE-ONE-FILE UUENCODE-INTERNAL) (INITVARS (UU.MODE-DEFAULT 420)) (GLOBALVARS UU.MODE-DEFAULT) (FUNCTIONS UU.BYTE) (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (UU.CHARS-PER-LINE 45 ) (UU.LAST-TWO-BITS 3) (UU.LAST-FOUR-BITS 15) (UU.FIRST-TWO-BITS 192)))) (COMS (* ;; "decoding") (FNS UUDECODE UUDECODE-INTERNAL UUDECODE-BEGIN-LINE UUDECODE-BEGIN-LINE-INTERNAL UUDECODE-BODY) (FUNCTIONS UU.SIXBITS UU.LSH) (VARS (UU.READTABLE (COPYREADTABLE (QUOTE ORIG)))) (GLOBALVARS UU.READTABLE) (P ( SETBRK NIL NIL UU.READTABLE) (SETSEPR (CHARCODE (SPACE CR LF)) NIL UU.READTABLE) (ESCAPE NIL UU.READTABLE))) (COMS (* ;; "TEdit interface") (FNS UU.TEDIT-INCLUDE-ENCODED UU.DECODE-FROM-TEDIT) (P (AND (FGETD (QUOTE TEDIT)) (TEDIT.ADD.MENUITEM TEDIT.DEFAULT.MENU (QUOTE (UUEncode (FUNCTION UU.TEDIT-INCLUDE-ENCODED) "Encode & include a file" (SUBITEMS ("UUDecode" (FUNCTION UU.DECODE-FROM-TEDIT) "Decode the text in this window"))))))) (GLOBALVARS TEDIT.DEFAULT.MENU)) (PROP FILETYPE UUENCODE))) (RPAQ? UU.MODE-DEFAULT 420) (DEFMACRO UU.BYTE (BYTE) (BQUOTE (IPLUS (\, BYTE) (CHARCODE SPACE)))) (DEFMACRO UU.SIXBITS (CHAR) (BQUOTE (CL:MOD (IDIFFERENCE (\, CHAR) (CHARCODE SPACE)) 64))) (DEFMACRO UU.LSH (N BITS) (BQUOTE (LDB (BYTE 8 0) (LSH (\, N) (\, BITS))))) (RPAQ UU.READTABLE (COPYREADTABLE (QUOTE ORIG))) (SETBRK NIL NIL UU.READTABLE) (SETSEPR (CHARCODE (SPACE CR LF)) NIL UU.READTABLE) (ESCAPE NIL UU.READTABLE) (AND (FGETD (QUOTE TEDIT)) (TEDIT.ADD.MENUITEM TEDIT.DEFAULT.MENU (QUOTE (UUEncode (FUNCTION UU.TEDIT-INCLUDE-ENCODED) "Encode & include a file" (SUBITEMS ("UUDecode" (FUNCTION UU.DECODE-FROM-TEDIT) "Decode the text in this window")))))) (PUTPROPS UUENCODE FILETYPE :COMPILE-FILE) (PUTPROPS UUENCODE COPYRIGHT ("Douglass Read Cutting" 1987)) NIL