ecphssrw@io.csun.edu (Stephen Walton) (05/12/89)
In article <11300@bloom-beacon.MIT.EDU>, cthulhu@athena (Jim Reich) writes a neat solution for using AmigaTeX without a hard disk which I intend to use. He then says: >In article <8904300253.AA09616@jade.berkeley.edu> CRONEJP@UREGINA1.BITNET (Jonathan Crone) writes: >>I know that you can use ZOO to archive an entire directory >>heirarcy.... >No, as far as I can tell, zoo only supports one level of wildcarding You use the I (capital eye) switch to Zoo, which means to read the list of files to back up from standard input. Then, to your shell, you say: find "" -name * -print | zoo aI allfiles or, if you don't have a pipe shell handy: 1> run find >pipe:list "" -name * -print [CLI 2] 1> zoo <pipe:list aI allfiles Works fine. You need find of course; it might be possible to do it with List lformat=%s%s, but I dunno. -- Steve Walton
lphillips@lpami.wimsey.bc.ca (Larry Phillips) (05/14/89)
In <709@solaria.csun.edu>, ecphssrw@io.csun.edu (Stephen Walton) writes: >In article <11300@bloom-beacon.MIT.EDU>, cthulhu@athena (Jim Reich) writes >>In article <8904300253.AA09616@jade.berkeley.edu> CRONEJP@UREGINA1.BITNET (Jonathan Crone) writes: >>>I know that you can use ZOO to archive an entire directory >>>heirarcy.... >>No, as far as I can tell, zoo only supports one level of wildcarding >You use the I (capital eye) switch to Zoo, which means to read the >list of files to back up from standard input. Then, to your shell, >you say: >find "" -name * -print | zoo aI allfiles >or, if you don't have a pipe shell handy: >1> run find >pipe:list "" -name * -print >[CLI 2] >1> zoo <pipe:list aI allfiles >Works fine. You need find of course; it might be possible to do >it with List lformat=%s%s, but I dunno. ----------------------------------- /* ZooAll.rexx - Add all files in a directory structure to a Zoo archive */ /* cd to appropriate directory and invoke this */ parse arg x if length(x) = 0 then do say 'Usage: ZooAll <archive file name>' exit end zoo 'a' x '*' call zoodirs('') exit /* recursive procedure to do all directories */ zoodirs: procedure expose x parse arg base temp = showdir(base,'d') if base ~= '' then base = base || '/' if length(temp) >0 then do do i=1 to words(temp) if length(showdir(base || word(temp,i),'f')) >0 then zoo 'a' x base || word(temp,i) || '/*' if base = '' then call zoodirs(word(temp,i)) else call zoodirs(base || word(temp,i)) end end return 0 -- - Don't tell me what kind of a day to have! - +----------------------------------------------------------------------+ | // Larry Phillips | | \X/ lphillips@lpami.wimsey.bc.ca or uunet!van-bc!lpami!lphillips | | COMPUSERVE: 76703,4322 | +----------------------------------------------------------------------+