|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: s
Length: 8815 (0x226f)
Names: »sort.elc«
└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
└─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z«
└─⟦fa971747f⟧
└─⟦this⟧ »dist-18.55/lisp/sort.elc«
0x0000…0020 0a 28 70 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 73 6f 72 74 29 29 0a 0a 28 64 65 66 75 6e 20 ┆ (provide (quote sort)) (defun ┆ 0x0020…0040 73 6f 72 74 2d 73 75 62 72 20 28 72 65 76 65 72 73 65 20 6e 65 78 74 72 65 63 66 75 6e 20 65 6e ┆sort-subr (reverse nextrecfun en┆ 0x0040…0060 64 72 65 63 66 75 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 73 74 61 72 74 6b 65 79 66 75 6e 20 65 6e ┆drecfun &optional startkeyfun en┆ 0x0060…0080 64 6b 65 79 66 75 6e 29 20 22 5c 0a 47 65 6e 65 72 61 6c 20 74 65 78 74 20 73 6f 72 74 69 6e 67 ┆dkeyfun) "\ General text sorting┆ 0x0080…00a0 20 72 6f 75 74 69 6e 65 20 74 6f 20 64 69 76 69 64 65 20 62 75 66 66 65 72 20 69 6e 74 6f 20 72 ┆ routine to divide buffer into r┆ 0x00a0…00c0 65 63 6f 72 64 73 20 61 6e 64 20 73 6f 72 74 20 74 68 65 6d 2e 0a 41 72 67 75 6d 65 6e 74 73 20 ┆ecords and sort them. Arguments ┆ 0x00c0…00e0 61 72 65 20 52 45 56 45 52 53 45 20 4e 45 58 54 52 45 43 46 55 4e 20 45 4e 44 52 45 43 46 55 4e ┆are REVERSE NEXTRECFUN ENDRECFUN┆ 0x00e0…0100 20 26 6f 70 74 69 6f 6e 61 6c 20 53 54 41 52 54 4b 45 59 46 55 4e 20 45 4e 44 4b 45 59 46 55 4e ┆ &optional STARTKEYFUN ENDKEYFUN┆ 0x0100…0120 2e 0a 0a 57 65 20 63 6f 6e 73 69 64 65 72 20 74 68 69 73 20 70 6f 72 74 69 6f 6e 20 6f 66 20 74 ┆. We consider this portion of t┆ 0x0120…0140 68 65 20 62 75 66 66 65 72 20 74 6f 20 62 65 20 64 69 76 69 64 65 64 20 69 6e 74 6f 20 64 69 73 ┆he buffer to be divided into dis┆ 0x0140…0160 6a 6f 69 6e 74 20 70 69 65 63 65 73 0a 63 61 6c 6c 65 64 20 73 6f 72 74 20 72 65 63 6f 72 64 73 ┆joint pieces called sort records┆ 0x0160…0180 2e 20 20 41 20 70 6f 72 74 69 6f 6e 20 6f 66 20 65 61 63 68 20 73 6f 72 74 20 72 65 63 6f 72 64 ┆. A portion of each sort record┆ 0x0180…01a0 20 28 70 65 72 68 61 70 73 20 61 6c 6c 20 6f 66 20 69 74 29 0a 69 73 20 64 65 73 69 67 6e 61 74 ┆ (perhaps all of it) is designat┆ 0x01a0…01c0 65 64 20 61 73 20 74 68 65 20 73 6f 72 74 20 6b 65 79 2e 20 20 54 68 65 20 72 65 63 6f 72 64 73 ┆ed as the sort key. The records┆ 0x01c0…01e0 20 61 72 65 20 72 65 61 72 72 61 6e 67 65 64 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 0a 69 6e ┆ are rearranged in the buffer in┆ 0x01e0…0200 20 6f 72 64 65 72 20 62 79 20 74 68 65 69 72 20 73 6f 72 74 20 6b 65 79 73 2e 20 20 54 68 65 20 ┆ order by their sort keys. The ┆ 0x0200…0220 72 65 63 6f 72 64 73 20 6d 61 79 20 6f 72 20 6d 61 79 20 6e 6f 74 20 62 65 20 63 6f 6e 74 69 67 ┆records may or may not be contig┆ 0x0220…0240 75 6f 75 73 2e 0a 0a 55 73 75 61 6c 6c 79 20 74 68 65 20 72 65 63 6f 72 64 73 20 61 72 65 20 72 ┆uous. Usually the records are r┆ 0x0240…0260 65 61 72 72 61 6e 67 65 64 20 69 6e 20 6f 72 64 65 72 20 6f 66 20 61 73 63 65 6e 64 69 6e 67 20 ┆earranged in order of ascending ┆ 0x0260…0280 73 6f 72 74 20 6b 65 79 2e 0a 49 66 20 52 45 56 45 52 53 45 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c ┆sort key. If REVERSE is non-nil,┆ 0x0280…02a0 20 74 68 65 79 20 61 72 65 20 72 65 61 72 72 61 6e 67 65 64 20 69 6e 20 6f 72 64 65 72 20 6f 66 ┆ they are rearranged in order of┆ 0x02a0…02c0 20 64 65 73 63 65 6e 64 69 6e 67 20 73 6f 72 74 20 6b 65 79 2e 0a 0a 54 68 65 20 6e 65 78 74 20 ┆ descending sort key. The next ┆ 0x02c0…02e0 66 6f 75 72 20 61 72 67 75 6d 65 6e 74 73 20 61 72 65 20 66 75 6e 63 74 69 6f 6e 73 20 74 6f 20 ┆four arguments are functions to ┆ 0x02e0…0300 62 65 20 63 61 6c 6c 65 64 20 74 6f 20 6d 6f 76 65 20 70 6f 69 6e 74 0a 61 63 72 6f 73 73 20 61 ┆be called to move point across a┆ 0x0300…0320 20 73 6f 72 74 20 72 65 63 6f 72 64 2e 20 20 54 68 65 79 20 77 69 6c 6c 20 62 65 20 63 61 6c 6c ┆ sort record. They will be call┆ 0x0320…0340 65 64 20 6d 61 6e 79 20 74 69 6d 65 73 20 66 72 6f 6d 20 77 69 74 68 69 6e 20 73 6f 72 74 2d 73 ┆ed many times from within sort-s┆ 0x0340…0360 75 62 72 2e 0a 0a 4e 45 58 54 52 45 43 46 55 4e 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 ┆ubr. NEXTRECFUN is called with ┆ 0x0360…0380 70 6f 69 6e 74 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 70 72 65 76 69 6f 75 73 ┆point at the end of the previous┆ 0x0380…03a0 20 72 65 63 6f 72 64 2e 0a 49 74 20 6d 6f 76 65 73 20 70 6f 69 6e 74 20 74 6f 20 74 68 65 20 73 ┆ record. It moves point to the s┆ 0x03a0…03c0 74 61 72 74 20 6f 66 20 74 68 65 20 6e 65 78 74 20 72 65 63 6f 72 64 2e 0a 54 68 65 20 66 69 72 ┆tart of the next record. The fir┆ 0x03c0…03e0 73 74 20 72 65 63 6f 72 64 20 69 73 20 61 73 73 75 6d 65 64 20 74 6f 20 73 74 61 72 74 20 61 74 ┆st record is assumed to start at┆ 0x03e0…0400 20 74 68 65 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 70 6f 69 6e 74 20 77 68 65 6e 20 73 6f 72 74 ┆ the position of point when sort┆ 0x0400…0420 2d 73 75 62 72 0a 69 73 20 63 61 6c 6c 65 64 2e 0a 0a 45 4e 44 52 45 43 46 55 4e 20 69 73 20 69 ┆-subr is called. ENDRECFUN is i┆ 0x0420…0440 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 70 6f 69 6e 74 20 77 69 74 68 69 6e 20 74 68 65 20 72 ┆s called with point within the r┆ 0x0440…0460 65 63 6f 72 64 2e 0a 49 74 20 73 68 6f 75 6c 64 20 6d 6f 76 65 20 70 6f 69 6e 74 20 74 6f 20 74 ┆ecord. It should move point to t┆ 0x0460…0480 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 72 65 63 6f 72 64 2e 0a 0a 53 54 41 52 54 4b 45 59 46 ┆he end of the record. STARTKEYF┆ 0x0480…04a0 55 4e 20 6d 61 79 20 6d 6f 76 65 73 20 66 72 6f 6d 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 ┆UN may moves from the start of t┆ 0x04a0…04c0 68 65 20 72 65 63 6f 72 64 20 74 6f 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 6b 65 ┆he record to the start of the ke┆ 0x04c0…04e0 79 2e 0a 49 74 20 6d 61 79 20 72 65 74 75 72 6e 20 65 69 74 68 65 72 20 72 65 74 75 72 6e 20 61 ┆y. It may return either return a┆ 0x04e0…0500 20 6e 6f 6e 2d 6e 69 6c 20 76 61 6c 75 65 20 74 6f 20 62 65 20 75 73 65 64 20 61 73 20 74 68 65 ┆ non-nil value to be used as the┆ 0x0500…0520 20 6b 65 79 2c 20 6f 72 0a 65 6c 73 65 20 74 68 65 20 6b 65 79 20 77 69 6c 6c 20 62 65 20 74 68 ┆ key, or else the key will be th┆ 0x0520…0540 65 20 73 75 62 73 74 72 69 6e 67 20 62 65 74 77 65 65 6e 20 74 68 65 20 76 61 6c 75 65 73 20 6f ┆e substring between the values o┆ 0x0540…0560 66 20 70 6f 69 6e 74 20 61 66 74 65 72 0a 53 54 41 52 54 4b 45 59 46 55 4e 43 20 61 6e 64 20 45 ┆f point after STARTKEYFUNC and E┆ 0x0560…0580 4e 44 4b 45 59 46 55 4e 20 61 72 65 20 63 61 6c 6c 65 64 2e 0a 0a 45 4e 44 4b 45 59 46 55 4e 20 ┆NDKEYFUN are called. ENDKEYFUN ┆ 0x0580…05a0 6d 6f 76 65 73 20 66 72 6f 6d 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 73 6f 72 74 ┆moves from the start of the sort┆ 0x05a0…05c0 20 6b 65 79 20 74 6f 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 73 6f 72 74 20 6b 65 79 2e ┆ key to the end of the sort key.┆ 0x05c0…05e0 0a 45 4e 44 52 45 43 46 55 4e 20 6d 61 79 20 62 65 20 6e 69 6c 20 69 66 20 53 54 41 52 54 4b 45 ┆ ENDRECFUN may be nil if STARTKE┆ 0x05e0…0600 59 46 55 4e 20 72 65 74 75 72 6e 73 20 61 20 76 61 6c 75 65 20 6f 72 20 69 66 20 69 74 20 77 6f ┆YFUN returns a value or if it wo┆ 0x0600…0620 75 6c 64 20 62 65 20 74 68 65 0a 73 61 6d 65 20 61 73 20 45 4e 44 52 45 43 46 55 4e 2e 22 20 28 ┆uld be the same as ENDRECFUN." (┆ 0x0620…0640 62 79 74 65 2d 63 6f 64 65 20 22 8a c9 ca 21 88 cb 09 0a 0b 0c 24 18 c7 08 21 1d 08 3f 83 19 00 ┆byte-code " ! $ ! ? ┆ 0x0640…0660 c6 82 7d 00 0e 07 86 23 00 cc 08 21 89 10 88 c9 cd 21 88 ce cf 21 83 4c 00 cf 08 d0 08 40 40 21 ┆ } # ! ! ! L @@!┆ 0x0660…0680 83 3c 00 d1 82 48 00 08 40 40 3a 83 47 00 d2 82 48 00 d3 5c 22 82 67 00 d4 08 d0 08 40 40 21 83 ┆ < H @@: G H \" g @@! ┆ 0x0680…06a0 5a 00 d5 82 66 00 08 40 40 3a 83 65 00 d6 82 66 00 d7 5c 22 89 10 88 0e 07 85 74 00 cc 08 21 89 ┆Z f @@: e f \" t ! ┆ 0x06a0…06c0 10 88 c9 d8 21 88 d9 08 0d 5c 22 2a 88 c9 da 21 29 87 22 20 5b 73 6f 72 74 2d 6c 69 73 74 73 20 ┆ ! \"* !) " [sort-lists ┆ 0x06c0…06e0 6e 65 78 74 72 65 63 66 75 6e 20 65 6e 64 72 65 63 66 75 6e 20 73 74 61 72 74 6b 65 79 66 75 6e ┆nextrecfun endrecfun startkeyfun┆ 0x06e0…0700 20 65 6e 64 6b 65 79 66 75 6e 20 6f 6c 64 20 6e 69 6c 20 72 65 76 65 72 73 65 20 74 20 6d 65 73 ┆ endkeyfun old nil reverse t mes┆ 0x0700…0720 73 61 67 65 20 22 46 69 6e 64 69 6e 67 20 73 6f 72 74 20 6b 65 79 73 2e 2e 2e 22 20 73 6f 72 74 ┆sage "Finding sort keys..." sort┆ 0x0720…0740 2d 62 75 69 6c 64 2d 6c 69 73 74 73 20 6e 72 65 76 65 72 73 65 20 22 53 6f 72 74 69 6e 67 20 72 ┆-build-lists nreverse "Sorting r┆ 0x0740…0760 65 63 6f 72 64 73 2e 2e 2e 22 20 66 62 6f 75 6e 64 70 20 73 6f 72 74 63 61 72 20 6e 75 6d 62 65 ┆ecords..." fboundp sortcar numbe┆ 0x0760…0780 72 70 20 3c 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6c 65 73 73 70 20 73 74 72 69 ┆rp < buffer-substring-lessp stri┆ 0x0780…07a0 6e 67 3c 20 73 6f 72 74 20 28 6c 61 6d 62 64 61 20 28 61 20 62 29 20 28 62 79 74 65 2d 63 6f 64 ┆ng< sort (lambda (a b) (byte-cod┆ 0x07a0…07c0 65 20 22 08 40 09 40 57 87 22 20 5b 61 20 62 5d 20 32 29 29 20 28 6c 61 6d 62 64 61 20 28 61 20 ┆e " @ @W " [a b] 2)) (lambda (a ┆ 0x07c0…07e0 62 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 40 09 40 5c 22 87 22 20 5b 61 20 62 20 62 75 ┆b) (byte-code " @ @\" " [a b bu┆ 0x07e0…0800 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6c 65 73 73 70 5d 20 33 29 29 20 28 6c 61 6d 62 64 ┆ffer-substring-lessp] 3)) (lambd┆ 0x0800…0820 61 20 28 61 20 62 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 40 09 40 5c 22 87 22 20 5b 61 ┆a (a b) (byte-code " @ @\" " [a┆ 0x0820…0840 20 62 20 73 74 72 69 6e 67 3c 5d 20 33 29 29 20 22 52 65 6f 72 64 65 72 69 6e 67 20 62 75 66 66 ┆ b string<] 3)) "Reordering buff┆ 0x0840…0860 65 72 2e 2e 2e 22 20 73 6f 72 74 2d 72 65 6f 72 64 65 72 2d 62 75 66 66 65 72 20 22 52 65 6f 72 ┆er..." sort-reorder-buffer "Reor┆ 0x0860…0880 64 65 72 69 6e 67 20 62 75 66 66 65 72 2e 2e 2e 20 44 6f 6e 65 22 5d 20 31 35 29 29 0a 0a 28 64 ┆dering buffer... Done"] 15)) (d┆ 0x0880…08a0 65 66 75 6e 20 73 6f 72 74 2d 62 75 69 6c 64 2d 6c 69 73 74 73 20 28 6e 65 78 74 72 65 63 66 75 ┆efun sort-build-lists (nextrecfu┆ 0x08a0…08c0 6e 20 65 6e 64 72 65 63 66 75 6e 20 73 74 61 72 74 6b 65 79 66 75 6e 20 65 6e 64 6b 65 79 66 75 ┆n endrecfun startkeyfun endkeyfu┆ 0x08c0…08e0 6e 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c1 c1 c1 1c 1b 1a 18 6d 3f 85 75 00 60 89 12 88 ┆n) (byte-code " m? u ` ┆ 0x08e0…0900 c1 89 13 88 c4 c8 8d 89 14 88 0b c1 89 13 88 86 3a 00 0d 83 2d 00 c9 0d 21 82 3a 00 0e 06 85 3a ┆ : - ! : :┆ 0x0900…0920 00 c9 0e 06 21 88 c7 89 13 88 0c 85 62 00 0c 3a 85 51 00 ca 0c 40 0a 5c 22 85 51 00 ca 0c 41 60 ┆ ! b : Q @ \" Q A`┆ 0x0920…0940 5c 22 83 5a 00 0c 0c 42 82 5e 00 0c 0a 60 45 08 42 89 10 88 0b 3f 85 71 00 0e 06 85 71 00 c9 0e ┆\" Z B ^ `E B ? q q ┆ 0x0940…0960 06 21 88 82 08 00 88 08 2c 87 22 20 5b 73 6f 72 74 2d 6c 69 73 74 73 20 6e 69 6c 20 73 74 61 72 ┆ ! , " [sort-lists nil star┆ 0x0960…0980 74 2d 72 65 63 20 64 6f 6e 65 20 6b 65 79 20 65 6e 64 72 65 63 66 75 6e 20 6e 65 78 74 72 65 63 ┆t-rec done key endrecfun nextrec┆ 0x0980…09a0 66 75 6e 20 74 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 85 07 00 c6 08 21 86 29 00 60 19 c6 0a ┆fun t (byte-code " ! ) ` ┆ 0x09a0…09c0 86 16 00 0b c5 89 14 88 21 88 c7 c8 21 83 24 00 09 60 42 82 28 00 c9 09 60 5c 22 29 87 22 20 5b ┆ ! ! $ `B ( `\") " [┆ 0x09c0…09e0 73 74 61 72 74 6b 65 79 66 75 6e 20 73 74 61 72 74 20 65 6e 64 6b 65 79 66 75 6e 20 65 6e 64 72 ┆startkeyfun start endkeyfun endr┆ 0x09e0…0a00 65 63 66 75 6e 20 64 6f 6e 65 20 74 20 66 75 6e 63 61 6c 6c 20 66 62 6f 75 6e 64 70 20 62 75 66 ┆ecfun done t funcall fboundp buf┆ 0x0a00…0a20 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6c 65 73 73 70 20 62 75 66 66 65 72 2d 73 75 62 73 74 ┆fer-substring-lessp buffer-subst┆ 0x0a20…0a40 72 69 6e 67 5d 20 36 29 20 66 75 6e 63 61 6c 6c 20 65 71 75 61 6c 5d 20 38 29 29 0a 0a 28 64 65 ┆ring] 6) funcall equal] 8)) (de┆ 0x0a40…0a60 66 75 6e 20 73 6f 72 74 2d 72 65 6f 72 64 65 72 2d 62 75 66 66 65 72 20 28 73 6f 72 74 2d 6c 69 ┆fun sort-reorder-buffer (sort-li┆ 0x0a60…0a80 73 74 73 20 6f 6c 64 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 65 65 64 1c 1b 1a 18 0d 85 3b ┆sts old) (byte-code " eed ;┆ 0x0a80…0aa0 00 64 62 88 c7 70 0a c8 0e 06 40 38 23 88 64 62 88 c7 70 c8 0d 40 38 c9 0d 40 38 23 88 c9 0e 06 ┆ db p @8# db p @8 @8# ┆ 0x0aa0…0ac0 40 38 12 0d 41 15 0e 06 41 89 16 06 88 82 08 00 88 64 62 88 c7 70 0a 0c 23 88 ca 0b 0c 5c 22 2c ┆@8 A A db p # \",┆ 0x0ac0…0ae0 87 22 20 5b 69 6e 68 69 62 69 74 2d 71 75 69 74 20 74 20 6c 61 73 74 20 6d 69 6e 20 6d 61 78 20 ┆ " [inhibit-quit t last min max ┆ 0x0ae0…0b00 73 6f 72 74 2d 6c 69 73 74 73 20 6f 6c 64 20 69 6e 73 65 72 74 2d 62 75 66 66 65 72 2d 73 75 62 ┆sort-lists old insert-buffer-sub┆ 0x0b00…0b20 73 74 72 69 6e 67 20 31 20 32 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 5d 20 37 29 29 0a 0a 28 ┆string 1 2 delete-region] 7)) (┆ 0x0b20…0b40 64 65 66 75 6e 20 73 6f 72 74 2d 6c 69 6e 65 73 20 28 72 65 76 65 72 73 65 20 62 65 67 20 65 6e ┆defun sort-lines (reverse beg en┆ 0x0b40…0b60 64 29 20 22 5c 0a 53 6f 72 74 20 6c 69 6e 65 73 20 69 6e 20 72 65 67 69 6f 6e 20 61 6c 70 68 61 ┆d) "\ Sort lines in region alpha┆ 0x0b60…0b80 62 65 74 69 63 61 6c 6c 79 3b 20 61 72 67 75 6d 65 6e 74 20 6d 65 61 6e 73 20 64 65 73 63 65 6e ┆betically; argument means descen┆ 0x0b80…0ba0 64 69 6e 67 20 6f 72 64 65 72 2e 0a 43 61 6c 6c 65 64 20 66 72 6f 6d 20 61 20 70 72 6f 67 72 61 ┆ding order. Called from a progra┆ 0x0ba0…0bc0 6d 2c 20 74 68 65 72 65 20 61 72 65 20 74 68 72 65 65 20 61 72 67 75 6d 65 6e 74 73 3a 0a 52 45 ┆m, there are three arguments: RE┆ 0x0bc0…0be0 56 45 52 53 45 20 28 6e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 72 65 76 65 72 73 65 20 6f 72 64 ┆VERSE (non-nil means reverse ord┆ 0x0be0…0c00 65 72 29 2c 20 42 45 47 20 61 6e 64 20 45 4e 44 20 28 72 65 67 69 6f 6e 20 74 6f 20 73 6f 72 74 ┆er), BEG and END (region to sort┆ 0x0c00…0c20 29 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 0a 72 22 29 20 28 62 79 74 65 2d 63 6f ┆)." (interactive "P r") (byte-co┆ 0x0c20…0c40 64 65 20 22 c3 88 8c c4 08 09 5c 22 88 65 62 88 c5 0a c6 c7 23 29 87 22 20 5b 62 65 67 20 65 6e ┆de " \" eb #) " [beg en┆ 0x0c40…0c60 64 20 72 65 76 65 72 73 65 20 6e 69 6c 20 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f 6e 20 73 ┆d reverse nil narrow-to-region s┆ 0x0c60…0c80 6f 72 74 2d 73 75 62 72 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 65 6e 64 2d 6f 66 2d 6c 69 6e ┆ort-subr forward-line end-of-lin┆ 0x0c80…0ca0 65 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 73 6f 72 74 2d 70 61 72 61 67 72 61 70 68 73 20 28 ┆e] 5)) (defun sort-paragraphs (┆ 0x0ca0…0cc0 72 65 76 65 72 73 65 20 62 65 67 20 65 6e 64 29 20 22 5c 0a 53 6f 72 74 20 70 61 72 61 67 72 61 ┆reverse beg end) "\ Sort paragra┆ 0x0cc0…0ce0 70 68 73 20 69 6e 20 72 65 67 69 6f 6e 20 61 6c 70 68 61 62 65 74 69 63 61 6c 6c 79 3b 20 61 72 ┆phs in region alphabetically; ar┆ 0x0ce0…0d00 67 75 6d 65 6e 74 20 6d 65 61 6e 73 20 64 65 73 63 65 6e 64 69 6e 67 20 6f 72 64 65 72 2e 0a 43 ┆gument means descending order. C┆ 0x0d00…0d20 61 6c 6c 65 64 20 66 72 6f 6d 20 61 20 70 72 6f 67 72 61 6d 2c 20 74 68 65 72 65 20 61 72 65 20 ┆alled from a program, there are ┆ 0x0d20…0d40 74 68 72 65 65 20 61 72 67 75 6d 65 6e 74 73 3a 0a 52 45 56 45 52 53 45 20 28 6e 6f 6e 2d 6e 69 ┆three arguments: REVERSE (non-ni┆ 0x0d40…0d60 6c 20 6d 65 61 6e 73 20 72 65 76 65 72 73 65 20 6f 72 64 65 72 29 2c 20 42 45 47 20 61 6e 64 20 ┆l means reverse order), BEG and ┆ 0x0d60…0d80 45 4e 44 20 28 72 65 67 69 6f 6e 20 74 6f 20 73 6f 72 74 29 2e 22 20 28 69 6e 74 65 72 61 63 74 ┆END (region to sort)." (interact┆ 0x0d80…0da0 69 76 65 20 22 50 0a 72 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 8c c4 08 09 5c 22 88 ┆ive "P r") (byte-code " \" ┆ 0x0da0…0dc0 65 62 88 c5 0a c6 c7 23 29 87 22 20 5b 62 65 67 20 65 6e 64 20 72 65 76 65 72 73 65 20 6e 69 6c ┆eb #) " [beg end reverse nil┆ 0x0dc0…0de0 20 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f 6e 20 73 6f 72 74 2d 73 75 62 72 20 28 6c 61 6d ┆ narrow-to-region sort-subr (lam┆ 0x0de0…0e00 62 64 61 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 21 87 22 20 5b 73 6b 69 70 2d ┆bda nil (byte-code " ! " [skip-┆ 0x0e00…0e20 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 0a 20 09 0c 22 5d 20 32 29 29 20 66 6f 72 77 61 72 ┆chars-forward " "] 2)) forwar┆ 0x0e20…0e40 64 2d 70 61 72 61 67 72 61 70 68 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 73 6f 72 74 2d 70 61 ┆d-paragraph] 5)) (defun sort-pa┆ 0x0e40…0e60 67 65 73 20 28 72 65 76 65 72 73 65 20 62 65 67 20 65 6e 64 29 20 22 5c 0a 53 6f 72 74 20 70 61 ┆ges (reverse beg end) "\ Sort pa┆ 0x0e60…0e80 67 65 73 20 69 6e 20 72 65 67 69 6f 6e 20 61 6c 70 68 61 62 65 74 69 63 61 6c 6c 79 3b 20 61 72 ┆ges in region alphabetically; ar┆ 0x0e80…0ea0 67 75 6d 65 6e 74 20 6d 65 61 6e 73 20 64 65 73 63 65 6e 64 69 6e 67 20 6f 72 64 65 72 2e 0a 43 ┆gument means descending order. C┆ 0x0ea0…0ec0 61 6c 6c 65 64 20 66 72 6f 6d 20 61 20 70 72 6f 67 72 61 6d 2c 20 74 68 65 72 65 20 61 72 65 20 ┆alled from a program, there are ┆ 0x0ec0…0ee0 74 68 72 65 65 20 61 72 67 75 6d 65 6e 74 73 3a 0a 52 45 56 45 52 53 45 20 28 6e 6f 6e 2d 6e 69 ┆three arguments: REVERSE (non-ni┆ 0x0ee0…0f00 6c 20 6d 65 61 6e 73 20 72 65 76 65 72 73 65 20 6f 72 64 65 72 29 2c 20 42 45 47 20 61 6e 64 20 ┆l means reverse order), BEG and ┆ 0x0f00…0f20 45 4e 44 20 28 72 65 67 69 6f 6e 20 74 6f 20 73 6f 72 74 29 2e 22 20 28 69 6e 74 65 72 61 63 74 ┆END (region to sort)." (interact┆ 0x0f20…0f40 69 76 65 20 22 50 0a 72 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 8c c4 08 09 5c 22 88 ┆ive "P r") (byte-code " \" ┆ 0x0f40…0f60 65 62 88 c5 0a c6 c7 23 29 87 22 20 5b 62 65 67 20 65 6e 64 20 72 65 76 65 72 73 65 20 6e 69 6c ┆eb #) " [beg end reverse nil┆ 0x0f60…0f80 20 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f 6e 20 73 6f 72 74 2d 73 75 62 72 20 28 6c 61 6d ┆ narrow-to-region sort-subr (lam┆ 0x0f80…0fa0 62 64 61 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 21 87 22 20 5b 73 6b 69 70 2d ┆bda nil (byte-code " ! " [skip-┆ 0x0fa0…0fc0 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 0a 22 5d 20 32 29 29 20 66 6f 72 77 61 72 64 2d 70 ┆chars-forward " "] 2)) forward-p┆ 0x0fc0…0fe0 61 67 65 5d 20 35 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6f 72 74 2d 66 69 65 6c 64 73 2d 73 79 ┆age] 5)) (defvar sort-fields-sy┆ 0x0fe0…1000 6e 74 61 78 2d 74 61 62 6c 65 20 6e 69 6c 29 0a 0a 28 69 66 20 73 6f 72 74 2d 66 69 65 6c 64 73 ┆ntax-table nil) (if sort-fields┆ 0x1000…1020 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6e 69 6c 20 28 6c 65 74 20 28 28 74 61 62 6c 65 20 28 ┆-syntax-table nil (let ((table (┆ 0x1020…1040 6d 61 6b 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 29 20 28 69 20 30 29 29 20 28 77 68 69 6c ┆make-syntax-table)) (i 0)) (whil┆ 0x1040…1060 65 20 28 3c 20 69 20 32 35 36 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 ┆e (< i 256) (modify-syntax-entry┆ 0x1060…1080 20 69 20 22 77 22 20 74 61 62 6c 65 29 20 28 73 65 74 71 20 69 20 28 31 2b 20 69 29 29 29 20 28 ┆ i "w" table) (setq i (1+ i))) (┆ 0x1080…10a0 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33 32 20 22 20 22 20 74 61 62 6c 65 ┆modify-syntax-entry 32 " " table┆ 0x10a0…10c0 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 39 20 22 20 22 20 74 61 62 ┆) (modify-syntax-entry 9 " " tab┆ 0x10c0…10e0 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 31 30 20 22 20 22 20 ┆le) (modify-syntax-entry 10 " " ┆ 0x10e0…1100 74 61 62 6c 65 29 20 28 73 65 74 71 20 73 6f 72 74 2d 66 69 65 6c 64 73 2d 73 79 6e 74 61 78 2d ┆table) (setq sort-fields-syntax-┆ 0x1100…1120 74 61 62 6c 65 20 74 61 62 6c 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6f 72 74 2d 6e 75 6d 65 ┆table table))) (defun sort-nume┆ 0x1120…1140 72 69 63 2d 66 69 65 6c 64 73 20 28 66 69 65 6c 64 20 62 65 67 20 65 6e 64 29 20 22 5c 0a 53 6f ┆ric-fields (field beg end) "\ So┆ 0x1140…1160 72 74 20 6c 69 6e 65 73 20 69 6e 20 72 65 67 69 6f 6e 20 6e 75 6d 65 72 69 63 61 6c 6c 79 20 62 ┆rt lines in region numerically b┆ 0x1160…1180 79 20 74 68 65 20 41 52 47 74 68 20 66 69 65 6c 64 20 6f 66 20 65 61 63 68 20 6c 69 6e 65 2e 0a ┆y the ARGth field of each line. ┆ 0x1180…11a0 46 69 65 6c 64 73 20 61 72 65 20 73 65 70 61 72 61 74 65 64 20 62 79 20 77 68 69 74 65 73 70 61 ┆Fields are separated by whitespa┆ 0x11a0…11c0 63 65 20 61 6e 64 20 6e 75 6d 62 65 72 65 64 20 66 72 6f 6d 20 31 20 75 70 2e 0a 53 70 65 63 69 ┆ce and numbered from 1 up. Speci┆ 0x11c0…11e0 66 69 65 64 20 66 69 65 6c 64 20 6d 75 73 74 20 63 6f 6e 74 61 69 6e 20 61 20 6e 75 6d 62 65 72 ┆fied field must contain a number┆ 0x11e0…1200 20 69 6e 20 65 61 63 68 20 6c 69 6e 65 20 6f 66 20 74 68 65 20 72 65 67 69 6f 6e 2e 0a 57 69 74 ┆ in each line of the region. Wit┆ 0x1200…1220 68 20 61 20 6e 65 67 61 74 69 76 65 20 61 72 67 2c 20 73 6f 72 74 73 20 62 79 20 74 68 65 20 2d ┆h a negative arg, sorts by the -┆ 0x1220…1240 41 52 47 27 74 68 20 66 69 65 6c 64 2c 20 69 6e 20 72 65 76 65 72 73 65 20 6f 72 64 65 72 2e 0a ┆ARG'th field, in reverse order. ┆ 0x1240…1260 43 61 6c 6c 65 64 20 66 72 6f 6d 20 61 20 70 72 6f 67 72 61 6d 2c 20 74 68 65 72 65 20 61 72 65 ┆Called from a program, there are┆ 0x1260…1280 20 74 68 72 65 65 20 61 72 67 75 6d 65 6e 74 73 3a 0a 46 49 45 4c 44 2c 20 42 45 47 20 61 6e 64 ┆ three arguments: FIELD, BEG and┆ 0x1280…12a0 20 45 4e 44 2e 20 20 42 45 47 20 61 6e 64 20 45 4e 44 20 73 70 65 63 69 66 79 20 72 65 67 69 6f ┆ END. BEG and END specify regio┆ 0x12a0…12c0 6e 20 74 6f 20 73 6f 72 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 0a 72 22 29 20 ┆n to sort." (interactive "p r") ┆ 0x12c0…12e0 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 08 09 0a c5 c3 25 87 22 20 5b 66 69 65 6c 64 20 62 ┆(byte-code " % " [field b┆ 0x12e0…1300 65 67 20 65 6e 64 20 6e 69 6c 20 73 6f 72 74 2d 66 69 65 6c 64 73 2d 31 20 28 6c 61 6d 62 64 61 ┆eg end nil sort-fields-1 (lambda┆ 0x1300…1320 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 53 21 88 c2 c3 60 8a c4 c5 21 88 60 29 ┆ nil (byte-code " S! ` ! `)┆ 0x1320…1340 5c 22 21 87 22 20 5b 66 69 65 6c 64 20 73 6f 72 74 2d 73 6b 69 70 2d 66 69 65 6c 64 73 20 73 74 ┆\"! " [field sort-skip-fields st┆ 0x1340…1360 72 69 6e 67 2d 74 6f 2d 69 6e 74 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 73 6b 69 ┆ring-to-int buffer-substring ski┆ 0x1360…1380 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 5b 30 2d 39 5d 22 5d 20 36 29 29 5d 20 36 29 ┆p-chars-forward "[0-9]"] 6))] 6)┆ 0x1380…13a0 29 0a 0a 28 64 65 66 75 6e 20 73 6f 72 74 2d 66 69 65 6c 64 73 20 28 66 69 65 6c 64 20 62 65 67 ┆) (defun sort-fields (field beg┆ 0x13a0…13c0 20 65 6e 64 29 20 22 5c 0a 53 6f 72 74 20 6c 69 6e 65 73 20 69 6e 20 72 65 67 69 6f 6e 20 6c 65 ┆ end) "\ Sort lines in region le┆ 0x13c0…13e0 78 69 63 6f 67 72 61 70 68 69 63 61 6c 6c 79 20 62 79 20 74 68 65 20 41 52 47 74 68 20 66 69 65 ┆xicographically by the ARGth fie┆ 0x13e0…1400 6c 64 20 6f 66 20 65 61 63 68 20 6c 69 6e 65 2e 0a 46 69 65 6c 64 73 20 61 72 65 20 73 65 70 61 ┆ld of each line. Fields are sepa┆ 0x1400…1420 72 61 74 65 64 20 62 79 20 77 68 69 74 65 73 70 61 63 65 20 61 6e 64 20 6e 75 6d 62 65 72 65 64 ┆rated by whitespace and numbered┆ 0x1420…1440 20 66 72 6f 6d 20 31 20 75 70 2e 0a 57 69 74 68 20 61 20 6e 65 67 61 74 69 76 65 20 61 72 67 2c ┆ from 1 up. With a negative arg,┆ 0x1440…1460 20 73 6f 72 74 73 20 62 79 20 74 68 65 20 2d 41 52 47 27 74 68 20 66 69 65 6c 64 2c 20 69 6e 20 ┆ sorts by the -ARG'th field, in ┆ 0x1460…1480 72 65 76 65 72 73 65 20 6f 72 64 65 72 2e 0a 43 61 6c 6c 65 64 20 66 72 6f 6d 20 61 20 70 72 6f ┆reverse order. Called from a pro┆ 0x1480…14a0 67 72 61 6d 2c 20 74 68 65 72 65 20 61 72 65 20 74 68 72 65 65 20 61 72 67 75 6d 65 6e 74 73 3a ┆gram, there are three arguments:┆ 0x14a0…14c0 0a 46 49 45 4c 44 2c 20 42 45 47 20 61 6e 64 20 45 4e 44 2e 20 20 42 45 47 20 61 6e 64 20 45 4e ┆ FIELD, BEG and END. BEG and EN┆ 0x14c0…14e0 44 20 73 70 65 63 69 66 79 20 72 65 67 69 6f 6e 20 74 6f 20 73 6f 72 74 2e 22 20 28 69 6e 74 65 ┆D specify region to sort." (inte┆ 0x14e0…1500 72 61 63 74 69 76 65 20 22 70 0a 72 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 08 09 ┆ractive "p r") (byte-code " ┆ 0x1500…1520 0a c5 c6 25 87 22 20 5b 66 69 65 6c 64 20 62 65 67 20 65 6e 64 20 6e 69 6c 20 73 6f 72 74 2d 66 ┆ % " [field beg end nil sort-f┆ 0x1520…1540 69 65 6c 64 73 2d 31 20 28 6c 61 6d 62 64 61 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ┆ields-1 (lambda nil (byte-code "┆ 0x1540…1560 c2 08 53 21 88 c1 87 22 20 5b 66 69 65 6c 64 20 6e 69 6c 20 73 6f 72 74 2d 73 6b 69 70 2d 66 69 ┆ S! " [field nil sort-skip-fi┆ 0x1560…1580 65 6c 64 73 5d 20 32 29 29 20 28 6c 61 6d 62 64 61 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 ┆elds] 2)) (lambda nil (byte-code┆ 0x1580…15a0 20 22 c0 c1 21 87 22 20 5b 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 5e 20 09 ┆ " ! " [skip-chars-forward "^ ┆ 0x15a0…15c0 0a 22 5d 20 32 29 29 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 73 6f 72 74 2d 66 69 65 6c 64 73 ┆ "] 2))] 6)) (defun sort-fields┆ 0x15c0…15e0 2d 31 20 28 66 69 65 6c 64 20 62 65 67 20 65 6e 64 20 73 74 61 72 74 6b 65 79 66 75 6e 20 65 6e ┆-1 (field beg end startkeyfun en┆ 0x15e0…1600 64 6b 65 79 66 75 6e 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 c8 57 c9 20 1a 18 ca cb 09 09 ┆dkeyfun) (byte-code " W ┆ 0x1600…1620 5b 23 89 11 88 cc 8e 8c cd 0b 0c 5c 22 88 65 62 88 ce 0d 21 88 cf 08 d0 d1 0e 06 0e 07 25 29 29 ┆[# \" eb ! %))┆ 0x1620…1640 2a 87 22 20 5b 72 65 76 65 72 73 65 20 66 69 65 6c 64 20 74 62 6c 20 62 65 67 20 65 6e 64 20 73 ┆* " [reverse field tbl beg end s┆ 0x1640…1660 6f 72 74 2d 66 69 65 6c 64 73 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 73 74 61 72 74 6b 65 79 ┆ort-fields-syntax-table startkey┆ 0x1660…1680 66 75 6e 20 65 6e 64 6b 65 79 66 75 6e 20 30 20 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6d 61 78 ┆fun endkeyfun 0 syntax-table max┆ 0x1680…16a0 20 31 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21 87 22 20 5b 74 62 6c 20 73 65 74 2d 73 ┆ 1 ((byte-code " ! " [tbl set-s┆ 0x16a0…16c0 79 6e 74 61 78 2d 74 61 62 6c 65 5d 20 32 29 29 20 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f ┆yntax-table] 2)) narrow-to-regio┆ 0x16c0…16e0 6e 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 73 6f 72 74 2d 73 75 62 72 20 66 6f 72 ┆n set-syntax-table sort-subr for┆ 0x16e0…1700 77 61 72 64 2d 6c 69 6e 65 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 5d 20 31 30 29 29 0a 0a 28 64 65 ┆ward-line end-of-line] 10)) (de┆ 0x1700…1720 66 75 6e 20 73 6f 72 74 2d 73 6b 69 70 2d 66 69 65 6c 64 73 20 28 6e 29 20 28 62 79 74 65 2d 63 ┆fun sort-skip-fields (n) (byte-c┆ 0x1720…1740 6f 64 65 20 22 8a c2 c3 21 88 60 29 18 c4 09 21 88 60 08 56 85 1e 00 c5 c6 c7 8a c8 20 88 60 29 ┆ode " ! `) ! ` V `)┆ 0x1740…1760 08 5c 22 5c 22 88 c9 ca 21 29 87 22 20 5b 65 6f 6c 20 6e 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 ┆ \"\" !) " [eol n end-of-line ┆ 0x1760…1780 31 20 66 6f 72 77 61 72 64 2d 77 6f 72 64 20 65 72 72 6f 72 20 22 4c 69 6e 65 20 68 61 73 20 74 ┆1 forward-word error "Line has t┆ 0x1780…17a0 6f 6f 20 66 65 77 20 66 69 65 6c 64 73 3a 20 25 73 22 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 ┆oo few fields: %s" buffer-substr┆ 0x17a0…17c0 69 6e 67 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 73 6b 69 70 2d 63 68 61 72 73 ┆ing beginning-of-line skip-chars┆ 0x17c0…17e0 2d 66 6f 72 77 61 72 64 20 22 20 09 22 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 73 6f 72 74 2d ┆-forward " "] 8)) (defun sort-┆ 0x17e0…1800 72 65 67 65 78 70 2d 66 69 65 6c 64 73 20 28 72 65 76 65 72 73 65 20 72 65 63 6f 72 64 2d 72 65 ┆regexp-fields (reverse record-re┆ 0x1800…1820 67 65 78 70 20 6b 65 79 2d 72 65 67 65 78 70 20 62 65 67 20 65 6e 64 29 20 22 5c 0a 53 6f 72 74 ┆gexp key-regexp beg end) "\ Sort┆ 0x1820…1840 20 74 68 65 20 72 65 67 69 6f 6e 20 6c 65 78 69 63 6f 67 72 61 70 68 69 63 61 6c 6c 79 20 61 73 ┆ the region lexicographically as┆ 0x1840…1860 20 73 70 65 63 69 66 65 64 20 62 79 20 52 45 43 4f 52 44 2d 52 45 47 45 58 50 20 61 6e 64 20 4b ┆ specifed by RECORD-REGEXP and K┆ 0x1860…1880 45 59 2e 0a 52 45 43 4f 52 44 2d 52 45 47 45 58 50 20 73 70 65 63 69 66 69 65 73 20 74 68 65 20 ┆EY. RECORD-REGEXP specifies the ┆ 0x1880…18a0 74 65 78 74 75 61 6c 20 75 6e 69 74 73 20 77 68 69 63 68 20 73 68 6f 75 6c 64 20 62 65 20 73 6f ┆textual units which should be so┆ 0x18a0…18c0 72 74 65 64 2e 0a 20 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 74 6f 20 73 6f 72 74 20 6c 69 6e ┆rted. For example, to sort lin┆ 0x18c0…18e0 65 73 20 52 45 43 4f 52 44 2d 52 45 47 45 58 50 20 77 6f 75 6c 64 20 62 65 20 5c 22 5e 2e 2a 24 ┆es RECORD-REGEXP would be \"^.*$┆ 0x18e0…1900 5c 22 0a 4b 45 59 20 73 70 65 63 69 66 69 65 73 20 74 68 65 20 70 61 72 74 20 6f 66 20 65 61 63 ┆\" KEY specifies the part of eac┆ 0x1900…1920 68 20 72 65 63 6f 72 64 20 28 69 65 20 65 61 63 68 20 6d 61 74 63 68 20 66 6f 72 20 52 45 43 4f ┆h record (ie each match for RECO┆ […truncated at 200 lines…]