Newsgroups: comp.os.os2.misc
Subject: Re: I guess there is no way to start zip/zoo from Icon
From: cscks@luxury.latrobe.edu.au (Kamal Shaker.)
Date: Tue, 24 Nov 1992 01:02:16 GMT
Organization: La Trobe University
X-Newsreader: Tin 1.1 PL4

kjb@calmasd.prime.com (Ken Brucker) writes:
: In article <BxrKIM.LJ4@ccu.umanitoba.ca>, umnoor@ccu.umanitoba.ca (Nasir Ahmed Noor) writes:
: > 
: > As these programs require command line parameters and opitons. I was
: > trying to import these onto my desk top to cut short the Path and DPath
: > variables. Is there any PM interface available for any of the archivers?
: > 
: > --nasir
: > umnoor@ccu.umanitoba.ca
: 
: Actually this depends on what you are trying to accomplish.  I've got a
: directory called \download that I use for all my downloaded files that I'm
: going to be checking out.  My standard operation is to then unzip, unzoo, unlh,
: etc to my \tmp directory and check out the package I've received.
: 
: Inside the folder for \download in the drives object I've created objects for
: each of the un-archivers with a working directory of \tmp and the appropriate
: parameter to do the unpack.  So now all that I do is drag the archive file onto
: the appropriate object and away it goes.  Once I take the time to learn a bit
: about REXX I'll make a single script that will use the file extention to tell
: which of the archive packages to use and have a single un-archive object listed
: in my download directory.
: 
: Then it'll be a quick drag and drop for whatever I want to explode.  Actually I
: should probably add an archive view while I'm at it.  :)
: 
: Ken
: 

Well this is how I do it... when I've download a whole heap of
stuff.. I just run the following rexx script, which unpacks
archives into thier own dirs... the following took about 2 pages
of basic code to do under dos....

--------unp.com---------

/* This proc should unzip files into separate directories... */
ARG name
IF STRIP(name,'B') = '' THEN
   DO   
     SAY "Filenames to unpack:"
     PULL name
   END
CALL RxFuncAdd 'SysFileTree','RexxUtil','SysFileTree'
xxx = STRIP(name,'B')
xxx = SysFileTree(name,dir_list,'FO')
DO x = dir_list.0 TO 1 BY -1
 fextn = SUBSTR(dir_list.x,LENGTH(dir_list.x)-2,3)
 fname = SUBSTR(dir_list.x,1,LENGTH(dir_list.x)-4)
 fextn = TRANSLATE(fextn)
 SAY  "Unpacking now.... "
  SELECT
    WHEN fextn = "ZIP" THEN DO
      MD fname
      CD fname
      SAY " Unzipping.... "
      UNZIP fname
      CD ..
    END
    WHEN fextn = "ZOO" THEN DO
      MD fname
      CD fname
      SAY "Unzooing.... "
                    ZOO2 '-e 'fname
                   /* I have zoo2 here coz I still have the DOS zoo... */
      CD ..
    END
    OTHERWISE
      SAY " Unknown file type!!"
      SAY " Only handles .ZIP and .ZOO so far."
    END
  END
  EXIT
----- end of unp.cmd----------

It's not neat, it not fancy... but it works and you
can easily add new extensions... all I ask is if you
use it and improve it... send me a copy...



------------------------------------------------------------------------------
Kamal Shaker,        | cscks@luxury.latrobe.edu.au or shaker@latcs1.lat.oz.au
Student Vax Cluster, | %SYSTEM-F-EXQUOTA, Alcohol quota exceeded,
La Trobe Uni,        | stomach dumped.
------------------------------------------------------------------------------
There's enough water on earth to drown the human population 87.6 million times
Newsgroups: comp.os.os2.misc