/ Fresh Fish 6 / FreshFish_September1994.bin / bbs / gnu / emacs-18.59-src.lha / GNU / src / amiga / emacs-18.59 / lisp / yow.elc

< prev

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 72 61 6e 64 6f 6d | 20 74 29 0a 0a 28 64 65 |.(random| t)..(de|
|00000010| 66 75 6e 20 79 6f 77 20 | 28 26 6f 70 74 69 6f 6e |fun yow |(&option|
|00000020| 61 6c 20 6e 20 69 6e 74 | 65 72 61 63 74 69 76 65 |al n int|eractive|
|00000030| 29 20 22 5c 0a 52 65 74 | 75 72 6e 20 6f 72 20 64 |) "\.Ret|urn or d|
|00000040| 69 73 70 6c 61 79 20 61 | 20 5a 69 70 70 79 20 71 |isplay a| Zippy q|
|00000050| 75 6f 74 61 74 69 6f 6e | 22 20 28 69 6e 74 65 72 |uotation|" (inter|
|00000060| 61 63 74 69 76 65 20 28 | 62 79 74 65 2d 63 6f 64 |active (|byte-cod|
|00000070| 65 20 22 08 83 0c 00 c3 | 08 21 c1 44 82 0f 00 c2 |e ".....|.!.D....|
|00000080| c1 44 87 22 20 5b 63 75 | 72 72 65 6e 74 2d 70 72 |.D." [cu|rrent-pr|
|00000090| 65 66 69 78 2d 61 72 67 | 20 74 20 6e 69 6c 20 70 |efix-arg| t nil p|
|000000a0| 72 65 66 69 78 2d 6e 75 | 6d 65 72 69 63 2d 76 61 |refix-nu|meric-va|
|000000b0| 6c 75 65 5d 20 33 29 29 | 20 28 62 79 74 65 2d 63 |lue] 3))| (byte-c|
|000000c0| 6f 64 65 20 22 c2 88 0b | 3f 85 0b 00 c7 20 89 13 |ode "...|?.... ..|
|000000d0| 88 0c 86 21 00 c8 c9 20 | 0b 47 5c 22 89 14 ca 59 |...!... |.G\"...Y|
|000000e0| 86 21 00 0c 5b 89 14 88 | 0b 0c 48 1d 0e 06 3f 83 |.!..[...|..H...?.|
|000000f0| 30 00 0d 82 4e 00 cb cc | 0d 5c 22 3f 83 44 00 cd |0...N...|.\"?.D..|
|00000100| ce cf 21 21 88 d0 0d 21 | 82 4e 00 d0 d1 21 88 cf |..!!...!|.N...!..|
|00000110| 90 d2 0d 21 91 29 87 22 | 20 5b 63 75 72 72 65 6e |...!.)."| [curren|
|00000120| 74 2d 70 72 65 66 69 78 | 2d 61 72 67 20 74 20 6e |t-prefix|-arg t n|
|00000130| 69 6c 20 79 6f 77 2d 76 | 65 63 74 6f 72 20 6e 20 |il yow-v|ector n |
|00000140| 79 6f 77 20 69 6e 74 65 | 72 61 63 74 69 76 65 20 |yow inte|ractive |
|00000150| 73 6e 61 72 66 2d 79 6f | 77 73 20 25 20 72 61 6e |snarf-yo|ws % ran|
|00000160| 64 6f 6d 20 30 20 73 74 | 72 69 6e 67 2d 6d 61 74 |dom 0 st|ring-mat|
|00000170| 63 68 20 22 0a 22 20 64 | 65 6c 65 74 65 2d 77 69 |ch "." d|elete-wi|
|00000180| 6e 64 6f 77 73 2d 6f 6e | 20 67 65 74 2d 62 75 66 |ndows-on| get-buf|
|00000190| 66 65 72 2d 63 72 65 61 | 74 65 20 22 2a 48 65 6c |fer-crea|te "*Hel|
|000001a0| 70 2a 22 20 6d 65 73 73 | 61 67 65 20 22 59 6f 77 |p*" mess|age "Yow|
|000001b0| 21 22 20 70 72 69 6e 63 | 5d 20 31 31 29 29 0a 0a |!" princ|] 11))..|
|000001c0| 28 64 65 66 76 61 72 20 | 79 6f 77 2d 76 65 63 74 |(defvar |yow-vect|
|000001d0| 6f 72 20 6e 69 6c 20 22 | 5c 0a 50 65 72 74 69 6e |or nil "|\.Pertin|
|000001e0| 65 6e 74 20 70 69 6e 68 | 65 61 64 20 73 74 61 74 |ent pinh|ead stat|
|000001f0| 65 6d 65 6e 74 73 22 29 | 0a 0a 28 64 65 66 75 6e |ements")|..(defun|
|00000200| 20 73 6e 61 72 66 2d 79 | 6f 77 73 20 28 26 6f 70 | snarf-y|ows (&op|
|00000210| 74 69 6f 6e 61 6c 20 66 | 69 6c 65 29 20 28 62 79 |tional f|ile) (by|
|00000220| 74 65 2d 63 6f 64 65 20 | 22 8a c7 c8 21 c9 c3 1a |te-code |"...!...|
|00000230| 19 18 ca cb 21 88 08 71 | 88 cc 0c 86 19 00 cd ce |....!..q|........|
|00000240| 0d 5c 22 21 88 cf d0 21 | 88 d1 d2 21 88 6d 3f 85 |.\"!...!|...!.m?.|
|00000250| 3e 00 60 1e 06 cf d0 21 | 88 d3 0e 06 60 53 5c 22 |>.`....!|....`S\"|
|00000260| 09 42 89 11 29 88 82 1f | 00 88 d4 08 21 88 ca d5 |.B..)...|....!...|
|00000270| 09 47 5c 22 88 d6 d7 d8 | 09 21 5c 22 2b 29 87 22 |.G\"....|.!\"+)."|
|00000280| 20 5b 62 75 66 20 72 65 | 73 75 6c 74 20 63 75 72 | [buf re|sult cur|
|00000290| 73 6f 72 2d 69 6e 2d 65 | 63 68 6f 2d 61 72 65 61 |sor-in-e|cho-area|
|000002a0| 20 74 20 66 69 6c 65 20 | 65 78 65 63 2d 64 69 72 | t file |exec-dir|
|000002b0| 65 63 74 6f 72 79 20 62 | 65 67 20 67 65 6e 65 72 |ectory b|eg gener|
|000002c0| 61 74 65 2d 6e 65 77 2d | 62 75 66 66 65 72 20 22 |ate-new-|buffer "|
|000002d0| 20 79 6f 77 22 20 6e 69 | 6c 20 6d 65 73 73 61 67 | yow" ni|l messag|
|000002e0| 65 20 22 41 6d 20 49 20 | 43 4f 4e 53 49 4e 47 20 |e "Am I |CONSING |
|000002f0| 79 65 74 3f 2e 2e 2e 22 | 20 69 6e 73 65 72 74 2d |yet?..."| insert-|
|00000300| 66 69 6c 65 2d 63 6f 6e | 74 65 6e 74 73 20 65 78 |file-con|tents ex|
|00000310| 70 61 6e 64 2d 66 69 6c | 65 2d 6e 61 6d 65 20 22 |pand-fil|e-name "|
|00000320| 79 6f 77 2e 6c 69 6e 65 | 73 22 20 73 65 61 72 63 |yow.line|s" searc|
|00000330| 68 2d 66 6f 72 77 61 72 | 64 20 22 00 22 20 73 6b |h-forwar|d "." sk|
|00000340| 69 70 2d 63 68 61 72 73 | 2d 66 6f 72 77 61 72 64 |ip-chars|-forward|
|00000350| 20 22 20 09 0a 0d 0c 22 | 20 62 75 66 66 65 72 2d | " ...."| buffer-|
|00000360| 73 75 62 73 74 72 69 6e | 67 20 6b 69 6c 6c 2d 62 |substrin|g kill-b|
|00000370| 75 66 66 65 72 20 22 49 | 20 68 61 76 65 20 53 45 |uffer "I| have SE|
|00000380| 45 4e 20 74 68 65 20 43 | 4f 4e 53 49 4e 47 21 21 |EN the C|ONSING!!|
|00000390| 22 20 61 70 70 6c 79 20 | 76 65 63 74 6f 72 20 6e |" apply |vector n|
|000003a0| 72 65 76 65 72 73 65 5d | 20 31 34 29 29 0a 0a 28 |reverse]| 14))..(|
|000003b0| 64 65 66 75 6e 20 70 73 | 79 63 68 6f 61 6e 61 6c |defun ps|ychoanal|
|000003c0| 79 7a 65 2d 70 69 6e 68 | 65 61 64 20 6e 69 6c 20 |yze-pinh|ead nil |
|000003d0| 22 5c 0a 5a 69 70 70 79 | 20 67 6f 65 73 20 74 6f |"\.Zippy| goes to|
|000003e0| 20 74 68 65 20 61 6e 61 | 6c 79 73 74 2e 22 20 28 | the ana|lyst." (|
|000003f0| 69 6e 74 65 72 61 63 74 | 69 76 65 29 20 28 62 79 |interact|ive) (by|
|00000400| 74 65 2d 63 6f 64 65 20 | 22 c1 88 c2 20 88 08 3f |te-code |"... ..?|
|00000410| 85 0e 00 c3 20 89 10 88 | c4 c5 21 88 c6 c7 21 88 |.... ...|..!...!.|
|00000420| c8 c9 21 88 ca 20 3f 85 | 35 00 cb cc 20 21 88 c8 |..!.. ?.|5... !..|
|00000430| c9 21 88 cd ce 21 88 cd | ce 21 88 82 1b 00 87 22 |.!...!..|.!....."|
|00000440| 20 5b 79 6f 77 2d 76 65 | 63 74 6f 72 20 6e 69 6c | [yow-ve|ctor nil|
|00000450| 20 64 6f 63 74 6f 72 20 | 73 6e 61 72 66 2d 79 6f | doctor |snarf-yo|
|00000460| 77 73 20 6d 65 73 73 61 | 67 65 20 22 22 20 73 77 |ws messa|ge "" sw|
|00000470| 69 74 63 68 2d 74 6f 2d | 62 75 66 66 65 72 20 22 |itch-to-|buffer "|
|00000480| 2a 64 6f 63 74 6f 72 2a | 22 20 73 69 74 2d 66 6f |*doctor*|" sit-fo|
|00000490| 72 20 30 20 69 6e 70 75 | 74 2d 70 65 6e 64 69 6e |r 0 inpu|t-pendin|
|000004a0| 67 2d 70 20 69 6e 73 65 | 72 74 2d 73 74 72 69 6e |g-p inse|rt-strin|
|000004b0| 67 20 79 6f 77 20 64 6f | 63 74 6f 72 2d 72 65 74 |g yow do|ctor-ret|
|000004c0| 2d 6f 72 2d 72 65 61 64 | 20 31 5d 20 31 33 29 29 |-or-read| 1] 13))|
|000004d0| 0a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+