(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 6-Jul-94 01:16:29" ("compiled on " {DSK}lispusers>TRICKLE.;1) " 2-Jun-94 10:43:09" bcompl'd in "Medley 2-Jun-94 ..." dated " 2-Jun-94 10:52:50") (FILECREATED "15-Jun-90 15:57:17" {ERINYES}MEDLEY>LISPUSERS>TRICKLE.;3 7876 changes to%: (VARS TRICKLECOMS) previous date%: " 4-Jun-90 17:10:08" {ERINYES}MEDLEY>LISPUSERS>TRICKLE.;2) TrickleA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 DontCopyExtensions F 1 Source F 2 Destination F 3 LogfileName F 4 DontReplaceOldVersions) Hgnè QRggShhT§gh€hP´ gPh (69 COPYFILES 64 \APPEND2 59 \APPEND2 12 SETTOPVAL) (50 DONTCOPY 38 REPLACE 24 OUTPUT 19 >A 4 FILELINELENGTH) () Trickle :D8 (P 2 SI::*RESETFORMS* P 1 LogfileName P 0 DateString I 6 DontCopyExtensions I 5 DontReplaceOldVersions I 4 ScheduleAnotherOne I 3 MailAddress I 2 RootLogfileName I 1 Destination I 0 Source) Šo BµgHll Hll Hkl g Imö gð²Imöo ¹gd hg ¿$IC@A Ddið²y¿oo@ hgg@hgAhBCDEhoÔ kl kl ojl; ´uoD ´coo@ hgg@hgAhBCDEhoÔ kl D (391 SETREMINDER 386 CONCAT 380 SUBSTRING 372 GDATE 361 IDATE 320 MKATOM 315 CONCAT 304 GENSYM 292 IDATE 287 CONCAT 273 SETREMINDER 268 CONCAT 263 RAND 250 RAND 242 SUBSTRING 234 GDATE 223 IDATE 182 MKATOM 177 CONCAT 166 GENSYM 149 TrickleProcessLogfile 135 SI::RESETUNWIND 130 \MVLIST 125 TrickleA0001 109 GETTOPVAL 97 MKATOM 92 RPLSTRING 71 NTHCHAR 60 PACK* 49 SUBSTRING 40 SUBSTRING 30 SUBSTRING 9 DATE) (340 QUOTE 331 QUOTE 326 Trickle 202 QUOTE 193 QUOTE 188 Trickle 120 SI::RESETUNWIND 103 FILELINELENGTH 76 % 54 .COPYLOG 20 {qv}lispusers-) ( 366 86400 309 "-" 299 "Trickle-" 281 "1-jan-87 " 255 ":" 228 86400 171 "-" 161 "Trickle-" 87 "0" 4 (DATEFORMAT SPACES NUMBER.OF.MONTH NO.TIME)) TrickleProcessLogfileA0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 LogfileStream F 3 LogfileName F 4 SI::NLSETQ-VALUE) i@RSid hcg(13 TEDIT.PUT) (22 :NORMAL) () TrickleProcessLogfile :D8 (P 17 *CONDITION-HANDLER-BINDINGS* P 16 SI::*NLSETQFLAG* P 15 *PROCEED-CASES* P 14 SI::NLSETQ-VALUE P 13 Deletion P 12 EndOfLine P 11 StartOfLine P 10 EndOfPreviousLine P 4 Deletions P 3 EndOfLine P 2 EndsOfLines P 1 LogfileStream P 0 EOLCharacter I 3 Destination I 2 Source I 1 MailAddress I 0 LogfileName F 18 *PROCEED-CASES* F 19 *CONDITION-HANDLER-BINDINGS*) ¡l a@ Yd ]jð³JMµ>Ikdg j0 IH [²gIKkg ¿K_¿OµIOh__¿°× ²¿A²¼IoBoCHoAHd k ¿I ¿I hO&_¿°“OZd1 O_d’kØ_¿O_¿O²UO²2oIdOOOÙkØ ŸLµOOOÕL\¿O°³LÔOô²åLLOOÕÔ°âL°d IOO µì`W$ioW&O A²HId ^jð³N–N ¥o„oBoCHoAHd k ¿I ¿I h(413 CLOSEF 406 LAFITE.SENDMESSAGE 399 TEDIT.INSERT 393 PACK* 359 \FZEROP 344 GETEOFPTR 332 TrickleProcessLogfileA0002 297 TEDIT.DELETE 228 STRPOS 223 TEDIT.SEL.AS.STRING 218 TEDIT.SETSEL 150 CLOSEF 143 LAFITE.SENDMESSAGE 136 TEDIT.INSERT 130 PACK* 97 \FZEROP 72 TEDIT.SETSEL 56 TEDIT.FIND 45 TEDIT.SETSEL 22 GETEOFPTR 15 OPENTEXTSTREAM 6 CHARACTER) (310 SI::NLSETQ-PROCEED-CASE 67 RIGHT 40 LEFT) ( 384 "To: " 377 " to " 371 "Subject: (Empty) Trickle:" 365 "Subject: Trickle: " 319 (CL:ERROR . SI::NLSETQHANDLER) 202 "skipped" 121 "To: " 114 " to " 108 "Subject: (Error?) Trickle:") (PRETTYCOMPRINT TRICKLECOMS) (RPAQQ TRICKLECOMS ((FILES (SYSLOAD) PROMPTREMINDERS COPYFILES) (FNS Trickle TrickleProcessLogfile))) (FILESLOAD (SYSLOAD) PROMPTREMINDERS COPYFILES) (PUTPROPS TRICKLE COPYRIGHT ("Xerox Corporation" 1985 1986 1987 1988 1990)) NIL