home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / 3 / 3dired11.zip / UNXDIRED.CMD < prev   
OS/2 REXX Batch file  |  1992-08-22  |  27KB  |  872 lines
  1. ; This is version 1.1-Unix of Dired for MicroEMACS, enhanced and de-boned
  2. ; over the first DOS release. I've added a couple features and cleaned
  3. ; up the code.  Thanks very much to Richard Meitzler for beta testing this 
  4. ; 1.1 version. It's been tested on a Sparc station and an IBM RISC 6000.
  5. ;
  6. ; Version 1.1-Dos also exists for dired.cmd; the file is called dosdired.cmd
  7. ;
  8. ; Of course I'm happy to hear bug reports and feedback about this code
  9. ; so don't hesitate to write if something goes wrong (or even right).
  10. ; I'm at: 
  11. ;
  12. ;        hetrick@gauge.phys.uva.nl          
  13. ;        Theoretical Physics Institute
  14. ;        University of Amsterdam, The Netherlands
  15. ;
  16. ;  Salut, 
  17. ;           Jim Hetrick
  18. ;
  19. ;=====================================================================
  20. ;
  21. ;                      =====UnxDired.cmd=====  
  22. ;                          version 1.1-Unix
  23. ;
  24. ;        A Directory Facility for MicroEMACS 3.11 under Unix
  25. ;                
  26. ;        (C)opyright 1992 by James E. Hetrick 
  27. ;
  28. ;   Dired.cmd is modeled after GNUEmacs' Dired.el to some degree.
  29. ;   It lists directories, allows you to manipulate files in them, 
  30. ;   and to move around your directory tree. 
  31. ;
  32. ; ******* READ THIS ***** READ THIS ****** READ THIS ********
  33. ;
  34. ; As this program has the capability to DELETE YOUR
  35. ; FILES please put some test files in a subdirectory and try it 
  36. ; out on them. After you're convinced of its integrity, put it 
  37. ; wherever your .cmd files live and fire at will. 
  38. ;
  39. ; ******* READ THIS ***** READ THIS ****** READ THIS ********
  40. ;
  41. ;
  42. ;
  43. ;                      ===============
  44. ;                       Documentation 
  45. ;                      ===============
  46. ;
  47. ; To Load: either -> uncomment the Dired code page below and 
  48. ;             make the changes to your .emacsrc file
  49. ;              or -> load with "execute-file unxdired.cmd"
  50. ;
  51. ; To Run:  hit C-x d (^XD) or M-x D-open to start dired. 
  52. ;
  53. ;       (C-x d is remapped by Dired.cmd. If you need it, 
  54. ;         remap D-open to some other key).
  55. ;
  56. ; Dired prompts you for a directory. Either type an alternative
  57. ; directory or accept (by hitting <ENTER>) the default directory
  58. ; from which MicroEMACS was called.
  59. ;
  60. ; From here you can move UP and DOWN the files with the arrow keys.
  61. ; Tapping "f" loads the file into a buffer for editting replacing the 
  62. ; Dired directory.
  63. ;
  64. ; If you hit "f" on a subdirectory, that subdir is loaded as
  65. ; a Dired buffer. 
  66. ;
  67. ; In a Dired buffer there is a new META key, so to speak, "q" by
  68. ; default. Usually one tells Dired what to do by hitting letter keys
  69. ; "f", "o", "m", etc., as in it's GNU inspiration. Should you need 
  70. ; to do something which is bound to a control sequence, like C-x k 
  71. ; (delete-buffer) or C-x x (next-buffer), you first type "q", Dired will 
  72. ; then prompt you with "Command sequence:". Here you enter a normal
  73. ; control sequence, and Dired will process it as best it can. Using 
  74. ; "q" as the Dired-META key, avoids the difficulties that seem
  75. ; arise in using the function keys across a variety of different machines. 
  76. ;
  77. ; Dired-buffers (Dired-C:\DIR\...) are like others and stay in the 
  78. ; background while editing files or performing other tasks. If you 
  79. ; "next-buffer" q-(C-x x) into a Dired directory buffer, Dired starts 
  80. ; again and you have it's commands at your disposal. If you should 
  81. ; find yourself back in a Dired-buffer which is not responding to
  82. ; Dired commands such as happens when you split the screen by "o"
  83. ; (view-file-other-window) or "t" (tar-view) on a .tar file, just 
  84. ; type C-x C-d to restart the Dired command processor in the window.
  85. ;
  86. ; I prefer C-x k to delete the current buffer and replace 
  87. ; with the next on the stack like GNUEmacs, so I have the 
  88. ; macro "kill-this-one" bound to C-x k, in my .emacsrc. 
  89. ; If you like it, do the same, and Dired will process it. Otherwise,
  90. ; you can comment out the !if..."kill-this-one" loop out (or leave it).
  91. ;
  92. ; ***************************************************************
  93. ;store-procedure kill-this-one
  94. ;   set %thisone $cbufname
  95. ;   set %ans @&cat &cat "Delete [" %thisone "]: "
  96. ;   !if &seq %ans ""
  97. ;      !force next-buffer
  98. ;      !force delete-buffer %thisone
  99. ;   !else
  100. ;      !force delete-buffer %ans
  101. ;   !endif
  102. ;!endm
  103. ;
  104. ;macro-to-key kill-this-one ^XK
  105. ; ****************************************************************
  106. ;
  107. ; Below is the list of Dired commands, executed singly when the cursor is
  108. ; on a file name and no files are marked (*ed), or executed on the 
  109. ; *ed files en masse:
  110. ; 
  111. ; Movement:
  112. ;
  113. ;      arrow keys: up and down  (seem to work for me)
  114. ;            P, N: up, down respectively
  115. ;            k, j: up, down respectively
  116. ;    q-PgUpKey, V: Page-up
  117. ;    q-PgDnKey, B: Page-down
  118. ;
  119. ;   A note about movement keys: the V and B above are delivered on some
  120. ;   machines as the ***key*** entered when hitting PgUp and PgDn. The
  121. ;   ***cmd*** is still (previous/next-page). Hence, your PgUp/Dn keys
  122. ;   may work just as keys, or you may have to prefix them with the 
  123. ;   Dired-META "q" ie. q-PgUp... Failing that you can just enter "V"
  124. ;   or "B". The same applies to the arrow keys. Mine seem to work with
  125. ;   P and N, however k and j (like vi) are supplied in case yours don't.
  126. ;   
  127. ;  (If you feel like recompiling, Richard Meitzler, Stratus Computer, Marlboro, 
  128. ;   MA, [rgm@hw.stratus.com] has had some success fixing unix.c in the memacs
  129. ;   source to interpret the Sun/Sparc function keys.)
  130. ;
  131. ; Commands: 
  132. ; 
  133. ;   f --- load file/directory into current window
  134. ;
  135. ;   o --- load file/directory into another window
  136. ;
  137. ;  m,d -- mark file   (with %markstr)
  138. ;
  139. ;   u --- unmark file
  140. ;
  141. ;   c --- copy (marked) file(s) 
  142. ;
  143. ;   r --- rename or move (marked) file(s)
  144. ;
  145. ;   x --- delete (marked) file(s)  [you're prompted; prompting can be turned off]
  146. ;
  147. ;   C --- compress ...
  148. ;
  149. ;   U --- uncompress ...
  150. ;
  151. ;   e --- extract tar file
  152. ;
  153. ;   t --- on a .tar archive, view contents in other window
  154. ;     --- or tar (marrked) file(s) into an archive
  155. ;            (must be viewing directory from which MicroEMACS
  156. ;             was invoked, ie. default directory at startup
  157. ;             so that files in tar file are portable---with no paths)
  158. ;
  159. ;   a --- execute file (useful for .cmd files; doesn't always work)
  160. ;
  161. ;   z --- leave dired processor (Dired-buffer becomes like any other)
  162. ;
  163. ;   Note that file or directory inputs to Dired are globbed 
  164. ;   so that ~/filename is expanded using you $HOME variable
  165. ;   (only ~/ is expanded though).
  166. ;
  167. ;   Filenames and directories entered for copy, move, etc., are processed
  168. ;   as follows: a single name gets the currently viewed directory prepended 
  169. ;   to it. If the filename/dir is entered with "/"'s in it, it's assumed 
  170. ;   that it represents a full pathname and left alone. ".." is a valid 
  171. ;   directory and will be expanded relative to the viewed directory.
  172. ;
  173. ;   C-x C-f (find-file) while in a some directory, opens a (new) file in that
  174. ;   directory.
  175. ;
  176. ;
  177. ;========================== Dired ======================================
  178.  
  179. ; Feel free to comment out this one:
  180. write-message " -\|/-   Dired <1.1-Unix> for MicroEMACS === 1992 (c) J. E. Hetrick   >> C-x d"
  181.  
  182. set %marked 0
  183. set %revert FALSE
  184. set %dot FALSE
  185. set %othwin FALSE
  186. set %dirowin FALSE
  187. set %comseq "q"        ; for command sequnce input (see D-getcmd)
  188. set %markstr " * "     ; must be 3 chars
  189. set %home &env "HOME"   ; for globbing
  190.  
  191. ;                                           =======D-check
  192. store-procedure D-check
  193.    !if &seq &left $cbufname 6 "Dired-"
  194.        set $discmd FALSE
  195.        set %length &len $cbufname
  196.        set %dir &rig $cbufname &sub %length 6
  197.        set %Dbuffer &cat "Dired-" %dir
  198.        change-file-name " "
  199.        beginning-of-file
  200.        set %starred FALSE
  201.        set %marked 0
  202.        !while &seq %starred FALSE
  203.           !force search-forward %markstr
  204.           !if &seq $status TRUE
  205.              set %marked &add %marked 1
  206.           !else 
  207.              set %starred TRUE
  208.           !endif
  209.        !endwhile
  210.        unmark-buffer %Dbuffer
  211.        beginning-of-file
  212.        !force search-forward ".."
  213.        set %ncol &sub $curcol 2
  214.        next-line
  215.        beginning-of-line
  216.        !force %ncol forward-character
  217.        set %filename " "      
  218.        set $discmd TRUE
  219.        D-process
  220.    !endif
  221. !endm
  222.  
  223. ;                                     ==============D-open
  224. store-procedure D-open
  225.       set $discmd FALSE
  226.       !if &seq %rcfkeys TRUE
  227.          !force toggle-fkeys
  228.       !endif
  229.       pipe-command "pwd"
  230.       beginning-of-file
  231.       set %cwd #command
  232.       set %dir @&cat &cat "Directory [" %cwd "]: "
  233.       !if &seq %dir "ERROR"
  234.          write-message "Aborting..."
  235.          delete-window
  236.          delete-buffer "command"
  237.          !return
  238.       !endif
  239.       delete-window
  240.       set $discmd TRUE
  241.       !if &sequal %dir ""
  242.          set %dir %cwd
  243.       !else 
  244.          !if &seq &left %dir 2 "~~/"
  245.             set %dir &cat %home &right %dir &sub &len %dir 1
  246.          !endif
  247.       !endif
  248.       D-window
  249. !endm
  250.  
  251. ;                                         =========D-window
  252. store-procedure D-window
  253.       !if &seq %revert FALSE
  254.          write-message &cat &cat "[Reading " %dir "...]
  255.       !endif
  256.       pipe-command &cat "ls -al " %dir
  257.       !if &seq %othwin FALSE
  258.          delete-other-windows
  259.       !endif
  260.       set %othwin FALSE
  261.       !if &seq %dirowin TRUE
  262.          set %dirowin FALSE
  263.      save-window
  264.      next-window
  265.          delete-window
  266.          restore-window
  267.       !endif
  268.       !force delete-buffer "stale"
  269.       set %rcfkeys FALSE
  270.       delete-mode "View"
  271.       set %Dbuffer &cat "Dired-" %dir
  272.       name-buffer %Dbuffer
  273.       change-file-name " "
  274.       beginning-of-file
  275.       set-mark
  276.       end-of-file
  277.       set %tabno $hardtab
  278.       set $hardtab 3
  279.       indent-region
  280.       detab-region
  281.       set $hardtab %tabno 
  282.       beginning-of-file
  283.       unmark-buffer %Dbuffer
  284.       !if &seq %revert TRUE
  285.          goto-line %oldline
  286.          set %revert FALSE
  287.       !else
  288.          !force search-forward ".."
  289.          set %ncol &sub $curcol 2
  290.          next-line
  291.       !endif
  292.       beginning-of-line
  293.       !force %ncol forward-character
  294.       set %filename " "      
  295.       set $discmd TRUE
  296.       D-process
  297. !endm
  298.  
  299. ;                                     ==============D-getcmd
  300. store-procedure D-getcmd
  301.    !if &seq $pending FALSE
  302.       !force update-screen
  303.    !endif
  304.    set %cmd " "    
  305.    set %key >key
  306.    !if &seq %key %comseq 
  307.       write-message "Command sequence:"
  308.       set %cmd >cmd
  309.       set %cmd &bind %cmd
  310.       write-message %cmd
  311.    !endif
  312. !endm
  313.  
  314. ;                                     ==============D-process
  315. store-procedure D-process   
  316.   write-message "Dired ON"
  317.   set $discmd FALSE
  318.   set %done FALSE
  319.   !while &seq %done FALSE
  320.   D-getcmd
  321.  
  322. ;======Movement======
  323.      !if &or &or &seq %key "k" &seq %key "P" &seq %cmd "previous-line"
  324.          !force previous-line
  325.          beginning-of-line
  326.          !force %ncol forward-character
  327.          !goto endproc
  328.      !endif
  329.  
  330.      !if &or &seq %key "B" &seq %cmd "previous-page"
  331.          !force previous-page
  332.          beginning-of-line
  333.          !force %ncol forward-character
  334.          !goto endproc
  335.      !endif
  336.  
  337.      !if &or &or &seq %key "j" &seq %key "N" &seq %cmd "next-line"
  338.          !force next-line
  339.          beginning-of-line
  340.          !force %ncol forward-character
  341.          !goto endproc
  342.       !endif
  343.  
  344.      !if &or &seq %key "V" &seq %cmd "next-page"
  345.          !force next-page
  346.          beginning-of-line
  347.          !force %ncol forward-character
  348.          !goto endproc
  349.       !endif
  350.  
  351. ; ======Edit file====== ---"f"---
  352.       !if &or &seq %key "f" &seq %cmd "mouse-region-down" 
  353.          D-getfile
  354.          D-load-file
  355.       !endif
  356.  
  357. ; ======Edit file other window====== ---"o"---
  358.       !if &seq %key "o"
  359.          set %othwin TRUE
  360.          2 split-current-window
  361.          D-getfile
  362.          !if &seq %dirq "d"
  363.         set %dirowin TRUE
  364.      !endif
  365.          D-load-file
  366.       !endif
  367.  
  368. ; ======Copy file======= ---"c"---
  369.       !if &seq %key "c"
  370.          D-getfile
  371.          !if &gre %marked 0
  372.             set %copy @"Copy marked files to: "
  373.             !if &seq %copy ".."
  374.                set %copy &cat %dir "/.."
  375.           !endif
  376.             !if &seq &left %copy 2 "~~/"
  377.                set %copy &cat %home &right %copy &sub &len %copy 1
  378.             !else
  379.                !if &equ &sind %copy "/" 0
  380.                   set %copy &cat &cat %dir "/" %copy
  381.                !endif
  382.             !endif
  383.             set %count 0
  384.             !while &gre %marked 0
  385.                beginning-of-file
  386.                search-forward %markstr
  387.                3 delete-previous-character
  388.                insert-string "   "
  389.                set %marked &sub %marked 1
  390.                D-getfile
  391.                shell-command &cat &cat &cat "cp " %filename " " %copy
  392.                set %count &add %count 1
  393.             !endwhile
  394.             write-message &cat %count " files copied"
  395.          !else
  396.             set %copy @&cat &cat "Copy  " %shortfile " to: "
  397.             !if &seq %copy ".."
  398.                set %copy &cat %dir "/.."
  399.           !endif
  400.             !if &seq &left %copy 2 "~~/"
  401.                set %copy &cat %home &right %copy &sub &len %copy 1
  402.             !else
  403.                !if &equ &sind %copy "/" 0
  404.                   set %copy &cat &cat %dir "/" %copy
  405.                !endif
  406.             !endif
  407.             shell-command &cat &cat &cat "cp " %filename " " %copy
  408.          !endif
  409.          D-revert
  410.          !break
  411.       !endif
  412.  
  413. ; ======Delete file(s)== ---"x"---
  414.       !if &seq %key "x"
  415.          !if &gre %marked 0
  416.             set %count 0
  417.             !while &gre %marked 0
  418.                beginning-of-file
  419.                search-forward %markstr
  420.                3 delete-previous-character
  421.                insert-string "   "
  422.                set %marked &sub %marked 1
  423.                D-getfile
  424. ; comment this set-if-loop out for no-prompt deletion of marked files
  425.                set %delq @&cat &cat "Delete  " %filename "? [y/n]: "
  426.                !if &seq &low %delq "y"
  427.                   D-delete
  428.                !endif
  429.                set %count &add %count 1
  430.             !endwhile
  431.             write-message &cat %count " files deleted"
  432.          !else
  433.             D-getfile
  434. ; comment this set-if-loop out for no-prompt deletion of file
  435.             set %delq @&cat &cat "Delete  " %filename "? [y/n]: "
  436.             !if &seq &low %delq "y"
  437.                D-delete
  438.             !else
  439.                write-message "No files deleted"
  440.             !endif
  441.          !endif
  442.          beginning-of-line
  443.          !force %ncol forward-character
  444.          set %delq " "
  445.          !goto endproc
  446.       !endif
  447.  
  448. ; ======Move file======= ---"r"---
  449.       !if &seq %key "r"
  450.          !if &gre %marked 0
  451.             set %move @"Move marked files to: "
  452.             !if &seq %move ".."
  453.                set %move &cat %dir "/.."
  454.           !endif
  455.             !if &seq &left %move 2 "~~/"
  456.                set %move &cat %home &right %move &sub &len %move 1
  457.             !else
  458.                !if &equ &sind %move "/" 0
  459.                   set %move &cat &cat %dir "/" %move
  460.                !endif
  461.             !endif
  462.             set %count 0
  463.             !while &gre %marked 0
  464.                beginning-of-file
  465.                search-forward %markstr
  466.                3 delete-previous-character
  467.                insert-string "   "
  468.                set %marked &sub %marked 1
  469.                D-getfile
  470.            shell-command &cat &cat &cat "mv -i " %filename " " %move
  471.                set %count &add %count 1
  472.             !endwhile
  473.             write-message &cat %count " files moved"
  474.          !else
  475.             D-getfile
  476.             set %move @&cat &cat "Move or Rename" %shortfile " to: "
  477.             !if &seq %move ".."
  478.                set %move &cat %dir "/.."
  479.           !endif
  480.             !if &seq &left %move 2 "~~/"
  481.                set %move &cat %home &right %move &sub &len %move 1
  482.             !else
  483.                !if &equ &sind %move "/" 0
  484.                   set %move &cat &cat %dir "/" %move
  485.                !endif
  486.             !endif
  487.             shell-command &cat &cat &cat "mv -i " %filename " " %move
  488.             unmark-buffer %Dbuffer
  489.          !endif
  490.          D-revert
  491.          !break
  492.       !endif
  493.  
  494. ; =======Mark File====== ---"m"---
  495.       !if &or &seq %key "m" &seq %key "d"
  496.          beginning-of-line
  497.          set %markq &left #%Dbuffer 3
  498.          previous-line
  499.          beginning-of-line
  500.          !if &seq %markq %markstr
  501.             write-message "file already marked"
  502.          !else   
  503.             !force 3 forward-character
  504.             3 delete-previous-character
  505.             insert-string %markstr
  506.             set %marked &add %marked 1
  507.             !if ¬ &equ $curline %lastline
  508.                next-line
  509.             !endif
  510.             beginning-of-line
  511.             !force %ncol forward-character
  512.             write-message &cat %marked " marked files"
  513.             unmark-buffer %Dbuffer
  514.          !endif
  515.          !goto endproc
  516.       !endif         
  517.  
  518. ; =======Unmark file===== ---"u"---
  519.       !if &seq %key "u"
  520.          beginning-of-line
  521.          set %markq &left #%Dbuffer 3
  522.          previous-line
  523.          beginning-of-line
  524.          !if &seq %markq "   "
  525.             write-message "file not marked"
  526.          !else   
  527.             3 forward-character
  528.             3 delete-previous-character
  529.             insert-string "   "
  530.             set %marked &sub %marked 1
  531.             beginning-of-line
  532.             next-line
  533.             !force %ncol forward-character
  534.             write-message &cat %marked " marked files"
  535.             unmark-buffer %Dbuffer
  536.          !endif
  537.          !goto endproc
  538.       !endif         
  539.  
  540. ; =======Revert Buffer===== ---"g"---
  541.       !if &seq %key "g"
  542.          D-revert
  543.          !break
  544.       !endif
  545.  
  546. ; =======Make Sub-Directory===== ---"+"--- 
  547.       !if &seq %key "+"
  548.          set %mkdir @&cat &cat "Make sub-directory: " %dir "/"
  549.      shell-command &cat &cat &cat "mkdir " %dir "/" %mkdir
  550.          D-revert
  551.          !break
  552.       !endif
  553.  
  554. ; =======Execute file===== ---"a"---
  555.       !if &seq %key "a"
  556.          D-getfile
  557.          set %done TRUE
  558.          execute-file %filename
  559.          !break
  560.       !endif
  561.  
  562. ; =======Compress===== ---"C"---    
  563.       !if &seq %key "C"
  564.          !if &gre %marked 0
  565.             set %compq @"Compress marked files? [y/n]: "
  566.             !if &seq &low %compq  "y"
  567.            write-message "uncompressing marked files..."
  568.                set %count 0
  569.                !while &gre %marked 0
  570.                   beginning-of-file
  571.                   search-forward %markstr
  572.                   D-getfile
  573.                   shell-command &cat "compress " %filename
  574.                   beginning-of-line
  575.                   3 forward-character
  576.                   3 delete-previous-character
  577.                   insert-string "   "
  578.                   set %marked &sub %marked 1
  579.                   set %count &add %count 1
  580.                !endwhile
  581.                write-message &cat %count " files compressed"
  582.             !endif
  583.          !else
  584.             D-getfile
  585.             set %compq @&cat &cat "Compress " %filename "? [y/n]: "
  586.             !if &seq &low %compq "y"
  587.                shell-command &cat "compress " %filename 
  588.             !endif
  589.          !endif
  590.          set %compq " "
  591.          D-revert
  592.          !break
  593.       !endif
  594.  
  595. ; =======Un-Compress===== ---"U"---    
  596.       !if &seq %key "U"
  597.          !if &gre %marked 0
  598.             set %compq @"Uncompress marked files? [y/n]: "
  599.         !if &seq &low %compq  "y"
  600.            write-message "uncompressing marked files..."
  601.                !while &gre %marked 0
  602.                   beginning-of-file
  603.                   search-forward %markstr
  604.                   D-getfile
  605.                   shell-command &cat "uncompress " %filename
  606.                   beginning-of-line
  607.                   3 forward-character
  608.                   3 delete-previous-character
  609.                   insert-string "   "
  610.                   set %marked &sub %marked 1
  611.                !endwhile
  612.             !endif
  613.          !else
  614.             D-getfile
  615.             set %compq @&cat &cat "Uncompress " %filename "? [y/n]: "
  616.             !if &seq &low %compq "y"
  617.                shell-command &cat "uncompress " %filename 
  618.             !endif
  619.          !endif
  620.          set %compq " "
  621.          D-revert
  622.          !break
  623.       !endif
  624.  
  625. ; =======Tar===== ---"t"---
  626.       !if &seq %key "t"
  627.      D-getfile
  628.      !if &seq &right %filename 4 ".tar"
  629.         D-tarview
  630.         !break
  631.      !else          
  632.             !if ¬ &seq %cwd %dir
  633.                write-message &cat "Abort: must be in " %cwd
  634.                !goto endtar
  635.             !endif
  636.             !if &gre %marked 0
  637.                set %tarc @"new archive name (.tar added)? : "
  638.                !if &seq &left %tarc 2 "~~/"
  639.                   set %tarc &cat %home &right %tarc &sub &len %tarc 1
  640.                !else
  641.                   !if &equ &sind %tarc "/" 0
  642.                      set %tarc &cat &cat %dir "/" %tarc
  643.                   !endif
  644.                !endif
  645.                set %tarc &cat %tarc ".tar"
  646.                write-message &cat &cat "Tarring marked files into " %tarc "..."
  647.                set %count 0
  648.                !while &gre %marked 0
  649.                   beginning-of-file
  650.                   search-forward %markstr
  651.                   D-getfile
  652.                   beginning-of-line
  653.                   3 forward-character
  654.                   3 delete-previous-character
  655.                   insert-string "   "
  656.                   shell-command &cat &cat "echo " %shortfile " >> TARLIST"
  657.                   set %marked &sub %marked 1
  658.                   set %count &add %count 1
  659.                !endwhile
  660.                set %marked 0
  661.                shell-command &cat  &cat "tar cf " %tarc " -I TARLIST"
  662.                shell-command "rm TARLIST"
  663.                write-message &cat &cat %count " files tarred in " %tarc
  664.             !else
  665.                D-getfile
  666.                set %tarc &cat &cat &cat %dir "/" %filename ".tar"
  667.                write-message &cat &cat "Tarring " %shortfile "..."
  668.                shell-command &cat &cat "tar cf " %tarc %shortname
  669.             !endif
  670.          !endif
  671.          D-revert
  672.          !break
  673.          *endtar
  674.       !endif
  675.  
  676. ; =======Un-Tar===== ---"e"---
  677.       !if &seq %key "e"
  678.          !if ¬ &seq %cwd %dir
  679.             write-message &cat "Abort: Files would be extracted into " %cwd
  680.             !goto enduntar
  681.          !endif
  682.      D-getfile
  683.          write-message &cat &cat "Extracting " %shortfile "..."
  684.      shell-command &cat "tar xf " %filename
  685.          D-revert
  686.          !break
  687.          *enduntar
  688.        !endif
  689.  
  690. ; =======Exit Dired Mode ---"z"---
  691.       !if &seq %key "z"
  692.      write-message "Dired OFF... (C-x C-d to resume)"
  693.          set %done TRUE
  694.          !break
  695.       !endif               
  696.  
  697. ; =======Find file===== C-x C-f
  698.       !if &seq %cmd "find-file"
  699.          set %cmd " "
  700.          set %newbuf @"Find file: "
  701.          !if &seq &left %newbuf 2 "~~/"
  702.             set %newbuf &cat %home &right %newbuf &sub &len %newbuf 1
  703.          !else
  704.             !if &equ &sind %newbuf "/" 0
  705.                set %newbuf &cat &cat %dir "/" %newbuf
  706.             !endif
  707.          !endif
  708.          !force find-file %newbuf
  709.          set %done TRUE
  710.          !break
  711.       !endif               
  712.  
  713. ; =======Pass commands=====
  714.       !if &seq %cmd "delete-buffer"
  715.          set %done TRUE
  716.          next-buffer
  717.          delete-buffer %Dbuffer
  718.       !endif
  719.  
  720.       !if &seq %cmd "[D-open]"
  721.          !force D-open
  722.       !endif      
  723.  
  724.       !if &seq %cmd "[mouse-clicks]"
  725.          !force mouse-move-down
  726.          !goto endproc
  727.       !endif      
  728.  
  729.       !if &seq %cmd "[toggle-fkeys]"
  730.          execute-procedure "toggle-fkeys"
  731.          !goto endproc
  732.       !endif      
  733.  
  734.       !if &seq %cmd "[get-help]"
  735.          execute-procedure "get-help"
  736.          !goto endproc
  737.       !endif      
  738.  
  739.       !if &seq %cmd "next-buffer"
  740.          set %done TRUE
  741.          unmark-buffer %Dbuffer
  742.          next-buffer
  743.          !goto endproc
  744.       !endif      
  745.  
  746.       !if &seq %cmd "[kill-this-one]"
  747.          set %done TRUE
  748.          set %cmd " "
  749.          execute-procedure kill-this-one
  750.          !goto endproc
  751.       !endif      
  752.  
  753.       !force execute-named-command %cmd
  754.  
  755.       *endproc
  756.    !endwhile
  757. !endm
  758.  
  759. ;                                     ==============D-getfile
  760. store-procedure D-getfile
  761.    end-of-line
  762.    !if &les $curcol %ncol
  763.       write-message "Not positioned on file or directory"
  764.       !goto endget
  765.    !endif
  766.    beginning-of-line
  767.    3 forward-character
  768.    set %dirq &left #%Dbuffer 1
  769.    previous-line
  770.    beginning-of-line
  771.    !force %ncol forward-character
  772.    set %filename &trim #%Dbuffer
  773.    !if &seq %dirq "d"
  774.       !if &seq %filename "."
  775.          write-message "Tried to load ~".~" (use g to revert buffer to refresh)"
  776.          previous-line
  777.          !force %ncol forward-character
  778.          set %dot TRUE
  779.          !goto endget
  780.       !endif
  781.       !if &seq %filename ".."
  782.          set %testdir %dir
  783.          set %orgdir %testdir
  784.          set %dirlen &len %testdir
  785.          set %orglen %dirlen
  786.          set %slash &sind %testdir "/"
  787.          !while ¬ &equ %slash 0
  788.             set %testdir &right %testdir &sub %dirlen %slash
  789.             set %dirlen &len %testdir
  790.             set %slash &sind %testdir "/"
  791.          !endwhile
  792.          write-message &left %orgdir &sub %orglen &add 1 &len %testdir
  793.          set %newdir &left %orgdir &sub %orglen &add 1 &len %testdir
  794.       !else
  795.          set %newdir &cat &cat %dir "/" %filename
  796.       !endif
  797.    !else
  798.       set %shortfile %filename
  799.       set %filename &cat &cat %dir "/" %filename
  800.       set %dirq " "
  801.    !endif
  802.    previous-line
  803.    !force %ncol forward-character
  804.    *endget
  805. !endm 
  806.    
  807. ;                                     ==============D-load-file
  808. store-procedure D-load-file
  809. !if &seq %dot FALSE
  810.    !if &seq %dirq "d"
  811.       !force delete-buffer &cat "Dired-" %newdir
  812.       set %dirq " "
  813.       set %dir %newdir
  814.       !if %revert FALSE
  815.          write-message &cat &cat "[Reading " %dir "...]"
  816.       !endif
  817.       set %done TRUE
  818.       D-window
  819.    !else
  820.       write-message &cat &cat "[Reading " %filename "...]"
  821.       !if &seq %othwin FALSE
  822.          delete-other-windows
  823.       !else
  824.          set %othwin FALSE
  825.       !endif
  826.       !force find-file %filename
  827.       set %done TRUE
  828.    !endif
  829. !endif
  830.    set %dot FALSE
  831.    *loadend
  832. !endm
  833.  
  834.  
  835. ;                                     ==============D-delete
  836. store-procedure D-delete
  837.    write-message &cat &cat "Deleting  " %filename "..."
  838.    shell-command &cat &cat "rm " %filename
  839.    beginning-of-line
  840.    1 kill-to-end-of-line
  841.    set %lastline &sub %lastline 1
  842.    update-screen
  843.    unmark-buffer %Dbuffer
  844. !endm
  845.  
  846. ;                                     ==============D-tarview
  847. store-procedure D-tarview 
  848.    set %cmd " "
  849.    !force pipe-command &cat "tar tvf " %filename
  850.    set %done TRUE
  851.    name-buffer %shortfile
  852.    change-file-name "tar-view"
  853.    beginning-of-file
  854.    insert-string &cat &cat "=== Contents of tarfile: " %shortfile " ===~n~n"
  855.    update-screen
  856. !endm
  857.  
  858. store-procedure D-revert
  859.   set %revert TRUE
  860.   set %oldline $curline
  861.   name-buffer "stale"
  862.   unmark-buffer "stale"
  863.   D-window
  864. !endm
  865.  
  866. set $discmd FALSE
  867. macro-to-key D-open ^XD
  868. macro-to-key D-check ^X^D
  869. set $bufhook D-check
  870. set $discmd TRUE
  871. ;write-message "...done   (C-x d to open directory)"
  872.