Amiga Elysian Archive/AmigaElysianArchive.iso/emulate/resgrep0.lha/ResGrep03b/InstallResGrep.rexx

OS/2 REXX Batch file | 1992-06-16 | 5KB | 189 lines

/*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