home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / podstawy / dos / 4dos / 4uzytki / ez-btm11.exe / XC.BTM < prev   
Text File  |  1994-10-26  |  7KB  |  259 lines
  1. : XC.BTM
  2. : A library of sub-programs. Run with the name of any of the sub-programs
  3. : specified below + commands / options / switches. See XC-HLP.BTM (or
  4. : type 'XC H [option]') for more details on each sub-program. All of
  5. : the programs included here can also run from EX.BTM. This frees you
  6. : from remembering which sub-program is stored where. XC.BTM is however
  7. : required by EX.BTM because the programs run by the 'call' command.
  8. : 
  9. : Itamar Even-Zohar
  10. : Porter Chair of Semiotics, Tel Aviv University
  11. : Tel Aviv 69978, Israel
  12. : e-mail: itamarez@plato.tau.ac.il
  13. :
  14. if "%1" == "" goto CONTENTS
  15.  
  16. call settemp.btm
  17. :: (sets temp drive for programs)
  18.  
  19. goto begin
  20.  
  21. :contents
  22. cls
  23. text
  24.  
  25. Usage: XC function [options]
  26.  
  27. where function stands for
  28.  
  29. help or h <command>........ Explanations on each of the following
  30.  
  31. DUP ....................... Find doubles
  32. ALS ....................... Reload aliases file and report
  33. UMBMEM|UMB ................ Report how much free UMB memory left
  34. CHKP <name of pgm> ........ Check and report if a specified pgm is loaded
  35. SEF <string>............... Look for file(s) through list of file
  36.                               descriptions and filenames
  37. SRDX ...................... Resize dynamic ramdisk created by SRDISK
  38.  
  39. endtext
  40.  
  41. screen 19 1
  42. :select
  43. inkey /K"[ESC][Enter]" ==> Type ENTER for more, ESC to quit %%rsp
  44. if %rsp == @28 goto more_text
  45. if %rsp == %@char[27] (unset rsp^quit)
  46.  
  47.  
  48. :more_text
  49. cls
  50. text
  51.  
  52. (nothing here) ............. Vacant for future sub-programs
  53.  
  54.  
  55. endtext
  56. inkey /K"[ESC][Enter]" ==> Type ENTER to return, ESC to quit %%rsp
  57. if %rsp == @28 goto contents
  58. if %rsp == %@char[27] (unset rsp^quit)
  59.  
  60.  
  61. :begin
  62. if %1 == q quit
  63. goto %1
  64. quit
  65.  
  66. :HELP
  67. :H
  68. call XC-HLP %2&
  69. quit
  70.  
  71. :------------------------------------------------------Doubles
  72. :DUP
  73. rem      Finds out if Ledbetter's program is found on your path.
  74. iff "%@search[whereis.exe]" =="" .and. "%@search[SST.exe]" =="" then
  75. echo.
  76. echo You need Ledbetter's SST (formerly WHEREIS) to run this sub-program
  77. quit
  78. endiff
  79. set exceptions=-x*.set -x*.kbd -xnb*.* -x*.ov* -xdes*.* -xfilelist -xstart*.*
  80. REM -- Modify the exclusion list to suit your needs.
  81. echo Scanning disk for duplicates . Wait ...
  82. whereis *.* -dup %exceptions >%temp%doubles.lst
  83. ex ca %temp%doubles.lst
  84. endiff
  85.  
  86. quit
  87. :----------------------------------------------loading aliases
  88. :qic
  89. :als
  90.  
  91. set as_file=c:\qicurim
  92. rem         ^^^^^^^^^^ (change as needed)
  93. if not exist %as_file INPUT Program needs the name of your aliases file (include path): %%as_file
  94. if not exist %as_file (echo %@upper["%as_file"] not found^goto end_als)
  95.  
  96. alias /R %as_file
  97. if %@eval[%_row] ge 22 cls
  98. echo ALIAS file reloaded. Here is current state:
  99. screen %@eval[%_row-1] 0
  100. call xc al
  101.  
  102. :end_als
  103. unset as_file
  104. quit
  105. :-----------------------------------------Reporting alias memory
  106. :aliases
  107. :al
  108. setlocal
  109. rem [writing to ramdisk; if not defined, writing to default disk]
  110. set fn=%@unique[%temp]
  111. find /i "alias" %@search[4dos.ini]>%fn
  112.  
  113. set lines=%@lines[%fn]
  114. set num=1
  115.  
  116. :check_lines
  117. :: (checking line one by one until exact match found)
  118. if %num gt %lines goto analyse
  119. set line=%@line[%fn,%num]
  120. set walias=%@word[0,%line]
  121. iff .%walias==.alias then
  122.    set sn=%line
  123. else
  124.    set num=%@eval[%num+1]
  125.    goto check_lines
  126. endiff
  127.  
  128. :analyse
  129. :: (the number is found out from the line)
  130. set po=%@eval[%@index[%sn,=]+1]
  131. set total=%@substr[%sn,%po]
  132.  
  133. if %@eval[%_row] ge 22 cls
  134. screen %@eval[%_row+1] 0 Total memory allotted to aliases:
  135. iff %@eval[%total] lt 1000 then
  136.     screen %@eval[%_row] 36 %total bytes
  137.     else
  138.     screen %@eval[%_row] 35 %total bytes
  139.  endiff
  140. screen %@eval[%_row+1] 0 Free memory for aliases:
  141. iff %@eval[%_alias] lt 1000 then
  142.     screen %@eval[%_row] 36 %_alias bytes
  143.     else
  144.     screen %@eval[%_row] 35 %_alias bytes
  145. endiff
  146.  
  147. del /q %fn
  148. endlocal
  149. quit
  150. :-------------------------------------Checks if a program loaded
  151. :CHKP
  152. : Checks and reports if a specified pgm is loaded.
  153. : The procedure is based on MS-DOS mem /m, redirected to a unique-
  154. : file (on ramdrive, is accessible). If a program ("module") is
  155. : not loaded MS-DOS creates 1 line; otherwise, it creates a text
  156. : with several lines. This procedure simply counts the number of
  157. : lines for deducing whether a program is loaded or not.
  158.  
  159. shift
  160. if .%1==. goto syntax
  161.  
  162. set umbm=%@unique[%temp]
  163. mem /m %1 > %umbm
  164. iff %@lines[%umbm] lt 2 then
  165.   rem if %_batch ge 2 set loaded=0
  166.   echo ==> Program %@upper["%1"] is not loaded (or error in name)
  167.   goto quit
  168. else
  169.   rem if %_batch ge 2 set loaded=1
  170.   echo ==> Program %@upper["%1"] is loaded
  171.   goto quit
  172. endiff
  173.  
  174. :quit
  175. del /q %umbm
  176. unset umbm
  177. quit
  178.  
  179. :syntax
  180. echo Syntax is:
  181. echo %0 name_of_program
  182. quit
  183. :
  184. : Comment: the idea was to be able to use this procedure for determining,
  185. : also in AUTOEXEC.BAT, whether a certain pgm is loaded. This can be helpful
  186. : in determining the type of computer. No msg is needed therefore if this
  187. : procedure is run as an auxiliary procedure from another batch file.
  188. : ---------------------------------------------REPORTS free UMB
  189. :UMBMEM
  190. :UMB
  191. :: Reports how much free UMB memory left
  192.  
  193. set umbm=%@unique[%temp]
  194. mem > %umbm
  195.  
  196. set umbmem=%@word[3,%@line[%umbm,4]]
  197. rem (gets the 4th word from the 5th line)
  198. set umbmem=%@substr[%umbmem,0,%@eval[%@LEN[%umbmem]-1]]
  199. rem (gets the number without the last letter)
  200. del /q %umbm
  201. echo Upper Memory has %umbmem%K free
  202. unset umbm umbmem
  203. quit
  204. :---------------------------------------------Look for file(s)
  205. :sef
  206. : Looks for files by any segment of their name and description
  207. : in a file called FILELIST created by this batch. If /l switch
  208. : used, creates file on temporary drive, else calls results via LIST /S.
  209.  
  210. if "%1"=="" (echo Syntax: SEF search_item^quit)
  211.  
  212. shift
  213.  
  214. dir > filelist
  215. iff "%2"=="" then
  216.   find /i "%1" filelist | list /s
  217. else
  218.   call settemp
  219.   find /i "%1" filelist > %temp%sef.lst
  220.   echo Results redirected to %temp%sef.lst
  221.   gosub callfile
  222. endiff
  223.  
  224. quit
  225.  
  226. :callfile
  227. inkey /K"YN" Call %@upper[%temp%sef.lst] to screen ( Y/N ) ? %%rep
  228. if %rep == Y (ca %temp%sef.lst)
  229. if %rep == N return
  230. return
  231.  
  232. :-----------------------------------------------Runs SRDISK--
  233. :SRDX
  234. : Helps resizing ramdisk created with SRDISK. SRDISK has more
  235. : parameters. Type SRDISK /? for more help.
  236. : SRDISK is downloadable from simtel20 as srdsk205.zip (msdos/ramdisk)
  237.  
  238. setlocal
  239. set fn=%@unique[%temp]
  240. srdisk >%fn
  241. echo Current ram%@trim[%@line[%fn,5]]
  242. echo (%@trim[%@line[%fn,10]]K)
  243. input Type new desired size (in kbytes): %%newsize
  244.  
  245. iff .%newsize == . then
  246.   echo SRDISK aborted
  247.   goto quitsrd
  248. else
  249.   srdisk %newsize
  250. endiff
  251.  
  252. :quitsrd
  253. del /q %fn
  254. endlocal
  255. quit
  256. :----------------------------------------------...............
  257. :----------------------------------------------...............
  258. :----------------------------------------------...............
  259.