home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: LaTeX Document
(document/latex).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| LaTeX Document (document/latex)
| magic
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| LaTeX document text
| default
| |
| 99%
| file
| Lisp/Scheme program text
| default
| |
| 98%
| file
| Lisp/Scheme program, ASCII text
| default
| |
| 100%
| checkBytes
| Printable ASCII
| default
| |
| 100%
| perlTextCheck
| Likely Text (Perl)
| default
| |
| 100%
| siegfried
| x-fmt/111 Plain Text File
| default
| |
| 100%
| detectItEasy
| Format: Plain text[LF]
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 28 73 65 74 71 20 73 61 | 76 65 2d 61 6c 6c 20 6e |(setq sa|ve-all n|
|00000010| 69 6c 29 0a 0a 28 64 65 | 66 75 6e 20 6e 6f 64 69 |il)..(de|fun nodi|
|00000020| 66 79 2d 66 69 6c 65 20 | 28 29 20 22 0a 49 6e 73 |fy-file |() ".Ins|
|00000030| 65 72 74 20 74 68 65 20 | 5c 5c 6e 6f 64 65 20 63 |ert the |\\node c|
|00000040| 6f 6e 73 74 72 75 63 74 | 73 20 69 6e 74 6f 20 61 |onstruct|s into a|
|00000050| 20 74 65 78 69 6e 66 6f | 20 62 75 66 66 65 72 20 | texinfo| buffer |
|00000060| 74 68 61 74 20 63 6f 6e | 74 61 69 6e 73 0a 6f 6e |that con|tains.on|
|00000070| 6c 79 20 5c 5c 63 68 61 | 70 74 65 72 2c 20 5c 5c |ly \\cha|pter, \\|
|00000080| 73 65 63 74 69 6f 6e 20 | 2e 2e 2e 20 63 6f 6d 6d |section |... comm|
|00000090| 61 6e 64 73 2e 22 0a 20 | 20 20 20 20 20 20 28 69 |ands.". | (i|
|000000a0| 6e 74 65 72 61 63 74 69 | 76 65 29 0a 20 20 20 20 |nteracti|ve). |
|000000b0| 20 20 20 28 73 61 76 65 | 2d 65 78 63 75 72 73 69 | (save|-excursi|
|000000c0| 6f 6e 0a 09 20 20 20 20 | 20 20 28 6c 65 74 20 28 |on.. | (let (|
|000000d0| 63 68 61 70 20 6c 61 73 | 74 2d 63 68 61 70 74 65 |chap las|t-chapte|
|000000e0| 72 0a 09 09 09 20 20 6c | 61 73 74 2d 73 65 63 74 |r.... l|ast-sect|
|000000f0| 69 6f 6e 0a 09 09 09 20 | 20 6c 61 73 74 2d 73 75 |ion.... | last-su|
|00000100| 62 73 65 63 74 69 6f 6e | 0a 09 09 09 20 20 6c 61 |bsection|.... la|
|00000110| 73 74 2d 73 75 62 73 75 | 62 73 65 63 74 69 6f 6e |st-subsu|bsection|
|00000120| 0a 09 09 09 20 20 61 6c | 6c 20 75 70 20 75 70 2d |.... al|l up up-|
|00000130| 61 6c 6c 29 0a 09 09 20 | 20 20 20 20 28 67 6f 74 |all)... | (got|
|00000140| 6f 2d 63 68 61 72 20 28 | 70 6f 69 6e 74 2d 6d 69 |o-char (|point-mi|
|00000150| 6e 29 29 0a 09 09 20 20 | 20 20 20 28 64 65 6c 65 |n))... | (dele|
|00000160| 74 65 2d 6d 61 74 63 68 | 69 6e 67 2d 6c 69 6e 65 |te-match|ing-line|
|00000170| 73 20 22 5e 5e 5c 5c 6e | 6f 64 65 22 29 0a 09 09 |s "^^\\n|ode")...|
|00000180| 20 20 20 20 20 28 67 6f | 74 6f 2d 63 68 61 72 20 | (go|to-char |
|00000190| 28 70 6f 69 6e 74 2d 6d | 69 6e 29 29 0a 09 09 20 |(point-m|in))... |
|000001a0| 20 20 20 20 28 77 68 69 | 6c 65 20 28 72 65 2d 73 | (whi|le (re-s|
|000001b0| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 0a 09 09 |earch-fo|rward...|
|000001c0| 09 09 20 20 20 22 5c 5c | 5c 5c 63 68 61 70 74 65 |.. "\\|\\chapte|
|000001d0| 72 5c 5c 7c 5c 5c 5c 5c | 73 65 63 74 69 6f 6e 5c |r\\|\\\\|section\|
|000001e0| 5c 7c 5c 5c 5c 5c 73 75 | 62 73 65 63 74 69 6f 6e |\|\\\\su|bsection|
|000001f0| 5c 5c 7c 5c 5c 5c 5c 73 | 75 62 73 75 62 73 65 63 |\\|\\\\s|ubsubsec|
|00000200| 74 69 6f 6e 22 0a 09 09 | 09 09 20 20 20 6e 69 6c |tion"...|.. nil|
|00000210| 20 74 29 0a 09 09 09 20 | 20 20 20 28 72 65 2d 73 | t).... | (re-s|
|00000220| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 22 7b |earch-fo|rward "{|
|00000230| 5c 5c 28 5b 5e 7d 5d 2a | 5c 5c 29 7d 22 29 0a 09 |\\([^}]*|\\)}")..|
|00000240| 09 09 20 20 20 20 28 72 | 65 70 6c 61 63 65 2d 6d |.. (r|eplace-m|
|00000250| 61 74 63 68 20 22 7b 5c | 5c 31 7d 5c 6e 5c 5c 5c |atch "{\|\1}\n\\\|
|00000260| 5c 63 69 6e 64 65 78 7b | 5c 5c 31 7d 22 20 74 29 |\cindex{|\\1}" t)|
|00000270| 29 0a 09 09 20 20 20 20 | 20 28 67 6f 74 6f 2d 63 |)... | (goto-c|
|00000280| 68 61 72 20 28 70 6f 69 | 6e 74 2d 6d 69 6e 29 29 |har (poi|nt-min))|
|00000290| 0a 09 09 20 20 20 20 20 | 28 77 68 69 6c 65 20 28 |... |(while (|
|000002a0| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|000002b0| 64 0a 09 09 09 09 20 20 | 20 22 5c 5c 5c 5c 63 68 |d..... | "\\\\ch|
|000002c0| 61 70 74 65 72 5c 5c 7c | 5c 5c 5c 5c 73 65 63 74 |apter\\||\\\\sect|
|000002d0| 69 6f 6e 5c 5c 7c 5c 5c | 5c 5c 73 75 62 73 65 63 |ion\\|\\|\\subsec|
|000002e0| 74 69 6f 6e 5c 5c 7c 5c | 5c 5c 5c 73 75 62 73 75 |tion\\|\|\\\subsu|
|000002f0| 62 73 65 63 74 69 6f 6e | 22 0a 09 09 09 09 20 20 |bsection|"..... |
|00000300| 20 6e 69 6c 20 74 29 0a | 09 09 09 20 20 20 20 28 | nil t).|... (|
|00000310| 6c 65 74 20 28 28 6d 61 | 74 63 68 20 28 62 75 66 |let ((ma|tch (buf|
|00000320| 66 65 72 2d 73 75 62 73 | 74 72 69 6e 67 0a 09 09 |fer-subs|tring...|
|00000330| 09 09 09 09 28 6d 61 74 | 63 68 2d 62 65 67 69 6e |....(mat|ch-begin|
|00000340| 6e 69 6e 67 20 30 29 0a | 09 09 09 09 09 09 28 6d |ning 0).|......(m|
|00000350| 61 74 63 68 2d 65 6e 64 | 20 30 29 29 29 29 0a 09 |atch-end| 0))))..|
|00000360| 09 09 09 20 20 20 28 63 | 6f 6e 64 20 28 28 65 71 |... (c|ond ((eq|
|00000370| 75 61 6c 20 6d 61 74 63 | 68 20 22 5c 5c 63 68 61 |ual matc|h "\\cha|
|00000380| 70 74 65 72 22 29 0a 09 | 09 09 09 09 09 28 73 65 |pter")..|.....(se|
|00000390| 74 71 20 6c 61 73 74 2d | 63 68 61 70 74 65 72 0a |tq last-|chapter.|
|000003a0| 09 09 09 09 09 09 20 20 | 20 20 20 20 20 28 6e 6f |...... | (no|
|000003b0| 64 69 66 79 2d 67 65 74 | 2d 6e 61 6d 65 2d 66 29 |dify-get|-name-f)|
|000003c0| 29 0a 09 09 09 09 09 09 | 28 73 65 74 71 20 75 70 |).......|(setq up|
|000003d0| 20 22 54 6f 70 22 29 29 | 0a 09 09 09 09 09 20 20 | "Top"))|...... |
|000003e0| 28 28 65 71 75 61 6c 20 | 6d 61 74 63 68 20 22 5c |((equal |match "\|
|000003f0| 5c 73 65 63 74 69 6f 6e | 22 29 0a 09 09 09 09 09 |\section|")......|
|00000400| 09 20 28 73 65 74 71 20 | 6c 61 73 74 2d 73 65 63 |. (setq |last-sec|
|00000410| 74 69 6f 6e 0a 09 09 09 | 09 09 09 09 28 6e 6f 64 |tion....|....(nod|
|00000420| 69 66 79 2d 67 65 74 2d | 6e 61 6d 65 2d 66 29 29 |ify-get-|name-f))|
|00000430| 0a 09 09 09 09 09 09 20 | 28 73 65 74 71 20 75 70 |....... |(setq up|
|00000440| 20 6c 61 73 74 2d 63 68 | 61 70 74 65 72 29 29 0a | last-ch|apter)).|
|00000450| 09 09 09 09 09 20 20 28 | 28 65 71 75 61 6c 20 6d |..... (|(equal m|
|00000460| 61 74 63 68 20 22 5c 5c | 73 75 62 73 65 63 74 69 |atch "\\|subsecti|
|00000470| 6f 6e 22 29 0a 09 09 09 | 09 09 09 20 28 73 65 74 |on")....|... (set|
|00000480| 71 20 6c 61 73 74 2d 73 | 75 62 73 65 63 74 69 6f |q last-s|ubsectio|
|00000490| 6e 0a 09 09 09 09 09 09 | 09 28 6e 6f 64 69 66 79 |n.......|.(nodify|
|000004a0| 2d 67 65 74 2d 6e 61 6d | 65 2d 66 29 29 0a 09 09 |-get-nam|e-f))...|
|000004b0| 09 09 09 09 20 28 73 65 | 74 71 20 75 70 20 6c 61 |.... (se|tq up la|
|000004c0| 73 74 2d 73 65 63 74 69 | 6f 6e 29 29 0a 09 09 09 |st-secti|on))....|
|000004d0| 09 09 20 20 28 28 65 71 | 75 61 6c 20 6d 61 74 63 |.. ((eq|ual matc|
|000004e0| 68 20 22 5c 5c 73 75 62 | 73 75 62 73 65 63 74 69 |h "\\sub|subsecti|
|000004f0| 6f 6e 22 29 0a 09 09 09 | 09 09 09 20 28 73 65 74 |on")....|... (set|
|00000500| 71 20 6c 61 73 74 2d 73 | 75 62 73 75 62 73 65 63 |q last-s|ubsubsec|
|00000510| 74 69 6f 6e 0a 09 09 09 | 09 09 09 09 28 6e 6f 64 |tion....|....(nod|
|00000520| 69 66 79 2d 67 65 74 2d | 6e 61 6d 65 2d 66 29 29 |ify-get-|name-f))|
|00000530| 0a 09 09 09 09 09 09 20 | 28 73 65 74 71 20 75 70 |....... |(setq up|
|00000540| 20 6c 61 73 74 2d 73 75 | 62 73 65 63 74 69 6f 6e | last-su|bsection|
|00000550| 29 29 0a 09 09 09 09 09 | 20 20 28 74 20 28 6d 65 |))......| (t (me|
|00000560| 73 73 61 67 65 20 22 48 | 65 6c 70 20 2d 20 6e 6f |ssage "H|elp - no|
|00000570| 20 6d 61 74 63 68 20 20 | 25 73 22 20 6d 61 74 63 | match |%s" matc|
|00000580| 68 29 20 28 73 69 74 2d | 66 6f 72 20 31 30 29 29 |h) (sit-|for 10))|
|00000590| 29 0a 09 09 09 20 20 20 | 20 28 73 65 74 71 20 75 |).... | (setq u|
|000005a0| 70 2d 61 6c 6c 20 28 63 | 6f 6e 73 20 75 70 20 75 |p-all (c|ons up u|
|000005b0| 70 2d 61 6c 6c 29 29 0a | 09 09 09 20 20 20 20 28 |p-all)).|... (|
|000005c0| 69 66 20 28 62 6f 6c 70 | 29 20 28 66 6f 72 77 61 |if (bolp|) (forwa|
|000005d0| 72 64 2d 63 68 61 72 20 | 31 29 29 0a 09 09 09 20 |rd-char |1)).... |
|000005e0| 20 20 20 28 73 65 74 71 | 20 61 6c 6c 20 28 63 6f | (setq| all (co|
|000005f0| 6e 73 20 28 63 6f 75 6e | 74 2d 6c 69 6e 65 73 20 |ns (coun|t-lines |
|00000600| 31 20 28 70 6f 69 6e 74 | 29 29 20 61 6c 6c 29 29 |1 (point|)) all))|
|00000610| 29 0a 09 09 09 20 20 20 | 20 29 0a 09 09 20 20 20 |).... | )... |
|00000620| 20 20 28 73 65 74 71 20 | 73 61 76 65 2d 61 6c 6c | (setq |save-all|
|00000630| 20 61 6c 6c 29 0a 09 09 | 20 20 20 20 20 28 6d 65 | all)...| (me|
|00000640| 73 73 61 67 65 20 22 64 | 6f 69 6e 67 20 74 68 65 |ssage "d|oing the|
|00000650| 20 6c 61 73 74 20 73 65 | 63 74 69 6f 6e 22 29 20 | last se|ction") |
|00000660| 28 73 69 74 2d 66 6f 72 | 20 31 29 0a 09 09 20 20 |(sit-for| 1)... |
|00000670| 20 20 20 28 67 6f 74 6f | 2d 6c 69 6e 65 20 28 63 | (goto|-line (c|
|00000680| 61 72 20 61 6c 6c 29 29 | 0a 09 09 20 20 20 20 20 |ar all))|... |
|00000690| 28 69 6e 73 65 72 74 20 | 22 5c 5c 6e 6f 64 65 7b |(insert |"\\node{|
|000006a0| 22 0a 09 09 09 20 20 20 | 20 28 6e 6f 64 69 66 79 |".... | (nodify|
|000006b0| 2d 67 65 74 2d 6e 61 6d | 65 2d 61 74 2d 6c 69 6e |-get-nam|e-at-lin|
|000006c0| 65 20 28 63 61 72 20 61 | 6c 6c 29 29 0a 09 09 09 |e (car a|ll))....|
|000006d0| 20 20 20 20 22 7d 22 29 | 0a 09 28 6e 6f 64 69 66 | "}")|..(nodif|
|000006e0| 79 2d 69 6e 73 65 72 74 | 2d 74 6f 2d 63 63 29 20 |y-insert|-to-cc) |
|000006f0| 28 69 6e 73 65 72 74 20 | 22 5c 5c 63 20 54 68 69 |(insert |"\\c Thi|
|00000700| 73 5c 6e 5c 74 7b 22 0a | 09 09 09 20 20 20 20 22 |s\n\t{".|... "|
|00000710| 54 6f 70 22 0a 09 09 09 | 20 20 20 20 22 7d 22 29 |Top"....| "}")|
|00000720| 0a 09 28 6e 6f 64 69 66 | 79 2d 69 6e 73 65 72 74 |..(nodif|y-insert|
|00000730| 2d 74 6f 2d 63 63 29 20 | 28 69 6e 73 65 72 74 20 |-to-cc) |(insert |
|00000740| 22 5c 5c 63 20 4e 65 78 | 74 5c 6e 5c 74 7b 22 0a |"\\c Nex|t\n\t{".|
|00000750| 09 09 09 20 20 20 20 28 | 6e 6f 64 69 66 79 2d 67 |... (|nodify-g|
|00000760| 65 74 2d 6e 61 6d 65 2d | 61 74 2d 6c 69 6e 65 20 |et-name-|at-line |
|00000770| 28 63 61 64 72 20 61 6c | 6c 29 29 0a 09 09 09 20 |(cadr al|l)).... |
|00000780| 20 20 20 22 7d 22 29 0a | 09 28 6e 6f 64 69 66 79 | "}").|.(nodify|
|00000790| 2d 69 6e 73 65 72 74 2d | 74 6f 2d 63 63 29 20 28 |-insert-|to-cc) (|
|000007a0| 69 6e 73 65 72 74 20 22 | 5c 5c 63 20 50 72 65 76 |insert "|\\c Prev|
|000007b0| 5c 6e 5c 74 7b 22 0a 09 | 09 09 20 20 20 20 28 63 |\n\t{"..|.. (c|
|000007c0| 61 72 20 75 70 2d 61 6c | 6c 29 0a 09 09 09 20 20 |ar up-al|l).... |
|000007d0| 20 20 22 7d 22 29 0a 09 | 28 6e 6f 64 69 66 79 2d | "}")..|(nodify-|
|000007e0| 69 6e 73 65 72 74 2d 74 | 6f 2d 63 63 29 20 28 69 |insert-t|o-cc) (i|
|000007f0| 6e 73 65 72 74 20 22 5c | 5c 63 20 55 70 5c 6e 22 |nsert "\|\c Up\n"|
|00000800| 29 0a 09 09 20 20 20 20 | 20 28 6d 65 73 73 61 67 |)... | (messag|
|00000810| 65 20 22 64 6f 69 6e 67 | 20 74 68 65 20 6f 74 68 |e "doing| the oth|
|00000820| 65 72 20 73 65 63 74 69 | 6f 6e 73 22 29 20 28 73 |er secti|ons") (s|
|00000830| 69 74 2d 66 6f 72 20 31 | 29 0a 09 09 20 20 20 20 |it-for 1|)... |
|00000840| 20 28 77 68 69 6c 65 20 | 28 3e 20 28 6c 65 6e 67 | (while |(> (leng|
|00000850| 74 68 20 61 6c 6c 29 20 | 32 29 0a 09 09 09 20 20 |th all) |2).... |
|00000860| 20 20 28 67 6f 74 6f 2d | 6c 69 6e 65 20 28 63 61 | (goto-|line (ca|
|00000870| 64 72 20 61 6c 6c 29 29 | 0a 09 09 09 20 20 20 20 |dr all))|.... |
|00000880| 28 6c 65 74 20 28 28 63 | 75 72 20 28 63 61 64 72 |(let ((c|ur (cadr|
|00000890| 20 61 6c 6c 29 29 0a 09 | 09 09 09 09 28 6e 65 78 | all))..|....(nex|
|000008a0| 74 20 28 31 2b 20 28 63 | 61 72 20 61 6c 6c 29 29 |t (1+ (c|ar all))|
|000008b0| 29 0a 09 09 09 09 09 28 | 70 72 65 76 20 28 63 61 |)......(|prev (ca|
|000008c0| 64 64 72 20 61 6c 6c 29 | 29 0a 09 09 09 09 09 28 |ddr all)|)......(|
|000008d0| 75 70 20 28 63 61 64 72 | 20 75 70 2d 61 6c 6c 29 |up (cadr| up-all)|
|000008e0| 29 29 0a 09 09 09 09 20 | 20 20 28 69 6e 73 65 72 |))..... | (inser|
|000008f0| 74 20 22 5c 5c 6e 6f 64 | 65 7b 22 0a 09 09 09 09 |t "\\nod|e{".....|
|00000900| 09 20 20 28 6e 6f 64 69 | 66 79 2d 67 65 74 2d 6e |. (nodi|fy-get-n|
|00000910| 61 6d 65 2d 61 74 2d 6c | 69 6e 65 20 63 75 72 29 |ame-at-l|ine cur)|
|00000920| 0a 09 09 09 09 09 20 20 | 22 7d 22 29 0a 09 28 6e |...... |"}")..(n|
|00000930| 6f 64 69 66 79 2d 69 6e | 73 65 72 74 2d 74 6f 2d |odify-in|sert-to-|
|00000940| 63 63 29 20 28 69 6e 73 | 65 72 74 20 22 5c 5c 63 |cc) (ins|ert "\\c|
|00000950| 20 54 68 69 73 5c 6e 5c | 74 7b 22 0a 09 09 09 09 | This\n\|t{".....|
|00000960| 09 20 20 28 6e 6f 64 69 | 66 79 2d 67 65 74 2d 6e |. (nodi|fy-get-n|
|00000970| 61 6d 65 2d 61 74 2d 6c | 69 6e 65 20 6e 65 78 74 |ame-at-l|ine next|
|00000980| 29 0a 09 09 09 09 09 20 | 20 22 7d 22 29 0a 09 28 |)...... | "}")..(|
|00000990| 6e 6f 64 69 66 79 2d 69 | 6e 73 65 72 74 2d 74 6f |nodify-i|nsert-to|
|000009a0| 2d 63 63 29 20 28 69 6e | 73 65 72 74 20 22 5c 5c |-cc) (in|sert "\\|
|000009b0| 63 20 4e 65 78 74 5c 6e | 5c 74 7b 22 0a 09 09 09 |c Next\n|\t{"....|
|000009c0| 09 09 20 20 28 6e 6f 64 | 69 66 79 2d 67 65 74 2d |.. (nod|ify-get-|
|000009d0| 6e 61 6d 65 2d 61 74 2d | 6c 69 6e 65 20 70 72 65 |name-at-|line pre|
|000009e0| 76 29 0a 09 09 09 09 09 | 20 20 22 7d 22 29 0a 09 |v)......| "}")..|
|000009f0| 28 6e 6f 64 69 66 79 2d | 69 6e 73 65 72 74 2d 74 |(nodify-|insert-t|
|00000a00| 6f 2d 63 63 29 20 28 69 | 6e 73 65 72 74 20 22 5c |o-cc) (i|nsert "\|
|00000a10| 5c 63 20 50 72 65 76 5c | 6e 5c 74 7b 22 0a 09 09 |\c Prev\|n\t{"...|
|00000a20| 09 09 09 20 20 75 70 0a | 09 09 09 09 09 20 20 22 |... up.|..... "|
|00000a30| 7d 22 29 0a 09 28 6e 6f | 64 69 66 79 2d 69 6e 73 |}")..(no|dify-ins|
|00000a40| 65 72 74 2d 74 6f 2d 63 | 63 29 20 28 69 6e 73 65 |ert-to-c|c) (inse|
|00000a50| 72 74 20 22 5c 5c 63 20 | 55 70 5c 6e 22 29 29 0a |rt "\\c |Up\n")).|
|00000a60| 09 09 09 20 20 20 20 28 | 73 65 74 71 20 75 70 2d |... (|setq up-|
|00000a70| 61 6c 6c 20 28 63 64 72 | 20 75 70 2d 61 6c 6c 29 |all (cdr| up-all)|
|00000a80| 29 0a 09 09 09 20 20 20 | 20 28 73 65 74 71 20 61 |).... | (setq a|
|00000a90| 6c 6c 20 28 63 64 72 20 | 61 6c 6c 29 29 29 0a 09 |ll (cdr |all)))..|
|00000aa0| 09 20 20 20 20 20 28 6d | 65 73 73 61 67 65 20 22 |. (m|essage "|
|00000ab0| 64 6f 69 6e 67 20 74 68 | 65 20 6f 74 68 65 72 20 |doing th|e other |
|00000ac0| 73 65 63 74 69 6f 6e 73 | 2e 2e 2e 64 6f 6e 65 22 |sections|...done"|
|00000ad0| 29 20 28 73 69 74 2d 66 | 6f 72 20 31 29 0a 09 09 |) (sit-f|or 1)...|
|00000ae0| 20 20 20 20 20 28 67 6f | 74 6f 2d 6c 69 6e 65 20 | (go|to-line |
|00000af0| 28 63 61 64 72 20 61 6c | 6c 29 29 0a 09 09 20 20 |(cadr al|l))... |
|00000b00| 20 20 20 28 69 6e 73 65 | 72 74 20 22 5c 5c 6e 6f | (inse|rt "\\no|
|00000b10| 64 65 7b 22 0a 09 09 09 | 20 20 20 20 28 6e 6f 64 |de{"....| (nod|
|00000b20| 69 66 79 2d 67 65 74 2d | 6e 61 6d 65 2d 61 74 2d |ify-get-|name-at-|
|00000b30| 6c 69 6e 65 20 28 63 61 | 64 72 20 61 6c 6c 29 29 |line (ca|dr all))|
|00000b40| 20 22 7d 7b 22 0a 09 09 | 09 20 20 20 20 28 6e 6f | "}{"...|. (no|
|00000b50| 64 69 66 79 2d 67 65 74 | 2d 6e 61 6d 65 2d 61 74 |dify-get|-name-at|
|00000b60| 2d 6c 69 6e 65 20 28 31 | 2b 20 28 63 61 72 20 61 |-line (1|+ (car a|
|00000b70| 6c 6c 29 29 29 0a 09 09 | 09 20 20 20 20 22 7d 7b |ll)))...|. "}{|
|00000b80| 54 6f 70 7d 7b 54 6f 70 | 7d 5c 6e 22 29 0a 09 09 |Top}{Top|}\n")...|
|00000b90| 20 20 20 20 20 28 67 6f | 74 6f 2d 63 68 61 72 20 | (go|to-char |
|00000ba0| 28 70 6f 69 6e 74 2d 6d | 69 6e 29 29 0a 09 09 20 |(point-m|in))... |
|00000bb0| 20 20 20 20 28 69 66 20 | 28 72 65 2d 73 65 61 72 | (if |(re-sear|
|00000bc0| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 5e 5c 5c 5c |ch-forwa|rd "^\\\|
|00000bd0| 5c 73 65 74 66 69 6c 65 | 6e 61 6d 65 22 20 6e 69 |\setfile|name" ni|
|00000be0| 6c 20 74 29 0a 09 09 09 | 20 20 20 20 28 70 72 6f |l t)....| (pro|
|00000bf0| 67 6e 0a 09 09 09 09 20 | 20 20 28 66 6f 72 77 61 |gn..... | (forwa|
|00000c00| 72 64 2d 6c 69 6e 65 20 | 31 29 0a 09 09 09 09 20 |rd-line |1)..... |
|00000c10| 20 20 28 69 6e 73 65 72 | 74 20 22 5c 5c 6e 6f 64 | (inser|t "\\nod|
|00000c20| 65 7b 22 0a 09 09 09 09 | 09 20 20 20 22 54 6f 70 |e{".....|. "Top|
|00000c30| 22 0a 09 09 09 09 09 20 | 20 22 7d 22 29 0a 09 28 |"...... | "}")..(|
|00000c40| 6e 6f 64 69 66 79 2d 69 | 6e 73 65 72 74 2d 74 6f |nodify-i|nsert-to|
|00000c50| 2d 63 63 29 20 28 69 6e | 73 65 72 74 20 22 5c 5c |-cc) (in|sert "\\|
|00000c60| 63 20 54 68 69 73 5c 6e | 5c 74 7b 22 0a 09 09 09 |c This\n|\t{"....|
|00000c70| 09 09 20 20 20 28 6e 6f | 64 69 66 79 2d 67 65 74 |.. (no|dify-get|
|00000c80| 2d 6e 61 6d 65 2d 61 74 | 2d 6c 69 6e 65 0a 09 09 |-name-at|-line...|
|00000c90| 09 09 09 20 20 20 20 28 | 31 2b 20 28 63 61 64 72 |... (|1+ (cadr|
|00000ca0| 20 61 6c 6c 29 29 29 0a | 09 09 09 09 09 20 20 22 | all))).|..... "|
|00000cb0| 7d 22 29 0a 09 28 6e 6f | 64 69 66 79 2d 69 6e 73 |}")..(no|dify-ins|
|00000cc0| 65 72 74 2d 74 6f 2d 63 | 63 29 20 28 69 6e 73 65 |ert-to-c|c) (inse|
|00000cd0| 72 74 20 22 5c 5c 63 20 | 4e 65 78 74 5c 6e 5c 74 |rt "\\c |Next\n\t|
|00000ce0| 7b 22 0a 09 09 09 09 09 | 20 20 20 22 28 64 69 72 |{"......| "(dir|
|00000cf0| 29 54 6f 70 22 0a 09 09 | 09 09 09 20 20 22 7d 22 |)Top"...|... "}"|
|00000d00| 29 0a 09 28 6e 6f 64 69 | 66 79 2d 69 6e 73 65 72 |)..(nodi|fy-inser|
|00000d10| 74 2d 74 6f 2d 63 63 29 | 20 28 69 6e 73 65 72 74 |t-to-cc)| (insert|
|00000d20| 20 22 5c 5c 63 20 50 72 | 65 76 5c 6e 5c 74 7b 22 | "\\c Pr|ev\n\t{"|
|00000d30| 0a 09 09 09 09 09 20 20 | 20 22 28 64 69 72 29 54 |...... | "(dir)T|
|00000d40| 6f 70 7d 22 0a 09 09 09 | 09 09 20 20 22 7d 22 29 |op}"....|.. "}")|
|00000d50| 0a 09 28 6e 6f 64 69 66 | 79 2d 69 6e 73 65 72 74 |..(nodif|y-insert|
|00000d60| 2d 74 6f 2d 63 63 29 20 | 28 69 6e 73 65 72 74 20 |-to-cc) |(insert |
|00000d70| 22 5c 5c 63 20 55 70 5c | 6e 22 29 29 0a 09 09 20 |"\\c Up\|n"))... |
|00000d80| 20 20 20 20 20 20 29 0a | 09 09 20 20 20 20 20 28 | ).|.. (|
|00000d90| 6d 65 73 73 61 67 65 20 | 22 64 6f 69 6e 67 20 74 |message |"doing t|
|00000da0| 68 65 20 63 68 61 70 74 | 65 72 20 6d 65 6e 75 73 |he chapt|er menus|
|00000db0| 22 29 20 28 73 69 74 2d | 66 6f 72 20 31 29 0a 09 |") (sit-|for 1)..|
|00000dc0| 09 20 20 20 20 20 28 6e | 6f 64 69 66 79 2d 63 68 |. (n|odify-ch|
|00000dd0| 61 70 74 65 72 2d 6d 65 | 6e 75 73 29 0a 09 09 20 |apter-me|nus)... |
|00000de0| 20 20 20 20 28 6d 65 73 | 73 61 67 65 20 22 64 6f | (mes|sage "do|
|00000df0| 69 6e 67 20 74 68 65 20 | 63 68 61 70 74 65 72 20 |ing the |chapter |
|00000e00| 6d 65 6e 75 73 2e 2e 2e | 64 6f 6e 65 22 29 20 28 |menus...|done") (|
|00000e10| 73 69 74 2d 66 6f 72 20 | 31 29 0a 09 09 20 20 20 |sit-for |1)... |
|00000e20| 20 20 29 29 29 0a 0a 28 | 64 65 66 75 6e 20 6e 6f | )))..(|defun no|
|00000e30| 64 69 66 79 2d 63 68 61 | 70 74 65 72 2d 6d 65 6e |dify-cha|pter-men|
|00000e40| 75 73 20 28 29 0a 20 20 | 20 20 20 20 20 28 6c 65 |us (). | (le|
|00000e50| 74 20 28 63 68 61 70 20 | 28 65 6f 63 20 28 70 6f |t (chap |(eoc (po|
|00000e60| 69 6e 74 2d 6d 61 78 29 | 29 29 0a 09 20 20 20 20 |int-max)|)).. |
|00000e70| 20 20 28 67 6f 74 6f 2d | 63 68 61 72 20 28 70 6f | (goto-|char (po|
|00000e80| 69 6e 74 2d 6d 61 78 29 | 29 0a 09 20 20 20 20 20 |int-max)|).. |
|00000e90| 20 28 77 68 69 6c 65 20 | 28 72 65 2d 73 65 61 72 | (while |(re-sear|
|00000ea0| 63 68 2d 62 61 63 6b 77 | 61 72 64 20 22 5e 2e 63 |ch-backw|ard "^.c|
|00000eb0| 68 61 70 74 65 72 22 20 | 6e 69 6c 20 74 29 0a 09 |hapter" |nil t)..|
|00000ec0| 09 20 20 20 20 20 28 73 | 65 74 71 20 63 68 61 70 |. (s|etq chap|
|00000ed0| 20 28 63 6f 6e 73 20 28 | 6e 6f 64 69 66 79 2d 67 | (cons (|nodify-g|
|00000ee0| 65 74 2d 6e 61 6d 65 29 | 20 63 68 61 70 29 29 0a |et-name)| chap)).|
|00000ef0| 09 09 20 20 20 20 20 28 | 6d 61 6b 65 2d 73 65 63 |.. (|make-sec|
|00000f00| 74 69 6f 6e 2d 6d 65 6e | 75 20 22 5c 5c 5c 5c 73 |tion-men|u "\\\\s|
|00000f10| 65 63 74 69 6f 6e 22 20 | 28 70 6f 69 6e 74 29 20 |ection" |(point) |
|00000f20| 65 6f 63 29 0a 09 09 20 | 20 20 20 20 28 73 65 74 |eoc)... | (set|
|00000f30| 71 20 65 6f 63 20 28 70 | 6f 69 6e 74 29 29 29 0a |q eoc (p|oint))).|
|00000f40| 09 20 20 20 20 20 20 28 | 67 6f 74 6f 2d 63 68 61 |. (|goto-cha|
|00000f50| 72 20 28 70 6f 69 6e 74 | 2d 6d 69 6e 29 29 0a 09 |r (point|-min))..|
|00000f60| 20 20 20 20 20 20 28 69 | 66 20 28 72 65 2d 73 65 | (i|f (re-se|
|00000f70| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 22 5c 5c |arch-for|ward "\\|
|00000f80| 63 68 61 70 74 65 72 22 | 20 6e 69 6c 20 74 29 0a |chapter"| nil t).|
|00000f90| 09 09 20 20 20 20 20 28 | 6d 61 6b 65 2d 6d 65 6e |.. (|make-men|
|00000fa0| 75 20 63 68 61 70 29 29 | 0a 09 20 20 20 20 20 20 |u chap))|.. |
|00000fb0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 6d 61 6b 65 2d |))..(def|un make-|
|00000fc0| 73 65 63 74 69 6f 6e 2d | 6d 65 6e 75 20 28 73 65 |section-|menu (se|
|00000fd0| 63 74 69 6f 6e 20 74 6f | 70 20 62 6f 74 29 0a 20 |ction to|p bot). |
|00000fe0| 20 20 20 20 20 20 28 73 | 61 76 65 2d 65 78 63 75 | (s|ave-excu|
|00000ff0| 72 73 69 6f 6e 0a 09 20 | 20 20 20 20 20 28 6c 65 |rsion.. | (le|
|00001000| 74 20 28 63 68 61 70 29 | 0a 09 09 20 20 20 20 20 |t (chap)|... |
|00001010| 28 67 6f 74 6f 2d 63 68 | 61 72 20 62 6f 74 29 0a |(goto-ch|ar bot).|
|00001020| 09 09 20 20 20 20 20 28 | 77 68 69 6c 65 20 28 72 |.. (|while (r|
|00001030| 65 2d 73 65 61 72 63 68 | 2d 62 61 63 6b 77 61 72 |e-search|-backwar|
|00001040| 64 20 73 65 63 74 69 6f | 6e 20 74 6f 70 20 74 29 |d sectio|n top t)|
|00001050| 0a 09 09 09 20 20 20 20 | 28 73 65 74 71 20 63 68 |.... |(setq ch|
|00001060| 61 70 20 28 63 6f 6e 73 | 20 28 6e 6f 64 69 66 79 |ap (cons| (nodify|
|00001070| 2d 67 65 74 2d 6e 61 6d | 65 29 20 63 68 61 70 29 |-get-nam|e) chap)|
|00001080| 29 29 0a 09 09 20 20 20 | 20 20 28 67 6f 74 6f 2d |))... | (goto-|
|00001090| 63 68 61 72 20 74 6f 70 | 29 0a 09 09 20 20 20 20 |char top|)... |
|000010a0| 20 28 69 66 20 28 3e 20 | 28 6c 65 6e 67 74 68 20 | (if (> |(length |
|000010b0| 63 68 61 70 29 20 31 29 | 0a 09 09 09 20 20 20 20 |chap) 1)|.... |
|000010c0| 28 70 72 6f 67 6e 0a 09 | 09 09 09 20 20 20 28 72 |(progn..|... (r|
|000010d0| 65 2d 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e-search|-forward|
|000010e0| 20 73 65 63 74 69 6f 6e | 20 62 6f 74 20 74 29 0a | section| bot t).|
|000010f0| 09 09 09 09 20 20 20 28 | 6d 61 6b 65 2d 6d 65 6e |.... (|make-men|
|00001100| 75 20 63 68 61 70 29 29 | 29 0a 09 09 20 20 20 20 |u chap))|)... |
|00001110| 20 63 68 61 70 29 0a 09 | 20 20 20 20 20 20 29 0a | chap)..| ).|
|00001120| 20 20 20 20 20 20 20 29 | 0a 0a 28 64 65 66 75 6e | )|..(defun|
|00001130| 20 6d 61 6b 65 2d 6d 65 | 6e 75 20 28 63 68 61 70 | make-me|nu (chap|
|00001140| 29 0a 20 20 20 20 20 20 | 20 28 66 6f 72 77 61 72 |). | (forwar|
|00001150| 64 2d 6c 69 6e 65 20 2d | 31 29 0a 20 20 20 20 20 |d-line -|1). |
|00001160| 20 20 28 69 6e 73 65 72 | 74 20 22 5c 6e 5c 5c 62 | (inser|t "\n\\b|
|00001170| 65 67 69 6e 7b 6d 65 6e | 75 7d 5c 6e 22 29 0a 20 |egin{men|u}\n"). |
|00001180| 20 20 20 20 20 20 28 77 | 68 69 6c 65 20 28 63 61 | (w|hile (ca|
|00001190| 72 20 63 68 61 70 29 0a | 09 20 20 20 20 20 20 28 |r chap).|. (|
|000011a0| 69 6e 73 65 72 74 20 22 | 2a 20 22 20 28 63 61 72 |insert "|* " (car|
|000011b0| 20 63 68 61 70 29 20 22 | 3a 3a 5c 6e 22 29 0a 09 | chap) "|::\n")..|
|000011c0| 20 20 20 20 20 20 28 73 | 65 74 71 20 63 68 61 70 | (s|etq chap|
|000011d0| 20 28 63 64 72 20 63 68 | 61 70 29 29 29 0a 20 20 | (cdr ch|ap))). |
|000011e0| 20 20 20 20 20 28 69 6e | 73 65 72 74 20 22 5c 5c | (in|sert "\\|
|000011f0| 65 6e 64 7b 6d 65 6e 75 | 7d 5c 6e 5c 6e 22 29 29 |end{menu|}\n\n"))|
|00001200| 0a 0a 28 64 65 66 75 6e | 20 6e 6f 64 69 66 79 2d |..(defun| nodify-|
|00001210| 67 65 74 2d 6e 61 6d 65 | 2d 61 74 2d 6c 69 6e 65 |get-name|-at-line|
|00001220| 20 28 6c 69 6e 65 6e 6f | 29 0a 20 20 20 20 20 20 | (lineno|). |
|00001230| 20 28 73 61 76 65 2d 65 | 78 63 75 72 73 69 6f 6e | (save-e|xcursion|
|00001240| 0a 09 20 20 20 20 20 20 | 28 67 6f 74 6f 2d 6c 69 |.. |(goto-li|
|00001250| 6e 65 20 28 2b 20 31 20 | 6c 69 6e 65 6e 6f 29 29 |ne (+ 1 |lineno))|
|00001260| 0a 09 20 20 20 20 20 20 | 28 6e 6f 64 69 66 79 2d |.. |(nodify-|
|00001270| 67 65 74 2d 6e 61 6d 65 | 29 29 29 0a 0a 28 64 65 |get-name|)))..(de|
|00001280| 66 75 6e 20 6e 6f 64 69 | 66 79 2d 67 65 74 2d 6e |fun nodi|fy-get-n|
|00001290| 61 6d 65 20 28 29 0a 20 | 20 20 20 20 20 20 28 73 |ame (). | (s|
|000012a0| 61 76 65 2d 65 78 63 75 | 72 73 69 6f 6e 0a 09 20 |ave-excu|rsion.. |
|000012b0| 20 20 20 20 20 28 62 75 | 66 66 65 72 2d 73 75 62 | (bu|ffer-sub|
|000012c0| 73 74 72 69 6e 67 0a 09 | 20 20 20 20 20 20 28 70 |string..| (p|
|000012d0| 72 6f 67 6e 20 28 66 6f | 72 77 61 72 64 2d 77 6f |rogn (fo|rward-wo|
|000012e0| 72 64 20 31 29 0a 09 09 | 20 20 20 20 20 28 73 6b |rd 1)...| (sk|
|000012f0| 69 70 2d 63 68 61 72 73 | 2d 66 6f 72 77 61 72 64 |ip-chars|-forward|
|00001300| 20 22 2a 20 7b 22 29 0a | 09 09 20 20 20 20 20 3b | "* {").|.. ;|
|00001310| 3b 20 28 69 66 20 28 6c | 6f 6f 6b 69 6e 67 2d 61 |; (if (l|ooking-a|
|00001320| 74 20 22 5b 20 7b 5d 22 | 29 20 28 66 6f 72 77 61 |t "[ {]"|) (forwa|
|00001330| 72 64 2d 63 68 61 72 20 | 31 29 29 0a 09 09 20 20 |rd-char |1))... |
|00001340| 20 20 20 28 70 6f 69 6e | 74 29 29 0a 09 20 20 20 | (poin|t)).. |
|00001350| 20 20 20 28 70 72 6f 67 | 6e 20 28 65 6e 64 2d 6f | (prog|n (end-o|
|00001360| 66 2d 6c 69 6e 65 29 20 | 28 66 6f 72 77 61 72 64 |f-line) |(forward|
|00001370| 2d 63 68 61 72 20 2d 31 | 29 20 28 70 6f 69 6e 74 |-char -1|) (point|
|00001380| 29 29 29 29 29 0a 0a 28 | 64 65 66 75 6e 20 6e 6f |)))))..(|defun no|
|00001390| 64 69 66 79 2d 67 65 74 | 2d 6e 61 6d 65 2d 66 20 |dify-get|-name-f |
|000013a0| 28 29 0a 20 20 20 20 20 | 20 20 28 73 61 76 65 2d |(). | (save-|
|000013b0| 65 78 63 75 72 73 69 6f | 6e 0a 09 20 28 62 75 66 |excursio|n.. (buf|
|000013c0| 66 65 72 2d 73 75 62 73 | 74 72 69 6e 67 0a 09 20 |fer-subs|tring.. |
|000013d0| 20 28 70 72 6f 67 6e 20 | 0a 09 20 20 20 20 28 73 | (progn |.. (s|
|000013e0| 6b 69 70 2d 63 68 61 72 | 73 2d 66 6f 72 77 61 72 |kip-char|s-forwar|
|000013f0| 64 20 22 2a 20 7b 22 29 | 0a 09 20 20 20 20 28 70 |d "* {")|.. (p|
|00001400| 6f 69 6e 74 29 29 0a 09 | 20 20 28 70 72 6f 67 6e |oint))..| (progn|
|00001410| 20 28 65 6e 64 2d 6f 66 | 2d 6c 69 6e 65 29 20 28 | (end-of|-line) (|
|00001420| 66 6f 72 77 61 72 64 2d | 63 68 61 72 20 2d 31 29 |forward-|char -1)|
|00001430| 20 28 70 6f 69 6e 74 29 | 29 29 29 29 0a 0a 28 64 | (point)|))))..(d|
|00001440| 65 66 75 6e 20 6e 6f 64 | 69 66 79 2d 69 6e 73 65 |efun nod|ify-inse|
|00001450| 72 74 2d 74 6f 2d 63 63 | 20 28 29 0a 20 20 28 6c |rt-to-cc| (). (l|
|00001460| 65 74 20 28 28 63 63 20 | 28 63 75 72 72 65 6e 74 |et ((cc |(current|
|00001470| 2d 63 6f 6c 75 6d 6e 29 | 29 29 0a 20 20 20 20 20 |-column)|)). |
|00001480| 28 69 66 20 28 3c 20 63 | 63 20 63 6f 6d 6d 65 6e |(if (< c|c commen|
|00001490| 74 2d 63 6f 6c 75 6d 6e | 29 0a 09 20 28 69 6e 73 |t-column|).. (ins|
|000014a0| 65 72 74 20 28 6d 61 6b | 65 2d 73 74 72 69 6e 67 |ert (mak|e-string|
|000014b0| 20 28 2d 20 63 6f 6d 6d | 65 6e 74 2d 63 6f 6c 75 | (- comm|ent-colu|
|000014c0| 6d 6e 20 63 63 29 20 33 | 32 29 29 29 29 29 0a 0a |mn cc) 3|2)))))..|
|000014d0| 28 64 65 66 75 6e 20 63 | 61 64 72 20 28 78 29 0a |(defun c|adr (x).|
|000014e0| 20 20 20 20 20 20 20 28 | 63 61 72 20 28 63 64 72 | (|car (cdr|
|000014f0| 20 78 29 29 29 0a 28 64 | 65 66 75 6e 20 63 61 64 | x))).(d|efun cad|
|00001500| 64 72 20 28 78 29 0a 20 | 20 20 20 20 20 20 28 63 |dr (x). | (c|
|00001510| 61 72 20 28 63 64 72 20 | 28 63 64 72 20 78 29 29 |ar (cdr |(cdr x))|
|00001520| 29 29 0a 0a | |)).. | |
+--------+-------------------------+-------------------------+--------+--------+
