home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / podstawy / dos / 4dos / 4uzytki / ez-btm11.exe / EX0.BTM < prev    next >
Text File  |  1994-03-01  |  6KB  |  237 lines
  1. : EX0.BTM
  2. : A library of subprograms. Run with the name of any of the subprograms
  3. : specified below + commands / options / switches. See EX-HLP.BTM (or
  4. : type 'EX H option') for more details on each sub-program.
  5. : (This file contains programs eliminated from EX.BTM. I've left, however,
  6. : the HELP text about them in EX-HLP.BTM. They are left out because they
  7. : can now be replaced by better batches.)
  8.  
  9. : Itamar Even-Zohar
  10. : Porter Chair of Semiotics, Tel Aviv University
  11. : Tel Aviv 69978, Israel
  12. : itamarez@plato.tau.ac.il, or itiez@ccsg.tau.ac.il
  13. :
  14. if "%1" == "" goto CONTENTS
  15. goto begin
  16.  
  17. :contents
  18. cls
  19. text
  20.  
  21. Usage: EX function [options]
  22.  
  23. where function stands for
  24.  
  25.  help or h <command> .... Explanations on each of the following
  26.  
  27.  up|upf|f <archive name>. Updates|Freshens specified zip on B:
  28.  sp|sf|op ............... Runs Norton's Speedisk (after unhiding all
  29.                           descript.ion files, then hiding them again)
  30.  zp|zpx ..................Creates two sorts of ZIP archives on B: with path
  31.                           names (ZP)|extracts these archives to disk (ZPX)
  32.  
  33. endtext
  34.   quit
  35.  
  36. :begin
  37. if %1 == q quit
  38. goto %1
  39. quit
  40.  
  41. :HELP
  42. :H
  43. call EX-HLP %2
  44. quit
  45.  
  46. :--------------------------------------------------Update/Freshen
  47. :UP
  48. :UPF
  49. :F
  50. : Updates (command: UP) or Freshens (command UPF or F) specified
  51. : ZIP archive on drive B: (change to suit your preference above the ^^
  52. : string below).
  53.  
  54. setlocal
  55. set zipdisk=B
  56. rem         ^^ change to suit your preference
  57. : ----> the following 2 variables are needed for running an extra
  58. :       procedure, explained below under label :updateMY.
  59. set myzip=EZ
  60. set myzipdir=c:\EZ
  61. rem       ^^^^^^^^ Change both parameters to suit yours.
  62. alias quix `endlocal^quit`
  63.  
  64. alias ZU `pkzip -ub%_lastdisk %1& -ex`
  65. alias ZF `pkzip -fb%_lastdisk %1& -ex`
  66.  
  67. if "%1"=="UP" set up=zu
  68. if "%1"=="UPF" set up=zf
  69. if "%1"=="F" set up=zf
  70.  
  71. shift
  72. :begin2
  73. if not "%1"=="" goto begin3
  74.  
  75. :filename!
  76. echo.
  77. text
  78.     SYNTAX:
  79.     EX UP|UPF|F archive_name [options]
  80.     (do not specify drive [default: B:], omit ZIP extension)
  81. endtext
  82. quix
  83.  
  84. :begin3
  85. iff %@ready[%zipdisk:] eq 1 then
  86. goto update
  87.   else
  88. goto error2
  89.   endiff
  90.  
  91. :error2
  92. cls
  93. :error3
  94. echo -- Insert diskette in drive %zipdisk: and
  95. pause
  96. goto begin3
  97.  
  98. :update
  99. if %1==%myzip goto updateMY
  100. inkey /K"YN" Currently working in %_cwd, is this OK? (Y/N) %%rep
  101. iff %rep==N then^ input type desired directory: %%dir^
  102. cdd %dir
  103. endiff
  104.   iff not exist %zipdisk:%@upper[%1].ZIP then
  105.   echo %zipdisk:%@upper[%1].ZIP not found
  106.   quix
  107.   endiff
  108.  
  109. %up %zipdisk:%1& -x*.zip -x*.tmp -x*.bak
  110. rem   "zip", "tmp" and "bak" files are not to be compressed in the archive.
  111. rem   Change if your prefer otherwise.
  112.  
  113. quix
  114. :-------------------------------------------------------Optimize
  115. :SF
  116. :OP
  117. cls
  118. :optimize
  119.    Iff %@eval[%@dosmem[k]] lt 600 then
  120. cls
  121. echo.
  122. echo No memory for optimization (%@upper[%pgm] is loaded)
  123. quit
  124.    else
  125. goto do-optimize
  126.    endiff
  127.  
  128. iff %_dosver gt 6 then
  129. goto do-optimize
  130. else
  131. goto norton
  132. endiff
  133.  
  134. :do-optimize
  135. ::keystack 0 enter^defrag /H /F
  136. keystack 0 enter^defrag /H /F /LCD
  137. rem     For notebook displays:  ^^^^
  138. goto end_op
  139.  
  140. :norton
  141. setlocal
  142. iff "%@search[sd.exe]" =="" .and. "%@search[speedisk.exe]" =="" then
  143. echo.
  144. echo You need Norton's SPEEDISK to run this sub-program
  145. quit
  146. endiff
  147.  
  148. iff "%@search[speedisk.exe]" =="" .and. not "%@search[sd.Exe]" =="" then
  149. set sd=sd
  150.   else
  151. set sd=speedisk
  152.   endiff
  153.  
  154. call ex ci-hide - descript.ion
  155.  
  156. keystack 0 enter^%sd /f
  157.  
  158. call ex ci-hide + descript.ion
  159. endlocal
  160.  
  161. :end_op
  162. cls
  163. echo.
  164. echo Disk successfully optimized
  165. quit
  166. :----------------------------------------Files to & from Zipfile
  167. :zp
  168. :zpx
  169. : zipping & unzipping update archives
  170. : ZP [switch] creates a ZIP archive from a file with a list of filenames
  171. : called UPD.BAT. If you use switch H, the archive's name will
  172. : be FROMHOME.ZIP; if you use switch F, the archive's name will
  173. : be FRMOFICE.ZIP. The archives will be created on drive B:, or
  174. : change above ^^ below.
  175. : ZPX [switch] extracts the relevant archive to the respective
  176. : subdirectories on your hard disk.
  177.  
  178. shift
  179.  
  180. setlocal
  181. set zipdisk=B
  182. rem         ^^ change to suit your preference
  183.  
  184. if "%1"=="" goto syntaxz
  185. goto check
  186. :syntaxz
  187. echo Type H for "fromhome", F for "frmofice"
  188. inkey Type preferred option: %%1
  189.  
  190. :check
  191. if %1==h goto home
  192. if %1==f goto office
  193. goto syntaxz
  194.  
  195. :home
  196. iff "%0"=="zp" then
  197. pkzip -ub%_lastdisk: -P %zipdisk:fromhome @upd.Bat
  198. elseiff "%0"=="zpx" then
  199. pushd c:\
  200. pkunzip -n -d %zipdisk:fromhome.Zip
  201. endiff
  202. endlocal
  203. quit
  204.  
  205. :office
  206. iff "%0"=="zp" then
  207. pkzip -ub%_lastdisk: -P %zipdisk:frmofice @upd.Bat
  208. elseiff "%0"=="zpx" then
  209. pushd c:\
  210. pkunzip -n -d %zipdisk:frmofice.Zip
  211. endiff
  212. endlocal
  213. quit
  214.  
  215. :---------------subroutines
  216. :-------------------
  217. :updateMY
  218. rem      This procedure takes care of a "default archive"
  219. rem      using default parameters (updating only files saved
  220. rem      since a specified date). I have left it here since
  221. rem      if you like this possibility, you can easily modify
  222. rem      the various parameters to suit your own files.
  223. cls
  224. echo.
  225. echo --`>` Currently working in %_cwd but will switch temporarily to
  226. echo     %myzipdir, THEN RETURN
  227. echo.
  228. iff not "%_cwd"=="%myzipdir" then^CDD %myzipdir^endiff
  229. iff not exist %zipdisk:%myzip.zip then^echo -- %zipdisk:%myzip.zip not found!^goto error3^endiff
  230. echo.
  231. echo ==`>` %@upper[%myzip.zip] will be updated for files since 1.1.1992.
  232. %up -t010192 %zipdisk:%myzip -x*.zip -x*.tmp -x*.bak
  233. rem   ^^^^^^                   ^^^^^   ^^^^^   ^^^^^
  234. rem Change date and exception files to suit your needs!
  235. rem "exception files" are files not to be compressed in the archive.
  236. quix
  237.