home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / podstawy / dos / 4dos / 4uzytki / arconv01.exe / DA2.DAT < prev    next >
Text File  |  1993-06-28  |  2KB  |  110 lines
  1. set ARCINDEX=1
  2. set DEFAULT=arj
  3. :: This is the default archiver used, in case da can't resolve the file
  4. :: extension as one of it's list. (Like, with wildcards, or no extension).
  5.  
  6. :: This loop finds an index to the first argument that is doesn't start
  7. :: with '-' or '/', which (hopefully) is the archive file name.
  8.  
  9. :findindex
  10. if "%@SUBSTR[%[%ARCINDEX], 0, 1]" != "-" .and. "%@SUBSTR[%[%ARCINDEX], 0, 1]" != "/" goto selectarc
  11. set ARCINDEX=%@EVAL[%ARCINDEX + 1]
  12. goto findindex
  13.  
  14. :selectarc
  15. if "%@EXT[%[%ARCINDEX]]" == "arj" goto arj
  16. if "%@EXT[%[%ARCINDEX]]" == "zip" goto zip
  17. if "%@EXT[%[%ARCINDEX]]" == "lzh" goto lharc
  18. if "%@EXT[%[%ARCINDEX]]" == "zoo" goto zoo
  19. if "%@EXT[%[%ARCINDEX]]" == "arc" goto arc
  20. if "%@EXT[%[%ARCINDEX]]" == "hpk" goto hpack
  21. if "%@EXT[%[%ARCINDEX]]" == "sqz" goto squeeze
  22. if "%@EXT[%[%ARCINDEX]]" == "ash" goto ash
  23. if "%@EXT[%[%ARCINDEX]]" == "ha"  goto ha
  24. if "%@EXT[%[%ARCINDEX]]" == "hap" goto hap
  25. if "%@EXT[%[%ARCINDEX]]" == "z"   goto gzip
  26. if "%@EXT[%[%ARCINDEX]]" == "gz"  goto gzip
  27. if "%@EXT[%[%ARCINDEX]]" == "hyp" goto hyper
  28. if "%@EXT[%[%ARCINDEX]]" == "wau" goto wau
  29. if "%@EXT[%[%ARCINDEX]]" == "exe" goto execomp
  30. goto %DEFAULT
  31.  
  32. :arj
  33. %BASEDIR\arj -jyc x %&
  34. goto finish
  35.  
  36. :zip
  37. %BASEDIR\pkunzip -d %&
  38. goto finish
  39.  
  40. :lharc
  41. %BASEDIR\lharc x -x %&
  42. goto finish
  43.  
  44. :zoo
  45. %BASEDIR\booz x %&
  46. goto finish
  47.  
  48. :arc
  49. %BASEDIR\pkunpak %&
  50. goto finish
  51.  
  52. :hpack
  53. %BASEDIR\hpack x -rda %&
  54. goto finish
  55.  
  56. :squeeze
  57. %BASEDIR\sqz x %&
  58. goto finish
  59.  
  60. :ash
  61. %BASEDIR\dash 3 %&
  62. goto finish
  63.  
  64. :ha
  65. %BASEDIR\ha x %&
  66. goto finish
  67.  
  68. :hap
  69. iff "%2" == "" then
  70.   %BASEDIR\pah3 e %& *.*
  71. else
  72.   %BASEDIR\pah3 e %&
  73. endiff
  74. goto finish
  75.  
  76. :gzip
  77. %BASEDIR\gzip -d %&
  78. goto finish
  79.  
  80. :hyper
  81. %BASEDIR\hyper -x %&
  82. goto finish
  83.  
  84. :wau
  85. %BASEDIR\wau @X %&
  86. goto finish
  87.  
  88. :execomp
  89. %BASEDIR\pklite -x %&
  90. goto finish
  91.  
  92. :syntax
  93. echos syntax: %0
  94. color cyan on black
  95. echos  [arc-options]
  96. color  green on black
  97. echos  arc-file
  98. color cyan on black
  99. echo  [arc-options]
  100. color white on black
  101. echos Where
  102. color cyan on black
  103. echos  arc-options
  104. color white on black
  105. echo  are specific for each archiver.
  106.  
  107. :finish
  108. endlocal
  109. quit
  110.