home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / misc / float-sort.patch < prev    next >
Mailbox/MIME Entity  |  1990-07-22  |  3.2 KB

open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: Mailbox/MIME Entity (archive/mbox).

ConfidenceProgramDetectionMatch TypeSupport
100% dexvert Mailbox/MIME Entity (archive/mbox) magic Supported
100% dexvert Internet Message Format (text/imf) magic Supported
1% dexvert IFF Binary Patch (other/iffBinaryPatch) ext Unsupported
1% dexvert imgdiff patch (other/imgdiffPatch) ext Unsupported
1% dexvert SuperJAM! File (other/superJamFile) ext Unsupported
1% dexvert XDelta binary patch file (other/xDeltaBinaryPatchFile) ext Unsupported
1% dexvert GPatch Patch (other/gPatchPatch) ext Unsupported
1% dexvert Text File (text/txt) fallback Supported
100% file Mailbox text, 1st line "From utkcs2!emory!swrinde!cs.utexas.edu!tut.cis.ohio-state.edu!moose.crd.ge.com!montnaro Mon Jun 25 07:46:11 EDT 1990" default
99% file JavaScript source default
98% file Lisp/Scheme program text default
97% file Lisp/Scheme program, ASCII text default
100% TrID E-Mail message (Var. 2) default
100% checkBytes Printable ASCII default
100% perlTextCheck Likely Text (Perl) default
100% siegfried x-fmt/111 Plain Text File default
100% detectItEasy Format: Plain text[LF] default
100% xdgMime application/mbox default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 20 75 74 6b | 63 73 32 21 65 6d 6f 72 |From utk|cs2!emor|
|00000010| 79 21 73 77 72 69 6e 64 | 65 21 63 73 2e 75 74 65 |y!swrind|e!cs.ute|
|00000020| 78 61 73 2e 65 64 75 21 | 74 75 74 2e 63 69 73 2e |xas.edu!|tut.cis.|
|00000030| 6f 68 69 6f 2d 73 74 61 | 74 65 2e 65 64 75 21 6d |ohio-sta|te.edu!m|
|00000040| 6f 6f 73 65 2e 63 72 64 | 2e 67 65 2e 63 6f 6d 21 |oose.crd|.ge.com!|
|00000050| 6d 6f 6e 74 6e 61 72 6f | 20 4d 6f 6e 20 4a 75 6e |montnaro| Mon Jun|
|00000060| 20 32 35 20 30 37 3a 34 | 36 3a 31 31 20 45 44 54 | 25 07:4|6:11 EDT|
|00000070| 20 31 39 39 30 0a 41 72 | 74 69 63 6c 65 20 32 31 | 1990.Ar|ticle 21|
|00000080| 32 38 20 6f 66 20 67 6e | 75 2e 65 6d 61 63 73 2e |28 of gn|u.emacs.|
|00000090| 62 75 67 3a 0a 50 61 74 | 68 3a 20 75 74 6b 63 73 |bug:.Pat|h: utkcs|
|000000a0| 32 21 65 6d 6f 72 79 21 | 73 77 72 69 6e 64 65 21 |2!emory!|swrinde!|
|000000b0| 63 73 2e 75 74 65 78 61 | 73 2e 65 64 75 21 74 75 |cs.utexa|s.edu!tu|
|000000c0| 74 2e 63 69 73 2e 6f 68 | 69 6f 2d 73 74 61 74 65 |t.cis.oh|io-state|
|000000d0| 2e 65 64 75 21 6d 6f 6f | 73 65 2e 63 72 64 2e 67 |.edu!moo|se.crd.g|
|000000e0| 65 2e 63 6f 6d 21 6d 6f | 6e 74 6e 61 72 6f 0a 3e |e.com!mo|ntnaro.>|
|000000f0| 46 72 6f 6d 3a 20 6d 6f | 6e 74 6e 61 72 6f 40 6d |From: mo|ntnaro@m|
|00000100| 6f 6f 73 65 2e 63 72 64 | 2e 67 65 2e 63 6f 6d 20 |oose.crd|.ge.com |
|00000110| 28 53 6b 69 70 20 4d 6f | 6e 74 61 6e 61 72 6f 29 |(Skip Mo|ntanaro)|
|00000120| 0a 4e 65 77 73 67 72 6f | 75 70 73 3a 20 67 6e 75 |.Newsgro|ups: gnu|
|00000130| 2e 65 6d 61 63 73 2e 62 | 75 67 0a 53 75 62 6a 65 |.emacs.b|ug.Subje|
|00000140| 63 74 3a 20 53 6f 72 74 | 69 6e 67 20 66 6c 6f 61 |ct: Sort|ing floa|
|00000150| 74 69 6e 67 20 70 6f 69 | 6e 74 20 66 69 65 6c 64 |ting poi|nt field|
|00000160| 73 0a 4d 65 73 73 61 67 | 65 2d 49 44 3a 20 3c 39 |s.Messag|e-ID: <9|
|00000170| 30 30 36 32 32 30 32 35 | 30 2e 41 41 32 36 39 30 |00622025|0.AA2690|
|00000180| 39 40 6d 6f 6f 73 65 2e | 63 72 64 2e 47 65 2e 43 |9@moose.|crd.Ge.C|
|00000190| 6f 6d 3e 0a 44 61 74 65 | 3a 20 32 32 20 4a 75 6e |om>.Date|: 22 Jun|
|000001a0| 20 39 30 20 30 32 3a 35 | 30 3a 33 37 20 47 4d 54 | 90 02:5|0:37 GMT|
|000001b0| 0a 53 65 6e 64 65 72 3a | 20 64 61 65 6d 6f 6e 40 |.Sender:| daemon@|
|000001c0| 74 75 74 2e 63 69 73 2e | 6f 68 69 6f 2d 73 74 61 |tut.cis.|ohio-sta|
|000001d0| 74 65 2e 65 64 75 0a 52 | 65 70 6c 79 2d 54 6f 3a |te.edu.R|eply-To:|
|000001e0| 20 6d 6f 6e 74 61 6e 61 | 72 6f 40 63 72 64 67 77 | montana|ro@crdgw|
|000001f0| 31 2e 67 65 2e 63 6f 6d | 20 28 53 6b 69 70 20 4d |1.ge.com| (Skip M|
|00000200| 6f 6e 74 61 6e 61 72 6f | 29 0a 44 69 73 74 72 69 |ontanaro|).Distri|
|00000210| 62 75 74 69 6f 6e 3a 20 | 67 6e 75 0a 4f 72 67 61 |bution: |gnu.Orga|
|00000220| 6e 69 7a 61 74 69 6f 6e | 3a 20 47 4e 55 73 20 4e |nization|: GNUs N|
|00000230| 6f 74 20 55 73 65 6e 65 | 74 0a 4c 69 6e 65 73 3a |ot Usene|t.Lines:|
|00000240| 20 38 36 0a 0a 0a 54 68 | 65 20 66 6f 6c 6c 6f 77 | 86...Th|e follow|
|00000250| 69 6e 67 20 63 6f 6e 74 | 65 78 74 20 64 69 66 66 |ing cont|ext diff|
|00000260| 20 74 6f 20 73 6f 72 74 | 2e 65 6c 20 66 6f 72 20 | to sort|.el for |
|00000270| 45 6d 61 63 73 20 31 38 | 2e 35 35 20 61 6c 6c 6f |Emacs 18|.55 allo|
|00000280| 77 73 20 79 6f 75 20 74 | 6f 20 73 6f 72 74 20 6f |ws you t|o sort o|
|00000290| 6e 0a 66 6c 6f 61 74 69 | 6e 67 20 70 6f 69 6e 74 |n.floati|ng point|
|000002a0| 20 66 69 65 6c 64 73 2e | 20 41 6e 20 65 61 72 6c | fields.| An earl|
|000002b0| 69 65 72 20 76 65 72 73 | 69 6f 6e 20 75 73 65 64 |ier vers|ion used|
|000002c0| 20 73 6b 69 70 2d 63 68 | 61 72 73 2d 66 6f 72 77 | skip-ch|ars-forw|
|000002d0| 61 72 64 20 69 6e 73 74 | 65 61 64 20 6f 66 0a 72 |ard inst|ead of.r|
|000002e0| 65 2d 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e-search|-forward|
|000002f0| 2e 20 49 74 20 73 65 72 | 65 6e 64 69 70 69 74 6f |. It ser|endipito|
|00000300| 75 73 6c 79 20 77 6f 72 | 6b 65 64 20 66 6f 72 20 |usly wor|ked for |
|00000310| 74 68 65 20 73 69 6d 70 | 6c 65 20 65 78 61 6d 70 |the simp|le examp|
|00000320| 6c 65 73 20 49 0a 74 72 | 69 65 64 2e 20 49 20 62 |les I.tr|ied. I b|
|00000330| 65 6c 69 65 76 65 20 74 | 68 69 73 20 76 65 72 73 |elieve t|his vers|
|00000340| 69 6f 6e 20 69 73 20 63 | 6f 72 72 65 63 74 2c 20 |ion is c|orrect, |
|00000350| 61 74 20 6c 65 61 73 74 | 20 69 6e 20 74 68 61 74 |at least| in that|
|00000360| 20 72 65 67 61 72 64 2e | 0a 0a 4e 6f 74 69 63 65 | regard.|..Notice|
|00000370| 20 74 68 61 74 20 66 6c | 6f 61 74 2e 65 6c 20 64 | that fl|oat.el d|
|00000380| 6f 65 73 6e 27 74 20 28 | 70 72 6f 76 69 64 65 20 |oesn't (|provide |
|00000390| 27 66 6c 6f 61 74 29 20 | 61 73 20 69 74 20 73 68 |'float) |as it sh|
|000003a0| 6f 75 6c 64 2e 20 49 66 | 20 74 68 69 73 20 67 65 |ould. If| this ge|
|000003b0| 74 73 0a 66 69 78 65 64 | 2c 20 74 68 65 20 61 75 |ts.fixed|, the au|
|000003c0| 74 6f 6c 6f 61 64 73 20 | 73 68 6f 75 6c 64 20 62 |toloads |should b|
|000003d0| 65 20 72 65 70 6c 61 63 | 65 64 20 62 79 20 28 72 |e replac|ed by (r|
|000003e0| 65 71 75 69 72 65 20 27 | 66 6c 6f 61 74 29 2e 0a |equire '|float)..|
|000003f0| 0a 53 6b 69 70 20 28 6d | 6f 6e 74 61 6e 61 72 6f |.Skip (m|ontanaro|
|00000400| 40 63 72 64 67 77 31 2e | 67 65 2e 63 6f 6d 29 0a |@crdgw1.|ge.com).|
|00000410| 0a 2a 2a 2a 20 2f 63 6f | 6d 6d 6f 6e 2f 73 75 6e |.*** /co|mmon/sun|
|00000420| 34 2f 65 6d 61 63 73 2f | 6c 69 73 70 2f 73 6f 72 |4/emacs/|lisp/sor|
|00000430| 74 2e 65 6c 09 4d 6f 6e | 20 4d 61 79 20 33 30 20 |t.el.Mon| May 30 |
|00000440| 31 37 3a 35 33 3a 33 34 | 20 31 39 38 38 0a 2d 2d |17:53:34| 1988.--|
|00000450| 2d 20 65 6d 61 63 73 2f | 73 6f 72 74 2d 66 6c 6f |- emacs/|sort-flo|
|00000460| 61 74 2e 65 6c 09 57 65 | 64 20 4a 75 6e 20 32 30 |at.el.We|d Jun 20|
|00000470| 20 30 39 3a 34 38 3a 30 | 30 20 31 39 39 30 0a 2a | 09:48:0|0 1990.*|
|00000480| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0a 2a |********|******.*|
|00000490| 2a 2a 20 32 31 2c 32 34 | 20 2a 2a 2a 2a 0a 2d 2d |** 21,24| ****.--|
|000004a0| 2d 20 32 31 2c 32 38 20 | 2d 2d 2d 2d 0a 20 20 28 |- 21,28 |----. (|
|000004b0| 70 72 6f 76 69 64 65 20 | 27 73 6f 72 74 29 0a 20 |provide |'sort). |
|000004c0| 20 0a 2b 20 28 61 75 74 | 6f 6c 6f 61 64 20 27 73 | .+ (aut|oload 's|
|000004d0| 74 72 69 6e 67 2d 74 6f | 2d 66 6c 6f 61 74 20 22 |tring-to|-float "|
|000004e0| 66 6c 6f 61 74 22 29 0a | 2b 20 28 61 75 74 6f 6c |float").|+ (autol|
|000004f0| 6f 61 64 20 27 66 6c 6f | 61 74 70 20 22 66 6c 6f |oad 'flo|atp "flo|
|00000500| 61 74 22 29 0a 2b 20 28 | 61 75 74 6f 6c 6f 61 64 |at").+ (|autoload|
|00000510| 20 27 66 3c 20 22 66 6c | 6f 61 74 22 29 0a 2b 20 | 'f< "fl|oat").+ |
|00000520| 0a 20 20 3b 3b 20 4f 72 | 69 67 69 6e 61 6c 20 76 |. ;; Or|iginal v|
|00000530| 65 72 73 69 6f 6e 20 6f | 66 20 6d 6f 73 74 20 6f |ersion o|f most o|
|00000540| 66 20 74 68 69 73 20 63 | 6f 6e 74 72 69 62 75 74 |f this c|ontribut|
|00000550| 65 64 20 62 79 20 48 6f | 77 69 65 20 4b 61 79 65 |ed by Ho|wie Kaye|
|00000560| 0a 20 20 0a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |. .****|********|
|00000570| 2a 2a 2a 0a 2a 2a 2a 20 | 36 36 2c 37 30 20 2a 2a |***.*** |66,70 **|
|00000580| 2a 2a 0a 20 20 09 20 20 | 20 20 20 20 28 69 66 20 |**. . | (if |
|00000590| 28 66 62 6f 75 6e 64 70 | 20 27 73 6f 72 74 63 61 |(fboundp| 'sortca|
|000005a0| 72 29 0a 20 20 09 09 20 | 20 28 73 6f 72 74 63 61 |r). .. | (sortca|
|000005b0| 72 20 73 6f 72 74 2d 6c | 69 73 74 73 0a 21 20 09 |r sort-l|ists.! .|
|000005c0| 09 09 20 20 20 28 63 6f | 6e 64 20 28 28 6e 75 6d |.. (co|nd ((num|
|000005d0| 62 65 72 70 20 28 63 61 | 72 20 28 63 61 72 20 73 |berp (ca|r (car s|
|000005e0| 6f 72 74 2d 6c 69 73 74 | 73 29 29 29 0a 20 20 09 |ort-list|s))). .|
|000005f0| 09 09 09 20 20 27 3c 29 | 0a 20 20 09 09 09 09 20 |... '<)|. .... |
|00000600| 28 28 63 6f 6e 73 70 20 | 28 63 61 72 20 28 63 61 |((consp |(car (ca|
|00000610| 72 20 73 6f 72 74 2d 6c | 69 73 74 73 29 29 29 0a |r sort-l|ists))).|
|00000620| 2d 2d 2d 20 37 30 2c 37 | 36 20 2d 2d 2d 2d 0a 20 |--- 70,7|6 ----. |
|00000630| 20 09 20 20 20 20 20 20 | 28 69 66 20 28 66 62 6f | . |(if (fbo|
|00000640| 75 6e 64 70 20 27 73 6f | 72 74 63 61 72 29 0a 20 |undp 'so|rtcar). |
|00000650| 20 09 09 20 20 28 73 6f | 72 74 63 61 72 20 73 6f | .. (so|rtcar so|
|00000660| 72 74 2d 6c 69 73 74 73 | 0a 21 20 09 09 09 20 20 |rt-lists|.! ... |
|00000670| 20 28 63 6f 6e 64 20 28 | 28 66 6c 6f 61 74 70 20 | (cond (|(floatp |
|00000680| 28 63 61 72 20 28 63 61 | 72 20 73 6f 72 74 2d 6c |(car (ca|r sort-l|
|00000690| 69 73 74 73 29 29 29 0a | 21 20 09 09 09 09 20 20 |ists))).|! .... |
|000006a0| 27 66 3c 29 0a 21 20 09 | 09 09 09 20 28 28 6e 75 |'f<).! .|... ((nu|
|000006b0| 6d 62 65 72 70 20 28 63 | 61 72 20 28 63 61 72 20 |mberp (c|ar (car |
|000006c0| 73 6f 72 74 2d 6c 69 73 | 74 73 29 29 29 0a 20 20 |sort-lis|ts))). |
|000006d0| 09 09 09 09 20 20 27 3c | 29 0a 20 20 09 09 09 09 |.... '<|). ....|
|000006e0| 20 28 28 63 6f 6e 73 70 | 20 28 63 61 72 20 28 63 | ((consp| (car (c|
|000006f0| 61 72 20 73 6f 72 74 2d | 6c 69 73 74 73 29 29 29 |ar sort-|lists)))|
|00000700| 0a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.*******|********|
|00000710| 0a 2a 2a 2a 20 37 33 2c | 37 39 20 2a 2a 2a 2a 0a |.*** 73,|79 ****.|
|00000720| 20 20 09 09 09 09 20 20 | 27 73 74 72 69 6e 67 3c | .... |'string<|
|00000730| 29 29 29 0a 20 20 09 09 | 20 20 28 73 6f 72 74 20 |))). ..| (sort |
|00000740| 73 6f 72 74 2d 6c 69 73 | 74 73 0a 21 20 09 09 09 |sort-lis|ts.! ...|
|00000750| 28 63 6f 6e 64 20 28 28 | 6e 75 6d 62 65 72 70 20 |(cond ((|numberp |
|00000760| 28 63 61 72 20 28 63 61 | 72 20 73 6f 72 74 2d 6c |(car (ca|r sort-l|
|00000770| 69 73 74 73 29 29 29 0a | 20 20 09 09 09 20 20 20 |ists))).| ... |
|00000780| 20 20 20 20 28 66 75 6e | 63 74 69 6f 6e 0a 20 20 | (fun|ction. |
|00000790| 09 09 09 09 28 6c 61 6d | 62 64 61 20 28 61 20 62 |....(lam|bda (a b|
|000007a0| 29 0a 20 20 09 09 09 09 | 20 20 28 3c 20 28 63 61 |). ....| (< (ca|
|000007b0| 72 20 61 29 20 28 63 61 | 72 20 62 29 29 29 29 29 |r a) (ca|r b)))))|
|000007c0| 0a 20 20 09 09 09 20 20 | 20 20 20 20 28 28 63 6f |. ... | ((co|
|000007d0| 6e 73 70 20 28 63 61 72 | 20 28 63 61 72 20 73 6f |nsp (car| (car so|
|000007e0| 72 74 2d 6c 69 73 74 73 | 29 29 29 0a 2d 2d 2d 20 |rt-lists|))).--- |
|000007f0| 37 39 2c 38 39 20 2d 2d | 2d 2d 0a 20 20 09 09 09 |79,89 --|--. ...|
|00000800| 09 20 20 27 73 74 72 69 | 6e 67 3c 29 29 29 0a 20 |. 'stri|ng<))). |
|00000810| 20 09 09 20 20 28 73 6f | 72 74 20 73 6f 72 74 2d | .. (so|rt sort-|
|00000820| 6c 69 73 74 73 0a 21 20 | 09 09 09 28 63 6f 6e 64 |lists.! |...(cond|
|00000830| 20 28 28 66 6c 6f 61 74 | 70 20 28 63 61 72 20 28 | ((float|p (car (|
|00000840| 63 61 72 20 73 6f 72 74 | 2d 6c 69 73 74 73 29 29 |car sort|-lists))|
|00000850| 29 0a 20 20 09 09 09 20 | 20 20 20 20 20 20 28 66 |). ... | (f|
|00000860| 75 6e 63 74 69 6f 6e 0a | 20 20 09 09 09 09 28 6c |unction.| ....(l|
|00000870| 61 6d 62 64 61 20 28 61 | 20 62 29 0a 2b 20 09 09 |ambda (a| b).+ ..|
|00000880| 09 09 20 20 28 66 3c 20 | 28 63 61 72 20 61 29 20 |.. (f< |(car a) |
|00000890| 28 63 61 72 20 62 29 29 | 29 29 29 0a 2b 20 09 09 |(car b))|))).+ ..|
|000008a0| 09 20 20 20 20 20 20 28 | 28 6e 75 6d 62 65 72 70 |. (|(numberp|
|000008b0| 20 28 63 61 72 20 28 63 | 61 72 20 73 6f 72 74 2d | (car (c|ar sort-|
|000008c0| 6c 69 73 74 73 29 29 29 | 0a 2b 20 09 09 09 20 20 |lists)))|.+ ... |
|000008d0| 20 20 20 20 20 28 66 75 | 6e 63 74 69 6f 6e 0a 2b | (fu|nction.+|
|000008e0| 20 09 09 09 09 28 6c 61 | 6d 62 64 61 20 28 61 20 | ....(la|mbda (a |
|000008f0| 62 29 0a 20 20 09 09 09 | 09 20 20 28 3c 20 28 63 |b). ...|. (< (c|
|00000900| 61 72 20 61 29 20 28 63 | 61 72 20 62 29 29 29 29 |ar a) (c|ar b))))|
|00000910| 29 0a 20 20 09 09 09 20 | 20 20 20 20 20 28 28 63 |). ... | ((c|
|00000920| 6f 6e 73 70 20 28 63 61 | 72 20 28 63 61 72 20 73 |onsp (ca|r (car s|
|00000930| 6f 72 74 2d 6c 69 73 74 | 73 29 29 29 0a 2a 2a 2a |ort-list|s))).***|
|00000940| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0a 2a 2a 2a |********|****.***|
|00000950| 20 33 34 33 2c 33 34 34 | 20 2a 2a 2a 2a 0a 2d 2d | 343,344| ****.--|
|00000960| 2d 20 33 35 33 2c 33 37 | 35 20 2d 2d 2d 2d 0a 20 |- 353,37|5 ----. |
|00000970| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000980| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 63 6f 6e | | (con|
|00000990| 63 61 74 20 22 2b 30 2e | 22 20 63 6f 6c 2d 73 74 |cat "+0.|" col-st|
|000009a0| 61 72 74 29 0a 20 20 20 | 20 20 20 20 20 20 20 20 |art). | |
|000009b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000009c0| 20 20 28 63 6f 6e 63 61 | 74 20 22 2d 30 2e 22 20 | (conca|t "-0." |
|000009d0| 63 6f 6c 2d 65 6e 64 29 | 29 29 29 29 0a 2b 20 0a |col-end)|)))).+ .|
|000009e0| 2b 20 28 64 65 66 75 6e | 20 73 6f 72 74 2d 66 6c |+ (defun| sort-fl|
|000009f0| 6f 61 74 2d 66 69 65 6c | 64 73 20 28 66 69 65 6c |oat-fiel|ds (fiel|
|00000a00| 64 20 62 65 67 20 65 6e | 64 29 0a 2b 20 20 20 22 |d beg en|d).+ "|
|00000a10| 53 6f 72 74 20 6c 69 6e | 65 73 20 69 6e 20 72 65 |Sort lin|es in re|
|00000a20| 67 69 6f 6e 20 6e 75 6d | 65 72 69 63 61 6c 6c 79 |gion num|erically|
|00000a30| 20 62 79 20 74 68 65 20 | 41 52 47 74 68 20 66 69 | by the |ARGth fi|
|00000a40| 65 6c 64 20 6f 66 20 65 | 61 63 68 20 6c 69 6e 65 |eld of e|ach line|
|00000a50| 2e 0a 2b 20 46 69 65 6c | 64 73 20 61 72 65 20 73 |..+ Fiel|ds are s|
|00000a60| 65 70 61 72 61 74 65 64 | 20 62 79 20 77 68 69 74 |eparated| by whit|
|00000a70| 65 73 70 61 63 65 20 61 | 6e 64 20 6e 75 6d 62 65 |espace a|nd numbe|
|00000a80| 72 65 64 20 66 72 6f 6d | 20 31 20 75 70 2e 20 20 |red from| 1 up. |
|00000a90| 53 70 65 63 69 66 69 65 | 64 20 66 69 65 6c 64 0a |Specifie|d field.|
|00000aa0| 2b 20 6d 75 73 74 20 63 | 6f 6e 74 61 69 6e 20 61 |+ must c|ontain a|
|00000ab0| 20 66 6c 6f 61 74 69 6e | 67 20 70 6f 69 6e 74 20 | floatin|g point |
|00000ac0| 6e 75 6d 62 65 72 20 69 | 6e 20 65 61 63 68 20 6c |number i|n each l|
|00000ad0| 69 6e 65 20 6f 66 20 74 | 68 65 20 72 65 67 69 6f |ine of t|he regio|
|00000ae0| 6e 2e 20 20 57 69 74 68 | 20 61 0a 2b 20 6e 65 67 |n. With| a.+ neg|
|00000af0| 61 74 69 76 65 20 61 72 | 67 2c 20 73 6f 72 74 73 |ative ar|g, sorts|
|00000b00| 20 62 79 20 74 68 65 20 | 2d 41 52 47 27 74 68 20 | by the |-ARG'th |
|00000b10| 66 69 65 6c 64 2c 20 69 | 6e 20 72 65 76 65 72 73 |field, i|n revers|
|00000b20| 65 20 6f 72 64 65 72 2e | 20 20 43 61 6c 6c 65 64 |e order.| Called|
|00000b30| 20 66 72 6f 6d 20 61 0a | 2b 20 70 72 6f 67 72 61 | from a.|+ progra|
|00000b40| 6d 2c 20 74 68 65 72 65 | 20 61 72 65 20 74 68 72 |m, there| are thr|
|00000b50| 65 65 20 61 72 67 75 6d | 65 6e 74 73 3a 20 46 49 |ee argum|ents: FI|
|00000b60| 45 4c 44 2c 20 42 45 47 | 20 61 6e 64 20 45 4e 44 |ELD, BEG| and END|
|00000b70| 2e 20 20 42 45 47 20 61 | 6e 64 20 45 4e 44 20 73 |. BEG a|nd END s|
|00000b80| 70 65 63 69 66 79 0a 2b | 20 72 65 67 69 6f 6e 20 |pecify.+| region |
|00000b90| 74 6f 20 73 6f 72 74 2e | 22 0a 2b 20 20 20 28 69 |to sort.|".+ (i|
|00000ba0| 6e 74 65 72 61 63 74 69 | 76 65 20 22 70 5c 6e 72 |nteracti|ve "p\nr|
|00000bb0| 22 29 0a 2b 20 20 20 28 | 73 6f 72 74 2d 66 69 65 |").+ (|sort-fie|
|00000bc0| 6c 64 73 2d 31 20 66 69 | 65 6c 64 20 62 65 67 20 |lds-1 fi|eld beg |
|00000bd0| 65 6e 64 0a 2b 20 09 09 | 20 28 66 75 6e 63 74 69 |end.+ ..| (functi|
|00000be0| 6f 6e 20 28 6c 61 6d 62 | 64 61 20 28 29 0a 2b 20 |on (lamb|da ().+ |
|00000bf0| 09 09 09 20 20 20 20 20 | 28 73 6f 72 74 2d 73 6b |... |(sort-sk|
|00000c00| 69 70 2d 66 69 65 6c 64 | 73 20 28 31 2d 20 66 69 |ip-field|s (1- fi|
|00000c10| 65 6c 64 29 29 0a 2b 20 | 09 09 09 20 20 20 20 20 |eld)).+ |... |
|00000c20| 28 73 74 72 69 6e 67 2d | 74 6f 2d 66 6c 6f 61 74 |(string-|to-float|
|00000c30| 0a 2b 20 09 09 09 20 20 | 20 20 20 20 28 62 75 66 |.+ ... | (buf|
|00000c40| 66 65 72 2d 73 75 62 73 | 74 72 69 6e 67 0a 2b 20 |fer-subs|tring.+ |
|00000c50| 09 09 09 20 20 20 20 20 | 20 20 28 70 6f 69 6e 74 |... | (point|
|00000c60| 29 0a 2b 20 09 09 09 20 | 20 20 20 20 20 20 28 73 |).+ ... | (s|
|00000c70| 61 76 65 2d 65 78 63 75 | 72 73 69 6f 6e 0a 2b 20 |ave-excu|rsion.+ |
|00000c80| 09 09 09 09 20 28 72 65 | 2d 73 65 61 72 63 68 2d |.... (re|-search-|
|00000c90| 66 6f 72 77 61 72 64 0a | 2b 20 09 09 09 09 20 20 |forward.|+ .... |
|00000ca0| 22 5b 2b 2d 5d 3f 5b 30 | 2d 39 5d 2a 5c 2e 3f 5b |"[+-]?[0|-9]*\.?[|
|00000cb0| 30 2d 39 5d 2a 5c 5c 28 | 5b 65 45 5d 5b 2b 2d 5d |0-9]*\\(|[eE][+-]|
|00000cc0| 3f 5b 30 2d 39 5d 2b 5c | 5c 29 3f 22 29 0a 2b 20 |?[0-9]+\|\)?").+ |
|00000cd0| 09 09 09 09 20 28 70 6f | 69 6e 74 29 29 29 29 29 |.... (po|int)))))|
|00000ce0| 29 0a 2b 20 09 09 20 6e | 69 6c 29 29 0a 2b 20 0a |).+ .. n|il)).+ .|
|00000cf0| 0a 0a | |.. | |
+--------+-------------------------+-------------------------+--------+--------+