home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / packer / zip4 / cfgzip4a.btm next >
Text File  |  1993-11-26  |  2KB  |  122 lines
  1. :: Mick Ghazey 70550,1762 - November 1993
  2. :: Returns 0 if NORMAL configuration, 1 if ALIASED.
  3.  
  4.  
  5. @*echo off
  6. *iff .%zip4alias == . then
  7.  *setlocal
  8.  
  9.  *cls
  10.  *iff isalias pkzip then
  11.   *set zip4alias=%@unique[%temp]
  12.   alias pkzip > %zip4alias
  13.   *set pkzipals=%@line[%zip4alias,0]
  14.   *del /q %zip4alias
  15.   *echo PKZIP is an alias: %pkzipals
  16.   *echo.
  17.  *endiff
  18.  
  19.  *iff isalias zip4 then
  20.   *set zip4alias=%@unique[%temp]
  21.   alias zip4 > %zip4alias
  22.   *set zip4als=%@line[%zip4alias,0]
  23.   *del /q %zip4alias
  24.   *echo ZIP4 is an alias: %zip4als
  25.   *echo.
  26.  *endiff
  27.  
  28.  *iff isalias pkunzip then
  29.   *set zip4alias=%@unique[%temp]
  30.   alias pkunzip > %zip4alias
  31.   *set pkunzipals=%@line[%zip4alias,0]
  32.   *del /q %zip4alias
  33.   *echo PKUNZIP is an alias: %pkunzipals
  34.   *echo.
  35.  *endiff
  36.  
  37.  
  38.  *iff isalias unzip4 then
  39.   *set zip4alias=%@unique[%temp]
  40.   alias unzip4 > %zip4alias
  41.   *set unzip4als=%@line[%zip4alias,0]
  42.   *del /q %zip4alias
  43.   *echo UNZIP4 is an alias: %unzip4als
  44.   *echo.
  45.  *endiff
  46.  
  47.  *iff isalias pkzip .or. isalias pkunzip then
  48.   *text
  49.  
  50. PKZIP or PKUNZIP is already an alias. You should have similar aliases for
  51. ZIP4 and UNZIP4. This program doesn't check to see that you do. Press
  52. any key to continue.
  53.  
  54.   endtext
  55.  
  56.   INKEY %%ans
  57.  *endiff
  58.  *cls
  59.  *text
  60.  
  61. About to create aliases:
  62.  
  63. PKZIP=ZIP4
  64.  
  65.  and
  66.  
  67. PKUNZIP=UNZIP4
  68.  
  69.  endtext
  70.  
  71.  *echo Create the aliases? (y/N)
  72.  *set ans=N
  73.  INKEY /w15 %%ans
  74.  *iff "%ans"=="Y" then
  75.   *endlocal
  76.  
  77.   *iff isalias pkzip then
  78.    *set zip4alias=%@unique[%temp]
  79.    alias pkzip > %zip4alias
  80.    *set pkzipals=%@line[%zip4alias,0]
  81.    *del /q %zip4alias
  82.   *endiff
  83.  
  84.   *iff isalias pkunzip then
  85.    *set zip4alias=%@unique[%temp]
  86.    alias pkunzip > %zip4alias
  87.    *set pkunzipals=%@line[%zip4alias,0]
  88.    *del /q %zip4alias
  89.   *endiff
  90.  
  91.   alias `pkzip=zip4`
  92.   alias `pkunzip=unzip4`
  93.   *set zip4alias=1
  94.   *echo ZIP4 is now in the ALIASED configuration.
  95.   *quit 1
  96.  *endiff
  97.  *echo ZIP4 configuration remains NORMAL.
  98.  *quit 0
  99. *endiff
  100.  
  101. unalias pkzip
  102. unalias pkunzip
  103. *set zip4alias=
  104. *echo ZIP4 is now in the NORMAL configuration.
  105. *echo.
  106.  
  107. *iff "%pkzipals" != "" then
  108.  *echo PKZIP is an alias: %pkzipals
  109.  *echo.
  110.  alias pkzip=`%pkzipals`
  111.  *set pkzipals=
  112. *endiff
  113.  
  114. *iff ".%pkunzipals" != "" then
  115.  *echo PKUNZIP is an alias: %pkunzipals
  116.  *echo.
  117.  alias pkunzip=`%pkunzipals`
  118.  *set pkunzipals=
  119. *endiff
  120.  
  121. *quit 0
  122.