/ Amiga Format CD 2 / amigaformatcd02.iso / comms / netsoftware / irchat24.lha / irchat24 / irchat.lha / elisp / gnus-caesar.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 3b 3b 20 63 6f 6d 70 | 69 6c 65 64 20 62 79 20 |;;; comp|iled by |
|00000010| 74 6f 6f 40 61 6a 6b 2e | 74 65 6c 65 2e 66 69 20 |too@ajk.|tele.fi |
|00000020| 6f 6e 20 54 75 65 20 4d | 61 72 20 31 35 20 32 31 |on Tue M|ar 15 21|
|00000030| 3a 31 32 3a 33 34 20 31 | 39 39 34 0a 3b 3b 3b 20 |:12:34 1|994.;;; |
|00000040| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000050| 61 6a 6b 2f 74 6f 6f 2f | 65 6c 69 73 70 2f 69 72 |ajk/too/|elisp/ir|
|00000060| 63 68 61 74 2e 73 72 63 | 2f 67 6e 75 73 2d 63 61 |chat.src|/gnus-ca|
|00000070| 65 73 61 72 2e 65 6c 0a | 3b 3b 3b 20 65 6d 61 63 |esar.el.|;;; emac|
|00000080| 73 20 76 65 72 73 69 6f | 6e 20 31 38 2e 35 38 2e |s versio|n 18.58.|
|00000090| 31 33 2e 0a 3b 3b 3b 20 | 62 79 74 65 63 6f 6d 70 |13..;;; |bytecomp|
|000000a0| 20 76 65 72 73 69 6f 6e | 20 32 2e 30 37 3b 20 31 | version| 2.07; 1|
|000000b0| 35 2d 6a 75 6c 2d 39 32 | 2e 0a 3b 3b 3b 20 6f 70 |5-jul-92|..;;; op|
|000000c0| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|000000d0| 3b 20 63 6f 6d 70 69 6c | 65 64 20 77 69 74 68 20 |; compil|ed with |
|000000e0| 65 6d 61 63 73 31 38 20 | 63 6f 6d 70 61 74 69 62 |emacs18 |compatib|
|000000f0| 69 6c 69 74 79 2e 0a 0a | 28 70 72 6f 76 69 64 65 |ility...|(provide|
|00000100| 20 28 71 75 6f 74 65 20 | 67 6e 75 73 2d 63 61 65 | (quote |gnus-cae|
|00000110| 73 61 72 29 29 0a 28 64 | 65 66 75 6e 20 67 6e 75 |sar)).(d|efun gnu|
|00000120| 73 2d 63 61 65 73 61 72 | 2d 72 65 67 69 6f 6e 20 |s-caesar|-region |
|00000130| 28 26 6f 70 74 69 6f 6e | 61 6c 20 6e 29 20 22 5c |(&option|al n) "\|
|00000140| 0a 43 61 65 73 61 72 20 | 72 6f 74 61 74 69 6f 6e |.Caesar |rotation|
|00000150| 20 6f 66 20 72 65 67 69 | 6f 6e 20 62 79 20 4e 2c | of regi|on by N,|
|00000160| 20 64 65 66 61 75 6c 74 | 20 31 33 2c 20 66 6f 72 | default| 13, for|
|00000170| 20 64 65 63 72 79 70 74 | 69 6e 67 20 6e 65 74 6e | decrypt|ing netn|
|00000180| 65 77 73 2e 0a 52 4f 54 | 34 37 20 77 69 6c 6c 20 |ews..ROT|47 will |
|00000190| 62 65 20 70 65 72 66 6f | 72 6d 65 64 20 66 6f 72 |be perfo|rmed for|
|000001a0| 20 4a 61 70 61 6e 65 73 | 65 20 74 65 78 74 20 69 | Japanes|e text i|
|000001b0| 6e 20 61 6e 79 20 63 61 | 73 65 2e 22 20 28 69 6e |n any ca|se." (in|
|000001c0| 74 65 72 61 63 74 69 76 | 65 20 28 62 79 74 65 2d |teractiv|e (byte-|
|000001d0| 63 6f 64 65 20 22 08 83 | 09 00 c1 08 21 43 87 c2 |code "..|....!C..|
|000001e0| 43 87 22 20 5b 63 75 72 | 72 65 6e 74 2d 70 72 65 |C." [cur|rent-pre|
|000001f0| 66 69 78 2d 61 72 67 20 | 70 72 65 66 69 78 2d 6e |fix-arg |prefix-n|
|00000200| 75 6d 65 72 69 63 2d 76 | 61 6c 75 65 20 6e 69 6c |umeric-v|alue nil|
|00000210| 5d 20 32 29 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |] 2)) (b|yte-code|
|00000220| 20 22 c0 09 21 84 0b 00 | c2 11 82 21 00 09 c3 57 | "..!...|...!...W|
|00000230| 83 1c 00 c4 c5 09 5b c4 | 5c 22 5a 11 82 21 00 c5 |......[.|\"Z..!..|
|00000240| 09 c4 5c 22 11 09 c3 55 | 3f 85 46 01 c6 c7 21 83 |..\"...U|?.F...!.|
|00000250| 39 00 0e 07 c8 48 09 c8 | 5c 5c 55 84 fb 00 c3 c9 |9....H..|\\U.....|
|00000260| ca 1e 0b 1e 0c 1e 0d ce | cf 21 88 d0 d1 c3 5c 22 |........|.!....\"|
|00000270| 16 07 0e 0d d1 57 83 63 | 00 0e 07 0e 0d 89 49 88 |.....W.c|......I.|
|00000280| 0e 0d 54 89 16 0d 82 4e | 00 0e 0c 89 50 16 0c d2 |..T....N|....P...|
|00000290| 0e 0c 21 16 0b c3 16 0d | c3 c4 57 83 9f 00 0e 07 |..!.....|..W.....|
|000002a0| 0e 0d c8 5c 5c 0e 0c 0e | 0d 09 5c 5c 48 49 88 0e |...\\...|..\\HI..|
|000002b0| 07 0e 0d d3 5c 5c 0e 0b | 0e 0d 09 5c 5c 48 49 88 |....\\..|...\\HI.|
|000002c0| 0e 0d 54 89 16 0d 82 73 | 00 d4 16 0d d5 d4 d6 1e |..T....s|........|
|000002d0| 17 1e 18 1e 19 0e 0d d1 | 57 83 f5 00 0e 07 0e 0d |........|W.......|
|000002e0| 0e 07 0e 0d 48 89 1e 1a | 0e 19 58 83 d8 00 0e 1a |....H...|..X.....|
|000002f0| 0e 18 57 83 d1 00 0e 1a | 82 e9 00 0e 1a db 5c 5c |..W.....|......\\|
|00000300| 82 e9 00 0e 1a 0e 17 58 | 83 e7 00 0e 1a db 5a 82 |.......X|......Z.|
|00000310| e9 00 0e 1a 29 49 88 0e | 0d 54 89 16 0d 82 ad 00 |....)I..|.T......|
|00000320| 2b ce dc 21 88 2b dd 20 | de 20 c3 ca 89 1e 1f 1e |+..!.+. |. ......|
|00000330| 20 1e 0d 1e 21 1e 5c 22 | e3 0e 5c 22 0e 21 5c 22 | ...!.\"|..\".!\"|
|00000340| 89 16 20 47 16 1f 0e 0d | 0e 1f 57 83 37 01 0e 20 |.. G....|..W.7.. |
|00000350| 0e 0d 0e 07 0e 20 0e 0d | 48 48 49 88 0e 0d 54 89 |..... ..|HHI...T.|
|00000360| 16 0d 82 1a 01 0e 5c 22 | 62 88 e4 0e 5c 22 0e 21 |......\"|b...\".!|
|00000370| 5c 22 88 0e 20 63 2d 87 | 22 20 5b 6e 75 6d 62 65 |\".. c-.|" [numbe|
|00000380| 72 70 20 6e 20 31 33 20 | 30 20 32 36 20 25 20 62 |rp n 13 |0 26 % b|
|00000390| 6f 75 6e 64 70 20 63 61 | 65 73 61 72 2d 74 72 61 |oundp ca|esar-tra|
|000003a0| 6e 73 6c 61 74 65 2d 74 | 61 62 6c 65 20 39 37 20 |nslate-t|able 97 |
|000003b0| 22 61 62 63 64 65 66 67 | 68 69 6a 6b 6c 6d 6e 6f |"abcdefg|hijklmno|
|000003c0| 70 71 72 73 74 75 76 77 | 78 79 7a 22 20 6e 69 6c |pqrstuvw|xyz" nil|
|000003d0| 20 75 70 70 65 72 20 6c | 6f 77 65 72 20 69 20 6d | upper l|ower i m|
|000003e0| 65 73 73 61 67 65 20 22 | 42 75 69 6c 64 69 6e 67 |essage "|Building|
|000003f0| 20 63 61 65 73 61 72 2d | 74 72 61 6e 73 6c 61 74 | caesar-|translat|
|00000400| 65 2d 74 61 62 6c 65 2e | 2e 2e 22 20 6d 61 6b 65 |e-table.|.." make|
|00000410| 2d 76 65 63 74 6f 72 20 | 32 35 36 20 75 70 63 61 |-vector |256 upca|
|00000420| 73 65 20 36 35 20 31 36 | 31 20 32 30 37 20 32 35 |se 65 16|1 207 25|
|00000430| 34 20 74 33 20 74 32 20 | 74 31 20 76 20 34 37 20 |4 t3 t2 |t1 v 47 |
|00000440| 22 42 75 69 6c 64 69 6e | 67 20 63 61 65 73 61 72 |"Buildin|g caesar|
|00000450| 2d 74 72 61 6e 73 6c 61 | 74 65 2d 74 61 62 6c 65 |-transla|te-table|
|00000460| 2e 2e 2e 20 64 6f 6e 65 | 22 20 72 65 67 69 6f 6e |... done|" region|
|00000470| 2d 62 65 67 69 6e 6e 69 | 6e 67 20 72 65 67 69 6f |-beginni|ng regio|
|00000480| 6e 2d 65 6e 64 20 6c 65 | 6e 20 73 74 72 20 74 6f |n-end le|n str to|
|00000490| 20 66 72 6f 6d 20 62 75 | 66 66 65 72 2d 73 75 62 | from bu|ffer-sub|
|000004a0| 73 74 72 69 6e 67 20 64 | 65 6c 65 74 65 2d 72 65 |string d|elete-re|
|000004b0| 67 69 6f 6e 5d 20 36 29 | 29 0a                   |gion] 6)|).      |
+--------+-------------------------+-------------------------+--------+--------+