home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1996-10-12 | 2.4 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs v18 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: '(require (quote calc-ext))
| default (weak)
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 72 65 71 75 69 72 | 65 20 28 71 75 6f 74 65 |.(requir|e (quote|
|00000010| 20 63 61 6c 63 2d 65 78 | 74 29 29 0a 0a 28 64 65 | calc-ex|t))..(de|
|00000020| 66 75 6e 20 63 61 6c 63 | 2d 4e 65 65 64 2d 63 61 |fun calc|-Need-ca|
|00000030| 6c 63 2d 75 6e 64 6f 20 | 6e 69 6c 20 28 62 79 74 |lc-undo |nil (byt|
|00000040| 65 2d 63 6f 64 65 20 22 | c0 87 22 20 5b 6e 69 6c |e-code "|.." [nil|
|00000050| 5d 20 31 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 1))..(|defun ca|
|00000060| 6c 63 2d 75 6e 64 6f 20 | 28 6e 29 20 28 69 6e 74 |lc-undo |(n) (int|
|00000070| 65 72 61 63 74 69 76 65 | 20 22 70 22 29 20 28 62 |eractive| "p") (b|
|00000080| 79 74 65 2d 63 6f 64 65 | 20 22 c2 88 08 85 09 00 |yte-code| "......|
|00000090| c3 c4 21 88 09 c5 58 83 | 23 00 09 c5 57 83 1d 00 |..!...X.|#...W...|
|000000a0| c6 09 5b 21 82 20 00 c7 | c8 21 82 26 00 c9 ca 21 |..[!. ..|.!.&...!|
|000000b0| 87 22 20 5b 63 61 6c 63 | 2d 65 78 65 63 75 74 69 |." [calc|-executi|
|000000c0| 6e 67 2d 6d 61 63 72 6f | 20 6e 20 6e 69 6c 20 65 |ng-macro| n nil e|
|000000d0| 72 72 6f 72 20 22 55 73 | 65 20 43 2d 78 20 65 2c |rror "Us|e C-x e,|
|000000e0| 20 6e 6f 74 20 58 2c 20 | 74 6f 20 72 75 6e 20 61 | not X, |to run a|
|000000f0| 20 6b 65 79 62 6f 61 72 | 64 20 6d 61 63 72 6f 20 | keyboar|d macro |
|00000100| 74 68 61 74 20 75 73 65 | 73 20 55 6e 64 6f 2e 22 |that use|s Undo."|
|00000110| 20 30 20 63 61 6c 63 2d | 72 65 64 6f 20 63 61 6c | 0 calc-|redo cal|
|00000120| 63 2d 6c 61 73 74 2d 61 | 72 67 73 20 31 20 63 61 |c-last-a|rgs 1 ca|
|00000130| 6c 63 2d 64 6f 20 28 6c | 61 6d 62 64 61 20 6e 69 |lc-do (l|ambda ni|
|00000140| 6c 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c4 08 |l (byte-|code "..|
|00000150| 53 09 5c 22 3f 85 0c 00 | c5 c6 21 88 c4 08 09 5c |S.\"?...|..!....\|
|00000160| 22 0b 1a c7 1b c8 09 08 | 5c 22 29 88 0a 89 13 29 |".......|\")....)|
|00000170| 88 89 11 88 c9 ca 21 87 | 22 20 5b 6e 20 63 61 6c |......!.|" [n cal|
|00000180| 63 2d 75 6e 64 6f 2d 6c | 69 73 74 20 73 61 76 65 |c-undo-l|ist save|
|00000190| 64 2d 73 74 61 63 6b 2d | 74 6f 70 20 63 61 6c 63 |d-stack-|top calc|
|000001a0| 2d 73 74 61 63 6b 2d 74 | 6f 70 20 6e 74 68 63 64 |-stack-t|op nthcd|
|000001b0| 72 20 65 72 72 6f 72 20 | 22 4e 6f 20 66 75 72 74 |r error |"No furt|
|000001c0| 68 65 72 20 75 6e 64 6f | 20 69 6e 66 6f 72 6d 61 |her undo| informa|
|000001d0| 74 69 6f 6e 20 61 76 61 | 69 6c 61 62 6c 65 22 20 |tion ava|ilable" |
|000001e0| 30 20 63 61 6c 63 2d 68 | 61 6e 64 6c 65 2d 75 6e |0 calc-h|andle-un|
|000001f0| 64 6f 73 20 6d 65 73 73 | 61 67 65 20 22 55 6e 64 |dos mess|age "Und|
|00000200| 6f 21 22 5d 20 37 29 29 | 5d 20 35 29 29 0a 0a 28 |o!"] 7))|] 5))..(|
|00000210| 64 65 66 75 6e 20 63 61 | 6c 63 2d 68 61 6e 64 6c |defun ca|lc-handl|
|00000220| 65 2d 75 6e 64 6f 73 20 | 28 63 6c 20 6e 29 20 28 |e-undos |(cl n) (|
|00000230| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 c6 56 85 1f |byte-cod|e "..V..|
|00000240| 00 0a 19 c4 89 13 88 c7 | 0d 40 21 88 c8 0b 09 5c |........|.@!....\|
|00000250| 22 89 12 29 88 c9 0d 41 | 08 53 5c 22 87 22 20 5b |"..)...A|.S\"." [|
|00000260| 6e 20 6f 6c 64 2d 72 65 | 64 6f 20 63 61 6c 63 2d |n old-re|do calc-|
|00000270| 72 65 64 6f 2d 6c 69 73 | 74 20 63 61 6c 63 2d 75 |redo-lis|t calc-u|
|00000280| 6e 64 6f 2d 6c 69 73 74 | 20 6e 69 6c 20 63 6c 20 |ndo-list| nil cl |
|00000290| 30 20 63 61 6c 63 2d 68 | 61 6e 64 6c 65 2d 75 6e |0 calc-h|andle-un|
|000002a0| 64 6f 20 61 70 70 65 6e | 64 20 63 61 6c 63 2d 68 |do appen|d calc-h|
|000002b0| 61 6e 64 6c 65 2d 75 6e | 64 6f 73 5d 20 35 29 29 |andle-un|dos] 5))|
|000002c0| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 2d 68 61 |..(defun| calc-ha|
|000002d0| 6e 64 6c 65 2d 75 6e 64 | 6f 20 28 6c 69 73 74 29 |ndle-und|o (list)|
|000002e0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 85 af | (byte-c|ode "...|
|000002f0| 00 08 40 19 09 40 c4 3d | 83 18 00 c5 c6 c6 09 38 |..@..@.=|.......8|
|00000300| c2 23 82 a9 00 09 40 c7 | 3d 83 2a 00 c8 c9 09 38 |.#....@.|=.*....8|
|00000310| c6 09 38 5c 22 82 a9 00 | 09 40 ca 3d 83 47 00 cb |..8\"...|.@.=.G..|
|00000320| ca c6 09 38 c6 09 38 4a | 45 21 88 c6 09 38 c9 09 |...8..8J|E!...8..|
|00000330| 38 4c 82 a9 00 09 40 cc | 3d 83 88 00 cd c6 09 38 |8L....@.|=......8|
|00000340| 21 1b cb cc c6 09 38 ce | 0b 21 85 61 00 0b 4a 45 |!.....8.|.!.a..JE|
|00000350| 21 88 cf d0 d1 c6 09 38 | 5c 22 21 85 84 00 c9 09 |!......8|\"!.....|
|00000360| 38 83 7d 00 0b c9 09 38 | 4c 82 80 00 d2 0b 21 88 |8.}....8|L.....!.|
|00000370| d3 0b 21 29 82 a9 00 09 | 40 d4 3d 85 a9 00 cb d5 |..!)....|@.=.....|
|00000380| d4 c9 09 38 c6 09 38 45 | 09 41 41 41 5c 22 21 88 |...8..8E|.AAA\"!.|
|00000390| d6 c6 09 38 09 41 41 41 | 5c 22 88 d7 08 41 21 29 |...8.AAA|\"...A!)|
|000003a0| 87 22 20 5b 6c 69 73 74 | 20 61 63 74 69 6f 6e 20 |." [list| action |
|000003b0| 74 20 76 20 70 75 73 68 | 20 63 61 6c 63 2d 70 6f |t v push| calc-po|
|000003c0| 70 2d 73 74 61 63 6b 20 | 31 20 70 6f 70 20 63 61 |p-stack |1 pop ca|
|000003d0| 6c 63 2d 70 75 73 68 2d | 6c 69 73 74 20 32 20 73 |lc-push-|list 2 s|
|000003e0| 65 74 20 63 61 6c 63 2d | 72 65 63 6f 72 64 2d 75 |et calc-|record-u|
|000003f0| 6e 64 6f 20 73 74 6f 72 | 65 20 69 6e 74 65 72 6e |ndo stor|e intern|
|00000400| 20 62 6f 75 6e 64 70 20 | 79 2d 6f 72 2d 6e 2d 70 | boundp |y-or-n-p|
|00000410| 20 66 6f 72 6d 61 74 20 | 22 55 6e 2d 73 74 6f 72 | format |"Un-stor|
|00000420| 65 20 76 61 72 69 61 62 | 6c 65 20 25 73 3f 20 22 |e variab|le %s? "|
|00000430| 20 6d 61 6b 75 6e 62 6f | 75 6e 64 20 63 61 6c 63 | makunbo|und calc|
|00000440| 2d 72 65 66 72 65 73 68 | 2d 65 76 61 6c 74 6f 73 |-refresh|-evaltos|
|00000450| 20 65 76 61 6c 20 61 70 | 70 65 6e 64 20 61 70 70 | eval ap|pend app|
|00000460| 6c 79 20 63 61 6c 63 2d | 68 61 6e 64 6c 65 2d 75 |ly calc-|handle-u|
|00000470| 6e 64 6f 5d 20 31 36 29 | 29 0a 0a 28 64 65 66 75 |ndo] 16)|)..(defu|
|00000480| 6e 20 63 61 6c 63 2d 72 | 65 64 6f 20 28 6e 29 20 |n calc-r|edo (n) |
|00000490| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 70 22 |(interac|tive "p"|
|000004a0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c2 88 |) (byte-|code "..|
|000004b0| 08 85 09 00 c3 c4 21 88 | 09 c5 58 83 17 00 c6 09 |......!.|..X.....|
|000004c0| 5b 21 82 1a 00 c7 c8 21 | 87 22 20 5b 63 61 6c 63 |[!.....!|." [calc|
|000004d0| 2d 65 78 65 63 75 74 69 | 6e 67 2d 6d 61 63 72 6f |-executi|ng-macro|
|000004e0| 20 6e 20 6e 69 6c 20 65 | 72 72 6f 72 20 22 55 73 | n nil e|rror "Us|
|000004f0| 65 20 43 2d 78 20 65 2c | 20 6e 6f 74 20 58 2c 20 |e C-x e,| not X, |
|00000500| 74 6f 20 72 75 6e 20 61 | 20 6b 65 79 62 6f 61 72 |to run a| keyboar|
|00000510| 64 20 6d 61 63 72 6f 20 | 74 68 61 74 20 75 73 65 |d macro |that use|
|00000520| 73 20 52 65 64 6f 2e 22 | 20 30 20 63 61 6c 63 2d |s Redo."| 0 calc-|
|00000530| 75 6e 64 6f 20 63 61 6c | 63 2d 64 6f 20 28 6c 61 |undo cal|c-do (la|
|00000540| 6d 62 64 61 20 6e 69 6c | 20 28 62 79 74 65 2d 63 |mbda nil| (byte-c|
|00000550| 6f 64 65 20 22 c4 08 53 | 09 5c 22 3f 85 0c 00 c5 |ode "..S|.\"?....|
|00000560| c6 21 88 c4 08 09 5c 22 | 0b 1a c7 1b c8 09 08 5c |.!....\"|.......\|
|00000570| 22 29 88 0a 89 13 29 88 | 89 11 88 c9 ca 21 87 22 |")....).|.....!."|
|00000580| 20 5b 6e 20 63 61 6c 63 | 2d 72 65 64 6f 2d 6c 69 | [n calc|-redo-li|
|00000590| 73 74 20 73 61 76 65 64 | 2d 73 74 61 63 6b 2d 74 |st saved|-stack-t|
|000005a0| 6f 70 20 63 61 6c 63 2d | 73 74 61 63 6b 2d 74 6f |op calc-|stack-to|
|000005b0| 70 20 6e 74 68 63 64 72 | 20 65 72 72 6f 72 20 22 |p nthcdr| error "|
|000005c0| 55 6e 61 62 6c 65 20 74 | 6f 20 72 65 64 6f 22 20 |Unable t|o redo" |
|000005d0| 30 20 63 61 6c 63 2d 68 | 61 6e 64 6c 65 2d 72 65 |0 calc-h|andle-re|
|000005e0| 64 6f 73 20 6d 65 73 73 | 61 67 65 20 22 52 65 64 |dos mess|age "Red|
|000005f0| 6f 21 22 5d 20 37 29 29 | 5d 20 34 29 29 0a 0a 28 |o!"] 7))|] 4))..(|
|00000600| 64 65 66 75 6e 20 63 61 | 6c 63 2d 68 61 6e 64 6c |defun ca|lc-handl|
|00000610| 65 2d 72 65 64 6f 73 20 | 28 63 6c 20 6e 29 20 28 |e-redos |(cl n) (|
|00000620| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 c5 56 85 1f |byte-cod|e "..V..|
|00000630| 00 0a 19 c3 89 12 88 c6 | 0c 40 21 88 c7 0a 09 5c |........|.@!....\|
|00000640| 22 89 12 29 88 c8 0c 41 | 08 53 5c 22 87 22 20 5b |"..)...A|.S\"." [|
|00000650| 6e 20 6f 6c 64 2d 75 6e | 64 6f 20 63 61 6c 63 2d |n old-un|do calc-|
|00000660| 75 6e 64 6f 2d 6c 69 73 | 74 20 6e 69 6c 20 63 6c |undo-lis|t nil cl|
|00000670| 20 30 20 63 61 6c 63 2d | 68 61 6e 64 6c 65 2d 75 | 0 calc-|handle-u|
|00000680| 6e 64 6f 20 61 70 70 65 | 6e 64 20 63 61 6c 63 2d |ndo appe|nd calc-|
|00000690| 68 61 6e 64 6c 65 2d 72 | 65 64 6f 73 5d 20 35 29 |handle-r|edos] 5)|
|000006a0| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 6c |)..(defu|n calc-l|
|000006b0| 61 73 74 2d 61 72 67 73 | 20 28 6e 29 20 28 69 6e |ast-args| (n) (in|
|000006c0| 74 65 72 61 63 74 69 76 | 65 20 22 70 22 29 20 28 |teractiv|e "p") (|
|000006d0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 88 08 85 09 |byte-cod|e ".....|
|000006e0| 00 c2 c3 21 88 c4 c5 21 | 87 22 20 5b 63 61 6c 63 |...!...!|." [calc|
|000006f0| 2d 65 78 65 63 75 74 69 | 6e 67 2d 6d 61 63 72 6f |-executi|ng-macro|
|00000700| 20 6e 69 6c 20 65 72 72 | 6f 72 20 22 55 73 65 20 | nil err|or "Use |
|00000710| 43 2d 78 20 65 2c 20 6e | 6f 74 20 58 2c 20 74 6f |C-x e, n|ot X, to|
|00000720| 20 72 75 6e 20 61 20 6b | 65 79 62 6f 61 72 64 20 | run a k|eyboard |
|00000730| 6d 61 63 72 6f 20 74 68 | 61 74 20 75 73 65 73 20 |macro th|at uses |
|00000740| 6c 61 73 74 2d 61 72 67 | 73 2e 22 20 63 61 6c 63 |last-arg|s." calc|
|00000750| 2d 64 6f 20 28 6c 61 6d | 62 64 61 20 6e 69 6c 20 |-do (lam|bda nil |
|00000760| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c3 09 0a 5c |(byte-co|de "...\|
|00000770| 22 18 08 83 0f 00 c4 08 | 21 82 12 00 c5 c6 21 29 |".......|!.....!)|
|00000780| 87 22 20 5b 75 72 65 63 | 20 63 61 6c 63 2d 75 6e |." [urec| calc-un|
|00000790| 64 6f 2d 6c 69 73 74 20 | 6e 20 63 61 6c 63 2d 66 |do-list |n calc-f|
|000007a0| 69 6e 64 2d 6c 61 73 74 | 2d 78 20 63 61 6c 63 2d |ind-last|-x calc-|
|000007b0| 68 61 6e 64 6c 65 2d 6c | 61 73 74 2d 78 20 65 72 |handle-l|ast-x er|
|000007c0| 72 6f 72 20 22 4e 6f 74 | 20 65 6e 6f 75 67 68 20 |ror "Not| enough |
|000007d0| 75 6e 64 6f 20 69 6e 66 | 6f 72 6d 61 74 69 6f 6e |undo inf|ormation|
|000007e0| 20 61 76 61 69 6c 61 62 | 6c 65 22 5d 20 34 29 29 | availab|le"] 4))|
|000007f0| 5d 20 33 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 3))..(|defun ca|
|00000800| 6c 63 2d 68 61 6e 64 6c | 65 2d 6c 61 73 74 2d 78 |lc-handl|e-last-x|
|00000810| 20 28 6c 69 73 74 29 20 | 28 62 79 74 65 2d 63 6f | (list) |(byte-co|
|00000820| 64 65 20 22 08 85 1e 00 | 08 40 19 09 40 c2 3d 85 |de "....|.@..@.=.|
|00000830| 18 00 c3 c4 c5 c6 c7 c8 | 09 38 5c 22 23 88 c9 08 |........|.8\"#...|
|00000840| 41 21 29 87 22 20 5b 6c | 69 73 74 20 61 63 74 69 |A!)." [l|ist acti|
|00000850| 6f 6e 20 70 6f 70 20 63 | 61 6c 63 2d 70 6f 70 2d |on pop c|alc-pop-|
|00000860| 70 75 73 68 2d 72 65 63 | 6f 72 64 2d 6c 69 73 74 |push-rec|ord-list|
|00000870| 20 30 20 22 6c 61 72 67 | 22 20 64 65 6c 71 20 74 | 0 "larg|" delq t|
|00000880| 6f 70 2d 6f 66 2d 73 74 | 61 63 6b 20 32 20 63 61 |op-of-st|ack 2 ca|
|00000890| 6c 63 2d 68 61 6e 64 6c | 65 2d 6c 61 73 74 2d 78 |lc-handl|e-last-x|
|000008a0| 5d 20 37 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 7))..(|defun ca|
|000008b0| 6c 63 2d 66 69 6e 64 2d | 6c 61 73 74 2d 78 20 28 |lc-find-|last-x (|
|000008c0| 75 6c 20 6e 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |ul n) (b|yte-code|
|000008d0| 20 22 08 85 24 00 c2 08 | 40 21 83 1f 00 09 c3 58 | "..$...|@!.....X|
|000008e0| 83 16 00 08 40 82 1c 00 | c4 08 41 09 53 5c 22 82 |....@...|..A.S\".|
|000008f0| 24 00 c4 08 41 09 5c 22 | 87 22 20 5b 75 6c 20 6e |$...A.\"|." [ul n|
|00000900| 20 63 61 6c 63 2d 75 6e | 64 6f 2d 64 6f 65 73 2d | calc-un|do-does-|
|00000910| 70 75 73 68 65 73 20 31 | 20 63 61 6c 63 2d 66 69 |pushes 1| calc-fi|
|00000920| 6e 64 2d 6c 61 73 74 2d | 78 5d 20 35 29 29 0a 0a |nd-last-|x] 5))..|
|00000930| 28 64 65 66 75 6e 20 63 | 61 6c 63 2d 75 6e 64 6f |(defun c|alc-undo|
|00000940| 2d 64 6f 65 73 2d 70 75 | 73 68 65 73 20 28 6c 69 |-does-pu|shes (li|
|00000950| 73 74 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |st) (byt|e-code "|
|00000960| 08 85 10 00 08 40 40 c1 | 3d 86 10 00 c2 08 41 21 |.....@@.|=.....A!|
|00000970| 87 22 20 5b 6c 69 73 74 | 20 70 6f 70 20 63 61 6c |." [list| pop cal|
|00000980| 63 2d 75 6e 64 6f 2d 64 | 6f 65 73 2d 70 75 73 68 |c-undo-d|oes-push|
|00000990| 65 73 5d 20 32 29 29 0a | |es] 2)).| |
+--------+-------------------------+-------------------------+--------+--------+
