home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / scientific / mathx / mathx-install < prev    next >
Encoding:
Text File  |  1998-03-08  |  16.7 KB  |  363 lines
  1. ;
  2. ; Installation script for mathX, writte by Kai Nickel, 1997-02-20
  3. ;
  4.  
  5.  
  6. ;*****************************************************************************************
  7. ;*                             Ask language                                              *
  8. ;*****************************************************************************************
  9.  
  10. (complete 0)
  11.  
  12. (set lang
  13.   (askchoice
  14.     (prompt  "Select your preferred Language:\nWählen Sie ihre bevorzugte Sprache:\n")
  15.     (help    "Select your preferred language for the documentation, the catalog and the further installation. It is possible that not all of the things mentioned here are available in your language. English will be used instead.\n\n\nWählen Sie hier Ihre bevorzugte Sprache für die Dokumentation, den Katalog und die weitere Installation.")
  16.     (choices "English"
  17.              "Deutsch"
  18.              "Nederlands"
  19.              "Français"
  20.              "ÃeÓtina"
  21.              "Italiano")
  22.     (default 0)
  23.   )
  24. )
  25.  
  26.  
  27. ;*****************************************************************************************
  28. ;*                        English default section                                        *
  29. ;*****************************************************************************************
  30.  
  31. (set #WELCOME         "\nWelcome to mathX installation!\n\nThis script will install or update mathX to a directory of your choice.\n\nTo deinstall mathX, just delete it's drawer.\n")
  32. (set MSG_OLDOS        "It looks like you are using OS 1.3 or lower. But mathX needs Kickstart 2.0 or higher! You should seriously consider to buy OS 3.1.\n")
  33. (set MSG_OLDMUI       "Your MUI-System seems to be too old for mathX and needs to be updated. mathX needs at least MUI 3 to work.\nYou can install mathX now but it will not work before updating MUI.\n")
  34. (set MSG_NOMUI        "Seems like MUI is not installed!\nmathX needs MUI 3 or higher. You can continue the installation but keep in mind, that mathX will not work before you also installed MUI.\n")
  35. (set MSG_PATH         "Choose the path where the new drawer 'mathX' should be created or already is (in case of an update)")
  36. (set MSG_PATH_HELP    "\nAbout 600KB will be needed for the installation.\nIn the choosen path a new directory called 'mathX' will be created, in which mathX and the other files will be copied.\nYou also may create a new drawer via 'Make New Drawer' before.\n\nIn case of an update the new files will be just copied over the old ones.\n")
  37. (set MSG_MAIN         "Install the main program 'mathX'")
  38. (set MSG_MAIN_HELP    "The main program of mathX.\n")
  39. (set MSG_GUIDE        "Install the documentation files")
  40. (set MSG_GUIDE_HELP   "Those are the documentation files and online-help for mathX.\nThey must be placed into the 'Docs' directory of the mathX drawer.\n")
  41. (set MSG_CATDIR       "Directories have to be created for the mathX.catalog.")
  42. (set MSG_CAT          "Install the mathX.catalog of the selected language")
  43. (set MSG_CAT_HELP     "This mathX.catalog contains all the program texts in the selected language.\nIf you don't install it you have to use the builtin english language.\n")
  44. (set MSG_DATA         "Install default graph settings and term examples")
  45. (set MSG_DATA_HELP    "These are some predefined graph settings and term examples for educational purposes.\n")
  46. (set MSG_REXX         "Install ARexx scripts")
  47. (set MSG_REXX_HELP    "mathX contains some ARexx scripts especially to communicate with the program 'MathScript'.\n")
  48. (set MSG_ICONS        "What icons do you want?")
  49. (set MSG_ICONS_HELP   "For all installed mathX files exist icons in MagicWB-style, both regular and small\nIf you do not have MagicWB, you also should not install these icons.\n(MagicWB is a Workbench enhancment by Martin Huttenloher.)")
  50. (set MSG_ICON         "Installing a MagicWB-icon")
  51. (set NAME_GUIDE       "Docs/English/")
  52. (set NAME_CATDEST     "")
  53.  
  54.  
  55. ;*****************************************************************************************
  56. ;*                             Deutsch (#1)                                              *
  57. ;*****************************************************************************************
  58.  
  59. (if (= lang 1) (
  60.   (set #WELCOME         "\nWillkommen zur mathX Installation!\n\nDieses Skript wird mathX in ein Verzeichnis ihrer Wahl installieren oder aktualisieren.\n\nWenn sie mathX wieder entfernen möchten, genügt es, einfach das Verzeichnis zu löschen.\n")
  61.   (set MSG_OLDOS        "Es sieht so aus, als ob sie OS 1.3 oder kleiner benutzen. mathX läuft aber erst ab OS 2.0.\nSie sollten sich überlegen, OS 3.1 anzuschaffen!\n")
  62.   (set MSG_OLDMUI       "Ihr MUI-System scheint zu alt zu sein und muß upgedated werden. mathX benötigt mindestens MUI 3.3.\n Sie können mathX jetzt installieren aber es wird nicht laufen, bevor MUI upgedated wird.\n")
  63.   (set MSG_NOMUI        "Sie scheinen kein MUI installiert zu haben.\nmathX benötigt aber MUI in der Version 3.3 oder höher. Sie können mit der Installation fortfahren, aber mathX wird nicht laufen, bevor MUI nicht installiert wurde.\n")
  64.   (set MSG_PATH         "Wählen Sie den Pfad, in dem das Verzeichnis 'mathX' erzeugt werden soll, oder im Falle eines Updates bereits ist")
  65.   (set MSG_PATH_HELP    "\nEs werden etwa 600KB für die Installation benötigt.\nIm gewählten Pfad wird ein neues Verzeichnis namens 'mathX' erzeugt, in das mathX und die zugehörigen Dateien kopiert werden.\nSie können mit 'Make New Drawer' auch zuerst ein neues Verzeichnis erstellen.\n\nFalls Sie eine ältere Version von mathX updaten wollen, werden einfach die neueren Dateien über die älteren kopiert.\n")
  66.   (set MSG_MAIN         "Installieren des Hauptprogramms 'mathX'")
  67.   (set MSG_MAIN_HELP    "Das Hauptprogramm von mathX.\n")
  68.   (set MSG_GUIDE        "Installieren der Dokumentationsdateien")
  69.   (set MSG_GUIDE_HELP   "Dies sind die Dokumentationsdateien und gleichzeitig Online-Hilfe für mathX.\nSie müssen deshalb in das Unterverzeichnis 'Docs' des mathX Verzeichnisses.\n")
  70.   (set MSG_CATDIR       "Es müssen Verzeichnisse für den Katalog erzeugt werden.")
  71.   (set MSG_CAT          "Installiere den mathX.catalog der ausgewählten Sprache")
  72.   (set MSG_CAT_HELP     "Dieser mathX.catalog enthält alle Programmtexte in der ausgewählten Sprache.\nWenn Sie ihn nicht installieren, müssen sie die eingebaute englische Sprache benutzen.\n")
  73.   (set MSG_DATA         "Installiere Standard-Grapheinstellungen und Beispielterme")
  74.   (set MSG_DATA_HELP    "Einige Grapheinstellungen und Terme zur geistigen Erbauung.")
  75.   (set MSG_REXX         "Installiere ARexx Skripts")
  76.   (set MSG_REXX_HELP    "mathX liegen ein paar ARexx-Skripts bei, die den eingebauten ARexx-Port demonstrieren und insbesondere mit dem Programm MathScript kommunizieren können.\n")
  77.   (set MSG_ICONS        "Was für Icons möchten Sie?")
  78.   (set MSG_ICONS_HELP   "Für die installierten mathX Files stehen Icons im MagicWB-Stil zur Verfügung, in normaler als auch in halber Höhe.\nWenn sie kein MagicWB installiert haben, sollten sie diese Icons auch nicht verwenden.\n(MagicWB ist eine Workbench-Erweiterung von Martin Huttenloher.)")
  79.   (set MSG_ICON         "Kopieren eines Icons")
  80.   (set NAME_GUIDE       "Docs/Deutsch/")
  81.   (set NAME_CATDEST     "Catalogs/Deutsch")
  82. ) )
  83.  
  84.  
  85. ;*****************************************************************************************
  86. ;*                             Francais (#3)                                             *
  87. ;*****************************************************************************************
  88.  
  89. (if (= lang 3) (
  90.   (set MSG_OLDOS        "Il semblerait que vous utilisez l'OS 1.3 ou moins. Mais mathX à besoin du Kickstart 2.0 ou mieux! Vous devriez acheter l' OS 3.1.\n")
  91.   (set MSG_OLDMUI       "Votre système MUI semble être trop ancien pour mathX et à besoin d'être mis à jour. mathX à besoin d'au moins MUI 3.3 pour fonctionner.\nVous pouvez installer mathX maintenant, mais il ne fonctionnera avant de mettre à jour MUI.\n")
  92.   (set MSG_NOMUI        "Il semblerait que MUI ne soit pas installé!\nmathX à besoin d'MUI 3.3 ou mieux. Vous pouvez continuer l'installation mais achez que mathX ne fonctionnera pas si vous n'installez pas MUI.\n")
  93.   (set MSG_PATH         "Choisissez le chemin où le nouveau répertoire 'mathX' ou bien ou il est déjà (dans le cas d'une mise à jour)")
  94.   (set MSG_PATH_HELP    "\nEnviron 600KB sont requis pour l'installation.\nDans le chemin choisit un nouveau répertoire appellé 'mathX' sera créé, dna lequel mathX et les autres fichiers seront copiés.\nVous pouvez aussi créer un nouveau répertoire via 'Make New Drawer' auparavant.\n\nDans le cas d'une mise à jour, les nouveaux fichiers seront simplement copiés sur les anciens.\n")
  95.   (set MSG_MAIN         "Installer le programme principal 'mathX'")
  96.   (set MSG_MAIN_HELP    "Le programme principal de mathX.\n")
  97.   (set MSG_GUIDE        "Installer les fichiers de documentation")
  98.   (set MSG_GUIDE_HELP   "Ce sont les fichiers documentations et aide en ligne pour mathX.\nIls doivent être placés dans le répertoire 'Docs' du répertoire mathX.\n")
  99.   (set MSG_CATDIR       "Des répertoires doivent être créés pour le catalogue mathX.catalog.")
  100.   (set MSG_CAT          "Installer  le catalogue mathX.catalog du language choisit")
  101.   (set MSG_CAT_HELP     "Ce catalogue mathX.catalog contiendns tous les textes du programmes dans le language choisit.\nSi vous ne l'installez pas, vous aurez le language anglais intégré.\n")
  102.   (set MSG_DATA         "Installer les paramètres par défaut des graphes et les exemples d'expressions")
  103.   (set MSG_DATA_HELP    "Ce sont des paramètres de graphe prédéfinits et des exemples de termes à but éducatif.\n")
  104.   (set MSG_REXX         "Installer scripts ARexx")
  105.   (set MSG_REXX_HELP    "mathX contiends vertains scrpts ARexx spéciaux pour communiquer avec le programme 'MathScript'.\n")
  106.   (set MSG_ICONS        "Quelles icones désirez-vous?")
  107.   (set MSG_ICONS_HELP   "Vous tout mathX installé, il existe des icônes dans le style MagicWB, a la fois normales et petites\nSi vous n'avez pas MagicWB, vous ne devriez pas installer ces icons.\n(MagicWB est un parfectionnement du Workbench par Martin Huttenloher.)")
  108.   (set MSG_ICON         "Installation d'une icône MagicWB")
  109.   (set NAME_GUIDE       "Docs/Français/")
  110.   (set NAME_CATDEST     "Catalogs/Français")
  111. ) )
  112.  
  113.  
  114. ;*****************************************************************************************
  115. ;*                             Nederlands (#2)                                           *
  116. ;*****************************************************************************************
  117.  
  118. (if (= lang 2) (
  119.   (set NAME_CATDEST     "Catalogs/Nederlands")
  120. ) )
  121.  
  122. ;*****************************************************************************************
  123. ;*                             ÃeÓtina (#4)                                              *
  124. ;*****************************************************************************************
  125.  
  126. (if (= lang 4) (
  127.   (set NAME_CATDEST     "Catalogs/ÃeÓtina")
  128. ) )
  129.  
  130. ;*****************************************************************************************
  131. ;*                             Italiano (#5)                                             *
  132. ;*****************************************************************************************
  133.  
  134. (if (= lang 5) (
  135.   (set NAME_CATDEST     "Catalogs/Italiano")
  136. ) )
  137.  
  138.  
  139. ;*****************************************************************************************
  140. ;*                                                                                       *
  141. ;*        Nothing more to translate beyond this point !!!                                *
  142. ;*                                                                                       *
  143. ;*****************************************************************************************
  144.  
  145.  
  146.  
  147. (message #WELCOME)
  148.  
  149. ;*******************************************************************************
  150. ;                         Check System (OS and MUI)
  151. ;*******************************************************************************
  152.  
  153. (complete 10)
  154.  
  155. (set OSVersion (/ (getversion) 65536))
  156. (if (< OSVersion 36)
  157.   (message MSG_OLDOS)
  158. )
  159.  
  160.  
  161. (if (exists ("LIBS:Muimaster.library"))
  162.   (
  163.     (set #MUIVER (/ (getversion "LIBS:Muimaster.library") 65536))
  164.     (if (< #MUIVER 17)
  165.       (message #MSG_OLDMUI)
  166.     )
  167.   )
  168.   (message #MSG_NOMUI)
  169. )
  170.  
  171.  
  172.  
  173.  
  174. ;*******************************************************************************
  175. ;                         Ask for path and Icons
  176. ;*******************************************************************************
  177.  
  178. (complete 20)
  179.  
  180. (set destination
  181.   (askdir (prompt  MSG_PATH)
  182.           (help    MSG_PATH_HELP)
  183.           (default @default-dest)
  184.   )
  185. )
  186. (set destination (tackon destination "mathX"))
  187. (set @default-dest destination)
  188.  
  189.  
  190. (set icons
  191.   (askchoice (prompt  MSG_ICONS)
  192.              (help    MSG_ICONS_HELP)
  193.              (choices "Standard" "MagicWB" "MagicWB (small)")
  194.              (default 0)
  195.   )
  196. )
  197.  
  198.  
  199.  
  200. ;*******************************************************************************
  201. ;                          Copy main program and docu
  202. ;*******************************************************************************
  203.  
  204. (complete 30)
  205.  
  206. (copyfiles (prompt MSG_MAIN)
  207.            (help   MSG_MAIN_HELP)
  208.            (source "mathX")
  209.            (dest   destination)
  210.            (confirm)
  211.            (infos)
  212. )
  213.  
  214. (complete 40)
  215.  
  216. (copyfiles (prompt MSG_GUIDE)
  217.            (help   MSG_GUIDE_HELP)
  218.            (source NAME_GUIDE)
  219.            (dest   (tackon destination "Docs"))
  220.            (confirm)
  221.            (all)
  222.            (infos)
  223. )
  224.  
  225.  
  226.  
  227. ;*******************************************************************************
  228. ;                               Copy Catalog
  229. ;*******************************************************************************
  230.  
  231. (complete 50)
  232.  
  233. (if (NAME_CATDEST)
  234.   (
  235.     ; this makedir refused to be eliminated...
  236.     (makedir (prompt MSG_CATDIR)
  237.              (help   @makedir-help)
  238.              (tackon destination "Catalogs")
  239.              (confirm)
  240.              (infos)
  241.     )
  242.     (copyfiles (prompt MSG_CAT)
  243.                (help   MSG_CAT_HELP)
  244.                (source (tackon NAME_CATDEST "mathX.catalog"))
  245.                (dest   (tackon destination  NAME_CATDEST))
  246.                (confirm)
  247.     )
  248.   )
  249. )
  250.  
  251.  
  252.  
  253. ;*******************************************************************************
  254. ;                            Copy Data and ARexx
  255. ;*******************************************************************************
  256.  
  257. (complete 70)
  258.  
  259. (copyfiles (prompt MSG_DATA)
  260.            (help   MSG_DATA_HELP)
  261.            (source "Data/")
  262.            (dest   (tackon destination "Data"))
  263.            (confirm)
  264.            (infos)
  265.            (all)
  266. )
  267.  
  268. (complete 80)
  269.  
  270. (copyfiles (prompt MSG_REXX)
  271.            (help   MSG_REXX_HELP)
  272.            (source "Rexx/")
  273.            (dest   (tackon destination "Rexx"))
  274.            (confirm)
  275.            (infos)
  276.            (all)
  277. )
  278.  
  279.  
  280. ;*******************************************************************************
  281. ;                             Copy Icons
  282. ;*******************************************************************************
  283.  
  284. (complete 90)
  285.  
  286. ;
  287. ; ***** MWB icons
  288. ;
  289.  
  290. (if (= icons 1)
  291.   (
  292.     (copyfiles (prompt MSG_ICON)
  293.                (source "Icons/MagicWB/mathX.info")
  294.                (dest   destination)
  295.     )
  296.     (copyfiles (prompt MSG_ICON)
  297.                (source "Icons/MagicWB/Docs.info")
  298.                (dest   destination)
  299.     )
  300.     (copyfiles (prompt MSG_ICON)
  301.                (source "Icons/MagicWB/Data.info")
  302.                (dest   destination)
  303.     )
  304.     (copyfiles (prompt MSG_ICON)
  305.                (source "Icons/MagicWB/Rexx.info")
  306.                (dest   destination)
  307.     )
  308.     (copyfiles (prompt  MSG_ICON)
  309.                (source  "Icons/MagicWB/Docs/")
  310.                (dest    (tackon destination "Docs"))
  311.                (pattern "#?.info")
  312.     )
  313.     (if (NAME_CATDEST)
  314.       (copyfiles (prompt MSG_ICON)
  315.                  (source "Icons/MagicWB/Catalogs.info")
  316.                  (dest   destination)
  317.       )
  318.     )
  319.     (run (cat "copy " "Icons/MagicWB/Drawer.info \"" destination ".info\""))
  320.   )
  321. )
  322.  
  323. ;
  324. ; ***** Small MWB icons
  325. ;
  326.  
  327. (if (= icons 2)
  328.   (
  329.     (copyfiles (prompt MSG_ICON)
  330.                (source "Icons/MagicWB_Small/mathX.info")
  331.                (dest   destination)
  332.     )
  333.     (copyfiles (prompt MSG_ICON)
  334.                (source "Icons/MagicWB_Small/Docs.info")
  335.                (dest   destination)
  336.     )
  337.     (copyfiles (prompt MSG_ICON)
  338.                (source "Icons/MagicWB_Small/Data.info")
  339.                (dest   destination)
  340.     )
  341.     (copyfiles (prompt MSG_ICON)
  342.                (source "Icons/MagicWB_Small/Rexx.info")
  343.                (dest   destination)
  344.     )
  345.     (copyfiles (prompt  MSG_ICON)
  346.                (source  "Icons/MagicWB_Small/Docs/")
  347.                (dest    (tackon destination "Docs"))
  348.                (pattern "#?.info")
  349.     )
  350.     (if (NAME_CATDEST)
  351.       (copyfiles (prompt MSG_ICON)
  352.                  (source "Icons/MagicWB_Small/Catalogs.info")
  353.                  (dest   destination)
  354.       )
  355.     )
  356.     (run (cat "copy " "Icons/MagicWB_Small/Drawer.info \"" destination ".info\""))
  357.   )
  358. )
  359.  
  360.  
  361. (complete 100)
  362.  
  363.