Path: utzoo!mnetor!uunet!lll-winken!lll-tis!ames!ll-xn!oberon!pollux.usc.edu!papa
From: papa@pollux.usc.edu (Marco Papa)
Newsgroups: comp.sys.amiga
Subject: FULLY INTERACTIVE SCRIPTS (A Tutorial)
Message-ID: <8922@oberon.USC.EDU>
Date: 6 May 88 06:14:01 GMT
Sender: news@oberon.USC.EDU
Reply-To: papa@pollux.usc.edu (Marco Papa)
Organization: Felsina Software, Los Angeles, CA
Lines: 353


		FULLY INTERATIVE SCRIPTS FOR XICON

			   A Tutorial
				by
			 Marco Papa 'Doc'

Now that I am putting the final touches on A-Talk III, the problem has come
up of how to create fully interactive scripts for its installation on a
Hard Disk and with foreign fonts. The requirement is that the install program
must be run from the workbench so that it will work for the non-CLI user as
well.

Various versions of XICON exist that allow execution of a "script" file 
from an icon. More than two are available on the Fish disks (Pete Goodeve's 
is on FF 102) and another version is included in WB 1.3.  Both work pretty
much the same in the sense that they use the DEFAULT TOOL to invoke XICON
and then execute a script with the same name as the icon (save the .info).

My requirement is that the user must be able to SELECT among a given set
of PREDEFINED options [in the case of fonts for foreign countries] and among
a NON-PREDEFINED set of options [ in the case of a hard disk partition name].

It turns out that there is NO command besides ASK that interprets user input.
The ASK command just allows one to answer "y" or "n" and returns an different 
error value in each case. This is OK for yes/no questions, but was no good 
for my case.  I looked at what others had done, and in all cases people have
written ad-hoc programs that ask a very specific set of questions. What I
wanted was a SIMPLE, SINGLE command that would allow me to use it in all
cases I needed.  Since I am writing this, you've probably guessed that I have 
found such a stupid, little program.

The program getline.c [appended at the end of this file in source and
MANX-compiled binary] gets input from the keyboard, using MANX built in
CLI-like line editing, stores the entered data in a buffer and sends the 
entire string to standard output when the carriage return is pressed.

Its use is as follows:

echo "where do you want to go [DF0:,DF1:,DF2:] ?"
;
getline >RAM:__DUMMY
;
cd <RAM:__DUMMY ?

That is, getline's output is redirected to a dummy file in RAM:. The contents
of the dummy file is then redirected as input to the CD command.  Note that the
? is required.  This technique [using < and ?] works with the CBM provided 
DOS commands and should also work with the ARP commands [though that exercise
is left to the reader.]

Note also that inteactive commands CANNOT be executed with the window initially
opened by XICON.  The standard way is to add a line of the type:

NEWCLI >NIL: con:x/y/w/h/name FROM Install

as the last line of the script executed by XICON and include the "interactive"
part in the "Install" script.

The solution is so simple that I am surprised that nobody came up with it
before.  Anyway, here is the code and binary for getline.c, plus the 
2 scripts files for installing fonts with A-Talk III.  The code seemed so small
and the problems with the moderated groups so large, that I don't feel bad
about posting this.

Enjoy.

-- Marco Papa 'Doc'

#!/bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #!/bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
#	getline.c
#	xicon-install
#	FD-Install
#	getline.uue
# This archive created: Thu May  5 22:23:16 1988
# By:	Marco Papa (Felsina Software, Los Angeles, CA)
export PATH; PATH=/bin:$PATH
echo shar: extracting "'getline.c'" '(804 characters)'
if test -f 'getline.c'
then
	echo shar: over-writing existing file "'getline.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'getline.c'
X/*
X * getline.c -- get a line from stdin with "line editing" and send to stdout
X *
X * Copyright (C) 1988 Marco Papa 'Doc'
X * Permission is granted for ANY use of this code if the above notice
X * is left intact.
X */
X
X#include "ctype.h"
X#include "stdio.h"
X
Xstatic char chatbuf[80];
Xstatic short chatindex = 0;
X
Xmain(argc,argv)
X{
X	int ch;
X
X	for (;;) {
X		ch = getchar();
X		InputChat(ch);		
X	}
X}
X
XInputChat(ch)
Xint ch;
X{
X
Xchar c;
X
X	    c = ch & 0177;
X	    if (iscntrl(c)) {
X			switch (c) {
X			case '\n':
X				FlushChat();
X				break;
X			default:
X				/* **** throw it away */
X				break;
X			}
X	    } else { /* if not control */
X		chatbuf[chatindex++] = c;
X	    }
X	    if (chatindex == 80) FlushChat();
X}
X
XFlushChat()
X{
X	int i;
X
X	for (i=0;i<chatindex;i++)
X		putchar(chatbuf[i]); 
X	putchar('\n'); 
X	exit(0);
X}
X
X
X
X
X
SHAR_EOF
if test 804 -ne "`wc -c 'getline.c'`"
then
	echo shar: error transmitting "'getline.c'" '(should have been 804 characters)'
fi
echo shar: extracting "'xicon-install'" '(245 characters)'
if test -f 'xicon-install'
then
	echo shar: over-writing existing file "'xicon-install'"
fi
sed 's/^X//' << \SHAR_EOF > 'xicon-install'
XATInstall:HardDisk/failat 30
XATInstall:HardDisk/echo "*E[4mSetting up for first time floppy disk installation.*E[0m*N"
XATInstall:HardDisk/failat 10
XATInstall:HardDisk/cd ATInstall:HardDisk
Xnewcli >NIL: con:0/0/640/200/FloppyDisk from FD-Install
SHAR_EOF
if test 245 -ne "`wc -c 'xicon-install'`"
then
	echo shar: error transmitting "'xicon-install'" '(should have been 245 characters)'
fi
echo shar: extracting "'FD-Install'" '(1241 characters)'
if test -f 'FD-Install'
then
	echo shar: over-writing existing file "'FD-Install'"
fi
sed 's/^X//' << \SHAR_EOF > 'FD-Install'
Xcd ATInstall:HardDisk
Xecho "First time floppy disk installation.*N"
Xecho "Warning: this procedure will modify your A-Talk III floppy disk."
Xask  "Do you want to continue ? [Press RETURN to exit] "
X;
Xif NOT WARN
X  SKIP endit
XENDIF
X;
Xfailat 30
X;
Xecho "Which county-dependent fonts do you want to install in the"
Xecho "A-Talk III disk?"
Xecho "[u]     USA/UK"
Xecho "[s]     Swedish/Finnish"
Xecho "[d]     Danish/Norwegian"
Xecho "[g]     German"
Xecho "[f]     French"
Xecho "[i]     Italian"
Xecho "Enter country code [end with RETURN]: "
Xgetline >RAM:__ATF        <---------------------- [SETUP ***************]
X;
XIF not exists AT3:fonts
X  echo "Font directory on Disk 1 (AT3) not found."
X  echo "Exiting..."
X  SKIP endit
XENDIF
X;
XIF not exists ATInstall:fonts
X  echo "Font directory on Disk 2 (ATInstall) not found."
X  echo "Exiting..."
X  SKIP endit
XENDIF
X;
XCD ATInstall:fonts
XCD <RAM:__ATF ?        <---------------------- [USE ***************]
XIF WARN
X  echo "Invalid Country Code."
X  SKIP endit
XEndif
Xecho "*NCopying fonts to the A-Talk III disk."
Xcopy #? to AT3:fonts ALL
X;
XIf WARN
X  echo "Error occurred while copying fonts."
XElse
X  echo "All fonts have been copied."
X  echo "Installation is completed."
XEndif
X;
Xlab endit
XWait 5
Xendcli >nil:
SHAR_EOF
if test 1241 -ne "`wc -c 'FD-Install'`"
then
	echo shar: error transmitting "'FD-Install'" '(should have been 1241 characters)'
fi
echo shar: extracting "'getline.uue'" '(6282 characters)'
if test -f 'getline.uue'
then
	echo shar: over-writing existing file "'getline.uue'"
fi
sed 's/^X//' << \SHAR_EOF > 'getline.uue'
Xbegin 640 getline
XM   #\P         #          (   /'    O     $   /I   #QT[Z JA.
XM5?_\2&R ADZZ ,I83RM __PO+?_\80A83V#H3EU.=4Y5__X@+0 (P+P   !_
XM&T#__Q M__](@$C 0>R !0@P  4( &<<$"W__TB 2,!@!F$P8 Q@"I"\    
XM"F?R8/1@$C L@ )2;( "0>R"2A&M__\   QL %"  F8"801.74YU3E7__$*M
XM__Q@($AL@)P@+?_\0>R"2A(P" !(@4C!+P%.N@:.4$]2K?_\,"R  DC (BW_
XM_+* ;=)(;("<2'@ "DZZ!FY03T*G3KH+6%A/3EU.=4Y5  !(YP@@)&T ""\*
XM3KH ,B@ L+S_____6$]G(" $8!13D@CJ  , #'#_3-\$$$Y=3G5@UDJ 9_I9
XM@&?D( 1@ZDY5   O"B1M  @@4K'J  1E#"\*81I83R1?3EU.=2!24I(0$$B 
XM2,# O    /]@Z$Y5  !(YP@P)&T "! J  S /  89PIP_TS?#!!.74YU"*H 
XM @ ,2JH "&8(+PI.N@@<6$\0*@ ,2(!(P @   =G-D'L@(8F2! K  Q(@$C 
XMP+P   "$L+P   "$9@Q(>/__+PM.N@:\4$_7_    !9![((^M\AET# J !!(
XMP"\ +RH "! J  U(@$C +P!.N@!"* !*@$_O  QN%$J$9@1P"& "<!"!*@ ,
XM</]@ /]J)*H ""!J  C1Q"5(  0@4E*2$!!(@$C P+P   #_8 #_2$Y5  !(
XMYPP@*"T "$ZZ":1R!B $3KH+@"1 U>R"GDJ$;0XP+((^2,"X@&P$2I)F$BE\
XM     H*B</],WP0P3EU.=3 J  1(P,"\     ["\     68,*7P    %@J)P
XM_V#8+RT $"\M  PO$DZZ"Z(J +"\_____T_O  QF#$ZZ"V8I0(*B</]@L" %
XM8*QA<$/L@DI%[()*M<EF#C(\ "EK"'0 (L)1R?_\*4^"IBQX  0I3H*J2.> 
XM@ @N  0!*6<02_H "$ZN_^)@!D*G\U].<T/Z "!.KOYH*4""KF8,+CP  X '
XM3J[_E& $3KH &E!/3G5D;W,N;&EB<F%R>0!)^0  ?_Y.=4Y5   O"DAY  $ 
XM # L@C[!_  &+P!.N@M$*4""GE!/9A1"ITAY  $  $ZZ"PA03RYL@J9.=2!L
XM@IY":  $(&R"GC%\  $ $"!L@IXQ?  !  H@;(*F("R"II"H  10@"E @K(@
XM;(*R(+Q-04Y80J=.N@KX)$!*J@"L6$]G,"\M  PO+0 (+PI.N@"R*7P    !
XM@K8@;(*> &B    $(&R"G@!H@   "D_O  Q@0DAJ %Q.N@L02&H 7$ZZ"M(I
XM0(*Z(&R"NDJH "103V<0(&R"NB)H "0O$4ZZ">183R\L@KHO"DZZ G@I;(*Z
XM@KY03TZZ">0@;(*>((!.N@H$(&R"GB%   9G%DAX ^U(>@ L3KH)X"!L@IXA
XM0  ,4$\O+(*^+RR"PDZZ^[A"ITZZ!]9/[P ,)%].74YU*@!.50  2.<,,"1M
XM ! @;0 (2J@ K&<8(&T "" H *SE@"@ ($0@*  0Y8 F0& $)FR"0! 32(!(
XMP-"M  Q4@"E @L9"IR\L@L9.N@G6*4""RE!/9@A,WPPP3EU.=1 32(!(P"H 
XM+P4@2U*(+P@O+(+*3KH!CB!L@LK1Q4/Z 5@0V6;\+RT #"\*+RR"RDZZ 4X@
XM;(+*0C!8 "E\     8+"(&R"RM'%)DA2BR1+3^\ &! 32(!(P"H L+P    @
XM9R"ZO     EG&+J\    #&<0NKP    -9PBZO     IF!%*+8,P,$P @;0  
XMC P3 ")F,E*+($M2BQ 02(!(P"H 9R @2E**$(6ZO    ")F$ P3 ")F!%*+
XM8 9"*O__8 )@TF!$($M2BQ 02(!(P"H 9S"ZO    "!G*+J\    "6<@NKP 
XM   ,9QBZO     UG$+J\    "F<(($I2BA"%8,(@2E**0A!*A68"4XM2K(+"
XM8 #_/$(20J<@+(+"4H#E@"\ 3KH(FBE @KY03V8(0JR"PF  _KYZ "9L@LI@
XM'B %Y8 @;(*^(8L( "!+( A*&&;\D<!3B%*(U\A2A;JL@L)MW" %Y8 @;(*^
XM0K ( &  _H(@ # \?_]@!# O  X@;P $2AAF_%-((F\ "%- $-E7R/_\9P)"
XM$" O  1.=4SO P  !" ((B\ #& "$-E7R?_\9P9206 "0AA1R?_\3G5.50  
XM2.<.,"1M  A"ITAZ (Y.N@@H*4""SE!/9@A,WPQP3EU.=2!M  PB:  D+RD 
XM!$ZZ"%@H %A/9U)(>@!M($0O*  V3KH(*B9 2H!03V<T2'@#[2\+3KH'.BP 
XM4$]G)" &Y8 J "!%)6@ " "D)48 G$AX ^U(>@ X3KH'%B5  *!03R\$3KH'
XM]EA/+RR"SDZZ!UI"K(+.6$]@@&EC;VXN;&EB<F%R>0!724Y$3U< *@!.50  
XM+P0H+0 (+RT #"\$3KH -+B\    "E!/9B8@;0 ,$"@ #$B 2, (   '9Q1(
XM>/__+RT #$ZZ /Q03R@?3EU.=6#X3E4  "\*)&T #"!2L>H !&4:("T ","\
XM    _R\ +PI.N@#.4$\D7TY=3G4@4E*2$"T "Q" 2(!(P,"\    _V#D3E4 
XM "\*0>R AB1(($K5_    !8O"&$06$]![((^M<AEZB1?3EU.=4Y5  !(YP@@
XM)&T "'@ ( IF"G#_3-\$$$Y=3G5**@ ,9U((*@ "  QG#$AX__\O"F%4* !0
XM3Q J  U(@$C +P!.N@4TB( (*@ !  Q83V<*+RH "$ZZ CQ83P@J  4 #&<2
XM+RH $DZZ M@O*@ 23KH"(E!/0I)"J@ $0JH "$(J  P@!&".3E7__DCG"" D
XM;0 (0?K_1"E(@M((*@ $  QG"G#_3-\$$$Y=3G4(*@ "  QG-"!2D>H ""@(
XM+P0O*@ ($"H #4B 2, O $ZZ I:PA$_O  QG$ CJ  0 #$*20JH !'#_8+P,
XMK?____\ #&80"*H  @ ,0I)"J@ $< !@HDJJ  AF""\*3KH I%A/#&H  0 0
XM9C ;;0 /__](>  !2&W__Q J  U(@$C +P!.N@(RL+P    !3^\ #&:8("T 
XM#&  _UXDJ@ (,"H $$C T*H ""5   0(Z@ "  P@4E*2$"T #Q" 2(!(P,"\
XM    _V  _RY.50  +PI![("&)$A**@ ,9QC5_    !9![((^M<AE"'  )%].
XM74YU8.)"DD*J  1"J@ (( I@ZDY5__PO"B1M  A(> 0 3KH PBM __Q83V88
XM-7P  0 0($K1_     XE2  ()%].74YU-7P$   0".H  0 ,)6W__  ($"H 
XM#4B 2, O $ZZ -Y*@%A/9P8 *@"   Q@S$Y5  !(YP P)&R"FF 4)E(@*@ $
XM4( O "\*3KH$D%!/)$L@"F;H0JR"FDS?# !.74YU3E4  "\*0?K_QBE(@M9"
XMIR M  A0@"\ 3KH$/B1 2H!03V8(<  D7TY=3G4DK(*:)6T "  $*4J"FB *
XM4(!@YDY5   O+0 (8;983TY=3G5.50  2.< ,)?+)&R"FF .(&T "%&(L<IG
XM$B9*)%(@"F;N</],WPP 3EU.=2 +9P0FDF $*5*"FB J  10@"\ +PI.N@/F
XM< !03V#83E4  "\*<@8@+0 (3KH"X"1 U>R"GDJM  AM$C L@CY(P"(M  BR
XM@&P$2I)F$"E\     H*B</\D7TY=3G5R!B M  A.N@*H(&R"GB\P" !.N@+T
XM2H!83V<$< %@ G  8-9.50  +RT "$ZZ KY*@%A/9@Y.N@+(*4""HG#_3EU.
XM=7  8/A.50  2.<,("@M  A.N@!V<@8@!$ZZ E(D0-7L@IY*A&T.,"R"/DC 
XMN(!L!$J29A(I?     *"HG#_3-\$,$Y=3G4P*@ $P'P  V8,*7P    %@J)P
XM_V#B+RT $"\M  PO$DZZ IPJ +"\_____T_O  QF#$ZZ D(I0(*B</]@NB %
XM8+9.5?_\2'@0 $*G3KH# "M __P(   ,4$]G$DJL@K9F"" M__Q.74YU3KH 
XM!G  8/1.50  2'@ !$AZ !Q.N@(8+P!.N@(X2'@  4ZZ  Y/[P 03EU.=5Y#
XM"@!.50  2JR"TF<&(&R"TDZ0+RT "$ZZ  A83TY=3G5.5?_\+P0K;0 (__Q*
XMK(*>9RQX & *+P1.N@#\6$]2A# L@CY(P+B ;>PP+((^P?P !B\ +RR"GDZZ
XM B)03TJL@M9G!B!L@M9.D$JL@D1G"B\L@D1.N@&>6$]*K(+:9P@@;(+:(*R"
XMWDJL@N)G"B\L@N).N@&Z6$]*K(+F9PHO+(+F3KH!JEA/2JR"ZF<*+RR"ZDZZ
XM 9I83TJL@NYG"B\L@NY.N@&*6$\L>  $""X ! $I9Q0O#4OZ  I.KO_B*E]@
XM!D*G\U].<TJL@KIF*DJL@LIG(B\L@L8O+(+*3KH!?B L@L)2@.6 +P O+(*^
XM3KH!;$_O !!@#DZZ 5HO+(*Z3KH!AEA/("W__"YL@J9.=2@?3EU.=4Y5  !(
XMYPX@*"T "'(&( 1.N@!$)$#5[(*>2H1M#C L@CY(P+B ; 1*DF82*7P    "
XM@J)P_TS?!'!.74YU,"H !,!\@ !F""\23KH +EA/0I)P &#@2.=P #0!Q, F
XM 4A#QL!(0T)#U(-(0,#!2$!"0-""3-\ #DYU(B\ !"QL@JY.[O_<(B\ !"QL
XM@JY.[O^"(B\ !"QL@JY.[O^X+&R"KD[N_\HL;(*N3N[_?"(O  0L;(*N3N[_
XM*$SO  8 !"QL@JY.[O_B+&R"KD[N_\1,[P .  0L;(*N3N[_UD[Z  (B+P $
XM+&R"KD[N_Z9,[P .  0L;(*N3N[_T$CG 01,[R"   PL;(*J3J[_E$S?((!.
XM=4[Z  (B;P $+&R"JD[N_F),[P #  0L;(*J3N[_.B)O  0L;(*J3N[^VBQL
XM@JI.[O]\(F\ !" O  @L;(*J3N[_+B!O  0L;(*J3N[^C"QL@JHB;P $("\ 
XM"$[N_=@B;P $+&R"JD[N_H9,[P #  0L;(*J3N[^SB!O  0L;(*J3N[^@$SO
XM P  !"QL@LY.[O^@(&\ !"QL@LY.[O^F(&\ !"QL@LY.[O^R      /L    
XM 0    $   ,>         _(   /J    D@   " @(" @(" @(# P,# P(" @
XM(" @(" @(" @(" @(" @D$! 0$! 0$! 0$! 0$! 0 P,# P,# P,# Q 0$! 
XM0$! "0D)"0D) 0$! 0$! 0$! 0$! 0$! 0$! 0% 0$! 0$ *"@H*"@H" @("
XM @(" @(" @(" @(" @(" D! 0$ @                  $      0      
XM               ! 0    $                      0(    !        
XM                                                            
XM                                                            
XM                                                            
XM                                                            
XM                                                            
XM                                                            
XM                                                            
XM                                                            
XH                 !0                #\@   ^L    !   #\@  
X 
Xend
SHAR_EOF
if test 6282 -ne "`wc -c 'getline.uue'`"
then
	echo shar: error transmitting "'getline.uue'" '(should have been 6282 characters)'
fi
#	End of shell archive
exit 0

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
uucp:...!pollux!papa       BIX:papa       ARPAnet:pollux!papa@oberon.usc.edu
 "There's Alpha, Beta, Gamma and Diga!" -- Leo Schwab [quoting Rick Unland]
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=