/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / dired / dired-trns.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 4d 6f 6e 20 |lidomide| on Mon |
|00000030| 46 65 62 20 20 31 20 31 | 38 3a 34 30 3a 34 30 20 |Feb  1 1|8:40:40 |
|00000040| 31 39 39 33 0a 3b 3b 3b | 20 66 72 6f 6d 20 66 69 |1993.;;;| from fi|
|00000050| 6c 65 20 2f 63 61 64 69 | 6c 6c 61 63 31 2f 63 6f |le /cadi|llac1/co|
|00000060| 64 65 2f 62 75 69 6c 64 | 2f 6c 65 6d 61 63 73 2f |de/build|/lemacs/|
|00000070| 6c 69 73 70 2f 64 69 72 | 65 64 2f 64 69 72 65 64 |lisp/dir|ed/dired|
|00000080| 2d 74 72 6e 73 2e 65 6c | 0a 3b 3b 3b 20 65 6d 61 |-trns.el|.;;; ema|
|00000090| 63 73 20 76 65 72 73 69 | 6f 6e 20 31 39 2e 34 2e |cs versi|on 19.4.|
|000000a0| 31 33 20 4c 75 63 69 64 | 2e 0a 3b 3b 3b 20 62 79 |13 Lucid|..;;; by|
|000000b0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 32 |tecomp v|ersion 2|
|000000c0| 2e 31 30 3b 20 20 31 2d | 66 65 62 2d 39 33 2e 0a |.10;  1-|feb-93..|
|000000d0| 3b 3b 3b 20 6f 70 74 69 | 6d 69 7a 61 74 69 6f 6e |;;; opti|mization|
|000000e0| 20 69 73 20 6f 6e 2e 0a | 3b 3b 3b 20 74 68 69 73 | is on..|;;; this|
|000000f0| 20 66 69 6c 65 20 75 73 | 65 73 20 6f 70 63 6f 64 | file us|es opcod|
|00000100| 65 73 20 77 68 69 63 68 | 20 64 6f 20 6e 6f 74 20 |es which| do not |
|00000110| 65 78 69 73 74 20 69 6e | 20 45 6d 61 63 73 31 38 |exist in| Emacs18|
|00000120| 2e 0a 0a 28 69 66 20 28 | 61 6e 64 20 28 62 6f 75 |...(if (|and (bou|
|00000130| 6e 64 70 20 27 65 6d 61 | 63 73 2d 76 65 72 73 69 |ndp 'ema|cs-versi|
|00000140| 6f 6e 29 0a 09 20 28 6f | 72 20 28 61 6e 64 20 28 |on).. (o|r (and (|
|00000150| 62 6f 75 6e 64 70 20 27 | 65 70 6f 63 68 3a 3a 76 |boundp '|epoch::v|
|00000160| 65 72 73 69 6f 6e 29 20 | 65 70 6f 63 68 3a 3a 76 |ersion) |epoch::v|
|00000170| 65 72 73 69 6f 6e 29 0a | 09 20 20 20 20 20 28 73 |ersion).|.     (s|
|00000180| 74 72 69 6e 67 2d 6c 65 | 73 73 70 20 65 6d 61 63 |tring-le|ssp emac|
|00000190| 73 2d 76 65 72 73 69 6f | 6e 20 22 31 39 22 29 29 |s-versio|n "19"))|
|000001a0| 29 0a 20 20 20 20 28 65 | 72 72 6f 72 20 22 54 68 |).    (e|rror "Th|
|000001b0| 69 73 20 66 69 6c 65 20 | 77 61 73 20 63 6f 6d 70 |is file |was comp|
|000001c0| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 31 39 |iled for| Emacs19|
|000001d0| 2e 22 29 29 0a 0a 28 64 | 65 66 76 61 72 20 64 69 |."))..(d|efvar di|
|000001e0| 72 65 64 2d 74 72 61 6e | 73 2d 6d 61 70 20 28 6d |red-tran|s-map (m|
|000001f0| 61 6b 65 2d 6b 65 79 6d | 61 70 29 20 22 5c 0a 41 |ake-keym|ap) "\.A|
|00000200| 72 72 61 79 20 74 68 61 | 74 20 61 73 73 6f 63 69 |rray tha|t associ|
|00000210| 61 74 65 73 20 6b 65 79 | 73 20 77 69 74 68 20 66 |ates key|s with f|
|00000220| 69 6c 65 20 74 72 61 6e | 73 66 6f 72 6d 65 72 20 |ile tran|sformer |
|00000230| 66 75 6e 63 74 69 6f 6e | 73 22 29 0a 28 66 73 65 |function|s").(fse|
|00000240| 74 20 27 64 69 72 65 64 | 2d 74 72 61 6e 73 2d 64 |t 'dired|-trans-d|
|00000250| 65 66 69 6e 65 20 27 28 | 6d 61 63 72 6f 20 2e 20 |efine '(|macro . |
|00000260| 23 5b 28 63 68 61 72 20 | 26 72 65 73 74 20 62 6f |#[(char |&rest bo|
|00000270| 64 79 29 20 22 08 3b ac | 84 c1 08 21 10 c2 c3 08 |dy) ".;.|...!....|
|00000280| c4 c5 c6 0e 07 5c 22 44 | 46 87 22 20 5b 63 68 61 |.....\"D|F." [cha|
|00000290| 72 20 63 68 61 72 2d 74 | 6f 2d 73 74 72 69 6e 67 |r char-t|o-string|
|000002a0| 20 64 65 66 69 6e 65 2d | 6b 65 79 20 64 69 72 65 | define-|key dire|
|000002b0| 64 2d 74 72 61 6e 73 2d | 6d 61 70 20 66 75 6e 63 |d-trans-|map func|
|000002c0| 74 69 6f 6e 20 61 70 70 | 65 6e 64 20 28 6c 61 6d |tion app|end (lam|
|000002d0| 62 64 61 20 28 66 69 6c | 65 29 29 20 62 6f 64 79 |bda (fil|e)) body|
|000002e0| 5d 20 37 20 22 5c 0a 4d | 61 63 72 6f 20 74 68 61 |] 7 "\.M|acro tha|
|000002f0| 74 20 61 73 73 69 67 6e | 73 20 74 68 65 20 74 72 |t assign|s the tr|
|00000300| 61 6e 73 66 6f 72 6d 65 | 72 20 66 75 6e 63 74 69 |ansforme|r functi|
|00000310| 6f 6e 20 28 6c 61 6d 62 | 64 61 20 28 66 69 6c 65 |on (lamb|da (file|
|00000320| 29 20 42 4f 44 59 29 20 | 74 6f 20 0a 43 48 41 52 |) BODY) |to .CHAR|
|00000330| 20 28 61 20 63 68 61 72 | 61 63 74 65 72 20 6f 72 | (a char|acter or|
|00000340| 20 73 74 72 69 6e 67 29 | 2e 20 42 4f 44 59 20 6d | string)|. BODY m|
|00000350| 75 73 74 20 72 65 74 75 | 72 6e 20 61 20 73 74 72 |ust retu|rn a str|
|00000360| 69 6e 67 20 28 74 68 65 | 20 74 72 61 6e 73 66 6f |ing (the| transfo|
|00000370| 72 6d 65 64 0a 66 69 6c | 65 20 6f 72 20 77 68 61 |rmed.fil|e or wha|
|00000380| 74 65 76 65 72 2e 20 54 | 68 69 73 20 6d 61 63 72 |tever. T|his macr|
|00000390| 6f 20 61 6c 6c 6f 77 73 | 20 65 61 73 79 20 64 65 |o allows| easy de|
|000003a0| 66 69 6e 69 74 69 6f 6e | 20 6f 66 20 75 73 65 72 |finition| of user|
|000003b0| 20 73 70 65 63 69 66 69 | 63 0a 74 72 61 6e 73 66 | specifi|c.transf|
|000003c0| 6f 72 6d 61 74 69 6f 6e | 20 66 75 6e 63 74 69 6f |ormation| functio|
|000003d0| 6e 73 2e 22 5d 29 29 0a | 28 66 73 65 74 20 27 64 |ns."])).|(fset 'd|
|000003e0| 69 72 65 64 2d 74 72 61 | 6e 73 2d 72 75 6e 20 23 |ired-tra|ns-run #|
|000003f0| 5b 28 74 72 61 6e 73 66 | 6f 72 6d 65 72 73 20 66 |[(transf|ormers f|
|00000400| 69 6c 65 29 20 22 c0 c1 | 5c 6e c3 23 87 22 20 5b |ile) "..|\n.#." [|
|00000410| 6d 61 70 63 6f 6e 63 61 | 74 20 23 5b 28 74 72 61 |mapconca|t #[(tra|
|00000420| 6e 73 66 6f 72 6d 65 72 | 29 20 22 c0 09 21 11 c2 |nsformer|) "..!..|
|00000430| 0b 09 5c 22 ae 84 c4 c5 | 09 5c 22 0e 06 21 87 22 |..\"....|.\"..!."|
|00000440| 20 5b 63 68 61 72 2d 74 | 6f 2d 73 74 72 69 6e 67 | [char-t|o-string|
|00000450| 20 74 72 61 6e 73 66 6f | 72 6d 65 72 20 6c 6f 6f | transfo|rmer loo|
|00000460| 6b 75 70 2d 6b 65 79 20 | 64 69 72 65 64 2d 74 72 |kup-key |dired-tr|
|00000470| 61 6e 73 2d 6d 61 70 20 | 65 72 72 6f 72 20 22 55 |ans-map |error "U|
|00000480| 6e 64 65 66 69 6e 65 64 | 20 74 72 61 6e 73 66 6f |ndefined| transfo|
|00000490| 6d 65 72 3a 20 25 73 22 | 20 66 69 6c 65 5d 20 33 |mer: %s"| file] 3|
|000004a0| 5d 20 74 72 61 6e 73 66 | 6f 72 6d 65 72 73 20 6e |] transf|ormers n|
|000004b0| 69 6c 5d 20 34 20 22 5c | 0a 41 70 70 6c 69 65 73 |il] 4 "\|.Applies|
|000004c0| 20 65 61 63 68 20 74 72 | 61 6e 73 66 6f 72 6d 65 | each tr|ansforme|
|000004d0| 72 20 73 75 70 70 6c 69 | 65 64 20 69 6e 20 74 68 |r suppli|ed in th|
|000004e0| 65 20 73 74 72 69 6e 67 | 20 54 52 41 4e 53 46 4f |e string| TRANSFO|
|000004f0| 52 4d 45 52 53 20 69 6e | 20 73 65 71 75 65 6e 63 |RMERS in| sequenc|
|00000500| 65 0a 74 6f 20 46 49 4c | 45 20 61 6e 64 20 72 65 |e.to FIL|E and re|
|00000510| 74 75 72 6e 73 20 74 68 | 65 20 63 6f 6e 63 61 74 |turns th|e concat|
|00000520| 65 6e 61 74 69 6f 6e 20 | 6f 66 20 74 68 65 20 72 |enation |of the r|
|00000530| 65 73 75 6c 74 73 2e 22 | 5d 29 0a 28 64 65 66 76 |esults."|]).(defv|
|00000540| 61 72 20 64 69 72 65 64 | 2d 74 72 61 6e 73 2d 72 |ar dired|-trans-r|
|00000550| 65 2d 65 78 74 20 22 5c | 5c 2e 5b 5e 2e 5d 2a 5c |e-ext "\|\.[^.]*\|
|00000560| 5c 28 5c 5c 2e 5a 5c 5c | 29 3f 24 22 20 22 5c 0a |\(\\.Z\\|)?$" "\.|
|00000570| 54 68 65 20 70 61 72 74 | 20 6f 66 20 61 20 66 69 |The part| of a fi|
|00000580| 6c 65 6e 61 6d 65 20 6d | 61 74 63 68 69 6e 67 20 |lename m|atching |
|00000590| 74 68 69 73 20 72 65 67 | 65 78 70 20 77 69 6c 6c |this reg|exp will|
|000005a0| 20 62 65 20 76 69 65 77 | 65 64 20 61 73 20 65 78 | be view|ed as ex|
|000005b0| 74 65 6e 73 69 6f 6e 22 | 29 0a 28 66 73 65 74 20 |tension"|).(fset |
|000005c0| 27 64 69 72 65 64 2d 74 | 72 61 6e 73 2d 69 6e 69 |'dired-t|rans-ini|
|000005d0| 74 20 23 5b 6e 69 6c 20 | 22 c0 09 c2 c3 23 88 c0 |t #[nil |"....#..|
|000005e0| 09 c4 c5 23 88 c0 09 c6 | c7 23 88 c0 09 c8 c9 23 |...#....|.#.....#|
|000005f0| 88 c0 09 ca cb 23 88 c0 | 09 cc cd 23 88 c0 09 ce |.....#..|...#....|
|00000600| cf 23 87 22 20 5b 64 65 | 66 69 6e 65 2d 6b 65 79 |.#." [de|fine-key|
|00000610| 20 64 69 72 65 64 2d 74 | 72 61 6e 73 2d 6d 61 70 | dired-t|rans-map|
|00000620| 20 22 2a 22 20 28 6c 61 | 6d 62 64 61 20 28 66 69 | "*" (la|mbda (fi|
|00000630| 6c 65 29 20 66 69 6c 65 | 29 20 22 6e 22 20 23 5b |le) file|) "n" #[|
|00000640| 28 66 69 6c 65 29 20 22 | c0 09 21 ae 81 c2 87 22 |(file) "|..!...."|
|00000650| 20 5b 66 69 6c 65 2d 6e | 61 6d 65 2d 6e 6f 6e 64 | [file-n|ame-nond|
|00000660| 69 72 65 63 74 6f 72 79 | 20 66 69 6c 65 20 22 22 |irectory| file ""|
|00000670| 5d 20 32 5d 20 22 64 22 | 20 23 5b 28 66 69 6c 65 |] 2] "d"| #[(file|
|00000680| 29 20 22 c0 09 21 ae 81 | c2 87 22 20 5b 66 69 6c |) "..!..|.." [fil|
|00000690| 65 2d 6e 61 6d 65 2d 64 | 69 72 65 63 74 6f 72 79 |e-name-d|irectory|
|000006a0| 20 66 69 6c 65 20 22 22 | 5d 20 32 5d 20 22 62 22 | file ""|] 2] "b"|
|000006b0| 20 23 5b 28 66 69 6c 65 | 29 20 22 c0 c1 5c 6e 5c | #[(file|) "..\n\|
|000006c0| 22 89 12 c3 c4 0d 5c 6e | 5c 22 4f 87 22 20 5b 64 |".....\n|\"O." [d|
|000006d0| 69 72 65 64 2d 74 72 61 | 6e 73 2d 72 75 6e 20 22 |ired-tra|ns-run "|
|000006e0| 6e 22 20 66 69 6c 65 20 | 30 20 73 74 72 69 6e 67 |n" file |0 string|
|000006f0| 2d 6d 61 74 63 68 20 64 | 69 72 65 64 2d 74 72 61 |-match d|ired-tra|
|00000700| 6e 73 2d 72 65 2d 65 78 | 74 5d 20 36 5d 20 22 65 |ns-re-ex|t] 6] "e|
|00000710| 22 20 23 5b 28 66 69 6c | 65 29 20 22 c0 09 5c 6e |" #[(fil|e) "..\n|
|00000720| 5c 22 89 1b ab 86 5c 6e | 0b c4 4f aa 81 c5 29 87 |\"....\n|..O...).|
|00000730| 22 20 5b 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |" [strin|g-match |
|00000740| 64 69 72 65 64 2d 74 72 | 61 6e 73 2d 72 65 2d 65 |dired-tr|ans-re-e|
|00000750| 78 74 20 66 69 6c 65 20 | 65 20 6e 69 6c 20 22 22 |xt file |e nil ""|
|00000760| 5d 20 34 5d 20 22 76 22 | 20 23 5b 28 66 69 6c 65 |] 4] "v"| #[(file|
|00000770| 29 20 22 c0 c1 5c 6e 5c | 22 89 12 c3 c4 c5 5c 6e |) "..\n\|".....\n|
|00000780| 5c 22 4f 87 22 20 5b 64 | 69 72 65 64 2d 74 72 61 |\"O." [d|ired-tra|
|00000790| 6e 73 2d 72 75 6e 20 22 | 6e 22 20 66 69 6c 65 20 |ns-run "|n" file |
|000007a0| 30 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |0 string|-match "|
|000007b0| 2c 76 24 22 5d 20 36 5d | 20 22 7a 22 20 23 5b 28 |,v$"] 6]| "z" #[(|
|000007c0| 66 69 6c 65 29 20 22 c0 | c1 5c 6e 5c 22 89 12 c3 |file) ".|.\n\"...|
|000007d0| c4 c5 5c 6e 5c 22 4f 87 | 22 20 5b 64 69 72 65 64 |..\n\"O.|" [dired|
|000007e0| 2d 74 72 61 6e 73 2d 72 | 75 6e 20 22 6e 22 20 66 |-trans-r|un "n" f|
|000007f0| 69 6c 65 20 30 20 73 74 | 72 69 6e 67 2d 6d 61 74 |ile 0 st|ring-mat|
|00000800| 63 68 20 22 5c 5c 2e 5a | 24 22 5d 20 36 5d 5d 20 |ch "\\.Z|$"] 6]] |
|00000810| 34 20 22 5c 0a 44 65 66 | 69 6e 65 73 20 61 20 62 |4 "\.Def|ines a b|
|00000820| 61 73 69 63 20 73 65 74 | 20 6f 66 20 75 73 65 66 |asic set| of usef|
|00000830| 75 6c 20 74 72 61 6e 73 | 66 6f 72 6d 65 72 73 2e |ul trans|formers.|
|00000840| 0a 0a 2a 20 20 69 73 20 | 61 20 6e 6f 6f 70 20 74 |..*  is |a noop t|
|00000850| 68 61 74 20 72 65 74 75 | 72 6e 73 20 74 68 65 20 |hat retu|rns the |
|00000860| 75 6e 6d 6f 64 69 66 69 | 65 64 20 66 69 6c 65 6e |unmodifi|ed filen|
|00000870| 61 6d 65 20 28 65 71 75 | 69 76 61 6c 65 6e 74 20 |ame (equ|ivalent |
|00000880| 74 6f 20 5b 64 62 65 5d | 29 2e 0a 6e 20 20 72 65 |to [dbe]|)..n  re|
|00000890| 74 75 72 6e 73 20 74 68 | 65 20 4e 61 6d 65 20 63 |turns th|e Name c|
|000008a0| 6f 6d 70 6f 6e 65 6e 74 | 20 6f 66 20 61 20 66 69 |omponent| of a fi|
|000008b0| 6c 65 6e 61 6d 65 20 77 | 69 74 68 6f 75 74 20 64 |lename w|ithout d|
|000008c0| 69 72 65 63 74 6f 72 79 | 20 69 6e 66 6f 72 6d 61 |irectory| informa|
|000008d0| 74 69 6f 6e 0a 64 20 20 | 72 65 74 75 72 6e 73 20 |tion.d  |returns |
|000008e0| 74 68 65 20 44 69 72 65 | 63 74 6f 72 79 20 63 6f |the Dire|ctory co|
|000008f0| 6d 70 6f 6e 65 6e 74 20 | 6f 66 20 61 20 66 69 6c |mponent |of a fil|
|00000900| 65 6e 61 6d 65 0a 62 20 | 20 72 65 74 75 72 6e 73 |ename.b | returns|
|00000910| 20 74 68 65 20 42 61 73 | 65 6e 61 6d 65 20 6f 66 | the Bas|ename of|
|00000920| 20 61 20 66 69 6c 65 6e | 61 6d 65 2c 20 69 2e 65 | a filen|ame, i.e|
|00000930| 2e 2c 20 74 68 65 20 6e | 61 6d 65 20 6f 66 20 74 |., the n|ame of t|
|00000940| 68 65 20 66 69 6c 65 20 | 77 69 74 68 6f 75 74 0a |he file |without.|
|00000950| 20 20 20 64 69 72 65 63 | 74 6f 72 79 20 61 6e 64 |   direc|tory and|
|00000960| 20 65 78 74 65 6e 73 69 | 6f 6e 20 28 73 65 65 20 | extensi|on (see |
|00000970| 64 69 72 65 64 2d 74 72 | 61 6e 73 2d 72 65 2d 65 |dired-tr|ans-re-e|
|00000980| 78 74 29 0a 20 20 20 41 | 20 62 61 73 65 6e 61 6d |xt).   A| basenam|
|00000990| 65 20 77 69 74 68 20 64 | 69 72 65 63 74 6f 72 79 |e with d|irectory|
|000009a0| 20 63 6f 6d 70 6f 6e 65 | 6e 74 20 63 61 6e 20 62 | compone|nt can b|
|000009b0| 65 20 6f 62 74 61 69 6e | 65 64 20 62 79 20 5b 64 |e obtain|ed by [d|
|000009c0| 62 5d 2e 0a 65 20 20 72 | 65 74 75 72 6e 73 20 74 |b]..e  r|eturns t|
|000009d0| 68 65 20 45 78 74 65 6e | 73 69 6f 6e 20 6f 66 20 |he Exten|sion of |
|000009e0| 61 20 66 69 6c 65 6e 61 | 6d 65 20 28 69 2e 65 2e |a filena|me (i.e.|
|000009f0| 2c 20 77 68 61 74 65 76 | 65 72 0a 20 20 20 64 69 |, whatev|er.   di|
|00000a00| 72 65 64 2d 74 72 61 6e | 73 2d 72 65 2d 65 78 74 |red-tran|s-re-ext|
|00000a10| 20 73 70 6c 69 74 73 20 | 6f 66 66 29 0a 76 20 20 | splits |off).v  |
|00000a20| 72 65 74 75 72 6e 73 20 | 61 20 66 69 6c 65 20 77 |returns |a file w|
|00000a30| 69 74 68 6f 75 74 20 64 | 69 72 65 63 74 6f 72 79 |ithout d|irectory|
|00000a40| 20 61 6e 64 20 77 69 74 | 68 6f 75 74 20 2c 76 20 | and wit|hout ,v |
|00000a50| 73 75 66 66 69 78 65 73 | 20 69 66 20 61 6e 79 2e |suffixes| if any.|
|00000a60| 0a 7a 20 20 72 65 74 75 | 72 6e 73 20 61 20 66 69 |.z  retu|rns a fi|
|00000a70| 6c 65 20 77 69 74 68 6f | 75 74 20 64 69 72 65 63 |le witho|ut direc|
|00000a80| 74 6f 72 79 20 61 6e 64 | 20 77 69 74 68 6f 75 74 |tory and| without|
|00000a90| 20 2e 5a 20 73 75 66 66 | 69 78 65 73 20 69 66 20 | .Z suff|ixes if |
|00000aa0| 61 6e 79 2e 22 5d 29 0a | 28 64 69 72 65 64 2d 74 |any."]).|(dired-t|
|00000ab0| 72 61 6e 73 2d 69 6e 69 | 74 29 0a 28 66 73 65 74 |rans-ini|t).(fset|
|00000ac0| 20 27 64 69 72 65 64 2d | 74 72 61 6e 73 2d 6d 6b | 'dired-|trans-mk|
|00000ad0| 6c 69 73 74 20 23 5b 28 | 66 69 6c 65 73 20 26 6f |list #[(|files &o|
|00000ae0| 70 74 69 6f 6e 61 6c 20 | 74 72 61 6e 73 66 6f 72 |ptional |transfor|
|00000af0| 6d 65 72 73 29 20 22 08 | 3a ac 83 08 43 10 09 ac |mers) ".|:...C...|
|00000b00| 82 c2 11 c3 c4 08 0d 23 | 1e 06 08 47 c7 56 ab 89 |.......#|...G.V..|
|00000b10| 0e 08 0e 06 0e 09 51 aa | 82 0e 06 29 87 22 20 5b |......Q.|...)." [|
|00000b20| 66 69 6c 65 73 20 74 72 | 61 6e 73 66 6f 72 6d 65 |files tr|ansforme|
|00000b30| 72 73 20 22 2a 22 20 6d | 61 70 63 6f 6e 63 61 74 |rs "*" m|apconcat|
|00000b40| 20 23 5b 28 66 69 6c 65 | 29 20 22 c0 c1 5c 6e 0b | #[(file|) "..\n.|
|00000b50| 5c 22 21 87 22 20 5b 73 | 68 65 6c 6c 2d 71 75 6f |\"!." [s|hell-quo|
|00000b60| 74 65 20 64 69 72 65 64 | 2d 74 72 61 6e 73 2d 72 |te dired|-trans-r|
|00000b70| 75 6e 20 74 72 61 6e 73 | 66 6f 72 6d 65 72 73 20 |un trans|formers |
|00000b80| 66 69 6c 65 5d 20 34 5d | 20 64 69 72 65 64 2d 6d |file] 4]| dired-m|
|00000b90| 61 72 6b 2d 73 65 70 61 | 72 61 74 6f 72 20 66 69 |ark-sepa|rator fi|
|00000ba0| 6c 65 2d 6c 69 73 74 20 | 31 20 64 69 72 65 64 2d |le-list |1 dired-|
|00000bb0| 6d 61 72 6b 2d 70 72 65 | 66 69 78 20 64 69 72 65 |mark-pre|fix dire|
|00000bc0| 64 2d 6d 61 72 6b 2d 70 | 6f 73 74 66 69 78 5d 20 |d-mark-p|ostfix] |
|00000bd0| 34 20 22 5c 0a 54 61 6b | 65 73 20 61 20 6c 69 73 |4 "\.Tak|es a lis|
|00000be0| 74 20 6f 66 20 46 49 4c | 45 53 20 61 6e 64 20 61 |t of FIL|ES and a|
|00000bf0| 70 70 6c 69 65 73 20 74 | 68 65 20 73 65 71 75 65 |pplies t|he seque|
|00000c00| 6e 63 65 20 6f 66 20 54 | 52 41 4e 53 46 4f 52 4d |nce of T|RANSFORM|
|00000c10| 45 52 53 20 74 6f 20 65 | 61 63 68 0a 6f 66 20 74 |ERS to e|ach.of t|
|00000c20| 68 65 6d 2e 20 54 68 65 | 20 74 72 61 6e 73 66 6f |hem. The| transfo|
|00000c30| 72 6d 65 64 20 72 65 73 | 75 6c 74 73 20 61 72 65 |rmed res|ults are|
|00000c40| 20 63 6f 6e 63 61 74 65 | 6e 61 74 65 64 2c 20 73 | concate|nated, s|
|00000c50| 65 70 61 72 61 74 65 64 | 20 62 79 20 0a 64 69 72 |eparated| by .dir|
|00000c60| 65 64 2d 6d 61 72 6b 2d | 73 65 70 61 72 61 74 6f |ed-mark-|separato|
|00000c70| 72 2c 20 70 72 65 66 69 | 78 65 64 20 62 79 20 64 |r, prefi|xed by d|
|00000c80| 69 72 65 64 2d 6d 61 72 | 6b 2d 70 72 65 66 69 78 |ired-mar|k-prefix|
|00000c90| 20 61 6e 64 20 70 6f 73 | 74 66 69 78 65 64 20 62 | and pos|tfixed b|
|00000ca0| 79 0a 64 69 72 65 64 2d | 6d 61 72 6b 2d 70 6f 73 |y.dired-|mark-pos|
|00000cb0| 74 66 69 78 20 74 6f 20 | 67 65 6e 65 72 61 74 65 |tfix to |generate|
|00000cc0| 20 61 20 66 69 6c 65 20 | 6c 69 73 74 20 73 75 69 | a file |list sui|
|00000cd0| 74 61 62 6c 65 20 66 6f | 72 20 61 20 70 61 72 74 |table fo|r a part|
|00000ce0| 69 63 75 6c 61 72 20 73 | 68 65 6c 6c 2e 22 5d 29 |icular s|hell."])|
|00000cf0| 0a 28 64 65 66 76 61 72 | 20 64 69 72 65 64 2d 74 |.(defvar| dired-t|
|00000d00| 72 61 6e 73 2d 73 74 61 | 72 74 65 72 73 20 22 5b |rans-sta|rters "[|
|00000d10| 23 5b 5d 22 20 22 5c 0a | 55 73 65 72 20 64 65 66 |#[]" "\.|User def|
|00000d20| 69 6e 61 62 6c 65 20 73 | 65 74 20 6f 66 20 63 68 |inable s|et of ch|
|00000d30| 61 72 61 63 74 65 72 73 | 20 74 6f 20 62 65 20 75 |aracters| to be u|
|00000d40| 73 65 64 20 74 6f 20 69 | 6e 64 69 63 61 74 65 20 |sed to i|ndicate |
|00000d50| 74 68 65 20 73 74 61 72 | 74 20 6f 66 20 61 0a 74 |the star|t of a.t|
|00000d60| 72 61 6e 73 66 6f 72 6d | 65 72 20 73 65 71 75 65 |ransform|er seque|
|00000d70| 6e 63 65 22 29 0a 28 64 | 65 66 76 61 72 20 64 69 |nce").(d|efvar di|
|00000d80| 72 65 64 2d 74 72 61 6e | 73 2d 65 6e 64 65 72 73 |red-tran|s-enders|
|00000d90| 20 22 5b 5d 23 20 5d 22 | 20 22 5c 0a 55 73 65 72 | "[]# ]"| "\.User|
|00000da0| 20 64 65 66 69 6e 61 62 | 6c 65 20 73 65 74 20 6f | definab|le set o|
|00000db0| 66 20 63 68 61 72 61 63 | 74 65 72 73 20 74 6f 20 |f charac|ters to |
|00000dc0| 62 65 20 75 73 65 64 20 | 74 6f 20 69 6e 64 69 63 |be used |to indic|
|00000dd0| 61 74 65 20 74 68 65 20 | 65 6e 64 20 6f 66 20 61 |ate the |end of a|
|00000de0| 0a 74 72 61 6e 73 66 6f | 72 6d 65 72 20 73 65 71 |.transfo|rmer seq|
|00000df0| 75 65 6e 63 65 22 29 0a | 28 66 73 65 74 20 27 64 |uence").|(fset 'd|
|00000e00| 69 72 65 64 2d 74 72 61 | 6e 73 2d 65 78 70 61 6e |ired-tra|ns-expan|
|00000e10| 64 20 23 5b 28 63 6f 6d | 6d 61 6e 64 20 66 69 6c |d #[(com|mand fil|
|00000e20| 65 73 29 20 22 c0 89 c1 | 1a 1b 1c c5 c6 0e 07 c0 |es) "...|........|
|00000e30| 23 2b 87 22 20 5b 6e 69 | 6c 20 22 22 20 74 72 61 |#+." [ni|l "" tra|
|00000e40| 6e 73 66 6f 72 6d 65 72 | 73 20 63 6f 6c 6c 65 63 |nsformer|s collec|
|00000e50| 74 2d 74 72 61 6e 73 66 | 6f 72 6d 65 72 73 20 71 |t-transf|ormers q|
|00000e60| 75 6f 74 65 64 20 6d 61 | 70 63 6f 6e 63 61 74 20 |uoted ma|pconcat |
|00000e70| 23 5b 28 63 68 61 72 29 | 20 22 c0 09 21 11 5c 6e |#[(char)| "..!.\n|
|00000e80| ab 84 c3 12 09 87 09 c4 | 9a ab 84 c5 12 c3 87 0e |........|........|
|00000e90| 06 ab 9c c7 0e 08 09 5c | 22 ab 8d c3 16 06 c9 0e |.......\|".......|
|00000ea0| 5c 6e 0e 0b 5c 22 cc 16 | 0b 87 0e 0b 09 50 16 0b |\n..\"..|.....P..|
|00000eb0| c3 87 c7 0e 0d 09 5c 22 | ab 85 c5 16 06 c3 87 09 |......\"|........|
|00000ec0| ce 9a ab 86 c9 0e 5c 6e | ce 5c 22 87 09 87 22 20 |......\n|.\"..." |
|00000ed0| 5b 63 68 61 72 2d 74 6f | 2d 73 74 72 69 6e 67 20 |[char-to|-string |
|00000ee0| 63 68 61 72 20 71 75 6f | 74 65 64 20 6e 69 6c 20 |char quo|ted nil |
|00000ef0| 22 5c 5c 22 20 74 20 63 | 6f 6c 6c 65 63 74 2d 74 |"\\" t c|ollect-t|
|00000f00| 72 61 6e 73 66 6f 72 6d | 65 72 73 20 73 74 72 69 |ransform|ers stri|
|00000f10| 6e 67 2d 6d 61 74 63 68 | 20 64 69 72 65 64 2d 74 |ng-match| dired-t|
|00000f20| 72 61 6e 73 2d 65 6e 64 | 65 72 73 20 64 69 72 65 |rans-end|ers dire|
|00000f30| 64 2d 74 72 61 6e 73 2d | 6d 6b 6c 69 73 74 20 66 |d-trans-|mklist f|
|00000f40| 69 6c 65 73 20 74 72 61 | 6e 73 66 6f 72 6d 65 72 |iles tra|nsformer|
|00000f50| 73 20 22 22 20 64 69 72 | 65 64 2d 74 72 61 6e 73 |s "" dir|ed-trans|
|00000f60| 2d 73 74 61 72 74 65 72 | 73 20 22 2a 22 5d 20 33 |-starter|s "*"] 3|
|00000f70| 5d 20 63 6f 6d 6d 61 6e | 64 5d 20 34 20 22 5c 0a |] comman|d] 4 "\.|
|00000f80| 54 61 6b 65 73 20 61 20 | 73 68 65 6c 6c 20 43 4f |Takes a |shell CO|
|00000f90| 4d 4d 41 4e 44 20 61 6e | 64 20 61 20 6c 69 73 74 |MMAND an|d a list|
|00000fa0| 20 6f 66 20 46 49 4c 45 | 53 20 61 6e 64 20 73 75 | of FILE|S and su|
|00000fb0| 62 73 74 69 74 75 74 65 | 73 20 65 61 63 68 20 6f |bstitute|s each o|
|00000fc0| 63 63 75 72 61 6e 63 65 | 0a 6f 66 20 61 20 74 72 |ccurance|.of a tr|
|00000fd0| 61 6e 73 66 6f 72 6d 65 | 72 20 73 65 71 75 65 6e |ansforme|r sequen|
|00000fe0| 63 65 20 62 79 20 61 6e | 20 61 63 63 6f 72 64 69 |ce by an| accordi|
|00000ff0| 6e 67 6c 79 20 74 72 61 | 6e 73 66 6f 72 6d 65 64 |ngly tra|nsformed|
|00001000| 20 66 69 6c 65 20 6c 69 | 73 74 2e 20 53 70 65 63 | file li|st. Spec|
|00001010| 69 61 6c 0a 63 68 61 72 | 61 63 74 65 72 73 20 73 |ial.char|acters s|
|00001020| 75 63 68 20 61 73 20 5b | 2c 5d 20 6f 72 20 2a 20 |uch as [|,] or * |
|00001030| 63 61 6e 20 62 65 20 71 | 75 6f 74 65 64 20 77 69 |can be q|uoted wi|
|00001040| 74 68 20 61 20 62 61 63 | 6b 73 6c 61 73 68 2e 22 |th a bac|kslash."|
|00001050| 5d 29 0a 28 66 73 65 74 | 20 27 64 69 72 65 64 2d |]).(fset| 'dired-|
|00001060| 74 72 61 6e 73 2d 6d 61 | 6b 65 20 23 5b 28 63 6f |trans-ma|ke #[(co|
|00001070| 6d 6d 61 6e 64 20 66 69 | 6c 65 73 20 26 6f 70 74 |mmand fi|les &opt|
|00001080| 69 6f 6e 61 6c 20 61 6c | 6c 2d 61 74 2d 6f 6e 63 |ional al|l-at-onc|
|00001090| 65 29 20 22 c0 89 19 1a | 0b ab 97 c4 0d 0e 06 5c |e) "....|.......\|
|000010a0| 22 11 0d 09 9a ab 89 0d | c4 c7 0e 06 5c 22 50 aa |".......|....\"P.|
|000010b0| 89 09 aa 86 c8 c9 0e 06 | ca 23 2a 87 22 20 5b 6e |........|.#*." [n|
|000010c0| 69 6c 20 65 78 70 61 6e | 64 65 64 2d 63 6f 6d 6d |il expan|ded-comm|
|000010d0| 61 6e 64 20 66 6e 73 20 | 61 6c 6c 2d 61 74 2d 6f |and fns |all-at-o|
|000010e0| 6e 63 65 20 64 69 72 65 | 64 2d 74 72 61 6e 73 2d |nce dire|d-trans-|
|000010f0| 65 78 70 61 6e 64 20 63 | 6f 6d 6d 61 6e 64 20 66 |expand c|ommand f|
|00001100| 69 6c 65 73 20 22 20 2a | 22 20 6d 61 70 63 6f 6e |iles " *|" mapcon|
|00001110| 63 61 74 20 23 5b 28 66 | 69 6c 65 29 20 22 c0 09 |cat #[(f|ile) "..|
|00001120| 5c 6e c3 23 87 22 20 5b | 64 69 72 65 64 2d 74 72 |\n.#." [|dired-tr|
|00001130| 61 6e 73 2d 6d 61 6b 65 | 20 63 6f 6d 6d 61 6e 64 |ans-make| command|
|00001140| 20 66 69 6c 65 20 74 5d | 20 34 5d 20 22 3b 22 5d | file t]| 4] ";"]|
|00001150| 20 34 20 22 5c 0a 54 61 | 6b 65 73 20 61 20 73 68 | 4 "\.Ta|kes a sh|
|00001160| 65 6c 6c 20 43 4f 4d 4d | 41 4e 44 20 61 6e 64 20 |ell COMM|AND and |
|00001170| 61 20 6c 69 73 74 20 6f | 66 20 46 49 4c 45 53 20 |a list o|f FILES |
|00001180| 61 6e 64 20 72 65 74 75 | 72 6e 73 20 61 20 63 6f |and retu|rns a co|
|00001190| 6d 6d 61 6e 64 20 6f 70 | 65 72 61 74 69 6e 67 0a |mmand op|erating.|
|000011a0| 6f 6e 20 74 68 65 20 6c | 69 73 74 20 6f 66 20 66 |on the l|ist of f|
|000011b0| 69 6c 65 73 20 28 74 72 | 61 6e 73 66 6f 72 6d 65 |iles (tr|ansforme|
|000011c0| 64 20 69 66 20 43 4f 4d | 4d 41 4e 44 20 63 6f 6e |d if COM|MAND con|
|000011d0| 74 61 69 6e 73 20 74 72 | 61 6e 73 66 6f 72 6d 65 |tains tr|ansforme|
|000011e0| 72 73 29 2e 20 49 66 0a | 41 4c 4c 2d 41 54 2d 4f |rs). If.|ALL-AT-O|
|000011f0| 4e 43 45 20 69 73 20 74 | 20 74 68 65 20 72 65 73 |NCE is t| the res|
|00001200| 75 6c 74 69 6e 67 20 63 | 6f 6d 6d 61 6e 64 20 77 |ulting c|ommand w|
|00001210| 69 6c 6c 20 62 65 20 6f | 66 20 74 68 65 20 66 6f |ill be o|f the fo|
|00001220| 72 6d 0a 20 20 63 6d 64 | 20 66 69 6c 65 31 20 66 |rm.  cmd| file1 f|
|00001230| 69 6c 65 32 20 2e 2e 2e | 20 66 69 6c 65 4e 0a 6f |ile2 ...| fileN.o|
|00001240| 74 68 65 72 77 69 73 65 | 20 69 74 20 77 69 6c 6c |therwise| it will|
|00001250| 20 62 65 0a 20 20 63 6d | 64 20 66 69 6c 65 31 3b | be.  cm|d file1;|
|00001260| 20 63 6d 64 20 66 69 6c | 65 32 3b 20 2e 2e 2e 20 | cmd fil|e2; ... |
|00001270| 63 6d 64 20 66 69 6c 65 | 4e 3b 0a 42 6f 74 68 20 |cmd file|N;.Both |
|00001280| 65 78 61 6d 70 6c 65 73 | 20 61 73 73 75 6d 65 20 |examples| assume |
|00001290| 61 20 73 69 6e 67 6c 65 | 20 72 65 66 65 72 65 6e |a single| referen|
|000012a0| 63 65 20 74 6f 20 74 68 | 65 20 66 69 6c 65 20 6c |ce to th|e file l|
|000012b0| 69 73 74 2e 22 5d 29 0a | 28 66 73 65 74 20 27 64 |ist."]).|(fset 'd|
|000012c0| 69 72 65 64 2d 73 68 65 | 6c 6c 2d 73 74 75 66 66 |ired-she|ll-stuff|
|000012d0| 2d 69 74 20 23 5b 28 63 | 6f 6d 6d 61 6e 64 20 66 |-it #[(c|ommand f|
|000012e0| 69 6c 65 2d 6c 69 73 74 | 20 6f 6e 2d 65 61 63 68 |ile-list| on-each|
|000012f0| 20 26 6f 70 74 69 6f 6e | 61 6c 20 72 61 77 2d 61 | &option|al raw-a|
|00001300| 72 67 29 20 22 c0 09 5c | 6e 0b 3f 23 87 22 20 5b |rg) "..\|n.?#." [|
|00001310| 64 69 72 65 64 2d 74 72 | 61 6e 73 2d 6d 61 6b 65 |dired-tr|ans-make|
|00001320| 20 63 6f 6d 6d 61 6e 64 | 20 66 69 6c 65 2d 6c 69 | command| file-li|
|00001330| 73 74 20 6f 6e 2d 65 61 | 63 68 5d 20 34 20 22 5c |st on-ea|ch] 4 "\|
|00001340| 0a 4d 61 6b 65 20 75 70 | 20 61 20 73 68 65 6c 6c |.Make up| a shell|
|00001350| 20 63 6f 6d 6d 61 6e 64 | 20 6c 69 6e 65 20 66 72 | command| line fr|
|00001360| 6f 6d 20 43 4f 4d 4d 41 | 4e 44 20 61 6e 64 20 46 |om COMMA|ND and F|
|00001370| 49 4c 45 2d 4c 49 53 54 | 2e 0a 49 66 20 4f 4e 2d |ILE-LIST|..If ON-|
|00001380| 45 41 43 48 20 69 73 20 | 74 2c 20 43 4f 4d 4d 41 |EACH is |t, COMMA|
|00001390| 4e 44 20 73 68 6f 75 6c | 64 20 62 65 20 61 70 70 |ND shoul|d be app|
|000013a0| 6c 69 65 64 20 74 6f 20 | 65 61 63 68 20 66 69 6c |lied to |each fil|
|000013b0| 65 2c 20 65 6c 73 65 0a | 20 20 73 69 6d 70 6c 79 |e, else.|  simply|
|000013c0| 20 63 6f 6e 63 61 74 20 | 61 6c 6c 20 66 69 6c 65 | concat |all file|
|000013d0| 73 2e 0a 54 68 65 20 6c | 69 73 74 20 6f 66 20 6d |s..The l|ist of m|
|000013e0| 61 72 6b 65 64 20 66 69 | 6c 65 73 20 69 73 20 61 |arked fi|les is a|
|000013f0| 70 70 65 6e 64 65 64 20 | 74 6f 20 74 68 65 20 63 |ppended |to the c|
|00001400| 6f 6d 6d 61 6e 64 20 73 | 74 72 69 6e 67 20 75 6e |ommand s|tring un|
|00001410| 6c 65 73 73 20 61 73 74 | 65 72 69 73 6b 73 0a 20 |less ast|erisks. |
|00001420| 20 60 2a 27 20 6f 72 20 | 74 72 61 6e 73 66 6f 72 | `*' or |transfor|
|00001430| 6d 65 72 20 73 65 71 75 | 65 6e 63 65 73 20 65 6e |mer sequ|ences en|
|00001440| 63 6c 6f 73 65 64 20 69 | 6e 20 60 5b 5d 27 20 69 |closed i|n `[]' i|
|00001450| 6e 64 69 63 61 74 65 20 | 74 68 65 20 70 6c 61 63 |ndicate |the plac|
|00001460| 65 28 73 29 20 77 68 65 | 72 65 20 0a 20 20 74 68 |e(s) whe|re .  th|
|00001470| 65 20 28 74 72 61 6e 73 | 66 6f 72 6d 65 64 29 20 |e (trans|formed) |
|00001480| 6c 69 73 74 20 73 68 6f | 75 6c 64 20 67 6f 2e 20 |list sho|uld go. |
|00001490| 20 53 65 65 20 64 6f 63 | 75 6d 65 6e 74 61 74 69 | See doc|umentati|
|000014a0| 6f 6e 20 6f 66 20 66 75 | 6e 63 74 69 6f 6e 0a 20 |on of fu|nction. |
|000014b0| 20 64 69 72 65 64 2d 74 | 72 61 6e 73 2d 69 6e 69 | dired-t|rans-ini|
|000014c0| 74 20 66 6f 72 20 61 20 | 6c 69 73 74 20 6f 66 20 |t for a |list of |
|000014d0| 74 72 61 6e 73 66 6f 72 | 6d 65 72 73 2e 0a 57 69 |transfor|mers..Wi|
|000014e0| 74 68 20 61 20 7a 65 72 | 6f 20 61 72 67 75 6d 65 |th a zer|o argume|
|000014f0| 6e 74 20 74 68 65 20 72 | 65 73 75 6c 74 69 6e 67 |nt the r|esulting|
|00001500| 20 63 6f 6d 6d 61 6e 64 | 20 77 69 6c 6c 20 62 65 | command| will be|
|00001510| 20 6f 66 20 74 68 65 20 | 66 6f 72 6d 0a 20 20 63 | of the |form.  c|
|00001520| 6d 64 20 66 69 6c 65 31 | 3b 20 63 6d 64 20 66 69 |md file1|; cmd fi|
|00001530| 6c 65 32 3b 20 2e 2e 2e | 20 63 6d 64 20 66 69 6c |le2; ...| cmd fil|
|00001540| 65 4e 20 61 73 73 75 6d | 69 6e 67 20 6f 6e 6c 79 |eN assum|ing only|
|00001550| 20 6f 6e 65 20 72 65 66 | 65 72 65 6e 63 65 20 74 | one ref|erence t|
|00001560| 6f 20 74 68 65 0a 20 20 | 66 69 6c 65 20 6c 69 73 |o the.  |file lis|
|00001570| 74 2e 20 45 2e 67 2e 2c | 20 74 6f 20 72 65 6e 61 |t. E.g.,| to rena|
|00001580| 6d 65 20 61 6c 6c 20 2e | 6c 73 70 20 66 69 6c 65 |me all .|lsp file|
|00001590| 73 20 69 6e 74 6f 20 2e | 6c 69 73 70 20 66 69 6c |s into .|lisp fil|
|000015a0| 65 73 20 6d 61 72 6b 20 | 61 6c 6c 20 74 68 65 0a |es mark |all the.|
|000015b0| 20 20 2e 6c 73 70 20 66 | 69 6c 65 73 20 61 6e 64 |  .lsp f|iles and|
|000015c0| 20 69 73 73 75 65 20 74 | 68 65 20 63 6f 6d 6d 61 | issue t|he comma|
|000015d0| 6e 64 20 60 6d 76 20 2a | 20 5b 64 62 5d 2e 6c 69 |nd `mv *| [db].li|
|000015e0| 73 70 27 20 2e 22 5d 29 | 0a                      |sp' ."])|.       |
+--------+-------------------------+-------------------------+--------+--------+