home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 19 / AACD19.BIN / AACD / Programming / Emperor / Emperor.install < prev    next >
Text File  |  2001-02-15  |  14KB  |  415 lines
  1. ;Emperor install script Version $VER: Emperor.Install 3.6 (16.02.2001)
  2. ;written by Matthias Gietzelt
  3. ;Copyright by Matthias Gietzelt © 2000-2001
  4. ;All right reserved
  5.  
  6. ;**PREPARE INSTALL**
  7.  
  8. (set #lang 0)
  9. (if (= "deutsch" @language)
  10.     (
  11.         (set #lang 1)
  12.  
  13.         (set #MSG_OS35          "Emperor benötigt mindestens AmigaOS 3.5 !")
  14.  
  15.         (set #MSG_WELCOME1 (cat "\nWillkommen bei der Installation von Emperor !\n"
  16.                                 "Emperor ist eine objekt-orientierte Programmiersprache.\n\n"
  17.                                 "Vielen Dank das Sie dieses Programmpaket ausprobieren möchten.\n\n"
  18.                                 "Emperor benötigt die Amiga Developer CD 2.1\n"
  19.                                 "von der Haage & Partner GmbH, um arbeiten zu können.\n"
  20.                                 "Dieses beinhaltet z.B. einen C/C++-Compiler und die Unterstützung\n"
  21.                                 "zur Softwareentwicklung für das neue AmigaOS 3.5."))
  22.  
  23.         (set #MSG_WELCOME2 (cat "\nWeiterhin benötigt Emperor folgende Dateien:\n\n"
  24.                                 "CatComp von der Developer CD 2.1\n"
  25.                                 "(ADCD_2.1:NDK/NDK_3.5/Tools/CatComp)\n\n"
  26.                                 "StormC von der Developer CD 2.1\n"
  27.                                 "(ADCD_2.1:Contributions/Haage_&_Partner/StormC/)\n\n"
  28.                                 "xen.font in der Größe 8 installiert im Fonts:-Verzeichnis\n"))
  29.  
  30.         (set #MSG_ALREADY_ASSIGNED1 "Sie haben bereits eine Kopie von \"Emperor\" installiert !\n\ninstallierte Version: ")
  31.         (set #MSG_ALREADY_ASSIGNED2 "\nzu installierende Version: 3.6\n\nin Pfad:\n")
  32.         (set #MSG_ALREADY_ASSIGNED3 "\n\nMöchten Sie einen anderen Pfad benutzen ?")
  33.         (set #MSG_ALREADY_ASSIGNED_BUTTON1 "Ja")
  34.         (set #MSG_ALREADY_ASSIGNED_BUTTON2 "Nein")
  35.  
  36.         (set #MSG_DEST         "Wo möchten Sie Emperor installieren ?\nEin Verzeichnis \"Emperor\" wird automatisch erzeugt !")
  37.  
  38.         (set #MSG_GUIDE        "\nBevor Sie mit der Installation beginnen,\n sollten Sie das \"Emperor.guide\" lesen !")
  39.         (set #MSG_GUIDE_NOW    "Jetzt lesen !")
  40.         (set #MSG_GUIDE_DONE   "Bereits erledigt !")
  41.  
  42.         (set #MSG_WHAT         "Welche Programmteile möchten Sie installieren ?")
  43.         (set #MSG_WHAT_PROGGY  "Emperor Programm")
  44.         (set #MSG_WHAT_DOCU    "Emperor Dokumentation")
  45.         (set #MSG_WHAT_CONFIG  "Emperor Konfigurationsdatei")
  46.         (set #MSG_WHAT_CATALOG "Emperor Katalog (deutsch)")
  47.         (set #MSG_WHAT_PROJECT "Emperor Beispielprojekte")
  48.         (set #MSG_WHAT_SCRIPTS "Emperor Skripte")
  49.  
  50.         (set #MSG_DOC          "Die Dokumentation ist in deutsch\nund englisch verfügbar.\n\nBitte wählen Sie die gewünschte Sprache aus !")
  51.         (set #MSG_DOC_GERMAN   "Deutsch")
  52.         (set #MSG_DOC_ENGLISH  "Englisch")
  53.  
  54.         (set #MSG_MAKEDIR      "Erzeuge Verzeichnis für Emperor ...")
  55.         (set #MSG_COPY_ICON    "Kopiere Piktogramm ...")
  56.         (set #MSG_COPY_PROGGY  "Kopiere Hauptprogramm ...")
  57.         (set #MSG_COPY_DOCU    "Kopiere Dokumentation ...")
  58.         (set #MSG_COPY_CONFIG  "Kopiere Konfigurationsdatei ...")
  59.         (set #MSG_COPY_CATALOG "Kopiere Katalog (deutsch) ...")
  60.         (set #MSG_COPY_PROJECT "Kopiere Beispielprojekte ...")
  61.         (set #MSG_COPY_SCRIPTS "Kopiere Skripte ...")
  62.         (set #MSG_COPY_README  "Kopiere Readme ...")
  63.         (set #MSG_COPY_PICTURE "Kopiere Startbild ...")
  64.  
  65.         (set #MSG_STARTUP      "\nUm Emperor korrekt arbeiten zu lassen, sind\n Änderungen in der User-Startup notwendig:\n\n")
  66.  
  67.         (set #MSG_NOHELP       "Leider ist keine Hilfe verfügbar !\nFalls sich Probleme ergeben,\nmailen Sie mir einfach: joachim.gietzelt@klinikum-sn.de")
  68.         (set #MSG_DONE         "\nInstallation abgeschlossen !\n\nViel Spaß bei der Softwareentwicklung mit Emperor !")
  69.     )
  70. )
  71.  
  72. (if (= 0 #lang)
  73.     (
  74.         (set #MSG_OS35          "Emperor needs at least AmigaOS 3.5 !")
  75.  
  76.         (set #MSG_WELCOME1 (cat "\nWelcome to the installation of Emperor !\n"
  77.                                 "Emperor is an object-oriented programming-language.\n\n"
  78.                                 "Thank you for testing this program-packet.\n\n"
  79.                                 "Emperor needs the Amiga Developer CD 2.1\n"
  80.                                 "of Haage & Partner GmbH, to work properly.\n"
  81.                                 "This CD includes e.g. an C/C++-Compiler and the support\n"
  82.                                 "for developing of software for the new AmigaOS 3.5."))
  83.  
  84.         (set #MSG_WELCOME2 (cat "\nEmperor needs following files:\n\n"
  85.                                 "CatComp from the Developer CD 2.1\n"
  86.                                 "(ADCD_2.1:NDK/NDK_3.5/Tools/CatComp)\n\n"
  87.                                 "StormC from the Developer CD 2.1\n"
  88.                                 "(ADCD_2.1:Contributions/Haage_&_Partner/StormC/)\n\n"
  89.                                 "xen.font in size 8 installed in the Fonts:-directory\n"))
  90.  
  91.         (set #MSG_ALREADY_ASSIGNED1 "You have got already a copy of \"Emperor\" installed !\n\ninstalled version: ")
  92.         (set #MSG_ALREADY_ASSIGNED2 "\nversion to install: 3.6\n\nin path:\n")
  93.         (set #MSG_ALREADY_ASSIGNED3 "\n\nDo you want to take another path ?")
  94.         (set #MSG_ALREADY_ASSIGNED_BUTTON1 "Yes")
  95.         (set #MSG_ALREADY_ASSIGNED_BUTTON2 "No")
  96.  
  97.         (set #MSG_DEST         "Where do you want to install Emperor ?\nA drawer called \"Emperor\" will be created automatically !")
  98.  
  99.         (set #MSG_GUIDE        "\nYou should start installation only after having read \"Emperor.guide\" !")
  100.         (set #MSG_GUIDE_NOW    "Read now !")
  101.         (set #MSG_GUIDE_DONE   "Already done !")
  102.  
  103.         (set #MSG_WHAT         "What do you want to install ?")
  104.         (set #MSG_WHAT_PROGGY  "Emperor main program")
  105.         (set #MSG_WHAT_DOCU    "Emperor documentation")
  106.         (set #MSG_WHAT_CONFIG  "Emperor configuration file")
  107.         (set #MSG_WHAT_CATALOG "Emperor german catalog")
  108.         (set #MSG_WHAT_PROJECT "Emperor example project")
  109.         (set #MSG_WHAT_SCRIPTS "Emperor scripts")
  110.  
  111.         (set #MSG_DOC          "The documentation is available in\ngerman and english.\n\nChoose the one you'd like!")
  112.         (set #MSG_DOC_GERMAN   "German")
  113.         (set #MSG_DOC_ENGLISH  "English")
  114.  
  115.         (set #MSG_MAKEDIR      "Creating directory for Emperor ...")
  116.         (set #MSG_COPY_ICON    "Copying icon ...")
  117.         (set #MSG_COPY_PROGGY  "Copying main program ...")
  118.         (set #MSG_COPY_DOCU    "Copying documentation ...")
  119.         (set #MSG_COPY_CONFIG  "Copying configuration file ...")
  120.         (set #MSG_COPY_CATALOG "Copying german catalog ...")
  121.         (set #MSG_COPY_PROJECT "Copying exampleprojects ...")
  122.         (set #MSG_COPY_SCRIPTS "Copying scripts ...")
  123.         (set #MSG_COPY_README  "Copying readme ...")
  124.         (set #MSG_COPY_PICTURE "Copying startuppicture ...")
  125.  
  126.         (set #MSG_STARTUP      "\nTo get Emperor work well there has to be made\n some changes to your User-Startup:\n\n")
  127.  
  128.         (set #MSG_NOHELP       "No help available, sorry !\nWhen there are some problems,\nmail to: joachim.gietzelt@klinikum-sn.de")
  129.         (set #MSG_DONE         "\nInstallation complete !")
  130.     )
  131. )
  132.  
  133. ;**STARTING UP**
  134.  
  135. (complete 0)
  136.  
  137. (set #DOCLANGUAGE   #lang)
  138. (set #INSTALLPATH   (getassign "Emperor" 'a'))
  139. (set #INSTALLED     (strlen #INSTALLPATH))
  140. (set #OSVERSION     (/ (getversion "workbench.library" (resident)) 65536))
  141. (set #GETPATH       1)
  142. (set #WHAT_PROGGY   1)
  143. (set #WHAT_DOCU     2)
  144. (set #WHAT_CONFIG   4)
  145. (set #WHAT_CATALOG  8)
  146. (set #WHAT_PROJECT 16)
  147. (set #WHAT_SCRIPTS 32)
  148. (set #WHAT         63)
  149.  
  150. (if (= 0 #lang) (set #WHAT 55))
  151.  
  152. (if (> 44 #OSVERSION) (abort #MSG_OS35))
  153.  
  154. (message #MSG_WELCOME1)
  155. (message #MSG_WELCOME2)
  156.  
  157. ;**READ DOCUMENTATION**
  158.  
  159. (if (= 1 (askbool
  160.             (prompt  #MSG_GUIDE)
  161.             (choices #MSG_GUIDE_NOW
  162.                      #MSG_GUIDE_DONE
  163.             )
  164.             (help #MSG_NOHELP)
  165.         )
  166.     )
  167.     (
  168.         (if (= 0 #lang)
  169.             (run "SYS:Utilities/Multiview Emperor/Emperor_english.guide")
  170.         )
  171.         (if (= 1 #lang)
  172.             (run "SYS:Utilities/Multiview Emperor/Emperor_deutsch.guide")
  173.         )
  174.     )
  175. )
  176.  
  177. ;**CHECK FOR INSTALLED VERSION**
  178.  
  179. (complete 10)
  180.  
  181. (if (<> 0 #INSTALLED)
  182.     (
  183.         (set #INSTALLEDVERSION (getversion "Emperor:Emperor"))
  184.         (set #INSTALLEDVER (/ #INSTALLEDVERSION 65536))
  185.         (set #INSTALLEDREV (- #INSTALLEDVERSION (* #INSTALLEDVER 65536)))
  186.         (set #GETPATH (askbool
  187.                 (prompt  #MSG_ALREADY_ASSIGNED1
  188.                          #INSTALLEDVER
  189.                          "."
  190.                          #INSTALLEDREV
  191.                          #MSG_ALREADY_ASSIGNED2
  192.                          #INSTALLPATH
  193.                          #MSG_ALREADY_ASSIGNED3
  194.                 )
  195.                 (choices #MSG_ALREADY_ASSIGNED_BUTTON1
  196.                          #MSG_ALREADY_ASSIGNED_BUTTON2
  197.                 )
  198.                 (help    #MSG_NOHELP)
  199.             )
  200.         )
  201.     )
  202. )
  203.  
  204. ;**CHOOSE PATH**
  205.  
  206. (complete 20)
  207.  
  208. (if (= 1 #GETPATH)
  209.     (
  210.         (set #INSTALLPATH (askdir
  211.                 (prompt  #MSG_DEST)
  212.                 (help    #MSG_NOHELP)
  213.                 (default @default-dest)
  214.             )
  215.         )
  216.     )
  217. )
  218.  
  219. ;**CHOOSE COMPONENTS TO INSTALL**
  220.  
  221. (complete 30)
  222.  
  223. (if (= 2 @user-level)
  224.     (
  225.         (set #WHAT (askoptions
  226.                 (prompt  #MSG_WHAT)
  227.                 (choices #MSG_WHAT_PROGGY
  228.                          #MSG_WHAT_DOCU
  229.                          #MSG_WHAT_CONFIG
  230.                          #MSG_WHAT_CATALOG
  231.                          #MSG_WHAT_PROJECT
  232.                          #MSG_WHAT_SCRIPTS
  233.                 )
  234.                 (help    #MSG_NOHELP)
  235.                 (default #WHAT)
  236.             )
  237.         )
  238.         (if (<> 0 (bitand #WHAT_DOCU #WHAT))
  239.             (set #DOCLANGUAGE (askchoice
  240.                     (prompt  #MSG_DOC)
  241.                     (choices #MSG_DOC_ENGLISH
  242.                              #MSG_DOC_GERMAN)
  243.                     (help    #MSG_NOHELP)
  244.                     (default #lang)
  245.                 )
  246.             )
  247.         )
  248.     )
  249. )
  250.  
  251. ;**CREATE DIRECTORY**
  252.  
  253. (complete 40)
  254.  
  255. (if (= 1 #GETPATH)
  256.     (
  257.         (makedir
  258.                  (tackon #INSTALLPATH "Emperor")
  259.                  (prompt #MSG_MAKEDIR)
  260.                  (help   #MSG_NOHELP)
  261.         )
  262.         (copyfiles
  263.                  (prompt #MSG_COPY_ICON)
  264.                  (source "Emperor.info")
  265.                  (dest   #INSTALLPATH)
  266.                  (help   #MSG_NOHELP)
  267.         )
  268.         (set #INSTALLPATH (tackon #INSTALLPATH "Emperor")
  269.         )
  270.     )
  271. )
  272.  
  273. ;**START COPY-PROCEDURE**
  274.  
  275. (complete 50)
  276.  
  277. (if (<> 0 (BITAND #WHAT_PROGGY #WHAT))
  278.     (
  279.         (copyfiles
  280.                  (prompt #MSG_COPY_PROGGY)
  281.                  (source "Emperor/Emperor")
  282.                  (dest   #INSTALLPATH)
  283.                  (infos)
  284.                  (help   #MSG_NOHELP)
  285.         )
  286.     )
  287. )
  288.  
  289. (complete 55)
  290.  
  291. (if (<> 0 (BITAND #WHAT_DOCU #WHAT))
  292.     (
  293.         (if (= 1 #DOCLANGUAGE)
  294.             (
  295.                 (copyfiles
  296.                      (prompt #MSG_COPY_DOCU)
  297.                      (newname "Emperor.guide")
  298.                      (source "Emperor/Emperor_deutsch.guide")
  299.                      (dest   #INSTALLPATH)
  300.                      (infos)
  301.                      (help   #MSG_NOHELP)
  302.                 )
  303.             )
  304.             (
  305.                 (copyfiles
  306.                      (prompt #MSG_COPY_DOCU)
  307.                      (newname "Emperor.guide")
  308.                      (source "Emperor/Emperor_english.guide")
  309.                      (dest   #INSTALLPATH)
  310.                      (infos)
  311.                      (help   #MSG_NOHELP)
  312.                 )
  313.             )
  314.         )
  315.     )
  316. )
  317.  
  318. (complete 60)
  319.  
  320. (if (<> 0 (BITAND #WHAT_CONFIG #WHAT))
  321.     (
  322.         (copyfiles
  323.                  (prompt #MSG_COPY_CONFIG)
  324.                  (source "Emperor/Emperor.prefs")
  325.                  (dest   #INSTALLPATH)
  326.                  (infos)
  327.                  (help   #MSG_NOHELP)
  328.         )
  329.     )
  330. )
  331.  
  332. (complete 65)
  333.  
  334. (if (<> 0 (BITAND #WHAT_CATALOG #WHAT))
  335.     (
  336.         (copyfiles
  337.                  (prompt #MSG_COPY_CATALOG)
  338.                  (source "Emperor/Catalogs/deutsch/Emperor.catalog")
  339.                  (dest   "SYS:Locale/Catalogs/deutsch")
  340.                  (help   #MSG_NOHELP)
  341.         )
  342.     )
  343. )
  344.  
  345. (complete 70)
  346.  
  347. (if (<> 0 (BITAND #WHAT_PROJECT #WHAT))
  348.     (
  349.         (copyfiles
  350.                  (prompt #MSG_COPY_PROJECT)
  351.                  (source "Emperor/Projects/")
  352.                  (dest   (tackon #INSTALLPATH "Projects"))
  353.                  (infos)
  354.                  (all)
  355.                  (help   #MSG_NOHELP)
  356.         )
  357.     )
  358. )
  359.  
  360. (complete 75)
  361.  
  362. (if (<> 0 (BITAND #WHAT_SCRIPTS #WHAT))
  363.     (
  364.         (copyfiles
  365.                  (prompt #MSG_COPY_SCRIPTS)
  366.                  (source "Emperor/Scripts/")
  367.                  (dest   (tackon #INSTALLPATH "Scripts"))
  368.                  (infos)
  369.                  (all)
  370.                  (help   #MSG_NOHELP)
  371.         )
  372.     )
  373. )
  374.  
  375. ;**COPY NECESSARILY ADDITONAL INFORMATIONS**
  376.  
  377. (complete 80)
  378.  
  379. (copyfiles
  380.     (prompt #MSG_COPY_README)
  381.     (source "Emperor/ClicktabExample.README!")
  382.     (dest   #INSTALLPATH)
  383.     (help   #MSG_NOHELP)
  384. )
  385.  
  386. (copyfiles
  387.     (prompt #MSG_COPY_PICTURE)
  388.     (source "Emperor/Emperor.pic")
  389.     (dest   #INSTALLPATH)
  390.     (help   #MSG_NOHELP)
  391. )
  392.  
  393. ;**ADD ASSIGN TO USER-STARTUP**
  394.  
  395. (complete 90)
  396.  
  397. (if (= 1 #GETPATH)
  398.     (
  399.         (set #MSG_STARTUPSTUFF (cat "Assign Emperor: " #INSTALLPATH "\n"))
  400.         (startup "Emperor"
  401.             (prompt #MSG_STARTUP
  402.                     #MSG_STARTUPSTUFF
  403.             )
  404.             (command #MSG_STARTUPSTUFF)
  405.             (confirm)
  406.             (help #MSG_NOHELP)
  407.         )
  408.         (makeassign "Emperor" #INSTALLPATH)
  409.     )
  410. )
  411.  
  412. (complete 100)
  413.  
  414. (exit #MSG_DONE (quiet))
  415.