lphillips@lpami.wimsey.bc.ca (Larry Phillips) (05/17/89)
>From the mailbag: > Thank you very much for ZooAll.rexx. It worked very >nicely after I made a couple of changes. Can you possibly explain to >me why I had to add the line "address command" before the first "zoo"? If you are running from a standard CLI, or from the CBM supplied shell, you will probably have to add the 'address command' keywords before any call that runs an external program. I use WShell exclusively, and forget that not all folks do, hence the lack of 'address command' keywords. > Also, ARexx did not seem to use my search path correctly. I had to change > both lines that call 'zoo' to: 'SYS:System/zoo'... even though if I typed > "zoo" at > the shell, it would find it just fine. I am using ARP 1.3, by the > way. Arexx has problems with finding external programs that are not in current dir, REXX:, or C:. Bill informs me he is working on this, and it may even be fixed as we speak. Same goes for the problem of a script inheriting the current directory. > I tried out graph.rexx that came with RexxARPLib (2.2?), and changed "show" > to "showlist", but it still did not work for me. I do NOT own WShell (from > Bill Hawes), and could not figure out how to translate the line: > address command runwsh "'call CreateHost(GRAPHHOST, GRAPHPORT)'" > Do you know how I can get this to work without WShell? (I am using AShell). graph.rexx requires the rexxmathlib.library, which was apparently left out of at least one distribution of rexxarplib 2.n. I think you may also need the screenshare.library in place as well, though I may be confusing the requirement with that of another program. 'runwsh' is simply a 'run' that knows about ARexx. You can substitute RUN for it in many cases, and hope that it works. Unfortunately, in this case, it may not work. Notice the pair of double and single quotes around the CreateHost call. This syntax is used from WShell to invoke an ARexx function or command in 'immediate mode'. The line: "do i = 1 to 10; say i; end will print the numbers from 1 to 10 on your screen if you invoke it from a WShell. CBM's CLI will not. -larry -- - 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 | +----------------------------------------------------------------------+
ben@ziebmef.uucp (Ben Eng) (07/30/89)
Here is a little ARexx script that I wrote to help Zoo preserve the full
directory heirarchy when archiving an entire directory. In other words, the
full pathname of the contents of a directory and all subdirectories thereof
are properly preserved by Zoo when using this ARexx script.
Requirements: ARexx, WShell, and Zoo 2.0
Usage: zooall archive.zoo directory
Use and Abuse as you please. Comments and friendly mail welcomed.
# This is a shell archive. Remove anything before this line,
# then unpack it by saving it in a file and typing "sh file"
# Created Sat Jul 29 01:36:20 1989
#
# This archive contains:
# zooall.uu
echo "Creating zooall.uu"
cat > zooall.uu <<"***EOF zooall.uu***"
begin 644 ZooAll.rexx
M"B\J(%IO;T%L;"YR97AX("T@<F5Q=6ER97,Z("!74VAE;&PL($%297AX+"!:)
M;V\@,BXP("HO"B\J(&)Y(&)E;D!C;VYT86-T+G5U8W`L(&)E;D!Z:65B;65FT
M+G5U8W`@*$)E;B!%;F<I("HO"B\J(%5S92!A;F0@86)U<V4@87,@>6]U('!L$
M96%S92`J+PH*87)G('IO;VYA;64@=&AE9&ER"FEF('IO;VYA;64@/2`G)R!\W
M('IO;VYA;64@/2`G/R<@=&AE;B!C86QL('=A<FX*"FEF('YS:&]W*"=,)RPB8
M<F5X>'-U<'!O<G0N;&EB<F%R>2(I('1H96X*"6-A;&P@861D;&EB(")R97AX9
M<W5P<&]R="YL:6)R87)Y(BPP+"TS,`H*9FEL96YA;64@/2`G5#I:;V]!;&PN`
M)R!\?"!T:6UE*"=S)RD*:68@?F]P96XH)W1M<&9I;&4G+"!F:6QE;F%M92P@)
M)W=R:71E)RD@=&AE;B!D;PH)<V%Y("=#86YN;W0@;W!E;B<@9FEL96YA;64*2
M"65X:70@,3(*"65N9`H*<V%Y("=38V%N;FEN9R!T:&4@9&ER96-T;W)Y('-T&
M<G5C='5R92XN+B<*8V%L;"!D;V1I<B!T:&5D:7(*8V%L;"!C;&]S92@G=&UPO
M9FEL92<I"@HO*B!C86QL('IO;R!W:71H('1H92!I;G1E<F%C=&EV92!O<'1IH
M;VX@*B\*)W1Y<&4G(&9I;&5N86UE("=\('IO;R!A22<@>F]O;F%M90H*)V1E:
M;&5T92<@9FEL96YA;64*97AI=`H*9&]D:7(Z('!R;V-E9'5R90IA<F<@87)G=
M9&ER"FEF(&%R9V1I<B`]("<G('P@<FEG:'0H87)G9&ER+#$I(#T@)R\G('P@S
M<FEG:'0H87)G9&ER+#$I(#T@)SHG('1H96X*"7)O;W1D:7(@/2!A<F=D:7(*O
M96QS92!R;V]T9&ER(#T@87)G9&ER('Q\("<O)PH*86QL9FEL97,@/2!S:&]W5
M9&ER*&%R9V1I<BPG1FEL92<I"F1O(&D],2!T;R!W;W)D<RAA;&QF:6QE<RD*0
M"6-A;&P@=W)I=&5L;B@G=&UP9FEL92<L(')O;W1D:7(@?'P@=V]R9"AA;&QF[
M:6QE<RP@:2DI"@EE;F0*9')O<"!A;&QF:6QE<PH*86QL9&ER<R`]('-H;W=D*
M:7(H87)G9&ER+"=$:7(G*0ID;R!I/3$@=&\@=V]R9',H86QL9&ER<RD*"61I`
M<FYA;64@/2!R;V]T9&ER('Q\('=O<F0H86QL9&ER<RP@:2D*"6-A;&P@9&]D^
M:7(@9&ER;F%M90H)96YD"F1R;W`@86QL9&ER<PIR971U<FX*"G=A<FXZ"@ESE
M87D@)U5S86=E.B!Z;V]A;&P@9&5S=&EN871I;VXN>F]O(&1I<F5C=&]R>2<*O
&"65X:70*-
``
end
size 1086
***EOF zooall.uu***
--
Jet Penguins and Turbo Puffins thrive here in the Great White North.
Ben Eng uunet!attcan!lsuc!ncrcan!ziebmef!ben
I ran this message through the compiler and got a million syntax errors!