home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / podstawy / dos / 4dos / 4uzytki / ez-btm11.exe / DESC.BTM < prev    next >
Encoding:
Text File  |  1993-12-09  |  2.7 KB  |  114 lines
  1. : DESC.BTM
  2. :   Finds all undescribed files and lets you either (1) describe
  3. :   them one by one, or, with the /L switch, (2) via a batch file
  4. :   created by it for your handling. When you have edited this file,
  5. :   running it will add all of the desired descriptions.
  6. : Note: Adapt the name of the editor above ^^^^^ below.
  7. : ====
  8. :
  9. : SYNTAX:
  10. : DESC [/L|/H]
  11. : where
  12. : /L = 'make list'
  13. : /H = Help & options
  14. :
  15. : Itamar Even-Zohar (B10@vm.tau.ac.il)
  16. : Last edited September 5, 1992
  17. : This batch was also integrated into DES.BTM (a storehouse of
  18. : batch files for handling 4dos descriptions & DESCRIPT.ION files).
  19. :--------------------------------------------------------------------------
  20. setlocal
  21. set und=addesc.btm
  22. set edt=EX ed
  23. rem     ^^^^^ this calls a sub-program in EX, calling file via selected
  24. rem           editor. Either put your preferred editor name here, or
  25. rem           in EX.BTM.
  26.  
  27. iff exist %und then
  28.  del /q %und
  29. endiff
  30.  
  31. iff %@index[%1,h] ge 0 then
  32.   goto help_desc
  33. endiff
  34.  
  35. :desc_list
  36. iff (%1)==(/l) then (echo @echo off^
  37. echo rem  ADDESC.BTM adds descriptions to undescribed files
  38. echo rem  Put the desired description between the quotes ("").^
  39. echo rem  Delete undesired filenames, then save & run batch^
  40. echo echo Adding now descriptions. Wait ...^echo echo.^echo echo on^
  41. echo :
  42. echo :begin_list^
  43. ) >%und
  44. endiff
  45.  
  46. :check_desc
  47.   for %f in (*.*) (
  48.     iff not "%@descript[%f]"=="" then
  49.       screen %_row 0
  50.     else
  51.       gosub descA
  52.     endiff
  53.   )
  54.  
  55. iff exist %und then set ech=
  56.  %edt %und
  57.  goto end
  58.  else
  59. set ech=echo %0 terminated
  60.  endiff
  61.  
  62. :end
  63. %ech
  64. endlocal
  65. quit
  66.  
  67. :----------------describing one by one------------------
  68. :descA
  69. iff (%1)==(/l) then echo describe %@lower[%f] "" >> %und
  70.   return
  71.   endiff
  72.  
  73. inkey /K"YNQH" Describe %f (Y/N/Q or H[elp])? %%rep
  74.   iff %rep == Y then
  75.     gosub desc2
  76.     return
  77.   elseiff %rep == N then
  78.     return
  79.   elseiff %rep == H then
  80.     goto help_desc
  81.   elseiff %rep == Q then
  82.     set ech=echo stopped by user
  83.     goto end
  84. endiff
  85.  
  86. :desc2
  87. screen %@eval[%_row-1] 0
  88. describe %f
  89. return
  90.  
  91. :-------help and selecting options-----
  92. :help_desc
  93. cls
  94. text
  95.   syntax:
  96.    DESC [/L|/H]
  97.      where
  98.     /L = 'make list'
  99.     /H = Help & options
  100.  
  101.   You can type descriptions for the undescribed files one file
  102.   after the other, or generate a batch file for all undescribed
  103.   files, ready for running.
  104.                Type L  for generating a list
  105.                Type C  for file by file describing
  106.                Type Q  to quit
  107. endtext
  108. screen %@eval[%_row+1] 2
  109. inkey /K"clq" Your choice? (C/L/Q) %%rep
  110.     iff %rep == Q then set ech=echo stopped by user^goto end
  111. elseiff %rep == C then goto check_desc
  112. elseiff %rep == L then set 1=/l ^goto :desc_list
  113. endiff
  114.