home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Archiver / xdm.lzx / xDM_CLI < prev    next >
Encoding:
AmigaDOS Script File  |  1995-04-14  |  2.3 KB  |  119 lines
  1. .key ACTION/A,DRIVE/A,ARCHIVE/A
  2. .bra {
  3. .ket }
  4.  
  5. ; $VER: xDM v1.0 (6.4.95)
  6.  
  7. Cd >ENV:origcd
  8. Which >ENV:lzxpath LZX
  9.  
  10. If WARN
  11.     Echo "LZX is not installed"
  12.     Skip getout
  13. EndIf
  14.  
  15. If NOT EXISTS L:Rawdisk-handler
  16.     Echo "Rawdisk-Handler is not installed"
  17.     Skip getout
  18. EndIf
  19.  
  20. Echo >ENV:xdmdest "{archive}"
  21.  
  22. If {action} EQ "A"
  23.     Echo >ENV:xdmaction "1"
  24. EndIf
  25.  
  26. If {action} EQ "X"
  27.     Echo >ENV:xdmaction "2"
  28. Else
  29.     If {action} NOT EQ "A"
  30.         Echo "ACTION parameter incorrect.*nPlease use [A]rchive or e[X]tract"
  31.         Skip getout
  32.     EndIf
  33. EndIf
  34.  
  35. If {drive} EQ "DF0:"
  36.     Echo >ENV:xdmdrive "0"
  37. EndIf
  38.  
  39. If {drive} EQ "DF1:"
  40.     Echo >ENV:xdmdrive "1"
  41. Else
  42.     If {drive} NOT EQ "DF0:"
  43.         If {drive} NOT EQ "DF2:"
  44.             Echo "DRIVE parameter incorrect.*nPlease select DF0: DF1: or DF2:"
  45.             Skip getout
  46.         EndIf
  47.     EndIf
  48. EndIf
  49.  
  50. If {drive} EQ "DF2:"
  51.     Echo >ENV:xdmdrive "2"
  52. EndIf
  53.  
  54. If NOT EXISTS ENV:xdm
  55.     If NOT EXISTS ENVARC:xdm
  56.         Echo >ENV:xdm "T:" NOLINE
  57.     Else
  58.         Copy >NIL: ENVARC:xdm TO ENV:
  59.     EndIf
  60. EndIf
  61.  
  62. Assign >NIL: RawDisk: DISMOUNT
  63.  
  64. LAB startpack
  65. Echo >T:RawDisk "/** xDM **/*n*nRawDisk:*nFileSystem    = l:RawDisk-Handler*nDevice        = trackdisk.device*nUnit        = $xdmdrive"
  66. Echo >>T:RawDisk "Priority    = 5*nStacksize    = 5000*nGlobVec        = -1*nMount        = 1*nSurfaces    = 2*nBlocksPerTrack    = 9*nLowCyl        = 0*nHighCyl        = 79*n#"
  67. Mount >NIL: RawDisk: FROM T:RawDisk
  68.  
  69. If $xdmaction EQ "1"
  70.     Skip compress
  71. EndIf
  72.  
  73. If $xdmaction EQ "2"
  74.     Skip decompress
  75. EndIf
  76.  
  77. LAB compress
  78. FailAt 21
  79. Echo "xDM - © 1995 Adam Chapman"
  80. Echo "Creating disk image... Please wait!"
  81. Cd "$xdm"
  82. Copy >NIL: RawDisk: TO xDM.dsk
  83.  
  84. If ERROR
  85.     Echo "Sorry, an error has occured... Was the disk in the drive?"
  86.     Skip startpack BACK
  87. EndIf
  88.  
  89. Echo "Archiving image... Please wait!"
  90. $lzxpath -3 -e -r -R -X0 -Y -M1024 a $xdmdest xDM.dsk
  91. Echo "Process complete!"
  92. Skip getout
  93.  
  94. LAB decompress
  95. FailAt 21
  96. Echo "xDM - © 1995 Adam Chapman"
  97. Echo "Decompressing image... Please wait!"
  98. $lzxpath -X0 x $xdmdest "$xdm"
  99. Echo "Recreating disk image... Please wait!"
  100. Cd "$xdm"
  101. Copy >NIL: xDM.dsk TO RawDisk:
  102.  
  103. If ERROR
  104.     Echo "Sorry, an error has occured... Was the disk in the drive?"
  105.     Skip getout
  106. EndIf
  107.  
  108. Echo "Process complete!"
  109. DiskChange Df$xdmdrive:
  110.  
  111. LAB getout
  112. Assign >NIL: RAWDISK: DISMOUNT
  113. Cd "$xdm"
  114. Delete >NIL: xDM.dsk
  115. Cd ENV:
  116. Delete >NIL: lzxpath xdmdev xdmdrive xdmdest xdmaction T:RawDisk
  117. Cd "$origcd"
  118. Delete >NIL: ENV:origcd
  119.