home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / os / os2 / misc / 37496 < prev    next >
Encoding:
Internet Message Format  |  1992-11-24  |  3.6 KB
  1. Path: sparky!uunet!munnari.oz.au!ariel.ucs.unimelb.EDU.AU!ucsvc.ucs.unimelb.edu.au!lugb!luxury.latrobe.edu.au!cscks
  2. Newsgroups: comp.os.os2.misc
  3. Subject: Re: I guess there is no way to start zip/zoo from Icon
  4. Message-ID: <1992Nov24.010216.12743@lugb.latrobe.edu.au>
  5. From: cscks@luxury.latrobe.edu.au (Kamal Shaker.)
  6. Date: Tue, 24 Nov 1992 01:02:16 GMT
  7. Sender: news@lugb.latrobe.edu.au (USENET News System)
  8. References: <1992Nov16.104315.954@calmasd.prime.com>
  9. Organization: La Trobe University
  10. X-Newsreader: Tin 1.1 PL4
  11. Lines: 87
  12.  
  13. kjb@calmasd.prime.com (Ken Brucker) writes:
  14. : In article <BxrKIM.LJ4@ccu.umanitoba.ca>, umnoor@ccu.umanitoba.ca (Nasir Ahmed Noor) writes:
  15. : > 
  16. : > As these programs require command line parameters and opitons. I was
  17. : > trying to import these onto my desk top to cut short the Path and DPath
  18. : > variables. Is there any PM interface available for any of the archivers?
  19. : > 
  20. : > --nasir
  21. : > umnoor@ccu.umanitoba.ca
  22. : 
  23. : Actually this depends on what you are trying to accomplish.  I've got a
  24. : directory called \download that I use for all my downloaded files that I'm
  25. : going to be checking out.  My standard operation is to then unzip, unzoo, unlh,
  26. : etc to my \tmp directory and check out the package I've received.
  27. : 
  28. : Inside the folder for \download in the drives object I've created objects for
  29. : each of the un-archivers with a working directory of \tmp and the appropriate
  30. : parameter to do the unpack.  So now all that I do is drag the archive file onto
  31. : the appropriate object and away it goes.  Once I take the time to learn a bit
  32. : about REXX I'll make a single script that will use the file extention to tell
  33. : which of the archive packages to use and have a single un-archive object listed
  34. : in my download directory.
  35. : 
  36. : Then it'll be a quick drag and drop for whatever I want to explode.  Actually I
  37. : should probably add an archive view while I'm at it.  :)
  38. : 
  39. : Ken
  40. : 
  41.  
  42. Well this is how I do it... when I've download a whole heap of
  43. stuff.. I just run the following rexx script, which unpacks
  44. archives into thier own dirs... the following took about 2 pages
  45. of basic code to do under dos....
  46.  
  47. --------unp.com---------
  48.  
  49. /* This proc should unzip files into separate directories... */
  50. ARG name
  51. IF STRIP(name,'B') = '' THEN
  52.    DO   
  53.      SAY "Filenames to unpack:"
  54.      PULL name
  55.    END
  56. CALL RxFuncAdd 'SysFileTree','RexxUtil','SysFileTree'
  57. xxx = STRIP(name,'B')
  58. xxx = SysFileTree(name,dir_list,'FO')
  59. DO x = dir_list.0 TO 1 BY -1
  60.  fextn = SUBSTR(dir_list.x,LENGTH(dir_list.x)-2,3)
  61.  fname = SUBSTR(dir_list.x,1,LENGTH(dir_list.x)-4)
  62.  fextn = TRANSLATE(fextn)
  63.  SAY  "Unpacking now.... "
  64.   SELECT
  65.     WHEN fextn = "ZIP" THEN DO
  66.       MD fname
  67.       CD fname
  68.       SAY " Unzipping.... "
  69.       UNZIP fname
  70.       CD ..
  71.     END
  72.     WHEN fextn = "ZOO" THEN DO
  73.       MD fname
  74.       CD fname
  75.       SAY "Unzooing.... "
  76.                     ZOO2 '-e 'fname
  77.                    /* I have zoo2 here coz I still have the DOS zoo... */
  78.       CD ..
  79.     END
  80.     OTHERWISE
  81.       SAY " Unknown file type!!"
  82.       SAY " Only handles .ZIP and .ZOO so far."
  83.     END
  84.   END
  85.   EXIT
  86. ----- end of unp.cmd----------
  87.  
  88. It's not neat, it not fancy... but it works and you
  89. can easily add new extensions... all I ask is if you
  90. use it and improve it... send me a copy...
  91.  
  92.  
  93.  
  94. ------------------------------------------------------------------------------
  95. Kamal Shaker,        | cscks@luxury.latrobe.edu.au or shaker@latcs1.lat.oz.au
  96. Student Vax Cluster, | %SYSTEM-F-EXQUOTA, Alcohol quota exceeded,
  97. La Trobe Uni,        | stomach dumped.
  98. ------------------------------------------------------------------------------
  99. There's enough water on earth to drown the human population 87.6 million times
  100.