home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / 3 / 3dired11.zip / DOSDIRED.CMD next >
OS/2 REXX Batch file  |  1992-08-22  |  28KB  |  906 lines
  1. ; Hi,
  2. ; 
  3. ; This is version 1.1-Dos of Dired for MicroEMACS, enhanced and de-boned
  4. ; over the first release. I've added a couple features and cleaned
  5. ; up the code. It should work well under both Dos 4.x and Dos 5.0 now
  6. ; as well as 4DOS. 4DOS users should adjust the %dirfunc variable to dir /j
  7. ; in the initial set of "set %..."'s. Thanks very much to Richard Meitzler for 
  8. ; the 4DOS fix and for beta testing this 1.1 version. 
  9. ;
  10. ; The Unix or "ls -al" driven version exists also for anyone who would
  11. ; like to have Dired in MicroEMACS under Unix; it's version 1.1-Unix,
  12. ; and the file is unxdired.cmd.
  13. ; 
  14. ; Of course I'm happy to hear bug reports and feedback about this code
  15. ; so don't hesitate to write if something goes wrong (or even right).
  16. ; I'm at: 
  17. ;
  18. ;        hetrick@gauge.phys.uva.nl           
  19. ;        Theoretical Physics Institute
  20. ;        University of Amsterdam, The Netherlands
  21. ;
  22. ;  Salut, 
  23. ;           Jim Hetrick
  24. ;
  25. ;=====================================================================
  26. ;
  27. ;                      =====DosDired.cmd=====  
  28. ;                          version 1.1-Dos
  29. ;
  30. ;        A Directory Facility for MicroEMACS 3.11 on the PC
  31. ;                
  32. ;        (C)opyright 1992 by James E. Hetrick 
  33. ;
  34. ;
  35. ;
  36. ;
  37. ; Dired.cmd is modeled after GNUEmacs' Dired.el to some degree.
  38. ; It lists directories, allows you to manipulate files in them, 
  39. ; and to move around your directory tree. 
  40. ;
  41. ; It relies on three other executables being in the path:
  42. ;
  43. ;    MV.EXE  --- File mover. Any one should do. If yours isn't 
  44. ;                called MV then edit the line:
  45. ;             set %mvfunc "mv " 
  46. ;          to reflect the name of your mv. Be sure to 
  47. ;         add the space at the end.
  48. ;
  49. ;   PKzip and 
  50. ;   PKunzip  --- The standards. You can also edit these parts
  51. ;                of DIRED.CMD to use LHZ or ZOO or whatever you
  52. ;                like.
  53. ;
  54. ; ******* READ THIS ***** READ THIS ****** READ THIS ********
  55. ;
  56. ; As this program has the capability to DELETE YOUR
  57. ; FILES please put some test files in a subdirectory and try it 
  58. ; out on them. After you're convinced of its integrity, put it 
  59. ; wherever your .cmd files live and fire at will. 
  60. ;
  61. ; ******* READ THIS ***** READ THIS ****** READ THIS ********
  62. ;
  63. ;
  64. ;                      ===============
  65. ;                       Documentation 
  66. ;                      ===============
  67. ;
  68. ; To Load: either -> uncomment the Dired code page below and 
  69. ;             make the changes to your emacs.rc file
  70. ;              or -> load with "execute-file dired.cmd"
  71. ;
  72. ; To Run:  hit C-x d (^XD) or M-x D-open to start dired. 
  73. ;
  74. ;       (C-x d is remapped by Dired.cmd. If you need it, 
  75. ;         remap D-open to some other key).
  76. ;
  77. ; Dired prompts you for a directory. Either type an alternative
  78. ; directory or accept (by hitting <ENTER>) the default directory
  79. ; from which MicroEMACS was called.
  80. ;
  81. ; From here you can move UP and DOWN the files with the arrow keys
  82. ; and the mouse (left button). Placing the cursor on the line of
  83. ; a file and hitting <ENTER> or clicking with the right mouse button
  84. ; loads the file into a buffer for editting replacing the Dired directory.
  85. ;
  86. ; If you type <ENTER> on a subdirectory, that subdir is loaded as
  87. ; a Dired buffer. 
  88. ;
  89. ; Dired-buffers (Dired-C:\DIR\...) are like others and stay in the 
  90. ; background while editing files or performing other tasks. If you 
  91. ; "next-buffer" (C-x x) into a Dired directory buffer, Dired starts 
  92. ; again and you have it's commands at your disposal. If you should 
  93. ; find yourself back in a Dired-buffer which is not responding to
  94. ; Dired commands such as happens when you split the screen by C-<ENTER>
  95. ; "view-file-other-window" or S-F9 "zip-view" on a . zip file, just 
  96. ; type C-x C-d to restart the Dired command processor in the window.
  97. ;
  98. ; I prefer C-x k to delete the current buffer and replace 
  99. ; with the next on the stack like GNUEmacs, so I have the 
  100. ; macro "kill-this-one" bound to C-x k, in my emacs.rc. 
  101. ; If you like it, do the same, and Dired will process it. Otherwise,
  102. ; you can comment out the !if..."kill-this-one" loop out (or leave it).
  103. ;
  104. ; ***************************************************************
  105. ;store-procedure kill-this-one
  106. ;   set %thisone $cbufname
  107. ;   set %ans @&cat &cat "Delete [" %thisone "]: "
  108. ;   !if &seq %ans ""
  109. ;      !force next-buffer
  110. ;      !force delete-buffer %thisone
  111. ;   !else
  112. ;      !force delete-buffer %ans
  113. ;   !endif
  114. ;!endm
  115. ;
  116. ;macro-to-key kill-this-one ^XK
  117. ; ****************************************************************
  118. ;
  119. ; Below is the list of Dired commands, executed singly when the cursor is
  120. ; on a file name and no files are marked (*ed), or executed on the 
  121. ; *ed files en masse:
  122. ;
  123. ;  Movement:    =   Usual: Up, Down, PgUp, PgDn, etc., and left mouse button
  124. ;
  125. ;  <ENTER>      =   Load File   (on files)
  126. ;  or right     =   Load Subdir into Dired window (on subdirs)
  127. ;  mouse button     (with mouse hit the left button first to move the
  128. ;                    point to the current line, then click the right one)
  129. ;
  130. ;  C-<ENTER>    =   Split screen, load File/Subdir in second window
  131. ;
  132. ;  C-x C-f      =   Open new file: A single name gets the currently viewed
  133. ;                   directory prepended. If the entered name contains directory 
  134. ;                   names, ie. has a "\" in it, it is opened as is.)
  135. ;
  136. ;  C-x e        =   Execute File, works on some cmd files, like CAL1.CMD
  137. ;
  138. ;  C-c          =   Exit the Dired command processor. This just leaves
  139. ;                   you in the Directory listing as an ordinary file.
  140. ;
  141. ;    When entering filenames, for copy, move, etc., a single name gets
  142. ;    the currently viewed diredctory prepended. Names which contain "\"
  143. ;    are taken as is. Names ending in ":", ie. "A:" get a "\" postfixed.
  144. ;    Below,  --- is the action on a single file, 
  145. ;            -*- is the action if files are marked.
  146. ;
  147. ;  S-F1   = Copy     --- you are prompted for a name/destination.
  148. ;             -*- prompt for dest; copy all marked files
  149. ;
  150. ;  S-F2   = Delete   --- delete file. (you're prompted)
  151. ;                   -*- or all marked files. (prompted)
  152. ;               >>>[prompting can be turned off for the brave]
  153. ;
  154. ;  S-F3   = Move     --- you are prompted for a destination.
  155. ;             -*- prompt for dest; move all marked files
  156. ;                        (exact behavior depends on your "mv" function)
  157. ;
  158. ;  S-F4   = Rename   --- rename file
  159. ;
  160. ;  S-F5   = Mark     --- Mark file with %markstr ( * ) and move to next line. 
  161. ;
  162. ;  S-F6   = Un-Mark  --- Unmarks file.
  163. ;
  164. ;  S-F7   = Revert   --- Updates Dired buffer by re-reading
  165. ;             directory from disk.
  166. ;
  167. ;  S-F8   = Make Subdir --- Make a new subdirectory 
  168. ;
  169. ;  S-F9   = PK-Zip   ---  PKzips file.
  170. ;              -*-  PKzips marked files into one zipfile.
  171. ;        file.zip  If pressed on an file ending in .ZIP, 
  172. ;                  ie. trying to zip a zipped file,
  173. ;                 invokes PKzip -v, to view contents 
  174. ;                           of file in another window.
  175. ;
  176. ;  S-F10  = PK-UnZip --- Un-zip file
  177. ;
  178. ;====================== Dired Code Page =============================
  179. ;
  180. ;; If you would like Dired to be loaded as a macro page in the function
  181. ;; key window, then uncomment the following code page loader (hacked 
  182. ;; shamelessly from from the WPAGE.CMD in the distribution). Then rename 
  183. ;; DIRED.CMD -> DPAGE.CMD and modify your EMACS.RC file to have an entry 
  184. ;; "Dired" replacing one of the pages you don't use. 
  185. ;
  186. ;; ++++++++++++++++this code page loader taken from WPAGE.CMD:+++++++
  187. ;;    DPAGE.CMD:    Dired Macro Page
  188. ;;            for MicroEMACS 3.9d and above
  189. ;;    from WPAGE.CMD:    (C)opyright 1987 by Daniel M Lawrence
  190. ;
  191. ;
  192. ;; make sure the function key window is up
  193. ;    set %rcfkeys FALSE
  194. ;    toggle-fkeys
  195. ;    write-message "Loading Dired..."
  196. ;
  197. ;; Write out the page instructions
  198. ;    save-window
  199. ;    1 next-window
  200. ;    beginning-of-file
  201. ;    set $curcol 25
  202. ;    overwrite-string " F1 Copy                 F2  Delete                 "
  203. ;    next-line
  204. ;    set $curcol 25
  205. ;    overwrite-string " F3 Move                 F4  Rename      [  C-x d  ]"
  206. ;    next-line
  207. ;    set $curcol 25
  208. ;    overwrite-string " F5 Mark                 F6  UnMark      [ invokes ]"
  209. ;    next-line
  210. ;    set $curcol 18
  211. ;    overwrite-string "DIRED]"
  212. ;    set $curcol 25
  213. ;    overwrite-string " F7 Revert Directory     F8  Make Dir    [  Dired  ]"
  214. ;    next-line
  215. ;    set $curcol 25
  216. ;    overwrite-string " F9 PK-Zip /(Zip-View)   F10 PK-Un-Zip              "
  217. ;    unmark-buffer
  218. ;    beginning-of-file
  219. ;    !force restore-window
  220. ;    update-screen
  221. ;; ++++++++++++++++++++++++++++++ 
  222.  
  223. ;========================== Dired.cmd ===========================
  224.  
  225. ; Feel free to comment out this one:
  226. write-message " -\|/-  Dired [1.1-Dos] for MicroEMACS === 1992 (c) J. E. Hetrick      >> C-x d
  227.  
  228. set %marked 0
  229. set %revert FALSE
  230. set %dot FALSE
  231. set %othwin FALSE
  232. set %dirowin FALSE
  233. set %dirfunc "dir "
  234. ;set %dirfunc "dir /j " ; 4DOS Users, uncomment this one
  235. ;set %comseq "q"        ; only needed if you use Unix style commands (see D-getcmd)
  236. set %markstr " * "     ; must be 3 chars
  237. set %mvfunc "mv "       ; name of move function PLUS a space 
  238.  
  239. ;                                           =======D-check
  240. store-procedure D-check
  241.    !if &seq &left $cbufname 6 "Dired-"
  242.        set $discmd FALSE
  243.        set %length &len $cbufname
  244.        set %dir &rig $cbufname &sub %length 6
  245.        set %Dbuffer &cat "Dired-" %dir
  246.        change-file-name " "
  247.        beginning-of-file
  248.        set %starred FALSE
  249.        set %marked 0
  250.        !while &seq %starred FALSE
  251.           !force search-forward %markstr
  252.           !if &seq $status TRUE
  253.              set %marked &add %marked 1
  254.           !else 
  255.              set %starred TRUE
  256.           !endif
  257.        !endwhile
  258.        unmark-buffer %Dbuffer
  259.        beginning-of-file
  260.        !force search-forward ".."
  261.        set %ncol &sub $curcol 2
  262.        next-line
  263.        beginning-of-line
  264.        !force %ncol forward-character
  265.        set %filename " "      
  266.        set $discmd TRUE
  267.        D-process
  268.    !endif
  269. !endm
  270.  
  271. ;                                     ==============D-open
  272. store-procedure D-open
  273.       set $discmd FALSE
  274.       !if &seq %rcfkeys TRUE
  275.          !force toggle-fkeys
  276.       !endif
  277.       pipe-command "cd"
  278.       beginning-of-file
  279.       set %cwd #command
  280.       set %dir @&cat &cat "Directory [" %cwd "]: "
  281.       !if &seq %dir "ERROR"
  282.          write-message "Aborting..."
  283.          delete-window
  284.          delete-buffer "command"
  285.          !return
  286.       !endif
  287.       delete-window
  288.       set $discmd TRUE
  289.       !if &sequal %dir ""
  290.          set %dir %cwd
  291.       !endif
  292.       D-window
  293. !endm
  294.  
  295. ;                                         =========D-window
  296. store-procedure D-window
  297.       !if &seq %revert FALSE
  298.          write-message &cat &cat "[Reading " %dir "...]
  299.       !endif
  300.       !if &seq &right %dir 1 ":"
  301.          pipe-command &cat &cat %dirfunc %dir "\"
  302.       !else
  303.          pipe-command &cat %dirfunc %dir
  304.       !endif
  305.       !if &seq %othwin FALSE
  306.          delete-other-windows
  307.       !endif
  308.       set %othwin FALSE
  309.       !if &seq %dirowin TRUE
  310.          set %dirowin FALSE
  311.      save-window
  312.      next-window
  313.          delete-window
  314.          restore-window
  315.       !endif
  316.       !force delete-buffer "stale"
  317.       set %rcfkeys FALSE
  318.       delete-mode "View"
  319.       set %Dbuffer &cat "Dired-" %dir
  320.       name-buffer %Dbuffer
  321.       change-file-name " "
  322.       beginning-of-file
  323.       set-mark
  324.       end-of-file
  325.       set %tabno $hardtab
  326.       set $hardtab 3
  327.       indent-region
  328.       detab-region
  329.       set $hardtab %tabno 
  330.       beginning-of-file
  331.       unmark-buffer %Dbuffer
  332.       !if &seq %revert TRUE
  333.          goto-line %oldline
  334.          set %revert FALSE
  335.       !else
  336.          !force search-forward ".."
  337.          !if &seq $status TRUE
  338.             set %ncol &sub $curcol 2
  339.             next-line
  340.          !else
  341.             set %ncol 3
  342.             beginning-of-file
  343.             !force 4 next-line
  344.          !endif
  345.       !endif
  346.       beginning-of-line
  347.       !force %ncol forward-character
  348.       set %filename " "      
  349.       set $discmd TRUE
  350.       D-process
  351. !endm
  352.  
  353. ;                                     ==============D-getcmd
  354. store-procedure D-getcmd
  355.  
  356. ; This is the default PC configuration: Commands are entered via the 
  357. ; S-FN keys, as this is faster. If your PC has some warp speed clock,
  358. ; your FN keys aren't working, or you prefer Unix(GNU/Tree)-like 
  359. ; commands on letter keys, ie. f, o, m, d, x, etc., comment out this 
  360. ; "PC" segment and uncomment the next section called "Unix". 
  361. ; Then change all "!if &seq %cmd..." lines in D-process to the matching 
  362. ; Unix format "!if &seq %key...". 
  363.  
  364. ; -------------------------- PC Function Key command input
  365.    !if &seq $pending FALSE
  366.       !force update-screen
  367.    !endif    
  368.    set %cmd >cmd
  369.    set %cmd &bind %cmd
  370. ; -------------------------- PC
  371.  
  372. ; -------------------------- Unix letter key command input
  373. ;   !if &seq $pending FALSE
  374. ;      !force update-screen
  375. ;   !endif
  376. ;   set %cmd " "    
  377. ;   set %key >key
  378. ;   !if &seq %key %comseq
  379. ;      write-message "Command sequence:"
  380. ;      set %cmd >cmd
  381. ;      set %cmd &bind %cmd
  382. ;      write-message %cmd
  383. ;   !endif
  384. ; -------------------------- Unix
  385.  
  386. !endm
  387.  
  388. ;                                     ==============D-process
  389. store-procedure D-process   
  390.   write-message "Dired ON"
  391.   set $discmd FALSE
  392.   set %done FALSE
  393. Porting to
  394.          another system should only be a matter of changing the
  395.          "ls" or "dir" to whatever lists directories.  !while &seq %done FALSE
  396.   D-getcmd
  397.  
  398. ; ---------------------------------------------------------------------------
  399. ; To convert to Unix-like command input switch all %cmd input !if's 
  400. ;   from:
  401. ;          !if &seq %cmd "previous-line"
  402. ;     to:
  403. ;          !if &or &or &seq %key "k" &seq %key "P" &seq %cmd "previous-line"
  404. ; by exchanging the ";" 
  405. ;----------------------------------------------------------------------------
  406.  
  407. ;======Movement======
  408.      !if &seq %cmd "previous-line"
  409. ;     !if &or &or &seq %key "k" &seq %key "P" &seq %cmd "previous-line"
  410.          !force previous-line
  411.          beginning-of-line
  412.          !force %ncol forward-character
  413.          !goto endproc
  414.      !endif
  415.  
  416.      !if &seq %cmd "previous-page"
  417. ;     !if &or &seq %key "Z" &seq %cmd "previous-page"
  418.          !force previous-page
  419.          beginning-of-line
  420.          !force %ncol forward-character
  421.          !goto endproc
  422.      !endif
  423.  
  424.      !if &seq %cmd "next-line"
  425. ;     !if &or &or &seq %key "j" &seq %key "N" &seq %cmd "next-line"
  426.          !force next-line
  427.          beginning-of-line
  428.          !force %ncol forward-character
  429.          !goto endproc
  430.      !endif
  431.  
  432.      !if &seq %cmd "next-page"
  433. ;     !if &or &seq %key "V" &seq %cmd "next-page"
  434.          !force next-page
  435.          beginning-of-line
  436.          !force %ncol forward-character
  437.          !goto endproc
  438.      !endif
  439.  
  440. ; ======Edit file====== <return>
  441.       !if &or &seq %cmd "newline" &seq %cmd "mouse-region-down"
  442. ;      !if &seq %key "f" &seq %cmd "mouse-region-down"
  443.          D-getfile
  444.          D-load-file
  445.       !endif
  446.  
  447. ; ======Edit file other window====== <C-return>
  448.       !if &seq %cmd "newline-and-indent"
  449. ;      !if &seq %key "o"
  450.          set %othwin TRUE
  451.          2 split-current-window
  452.          D-getfile
  453.          !if &seq %dirq "d"
  454.         set %dirowin TRUE
  455.      !endif
  456.          D-load-file
  457.       !endif
  458.  
  459. ; ======Copy file======= S-F1
  460.       !if &seq %cmd "execute-macro-10"
  461. ;      !if &seq %key "c"
  462.          D-getfile
  463.          !if &gre %marked 0
  464.             set %copy @"Copy marked files to: "
  465.             !if &seq %copy ".."
  466.                set %copy &cat %dir "\.."
  467.             !else
  468.                !if &seq &right %copy 1 ":"
  469.                    set %copy &cat %copy "\"
  470.                !endif
  471.                !if &equ &sind %copy "\" 0
  472.                   set %copy &cat &cat %dir "\" %copy
  473.                !endif
  474.           !endif
  475.             set %count 0
  476.             !while &gre %marked 0
  477.                beginning-of-file
  478.                search-forward %markstr
  479.                3 delete-previous-character
  480.                insert-string "   "
  481.                set %marked &sub %marked 1
  482.                D-getfile
  483.                shell-command &cat &cat &cat "copy " %filename " " %copy
  484.                set %count &add %count 1
  485.             !endwhile
  486.             write-message &cat %count " files copied"
  487.          !else
  488.             set %copy @&cat &cat "Copy  " %shortfile "  to:  "
  489.             !if &seq %copy ".."
  490.                set %copy &cat %dir "\.."
  491.             !else
  492.                !if &seq &right %copy 1 ":"
  493.                    set %copy &cat %copy "\"
  494.                !endif
  495.                !if &equ &sind %copy "\" 0
  496.                   set %copy &cat &cat %dir "\" %copy
  497.                !endif
  498.           !endif
  499.             shell-command &cat &cat &cat "copy " %filename " " %copy
  500.          !endif
  501.          D-revert
  502.          !break
  503. ;         !goto endproc
  504.       !endif
  505.  
  506. ; ======Delete file(s)== S-F2
  507.       !if &seq %cmd "execute-macro-11"
  508. ;      !if &seq %key "x"
  509.          !if &gre %marked 0
  510.             set %count 0
  511.             !while &gre %marked 0
  512.                beginning-of-file
  513.                search-forward %markstr
  514.                3 delete-previous-character
  515.                insert-string "   "
  516.                set %marked &sub %marked 1
  517.                D-getfile
  518. ; comment this set-if-loop out for no-prompt deletion of marked files
  519.                set %delq @&cat &cat "Delete  " %filename "? [y/n]"
  520.                !if &seq &low %delq "y"
  521.                   D-delete
  522.                !endif
  523.                set %count &add %count 1
  524.             !endwhile
  525.             write-message &cat %count " files deleted"
  526.          !else
  527.             D-getfile
  528. ; comment this set-if-loop out for no-prompt deletion of file
  529.             set %delq @&cat &cat "Delete  " %filename "? [y/n]"
  530.             !if &seq &low %delq "y"
  531.                D-delete
  532.             !else
  533.                write-message "No files deleted"
  534.             !endif
  535.          !endif
  536.          beginning-of-line
  537.          !force %ncol forward-character
  538.          set %delq " "
  539.          !goto endproc
  540.       !endif
  541.  
  542. ; ======Move file======= S-F3
  543.       !if &seq %cmd "execute-macro-12"
  544. ;      !if &seq %key "r"
  545.          !if &gre %marked 0
  546.             set %move @"Move marked files to: "
  547.             !if &seq %move ".."
  548.                set %move &cat %dir "\.."
  549.             !else
  550.                !if &seq &right %move 1 ":"
  551.                    set %move &cat %move "\"
  552.                !endif
  553.                !if &equ &sind %move "\" 0
  554.                   set %move &cat &cat %dir "\" %move
  555.                !endif
  556.           !endif
  557.             set %count 0
  558.             !while &gre %marked 0
  559.                beginning-of-file
  560.                search-forward %markstr
  561.                3 delete-previous-character
  562.                insert-string "   "
  563.                set %marked &sub %marked 1
  564.                D-getfile
  565.            shell-command &cat &cat &cat %mvfunc %filename " " %move
  566.                set %count &add %count 1
  567.             !endwhile
  568.             write-message &cat %count " files moved"
  569.          !else
  570.             D-getfile
  571.             set %move @&cat &cat "Move " %shortfile " to: "
  572.             !if &seq %move ".."
  573.                set %move &cat %dir "\.."
  574.             !else
  575.                !if &seq &right %move 1 ":"
  576.                    set %move &cat %move "\"
  577.                !endif
  578.                !if &equ &sind %move "\" 0
  579.                   set %move &cat &cat %dir "\" %move
  580.                !endif
  581.           !endif
  582.             shell-command &cat &cat &cat %mvfunc %filename " " %move
  583.             unmark-buffer %Dbuffer
  584.          !endif
  585.          D-revert
  586.          !break
  587.       !endif
  588.  
  589. ; ======Rename file======= S-F4
  590.       !if &seq %cmd "execute-macro-13"
  591. ;      no corresponding Unix function ("r" does both)
  592.          D-getfile
  593.          set %renm @&cat &cat "Rename  " %filename "  to:  "
  594.          shell-command &cat &cat &cat "rename " %filename " " %renm
  595.          unmark-buffer "Dbuffer"
  596.          D-revert
  597.          !break
  598.       !endif
  599.  
  600. ; =======Mark File====== S-F5
  601.       !if &seq %cmd "execute-macro-14" 
  602. ;      !if &or &seq %key "m" &seq %key "d"
  603.          beginning-of-line
  604.          set %markq &left #%Dbuffer 3
  605.          previous-line
  606.          beginning-of-line
  607.          !if &seq %markq %markstr
  608.             write-message "file already marked"
  609.          !else   
  610.             !force 3 forward-character
  611.             3 delete-previous-character
  612.             insert-string %markstr
  613.             set %marked &add %marked 1
  614.             !if ¬ &equ $curline %lastline
  615.                next-line
  616.             !endif
  617.             beginning-of-line
  618.             !force %ncol forward-character
  619.             write-message &cat %marked " marked files"
  620.             unmark-buffer %Dbuffer
  621.          !endif
  622.          !goto endproc
  623.       !endif         
  624.  
  625. ; =======Unmark file===== S-F6
  626.       !if &seq %cmd "execute-macro-15"
  627. ;      !if &seq %key "u"
  628.          beginning-of-line
  629.          set %markq &left #%Dbuffer 3
  630.          previous-line
  631.          beginning-of-line
  632.          !if &seq %markq "   "
  633.             write-message "file not marked"
  634.          !else   
  635.             3 forward-character
  636.             3 delete-previous-character
  637.             insert-string "   "
  638.             set %marked &sub %marked 1
  639.             beginning-of-line
  640.             next-line
  641.             !force %ncol forward-character
  642.             write-message &cat %marked " marked files"
  643.             unmark-buffer %Dbuffer
  644.          !endif
  645.          !goto endproc
  646.       !endif         
  647.  
  648. ; =======Revert Buffer===== S-F7
  649.       !if &seq %cmd "execute-macro-16"
  650. ;      !if &seq %key "g"
  651.          D-revert
  652.          !break
  653.       !endif
  654.  
  655. ; =======Make Sub-Directory===== S-F8 
  656.       !if &seq %cmd "execute-macro-17"
  657. ;      !if &seq %key "+"
  658.          set %mkdir @&cat &cat "sub-directory: " %dir "\"
  659.      shell-command &cat &cat &cat "mkdir " %dir "\" %mkdir
  660.          D-revert
  661.          !break
  662.       !endif
  663.  
  664. ; =======PK-ZIP===== S-F9    
  665.       !if &seq %cmd "execute-macro-18"
  666. ;      !if &seq %key "t"
  667.          D-getfile
  668.          !if &seq &right %filename 4 ".ZIP"
  669.             write-message &cat "Zip-view of " %shortfile
  670.             D-zipview
  671.             !break
  672.          !else        
  673.             !if &gre %marked 0
  674.                set %zipfile @"Name of archive file? (.zip added): "
  675.                !if &equ &sind %zipfile "\" 0
  676.                   set %zipfile &cat &cat %dir "\" %zipfile
  677.                !endif
  678.                set %zipfile &cat %zipfile ".zip"
  679.                write-message &cat &cat "Zipping marked files into " %zipfile "..."
  680.                set %count 0
  681.            !while &gre %marked 0
  682.               beginning-of-file
  683.               search-forward %markstr
  684.               D-getfile
  685.               beginning-of-line
  686.               3 forward-character
  687.               3 delete-previous-character
  688.               insert-string "   "
  689.               shell-command &cat &cat &cat &cat &cat "pkzip -b" %dir " -a " %zipfile " " %filename 
  690.               set %marked &sub %marked 1
  691.                   set %count &add %count 1
  692.            !endwhile
  693.                write-message &cat &cat %count " files zipped into " %zipfile
  694.            set %marked 0
  695.         !else
  696.            D-getfile
  697.            set %zipfile %shortfile
  698.            write-message &cat &cat &cat &cat "Zipping " %shortfile " into " %shortfile ".zip"
  699.            shell-command &cat &cat &cat &cat "pkzip -b" %dir " " %shortfile ".ZIP " %shortfile 
  700.         !endif
  701.          !endif
  702.          D-revert
  703.          !break
  704.       !endif
  705.  
  706. ; =======PK-UnZIP===== S-F10
  707.       !if &seq %cmd "execute-macro-19"
  708.          D-getfile
  709.          write-message &cat "Un-Zipping " %shortfile
  710.          shell-command &cat &cat &cat "pkunzip " %filename " " %dir
  711.          D-revert
  712.          !break          
  713.       !endif
  714.  
  715. ; =======Execute file===== C-x e
  716.       !if &seq %cmd "execute-macro"
  717. ;      !if &seq %key "a"
  718.          D-getfile
  719.          set %done TRUE
  720.          execute-file %filename
  721.          !break
  722.       !endif
  723.  
  724. ; =======Exit Dired Mode======= C-c
  725.       !if &seq %cmd "insert-space"
  726. ;      !if &seq %key "z"
  727.      write-message "Exiting Dired command processor... (C-x C-d to resume)"
  728.          set %done TRUE
  729.          !break
  730.       !endif               
  731.  
  732. ; =======Find file===== C-x C-f
  733.       !if &seq %cmd "find-file"
  734.          set %cmd " "
  735.          set %newbuf @"Find file: "
  736.          !if &equ &sind %newbuf "\" 0
  737.             set %newbuf &cat &cat %dir "\" %newbuf
  738.          !endif
  739.          !force find-file %newbuf
  740.          set %done TRUE
  741.          !break
  742.       !endif               
  743.  
  744. ; =======Pass commands=====
  745.       !if &seq %cmd "delete-buffer"
  746.          set %done TRUE
  747.          next-buffer
  748.          delete-buffer %Dbuffer
  749.       !endif
  750.  
  751.       !if &seq %cmd "[D-open]"
  752.          !force D-open
  753.       !endif      
  754.  
  755.       !if &seq %cmd "[mouse-clicks]"
  756.          !force mouse-move-down
  757.          !goto endproc
  758.       !endif      
  759.  
  760.       !if &seq %cmd "[toggle-fkeys]"
  761.          execute-procedure "toggle-fkeys"
  762.          !goto endproc
  763.       !endif      
  764.  
  765.       !if &seq %cmd "[get-help]"
  766.          execute-procedure "get-help"
  767.          !goto endproc
  768.       !endif      
  769.  
  770.       !if &seq %cmd "next-buffer"
  771.          set %done TRUE
  772.          unmark-buffer %Dbuffer
  773.          next-buffer
  774.          !goto endproc
  775.       !endif      
  776.  
  777.       !if &seq %cmd "[kill-this-one]"
  778.          set %done TRUE
  779.          set %cmd " "
  780.          execute-procedure kill-this-one
  781.          !goto endproc
  782.       !endif      
  783.  
  784.       !force execute-named-command %cmd
  785.  
  786.       *endproc
  787.    !endwhile
  788. !endm
  789.  
  790. store-procedure D-getfile
  791.    end-of-line
  792.    !if &les $curcol %ncol
  793.       write-message "Not positioned on file or directory"
  794.       !goto endget
  795.    !endif
  796.    beginning-of-line
  797.    17 forward-character
  798.    set %dirq &low &left #%Dbuffer 1
  799.    previous-line
  800.    beginning-of-line
  801.    3 forward-character
  802.    set %ffront &trim &left #%Dbuffer 8
  803.    previous-line
  804.    beginning-of-line
  805.    12 forward-character
  806.    set %fext &left #%Dbuffer 3
  807.    !if ¬ &seq %dirq "d"
  808.       set %filename &trim &cat &cat %ffront "." %fext
  809.    !endif
  810.    !if &seq %ffront "."
  811.       write-message "Tried to open ~".~" (Use S-F7 to revert buffer)"
  812.       previous-line
  813.       !force %ncol forward-character
  814.       set %dot TRUE
  815.       !goto endget
  816.    !endif
  817.    !if &seq %dirq "d"
  818.       !if &seq %ffront ".."
  819.          set %testdir &upper %dir
  820.          set %orgdir %testdir
  821.          set %dirlen &len %testdir
  822.          set %orglen %dirlen
  823.          set %slash &sind %testdir "\"
  824.          !while ¬ &equ %slash 0
  825.             set %testdir &right %testdir &sub %dirlen %slash
  826.             set %dirlen &len %testdir
  827.             set %slash &sind %testdir "\"
  828.          !endwhile
  829.          set %newdir &left %orgdir &sub %orglen &add 1 &len %testdir
  830.       !else
  831.          set %newdir &cat &cat %dir "\" &upper %ffront
  832.       !endif
  833.    !else
  834.       set %shortfile %filename
  835.       set %filename &cat &cat %dir "\" %filename
  836.       set %dirq " "
  837.    !endif
  838.    previous-line
  839.    !force %ncol forward-character
  840.    *endget
  841. !endm 
  842.  
  843. ;                                     ==============D-load-file
  844. store-procedure D-load-file
  845. !if &seq %dot FALSE
  846.    !if &seq %dirq "d"
  847.       !force delete-buffer &cat "Dired-" %newdir
  848.       set %dirq " "
  849.       set %dir %newdir
  850.       !if &seq %revert FALSE
  851.          write-message &cat &cat "[Reading " %dir "...]"
  852.       !endif
  853.       set %done TRUE
  854.       D-window
  855.    !else
  856.       write-message &cat &cat "[Reading " %filename "...]"
  857.       !if &seq %othwin FALSE
  858.          delete-other-windows
  859.       !else
  860.          set %othwin FALSE
  861.       !endif
  862.       !force  find-file %filename
  863.       set %done TRUE
  864.    !endif
  865. !endif
  866.    set %dot FALSE
  867.    *loadend
  868. !endm
  869.  
  870. ;                                     ==============D-delete
  871. store-procedure D-delete
  872.    write-message &cat &cat "Deleting  " %filename "..."
  873.    shell-command &cat &cat "del " %filename
  874.    beginning-of-line
  875.    1 kill-to-end-of-line
  876.    set %lastline &sub %lastline 1
  877.    update-screen
  878.    unmark-buffer %Dbuffer
  879. !endm
  880.  
  881. ;                                     ==============D-zipview
  882. store-procedure D-zipview 
  883.    set %cmd " "
  884.    !force pipe-command &cat "pkzip -v " %filename
  885.    set %done TRUE
  886.    name-buffer %shortfile
  887.    change-file-name "zip-view"
  888.    beginning-of-file
  889.    update-screen
  890. !endm
  891.  
  892. store-procedure D-revert
  893.   set %revert TRUE
  894.   set %oldline $curline
  895.   name-buffer "stale"
  896.   unmark-buffer "stale"
  897.   D-window
  898. !endm
  899.  
  900. set $discmd FALSE
  901. macro-to-key D-open ^XD
  902. macro-to-key D-check ^X^D
  903. set $bufhook D-check
  904. set $discmd TRUE
  905.  
  906.