/ Gold Fish 3 / goldfish_volume_3.bin / files / util / edit / jade / lisp / add-log.jlc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 3b 3b 20 53 6f 75 72 | 63 65 20 66 69 6c 65 3a |;;; Sour|ce file:|
|00000010| 20 2f 75 73 72 2f 6c 6f | 63 61 6c 2f 6c 69 62 2f | /usr/lo|cal/lib/|
|00000020| 6a 61 64 65 2f 33 2e 32 | 2f 6c 69 73 70 2f 61 64 |jade/3.2|/lisp/ad|
|00000030| 64 2d 6c 6f 67 2e 6a 6c | 0a 3b 3b 3b 20 43 6f 6d |d-log.jl|.;;; Com|
|00000040| 70 69 6c 65 64 20 62 79 | 20 6a 73 68 40 6f 72 63 |piled by| jsh@orc|
|00000050| 72 69 73 74 20 6f 6e 20 | 53 75 6e 20 4f 63 74 20 |rist on |Sun Oct |
|00000060| 31 36 20 32 30 3a 32 31 | 3a 33 33 20 31 39 39 34 |16 20:21|:33 1994|
|00000070| 0a 3b 3b 3b 20 4a 61 64 | 65 20 33 2e 32 0a 0a 28 |.;;; Jad|e 3.2..(|
|00000080| 64 65 66 76 61 72 20 63 | 68 61 6e 67 65 2d 6c 6f |defvar c|hange-lo|
|00000090| 67 2d 61 64 64 72 65 73 | 73 20 28 63 6f 6e 63 61 |g-addres|s (conca|
|000000a0| 74 20 28 75 73 65 72 2d | 6c 6f 67 69 6e 2d 6e 61 |t (user-|login-na|
|000000b0| 6d 65 29 20 36 34 20 28 | 73 79 73 74 65 6d 2d 6e |me) 64 (|system-n|
|000000c0| 61 6d 65 29 29 20 31 30 | 32 38 31 36 29 0a 0a 28 |ame)) 10|2816)..(|
|000000d0| 64 65 66 76 61 72 20 63 | 68 61 6e 67 65 2d 6c 6f |defvar c|hange-lo|
|000000e0| 67 2d 6e 61 6d 65 20 28 | 75 73 65 72 2d 66 75 6c |g-name (|user-ful|
|000000f0| 6c 2d 6e 61 6d 65 29 20 | 31 30 32 38 35 33 29 0a |l-name) |102853).|
|00000100| 0a 28 64 65 66 76 61 72 | 20 63 68 61 6e 67 65 2d |.(defvar| change-|
|00000110| 6c 6f 67 2d 66 69 6c 65 | 20 22 43 68 61 6e 67 65 |log-file| "Change|
|00000120| 4c 6f 67 22 20 31 30 32 | 38 38 39 29 0a 0a 28 64 |Log" 102|889)..(d|
|00000130| 65 66 75 6e 20 61 64 64 | 2d 63 68 61 6e 67 65 2d |efun add|-change-|
|00000140| 6c 6f 67 2d 65 6e 74 72 | 79 20 28 26 6f 70 74 69 |log-entr|y (&opti|
|00000150| 6f 6e 61 6c 20 6c 6f 67 | 2d 66 69 6c 65 29 20 28 |onal log|-file) (|
|00000160| 69 6e 74 65 72 61 63 74 | 69 76 65 20 22 46 4c 6f |interact|ive "FLo|
|00000170| 67 20 66 69 6c 65 3a 22 | 29 20 28 6a 61 64 65 2d |g file:"|) (jade-|
|00000180| 62 79 74 65 2d 63 6f 64 | 65 20 22 10 19 ff 00 06 |byte-cod|e ".....|
|00000190| 12 09 46 21 48 13 19 09 | ff 00 13 19 12 60 fe 00 |..F!H...|.....`..|
|000001a0| 1c 14 19 1d 0a 46 21 48 | 44 16 06 19 09 36 07 1e |.....F!H|D....6..|
|000001b0| 07 fe 00 81 16 08 1e 07 | 09 48 16 09 08 48 16 0a |........|.H...H..|
|000001c0| 16 0b 16 0c 08 16 0d 16 | 0c 08 09 0a 09 ff 00 59 |........|.......Y|
|000001d0| 16 0e 16 0f 16 10 08 16 | 11 1e 12 16 13 1e 14 16 |........|........|
|000001e0| 15 0e 06 09 48 16 16 16 | 17 16 18 16 19 0a 09 48 |....H...|.......H|
|000001f0| 16 0e 16 1a 09 48 16 16 | 16 0d 16 17 16 18 16 1b |.....H..|........|
|00000200| 0a 09 09 48 1e 1c ff 00 | 81 16 1d 08 45 22 20 5b |...H....|....E" [|
|00000210| 65 78 70 61 6e 64 2d 66 | 69 6c 65 2d 6e 61 6d 65 |expand-f|ile-name|
|00000220| 20 6c 6f 67 2d 66 69 6c | 65 20 22 22 20 66 69 6c | log-fil|e "" fil|
|00000230| 65 2d 64 69 72 65 63 74 | 6f 72 79 2d 70 20 66 69 |e-direct|ory-p fi|
|00000240| 6c 65 2d 6e 61 6d 65 2d | 63 6f 6e 63 61 74 20 63 |le-name-|concat c|
|00000250| 68 61 6e 67 65 2d 6c 6f | 67 2d 66 69 6c 65 20 6f |hange-lo|g-file o|
|00000260| 70 65 6e 2d 66 69 6c 65 | 20 6c 6f 67 2d 62 75 66 |pen-file| log-buf|
|00000270| 66 65 72 20 67 6f 74 6f | 2d 62 75 66 66 65 72 20 |fer goto|-buffer |
|00000280| 67 6f 74 6f 2d 62 75 66 | 66 65 72 2d 73 74 61 72 |goto-buf|fer-star|
|00000290| 74 20 6c 6f 67 2d 69 6e | 2d 73 61 6d 65 2d 64 61 |t log-in|-same-da|
|000002a0| 79 2d 70 20 63 6f 70 79 | 2d 61 72 65 61 20 62 75 |y-p copy|-area bu|
|000002b0| 66 66 65 72 2d 73 74 61 | 72 74 20 6c 69 6e 65 2d |ffer-sta|rt line-|
|000002c0| 65 6e 64 20 69 6e 73 65 | 72 74 20 63 6f 6e 63 61 |end inse|rt conca|
|000002d0| 74 20 63 75 72 72 65 6e | 74 2d 74 69 6d 65 2d 73 |t curren|t-time-s|
|000002e0| 74 72 69 6e 67 20 22 20 | 20 22 20 63 68 61 6e 67 |tring " | " chang|
|000002f0| 65 2d 6c 6f 67 2d 6e 61 | 6d 65 20 22 20 20 28 22 |e-log-na|me "  ("|
|00000300| 20 63 68 61 6e 67 65 2d | 6c 6f 67 2d 61 64 64 72 | change-|log-addr|
|00000310| 65 73 73 20 22 29 0a 0a | 22 20 67 6f 74 6f 2d 63 |ess ")..|" goto-c|
|00000320| 68 61 72 20 70 6f 73 20 | 30 20 31 20 22 0a 09 2a |har pos |0 1 "..*|
|00000330| 20 0a 22 20 32 20 6d 61 | 6a 6f 72 2d 6d 6f 64 65 | ." 2 ma|jor-mode|
|00000340| 20 69 6e 64 65 6e 74 65 | 64 2d 74 65 78 74 2d 6d | indente|d-text-m|
|00000350| 6f 64 65 5d 20 38 29 29 | 0a 0a 28 64 65 66 75 6e |ode] 8))|..(defun|
|00000360| 20 6c 6f 67 2d 69 6e 2d | 73 61 6d 65 2d 64 61 79 | log-in-|same-day|
|00000370| 2d 70 20 28 6f 6c 64 2d | 68 65 61 64 65 72 29 20 |-p (old-|header) |
|00000380| 28 6a 61 64 65 2d 62 79 | 74 65 2d 63 6f 64 65 20 |(jade-by|te-code |
|00000390| 22 10 11 12 13 14 08 15 | 16 06 0b 09 16 07 12 1e |".......|........|
|000003a0| 08 09 16 09 12 1e 0a 09 | 16 0b 0e 06 1e 0c 0a 22 |........|......."|
|000003b0| 20 5b 72 65 67 65 78 70 | 2d 6d 61 74 63 68 20 63 | [regexp|-match c|
|000003c0| 6f 6e 63 61 74 20 72 65 | 67 65 78 70 2d 71 75 6f |oncat re|gexp-quo|
|000003d0| 74 65 20 73 75 62 73 74 | 72 69 6e 67 20 63 75 72 |te subst|ring cur|
|000003e0| 72 65 6e 74 2d 74 69 6d | 65 2d 73 74 72 69 6e 67 |rent-tim|e-string|
|000003f0| 20 30 20 31 31 20 22 2e | 2a 20 20 22 20 63 68 61 | 0 11 ".|*  " cha|
|00000400| 6e 67 65 2d 6c 6f 67 2d | 6e 61 6d 65 20 22 20 20 |nge-log-|name "  |
|00000410| 5c 5c 28 22 20 63 68 61 | 6e 67 65 2d 6c 6f 67 2d |\\(" cha|nge-log-|
|00000420| 61 64 64 72 65 73 73 20 | 22 5c 5c 29 22 20 6f 6c |address |"\\)" ol|
|00000430| 64 2d 68 65 61 64 65 72 | 5d 20 38 29 29 0a       |d-header|] 8)).  |
+--------+-------------------------+-------------------------+--------+--------+