home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 115 / af115sub.adf / Xopa.lzx / xopa / XOpa-Installation < prev    next >
Text File  |  2003-01-18  |  6KB  |  151 lines
  1. ; $VER: XOpa-Installation 1.94 (22.7.1998)
  2. ; Install script for XOpa
  3. ;
  4. ; History:
  5. ; 98/07/21 axeld  - English messages added
  6. ; 98/07/22 axeld  - copy identify via copylib
  7. ;                 - use copyfiles' (infos)-switch
  8. ;                 - english guide added
  9. ;                 - XOpa.structs may miss
  10.  
  11. ;----------------------------- Prepare ----------------------------
  12.  
  13. (set @default-dest "Work:Tools")
  14. (set @user-level   1)
  15.  
  16. ;----------------------------- Messages ----------------------------
  17.  
  18. (if (= @language "deutsch")
  19.   (
  20.     (set |hello (cat "\nWillkommen zu der Installation von XOpa 1.94!\n\n"
  21.                      "Die Installation läuft weitgehend automatisch ab.\n"
  22.                      "Damit XOpa funktioniert, benötigen Sie mindestens\n"
  23.                      "AmigaOS 2.04. XOpa benötigt keine Eintragungen\n"
  24.                      "in Ihrer User-Startup.\n"
  25.                      "Die Dokumentation ist derzeit nur im\n"
  26.                      "AmigaGuide-Format vorhanden.\n\n"
  27.                      "Eine Vollinstallation benötigt ca. 250kB."))
  28.     (set |install (cat "In welchem Verzeichnis soll XOpa installiert werden?\n"
  29.                        "Es wird keine eigene Schublade generiert."))
  30.     (set |parts-msg "Welche Teile des Programmes möchten Sie installieren?")
  31.     (set |parts-help (cat "Es sollten alle Programmteile installiert werden!\n\n"
  32.                           "Die Strukturdefinitionsdatei funktioniert nur\n"
  33.                           "in der registrierten Fassung des Programmes.\n"
  34.                           "Die Identify-Library ist Copyright Richard Körber\n"
  35.                           "(mit freundlicher Genehmigung)"))
  36.     (set |part-main "XOpa-Hauptprogramm")
  37.     (set |part-doc "Dokumentation")
  38.     (set |part-structs "Strukturdefinitionen (nur registrierte Version)")
  39.     (set |part-identify "identify-Library (von Richard Körber)")
  40.     (set |copy-main "Kopiere XOpa-Hauptprogramm...")
  41.     (set |copy-reg "Kopiere XOpa-Registration...")
  42.     (set |copy-doc "Kopiere Dokumentation...")
  43.     (set |copy-structs "Kopiere Strukturdefinitionen...")
  44.     (set |copy-identify "Kopiere Identify-Library v9.3...")
  45.     (set |copy-d-cat "Kopiere deutschen Katalog...")
  46.     (set |which-langs "Welche Sprachen möchten Sie installieren?")
  47.     (set |no-structs "Die Strukturdefinitionsdatei existiert nicht!\n\nSie ist jetzt nur noch in der registrierten Version\ndes Programmes dabei.")
  48.     (set |guide "XOpa_deutsch.guide")
  49.   )
  50.   (
  51.     (set |hello (cat "\nWelcome to the Installation of XOpa 1.94!\n\n"
  52.                      "XOpa requires AmigaOS 2.04 or higher and\n250kB on your hard disk.\n"
  53.                      "There won't be any changements to your User-Startup.\n"))
  54.     (set |install "Please select the path where the XOpa-drawer should be installed.")
  55.     (set |parts-msg "Which parts of the programme should be installed?")
  56.     (set |parts-help (cat "You should install all parts!\n\n"
  57.                           "The structure-definition works only in the\n"
  58.                           "registered version of the programme.\n"
  59.                           "The Identify-Library is copyrighted by Richard Körber\n"))
  60.     (set |part-main "XOpa-Main programme")
  61.     (set |part-doc "Documentation")
  62.     (set |part-structs "Structure-definitions (registered version only)")
  63.     (set |part-identify "identify-Library (Richard Körber)")
  64.     (set |copy-main "Copy XOpa-Main programme...")
  65.     (set |copy-reg "Copy XOpa-Registration...")
  66.     (set |copy-doc "Copy Documentation...")
  67.     (set |copy-structs "Copy Structure-definitions...")
  68.     (set |copy-identify "Copy Identify-Library v9.3...")
  69.     (set |copy-d-cat "Copy german Catalog...")
  70.     (set |which-langs "Which Language should be installed?\n(English is built-in)")
  71.     (set |no-structs "The structure-definitions do not exist!\n\nThey are only included in the registered version of XOpa.")
  72.     (set |guide "XOpa_english.guide")
  73.   )
  74. )
  75.  
  76. ;----------------------------- Install ----------------------------
  77.  
  78. (procedure XOpaInstall
  79.   (set destdir (askdir (prompt  |install)
  80.                        (help    @askdir-help)
  81.                        (default @default-dest)))
  82.   (set @default-dest destdir)
  83.  
  84.   (set whichPart (askoptions (prompt  |parts-msg)
  85.                              (help    |parts-help)
  86.                              (choices (cat "\x1b[2p" |part-main)
  87.                                       |part-doc
  88.                                       |part-structs
  89.                                       |part-identify)
  90.                              (default 11)))
  91.  
  92.   (if (IN whichPart 0)
  93.     (
  94.       (copyfiles (prompt |copy-main)
  95.                  (help   @copyfiles-help)
  96.                  (source "XOpa")
  97.                  (dest   destdir)
  98.                  (infos))
  99.       (if (= (exists "XOpa-Registration") 1)
  100.         (copyfiles (prompt |copy-doc)
  101.                    (help   @copyfiles-help)
  102.                    (source "XOpa-Registration")
  103.                    (dest   destdir)
  104.                    (infos)))
  105.     )
  106.   )
  107.   (complete 60)
  108.  
  109.   (if (IN whichPart 1)
  110.     (copyfiles (prompt  |copy-doc)
  111.                (help    @copyfiles-help)
  112.                (source  |guide)
  113.                (newname "XOpa.guide")
  114.                (dest    destdir)
  115.                (infos)))
  116.   (complete 80)
  117.  
  118.   (if (IN whichPart 2)
  119.     (if (= (exists "XOpa.structs") 1)
  120.       (copyfiles (prompt |copy-structs)
  121.                  (help   @copyfiles-help)
  122.                  (source "XOpa.structs")
  123.                  (dest   destdir))
  124.       (message |no-structs)))
  125.   (complete 85)
  126.  
  127.   (if (IN whichPart 3)
  128.     (copylib (prompt |copy-identify)
  129.              (help   @copylib-help)
  130.              (source "identify.library")
  131.              (dest   "libs:")))
  132.   (complete 90)
  133.  
  134.   (set whichLang (askoptions (prompt  |which-langs)
  135.                              (help    @askoptions-help)
  136.                              (choices "deutsch")
  137.                              (default (if (= @language "deutsch") 1 0))))
  138.  
  139.   (if (IN whichLang 0)
  140.     (copyfiles (prompt |copy-d-cat)
  141.                (help   @copyfiles-help)
  142.                (source "catalogs/deutsch/XOpa.catalog")
  143.                (dest   "locale:catalogs/deutsch/")))
  144.   (complete 100)
  145. )
  146.  
  147. ;----------------------------- Main ----------------------------
  148.  
  149. (message |hello)
  150. (XOpaInstall)
  151.