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: part01
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| Newsgroup Content (archive/news)
| magic
| Supported |
| 100%
| dexvert
| SHell self-extracting ARchive (archive/shar)
| magic
| Supported |
| 1%
| dexvert
| Texas Instruments Calculator Program (executable/tiCalcProgram)
| magic
| Unsupported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| news text
| default
| |
| 99%
| file
| Lisp/Scheme program text
| default
| |
| 98%
| file
| Lisp/Scheme program, ASCII text
| default
| |
| 100%
| dexmagic
| PrintFox/Pagefox WEAK
| 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/news
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 50 61 74 68 3a 20 75 75 | 6e 65 74 21 72 73 0a 46 |Path: uu|net!rs.F|
|00000010| 72 6f 6d 3a 20 72 73 40 | 75 75 6e 65 74 2e 55 55 |rom: rs@|uunet.UU|
|00000020| 2e 4e 45 54 20 28 52 69 | 63 68 20 53 61 6c 7a 29 |.NET (Ri|ch Salz)|
|00000030| 0a 4e 65 77 73 67 72 6f | 75 70 73 3a 20 63 6f 6d |.Newsgro|ups: com|
|00000040| 70 2e 73 6f 75 72 63 65 | 73 2e 75 6e 69 78 0a 53 |p.source|s.unix.S|
|00000050| 75 62 6a 65 63 74 3a 20 | 76 31 31 69 30 33 36 3a |ubject: |v11i036:|
|00000060| 20 20 54 65 73 74 20 73 | 79 73 74 65 6d 20 66 6f | Test s|ystem fo|
|00000070| 72 20 47 4e 55 20 45 6d | 61 63 73 2c 20 50 61 72 |r GNU Em|acs, Par|
|00000080| 74 30 31 2f 30 33 0a 4d | 65 73 73 61 67 65 2d 49 |t01/03.M|essage-I|
|00000090| 44 3a 20 3c 31 35 30 31 | 40 75 75 6e 65 74 2e 55 |D: <1501|@uunet.U|
|000000a0| 55 2e 4e 45 54 3e 0a 44 | 61 74 65 3a 20 31 30 20 |U.NET>.D|ate: 10 |
|000000b0| 53 65 70 20 38 37 20 30 | 33 3a 35 33 3a 30 35 20 |Sep 87 0|3:53:05 |
|000000c0| 47 4d 54 0a 4f 72 67 61 | 6e 69 7a 61 74 69 6f 6e |GMT.Orga|nization|
|000000d0| 3a 20 55 55 4e 45 54 20 | 43 6f 6d 6d 75 6e 69 63 |: UUNET |Communic|
|000000e0| 61 74 69 6f 6e 73 20 53 | 65 72 76 69 63 65 73 2c |ations S|ervices,|
|000000f0| 20 41 72 6c 69 6e 67 74 | 6f 6e 2c 20 56 41 0a 4c | Arlingt|on, VA.L|
|00000100| 69 6e 65 73 3a 20 31 39 | 39 31 0a 41 70 70 72 6f |ines: 19|91.Appro|
|00000110| 76 65 64 3a 20 72 73 40 | 75 75 6e 65 74 2e 55 55 |ved: rs@|uunet.UU|
|00000120| 2e 4e 45 54 0a 0a 53 75 | 62 6d 69 74 74 65 64 2d |.NET..Su|bmitted-|
|00000130| 62 79 3a 20 22 4d 61 72 | 6b 20 41 2e 20 41 72 64 |by: "Mar|k A. Ard|
|00000140| 69 73 22 20 3c 6d 61 61 | 40 73 65 69 2e 63 6d 75 |is" <maa|@sei.cmu|
|00000150| 2e 65 64 75 3e 0a 50 6f | 73 74 69 6e 67 2d 6e 75 |.edu>.Po|sting-nu|
|00000160| 6d 62 65 72 3a 20 56 6f | 6c 75 6d 65 20 31 31 2c |mber: Vo|lume 11,|
|00000170| 20 49 73 73 75 65 20 33 | 36 0a 41 72 63 68 69 76 | Issue 3|6.Archiv|
|00000180| 65 2d 6e 61 6d 65 3a 20 | 74 65 73 74 2e 65 6c 2f |e-name: |test.el/|
|00000190| 50 61 72 74 30 31 0a 0a | 49 20 61 6d 20 73 65 6e |Part01..|I am sen|
|000001a0| 64 69 6e 67 20 79 6f 75 | 20 28 69 6e 20 33 20 70 |ding you| (in 3 p|
|000001b0| 61 72 74 73 29 20 61 20 | 70 61 63 6b 61 67 65 20 |arts) a |package |
|000001c0| 66 6f 72 20 47 4e 55 20 | 45 6d 61 63 73 20 63 61 |for GNU |Emacs ca|
|000001d0| 6c 6c 65 64 0a 22 74 65 | 73 74 22 2e 20 20 49 74 |lled."te|st". It|
|000001e0| 20 69 73 20 64 65 73 69 | 67 6e 65 64 20 74 6f 20 | is desi|gned to |
|000001f0| 68 65 6c 70 20 61 75 74 | 68 6f 72 73 20 6f 66 20 |help aut|hors of |
|00000200| 47 4e 55 20 45 6d 61 63 | 73 20 4c 69 73 70 20 70 |GNU Emac|s Lisp p|
|00000210| 61 63 6b 61 67 65 73 0a | 74 65 73 74 20 74 68 65 |ackages.|test the|
|00000220| 69 72 20 70 72 6f 64 75 | 63 74 73 2e 20 20 53 6f |ir produ|cts. So|
|00000230| 6d 65 20 6f 66 20 74 68 | 65 20 66 65 61 74 75 72 |me of th|e featur|
|00000240| 65 73 20 6f 66 20 22 74 | 65 73 74 22 20 70 72 6f |es of "t|est" pro|
|00000250| 76 69 64 65 0a 61 73 73 | 69 73 74 61 6e 63 65 20 |vide.ass|istance |
|00000260| 69 6e 20 63 6f 6e 73 74 | 72 75 63 74 69 6e 67 20 |in const|ructing |
|00000270| 74 65 73 74 73 20 61 6e | 64 20 74 65 73 74 73 63 |tests an|d testsc|
|00000280| 72 69 70 74 73 2e 20 20 | 4f 74 68 65 72 20 66 65 |ripts. |Other fe|
|00000290| 61 74 75 72 65 73 0a 61 | 73 73 69 73 74 20 69 6e |atures.a|ssist in|
|000002a0| 20 74 68 65 20 61 6e 61 | 6c 79 73 69 73 20 6f 66 | the ana|lysis of|
|000002b0| 20 74 68 65 20 65 66 66 | 65 63 74 69 76 65 6e 65 | the eff|ectivene|
|000002c0| 73 73 20 6f 66 20 74 65 | 73 74 69 6e 67 2e 0a 0a |ss of te|sting...|
|000002d0| 55 6e 66 6f 72 74 75 6e | 61 74 65 6c 79 2c 20 74 |Unfortun|ately, t|
|000002e0| 68 69 73 20 70 61 63 6b | 61 67 65 20 68 61 73 20 |his pack|age has |
|000002f0| 6e 6f 74 20 62 65 65 6e | 20 61 64 65 71 75 61 74 |not been| adequat|
|00000300| 65 6c 79 20 74 65 73 74 | 65 64 20 69 74 73 65 6c |ely test|ed itsel|
|00000310| 66 2e 20 20 49 74 0a 69 | 73 20 74 68 65 20 70 72 |f. It.i|s the pr|
|00000320| 6f 64 75 63 74 20 6f 66 | 20 61 20 73 65 6d 65 73 |oduct of| a semes|
|00000330| 74 65 72 2d 6c 6f 6e 67 | 20 70 72 6f 6a 65 63 74 |ter-long| project|
|00000340| 20 61 74 20 57 61 6e 67 | 20 49 6e 73 74 69 74 75 | at Wang| Institu|
|00000350| 74 65 2e 20 20 53 69 6e | 63 65 0a 74 68 65 20 4d |te. Sin|ce.the M|
|00000360| 53 45 20 70 72 6f 67 72 | 61 6d 20 69 73 20 62 65 |SE progr|am is be|
|00000370| 69 6e 67 20 64 69 73 63 | 6f 6e 74 69 6e 75 65 64 |ing disc|ontinued|
|00000380| 2c 20 77 65 20 61 72 65 | 20 66 6f 72 63 65 64 20 |, we are| forced |
|00000390| 74 6f 20 64 69 73 74 72 | 69 62 75 74 65 0a 74 68 |to distr|ibute.th|
|000003a0| 69 73 20 70 61 63 6b 61 | 67 65 20 70 72 65 6d 61 |is packa|ge prema|
|000003b0| 74 75 72 65 6c 79 2c 20 | 6c 65 73 74 20 69 74 20 |turely, |lest it |
|000003c0| 62 65 20 6c 6f 73 74 2e | 20 20 41 73 20 74 68 65 |be lost.| As the|
|000003d0| 20 69 6e 73 74 72 75 63 | 74 6f 72 20 6f 66 20 74 | instruc|tor of t|
|000003e0| 68 65 0a 63 6f 75 72 73 | 65 20 49 20 77 69 6c 6c |he.cours|e I will|
|000003f0| 20 62 65 20 67 6c 61 64 | 20 74 6f 20 63 6f 6c 6c | be glad| to coll|
|00000400| 65 63 74 20 63 6f 6d 6d | 65 6e 74 73 2c 20 73 75 |ect comm|ents, su|
|00000410| 67 67 65 73 74 69 6f 6e | 73 2c 20 62 75 67 20 72 |ggestion|s, bug r|
|00000420| 65 70 6f 72 74 73 2c 0a | 65 74 63 2e 20 61 74 20 |eports,.|etc. at |
|00000430| 6d 79 20 6e 65 77 20 61 | 64 64 72 65 73 73 3a 0a |my new a|ddress:.|
|00000440| 0a 4d 61 72 6b 20 41 2e | 20 41 72 64 69 73 0a 53 |.Mark A.| Ardis.S|
|00000450| 6f 66 74 77 61 72 65 20 | 45 6e 67 69 6e 65 65 72 |oftware |Engineer|
|00000460| 69 6e 67 20 49 6e 73 74 | 69 74 75 74 65 0a 34 35 |ing Inst|itute.45|
|00000470| 30 30 20 46 69 66 74 68 | 20 41 76 65 6e 75 65 0a |00 Fifth| Avenue.|
|00000480| 50 69 74 74 73 62 75 72 | 67 68 2c 20 50 41 20 31 |Pittsbur|gh, PA 1|
|00000490| 35 32 31 33 0a 28 34 31 | 32 29 20 32 36 38 2d 37 |5213.(41|2) 268-7|
|000004a0| 36 33 36 0a 6d 61 61 40 | 73 65 69 2e 63 6d 75 2e |636.maa@|sei.cmu.|
|000004b0| 65 64 75 20 28 41 52 50 | 41 4e 45 54 29 0a 0a 0a |edu (ARP|ANET)...|
|000004c0| 23 21 20 2f 62 69 6e 2f | 73 68 0a 23 20 54 68 69 |#! /bin/|sh.# Thi|
|000004d0| 73 20 69 73 20 61 20 73 | 68 65 6c 6c 20 61 72 63 |s is a s|hell arc|
|000004e0| 68 69 76 65 2c 20 6d 65 | 61 6e 69 6e 67 3a 0a 23 |hive, me|aning:.#|
|000004f0| 20 31 2e 20 52 65 6d 6f | 76 65 20 65 76 65 72 79 | 1. Remo|ve every|
|00000500| 74 68 69 6e 67 20 61 62 | 6f 76 65 20 74 68 65 20 |thing ab|ove the |
|00000510| 23 21 20 2f 62 69 6e 2f | 73 68 20 6c 69 6e 65 2e |#! /bin/|sh line.|
|00000520| 0a 23 20 32 2e 20 53 61 | 76 65 20 74 68 65 20 72 |.# 2. Sa|ve the r|
|00000530| 65 73 75 6c 74 69 6e 67 | 20 74 65 78 74 20 69 6e |esulting| text in|
|00000540| 20 61 20 66 69 6c 65 2e | 0a 23 20 33 2e 20 45 78 | a file.|.# 3. Ex|
|00000550| 65 63 75 74 65 20 74 68 | 65 20 66 69 6c 65 20 77 |ecute th|e file w|
|00000560| 69 74 68 20 2f 62 69 6e | 2f 73 68 20 28 6e 6f 74 |ith /bin|/sh (not|
|00000570| 20 63 73 68 29 20 74 6f | 20 63 72 65 61 74 65 3a | csh) to| create:|
|00000580| 0a 23 09 74 73 74 2d 64 | 69 73 70 6c 61 79 2e 65 |.#.tst-d|isplay.e|
|00000590| 6c 0a 23 09 74 73 74 2d | 65 71 75 61 6c 2e 65 6c |l.#.tst-|equal.el|
|000005a0| 0a 23 09 74 73 74 2d 69 | 6e 65 71 75 61 6c 2e 65 |.#.tst-i|nequal.e|
|000005b0| 6c 0a 23 09 74 73 74 2d | 69 6e 73 74 72 75 6d 65 |l.#.tst-|instrume|
|000005c0| 6e 74 2e 65 6c 0a 23 20 | 54 68 69 73 20 61 72 63 |nt.el.# |This arc|
|000005d0| 68 69 76 65 20 63 72 65 | 61 74 65 64 3a 20 54 68 |hive cre|ated: Th|
|000005e0| 75 20 41 75 67 20 20 36 | 20 31 37 3a 30 32 3a 31 |u Aug 6| 17:02:1|
|000005f0| 37 20 31 39 38 37 0a 65 | 78 70 6f 72 74 20 50 41 |7 1987.e|xport PA|
|00000600| 54 48 3b 20 50 41 54 48 | 3d 2f 62 69 6e 3a 2f 75 |TH; PATH|=/bin:/u|
|00000610| 73 72 2f 62 69 6e 3a 24 | 50 41 54 48 0a 65 63 68 |sr/bin:$|PATH.ech|
|00000620| 6f 20 73 68 61 72 3a 20 | 22 65 78 74 72 61 63 74 |o shar: |"extract|
|00000630| 69 6e 67 20 27 74 73 74 | 2d 64 69 73 70 6c 61 79 |ing 'tst|-display|
|00000640| 2e 65 6c 27 22 20 27 28 | 31 32 34 34 33 20 63 68 |.el'" '(|12443 ch|
|00000650| 61 72 61 63 74 65 72 73 | 29 27 0a 69 66 20 74 65 |aracters|)'.if te|
|00000660| 73 74 20 2d 66 20 27 74 | 73 74 2d 64 69 73 70 6c |st -f 't|st-displ|
|00000670| 61 79 2e 65 6c 27 0a 74 | 68 65 6e 0a 09 65 63 68 |ay.el'.t|hen..ech|
|00000680| 6f 20 73 68 61 72 3a 20 | 22 77 69 6c 6c 20 6e 6f |o shar: |"will no|
|00000690| 74 20 6f 76 65 72 2d 77 | 72 69 74 65 20 65 78 69 |t over-w|rite exi|
|000006a0| 73 74 69 6e 67 20 66 69 | 6c 65 20 27 74 73 74 2d |sting fi|le 'tst-|
|000006b0| 64 69 73 70 6c 61 79 2e | 65 6c 27 22 0a 65 6c 73 |display.|el'".els|
|000006c0| 65 0a 73 65 64 20 27 73 | 2f 5e 58 2f 2f 27 20 3c |e.sed 's|/^X//' <|
|000006d0| 3c 20 5c 53 48 41 52 5f | 45 4f 46 20 3e 20 27 74 |< \SHAR_|EOF > 't|
|000006e0| 73 74 2d 64 69 73 70 6c | 61 79 2e 65 6c 27 0a 58 |st-displ|ay.el'.X|
|000006f0| 3b 3b 3b 20 64 69 73 70 | 6c 61 79 2e 65 6c 20 2d |;;; disp|lay.el -|
|00000700| 20 47 6e 75 54 65 73 74 | 20 44 69 73 70 6c 61 79 | GnuTest| Display|
|00000710| 20 50 61 63 6b 61 67 65 | 0a 58 3b 3b 3b 20 43 6f | Package|.X;;; Co|
|00000720| 70 79 72 69 67 68 74 20 | 28 63 29 20 31 39 38 37 |pyright |(c) 1987|
|00000730| 20 57 61 6e 67 20 49 6e | 73 74 69 74 75 74 65 20 | Wang In|stitute |
|00000740| 6f 66 20 47 72 61 64 75 | 61 74 65 20 53 74 75 64 |of Gradu|ate Stud|
|00000750| 69 65 73 0a 58 3b 3b 3b | 20 41 6e 64 79 20 42 6c |ies.X;;;| Andy Bl|
|00000760| 69 76 65 6e 20 3c 62 6c | 69 76 65 6e 40 77 61 6e |iven <bl|iven@wan|
|00000770| 67 69 6e 73 74 3e 0a 58 | 0a 58 28 70 72 6f 76 69 |ginst>.X|.X(provi|
|00000780| 64 65 20 27 74 73 74 2d | 64 69 73 70 6c 61 79 29 |de 'tst-|display)|
|00000790| 0a 58 28 72 65 71 75 69 | 72 65 20 27 74 73 74 2d |.X(requi|re 'tst-|
|000007a0| 61 6e 6e 6f 74 61 74 65 | 29 0a 58 0a 58 3b 3b 3b |annotate|).X.X;;;|
|000007b0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|000007c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007f0| 2d 2d 2d 2d 2d 2d 2d 0a | 58 3b 3b 3b 20 50 75 62 |-------.|X;;; Pub|
|00000800| 6c 69 63 20 56 61 72 69 | 61 62 6c 65 73 2d 2d 0a |lic Vari|ables--.|
|00000810| 58 20 20 0a 58 28 64 65 | 66 63 6f 6e 73 74 20 74 |X .X(de|fconst t|
|00000820| 73 74 2d 64 69 73 70 6c | 61 79 2d 77 69 6e 64 6f |st-displ|ay-windo|
|00000830| 77 2d 77 69 64 74 68 20 | 31 30 0a 58 20 20 22 2a |w-width |10.X "*|
|00000840| 20 20 57 69 64 74 68 20 | 6f 66 20 65 61 63 68 20 | Width |of each |
|00000850| 64 69 73 70 6c 61 79 20 | 77 69 6e 64 6f 77 2c 20 |display |window, |
|00000860| 69 6e 20 63 6f 6c 75 6d | 6e 73 22 29 0a 58 20 20 |in colum|ns").X |
|00000870| 0a 58 28 64 65 66 63 6f | 6e 73 74 20 74 73 74 2d |.X(defco|nst tst-|
|00000880| 64 69 73 70 6c 61 79 2d | 61 74 74 72 69 62 75 74 |display-|attribut|
|00000890| 65 73 20 28 6c 69 73 74 | 20 27 7a 65 72 6f 20 27 |es (list| 'zero '|
|000008a0| 63 6f 6e 73 74 61 6e 74 | 29 0a 58 20 20 22 2a 20 |constant|).X "* |
|000008b0| 20 4c 69 73 74 20 6f 66 | 20 61 74 74 72 69 62 75 | List of| attribu|
|000008c0| 74 65 73 20 74 6f 20 62 | 65 20 64 69 73 70 6c 61 |tes to b|e displa|
|000008d0| 79 65 64 20 69 6e 20 62 | 61 74 63 68 20 6d 6f 64 |yed in b|atch mod|
|000008e0| 65 2e 22 29 0a 58 0a 58 | 3b 3b 3b 20 2d 2d 2d 2d |e.").X.X|;;; ----|
|000008f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000900| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000910| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000920| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000930| 2d 2d 0a 58 3b 3b 3b 20 | 50 72 69 76 61 74 65 20 |--.X;;; |Private |
|00000940| 56 61 72 69 61 62 6c 65 | 73 2d 2d 0a 58 20 20 0a |Variable|s--.X .|
|00000950| 58 28 64 65 66 76 61 72 | 20 74 73 74 2d 64 69 73 |X(defvar| tst-dis|
|00000960| 70 6c 61 79 2d 62 75 66 | 66 65 72 2d 61 6c 69 73 |play-buf|fer-alis|
|00000970| 74 20 6e 69 6c 0a 58 20 | 20 22 41 6e 20 61 6c 69 |t nil.X | "An ali|
|00000980| 73 74 20 6f 66 20 61 74 | 74 72 69 62 75 74 65 20 |st of at|tribute |
|00000990| 6e 61 6d 65 73 20 61 6e | 64 20 62 75 66 66 65 72 |names an|d buffer|
|000009a0| 20 6f 62 6a 65 63 74 73 | 22 29 0a 58 20 20 0a 58 | objects|").X .X|
|000009b0| 28 64 65 66 76 61 72 20 | 74 73 74 2d 64 69 73 70 |(defvar |tst-disp|
|000009c0| 6c 61 79 2d 6c 69 73 70 | 2d 62 75 66 66 65 72 20 |lay-lisp|-buffer |
|000009d0| 6e 69 6c 0a 58 20 20 22 | 54 68 65 20 62 75 66 66 |nil.X "|The buff|
|000009e0| 65 72 20 6f 66 20 65 6d | 61 63 73 20 6c 69 73 70 |er of em|acs lisp|
|000009f0| 20 63 6f 64 65 20 74 68 | 61 74 20 68 61 73 20 62 | code th|at has b|
|00000a00| 65 65 6e 20 61 6e 6e 6f | 74 61 74 65 64 2e 22 29 |een anno|tated.")|
|00000a10| 0a 58 20 20 0a 58 28 64 | 65 66 76 61 72 20 74 73 |.X .X(d|efvar ts|
|00000a20| 74 2d 64 69 73 70 6c 61 | 79 2d 6c 69 73 70 2d 77 |t-displa|y-lisp-w|
|00000a30| 69 6e 64 6f 77 20 6e 69 | 6c 0a 58 20 20 22 54 68 |indow ni|l.X "Th|
|00000a40| 65 20 77 69 6e 64 6f 77 | 20 63 6f 6e 74 61 69 6e |e window| contain|
|00000a50| 69 6e 67 20 65 6d 61 63 | 73 20 6c 69 73 70 20 63 |ing emac|s lisp c|
|00000a60| 6f 64 65 2e 22 29 0a 58 | 20 20 0a 58 28 64 65 66 |ode.").X| .X(def|
|00000a70| 76 61 72 20 74 73 74 2d | 64 69 73 70 6c 61 79 2d |var tst-|display-|
|00000a80| 6d 6f 64 65 2d 6d 61 70 | 20 6e 69 6c 0a 58 20 20 |mode-map| nil.X |
|00000a90| 22 4b 65 79 6d 61 70 20 | 66 6f 72 20 47 6e 75 54 |"Keymap |for GnuT|
|00000aa0| 65 73 74 20 44 69 73 70 | 6c 61 79 20 6d 61 6a 6f |est Disp|lay majo|
|00000ab0| 72 20 6d 6f 64 65 2e 22 | 29 0a 58 28 6f 72 20 74 |r mode."|).X(or t|
|00000ac0| 73 74 2d 64 69 73 70 6c | 61 79 2d 6d 6f 64 65 2d |st-displ|ay-mode-|
|00000ad0| 6d 61 70 0a 58 20 20 20 | 20 28 70 72 6f 67 6e 0a |map.X | (progn.|
|00000ae0| 58 20 20 20 20 20 20 28 | 73 65 74 71 20 74 73 74 |X (|setq tst|
|00000af0| 2d 64 69 73 70 6c 61 79 | 2d 6d 6f 64 65 2d 6d 61 |-display|-mode-ma|
|00000b00| 70 20 28 6d 61 6b 65 2d | 6b 65 79 6d 61 70 29 29 |p (make-|keymap))|
|00000b10| 0a 58 20 20 20 20 20 20 | 28 73 75 70 70 72 65 73 |.X |(suppres|
|00000b20| 73 2d 6b 65 79 6d 61 70 | 20 74 73 74 2d 64 69 73 |s-keymap| tst-dis|
|00000b30| 70 6c 61 79 2d 6d 6f 64 | 65 2d 6d 61 70 29 20 3b |play-mod|e-map) ;|
|00000b40| 20 72 65 71 75 69 72 65 | 73 20 66 75 6c 6c 20 6b | require|s full k|
|00000b50| 65 79 6d 61 70 2c 20 6e | 6f 74 20 73 70 61 72 73 |eymap, n|ot spars|
|00000b60| 65 0a 58 09 09 09 09 09 | 3b 20 6b 65 79 20 64 65 |e.X.....|; key de|
|00000b70| 66 69 6e 69 74 69 6f 6e | 73 0a 58 20 20 20 20 20 |finition|s.X |
|00000b80| 20 28 64 65 66 69 6e 65 | 2d 6b 65 79 20 74 73 74 | (define|-key tst|
|00000b90| 2d 64 69 73 70 6c 61 79 | 2d 6d 6f 64 65 2d 6d 61 |-display|-mode-ma|
|00000ba0| 70 20 22 5c 43 2d 6e 22 | 20 20 20 20 27 74 73 74 |p "\C-n"| 'tst|
|00000bb0| 2d 64 69 73 70 6c 61 79 | 2d 6e 65 78 74 2d 6c 69 |-display|-next-li|
|00000bc0| 6e 65 29 0a 58 20 20 20 | 20 20 20 28 64 65 66 69 |ne).X | (defi|
|00000bd0| 6e 65 2d 6b 65 79 20 74 | 73 74 2d 64 69 73 70 6c |ne-key t|st-displ|
|00000be0| 61 79 2d 6d 6f 64 65 2d | 6d 61 70 20 22 5c 43 2d |ay-mode-|map "\C-|
|00000bf0| 70 22 20 20 20 20 27 74 | 73 74 2d 64 69 73 70 6c |p" 't|st-displ|
|00000c00| 61 79 2d 70 72 65 76 69 | 6f 75 73 2d 6c 69 6e 65 |ay-previ|ous-line|
|00000c10| 29 0a 58 20 20 20 20 20 | 20 28 64 65 66 69 6e 65 |).X | (define|
|00000c20| 2d 6b 65 79 20 74 73 74 | 2d 64 69 73 70 6c 61 79 |-key tst|-display|
|00000c30| 2d 6d 6f 64 65 2d 6d 61 | 70 20 22 5c 43 2d 76 22 |-mode-ma|p "\C-v"|
|00000c40| 20 20 20 20 27 74 73 74 | 2d 64 69 73 70 6c 61 79 | 'tst|-display|
|00000c50| 2d 73 63 72 6f 6c 6c 2d | 75 70 29 0a 58 20 20 20 |-scroll-|up).X |
|00000c60| 20 20 20 28 64 65 66 69 | 6e 65 2d 6b 65 79 20 74 | (defi|ne-key t|
|00000c70| 73 74 2d 64 69 73 70 6c | 61 79 2d 6d 6f 64 65 2d |st-displ|ay-mode-|
|00000c80| 6d 61 70 20 22 5c 4d 2d | 76 22 20 20 20 20 20 27 |map "\M-|v" '|
|00000c90| 74 73 74 2d 64 69 73 70 | 6c 61 79 2d 73 63 72 6f |tst-disp|lay-scro|
|00000ca0| 6c 6c 2d 64 6f 77 6e 29 | 0a 58 20 20 20 20 20 20 |ll-down)|.X |
|00000cb0| 28 64 65 66 69 6e 65 2d | 6b 65 79 20 74 73 74 2d |(define-|key tst-|
|00000cc0| 64 69 73 70 6c 61 79 2d | 6d 6f 64 65 2d 6d 61 70 |display-|mode-map|
|00000cd0| 20 22 5c 43 2d 63 5c 43 | 2d 68 22 20 27 74 73 74 | "\C-c\C|-h" 'tst|
|00000ce0| 2d 64 69 73 70 6c 61 79 | 2d 6d 6f 64 65 2d 68 65 |-display|-mode-he|
|00000cf0| 6c 70 29 0a 58 20 20 20 | 20 20 20 28 64 65 66 69 |lp).X | (defi|
|00000d00| 6e 65 2d 6b 65 79 20 74 | 73 74 2d 64 69 73 70 6c |ne-key t|st-displ|
|00000d10| 61 79 2d 6d 6f 64 65 2d | 6d 61 70 20 22 5c 43 2d |ay-mode-|map "\C-|
|00000d20| 63 63 22 20 20 20 27 74 | 73 74 2d 64 69 73 70 6c |cc" 't|st-displ|
|00000d30| 61 79 2d 63 6f 6e 73 74 | 61 6e 74 29 0a 58 20 20 |ay-const|ant).X |
|00000d40| 20 20 20 20 28 64 65 66 | 69 6e 65 2d 6b 65 79 20 | (def|ine-key |
|00000d50| 74 73 74 2d 64 69 73 70 | 6c 61 79 2d 6d 6f 64 65 |tst-disp|lay-mode|
|00000d60| 2d 6d 61 70 20 22 5c 43 | 2d 63 6c 22 20 20 20 27 |-map "\C|-cl" '|
|00000d70| 74 73 74 2d 64 69 73 70 | 6c 61 79 2d 72 65 64 72 |tst-disp|lay-redr|
|00000d80| 61 77 29 0a 58 20 20 20 | 20 20 20 28 64 65 66 69 |aw).X | (defi|
|00000d90| 6e 65 2d 6b 65 79 20 74 | 73 74 2d 64 69 73 70 6c |ne-key t|st-displ|
|00000da0| 61 79 2d 6d 6f 64 65 2d | 6d 61 70 20 22 5c 43 2d |ay-mode-|map "\C-|
|00000db0| 63 6e 22 20 20 20 27 74 | 73 74 2d 64 69 73 70 6c |cn" 't|st-displ|
|00000dc0| 61 79 2d 6e 65 78 74 29 | 0a 58 20 20 20 20 20 20 |ay-next)|.X |
|00000dd0| 28 64 65 66 69 6e 65 2d | 6b 65 79 20 74 73 74 2d |(define-|key tst-|
|00000de0| 64 69 73 70 6c 61 79 2d | 6d 6f 64 65 2d 6d 61 70 |display-|mode-map|
|00000df0| 20 22 5c 43 2d 63 70 22 | 20 20 20 27 74 73 74 2d | "\C-cp"| 'tst-|
|00000e00| 64 69 73 70 6c 61 79 2d | 70 72 65 76 69 6f 75 73 |display-|previous|
|00000e10| 29 0a 58 20 20 20 20 20 | 20 28 64 65 66 69 6e 65 |).X | (define|
|00000e20| 2d 6b 65 79 20 74 73 74 | 2d 64 69 73 70 6c 61 79 |-key tst|-display|
|00000e30| 2d 6d 6f 64 65 2d 6d 61 | 70 20 22 5c 43 2d 63 71 |-mode-ma|p "\C-cq|
|00000e40| 22 20 20 20 27 74 73 74 | 2d 64 69 73 70 6c 61 79 |" 'tst|-display|
|00000e50| 2d 6d 6f 64 65 2d 65 78 | 69 74 29 0a 58 20 20 20 |-mode-ex|it).X |
|00000e60| 20 20 20 28 64 65 66 69 | 6e 65 2d 6b 65 79 20 74 | (defi|ne-key t|
|00000e70| 73 74 2d 64 69 73 70 6c | 61 79 2d 6d 6f 64 65 2d |st-displ|ay-mode-|
|00000e80| 6d 61 70 20 22 5c 43 2d | 63 7a 22 20 20 20 27 74 |map "\C-|cz" 't|
|00000e90| 73 74 2d 64 69 73 70 6c | 61 79 2d 7a 65 72 6f 29 |st-displ|ay-zero)|
|00000ea0| 0a 58 20 20 20 20 20 20 | 29 0a 58 20 20 20 20 29 |.X |).X )|
|00000eb0| 0a 58 20 20 0a 58 28 64 | 65 66 76 61 72 20 74 73 |.X .X(d|efvar ts|
|00000ec0| 74 2d 64 69 73 70 6c 61 | 79 2d 77 69 6e 64 6f 77 |t-displa|y-window|
|00000ed0| 2d 61 6c 69 73 74 20 6e | 69 6c 0a 58 20 20 22 41 |-alist n|il.X "A|
|00000ee0| 6e 20 61 6c 69 73 74 20 | 6f 66 20 61 74 74 72 69 |n alist |of attri|
|00000ef0| 62 75 74 65 20 6e 61 6d | 65 73 20 61 6e 64 20 77 |bute nam|es and w|
|00000f00| 69 6e 64 6f 77 20 6f 62 | 6a 65 63 74 73 22 29 0a |indow ob|jects").|
|00000f10| 58 0a 58 28 64 65 66 76 | 61 72 20 74 73 74 2d 62 |X.X(defv|ar tst-b|
|00000f20| 61 74 63 68 2d 72 65 73 | 75 6c 74 73 20 22 74 73 |atch-res|ults "ts|
|00000f30| 74 2d 62 61 74 63 68 2d | 72 65 73 75 6c 74 73 22 |t-batch-|results"|
|00000f40| 0a 58 20 20 22 2a 20 61 | 20 6b 6c 75 67 65 22 29 |.X "* a| kluge")|
|00000f50| 0a 58 0a 58 28 64 65 66 | 76 61 72 20 74 73 74 2d |.X.X(def|var tst-|
|00000f60| 64 69 73 70 6c 61 79 2d | 73 61 76 65 64 2d 76 61 |display-|saved-va|
|00000f70| 72 69 61 62 6c 65 73 20 | 6e 69 6c 0a 58 20 20 22 |riables |nil.X "|
|00000f80| 54 68 65 20 70 72 6f 70 | 65 72 74 79 20 6c 69 73 |The prop|erty lis|
|00000f90| 74 20 6f 66 20 74 68 69 | 73 20 76 61 72 69 61 62 |t of thi|s variab|
|00000fa0| 6c 65 20 63 6f 6e 74 61 | 69 6e 73 20 76 61 6c 75 |le conta|ins valu|
|00000fb0| 65 73 20 6f 66 20 61 6c | 6c 20 76 61 72 69 61 62 |es of al|l variab|
|00000fc0| 6c 65 73 0a 58 20 20 20 | 73 61 76 65 64 20 6f 6e |les.X |saved on|
|00000fd0| 20 65 6e 74 72 79 20 74 | 6f 20 74 73 74 2d 64 69 | entry t|o tst-di|
|00000fe0| 73 70 6c 61 79 2d 6d 6f | 64 65 2e 22 29 0a 58 20 |splay-mo|de.").X |
|00000ff0| 20 0a 58 0a 58 0c 0a 58 | 3b 3b 3b 20 2d 2d 2d 2d | .X.X..X|;;; ----|
|00001000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001040| 2d 2d 0a 58 3b 3b 3b 20 | 50 75 62 6c 69 63 20 46 |--.X;;; |Public F|
|00001050| 75 6e 63 74 69 6f 6e 73 | 2d 2d 0a 58 20 20 0a 58 |unctions|--.X .X|
|00001060| 28 64 65 66 75 6e 20 74 | 73 74 2d 64 69 73 70 6c |(defun t|st-displ|
|00001070| 61 79 2d 62 61 74 63 68 | 20 28 26 6f 70 74 69 6f |ay-batch| (&optio|
|00001080| 6e 61 6c 20 6c 69 73 70 | 2d 62 75 66 66 65 72 29 |nal lisp|-buffer)|
|00001090| 0a 58 20 20 22 20 20 20 | 42 61 74 63 68 20 6d 6f |.X " |Batch mo|
|000010a0| 64 65 20 65 78 65 63 75 | 74 69 6f 6e 20 6f 66 20 |de execu|tion of |
|000010b0| 74 68 65 20 61 6e 6e 6f | 74 61 74 69 6f 6e 20 64 |the anno|tation d|
|000010c0| 69 73 70 6c 61 79 20 70 | 61 63 6b 61 67 65 2e 20 |isplay p|ackage. |
|000010d0| 20 57 72 69 74 65 73 20 | 74 68 65 0a 58 20 20 20 | Writes |the.X |
|000010e0| 73 75 6d 6d 61 72 79 20 | 72 65 70 6f 72 74 73 20 |summary |reports |
|000010f0| 27 7a 65 72 6f 27 20 61 | 6e 64 20 27 63 6f 6e 73 |'zero' a|nd 'cons|
|00001100| 74 61 6e 74 27 20 67 65 | 6e 65 72 61 74 65 64 20 |tant' ge|nerated |
|00001110| 62 79 20 74 68 65 20 74 | 73 74 2d 61 6e 61 6c 79 |by the t|st-analy|
|00001120| 7a 65 0a 58 20 20 20 70 | 61 63 6b 61 67 65 20 69 |ze.X p|ackage i|
|00001130| 6e 74 6f 20 61 20 27 63 | 6f 6d 70 69 6c 61 74 69 |nto a 'c|ompilati|
|00001140| 6f 6e 27 20 73 74 79 6c | 65 20 62 75 66 66 65 72 |on' styl|e buffer|
|00001150| 20 6e 61 6d 65 64 20 27 | 2a 63 6f 6d 70 69 6c 61 | named '|*compila|
|00001160| 74 69 6f 6e 2a 27 2e 20 | 20 49 66 0a 58 20 20 20 |tion*'. | If.X |
|00001170| 63 61 6c 6c 65 64 20 69 | 6e 74 65 72 61 63 74 69 |called i|nteracti|
|00001180| 76 65 6c 79 20 74 68 69 | 73 20 69 73 20 61 76 61 |vely thi|s is ava|
|00001190| 69 6c 61 62 6c 65 20 66 | 6f 72 20 76 69 65 77 69 |ilable f|or viewi|
|000011a0| 6e 67 20 77 69 74 68 20 | 74 68 65 20 27 5e 58 60 |ng with |the '^X`|
|000011b0| 27 20 6b 65 79 2c 0a 58 | 20 20 20 6f 74 68 65 72 |' key,.X| other|
|000011c0| 77 69 73 65 20 69 74 20 | 69 73 20 73 61 76 65 64 |wise it |is saved|
|000011d0| 20 74 6f 20 74 68 65 20 | 66 69 6c 65 20 6e 61 6d | to the |file nam|
|000011e0| 65 64 20 69 6e 20 74 73 | 74 2d 62 61 74 63 68 2d |ed in ts|t-batch-|
|000011f0| 72 65 73 75 6c 74 73 2e | 20 20 49 66 0a 58 20 20 |results.| If.X |
|00001200| 20 4c 49 53 50 2d 42 55 | 46 46 45 52 20 69 73 20 | LISP-BU|FFER is |
|00001210| 6e 6f 74 20 73 70 65 63 | 69 66 69 65 64 2c 20 63 |not spec|ified, c|
|00001220| 75 72 72 65 6e 74 2d 62 | 75 66 66 65 72 20 69 73 |urrent-b|uffer is|
|00001230| 20 75 73 65 64 20 69 6e | 73 74 65 61 64 20 61 73 | used in|stead as|
|00001240| 20 74 68 65 0a 58 20 20 | 20 6c 61 62 65 6c 20 6f | the.X | label o|
|00001250| 6e 20 65 61 63 68 20 6c | 69 6e 65 20 6f 66 20 74 |n each l|ine of t|
|00001260| 68 65 20 72 65 70 6f 72 | 74 2e 22 0a 58 20 20 28 |he repor|t.".X (|
|00001270| 69 6e 74 65 72 61 63 74 | 69 76 65 29 0a 58 09 09 |interact|ive).X..|
|00001280| 09 09 09 3b 20 62 6f 64 | 79 0a 58 20 20 28 6c 65 |...; bod|y.X (le|
|00001290| 74 20 28 28 6c 69 73 70 | 2d 62 75 66 66 65 72 20 |t ((lisp|-buffer |
|000012a0| 28 6f 72 20 6c 69 73 70 | 2d 62 75 66 66 65 72 20 |(or lisp|-buffer |
|000012b0| 28 63 75 72 72 65 6e 74 | 2d 62 75 66 66 65 72 29 |(current|-buffer)|
|000012c0| 29 29 0a 58 09 28 73 61 | 76 65 2d 77 69 6e 64 6f |)).X.(sa|ve-windo|
|000012d0| 77 20 28 73 65 6c 65 63 | 74 65 64 2d 77 69 6e 64 |w (selec|ted-wind|
|000012e0| 6f 77 29 29 29 0a 58 20 | 20 20 20 28 70 6f 70 2d |ow))).X | (pop-|
|000012f0| 74 6f 2d 62 75 66 66 65 | 72 20 22 2a 63 6f 6d 70 |to-buffe|r "*comp|
|00001300| 69 6c 61 74 69 6f 6e 2a | 22 29 0a 58 20 20 20 20 |ilation*|").X |
|00001310| 28 65 72 61 73 65 2d 62 | 75 66 66 65 72 29 0a 58 |(erase-b|uffer).X|
|00001320| 20 20 20 20 28 69 6e 73 | 65 72 74 20 22 23 20 47 | (ins|ert "# G|
|00001330| 6e 75 54 65 73 74 20 61 | 6e 61 6c 79 73 69 73 20 |nuTest a|nalysis |
|00001340| 6f 66 20 22 20 28 62 75 | 66 66 65 72 2d 6e 61 6d |of " (bu|ffer-nam|
|00001350| 65 20 6c 69 73 70 2d 62 | 75 66 66 65 72 29 20 22 |e lisp-b|uffer) "|
|00001360| 5c 6e 22 0a 58 09 20 20 | 20 20 22 23 20 20 20 28 |\n".X. | "# (|
|00001370| 6c 69 6e 65 73 20 77 68 | 69 63 68 20 77 65 72 65 |lines wh|ich were|
|00001380| 20 6e 65 76 65 72 20 65 | 76 61 6c 75 61 74 65 64 | never e|valuated|
|00001390| 20 64 75 72 69 6e 67 20 | 74 65 73 74 73 20 6f 72 | during |tests or|
|000013a0| 20 72 65 74 75 72 6e 65 | 64 5c 6e 22 0a 58 09 20 | returne|d\n".X. |
|000013b0| 20 20 20 22 23 20 20 20 | 20 74 68 65 20 73 61 6d | "# | the sam|
|000013c0| 65 20 76 61 6c 75 65 20 | 65 76 65 72 79 20 74 69 |e value |every ti|
|000013d0| 6d 65 20 74 68 65 79 20 | 77 65 72 65 20 65 76 61 |me they |were eva|
|000013e0| 6c 75 61 74 65 64 2e 29 | 5c 6e 22 29 0a 58 20 20 |luated.)|\n").X |
|000013f0| 20 20 28 6d 61 70 63 61 | 72 20 27 28 6c 61 6d 62 | (mapca|r '(lamb|
|00001400| 64 61 20 28 6c 69 6e 65 | 29 0a 58 09 20 20 20 20 |da (line|).X. |
|00001410| 20 20 20 28 69 6e 73 65 | 72 74 20 28 74 73 74 2d | (inse|rt (tst-|
|00001420| 64 69 73 70 6c 61 79 2d | 62 61 74 63 68 2d 73 74 |display-|batch-st|
|00001430| 72 69 6e 67 20 6c 69 73 | 70 2d 62 75 66 66 65 72 |ring lis|p-buffer|
|00001440| 0a 58 09 09 09 09 09 09 | 20 6c 69 6e 65 0a 58 09 |.X......| line.X.|
|00001450| 09 09 09 09 09 20 27 7a | 65 72 6f 0a 58 09 09 09 |..... 'z|ero.X...|
|00001460| 09 09 09 20 27 63 6f 6e | 73 74 61 6e 74 29 29 29 |... 'con|stant)))|
|00001470| 0a 58 09 20 20 20 20 28 | 74 73 74 2d 61 6e 6e 2d |.X. (|tst-ann-|
|00001480| 67 65 74 2d 6c 69 6e 65 | 73 29 29 0a 58 20 20 20 |get-line|s)).X |
|00001490| 20 28 69 66 20 28 69 6e | 74 65 72 61 63 74 69 76 | (if (in|teractiv|
|000014a0| 65 2d 70 29 0a 58 09 28 | 70 72 6f 67 6e 0a 58 09 |e-p).X.(|progn.X.|
|000014b0| 20 20 28 67 6f 74 6f 2d | 63 68 61 72 20 28 70 6f | (goto-|char (po|
|000014c0| 69 6e 74 2d 6d 69 6e 29 | 29 09 3b 20 74 6f 70 20 |int-min)|).; top |
|000014d0| 6f 66 20 72 65 73 75 6c | 74 73 20 62 75 66 66 65 |of resul|ts buffe|
|000014e0| 72 0a 58 09 20 20 28 73 | 77 69 74 63 68 2d 74 6f |r.X. (s|witch-to|
|000014f0| 2d 62 75 66 66 65 72 20 | 22 2a 63 6f 6d 70 69 6c |-buffer |"*compil|
|00001500| 61 74 69 6f 6e 2a 22 29 | 0a 58 09 20 20 28 73 65 |ation*")|.X. (se|
|00001510| 6c 65 63 74 2d 77 69 6e | 64 6f 77 20 73 61 76 65 |lect-win|dow save|
|00001520| 2d 77 69 6e 64 6f 77 29 | 09 3b 20 67 6f 20 62 61 |-window)|.; go ba|
|00001530| 63 6b 20 74 6f 20 6f 72 | 69 67 69 6e 61 6c 20 77 |ck to or|iginal w|
|00001540| 69 6e 64 6f 77 0a 58 09 | 20 20 29 0a 58 20 20 20 |indow.X.| ).X |
|00001550| 20 20 20 3b 3b 20 65 6c | 73 65 0a 58 20 20 20 20 | ;; el|se.X |
|00001560| 20 20 28 77 72 69 74 65 | 2d 66 69 6c 65 20 74 73 | (write|-file ts|
|00001570| 74 2d 62 61 74 63 68 2d | 72 65 73 75 6c 74 73 29 |t-batch-|results)|
|00001580| 20 3b 20 77 72 69 74 65 | 20 62 75 66 66 65 72 20 | ; write| buffer |
|00001590| 74 6f 20 64 69 73 6b 0a | 58 20 20 20 20 20 20 29 |to disk.|X )|
|000015a0| 0a 58 20 20 20 20 29 0a | 58 20 20 29 0a 58 20 20 |.X ).|X ).X |
|000015b0| 0a 58 28 64 65 66 75 6e | 20 74 73 74 2d 64 69 73 |.X(defun| tst-dis|
|000015c0| 70 6c 61 79 2d 6d 6f 64 | 65 20 28 29 0a 58 20 20 |play-mod|e ().X |
|000015d0| 22 2a 20 20 4d 61 6a 6f | 72 20 6d 6f 64 65 20 66 |"* Majo|r mode f|
|000015e0| 6f 72 20 64 69 73 70 6c | 61 79 69 6e 67 20 47 6e |or displ|aying Gn|
|000015f0| 75 54 65 73 74 20 61 6e | 6e 6f 74 61 74 69 6f 6e |uTest an|notation|
|00001600| 20 77 69 74 68 20 61 73 | 73 6f 63 69 61 74 65 64 | with as|sociated|
|00001610| 0a 58 20 20 20 65 6d 61 | 63 73 2d 6c 69 73 70 20 |.X ema|cs-lisp |
|00001620| 63 6f 64 65 20 62 75 66 | 66 65 72 2e 20 20 50 72 |code buf|fer. Pr|
|00001630| 65 63 6f 6e 64 69 74 69 | 6f 6e 3a 20 20 74 73 74 |econditi|on: tst|
|00001640| 2d 69 6e 73 74 72 75 6d | 65 6e 74 20 61 6e 64 20 |-instrum|ent and |
|00001650| 74 73 74 2d 61 6e 61 6c | 79 7a 65 0a 58 20 20 20 |tst-anal|yze.X |
|00001660| 68 61 76 65 20 61 6c 72 | 65 61 64 79 20 62 65 65 |have alr|eady bee|
|00001670| 6e 20 65 76 61 6c 75 61 | 74 65 64 20 66 6f 72 20 |n evalua|ted for |
|00001680| 74 68 69 73 20 62 75 66 | 66 65 72 2e 0a 58 20 20 |this buf|fer..X |
|00001690| 20 43 2d 6e 20 20 20 20 | 20 74 73 74 2d 64 69 73 | C-n | tst-dis|
|000016a0| 70 6c 61 79 2d 6e 65 78 | 74 2d 6c 69 6e 65 20 20 |play-nex|t-line |
|000016b0| 20 20 20 20 20 20 0a 58 | 20 20 20 43 2d 70 20 20 | .X| C-p |
|000016c0| 20 20 20 74 73 74 2d 64 | 69 73 70 6c 61 79 2d 70 | tst-d|isplay-p|
|000016d0| 72 65 76 69 6f 75 73 2d | 6c 69 6e 65 20 20 20 20 |revious-|line |
|000016e0| 0a 58 20 20 20 43 2d 76 | 20 20 20 20 20 74 73 74 |.X C-v| tst|
|000016f0| 2d 64 69 73 70 6c 61 79 | 2d 73 63 72 6f 6c 6c 2d |-display|-scroll-|
|00001700| 75 70 20 20 20 20 20 20 | 20 20 0a 58 20 20 20 4d |up | .X M|
|00001710| 2d 76 20 20 20 20 20 74 | 73 74 2d 64 69 73 70 6c |-v t|st-displ|
|00001720| 61 79 2d 73 63 72 6f 6c | 6c 2d 64 6f 77 6e 20 20 |ay-scrol|l-down |
|00001730| 20 20 20 20 0a 58 20 20 | 20 43 2d 63 20 43 2d 68 | .X | C-c C-h|
|00001740| 20 74 73 74 2d 64 69 73 | 70 6c 61 79 2d 6d 6f 64 | tst-dis|play-mod|
|00001750| 65 2d 68 65 6c 70 0a 58 | 20 20 20 43 2d 63 20 63 |e-help.X| C-c c|
|00001760| 20 20 20 74 73 74 2d 64 | 69 73 70 6c 61 79 2d 63 | tst-d|isplay-c|
|00001770| 6f 6e 73 74 61 6e 74 0a | 58 20 20 20 43 2d 63 20 |onstant.|X C-c |
|00001780| 6c 20 20 20 74 73 74 2d | 64 69 73 70 6c 61 79 2d |l tst-|display-|
|00001790| 72 65 64 72 61 77 20 20 | 20 20 20 20 20 20 20 20 |redraw | |
|000017a0| 20 0a 58 20 20 20 43 2d | 63 20 6e 20 20 20 74 73 | .X C-|c n ts|
|000017b0| 74 2d 64 69 73 70 6c 61 | 79 2d 6e 65 78 74 0a 58 |t-displa|y-next.X|
|000017c0| 20 20 20 43 2d 63 20 70 | 20 20 20 74 73 74 2d 64 | C-c p| tst-d|
|000017d0| 69 73 70 6c 61 79 2d 70 | 72 65 76 69 6f 75 73 0a |isplay-p|revious.|
|000017e0| 58 20 20 20 43 2d 63 20 | 71 20 20 20 74 73 74 2d |X C-c |q tst-|
|000017f0| 64 69 73 70 6c 61 79 2d | 6d 6f 64 65 2d 65 78 69 |display-|mode-exi|
|00001800| 74 0a 58 20 20 20 43 2d | 63 20 7a 20 20 20 74 73 |t.X C-|c z ts|
|00001810| 74 2d 64 69 73 70 6c 61 | 79 2d 7a 65 72 6f 0a 58 |t-displa|y-zero.X|
|00001820| 20 20 22 0a 58 20 20 28 | 69 6e 74 65 72 61 63 74 | ".X (|interact|
|00001830| 69 76 65 29 0a 58 09 09 | 09 09 09 3b 20 62 6f 64 |ive).X..|...; bod|
|00001840| 79 0a 58 20 20 28 69 66 | 20 28 65 71 75 61 6c 20 |y.X (if| (equal |
|00001850| 6d 61 6a 6f 72 2d 6d 6f | 64 65 20 27 74 73 74 2d |major-mo|de 'tst-|
|00001860| 64 69 73 70 6c 61 79 2d | 6d 6f 64 65 29 0a 58 20 |display-|mode).X |
|00001870| 20 20 20 20 20 28 74 73 | 74 2d 64 69 73 70 6c 61 | (ts|t-displa|
|00001880| 79 2d 6d 6f 64 65 2d 65 | 78 69 74 29 0a 58 20 20 |y-mode-e|xit).X |
|00001890| 20 20 28 70 75 74 20 27 | 74 73 74 2d 64 69 73 70 | (put '|tst-disp|
|000018a0| 6c 61 79 2d 73 61 76 65 | 64 2d 76 61 72 69 61 62 |lay-save|d-variab|
|000018b0| 6c 65 73 20 27 6d 6f 64 | 65 2d 6e 61 6d 65 20 6d |les 'mod|e-name m|
|000018c0| 6f 64 65 2d 6e 61 6d 65 | 29 0a 58 20 20 20 20 28 |ode-name|).X (|
|000018d0| 70 75 74 20 27 74 73 74 | 2d 64 69 73 70 6c 61 79 |put 'tst|-display|
|000018e0| 2d 73 61 76 65 64 2d 76 | 61 72 69 61 62 6c 65 73 |-saved-v|ariables|
|000018f0| 20 27 6d 61 6a 6f 72 2d | 6d 6f 64 65 20 6d 61 6a | 'major-|mode maj|
|00001900| 6f 72 2d 6d 6f 64 65 29 | 0a 58 20 20 20 20 28 70 |or-mode)|.X (p|
|00001910| 75 74 20 27 74 73 74 2d | 64 69 73 70 6c 61 79 2d |ut 'tst-|display-|
|00001920| 73 61 76 65 64 2d 76 61 | 72 69 61 62 6c 65 73 20 |saved-va|riables |
|00001930| 27 6c 6f 63 61 6c 2d 6d | 61 70 20 28 63 75 72 72 |'local-m|ap (curr|
|00001940| 65 6e 74 2d 6c 6f 63 61 | 6c 2d 6d 61 70 29 29 0a |ent-loca|l-map)).|
|00001950| 58 20 20 20 20 28 70 75 | 74 20 27 74 73 74 2d 64 |X (pu|t 'tst-d|
|00001960| 69 73 70 6c 61 79 2d 73 | 61 76 65 64 2d 76 61 72 |isplay-s|aved-var|
|00001970| 69 61 62 6c 65 73 20 27 | 62 75 66 66 65 72 2d 72 |iables '|buffer-r|
|00001980| 65 61 64 2d 6f 6e 6c 79 | 20 62 75 66 66 65 72 2d |ead-only| buffer-|
|00001990| 72 65 61 64 2d 6f 6e 6c | 79 29 0a 58 20 20 20 20 |read-onl|y).X |
|000019a0| 28 70 75 74 20 27 74 73 | 74 2d 64 69 73 70 6c 61 |(put 'ts|t-displa|
|000019b0| 79 2d 73 61 76 65 64 2d | 76 61 72 69 61 62 6c 65 |y-saved-|variable|
|000019c0| 73 20 27 74 72 75 6e 63 | 61 74 65 2d 6c 69 6e 65 |s 'trunc|ate-line|
|000019d0| 73 20 74 72 75 6e 63 61 | 74 65 2d 6c 69 6e 65 73 |s trunca|te-lines|
|000019e0| 29 0a 58 20 20 20 20 28 | 73 65 74 71 20 6d 6f 64 |).X (|setq mod|
|000019f0| 65 2d 6e 61 6d 65 20 22 | 54 65 73 74 20 44 69 73 |e-name "|Test Dis|
|00001a00| 70 6c 61 79 22 29 0a 58 | 20 20 20 20 28 73 65 74 |play").X| (set|
|00001a10| 71 20 6d 61 6a 6f 72 2d | 6d 6f 64 65 20 27 74 73 |q major-|mode 'ts|
|00001a20| 74 2d 64 69 73 70 6c 61 | 79 2d 6d 6f 64 65 29 0a |t-displa|y-mode).|
|00001a30| 58 20 20 20 20 28 75 73 | 65 2d 6c 6f 63 61 6c 2d |X (us|e-local-|
|00001a40| 6d 61 70 20 74 73 74 2d | 64 69 73 70 6c 61 79 2d |map tst-|display-|
|00001a50| 6d 6f 64 65 2d 6d 61 70 | 29 20 3b 20 73 65 74 75 |mode-map|) ; setu|
|00001a60| 70 20 6b 65 79 6d 61 70 | 0a 58 20 20 20 20 28 73 |p keymap|.X (s|
|00001a70| 65 74 2d 62 75 66 66 65 | 72 2d 6d 6f 64 69 66 69 |et-buffe|r-modifi|
|00001a80| 65 64 2d 70 20 28 62 75 | 66 66 65 72 2d 6d 6f 64 |ed-p (bu|ffer-mod|
|00001a90| 69 66 69 65 64 2d 70 29 | 29 09 3b 20 49 64 69 6f |ified-p)|).; Idio|
|00001aa0| 6d 20 74 6f 20 72 65 73 | 65 74 20 6d 6f 64 65 6c |m to res|et model|
|00001ab0| 69 6e 65 2e 0a 58 20 20 | 20 20 28 73 65 74 71 20 |ine..X | (setq |
|00001ac0| 74 72 75 6e 63 61 74 65 | 2d 6c 69 6e 65 73 20 74 |truncate|-lines t|
|00001ad0| 29 0a 58 20 20 20 20 28 | 73 65 74 71 20 62 75 66 |).X (|setq buf|
|00001ae0| 66 65 72 2d 72 65 61 64 | 2d 6f 6e 6c 79 20 74 29 |fer-read|-only t)|
|00001af0| 0a 58 20 20 20 20 28 73 | 65 74 71 20 74 73 74 2d |.X (s|etq tst-|
|00001b00| 64 69 73 70 6c 61 79 2d | 6c 69 73 70 2d 62 75 66 |display-|lisp-buf|
|00001b10| 66 65 72 20 28 63 75 72 | 72 65 6e 74 2d 62 75 66 |fer (cur|rent-buf|
|00001b20| 66 65 72 29 29 0a 58 20 | 20 20 20 28 73 65 74 71 |fer)).X | (setq|
|00001b30| 20 74 73 74 2d 64 69 73 | 70 6c 61 79 2d 6c 69 73 | tst-dis|play-lis|
|00001b40| 70 2d 77 69 6e 64 6f 77 | 20 28 73 65 6c 65 63 74 |p-window| (select|
|00001b50| 65 64 2d 77 69 6e 64 6f | 77 29 29 0a 58 20 20 20 |ed-windo|w)).X |
|00001b60| 20 29 0a 58 20 20 29 0a | 58 0a 58 28 64 65 66 75 | ).X ).|X.X(defu|
|00001b70| 6e 20 74 73 74 2d 64 69 | 73 70 6c 61 79 2d 6d 6f |n tst-di|splay-mo|
|00001b80| 64 65 2d 68 65 6c 70 20 | 28 29 0a 58 20 20 22 48 |de-help |().X "H|
|00001b90| 65 6c 70 20 73 63 72 65 | 65 6e 20 66 6f 72 20 54 |elp scre|en for T|
|00001ba0| 65 73 74 20 44 69 73 70 | 6c 61 79 20 4d 6f 64 65 |est Disp|lay Mode|
|00001bb0| 2e 22 0a 58 20 20 28 69 | 6e 74 65 72 61 63 74 69 |.".X (i|nteracti|
|00001bc0| 76 65 29 0a 58 20 20 28 | 77 69 74 68 2d 6f 75 74 |ve).X (|with-out|
|00001bd0| 70 75 74 2d 74 6f 2d 74 | 65 6d 70 2d 62 75 66 66 |put-to-t|emp-buff|
|00001be0| 65 72 20 22 2a 48 65 6c | 70 2a 22 0a 58 20 20 20 |er "*Hel|p*".X |
|00001bf0| 20 28 70 72 69 6e 63 20 | 28 63 61 72 20 28 63 64 | (princ |(car (cd|
|00001c00| 72 20 28 63 64 72 20 28 | 73 79 6d 62 6f 6c 2d 66 |r (cdr (|symbol-f|
|00001c10| 75 6e 63 74 69 6f 6e 20 | 27 74 73 74 2d 64 69 73 |unction |'tst-dis|
|00001c20| 70 6c 61 79 2d 6d 6f 64 | 65 29 29 29 29 29 0a 58 |play-mod|e))))).X|
|00001c30| 20 20 20 20 29 0a 58 20 | 20 29 0a 58 20 20 0a 58 | ).X | ).X .X|
|00001c40| 28 64 65 66 75 6e 20 74 | 73 74 2d 64 69 73 70 6c |(defun t|st-displ|
|00001c50| 61 79 2d 6d 6f 64 65 2d | 65 78 69 74 20 28 29 0a |ay-mode-|exit ().|
|00001c60| 58 20 20 22 65 78 69 74 | 20 54 65 73 74 20 44 69 |X "exit| Test Di|
|00001c70| 73 70 6c 61 79 20 4d 6f | 64 65 22 0a 58 20 20 28 |splay Mo|de".X (|
|00001c80| 69 6e 74 65 72 61 63 74 | 69 76 65 29 0a 58 09 09 |interact|ive).X..|
|00001c90| 09 09 09 3b 20 63 6c 6f | 73 65 20 61 6e 6e 6f 74 |...; clo|se annot|
|00001ca0| 61 74 69 6f 6e 20 77 69 | 6e 64 6f 77 73 0a 58 20 |ation wi|ndows.X |
|00001cb0| 20 28 6c 65 74 20 28 28 | 62 75 66 6c 69 73 74 20 | (let ((|buflist |
|00001cc0| 28 6d 61 70 63 61 72 20 | 27 63 64 72 20 74 73 74 |(mapcar |'cdr tst|
|00001cd0| 2d 64 69 73 70 6c 61 79 | 2d 62 75 66 66 65 72 2d |-display|-buffer-|
|00001ce0| 61 6c 69 73 74 29 29 29 | 0a 58 20 20 20 20 28 6d |alist)))|.X (m|
|00001cf0| 61 70 63 61 72 20 27 28 | 6c 61 6d 62 64 61 20 28 |apcar '(|lambda (|
|00001d00| 62 75 66 29 0a 58 09 20 | 20 20 20 20 20 20 28 61 |buf).X. | (a|
|00001d10| 6e 64 20 28 67 65 74 2d | 62 75 66 66 65 72 2d 77 |nd (get-|buffer-w|
|00001d20| 69 6e 64 6f 77 20 62 75 | 66 29 0a 58 09 09 20 20 |indow bu|f).X.. |
|00001d30| 20 20 28 64 65 6c 65 74 | 65 2d 77 69 6e 64 6f 77 | (delet|e-window|
|00001d40| 20 28 67 65 74 2d 62 75 | 66 66 65 72 2d 77 69 6e | (get-bu|ffer-win|
|00001d50| 64 6f 77 20 62 75 66 29 | 29 29 29 0a 58 09 20 20 |dow buf)|))).X. |
|00001d60| 20 20 62 75 66 6c 69 73 | 74 29 0a 58 20 20 20 20 | buflis|t).X |
|00001d70| 29 09 09 09 09 09 3b 20 | 6c 65 74 0a 58 09 09 09 |).....; |let.X...|
|00001d80| 09 09 3b 20 63 6c 65 61 | 6e 20 75 70 20 67 6c 6f |..; clea|n up glo|
|00001d90| 62 61 6c 20 76 61 72 69 | 61 62 6c 65 73 0a 58 20 |bal vari|ables.X |
|00001da0| 20 28 73 65 74 71 20 74 | 73 74 2d 64 69 73 70 6c | (setq t|st-displ|
|00001db0| 61 79 2d 62 75 66 66 65 | 72 2d 61 6c 69 73 74 20 |ay-buffe|r-alist |
|00001dc0| 6e 69 6c 29 0a 58 09 09 | 09 09 09 3b 20 72 65 73 |nil).X..|...; res|
|00001dd0| 74 6f 72 65 20 6f 6c 64 | 20 73 74 61 74 65 0a 58 |tore old| state.X|
|00001de0| 20 20 28 73 65 74 71 20 | 6d 6f 64 65 2d 6e 61 6d | (setq |mode-nam|
|00001df0| 65 20 28 67 65 74 20 27 | 74 73 74 2d 64 69 73 70 |e (get '|tst-disp|
|00001e00| 6c 61 79 2d 73 61 76 65 | 64 2d 76 61 72 69 61 62 |lay-save|d-variab|
|00001e10| 6c 65 73 20 27 6d 6f 64 | 65 2d 6e 61 6d 65 29 29 |les 'mod|e-name))|
|00001e20| 0a 58 20 20 28 73 65 74 | 71 20 6d 61 6a 6f 72 2d |.X (set|q major-|
|00001e30| 6d 6f 64 65 20 28 67 65 | 74 20 27 74 73 74 2d 64 |mode (ge|t 'tst-d|
|00001e40| 69 73 70 6c 61 79 2d 73 | 61 76 65 64 2d 76 61 72 |isplay-s|aved-var|
|00001e50| 69 61 62 6c 65 73 20 27 | 6d 61 6a 6f 72 2d 6d 6f |iables '|major-mo|
|00001e60| 64 65 29 29 0a 58 20 20 | 28 75 73 65 2d 6c 6f 63 |de)).X |(use-loc|
|00001e70| 61 6c 2d 6d 61 70 20 28 | 67 65 74 20 27 74 73 74 |al-map (|get 'tst|
|00001e80| 2d 64 69 73 70 6c 61 79 | 2d 73 61 76 65 64 2d 76 |-display|-saved-v|
|00001e90| 61 72 69 61 62 6c 65 73 | 20 27 6c 6f 63 61 6c 2d |ariables| 'local-|
|00001ea0| 6d 61 70 29 29 0a 58 20 | 20 28 73 65 74 2d 62 75 |map)).X | (set-bu|
|00001eb0| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 20 |ffer-mod|ified-p |
|00001ec0| 28 62 75 66 66 65 72 2d | 6d 6f 64 69 66 69 65 64 |(buffer-|modified|
|00001ed0| 2d 70 29 29 09 3b 20 49 | 64 69 6f 6d 20 74 6f 20 |-p)).; I|diom to |
|00001ee0| 72 65 73 65 74 20 6d 6f | 64 65 6c 69 6e 65 2e 0a |reset mo|deline..|
|00001ef0| 58 20 20 28 73 65 74 71 | 20 74 72 75 6e 63 61 74 |X (setq| truncat|
|00001f00| 65 2d 6c 69 6e 65 73 20 | 28 67 65 74 20 27 74 73 |e-lines |(get 'ts|
|00001f10| 74 2d 64 69 73 70 6c 61 | 79 2d 73 61 76 65 64 2d |t-displa|y-saved-|
|00001f20| 76 61 72 69 61 62 6c 65 | 73 20 27 74 72 75 6e 63 |variable|s 'trunc|
|00001f30| 61 74 65 2d 6c 69 6e 65 | 73 29 29 0a 58 20 20 28 |ate-line|s)).X (|
|00001f40| 73 65 74 71 20 62 75 66 | 66 65 72 2d 72 65 61 64 |setq buf|fer-read|
|00001f50| 2d 6f 6e 6c 79 20 28 67 | 65 74 20 27 74 73 74 2d |-only (g|et 'tst-|
|00001f60| 64 69 73 70 6c 61 79 2d | 73 61 76 65 64 2d 76 61 |display-|saved-va|
|00001f70| 72 69 61 62 6c 65 73 20 | 27 62 75 66 66 65 72 2d |riables |'buffer-|
|00001f80| 72 65 61 64 2d 6f 6e 6c | 79 29 29 0a 58 20 20 29 |read-onl|y)).X )|
|00001f90| 0a 58 20 20 0a 58 28 64 | 65 66 75 6e 20 74 73 74 |.X .X(d|efun tst|
|00001fa0| 2d 64 69 73 70 6c 61 79 | 2d 63 6f 6e 73 74 61 6e |-display|-constan|
|00001fb0| 74 20 28 29 0a 58 20 20 | 22 44 69 73 70 6c 61 79 |t ().X |"Display|
|00001fc0| 20 76 61 6c 75 65 73 20 | 77 68 69 63 68 20 6e 65 | values |which ne|
|00001fd0| 76 65 72 20 63 68 61 6e | 67 65 64 20 64 75 72 69 |ver chan|ged duri|
|00001fe0| 6e 67 20 74 65 73 74 20 | 72 75 6e 73 2e 22 0a 58 |ng test |runs.".X|
|00001ff0| 20 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 29 0a | (inter|active).|
|00002000| 58 09 09 09 09 09 3b 62 | 6f 64 79 0a 58 20 20 28 |X.....;b|ody.X (|
|00002010| 74 73 74 2d 64 69 73 70 | 6c 61 79 2d 6f 70 65 6e |tst-disp|lay-open|
|00002020| 2d 62 75 66 66 65 72 20 | 27 63 6f 6e 73 74 61 6e |-buffer |'constan|
|00002030| 74 29 0a 58 20 20 28 74 | 73 74 2d 64 69 73 70 6c |t).X (t|st-displ|
|00002040| 61 79 2d 6f 70 65 6e 2d | 77 69 6e 64 6f 77 20 27 |ay-open-|window '|
|00002050| 63 6f 6e 73 74 61 6e 74 | 29 0a 58 20 20 29 0a 58 |constant|).X ).X|
|00002060| 20 20 0a 58 28 64 65 66 | 75 6e 20 74 73 74 2d 64 | .X(def|un tst-d|
|00002070| 69 73 70 6c 61 79 2d 7a | 65 72 6f 20 28 29 0a 58 |isplay-z|ero ().X|
|00002080| 20 20 22 44 69 73 70 6c | 61 79 20 76 61 6c 75 65 | "Displ|ay value|
|00002090| 73 20 77 68 69 63 68 20 | 77 65 72 65 20 6e 65 76 |s which |were nev|
|000020a0| 65 72 20 65 76 61 6c 75 | 61 74 65 64 20 64 75 72 |er evalu|ated dur|
|000020b0| 69 6e 67 20 74 65 73 74 | 20 72 75 6e 73 2e 22 0a |ing test| runs.".|
|000020c0| 58 20 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 29 |X (inte|ractive)|
|000020d0| 0a 58 09 09 09 09 09 3b | 62 6f 64 79 0a 58 20 20 |.X.....;|body.X |
|000020e0| 28 74 73 74 2d 64 69 73 | 70 6c 61 79 2d 6f 70 65 |(tst-dis|play-ope|
|000020f0| 6e 2d 62 75 66 66 65 72 | 20 27 7a 65 72 6f 29 0a |n-buffer| 'zero).|
|00002100| 58 20 20 28 74 73 74 2d | 64 69 73 70 6c 61 79 2d |X (tst-|display-|
|00002110| 6f 70 65 6e 2d 77 69 6e | 64 6f 77 20 27 7a 65 72 |open-win|dow 'zer|
|00002120| 6f 29 0a 58 20 20 29 0a | 58 20 20 0a 58 28 64 65 |o).X ).|X .X(de|
|00002130| 66 75 6e 20 74 73 74 2d | 64 69 73 70 6c 61 79 2d |fun tst-|display-|
|00002140| 6e 65 78 74 2d 6c 69 6e | 65 20 28 26 6f 70 74 69 |next-lin|e (&opti|
|00002150| 6f 6e 61 6c 20 6c 69 6e | 65 73 29 0a 58 20 20 22 |onal lin|es).X "|
|00002160| 4d 6f 76 65 20 70 6f 69 | 6e 74 20 64 6f 77 6e 20 |Move poi|nt down |
|00002170| 6f 6e 65 20 6c 69 6e 65 | 20 69 6e 20 6c 69 73 70 |one line| in lisp|
|00002180| 20 62 75 66 66 65 72 20 | 61 6e 64 20 61 6e 79 20 | buffer |and any |
|00002190| 61 6e 6e 6f 74 61 74 69 | 6f 6e 20 62 75 66 66 65 |annotati|on buffe|
|000021a0| 72 73 2e 22 0a 58 20 20 | 28 69 6e 74 65 72 61 63 |rs.".X |(interac|
|000021b0| 74 69 76 65 20 22 70 22 | 29 0a 58 20 20 28 6c 65 |tive "p"|).X (le|
|000021c0| 74 20 28 28 6e 6c 69 6e | 65 73 20 28 6f 72 20 6c |t ((nlin|es (or l|
|000021d0| 69 6e 65 73 20 31 29 29 | 0a 58 09 28 73 61 76 65 |ines 1))|.X.(save|
|000021e0| 77 69 6e 64 6f 77 20 28 | 73 65 6c 65 63 74 65 64 |window (|selected|
|000021f0| 2d 77 69 6e 64 6f 77 29 | 29 0a 58 09 28 62 75 66 |-window)|).X.(buf|
|00002200| 6c 69 73 74 20 28 6d 61 | 70 63 61 72 20 27 63 64 |list (ma|pcar 'cd|
|00002210| 72 20 74 73 74 2d 64 69 | 73 70 6c 61 79 2d 62 75 |r tst-di|splay-bu|
|00002220| 66 66 65 72 2d 61 6c 69 | 73 74 29 29 29 0a 58 20 |ffer-ali|st))).X |
|00002230| 20 20 20 28 6d 61 70 63 | 61 72 20 27 28 6c 61 6d | (mapc|ar '(lam|
|00002240| 62 64 61 20 28 62 75 66 | 29 0a 58 09 20 20 20 20 |bda (buf|).X. |
|00002250| 20 20 20 28 6c 65 74 20 | 28 28 77 69 6e 20 28 67 | (let |((win (g|
|00002260| 65 74 2d 62 75 66 66 65 | 72 2d 77 69 6e 64 6f 77 |et-buffe|r-window|
|00002270| 20 62 75 66 29 29 29 0a | 58 09 09 20 28 69 66 20 | buf))).|X.. (if |
|00002280| 77 69 6e 0a 58 09 09 20 | 20 20 20 20 28 70 72 6f |win.X.. | (pro|
|00002290| 67 6e 20 28 73 65 6c 65 | 63 74 2d 77 69 6e 64 6f |gn (sele|ct-windo|
|000022a0| 77 20 77 69 6e 29 0a 58 | 09 09 09 20 20 20 20 28 |w win).X|... (|
|000022b0| 6e 65 78 74 2d 6c 69 6e | 65 20 6e 6c 69 6e 65 73 |next-lin|e nlines|
|000022c0| 29 29 29 29 29 0a 58 09 | 20 20 20 20 28 63 6f 6e |))))).X.| (con|
|000022d0| 73 20 74 73 74 2d 64 69 | 73 70 6c 61 79 2d 6c 69 |s tst-di|splay-li|
|000022e0| 73 70 2d 62 75 66 66 65 | 72 20 62 75 66 6c 69 73 |sp-buffe|r buflis|
|000022f0| 74 29 0a 58 09 20 20 20 | 20 29 0a 58 20 20 20 20 |t).X. | ).X |
|00002300| 28 73 65 6c 65 63 74 2d | 77 69 6e 64 6f 77 20 73 |(select-|window s|
|00002310| 61 76 65 77 69 6e 64 6f | 77 29 0a 58 20 20 20 20 |avewindo|w).X |
|00002320| 29 0a 58 20 20 29 0a 58 | 0a 58 28 64 65 66 75 6e |).X ).X|.X(defun|
|00002330| 20 74 73 74 2d 64 69 73 | 70 6c 61 79 2d 70 72 65 | tst-dis|play-pre|
|00002340| 76 69 6f 75 73 2d 6c 69 | 6e 65 20 28 26 6f 70 74 |vious-li|ne (&opt|
|00002350| 69 6f 6e 61 6c 20 6c 69 | 6e 65 73 29 0a 58 20 20 |ional li|nes).X |
|00002360| 22 4d 6f 76 65 20 70 6f | 69 6e 74 20 75 70 20 4c |"Move po|int up L|
|00002370| 49 4e 45 53 20 6c 69 6e | 65 73 20 28 31 20 69 66 |INES lin|es (1 if|
|00002380| 20 6e 69 6c 29 20 69 6e | 20 6c 69 73 70 20 62 75 | nil) in| lisp bu|
|00002390| 66 66 65 72 20 61 6e 64 | 20 61 6e 79 20 61 6e 6e |ffer and| any ann|
|000023a0| 6f 74 61 74 69 6f 6e 0a | 58 20 20 20 62 75 66 66 |otation.|X buff|
|000023b0| 65 72 73 2e 22 0a 58 20 | 20 28 69 6e 74 65 72 61 |ers.".X | (intera|
|000023c0| 63 74 69 76 65 20 22 70 | 22 29 0a 58 20 20 28 6c |ctive "p|").X (l|
|000023d0| 65 74 20 28 28 6e 6c 69 | 6e 65 73 20 28 2d 20 28 |et ((nli|nes (- (|
|000023e0| 6f 72 20 6c 69 6e 65 73 | 20 31 29 29 29 29 0a 58 |or lines| 1)))).X|
|000023f0| 20 20 20 20 28 74 73 74 | 2d 64 69 73 70 6c 61 79 | (tst|-display|
|00002400| 2d 6e 65 78 74 2d 6c 69 | 6e 65 20 6e 6c 69 6e 65 |-next-li|ne nline|
|00002410| 73 29 0a 58 20 20 20 20 | 29 0a 58 20 20 29 0a 58 |s).X |).X ).X|
|00002420| 20 20 0a 58 28 64 65 66 | 75 6e 20 74 73 74 2d 64 | .X(def|un tst-d|
|00002430| 69 73 70 6c 61 79 2d 73 | 63 72 6f 6c 6c 2d 64 6f |isplay-s|croll-do|
|00002440| 77 6e 20 28 26 6f 70 74 | 69 6f 6e 61 6c 20 6c 69 |wn (&opt|ional li|
|00002450| 6e 65 73 29 0a 58 20 20 | 22 53 63 72 6f 6c 6c 20 |nes).X |"Scroll |
|00002460| 64 6f 77 6e 20 4c 49 4e | 45 53 20 6c 69 6e 65 73 |down LIN|ES lines|
|00002470| 20 69 6e 20 6c 69 73 70 | 20 62 75 66 66 65 72 20 | in lisp| buffer |
|00002480| 61 6e 64 20 61 6e 79 20 | 61 6e 6e 6f 74 61 74 69 |and any |annotati|
|00002490| 6f 6e 20 62 75 66 66 65 | 72 73 2e 22 0a 58 20 20 |on buffe|rs.".X |
|000024a0| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 50 22 |(interac|tive "P"|
|000024b0| 29 0a 58 20 20 28 6c 65 | 74 20 28 28 6e 6c 69 6e |).X (le|t ((nlin|
|000024c0| 65 73 20 28 61 6e 64 20 | 6c 69 6e 65 73 20 28 70 |es (and |lines (p|
|000024d0| 72 65 66 69 78 2d 6e 75 | 6d 65 72 69 63 2d 76 61 |refix-nu|meric-va|
|000024e0| 6c 75 65 20 6c 69 6e 65 | 73 29 29 29 0a 58 09 28 |lue line|s))).X.(|
|000024f0| 73 61 76 65 77 69 6e 64 | 6f 77 20 28 73 65 6c 65 |savewind|ow (sele|
|00002500| 63 74 65 64 2d 77 69 6e | 64 6f 77 29 29 0a 58 09 |cted-win|dow)).X.|
|00002510| 28 62 75 66 6c 69 73 74 | 20 28 6d 61 70 63 61 72 |(buflist| (mapcar|
|00002520| 20 27 63 64 72 20 74 73 | 74 2d 64 69 73 70 6c 61 | 'cdr ts|t-displa|
|00002530| 79 2d 62 75 66 66 65 72 | 2d 61 6c 69 73 74 29 29 |y-buffer|-alist))|
|00002540| 29 0a 58 20 20 20 20 28 | 6d 61 70 63 61 72 20 27 |).X (|mapcar '|
|00002550| 28 6c 61 6d 62 64 61 20 | 28 62 75 66 29 0a 58 09 |(lambda |(buf).X.|
|00002560| 20 20 20 20 20 20 20 28 | 6c 65 74 20 28 28 77 69 | (|let ((wi|
|00002570| 6e 20 28 67 65 74 2d 62 | 75 66 66 65 72 2d 77 69 |n (get-b|uffer-wi|
|00002580| 6e 64 6f 77 20 62 75 66 | 29 29 29 0a 58 09 09 20 |ndow buf|))).X.. |
|00002590| 28 69 66 20 77 69 6e 0a | 58 09 09 20 20 20 20 20 |(if win.|X.. |
|000025a0| 28 70 72 6f 67 6e 20 28 | 73 65 6c 65 63 74 2d 77 |(progn (|select-w|
|000025b0| 69 6e 64 6f 77 20 77 69 | 6e 29 0a 58 09 09 09 20 |indow wi|n).X... |
|000025c0| 20 20 20 28 73 63 72 6f | 6c 6c 2d 64 6f 77 6e 20 | (scro|ll-down |
|000025d0| 6e 6c 69 6e 65 73 29 29 | 29 29 29 0a 58 09 20 20 |nlines))|))).X. |
|000025e0| 20 20 28 63 6f 6e 73 20 | 74 73 74 2d 64 69 73 70 | (cons |tst-disp|
|000025f0| 6c 61 79 2d 6c 69 73 70 | 2d 62 75 66 66 65 72 20 |lay-lisp|-buffer |
|00002600| 62 75 66 6c 69 73 74 29 | 0a 58 09 20 20 20 20 29 |buflist)|.X. )|
|00002610| 0a 58 20 20 20 20 28 73 | 65 6c 65 63 74 2d 77 69 |.X (s|elect-wi|
|00002620| 6e 64 6f 77 20 73 61 76 | 65 77 69 6e 64 6f 77 29 |ndow sav|ewindow)|
|00002630| 0a 58 20 20 20 20 29 0a | 58 20 20 29 0a 58 0a 58 |.X ).|X ).X.X|
|00002640| 28 64 65 66 75 6e 20 74 | 73 74 2d 64 69 73 70 6c |(defun t|st-displ|
|00002650| 61 79 2d 73 63 72 6f 6c | 6c 2d 75 70 20 28 26 6f |ay-scrol|l-up (&o|
|00002660| 70 74 69 6f 6e 61 6c 20 | 6c 69 6e 65 73 29 0a 58 |ptional |lines).X|
|00002670| 20 20 22 53 63 72 6f 6c | 6c 20 75 70 20 4c 49 4e | "Scrol|l up LIN|
|00002680| 45 53 20 6c 69 6e 65 73 | 20 69 6e 20 6c 69 73 70 |ES lines| in lisp|
|00002690| 20 62 75 66 66 65 72 20 | 61 6e 64 20 61 6e 79 20 | buffer |and any |
|000026a0| 61 6e 6e 6f 74 61 74 69 | 6f 6e 20 62 75 66 66 65 |annotati|on buffe|
|000026b0| 72 73 2e 22 0a 58 20 20 | 28 69 6e 74 65 72 61 63 |rs.".X |(interac|
|000026c0| 74 69 76 65 20 22 50 22 | 29 0a 58 20 20 28 6c 65 |tive "P"|).X (le|
|000026d0| 74 20 28 28 6e 6c 69 6e | 65 73 20 28 61 6e 64 20 |t ((nlin|es (and |
|000026e0| 6c 69 6e 65 73 20 28 2d | 20 28 70 72 65 66 69 78 |lines (-| (prefix|
|000026f0| 2d 6e 75 6d 65 72 69 63 | 2d 76 61 6c 75 65 20 6c |-numeric|-value l|
|00002700| 69 6e 65 73 29 29 29 29 | 0a 58 09 28 73 61 76 65 |ines))))|.X.(save|
|00002710| 77 69 6e 64 6f 77 20 28 | 73 65 6c 65 63 74 65 64 |window (|selected|
|00002720| 2d 77 69 6e 64 6f 77 29 | 29 0a 58 09 28 62 75 66 |-window)|).X.(buf|
|00002730| 6c 69 73 74 20 28 6d 61 | 70 63 61 72 20 27 63 64 |list (ma|pcar 'cd|
|00002740| 72 20 74 73 74 2d 64 69 | 73 70 6c 61 79 2d 62 75 |r tst-di|splay-bu|
|00002750| 66 66 65 72 2d 61 6c 69 | 73 74 29 29 29 0a 58 20 |ffer-ali|st))).X |
|00002760| 20 20 20 28 6d 61 70 63 | 61 72 20 27 28 6c 61 6d | (mapc|ar '(lam|
|00002770| 62 64 61 20 28 62 75 66 | 29 0a 58 09 20 20 20 20 |bda (buf|).X. |
|00002780| 20 20 20 28 6c 65 74 20 | 28 28 77 69 6e 20 28 67 | (let |((win (g|
|00002790| 65 74 2d 62 75 66 66 65 | 72 2d 77 69 6e 64 6f 77 |et-buffe|r-window|
|000027a0| 20 62 75 66 29 29 29 0a | 58 09 09 20 28 69 66 20 | buf))).|X.. (if |
|000027b0| 77 69 6e 0a 58 09 09 20 | 20 20 20 20 28 70 72 6f |win.X.. | (pro|
|000027c0| 67 6e 20 28 73 65 6c 65 | 63 74 2d 77 69 6e 64 6f |gn (sele|ct-windo|
|000027d0| 77 20 77 69 6e 29 0a 58 | 09 09 09 20 20 20 20 28 |w win).X|... (|
|000027e0| 73 63 72 6f 6c 6c 2d 75 | 70 20 6e 6c 69 6e 65 73 |scroll-u|p nlines|
|000027f0| 29 29 29 29 29 0a 58 09 | 20 20 20 20 28 63 6f 6e |))))).X.| (con|
|00002800| 73 20 74 73 74 2d 64 69 | 73 70 6c 61 79 2d 6c 69 |s tst-di|splay-li|
|00002810| 73 70 2d 62 75 66 66 65 | 72 20 62 75 66 6c 69 73 |sp-buffe|r buflis|
|00002820| 74 29 0a 58 09 20 20 20 | 20 29 0a 58 20 20 20 20 |t).X. | ).X |
|00002830| 28 73 65 6c 65 63 74 2d | 77 69 6e 64 6f 77 20 73 |(select-|window s|
|00002840| 61 76 65 77 69 6e 64 6f | 77 29 0a 58 20 20 20 20 |avewindo|w).X |
|00002850| 29 0a 58 20 20 29 0a 58 | 20 20 0a 58 28 64 65 66 |).X ).X| .X(def|
|00002860| 75 6e 20 74 73 74 2d 64 | 69 73 70 6c 61 79 2d 6f |un tst-d|isplay-o|
|00002870| 70 65 6e 2d 62 75 66 66 | 65 72 20 28 61 74 74 72 |pen-buff|er (attr|
|00002880| 69 62 75 74 65 29 0a 58 | 20 20 22 43 72 65 61 74 |ibute).X| "Creat|
|00002890| 65 20 61 20 62 75 66 66 | 65 72 20 6e 61 6d 65 64 |e a buff|er named|
|000028a0| 20 2a 64 69 73 70 6c 61 | 79 2d 41 54 54 52 49 42 | *displa|y-ATTRIB|
|000028b0| 55 54 45 2a 2e 20 20 46 | 69 6c 6c 20 69 74 20 77 |UTE*. F|ill it w|
|000028c0| 69 74 68 20 76 61 6c 75 | 65 73 20 66 72 6f 6d 0a |ith valu|es from.|
|000028d0| 58 20 20 20 74 68 65 20 | 61 6e 6e 6f 74 61 74 69 |X the |annotati|
|000028e0| 6f 6e 20 64 61 74 61 62 | 61 73 65 2e 22 0a 58 20 |on datab|ase.".X |
|000028f0| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 53 | (intera|ctive "S|
|00002900| 61 74 74 72 69 62 75 74 | 65 20 6e 61 6d 65 3a 20 |attribut|e name: |
|00002910| 22 29 0a 58 20 20 28 6c | 65 74 20 28 28 6e 65 77 |").X (l|et ((new|
|00002920| 62 75 66 66 65 72 20 6e | 69 6c 29 0a 58 09 28 62 |buffer n|il).X.(b|
|00002930| 75 66 6e 61 6d 65 20 28 | 63 6f 6e 63 61 74 20 22 |ufname (|concat "|
|00002940| 2a 74 73 74 2d 22 0a 58 | 09 09 09 20 28 70 72 69 |*tst-".X|... (pri|
|00002950| 6e 31 2d 74 6f 2d 73 74 | 72 69 6e 67 20 61 74 74 |n1-to-st|ring att|
|00002960| 72 69 62 75 74 65 29 0a | 58 09 09 09 20 22 2a 22 |ribute).|X... "*"|
|00002970| 29 29 29 0a 58 20 20 20 | 20 28 73 61 76 65 2d 65 |))).X | (save-e|
|00002980| 78 63 75 72 73 69 6f 6e | 0a 58 09 09 09 09 09 3b |xcursion|.X.....;|
|00002990| 20 67 65 74 20 62 75 66 | 66 65 72 0a 58 20 20 20 | get buf|fer.X |
|000029a0| 20 20 20 28 73 65 74 71 | 20 6e 65 77 62 75 66 66 | (setq| newbuff|
|000029b0| 65 72 20 28 67 65 74 2d | 62 75 66 66 65 72 2d 63 |er (get-|buffer-c|
|000029c0| 72 65 61 74 65 20 62 75 | 66 6e 61 6d 65 29 29 0a |reate bu|fname)).|
|000029d0| 58 20 20 20 20 20 20 28 | 73 65 74 71 20 74 73 74 |X (|setq tst|
|000029e0| 2d 64 69 73 70 6c 61 79 | 2d 62 75 66 66 65 72 2d |-display|-buffer-|
|000029f0| 61 6c 69 73 74 0a 58 09 | 20 20 20 20 28 74 73 74 |alist.X.| (tst|
|00002a00| 2d 61 6c 69 73 74 2d 70 | 75 74 20 74 73 74 2d 64 |-alist-p|ut tst-d|
|00002a10| 69 73 70 6c 61 79 2d 62 | 75 66 66 65 72 2d 61 6c |isplay-b|uffer-al|
|00002a20| 69 73 74 0a 58 09 09 09 | 20 20 20 61 74 74 72 69 |ist.X...| attri|
|00002a30| 62 75 74 65 0a 58 09 09 | 09 20 20 20 6e 65 77 62 |bute.X..|. newb|
|00002a40| 75 66 66 65 72 29 29 0a | 58 09 09 09 09 09 3b 20 |uffer)).|X.....; |
|00002a50| 66 69 6c 6c 20 62 75 66 | 66 65 72 0a 58 20 20 20 |fill buf|fer.X |
|00002a60| 20 20 20 28 73 65 74 2d | 62 75 66 66 65 72 20 6e | (set-|buffer n|
|00002a70| 65 77 62 75 66 66 65 72 | 29 0a 58 20 20 20 20 20 |ewbuffer|).X |
|00002a80| 20 28 6c 65 74 20 28 28 | 62 75 66 66 65 72 2d 72 | (let ((|buffer-r|
|00002a90| 65 61 64 2d 6f 6e 6c 79 | 20 6e 69 6c 29 29 0a 58 |ead-only| nil)).X|
|00002aa0| 09 28 73 65 74 71 20 6d | 6f 64 65 2d 6c 69 6e 65 |.(setq m|ode-line|
|00002ab0| 2d 66 6f 72 6d 61 74 20 | 28 70 72 69 6e 31 2d 74 |-format |(prin1-t|
|00002ac0| 6f 2d 73 74 72 69 6e 67 | 20 61 74 74 72 69 62 75 |o-string| attribu|
|00002ad0| 74 65 29 29 0a 58 09 28 | 65 72 61 73 65 2d 62 75 |te)).X.(|erase-bu|
|00002ae0| 66 66 65 72 29 0a 58 09 | 28 6e 65 77 6c 69 6e 65 |ffer).X.|(newline|
|00002af0| 20 28 74 73 74 2d 64 69 | 73 70 6c 61 79 2d 6d 61 | (tst-di|splay-ma|
|00002b00| 78 6c 69 6e 65 29 29 0a | 58 09 28 6d 61 70 63 61 |xline)).|X.(mapca|
|00002b10| 72 20 27 28 6c 61 6d 62 | 64 61 20 28 6c 69 6e 65 |r '(lamb|da (line|
|00002b20| 29 0a 58 09 09 20 20 20 | 28 67 6f 74 6f 2d 6c 69 |).X.. |(goto-li|
|00002b30| 6e 65 20 6c 69 6e 65 29 | 0a 58 09 09 20 20 20 28 |ne line)|.X.. (|
|00002b40| 69 6e 73 65 72 74 20 28 | 74 73 74 2d 64 69 73 70 |insert (|tst-disp|
|00002b50| 6c 61 79 2d 67 65 74 2d | 73 74 72 69 6e 67 20 6c |lay-get-|string l|
|00002b60| 69 6e 65 20 61 74 74 72 | 69 62 75 74 65 29 29 29 |ine attr|ibute)))|
|00002b70| 0a 58 09 09 28 74 73 74 | 2d 61 6e 6e 2d 67 65 74 |.X..(tst|-ann-get|
|00002b80| 2d 6c 69 6e 65 73 29 29 | 0a 58 09 09 09 09 09 3b |-lines))|.X.....;|
|00002b90| 20 73 65 74 75 70 20 6b | 65 79 6d 61 70 0a 58 09 | setup k|eymap.X.|
|00002ba0| 28 75 73 65 2d 6c 6f 63 | 61 6c 2d 6d 61 70 20 74 |(use-loc|al-map t|
|00002bb0| 73 74 2d 64 69 73 70 6c | 61 79 2d 6d 6f 64 65 2d |st-displ|ay-mode-|
|00002bc0| 6d 61 70 29 0a 58 09 28 | 73 65 74 71 20 74 72 75 |map).X.(|setq tru|
|00002bd0| 6e 63 61 74 65 2d 6c 69 | 6e 65 73 20 74 29 0a 58 |ncate-li|nes t).X|
|00002be0| 09 29 0a 58 20 20 20 20 | 20 20 28 73 65 74 71 20 |.).X | (setq |
|00002bf0| 62 75 66 66 65 72 2d 72 | 65 61 64 2d 6f 6e 6c 79 |buffer-r|ead-only|
|00002c00| 20 74 29 29 29 0a 58 20 | 20 29 0a 58 20 20 0a 58 | t))).X | ).X .X|
|00002c10| 28 64 65 66 75 6e 20 74 | 73 74 2d 64 69 73 70 6c |(defun t|st-displ|
|00002c20| 61 79 2d 73 61 76 65 2d | 62 75 66 66 65 72 20 28 |ay-save-|buffer (|
|00002c30| 61 74 74 72 69 62 75 74 | 65 29 0a 58 20 20 22 53 |attribut|e).X "S|
|00002c40| 61 76 65 20 61 20 62 75 | 66 66 65 72 20 67 69 76 |ave a bu|ffer giv|
|00002c50| 65 6e 20 41 54 54 52 49 | 42 55 54 45 20 6e 61 6d |en ATTRI|BUTE nam|
|00002c60| 65 2e 22 0a 58 20 20 28 | 73 65 74 2d 62 75 66 66 |e.".X (|set-buff|
|00002c70| 65 72 20 28 74 73 74 2d | 61 6c 69 73 74 2d 67 65 |er (tst-|alist-ge|
|00002c80| 74 20 74 73 74 2d 64 69 | 73 70 6c 61 79 2d 62 75 |t tst-di|splay-bu|
|00002c90| 66 66 65 72 2d 61 6c 69 | 73 74 20 61 74 74 72 69 |ffer-ali|st attri|
|00002ca0| 62 75 74 65 29 29 0a 58 | 20 20 28 73 65 74 2d 76 |bute)).X| (set-v|
|00002cb0| 69 73 69 74 65 64 2d 66 | 69 6c 65 2d 6e 61 6d 65 |isited-f|ile-name|
|00002cc0| 20 28 62 75 66 66 65 72 | 2d 6e 61 6d 65 29 29 0a | (buffer|-name)).|
|00002cd0| 58 20 20 28 73 61 76 65 | 2d 62 75 66 66 65 72 29 |X (save|-buffer)|
|00002ce0| 0a 58 20 20 29 0a 58 20 | 20 0a 58 28 64 65 66 75 |.X ).X | .X(defu|
|00002cf0| 6e 20 74 73 74 2d 64 69 | 73 70 6c 61 79 2d 6f 70 |n tst-di|splay-op|
|00002d00| 65 6e 2d 77 69 6e 64 6f | 77 20 28 61 74 74 72 69 |en-windo|w (attri|
|00002d10| 62 75 74 65 29 0a 58 20 | 20 22 4f 70 65 6e 20 61 |bute).X | "Open a|
|00002d20| 20 77 69 6e 64 6f 77 20 | 6f 6e 74 6f 20 61 6e 20 | window |onto an |
|00002d30| 61 74 74 72 69 62 75 74 | 65 2e 22 0a 58 20 20 28 |attribut|e.".X (|
|00002d40| 69 6e 74 65 72 61 63 74 | 69 76 65 20 22 53 61 74 |interact|ive "Sat|
|00002d50| 74 72 69 62 75 74 65 20 | 6e 61 6d 65 3a 20 22 29 |tribute |name: ")|
|00002d60| 0a 58 09 09 09 09 09 3b | 20 62 6f 64 79 0a 58 20 |.X.....;| body.X |
|00002d70| 20 28 6c 65 74 20 28 28 | 73 61 76 65 64 2d 6c 69 | (let ((|saved-li|
|00002d80| 6e 65 20 28 74 73 74 2d | 64 69 73 70 6c 61 79 2d |ne (tst-|display-|
|00002d90| 63 75 72 72 65 6e 74 2d | 6c 69 6e 65 29 29 29 0a |current-|line))).|
|00002da0| 58 20 20 20 20 28 73 70 | 6c 69 74 2d 77 69 6e 64 |X (sp|lit-wind|
|00002db0| 6f 77 2d 68 6f 72 69 7a | 6f 6e 74 61 6c 6c 79 20 |ow-horiz|ontally |
|00002dc0| 74 73 74 2d 64 69 73 70 | 6c 61 79 2d 77 69 6e 64 |tst-disp|lay-wind|
|00002dd0| 6f 77 2d 77 69 64 74 68 | 29 0a 58 20 20 20 20 28 |ow-width|).X (|
|00002de0| 73 65 74 71 20 74 73 74 | 2d 64 69 73 70 6c 61 79 |setq tst|-display|
|00002df0| 2d 77 69 6e 64 6f 77 2d | 61 6c 69 73 74 0a 58 09 |-window-|alist.X.|
|00002e00| 20 20 28 74 73 74 2d 61 | 6c 69 73 74 2d 70 75 74 | (tst-a|list-put|
|00002e10| 20 74 73 74 2d 64 69 73 | 70 6c 61 79 2d 77 69 6e | tst-dis|play-win|
|00002e20| 64 6f 77 2d 61 6c 69 73 | 74 0a 58 09 09 09 20 61 |dow-alis|t.X... a|
|00002e30| 74 74 72 69 62 75 74 65 | 0a 58 09 09 09 20 28 73 |ttribute|.X... (s|
|00002e40| 65 6c 65 63 74 65 64 2d | 77 69 6e 64 6f 77 29 29 |elected-|window))|
|00002e50| 29 0a 58 20 20 20 20 28 | 73 77 69 74 63 68 2d 74 |).X (|switch-t|
|00002e60| 6f 2d 62 75 66 66 65 72 | 20 28 74 73 74 2d 61 6c |o-buffer| (tst-al|
|00002e70| 69 73 74 2d 67 65 74 20 | 74 73 74 2d 64 69 73 70 |ist-get |tst-disp|
|00002e80| 6c 61 79 2d 62 75 66 66 | 65 72 2d 61 6c 69 73 74 |lay-buff|er-alist|
|00002e90| 20 61 74 74 72 69 62 75 | 74 65 29 29 0a 58 20 20 | attribu|te)).X |
|00002ea0| 20 20 28 6f 74 68 65 72 | 2d 77 69 6e 64 6f 77 20 | (other|-window |
|00002eb0| 31 29 0a 58 20 20 20 20 | 28 74 73 74 2d 64 69 73 |1).X |(tst-dis|
|00002ec0| 70 6c 61 79 2d 72 65 64 | 72 61 77 29 0a 58 3b 20 |play-red|raw).X; |
|00002ed0| 20 20 20 28 67 6f 74 6f | 2d 6c 69 6e 65 20 73 61 | (goto|-line sa|
|00002ee0| 76 65 64 2d 6c 69 6e 65 | 29 0a 58 3b 20 20 20 20 |ved-line|).X; |
|00002ef0| 28 72 65 63 65 6e 74 65 | 72 29 0a 58 3b 20 20 20 |(recente|r).X; |
|00002f00| 20 28 72 65 63 65 6e 74 | 65 72 29 0a 58 20 20 20 | (recent|er).X |
|00002f10| 20 29 0a 58 20 20 29 0a | 58 20 20 0a 58 28 64 65 | ).X ).|X .X(de|
|00002f20| 66 75 6e 20 74 73 74 2d | 64 69 73 70 6c 61 79 2d |fun tst-|display-|
|00002f30| 63 6c 6f 73 65 2d 77 69 | 6e 64 6f 77 20 28 61 74 |close-wi|ndow (at|
|00002f40| 74 72 69 62 75 74 65 29 | 0a 58 20 20 22 43 6c 6f |tribute)|.X "Clo|
|00002f50| 73 65 20 61 20 77 69 6e | 64 6f 77 20 6f 6e 74 6f |se a win|dow onto|
|00002f60| 20 61 6e 20 61 74 74 72 | 69 62 75 74 65 2e 22 0a | an attr|ibute.".|
|00002f70| 58 20 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |X (inte|ractive |
|00002f80| 22 53 61 74 74 72 69 62 | 75 74 65 20 6e 61 6d 65 |"Sattrib|ute name|
|00002f90| 3a 20 22 29 0a 58 20 20 | 0a 58 20 20 28 6c 65 74 |: ").X |.X (let|
|00002fa0| 20 28 28 77 69 6e 20 28 | 74 73 74 2d 61 6c 69 73 | ((win (|tst-alis|
|00002fb0| 74 2d 67 65 74 20 74 73 | 74 2d 64 69 73 70 6c 61 |t-get ts|t-displa|
|00002fc0| 79 2d 77 69 6e 64 6f 77 | 2d 61 6c 69 73 74 20 61 |y-window|-alist a|
|00002fd0| 74 74 72 69 62 75 74 65 | 29 29 29 0a 58 20 20 20 |ttribute|))).X |
|00002fe0| 20 28 61 6e 64 20 77 69 | 6e 0a 58 09 28 70 72 6f | (and wi|n.X.(pro|
|00002ff0| 67 6e 20 28 64 65 6c 65 | 74 65 2d 77 69 6e 64 6f |gn (dele|te-windo|
|00003000| 77 20 77 69 6e 29 0a 58 | 09 20 20 20 20 20 20 20 |w win).X|. |
|00003010| 28 74 73 74 2d 61 6c 69 | 73 74 2d 72 65 6d 20 74 |(tst-ali|st-rem t|
|00003020| 73 74 2d 64 69 73 70 6c | 61 79 2d 77 69 6e 64 6f |st-displ|ay-windo|
|00003030| 77 2d 61 6c 69 73 74 20 | 61 74 74 72 69 62 75 74 |w-alist |attribut|
|00003040| 65 29 29 29 0a 58 20 20 | 20 20 29 0a 58 20 20 29 |e))).X | ).X )|
|00003050| 0a 58 20 20 0a 58 28 64 | 65 66 75 6e 20 74 73 74 |.X .X(d|efun tst|
|00003060| 2d 64 69 73 70 6c 61 79 | 2d 72 65 64 72 61 77 20 |-display|-redraw |
|00003070| 28 26 6f 70 74 69 6f 6e | 61 6c 20 6c 69 6e 65 29 |(&option|al line)|
|00003080| 0a 58 20 20 22 52 65 64 | 72 61 77 20 61 6c 6c 20 |.X "Red|raw all |
|00003090| 77 69 6e 64 6f 77 73 20 | 61 66 74 65 72 20 6d 6f |windows |after mo|
|000030a0| 76 69 6e 67 20 74 6f 20 | 73 61 6d 65 20 6c 69 6e |ving to |same lin|
|000030b0| 65 20 69 6e 20 64 69 73 | 70 6c 61 79 2d 77 69 6e |e in dis|play-win|
|000030c0| 64 6f 77 73 0a 58 20 20 | 20 61 73 20 69 6e 20 63 |dows.X | as in c|
|000030d0| 75 72 72 65 6e 74 20 77 | 69 6e 64 6f 77 2e 22 0a |urrent w|indow.".|
|000030e0| 58 20 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 29 |X (inte|ractive)|
|000030f0| 0a 58 20 20 28 6c 65 74 | 20 28 28 63 75 72 6c 69 |.X (let| ((curli|
|00003100| 6e 65 20 28 6f 72 20 6c | 69 6e 65 20 28 74 73 74 |ne (or l|ine (tst|
|00003110| 2d 64 69 73 70 6c 61 79 | 2d 63 75 72 72 65 6e 74 |-display|-current|
|00003120| 2d 6c 69 6e 65 29 29 29 | 0a 58 09 28 73 61 76 65 |-line)))|.X.(save|
|00003130| 77 69 6e 64 6f 77 20 28 | 73 65 6c 65 63 74 65 64 |window (|selected|
|00003140| 2d 77 69 6e 64 6f 77 29 | 29 0a 58 09 28 62 75 66 |-window)|).X.(buf|
|00003150| 6c 69 73 74 20 28 6d 61 | 70 63 61 72 20 27 63 64 |list (ma|pcar 'cd|
|00003160| 72 20 74 73 74 2d 64 69 | 73 70 6c 61 79 2d 62 75 |r tst-di|splay-bu|
|00003170| 66 66 65 72 2d 61 6c 69 | 73 74 29 29 29 0a 58 20 |ffer-ali|st))).X |
|00003180| 20 20 20 28 6d 61 70 63 | 61 72 20 27 28 6c 61 6d | (mapc|ar '(lam|
|00003190| 62 64 61 20 28 62 75 66 | 29 0a 58 09 20 20 20 20 |bda (buf|).X. |
|000031a0| 20 20 20 28 6c 65 74 20 | 28 28 77 69 6e 20 28 67 | (let |((win (g|
|000031b0| 65 74 2d 62 75 66 66 65 | 72 2d 77 69 6e 64 6f 77 |et-buffe|r-window|
|000031c0| 20 62 75 66 29 29 29 0a | 58 09 09 20 28 73 65 6c | buf))).|X.. (sel|
|000031d0| 65 63 74 2d 77 69 6e 64 | 6f 77 20 77 69 6e 29 0a |ect-wind|ow win).|
|000031e0| 58 09 09 20 28 67 6f 74 | 6f 2d 6c 69 6e 65 20 63 |X.. (got|o-line c|
|000031f0| 75 72 6c 69 6e 65 29 0a | 58 09 09 20 28 72 65 63 |urline).|X.. (rec|
|00003200| 65 6e 74 65 72 29 29 29 | 0a 58 09 20 20 20 20 62 |enter)))|.X. b|
|00003210| 75 66 6c 69 73 74 29 0a | 58 20 20 20 20 28 73 65 |uflist).|X (se|
|00003220| 6c 65 63 74 2d 77 69 6e | 64 6f 77 20 73 61 76 65 |lect-win|dow save|
|00003230| 77 69 6e 64 6f 77 29 0a | 58 20 20 20 20 28 67 6f |window).|X (go|
|00003240| 74 6f 2d 6c 69 6e 65 20 | 63 75 72 6c 69 6e 65 29 |to-line |curline)|
|00003250| 0a 58 20 20 20 20 28 72 | 65 63 65 6e 74 65 72 29 |.X (r|ecenter)|
|00003260| 0a 58 20 20 20 20 29 0a | 58 20 20 29 0a 58 20 20 |.X ).|X ).X |
|00003270| 0a 58 0c 0a 58 3b 3b 3b | 20 2d 2d 2d 2d 2d 2d 2d |.X..X;;;| -------|
|00003280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003290| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0a |--------|-------.|
|000032c0| 58 3b 3b 3b 20 50 72 69 | 76 61 74 65 20 46 75 6e |X;;; Pri|vate Fun|
|000032d0| 63 74 69 6f 6e 73 2d 2d | 0a 58 0a 58 28 64 65 66 |ctions--|.X.X(def|
|000032e0| 75 6e 20 74 73 74 2d 64 | 69 73 70 6c 61 79 2d 62 |un tst-d|isplay-b|
|000032f0| 61 74 63 68 2d 73 74 72 | 69 6e 67 20 28 62 75 66 |atch-str|ing (buf|
|00003300| 66 65 72 20 6c 69 6e 65 | 20 26 72 65 73 74 20 61 |fer line| &rest a|
|00003310| 74 74 72 6c 69 73 74 29 | 0a 58 20 20 22 52 65 74 |ttrlist)|.X "Ret|
|00003320| 75 72 6e 73 20 61 20 73 | 74 72 69 6e 67 20 27 62 |urns a s|tring 'b|
|00003330| 75 66 66 65 72 2d 6e 61 | 6d 65 3a 6c 69 6e 65 2d |uffer-na|me:line-|
|00003340| 6e 75 6d 62 65 72 3a 76 | 61 6c 75 65 73 5c 6e 27 |number:v|alues\n'|
|00003350| 2e 22 0a 58 20 20 28 6c | 65 74 20 28 76 61 6c 75 |.".X (l|et (valu|
|00003360| 65 20 73 74 72 69 6e 67 | 29 0a 58 20 20 20 20 28 |e string|).X (|
|00003370| 73 65 74 71 20 73 74 72 | 69 6e 67 20 28 61 70 70 |setq str|ing (app|
|00003380| 6c 79 20 27 63 6f 6e 63 | 61 74 0a 58 09 09 09 28 |ly 'conc|at.X...(|
|00003390| 6d 61 70 63 61 72 20 27 | 28 6c 61 6d 62 64 61 20 |mapcar '|(lambda |
|000033a0| 28 61 74 74 72 29 0a 58 | 09 09 09 09 20 20 20 28 |(attr).X|.... (|
|000033b0| 74 73 74 2d 64 69 73 70 | 6c 61 79 2d 67 65 74 2d |tst-disp|lay-get-|
|000033c0| 73 74 72 69 6e 67 20 6c | 69 6e 65 20 61 74 74 72 |string l|ine attr|
|000033d0| 29 29 0a 58 09 09 09 09 | 61 74 74 72 6c 69 73 74 |)).X....|attrlist|
|000033e0| 29 29 0a 58 09 20 20 29 | 0a 58 20 20 20 20 28 69 |)).X. )|.X (i|
|000033f0| 66 20 28 65 71 75 61 6c | 20 22 22 20 73 74 72 69 |f (equal| "" stri|
|00003400| 6e 67 29 0a 58 09 22 22 | 0a 58 20 20 20 20 20 20 |ng).X.""|.X |
|00003410| 28 63 6f 6e 63 61 74 20 | 28 62 75 66 66 65 72 2d |(concat |(buffer-|
|00003420| 6e 61 6d 65 20 62 75 66 | 66 65 72 29 0a 58 09 20 |name buf|fer).X. |
|00003430| 20 20 20 20 20 22 3a 22 | 0a 58 09 20 20 20 20 20 | ":"|.X. |
|00003440| 20 28 70 72 69 6e 31 2d | 74 6f 2d 73 74 72 69 6e | (prin1-|to-strin|
|00003450| 67 20 6c 69 6e 65 29 0a | 58 09 20 20 20 20 20 20 |g line).|X. |
|00003460| 22 3d 3d 20 20 22 0a 58 | 09 20 20 20 20 20 20 73 |"== ".X|. s|
|00003470| 74 72 69 6e 67 0a 58 09 | 20 20 20 20 20 20 22 5c |tring.X.| "\|
|00003480| 6e 22 29 29 0a 58 20 20 | 20 20 29 0a 58 20 20 29 |n")).X | ).X )|
|00003490| 0a 58 0a 58 28 64 65 66 | 75 6e 20 74 73 74 2d 64 |.X.X(def|un tst-d|
|000034a0| 69 73 70 6c 61 79 2d 67 | 65 74 2d 73 74 72 69 6e |isplay-g|et-strin|
|000034b0| 67 20 28 6c 69 6e 65 20 | 61 74 74 72 69 62 75 74 |g (line |attribut|
|000034c0| 65 29 0a 58 20 20 22 20 | 20 20 72 65 74 75 72 6e |e).X " | return|
|000034d0| 20 61 20 73 74 72 69 6e | 67 20 72 65 70 72 65 73 | a strin|g repres|
|000034e0| 65 6e 74 61 74 69 6f 6e | 20 6f 66 20 74 68 65 20 |entation| of the |
|000034f0| 76 61 6c 75 65 20 3c 4c | 49 4e 45 20 41 54 54 52 |value <L|INE ATTR|
|00003500| 49 42 55 54 45 3e 20 66 | 72 6f 6d 0a 58 20 20 20 |IBUTE> f|rom.X |
|00003510| 74 68 65 20 61 6e 6e 6f | 74 61 74 69 6f 6e 20 64 |the anno|tation d|
|00003520| 61 74 61 62 61 73 65 2e | 22 0a 58 09 09 09 09 09 |atabase.|".X.....|
|00003530| 3b 20 62 6f 64 79 0a 58 | 20 20 28 6c 65 74 20 28 |; body.X| (let (|
|00003540| 28 76 61 6c 75 65 20 28 | 74 73 74 2d 61 6e 6e 2d |(value (|tst-ann-|
|00003550| 67 65 74 20 6c 69 6e 65 | 20 61 74 74 72 69 62 75 |get line| attribu|
|00003560| 74 65 29 29 29 0a 58 20 | 20 20 20 28 63 6f 6e 64 |te))).X | (cond|
|00003570| 0a 58 20 20 20 20 20 28 | 28 6e 75 6c 6c 20 76 61 |.X (|(null va|
|00003580| 6c 75 65 29 20 22 22 29 | 0a 58 20 20 20 20 20 28 |lue) "")|.X (|
|00003590| 28 61 6e 64 20 28 6c 69 | 73 74 70 20 76 61 6c 75 |(and (li|stp valu|
|000035a0| 65 29 0a 58 09 20 20 20 | 28 3d 20 31 20 28 6c 65 |e).X. |(= 1 (le|
|000035b0| 6e 67 74 68 20 76 61 6c | 75 65 29 29 29 20 28 70 |ngth val|ue))) (p|
|000035c0| 72 69 6e 31 2d 74 6f 2d | 73 74 72 69 6e 67 20 28 |rin1-to-|string (|
|000035d0| 63 61 72 20 76 61 6c 75 | 65 29 29 29 0a 58 20 20 |car valu|e))).X |
|000035e0| 20 20 20 28 74 20 28 70 | 72 69 6e 31 2d 74 6f 2d | (t (p|rin1-to-|
|000035f0| 73 74 72 69 6e 67 20 76 | 61 6c 75 65 29 29 0a 58 |string v|alue)).X|
|00003600| 20 20 20 20 20 29 0a 58 | 20 20 20 20 29 0a 58 20 | ).X| ).X |
|00003610| 20 29 0a 58 20 20 0a 58 | 28 64 65 66 75 6e 20 74 | ).X .X|(defun t|
|00003620| 73 74 2d 64 69 73 70 6c | 61 79 2d 6d 61 78 6c 69 |st-displ|ay-maxli|
|00003630| 6e 65 20 28 29 0a 58 20 | 20 22 52 65 74 75 72 6e |ne ().X | "Return|
|00003640| 73 20 6e 75 6d 62 65 72 | 20 6f 66 20 6c 69 6e 65 |s number| of line|
|00003650| 73 20 69 6e 20 6c 69 73 | 70 2d 62 75 66 66 65 72 |s in lis|p-buffer|
|00003660| 22 0a 58 20 20 28 73 61 | 76 65 2d 65 78 63 75 72 |".X (sa|ve-excur|
|00003670| 73 69 6f 6e 0a 58 20 20 | 20 28 73 65 74 2d 62 75 |sion.X | (set-bu|
|00003680| 66 66 65 72 20 74 73 74 | 2d 64 69 73 70 6c 61 79 |ffer tst|-display|
|00003690| 2d 6c 69 73 70 2d 62 75 | 66 66 65 72 29 0a 58 20 |-lisp-bu|ffer).X |
|000036a0| 20 20 28 63 6f 75 6e 74 | 2d 6c 69 6e 65 73 20 28 | (count|-lines (|
|000036b0| 70 6f 69 6e 74 2d 6d 69 | 6e 29 20 28 70 6f 69 6e |point-mi|n) (poin|
|000036c0| 74 2d 6d 61 78 29 29 0a | 58 20 20 20 29 0a 58 20 |t-max)).|X ).X |
|000036d0| 20 29 0a 58 20 20 0a 58 | 28 64 65 66 75 6e 20 74 | ).X .X|(defun t|
|000036e0| 73 74 2d 64 69 73 70 6c | 61 79 2d 63 75 72 72 65 |st-displ|ay-curre|
|000036f0| 6e 74 2d 6c 69 6e 65 20 | 28 29 0a 58 20 20 22 52 |nt-line |().X "R|
|00003700| 65 74 75 72 6e 73 20 63 | 75 72 72 65 6e 74 20 6c |eturns c|urrent l|
|00003710| 69 6e 65 20 6e 75 6d 62 | 65 72 22 0a 58 20 20 28 |ine numb|er".X (|
|00003720| 31 2b 20 28 63 6f 75 6e | 74 2d 6c 69 6e 65 73 20 |1+ (coun|t-lines |
|00003730| 28 70 6f 69 6e 74 2d 6d | 69 6e 29 20 28 70 6f 69 |(point-m|in) (poi|
|00003740| 6e 74 29 29 29 0a 58 20 | 20 29 0a 58 20 20 0a 58 |nt))).X | ).X .X|
|00003750| 28 64 65 66 75 6e 20 74 | 73 74 2d 64 69 73 70 6c |(defun t|st-displ|
|00003760| 61 79 2d 74 65 73 74 2d | 69 6e 69 74 20 28 29 0a |ay-test-|init ().|
|00003770| 58 20 20 22 54 65 73 74 | 20 64 72 69 76 65 72 20 |X "Test| driver |
|00003780| 66 6f 72 20 70 61 63 6b | 61 67 65 20 66 75 6e 63 |for pack|age func|
|00003790| 74 69 6f 6e 73 2e 22 0a | 58 20 20 28 69 6e 74 65 |tions.".|X (inte|
|000037a0| 72 61 63 74 69 76 65 29 | 0a 58 20 20 0a 58 20 20 |ractive)|.X .X |
|000037b0| 28 6c 65 74 20 28 28 61 | 74 74 72 2d 6c 69 73 74 |(let ((a|ttr-list|
|000037c0| 20 74 73 74 2d 64 69 73 | 70 6c 61 79 2d 61 74 74 | tst-dis|play-att|
|000037d0| 72 69 62 75 74 65 73 29 | 0a 58 09 28 6c 69 6e 65 |ributes)|.X.(line|
|000037e0| 2d 6c 69 73 74 20 6e 69 | 6c 29 0a 58 09 28 6c 69 |-list ni|l).X.(li|
|000037f0| 6e 65 20 31 29 0a 58 09 | 29 0a 58 09 09 09 09 09 |ne 1).X.|).X.....|
|00003800| 3b 20 43 72 65 61 74 65 | 20 61 20 64 61 74 61 62 |; Create| a datab|
|00003810| 61 73 65 20 28 63 68 65 | 61 70 29 0a 58 20 20 20 |ase (che|ap).X |
|00003820| 20 28 74 73 74 2d 61 6e | 6e 2d 73 65 74 2d 64 62 | (tst-an|n-set-db|
|00003830| 20 6e 69 6c 29 0a 58 20 | 20 20 20 28 67 6f 74 6f | nil).X | (goto|
|00003840| 2d 63 68 61 72 20 28 70 | 6f 69 6e 74 2d 6d 69 6e |-char (p|oint-min|
|00003850| 29 29 0a 58 20 20 20 20 | 28 77 68 69 6c 65 20 28 |)).X |(while (|
|00003860| 6e 6f 74 20 28 65 6f 62 | 70 29 29 0a 58 20 20 20 |not (eob|p)).X |
|00003870| 20 20 20 28 74 73 74 2d | 61 6e 6e 2d 70 75 74 20 | (tst-|ann-put |
|00003880| 6c 69 6e 65 20 27 63 6f | 6e 73 74 61 6e 74 20 28 |line 'co|nstant (|
|00003890| 6c 69 73 74 20 6c 69 6e | 65 20 6c 69 6e 65 20 6c |list lin|e line l|
|000038a0| 69 6e 65 29 29 0a 58 20 | 20 20 20 20 20 28 74 73 |ine)).X | (ts|
|000038b0| 74 2d 61 6e 6e 2d 70 75 | 74 20 6c 69 6e 65 20 27 |t-ann-pu|t line '|
|000038c0| 7a 65 72 6f 20 27 4e 45 | 56 45 52 2d 3e 3e 29 0a |zero 'NE|VER->>).|
|000038d0| 58 20 20 20 20 20 20 28 | 6e 65 78 74 2d 6c 69 6e |X (|next-lin|
|000038e0| 65 20 31 29 0a 58 20 20 | 20 20 20 20 28 73 65 74 |e 1).X | (set|
|000038f0| 71 20 6c 69 6e 65 20 28 | 31 2b 20 6c 69 6e 65 29 |q line (|1+ line)|
|00003900| 29 0a 58 20 20 20 20 20 | 20 29 0a 58 20 20 20 20 |).X | ).X |
|00003910| 29 0a 58 20 20 29 0a 53 | 48 41 52 5f 45 4f 46 0a |).X ).S|HAR_EOF.|
|00003920| 69 66 20 74 65 73 74 20 | 31 32 34 34 33 20 2d 6e |if test |12443 -n|
|00003930| 65 20 22 60 77 63 20 2d | 63 20 3c 20 27 74 73 74 |e "`wc -|c < 'tst|
|00003940| 2d 64 69 73 70 6c 61 79 | 2e 65 6c 27 60 22 0a 74 |-display|.el'`".t|
|00003950| 68 65 6e 0a 09 65 63 68 | 6f 20 73 68 61 72 3a 20 |hen..ech|o shar: |
|00003960| 22 65 72 72 6f 72 20 74 | 72 61 6e 73 6d 69 74 74 |"error t|ransmitt|
|00003970| 69 6e 67 20 27 74 73 74 | 2d 64 69 73 70 6c 61 79 |ing 'tst|-display|
|00003980| 2e 65 6c 27 22 20 27 28 | 73 68 6f 75 6c 64 20 68 |.el'" '(|should h|
|00003990| 61 76 65 20 62 65 65 6e | 20 31 32 34 34 33 20 63 |ave been| 12443 c|
|000039a0| 68 61 72 61 63 74 65 72 | 73 29 27 0a 66 69 0a 66 |haracter|s)'.fi.f|
|000039b0| 69 0a 65 63 68 6f 20 73 | 68 61 72 3a 20 22 65 78 |i.echo s|har: "ex|
|000039c0| 74 72 61 63 74 69 6e 67 | 20 27 74 73 74 2d 65 71 |tracting| 'tst-eq|
|000039d0| 75 61 6c 2e 65 6c 27 22 | 20 27 28 33 32 31 32 39 |ual.el'"| '(32129|
|000039e0| 20 63 68 61 72 61 63 74 | 65 72 73 29 27 0a 69 66 | charact|ers)'.if|
|000039f0| 20 74 65 73 74 20 2d 66 | 20 27 74 73 74 2d 65 71 | test -f| 'tst-eq|
|00003a00| 75 61 6c 2e 65 6c 27 0a | 74 68 65 6e 0a 09 65 63 |ual.el'.|then..ec|
|00003a10| 68 6f 20 73 68 61 72 3a | 20 22 77 69 6c 6c 20 6e |ho shar:| "will n|
|00003a20| 6f 74 20 6f 76 65 72 2d | 77 72 69 74 65 20 65 78 |ot over-|write ex|
|00003a30| 69 73 74 69 6e 67 20 66 | 69 6c 65 20 27 74 73 74 |isting f|ile 'tst|
|00003a40| 2d 65 71 75 61 6c 2e 65 | 6c 27 22 0a 65 6c 73 65 |-equal.e|l'".else|
|00003a50| 0a 73 65 64 20 27 73 2f | 5e 58 2f 2f 27 20 3c 3c |.sed 's/|^X//' <<|
|00003a60| 20 5c 53 48 41 52 5f 45 | 4f 46 20 3e 20 27 74 73 | \SHAR_E|OF > 'ts|
|00003a70| 74 2d 65 71 75 61 6c 2e | 65 6c 27 0a 58 3b 3b 3b |t-equal.|el'.X;;;|
|00003a80| 20 74 73 74 2d 65 71 75 | 61 6c 2e 65 6c 20 2d 2d | tst-equ|al.el --|
|00003a90| 20 41 20 6e 75 6d 62 65 | 72 20 6f 66 20 64 65 66 | A numbe|r of def|
|00003aa0| 69 6e 69 74 69 6f 6e 73 | 20 6f 66 20 65 71 75 61 |initions| of equa|
|00003ab0| 6c 69 74 79 0a 58 3b 3b | 3b 20 4c 6f 72 72 69 20 |lity.X;;|; Lorri |
|00003ac0| 4d 65 6e 61 72 64 2c 20 | 57 61 6e 67 20 49 6e 73 |Menard, |Wang Ins|
|00003ad0| 74 69 74 75 74 65 20 6f | 66 20 47 72 61 64 75 61 |titute o|f Gradua|
|00003ae0| 74 65 20 53 74 75 64 69 | 65 73 0a 58 3b 3b 3b 20 |te Studi|es.X;;; |
|00003af0| 44 6f 6e 20 5a 61 72 65 | 6d 62 61 2c 20 57 61 6e |Don Zare|mba, Wan|
|00003b00| 67 20 49 6e 73 74 69 74 | 75 74 65 20 6f 66 20 47 |g Instit|ute of G|
|00003b10| 72 61 64 75 61 74 65 20 | 53 74 75 64 69 65 73 0a |raduate |Studies.|
|00003b20| 58 3b 3b 3b 20 43 6f 70 | 79 72 69 67 68 74 20 31 |X;;; Cop|yright 1|
|00003b30| 39 38 37 20 57 61 6e 67 | 20 49 6e 73 74 69 74 75 |987 Wang| Institu|
|00003b40| 74 65 20 6f 66 20 47 72 | 61 64 75 61 74 65 20 53 |te of Gr|aduate S|
|00003b50| 74 75 64 69 65 73 0a 58 | 3b 3b 3b 0a 58 0a 58 28 |tudies.X|;;;.X.X(|
|00003b60| 70 72 6f 76 69 64 65 20 | 27 74 73 74 2d 65 71 75 |provide |'tst-equ|
|00003b70| 61 6c 29 0a 58 0a 58 28 | 64 65 66 76 61 72 20 74 |al).X.X(|defvar t|
|00003b80| 73 74 2d 65 71 75 2d 6c | 6f 67 2d 61 6c 6c 2d 63 |st-equ-l|og-all-c|
|00003b90| 6f 6d 70 61 72 65 73 20 | 22 74 22 0a 58 20 20 22 |ompares |"t".X "|
|00003ba0| 2a 20 49 66 20 6e 6f 74 | 20 6e 69 6c 20 74 68 65 |* If not| nil the|
|00003bb0| 6e 20 61 6c 6c 20 63 6f | 6d 70 61 72 69 73 6f 6e |n all co|mparison|
|00003bc0| 73 20 61 72 65 20 6c 6f | 67 67 65 64 20 69 6e 74 |s are lo|gged int|
|00003bd0| 6f 20 74 68 65 20 62 75 | 66 66 65 72 0a 58 20 20 |o the bu|ffer.X |
|00003be0| 20 20 20 2a 65 71 75 61 | 6c 2d 6c 6f 67 2a 2e 22 | *equa|l-log*."|
|00003bf0| 0a 58 29 0a 58 0a 58 28 | 64 65 66 76 61 72 20 74 |.X).X.X(|defvar t|
|00003c00| 73 74 2d 65 71 75 2d 6d | 61 78 2d 6c 69 6e 65 2d |st-equ-m|ax-line-|
|00003c10| 64 69 66 66 73 20 22 31 | 35 22 0a 58 20 20 22 2a |diffs "1|5".X "*|
|00003c20| 20 4d 61 78 69 6d 75 6d | 20 6e 75 6d 62 65 72 20 | Maximum| number |
|00003c30| 6f 66 20 64 69 66 66 65 | 72 65 6e 74 20 6c 69 6e |of diffe|rent lin|
|00003c40| 65 73 20 74 6f 20 6c 6f | 67 20 77 68 65 6e 20 63 |es to lo|g when c|
|00003c50| 6f 6d 70 61 72 69 6e 67 | 0a 58 20 20 20 20 20 62 |omparing|.X b|
|00003c60| 75 66 66 65 72 20 63 6f | 6e 74 65 6e 74 73 20 6c |uffer co|ntents l|
|00003c70| 69 6e 65 2d 62 79 2d 6c | 69 6e 65 2e 20 22 0a 58 |ine-by-l|ine. ".X|
|00003c80| 29 0a 58 0a 58 28 64 65 | 66 76 61 72 20 74 73 74 |).X.X(de|fvar tst|
|00003c90| 2d 65 71 75 2d 73 74 61 | 74 65 2d 66 75 6e 63 74 |-equ-sta|te-funct|
|00003ca0| 69 6f 6e 73 20 27 28 74 | 73 74 2d 65 71 75 2d 73 |ions '(t|st-equ-s|
|00003cb0| 65 73 73 69 6f 6e 0a 58 | 09 09 09 09 09 20 20 74 |ession.X|..... t|
|00003cc0| 73 74 2d 65 71 75 2d 62 | 75 66 66 65 72 73 20 0a |st-equ-b|uffers .|
|00003cd0| 58 09 09 09 09 09 20 20 | 74 73 74 2d 65 71 75 2d |X..... |tst-equ-|
|00003ce0| 70 72 6f 63 65 73 73 65 | 73 0a 58 09 09 09 09 09 |processe|s.X.....|
|00003cf0| 20 20 74 73 74 2d 65 71 | 75 2d 77 69 6e 64 6f 77 | tst-eq|u-window|
|00003d00| 73 29 0a 58 20 20 22 2a | 20 41 20 6c 69 73 74 20 |s).X "*| A list |
|00003d10| 6f 66 20 66 75 6e 63 74 | 69 6f 6e 73 20 74 6f 20 |of funct|ions to |
|00003d20| 62 65 20 65 78 65 63 75 | 74 65 64 20 77 68 65 6e |be execu|ted when|
|00003d30| 20 63 6f 6d 70 61 72 69 | 6e 67 20 6f 62 6a 65 63 | compari|ng objec|
|00003d40| 74 73 0a 58 20 20 20 20 | 20 6f 66 20 74 79 70 65 |ts.X | of type|
|00003d50| 20 73 74 61 74 65 2e 22 | 0a 58 29 0a 58 0a 58 28 | state."|.X).X.X(|
|00003d60| 64 65 66 76 61 72 20 74 | 73 74 2d 65 71 75 2d 62 |defvar t|st-equ-b|
|00003d70| 75 66 66 2d 73 74 61 74 | 65 2d 66 75 6e 63 74 69 |uff-stat|e-functi|
|00003d80| 6f 6e 73 20 27 28 74 73 | 74 2d 65 71 75 2d 70 6f |ons '(ts|t-equ-po|
|00003d90| 69 6e 74 20 0a 58 09 09 | 09 09 20 20 74 73 74 2d |int .X..|.. tst-|
|00003da0| 65 71 75 2d 6d 61 72 6b | 0a 58 09 09 09 09 20 20 |equ-mark|.X.... |
|00003db0| 74 73 74 2d 65 71 75 2d | 63 6f 6e 74 65 6e 74 73 |tst-equ-|contents|
|00003dc0| 0a 58 09 09 09 09 20 20 | 74 73 74 2d 65 71 75 2d |.X.... |tst-equ-|
|00003dd0| 6d 6f 64 69 66 69 65 64 | 0a 58 09 09 09 09 20 20 |modified|.X.... |
|00003de0| 74 73 74 2d 65 71 75 2d | 66 69 6c 65 20 0a 58 09 |tst-equ-|file .X.|
|00003df0| 09 09 09 20 20 74 73 74 | 2d 65 71 75 2d 6c 6f 63 |... tst|-equ-loc|
|00003e00| 61 6c 2d 76 61 72 73 29 | 0a 58 20 20 22 2a 20 41 |al-vars)|.X "* A|
|00003e10| 20 6c 69 73 74 20 6f 66 | 20 66 75 6e 63 74 69 6f | list of| functio|
|00003e20| 6e 73 20 74 6f 20 62 65 | 20 65 78 65 63 75 74 65 |ns to be| execute|
|00003e30| 64 20 77 68 65 6e 20 63 | 6f 6d 70 61 72 69 6e 67 |d when c|omparing|
|00003e40| 20 6f 62 6a 65 63 74 73 | 0a 58 20 20 20 20 20 6f | objects|.X o|
|00003e50| 66 20 74 79 70 65 20 62 | 75 66 66 65 72 2d 73 74 |f type b|uffer-st|
|00003e60| 61 74 65 2e 22 0a 58 29 | 0a 58 0a 58 28 64 65 66 |ate.".X)|.X.X(def|
|00003e70| 63 6f 6e 73 74 20 74 73 | 74 2d 65 71 75 2d 69 6e |const ts|t-equ-in|
|00003e80| 64 65 6e 74 20 33 29 0a | 58 0a 58 28 64 65 66 6d |dent 3).|X.X(defm|
|00003e90| 61 63 72 6f 20 74 73 74 | 2d 65 71 75 2d 6c 65 76 |acro tst|-equ-lev|
|00003ea0| 65 6c 31 20 28 29 0a 58 | 20 28 69 6e 73 65 72 74 |el1 ().X| (insert|
|00003eb0| 20 22 2a 22 29 20 28 69 | 6e 64 65 6e 74 2d 74 6f | "*") (i|ndent-to|
|00003ec0| 20 74 73 74 2d 65 71 75 | 2d 69 6e 64 65 6e 74 29 | tst-equ|-indent)|
|00003ed0| 29 0a 58 0a 58 28 64 65 | 66 6d 61 63 72 6f 20 74 |).X.X(de|fmacro t|
|00003ee0| 73 74 2d 65 71 75 2d 6c | 65 76 65 6c 32 20 28 29 |st-equ-l|evel2 ()|
|00003ef0| 0a 58 20 20 28 69 6e 73 | 65 72 74 20 22 2a 2a 22 |.X (ins|ert "**"|
|00003f00| 29 20 28 69 6e 64 65 6e | 74 2d 74 6f 20 28 2a 20 |) (inden|t-to (* |
|00003f10| 74 73 74 2d 65 71 75 2d | 69 6e 64 65 6e 74 20 32 |tst-equ-|indent 2|
|00003f20| 29 29 29 0a 58 0a 58 28 | 64 65 66 6d 61 63 72 6f |))).X.X(|defmacro|
|00003f30| 20 74 73 74 2d 65 71 75 | 2d 6c 65 76 65 6c 33 20 | tst-equ|-level3 |
|00003f40| 28 29 0a 58 20 20 28 69 | 6e 73 65 72 74 20 22 2a |().X (i|nsert "*|
|00003f50| 2a 2a 22 29 20 28 69 6e | 64 65 6e 74 2d 74 6f 20 |**") (in|dent-to |
|00003f60| 28 2a 20 74 73 74 2d 65 | 71 75 2d 69 6e 64 65 6e |(* tst-e|qu-inden|
|00003f70| 74 20 33 29 29 29 0a 58 | 0a 58 28 64 65 66 6d 61 |t 3))).X|.X(defma|
|00003f80| 63 72 6f 20 74 73 74 2d | 65 71 75 2d 6c 65 76 65 |cro tst-|equ-leve|
|00003f90| 6c 34 20 28 29 0a 58 20 | 20 28 69 6e 73 65 72 74 |l4 ().X | (insert|
|00003fa0| 20 22 2a 2a 2a 2a 22 29 | 20 28 69 6e 64 65 6e 74 | "****")| (indent|
|00003fb0| 2d 74 6f 20 28 2a 20 74 | 73 74 2d 65 71 75 2d 69 |-to (* t|st-equ-i|
|00003fc0| 6e 64 65 6e 74 20 34 29 | 29 29 0a 58 0a 58 28 64 |ndent 4)|)).X.X(d|
|00003fd0| 65 66 6d 61 63 72 6f 20 | 74 73 74 2d 65 71 75 2d |efmacro |tst-equ-|
|00003fe0| 6c 65 76 65 6c 35 20 28 | 29 0a 58 20 20 28 69 6e |level5 (|).X (in|
|00003ff0| 73 65 72 74 20 22 2a 2a | 2a 2a 2a 22 29 20 28 69 |sert "**|***") (i|
|00004000| 6e 64 65 6e 74 2d 74 6f | 20 28 2a 20 74 73 74 2d |ndent-to| (* tst-|
|00004010| 65 71 75 2d 69 6e 64 65 | 6e 74 20 35 29 29 29 0a |equ-inde|nt 5))).|
|00004020| 58 0a 58 28 64 65 66 6d | 61 63 72 6f 20 74 73 74 |X.X(defm|acro tst|
|00004030| 2d 65 71 75 2d 6c 65 76 | 65 6c 36 20 28 29 0a 58 |-equ-lev|el6 ().X|
|00004040| 20 20 28 69 6e 73 65 72 | 74 20 22 2a 2a 2a 2a 2a | (inser|t "*****|
|00004050| 2a 22 29 20 28 69 6e 64 | 65 6e 74 2d 74 6f 20 28 |*") (ind|ent-to (|
|00004060| 2a 20 74 73 74 2d 65 71 | 75 2d 69 6e 64 65 6e 74 |* tst-eq|u-indent|
|00004070| 20 36 29 29 29 0a 58 0a | 58 28 64 65 66 6d 61 63 | 6))).X.|X(defmac|
|00004080| 72 6f 20 74 73 74 2d 65 | 71 75 2d 6c 65 76 65 6c |ro tst-e|qu-level|
|00004090| 37 20 28 29 0a 58 20 20 | 28 69 6e 73 65 72 74 20 |7 ().X |(insert |
|000040a0| 22 2a 2a 2a 2a 2a 2a 2a | 22 29 20 20 28 69 6e 64 |"*******|") (ind|
|000040b0| 65 6e 74 2d 74 6f 20 28 | 2a 20 74 73 74 2d 65 71 |ent-to (|* tst-eq|
|000040c0| 75 2d 69 6e 64 65 6e 74 | 20 37 29 29 29 0a 58 0a |u-indent| 7))).X.|
|000040d0| 58 28 64 65 66 6d 61 63 | 72 6f 20 74 73 74 2d 65 |X(defmac|ro tst-e|
|000040e0| 71 75 2d 6c 65 76 65 6c | 38 20 28 29 0a 58 20 20 |qu-level|8 ().X |
|000040f0| 28 69 6e 73 65 72 74 20 | 22 2a 2a 2a 2a 2a 2a 2a |(insert |"*******|
|00004100| 2a 22 29 20 20 28 69 6e | 64 65 6e 74 2d 74 6f 20 |*") (in|dent-to |
|00004110| 28 2a 20 74 73 74 2d 65 | 71 75 2d 69 6e 64 65 6e |(* tst-e|qu-inden|
|00004120| 74 20 38 29 29 29 0a 58 | 0a 58 28 64 65 66 6d 61 |t 8))).X|.X(defma|
|00004130| 63 72 6f 20 74 73 74 2d | 65 71 75 2d 6c 65 76 65 |cro tst-|equ-leve|
|00004140| 6c 39 20 28 29 0a 58 20 | 20 28 69 6e 73 65 72 74 |l9 ().X | (insert|
|00004150| 20 22 2a 2a 2a 2a 2a 2a | 2a 2a 2a 22 29 20 20 28 | "******|***") (|
|00004160| 69 6e 64 65 6e 74 2d 74 | 6f 20 28 2a 20 74 73 74 |indent-t|o (* tst|
|00004170| 2d 65 71 75 2d 69 6e 64 | 65 6e 74 20 39 29 29 29 |-equ-ind|ent 9)))|
|00004180| 0a 58 0a 58 0a 58 3b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |.X.X.X;+|++++++++|
|00004190| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|000041a0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|000041b0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|000041c0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 0a 58 3b 20 20 20 |++++++++|++.X; |
|000041d0| 41 20 6e 75 6d 62 65 72 | 20 6f 66 20 65 71 75 61 |A number| of equa|
|000041e0| 6c 69 74 79 20 74 65 73 | 74 69 6e 67 20 66 75 6e |lity tes|ting fun|
|000041f0| 63 74 69 6f 6e 73 20 66 | 6f 6c 6c 6f 77 2e 20 45 |ctions f|ollow. E|
|00004200| 61 63 68 20 69 73 20 6f | 66 20 74 68 65 0a 58 3b |ach is o|f the.X;|
|00004210| 20 20 20 66 6f 72 6d 20 | 74 73 74 2d 65 71 75 2d | form |tst-equ-|
|00004220| 73 74 61 74 65 2d 63 6f | 6d 70 6f 6e 65 6e 74 20 |state-co|mponent |
|00004230| 28 73 74 61 74 65 31 20 | 73 74 61 74 65 32 29 2e |(state1 |state2).|
|00004240| 20 45 61 63 68 20 63 6f | 6d 70 61 72 65 73 20 61 | Each co|mpares a|
|00004250| 20 70 61 72 74 69 63 75 | 6c 61 72 0a 58 3b 20 20 | particu|lar.X; |
|00004260| 20 63 6f 6d 70 6f 6e 65 | 6e 74 20 66 72 6f 6d 20 | compone|nt from |
|00004270| 74 68 65 20 74 77 6f 20 | 73 74 61 74 65 73 20 61 |the two |states a|
|00004280| 6e 64 20 72 65 74 75 72 | 6e 73 20 74 20 69 66 20 |nd retur|ns t if |
|00004290| 65 71 75 61 6c 2c 20 65 | 6c 73 65 20 6e 69 6c 2e |equal, e|lse nil.|
|000042a0| 0a 58 3b 20 20 20 41 73 | 20 61 20 73 69 64 65 20 |.X; As| a side |
|000042b0| 65 66 66 65 63 74 20 74 | 68 65 20 62 75 66 66 65 |effect t|he buffe|
|000042c0| 72 20 2a 65 71 75 61 6c | 2d 6c 6f 67 2a 20 69 73 |r *equal|-log* is|
|000042d0| 20 75 70 64 61 74 65 64 | 20 77 69 74 68 20 74 68 | updated| with th|
|000042e0| 65 20 72 65 73 75 6c 74 | 73 0a 58 3b 20 20 20 6f |e result|s.X; o|
|000042f0| 66 20 74 68 65 20 63 6f | 6d 70 61 72 69 73 6f 6e |f the co|mparison|
|00004300| 0a 58 3b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |.X;+++++|++++++++|
|00004310| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00004320| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00004330| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00004340| 2b 2b 2b 2b 2b 2b 0a 58 | 0a 58 3b 2b 2b 2b 2b 2b |++++++.X|.X;+++++|
|00004350| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00004360| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00004370| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00004380| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 0a 58 |++++++++|++++++.X|
|00004390| 0a 58 28 64 65 66 75 6e | 20 74 73 74 2d 65 71 75 |.X(defun| tst-equ|
|000043a0| 2d 73 74 61 74 65 20 28 | 74 73 74 2d 65 71 75 2d |-state (|tst-equ-|
|000043b0| 73 74 61 74 65 31 20 74 | 73 74 2d 65 71 75 2d 73 |state1 t|st-equ-s|
|000043c0| 74 61 74 65 32 20 6e 61 | 6d 65 29 0a 58 20 20 22 |tate2 na|me).X "|
|000043d0| 43 6f 6d 70 61 72 65 73 | 20 66 6f 72 20 65 71 75 |Compares| for equ|
|000043e0| 61 6c 69 74 79 20 74 68 | 65 20 63 6f 6d 70 6c 65 |ality th|e comple|
|000043f0| 74 65 20 73 74 61 74 65 | 20 6f 66 20 61 20 70 61 |te state| of a pa|
|00004400| 69 72 20 6f 66 20 73 65 | 73 73 69 6f 6e 73 2e 0a |ir of se|ssions..|
|00004410| 58 20 20 20 54 68 65 20 | 74 77 6f 20 70 61 72 61 |X The |two para|
|00004420| 6d 65 74 65 72 73 20 53 | 54 41 54 45 31 20 61 6e |meters S|TATE1 an|
|00004430| 64 20 53 54 41 54 45 32 | 20 6d 75 73 74 20 62 65 |d STATE2| must be|
|00004440| 20 63 6f 6d 70 6c 65 74 | 65 20 73 74 61 74 65 73 | complet|e states|
|00004450| 0a 58 20 20 20 61 73 20 | 72 65 74 75 72 6e 65 64 |.X as |returned|
|00004460| 20 62 79 20 74 73 74 2d | 72 65 67 2d 63 61 70 74 | by tst-|reg-capt|
|00004470| 75 72 65 2d 73 74 61 74 | 65 2e 20 54 68 65 20 72 |ure-stat|e. The r|
|00004480| 65 73 75 6c 74 73 20 6f | 66 20 74 68 65 20 63 6f |esults o|f the co|
|00004490| 6d 70 61 72 69 73 6f 6e | 0a 58 20 20 20 61 72 65 |mparison|.X are|
|000044a0| 20 77 72 69 74 74 65 6e | 20 69 6e 74 6f 20 62 75 | written| into bu|
|000044b0| 66 66 65 72 20 2a 65 71 | 75 61 6c 2d 6c 6f 67 2a |ffer *eq|ual-log*|
|000044c0| 2e 20 4e 41 4d 45 20 69 | 73 20 75 73 65 64 20 74 |. NAME i|s used t|
|000044d0| 6f 20 69 64 65 6e 74 69 | 66 79 20 74 68 65 20 74 |o identi|fy the t|
|000044e0| 65 73 74 2e 0a 58 20 20 | 20 46 6f 75 72 20 6d 61 |est..X | Four ma|
|000044f0| 6a 6f 72 20 63 6f 6d 70 | 6f 6e 65 6e 74 73 20 61 |jor comp|onents a|
|00004500| 72 65 20 63 6f 6d 70 61 | 72 65 64 3a 20 73 65 73 |re compa|red: ses|
|00004510| 73 69 6f 6e 2c 20 62 75 | 66 66 65 72 73 2c 20 77 |sion, bu|ffers, w|
|00004520| 69 6e 64 6f 77 73 2c 20 | 61 6e 64 0a 58 20 20 20 |indows, |and.X |
|00004530| 70 72 6f 63 65 73 73 65 | 73 2e 20 22 0a 58 0a 58 |processe|s. ".X.X|
|00004540| 20 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 | (inter|active "|
|00004550| 58 53 74 61 74 65 20 76 | 61 72 69 61 62 6c 65 20 |XState v|ariable |
|00004560| 31 3a 0a 58 58 53 74 61 | 74 65 20 76 61 72 69 61 |1:.XXSta|te varia|
|00004570| 62 6c 65 20 32 3a 0a 58 | 73 4e 61 6d 65 20 6f 66 |ble 2:.X|sName of|
|00004580| 20 74 68 69 73 20 74 65 | 73 74 3a 22 29 0a 58 0a | this te|st:").X.|
|00004590| 58 0a 58 20 20 28 6c 65 | 74 20 28 73 73 2d 66 75 |X.X (le|t (ss-fu|
|000045a0| 6e 2d 76 65 63 74 6f 72 | 20 66 75 6e 63 74 69 6f |n-vector| functio|
|000045b0| 6e 2d 6e 61 6d 65 20 74 | 73 74 2d 65 71 75 2d 72 |n-name t|st-equ-r|
|000045c0| 65 73 75 6c 74 20 74 73 | 74 2d 65 71 75 2d 73 74 |esult ts|t-equ-st|
|000045d0| 61 72 74 70 6f 69 6e 74 | 20 74 65 6d 70 70 6f 69 |artpoint| temppoi|
|000045e0| 6e 74 29 0a 58 0a 58 20 | 20 20 20 28 6d 65 73 73 |nt).X.X | (mess|
|000045f0| 61 67 65 20 22 43 6f 6d | 70 61 72 69 6e 67 20 73 |age "Com|paring s|
|00004600| 74 61 74 65 73 2e 2e 2e | 22 29 0a 58 20 20 20 20 |tates...|").X |
|00004610| 28 73 65 74 71 20 73 73 | 2d 66 75 6e 2d 76 65 63 |(setq ss|-fun-vec|
|00004620| 74 6f 72 20 74 73 74 2d | 65 71 75 2d 73 74 61 74 |tor tst-|equ-stat|
|00004630| 65 2d 66 75 6e 63 74 69 | 6f 6e 73 29 0a 58 20 20 |e-functi|ons).X |
|00004640| 20 20 28 73 65 74 71 20 | 74 73 74 2d 65 71 75 2d | (setq |tst-equ-|
|00004650| 72 65 73 75 6c 74 20 74 | 29 3b 20 6c 65 74 27 73 |result t|); let's|
|00004660| 20 62 65 20 6f 70 74 6f | 6d 69 73 74 69 63 0a 58 | be opto|mistic.X|
|00004670| 0a 58 20 20 20 20 3b 20 | 73 65 74 20 75 70 20 74 |.X ; |set up t|
|00004680| 68 65 20 6c 6f 67 20 62 | 75 66 66 65 72 0a 58 20 |he log b|uffer.X |
|00004690| 20 20 20 28 67 65 74 2d | 62 75 66 66 65 72 2d 63 | (get-|buffer-c|
|000046a0| 72 65 61 74 65 20 22 2a | 65 71 75 61 6c 2d 6c 6f |reate "*|equal-lo|
|000046b0| 67 2a 22 29 0a 58 20 20 | 20 20 28 73 65 74 2d 62 |g*").X | (set-b|
|000046c0| 75 66 66 65 72 20 22 2a | 65 71 75 61 6c 2d 6c 6f |uffer "*|equal-lo|
|000046d0| 67 2a 22 29 0a 58 09 28 | 6f 75 74 6c 69 6e 65 2d |g*").X.(|outline-|
|000046e0| 6d 6f 64 65 29 0a 58 20 | 20 20 20 28 74 73 74 2d |mode).X | (tst-|
|000046f0| 65 71 75 2d 6c 65 76 65 | 6c 31 29 0a 58 09 28 73 |equ-leve|l1).X.(s|
|00004700| 65 74 71 20 74 73 74 2d | 65 71 75 2d 73 74 61 72 |etq tst-|equ-star|
|00004710| 74 70 6f 69 6e 74 20 28 | 70 6f 69 6e 74 29 29 09 |tpoint (|point)).|
|00004720| 3b 73 61 76 65 20 22 68 | 65 72 65 22 0a 58 20 20 |;save "h|ere".X |
|00004730| 20 20 28 69 6e 73 65 72 | 74 20 22 53 74 61 74 65 | (inser|t "State|
|00004740| 20 63 6f 6d 70 61 72 69 | 73 6f 6e 3a 20 22 20 6e | compari|son: " n|
|00004750| 61 6d 65 29 0a 58 20 20 | 20 20 28 6e 65 77 6c 69 |ame).X | (newli|
|00004760| 6e 65 29 0a 58 20 20 20 | 20 28 6e 65 77 6c 69 6e |ne).X | (newlin|
|00004770| 65 29 0a 58 0a 58 20 20 | 20 20 28 77 68 69 6c 65 |e).X.X | (while|
|00004780| 20 73 73 2d 66 75 6e 2d | 76 65 63 74 6f 72 0a 58 | ss-fun-|vector.X|
|00004790| 20 20 20 20 20 20 28 70 | 72 6f 67 6e 0a 58 09 28 | (p|rogn.X.(|
|000047a0| 73 65 74 71 20 66 75 6e | 63 74 69 6f 6e 2d 6e 61 |setq fun|ction-na|
|000047b0| 6d 65 20 28 63 61 72 20 | 73 73 2d 66 75 6e 2d 76 |me (car |ss-fun-v|
|000047c0| 65 63 74 6f 72 29 29 0a | 58 09 28 73 65 74 71 20 |ector)).|X.(setq |
|000047d0| 73 73 2d 66 75 6e 2d 76 | 65 63 74 6f 72 20 28 63 |ss-fun-v|ector (c|
|000047e0| 64 72 20 73 73 2d 66 75 | 6e 2d 76 65 63 74 6f 72 |dr ss-fu|n-vector|
|000047f0| 29 29 0a 58 09 28 6e 65 | 77 6c 69 6e 65 29 0a 58 |)).X.(ne|wline).X|
|00004800| 3b 3b 3b 09 28 69 6e 73 | 65 72 74 20 22 20 20 22 |;;;.(ins|ert " "|
|00004810| 20 28 70 72 69 6e 31 2d | 74 6f 2d 73 74 72 69 6e | (prin1-|to-strin|
|00004820| 67 20 66 75 6e 63 74 69 | 6f 6e 2d 6e 61 6d 65 29 |g functi|on-name)|
|00004830| 29 0a 58 09 28 6e 65 77 | 6c 69 6e 65 29 0a 58 09 |).X.(new|line).X.|
|00004840| 28 69 66 20 28 6e 6f 74 | 20 28 66 75 6e 63 61 6c |(if (not| (funcal|
|00004850| 6c 20 66 75 6e 63 74 69 | 6f 6e 2d 6e 61 6d 65 20 |l functi|on-name |
|00004860| 74 73 74 2d 65 71 75 2d | 73 74 61 74 65 31 20 74 |tst-equ-|state1 t|
|00004870| 73 74 2d 65 71 75 2d 73 | 74 61 74 65 32 29 29 0a |st-equ-s|tate2)).|
|00004880| 58 09 20 20 20 20 28 73 | 65 74 71 20 74 73 74 2d |X. (s|etq tst-|
|00004890| 65 71 75 2d 72 65 73 75 | 6c 74 20 6e 69 6c 29 3b |equ-resu|lt nil);|
|000048a0| 20 73 65 74 20 72 65 74 | 75 72 6e 20 76 61 6c 75 | set ret|urn valu|
|000048b0| 65 20 69 66 20 66 61 69 | 6c 65 64 0a 58 09 20 20 |e if fai|led.X. |
|000048c0| 29 3b 20 66 69 0a 58 09 | 29 3b 20 6e 67 72 6f 70 |); fi.X.|); ngrop|
|000048d0| 0a 58 20 20 20 20 20 20 | 29 3b 20 65 6c 69 68 77 |.X |); elihw|
|000048e0| 0a 58 0a 58 20 20 20 20 | 3b 20 69 66 20 77 65 20 |.X.X |; if we |
|000048f0| 66 61 69 6c 65 64 20 61 | 6e 64 20 61 20 68 6f 6f |failed a|nd a hoo|
|00004900| 6b 20 65 78 69 73 74 20 | 74 68 65 6e 20 72 75 6e |k exist |then run|
|00004910| 20 69 6f 74 0a 58 20 20 | 20 20 28 69 66 20 28 61 | iot.X | (if (a|
|00004920| 6e 64 20 28 6e 6f 74 20 | 74 73 74 2d 65 71 75 2d |nd (not |tst-equ-|
|00004930| 72 65 73 75 6c 74 29 20 | 27 74 73 74 2d 65 71 75 |result) |'tst-equ|
|00004940| 2d 73 74 61 74 65 2d 68 | 6f 6f 6b 29 0a 58 09 09 |-state-h|ook).X..|
|00004950| 20 20 20 28 72 75 6e 2d | 68 6f 6f 6b 73 20 27 74 | (run-|hooks 't|
|00004960| 73 74 2d 65 71 75 2d 73 | 74 61 74 65 2d 68 6f 6f |st-equ-s|tate-hoo|
|00004970| 6b 29 29 0a 58 0a 58 09 | 28 69 66 20 28 6e 6f 74 |k)).X.X.|(if (not|
|00004980| 20 74 73 74 2d 65 71 75 | 2d 72 65 73 75 6c 74 29 | tst-equ|-result)|
|00004990| 0a 58 09 09 28 70 72 6f | 67 6e 0a 58 09 09 20 20 |.X..(pro|gn.X.. |
|000049a0| 28 73 65 74 71 20 74 65 | 6d 70 70 6f 69 6e 74 20 |(setq te|mppoint |
|000049b0| 28 70 6f 69 6e 74 29 29 | 0a 58 09 09 20 20 28 67 |(point))|.X.. (g|
|000049c0| 6f 74 6f 2d 63 68 61 72 | 20 74 73 74 2d 65 71 75 |oto-char| tst-equ|
|000049d0| 2d 73 74 61 72 74 70 6f | 69 6e 74 29 0a 58 09 09 |-startpo|int).X..|
|000049e0| 20 20 28 69 6e 73 65 72 | 74 20 22 3f 22 29 0a 58 | (inser|t "?").X|
|000049f0| 09 09 20 20 28 67 6f 74 | 6f 2d 63 68 61 72 20 28 |.. (got|o-char (|
|00004a00| 31 2b 20 74 65 6d 70 70 | 6f 69 6e 74 29 29 0a 58 |1+ tempp|oint)).X|
|00004a10| 09 09 20 20 29 3b 20 6e | 67 6f 72 70 0a 58 09 20 |.. ); n|gorp.X. |
|00004a20| 20 29 3b 66 69 0a 58 20 | 20 20 20 28 6d 65 73 73 | );fi.X | (mess|
|00004a30| 61 67 65 20 22 43 6f 6d | 70 61 72 69 6e 67 20 73 |age "Com|paring s|
|00004a40| 74 61 74 65 73 2e 2e 2e | 20 64 6f 6e 65 22 29 0a |tates...| done").|
|00004a50| 58 20 20 20 20 74 73 74 | 2d 65 71 75 2d 72 65 73 |X tst|-equ-res|
|00004a60| 75 6c 74 0a 58 20 20 20 | 20 29 3b 20 74 65 6c 0a |ult.X | ); tel.|
|00004a70| 58 29 3b 20 6e 75 66 65 | 64 20 74 73 74 2d 65 71 |X); nufe|d tst-eq|
|00004a80| 75 2d 73 74 61 74 65 0a | 58 0a 58 28 64 65 66 75 |u-state.|X.X(defu|
|00004a90| 6e 20 74 73 74 2d 65 71 | 75 2d 73 65 73 73 69 6f |n tst-eq|u-sessio|
|00004aa0| 6e 20 28 73 74 61 74 65 | 31 20 73 74 61 74 65 32 |n (state|1 state2|
|00004ab0| 29 0a 58 20 20 20 22 43 | 6f 6d 70 61 72 65 73 20 |).X "C|ompares |
|00004ac0| 74 68 65 20 73 65 73 73 | 69 6f 6e 20 63 6f 6d 70 |the sess|ion comp|
|00004ad0| 6f 6e 65 6e 74 73 20 66 | 72 6f 6d 20 74 77 6f 20 |onents f|rom two |
|00004ae0| 73 74 61 74 65 73 2e 20 | 54 68 65 0a 58 20 20 20 |states. |The.X |
|00004af0| 74 77 6f 20 70 61 72 61 | 6d 65 74 65 72 73 20 53 |two para|meters S|
|00004b00| 54 41 54 45 31 20 61 6e | 64 20 53 54 41 54 45 32 |TATE1 an|d STATE2|
|00004b10| 20 6d 75 73 74 20 62 65 | 20 63 6f 6d 70 6c 65 74 | must be| complet|
|00004b20| 65 20 73 74 61 74 65 73 | 0a 58 20 20 20 61 73 20 |e states|.X as |
|00004b30| 72 65 74 75 72 6e 65 64 | 20 62 79 20 74 73 74 2d |returned| by tst-|
|00004b40| 72 65 67 2d 63 61 70 74 | 75 72 65 2d 73 74 61 74 |reg-capt|ure-stat|
|00004b50| 65 2e 20 54 68 65 20 73 | 65 73 73 69 6f 6e 20 63 |e. The s|ession c|
|00004b60| 6f 6d 70 6f 6e 65 6e 74 | 73 0a 58 20 20 20 69 6e |omponent|s.X in|
|00004b70| 63 6c 75 64 65 3a 20 67 | 6c 6f 62 61 6c 2d 62 6f |clude: g|lobal-bo|
|00004b80| 75 6e 64 2d 73 79 6d 73 | 2e 20 22 0a 58 0a 58 20 |und-syms|. ".X.X |
|00004b90| 20 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 | (inter|active "|
|00004ba0| 50 22 29 0a 58 0a 58 20 | 20 20 28 6c 65 74 20 28 |P").X.X | (let (|
|00004bb0| 73 65 73 73 31 20 73 65 | 73 73 32 20 73 79 6d 73 |sess1 se|ss2 syms|
|00004bc0| 31 20 73 79 6d 73 32 20 | 73 73 2d 73 74 61 72 74 |1 syms2 |ss-start|
|00004bd0| 70 6f 69 6e 74 20 73 73 | 2d 67 73 2d 73 74 61 72 |point ss|-gs-star|
|00004be0| 74 70 6f 69 6e 74 20 74 | 65 6d 70 70 6f 69 6e 74 |tpoint t|emppoint|
|00004bf0| 20 65 6c 31 20 65 6c 32 | 29 0a 58 20 20 20 20 28 | el1 el2|).X (|
|00004c00| 6d 65 73 73 61 67 65 20 | 22 43 6f 6d 70 61 72 69 |message |"Compari|
|00004c10| 6e 67 20 73 74 61 74 65 | 20 6f 66 20 73 65 73 73 |ng state| of sess|
|00004c20| 69 6f 6e 73 2e 2e 2e 22 | 29 0a 58 0a 58 20 20 20 |ions..."|).X.X |
|00004c30| 20 28 67 6f 74 6f 2d 63 | 68 61 72 20 28 70 6f 69 | (goto-c|har (poi|
|00004c40| 6e 74 2d 6d 61 78 29 29 | 09 09 3b 20 2e 2e 20 6f |nt-max))|..; .. o|
|00004c50| 66 20 6f 75 74 70 75 74 | 20 62 75 66 66 65 72 0a |f output| buffer.|
|00004c60| 58 20 20 20 20 28 74 73 | 74 2d 65 71 75 2d 6c 65 |X (ts|t-equ-le|
|00004c70| 76 65 6c 32 29 0a 58 09 | 28 73 65 74 71 20 73 73 |vel2).X.|(setq ss|
|00004c80| 2d 73 74 61 72 74 70 6f | 69 6e 74 20 28 70 6f 69 |-startpo|int (poi|
|00004c90| 6e 74 29 29 0a 58 09 28 | 69 6e 73 65 72 74 20 22 |nt)).X.(|insert "|
|00004ca0| 53 65 73 73 69 6f 6e 73 | 20 73 74 61 74 65 22 29 |Sessions| state")|
|00004cb0| 0a 58 09 28 6e 65 77 6c | 69 6e 65 29 0a 58 0a 58 |.X.(newl|ine).X.X|
|00004cc0| 09 28 73 65 74 71 20 73 | 65 73 73 31 20 28 63 61 |.(setq s|ess1 (ca|
|00004cd0| 64 72 20 28 61 73 73 6f | 63 20 27 73 65 73 73 69 |dr (asso|c 'sessi|
|00004ce0| 6f 6e 20 73 74 61 74 65 | 31 29 29 29 0a 58 09 28 |on state|1))).X.(|
|00004cf0| 73 65 74 71 20 73 65 73 | 73 32 20 28 63 61 64 72 |setq ses|s2 (cadr|
|00004d00| 20 28 61 73 73 6f 63 20 | 27 73 65 73 73 69 6f 6e | (assoc |'session|
|00004d10| 20 73 74 61 74 65 32 29 | 29 29 0a 58 09 0a 58 20 | state2)|)).X..X |
|00004d20| 20 20 20 28 74 73 74 2d | 65 71 75 2d 6c 65 76 65 | (tst-|equ-leve|
|00004d30| 6c 33 29 0a 58 09 28 73 | 65 74 71 20 73 73 2d 67 |l3).X.(s|etq ss-g|
|00004d40| 73 2d 73 74 61 72 74 70 | 6f 69 6e 74 20 28 70 6f |s-startp|oint (po|
|00004d50| 69 6e 74 29 29 0a 58 09 | 28 69 6e 73 65 72 74 20 |int)).X.|(insert |
|00004d60| 22 47 6c 6f 62 61 6c 20 | 73 79 6d 62 6f 6c 73 22 |"Global |symbols"|
|00004d70| 29 0a 58 09 28 6e 65 77 | 6c 69 6e 65 29 0a 58 0a |).X.(new|line).X.|
|00004d80| 58 09 28 73 65 74 71 20 | 73 79 6d 73 31 20 28 63 |X.(setq |syms1 (c|
|00004d90| 61 64 72 20 28 61 73 73 | 6f 63 20 27 67 6c 6f 62 |adr (ass|oc 'glob|
|00004da0| 61 6c 2d 62 6f 75 6e 64 | 2d 73 79 6d 73 20 73 65 |al-bound|-syms se|
|00004db0| 73 73 31 29 29 29 0a 58 | 09 28 73 65 74 71 20 73 |ss1))).X|.(setq s|
|00004dc0| 79 6d 73 32 20 28 63 61 | 64 72 20 28 61 73 73 6f |yms2 (ca|dr (asso|
|00004dd0| 63 20 27 67 6c 6f 62 61 | 6c 2d 62 6f 75 6e 64 2d |c 'globa|l-bound-|
|00004de0| 73 79 6d 73 20 73 65 73 | 73 32 29 29 29 0a 58 09 |syms ses|s2))).X.|
|00004df0| 28 69 66 20 28 6e 6f 74 | 20 28 73 65 74 71 20 74 |(if (not| (setq t|
|00004e00| 73 74 2d 65 71 75 2d 72 | 65 73 75 6c 74 20 28 65 |st-equ-r|esult (e|
|00004e10| 71 75 61 6c 20 73 79 6d | 73 31 20 73 79 6d 73 32 |qual sym|s1 syms2|
|00004e20| 29 29 29 0a 58 09 20 20 | 20 20 28 70 72 6f 67 6e |))).X. | (progn|
|00004e30| 0a 58 09 20 20 20 20 20 | 20 28 77 68 69 6c 65 20 |.X. | (while |
|00004e40| 28 61 6e 64 20 73 79 6d | 73 31 20 73 79 6d 73 32 |(and sym|s1 syms2|
|00004e50| 29 0a 58 09 09 09 28 73 | 65 74 71 20 65 6c 31 20 |).X...(s|etq el1 |
|00004e60| 28 63 61 72 20 73 79 6d | 73 31 29 29 0a 58 09 09 |(car sym|s1)).X..|
|00004e70| 09 28 73 65 74 71 20 73 | 79 6d 73 31 20 28 63 64 |.(setq s|yms1 (cd|
|00004e80| 72 20 73 79 6d 73 31 29 | 29 0a 58 09 09 09 28 73 |r syms1)|).X...(s|
|00004e90| 65 74 71 20 65 6c 32 20 | 28 61 73 73 6f 63 20 28 |etq el2 |(assoc (|
|00004ea0| 63 61 72 20 65 6c 31 29 | 20 73 79 6d 73 32 29 29 |car el1)| syms2))|
|00004eb0| 0a 58 09 09 09 3b 3b 09 | 09 28 64 65 62 75 67 20 |.X...;;.|.(debug |
|00004ec0| 22 6e 69 6c 22 20 65 6c | 31 20 65 6c 32 29 0a 58 |"nil" el|1 el2).X|
|00004ed0| 09 09 09 28 69 66 20 65 | 6c 32 0a 58 09 09 09 09 |...(if e|l2.X....|
|00004ee0| 28 73 65 74 71 20 73 79 | 6d 73 32 20 28 64 65 6c |(setq sy|ms2 (del|
|00004ef0| 71 20 65 6c 32 20 73 79 | 6d 73 32 29 29 0a 58 3b |q el2 sy|ms2)).X;|
|00004f00| 3b 09 09 09 09 28 6c 69 | 73 74 20 27 73 65 74 71 |;....(li|st 'setq|
|00004f10| 20 73 79 6d 73 32 20 28 | 6c 69 73 74 20 27 64 65 | syms2 (|list 'de|
|00004f20| 6c 71 20 28 6c 69 73 74 | 20 27 61 73 73 6f 63 20 |lq (list| 'assoc |
|00004f30| 28 63 61 72 20 65 6c 31 | 29 20 73 79 6d 73 32 29 |(car el1|) syms2)|
|00004f40| 20 0a 58 3b 3b 09 09 09 | 09 09 09 09 09 09 09 73 | .X;;...|.......s|
|00004f50| 79 6d 73 32 29 29 0a 58 | 09 09 09 20 20 28 70 72 |yms2)).X|... (pr|
|00004f60| 6f 67 6e 09 09 09 09 09 | 09 3b 65 6c 73 65 20 2e |ogn.....|.;else .|
|00004f70| 2e 0a 58 09 09 09 09 28 | 69 6e 64 65 6e 74 2d 74 |..X....(|indent-t|
|00004f80| 6f 20 28 2a 20 74 73 74 | 2d 65 71 75 2d 69 6e 64 |o (* tst|-equ-ind|
|00004f90| 65 6e 74 20 34 29 29 0a | 58 09 09 09 09 28 69 6e |ent 4)).|X....(in|
|00004fa0| 73 65 72 74 20 22 3f 22 | 29 0a 58 09 09 09 09 28 |sert "?"|).X....(|
|00004fb0| 69 6e 73 65 72 74 20 28 | 70 72 69 6e 31 2d 74 6f |insert (|prin1-to|
|00004fc0| 2d 73 74 72 69 6e 67 20 | 28 63 61 72 20 65 6c 31 |-string |(car el1|
|00004fd0| 29 29 20 22 20 6e 6f 74 | 20 66 6f 75 6e 64 20 69 |)) " not| found i|
|00004fe0| 6e 20 73 65 63 6f 6e 64 | 20 73 74 61 74 65 22 29 |n second| state")|
|00004ff0| 0a 58 09 09 09 09 28 6e | 65 77 6c 69 6e 65 29 0a |.X....(n|ewline).|
|00005000| 58 09 09 09 09 29 3b 20 | 6e 67 6f 72 70 0a 58 09 |X....); |ngorp.X.|
|00005010| 09 09 20 20 29 3b 20 66 | 69 0a 58 09 09 09 28 74 |.. ); f|i.X...(t|
|00005020| 73 74 2d 65 71 75 2d 64 | 69 66 66 2d 65 6c 65 6d |st-equ-d|iff-elem|
|00005030| 65 6e 74 20 65 6c 31 20 | 65 6c 32 29 0a 58 09 09 |ent el1 |el2).X..|
|00005040| 09 29 3b 20 77 6c 69 68 | 77 0a 58 09 09 20 20 28 |.); wlih|w.X.. (|
|00005050| 69 66 20 73 79 6d 73 31 | 0a 58 09 09 09 20 20 28 |if syms1|.X... (|
|00005060| 70 72 6f 67 6e 0a 58 09 | 09 09 09 28 77 68 69 6c |progn.X.|...(whil|
|00005070| 65 20 73 79 6d 73 31 0a | 58 09 09 09 09 20 20 28 |e syms1.|X.... (|
|00005080| 73 65 74 71 20 65 6c 31 | 20 28 63 61 72 20 73 79 |setq el1| (car sy|
|00005090| 6d 73 31 29 29 0a 58 09 | 09 09 09 20 20 28 73 65 |ms1)).X.|... (se|
|000050a0| 74 71 20 73 79 6d 73 31 | 20 28 63 64 72 20 73 79 |tq syms1| (cdr sy|
|000050b0| 6d 73 31 29 29 0a 58 09 | 09 09 09 20 20 28 69 6e |ms1)).X.|... (in|
|000050c0| 64 65 6e 74 2d 74 6f 20 | 28 2a 20 74 73 74 2d 65 |dent-to |(* tst-e|
|000050d0| 71 75 2d 69 6e 64 65 6e | 74 20 34 29 29 0a 58 09 |qu-inden|t 4)).X.|
|000050e0| 09 09 09 20 20 28 69 6e | 73 65 72 74 20 22 3f 22 |... (in|sert "?"|
|000050f0| 29 0a 58 09 09 09 09 20 | 20 28 69 6e 73 65 72 74 |).X.... | (insert|
|00005100| 20 28 70 72 69 6e 31 2d | 74 6f 2d 73 74 72 69 6e | (prin1-|to-strin|
|00005110| 67 20 28 63 61 72 20 65 | 6c 31 29 29 20 22 20 6e |g (car e|l1)) " n|
|00005120| 6f 74 20 66 6f 75 6e 64 | 20 69 6e 20 73 65 63 6f |ot found| in seco|
|00005130| 6e 64 20 73 74 61 74 65 | 22 29 0a 58 09 09 09 09 |nd state|").X....|
|00005140| 20 20 28 6e 65 77 6c 69 | 6e 65 29 0a 58 09 09 09 | (newli|ne).X...|
|00005150| 09 20 20 29 3b 20 65 6c | 69 68 77 0a 58 09 09 09 |. ); el|ihw.X...|
|00005160| 09 29 3b 20 6e 67 6f 72 | 70 0a 58 09 09 09 29 3b |.); ngor|p.X...);|
|00005170| 20 66 69 0a 58 09 09 20 | 20 28 69 66 20 73 79 6d | fi.X.. | (if sym|
|00005180| 73 32 0a 58 09 09 09 20 | 20 28 70 72 6f 67 6e 0a |s2.X... | (progn.|
|00005190| 58 09 09 09 09 28 77 68 | 69 6c 65 20 73 79 6d 73 |X....(wh|ile syms|
|000051a0| 32 0a 58 09 09 09 09 20 | 20 28 73 65 74 71 20 65 |2.X.... | (setq e|
|000051b0| 6c 32 20 28 63 61 72 20 | 73 79 6d 73 32 29 29 0a |l2 (car |syms2)).|
|000051c0| 58 09 09 09 09 20 20 28 | 73 65 74 71 20 73 79 6d |X.... (|setq sym|
|000051d0| 73 32 20 28 63 64 72 20 | 73 79 6d 73 32 29 29 0a |s2 (cdr |syms2)).|
|000051e0| 58 09 09 09 09 20 20 28 | 69 6e 64 65 6e 74 2d 74 |X.... (|indent-t|
|000051f0| 6f 20 28 2a 20 74 73 74 | 2d 65 71 75 2d 69 6e 64 |o (* tst|-equ-ind|
|00005200| 65 6e 74 20 34 29 29 0a | 58 09 09 09 09 20 20 28 |ent 4)).|X.... (|
|00005210| 69 6e 73 65 72 74 20 22 | 3f 22 29 0a 58 09 09 09 |insert "|?").X...|
|00005220| 09 20 20 28 69 6e 73 65 | 72 74 20 28 70 72 69 6e |. (inse|rt (prin|
|00005230| 31 2d 74 6f 2d 73 74 72 | 69 6e 67 20 28 63 61 72 |1-to-str|ing (car|
|00005240| 20 65 6c 32 29 29 20 22 | 20 6e 6f 74 20 66 6f 75 | el2)) "| not fou|
|00005250| 6e 64 20 69 6e 20 66 69 | 72 73 74 20 73 74 61 74 |nd in fi|rst stat|
|00005260| 65 22 29 0a 58 09 09 09 | 09 20 20 28 6e 65 77 6c |e").X...|. (newl|
|00005270| 69 6e 65 29 0a 58 09 09 | 09 09 20 20 29 3b 20 65 |ine).X..|.. ); e|
|00005280| 6c 69 68 77 0a 58 09 09 | 09 09 0a 58 09 09 09 09 |lihw.X..|...X....|
|00005290| 29 3b 6e 67 6f 72 70 0a | 58 09 09 09 29 3b 20 66 |);ngorp.|X...); f|
|000052a0| 69 0a 58 09 09 09 09 29 | 3b 20 6e 67 6f 72 70 0a |i.X....)|; ngorp.|
|000052b0| 58 09 09 09 3b 20 65 6c | 73 65 20 2e 2e 20 6e 65 |X...; el|se .. ne|
|000052c0| 76 65 72 6d 69 6e 64 2e | 0a 58 09 09 09 29 3b 20 |vermind.|.X...); |
|000052d0| 66 69 0a 58 09 28 69 66 | 20 28 6e 6f 74 20 74 73 |fi.X.(if| (not ts|
|000052e0| 74 2d 65 71 75 2d 72 65 | 73 75 6c 74 29 0a 58 09 |t-equ-re|sult).X.|
|000052f0| 20 20 20 20 28 70 72 6f | 67 6e 0a 58 09 09 20 20 | (pro|gn.X.. |
|00005300| 28 73 65 74 71 20 74 65 | 6d 70 70 6f 69 6e 74 20 |(setq te|mppoint |
|00005310| 28 70 6f 69 6e 74 29 29 | 0a 58 09 09 20 20 28 67 |(point))|.X.. (g|
|00005320| 6f 74 6f 2d 63 68 61 72 | 20 73 73 2d 73 74 61 72 |oto-char| ss-star|
|00005330| 74 70 6f 69 6e 74 29 0a | 58 09 09 20 20 28 69 6e |tpoint).|X.. (in|
|00005340| 73 65 72 74 20 22 3f 22 | 29 0a 58 3b 20 69 66 20 |sert "?"|).X; if |
|00005350| 65 76 65 72 20 74 68 65 | 72 65 20 61 72 65 20 6d |ever the|re are m|
|00005360| 6f 72 65 20 74 68 69 6e | 67 73 20 69 6e 20 61 20 |ore thin|gs in a |
|00005370| 73 65 73 73 69 6f 6e 2c | 20 74 68 65 73 65 20 74 |session,| these t|
|00005380| 77 6f 20 6c 69 6e 65 73 | 20 6e 65 65 64 20 74 6f |wo lines| need to|
|00005390| 0a 58 3b 20 20 20 62 65 | 20 73 65 70 61 72 61 74 |.X; be| separat|
|000053a0| 65 2e 0a 58 09 09 20 20 | 28 67 6f 74 6f 2d 63 68 |e..X.. |(goto-ch|
|000053b0| 61 72 20 73 73 2d 67 73 | 2d 73 74 61 72 74 70 6f |ar ss-gs|-startpo|
|000053c0| 69 6e 74 29 0a 58 09 09 | 20 20 28 69 6e 73 65 72 |int).X..| (inser|
|000053d0| 74 20 22 3f 22 29 0a 58 | 3b 0a 58 09 09 20 20 28 |t "?").X|;.X.. (|
|000053e0| 67 6f 74 6f 2d 63 68 61 | 72 20 28 31 2b 20 74 65 |goto-cha|r (1+ te|
|000053f0| 6d 70 70 6f 69 6e 74 29 | 29 0a 58 09 20 20 20 20 |mppoint)|).X. |
|00005400| 20 20 29 3b 0a 58 09 20 | 20 29 3b 20 66 69 0a 58 | );.X. | ); fi.X|
|00005410| 0a 58 20 20 20 20 20 74 | 73 74 2d 65 71 75 2d 72 |.X t|st-equ-r|
|00005420| 65 73 75 6c 74 0a 58 20 | 20 20 20 20 29 3b 20 74 |esult.X | ); t|
|00005430| 65 6c 0a 58 29 0a 58 3b | 2b 2b 2b 2b 2b 2b 2b 2b |el.X).X;|++++++++|
|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 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00005460| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00005470| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 0a 58 0a 58 28 |++++++++|+++.X.X(|
|00005480| 64 65 66 75 6e 20 74 73 | 74 2d 65 71 75 2d 62 75 |defun ts|t-equ-bu|
|00005490| 66 66 65 72 73 20 28 74 | 73 74 2d 65 71 75 2d 62 |ffers (t|st-equ-b|
|000054a0| 75 66 66 65 72 73 31 20 | 74 73 74 2d 65 71 75 2d |uffers1 |tst-equ-|
|000054b0| 62 75 66 66 65 72 73 32 | 29 0a 58 20 20 22 43 6f |buffers2|).X "Co|
|000054c0| 6d 70 61 72 65 73 20 74 | 68 65 20 62 75 66 66 65 |mpares t|he buffe|
|000054d0| 72 73 20 63 6f 6d 70 6f | 6e 65 6e 74 73 20 66 72 |rs compo|nents fr|
|000054e0| 6f 6d 20 74 77 6f 20 73 | 74 61 74 65 73 2e 20 54 |om two s|tates. T|
|000054f0| 68 65 0a 58 20 20 20 74 | 77 6f 20 70 61 72 61 6d |he.X t|wo param|
|00005500| 65 74 65 72 73 20 53 54 | 41 54 45 31 20 61 6e 64 |eters ST|ATE1 and|
|00005510| 20 53 54 41 54 45 32 20 | 6d 75 73 74 20 62 65 20 | STATE2 |must be |
|00005520| 63 6f 6d 70 6c 65 74 65 | 20 73 74 61 74 65 73 0a |complete| states.|
|00005530| 58 20 20 20 61 73 20 72 | 65 74 75 72 6e 65 64 20 |X as r|eturned |
|00005540| 62 79 20 74 73 74 2d 72 | 65 67 2d 63 61 70 74 75 |by tst-r|eg-captu|
|00005550| 72 65 2d 73 74 61 74 65 | 2e 20 43 6f 6d 70 61 72 |re-state|. Compar|
|00005560| 65 73 20 65 61 63 68 20 | 62 75 66 66 65 72 20 66 |es each |buffer f|
|00005570| 6f 72 0a 58 20 20 20 65 | 71 75 61 6c 69 74 79 20 |or.X e|quality |
|00005580| 77 69 74 68 20 69 74 73 | 20 63 6f 72 72 65 73 70 |with its| corresp|
|00005590| 6f 6e 64 69 6e 67 20 62 | 75 66 66 65 72 20 28 62 |onding b|uffer (b|
|000055a0| 79 20 6e 61 6d 65 29 20 | 69 6e 20 74 68 65 20 6f |y name) |in the o|
|000055b0| 74 68 65 72 0a 58 20 20 | 20 73 74 61 74 65 2e 20 |ther.X | state. |
|000055c0| 74 73 74 2d 65 71 75 2d | 62 75 66 66 65 72 2d 73 |tst-equ-|buffer-s|
|000055d0| 74 61 74 65 20 69 73 20 | 63 61 6c 6c 65 64 20 66 |tate is |called f|
|000055e0| 6f 72 20 65 61 63 68 20 | 70 61 69 72 20 6f 66 20 |or each |pair of |
|000055f0| 62 75 66 66 65 72 73 2e | 20 22 0a 58 0a 58 20 20 |buffers.| ".X.X |
|00005600| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 50 22 |(interac|tive "P"|
|00005610| 29 0a 58 09 09 09 09 09 | 3b 20 4c 6f 63 61 6c 20 |).X.....|; Local |
|00005620| 56 61 72 69 61 62 6c 65 | 73 0a 58 20 20 28 6c 65 |Variable|s.X (le|
|00005630| 74 20 28 62 75 66 66 65 | 72 73 31 20 62 75 66 66 |t (buffe|rs1 buff|
|00005640| 65 72 73 32 20 62 75 66 | 66 31 20 62 75 66 66 2d |ers2 buf|f1 buff-|
|00005650| 6e 61 6d 65 20 62 75 66 | 66 32 20 74 73 74 2d 65 |name buf|f2 tst-e|
|00005660| 71 75 2d 72 65 73 75 6c | 74 20 62 75 66 31 6e 61 |qu-resul|t buf1na|
|00005670| 6d 65 73 20 0a 58 09 09 | 09 09 20 20 62 73 2d 73 |mes .X..|.. bs-s|
|00005680| 74 61 72 74 70 6f 69 6e | 74 20 74 65 6d 70 70 6f |tartpoin|t temppo|
|00005690| 69 6e 74 29 20 20 0a 58 | 0a 58 20 20 20 20 28 6d |int) .X|.X (m|
|000056a0| 65 73 73 61 67 65 20 22 | 43 6f 6d 70 61 72 69 6e |essage "|Comparin|
|000056b0| 67 20 73 74 61 74 65 20 | 6f 66 20 62 75 66 66 65 |g state |of buffe|
|000056c0| 72 73 2e 2e 2e 22 29 0a | 58 20 20 20 20 28 73 65 |rs...").|X (se|
|000056d0| 74 71 20 74 73 74 2d 65 | 71 75 2d 72 65 73 75 6c |tq tst-e|qu-resul|
|000056e0| 74 20 74 29 0a 58 20 20 | 20 20 28 73 65 74 71 20 |t t).X | (setq |
|000056f0| 62 75 66 66 65 72 73 31 | 20 28 63 61 64 72 20 28 |buffers1| (cadr (|
|00005700| 61 73 73 6f 63 20 27 62 | 75 66 66 65 72 73 20 74 |assoc 'b|uffers t|
|00005710| 73 74 2d 65 71 75 2d 62 | 75 66 66 65 72 73 31 29 |st-equ-b|uffers1)|
|00005720| 29 29 3b 20 67 65 74 20 | 74 68 65 20 66 69 72 73 |)); get |the firs|
|00005730| 74 20 76 61 6c 75 65 0a | 58 20 20 20 20 28 73 65 |t value.|X (se|
|00005740| 74 71 20 62 75 66 66 65 | 72 73 32 20 28 63 61 64 |tq buffe|rs2 (cad|
|00005750| 72 20 28 61 73 73 6f 63 | 20 27 62 75 66 66 65 72 |r (assoc| 'buffer|
|00005760| 73 20 74 73 74 2d 65 71 | 75 2d 62 75 66 66 65 72 |s tst-eq|u-buffer|
|00005770| 73 32 29 29 29 3b 20 67 | 65 74 20 74 68 65 20 73 |s2))); g|et the s|
|00005780| 65 63 6f 6e 64 20 76 61 | 6c 75 65 0a 58 0a 58 20 |econd va|lue.X.X |
|00005790| 20 20 20 3b 20 73 65 74 | 20 75 70 20 74 68 65 20 | ; set| up the |
|000057a0| 6c 6f 67 20 62 75 66 66 | 65 72 0a 58 20 20 20 20 |log buff|er.X |
|000057b0| 28 67 6f 74 6f 2d 63 68 | 61 72 20 28 70 6f 69 6e |(goto-ch|ar (poin|
|000057c0| 74 2d 6d 61 78 29 29 0a | 58 20 20 20 20 28 74 73 |t-max)).|X (ts|
|000057d0| 74 2d 65 71 75 2d 6c 65 | 76 65 6c 32 29 0a 58 09 |t-equ-le|vel2).X.|
|000057e0| 28 73 65 74 71 20 62 73 | 2d 73 74 61 72 74 70 6f |(setq bs|-startpo|
|000057f0| 69 6e 74 20 28 70 6f 69 | 6e 74 29 29 0a 58 09 28 |int (poi|nt)).X.(|
|00005800| 69 6e 73 65 72 74 20 22 | 42 75 66 66 65 72 73 20 |insert "|Buffers |
|00005810| 73 74 61 74 65 22 29 0a | 58 09 28 6e 65 77 6c 69 |state").|X.(newli|
|00005820| 6e 65 29 0a 58 0a 58 20 | 20 20 20 28 77 68 69 6c |ne).X.X | (whil|
|00005830| 65 20 62 75 66 66 65 72 | 73 31 0a 58 20 20 20 20 |e buffer|s1.X |
|00005840| 20 20 28 70 72 6f 67 6e | 0a 58 09 09 28 73 65 74 | (progn|.X..(set|
|00005850| 71 20 62 75 66 66 31 20 | 28 63 61 72 20 62 75 66 |q buff1 |(car buf|
|00005860| 66 65 72 73 31 29 29 0a | 58 09 09 28 73 65 74 71 |fers1)).|X..(setq|
|00005870| 20 62 75 66 66 65 72 73 | 31 20 28 63 64 72 20 62 | buffers|1 (cdr b|
|00005880| 75 66 66 65 72 73 31 29 | 29 0a 58 09 3b 20 67 65 |uffers1)|).X.; ge|
|00005890| 74 20 74 68 65 20 6e 61 | 6d 65 20 6f 66 20 74 68 |t the na|me of th|
|000058a0| 65 20 31 73 74 20 62 75 | 66 66 65 72 20 61 6e 64 |e 1st bu|ffer and|
|000058b0| 20 75 73 65 20 69 74 20 | 74 6f 20 66 69 6e 64 20 | use it |to find |
|000058c0| 74 68 65 20 73 65 63 6f | 6e 64 0a 58 09 09 28 73 |the seco|nd.X..(s|
|000058d0| 65 74 71 20 62 75 66 66 | 2d 6e 61 6d 65 20 28 63 |etq buff|-name (c|
|000058e0| 61 64 72 20 28 61 73 73 | 6f 63 20 27 62 75 66 2d |adr (ass|oc 'buf-|
|000058f0| 73 74 61 74 65 2d 6e 61 | 6d 65 20 62 75 66 66 31 |state-na|me buff1|
|00005900| 29 29 29 0a 58 09 09 28 | 73 65 74 71 20 62 75 66 |))).X..(|setq buf|
|00005910| 31 6e 61 6d 65 73 20 28 | 63 6f 6e 73 20 62 75 66 |1names (|cons buf|
|00005920| 66 2d 6e 61 6d 65 20 62 | 75 66 31 6e 61 6d 65 73 |f-name b|uf1names|
|00005930| 29 29 0a 58 09 0a 58 09 | 3b 20 63 72 65 61 74 65 |)).X..X.|; create|
|00005940| 20 61 20 6c 6f 67 20 65 | 6e 74 72 79 20 66 6f 72 | a log e|ntry for|
|00005950| 20 74 68 69 73 20 62 75 | 66 66 65 72 0a 58 0a 58 | this bu|ffer.X.X|
|00005960| 09 3b 20 6e 6f 77 20 6c | 6f 63 61 74 65 20 74 68 |.; now l|ocate th|
|00005970| 65 20 73 65 63 6f 6e 64 | 20 62 75 66 66 65 72 0a |e second| buffer.|
|00005980| 58 09 28 73 65 74 71 20 | 62 75 66 66 32 20 28 74 |X.(setq |buff2 (t|
|00005990| 73 74 2d 65 71 75 2d 66 | 69 6e 64 2d 62 75 66 66 |st-equ-f|ind-buff|
|000059a0| 65 72 2d 77 69 74 68 2d | 6e 61 6d 65 20 74 73 74 |er-with-|name tst|
|000059b0| 2d 65 71 75 2d 62 75 66 | 66 65 72 73 32 20 62 75 |-equ-buf|fers2 bu|
|000059c0| 66 66 2d 6e 61 6d 65 29 | 29 0a 58 09 28 69 66 20 |ff-name)|).X.(if |
|000059d0| 28 6e 6f 74 20 62 75 66 | 66 32 29 0a 58 09 20 20 |(not buf|f2).X. |
|000059e0| 20 20 28 70 72 6f 67 6e | 0a 58 09 20 20 20 20 20 | (progn|.X. |
|000059f0| 20 28 6e 65 77 6c 69 6e | 65 29 0a 58 09 20 20 20 | (newlin|e).X. |
|00005a00| 20 20 20 28 69 6e 64 65 | 6e 74 2d 74 6f 20 28 2a | (inde|nt-to (*|
|00005a10| 20 74 73 74 2d 65 71 75 | 2d 69 6e 64 65 6e 74 20 | tst-equ|-indent |
|00005a20| 32 29 29 0a 58 09 20 20 | 20 20 20 20 28 69 6e 73 |2)).X. | (ins|
|00005a30| 65 72 74 20 22 3f 22 29 | 0a 58 09 20 20 20 20 20 |ert "?")|.X. |
|00005a40| 20 28 69 6e 73 65 72 74 | 20 62 75 66 66 2d 6e 61 | (insert| buff-na|
|00005a50| 6d 65 20 22 20 6e 6f 74 | 20 66 6f 75 6e 64 20 69 |me " not| found i|
|00005a60| 6e 20 73 65 63 6f 6e 64 | 20 73 74 61 74 65 22 29 |n second| state")|
|00005a70| 0a 58 09 20 20 20 20 20 | 20 28 6e 65 77 6c 69 6e |.X. | (newlin|
|00005a80| 65 29 0a 58 09 20 20 20 | 20 20 20 28 73 65 74 71 |e).X. | (setq|
|00005a90| 20 74 73 74 2d 65 71 75 | 2d 72 65 73 75 6c 74 20 | tst-equ|-result |
|00005aa0| 6e 69 6c 29 0a 58 09 20 | 20 20 20 20 20 29 3b 20 |nil).X. | ); |
|00005ab0| 6e 67 6f 72 70 0a 58 09 | 20 20 3b 20 65 6c 73 65 |ngorp.X.| ; else|
|00005ac0| 0a 58 09 20 20 20 20 28 | 70 72 6f 67 6e 0a 58 09 |.X. (|progn.X.|
|00005ad0| 20 20 20 20 20 20 3b 20 | 6e 6f 77 20 63 6f 6d 70 | ; |now comp|
|00005ae0| 61 72 65 20 74 68 65 6d | 20 61 6e 64 20 73 65 74 |are them| and set|
|00005af0| 20 74 73 74 2d 65 71 75 | 2d 72 65 73 75 6c 74 0a | tst-equ|-result.|
|00005b00| 58 09 20 20 20 20 20 20 | 28 69 66 20 28 6e 6f 74 |X. |(if (not|
|00005b10| 20 28 74 73 74 2d 65 71 | 75 2d 62 75 66 66 65 72 | (tst-eq|u-buffer|
|00005b20| 2d 73 74 61 74 65 20 62 | 75 66 66 31 20 62 75 66 |-state b|uff1 buf|
|00005b30| 66 32 29 29 0a 58 09 09 | 09 09 28 73 65 74 71 20 |f2)).X..|..(setq |
|00005b40| 74 73 74 2d 65 71 75 2d | 72 65 73 75 6c 74 20 6e |tst-equ-|result n|
|00005b50| 69 6c 29 0a 58 09 09 20 | 20 29 20 3b 20 66 69 20 |il).X.. | ) ; fi |
|00005b60| 0a 58 09 09 20 20 29 20 | 3b 20 6e 67 6f 72 70 0a |.X.. ) |; ngorp.|
|00005b70| 58 09 09 29 3b 20 66 69 | 0a 58 0a 58 09 29 3b 20 |X..); fi|.X.X.); |
|00005b80| 6e 67 72 6f 70 0a 58 09 | 20 20 29 3b 20 65 6c 69 |ngrop.X.| ); eli|
|00005b90| 68 77 0a 58 3b 3b 3b 20 | 6e 6f 77 20 74 68 61 74 |hw.X;;; |now that|
|00005ba0| 20 77 65 20 68 61 76 65 | 20 63 68 65 63 6b 65 64 | we have| checked|
|00005bb0| 20 66 6f 72 20 65 76 65 | 72 79 74 68 69 6e 67 20 | for eve|rything |
|00005bc0| 66 72 6f 6d 20 74 68 65 | 20 66 69 72 73 74 20 73 |from the| first s|
|00005bd0| 74 61 74 65 2c 0a 58 3b | 3b 3b 20 20 77 61 6e 74 |tate,.X;|;; want|
|00005be0| 20 74 6f 20 73 65 65 20 | 69 66 20 74 68 65 72 65 | to see |if there|
|00005bf0| 20 61 72 65 20 61 6e 79 | 20 62 75 66 66 65 72 73 | are any| buffers|
|00005c00| 20 69 6e 20 74 68 65 20 | 73 65 63 6f 6e 64 20 73 | in the |second s|
|00005c10| 74 61 74 65 20 74 68 61 | 74 20 61 72 65 0a 58 3b |tate tha|t are.X;|
|00005c20| 3b 3b 20 6e 6f 74 20 69 | 6e 20 74 68 65 20 66 69 |;; not i|n the fi|
|00005c30| 72 73 74 20 6f 6e 65 2e | 20 20 20 52 65 6d 65 6d |rst one.| Remem|
|00005c40| 62 65 72 20 74 68 65 20 | 6c 69 73 74 20 22 62 75 |ber the |list "bu|
|00005c50| 66 31 6e 61 6d 65 73 22 | 20 74 68 61 74 20 77 61 |f1names"| that wa|
|00005c60| 73 20 62 75 69 6c 74 0a | 58 3b 3b 3b 20 64 75 72 |s built.|X;;; dur|
|00005c70| 69 6e 67 20 74 68 65 20 | 66 69 72 73 74 20 77 68 |ing the |first wh|
|00005c80| 69 6c 65 20 6c 6f 6f 70 | 3f 20 20 57 65 6c 6c 2c |ile loop|? Well,|
|00005c90| 20 77 65 27 6c 6c 20 6d | 65 6d 62 65 72 20 74 68 | we'll m|ember th|
|00005ca0| 69 73 20 6c 69 73 74 20 | 69 6e 73 74 65 61 64 0a |is list |instead.|
|00005cb0| 58 3b 3b 3b 20 6f 66 20 | 22 74 73 74 2d 65 71 75 |X;;; of |"tst-equ|
|00005cc0| 2d 66 69 6e 64 2d 62 75 | 66 66 65 72 2d 77 69 74 |-find-bu|ffer-wit|
|00005cd0| 68 2d 6e 61 6d 65 22 69 | 6e 67 20 69 74 2c 20 62 |h-name"i|ng it, b|
|00005ce0| 65 63 61 75 73 65 20 74 | 68 69 73 20 73 65 65 6d |ecause t|his seem|
|00005cf0| 73 20 6d 6f 72 65 20 65 | 66 66 69 63 69 65 6e 74 |s more e|fficient|
|00005d00| 2e 0a 58 0a 58 20 20 20 | 20 28 77 68 69 6c 65 20 |..X.X | (while |
|00005d10| 62 75 66 66 65 72 73 32 | 0a 58 20 20 20 20 20 20 |buffers2|.X |
|00005d20| 28 70 72 6f 67 6e 0a 58 | 09 09 28 73 65 74 71 20 |(progn.X|..(setq |
|00005d30| 62 75 66 66 32 20 28 63 | 61 72 20 62 75 66 66 65 |buff2 (c|ar buffe|
|00005d40| 72 73 32 29 29 0a 58 09 | 09 28 73 65 74 71 20 62 |rs2)).X.|.(setq b|
|00005d50| 75 66 66 65 72 73 32 20 | 28 63 64 72 20 62 75 66 |uffers2 |(cdr buf|
|00005d60| 66 65 72 73 32 29 29 0a | 58 0a 58 09 09 28 73 65 |fers2)).|X.X..(se|
|00005d70| 74 71 20 62 75 66 66 2d | 6e 61 6d 65 20 28 63 61 |tq buff-|name (ca|
|00005d80| 64 72 20 28 61 73 73 6f | 63 20 27 62 75 66 2d 73 |dr (asso|c 'buf-s|
|00005d90| 74 61 74 65 2d 6e 61 6d | 65 20 62 75 66 66 32 29 |tate-nam|e buff2)|
|00005da0| 29 29 0a 58 09 09 28 69 | 66 20 28 6e 6f 74 20 28 |)).X..(i|f (not (|
|00005db0| 6d 65 6d 62 65 72 20 62 | 75 66 66 2d 6e 61 6d 65 |member b|uff-name|
|00005dc0| 20 62 75 66 31 6e 61 6d | 65 73 29 29 0a 58 09 09 | buf1nam|es)).X..|
|00005dd0| 09 28 70 72 6f 67 6e 0a | 58 09 09 09 20 20 28 6e |.(progn.|X... (n|
|00005de0| 65 77 6c 69 6e 65 29 0a | 58 09 09 09 20 20 28 69 |ewline).|X... (i|
|00005df0| 6e 64 65 6e 74 2d 74 6f | 20 28 2a 20 74 73 74 2d |ndent-to| (* tst-|
|00005e00| 65 71 75 2d 69 6e 64 65 | 6e 74 20 34 29 29 0a 58 |equ-inde|nt 4)).X|
|00005e10| 09 09 09 20 20 28 69 6e | 73 65 72 74 20 22 3f 22 |... (in|sert "?"|
|00005e20| 29 0a 58 09 09 09 20 20 | 28 69 6e 73 65 72 74 20 |).X... |(insert |
|00005e30| 62 75 66 66 2d 6e 61 6d | 65 20 22 20 6e 6f 74 20 |buff-nam|e " not |
|00005e40| 66 6f 75 6e 64 20 69 6e | 20 66 69 72 73 74 20 73 |found in| first s|
|00005e50| 74 61 74 65 22 29 0a 58 | 09 09 09 20 20 28 6e 65 |tate").X|... (ne|
|00005e60| 77 6c 69 6e 65 29 0a 58 | 09 09 09 20 20 28 73 65 |wline).X|... (se|
|00005e70| 74 71 20 74 73 74 2d 65 | 71 75 2d 72 65 73 75 6c |tq tst-e|qu-resul|
|00005e80| 74 20 6e 69 6c 29 0a 58 | 09 09 09 20 20 29 3b 20 |t nil).X|... ); |
|00005e90| 6e 67 6f 72 70 0a 58 09 | 09 20 20 29 3b 20 66 69 |ngorp.X.|. ); fi|
|00005ea0| 0a 58 09 09 29 3b 20 6e | 67 6f 72 70 0a 58 09 20 |.X..); n|gorp.X. |
|00005eb0| 20 29 3b 20 65 6c 69 68 | 77 0a 58 09 09 09 20 20 | ); elih|w.X... |
|00005ec0| 0a 58 20 20 20 20 3b 20 | 69 66 20 77 65 20 66 61 |.X ; |if we fa|
|00005ed0| 69 6c 65 64 20 61 6e 64 | 20 61 20 68 6f 6f 6b 20 |iled and| a hook |
|00005ee0| 65 78 69 73 74 20 74 68 | 65 6e 20 72 75 6e 20 69 |exist th|en run i|
|00005ef0| 74 0a 58 20 20 20 20 28 | 69 66 20 28 61 6e 64 20 |t.X (|if (and |
|00005f00| 28 6e 6f 74 20 74 73 74 | 2d 65 71 75 2d 72 65 73 |(not tst|-equ-res|
|00005f10| 75 6c 74 29 20 27 74 73 | 74 2d 65 71 75 2d 62 75 |ult) 'ts|t-equ-bu|
|00005f20| 66 66 65 72 73 2d 68 6f | 6f 6b 29 0a 58 09 09 20 |ffers-ho|ok).X.. |
|00005f30| 20 20 28 72 75 6e 2d 68 | 6f 6f 6b 73 20 27 74 73 | (run-h|ooks 'ts|
|00005f40| 74 2d 65 71 75 2d 62 75 | 66 66 65 72 73 2d 68 6f |t-equ-bu|ffers-ho|
|00005f50| 6f 6b 29 29 0a 58 0a 58 | 09 28 69 66 20 28 6e 6f |ok)).X.X|.(if (no|
|00005f60| 74 20 74 73 74 2d 65 71 | 75 2d 72 65 73 75 6c 74 |t tst-eq|u-result|
|00005f70| 29 0a 58 09 09 28 70 72 | 6f 67 6e 0a 58 09 09 20 |).X..(pr|ogn.X.. |
|00005f80| 20 28 73 65 74 71 20 74 | 65 6d 70 70 6f 69 6e 74 | (setq t|emppoint|
|00005f90| 20 28 70 6f 69 6e 74 29 | 29 0a 58 09 09 20 20 28 | (point)|).X.. (|
|00005fa0| 67 6f 74 6f 2d 63 68 61 | 72 20 62 73 2d 73 74 61 |goto-cha|r bs-sta|
|00005fb0| 72 74 70 6f 69 6e 74 29 | 0a 58 09 09 20 20 28 69 |rtpoint)|.X.. (i|
|00005fc0| 6e 73 65 72 74 20 22 3f | 22 29 0a 58 09 09 20 20 |nsert "?|").X.. |
|00005fd0| 28 67 6f 74 6f 2d 63 68 | 61 72 20 28 31 2b 20 74 |(goto-ch|ar (1+ t|
|00005fe0| 65 6d 70 70 6f 69 6e 74 | 29 29 0a 58 09 09 20 20 |emppoint|)).X.. |
|00005ff0| 29 3b 20 6e 70 72 6f 67 | 0a 58 09 20 20 29 3b 20 |); nprog|.X. ); |
|00006000| 66 69 0a 58 0a 58 20 20 | 20 20 74 73 74 2d 65 71 |fi.X.X | tst-eq|
|00006010| 75 2d 72 65 73 75 6c 74 | 0a 58 20 20 29 20 3b 20 |u-result|.X ) ; |
|00006020| 6c 65 74 0a 58 29 20 3b | 20 64 65 66 75 6e 20 74 |let.X) ;| defun t|
|00006030| 73 74 2d 65 71 75 2d 62 | 75 66 66 65 72 73 0a 58 |st-equ-b|uffers.X|
|00006040| 0a 58 3b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |.X;+++++|++++++++|
|00006050| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00006060| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00006070| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00006080| 2b 2b 2b 2b 2b 2b 0a 58 | 0a 58 28 64 65 66 75 6e |++++++.X|.X(defun|
|00006090| 20 74 73 74 2d 65 71 75 | 2d 77 69 6e 64 6f 77 73 | tst-equ|-windows|
|000060a0| 20 28 74 73 74 2d 65 71 | 75 2d 77 69 6e 64 6f 77 | (tst-eq|u-window|
|000060b0| 73 31 20 74 73 74 2d 65 | 71 75 2d 77 69 6e 64 6f |s1 tst-e|qu-windo|
|000060c0| 77 73 32 29 0a 58 20 20 | 20 22 43 6f 6d 70 61 72 |ws2).X | "Compar|
|000060d0| 65 73 20 74 68 65 20 77 | 69 6e 64 6f 77 20 63 6f |es the w|indow co|
|000060e0| 6d 70 6f 6e 65 6e 74 73 | 20 66 72 6f 6d 20 74 77 |mponents| from tw|
|000060f0| 6f 20 73 74 61 74 65 73 | 2e 20 54 68 65 0a 58 20 |o states|. The.X |
|00006100| 20 20 74 77 6f 20 70 61 | 72 61 6d 65 74 65 72 73 | two pa|rameters|
|00006110| 20 53 54 41 54 45 31 20 | 61 6e 64 20 53 54 41 54 | STATE1 |and STAT|
|00006120| 45 32 20 6d 75 73 74 20 | 62 65 20 63 6f 6d 70 6c |E2 must |be compl|
|00006130| 65 74 65 20 73 74 61 74 | 65 73 0a 58 20 20 20 61 |ete stat|es.X a|
|00006140| 73 20 72 65 74 75 72 6e | 65 64 20 62 79 20 74 73 |s return|ed by ts|
|00006150| 74 2d 72 65 67 2d 63 61 | 70 74 75 72 65 2d 73 74 |t-reg-ca|pture-st|
|00006160| 61 74 65 2e 22 0a 58 0a | 58 20 20 28 69 6e 74 65 |ate.".X.|X (inte|
|00006170| 72 61 63 74 69 76 65 20 | 22 50 22 29 0a 58 09 09 |ractive |"P").X..|
|00006180| 09 09 09 3b 20 4c 6f 63 | 61 6c 20 56 61 72 69 61 |...; Loc|al Varia|
|00006190| 62 6c 65 73 0a 58 20 20 | 28 6c 65 74 20 28 77 69 |bles.X |(let (wi|
|000061a0| 6e 64 6f 77 31 20 77 69 | 6e 64 6f 77 32 20 74 73 |ndow1 wi|ndow2 ts|
|000061b0| 74 2d 65 71 75 2d 72 65 | 73 75 6c 74 20 73 74 61 |t-equ-re|sult sta|
|000061c0| 72 74 2d 70 6f 69 6e 74 | 20 73 61 76 65 64 2d 70 |rt-point| saved-p|
|000061d0| 6f 69 6e 74 29 20 0a 58 | 0a 58 20 20 20 20 28 6d |oint) .X|.X (m|
|000061e0| 65 73 73 61 67 65 20 22 | 43 6f 6d 70 61 72 69 6e |essage "|Comparin|
|000061f0| 67 20 73 74 61 74 65 20 | 6f 66 20 77 69 6e 64 6f |g state |of windo|
|00006200| 77 73 20 2e 2e 2e 22 29 | 0a 58 0a 58 20 20 20 20 |ws ...")|.X.X |
|00006210| 28 73 65 74 71 20 77 69 | 6e 64 6f 77 31 20 28 63 |(setq wi|ndow1 (c|
|00006220| 61 64 72 20 28 61 73 73 | 6f 63 20 27 77 69 6e 64 |adr (ass|oc 'wind|
|00006230| 6f 77 73 20 74 73 74 2d | 65 71 75 2d 77 69 6e 64 |ows tst-|equ-wind|
|00006240| 6f 77 73 31 29 29 29 0a | 58 20 20 20 20 28 73 65 |ows1))).|X (se|
|00006250| 74 71 20 77 69 6e 64 6f | 77 32 20 28 63 61 64 72 |tq windo|w2 (cadr|
|00006260| 20 28 61 73 73 6f 63 20 | 27 77 69 6e 64 6f 77 73 | (assoc |'windows|
|00006270| 20 74 73 74 2d 65 71 75 | 2d 77 69 6e 64 6f 77 73 | tst-equ|-windows|
|00006280| 32 29 29 29 0a 58 20 20 | 20 20 28 73 65 74 71 20 |2))).X | (setq |
|00006290| 74 73 74 2d 65 71 75 2d | 72 65 73 75 6c 74 20 74 |tst-equ-|result t|
|000062a0| 29 0a 58 0a 58 20 20 20 | 20 28 74 73 74 2d 65 71 |).X.X | (tst-eq|
|000062b0| 75 2d 6c 65 76 65 6c 32 | 29 0a 58 20 20 20 20 28 |u-level2|).X (|
|000062c0| 73 65 74 71 20 73 74 61 | 72 74 2d 70 6f 69 6e 74 |setq sta|rt-point|
|000062d0| 20 28 70 6f 69 6e 74 29 | 29 0a 58 20 20 20 20 28 | (point)|).X (|
|000062e0| 69 6e 73 65 72 74 20 22 | 57 69 6e 64 6f 77 20 73 |insert "|Window s|
|000062f0| 74 61 74 65 22 29 0a 58 | 20 20 20 20 28 6e 65 77 |tate").X| (new|
|00006300| 6c 69 6e 65 29 0a 58 0a | 58 20 20 20 20 28 73 65 |line).X.|X (se|
|00006310| 74 71 20 74 73 74 2d 65 | 71 75 2d 72 65 73 75 6c |tq tst-e|qu-resul|
|00006320| 74 20 28 74 73 74 2d 65 | 71 75 2d 77 73 74 61 74 |t (tst-e|qu-wstat|
|00006330| 65 73 20 77 69 6e 64 6f | 77 31 20 77 69 6e 64 6f |es windo|w1 windo|
|00006340| 77 32 20 29 29 0a 58 0a | 58 20 20 20 20 3b 20 69 |w2 )).X.|X ; i|
|00006350| 66 20 77 65 20 66 61 69 | 6c 65 64 20 61 6e 64 20 |f we fai|led and |
|00006360| 61 20 68 6f 6f 6b 20 65 | 78 69 73 74 20 74 68 65 |a hook e|xist the|
|00006370| 6e 20 72 75 6e 20 69 6f | 74 0a 58 20 20 20 20 28 |n run io|t.X (|
|00006380| 69 66 20 28 61 6e 64 20 | 28 6e 6f 74 20 74 73 74 |if (and |(not tst|
|00006390| 2d 65 71 75 2d 72 65 73 | 75 6c 74 29 20 27 74 73 |-equ-res|ult) 'ts|
|000063a0| 74 2d 65 71 75 2d 77 69 | 6e 64 6f 77 73 2d 68 6f |t-equ-wi|ndows-ho|
|000063b0| 6f 6b 29 0a 58 09 09 20 | 20 20 28 72 75 6e 2d 68 |ok).X.. | (run-h|
|000063c0| 6f 6f 6b 73 20 27 74 73 | 74 2d 65 71 75 2d 77 69 |ooks 'ts|t-equ-wi|
|000063d0| 6e 64 6f 77 73 2d 68 6f | 6f 6b 29 29 0a 58 0a 58 |ndows-ho|ok)).X.X|
|000063e0| 20 20 20 20 3b 20 69 66 | 20 77 65 20 73 74 69 6c | ; if| we stil|
|000063f0| 6c 20 66 61 69 6c 20 74 | 68 65 20 6f 75 74 20 61 |l fail t|he out a|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
