home *** CD-ROM | disk | FTP | other *** search
view JSON data
|
view as text
|
open on a Mac
|
open on a PC
This file was processed as: SHell self-extracting ARchive
(archive/shar).
You can browse this item here: part03
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| Newsgroup Content (archive/news)
| magic
| Supported |
| 100%
| dexvert
| SHell self-extracting ARchive (archive/shar)
| magic
| Supported |
| 100%
| dexvert
| Internet Message Format (text/imf)
| magic
| Supported |
| 1%
| dexvert
| Texas Instruments Calculator Program (executable/tiCalcProgram)
| magic
| Unsupported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| news or mail 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/329 Shell Archive Format
| default
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
| |
| 100%
| xdgMime
| message/rfc822
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 53 75 62 6a 65 63 74 3a | 20 20 76 31 31 69 30 39 |Subject:| v11i09|
|00000010| 33 3a 20 20 54 65 6d 70 | 6c 61 74 65 20 6d 6f 64 |3: Temp|late mod|
|00000020| 65 20 66 6f 72 20 47 4e | 55 20 45 6d 61 63 73 2c |e for GN|U Emacs,|
|00000030| 20 50 61 72 74 30 33 2f | 30 36 0a 4e 65 77 73 67 | Part03/|06.Newsg|
|00000040| 72 6f 75 70 73 3a 20 63 | 6f 6d 70 2e 73 6f 75 72 |roups: c|omp.sour|
|00000050| 63 65 73 2e 75 6e 69 78 | 0a 53 65 6e 64 65 72 3a |ces.unix|.Sender:|
|00000060| 20 73 6f 75 72 63 65 73 | 0a 41 70 70 72 6f 76 65 | sources|.Approve|
|00000070| 64 3a 20 72 73 40 75 75 | 6e 65 74 2e 55 55 2e 4e |d: rs@uu|net.UU.N|
|00000080| 45 54 0a 0a 53 75 62 6d | 69 74 74 65 64 2d 62 79 |ET..Subm|itted-by|
|00000090| 3a 20 22 4d 61 72 6b 20 | 41 2e 20 41 72 64 69 73 |: "Mark |A. Ardis|
|000000a0| 22 20 3c 6d 61 61 40 73 | 65 69 2e 63 6d 75 2e 65 |" <maa@s|ei.cmu.e|
|000000b0| 64 75 3e 0a 50 6f 73 74 | 69 6e 67 2d 6e 75 6d 62 |du>.Post|ing-numb|
|000000c0| 65 72 3a 20 56 6f 6c 75 | 6d 65 20 31 31 2c 20 49 |er: Volu|me 11, I|
|000000d0| 73 73 75 65 20 39 33 0a | 41 72 63 68 69 76 65 2d |ssue 93.|Archive-|
|000000e0| 6e 61 6d 65 3a 20 74 65 | 6d 70 6c 61 74 65 73 2f |name: te|mplates/|
|000000f0| 70 61 72 74 30 33 0a 0a | 23 21 20 2f 62 69 6e 2f |part03..|#! /bin/|
|00000100| 73 68 0a 23 20 54 68 69 | 73 20 69 73 20 61 20 73 |sh.# Thi|s is a s|
|00000110| 68 65 6c 6c 20 61 72 63 | 68 69 76 65 2c 20 6d 65 |hell arc|hive, me|
|00000120| 61 6e 69 6e 67 3a 0a 23 | 20 31 2e 20 52 65 6d 6f |aning:.#| 1. Remo|
|00000130| 76 65 20 65 76 65 72 79 | 74 68 69 6e 67 20 61 62 |ve every|thing ab|
|00000140| 6f 76 65 20 74 68 65 20 | 23 21 20 2f 62 69 6e 2f |ove the |#! /bin/|
|00000150| 73 68 20 6c 69 6e 65 2e | 0a 23 20 32 2e 20 53 61 |sh line.|.# 2. Sa|
|00000160| 76 65 20 74 68 65 20 72 | 65 73 75 6c 74 69 6e 67 |ve the r|esulting|
|00000170| 20 74 65 78 74 20 69 6e | 20 61 20 66 69 6c 65 2e | text in| a file.|
|00000180| 0a 23 20 33 2e 20 45 78 | 65 63 75 74 65 20 74 68 |.# 3. Ex|ecute th|
|00000190| 65 20 66 69 6c 65 20 77 | 69 74 68 20 2f 62 69 6e |e file w|ith /bin|
|000001a0| 2f 73 68 20 28 6e 6f 74 | 20 63 73 68 29 20 74 6f |/sh (not| csh) to|
|000001b0| 20 63 72 65 61 74 65 3a | 0a 23 09 74 70 6c 68 65 | create:|.#.tplhe|
|000001c0| 6c 70 65 72 2e 65 6c 0a | 65 78 70 6f 72 74 20 50 |lper.el.|export P|
|000001d0| 41 54 48 3b 20 50 41 54 | 48 3d 2f 62 69 6e 3a 2f |ATH; PAT|H=/bin:/|
|000001e0| 75 73 72 2f 62 69 6e 3a | 24 50 41 54 48 0a 65 63 |usr/bin:|$PATH.ec|
|000001f0| 68 6f 20 73 68 61 72 3a | 20 22 65 78 74 72 61 63 |ho shar:| "extrac|
|00000200| 74 69 6e 67 20 27 74 70 | 6c 68 65 6c 70 65 72 2e |ting 'tp|lhelper.|
|00000210| 65 6c 27 22 20 27 28 34 | 35 30 37 32 20 63 68 61 |el'" '(4|5072 cha|
|00000220| 72 61 63 74 65 72 73 29 | 27 0a 69 66 20 74 65 73 |racters)|'.if tes|
|00000230| 74 20 2d 66 20 27 74 70 | 6c 68 65 6c 70 65 72 2e |t -f 'tp|lhelper.|
|00000240| 65 6c 27 0a 74 68 65 6e | 0a 09 65 63 68 6f 20 73 |el'.then|..echo s|
|00000250| 68 61 72 3a 20 22 77 69 | 6c 6c 20 6e 6f 74 20 6f |har: "wi|ll not o|
|00000260| 76 65 72 2d 77 72 69 74 | 65 20 65 78 69 73 74 69 |ver-writ|e existi|
|00000270| 6e 67 20 66 69 6c 65 20 | 27 74 70 6c 68 65 6c 70 |ng file |'tplhelp|
|00000280| 65 72 2e 65 6c 27 22 0a | 65 6c 73 65 0a 73 65 64 |er.el'".|else.sed|
|00000290| 20 27 73 2f 5e 58 2f 2f | 27 20 3c 3c 20 5c 53 48 | 's/^X//|' << \SH|
|000002a0| 41 52 5f 45 4f 46 20 3e | 20 27 74 70 6c 68 65 6c |AR_EOF >| 'tplhel|
|000002b0| 70 65 72 2e 65 6c 27 0a | 58 3b 3b 3b 20 74 70 6c |per.el'.|X;;; tpl|
|000002c0| 68 65 6c 70 65 72 2e 65 | 6c 20 2d 2d 20 48 65 6c |helper.e|l -- Hel|
|000002d0| 70 65 72 20 66 75 6e 63 | 74 69 6f 6e 73 20 66 6f |per func|tions fo|
|000002e0| 72 20 74 65 6d 70 6c 61 | 74 65 2d 6d 6f 64 65 2e |r templa|te-mode.|
|000002f0| 0a 58 3b 3b 3b 20 43 6f | 70 79 72 69 67 68 74 20 |.X;;; Co|pyright |
|00000300| 28 43 29 20 31 39 38 37 | 20 4d 61 72 6b 20 41 2e |(C) 1987| Mark A.|
|00000310| 20 41 72 64 69 73 2e 0a | 58 0a 58 28 70 72 6f 76 | Ardis..|X.X(prov|
|00000320| 69 64 65 20 27 74 70 6c | 68 65 6c 70 65 72 29 0a |ide 'tpl|helper).|
|00000330| 58 0a 58 3b 3b 3b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |X.X;;;++|++++++++|
|00000340| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00000350| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00000360| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00000370| 2b 2b 2b 2b 2b 2b 2b 0a | 58 0a 58 28 64 65 66 75 |+++++++.|X.X(defu|
|00000380| 6e 20 74 70 6c 2d 62 6c | 61 6e 6b 2d 6c 69 6e 65 |n tpl-bl|ank-line|
|00000390| 20 28 29 0a 58 20 20 22 | 52 65 74 75 72 6e 73 20 | ().X "|Returns |
|000003a0| 74 20 69 66 20 63 75 72 | 72 65 6e 74 20 6c 69 6e |t if cur|rent lin|
|000003b0| 65 20 63 6f 6e 74 61 69 | 6e 73 20 6f 6e 6c 79 20 |e contai|ns only |
|000003c0| 77 68 69 74 65 73 70 61 | 63 65 2e 0a 58 20 20 20 |whitespa|ce..X |
|000003d0| 20 4f 74 68 65 72 77 69 | 73 65 2c 20 72 65 74 75 | Otherwi|se, retu|
|000003e0| 72 6e 73 20 6e 69 6c 2e | 22 0a 58 09 09 09 09 09 |rns nil.|".X.....|
|000003f0| 3b 20 4c 6f 63 61 6c 20 | 56 61 72 69 61 62 6c 65 |; Local |Variable|
|00000400| 73 0a 58 20 20 28 6c 65 | 74 20 28 72 65 73 75 6c |s.X (le|t (resul|
|00000410| 74 29 0a 58 09 09 09 09 | 09 3b 20 42 6f 64 79 0a |t).X....|.; Body.|
|00000420| 58 20 20 20 20 28 73 61 | 76 65 2d 65 78 63 75 72 |X (sa|ve-excur|
|00000430| 73 69 6f 6e 0a 58 20 20 | 20 20 20 20 28 62 65 67 |sion.X | (beg|
|00000440| 69 6e 6e 69 6e 67 2d 6f | 66 2d 6c 69 6e 65 29 0a |inning-o|f-line).|
|00000450| 58 20 20 20 20 20 20 28 | 69 66 20 28 65 6f 6c 70 |X (|if (eolp|
|00000460| 29 0a 58 09 20 20 28 73 | 65 74 71 20 72 65 73 75 |).X. (s|etq resu|
|00000470| 6c 74 20 74 29 0a 58 09 | 3b 20 65 6c 73 65 0a 58 |lt t).X.|; else.X|
|00000480| 09 28 70 72 6f 67 6e 0a | 58 09 20 20 28 72 65 2d |.(progn.|X. (re-|
|00000490| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 74 |search-f|orward t|
|000004a0| 70 6c 2d 70 61 74 74 65 | 72 6e 2d 77 68 69 74 65 |pl-patte|rn-white|
|000004b0| 73 70 61 63 65 20 28 70 | 6f 69 6e 74 2d 6d 61 78 |space (p|oint-max|
|000004c0| 29 20 74 29 0a 58 09 20 | 20 28 69 66 20 28 65 6f |) t).X. | (if (eo|
|000004d0| 6c 70 29 0a 58 09 20 20 | 20 20 20 20 28 73 65 74 |lp).X. | (set|
|000004e0| 71 20 72 65 73 75 6c 74 | 20 74 29 0a 58 09 20 20 |q result| t).X. |
|000004f0| 20 20 28 73 65 74 71 20 | 72 65 73 75 6c 74 20 6e | (setq |result n|
|00000500| 69 6c 29 0a 58 09 20 20 | 20 20 29 20 3b 20 69 66 |il).X. | ) ; if|
|00000510| 0a 58 09 20 20 29 20 3b | 20 70 72 6f 67 6e 0a 58 |.X. ) ;| progn.X|
|00000520| 09 29 20 3b 20 69 66 0a | 58 20 20 20 20 20 20 29 |.) ; if.|X )|
|00000530| 20 3b 20 73 61 76 65 0a | 58 20 20 20 20 3b 20 72 | ; save.|X ; r|
|00000540| 65 74 75 72 6e 0a 58 20 | 20 20 20 72 65 73 75 6c |eturn.X | resul|
|00000550| 74 0a 58 20 20 20 20 29 | 20 3b 20 6c 65 74 0a 58 |t.X )| ; let.X|
|00000560| 20 20 29 20 3b 20 64 65 | 66 75 6e 20 74 70 6c 2d | ) ; de|fun tpl-|
|00000570| 62 6c 61 6e 6b 2d 6c 69 | 6e 65 0a 58 0a 58 3b 3b |blank-li|ne.X.X;;|
|00000580| 3b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |;+++++++|++++++++|
|00000590| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|000005a0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|000005b0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|000005c0| 2b 2b 0a 58 0a 58 28 64 | 65 66 75 6e 20 74 70 6c |++.X.X(d|efun tpl|
|000005d0| 2d 62 75 69 6c 64 2d 74 | 65 6d 70 6c 61 74 65 2d |-build-t|emplate-|
|000005e0| 6c 69 73 74 20 28 29 0a | 58 20 20 22 42 75 69 6c |list ().|X "Buil|
|000005f0| 64 20 74 65 6d 70 6c 61 | 74 65 2d 6c 69 73 74 2c |d templa|te-list,|
|00000600| 20 75 73 69 6e 67 20 63 | 75 72 72 65 6e 74 20 6d | using c|urrent m|
|00000610| 61 6a 6f 72 20 6d 6f 64 | 65 2e 22 0a 58 09 09 09 |ajor mod|e.".X...|
|00000620| 09 09 3b 20 4c 6f 63 61 | 6c 20 56 61 72 69 61 62 |..; Loca|l Variab|
|00000630| 6c 65 73 0a 58 20 20 28 | 6c 65 74 20 28 6d 6f 64 |les.X (|let (mod|
|00000640| 65 2d 65 6e 74 72 79 20 | 74 65 6d 70 6c 61 74 65 |e-entry |template|
|00000650| 2d 6c 69 73 74 29 0a 58 | 09 09 09 09 09 3b 20 42 |-list).X|.....; B|
|00000660| 6f 64 79 0a 58 20 20 20 | 20 28 73 65 74 71 20 74 |ody.X | (setq t|
|00000670| 70 6c 2d 6c 6f 63 61 6c | 2d 74 65 6d 70 6c 61 74 |pl-local|-templat|
|00000680| 65 2d 6c 69 73 74 0a 58 | 09 20 20 28 6c 69 73 74 |e-list.X|. (list|
|00000690| 20 28 74 70 6c 2d 6d 6f | 64 65 2d 74 65 6d 70 6c | (tpl-mo|de-templ|
|000006a0| 61 74 65 73 0a 58 09 09 | 20 28 74 70 6c 2d 6d 6f |ates.X..| (tpl-mo|
|000006b0| 64 65 2d 6d 61 74 63 68 | 20 27 67 65 6e 65 72 69 |de-match| 'generi|
|000006c0| 63 20 74 70 6c 2d 67 6c | 6f 62 61 6c 2d 74 65 6d |c tpl-gl|obal-tem|
|000006d0| 70 6c 61 74 65 2d 6c 69 | 73 74 29 29 29 29 0a 58 |plate-li|st)))).X|
|000006e0| 20 20 20 20 3b 20 55 73 | 65 20 6c 6f 61 64 65 64 | ; Us|e loaded|
|000006f0| 20 74 65 6d 70 6c 61 74 | 65 73 20 69 66 20 61 76 | templat|es if av|
|00000700| 61 69 6c 61 62 6c 65 0a | 58 20 20 20 20 28 73 65 |ailable.|X (se|
|00000710| 74 71 20 74 65 6d 70 6c | 61 74 65 2d 6c 69 73 74 |tq templ|ate-list|
|00000720| 0a 58 09 20 20 28 74 70 | 6c 2d 6d 6f 64 65 2d 74 |.X. (tp|l-mode-t|
|00000730| 65 6d 70 6c 61 74 65 73 | 0a 58 09 20 20 20 28 74 |emplates|.X. (t|
|00000740| 70 6c 2d 6d 6f 64 65 2d | 6d 61 74 63 68 20 6d 61 |pl-mode-|match ma|
|00000750| 6a 6f 72 2d 6d 6f 64 65 | 20 74 70 6c 2d 67 6c 6f |jor-mode| tpl-glo|
|00000760| 62 61 6c 2d 74 65 6d 70 | 6c 61 74 65 2d 6c 69 73 |bal-temp|late-lis|
|00000770| 74 29 29 29 0a 58 20 20 | 20 20 28 69 66 20 74 65 |t))).X | (if te|
|00000780| 6d 70 6c 61 74 65 2d 6c | 69 73 74 0a 58 09 28 73 |mplate-l|ist.X.(s|
|00000790| 65 74 71 20 74 70 6c 2d | 6c 6f 63 61 6c 2d 74 65 |etq tpl-|local-te|
|000007a0| 6d 70 6c 61 74 65 2d 6c | 69 73 74 0a 58 09 20 20 |mplate-l|ist.X. |
|000007b0| 20 20 20 20 28 63 6f 6e | 73 20 74 65 6d 70 6c 61 | (con|s templa|
|000007c0| 74 65 2d 6c 69 73 74 20 | 74 70 6c 2d 6c 6f 63 61 |te-list |tpl-loca|
|000007d0| 6c 2d 74 65 6d 70 6c 61 | 74 65 2d 6c 69 73 74 29 |l-templa|te-list)|
|000007e0| 29 0a 58 20 20 20 20 20 | 20 3b 20 65 6c 73 65 0a |).X | ; else.|
|000007f0| 58 20 20 20 20 20 20 28 | 70 72 6f 67 6e 0a 58 09 |X (|progn.X.|
|00000800| 28 73 65 74 71 20 6d 6f | 64 65 2d 65 6e 74 72 79 |(setq mo|de-entry|
|00000810| 20 28 74 70 6c 2d 6d 6f | 64 65 2d 6d 61 74 63 68 | (tpl-mo|de-match|
|00000820| 20 6d 61 6a 6f 72 2d 6d | 6f 64 65 20 74 70 6c 2d | major-m|ode tpl-|
|00000830| 61 75 74 6f 2d 74 65 6d | 70 6c 61 74 65 2d 61 6c |auto-tem|plate-al|
|00000840| 69 73 74 29 29 0a 58 09 | 28 69 66 20 6d 6f 64 65 |ist)).X.|(if mode|
|00000850| 2d 65 6e 74 72 79 0a 58 | 09 20 20 20 20 28 70 72 |-entry.X|. (pr|
|00000860| 6f 67 6e 0a 58 09 20 20 | 20 20 20 20 28 6c 6f 61 |ogn.X. | (loa|
|00000870| 64 2d 74 70 6c 2d 6c 69 | 62 72 61 72 79 20 28 74 |d-tpl-li|brary (t|
|00000880| 70 6c 2d 6d 6f 64 65 2d | 66 69 6c 65 20 6d 6f 64 |pl-mode-|file mod|
|00000890| 65 2d 65 6e 74 72 79 29 | 20 6d 61 6a 6f 72 2d 6d |e-entry)| major-m|
|000008a0| 6f 64 65 29 0a 58 09 20 | 20 20 20 20 20 29 20 3b |ode).X. | ) ;|
|000008b0| 20 70 72 6f 67 6e 0a 58 | 09 20 20 3b 20 65 6c 73 | progn.X|. ; els|
|000008c0| 65 0a 58 09 20 20 28 6d | 65 73 73 61 67 65 20 22 |e.X. (m|essage "|
|000008d0| 4e 6f 20 74 65 6d 70 6c | 61 74 65 73 20 66 6f 75 |No templ|ates fou|
|000008e0| 6e 64 20 66 6f 72 20 74 | 68 69 73 20 6d 6f 64 65 |nd for t|his mode|
|000008f0| 2e 22 29 0a 58 09 20 20 | 29 20 3b 20 69 66 20 6d |.").X. |) ; if m|
|00000900| 6f 64 65 2d 65 6e 74 72 | 79 0a 58 09 29 20 3b 20 |ode-entr|y.X.) ; |
|00000910| 70 72 6f 67 6e 0a 58 20 | 20 20 20 20 20 29 20 3b |progn.X | ) ;|
|00000920| 20 69 66 20 74 65 6d 70 | 6c 61 74 65 2d 6c 69 73 | if temp|late-lis|
|00000930| 74 0a 58 20 20 20 20 28 | 69 66 20 74 70 6c 2d 72 |t.X (|if tpl-r|
|00000940| 65 62 75 69 6c 64 2d 61 | 6c 6c 2d 74 65 6d 70 6c |ebuild-a|ll-templ|
|00000950| 61 74 65 73 2d 74 65 6d | 70 6c 61 74 65 0a 58 09 |ates-tem|plate.X.|
|00000960| 28 74 70 6c 2d 6d 61 6b | 65 2d 61 6c 6c 2d 74 65 |(tpl-mak|e-all-te|
|00000970| 6d 70 6c 61 74 65 73 2d | 74 65 6d 70 6c 61 74 65 |mplates-|template|
|00000980| 29 0a 58 20 20 20 20 20 | 20 29 20 3b 20 69 66 0a |).X | ) ; if.|
|00000990| 58 20 20 20 20 29 20 3b | 20 6c 65 74 0a 58 20 20 |X ) ;| let.X |
|000009a0| 29 20 3b 20 64 65 66 75 | 6e 20 74 70 6c 2d 62 75 |) ; defu|n tpl-bu|
|000009b0| 69 6c 64 2d 74 65 6d 70 | 6c 61 74 65 2d 6c 69 73 |ild-temp|late-lis|
|000009c0| 74 0a 58 0a 58 3b 3b 3b | 2b 2b 2b 2b 2b 2b 2b 2b |t.X.X;;;|++++++++|
|000009d0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|000009e0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|000009f0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00000a00| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 0a 58 0a 58 28 64 65 |++++++++|+.X.X(de|
|00000a10| 66 75 6e 20 74 70 6c 2d | 64 65 6c 65 74 65 2d 70 |fun tpl-|delete-p|
|00000a20| 6c 61 63 65 68 6f 6c 64 | 65 72 73 2d 69 6e 2d 72 |lacehold|ers-in-r|
|00000a30| 65 67 69 6f 6e 20 28 73 | 74 61 72 74 20 73 74 6f |egion (s|tart sto|
|00000a40| 70 29 0a 58 20 20 22 44 | 65 6c 65 74 65 20 61 6c |p).X "D|elete al|
|00000a50| 6c 20 70 6c 61 63 65 68 | 6f 6c 64 65 72 73 20 69 |l placeh|olders i|
|00000a60| 6e 20 72 65 67 69 6f 6e | 20 62 65 74 77 65 65 6e |n region| between|
|00000a70| 20 53 54 41 52 54 20 61 | 6e 64 20 53 54 4f 50 2e | START a|nd STOP.|
|00000a80| 22 0a 58 09 09 09 09 09 | 3b 20 4c 6f 63 61 6c 20 |".X.....|; Local |
|00000a90| 56 61 72 69 61 62 6c 65 | 73 0a 58 20 20 28 6c 65 |Variable|s.X (le|
|00000aa0| 74 20 28 73 74 6f 70 2d | 6d 61 72 6b 65 72 29 0a |t (stop-|marker).|
|00000ab0| 58 09 09 09 09 09 3b 20 | 42 6f 64 79 0a 58 20 20 |X.....; |Body.X |
|00000ac0| 20 20 28 73 65 74 71 20 | 73 74 6f 70 2d 6d 61 72 | (setq |stop-mar|
|00000ad0| 6b 65 72 20 28 6d 61 6b | 65 2d 6d 61 72 6b 65 72 |ker (mak|e-marker|
|00000ae0| 29 29 0a 58 20 20 20 20 | 28 73 65 74 2d 6d 61 72 |)).X |(set-mar|
|00000af0| 6b 65 72 20 73 74 6f 70 | 2d 6d 61 72 6b 65 72 20 |ker stop|-marker |
|00000b00| 73 74 6f 70 29 0a 58 20 | 20 20 20 28 67 6f 74 6f |stop).X | (goto|
|00000b10| 2d 63 68 61 72 20 73 74 | 61 72 74 29 0a 58 20 20 |-char st|art).X |
|00000b20| 20 20 28 77 68 69 6c 65 | 20 28 72 65 2d 73 65 61 | (while| (re-sea|
|00000b30| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 74 70 6c 2d |rch-forw|ard tpl-|
|00000b40| 70 61 74 74 65 72 6e 2d | 70 6c 61 63 65 68 6f 6c |pattern-|placehol|
|00000b50| 64 65 72 0a 58 09 09 09 | 20 20 20 20 20 20 28 6d |der.X...| (m|
|00000b60| 61 72 6b 65 72 2d 70 6f | 73 69 74 69 6f 6e 20 73 |arker-po|sition s|
|00000b70| 74 6f 70 2d 6d 61 72 6b | 65 72 29 20 74 29 0a 58 |top-mark|er) t).X|
|00000b80| 20 20 20 20 20 20 28 72 | 65 2d 73 65 61 72 63 68 | (r|e-search|
|00000b90| 2d 62 61 63 6b 77 61 72 | 64 20 74 70 6c 2d 70 61 |-backwar|d tpl-pa|
|00000ba0| 74 74 65 72 6e 2d 70 6c | 61 63 65 68 6f 6c 64 65 |ttern-pl|aceholde|
|00000bb0| 72 29 0a 58 20 20 20 20 | 20 20 28 64 65 6c 65 74 |r).X | (delet|
|00000bc0| 65 2d 70 6c 61 63 65 68 | 6f 6c 64 65 72 29 0a 58 |e-placeh|older).X|
|00000bd0| 20 20 20 20 20 20 29 20 | 3b 20 77 68 69 6c 65 0a | ) |; while.|
|00000be0| 58 20 20 20 20 28 73 65 | 74 2d 6d 61 72 6b 65 72 |X (se|t-marker|
|00000bf0| 20 73 74 6f 70 2d 6d 61 | 72 6b 65 72 20 6e 69 6c | stop-ma|rker nil|
|00000c00| 29 0a 58 20 20 20 20 29 | 20 3b 20 6c 65 74 0a 58 |).X )| ; let.X|
|00000c10| 20 20 29 20 3b 20 64 65 | 66 75 6e 20 74 70 6c 2d | ) ; de|fun tpl-|
|00000c20| 64 65 6c 65 74 65 2d 70 | 6c 61 63 65 68 6f 6c 64 |delete-p|lacehold|
|00000c30| 65 72 73 2d 69 6e 2d 72 | 65 67 69 6f 6e 0a 58 0a |ers-in-r|egion.X.|
|00000c40| 58 3b 3b 3b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |X;;;++++|++++++++|
|00000c50| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00000c60| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00000c70| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00000c80| 2b 2b 2b 2b 2b 0a 58 0a | 58 28 64 65 66 75 6e 20 |+++++.X.|X(defun |
|00000c90| 74 70 6c 2d 65 78 70 61 | 6e 64 2d 6c 65 78 69 63 |tpl-expa|nd-lexic|
|00000ca0| 61 6c 2d 74 79 70 65 20 | 28 6e 61 6d 65 20 73 74 |al-type |(name st|
|00000cb0| 6f 70 29 0a 58 20 20 22 | 45 78 70 61 6e 64 20 74 |op).X "|Expand t|
|00000cc0| 68 65 20 6c 65 78 69 63 | 61 6c 20 70 6c 61 63 65 |he lexic|al place|
|00000cd0| 68 6f 6c 64 65 72 20 4e | 41 4d 45 20 61 74 20 70 |holder N|AME at p|
|00000ce0| 6f 69 6e 74 2e 20 20 52 | 65 70 6c 61 63 65 73 20 |oint. R|eplaces |
|00000cf0| 61 6c 6c 20 69 6e 73 74 | 61 6e 63 65 73 0a 58 20 |all inst|ances.X |
|00000d00| 20 20 20 6f 66 20 69 64 | 65 6e 74 69 63 61 6c 20 | of id|entical |
|00000d10| 70 6c 61 63 65 68 6f 6c | 64 65 72 73 20 62 65 66 |placehol|ders bef|
|00000d20| 6f 72 65 20 53 54 4f 50 | 20 77 69 74 68 20 74 68 |ore STOP| with th|
|00000d30| 65 20 73 61 6d 65 20 76 | 61 6c 75 65 2e 0a 58 20 |e same v|alue..X |
|00000d40| 20 20 20 43 68 65 63 6b | 73 20 66 6f 72 20 6d 61 | Check|s for ma|
|00000d50| 74 63 68 20 77 69 74 68 | 20 6c 65 78 69 63 61 6c |tch with| lexical|
|00000d60| 20 64 65 73 63 72 69 70 | 74 69 6f 6e 2e 22 0a 58 | descrip|tion.".X|
|00000d70| 09 09 09 09 09 3b 20 4c | 6f 63 61 6c 20 56 61 72 |.....; L|ocal Var|
|00000d80| 69 61 62 6c 65 73 0a 58 | 20 20 28 6c 65 74 20 28 |iables.X| (let (|
|00000d90| 73 61 76 65 2d 68 6f 6f | 6b 29 0a 58 09 09 09 09 |save-hoo|k).X....|
|00000da0| 09 3b 20 42 6f 64 79 0a | 58 20 20 20 20 28 69 66 |.; Body.|X (if|
|00000db0| 20 28 62 6f 75 6e 64 70 | 20 27 73 79 6d 2d 63 68 | (boundp| 'sym-ch|
|00000dc0| 65 63 6b 2d 76 61 6c 69 | 64 69 74 79 2d 68 6f 6f |eck-vali|dity-hoo|
|00000dd0| 6b 29 0a 58 09 28 73 65 | 74 71 20 73 61 76 65 2d |k).X.(se|tq save-|
|00000de0| 68 6f 6f 6b 20 73 79 6d | 2d 63 68 65 63 6b 2d 76 |hook sym|-check-v|
|00000df0| 61 6c 69 64 69 74 79 2d | 68 6f 6f 6b 29 0a 58 20 |alidity-|hook).X |
|00000e00| 20 20 20 20 20 28 73 65 | 74 71 20 73 61 76 65 2d | (se|tq save-|
|00000e10| 68 6f 6f 6b 20 6e 69 6c | 29 0a 58 20 20 20 20 20 |hook nil|).X |
|00000e20| 20 29 20 3b 20 69 66 0a | 58 20 20 20 20 28 73 65 | ) ; if.|X (se|
|00000e30| 74 71 20 73 79 6d 2d 63 | 68 65 63 6b 2d 76 61 6c |tq sym-c|heck-val|
|00000e40| 69 64 69 74 79 2d 68 6f | 6f 6b 20 27 74 70 6c 2d |idity-ho|ok 'tpl-|
|00000e50| 6c 65 78 69 63 61 6c 2d | 63 68 65 63 6b 29 0a 58 |lexical-|check).X|
|00000e60| 20 20 20 20 28 73 65 74 | 71 20 74 70 6c 2d 6c 65 | (set|q tpl-le|
|00000e70| 78 69 63 61 6c 2d 70 61 | 74 74 65 72 6e 20 28 74 |xical-pa|ttern (t|
|00000e80| 70 6c 2d 66 69 6e 64 2d | 76 61 6c 75 65 2d 6f 66 |pl-find-|value-of|
|00000e90| 2d 74 65 6d 70 6c 61 74 | 65 20 6e 61 6d 65 29 29 |-templat|e name))|
|00000ea0| 0a 58 20 20 20 20 28 69 | 66 20 74 70 6c 2d 6c 65 |.X (i|f tpl-le|
|00000eb0| 78 69 63 61 6c 2d 70 61 | 74 74 65 72 6e 0a 58 09 |xical-pa|ttern.X.|
|00000ec0| 28 74 70 6c 2d 65 78 70 | 61 6e 64 2d 74 65 78 74 |(tpl-exp|and-text|
|00000ed0| 2d 74 79 70 65 20 73 74 | 6f 70 29 0a 58 20 20 20 |-type st|op).X |
|00000ee0| 20 20 20 28 65 72 72 6f | 72 20 22 43 61 6e 6e 6f | (erro|r "Canno|
|00000ef0| 74 20 66 69 6e 64 20 74 | 65 6d 70 6c 61 74 65 2e |t find t|emplate.|
|00000f00| 22 29 0a 58 20 20 20 20 | 20 20 29 20 3b 20 69 66 |").X | ) ; if|
|00000f10| 0a 58 20 20 20 20 28 73 | 65 74 71 20 73 79 6d 2d |.X (s|etq sym-|
|00000f20| 63 68 65 63 6b 2d 76 61 | 6c 69 64 69 74 79 2d 68 |check-va|lidity-h|
|00000f30| 6f 6f 6b 20 73 61 76 65 | 2d 68 6f 6f 6b 29 0a 58 |ook save|-hook).X|
|00000f40| 20 20 20 20 29 20 3b 20 | 6c 65 74 0a 58 20 20 29 | ) ; |let.X )|
|00000f50| 20 3b 20 64 65 66 75 6e | 20 74 70 6c 2d 65 78 70 | ; defun| tpl-exp|
|00000f60| 61 6e 64 2d 6c 65 78 69 | 63 61 6c 2d 74 79 70 65 |and-lexi|cal-type|
|00000f70| 0a 58 0a 58 3b 3b 3b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |.X.X;;;+|++++++++|
|00000f80| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00000f90| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00000fa0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00000fb0| 2b 2b 2b 2b 2b 2b 2b 2b | 0a 58 0a 58 28 64 65 66 |++++++++|.X.X(def|
|00000fc0| 75 6e 20 74 70 6c 2d 65 | 78 70 61 6e 64 2d 70 6c |un tpl-e|xpand-pl|
|00000fd0| 61 63 65 68 6f 6c 64 65 | 72 20 28 73 74 6f 70 29 |aceholde|r (stop)|
|00000fe0| 0a 58 20 20 22 45 78 70 | 61 6e 64 20 74 68 65 20 |.X "Exp|and the |
|00000ff0| 70 6c 61 63 65 68 6f 6c | 64 65 72 20 61 74 20 70 |placehol|der at p|
|00001000| 6f 69 6e 74 2e 20 20 52 | 65 70 6c 61 63 65 20 69 |oint. R|eplace i|
|00001010| 64 65 6e 74 69 63 61 6c | 20 6f 63 63 75 72 72 65 |dentical| occurre|
|00001020| 6e 63 65 73 0a 58 20 20 | 20 20 6f 66 20 74 65 78 |nces.X | of tex|
|00001030| 74 20 70 6c 61 63 65 68 | 6f 6c 64 65 72 73 20 62 |t placeh|olders b|
|00001040| 65 66 6f 72 65 20 53 54 | 4f 50 20 77 69 74 68 20 |efore ST|OP with |
|00001050| 74 68 65 20 73 61 6d 65 | 20 76 61 6c 75 65 2e 22 |the same| value."|
|00001060| 0a 58 09 09 09 09 09 3b | 20 4c 6f 63 61 6c 20 56 |.X.....;| Local V|
|00001070| 61 72 69 61 62 6c 65 73 | 0a 58 20 20 28 6c 65 74 |ariables|.X (let|
|00001080| 20 28 70 6c 61 63 65 68 | 6f 6c 64 65 72 20 74 65 | (placeh|older te|
|00001090| 6d 70 6c 61 74 65 2d 6e | 61 6d 65 20 73 74 61 72 |mplate-n|ame star|
|000010a0| 74 20 70 6c 61 63 65 68 | 6f 6c 64 65 72 2d 6e 61 |t placeh|older-na|
|000010b0| 6d 65 29 0a 58 09 09 09 | 09 09 3b 20 42 6f 64 79 |me).X...|..; Body|
|000010c0| 0a 58 20 20 20 20 28 73 | 65 74 71 20 73 74 61 72 |.X (s|etq star|
|000010d0| 74 20 28 70 6f 69 6e 74 | 29 29 0a 58 09 09 09 09 |t (point|)).X....|
|000010e0| 09 3b 20 50 72 6f 63 65 | 73 73 20 70 6c 61 63 65 |.; Proce|ss place|
|000010f0| 68 6f 6c 64 65 72 0a 58 | 20 20 20 20 28 73 65 74 |holder.X| (set|
|00001100| 71 20 70 6c 61 63 65 68 | 6f 6c 64 65 72 20 28 74 |q placeh|older (t|
|00001110| 70 6c 2d 73 63 61 6e 2d | 70 6c 61 63 65 68 6f 6c |pl-scan-|placehol|
|00001120| 64 65 72 29 29 0a 58 20 | 20 20 20 28 73 65 74 71 |der)).X | (setq|
|00001130| 20 74 65 6d 70 6c 61 74 | 65 2d 6e 61 6d 65 20 28 | templat|e-name (|
|00001140| 74 70 6c 2d 74 6f 6b 65 | 6e 2d 6e 61 6d 65 20 70 |tpl-toke|n-name p|
|00001150| 6c 61 63 65 68 6f 6c 64 | 65 72 29 29 0a 58 20 20 |lacehold|er)).X |
|00001160| 20 20 28 73 65 74 71 20 | 70 6c 61 63 65 68 6f 6c | (setq |placehol|
|00001170| 64 65 72 2d 6e 61 6d 65 | 20 28 74 70 6c 2d 74 6f |der-name| (tpl-to|
|00001180| 6b 65 6e 2d 76 61 6c 75 | 65 20 70 6c 61 63 65 68 |ken-valu|e placeh|
|00001190| 6f 6c 64 65 72 29 29 0a | 58 20 20 20 20 28 63 6f |older)).|X (co|
|000011a0| 6e 64 0a 58 20 20 20 20 | 20 28 28 65 71 75 61 6c |nd.X | ((equal|
|000011b0| 20 74 65 6d 70 6c 61 74 | 65 2d 6e 61 6d 65 20 22 | templat|e-name "|
|000011c0| 74 65 78 74 22 29 0a 58 | 20 20 20 20 20 20 28 74 |text").X| (t|
|000011d0| 70 6c 2d 65 78 70 61 6e | 64 2d 74 65 78 74 2d 74 |pl-expan|d-text-t|
|000011e0| 79 70 65 20 73 74 6f 70 | 29 0a 58 20 20 20 20 20 |ype stop|).X |
|000011f0| 20 29 20 3b 20 28 65 71 | 75 61 6c 20 74 65 6d 70 | ) ; (eq|ual temp|
|00001200| 6c 61 74 65 2d 6e 61 6d | 65 20 22 74 65 78 74 22 |late-nam|e "text"|
|00001210| 29 0a 58 20 20 20 20 20 | 28 28 65 71 75 61 6c 20 |).X |((equal |
|00001220| 74 65 6d 70 6c 61 74 65 | 2d 6e 61 6d 65 20 22 74 |template|-name "t|
|00001230| 65 78 74 65 6e 74 65 72 | 22 29 0a 58 20 20 20 20 |extenter|").X |
|00001240| 20 20 28 74 70 6c 2d 65 | 78 70 61 6e 64 2d 74 65 | (tpl-e|xpand-te|
|00001250| 78 74 65 6e 74 65 72 2d | 74 79 70 65 20 73 74 6f |xtenter-|type sto|
|00001260| 70 29 0a 58 20 20 20 20 | 20 20 29 20 3b 20 28 65 |p).X | ) ; (e|
|00001270| 71 75 61 6c 20 74 65 6d | 70 6c 61 74 65 2d 6e 61 |qual tem|plate-na|
|00001280| 6d 65 20 22 74 65 78 74 | 65 6e 74 65 72 22 29 0a |me "text|enter").|
|00001290| 58 20 20 20 20 20 28 28 | 65 71 75 61 6c 20 74 65 |X ((|equal te|
|000012a0| 6d 70 6c 61 74 65 2d 6e | 61 6d 65 20 22 74 65 78 |mplate-n|ame "tex|
|000012b0| 74 6c 6f 6e 67 22 29 0a | 58 20 20 20 20 20 20 28 |tlong").|X (|
|000012c0| 74 70 6c 2d 65 78 70 61 | 6e 64 2d 74 65 78 74 6c |tpl-expa|nd-textl|
|000012d0| 6f 6e 67 2d 74 79 70 65 | 20 70 6c 61 63 65 68 6f |ong-type| placeho|
|000012e0| 6c 64 65 72 2d 6e 61 6d | 65 29 0a 58 20 20 20 20 |lder-nam|e).X |
|000012f0| 20 20 29 20 3b 20 28 65 | 71 75 61 6c 20 74 65 6d | ) ; (e|qual tem|
|00001300| 70 6c 61 74 65 2d 6e 61 | 6d 65 20 22 74 65 78 74 |plate-na|me "text|
|00001310| 6c 6f 6e 67 22 29 0a 58 | 20 20 20 20 20 28 28 65 |long").X| ((e|
|00001320| 71 75 61 6c 20 74 65 6d | 70 6c 61 74 65 2d 6e 61 |qual tem|plate-na|
|00001330| 6d 65 20 74 70 6c 2d 64 | 65 73 74 69 6e 61 74 69 |me tpl-d|estinati|
|00001340| 6f 6e 2d 73 79 6d 62 6f | 6c 29 0a 58 20 20 20 20 |on-symbo|l).X |
|00001350| 20 20 28 70 72 6f 67 6e | 0a 58 09 28 72 65 2d 73 | (progn|.X.(re-s|
|00001360| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 74 70 |earch-fo|rward tp|
|00001370| 6c 2d 70 61 74 74 65 72 | 6e 2d 70 6c 61 63 65 68 |l-patter|n-placeh|
|00001380| 6f 6c 64 65 72 29 0a 58 | 09 28 64 69 6e 67 29 0a |older).X|.(ding).|
|00001390| 58 09 28 6d 65 73 73 61 | 67 65 20 22 43 61 6e 6e |X.(messa|ge "Cann|
|000013a0| 6f 74 20 65 78 70 61 6e | 64 20 64 65 73 74 69 6e |ot expan|d destin|
|000013b0| 61 74 69 6f 6e 20 70 6c | 61 63 65 68 6f 6c 64 65 |ation pl|aceholde|
|000013c0| 72 2e 22 29 0a 58 09 29 | 20 3b 20 70 72 6f 67 6e |r.").X.)| ; progn|
|000013d0| 0a 58 20 20 20 20 20 20 | 29 20 3b 20 28 65 71 75 |.X |) ; (equ|
|000013e0| 61 6c 20 74 65 6d 70 6c | 61 74 65 2d 6e 61 6d 65 |al templ|ate-name|
|000013f0| 20 22 74 65 78 74 6c 6f | 6e 67 22 29 0a 58 20 20 | "textlo|ng").X |
|00001400| 20 20 20 28 74 0a 58 20 | 20 20 20 20 20 28 69 66 | (t.X | (if|
|00001410| 20 28 65 71 75 61 6c 20 | 74 70 6c 2d 6c 65 78 69 | (equal |tpl-lexi|
|00001420| 63 61 6c 2d 74 79 70 65 | 0a 58 09 09 20 28 74 70 |cal-type|.X.. (tp|
|00001430| 6c 2d 66 69 6e 64 2d 74 | 79 70 65 2d 6f 66 2d 74 |l-find-t|ype-of-t|
|00001440| 65 6d 70 6c 61 74 65 20 | 74 65 6d 70 6c 61 74 65 |emplate |template|
|00001450| 2d 6e 61 6d 65 29 29 0a | 58 09 20 20 28 74 70 6c |-name)).|X. (tpl|
|00001460| 2d 65 78 70 61 6e 64 2d | 6c 65 78 69 63 61 6c 2d |-expand-|lexical-|
|00001470| 74 79 70 65 20 74 65 6d | 70 6c 61 74 65 2d 6e 61 |type tem|plate-na|
|00001480| 6d 65 20 73 74 6f 70 29 | 0a 58 09 3b 20 65 6c 73 |me stop)|.X.; els|
|00001490| 65 0a 58 09 28 70 72 6f | 67 6e 0a 58 09 20 20 28 |e.X.(pro|gn.X. (|
|000014a0| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|000014b0| 64 20 74 70 6c 2d 70 61 | 74 74 65 72 6e 2d 70 6c |d tpl-pa|ttern-pl|
|000014c0| 61 63 65 68 6f 6c 64 65 | 72 29 0a 58 09 20 20 28 |aceholde|r).X. (|
|000014d0| 64 65 6c 65 74 65 2d 72 | 65 67 69 6f 6e 20 73 74 |delete-r|egion st|
|000014e0| 61 72 74 20 28 70 6f 69 | 6e 74 29 29 0a 58 09 20 |art (poi|nt)).X. |
|000014f0| 20 28 74 70 6c 2d 69 6e | 73 65 72 74 2d 74 65 6d | (tpl-in|sert-tem|
|00001500| 70 6c 61 74 65 20 74 65 | 6d 70 6c 61 74 65 2d 6e |plate te|mplate-n|
|00001510| 61 6d 65 29 0a 58 09 20 | 20 29 20 3b 20 70 72 6f |ame).X. | ) ; pro|
|00001520| 67 6e 0a 58 09 29 20 3b | 20 69 66 0a 58 20 20 20 |gn.X.) ;| if.X |
|00001530| 20 20 20 29 20 3b 20 74 | 0a 58 20 20 20 20 20 29 | ) ; t|.X )|
|00001540| 20 3b 20 63 6f 6e 64 0a | 58 20 20 20 20 29 20 3b | ; cond.|X ) ;|
|00001550| 20 6c 65 74 0a 58 20 20 | 29 20 3b 20 64 65 66 75 | let.X |) ; defu|
|00001560| 6e 20 74 70 6c 2d 65 78 | 70 61 6e 64 2d 70 6c 61 |n tpl-ex|pand-pla|
|00001570| 63 65 68 6f 6c 64 65 72 | 0a 58 0a 58 3b 3b 3b 2b |ceholder|.X.X;;;+|
|00001580| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00001590| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|000015a0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|000015b0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|000015c0| 0a 58 0a 58 28 64 65 66 | 75 6e 20 74 70 6c 2d 65 |.X.X(def|un tpl-e|
|000015d0| 78 70 61 6e 64 2d 74 65 | 78 74 2d 74 79 70 65 20 |xpand-te|xt-type |
|000015e0| 28 73 74 6f 70 29 0a 58 | 20 20 22 45 78 70 61 6e |(stop).X| "Expan|
|000015f0| 64 20 74 68 65 20 74 65 | 78 74 20 70 6c 61 63 65 |d the te|xt place|
|00001600| 68 6f 6c 64 65 72 20 61 | 74 20 70 6f 69 6e 74 2e |holder a|t point.|
|00001610| 20 20 52 65 70 6c 61 63 | 65 20 69 64 65 6e 74 69 | Replac|e identi|
|00001620| 63 61 6c 20 70 6c 61 63 | 65 68 6f 6c 64 65 72 73 |cal plac|eholders|
|00001630| 0a 58 20 20 20 20 62 65 | 66 6f 72 65 20 53 54 4f |.X be|fore STO|
|00001640| 50 20 77 69 74 68 20 74 | 68 65 20 73 61 6d 65 20 |P with t|he same |
|00001650| 76 61 6c 75 65 2e 20 20 | 52 65 74 75 72 6e 20 74 |value. |Return t|
|00001660| 68 61 74 20 76 61 6c 75 | 65 2e 22 0a 58 09 09 09 |hat valu|e.".X...|
|00001670| 09 09 3b 20 4c 6f 63 61 | 6c 20 56 61 72 69 61 62 |..; Loca|l Variab|
|00001680| 6c 65 73 0a 58 20 20 28 | 6c 65 74 20 28 73 74 61 |les.X (|let (sta|
|00001690| 72 74 20 73 74 6f 70 2d | 6d 61 72 6b 65 72 20 70 |rt stop-|marker p|
|000016a0| 6c 61 63 65 68 6f 6c 64 | 65 72 2d 73 74 72 69 6e |lacehold|er-strin|
|000016b0| 67 20 73 79 6d 2d 69 6e | 70 75 74 29 0a 58 09 09 |g sym-in|put).X..|
|000016c0| 09 09 09 3b 20 42 6f 64 | 79 0a 58 20 20 20 20 28 |...; Bod|y.X (|
|000016d0| 73 65 74 71 20 73 74 61 | 72 74 20 28 70 6f 69 6e |setq sta|rt (poin|
|000016e0| 74 29 29 0a 58 20 20 20 | 20 28 69 66 20 73 74 6f |t)).X | (if sto|
|000016f0| 70 0a 58 09 28 70 72 6f | 67 6e 0a 58 09 20 20 28 |p.X.(pro|gn.X. (|
|00001700| 73 65 74 71 20 73 74 6f | 70 2d 6d 61 72 6b 65 72 |setq sto|p-marker|
|00001710| 20 28 6d 61 6b 65 2d 6d | 61 72 6b 65 72 29 29 0a | (make-m|arker)).|
|00001720| 58 09 20 20 28 73 65 74 | 2d 6d 61 72 6b 65 72 20 |X. (set|-marker |
|00001730| 73 74 6f 70 2d 6d 61 72 | 6b 65 72 20 73 74 6f 70 |stop-mar|ker stop|
|00001740| 29 0a 58 09 20 20 29 20 | 3b 20 70 72 6f 67 6e 0a |).X. ) |; progn.|
|00001750| 58 20 20 20 20 20 20 29 | 20 3b 20 69 66 20 73 74 |X )| ; if st|
|00001760| 6f 70 0a 58 20 20 20 20 | 28 72 65 2d 73 65 61 72 |op.X |(re-sear|
|00001770| 63 68 2d 66 6f 72 77 61 | 72 64 20 74 70 6c 2d 70 |ch-forwa|rd tpl-p|
|00001780| 61 74 74 65 72 6e 2d 70 | 6c 61 63 65 68 6f 6c 64 |attern-p|lacehold|
|00001790| 65 72 29 0a 58 20 20 20 | 20 28 73 65 74 71 20 70 |er).X | (setq p|
|000017a0| 6c 61 63 65 68 6f 6c 64 | 65 72 2d 73 74 72 69 6e |lacehold|er-strin|
|000017b0| 67 20 28 62 75 66 66 65 | 72 2d 73 75 62 73 74 72 |g (buffe|r-substr|
|000017c0| 69 6e 67 20 73 74 61 72 | 74 20 28 70 6f 69 6e 74 |ing star|t (point|
|000017d0| 29 29 29 0a 58 20 20 20 | 20 28 67 6f 74 6f 2d 63 |))).X | (goto-c|
|000017e0| 68 61 72 20 73 74 61 72 | 74 29 0a 58 20 20 20 20 |har star|t).X |
|000017f0| 28 73 65 74 71 20 73 79 | 6d 2d 69 6e 70 75 74 20 |(setq sy|m-input |
|00001800| 28 73 79 6d 2d 72 65 61 | 64 2d 73 74 72 69 6e 67 |(sym-rea|d-string|
|00001810| 0a 58 09 09 20 20 20 20 | 20 28 63 6f 6e 63 61 74 |.X.. | (concat|
|00001820| 20 22 52 65 70 6c 61 63 | 65 20 22 20 70 6c 61 63 | "Replac|e " plac|
|00001830| 65 68 6f 6c 64 65 72 2d | 73 74 72 69 6e 67 20 22 |eholder-|string "|
|00001840| 20 77 69 74 68 20 77 68 | 61 74 3f 20 22 29 0a 58 | with wh|at? ").X|
|00001850| 09 09 20 20 20 20 20 70 | 6c 61 63 65 68 6f 6c 64 |.. p|lacehold|
|00001860| 65 72 2d 73 74 72 69 6e | 67 29 29 0a 58 20 20 20 |er-strin|g)).X |
|00001870| 20 28 69 66 20 28 3d 20 | 28 6c 65 6e 67 74 68 20 | (if (= |(length |
|00001880| 73 79 6d 2d 69 6e 70 75 | 74 29 20 30 29 0a 58 09 |sym-inpu|t) 0).X.|
|00001890| 28 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 |(re-sear|ch-forwa|
|000018a0| 72 64 20 70 6c 61 63 65 | 68 6f 6c 64 65 72 2d 73 |rd place|holder-s|
|000018b0| 74 72 69 6e 67 29 0a 58 | 20 20 20 20 20 20 3b 20 |tring).X| ; |
|000018c0| 65 6c 73 65 0a 58 20 20 | 20 20 20 20 28 69 66 20 |else.X | (if |
|000018d0| 73 74 6f 70 0a 58 09 20 | 20 28 70 72 6f 67 6e 0a |stop.X. | (progn.|
|000018e0| 58 09 20 20 20 20 28 73 | 65 74 71 20 73 74 61 72 |X. (s|etq star|
|000018f0| 74 20 28 70 6f 69 6e 74 | 29 29 0a 58 09 09 09 09 |t (point|)).X....|
|00001900| 09 3b 20 52 65 70 6c 61 | 63 65 20 61 6c 6c 20 69 |.; Repla|ce all i|
|00001910| 64 65 6e 74 69 63 61 6c | 20 70 6c 61 63 65 68 6f |dentical| placeho|
|00001920| 6c 64 65 72 73 0a 58 09 | 20 20 20 20 28 77 68 69 |lders.X.| (whi|
|00001930| 6c 65 20 28 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |le (re-s|earch-fo|
|00001940| 72 77 61 72 64 20 70 6c | 61 63 65 68 6f 6c 64 65 |rward pl|aceholde|
|00001950| 72 2d 73 74 72 69 6e 67 | 0a 58 09 09 09 09 20 20 |r-string|.X.... |
|00001960| 20 20 20 20 28 6d 61 72 | 6b 65 72 2d 70 6f 73 69 | (mar|ker-posi|
|00001970| 74 69 6f 6e 20 73 74 6f | 70 2d 6d 61 72 6b 65 72 |tion sto|p-marker|
|00001980| 29 20 74 29 0a 58 09 20 | 20 20 20 20 20 28 72 65 |) t).X. | (re|
|00001990| 2d 73 65 61 72 63 68 2d | 62 61 63 6b 77 61 72 64 |-search-|backward|
|000019a0| 20 70 6c 61 63 65 68 6f | 6c 64 65 72 2d 73 74 72 | placeho|lder-str|
|000019b0| 69 6e 67 29 0a 58 09 20 | 20 20 20 20 20 28 69 6e |ing).X. | (in|
|000019c0| 73 65 72 74 2d 62 65 66 | 6f 72 65 2d 6d 61 72 6b |sert-bef|ore-mark|
|000019d0| 65 72 73 20 73 79 6d 2d | 69 6e 70 75 74 29 0a 58 |ers sym-|input).X|
|000019e0| 09 20 20 20 20 20 20 28 | 64 65 6c 65 74 65 2d 63 |. (|delete-c|
|000019f0| 68 61 72 20 28 6c 65 6e | 67 74 68 20 70 6c 61 63 |har (len|gth plac|
|00001a00| 65 68 6f 6c 64 65 72 2d | 73 74 72 69 6e 67 29 29 |eholder-|string))|
|00001a10| 0a 58 09 20 20 20 20 20 | 20 29 20 3b 20 77 68 69 |.X. | ) ; whi|
|00001a20| 6c 65 20 28 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |le (re-s|earch-fo|
|00001a30| 72 77 61 72 64 2e 2e 2e | 29 0a 58 09 20 20 20 20 |rward...|).X. |
|00001a40| 28 67 6f 74 6f 2d 63 68 | 61 72 20 73 74 61 72 74 |(goto-ch|ar start|
|00001a50| 29 0a 58 09 20 20 20 20 | 29 20 3b 20 70 72 6f 67 |).X. |) ; prog|
|00001a60| 6e 0a 58 09 29 20 3b 20 | 69 66 20 73 74 6f 70 0a |n.X.) ; |if stop.|
|00001a70| 58 20 20 20 20 20 20 29 | 20 3b 20 69 66 20 28 3d |X )| ; if (=|
|00001a80| 20 28 6c 65 6e 67 74 68 | 20 73 79 6d 2d 69 6e 70 | (length| sym-inp|
|00001a90| 75 74 29 20 30 29 0a 58 | 20 20 20 20 3b 20 72 65 |ut) 0).X| ; re|
|00001aa0| 74 75 72 6e 0a 58 20 20 | 20 20 73 79 6d 2d 69 6e |turn.X | sym-in|
|00001ab0| 70 75 74 0a 58 20 20 20 | 20 29 20 3b 20 6c 65 74 |put.X | ) ; let|
|00001ac0| 0a 58 20 20 29 20 3b 20 | 64 65 66 75 6e 20 74 70 |.X ) ; |defun tp|
|00001ad0| 6c 2d 65 78 70 61 6e 64 | 2d 74 65 78 74 2d 74 79 |l-expand|-text-ty|
|00001ae0| 70 65 0a 58 0a 58 3b 3b | 3b 2b 2b 2b 2b 2b 2b 2b |pe.X.X;;|;+++++++|
|00001af0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00001b00| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00001b10| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00001b20| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 0a 58 0a 58 28 64 |++++++++|++.X.X(d|
|00001b30| 65 66 75 6e 20 74 70 6c | 2d 65 78 70 61 6e 64 2d |efun tpl|-expand-|
|00001b40| 74 65 78 74 65 6e 74 65 | 72 2d 74 79 70 65 20 28 |textente|r-type (|
|00001b50| 73 74 6f 70 29 0a 58 20 | 20 22 45 78 70 61 6e 64 |stop).X | "Expand|
|00001b60| 20 74 68 65 20 74 65 78 | 74 20 70 6c 61 63 65 68 | the tex|t placeh|
|00001b70| 6f 6c 64 65 72 20 61 74 | 20 70 6f 69 6e 74 2e 20 |older at| point. |
|00001b80| 20 52 65 70 6c 61 63 65 | 20 69 64 65 6e 74 69 63 | Replace| identic|
|00001b90| 61 6c 20 70 6c 61 63 65 | 68 6f 6c 64 65 72 73 0a |al place|holders.|
|00001ba0| 58 20 20 20 20 62 65 66 | 6f 72 65 20 53 54 4f 50 |X bef|ore STOP|
|00001bb0| 20 77 69 74 68 20 74 68 | 65 20 73 61 6d 65 20 76 | with th|e same v|
|00001bc0| 61 6c 75 65 2e 20 20 45 | 6e 74 65 72 20 74 68 61 |alue. E|nter tha|
|00001bd0| 74 20 76 61 6c 75 65 20 | 69 6e 20 74 68 65 20 73 |t value |in the s|
|00001be0| 79 6d 62 6f 6c 0a 58 20 | 20 20 20 74 61 62 6c 65 |ymbol.X | table|
|00001bf0| 2e 22 0a 58 09 09 09 09 | 09 3b 20 4c 6f 63 61 6c |.".X....|.; Local|
|00001c00| 20 56 61 72 69 61 62 6c | 65 73 0a 58 20 20 28 6c | Variabl|es.X (l|
|00001c10| 65 74 20 28 76 61 6c 75 | 65 29 0a 58 09 09 09 09 |et (valu|e).X....|
|00001c20| 09 3b 20 42 6f 64 79 0a | 58 20 20 20 20 28 73 65 |.; Body.|X (se|
|00001c30| 74 71 20 76 61 6c 75 65 | 20 28 74 70 6c 2d 65 78 |tq value| (tpl-ex|
|00001c40| 70 61 6e 64 2d 74 65 78 | 74 2d 74 79 70 65 20 73 |pand-tex|t-type s|
|00001c50| 74 6f 70 29 29 0a 58 20 | 20 20 20 28 73 79 6d 2d |top)).X | (sym-|
|00001c60| 65 6e 74 65 72 2d 69 64 | 20 76 61 6c 75 65 29 0a |enter-id| value).|
|00001c70| 58 20 20 20 20 29 20 3b | 20 6c 65 74 0a 58 20 20 |X ) ;| let.X |
|00001c80| 29 20 3b 20 64 65 66 75 | 6e 20 74 70 6c 2d 65 78 |) ; defu|n tpl-ex|
|00001c90| 70 61 6e 64 2d 74 65 78 | 74 65 6e 74 65 72 2d 74 |pand-tex|tenter-t|
|00001ca0| 79 70 65 0a 58 0a 58 0a | 58 3b 3b 3b 2b 2b 2b 2b |ype.X.X.|X;;;++++|
|00001cb0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00001cc0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00001cd0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00001ce0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 0a 58 0a |++++++++|+++++.X.|
|00001cf0| 58 28 64 65 66 75 6e 20 | 74 70 6c 2d 65 78 70 61 |X(defun |tpl-expa|
|00001d00| 6e 64 2d 74 65 78 74 6c | 6f 6e 67 2d 74 79 70 65 |nd-textl|ong-type|
|00001d10| 20 28 6e 61 6d 65 29 0a | 58 20 20 22 45 78 70 61 | (name).|X "Expa|
|00001d20| 6e 64 20 74 68 65 20 74 | 65 78 74 6c 6f 6e 67 20 |nd the t|extlong |
|00001d30| 70 6c 61 63 65 68 6f 6c | 64 65 72 20 61 74 20 70 |placehol|der at p|
|00001d40| 6f 69 6e 74 20 63 61 6c | 6c 65 64 20 4e 41 4d 45 |oint cal|led NAME|
|00001d50| 2e 22 0a 58 09 09 09 09 | 09 3b 20 4c 6f 63 61 6c |.".X....|.; Local|
|00001d60| 20 56 61 72 69 61 62 6c | 65 73 0a 58 20 20 28 6c | Variabl|es.X (l|
|00001d70| 65 74 20 28 73 74 61 72 | 74 20 64 69 73 70 6c 61 |et (star|t displa|
|00001d80| 79 2d 73 74 72 69 6e 67 | 20 73 61 76 65 2d 62 75 |y-string| save-bu|
|00001d90| 66 66 65 72 20 6e 65 77 | 2d 73 74 72 69 6e 67 20 |ffer new|-string |
|00001da0| 73 74 61 72 74 2d 63 6f | 6c 75 6d 6e 29 0a 58 09 |start-co|lumn).X.|
|00001db0| 09 09 09 09 3b 20 42 6f | 64 79 0a 58 09 09 09 09 |....; Bo|dy.X....|
|00001dc0| 09 3b 20 48 69 67 68 6c | 69 67 68 74 20 70 6c 61 |.; Highl|ight pla|
|00001dd0| 63 65 68 6f 6c 64 65 72 | 0a 58 20 20 20 20 28 73 |ceholder|.X (s|
|00001de0| 65 74 71 20 73 74 61 72 | 74 20 28 70 6f 69 6e 74 |etq star|t (point|
|00001df0| 29 29 0a 58 20 20 20 20 | 28 72 65 2d 73 65 61 72 |)).X |(re-sear|
|00001e00| 63 68 2d 66 6f 72 77 61 | 72 64 20 74 70 6c 2d 70 |ch-forwa|rd tpl-p|
|00001e10| 61 74 74 65 72 6e 2d 70 | 6c 61 63 65 68 6f 6c 64 |attern-p|lacehold|
|00001e20| 65 72 29 0a 58 20 20 20 | 20 28 64 65 6c 65 74 65 |er).X | (delete|
|00001e30| 2d 72 65 67 69 6f 6e 20 | 73 74 61 72 74 20 28 70 |-region |start (p|
|00001e40| 6f 69 6e 74 29 29 0a 58 | 20 20 20 20 28 73 65 74 |oint)).X| (set|
|00001e50| 71 20 64 69 73 70 6c 61 | 79 2d 73 74 72 69 6e 67 |q displa|y-string|
|00001e60| 20 28 63 6f 6e 63 61 74 | 20 74 70 6c 2d 64 69 73 | (concat| tpl-dis|
|00001e70| 70 6c 61 79 2d 62 65 67 | 69 6e 20 6e 61 6d 65 20 |play-beg|in name |
|00001e80| 74 70 6c 2d 64 69 73 70 | 6c 61 79 2d 65 6e 64 29 |tpl-disp|lay-end)|
|00001e90| 29 0a 58 20 20 20 20 28 | 69 6e 73 65 72 74 2d 62 |).X (|insert-b|
|00001ea0| 65 66 6f 72 65 2d 6d 61 | 72 6b 65 72 73 20 64 69 |efore-ma|rkers di|
|00001eb0| 73 70 6c 61 79 2d 73 74 | 72 69 6e 67 29 0a 58 20 |splay-st|ring).X |
|00001ec0| 20 20 20 28 62 61 63 6b | 77 61 72 64 2d 63 68 61 | (back|ward-cha|
|00001ed0| 72 20 28 6c 65 6e 67 74 | 68 20 64 69 73 70 6c 61 |r (lengt|h displa|
|00001ee0| 79 2d 73 74 72 69 6e 67 | 29 29 0a 58 09 09 09 09 |y-string|)).X....|
|00001ef0| 09 3b 20 53 61 76 65 20 | 63 75 72 72 65 6e 74 20 |.; Save |current |
|00001f00| 6c 6f 63 61 74 69 6f 6e | 0a 58 20 20 20 20 28 73 |location|.X (s|
|00001f10| 65 74 71 20 73 74 61 72 | 74 20 28 70 6f 69 6e 74 |etq star|t (point|
|00001f20| 29 29 0a 58 09 09 09 09 | 09 3b 20 50 72 65 70 61 |)).X....|.; Prepa|
|00001f30| 72 65 20 62 75 66 66 65 | 72 0a 58 20 20 20 20 28 |re buffe|r.X (|
|00001f40| 73 61 76 65 2d 77 69 6e | 64 6f 77 2d 65 78 63 75 |save-win|dow-excu|
|00001f50| 72 73 69 6f 6e 0a 58 20 | 20 20 20 20 20 28 73 65 |rsion.X | (se|
|00001f60| 74 71 20 73 61 76 65 2d | 62 75 66 66 65 72 20 28 |tq save-|buffer (|
|00001f70| 62 75 66 66 65 72 2d 6e | 61 6d 65 29 29 0a 58 20 |buffer-n|ame)).X |
|00001f80| 20 20 20 20 20 28 73 77 | 69 74 63 68 2d 74 6f 2d | (sw|itch-to-|
|00001f90| 62 75 66 66 65 72 2d 6f | 74 68 65 72 2d 77 69 6e |buffer-o|ther-win|
|00001fa0| 64 6f 77 20 74 70 6c 2d | 74 65 78 74 6c 6f 6e 67 |dow tpl-|textlong|
|00001fb0| 2d 62 75 66 66 65 72 29 | 0a 58 20 20 20 20 20 20 |-buffer)|.X |
|00001fc0| 28 65 72 61 73 65 2d 62 | 75 66 66 65 72 29 0a 58 |(erase-b|uffer).X|
|00001fd0| 20 20 20 20 20 20 28 73 | 68 72 69 6e 6b 2d 77 69 | (s|hrink-wi|
|00001fe0| 6e 64 6f 77 20 35 29 0a | 58 09 09 09 09 09 3b 20 |ndow 5).|X.....; |
|00001ff0| 57 61 69 74 20 66 6f 72 | 20 72 65 74 75 72 6e 20 |Wait for| return |
|00002000| 66 72 6f 6d 20 72 65 63 | 75 72 73 69 76 65 20 65 |from rec|ursive e|
|00002010| 64 69 74 0a 58 20 20 20 | 20 20 20 28 6d 65 73 73 |dit.X | (mess|
|00002020| 61 67 65 20 28 73 75 62 | 73 74 69 74 75 74 65 2d |age (sub|stitute-|
|00002030| 63 6f 6d 6d 61 6e 64 2d | 6b 65 79 73 0a 58 09 09 |command-|keys.X..|
|00002040| 22 54 79 70 65 20 72 65 | 70 6c 61 63 65 6d 65 6e |"Type re|placemen|
|00002050| 74 20 61 6e 64 20 65 78 | 69 74 20 77 69 74 68 20 |t and ex|it with |
|00002060| 5c 5c 5b 65 78 69 74 2d | 72 65 63 75 72 73 69 76 |\\[exit-|recursiv|
|00002070| 65 2d 65 64 69 74 5d 22 | 29 29 0a 58 20 20 20 20 |e-edit]"|)).X |
|00002080| 20 20 28 72 65 63 75 72 | 73 69 76 65 2d 65 64 69 | (recur|sive-edi|
|00002090| 74 29 0a 58 09 09 09 09 | 09 3b 20 47 65 74 20 6e |t).X....|.; Get n|
|000020a0| 65 77 20 76 61 6c 75 65 | 20 61 6e 64 20 69 6e 73 |ew value| and ins|
|000020b0| 65 72 74 0a 58 20 20 20 | 20 20 20 28 73 65 74 71 |ert.X | (setq|
|000020c0| 20 6e 65 77 2d 73 74 72 | 69 6e 67 20 28 62 75 66 | new-str|ing (buf|
|000020d0| 66 65 72 2d 73 75 62 73 | 74 72 69 6e 67 20 28 70 |fer-subs|tring (p|
|000020e0| 6f 69 6e 74 2d 6d 69 6e | 29 20 28 70 6f 69 6e 74 |oint-min|) (point|
|000020f0| 2d 6d 61 78 29 29 29 0a | 58 20 20 20 20 20 20 28 |-max))).|X (|
|00002100| 73 65 74 2d 62 75 66 66 | 65 72 20 73 61 76 65 2d |set-buff|er save-|
|00002110| 62 75 66 66 65 72 29 0a | 58 20 20 20 20 20 20 28 |buffer).|X (|
|00002120| 64 65 6c 65 74 65 2d 77 | 69 6e 64 6f 77 73 2d 6f |delete-w|indows-o|
|00002130| 6e 20 74 70 6c 2d 74 65 | 78 74 6c 6f 6e 67 2d 62 |n tpl-te|xtlong-b|
|00002140| 75 66 66 65 72 29 0a 58 | 20 20 20 20 20 20 29 20 |uffer).X| ) |
|00002150| 3b 20 73 61 76 65 2d 77 | 69 6e 64 6f 77 2d 65 78 |; save-w|indow-ex|
|00002160| 63 75 72 73 69 6f 6e 0a | 58 20 20 20 20 28 62 75 |cursion.|X (bu|
|00002170| 72 79 2d 62 75 66 66 65 | 72 20 74 70 6c 2d 74 65 |ry-buffe|r tpl-te|
|00002180| 78 74 6c 6f 6e 67 2d 62 | 75 66 66 65 72 29 0a 58 |xtlong-b|uffer).X|
|00002190| 09 09 09 09 09 3b 20 52 | 65 74 75 72 6e 20 74 6f |.....; R|eturn to|
|000021a0| 20 70 72 6f 70 65 72 20 | 6c 6f 63 61 74 69 6f 6e | proper |location|
|000021b0| 0a 58 20 20 20 20 28 67 | 6f 74 6f 2d 63 68 61 72 |.X (g|oto-char|
|000021c0| 20 73 74 61 72 74 29 0a | 58 20 20 20 20 28 64 65 | start).|X (de|
|000021d0| 6c 65 74 65 2d 63 68 61 | 72 20 28 6c 65 6e 67 74 |lete-cha|r (lengt|
|000021e0| 68 20 64 69 73 70 6c 61 | 79 2d 73 74 72 69 6e 67 |h displa|y-string|
|000021f0| 29 29 0a 58 20 20 20 20 | 28 73 65 74 71 20 73 74 |)).X |(setq st|
|00002200| 61 72 74 2d 63 6f 6c 75 | 6d 6e 20 28 63 75 72 72 |art-colu|mn (curr|
|00002210| 65 6e 74 2d 63 6f 6c 75 | 6d 6e 29 29 0a 58 20 20 |ent-colu|mn)).X |
|00002220| 20 20 28 73 65 74 71 20 | 73 74 61 72 74 20 28 70 | (setq |start (p|
|00002230| 6f 69 6e 74 29 29 0a 58 | 20 20 20 20 28 69 6e 73 |oint)).X| (ins|
|00002240| 65 72 74 2d 62 65 66 6f | 72 65 2d 6d 61 72 6b 65 |ert-befo|re-marke|
|00002250| 72 73 20 6e 65 77 2d 73 | 74 72 69 6e 67 29 0a 58 |rs new-s|tring).X|
|00002260| 20 20 20 20 28 69 6e 64 | 65 6e 74 2d 72 69 67 69 | (ind|ent-rigi|
|00002270| 64 6c 79 20 73 74 61 72 | 74 20 28 70 6f 69 6e 74 |dly star|t (point|
|00002280| 29 20 73 74 61 72 74 2d | 63 6f 6c 75 6d 6e 29 0a |) start-|column).|
|00002290| 58 20 20 20 20 29 20 3b | 20 6c 65 74 0a 58 20 20 |X ) ;| let.X |
|000022a0| 29 20 3b 20 64 65 66 75 | 6e 20 74 70 6c 2d 65 78 |) ; defu|n tpl-ex|
|000022b0| 70 61 6e 64 2d 74 65 78 | 74 6c 6f 6e 67 2d 74 79 |pand-tex|tlong-ty|
|000022c0| 70 65 0a 58 0a 58 3b 3b | 3b 2b 2b 2b 2b 2b 2b 2b |pe.X.X;;|;+++++++|
|000022d0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|000022e0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|000022f0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00002300| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 0a 58 0a 58 28 64 |++++++++|++.X.X(d|
|00002310| 65 66 75 6e 20 74 70 6c | 2d 66 69 6e 64 2d 65 6e |efun tpl|-find-en|
|00002320| 64 2d 6f 66 2d 67 72 6f | 75 70 20 28 29 0a 58 20 |d-of-gro|up ().X |
|00002330| 20 22 46 69 6e 64 20 74 | 68 65 20 65 6e 64 20 6f | "Find t|he end o|
|00002340| 66 20 61 20 67 72 6f 75 | 70 20 64 65 66 69 6e 65 |f a grou|p define|
|00002350| 64 20 66 6f 72 20 71 75 | 65 72 79 2d 72 65 70 6c |d for qu|ery-repl|
|00002360| 61 63 65 2d 67 72 6f 75 | 70 73 2e 22 0a 58 09 09 |ace-grou|ps.".X..|
|00002370| 09 09 09 3b 20 4c 6f 63 | 61 6c 20 56 61 72 69 61 |...; Loc|al Varia|
|00002380| 62 6c 65 73 0a 58 20 20 | 28 6c 65 74 20 28 29 0a |bles.X |(let ().|
|00002390| 58 09 09 09 09 09 3b 20 | 42 6f 64 79 0a 58 20 20 |X.....; |Body.X |
|000023a0| 20 20 28 69 66 20 74 70 | 6c 2d 66 6f 72 6d 2d 70 | (if tp|l-form-p|
|000023b0| 6c 61 63 65 68 6f 6c 64 | 65 72 2d 6e 61 6d 65 2d |lacehold|er-name-|
|000023c0| 66 72 6f 6d 2d 63 6f 6e | 74 65 78 74 0a 58 09 28 |from-con|text.X.(|
|000023d0| 74 70 6c 2d 6d 61 6b 65 | 2d 70 6c 61 63 65 68 6f |tpl-make|-placeho|
|000023e0| 6c 64 65 72 2d 6e 61 6d | 65 29 0a 58 20 20 20 20 |lder-nam|e).X |
|000023f0| 20 20 29 20 3b 20 69 66 | 20 74 70 6c 2d 66 6f 72 | ) ; if| tpl-for|
|00002400| 6d 2d 70 6c 61 63 65 68 | 6f 6c 64 65 72 2d 6e 61 |m-placeh|older-na|
|00002410| 6d 65 2d 66 72 6f 6d 2d | 63 6f 6e 74 65 78 74 0a |me-from-|context.|
|00002420| 58 20 20 20 20 28 69 66 | 20 74 70 6c 2d 69 6e 63 |X (if| tpl-inc|
|00002430| 6c 75 64 65 2d 70 72 65 | 66 69 78 2d 69 6e 2d 67 |lude-pre|fix-in-g|
|00002440| 72 6f 75 70 73 0a 58 09 | 28 62 65 67 69 6e 6e 69 |roups.X.|(beginni|
|00002450| 6e 67 2d 6f 66 2d 6c 69 | 6e 65 20 6e 69 6c 29 0a |ng-of-li|ne nil).|
|00002460| 58 20 20 20 20 20 20 29 | 20 3b 20 69 66 20 74 70 |X )| ; if tp|
|00002470| 6c 2d 69 6e 63 6c 75 64 | 65 2d 70 72 65 66 69 78 |l-includ|e-prefix|
|00002480| 2d 69 6e 2d 67 72 6f 75 | 70 73 0a 58 20 20 20 20 |-in-grou|ps.X |
|00002490| 28 73 65 74 2d 6d 61 72 | 6b 20 28 70 6f 69 6e 74 |(set-mar|k (point|
|000024a0| 29 29 0a 58 20 20 20 20 | 28 65 6e 64 2d 6f 66 2d |)).X |(end-of-|
|000024b0| 6c 69 6e 65 20 6e 69 6c | 29 0a 58 20 20 20 20 28 |line nil|).X (|
|000024c0| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|000024d0| 64 20 74 70 6c 2d 65 6e | 64 2d 67 72 6f 75 70 20 |d tpl-en|d-group |
|000024e0| 6e 69 6c 20 22 6e 6f 74 | 2d 74 22 29 0a 58 20 20 |nil "not|-t").X |
|000024f0| 20 20 28 69 66 20 74 70 | 6c 2d 76 65 72 69 66 79 | (if tp|l-verify|
|00002500| 2d 65 6e 64 2d 6f 66 2d | 67 72 6f 75 70 0a 58 09 |-end-of-|group.X.|
|00002510| 28 70 72 6f 67 6e 0a 58 | 09 20 20 28 6d 65 73 73 |(progn.X|. (mess|
|00002520| 61 67 65 0a 58 09 20 20 | 20 28 63 6f 6e 63 61 74 |age.X. | (concat|
|00002530| 20 22 50 6f 73 69 74 69 | 6f 6e 20 70 6f 69 6e 74 | "Positi|on point|
|00002540| 20 41 46 54 45 52 20 65 | 6e 64 20 6f 66 20 67 72 | AFTER e|nd of gr|
|00002550| 6f 75 70 20 61 6e 64 20 | 65 78 69 74 20 28 22 0a |oup and |exit (".|
|00002560| 58 09 09 20 20 20 28 73 | 75 62 73 74 69 74 75 74 |X.. (s|ubstitut|
|00002570| 65 2d 63 6f 6d 6d 61 6e | 64 2d 6b 65 79 73 20 22 |e-comman|d-keys "|
|00002580| 5c 5c 5b 65 78 69 74 2d | 72 65 63 75 72 73 69 76 |\\[exit-|recursiv|
|00002590| 65 2d 65 64 69 74 5d 22 | 29 0a 58 09 09 20 20 20 |e-edit]"|).X.. |
|000025a0| 22 29 2e 22 29 29 0a 58 | 09 20 20 28 75 6e 77 69 |").")).X|. (unwi|
|000025b0| 6e 64 2d 70 72 6f 74 65 | 63 74 0a 58 09 20 20 20 |nd-prote|ct.X. |
|000025c0| 20 20 20 28 72 65 63 75 | 72 73 69 76 65 2d 65 64 | (recu|rsive-ed|
|000025d0| 69 74 29 0a 58 09 20 20 | 20 20 29 20 3b 20 75 6e |it).X. | ) ; un|
|000025e0| 77 69 6e 64 2d 70 72 6f | 74 65 63 74 0a 58 09 20 |wind-pro|tect.X. |
|000025f0| 20 29 20 3b 20 70 72 6f | 67 6e 0a 58 20 20 20 20 | ) ; pro|gn.X |
|00002600| 20 20 29 20 3b 20 69 66 | 20 74 70 6c 2d 76 65 72 | ) ; if| tpl-ver|
|00002610| 69 66 79 2d 65 6e 64 2d | 6f 66 2d 67 72 6f 75 70 |ify-end-|of-group|
|00002620| 0a 58 20 20 20 20 28 65 | 6e 64 2d 6f 66 2d 6c 69 |.X (e|nd-of-li|
|00002630| 6e 65 20 30 29 0a 58 20 | 20 20 20 29 20 3b 20 6c |ne 0).X | ) ; l|
|00002640| 65 74 0a 58 20 20 29 20 | 3b 20 64 65 66 75 6e 20 |et.X ) |; defun |
|00002650| 74 70 6c 2d 66 69 6e 64 | 2d 65 6e 64 2d 6f 66 2d |tpl-find|-end-of-|
|00002660| 67 72 6f 75 70 0a 58 0a | 58 3b 3b 3b 2b 2b 2b 2b |group.X.|X;;;++++|
|00002670| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00002680| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00002690| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|000026a0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 0a 58 0a |++++++++|+++++.X.|
|000026b0| 58 28 64 65 66 75 6e 20 | 74 70 6c 2d 66 69 6e 64 |X(defun |tpl-find|
|000026c0| 2d 65 78 70 61 6e 73 69 | 6f 6e 2d 64 65 73 74 69 |-expansi|on-desti|
|000026d0| 6e 61 74 69 6f 6e 20 28 | 73 74 61 72 74 20 73 74 |nation (|start st|
|000026e0| 6f 70 29 0a 58 20 20 22 | 44 65 6c 65 74 65 20 73 |op).X "|Delete s|
|000026f0| 70 65 63 69 61 6c 20 64 | 65 73 74 69 6e 61 74 69 |pecial d|estinati|
|00002700| 6f 6e 20 70 6c 61 63 65 | 68 6f 6c 64 65 72 20 62 |on place|holder b|
|00002710| 65 74 77 65 65 6e 20 53 | 54 41 52 54 20 61 6e 64 |etween S|TART and|
|00002720| 20 53 54 4f 50 0a 58 20 | 20 20 20 61 6e 64 20 73 | STOP.X | and s|
|00002730| 65 74 20 64 65 73 74 69 | 6e 61 74 69 6f 6e 20 6d |et desti|nation m|
|00002740| 61 72 6b 65 72 20 69 66 | 20 61 20 64 65 73 74 69 |arker if| a desti|
|00002750| 6e 61 74 69 6f 6e 20 6e | 65 65 64 73 20 74 6f 20 |nation n|eeds to |
|00002760| 62 65 20 66 6f 75 6e 64 | 2e 22 0a 58 09 09 09 09 |be found|.".X....|
|00002770| 09 3b 20 4c 6f 63 61 6c | 20 56 61 72 69 61 62 6c |.; Local| Variabl|
|00002780| 65 73 0a 58 20 20 28 6c | 65 74 20 28 73 74 6f 70 |es.X (l|et (stop|
|00002790| 2d 6d 61 72 6b 65 72 29 | 0a 58 09 09 09 09 09 3b |-marker)|.X.....;|
|000027a0| 20 42 6f 64 79 0a 58 20 | 20 20 20 28 67 6f 74 6f | Body.X | (goto|
|000027b0| 2d 63 68 61 72 20 73 74 | 61 72 74 29 0a 58 20 20 |-char st|art).X |
|000027c0| 20 20 28 73 65 74 71 20 | 73 74 6f 70 2d 6d 61 72 | (setq |stop-mar|
|000027d0| 6b 65 72 20 28 6d 61 6b | 65 2d 6d 61 72 6b 65 72 |ker (mak|e-marker|
|000027e0| 29 29 0a 58 20 20 20 20 | 28 73 65 74 2d 6d 61 72 |)).X |(set-mar|
|000027f0| 6b 65 72 20 73 74 6f 70 | 2d 6d 61 72 6b 65 72 20 |ker stop|-marker |
|00002800| 73 74 6f 70 29 0a 58 20 | 20 20 20 28 77 68 69 6c |stop).X | (whil|
|00002810| 65 20 28 72 65 2d 73 65 | 61 72 63 68 2d 66 6f 72 |e (re-se|arch-for|
|00002820| 77 61 72 64 20 74 70 6c | 2d 64 65 73 74 69 6e 61 |ward tpl|-destina|
|00002830| 74 69 6f 6e 2d 70 6c 61 | 63 65 68 6f 6c 64 65 72 |tion-pla|ceholder|
|00002840| 20 73 74 6f 70 20 73 74 | 6f 70 29 0a 58 09 28 70 | stop st|op).X.(p|
|00002850| 72 6f 67 6e 0a 58 09 20 | 20 28 72 65 2d 73 65 61 |rogn.X. | (re-sea|
|00002860| 72 63 68 2d 62 61 63 6b | 77 61 72 64 20 74 70 6c |rch-back|ward tpl|
|00002870| 2d 70 61 74 74 65 72 6e | 2d 70 6c 61 63 65 68 6f |-pattern|-placeho|
|00002880| 6c 64 65 72 29 0a 58 09 | 20 20 28 64 65 6c 65 74 |lder).X.| (delet|
|00002890| 65 2d 70 6c 61 63 65 68 | 6f 6c 64 65 72 29 0a 58 |e-placeh|older).X|
|000028a0| 09 20 20 28 69 66 20 74 | 70 6c 2d 64 65 73 74 69 |. (if t|pl-desti|
|000028b0| 6e 61 74 69 6f 6e 2d 6e | 65 65 64 65 64 0a 58 09 |nation-n|eeded.X.|
|000028c0| 20 20 20 20 20 20 28 70 | 72 6f 67 6e 0a 58 09 09 | (p|rogn.X..|
|000028d0| 28 73 65 74 2d 6d 61 72 | 6b 65 72 20 74 70 6c 2d |(set-mar|ker tpl-|
|000028e0| 64 65 73 74 69 6e 61 74 | 69 6f 6e 2d 6d 61 72 6b |destinat|ion-mark|
|000028f0| 65 72 20 28 70 6f 69 6e | 74 29 29 0a 58 09 09 28 |er (poin|t)).X..(|
|00002900| 73 65 74 71 20 74 70 6c | 2d 64 65 73 74 69 6e 61 |setq tpl|-destina|
|00002910| 74 69 6f 6e 2d 6e 65 65 | 64 65 64 20 6e 69 6c 29 |tion-nee|ded nil)|
|00002920| 0a 58 09 09 29 20 3b 20 | 70 72 6f 67 6e 0a 58 09 |.X..) ; |progn.X.|
|00002930| 20 20 20 20 29 20 3b 20 | 69 66 20 74 70 6c 2d 64 | ) ; |if tpl-d|
|00002940| 65 73 74 69 6e 61 74 69 | 6f 6e 2d 6e 65 65 64 65 |estinati|on-neede|
|00002950| 64 0a 58 09 20 20 29 20 | 3b 20 70 72 6f 67 6e 0a |d.X. ) |; progn.|
|00002960| 58 20 20 20 20 20 20 29 | 20 3b 20 77 68 69 6c 65 |X )| ; while|
|00002970| 20 28 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 | (re-sea|rch-forw|
|00002980| 61 72 64 20 74 70 6c 2d | 64 65 73 74 69 6e 61 74 |ard tpl-|destinat|
|00002990| 69 6f 6e 2d 70 6c 61 63 | 65 68 6f 6c 64 65 72 20 |ion-plac|eholder |
|000029a0| 73 74 6f 70 20 73 74 6f | 70 29 0a 58 20 20 20 20 |stop sto|p).X |
|000029b0| 28 67 6f 74 6f 2d 63 68 | 61 72 20 28 6d 61 72 6b |(goto-ch|ar (mark|
|000029c0| 65 72 2d 70 6f 73 69 74 | 69 6f 6e 20 73 74 6f 70 |er-posit|ion stop|
|000029d0| 2d 6d 61 72 6b 65 72 29 | 29 0a 58 20 20 20 20 28 |-marker)|).X (|
|000029e0| 73 65 74 2d 6d 61 72 6b | 65 72 20 73 74 6f 70 2d |set-mark|er stop-|
|000029f0| 6d 61 72 6b 65 72 20 6e | 69 6c 29 0a 58 20 20 20 |marker n|il).X |
|00002a00| 20 29 20 3b 20 6c 65 74 | 0a 58 20 20 29 20 3b 20 | ) ; let|.X ) ; |
|00002a10| 64 65 66 75 6e 20 74 70 | 6c 2d 66 69 6e 64 2d 65 |defun tp|l-find-e|
|00002a20| 78 70 61 6e 73 69 6f 6e | 2d 64 65 73 74 69 6e 61 |xpansion|-destina|
|00002a30| 74 69 6f 6e 0a 58 0a 58 | 3b 3b 3b 2b 2b 2b 2b 2b |tion.X.X|;;;+++++|
|00002a40| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00002a50| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00002a60| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00002a70| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 0a 58 0a 58 |++++++++|++++.X.X|
|00002a80| 28 64 65 66 75 6e 20 74 | 70 6c 2d 66 69 6e 64 2d |(defun t|pl-find-|
|00002a90| 6e 65 78 74 2d 67 72 6f | 75 70 20 28 29 0a 58 20 |next-gro|up ().X |
|00002aa0| 20 22 46 69 6e 64 20 74 | 68 65 20 65 6e 64 20 6f | "Find t|he end o|
|00002ab0| 66 20 61 20 67 72 6f 75 | 70 20 64 65 66 69 6e 65 |f a grou|p define|
|00002ac0| 64 20 66 6f 72 20 71 75 | 65 72 79 2d 72 65 70 6c |d for qu|ery-repl|
|00002ad0| 61 63 65 2d 67 72 6f 75 | 70 73 2e 0a 58 20 20 20 |ace-grou|ps..X |
|00002ae0| 20 44 6f 20 6e 6f 74 20 | 69 6e 74 65 72 61 63 74 | Do not |interact|
|00002af0| 20 77 69 74 68 20 75 73 | 65 72 2e 22 0a 58 09 09 | with us|er.".X..|
|00002b00| 09 09 09 3b 20 4c 6f 63 | 61 6c 20 56 61 72 69 61 |...; Loc|al Varia|
|00002b10| 62 6c 65 73 0a 58 20 20 | 28 6c 65 74 20 28 29 0a |bles.X |(let ().|
|00002b20| 58 09 09 09 09 09 3b 20 | 42 6f 64 79 0a 58 20 20 |X.....; |Body.X |
|00002b30| 20 20 28 65 6e 64 2d 6f | 66 2d 6c 69 6e 65 20 6e | (end-o|f-line n|
|00002b40| 69 6c 29 0a 58 20 20 20 | 20 28 72 65 2d 73 65 61 |il).X | (re-sea|
|00002b50| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 74 70 6c 2d |rch-forw|ard tpl-|
|00002b60| 65 6e 64 2d 67 72 6f 75 | 70 20 6e 69 6c 20 22 6e |end-grou|p nil "n|
|00002b70| 6f 74 2d 74 22 29 0a 58 | 20 20 20 20 28 65 6e 64 |ot-t").X| (end|
|00002b80| 2d 6f 66 2d 6c 69 6e 65 | 20 30 29 0a 58 20 20 20 |-of-line| 0).X |
|00002b90| 20 29 20 3b 20 6c 65 74 | 0a 58 20 20 29 20 3b 20 | ) ; let|.X ) ; |
|00002ba0| 64 65 66 75 6e 20 74 70 | 6c 2d 66 69 6e 64 2d 6e |defun tp|l-find-n|
|00002bb0| 65 78 74 2d 67 72 6f 75 | 70 0a 58 0a 58 3b 3b 3b |ext-grou|p.X.X;;;|
|00002bc0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00002bd0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00002be0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00002bf0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00002c00| 2b 0a 58 0a 58 28 64 65 | 66 75 6e 20 74 70 6c 2d |+.X.X(de|fun tpl-|
|00002c10| 66 69 6e 64 2d 74 65 6d | 70 6c 61 74 65 2d 66 69 |find-tem|plate-fi|
|00002c20| 6c 65 20 28 66 69 6c 65 | 29 0a 58 20 20 22 46 69 |le (file|).X "Fi|
|00002c30| 6e 64 20 46 49 4c 45 20 | 75 73 69 6e 67 20 74 68 |nd FILE |using th|
|00002c40| 65 20 27 74 70 6c 2d 6c | 6f 61 64 2d 70 61 74 68 |e 'tpl-l|oad-path|
|00002c50| 20 76 61 6c 75 65 2e 22 | 0a 58 09 09 09 09 09 3b | value."|.X.....;|
|00002c60| 20 4c 6f 63 61 6c 20 56 | 61 72 69 61 62 6c 65 73 | Local V|ariables|
|00002c70| 0a 58 20 20 28 6c 65 74 | 20 28 74 70 6c 2d 6e 61 |.X (let| (tpl-na|
|00002c80| 6d 65 20 63 6f 6d 70 69 | 6c 65 64 2d 6e 61 6d 65 |me compi|led-name|
|00002c90| 20 64 69 72 2d 6c 69 73 | 74 20 6c 6f 6f 6b 69 6e | dir-lis|t lookin|
|00002ca0| 67 29 0a 58 09 09 09 09 | 09 3b 20 42 6f 64 79 0a |g).X....|.; Body.|
|00002cb0| 58 20 20 20 20 28 73 65 | 74 71 20 74 70 6c 2d 6e |X (se|tq tpl-n|
|00002cc0| 61 6d 65 20 28 63 6f 6e | 63 61 74 20 66 69 6c 65 |ame (con|cat file|
|00002cd0| 20 22 2e 74 70 6c 22 29 | 29 0a 58 20 20 20 20 28 | ".tpl")|).X (|
|00002ce0| 73 65 74 71 20 63 6f 6d | 70 69 6c 65 64 2d 6e 61 |setq com|piled-na|
|00002cf0| 6d 65 20 28 63 6f 6e 63 | 61 74 20 66 69 6c 65 20 |me (conc|at file |
|00002d00| 22 74 70 6c 2e 65 6c 63 | 22 29 29 0a 58 20 20 20 |"tpl.elc|")).X |
|00002d10| 20 28 73 65 74 71 20 6e | 61 6d 65 20 6e 69 6c 29 | (setq n|ame nil)|
|00002d20| 0a 58 20 20 20 20 28 73 | 65 74 71 20 6c 6f 6f 6b |.X (s|etq look|
|00002d30| 69 6e 67 20 74 29 0a 58 | 09 09 09 09 09 3b 20 46 |ing t).X|.....; F|
|00002d40| 69 72 73 74 20 74 72 79 | 20 63 6f 6d 70 69 6c 65 |irst try| compile|
|00002d50| 64 20 76 65 72 73 69 6f | 6e 73 0a 58 20 20 20 20 |d versio|ns.X |
|00002d60| 28 73 65 74 71 20 64 69 | 72 2d 6c 69 73 74 20 74 |(setq di|r-list t|
|00002d70| 70 6c 2d 6c 6f 61 64 2d | 70 61 74 68 29 0a 58 20 |pl-load-|path).X |
|00002d80| 20 20 20 28 77 68 69 6c | 65 20 28 61 6e 64 20 6c | (whil|e (and l|
|00002d90| 6f 6f 6b 69 6e 67 20 64 | 69 72 2d 6c 69 73 74 29 |ooking d|ir-list)|
|00002da0| 0a 58 20 20 20 20 20 20 | 28 73 65 74 71 20 6e 61 |.X |(setq na|
|00002db0| 6d 65 20 28 63 6f 6e 63 | 61 74 20 28 63 61 72 20 |me (conc|at (car |
|00002dc0| 64 69 72 2d 6c 69 73 74 | 29 20 22 2f 22 20 63 6f |dir-list|) "/" co|
|00002dd0| 6d 70 69 6c 65 64 2d 6e | 61 6d 65 29 29 0a 58 20 |mpiled-n|ame)).X |
|00002de0| 20 20 20 20 20 28 73 65 | 74 71 20 64 69 72 2d 6c | (se|tq dir-l|
|00002df0| 69 73 74 20 28 63 64 72 | 20 64 69 72 2d 6c 69 73 |ist (cdr| dir-lis|
|00002e00| 74 29 29 0a 58 20 20 20 | 20 20 20 28 69 66 20 28 |t)).X | (if (|
|00002e10| 66 69 6c 65 2d 72 65 61 | 64 61 62 6c 65 2d 70 20 |file-rea|dable-p |
|00002e20| 6e 61 6d 65 29 0a 58 09 | 20 20 28 73 65 74 71 20 |name).X.| (setq |
|00002e30| 6c 6f 6f 6b 69 6e 67 20 | 6e 69 6c 29 0a 58 09 29 |looking |nil).X.)|
|00002e40| 20 3b 20 69 66 0a 58 20 | 20 20 20 20 20 29 20 3b | ; if.X | ) ;|
|00002e50| 20 77 68 69 6c 65 0a 58 | 09 09 09 09 09 3b 20 53 | while.X|.....; S|
|00002e60| 65 63 6f 6e 64 2c 20 74 | 72 79 20 75 6e 63 6f 6d |econd, t|ry uncom|
|00002e70| 70 69 6c 65 64 0a 58 20 | 20 20 20 28 73 65 74 71 |piled.X | (setq|
|00002e80| 20 64 69 72 2d 6c 69 73 | 74 20 74 70 6c 2d 6c 6f | dir-lis|t tpl-lo|
|00002e90| 61 64 2d 70 61 74 68 29 | 0a 58 20 20 20 20 28 77 |ad-path)|.X (w|
|00002ea0| 68 69 6c 65 20 28 61 6e | 64 20 6c 6f 6f 6b 69 6e |hile (an|d lookin|
|00002eb0| 67 20 64 69 72 2d 6c 69 | 73 74 29 0a 58 20 20 20 |g dir-li|st).X |
|00002ec0| 20 20 20 28 73 65 74 71 | 20 6e 61 6d 65 20 28 63 | (setq| name (c|
|00002ed0| 6f 6e 63 61 74 20 28 63 | 61 72 20 64 69 72 2d 6c |oncat (c|ar dir-l|
|00002ee0| 69 73 74 29 20 22 2f 22 | 20 74 70 6c 2d 6e 61 6d |ist) "/"| tpl-nam|
|00002ef0| 65 29 29 0a 58 20 20 20 | 20 20 20 28 73 65 74 71 |e)).X | (setq|
|00002f00| 20 64 69 72 2d 6c 69 73 | 74 20 28 63 64 72 20 64 | dir-lis|t (cdr d|
|00002f10| 69 72 2d 6c 69 73 74 29 | 29 0a 58 20 20 20 20 20 |ir-list)|).X |
|00002f20| 20 28 69 66 20 28 66 69 | 6c 65 2d 72 65 61 64 61 | (if (fi|le-reada|
|00002f30| 62 6c 65 2d 70 20 6e 61 | 6d 65 29 0a 58 09 20 20 |ble-p na|me).X. |
|00002f40| 28 73 65 74 71 20 6c 6f | 6f 6b 69 6e 67 20 6e 69 |(setq lo|oking ni|
|00002f50| 6c 29 0a 58 09 29 20 3b | 20 69 66 0a 58 20 20 20 |l).X.) ;| if.X |
|00002f60| 20 20 20 29 20 3b 20 77 | 68 69 6c 65 0a 58 09 09 | ) ; w|hile.X..|
|00002f70| 09 09 09 3b 20 4c 61 73 | 74 2c 20 74 72 79 20 6c |...; Las|t, try l|
|00002f80| 69 74 65 72 61 6c 20 6e | 61 6d 65 0a 58 20 20 20 |iteral n|ame.X |
|00002f90| 20 28 73 65 74 71 20 64 | 69 72 2d 6c 69 73 74 20 | (setq d|ir-list |
|00002fa0| 74 70 6c 2d 6c 6f 61 64 | 2d 70 61 74 68 29 0a 58 |tpl-load|-path).X|
|00002fb0| 20 20 20 20 28 77 68 69 | 6c 65 20 28 61 6e 64 20 | (whi|le (and |
|00002fc0| 6c 6f 6f 6b 69 6e 67 20 | 64 69 72 2d 6c 69 73 74 |looking |dir-list|
|00002fd0| 29 0a 58 20 20 20 20 20 | 20 28 73 65 74 71 20 6e |).X | (setq n|
|00002fe0| 61 6d 65 20 28 63 6f 6e | 63 61 74 20 28 63 61 72 |ame (con|cat (car|
|00002ff0| 20 64 69 72 2d 6c 69 73 | 74 29 20 22 2f 22 20 66 | dir-lis|t) "/" f|
|00003000| 69 6c 65 29 29 0a 58 20 | 20 20 20 20 20 28 73 65 |ile)).X | (se|
|00003010| 74 71 20 64 69 72 2d 6c | 69 73 74 20 28 63 64 72 |tq dir-l|ist (cdr|
|00003020| 20 64 69 72 2d 6c 69 73 | 74 29 29 0a 58 20 20 20 | dir-lis|t)).X |
|00003030| 20 20 20 28 69 66 20 28 | 66 69 6c 65 2d 72 65 61 | (if (|file-rea|
|00003040| 64 61 62 6c 65 2d 70 20 | 6e 61 6d 65 29 0a 58 09 |dable-p |name).X.|
|00003050| 20 20 28 73 65 74 71 20 | 6c 6f 6f 6b 69 6e 67 20 | (setq |looking |
|00003060| 6e 69 6c 29 0a 58 09 29 | 20 3b 20 69 66 0a 58 20 |nil).X.)| ; if.X |
|00003070| 20 20 20 20 20 29 20 3b | 20 77 68 69 6c 65 0a 58 | ) ;| while.X|
|00003080| 20 20 20 20 3b 20 72 65 | 74 75 72 6e 0a 58 20 20 | ; re|turn.X |
|00003090| 20 20 6e 61 6d 65 0a 58 | 20 20 20 20 29 20 3b 20 | name.X| ) ; |
|000030a0| 6c 65 74 0a 58 20 20 29 | 20 3b 20 64 65 66 75 6e |let.X )| ; defun|
|000030b0| 20 74 70 6c 2d 66 69 6e | 64 2d 74 65 6d 70 6c 61 | tpl-fin|d-templa|
|000030c0| 74 65 2d 66 69 6c 65 0a | 58 0a 58 3b 3b 3b 2b 2b |te-file.|X.X;;;++|
|000030d0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|000030e0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|000030f0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00003100| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 0a |++++++++|+++++++.|
|00003110| 58 0a 58 28 64 65 66 75 | 6e 20 74 70 6c 2d 66 69 |X.X(defu|n tpl-fi|
|00003120| 6e 64 2d 74 65 6d 70 6c | 61 74 65 20 28 74 70 6c |nd-templ|ate (tpl|
|00003130| 2d 6e 61 6d 65 29 0a 58 | 20 20 22 46 69 6e 64 20 |-name).X| "Find |
|00003140| 74 65 6d 70 6c 61 74 65 | 20 54 50 4c 5f 4e 41 4d |template| TPL_NAM|
|00003150| 45 20 61 6e 64 20 72 65 | 74 75 72 6e 20 74 65 6d |E and re|turn tem|
|00003160| 70 6c 61 74 65 20 6f 72 | 20 6e 69 6c 20 28 69 66 |plate or| nil (if|
|00003170| 20 6e 6f 74 20 66 6f 75 | 6e 64 29 2e 22 0a 58 09 | not fou|nd).".X.|
|00003180| 09 09 09 09 3b 20 4c 6f | 63 61 6c 20 56 61 72 69 |....; Lo|cal Vari|
|00003190| 61 62 6c 65 73 0a 58 20 | 20 28 6c 65 74 20 28 66 |ables.X | (let (f|
|000031a0| 6f 75 6e 64 20 66 69 6c | 65 2d 6c 69 73 74 20 74 |ound fil|e-list t|
|000031b0| 65 6d 70 6c 61 74 65 2d | 66 69 6c 65 20 74 65 6d |emplate-|file tem|
|000031c0| 70 6c 61 74 65 2d 6c 69 | 73 74 20 74 65 6d 70 6c |plate-li|st templ|
|000031d0| 61 74 65 20 74 65 6d 70 | 6c 61 74 65 2d 6e 61 6d |ate temp|late-nam|
|000031e0| 65 29 0a 58 09 09 09 09 | 09 3b 20 42 6f 64 79 0a |e).X....|.; Body.|
|000031f0| 58 20 20 20 20 28 73 65 | 74 71 20 66 6f 75 6e 64 |X (se|tq found|
|00003200| 20 6e 69 6c 29 0a 58 20 | 20 20 20 28 73 65 74 71 | nil).X | (setq|
|00003210| 20 66 69 6c 65 2d 6c 69 | 73 74 20 74 70 6c 2d 6c | file-li|st tpl-l|
|00003220| 6f 63 61 6c 2d 74 65 6d | 70 6c 61 74 65 2d 6c 69 |ocal-tem|plate-li|
|00003230| 73 74 29 0a 58 20 20 20 | 20 28 77 68 69 6c 65 20 |st).X | (while |
|00003240| 28 61 6e 64 20 66 69 6c | 65 2d 6c 69 73 74 20 28 |(and fil|e-list (|
|00003250| 6e 6f 74 20 66 6f 75 6e | 64 29 29 0a 58 20 20 20 |not foun|d)).X |
|00003260| 20 20 20 28 73 65 74 71 | 20 74 65 6d 70 6c 61 74 | (setq| templat|
|00003270| 65 2d 66 69 6c 65 20 28 | 63 61 72 20 66 69 6c 65 |e-file (|car file|
|00003280| 2d 6c 69 73 74 29 29 0a | 58 20 20 20 20 20 20 28 |-list)).|X (|
|00003290| 73 65 74 71 20 66 69 6c | 65 2d 6c 69 73 74 20 28 |setq fil|e-list (|
|000032a0| 63 64 72 20 66 69 6c 65 | 2d 6c 69 73 74 29 29 0a |cdr file|-list)).|
|000032b0| 58 20 20 20 20 20 20 28 | 73 65 74 71 20 74 65 6d |X (|setq tem|
|000032c0| 70 6c 61 74 65 2d 6c 69 | 73 74 20 28 6e 74 68 20 |plate-li|st (nth |
|000032d0| 31 20 74 65 6d 70 6c 61 | 74 65 2d 66 69 6c 65 29 |1 templa|te-file)|
|000032e0| 29 0a 58 20 20 20 20 20 | 20 28 77 68 69 6c 65 20 |).X | (while |
|000032f0| 28 61 6e 64 20 74 65 6d | 70 6c 61 74 65 2d 6c 69 |(and tem|plate-li|
|00003300| 73 74 20 28 6e 6f 74 20 | 66 6f 75 6e 64 29 29 0a |st (not |found)).|
|00003310| 58 09 28 73 65 74 71 20 | 74 65 6d 70 6c 61 74 65 |X.(setq |template|
|00003320| 20 28 63 61 72 20 74 65 | 6d 70 6c 61 74 65 2d 6c | (car te|mplate-l|
|00003330| 69 73 74 29 29 0a 58 09 | 28 73 65 74 71 20 74 65 |ist)).X.|(setq te|
|00003340| 6d 70 6c 61 74 65 2d 6c | 69 73 74 20 28 63 64 72 |mplate-l|ist (cdr|
|00003350| 20 74 65 6d 70 6c 61 74 | 65 2d 6c 69 73 74 29 29 | templat|e-list))|
|00003360| 0a 58 09 28 73 65 74 71 | 20 74 65 6d 70 6c 61 74 |.X.(setq| templat|
|00003370| 65 2d 6e 61 6d 65 20 28 | 74 70 6c 2d 74 6f 6b 65 |e-name (|tpl-toke|
|00003380| 6e 2d 6e 61 6d 65 20 74 | 65 6d 70 6c 61 74 65 29 |n-name t|emplate)|
|00003390| 29 0a 58 09 28 69 66 20 | 28 65 71 75 61 6c 20 74 |).X.(if |(equal t|
|000033a0| 65 6d 70 6c 61 74 65 2d | 6e 61 6d 65 20 74 70 6c |emplate-|name tpl|
|000033b0| 2d 6e 61 6d 65 29 0a 58 | 09 20 20 20 20 28 73 65 |-name).X|. (se|
|000033c0| 74 71 20 66 6f 75 6e 64 | 20 74 65 6d 70 6c 61 74 |tq found| templat|
|000033d0| 65 29 0a 58 09 20 20 29 | 20 3b 20 69 66 20 28 65 |e).X. )| ; if (e|
|000033e0| 71 75 61 6c 20 74 65 6d | 70 6c 61 74 65 2d 6e 61 |qual tem|plate-na|
|000033f0| 6d 65 20 74 70 6c 2d 6e | 61 6d 65 29 0a 58 09 29 |me tpl-n|ame).X.)|
|00003400| 20 3b 20 77 68 69 6c 65 | 20 28 61 6e 64 20 74 65 | ; while| (and te|
|00003410| 6d 70 6c 61 74 65 2d 6c | 69 73 74 20 28 6e 6f 74 |mplate-l|ist (not|
|00003420| 20 66 6f 75 6e 64 29 29 | 0a 58 20 20 20 20 20 20 | found))|.X |
|00003430| 29 20 3b 20 77 68 69 6c | 65 20 28 61 6e 64 20 66 |) ; whil|e (and f|
|00003440| 69 6c 65 2d 6c 69 73 74 | 20 28 6e 6f 74 20 66 6f |ile-list| (not fo|
|00003450| 75 6e 64 29 29 0a 58 09 | 09 09 09 09 3b 20 72 65 |und)).X.|....; re|
|00003460| 74 75 72 6e 0a 58 20 20 | 20 20 66 6f 75 6e 64 0a |turn.X | found.|
|00003470| 58 20 20 20 20 29 20 3b | 20 6c 65 74 0a 58 20 20 |X ) ;| let.X |
|00003480| 29 20 3b 20 64 65 66 75 | 6e 20 74 70 6c 2d 66 69 |) ; defu|n tpl-fi|
|00003490| 6e 64 2d 74 65 6d 70 6c | 61 74 65 0a 58 0a 58 3b |nd-templ|ate.X.X;|
|000034a0| 3b 3b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |;;++++++|++++++++|
|000034b0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|000034c0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|000034d0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|000034e0| 2b 2b 2b 0a 58 0a 58 28 | 64 65 66 75 6e 20 74 70 |+++.X.X(|defun tp|
|000034f0| 6c 2d 66 69 6e 64 2d 74 | 79 70 65 2d 6f 66 2d 74 |l-find-t|ype-of-t|
|00003500| 65 6d 70 6c 61 74 65 20 | 28 6e 61 6d 65 29 0a 58 |emplate |(name).X|
|00003510| 20 20 22 46 69 6e 64 20 | 74 65 6d 70 6c 61 74 65 | "Find |template|
|00003520| 20 4e 41 4d 45 20 61 6e | 64 20 72 65 74 75 72 6e | NAME an|d return|
|00003530| 20 69 74 73 20 74 79 70 | 65 20 6f 72 20 6e 69 6c | its typ|e or nil|
|00003540| 20 28 69 66 20 6e 6f 74 | 20 66 6f 75 6e 64 29 2e | (if not| found).|
|00003550| 22 0a 58 09 09 09 09 09 | 3b 20 4c 6f 63 61 6c 20 |".X.....|; Local |
|00003560| 56 61 72 69 61 62 6c 65 | 73 0a 58 20 20 28 6c 65 |Variable|s.X (le|
|00003570| 74 20 28 74 65 6d 70 6c | 61 74 65 20 72 65 73 75 |t (templ|ate resu|
|00003580| 6c 74 29 0a 58 09 09 09 | 09 09 3b 20 42 6f 64 79 |lt).X...|..; Body|
|00003590| 0a 58 20 20 20 20 28 73 | 65 74 71 20 74 65 6d 70 |.X (s|etq temp|
|000035a0| 6c 61 74 65 20 28 74 70 | 6c 2d 66 69 6e 64 2d 74 |late (tp|l-find-t|
|000035b0| 65 6d 70 6c 61 74 65 20 | 6e 61 6d 65 29 29 0a 58 |emplate |name)).X|
|000035c0| 20 20 20 20 28 69 66 20 | 74 65 6d 70 6c 61 74 65 | (if |template|
|000035d0| 0a 58 09 28 73 65 74 71 | 20 72 65 73 75 6c 74 20 |.X.(setq| result |
|000035e0| 28 74 70 6c 2d 74 6f 6b | 65 6e 2d 74 79 70 65 20 |(tpl-tok|en-type |
|000035f0| 74 65 6d 70 6c 61 74 65 | 29 29 0a 58 20 20 20 20 |template|)).X |
|00003600| 20 20 28 73 65 74 71 20 | 72 65 73 75 6c 74 20 6e | (setq |result n|
|00003610| 69 6c 29 0a 58 20 20 20 | 20 20 20 29 20 3b 20 69 |il).X | ) ; i|
|00003620| 66 0a 58 09 09 09 09 09 | 3b 20 72 65 74 75 72 6e |f.X.....|; return|
|00003630| 0a 58 20 20 20 20 72 65 | 73 75 6c 74 0a 58 20 20 |.X re|sult.X |
|00003640| 20 20 29 20 3b 20 6c 65 | 74 0a 58 20 20 29 20 3b | ) ; le|t.X ) ;|
|00003650| 20 64 65 66 75 6e 20 74 | 70 6c 2d 66 69 6e 64 2d | defun t|pl-find-|
|00003660| 74 79 70 65 2d 6f 66 2d | 74 65 6d 70 6c 61 74 65 |type-of-|template|
|00003670| 0a 58 0a 58 3b 3b 3b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |.X.X;;;+|++++++++|
|00003680| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00003690| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|000036a0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|000036b0| 2b 2b 2b 2b 2b 2b 2b 2b | 0a 58 0a 58 28 64 65 66 |++++++++|.X.X(def|
|000036c0| 75 6e 20 74 70 6c 2d 66 | 69 6e 64 2d 76 61 6c 75 |un tpl-f|ind-valu|
|000036d0| 65 2d 6f 66 2d 74 65 6d | 70 6c 61 74 65 20 28 6e |e-of-tem|plate (n|
|000036e0| 61 6d 65 29 0a 58 20 20 | 22 46 69 6e 64 20 74 65 |ame).X |"Find te|
|000036f0| 6d 70 6c 61 74 65 20 4e | 41 4d 45 20 61 6e 64 20 |mplate N|AME and |
|00003700| 72 65 74 75 72 6e 20 69 | 74 73 20 76 61 6c 75 65 |return i|ts value|
|00003710| 20 6f 72 20 6e 69 6c 20 | 28 69 66 20 6e 6f 74 20 | or nil |(if not |
|00003720| 66 6f 75 6e 64 29 2e 22 | 0a 58 09 09 09 09 09 3b |found)."|.X.....;|
|00003730| 20 4c 6f 63 61 6c 20 56 | 61 72 69 61 62 6c 65 73 | Local V|ariables|
|00003740| 0a 58 20 20 28 6c 65 74 | 20 28 74 65 6d 70 6c 61 |.X (let| (templa|
|00003750| 74 65 20 72 65 73 75 6c | 74 29 0a 58 09 09 09 09 |te resul|t).X....|
|00003760| 09 3b 20 42 6f 64 79 0a | 58 20 20 20 20 28 73 65 |.; Body.|X (se|
|00003770| 74 71 20 74 65 6d 70 6c | 61 74 65 20 28 74 70 6c |tq templ|ate (tpl|
|00003780| 2d 66 69 6e 64 2d 74 65 | 6d 70 6c 61 74 65 20 6e |-find-te|mplate n|
|00003790| 61 6d 65 29 29 0a 58 20 | 20 20 20 28 69 66 20 74 |ame)).X | (if t|
|000037a0| 65 6d 70 6c 61 74 65 0a | 58 09 28 73 65 74 71 20 |emplate.|X.(setq |
|000037b0| 72 65 73 75 6c 74 20 28 | 74 70 6c 2d 74 6f 6b 65 |result (|tpl-toke|
|000037c0| 6e 2d 76 61 6c 75 65 20 | 74 65 6d 70 6c 61 74 65 |n-value |template|
|000037d0| 29 29 0a 58 20 20 20 20 | 20 20 28 73 65 74 71 20 |)).X | (setq |
|000037e0| 72 65 73 75 6c 74 20 6e | 69 6c 29 0a 58 20 20 20 |result n|il).X |
|000037f0| 20 20 20 29 20 3b 20 69 | 66 0a 58 09 09 09 09 09 | ) ; i|f.X.....|
|00003800| 3b 20 72 65 74 75 72 6e | 0a 58 20 20 20 20 72 65 |; return|.X re|
|00003810| 73 75 6c 74 0a 58 20 20 | 20 20 29 20 3b 20 6c 65 |sult.X | ) ; le|
|00003820| 74 0a 58 20 20 29 20 3b | 20 64 65 66 75 6e 20 74 |t.X ) ;| defun t|
|00003830| 70 6c 2d 66 69 6e 64 2d | 76 61 6c 75 65 2d 6f 66 |pl-find-|value-of|
|00003840| 2d 74 65 6d 70 6c 61 74 | 65 0a 58 0a 58 3b 3b 3b |-templat|e.X.X;;;|
|00003850| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00003860| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00003870| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00003880| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00003890| 2b 0a 58 0a 58 28 64 65 | 66 75 6e 20 74 70 6c 2d |+.X.X(de|fun tpl-|
|000038a0| 66 69 6e 64 2d 77 72 61 | 70 70 65 72 73 20 28 74 |find-wra|ppers (t|
|000038b0| 70 6c 2d 6e 61 6d 65 29 | 0a 58 20 20 22 46 69 6e |pl-name)|.X "Fin|
|000038c0| 64 20 74 68 65 20 62 65 | 67 69 6e 6e 69 6e 67 20 |d the be|ginning |
|000038d0| 61 6e 64 20 65 6e 64 69 | 6e 67 20 70 61 72 74 20 |and endi|ng part |
|000038e0| 6f 66 20 54 50 4c 2d 4e | 41 4d 45 20 74 68 61 74 |of TPL-N|AME that|
|000038f0| 20 65 6e 63 6c 6f 73 65 | 73 20 61 0a 58 20 20 20 | enclose|s a.X |
|00003900| 20 64 65 73 74 69 6e 61 | 74 69 6f 6e 20 70 6c 61 | destina|tion pla|
|00003910| 63 65 68 6f 6c 64 65 72 | 2e 22 0a 58 09 09 09 09 |ceholder|.".X....|
|00003920| 09 3b 20 4c 6f 63 61 6c | 20 56 61 72 69 61 62 6c |.; Local| Variabl|
|00003930| 65 73 0a 58 20 20 28 6c | 65 74 20 28 6d 73 67 20 |es.X (l|et (msg |
|00003940| 74 65 6d 70 6c 61 74 65 | 20 6d 69 64 70 6f 69 6e |template| midpoin|
|00003950| 74 20 72 65 73 75 6c 74 | 29 0a 58 09 09 09 09 09 |t result|).X.....|
|00003960| 3b 20 42 6f 64 79 0a 58 | 20 20 20 20 28 73 65 74 |; Body.X| (set|
|00003970| 71 20 6d 73 67 20 6e 69 | 6c 29 0a 58 20 20 20 20 |q msg ni|l).X |
|00003980| 28 73 65 74 71 20 74 65 | 6d 70 6c 61 74 65 20 28 |(setq te|mplate (|
|00003990| 74 70 6c 2d 66 69 6e 64 | 2d 74 65 6d 70 6c 61 74 |tpl-find|-templat|
|000039a0| 65 20 74 70 6c 2d 6e 61 | 6d 65 29 29 0a 58 20 20 |e tpl-na|me)).X |
|000039b0| 20 20 28 73 61 76 65 2d | 65 78 63 75 72 73 69 6f | (save-|excursio|
|000039c0| 6e 0a 58 20 20 20 20 20 | 20 28 73 65 74 2d 62 75 |n.X | (set-bu|
|000039d0| 66 66 65 72 20 74 70 6c | 2d 77 6f 72 6b 2d 62 75 |ffer tpl|-work-bu|
|000039e0| 66 66 65 72 29 0a 58 20 | 20 20 20 20 20 28 65 72 |ffer).X | (er|
|000039f0| 61 73 65 2d 62 75 66 66 | 65 72 29 0a 58 20 20 20 |ase-buff|er).X |
|00003a00| 20 20 20 28 69 66 20 74 | 65 6d 70 6c 61 74 65 0a | (if t|emplate.|
|00003a10| 58 09 20 20 28 70 72 6f | 67 6e 0a 58 09 20 20 20 |X. (pro|gn.X. |
|00003a20| 20 28 74 70 6c 2d 75 6e | 73 63 61 6e 20 74 65 6d | (tpl-un|scan tem|
|00003a30| 70 6c 61 74 65 29 0a 58 | 09 20 20 20 20 28 67 6f |plate).X|. (go|
|00003a40| 74 6f 2d 63 68 61 72 20 | 28 70 6f 69 6e 74 2d 6d |to-char |(point-m|
|00003a50| 69 6e 29 29 0a 58 09 20 | 20 20 20 28 69 66 20 28 |in)).X. | (if (|
|00003a60| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00003a70| 64 20 74 70 6c 2d 64 65 | 73 74 69 6e 61 74 69 6f |d tpl-de|stinatio|
|00003a80| 6e 2d 70 6c 61 63 65 68 | 6f 6c 64 65 72 0a 58 09 |n-placeh|older.X.|
|00003a90| 09 09 09 20 20 20 28 70 | 6f 69 6e 74 2d 6d 61 78 |... (p|oint-max|
|00003aa0| 29 20 74 29 0a 58 09 09 | 28 70 72 6f 67 6e 0a 58 |) t).X..|(progn.X|
|00003ab0| 09 09 20 20 28 64 65 6c | 65 74 65 2d 72 65 67 69 |.. (del|ete-regi|
|00003ac0| 6f 6e 20 28 6d 61 74 63 | 68 2d 62 65 67 69 6e 6e |on (matc|h-beginn|
|00003ad0| 69 6e 67 20 30 29 20 28 | 6d 61 74 63 68 2d 65 6e |ing 0) (|match-en|
|00003ae0| 64 20 30 29 29 0a 58 09 | 09 20 20 28 73 65 74 71 |d 0)).X.|. (setq|
|00003af0| 20 6d 69 64 70 6f 69 6e | 74 20 28 70 6f 69 6e 74 | midpoin|t (point|
|00003b00| 29 29 0a 58 09 09 20 20 | 29 20 3b 20 70 72 6f 67 |)).X.. |) ; prog|
|00003b10| 6e 0a 58 09 20 20 20 20 | 20 20 3b 20 65 6c 73 65 |n.X. | ; else|
|00003b20| 0a 58 09 20 20 20 20 20 | 20 28 70 72 6f 67 6e 0a |.X. | (progn.|
|00003b30| 58 09 09 28 73 65 74 71 | 20 6d 73 67 20 22 54 65 |X..(setq| msg "Te|
|00003b40| 6d 70 6c 61 74 65 20 64 | 6f 65 73 20 6e 6f 74 20 |mplate d|oes not |
|00003b50| 63 6f 6e 74 61 69 6e 20 | 61 20 64 65 73 74 69 6e |contain |a destin|
|00003b60| 61 74 69 6f 6e 20 70 6c | 61 63 65 68 6f 6c 64 65 |ation pl|aceholde|
|00003b70| 72 2e 22 29 0a 58 09 09 | 29 20 3b 20 70 72 6f 67 |r.").X..|) ; prog|
|00003b80| 6e 0a 58 09 20 20 20 20 | 20 20 29 20 3b 20 69 66 |n.X. | ) ; if|
|00003b90| 0a 58 09 20 20 20 20 29 | 20 3b 20 70 72 6f 67 6e |.X. )| ; progn|
|00003ba0| 0a 58 09 3b 20 65 6c 73 | 65 0a 58 09 28 70 72 6f |.X.; els|e.X.(pro|
|00003bb0| 67 6e 0a 58 09 20 20 28 | 73 65 74 71 20 6d 73 67 |gn.X. (|setq msg|
|00003bc0| 20 22 43 61 6e 6e 6f 74 | 20 66 69 6e 64 20 74 65 | "Cannot| find te|
|00003bd0| 6d 70 6c 61 74 65 2e 22 | 29 0a 58 09 20 20 29 20 |mplate."|).X. ) |
|00003be0| 3b 20 70 72 6f 67 6e 0a | 58 09 29 20 3b 20 69 66 |; progn.|X.) ; if|
|00003bf0| 20 74 65 6d 70 6c 61 74 | 65 0a 58 20 20 20 20 20 | templat|e.X |
|00003c00| 20 28 69 66 20 28 6e 6f | 74 20 6d 73 67 29 0a 58 | (if (no|t msg).X|
|00003c10| 09 20 20 28 73 65 74 71 | 20 72 65 73 75 6c 74 20 |. (setq| result |
|00003c20| 28 6c 69 73 74 20 28 62 | 75 66 66 65 72 2d 73 75 |(list (b|uffer-su|
|00003c30| 62 73 74 72 69 6e 67 20 | 31 20 6d 69 64 70 6f 69 |bstring |1 midpoi|
|00003c40| 6e 74 29 0a 58 09 09 09 | 20 20 20 20 20 28 62 75 |nt).X...| (bu|
|00003c50| 66 66 65 72 2d 73 75 62 | 73 74 72 69 6e 67 20 6d |ffer-sub|string m|
|00003c60| 69 64 70 6f 69 6e 74 20 | 28 70 6f 69 6e 74 2d 6d |idpoint |(point-m|
|00003c70| 61 78 29 29 0a 58 09 09 | 09 20 20 20 20 20 28 63 |ax)).X..|. (c|
|00003c80| 75 72 72 65 6e 74 2d 63 | 6f 6c 75 6d 6e 29 29 29 |urrent-c|olumn)))|
|00003c90| 0a 58 09 29 20 3b 20 69 | 66 0a 58 20 20 20 20 20 |.X.) ; i|f.X |
|00003ca0| 20 29 20 3b 20 73 61 76 | 65 2d 65 78 63 75 72 73 | ) ; sav|e-excurs|
|00003cb0| 69 6f 6e 0a 58 20 20 20 | 20 28 62 75 72 79 2d 62 |ion.X | (bury-b|
|00003cc0| 75 66 66 65 72 20 74 70 | 6c 2d 77 6f 72 6b 2d 62 |uffer tp|l-work-b|
|00003cd0| 75 66 66 65 72 29 0a 58 | 20 20 20 20 28 69 66 20 |uffer).X| (if |
|00003ce0| 6d 73 67 0a 58 09 28 65 | 72 72 6f 72 20 6d 73 67 |msg.X.(e|rror msg|
|00003cf0| 29 0a 58 20 20 20 20 20 | 20 29 20 3b 20 69 66 0a |).X | ) ; if.|
|00003d00| 58 09 09 09 09 09 3b 20 | 72 65 74 75 72 6e 0a 58 |X.....; |return.X|
|00003d10| 20 20 20 20 72 65 73 75 | 6c 74 0a 58 20 20 20 20 | resu|lt.X |
|00003d20| 29 20 3b 20 6c 65 74 0a | 58 20 20 29 20 3b 20 64 |) ; let.|X ) ; d|
|00003d30| 65 66 75 6e 20 74 70 6c | 2d 66 69 6e 64 2d 77 72 |efun tpl|-find-wr|
|00003d40| 61 70 70 65 72 73 0a 58 | 0a 58 3b 3b 3b 2b 2b 2b |appers.X|.X;;;+++|
|00003d50| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00003d60| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00003d70| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00003d80| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 0a 58 |++++++++|++++++.X|
|00003d90| 0a 58 28 64 65 66 75 6e | 20 74 70 6c 2d 67 65 6e |.X(defun| tpl-gen|
|00003da0| 65 72 61 74 65 20 28 74 | 70 6c 2d 6e 61 6d 65 29 |erate (t|pl-name)|
|00003db0| 0a 58 20 20 22 49 6e 73 | 65 72 74 20 61 6e 64 20 |.X "Ins|ert and |
|00003dc0| 65 78 70 61 6e 64 20 74 | 68 65 20 74 65 6d 70 6c |expand t|he templ|
|00003dd0| 61 74 65 20 54 50 4c 2d | 4e 41 4d 45 20 61 74 20 |ate TPL-|NAME at |
|00003de0| 70 6f 69 6e 74 2e 22 0a | 58 09 09 09 09 09 3b 20 |point.".|X.....; |
|00003df0| 4c 6f 63 61 6c 20 56 61 | 72 69 61 62 6c 65 73 0a |Local Va|riables.|
|00003e00| 58 20 20 28 6c 65 74 20 | 28 73 74 61 72 74 20 73 |X (let |(start s|
|00003e10| 74 6f 70 29 0a 58 09 09 | 09 09 09 3b 20 42 6f 64 |top).X..|...; Bod|
|00003e20| 79 0a 58 20 20 20 20 3b | 20 49 6e 73 65 72 74 20 |y.X ;| Insert |
|00003e30| 61 6e 64 20 65 78 70 61 | 6e 64 20 74 65 6d 70 6c |and expa|nd templ|
|00003e40| 61 74 65 0a 58 20 20 20 | 20 28 73 65 74 71 20 73 |ate.X | (setq s|
|00003e50| 74 61 72 74 20 28 70 6f | 69 6e 74 29 29 0a 58 20 |tart (po|int)).X |
|00003e60| 20 20 20 28 69 6e 73 65 | 72 74 2d 62 65 66 6f 72 | (inse|rt-befor|
|00003e70| 65 2d 6d 61 72 6b 65 72 | 73 20 74 70 6c 2d 62 65 |e-marker|s tpl-be|
|00003e80| 67 69 6e 2d 70 6c 61 63 | 65 68 6f 6c 64 65 72 20 |gin-plac|eholder |
|00003e90| 74 70 6c 2d 6e 61 6d 65 | 20 74 70 6c 2d 65 6e 64 |tpl-name| tpl-end|
|00003ea0| 2d 70 6c 61 63 65 68 6f | 6c 64 65 72 29 0a 58 20 |-placeho|lder).X |
|00003eb0| 20 20 20 28 67 6f 74 6f | 2d 63 68 61 72 20 73 74 | (goto|-char st|
|00003ec0| 61 72 74 29 0a 58 20 20 | 20 20 28 73 65 74 71 20 |art).X | (setq |
|00003ed0| 74 70 6c 2d 64 65 73 74 | 69 6e 61 74 69 6f 6e 2d |tpl-dest|ination-|
|00003ee0| 6e 65 65 64 65 64 20 74 | 29 0a 58 20 20 20 20 28 |needed t|).X (|
|00003ef0| 6d 65 73 73 61 67 65 20 | 22 4c 6f 6f 6b 69 6e 67 |message |"Looking|
|00003f00| 20 66 6f 72 20 74 65 6d | 70 6c 61 74 65 2e 2e 2e | for tem|plate...|
|00003f10| 22 29 0a 58 20 20 20 20 | 28 74 70 6c 2d 65 78 70 |").X |(tpl-exp|
|00003f20| 61 6e 64 2d 70 6c 61 63 | 65 68 6f 6c 64 65 72 20 |and-plac|eholder |
|00003f30| 6e 69 6c 29 0a 58 20 20 | 20 20 28 73 65 74 71 20 |nil).X | (setq |
|00003f40| 73 74 6f 70 20 28 70 6f | 69 6e 74 29 29 0a 58 20 |stop (po|int)).X |
|00003f50| 20 20 20 28 69 66 20 28 | 6e 6f 74 20 74 70 6c 2d | (if (|not tpl-|
|00003f60| 64 65 73 74 69 6e 61 74 | 69 6f 6e 2d 6e 65 65 64 |destinat|ion-need|
|00003f70| 65 64 29 0a 58 09 28 70 | 72 6f 67 6e 0a 58 09 20 |ed).X.(p|rogn.X. |
|00003f80| 20 28 67 6f 74 6f 2d 63 | 68 61 72 20 28 6d 61 72 | (goto-c|har (mar|
|00003f90| 6b 65 72 2d 70 6f 73 69 | 74 69 6f 6e 20 74 70 6c |ker-posi|tion tpl|
|00003fa0| 2d 64 65 73 74 69 6e 61 | 74 69 6f 6e 2d 6d 61 72 |-destina|tion-mar|
|00003fb0| 6b 65 72 29 29 0a 58 09 | 20 20 28 73 65 74 2d 6d |ker)).X.| (set-m|
|00003fc0| 61 72 6b 65 72 20 74 70 | 6c 2d 64 65 73 74 69 6e |arker tp|l-destin|
|00003fd0| 61 74 69 6f 6e 2d 6d 61 | 72 6b 65 72 20 6e 69 6c |ation-ma|rker nil|
|00003fe0| 29 0a 58 09 20 20 29 20 | 3b 20 70 72 6f 67 6e 0a |).X. ) |; progn.|
|00003ff0| 58 20 20 20 20 20 20 3b | 20 65 6c 73 65 0a 58 20 |X ;| else.X |
|00004000| 20 20 20 20 20 28 70 72 | 6f 67 6e 0a 58 09 28 73 | (pr|ogn.X.(s|
|00004010| 65 74 71 20 74 70 6c 2d | 64 65 73 74 69 6e 61 74 |etq tpl-|destinat|
|00004020| 69 6f 6e 2d 6e 65 65 64 | 65 64 20 6e 69 6c 29 0a |ion-need|ed nil).|
|00004030| 58 09 28 67 6f 74 6f 2d | 63 68 61 72 20 73 74 61 |X.(goto-|char sta|
|00004040| 72 74 29 0a 58 09 28 69 | 66 20 28 72 65 2d 73 65 |rt).X.(i|f (re-se|
|00004050| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 74 70 6c |arch-for|ward tpl|
|00004060| 2d 70 61 74 74 65 72 6e | 2d 70 6c 61 63 65 68 6f |-pattern|-placeho|
|00004070| 6c 64 65 72 20 73 74 6f | 70 20 73 74 6f 70 29 0a |lder sto|p stop).|
|00004080| 58 09 20 20 20 20 28 72 | 65 2d 73 65 61 72 63 68 |X. (r|e-search|
|00004090| 2d 62 61 63 6b 77 61 72 | 64 20 74 70 6c 2d 70 61 |-backwar|d tpl-pa|
|000040a0| 74 74 65 72 6e 2d 70 6c | 61 63 65 68 6f 6c 64 65 |ttern-pl|aceholde|
|000040b0| 72 29 0a 58 09 20 20 29 | 20 3b 20 69 66 0a 58 09 |r).X. )| ; if.X.|
|000040c0| 29 20 3b 20 70 72 6f 67 | 6e 0a 58 20 20 20 20 20 |) ; prog|n.X |
|000040d0| 20 29 20 3b 20 69 66 20 | 28 6e 6f 74 20 74 70 6c | ) ; if |(not tpl|
|000040e0| 2d 64 65 73 74 69 6e 61 | 74 69 6f 6e 2d 6e 65 65 |-destina|tion-nee|
|000040f0| 64 65 64 29 0a 58 20 20 | 20 20 28 6d 65 73 73 61 |ded).X | (messa|
|00004100| 67 65 20 22 25 73 22 20 | 22 44 6f 6e 65 2e 22 29 |ge "%s" |"Done.")|
|00004110| 0a 58 20 20 20 20 29 20 | 3b 20 6c 65 74 0a 58 20 |.X ) |; let.X |
|00004120| 20 29 20 3b 20 64 65 66 | 75 6e 20 74 70 6c 2d 67 | ) ; def|un tpl-g|
|00004130| 65 6e 65 72 61 74 65 0a | 58 0a 58 3b 3b 3b 2b 2b |enerate.|X.X;;;++|
|00004140| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00004150| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00004160| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00004170| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 0a |++++++++|+++++++.|
|00004180| 58 0a 58 28 64 65 66 75 | 6e 20 74 70 6c 2d 67 65 |X.X(defu|n tpl-ge|
|00004190| 74 2d 70 6c 61 63 65 68 | 6f 6c 64 65 72 2d 6e 61 |t-placeh|older-na|
|000041a0| 6d 65 20 28 29 0a 58 20 | 20 22 50 72 6f 6d 70 74 |me ().X | "Prompt|
|000041b0| 20 66 6f 72 20 61 20 70 | 6c 61 63 65 68 6f 6c 64 | for a p|lacehold|
|000041c0| 65 72 20 6e 61 6d 65 2e | 20 20 49 66 20 6e 6f 6e |er name.| If non|
|000041d0| 65 20 73 75 70 70 6c 69 | 65 64 2c 20 75 73 65 20 |e suppli|ed, use |
|000041e0| 74 65 6d 70 6f 72 61 72 | 79 0a 58 20 20 20 20 6e |temporar|y.X n|
|000041f0| 61 6d 65 20 61 6e 64 20 | 72 65 67 65 6e 65 72 61 |ame and |regenera|
|00004200| 74 65 20 61 6e 6f 74 68 | 65 72 20 75 6e 69 71 75 |te anoth|er uniqu|
|00004210| 65 20 6e 61 6d 65 2e 20 | 20 52 65 74 75 72 6e 20 |e name. | Return |
|00004220| 74 68 65 20 6e 61 6d 65 | 2e 22 0a 58 09 09 09 09 |the name|.".X....|
|00004230| 09 3b 20 4c 6f 63 61 6c | 20 56 61 72 69 61 62 6c |.; Local| Variabl|
|00004240| 65 73 0a 58 20 20 28 6c | 65 74 20 28 6e 61 6d 65 |es.X (l|et (name|
|00004250| 29 0a 58 09 09 09 09 09 | 3b 20 42 6f 64 79 0a 58 |).X.....|; Body.X|
|00004260| 20 20 20 20 28 69 66 20 | 74 70 6c 2d 71 75 65 72 | (if |tpl-quer|
|00004270| 79 2d 66 6c 61 67 0a 58 | 09 28 70 72 6f 67 6e 0a |y-flag.X|.(progn.|
|00004280| 58 09 20 20 28 73 65 74 | 71 20 6e 61 6d 65 20 28 |X. (set|q name (|
|00004290| 72 65 61 64 2d 73 74 72 | 69 6e 67 0a 58 09 09 20 |read-str|ing.X.. |
|000042a0| 20 20 20 20 20 28 63 6f | 6e 63 61 74 20 22 54 65 | (co|ncat "Te|
|000042b0| 6d 70 6c 61 74 65 20 6e | 61 6d 65 3f 20 28 22 0a |mplate n|ame? (".|
|000042c0| 58 09 09 09 20 20 20 20 | 20 20 74 70 6c 2d 6e 65 |X... | tpl-ne|
|000042d0| 78 74 2d 70 6c 61 63 65 | 68 6f 6c 64 65 72 2d 6e |xt-place|holder-n|
|000042e0| 61 6d 65 20 22 29 20 22 | 29 29 29 0a 58 09 20 20 |ame ") "|))).X. |
|000042f0| 29 20 3b 20 70 72 6f 67 | 6e 0a 58 20 20 20 20 20 |) ; prog|n.X |
|00004300| 20 3b 20 65 6c 73 65 0a | 58 20 20 20 20 20 20 28 | ; else.|X (|
|00004310| 73 65 74 71 20 6e 61 6d | 65 20 22 22 29 0a 58 20 |setq nam|e "").X |
|00004320| 20 20 20 20 20 29 20 3b | 20 69 66 20 74 70 6c 2d | ) ;| if tpl-|
|00004330| 71 75 65 72 79 2d 66 6c | 61 67 0a 58 20 20 20 20 |query-fl|ag.X |
|00004340| 28 69 66 20 28 65 71 75 | 61 6c 20 6e 61 6d 65 20 |(if (equ|al name |
|00004350| 22 22 29 0a 58 09 28 70 | 72 6f 67 6e 0a 58 09 20 |"").X.(p|rogn.X. |
|00004360| 20 28 73 65 74 71 20 6e | 61 6d 65 20 74 70 6c 2d | (setq n|ame tpl-|
|00004370| 6e 65 78 74 2d 70 6c 61 | 63 65 68 6f 6c 64 65 72 |next-pla|ceholder|
|00004380| 2d 6e 61 6d 65 29 0a 58 | 09 20 20 28 74 70 6c 2d |-name).X|. (tpl-|
|00004390| 69 6e 63 72 65 6d 65 6e | 74 2d 6e 65 78 74 2d 70 |incremen|t-next-p|
|000043a0| 6c 61 63 65 68 6f 6c 64 | 65 72 2d 6e 61 6d 65 29 |lacehold|er-name)|
|000043b0| 0a 58 09 20 20 29 20 3b | 20 70 72 6f 67 6e 0a 58 |.X. ) ;| progn.X|
|000043c0| 20 20 20 20 20 20 29 20 | 3b 20 69 66 20 28 65 71 | ) |; if (eq|
|000043d0| 75 61 6c 20 6e 61 6d 65 | 20 22 22 29 0a 58 09 09 |ual name| "").X..|
|000043e0| 09 09 09 3b 20 72 65 74 | 75 72 6e 0a 58 20 20 20 |...; ret|urn.X |
|000043f0| 20 6e 61 6d 65 0a 58 20 | 20 20 20 29 20 3b 20 6c | name.X | ) ; l|
|00004400| 65 74 0a 58 20 20 29 20 | 3b 20 74 70 6c 2d 67 65 |et.X ) |; tpl-ge|
|00004410| 74 2d 70 6c 61 63 65 68 | 6f 6c 64 65 72 2d 6e 61 |t-placeh|older-na|
|00004420| 6d 65 0a 58 0a 58 3b 3b | 3b 2b 2b 2b 2b 2b 2b 2b |me.X.X;;|;+++++++|
|00004430| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00004440| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00004450| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00004460| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 0a 58 0a 58 28 64 |++++++++|++.X.X(d|
|00004470| 65 66 75 6e 20 74 70 6c | 2d 69 6e 63 72 65 6d 65 |efun tpl|-increme|
|00004480| 6e 74 2d 6e 65 78 74 2d | 70 6c 61 63 65 68 6f 6c |nt-next-|placehol|
|00004490| 64 65 72 2d 6e 61 6d 65 | 20 28 29 0a 58 20 20 22 |der-name| ().X "|
|000044a0| 49 6e 63 72 65 6d 65 6e | 74 20 75 6e 69 71 75 65 |Incremen|t unique|
|000044b0| 20 6e 61 6d 65 20 66 6f | 72 20 74 65 6d 70 6f 72 | name fo|r tempor|
|000044c0| 61 72 79 20 70 6c 61 63 | 65 68 6f 6c 64 65 72 73 |ary plac|eholders|
|000044d0| 2e 22 0a 58 09 09 09 09 | 09 3b 20 4c 6f 63 61 6c |.".X....|.; Local|
|000044e0| 20 56 61 72 69 61 62 6c | 65 73 0a 58 20 20 28 6c | Variabl|es.X (l|
|000044f0| 65 74 20 28 29 0a 58 09 | 09 09 09 09 3b 20 42 6f |et ().X.|....; Bo|
|00004500| 64 79 0a 58 20 20 20 20 | 28 73 65 74 71 20 74 70 |dy.X |(setq tp|
|00004510| 6c 2d 6e 65 78 74 2d 70 | 6c 61 63 65 68 6f 6c 64 |l-next-p|lacehold|
|00004520| 65 72 2d 6e 75 6d 62 65 | 72 0a 58 09 20 20 28 31 |er-numbe|r.X. (1|
|00004530| 2b 20 74 70 6c 2d 6e 65 | 78 74 2d 70 6c 61 63 65 |+ tpl-ne|xt-place|
|00004540| 68 6f 6c 64 65 72 2d 6e | 75 6d 62 65 72 29 29 0a |holder-n|umber)).|
|00004550| 58 20 20 20 20 28 73 65 | 74 71 20 74 70 6c 2d 6e |X (se|tq tpl-n|
|00004560| 65 78 74 2d 70 6c 61 63 | 65 68 6f 6c 64 65 72 2d |ext-plac|eholder-|
|00004570| 6e 61 6d 65 0a 58 09 20 | 20 28 63 6f 6e 63 61 74 |name.X. | (concat|
|00004580| 20 74 70 6c 2d 74 65 6d | 70 6f 72 61 72 79 2d 70 | tpl-tem|porary-p|
|00004590| 6c 61 63 65 68 6f 6c 64 | 65 72 2d 6e 61 6d 65 0a |lacehold|er-name.|
|000045a0| 58 09 09 20 20 74 70 6c | 2d 6e 65 78 74 2d 70 6c |X.. tpl|-next-pl|
|000045b0| 61 63 65 68 6f 6c 64 65 | 72 2d 6e 75 6d 62 65 72 |aceholde|r-number|
|000045c0| 29 29 0a 58 20 20 20 20 | 29 20 3b 20 6c 65 74 0a |)).X |) ; let.|
|000045d0| 58 20 20 29 20 3b 20 64 | 65 66 75 6e 20 74 70 6c |X ) ; d|efun tpl|
|000045e0| 2d 69 6e 63 72 65 6d 65 | 6e 74 2d 6e 65 78 74 2d |-increme|nt-next-|
|000045f0| 70 6c 61 63 65 68 6f 6c | 64 65 72 2d 6e 61 6d 65 |placehol|der-name|
|00004600| 0a 58 0a 58 3b 3b 3b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |.X.X;;;+|++++++++|
|00004610| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00004620| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00004630| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00004640| 2b 2b 2b 2b 2b 2b 2b 2b | 0a 58 0a 58 28 64 65 66 |++++++++|.X.X(def|
|00004650| 75 6e 20 74 70 6c 2d 69 | 6e 69 74 69 61 6c 69 7a |un tpl-i|nitializ|
|00004660| 65 2d 6d 6f 64 65 73 20 | 28 29 0a 58 20 20 22 43 |e-modes |().X "C|
|00004670| 72 65 61 74 65 20 69 6e | 69 74 69 61 6c 20 41 6c |reate in|itial Al|
|00004680| 69 73 74 20 6f 66 20 6d | 61 6a 6f 72 20 6d 6f 64 |ist of m|ajor mod|
|00004690| 65 73 20 61 6e 64 20 74 | 68 65 69 72 20 61 73 73 |es and t|heir ass|
|000046a0| 6f 63 69 61 74 65 64 20 | 74 65 6d 70 6c 61 74 65 |ociated |template|
|000046b0| 20 66 69 6c 65 73 2e 0a | 58 20 20 20 20 43 61 6c | files..|X Cal|
|000046c0| 6c 73 20 27 74 65 6d 70 | 6c 61 74 65 2d 6d 6f 64 |ls 'temp|late-mod|
|000046d0| 65 2d 6c 6f 61 64 2d 68 | 6f 6f 6b 27 20 69 66 20 |e-load-h|ook' if |
|000046e0| 69 74 20 69 73 20 64 65 | 66 69 6e 65 64 2e 22 0a |it is de|fined.".|
|000046f0| 58 09 09 09 09 09 3b 20 | 4c 6f 63 61 6c 20 56 61 |X.....; |Local Va|
|00004700| 72 69 61 62 6c 65 73 0a | 58 20 20 28 6c 65 74 20 |riables.|X (let |
|00004710| 28 29 0a 58 09 09 09 09 | 09 3b 20 42 6f 64 79 0a |().X....|.; Body.|
|00004720| 58 20 20 20 20 28 6f 72 | 20 28 61 73 73 71 20 27 |X (or| (assq '|
|00004730| 74 65 6d 70 6c 61 74 65 | 2d 6d 6f 64 65 20 6d 69 |template|-mode mi|
|00004740| 6e 6f 72 2d 6d 6f 64 65 | 2d 61 6c 69 73 74 29 0a |nor-mode|-alist).|
|00004750| 58 09 28 73 65 74 71 20 | 6d 69 6e 6f 72 2d 6d 6f |X.(setq |minor-mo|
|00004760| 64 65 2d 61 6c 69 73 74 | 0a 58 09 20 20 20 20 20 |de-alist|.X. |
|00004770| 20 28 63 6f 6e 73 20 27 | 28 74 65 6d 70 6c 61 74 | (cons '|(templat|
|00004780| 65 2d 6d 6f 64 65 20 22 | 20 54 65 6d 70 6c 61 74 |e-mode "| Templat|
|00004790| 65 22 29 20 6d 69 6e 6f | 72 2d 6d 6f 64 65 2d 61 |e") mino|r-mode-a|
|000047a0| 6c 69 73 74 29 29 29 0a | 58 20 20 20 20 28 73 65 |list))).|X (se|
|000047b0| 74 71 20 74 70 6c 2d 61 | 75 74 6f 2d 74 65 6d 70 |tq tpl-a|uto-temp|
|000047c0| 6c 61 74 65 2d 61 6c 69 | 73 74 0a 58 09 20 20 28 |late-ali|st.X. (|
|000047d0| 6c 69 73 74 0a 58 09 20 | 20 20 28 74 70 6c 2d 6d |list.X. | (tpl-m|
|000047e0| 61 6b 65 2d 6d 6f 64 65 | 2d 65 6e 74 72 79 20 27 |ake-mode|-entry '|
|000047f0| 61 77 6b 2d 6d 6f 64 65 | 20 22 61 77 6b 22 29 0a |awk-mode| "awk").|
|00004800| 58 09 20 20 20 28 74 70 | 6c 2d 6d 61 6b 65 2d 6d |X. (tp|l-make-m|
|00004810| 6f 64 65 2d 65 6e 74 72 | 79 20 27 62 69 62 2d 6d |ode-entr|y 'bib-m|
|00004820| 6f 64 65 20 22 62 69 62 | 22 29 0a 58 09 20 20 20 |ode "bib|").X. |
|00004830| 28 74 70 6c 2d 6d 61 6b | 65 2d 6d 6f 64 65 2d 65 |(tpl-mak|e-mode-e|
|00004840| 6e 74 72 79 20 27 63 2d | 6d 6f 64 65 20 22 63 22 |ntry 'c-|mode "c"|
|00004850| 29 0a 58 09 20 20 20 28 | 74 70 6c 2d 6d 61 6b 65 |).X. (|tpl-make|
|00004860| 2d 6d 6f 64 65 2d 65 6e | 74 72 79 20 27 65 6d 61 |-mode-en|try 'ema|
|00004870| 63 73 2d 6c 69 73 70 2d | 6d 6f 64 65 20 22 65 6c |cs-lisp-|mode "el|
|00004880| 69 73 70 22 29 0a 58 09 | 20 20 20 28 74 70 6c 2d |isp").X.| (tpl-|
|00004890| 6d 61 6b 65 2d 6d 6f 64 | 65 2d 65 6e 74 72 79 20 |make-mod|e-entry |
|000048a0| 27 67 65 6e 65 72 69 63 | 20 22 67 65 6e 65 72 69 |'generic| "generi|
|000048b0| 63 22 29 0a 58 09 20 20 | 20 28 74 70 6c 2d 6d 61 |c").X. | (tpl-ma|
|000048c0| 6b 65 2d 6d 6f 64 65 2d | 65 6e 74 72 79 20 27 4c |ke-mode-|entry 'L|
|000048d0| 61 54 65 58 2d 6d 6f 64 | 65 20 22 6c 61 74 65 78 |aTeX-mod|e "latex|
|000048e0| 22 29 0a 58 09 09 09 09 | 09 3b 20 53 68 6f 75 6c |").X....|.; Shoul|
|000048f0| 64 20 68 61 76 65 20 61 | 6e 6f 74 68 65 72 20 73 |d have a|nother s|
|00004900| 65 74 20 6f 66 20 74 65 | 6d 70 6c 61 74 65 73 0a |et of te|mplates.|
|00004910| 58 09 09 09 09 09 3b 20 | 20 20 66 6f 72 20 4c 69 |X.....; | for Li|
|00004920| 73 70 0a 58 09 20 20 20 | 28 74 70 6c 2d 6d 61 6b |sp.X. |(tpl-mak|
|00004930| 65 2d 6d 6f 64 65 2d 65 | 6e 74 72 79 20 27 6c 69 |e-mode-e|ntry 'li|
|00004940| 73 70 2d 6d 6f 64 65 20 | 22 65 6c 69 73 70 22 29 |sp-mode |"elisp")|
|00004950| 0a 58 09 20 20 20 28 74 | 70 6c 2d 6d 61 6b 65 2d |.X. (t|pl-make-|
|00004960| 6d 6f 64 65 2d 65 6e 74 | 72 79 20 27 70 61 73 63 |mode-ent|ry 'pasc|
|00004970| 61 6c 2d 6d 6f 64 65 20 | 22 70 61 73 63 61 6c 22 |al-mode |"pascal"|
|00004980| 29 0a 58 09 20 20 20 28 | 74 70 6c 2d 6d 61 6b 65 |).X. (|tpl-make|
|00004990| 2d 6d 6f 64 65 2d 65 6e | 74 72 79 20 27 73 63 72 |-mode-en|try 'scr|
|000049a0| 69 62 65 2d 6d 6f 64 65 | 20 22 73 63 72 69 62 65 |ibe-mode| "scribe|
|000049b0| 22 29 0a 58 09 20 20 20 | 28 74 70 6c 2d 6d 61 6b |").X. |(tpl-mak|
|000049c0| 65 2d 6d 6f 64 65 2d 65 | 6e 74 72 79 20 27 74 65 |e-mode-e|ntry 'te|
|000049d0| 78 69 6e 66 6f 2d 6d 6f | 64 65 20 22 74 65 78 69 |xinfo-mo|de "texi|
|000049e0| 6e 66 6f 22 29 0a 58 09 | 09 09 09 09 3b 20 53 68 |nfo").X.|....; Sh|
|000049f0| 6f 75 6c 64 20 68 61 76 | 65 20 61 6e 6f 74 68 65 |ould hav|e anothe|
|00004a00| 72 20 73 65 74 20 6f 66 | 20 74 65 6d 70 6c 61 74 |r set of| templat|
|00004a10| 65 73 0a 58 09 09 09 09 | 09 3b 20 20 20 20 66 6f |es.X....|.; fo|
|00004a20| 72 20 54 65 58 0a 58 09 | 20 20 20 28 74 70 6c 2d |r TeX.X.| (tpl-|
|00004a30| 6d 61 6b 65 2d 6d 6f 64 | 65 2d 65 6e 74 72 79 20 |make-mod|e-entry |
|00004a40| 27 70 6c 61 69 6e 2d 54 | 65 58 2d 6d 6f 64 65 20 |'plain-T|eX-mode |
|00004a50| 22 6c 61 74 65 78 22 29 | 0a 58 09 09 29 29 0a 58 |"latex")|.X..)).X|
|00004a60| 20 20 20 20 28 73 65 74 | 71 20 74 70 6c 2d 6c 6f | (set|q tpl-lo|
|00004a70| 63 61 6c 2d 74 65 6d 70 | 6c 61 74 65 2d 6c 69 73 |cal-temp|late-lis|
|00004a80| 74 20 6e 69 6c 29 0a 58 | 20 20 20 20 28 67 65 74 |t nil).X| (get|
|00004a90| 2d 62 75 66 66 65 72 2d | 63 72 65 61 74 65 20 74 |-buffer-|create t|
|00004aa0| 70 6c 2d 6d 65 6e 75 2d | 62 75 66 66 65 72 29 0a |pl-menu-|buffer).|
|00004ab0| 58 20 20 20 20 28 67 65 | 74 2d 62 75 66 66 65 72 |X (ge|t-buffer|
|00004ac0| 2d 63 72 65 61 74 65 20 | 74 70 6c 2d 74 65 78 74 |-create |tpl-text|
|00004ad0| 6c 6f 6e 67 2d 62 75 66 | 66 65 72 29 0a 58 20 20 |long-buf|fer).X |
|00004ae0| 20 20 28 67 65 74 2d 62 | 75 66 66 65 72 2d 63 72 | (get-b|uffer-cr|
|00004af0| 65 61 74 65 20 74 70 6c | 2d 77 6f 72 6b 2d 62 75 |eate tpl|-work-bu|
|00004b00| 66 66 65 72 29 0a 58 20 | 20 20 20 28 62 75 72 79 |ffer).X | (bury|
|00004b10| 2d 62 75 66 66 65 72 20 | 74 70 6c 2d 6d 65 6e 75 |-buffer |tpl-menu|
|00004b20| 2d 62 75 66 66 65 72 29 | 0a 58 20 20 20 20 28 62 |-buffer)|.X (b|
|00004b30| 75 72 79 2d 62 75 66 66 | 65 72 20 74 70 6c 2d 74 |ury-buff|er tpl-t|
|00004b40| 65 78 74 6c 6f 6e 67 2d | 62 75 66 66 65 72 29 0a |extlong-|buffer).|
|00004b50| 58 20 20 20 20 28 62 75 | 72 79 2d 62 75 66 66 65 |X (bu|ry-buffe|
|00004b60| 72 20 74 70 6c 2d 77 6f | 72 6b 2d 62 75 66 66 65 |r tpl-wo|rk-buffe|
|00004b70| 72 29 0a 58 20 20 20 20 | 28 74 70 6c 2d 69 6e 69 |r).X |(tpl-ini|
|00004b80| 74 69 61 6c 69 7a 65 2d | 73 63 61 6e 29 0a 58 20 |tialize-|scan).X |
|00004b90| 20 20 20 28 6c 6f 61 64 | 2d 74 70 6c 2d 6c 69 62 | (load|-tpl-lib|
|00004ba0| 72 61 72 79 20 22 67 65 | 6e 65 72 69 63 22 20 27 |rary "ge|neric" '|
|00004bb0| 67 65 6e 65 72 69 63 29 | 0a 58 20 20 20 20 28 61 |generic)|.X (a|
|00004bc0| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 74 65 6d 70 |nd (boun|dp 'temp|
|00004bd0| 6c 61 74 65 2d 6d 6f 64 | 65 2d 6c 6f 61 64 2d 68 |late-mod|e-load-h|
|00004be0| 6f 6f 6b 29 0a 58 09 20 | 74 65 6d 70 6c 61 74 65 |ook).X. |template|
|00004bf0| 2d 6d 6f 64 65 2d 6c 6f | 61 64 2d 68 6f 6f 6b 0a |-mode-lo|ad-hook.|
|00004c00| 58 09 20 28 66 75 6e 63 | 61 6c 6c 20 74 65 6d 70 |X. (func|all temp|
|00004c10| 6c 61 74 65 2d 6d 6f 64 | 65 2d 6c 6f 61 64 2d 68 |late-mod|e-load-h|
|00004c20| 6f 6f 6b 29 29 0a 58 20 | 20 20 20 29 20 3b 20 6c |ook)).X | ) ; l|
|00004c30| 65 74 0a 58 20 20 29 20 | 3b 20 64 65 66 75 6e 20 |et.X ) |; defun |
|00004c40| 74 70 6c 2d 69 6e 69 74 | 69 61 6c 69 7a 65 2d 6d |tpl-init|ialize-m|
|00004c50| 6f 64 65 73 0a 58 0a 58 | 3b 3b 3b 2b 2b 2b 2b 2b |odes.X.X|;;;+++++|
|00004c60| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00004c70| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00004c80| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00004c90| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 0a 58 0a 58 |++++++++|++++.X.X|
|00004ca0| 28 64 65 66 75 6e 20 74 | 70 6c 2d 69 6e 73 65 72 |(defun t|pl-inser|
|00004cb0| 74 2d 66 75 6e 63 74 69 | 6f 6e 20 28 74 65 6d 70 |t-functi|on (temp|
|00004cc0| 6c 61 74 65 29 0a 58 20 | 20 22 49 6e 73 65 72 74 |late).X | "Insert|
|00004cd0| 20 61 20 74 65 6d 70 6c | 61 74 65 20 61 74 20 70 | a templ|ate at p|
|00004ce0| 6f 69 6e 74 20 75 73 69 | 6e 67 20 74 68 65 20 66 |oint usi|ng the f|
|00004cf0| 75 6e 63 74 69 6f 6e 20 | 74 79 70 65 20 54 45 4d |unction |type TEM|
|00004d00| 50 4c 41 54 45 2e 22 0a | 58 09 09 09 09 09 3b 20 |PLATE.".|X.....; |
|00004d10| 4c 6f 63 61 6c 20 56 61 | 72 69 61 62 6c 65 73 0a |Local Va|riables.|
|00004d20| 58 20 20 28 6c 65 74 20 | 28 73 74 61 72 74 20 73 |X (let |(start s|
|00004d30| 74 6f 70 2d 6d 61 72 6b | 65 72 20 72 65 73 75 6c |top-mark|er resul|
|00004d40| 74 20 73 61 76 65 2d 64 | 65 70 74 68 29 0a 58 09 |t save-d|epth).X.|
|00004d50| 09 09 09 09 3b 20 42 6f | 64 79 0a 58 20 20 20 20 |....; Bo|dy.X |
|00004d60| 28 73 65 74 71 20 73 74 | 61 72 74 20 28 70 6f 69 |(setq st|art (poi|
|00004d70| 6e 74 29 29 0a 58 20 20 | 20 20 28 73 65 74 71 20 |nt)).X | (setq |
|00004d80| 73 74 6f 70 2d 6d 61 72 | 6b 65 72 20 28 6d 61 6b |stop-mar|ker (mak|
|00004d90| 65 2d 6d 61 72 6b 65 72 | 29 29 0a 58 20 20 20 20 |e-marker|)).X |
|00004da0| 28 69 6e 73 65 72 74 20 | 28 74 70 6c 2d 74 6f 6b |(insert |(tpl-tok|
|00004db0| 65 6e 2d 76 61 6c 75 65 | 20 74 65 6d 70 6c 61 74 |en-value| templat|
|00004dc0| 65 29 29 0a 58 20 20 20 | 20 28 73 65 74 2d 6d 61 |e)).X | (set-ma|
|00004dd0| 72 6b 65 72 20 73 74 6f | 70 2d 6d 61 72 6b 65 72 |rker sto|p-marker|
|00004de0| 20 28 70 6f 69 6e 74 29 | 29 0a 58 09 09 09 09 09 | (point)|).X.....|
|00004df0| 3b 20 54 65 6d 70 6f 72 | 61 72 69 6c 79 20 65 78 |; Tempor|arily ex|
|00004e00| 70 61 6e 64 20 70 6c 61 | 63 65 68 6f 6c 64 65 72 |pand pla|ceholder|
|00004e10| 73 0a 58 09 09 09 09 09 | 3b 20 20 20 20 77 69 74 |s.X.....|; wit|
|00004e20| 68 6f 75 74 20 61 73 6b | 69 6e 67 0a 58 20 20 20 |hout ask|ing.X |
|00004e30| 20 28 73 65 74 71 20 73 | 61 76 65 2d 64 65 70 74 | (setq s|ave-dept|
|00004e40| 68 20 74 70 6c 2d 61 73 | 6b 2d 65 78 70 61 6e 73 |h tpl-as|k-expans|
|00004e50| 69 6f 6e 2d 64 65 70 74 | 68 29 0a 58 20 20 20 20 |ion-dept|h).X |
|00004e60| 28 73 65 74 71 20 74 70 | 6c 2d 61 73 6b 2d 65 78 |(setq tp|l-ask-ex|
|00004e70| 70 61 6e 73 69 6f 6e 2d | 64 65 70 74 68 20 31 30 |pansion-|depth 10|
|00004e80| 29 0a 58 20 20 20 20 28 | 65 78 70 61 6e 64 2d 70 |).X (|expand-p|
|00004e90| 6c 61 63 65 68 6f 6c 64 | 65 72 73 2d 69 6e 2d 72 |lacehold|ers-in-r|
|00004ea0| 65 67 69 6f 6e 20 73 74 | 61 72 74 20 28 70 6f 69 |egion st|art (poi|
|00004eb0| 6e 74 29 29 0a 58 20 20 | 20 20 28 73 65 74 71 20 |nt)).X | (setq |
|00004ec0| 74 70 6c 2d 61 73 6b 2d | 65 78 70 61 6e 73 69 6f |tpl-ask-|expansio|
|00004ed0| 6e 2d 64 65 70 74 68 20 | 73 61 76 65 2d 64 65 70 |n-depth |save-dep|
|00004ee0| 74 68 29 0a 58 09 09 09 | 09 09 3b 20 45 76 61 6c |th).X...|..; Eval|
|00004ef0| 75 61 74 65 20 72 65 73 | 75 6c 74 0a 58 20 20 20 |uate res|ult.X |
|00004f00| 20 28 67 6f 74 6f 2d 63 | 68 61 72 20 73 74 61 72 | (goto-c|har star|
|00004f10| 74 29 0a 58 20 20 20 20 | 28 73 61 76 65 2d 65 78 |t).X |(save-ex|
|00004f20| 63 75 72 73 69 6f 6e 0a | 58 20 20 20 20 20 20 28 |cursion.|X (|
|00004f30| 73 65 74 71 20 72 65 73 | 75 6c 74 20 28 65 76 61 |setq res|ult (eva|
|00004f40| 6c 20 28 72 65 61 64 20 | 28 63 75 72 72 65 6e 74 |l (read |(current|
|00004f50| 2d 62 75 66 66 65 72 29 | 29 29 29 0a 58 20 20 20 |-buffer)|))).X |
|00004f60| 20 20 20 29 20 3b 20 73 | 61 76 65 2d 65 78 63 75 | ) ; s|ave-excu|
|00004f70| 72 73 69 6f 6e 0a 58 09 | 09 09 09 09 3b 20 52 65 |rsion.X.|....; Re|
|00004f80| 6d 6f 76 65 20 70 6c 61 | 63 65 68 6f 6c 64 65 72 |move pla|ceholder|
|00004f90| 20 61 6e 64 20 69 6e 73 | 65 72 74 20 72 65 73 75 | and ins|ert resu|
|00004fa0| 6c 74 0a 58 20 20 20 20 | 28 64 65 6c 65 74 65 2d |lt.X |(delete-|
|00004fb0| 72 65 67 69 6f 6e 20 73 | 74 61 72 74 20 28 6d 61 |region s|tart (ma|
|00004fc0| 72 6b 65 72 2d 70 6f 73 | 69 74 69 6f 6e 20 73 74 |rker-pos|ition st|
|00004fd0| 6f 70 2d 6d 61 72 6b 65 | 72 29 29 0a 58 20 20 20 |op-marke|r)).X |
|00004fe0| 20 28 73 65 74 2d 6d 61 | 72 6b 65 72 20 73 74 6f | (set-ma|rker sto|
|00004ff0| 70 2d 6d 61 72 6b 65 72 | 20 6e 69 6c 29 0a 58 20 |p-marker| nil).X |
|00005000| 20 20 20 28 69 6e 73 65 | 72 74 20 72 65 73 75 6c | (inse|rt resul|
|00005010| 74 29 0a 58 20 20 20 20 | 29 20 3b 20 6c 65 74 0a |t).X |) ; let.|
|00005020| 58 20 20 29 20 3b 20 64 | 65 66 75 6e 20 74 70 6c |X ) ; d|efun tpl|
|00005030| 2d 69 6e 73 65 72 74 2d | 66 75 6e 63 74 69 6f 6e |-insert-|function|
|00005040| 0a 58 0a 58 3b 3b 3b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |.X.X;;;+|++++++++|
|00005050| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00005060| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00005070| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00005080| 2b 2b 2b 2b 2b 2b 2b 2b | 0a 58 0a 58 28 64 65 66 |++++++++|.X.X(def|
|00005090| 75 6e 20 74 70 6c 2d 69 | 6e 73 65 72 74 2d 72 65 |un tpl-i|nsert-re|
|000050a0| 70 65 74 69 74 69 6f 6e | 20 28 74 65 6d 70 6c 61 |petition| (templa|
|000050b0| 74 65 29 0a 58 20 20 22 | 49 6e 73 65 72 74 20 61 |te).X "|Insert a|
|000050c0| 74 20 70 6f 69 6e 74 20 | 69 6e 73 74 61 6e 63 65 |t point |instance|
|000050d0| 73 20 6f 66 20 74 68 65 | 20 72 65 70 65 74 69 74 |s of the| repetit|
|000050e0| 69 6f 6e 20 74 79 70 65 | 20 54 45 4d 50 4c 41 54 |ion type| TEMPLAT|
|000050f0| 45 2e 22 0a 58 09 09 09 | 09 09 3b 20 4c 6f 63 61 |E.".X...|..; Loca|
|00005100| 6c 20 56 61 72 69 61 62 | 6c 65 73 0a 58 20 20 28 |l Variab|les.X (|
|00005110| 6c 65 74 20 28 73 74 61 | 72 74 20 74 65 6d 70 6c |let (sta|rt templ|
|00005120| 61 74 65 2d 6e 61 6d 65 | 20 63 6f 6c 75 6d 6e 29 |ate-name| column)|
|00005130| 0a 58 09 09 09 09 09 3b | 20 42 6f 64 79 0a 58 20 |.X.....;| Body.X |
|00005140| 20 20 20 28 73 65 74 71 | 20 73 74 61 72 74 20 28 | (setq| start (|
|00005150| 70 6f 69 6e 74 29 29 0a | 58 20 20 20 20 28 73 65 |point)).|X (se|
|00005160| 74 71 20 63 6f 6c 75 6d | 6e 20 28 63 75 72 72 65 |tq colum|n (curre|
|00005170| 6e 74 2d 63 6f 6c 75 6d | 6e 29 29 0a 58 20 20 20 |nt-colum|n)).X |
|00005180| 20 28 73 65 74 71 20 74 | 65 6d 70 6c 61 74 65 2d | (setq t|emplate-|
|00005190| 6e 61 6d 65 20 28 74 70 | 6c 2d 74 6f 6b 65 6e 2d |name (tp|l-token-|
|000051a0| 6e 61 6d 65 20 74 65 6d | 70 6c 61 74 65 29 29 0a |name tem|plate)).|
|000051b0| 58 09 09 09 09 09 3b 20 | 49 6e 73 65 72 74 20 66 |X.....; |Insert f|
|000051c0| 69 72 73 74 20 69 6e 73 | 74 61 6e 63 65 0a 58 20 |irst ins|tance.X |
|000051d0| 20 20 20 28 74 70 6c 2d | 75 6e 73 63 61 6e 20 74 | (tpl-|unscan t|
|000051e0| 65 6d 70 6c 61 74 65 29 | 0a 58 20 20 20 20 28 72 |emplate)|.X (r|
|000051f0| 65 2d 73 65 61 72 63 68 | 2d 62 61 63 6b 77 61 72 |e-search|-backwar|
|00005200| 64 20 74 70 6c 2d 70 61 | 74 74 65 72 6e 2d 70 6c |d tpl-pa|ttern-pl|
|00005210| 61 63 65 68 6f 6c 64 65 | 72 29 0a 58 20 20 20 20 |aceholde|r).X |
|00005220| 28 64 65 6c 65 74 65 2d | 72 65 67 69 6f 6e 20 73 |(delete-|region s|
|00005230| 74 61 72 74 20 28 70 6f | 69 6e 74 29 29 0a 58 20 |tart (po|int)).X |
|00005240| 20 20 20 28 74 70 6c 2d | 65 78 70 61 6e 64 2d 70 | (tpl-|expand-p|
|00005250| 6c 61 63 65 68 6f 6c 64 | 65 72 20 6e 69 6c 29 0a |lacehold|er nil).|
|00005260| 58 09 09 09 09 09 3b 20 | 49 6e 73 65 72 74 20 6d |X.....; |Insert m|
|00005270| 6f 72 65 20 69 6e 73 74 | 61 6e 63 65 73 0a 58 20 |ore inst|ances.X |
|00005280| 20 20 20 28 77 68 69 6c | 65 20 28 74 70 6c 2d 79 | (whil|e (tpl-y|
|00005290| 2d 6f 72 2d 6e 2d 70 20 | 28 63 6f 6e 63 61 74 20 |-or-n-p |(concat |
|000052a0| 22 4d 6f 72 65 20 69 6e | 73 74 61 6e 63 65 73 20 |"More in|stances |
|000052b0| 6f 66 20 22 20 74 65 6d | 70 6c 61 74 65 2d 6e 61 |of " tem|plate-na|
|000052c0| 6d 65 20 22 3f 20 22 29 | 29 0a 58 20 20 20 20 20 |me "? ")|).X |
|000052d0| 20 28 74 70 6c 2d 75 6e | 73 63 61 6e 20 74 65 6d | (tpl-un|scan tem|
|000052e0| 70 6c 61 74 65 20 63 6f | 6c 75 6d 6e 29 0a 58 20 |plate co|lumn).X |
|000052f0| 20 20 20 20 20 28 63 6f | 6e 64 0a 58 20 20 20 20 | (co|nd.X |
|00005300| 20 20 20 28 28 3e 20 74 | 70 6c 2d 61 73 6b 2d 65 | ((> t|pl-ask-e|
|00005310| 78 70 61 6e 73 69 6f 6e | 2d 64 65 70 74 68 20 30 |xpansion|-depth 0|
|00005320| 29 0a 58 09 28 70 72 6f | 67 6e 0a 58 09 20 20 28 |).X.(pro|gn.X. (|
|00005330| 72 65 2d 73 65 61 72 63 | 68 2d 62 61 63 6b 77 61 |re-searc|h-backwa|
|00005340| 72 64 20 74 70 6c 2d 70 | 61 74 74 65 72 6e 2d 70 |rd tpl-p|attern-p|
|00005350| 6c 61 63 65 68 6f 6c 64 | 65 72 29 0a 58 09 20 20 |lacehold|er).X. |
|00005360| 28 74 70 6c 2d 65 78 70 | 61 6e 64 2d 70 6c 61 63 |(tpl-exp|and-plac|
|00005370| 65 68 6f 6c 64 65 72 20 | 6e 69 6c 29 0a 58 09 20 |eholder |nil).X. |
|00005380| 20 29 20 3b 20 70 72 6f | 67 6e 0a 58 09 29 20 3b | ) ; pro|gn.X.) ;|
|00005390| 20 28 3e 20 74 70 6c 2d | 61 73 6b 2d 65 78 70 61 | (> tpl-|ask-expa|
|000053a0| 6e 73 69 6f 6e 2d 64 65 | 70 74 68 20 30 29 0a 58 |nsion-de|pth 0).X|
|000053b0| 20 20 20 20 20 20 20 29 | 20 3b 20 63 6f 6e 64 0a | )| ; cond.|
|000053c0| 58 20 20 20 20 20 20 29 | 20 3b 20 77 68 69 6c 65 |X )| ; while|
|000053d0| 20 28 74 70 6c 2d 79 2d | 6f 72 2d 6e 2d 70 2e 2e | (tpl-y-|or-n-p..|
|000053e0| 2e 29 0a 58 20 20 20 20 | 29 20 3b 20 6c 65 74 0a |.).X |) ; let.|
|000053f0| 58 20 20 29 20 3b 20 64 | 65 66 75 6e 20 74 70 6c |X ) ; d|efun tpl|
|00005400| 2d 69 6e 73 65 72 74 2d | 72 65 70 65 74 69 74 69 |-insert-|repetiti|
|00005410| 6f 6e 0a 58 0a 58 3b 3b | 3b 2b 2b 2b 2b 2b 2b 2b |on.X.X;;|;+++++++|
|00005420| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00005430| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00005440| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00005450| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 0a 58 0a 58 28 64 |++++++++|++.X.X(d|
|00005460| 65 66 75 6e 20 74 70 6c | 2d 69 6e 73 65 72 74 2d |efun tpl|-insert-|
|00005470| 73 65 6c 65 63 74 69 6f | 6e 20 28 74 65 6d 70 6c |selectio|n (templ|
|00005480| 61 74 65 29 0a 58 20 20 | 22 49 6e 73 65 72 74 20 |ate).X |"Insert |
|00005490| 61 20 74 65 6d 70 6c 61 | 74 65 20 61 74 20 70 6f |a templa|te at po|
|000054a0| 69 6e 74 20 75 73 69 6e | 67 20 74 68 65 20 73 65 |int usin|g the se|
|000054b0| 6c 65 63 74 69 6f 6e 20 | 74 79 70 65 20 54 45 4d |lection |type TEM|
|000054c0| 50 4c 41 54 45 2e 22 0a | 58 09 09 09 09 09 3b 20 |PLATE.".|X.....; |
|000054d0| 4c 6f 63 61 6c 20 56 61 | 72 69 61 62 6c 65 73 0a |Local Va|riables.|
|000054e0| 58 20 20 28 6c 65 74 20 | 28 73 61 76 65 2d 62 75 |X (let |(save-bu|
|000054f0| 66 66 65 72 20 73 74 61 | 72 74 20 73 74 6f 70 20 |ffer sta|rt stop |
|00005500| 73 69 7a 65 20 63 68 6f | 69 63 65 20 63 68 6f 69 |size cho|ice choi|
|00005510| 63 65 2d 74 65 6d 70 6c | 61 74 65 20 63 68 6f 69 |ce-templ|ate choi|
|00005520| 63 65 2d 6c 69 73 74 0a | 58 09 09 20 20 20 20 64 |ce-list.|X.. d|
|00005530| 69 73 70 6c 61 79 2d 73 | 74 72 69 6e 67 29 0a 58 |isplay-s|tring).X|
|00005540| 09 09 09 09 09 3b 20 42 | 6f 64 79 0a 58 09 09 09 |.....; B|ody.X...|
|00005550| 09 09 3b 20 48 69 67 68 | 6c 69 67 68 74 20 70 6c |..; High|light pl|
|00005560| 61 63 65 68 6f 6c 64 65 | 72 0a 58 20 20 20 20 28 |aceholde|r.X (|
|00005570| 73 65 74 71 20 64 69 73 | 70 6c 61 79 2d 73 74 72 |setq dis|play-str|
|00005580| 69 6e 67 20 28 63 6f 6e | 63 61 74 0a 58 09 09 09 |ing (con|cat.X...|
|00005590| 20 20 74 70 6c 2d 64 69 | 73 70 6c 61 79 2d 62 65 | tpl-di|splay-be|
|000055a0| 67 69 6e 0a 58 09 09 09 | 20 20 28 74 70 6c 2d 74 |gin.X...| (tpl-t|
|000055b0| 6f 6b 65 6e 2d 6e 61 6d | 65 20 74 65 6d 70 6c 61 |oken-nam|e templa|
|000055c0| 74 65 29 0a 58 09 09 09 | 20 20 74 70 6c 2d 64 69 |te).X...| tpl-di|
|000055d0| 73 70 6c 61 79 2d 65 6e | 64 29 29 0a 58 20 20 20 |splay-en|d)).X |
|000055e0| 20 28 69 6e 73 65 72 74 | 2d 62 65 66 6f 72 65 2d | (insert|-before-|
|000055f0| 6d 61 72 6b 65 72 73 20 | 64 69 73 70 6c 61 79 2d |markers |display-|
|00005600| 73 74 72 69 6e 67 29 0a | 58 20 20 20 20 28 62 61 |string).|X (ba|
|00005610| 63 6b 77 61 72 64 2d 63 | 68 61 72 20 28 6c 65 6e |ckward-c|har (len|
|00005620| 67 74 68 20 64 69 73 70 | 6c 61 79 2d 73 74 72 69 |gth disp|lay-stri|
|00005630| 6e 67 29 29 0a 58 09 09 | 09 09 09 3b 20 50 72 65 |ng)).X..|...; Pre|
|00005640| 70 61 72 65 20 6d 65 6e | 75 20 62 75 66 66 65 72 |pare men|u buffer|
|00005650| 0a 58 20 20 20 20 28 73 | 61 76 65 2d 77 69 6e 64 |.X (s|ave-wind|
|00005660| 6f 77 2d 65 78 63 75 72 | 73 69 6f 6e 0a 58 20 20 |ow-excur|sion.X |
|00005670| 20 20 20 20 28 73 65 74 | 71 20 73 61 76 65 2d 62 | (set|q save-b|
|00005680| 75 66 66 65 72 20 28 62 | 75 66 66 65 72 2d 6e 61 |uffer (b|uffer-na|
|00005690| 6d 65 29 29 0a 58 20 20 | 20 20 20 20 28 73 77 69 |me)).X | (swi|
|000056a0| 74 63 68 2d 74 6f 2d 62 | 75 66 66 65 72 2d 6f 74 |tch-to-b|uffer-ot|
|000056b0| 68 65 72 2d 77 69 6e 64 | 6f 77 20 74 70 6c 2d 6d |her-wind|ow tpl-m|
|000056c0| 65 6e 75 2d 62 75 66 66 | 65 72 29 0a 58 20 20 20 |enu-buff|er).X |
|000056d0| 20 20 20 28 65 72 61 73 | 65 2d 62 75 66 66 65 72 | (eras|e-buffer|
|000056e0| 29 0a 58 09 09 09 09 09 | 3b 20 42 75 69 6c 64 20 |).X.....|; Build |
|000056f0| 74 68 65 20 6d 65 6e 75 | 0a 58 20 20 20 20 20 20 |the menu|.X |
|00005700| 28 74 70 6c 2d 75 6e 73 | 63 61 6e 20 74 65 6d 70 |(tpl-uns|can temp|
|00005710| 6c 61 74 65 29 0a 58 09 | 09 09 09 09 3b 20 53 69 |late).X.|....; Si|
|00005720| 7a 65 20 74 68 65 20 77 | 69 6e 64 6f 77 0a 58 20 |ze the w|indow.X |
|00005730| 20 20 20 20 20 28 67 6f | 74 6f 2d 63 68 61 72 20 | (go|to-char |
|00005740| 28 70 6f 69 6e 74 2d 6d | 61 78 29 29 0a 58 20 20 |(point-m|ax)).X |
|00005750| 20 20 20 20 28 73 65 74 | 71 20 73 74 6f 70 20 28 | (set|q stop (|
|00005760| 70 6f 69 6e 74 29 29 0a | 58 20 20 20 20 20 20 28 |point)).|X (|
|00005770| 67 6f 74 6f 2d 63 68 61 | 72 20 28 70 6f 69 6e 74 |goto-cha|r (point|
|00005780| 2d 6d 69 6e 29 29 0a 58 | 20 20 20 20 20 20 28 73 |-min)).X| (s|
|00005790| 65 74 71 20 73 74 61 72 | 74 20 28 70 6f 69 6e 74 |etq star|t (point|
|000057a0| 29 29 0a 58 20 20 20 20 | 20 20 28 73 65 74 71 20 |)).X | (setq |
|000057b0| 73 69 7a 65 20 28 31 2b | 20 28 63 6f 75 6e 74 2d |size (1+| (count-|
|000057c0| 6c 69 6e 65 73 20 73 74 | 61 72 74 20 73 74 6f 70 |lines st|art stop|
|000057d0| 29 29 29 0a 58 20 20 20 | 20 20 20 28 73 65 74 71 |))).X | (setq|
|000057e0| 20 73 69 7a 65 20 28 6d | 61 78 20 73 69 7a 65 20 | size (m|ax size |
|000057f0| 77 69 6e 64 6f 77 2d 6d | 69 6e 2d 68 65 69 67 68 |window-m|in-heigh|
|00005800| 74 29 29 0a 58 20 20 20 | 20 20 20 28 69 66 20 28 |t)).X | (if (|
|00005810| 3c 20 73 69 7a 65 20 28 | 77 69 6e 64 6f 77 2d 68 |< size (|window-h|
|00005820| 65 69 67 68 74 29 29 0a | 58 09 20 20 28 73 68 72 |eight)).|X. (shr|
|00005830| 69 6e 6b 2d 77 69 6e 64 | 6f 77 20 28 2d 20 28 77 |ink-wind|ow (- (w|
|00005840| 69 6e 64 6f 77 2d 68 65 | 69 67 68 74 29 20 73 69 |indow-he|ight) si|
|00005850| 7a 65 29 29 0a 58 09 29 | 20 3b 20 69 66 0a 58 09 |ze)).X.)| ; if.X.|
|00005860| 09 09 09 09 3b 20 41 6c | 6c 6f 77 20 75 73 65 72 |....; Al|low user|
|00005870| 20 74 6f 20 76 69 65 77 | 20 61 6e 64 20 73 65 6c | to view| and sel|
|00005880| 65 63 74 0a 58 20 20 20 | 20 20 20 28 73 65 74 71 |ect.X | (setq|
|00005890| 20 63 68 6f 69 63 65 20 | 28 6d 65 6e 75 2d 6d 6f | choice |(menu-mo|
|000058a0| 64 65 29 29 0a 58 20 20 | 20 20 20 20 28 73 65 74 |de)).X | (set|
|000058b0| 2d 62 75 66 66 65 72 20 | 73 61 76 65 2d 62 75 66 |-buffer |save-buf|
|000058c0| 66 65 72 29 0a 58 20 20 | 20 20 20 20 28 64 65 6c |fer).X | (del|
|000058d0| 65 74 65 2d 77 69 6e 64 | 6f 77 73 2d 6f 6e 20 74 |ete-wind|ows-on t|
|000058e0| 70 6c 2d 6d 65 6e 75 2d | 62 75 66 66 65 72 29 0a |pl-menu-|buffer).|
|000058f0| 58 20 20 20 20 20 20 29 | 20 3b 20 73 61 76 65 2d |X )| ; save-|
|00005900| 77 69 6e 64 6f 77 2d 65 | 78 63 75 72 73 69 6f 6e |window-e|xcursion|
|00005910| 0a 58 20 20 20 20 28 62 | 75 72 79 2d 62 75 66 66 |.X (b|ury-buff|
|00005920| 65 72 20 74 70 6c 2d 6d | 65 6e 75 2d 62 75 66 66 |er tpl-m|enu-buff|
|00005930| 65 72 29 0a 58 20 20 20 | 20 28 64 65 6c 65 74 65 |er).X | (delete|
|00005940| 2d 63 68 61 72 20 28 6c | 65 6e 67 74 68 20 64 69 |-char (l|ength di|
|00005950| 73 70 6c 61 79 2d 73 74 | 72 69 6e 67 29 29 0a 58 |splay-st|ring)).X|
|00005960| 09 09 09 09 09 3b 20 49 | 6e 73 65 72 74 20 63 68 |.....; I|nsert ch|
|00005970| 6f 69 63 65 20 61 73 20 | 74 65 6d 70 6c 61 74 65 |oice as |template|
|00005980| 20 6f 72 20 73 74 72 69 | 6e 67 0a 58 20 20 20 20 | or stri|ng.X |
|00005990| 28 69 66 20 63 68 6f 69 | 63 65 0a 58 09 28 70 72 |(if choi|ce.X.(pr|
|000059a0| 6f 67 6e 0a 58 09 20 20 | 28 73 65 74 71 20 63 68 |ogn.X. |(setq ch|
|000059b0| 6f 69 63 65 2d 6c 69 73 | 74 20 28 74 70 6c 2d 70 |oice-lis|t (tpl-p|
|000059c0| 61 72 73 65 2d 63 68 6f | 69 63 65 20 63 68 6f 69 |arse-cho|ice choi|
|000059d0| 63 65 29 29 0a 58 09 20 | 20 28 73 65 74 71 20 63 |ce)).X. | (setq c|
|000059e0| 68 6f 69 63 65 2d 74 65 | 6d 70 6c 61 74 65 20 28 |hoice-te|mplate (|
|000059f0| 6e 74 68 20 31 20 63 68 | 6f 69 63 65 2d 6c 69 73 |nth 1 ch|oice-lis|
|00005a00| 74 29 29 0a 58 09 20 20 | 28 69 66 20 63 68 6f 69 |t)).X. |(if choi|
|00005a10| 63 65 2d 74 65 6d 70 6c | 61 74 65 0a 58 09 20 20 |ce-templ|ate.X. |
|00005a20| 20 20 20 20 28 74 70 6c | 2d 69 6e 73 65 72 74 2d | (tpl|-insert-|
|00005a30| 74 65 6d 70 6c 61 74 65 | 20 63 68 6f 69 63 65 2d |template| choice-|
|00005a40| 74 65 6d 70 6c 61 74 65 | 29 0a 58 09 20 20 20 20 |template|).X. |
|00005a50| 3b 20 65 6c 73 65 0a 58 | 09 20 20 20 20 28 69 6e |; else.X|. (in|
|00005a60| 73 65 72 74 2d 62 65 66 | 6f 72 65 2d 6d 61 72 6b |sert-bef|ore-mark|
|00005a70| 65 72 73 20 28 6e 74 68 | 20 30 20 63 68 6f 69 63 |ers (nth| 0 choic|
|00005a80| 65 2d 6c 69 73 74 29 29 | 0a 58 09 20 20 20 20 29 |e-list))|.X. )|
|00005a90| 20 3b 20 63 68 6f 69 63 | 65 2d 74 65 6d 70 6c 61 | ; choic|e-templa|
|00005aa0| 74 65 0a 58 09 20 20 29 | 20 3b 20 70 72 6f 67 6e |te.X. )| ; progn|
|00005ab0| 0a 58 20 20 20 20 20 20 | 3b 20 65 6c 73 65 20 69 |.X |; else i|
|00005ac0| 6e 73 65 72 74 20 70 6c | 61 63 65 68 6f 6c 64 65 |nsert pl|aceholde|
|00005ad0| 72 0a 58 20 20 20 20 20 | 20 28 70 72 6f 67 6e 0a |r.X | (progn.|
|00005ae0| 58 09 28 73 65 74 71 20 | 64 69 73 70 6c 61 79 2d |X.(setq |display-|
|00005af0| 73 74 72 69 6e 67 20 28 | 63 6f 6e 63 61 74 20 74 |string (|concat t|
|00005b00| 70 6c 2d 62 65 67 69 6e | 2d 70 6c 61 63 65 68 6f |pl-begin|-placeho|
|00005b10| 6c 64 65 72 0a 58 09 09 | 09 09 20 20 20 20 20 28 |lder.X..|.. (|
|00005b20| 74 70 6c 2d 74 6f 6b 65 | 6e 2d 6e 61 6d 65 20 74 |tpl-toke|n-name t|
|00005b30| 65 6d 70 6c 61 74 65 29 | 0a 58 09 09 09 09 20 20 |emplate)|.X.... |
|00005b40| 20 20 20 74 70 6c 2d 65 | 6e 64 2d 70 6c 61 63 65 | tpl-e|nd-place|
|00005b50| 68 6f 6c 64 65 72 29 29 | 0a 58 09 28 69 6e 73 65 |holder))|.X.(inse|
|00005b60| 72 74 2d 62 65 66 6f 72 | 65 2d 6d 61 72 6b 65 72 |rt-befor|e-marker|
|00005b70| 73 20 64 69 73 70 6c 61 | 79 2d 73 74 72 69 6e 67 |s displa|y-string|
|00005b80| 29 0a 58 09 28 62 61 63 | 6b 77 61 72 64 2d 63 68 |).X.(bac|kward-ch|
|00005b90| 61 72 20 28 6c 65 6e 67 | 74 68 20 64 69 73 70 6c |ar (leng|th displ|
|00005ba0| 61 79 2d 73 74 72 69 6e | 67 29 29 0a 58 09 28 65 |ay-strin|g)).X.(e|
|00005bb0| 72 72 6f 72 20 22 51 75 | 69 74 2e 22 29 0a 58 09 |rror "Qu|it.").X.|
|00005bc0| 29 20 3b 20 70 72 6f 67 | 6e 0a 58 20 20 20 20 20 |) ; prog|n.X |
|00005bd0| 20 29 20 3b 20 69 66 20 | 63 68 6f 69 63 65 0a 58 | ) ; if |choice.X|
|00005be0| 20 20 20 20 29 20 3b 20 | 6c 65 74 0a 58 20 20 29 | ) ; |let.X )|
|00005bf0| 20 3b 20 64 65 66 75 6e | 20 74 70 6c 2d 69 6e 73 | ; defun| tpl-ins|
|00005c00| 65 72 74 2d 73 65 6c 65 | 63 74 69 6f 6e 0a 58 0a |ert-sele|ction.X.|
|00005c10| 58 3b 3b 3b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |X;;;++++|++++++++|
|00005c20| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00005c30| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00005c40| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00005c50| 2b 2b 2b 2b 2b 0a 58 0a | 58 28 64 65 66 75 6e 20 |+++++.X.|X(defun |
|00005c60| 74 70 6c 2d 69 6e 73 65 | 72 74 2d 73 74 72 69 6e |tpl-inse|rt-strin|
|00005c70| 67 2d 66 72 6f 6d 2d 62 | 75 66 66 65 72 20 28 74 |g-from-b|uffer (t|
|00005c80| 70 6c 2d 6e 61 6d 65 20 | 64 69 73 70 6c 61 79 2d |pl-name |display-|
|00005c90| 73 74 72 69 6e 67 20 26 | 6f 70 74 69 6f 6e 61 6c |string &|optional|
|00005ca0| 20 62 75 66 66 65 72 29 | 0a 58 20 20 22 49 6e 73 | buffer)|.X "Ins|
|00005cb0| 65 72 74 20 61 20 74 65 | 6d 70 6c 61 74 65 20 61 |ert a te|mplate a|
|00005cc0| 74 20 70 6f 69 6e 74 20 | 75 73 69 6e 67 20 74 68 |t point |using th|
|00005cd0| 65 20 73 74 72 69 6e 67 | 20 74 79 70 65 20 54 50 |e string| type TP|
|00005ce0| 4c 2d 4e 41 4d 45 2c 20 | 74 65 6d 70 6f 72 61 72 |L-NAME, |temporar|
|00005cf0| 69 6c 79 0a 58 20 20 20 | 72 65 70 72 65 73 65 6e |ily.X |represen|
|00005d00| 74 65 64 20 62 79 20 44 | 49 53 50 4c 41 59 2d 53 |ted by D|ISPLAY-S|
|00005d10| 54 52 49 4e 47 2e 20 20 | 4f 70 74 69 6f 6e 61 6c |TRING. |Optional|
|00005d20| 20 74 68 69 72 64 20 61 | 72 67 75 6d 65 6e 74 20 | third a|rgument |
|00005d30| 42 55 46 46 45 52 20 69 | 73 20 74 68 65 0a 58 20 |BUFFER i|s the.X |
|00005d40| 20 20 62 75 66 66 65 72 | 20 74 6f 20 73 65 61 72 | buffer| to sear|
|00005d50| 63 68 2e 22 0a 58 09 09 | 09 09 09 3b 20 4c 6f 63 |ch.".X..|...; Loc|
|00005d60| 61 6c 20 56 61 72 69 61 | 62 6c 65 73 0a 58 20 20 |al Varia|bles.X |
|00005d70| 28 6c 65 74 20 28 73 74 | 61 72 74 20 73 74 72 69 |(let (st|art stri|
|00005d80| 6e 67 29 0a 58 09 09 09 | 09 09 3b 20 42 6f 64 79 |ng).X...|..; Body|
|00005d90| 0a 58 20 20 20 20 28 69 | 66 20 28 6e 6f 74 20 62 |.X (i|f (not b|
|00005da0| 75 66 66 65 72 29 0a 58 | 09 28 73 65 74 71 20 62 |uffer).X|.(setq b|
|00005db0| 75 66 66 65 72 0a 58 09 | 20 20 20 20 20 20 28 72 |uffer.X.| (r|
|00005dc0| 65 61 64 2d 62 75 66 66 | 65 72 20 22 74 70 6c 2d |ead-buff|er "tpl-|
|00005dd0| 69 6e 73 65 72 74 2d 73 | 74 72 69 6e 67 3a 20 54 |insert-s|tring: T|
|00005de0| 65 6d 70 6c 61 74 65 20 | 62 75 66 66 65 72 3f 20 |emplate |buffer? |
|00005df0| 22 0a 58 09 09 09 20 20 | 20 74 70 6c 2d 6e 65 77 |".X... | tpl-new|
|00005e00| 2d 74 65 6d 70 6c 61 74 | 65 2d 62 75 66 66 65 72 |-templat|e-buffer|
|00005e10| 20 74 29 29 0a 58 20 20 | 20 20 20 20 29 20 3b 20 | t)).X | ) ; |
|00005e20| 69 66 0a 58 20 20 20 20 | 28 73 61 76 65 2d 77 69 |if.X |(save-wi|
|00005e30| 6e 64 6f 77 2d 65 78 63 | 75 72 73 69 6f 6e 0a 58 |ndow-exc|ursion.X|
|00005e40| 20 20 20 20 20 20 28 73 | 65 74 2d 62 75 66 66 65 | (s|et-buffe|
|00005e50| 72 20 62 75 66 66 65 72 | 29 0a 58 20 20 20 20 20 |r buffer|).X |
|00005e60| 20 28 67 6f 74 6f 2d 63 | 68 61 72 20 28 70 6f 69 | (goto-c|har (poi|
|00005e70| 6e 74 2d 6d 69 6e 29 29 | 0a 58 20 20 20 20 20 20 |nt-min))|.X |
|00005e80| 28 69 66 20 28 72 65 2d | 73 65 61 72 63 68 2d 66 |(if (re-|search-f|
|00005e90| 6f 72 77 61 72 64 20 28 | 63 6f 6e 63 61 74 20 74 |orward (|concat t|
|00005ea0| 70 6c 2d 62 65 67 69 6e | 2d 74 65 6d 70 6c 61 74 |pl-begin|-templat|
|00005eb0| 65 2d 64 65 66 69 6e 69 | 74 69 6f 6e 0a 58 09 09 |e-defini|tion.X..|
|00005ec0| 09 09 20 20 20 20 20 22 | 20 22 20 74 70 6c 2d 6e |.. "| " tpl-n|
|00005ed0| 61 6d 65 20 22 20 22 29 | 0a 58 09 09 09 20 20 20 |ame " ")|.X... |
|00005ee0| 20 20 28 70 6f 69 6e 74 | 2d 6d 61 78 29 20 74 29 | (point|-max) t)|
|00005ef0| 0a 58 09 20 20 28 70 72 | 6f 67 6e 0a 58 09 20 20 |.X. (pr|ogn.X. |
|00005f00| 20 20 28 72 65 2d 73 65 | 61 72 63 68 2d 66 6f 72 | (re-se|arch-for|
|00005f10| 77 61 72 64 20 74 70 6c | 2d 62 65 67 69 6e 2d 74 |ward tpl|-begin-t|
|00005f20| 65 6d 70 6c 61 74 65 2d | 62 6f 64 79 29 0a 58 09 |emplate-|body).X.|
|00005f30| 20 20 20 20 28 62 65 67 | 69 6e 6e 69 6e 67 2d 6f | (beg|inning-o|
|00005f40| 66 2d 6c 69 6e 65 20 32 | 29 0a 58 09 20 20 20 20 |f-line 2|).X. |
|00005f50| 28 73 65 74 71 20 73 74 | 61 72 74 20 28 70 6f 69 |(setq st|art (poi|
|00005f60| 6e 74 29 29 0a 58 09 20 | 20 20 20 28 72 65 2d 73 |nt)).X. | (re-s|
|00005f70| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 74 70 |earch-fo|rward tp|
|00005f80| 6c 2d 65 6e 64 2d 74 65 | 6d 70 6c 61 74 65 2d 62 |l-end-te|mplate-b|
|00005f90| 6f 64 79 29 0a 58 09 20 | 20 20 20 28 65 6e 64 2d |ody).X. | (end-|
|00005fa0| 6f 66 2d 6c 69 6e 65 20 | 30 29 0a 58 09 20 20 20 |of-line |0).X. |
|00005fb0| 20 28 73 65 74 71 20 73 | 74 72 69 6e 67 20 28 62 | (setq s|tring (b|
|00005fc0| 75 66 66 65 72 2d 73 75 | 62 73 74 72 69 6e 67 20 |uffer-su|bstring |
|00005fd0| 73 74 61 72 74 20 28 70 | 6f 69 6e 74 29 29 29 0a |start (p|oint))).|
|00005fe0| 58 09 20 20 20 20 29 20 | 3b 20 70 72 6f 67 6e 0a |X. ) |; progn.|
|00005ff0| 58 09 3b 20 65 6c 73 65 | 0a 58 09 28 65 72 72 6f |X.; else|.X.(erro|
|00006000| 72 20 22 43 6f 75 6c 64 | 20 6e 6f 74 20 66 69 6e |r "Could| not fin|
|00006010| 64 20 74 65 6d 70 6c 61 | 74 65 20 69 6e 20 25 73 |d templa|te in %s|
|00006020| 22 20 62 75 66 66 65 72 | 29 0a 58 09 29 20 3b 20 |" buffer|).X.) ; |
|00006030| 69 66 0a 58 20 20 20 20 | 20 20 29 20 3b 20 73 61 |if.X | ) ; sa|
|00006040| 76 65 2d 77 69 6e 64 6f | 77 2d 65 78 63 75 72 73 |ve-windo|w-excurs|
|00006050| 69 6f 6e 0a 58 20 20 20 | 20 28 64 65 6c 65 74 65 |ion.X | (delete|
|00006060| 2d 63 68 61 72 20 28 6c | 65 6e 67 74 68 20 64 69 |-char (l|ength di|
|00006070| 73 70 6c 61 79 2d 73 74 | 72 69 6e 67 29 29 0a 58 |splay-st|ring)).X|
|00006080| 20 20 20 20 28 69 6e 73 | 65 72 74 2d 62 65 66 6f | (ins|ert-befo|
|00006090| 72 65 2d 6d 61 72 6b 65 | 72 73 20 73 74 72 69 6e |re-marke|rs strin|
|000060a0| 67 29 0a 58 20 20 20 20 | 29 20 3b 20 6c 65 74 0a |g).X |) ; let.|
|000060b0| 58 20 20 29 20 3b 20 64 | 65 66 75 6e 20 74 70 6c |X ) ; d|efun tpl|
|000060c0| 2d 69 6e 73 65 72 74 2d | 73 74 72 69 6e 67 2d 66 |-insert-|string-f|
|000060d0| 72 6f 6d 2d 62 75 66 66 | 65 72 0a 58 0a 58 3b 3b |rom-buff|er.X.X;;|
|000060e0| 3b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |;+++++++|++++++++|
|000060f0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00006100| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00006110| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00006120| 2b 2b 0a 58 0a 58 28 64 | 65 66 75 6e 20 74 70 6c |++.X.X(d|efun tpl|
|00006130| 2d 69 6e 73 65 72 74 2d | 74 65 6d 70 6c 61 74 65 |-insert-|template|
|00006140| 20 28 74 70 6c 2d 6e 61 | 6d 65 29 0a 58 20 20 22 | (tpl-na|me).X "|
|00006150| 49 6e 73 65 72 74 20 74 | 68 65 20 74 65 6d 70 6c |Insert t|he templ|
|00006160| 61 74 65 20 54 50 4c 2d | 4e 41 4d 45 20 61 74 20 |ate TPL-|NAME at |
|00006170| 70 6f 69 6e 74 2e 22 0a | 58 09 09 09 09 09 3b 20 |point.".|X.....; |
|00006180| 4c 6f 63 61 6c 20 56 61 | 72 69 61 62 6c 65 73 0a |Local Va|riables.|
|00006190| 58 20 20 28 6c 65 74 20 | 28 64 69 73 70 6c 61 79 |X (let |(display|
|000061a0| 2d 73 74 72 69 6e 67 20 | 74 65 6d 70 6c 61 74 65 |-string |template|
|000061b0| 20 73 74 61 72 74 20 74 | 65 6d 70 6c 61 74 65 2d | start t|emplate-|
|000061c0| 74 79 70 65 20 6c 6f 6f | 6b 69 6e 67 29 0a 58 09 |type loo|king).X.|
|000061d0| 09 09 09 09 3b 20 42 6f | 64 79 0a 58 09 09 09 09 |....; Bo|dy.X....|
|000061e0| 09 3b 20 44 69 73 70 6c | 61 79 20 73 65 6c 65 63 |.; Displ|ay selec|
|000061f0| 74 65 64 20 74 65 6d 70 | 6c 61 74 65 0a 58 20 20 |ted temp|late.X |
|00006200| 20 20 28 73 65 74 71 20 | 64 69 73 70 6c 61 79 2d | (setq |display-|
|00006210| 73 74 72 69 6e 67 20 28 | 63 6f 6e 63 61 74 20 74 |string (|concat t|
|00006220| 70 6c 2d 64 69 73 70 6c | 61 79 2d 62 65 67 69 6e |pl-displ|ay-begin|
|00006230| 20 74 70 6c 2d 6e 61 6d | 65 20 74 70 6c 2d 64 69 | tpl-nam|e tpl-di|
|00006240| 73 70 6c 61 79 2d 65 6e | 64 29 29 0a 58 20 20 20 |splay-en|d)).X |
|00006250| 20 28 69 6e 73 65 72 74 | 2d 62 65 66 6f 72 65 2d | (insert|-before-|
|00006260| 6d 61 72 6b 65 72 73 20 | 64 69 73 70 6c 61 79 2d |markers |display-|
|00006270| 73 74 72 69 6e 67 29 0a | 58 20 20 20 20 28 62 61 |string).|X (ba|
|00006280| 63 6b 77 61 72 64 2d 63 | 68 61 72 20 28 6c 65 6e |ckward-c|har (len|
|00006290| 67 74 68 20 64 69 73 70 | 6c 61 79 2d 73 74 72 69 |gth disp|lay-stri|
|000062a0| 6e 67 29 29 0a 58 20 20 | 20 20 28 73 65 74 71 20 |ng)).X | (setq |
|000062b0| 6c 6f 6f 6b 69 6e 67 20 | 74 29 0a 58 20 20 20 20 |looking |t).X |
|000062c0| 28 77 68 69 6c 65 20 6c | 6f 6f 6b 69 6e 67 0a 58 |(while l|ooking.X|
|000062d0| 09 09 09 09 09 3b 20 46 | 69 6e 64 20 74 65 6d 70 |.....; F|ind temp|
|000062e0| 6c 61 74 65 2e 0a 58 20 | 20 20 20 20 20 28 73 65 |late..X | (se|
|000062f0| 74 71 20 74 65 6d 70 6c | 61 74 65 20 28 74 70 6c |tq templ|ate (tpl|
|00006300| 2d 66 69 6e 64 2d 74 65 | 6d 70 6c 61 74 65 20 74 |-find-te|mplate t|
|00006310| 70 6c 2d 6e 61 6d 65 29 | 29 0a 58 20 20 20 20 20 |pl-name)|).X |
|00006320| 20 28 69 66 20 74 65 6d | 70 6c 61 74 65 0a 58 09 | (if tem|plate.X.|
|00006330| 20 20 28 70 72 6f 67 6e | 0a 58 09 20 20 20 20 28 | (progn|.X. (|
|00006340| 73 65 74 71 20 6c 6f 6f | 6b 69 6e 67 20 6e 69 6c |setq loo|king nil|
|00006350| 29 0a 58 09 09 09 09 09 | 3b 20 49 6e 73 65 72 74 |).X.....|; Insert|
|00006360| 20 74 65 6d 70 6c 61 74 | 65 0a 58 09 20 20 20 20 | templat|e.X. |
|00006370| 28 64 65 6c 65 74 65 2d | 63 68 61 72 20 28 6c 65 |(delete-|char (le|
|00006380| 6e 67 74 68 20 64 69 73 | 70 6c 61 79 2d 73 74 72 |ngth dis|play-str|
|00006390| 69 6e 67 29 29 0a 58 09 | 20 20 20 20 28 73 65 74 |ing)).X.| (set|
|000063a0| 71 20 73 74 61 72 74 20 | 28 70 6f 69 6e 74 29 29 |q start |(point))|
|000063b0| 0a 58 09 20 20 20 20 28 | 73 65 74 71 20 74 65 6d |.X. (|setq tem|
|000063c0| 70 6c 61 74 65 2d 74 79 | 70 65 20 28 74 70 6c 2d |plate-ty|pe (tpl-|
|000063d0| 74 6f 6b 65 6e 2d 74 79 | 70 65 20 74 65 6d 70 6c |token-ty|pe templ|
|000063e0| 61 74 65 29 29 0a 58 09 | 20 20 20 20 28 63 6f 6e |ate)).X.| (con|
|000063f0| 64 0a 58 09 20 20 20 20 | 20 28 28 65 71 75 61 6c |d.X. | ((equal|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
