/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / editors / emcs1857 / 1857el~1.zoo / lisp / cmacexp.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 64 65 66 75 6e 20 | 63 2d 6d 61 63 72 6f 2d |.(defun |c-macro-|
|00000010| 65 78 70 61 6e 64 20 28 | 62 65 67 20 65 6e 64 29 |expand (|beg end)|
|00000020| 20 22 5c 0a 44 69 73 70 | 6c 61 79 20 74 68 65 20 | "\.Disp|lay the |
|00000030| 72 65 73 75 6c 74 20 6f | 66 20 65 78 70 61 6e 64 |result o|f expand|
|00000040| 69 6e 67 20 61 6c 6c 20 | 43 20 6d 61 63 72 6f 73 |ing all |C macros|
|00000050| 20 6f 63 63 75 72 72 69 | 6e 67 20 69 6e 20 74 68 | occurri|ng in th|
|00000060| 65 20 72 65 67 69 6f 6e | 2e 0a 54 68 65 20 65 78 |e region|..The ex|
|00000070| 70 61 6e 73 69 6f 6e 20 | 69 73 20 65 6e 74 69 72 |pansion |is entir|
|00000080| 65 6c 79 20 63 6f 72 72 | 65 63 74 20 62 65 63 61 |ely corr|ect beca|
|00000090| 75 73 65 20 69 74 20 75 | 73 65 73 20 74 68 65 20 |use it u|ses the |
|000000a0| 43 20 70 72 65 70 72 6f | 63 65 73 73 6f 72 2e 22 |C prepro|cessor."|
|000000b0| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 72 | (intera|ctive "r|
|000000c0| 22 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c5 |") (byte|-code ".|
|000000d0| 88 c8 c9 21 ca c5 c5 1b | 1a 19 18 8a 08 71 88 cb |...!....|.....q..|
|000000e0| 20 29 88 cc cd 08 ce 23 | 89 12 88 cf 0a d0 5c 22 | ).....#|......\"|
|000000f0| 88 8c d1 20 88 8a 0c 62 | 88 d2 20 88 60 89 13 88 |... ...b|.. .`...|
|00000100| d3 d4 c5 c6 23 85 50 00 | d5 20 88 68 d6 55 85 48 |....#.P.|. .h.U.H|
|00000110| 00 d7 d8 21 88 82 38 00 | 88 d7 d8 21 88 60 89 13 |...!..8.|...!.`..|
|00000120| 29 88 d9 65 0b 09 c5 da | 25 88 db 0a dc 09 dd 51 |)..e....|%......Q|
|00000130| 5c 22 88 db 0a de 5c 22 | 88 df 0a 0c 0e 07 23 88 |\"....\"|......#.|
|00000140| db 0a de 5c 22 88 e0 0a | 21 29 88 e1 0a 21 e2 3d |...\"...|!)...!.=|
|00000150| 85 86 00 e3 20 88 82 78 | 00 88 e4 09 21 88 8a 08 |.... ..x|....!...|
|00000160| 71 88 64 62 88 d3 e5 21 | 88 d7 e6 21 88 6c 85 a5 |q.db...!|...!.l..|
|00000170| 00 e7 d8 21 88 82 9a 00 | 88 e8 65 60 5c 22 29 88 |...!....|..e`\").|
|00000180| e9 08 21 2c 87 22 20 5b | 6f 75 74 62 75 66 20 74 |..!,." [|outbuf t|
|00000190| 65 6d 70 66 69 6c 65 20 | 70 72 6f 63 65 73 73 20 |empfile |process |
|000001a0| 6c 61 73 74 2d 6e 65 65 | 64 65 64 20 62 65 67 20 |last-nee|ded beg |
|000001b0| 6e 69 6c 20 74 20 65 6e | 64 20 67 65 74 2d 62 75 |nil t en|d get-bu|
|000001c0| 66 66 65 72 2d 63 72 65 | 61 74 65 20 22 2a 4d 61 |ffer-cre|ate "*Ma|
|000001d0| 63 72 6f 65 78 70 61 6e | 73 69 6f 6e 2a 22 20 22 |croexpan|sion*" "|
|000001e0| 25 25 6d 61 63 72 6f 65 | 78 70 61 6e 64 25 25 22 |%%macroe|xpand%%"|
|000001f0| 20 65 72 61 73 65 2d 62 | 75 66 66 65 72 20 73 74 | erase-b|uffer st|
|00000200| 61 72 74 2d 70 72 6f 63 | 65 73 73 20 22 6d 61 63 |art-proc|ess "mac|
|00000210| 72 6f 73 22 20 22 2f 6c | 69 62 2f 63 70 70 22 20 |ros" "/l|ib/cpp" |
|00000220| 73 65 74 2d 70 72 6f 63 | 65 73 73 2d 73 65 6e 74 |set-proc|ess-sent|
|00000230| 69 6e 65 6c 20 28 6c 61 | 6d 62 64 61 20 28 26 72 |inel (la|mbda (&r|
|00000240| 65 73 74 20 78 29 29 20 | 77 69 64 65 6e 20 62 65 |est x)) |widen be|
|00000250| 67 69 6e 6e 69 6e 67 2d | 6f 66 2d 6c 69 6e 65 20 |ginning-|of-line |
|00000260| 72 65 2d 73 65 61 72 63 | 68 2d 62 61 63 6b 77 61 |re-searc|h-backwa|
|00000270| 72 64 20 22 5e 5b 20 09 | 5d 2a 23 22 20 65 6e 64 |rd "^[ .|]*#" end|
|00000280| 2d 6f 66 2d 6c 69 6e 65 | 20 39 32 20 66 6f 72 77 |-of-line| 92 forw|
|00000290| 61 72 64 2d 6c 69 6e 65 | 20 31 20 77 72 69 74 65 |ard-line| 1 write|
|000002a0| 2d 72 65 67 69 6f 6e 20 | 6e 6f 6d 73 67 20 70 72 |-region |nomsg pr|
|000002b0| 6f 63 65 73 73 2d 73 65 | 6e 64 2d 73 74 72 69 6e |ocess-se|nd-strin|
|000002c0| 67 20 22 23 69 6e 63 6c | 75 64 65 20 5c 22 22 20 |g "#incl|ude \"" |
|000002d0| 22 5c 22 0a 22 20 22 0a | 22 20 70 72 6f 63 65 73 |"\"." ".|" proces|
|000002e0| 73 2d 73 65 6e 64 2d 72 | 65 67 69 6f 6e 20 70 72 |s-send-r|egion pr|
|000002f0| 6f 63 65 73 73 2d 73 65 | 6e 64 2d 65 6f 66 20 70 |ocess-se|nd-eof p|
|00000300| 72 6f 63 65 73 73 2d 73 | 74 61 74 75 73 20 72 75 |rocess-s|tatus ru|
|00000310| 6e 20 61 63 63 65 70 74 | 2d 70 72 6f 63 65 73 73 |n accept|-process|
|00000320| 2d 6f 75 74 70 75 74 20 | 64 65 6c 65 74 65 2d 66 |-output |delete-f|
|00000330| 69 6c 65 20 22 0a 23 20 | 5b 31 32 5d 20 5c 22 5c |ile ".# |[12] \"\|
|00000340| 22 22 20 32 20 64 65 6c | 65 74 65 2d 63 68 61 72 |"" 2 del|ete-char|
|00000350| 20 64 65 6c 65 74 65 2d | 72 65 67 69 6f 6e 20 64 | delete-|region d|
|00000360| 69 73 70 6c 61 79 2d 62 | 75 66 66 65 72 5d 20 32 |isplay-b|uffer] 2|
|00000370| 35 29 29 0a             |                         |5)).    |        |
+--------+-------------------------+-------------------------+--------+--------+