home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneBinV092.lha / CyclonePack / Install_Cyclone < prev    next >
Text File  |  1997-01-12  |  9KB  |  319 lines
  1. ; *** Cyclone installation scipt ***
  2. ; (C) 1994 - 1996 by M. Timmermans
  3. ; Marcel Timmermans
  4. ; A. Dekenstr 22
  5. ; 6836 RM ARNHEM
  6. ; HOLLAND
  7. ; EMAIL: mtimmerm@worldaccess.nl
  8. ;
  9. ; Release 1 (16.05.96)
  10. ; Using installer version 43.1 (AT)
  11. ; Remove confirm at startup (not compatible with old installers)
  12.  
  13.  
  14. (welcome "Welcome to the Cyclone Modula-2 Compiler installation!")
  15.  
  16. (
  17.         (complete 0)
  18.  
  19.         (set update-Cyclone (exists "am2:"))
  20.  
  21.         (if (not update-Cyclone)
  22.          ;get destination dir for the Complete Compiler
  23.          (
  24.           (set mydest
  25.                 (askdir
  26.                         (prompt "Select the path where you want to put the Cyclone.\n A drawer will be created.")
  27.                         (help   "The directory where you store the complete system\n"
  28.                                 @askfile-help
  29.                         )
  30.                         (default "ram:") ; 
  31.                         (disk)
  32.                     
  33.                 )
  34.           )
  35.           (complete 1)
  36.           (set mmdest (tackon mydest "Cyclone")) 
  37.           (set @default-dest mmdest)
  38.          )
  39.          (
  40.            (Message ("Start updating the Cyclone Modula-2 Compiler!"))
  41.            (set mmdest "am2:")
  42.            (set @default-dest mmdest)
  43.          )
  44.         )
  45.  
  46.         (complete 3)
  47.  
  48.         (if (exists "Cyclone.lha")
  49.          (
  50.           (set Compiler (askbool
  51.             (prompt "Installing Compiler Archive?")
  52.             (default 1)
  53.             (help "This arcive containing f.e. Compiler, linker makeutil etc!"))
  54.           )
  55.  
  56.  
  57.           (if Compiler(
  58.              (copyfiles
  59.                 (prompt ("Copying Cyclone.LHA to %s." mmdest))
  60.                 (help @copyfiles-help)
  61.                 (source "Cyclone.LHA")
  62.                 (dest mmdest)
  63.                 (infos)
  64.              )
  65.  
  66.              (set @execute-dir mmdest)
  67.  
  68.              (working "Unpacking the Cyclone Modula-2 Compiler\n\nPlease wait a moment ...")
  69.              (set myarg (cat "lha  \"x\" \"" (tackon mmdest "Cyclone.lha\"") 
  70.                 " >\"CON:10/10/600/100/Unpacking Cyclone .../INACTIVE/AUTO\" "))
  71.  
  72.              (run myarg)
  73.              (set arg (tackon mmdest "Cyclone.lha"))
  74.              (delete arg
  75.               (safe)
  76.              )
  77.              (protect (tackon mmdest "cmc") "parwed")
  78.              (protect (tackon mmdest "cmm") "parwed")
  79.              (protect (tackon mmdest "cml") "parwed")
  80.              (protect (tackon mmdest "cmpm") "parwed")
  81.              (protect (tackon mmdest "cmerr") "parwed")
  82.              (protect (tackon mmdest "cmLibLink") "parwed")
  83.            )
  84.           )
  85.          )
  86.         )
  87.  
  88.         (complete 20)
  89.  
  90.           (set modules (askbool
  91.              (prompt "Installing Modules?")
  92.              (default 1)
  93.              (help "The am2:modules directory will be overwritten!"))
  94.           )
  95.  
  96.           (if modules(
  97.         
  98.        (set modules
  99.         (askfile
  100.                 (prompt (cat  
  101.                     "Please select the modules archive for Cyclone\n"
  102.                     "(Usually named 'CycloneModules.lha').\n\n"
  103.                     "It will be unarchived automatically."))
  104.             (help @askfile-help)
  105.             (default "ram:")
  106.         )
  107.       )
  108.       (if (exists modules)
  109.            (
  110.                  (set @execute-dir mmdest)
  111.                  (working "Unpacking the Cyclone Modula-2 Modules\n\nPlease wait a moment ...")
  112.                  (set myarg (cat "lha \"x\" \"" modules 
  113.                    "\" >\"CON:10/10/600/100/Unpacking Modules .../INACTIVE/AUTO\" "))
  114.          (set failed (run myarg))
  115.             (if (<> 0 failed)
  116.                 (
  117.                     ((set failed_text "Unarchiving of the modules archive failed.")
  118.                      (message end_text))
  119.                     )
  120.                     (
  121.                         (set modules 1)
  122.                                                 (protect (tackon mmdest "Modules/BuildAll") "sarwed")
  123.                     )
  124.             )
  125.         )
  126.      )
  127.          )
  128.         )
  129.  
  130.         (complete 40)
  131.  
  132.  
  133.         (copyfiles
  134.            (prompt ("Copying What's Cylcone to %s." mmdest))
  135.            (help @copyfiles-help)
  136.            (source "What's Cyclone")
  137.            (dest mmdest)
  138.            (infos)
  139.         )
  140.  
  141.         (set InstallDocs (askbool
  142.           (prompt "Installing Docs?")
  143.           (default 1)
  144.           (help "The docs could give anwsers to your questions!"))
  145.         )
  146.  
  147.         (complete 45)
  148.  
  149.          (if InstallDocs (
  150.              (if (exists "Cyclone.guide")
  151.               (
  152.                (copyfiles
  153.                  (prompt ("Copying Cyclone.guide to %s." mmdest))
  154.                  (help @copyfiles-help)
  155.                  (source "Cyclone.guide")
  156.                  (dest mmdest)
  157.                  (infos)
  158.                )
  159.                (copyfiles
  160.                  (prompt ("Copying Threads.guide to %s." mmdest))
  161.                  (help @copyfiles-help)
  162.                  (source "Threads.guide")
  163.                  (dest mmdest)
  164.                  (infos)
  165.                )
  166.                (copyfiles
  167.                  (prompt ("Copying History.doc to %s." mmdest))
  168.                  (help @copyfiles-help)
  169.                  (source "history.doc")
  170.                  (dest mmdest)
  171.                  (infos)
  172.                )
  173.                (copyfiles
  174.                  (prompt ("Copying todo.txt to %s." mmdest))
  175.                  (help @copyfiles-help)
  176.                  (source "todo.txt")
  177.                  (dest mmdest)
  178.                  (infos)
  179.                )
  180.               )
  181.              )
  182.   
  183.              (complete 50)
  184.         
  185.              (if (exists "Betatesters.doc")
  186.  
  187.                (copyfiles
  188.                  (prompt ("Copying BetaTesters.doc to %s." mmdest))
  189.                  (help @copyfiles-help)
  190.                  (source "Betatesters.doc")
  191.                  (dest mmdest)
  192.                  (infos)
  193.                )
  194.              )
  195.              (if (exists "ccc.doc")
  196.  
  197.                (copyfiles
  198.                  (prompt ("Copying ccc.doc to %s." mmdest))
  199.                  (help @copyfiles-help)
  200.                  (source "ccc.doc")
  201.                  (dest mmdest)
  202.                  (infos)
  203.                )
  204.              )
  205.            )
  206.          )
  207.  
  208.         (complete 55)
  209.  
  210.         (if (exists "PDTools.lha")
  211.          (
  212.   
  213.           (set pd (askbool
  214.              (prompt "Installing third party tools?")
  215.              (default 1)
  216.              (help "Here you find some third party tools!"))
  217.           )
  218.  
  219.  
  220.           (if pd(
  221.              (copyfiles
  222.                    (prompt ("Copying PDTools.LHA to %s." mmdest))
  223.                    (help @copyfiles-help)
  224.                    (source "PDTools.LHA")
  225.                    (dest mmdest)
  226.                    (infos)
  227.              )
  228.  
  229.              (set @execute-dir mmdest)
  230.  
  231.              (working "Unpacking the Cyclone third party tools\n\nPlease wait a moment ...")
  232.               (set myarg (cat "lha  \"x\" \"" (tackon mmdest "PDTools.lha\"") 
  233.                 " >\"CON:10/10/600/100/Unpacking tools .../INACTIVE/AUTO\" "))
  234.  
  235.              (run myarg)
  236.              (set arg (tackon mmdest "PDTools.lha"))
  237.              (delete arg
  238.               (safe)
  239.              )
  240.             )
  241.           )
  242.          )
  243.         )
  244.  
  245.         (complete 60)
  246.  
  247.  
  248.          (set InstallDemos (askbool
  249.              (prompt "Do you want to have the demos installed?")
  250.              (default 1)
  251.              (help "Installation of Cyclone demo files"))
  252.          )
  253.  
  254.         (complete 61)
  255.  
  256.         (if installDemos(
  257.  
  258.     (set installDemos
  259.         (askfile
  260.                 (prompt (cat  
  261.                     "Please select the demos archive for Cyclone\n"
  262.                     "(Usually named 'CycloneDemos.lha').\n\n"
  263.                     "It will be unarchived automatically."))
  264.             (help @askfile-help)
  265.             (default "ram:")
  266.         )
  267.     )
  268.  
  269.         (complete 62)
  270.  
  271.         (if (exists installDemos)
  272.            (
  273.                  (set @execute-dir mmdest)
  274.                  (working "Unpacking the Cyclone Modula-2 Demos\n\nPlease wait a moment ...")
  275.                  (set myarg (cat "lha \"x\" \"" installDemos
  276.                    "\" >\"CON:10/10/600/100/Unpacking Demos .../INACTIVE/AUTO\" "))
  277.          (set failed (run myarg))
  278.             (if (<> 0 failed)
  279.                 (
  280.                     ((set failed_text "Unarchiving of the demos archive failed.")
  281.                      (message end_text))
  282.                     )
  283.                     (
  284.                         (set installDemos 1)
  285.                     )
  286.             )
  287.         )
  288.       )
  289.  
  290.          )
  291.         )
  292.  
  293.         (complete 90)
  294.  
  295.         (if (not update-Cyclone) 
  296.           (startup "Cyclone"
  297.         (prompt 
  298.                 "Add \"ASSIGN am2: " mmdest "\" to \"S:user-startup\" so that your system will be properly configured to use Cyclone.")
  299.             (help "This assign is needed for Cyclone to work properly.")
  300.             (command "assign am2: " mmdest "\n")
  301.           )
  302.         )
  303.         
  304.  
  305. ;        (message "To start working with the compiler you need to start "
  306. ;                  "the script file am2:modules/BuildAll first.\n"
  307. ;                  "This script will compile all the available modules.\n")
  308.  
  309.         (message ("The Cyclone Modula-2 Compiler is installed. Thank you for installing this product!"))
  310.  
  311.     (set end_text (cat "Hope you like Cyclone! Don't hesitate to "
  312.                     "send me comments, bugreports and suggestions."))
  313.  
  314.         (complete 100)
  315.     (exit end_text)
  316.  
  317. )
  318.  
  319.