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
| fmt/281 LaTeX (Subdocument)
| 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 28 64 65 66 | 75 6e 20 6e 6f 64 69 66 |il).(def|un nodif|
|00000020| 79 2d 66 69 6c 65 20 28 | 29 20 22 0a 49 6e 73 65 |y-file (|) ".Inse|
|00000030| 72 74 20 74 68 65 20 5c | 5c 6e 6f 64 65 20 63 6f |rt the \|\node co|
|00000040| 6e 73 74 72 75 63 74 73 | 20 69 6e 74 6f 20 61 20 |nstructs| into a |
|00000050| 74 65 78 69 6e 66 6f 20 | 62 75 66 66 65 72 20 74 |texinfo |buffer t|
|00000060| 68 61 74 20 63 6f 6e 74 | 61 69 6e 73 0a 6f 6e 6c |hat cont|ains.onl|
|00000070| 79 20 5c 5c 63 68 61 70 | 74 65 72 2c 20 5c 5c 73 |y \\chap|ter, \\s|
|00000080| 65 63 74 69 6f 6e 20 2e | 2e 2e 20 63 6f 6d 6d 61 |ection .|.. comma|
|00000090| 6e 64 73 2e 22 0a 20 20 | 20 20 20 20 20 28 69 6e |nds.". | (in|
|000000a0| 74 65 72 61 63 74 69 76 | 65 29 0a 20 20 20 20 20 |teractiv|e). |
|000000b0| 20 20 28 73 61 76 65 2d | 65 78 63 75 72 73 69 6f | (save-|excursio|
|000000c0| 6e 0a 09 20 20 20 20 20 | 20 28 6c 65 74 20 28 63 |n.. | (let (c|
|000000d0| 68 61 70 20 6c 61 73 74 | 2d 63 68 61 70 74 65 72 |hap last|-chapter|
|000000e0| 0a 09 09 09 20 20 6c 61 | 73 74 2d 73 65 63 74 69 |.... la|st-secti|
|000000f0| 6f 6e 0a 09 09 09 20 20 | 6c 61 73 74 2d 73 75 62 |on.... |last-sub|
|00000100| 73 65 63 74 69 6f 6e 0a | 09 09 09 20 20 6c 61 73 |section.|... las|
|00000110| 74 2d 73 75 62 73 75 62 | 73 65 63 74 69 6f 6e 0a |t-subsub|section.|
|00000120| 09 09 09 20 20 61 6c 6c | 20 75 70 20 75 70 2d 61 |... all| up up-a|
|00000130| 6c 6c 29 0a 09 09 20 20 | 20 20 20 28 67 6f 74 6f |ll)... | (goto|
|00000140| 2d 63 68 61 72 20 28 70 | 6f 69 6e 74 2d 6d 69 6e |-char (p|oint-min|
|00000150| 29 29 0a 09 09 20 20 20 | 20 20 28 64 65 6c 65 74 |))... | (delet|
|00000160| 65 2d 6d 61 74 63 68 69 | 6e 67 2d 6c 69 6e 65 73 |e-matchi|ng-lines|
|00000170| 20 22 5e 5c 5c 6e 6f 64 | 65 22 29 0a 09 09 20 20 | "^\\nod|e")... |
|00000180| 20 20 20 28 67 6f 74 6f | 2d 63 68 61 72 20 28 70 | (goto|-char (p|
|00000190| 6f 69 6e 74 2d 6d 69 6e | 29 29 0a 09 09 20 20 20 |oint-min|))... |
|000001a0| 20 20 28 77 68 69 6c 65 | 20 28 72 65 2d 73 65 61 | (while| (re-sea|
|000001b0| 72 63 68 2d 66 6f 72 77 | 61 72 64 0a 09 09 09 09 |rch-forw|ard.....|
|000001c0| 20 20 20 22 5e 5c 5c 5c | 5c 63 68 61 70 74 65 72 | "^\\\|\chapter|
|000001d0| 5c 5c 7c 5c 5c 5c 5c 73 | 65 63 74 69 6f 6e 5c 5c |\\|\\\\s|ection\\|
|000001e0| 7c 5c 5c 5c 5c 73 75 62 | 73 65 63 74 69 6f 6e 5c ||\\\\sub|section\|
|000001f0| 5c 7c 5c 5c 5c 5c 73 75 | 62 73 75 62 73 65 63 74 |\|\\\\su|bsubsect|
|00000200| 69 6f 6e 22 0a 09 09 09 | 09 20 20 20 6e 69 6c 20 |ion"....|. nil |
|00000210| 74 29 0a 09 09 09 20 20 | 20 20 28 72 65 2d 73 65 |t).... | (re-se|
|00000220| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 22 7b 5c |arch-for|ward "{\|
|00000230| 5c 28 5b 5e 7d 5d 2a 5c | 5c 29 7d 22 29 0a 09 09 |\([^}]*\|\)}")...|
|00000240| 09 20 20 20 20 28 72 65 | 70 6c 61 63 65 2d 6d 61 |. (re|place-ma|
|00000250| 74 63 68 20 22 7b 5c 5c | 31 7d 5c 6e 5c 5c 5c 5c |tch "{\\|1}\n\\\\|
|00000260| 63 69 6e 64 65 78 7b 5c | 5c 31 7d 22 20 74 29 29 |cindex{\|\1}" t))|
|00000270| 0a 09 09 20 20 20 20 20 | 28 67 6f 74 6f 2d 63 68 |... |(goto-ch|
|00000280| 61 72 20 28 70 6f 69 6e | 74 2d 6d 69 6e 29 29 0a |ar (poin|t-min)).|
|00000290| 09 09 20 20 20 20 20 28 | 77 68 69 6c 65 20 28 72 |.. (|while (r|
|000002a0| 65 2d 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e-search|-forward|
|000002b0| 0a 09 09 09 09 20 20 20 | 22 5e 5c 5c 5c 5c 63 68 |..... |"^\\\\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 20 |(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 2c 20 54 | 6f 70 2c 20 22 0a 09 09 | ", T|op, "...|
|000006e0| 09 20 20 20 20 28 6e 6f | 64 69 66 79 2d 67 65 74 |. (no|dify-get|
|000006f0| 2d 6e 61 6d 65 2d 61 74 | 2d 6c 69 6e 65 20 28 63 |-name-at|-line (c|
|00000700| 61 64 72 20 61 6c 6c 29 | 29 0a 09 09 09 20 20 20 |adr all)|).... |
|00000710| 20 22 2c 20 22 20 28 63 | 61 72 20 75 70 2d 61 6c | ", " (c|ar up-al|
|00000720| 6c 29 20 22 5c 6e 22 29 | 0a 09 09 20 20 20 20 20 |l) "\n")|... |
|00000730| 28 6d 65 73 73 61 67 65 | 20 22 64 6f 69 6e 67 20 |(message| "doing |
|00000740| 74 68 65 20 6f 74 68 65 | 72 20 73 65 63 74 69 6f |the othe|r sectio|
|00000750| 6e 73 22 29 20 28 73 69 | 74 2d 66 6f 72 20 31 29 |ns") (si|t-for 1)|
|00000760| 0a 09 09 20 20 20 20 20 | 28 77 68 69 6c 65 20 28 |... |(while (|
|00000770| 3e 20 28 6c 65 6e 67 74 | 68 20 61 6c 6c 29 20 32 |> (lengt|h all) 2|
|00000780| 29 0a 09 09 09 20 20 20 | 20 28 67 6f 74 6f 2d 6c |).... | (goto-l|
|00000790| 69 6e 65 20 28 63 61 64 | 72 20 61 6c 6c 29 29 0a |ine (cad|r all)).|
|000007a0| 09 09 09 20 20 20 20 28 | 6c 65 74 20 28 28 63 75 |... (|let ((cu|
|000007b0| 72 20 28 63 61 64 72 20 | 61 6c 6c 29 29 0a 09 09 |r (cadr |all))...|
|000007c0| 09 09 09 28 6e 65 78 74 | 20 28 31 2b 20 28 63 61 |...(next| (1+ (ca|
|000007d0| 72 20 61 6c 6c 29 29 29 | 0a 09 09 09 09 09 28 70 |r all)))|......(p|
|000007e0| 72 65 76 20 28 63 61 64 | 64 72 20 61 6c 6c 29 29 |rev (cad|dr all))|
|000007f0| 0a 09 09 09 09 09 28 75 | 70 20 28 63 61 64 72 20 |......(u|p (cadr |
|00000800| 75 70 2d 61 6c 6c 29 29 | 29 0a 09 09 09 09 20 20 |up-all))|)..... |
|00000810| 20 28 69 6e 73 65 72 74 | 20 22 5c 5c 6e 6f 64 65 | (insert| "\\node|
|00000820| 20 22 0a 09 09 09 09 09 | 20 20 28 6e 6f 64 69 66 | "......| (nodif|
|00000830| 79 2d 67 65 74 2d 6e 61 | 6d 65 2d 61 74 2d 6c 69 |y-get-na|me-at-li|
|00000840| 6e 65 20 63 75 72 29 20 | 22 2c 20 22 0a 09 09 09 |ne cur) |", "....|
|00000850| 09 09 20 20 28 6e 6f 64 | 69 66 79 2d 67 65 74 2d |.. (nod|ify-get-|
|00000860| 6e 61 6d 65 2d 61 74 2d | 6c 69 6e 65 20 6e 65 78 |name-at-|line nex|
|00000870| 74 29 20 22 2c 20 22 0a | 09 09 09 09 09 20 20 28 |t) ", ".|..... (|
|00000880| 6e 6f 64 69 66 79 2d 67 | 65 74 2d 6e 61 6d 65 2d |nodify-g|et-name-|
|00000890| 61 74 2d 6c 69 6e 65 20 | 70 72 65 76 29 20 22 2c |at-line |prev) ",|
|000008a0| 20 22 0a 09 09 09 09 09 | 20 20 75 70 20 22 5c 6e | "......| up "\n|
|000008b0| 22 29 29 0a 09 09 09 20 | 20 20 20 28 73 65 74 71 |")).... | (setq|
|000008c0| 20 75 70 2d 61 6c 6c 20 | 28 63 64 72 20 75 70 2d | up-all |(cdr up-|
|000008d0| 61 6c 6c 29 29 0a 09 09 | 09 20 20 20 20 28 73 65 |all))...|. (se|
|000008e0| 74 71 20 61 6c 6c 20 28 | 63 64 72 20 61 6c 6c 29 |tq all (|cdr all)|
|000008f0| 29 29 0a 09 09 20 20 20 | 20 20 28 6d 65 73 73 61 |))... | (messa|
|00000900| 67 65 20 22 64 6f 69 6e | 67 20 74 68 65 20 6f 74 |ge "doin|g the ot|
|00000910| 68 65 72 20 73 65 63 74 | 69 6f 6e 73 2e 2e 2e 64 |her sect|ions...d|
|00000920| 6f 6e 65 22 29 20 28 73 | 69 74 2d 66 6f 72 20 31 |one") (s|it-for 1|
|00000930| 29 0a 09 09 20 20 20 20 | 20 28 67 6f 74 6f 2d 6c |)... | (goto-l|
|00000940| 69 6e 65 20 28 63 61 64 | 72 20 61 6c 6c 29 29 0a |ine (cad|r all)).|
|00000950| 09 09 20 20 20 20 20 28 | 69 6e 73 65 72 74 20 22 |.. (|insert "|
|00000960| 5c 5c 6e 6f 64 65 20 22 | 0a 09 09 09 20 20 20 20 |\\node "|.... |
|00000970| 28 6e 6f 64 69 66 79 2d | 67 65 74 2d 6e 61 6d 65 |(nodify-|get-name|
|00000980| 2d 61 74 2d 6c 69 6e 65 | 20 28 63 61 64 72 20 61 |-at-line| (cadr a|
|00000990| 6c 6c 29 29 20 22 2c 20 | 22 0a 09 09 09 20 20 20 |ll)) ", |".... |
|000009a0| 20 28 6e 6f 64 69 66 79 | 2d 67 65 74 2d 6e 61 6d | (nodify|-get-nam|
|000009b0| 65 2d 61 74 2d 6c 69 6e | 65 20 28 31 2b 20 28 63 |e-at-lin|e (1+ (c|
|000009c0| 61 72 20 61 6c 6c 29 29 | 29 0a 09 09 09 20 20 20 |ar all))|).... |
|000009d0| 20 22 2c 20 54 6f 70 2c | 20 54 6f 70 5c 6e 22 29 | ", Top,| Top\n")|
|000009e0| 0a 09 09 20 20 20 20 20 | 28 67 6f 74 6f 2d 63 68 |... |(goto-ch|
|000009f0| 61 72 20 28 70 6f 69 6e | 74 2d 6d 69 6e 29 29 0a |ar (poin|t-min)).|
|00000a00| 09 09 20 20 20 20 20 28 | 69 66 20 28 72 65 2d 73 |.. (|if (re-s|
|00000a10| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 22 5e |earch-fo|rward "^|
|00000a20| 5c 5c 5c 5c 73 65 74 66 | 69 6c 65 6e 61 6d 65 22 |\\\\setf|ilename"|
|00000a30| 20 6e 69 6c 20 74 29 0a | 09 09 09 20 20 20 20 28 | nil t).|... (|
|00000a40| 70 72 6f 67 6e 0a 09 09 | 09 09 20 20 20 28 66 6f |progn...|.. (fo|
|00000a50| 72 77 61 72 64 2d 6c 69 | 6e 65 20 31 29 0a 09 09 |rward-li|ne 1)...|
|00000a60| 09 09 20 20 20 28 69 6e | 73 65 72 74 20 22 5c 5c |.. (in|sert "\\|
|00000a70| 6e 6f 64 65 20 54 6f 70 | 2c 20 22 0a 09 09 09 09 |node Top|, ".....|
|00000a80| 09 20 20 28 6e 6f 64 69 | 66 79 2d 67 65 74 2d 6e |. (nodi|fy-get-n|
|00000a90| 61 6d 65 2d 61 74 2d 6c | 69 6e 65 0a 09 09 09 09 |ame-at-l|ine.....|
|00000aa0| 09 09 20 28 31 2b 20 28 | 63 61 64 72 20 61 6c 6c |.. (1+ (|cadr all|
|00000ab0| 29 29 29 0a 09 09 09 09 | 09 20 20 22 2c 20 28 64 |))).....|. ", (d|
|00000ac0| 69 72 29 54 6f 70 2c 20 | 28 64 69 72 29 54 6f 70 |ir)Top, |(dir)Top|
|00000ad0| 5c 6e 22 29 29 29 0a 09 | 09 20 20 20 20 20 28 6d |\n")))..|. (m|
|00000ae0| 65 73 73 61 67 65 20 22 | 64 6f 69 6e 67 20 74 68 |essage "|doing th|
|00000af0| 65 20 63 68 61 70 74 65 | 72 20 6d 65 6e 75 73 22 |e chapte|r menus"|
|00000b00| 29 20 28 73 69 74 2d 66 | 6f 72 20 31 29 0a 09 09 |) (sit-f|or 1)...|
|00000b10| 20 20 20 20 20 28 6e 6f | 64 69 66 79 2d 63 68 61 | (no|dify-cha|
|00000b20| 70 74 65 72 2d 6d 65 6e | 75 73 29 0a 09 09 20 20 |pter-men|us)... |
|00000b30| 20 20 20 28 6d 65 73 73 | 61 67 65 20 22 64 6f 69 | (mess|age "doi|
|00000b40| 6e 67 20 74 68 65 20 63 | 68 61 70 74 65 72 20 6d |ng the c|hapter m|
|00000b50| 65 6e 75 73 2e 2e 2e 64 | 6f 6e 65 22 29 20 28 73 |enus...d|one") (s|
|00000b60| 69 74 2d 66 6f 72 20 31 | 29 0a 09 09 20 20 20 20 |it-for 1|)... |
|00000b70| 20 29 29 29 0a 0a 28 64 | 65 66 75 6e 20 6e 6f 64 | )))..(d|efun nod|
|00000b80| 69 66 79 2d 63 68 61 70 | 74 65 72 2d 6d 65 6e 75 |ify-chap|ter-menu|
|00000b90| 73 20 28 29 0a 20 20 20 | 20 20 20 20 28 6c 65 74 |s (). | (let|
|00000ba0| 20 28 63 68 61 70 20 28 | 65 6f 63 20 28 70 6f 69 | (chap (|eoc (poi|
|00000bb0| 6e 74 2d 6d 61 78 29 29 | 29 0a 09 20 20 20 20 20 |nt-max))|).. |
|00000bc0| 20 28 67 6f 74 6f 2d 63 | 68 61 72 20 28 70 6f 69 | (goto-c|har (poi|
|00000bd0| 6e 74 2d 6d 61 78 29 29 | 0a 09 20 20 20 20 20 20 |nt-max))|.. |
|00000be0| 28 77 68 69 6c 65 20 28 | 72 65 2d 73 65 61 72 63 |(while (|re-searc|
|00000bf0| 68 2d 62 61 63 6b 77 61 | 72 64 20 22 5e 2e 63 68 |h-backwa|rd "^.ch|
|00000c00| 61 70 74 65 72 22 20 6e | 69 6c 20 74 29 0a 09 09 |apter" n|il t)...|
|00000c10| 20 20 20 20 20 28 73 65 | 74 71 20 63 68 61 70 20 | (se|tq chap |
|00000c20| 28 63 6f 6e 73 20 28 6e | 6f 64 69 66 79 2d 67 65 |(cons (n|odify-ge|
|00000c30| 74 2d 6e 61 6d 65 29 20 | 63 68 61 70 29 29 0a 09 |t-name) |chap))..|
|00000c40| 09 20 20 20 20 20 28 6d | 61 6b 65 2d 73 65 63 74 |. (m|ake-sect|
|00000c50| 69 6f 6e 2d 6d 65 6e 75 | 20 22 5c 5c 5c 5c 73 65 |ion-menu| "\\\\se|
|00000c60| 63 74 69 6f 6e 22 20 28 | 70 6f 69 6e 74 29 20 65 |ction" (|point) e|
|00000c70| 6f 63 29 0a 09 09 20 20 | 20 20 20 28 73 65 74 71 |oc)... | (setq|
|00000c80| 20 65 6f 63 20 28 70 6f | 69 6e 74 29 29 29 0a 09 | eoc (po|int)))..|
|00000c90| 20 20 20 20 20 20 28 67 | 6f 74 6f 2d 63 68 61 72 | (g|oto-char|
|00000ca0| 20 28 70 6f 69 6e 74 2d | 6d 69 6e 29 29 0a 09 20 | (point-|min)).. |
|00000cb0| 20 20 20 20 20 28 69 66 | 20 28 72 65 2d 73 65 61 | (if| (re-sea|
|00000cc0| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 22 5c 5c 63 |rch-forw|ard "\\c|
|00000cd0| 68 61 70 74 65 72 22 20 | 6e 69 6c 20 74 29 0a 09 |hapter" |nil t)..|
|00000ce0| 09 20 20 20 20 20 28 6d | 61 6b 65 2d 6d 65 6e 75 |. (m|ake-menu|
|00000cf0| 20 63 68 61 70 29 29 0a | 09 20 20 20 20 20 20 29 | chap)).|. )|
|00000d00| 29 0a 0a 28 64 65 66 75 | 6e 20 6d 61 6b 65 2d 73 |)..(defu|n make-s|
|00000d10| 65 63 74 69 6f 6e 2d 6d | 65 6e 75 20 28 73 65 63 |ection-m|enu (sec|
|00000d20| 74 69 6f 6e 20 74 6f 70 | 20 62 6f 74 29 0a 20 20 |tion top| bot). |
|00000d30| 20 20 20 20 20 28 73 61 | 76 65 2d 65 78 63 75 72 | (sa|ve-excur|
|00000d40| 73 69 6f 6e 0a 09 20 20 | 20 20 20 20 28 6c 65 74 |sion.. | (let|
|00000d50| 20 28 63 68 61 70 29 0a | 09 09 20 20 20 20 20 28 | (chap).|.. (|
|00000d60| 67 6f 74 6f 2d 63 68 61 | 72 20 62 6f 74 29 0a 09 |goto-cha|r bot)..|
|00000d70| 09 20 20 20 20 20 28 77 | 68 69 6c 65 20 28 72 65 |. (w|hile (re|
|00000d80| 2d 73 65 61 72 63 68 2d | 62 61 63 6b 77 61 72 64 |-search-|backward|
|00000d90| 20 73 65 63 74 69 6f 6e | 20 74 6f 70 20 74 29 0a | section| top t).|
|00000da0| 09 09 09 20 20 20 20 28 | 73 65 74 71 20 63 68 61 |... (|setq cha|
|00000db0| 70 20 28 63 6f 6e 73 20 | 28 6e 6f 64 69 66 79 2d |p (cons |(nodify-|
|00000dc0| 67 65 74 2d 6e 61 6d 65 | 29 20 63 68 61 70 29 29 |get-name|) chap))|
|00000dd0| 29 0a 09 09 20 20 20 20 | 20 28 67 6f 74 6f 2d 63 |)... | (goto-c|
|00000de0| 68 61 72 20 74 6f 70 29 | 0a 09 09 20 20 20 20 20 |har top)|... |
|00000df0| 28 69 66 20 28 3e 20 28 | 6c 65 6e 67 74 68 20 63 |(if (> (|length c|
|00000e00| 68 61 70 29 20 31 29 0a | 09 09 09 20 20 20 20 28 |hap) 1).|... (|
|00000e10| 70 72 6f 67 6e 0a 09 09 | 09 09 20 20 20 28 72 65 |progn...|.. (re|
|00000e20| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|00000e30| 73 65 63 74 69 6f 6e 20 | 62 6f 74 20 74 29 0a 09 |section |bot t)..|
|00000e40| 09 09 09 20 20 20 28 6d | 61 6b 65 2d 6d 65 6e 75 |... (m|ake-menu|
|00000e50| 20 63 68 61 70 29 29 29 | 0a 09 09 20 20 20 20 20 | chap)))|... |
|00000e60| 63 68 61 70 29 0a 09 20 | 20 20 20 20 20 29 0a 20 |chap).. | ). |
|00000e70| 20 20 20 20 20 20 29 0a | 0a 28 64 65 66 75 6e 20 | ).|.(defun |
|00000e80| 6d 61 6b 65 2d 6d 65 6e | 75 20 28 63 68 61 70 29 |make-men|u (chap)|
|00000e90| 0a 20 20 20 20 20 20 20 | 28 66 6f 72 77 61 72 64 |. |(forward|
|00000ea0| 2d 6c 69 6e 65 20 2d 31 | 29 0a 20 20 20 20 20 20 |-line -1|). |
|00000eb0| 20 28 69 6e 73 65 72 74 | 20 22 5c 6e 5c 5c 62 65 | (insert| "\n\\be|
|00000ec0| 67 69 6e 7b 6d 65 6e 75 | 7d 5c 6e 22 29 0a 20 20 |gin{menu|}\n"). |
|00000ed0| 20 20 20 20 20 28 77 68 | 69 6c 65 20 28 63 61 72 | (wh|ile (car|
|00000ee0| 20 63 68 61 70 29 0a 09 | 20 20 20 20 20 20 28 69 | chap)..| (i|
|00000ef0| 6e 73 65 72 74 20 22 2a | 20 22 20 28 63 61 72 20 |nsert "*| " (car |
|00000f00| 63 68 61 70 29 20 22 3a | 3a 5c 6e 22 29 0a 09 20 |chap) ":|:\n").. |
|00000f10| 20 20 20 20 20 28 73 65 | 74 71 20 63 68 61 70 20 | (se|tq chap |
|00000f20| 28 63 64 72 20 63 68 61 | 70 29 29 29 0a 20 20 20 |(cdr cha|p))). |
|00000f30| 20 20 20 20 28 69 6e 73 | 65 72 74 20 22 5c 5c 65 | (ins|ert "\\e|
|00000f40| 6e 64 7b 6d 65 6e 75 7d | 5c 6e 5c 6e 22 29 29 0a |nd{menu}|\n\n")).|
|00000f50| 0a 28 64 65 66 75 6e 20 | 6e 6f 64 69 66 79 2d 67 |.(defun |nodify-g|
|00000f60| 65 74 2d 6e 61 6d 65 2d | 61 74 2d 6c 69 6e 65 20 |et-name-|at-line |
|00000f70| 28 6c 69 6e 65 6e 6f 29 | 0a 20 20 20 20 20 20 20 |(lineno)|. |
|00000f80| 28 73 61 76 65 2d 65 78 | 63 75 72 73 69 6f 6e 0a |(save-ex|cursion.|
|00000f90| 09 20 20 20 20 20 20 28 | 67 6f 74 6f 2d 6c 69 6e |. (|goto-lin|
|00000fa0| 65 20 28 2b 20 31 20 6c | 69 6e 65 6e 6f 29 29 0a |e (+ 1 l|ineno)).|
|00000fb0| 09 20 20 20 20 20 20 28 | 6e 6f 64 69 66 79 2d 67 |. (|nodify-g|
|00000fc0| 65 74 2d 6e 61 6d 65 29 | 29 29 0a 0a 28 64 65 66 |et-name)|))..(def|
|00000fd0| 75 6e 20 6e 6f 64 69 66 | 79 2d 67 65 74 2d 6e 61 |un nodif|y-get-na|
|00000fe0| 6d 65 20 28 29 0a 20 20 | 20 20 20 20 20 28 73 61 |me (). | (sa|
|00000ff0| 76 65 2d 65 78 63 75 72 | 73 69 6f 6e 0a 09 20 20 |ve-excur|sion.. |
|00001000| 20 20 20 20 28 62 75 66 | 66 65 72 2d 73 75 62 73 | (buf|fer-subs|
|00001010| 74 72 69 6e 67 0a 09 20 | 20 20 20 20 20 28 70 72 |tring.. | (pr|
|00001020| 6f 67 6e 20 28 66 6f 72 | 77 61 72 64 2d 77 6f 72 |ogn (for|ward-wor|
|00001030| 64 20 31 29 0a 09 09 20 | 20 20 20 20 28 73 6b 69 |d 1)... | (ski|
|00001040| 70 2d 63 68 61 72 73 2d | 66 6f 72 77 61 72 64 20 |p-chars-|forward |
|00001050| 22 2a 20 7b 22 29 0a 09 | 09 20 20 20 20 20 3b 3b |"* {")..|. ;;|
|00001060| 20 28 69 66 20 28 6c 6f | 6f 6b 69 6e 67 2d 61 74 | (if (lo|oking-at|
|00001070| 20 22 5b 20 7b 5d 22 29 | 20 28 66 6f 72 77 61 72 | "[ {]")| (forwar|
|00001080| 64 2d 63 68 61 72 20 31 | 29 29 0a 09 09 20 20 20 |d-char 1|))... |
|00001090| 20 20 28 70 6f 69 6e 74 | 29 29 0a 09 20 20 20 20 | (point|)).. |
|000010a0| 20 20 28 70 72 6f 67 6e | 20 28 65 6e 64 2d 6f 66 | (progn| (end-of|
|000010b0| 2d 6c 69 6e 65 29 20 28 | 66 6f 72 77 61 72 64 2d |-line) (|forward-|
|000010c0| 63 68 61 72 20 2d 31 29 | 20 28 70 6f 69 6e 74 29 |char -1)| (point)|
|000010d0| 29 29 29 29 0a 0a 28 64 | 65 66 75 6e 20 6e 6f 64 |))))..(d|efun nod|
|000010e0| 69 66 79 2d 67 65 74 2d | 6e 61 6d 65 2d 66 20 28 |ify-get-|name-f (|
|000010f0| 29 0a 20 20 20 20 20 20 | 20 28 73 61 76 65 2d 65 |). | (save-e|
|00001100| 78 63 75 72 73 69 6f 6e | 0a 09 20 28 62 75 66 66 |xcursion|.. (buff|
|00001110| 65 72 2d 73 75 62 73 74 | 72 69 6e 67 0a 09 20 20 |er-subst|ring.. |
|00001120| 28 70 72 6f 67 6e 20 0a | 09 20 20 20 20 28 73 6b |(progn .|. (sk|
|00001130| 69 70 2d 63 68 61 72 73 | 2d 66 6f 72 77 61 72 64 |ip-chars|-forward|
|00001140| 20 22 2a 20 7b 22 29 0a | 09 20 20 20 20 28 70 6f | "* {").|. (po|
|00001150| 69 6e 74 29 29 0a 09 20 | 20 28 70 72 6f 67 6e 20 |int)).. | (progn |
|00001160| 28 65 6e 64 2d 6f 66 2d | 6c 69 6e 65 29 20 28 66 |(end-of-|line) (f|
|00001170| 6f 72 77 61 72 64 2d 63 | 68 61 72 20 2d 31 29 20 |orward-c|har -1) |
|00001180| 28 70 6f 69 6e 74 29 29 | 29 29 29 0a 0a 28 64 65 |(point))|)))..(de|
|00001190| 66 75 6e 20 63 61 64 72 | 20 28 78 29 0a 20 20 20 |fun cadr| (x). |
|000011a0| 20 20 20 20 28 63 61 72 | 20 28 63 64 72 20 78 29 | (car| (cdr x)|
|000011b0| 29 29 0a 28 64 65 66 75 | 6e 20 63 61 64 64 72 20 |)).(defu|n caddr |
|000011c0| 28 78 29 0a 20 20 20 20 | 20 20 20 28 63 61 72 20 |(x). | (car |
|000011d0| 28 63 64 72 20 28 63 64 | 72 20 78 29 29 29 29 0a |(cdr (cd|r x)))).|
|000011e0| 0a | |. | |
+--------+-------------------------+-------------------------+--------+--------+
