home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Dev / Lisp / install < prev    next >
Encoding:
Text File  |  1995-11-24  |  1.3 KB  |  59 lines
  1. (if (= @language "deutsch")
  2.     (
  3.     (SET    Intro   "Wilkommen zum Installer-Script für CLisp")
  4.     (SET    Where   "Wohin soll das CLisp Packet hinkopiert werden ? Es wird ein Verzeichnis namens CLisp angelegt")
  5.     (SET    AddShit "Nun wird noch eine Zeile in s:user-startup angehängt")
  6.     )
  7. )
  8.  
  9. (if (= @language "english")
  10.     (
  11.         (SET Intro  "Welcome to the installer-script for CLisp")
  12.         (SET Where  "Where do you want to place the CLisp package ? A Drawer called CLisp will be created")
  13.         (SET AddShit "Now a line will be added to s:user-startup")
  14.     )
  15. )
  16.  
  17. (SET PROC
  18.     (DATABASE "cpu"))
  19.  
  20. (MESSAGE Intro)
  21.  
  22. (SET Wuck
  23.     (ASKDIR
  24.         (PROMPT Where)
  25.         (HELP   "")
  26.         (DEFAULT    "sys:")
  27.     )
  28. )
  29.  
  30. (SET DestDir    (tackon Wuck "CLisp"))
  31.  
  32. (RUN    (CAT "makedir \""tDestDir"\""))
  33.  
  34. (if (OR (= PROC "68000") (= PROC "68010"))
  35.     (
  36.         (COPYFILES
  37.             (SOURCE ":Dev/Lisp/68000/")
  38.             (DEST   DestDir)
  39.             (ALL)
  40.             (INFOS)
  41.         )
  42.     )
  43.     (
  44.         (COPYFILES
  45.             (SOURCE ":Dev/Lisp/68020")
  46.             (DEST   DestDir)
  47.             (ALL)
  48.             (INFOS)
  49.         )
  50.     )
  51. )
  52. (STARTUP    @app-name
  53.     (PROMPT AddShit)
  54.     (COMMAND (CAT "assign c: \""DestDir"\" Add \n"))
  55.     (HELP   "")
  56. )
  57.  
  58. (RUN (CAT "assign c: \""DestDir"\" Add"))
  59.