home *** CD-ROM | disk | FTP | other *** search
- (if (= @language "deutsch")
- (
- (SET Intro "Wilkommen zum INstaller-Script für XDME")
- (SET Where "Wohin soll XDME hinkopiert werdem ? Es wird ein Verzeichnis namens XDME angelegt")
- (SET Addit "Nun werden einige Zeilen in s:user-startup angefügt")
- )
- )
-
- (if (= @language "english")
- (
- (SET Intro "Welcome to the installer-script for XDME")
- (SET Where "Where do you want to place XDME ? A drawer called XDME will be created")
- (SET Addit "Now some lines will be added to s:user-startup")
- )
- )
-
- (MESSAGE Intro)
-
- (SET Wuck
- (ASKDIR
- (PROMPT Where)
- (HELP "")
- (DEFAULT "sys:")
- )
- )
-
- (SET DestDir (TACKON Wuck "XDME"))
-
- (RUN (CAT "makedir \""DestDir"\""))
-
- (COPYFILES
- (SOURCE ":Text/Edit/XDme/")
- (DEST DestDir)
- (ALL)
- (INFOS)
- )
- (if (NOT (EXISTS "s:.edrc"))
- (
- (if (= @language "deutsch")
- (COPYFILES
- (SOURCE ":Text/Edit/XDme/S/deutsch.edrc")
- (DEST "s:")
- (NEWNAME ".edrc")
- )
- )
- (if (= @language "english")
- (COPYFILES
- (SOURCE ":Text/Edit/XDme/S/english.edrc")
- (DEST "s:")
- (NEWNAME ".edrc")
- )
- )
- )
- )
-
-
- (STARTUP @app-name
- (PROMPT Addit)
- (HELP "")
- (COMMAND
- (CAT "assign c: \""DestDir"\" add\n"
- "assign c: \""(TACKON DestDir "util/BinUtils")"\" add\n"
- "assign c: \""(TACKON DestDir "util/CNVConfig")"\" add\n"
- )
- )
- )
-
- (RUN (CAT "assign c: \""DestDir"\" add \n"
- "assign c: \""(TACKON DestDir "util/BinUtils")"\" add\n"
- "assign c: \""(TACKON DestDir "util/CNVConfig")"\" add\n"
- ))
-