home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / games / yow.elc < prev   
Emacs Compiled Lisp  |  1995-08-29  |  1.7 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was processed as: Emacs Compiled Lisp (other/emacsCompiledLisp).
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert Emacs Compiled Lisp (other/emacsCompiledLisp) magic Unsupported
1% dexvert Combustion 2 Particle Library (other/combustion2ParticleLibrary) ext Unsupported
100% file Emacs/XEmacs v19 byte-compiled Lisp data default
99% file data default
100% TrID Emacs/XEmacs byte-compiled Lisp (generic) default
100% xdgMime text/x-emacs-lisp default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 30 32 3a 30 | 33 20 31 39 39 35 0a 3b | 14:02:0|3 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 67 61 | 6d 65 73 2f 79 6f 77 2e |/lisp/ga|mes/yow.|
|00000090| 65 6c 0a 3b 3b 3b 20 65 | 6d 61 63 73 20 76 65 72 |el.;;; e|macs ver|
|000000a0| 73 69 6f 6e 20 31 39 2e | 31 33 20 58 45 6d 61 63 |sion 19.|13 XEmac|
|000000b0| 73 20 4c 75 63 69 64 2e | 0a 3b 3b 3b 20 62 79 74 |s Lucid.|.;;; byt|
|000000c0| 65 63 6f 6d 70 20 76 65 | 72 73 69 6f 6e 20 32 2e |ecomp ve|rsion 2.|
|000000d0| 32 35 3b 20 31 2d 53 65 | 70 2d 39 34 2e 0a 3b 3b |25; 1-Se|p-94..;;|
|000000e0| 3b 20 6f 70 74 69 6d 69 | 7a 61 74 69 6f 6e 20 69 |; optimi|zation i|
|000000f0| 73 20 6f 6e 2e 0a 3b 3b | 3b 20 74 68 69 73 20 66 |s on..;;|; this f|
|00000100| 69 6c 65 20 75 73 65 73 | 20 6f 70 63 6f 64 65 73 |ile uses| opcodes|
|00000110| 20 77 68 69 63 68 20 64 | 6f 20 6e 6f 74 20 65 78 | which d|o not ex|
|00000120| 69 73 74 20 69 6e 20 45 | 6d 61 63 73 20 31 38 2e |ist in E|macs 18.|
|00000130| 0a 0a 28 69 66 20 28 61 | 6e 64 20 28 62 6f 75 6e |..(if (a|nd (boun|
|00000140| 64 70 20 27 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |dp 'emac|s-versio|
|00000150| 6e 29 0a 09 20 28 6f 72 | 20 28 61 6e 64 20 28 62 |n).. (or| (and (b|
|00000160| 6f 75 6e 64 70 20 27 65 | 70 6f 63 68 3a 3a 76 65 |oundp 'e|poch::ve|
|00000170| 72 73 69 6f 6e 29 20 65 | 70 6f 63 68 3a 3a 76 65 |rsion) e|poch::ve|
|00000180| 72 73 69 6f 6e 29 0a 09 | 20 20 20 20 20 28 73 74 |rsion)..|     (st|
|00000190| 72 69 6e 67 2d 6c 65 73 | 73 70 20 65 6d 61 63 73 |ring-les|sp emacs|
|000001a0| 2d 76 65 72 73 69 6f 6e | 20 22 31 39 22 29 29 29 |-version| "19")))|
|000001b0| 0a 20 20 20 20 28 65 72 | 72 6f 72 20 22 54 68 69 |.    (er|ror "Thi|
|000001c0| 73 20 66 69 6c 65 20 77 | 61 73 20 63 6f 6d 70 69 |s file w|as compi|
|000001d0| 6c 65 64 20 66 6f 72 20 | 45 6d 61 63 73 20 31 39 |led for |Emacs 19|
|000001e0| 2e 22 29 29 0a 0a 28 72 | 65 71 75 69 72 65 20 27 |."))..(r|equire '|
|000001f0| 63 6f 6f 6b 69 65 31 29 | 0a 28 64 65 66 76 61 72 |cookie1)|.(defvar|
|00000200| 20 79 6f 77 2d 66 69 6c | 65 20 28 63 6f 6e 63 61 | yow-fil|e (conca|
|00000210| 74 20 64 61 74 61 2d 64 | 69 72 65 63 74 6f 72 79 |t data-d|irectory|
|00000220| 20 22 79 6f 77 2e 6c 69 | 6e 65 73 22 29 20 22 5c | "yow.li|nes") "\|
|00000230| 0a 46 69 6c 65 20 63 6f | 6e 74 61 69 6e 69 6e 67 |.File co|ntaining|
|00000240| 20 50 65 72 74 69 6e 65 | 6e 74 20 50 69 6e 68 65 | Pertine|nt Pinhe|
|00000250| 61 64 20 50 68 72 61 73 | 65 73 2e 22 29 0a 28 66 |ad Phras|es.").(f|
|00000260| 73 65 74 20 27 79 6f 77 | 20 23 5b 28 26 6f 70 74 |set 'yow| #[(&opt|
|00000270| 69 6f 6e 61 6c 20 69 6e | 73 65 72 74 29 20 22 c0 |ional in|sert) ".|
|00000280| 09 c2 c3 23 1c 0d ab 84 | 0c 63 aa a2 74 ac 83 0c |...#....|.c..t...|
|00000290| aa 9c c6 c7 0c 5c 22 ac | 8c c8 c9 ca 21 21 88 cb |.....\".|....!!..|
|000002a0| cc 0c 5c 22 aa 8a cb cd | 21 88 ca 90 ce 0c 21 91 |..\"....|!.....!.|
|000002b0| 29 87 22 20 5b 63 6f 6f | 6b 69 65 20 79 6f 77 2d |)." [coo|kie yow-|
|000002c0| 66 69 6c 65 20 22 41 6d | 20 49 20 43 4f 4e 53 49 |file "Am| I CONSI|
|000002d0| 4e 47 20 79 65 74 3f 2e | 2e 2e 22 20 22 49 20 68 |NG yet?.|.." "I h|
|000002e0| 61 76 65 20 53 45 45 4e | 20 74 68 65 20 43 4f 4e |ave SEEN| the CON|
|000002f0| 53 49 4e 47 21 21 22 20 | 79 6f 77 20 69 6e 73 65 |SING!!" |yow inse|
|00000300| 72 74 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |rt strin|g-match |
|00000310| 22 5c 6e 22 20 64 65 6c | 65 74 65 2d 77 69 6e 64 |"\n" del|ete-wind|
|00000320| 6f 77 73 2d 6f 6e 20 67 | 65 74 2d 62 75 66 66 65 |ows-on g|et-buffe|
|00000330| 72 2d 63 72 65 61 74 65 | 20 22 2a 48 65 6c 70 2a |r-create| "*Help*|
|00000340| 22 20 6d 65 73 73 61 67 | 65 20 22 25 73 22 20 22 |" messag|e "%s" "|
|00000350| 59 6f 77 21 22 20 70 72 | 69 6e 63 5d 20 34 20 22 |Yow!" pr|inc] 4 "|
|00000360| 5c 0a 52 65 74 75 72 6e | 20 6f 72 20 64 69 73 70 |\.Return| or disp|
|00000370| 6c 61 79 20 61 20 72 61 | 6e 64 6f 6d 20 5a 69 70 |lay a ra|ndom Zip|
|00000380| 70 79 20 71 75 6f 74 61 | 74 69 6f 6e 2e 20 20 57 |py quota|tion.  W|
|00000390| 69 74 68 20 70 72 65 66 | 69 78 20 61 72 67 2c 20 |ith pref|ix arg, |
|000003a0| 69 6e 73 65 72 74 20 69 | 74 2e 22 20 22 50 22 5d |insert i|t." "P"]|
|000003b0| 29 0a 28 66 73 65 74 20 | 27 72 65 61 64 2d 7a 69 |).(fset |'read-zi|
|000003c0| 70 70 79 69 73 6d 20 23 | 5b 28 70 72 6f 6d 70 74 |ppyism #|[(prompt|
|000003d0| 20 26 6f 70 74 69 6f 6e | 61 6c 20 72 65 71 75 69 | &option|al requi|
|000003e0| 72 65 2d 6d 61 74 63 68 | 29 20 22 c0 09 5c 6e c3 |re-match|) "..\n.|
|000003f0| c4 0d 25 87 22 20 5b 72 | 65 61 64 2d 63 6f 6f 6b |..%." [r|ead-cook|
|00000400| 69 65 20 70 72 6f 6d 70 | 74 20 79 6f 77 2d 66 69 |ie promp|t yow-fi|
|00000410| 6c 65 20 22 41 6d 20 49 | 20 43 4f 4e 53 49 4e 47 |le "Am I| CONSING|
|00000420| 20 79 65 74 3f 2e 2e 2e | 22 20 22 49 20 68 61 76 | yet?...|" "I hav|
|00000430| 65 20 53 45 45 4e 20 74 | 68 65 20 43 4f 4e 53 49 |e SEEN t|he CONSI|
|00000440| 4e 47 21 21 22 20 72 65 | 71 75 69 72 65 2d 6d 61 |NG!!" re|quire-ma|
|00000450| 74 63 68 5d 20 36 20 22 | 5c 0a 52 65 61 64 20 61 |tch] 6 "|\.Read a|
|00000460| 20 5a 69 70 70 79 69 73 | 6d 20 66 72 6f 6d 20 74 | Zippyis|m from t|
|00000470| 68 65 20 6d 69 6e 69 62 | 75 66 66 65 72 20 77 69 |he minib|uffer wi|
|00000480| 74 68 20 63 6f 6d 70 6c | 65 74 69 6f 6e 2c 20 70 |th compl|etion, p|
|00000490| 72 6f 6d 70 74 69 6e 67 | 20 77 69 74 68 20 50 52 |rompting| with PR|
|000004a0| 4f 4d 50 54 2e 0a 49 66 | 20 6f 70 74 69 6f 6e 61 |OMPT..If| optiona|
|000004b0| 6c 20 73 65 63 6f 6e 64 | 20 61 72 67 20 69 73 20 |l second| arg is |
|000004c0| 6e 6f 6e 2d 6e 69 6c 2c | 20 72 65 71 75 69 72 65 |non-nil,| require|
|000004d0| 20 69 6e 70 75 74 20 74 | 6f 20 6d 61 74 63 68 20 | input t|o match |
|000004e0| 61 20 63 6f 6d 70 6c 65 | 74 69 6f 6e 2e 22 5d 29 |a comple|tion."])|
|000004f0| 0a 28 66 73 65 74 20 27 | 69 6e 73 65 72 74 2d 7a |.(fset '|insert-z|
|00000500| 69 70 70 79 69 73 6d 20 | 23 5b 28 26 6f 70 74 69 |ippyism |#[(&opti|
|00000510| 6f 6e 61 6c 20 7a 69 70 | 70 79 69 73 6d 29 20 22 |onal zip|pyism) "|
|00000520| 08 63 87 22 20 5b 7a 69 | 70 70 79 69 73 6d 5d 20 |.c." [zi|ppyism] |
|00000530| 31 20 22 5c 0a 50 72 6f | 6d 70 74 20 77 69 74 68 |1 "\.Pro|mpt with|
|00000540| 20 63 6f 6d 70 6c 65 74 | 69 6f 6e 20 66 6f 72 20 | complet|ion for |
|00000550| 61 20 6b 6e 6f 77 6e 20 | 5a 69 70 70 79 20 71 75 |a known |Zippy qu|
|00000560| 6f 74 61 74 69 6f 6e 2c | 20 61 6e 64 20 69 6e 73 |otation,| and ins|
|00000570| 65 72 74 20 69 74 20 61 | 74 20 70 6f 69 6e 74 2e |ert it a|t point.|
|00000580| 22 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |" (byte-|code "..|
|00000590| c2 5c 22 43 87 22 20 5b | 72 65 61 64 2d 7a 69 70 |.\"C." [|read-zip|
|000005a0| 70 79 69 73 6d 20 22 50 | 69 6e 68 65 61 64 20 77 |pyism "P|inhead w|
|000005b0| 69 73 64 6f 6d 3a 20 22 | 20 74 5d 20 33 29 5d 29 |isdom: "| t] 3)])|
|000005c0| 0a 28 66 73 65 74 20 27 | 70 73 79 63 68 6f 61 6e |.(fset '|psychoan|
|000005d0| 61 6c 79 7a 65 2d 70 69 | 6e 68 65 61 64 20 23 5b |alyze-pi|nhead #[|
|000005e0| 6e 69 6c 20 22 c0 20 88 | c1 c2 21 88 c3 c4 21 88 |nil ". .|..!...!.|
|000005f0| c5 c6 21 88 c7 20 3f ad | 92 c8 20 63 88 c5 c6 21 |..!.. ?.|.. c...!|
|00000600| 88 c9 ca 21 88 c9 ca 21 | 88 aa 69 87 22 20 5b 64 |...!...!|..i." [d|
|00000610| 6f 63 74 6f 72 20 6d 65 | 73 73 61 67 65 20 6e 69 |octor me|ssage ni|
|00000620| 6c 20 73 77 69 74 63 68 | 2d 74 6f 2d 62 75 66 66 |l switch|-to-buff|
|00000630| 65 72 20 22 2a 64 6f 63 | 74 6f 72 2a 22 20 73 69 |er "*doc|tor*" si|
|00000640| 74 2d 66 6f 72 20 30 20 | 69 6e 70 75 74 2d 70 65 |t-for 0 |input-pe|
|00000650| 6e 64 69 6e 67 2d 70 20 | 79 6f 77 20 64 6f 63 74 |nding-p |yow doct|
|00000660| 6f 72 2d 72 65 74 2d 6f | 72 2d 72 65 61 64 20 31 |or-ret-o|r-read 1|
|00000670| 5d 20 32 20 22 5c 0a 5a | 69 70 70 79 20 67 6f 65 |] 2 "\.Z|ippy goe|
|00000680| 73 20 74 6f 20 74 68 65 | 20 61 6e 61 6c 79 73 74 |s to the| analyst|
|00000690| 2e 22 20 6e 69 6c 5d 29 | 0a 28 70 72 6f 76 69 64 |." nil])|.(provid|
|000006a0| 65 20 27 79 6f 77 29 0a |                         |e 'yow).|        |
+--------+-------------------------+-------------------------+--------+--------+