home *** CD-ROM | disk | FTP | other *** search
- (if (= @language "deutsch")
- (
- (SET Intro "Wilkommen zum Installer-Script für A-Oberon.\n\n WARNUNG: A-Oberon braucht ca 7MB freien Plattenplatz.")
- (SET Where "Wohin soll A-Oberon hinkopiert werden ? Es wird ein Verzeichnis namens A-Oberon angelegt.")
- (SET Addit
- (CAT "Nun Werden folgende Zeilen in ihre User-Startup angehängt\n\n"
- "assign OLIB: A-Oberon:Olib \n"
- "assign LIBS: A-Oberon:libs add \n"
- "Copy A-OBERON:env-archive TO ENV: ALL NOREQ QUIET \n"
- "assign c: A-Oberon: Add \n"
- )
- )
- )
- )
-
-
-
- (if (= @language "english")
- (
- (SET Intro "Welcome to the installer-script for A-Oberon.\n\n WARNING: A-Oberon needs about 7MB on your hard-disk.")
- (SET Where "Where do you want to place A-Oberon ? A drawer called A-Oberon will be created.")
- (SET Addit
- (CAT "Now the following lines will be added to your s:user-startup\n\n"
- "assign OLIB: A-Oberon:Olib \n"
- "assign LIBS: A-Oberon:libs add \n"
- "Copy A-OBERON:env-archive TO ENV: ALL NOREQ QUIET \n"
- "assign c: A-Oberon: Add \n"
- )
- )
- )
- )
-
-
- (MESSAGE Intro)
-
- (SET BasDir
- (ASKDIR
- (PROMPT Where)
- (HELP "")
- (DEFAULT "sys:")
- )
- )
-
- (SET BinDir (TACKON BasDir "A-Oberon"))
-
- (RUN (CAT "makedir \""BinDir"\""))
-
- (COPYFILES
- (SOURCE ":dev/oberon/")
- (DEST BinDir)
- (ALL)
- (INFOS)
- )
-
- (STARTUP @app-name
- (COMMAND
- (CAT
- "assign A-Oberon: \""BinDir"\" \n"
- "assign OLIB: A-Oberon:Olib \n"
- "assign LIBS: A-Oberon:libs add \n"
- "Copy A-OBERON:env-archive TO ENV: ALL NOREQ QUIET \n"
- "assign c: A-Oberon: Add \n"
- )
-
- )
-
- (PROMPT Addit)
- (HELP "")
- )
-
- (RUN
- (CAT
- "assign A-Oberon: \""BinDir"\" \n"
- "assign OLIB: A-Oberon:Olib \n"
- "assign LIBS: A-Oberon:libs add \n"
- "Copy A-OBERON:env-archive TO ENV: ALL NOREQ QUIET\n"
- "assign c: A-Oberon: Add \n"
- )
- )
-