home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 2
/
amigaformatcd02.iso
/
s
/
extract
< prev
next >
Wrap
AmigaDOS Script File
|
1996-05-20
|
1KB
|
55 lines
.key File/A,Pattern/K
.bra «
.ket »
.def Pattern "#?"
;Set Echo ON ; mode trace
;Path PRG:Pack/ PRG:Pack/Arc/ ADD ; this is where my GNUTar, GZip, Zoo & Lzx are in
UnSet FileType
For "«File»" SFT FTV=FileType DEEP=1
IF "$FileType" EQ "LHArc"
$LhArc $LHAOpts x "«File»"
Set Error $RC
Else
IF "$FileType" EQ "Lzx"
Echo "UnLzx..."
Lzx -x -m e "«File»"
Set Error $RC
Else
IF "$FileType" EQ "Tar"
GNUTar -v -M -b 1000 -x -f "«File»"
Set Error $RC
Else
IF "$FileType" EQ "Tar GZip"
Echo "Unzip..."
Stack 32768
GZip --stdout --recursive --decompress >Tmp_$process.tar "«File»"
Set Error $RC
Echo "UnTar..."
IF $RC EQ 0
GNUTar -v -M -b 1000 -x -f Tmp_$process.tar
EndIF
Set Error $RC
Delete >NIL: Tmp_$process.tar
Else
IF "$FileType" EQ "Zoo"
Zoo x// "«File»"
Set Error $RC
Else
Echo "Not a known archive:'"$FileType"'"
Ask "Press RETURN..."
EndIF
EndIF
EndIF
EndIF
EndIF
IF $Error GT 0
Echo "ErrorCode:" $Error
Say "Error during extracting «File»."
Ask "Press RETURN..."
EndIF