/*rx

	Das Installationsskript zu ResGrep

	Dies ist in ARexx geschrieben, da es unmöglich ist, unter AmigaOS
	eine Variable einzulesen.

	02.06.1992	Andre	geschrieben
*/

ADDRESS COMMAND

SAY "----------"
SAY "---------- ResGrep Install"
SAY "----------"
SAY ""
SAY "        Parameters in brakets '[...]' are defaultparameters."
SAY "        To use them only press RETURN."
SAY ""

/* Prüfen, ob ixemu.library da ist. */
IF ~EXISTS("libs:ixemul.library") THEN
DO
	SAY "        The 'ixemul.library' isn't installed."
	SAY "        Please get and install it."
	SAY ""
	SAY "        Press RETURN to quit."
	PULL ant
	EXIT
END

/* Das Binärfile installieren.	*/
'c:echo noline "        Where to place the executable ResGrep? [C:] "'
PULL bindir
IF LENGTH(bindir)=0 THEN
	bindir="c:"
IF ~EXISTS(bindir) THEN
DO
	SAY "        Directory doesn't exsit. Create it."
	'makedir 'bindir
END
SAY "        Copy ResGrep"
'copy ResGrep TO' bindir 'quiet'
'copy ResGrep.info TO' bindir 'quiet'
SAY ""

/* Die anderen 'Hilfsprogramme' kopieren. */
'c:echo "        Where to place the utilities unsit, compress"'
'c:echo noline "        and mac2ami? [C:] "'
PULL utildir
IF LENGTH(utildir)=0 THEN
	utildir="c:"
IF ~EXISTS(utildir) THEN
DO
	SAY "        Directory doesn't exsit. Create it."
	'makedir 'utildir
END
SAY "        Copy unsit, compress and mac2ami"
'copy c/unsit TO' utildir 'quiet'
'copy c/compress TO' utildir 'quiet'
'copy c/mac2ami TO' utildir 'quiet'


/* Die restlichen Binärfiles copieren */
SAY ""
'c:echo "        Where to place the files used by"'
'c:echo noline "        ResGrep? [work:ResGrep] "'
PULL instdir
IF LENGTH(instdir)=0 THEN
	instdir="work:ResGrep"

IF ~EXISTS(instdir) THEN
DO
	SAY "        Directory '"instdir"' doesn't exsit. Create it."
	'makedir 'instdir
END

SAY "        Copy external binaries"
'copy bin ' instdir'/bin all quiet'
SAY "        Copy etc directory"
'makedir >NIL:' instdir'/etc'
'copy etc ' instdir'/etc all quiet'
SAY "        Copy rexx macros"
'makedir >NIL:' instdir'/rexx'
'copy rexx ' instdir'/rexx all quiet'

/* Documentation */
SAY ""
'c:echo noline "        Where to place the documentation? ["'
'c:echo noline' instdir
'c:echo noline "/doc] "'
PULL docdir
IF LENGTH(docdir)=0 THEN
	docdir=instdir"/doc"

IF ~EXISTS(docdir) THEN
DO
	SAY "        Directory '"docdir"' doesn't exsit. Create it."
	'makedir 'docdir
END

SAY "        Copy documentation"
'copy doc/#? 'docdir' all quiet'
'copy doc.info 'docdir'.info all quiet'

/* Example */
SAY ""
'c:echo noline "        Where to place the example? ["'
'c:echo noline' instdir
'c:echo noline "/MacProgs] "'
PULL exdir
IF LENGTH(exdir)=0 THEN
	exdir=instdir"/MacProgs"

IF ~EXISTS(exdir) THEN
DO
	SAY "        Directory '"exdir"' doesn't exsit. Create it."
	'makedir 'exdir
END

SAY "        Copy example"
'copy MacProgs/#? 'exdir' all quiet'

/* Source */
SAY ""
'c:echo noline "        Do you want to install the source? (n/y) "'
PULL ant
UPPER ant
IF ant="Y" THEN
DO
	SAY ""
	'c:echo noline "        Where to place source? ["'
	'c:echo noline' instdir
	'c:echo noline "/source] "'
	PULL srcdir
	IF LENGTH(srcdir)=0 THEN
		srcdir=instdir"/doc"

	IF ~EXISTS(srcdir) THEN
	DO
		SAY "        Directory '"srcdir"' doesn't exsit. Create it."
		'makedir 'srcdir
	END

	SAY "        Copy source"
	'copy source/#? 'srcdir' all quiet'

	SAY ""
	'c:echo noline "        Where to place picker source? ["'
	'c:echo noline' instdir
	'c:echo noline "/picker] "'

	PULL psrcdir
	IF LENGTH(psrcdir)=0 THEN
		psrcdir=instdir"/picker"

	IF ~EXISTS(psrcdir) THEN
	DO
		SAY "        Directory '"psrcdir"' doesn't exsit. Create it."
		'makedir 'psrcdir
	END

	'copy picker/#? 'psrcdir' all quiet'
END

SAY ""
SAY "        Now you had to assign ResGrep: and BIN:"
SAY "        You should add the following assigns to your startup-sequence."
SAY "        (Rename 'dh0:bin' and 'dh0:usr/bin' to the directory where the"
SAY "        external editors are placed. Maybe you want to add more such lines.)"
SAY "             assign ResGrep: "instdir
SAY "             assign BIN: dh0:bin"
SAY "             assign BIN: dh0:usr/bin add"
SAY "        The path must include the binary directory. May be you had to call:"
SAY "             path "utildir
SAY ""
IF OPEN(raus,"ram:ResGrepAssign","WRITE") THEN
DO
	CALL WRITELN(raus,"assign ResGrep: "instdir);
	CALL WRITELN(raus,"assign BIN: dh0:bin");
	CALL WRITELN(raus,"assign BIN: dh0:usr/bin add");
	CALL WRITELN(raus,"path "utildir);
	SAY "        (The assigs are also in the file 'ram:ResGrepAssign'.)"
END
SAY ""
SAY "Installation sucessfull"
SAY "Press RETURN to quit"
PULL laa