home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / new / util / misc / recall / install / install < prev    next >
Text File  |  1994-04-28  |  20KB  |  568 lines
  1. ; Installation-script for the Recall-package
  2.  
  3. ;****************************************************************************
  4. ; Global variables.  DO NOT TOUCH!
  5.  
  6. (set #programmer        "© 1993-1994 Ketil Hunn")
  7. (set #version                "V2.3")
  8.  
  9. (set RECALL                    "Recall")
  10. (set RECALLPREFS        (cat RECALL            " Preferences"))
  11. (set RECALL.PREFS        (cat RECALL            ".prefs"))
  12. (set RECALLGUIDE        (cat RECALL            ".guide"))
  13. (set RECALLASCII        (cat RECALL         ".ASCII"))
  14. (set CONVERTER            "ReConvert")
  15. (set CONVERTERGUIDE    (cat CONVERTER    ".guide"))
  16. (set CONVERTERASCII    (cat CONVERTER    ".ASCII"))
  17.  
  18. (set #Mainprog            (cat "/" RECALL))
  19. (set #Prefsprog            (cat "/Prefs/" RECALL))
  20. (set #Project                (cat "/Prefs/Env-Archive/" RECALL ".prefs"))
  21. (set #Convprog            (cat "/Tools/" CONVERTER)) 
  22. (set #recguide            (cat "/Docs/" RECALL        ".guide"))
  23. (set #recascii            (cat "/Docs/" RECALL        ".ASCII"))
  24. (set #convguide            (cat "/Docs/" CONVERTER    ".guide"))
  25. (set #convascii            (cat "/Docs/" CONVERTER    ".ASCII"))
  26. (set #Locale                "/Locale")
  27. (set #Localedest        "LOCALE:Catalogs")
  28. (set @default-dest    "SYS:")
  29. (set guidedest            "HELP:English/")
  30. (set docdest                "DOCS:")
  31. (set default_lang 0)
  32.  
  33. (set mainsize                 (getsize #Mainprog))
  34. (set prefssize             (getsize #Prefsprog))
  35. (set convsize                 (getsize #Convprog))
  36. (set projectsize        (getsize #Project))
  37. (set recguidesize         (getsize #recguide))
  38. (set recasciisize         (getsize #recascii))
  39. (set convguidesize    (getsize #convguide))
  40. (set convasciisize    (getsize #convascii))
  41. (set done (+ mainsize prefssize convsize projectsize recguidesize recasciisize convguidesize convasciisize))
  42.  
  43. (complete 0)
  44.  
  45. ;****************************************************************************
  46. ; English strings
  47.  
  48. (if(= @language "english")
  49.     (
  50.         (set partstxt    (cat     "Select parts of " RECALL " " #VERSION " to install:\n"
  51.                                                 "Press HELP for a short description of the files"))
  52.         (set parthelp (cat "Description of files:\n\n"
  53.                                                 RECALL ":\n"
  54.                                                 "Main program\n\n"
  55.                                                 RECALLPREFS        ":\n"
  56.                                                 "Make your own projects\n\n"
  57.                                                 RECALL ".prefs:\n"
  58.                                                 "An example project\n\n"
  59.                                                 "Guide-files:\n"
  60.                                                 "Documentation describing the programs in this "
  61.                                                 "package.  The format is AmigaGuide.  These docs "
  62.                                                 "may be accessed directly from their programs.\n\n"
  63.                                                 "ASCII-files:\n"
  64.                                                 "Documentation discribing the programs in this "
  65.                                                 "package.  They contain the same information as "
  66.                                                 "the Guide-files, but without the guide-codes. "
  67.                                                 "They are to be used if you want to print the "
  68.                                                 "documentation.\n\n"
  69.                                                 CONVERTER        ":\n"
  70.                                                 "Program to convert projects between different "
  71.                                                 "formats\n\n"
  72.                                     ))
  73.         (set langtxt    (cat    "Select which additional languages to install:\n"
  74.                                                 "(english is built-in - no need to install it)"))
  75.         (set abouttotxt        "About to copy")
  76.         (set destdrawtxt    "Destination Drawer to Copy to:")
  77.         (set renametxt        "Any old project will be renamed as")
  78.         (set prefshelp        (cat    "The example project contains some hints "
  79.                                                         "about the usage of " RECALL " and may be useful "
  80.                                                         "inexperienced users. Press 'Yes' to install "
  81.                                                         "the project.\n\n"
  82.                                                         "Experienced user should continue by pressing "
  83.                                                         "'No'.")
  84.                                         )
  85.         (set #WhereRecallGuide  (cat "Select disk or drawer where the " RECALL " Amigaguide-document will be installed:"))
  86.         (set #WhereRecallASCII  (cat "Select disk or drawer where the " RECALL " ASCII-document will be installed:"))
  87.         (set #WhereConvertGuide (cat "Select disk or drawer where the " CONVERTER " Amigaguide-document will be installed:"))
  88.         (set #WhereConvertASCII    (cat "Select disk or drawer where the " CONVERTER " ASCII-document will be installed:"))
  89.     )
  90. )
  91.  
  92. ;****************************************************************************
  93. ; Norwegian strings
  94.  
  95. (if(= @language "norsk")
  96.     (
  97.         (set default_lang 1)
  98.         (set partstxt (cat     "Velg de deler av " RECALL " " #VERSION " som skal "
  99.                                                 "installeres:\n"
  100.                                                 "Trykk HJELP for nærmere beskrivelse av filene."))
  101.         (set parthelp (cat "Beskrivelse av filene:\n\n"
  102.                                                 RECALL ":\n"
  103.                                                 "Hovedprogrammet.\n\n"
  104.                                                 RECALLPREFS        ":\n"
  105.                                                 "Med dette programmet setter du opp hendelsene "
  106.                                                 "du vil bli påminnet om.\n\n"
  107.                                                 RECALL ".prefs:\n"
  108.                                                 "Et eksempel på prosjekt.\n\n"
  109.                                                 "Guide-filer:\n"
  110.                                                 "Dokumentasjon på programmene i denne pakke. "
  111.                                                 "Formatet er AmigaGuide.  Disse filene kan styres "
  112.                                                 "direkte fra programmene.\n\n"
  113.                                                 "ASCII-filer:\n"
  114.                                                 "Dokumentasjon på programmene i denne pakken. "
  115.                                                 "De inneholder samme informasjon som Guide-filene, "
  116.                                                 "men inneholder ingen koder og ment å brukes hvis"
  117.                                                 "dokumentasjonen skal skrives ut.\n\n"
  118.                                                 CONVERTER        ":\n"
  119.                                                 "Program for å konvertere prosjekter mellom "
  120.                                                 "forskjellige format\n\n"
  121.                                     ))
  122.         (set langtxt    (cat    "Velg hvilke språk som skal installeres:\n"
  123.                                                 "(engelsk er innebygd - trengs ikke å installeres)"))
  124.  
  125.         (set abouttotxt        "Skal til å kopiere")
  126.         (set destdrawtxt    "Destinasjons skuff å kopiere til:")
  127.         (set renametxt        "Eksisterende prosjekt vil få navnet endret til")
  128.         (set prefshelp        (cat    "Prosjekteksempelet inneholder tips og triks "
  129.                                                         "om bruken av " RECALL " og kan være nyttig "
  130.                                                         "for nye brukere.  Trykk 'Ja' for å installere "
  131.                                                         "eksempelet.\n\n"
  132.                                                         "Brukere som allerede er kjent med programmet "
  133.                                                         "kan trykke 'Nei'.")
  134.                                             )
  135.         (set #WhereRecallGuide  (cat "Velg disk eller skuff hvor " RECALL " Amigaguide-dokumentet vil bli installert:"))
  136.         (set #WhereRecallASCII  (cat "Velg disk eller skuff hvor " RECALL "  ASCII-dokumentet vil bli installert:"))
  137.         (set #WhereConvertGuide (cat "Velg disk eller skuff hvor " CONVERTER " Amigaguide-dokumentet vil bli installert:"))
  138.         (set #WhereConvertASCII    (cat "Velg disk eller skuff hvor " CONVERTER " ASCII-dokumentet vil bli installert:"))
  139.     )
  140. )
  141.  
  142. ;****************************************************************************
  143. ; German strings
  144. (if(= @language "deutsch")
  145.    (
  146.         (set default_lang 2)
  147.         (set partstxt   (cat    "Wählen sie die zu installierenden Teile von\n " RECALL " " #VERSION " aus: "
  148.          "Drücken sie HELP für eine\nkurze Beschreibung der Dateien"))
  149.       (set parthelp (cat "Beschreibung der Dateien:\n\n"
  150.          RECALL ":\n"
  151.          "Hauptprogramm\n\n"
  152.          RECALLPREFS             ":\n"
  153.          "Um eigene Projekte zu erstellen\n\n"
  154.          RECALL ".prefs:\n"
  155.          "Ein Beispiel-Projekt\n\n"
  156.          "Guide-Dateien:\n"
  157.          "Dokumentation, die die Programme in diesem Packet "
  158.          "beschreibt. Das Format ist 'AmigaGuide'. Auf diese Dokumente "
  159.          "kann direkt von den Programmen aus zugegriffen werden.\n\n"
  160.          "ASCII-Dateien:\n"
  161.          "Dokumentation, die die Programme in diesem Packet "
  162.          "beschreibt. Der Inhalt ist der Gleiche wie auch in den "
  163.          "Guide-Dateien, aber ohne Guide-Codes. "
  164.          "Sie sind dazu da, um ausgedruckt zu werden.\n\n"
  165.          CONVERTER               ":\n"
  166.          "Programm zum konvertieren von Projekten verschiedener Formate\n\n"
  167.       ))
  168.       (set langtxt    (cat    "Wählen sie eine zusätzliche zu installierende Sprache aus:\n"
  169.          "(Englisch ist eingebaut - braucht also nicht extra installiert zu werden)"))
  170.       (set abouttotxt         "Kopieren von")
  171.       (set destdrawtxt        "Verzeichnis, wohin kopiert werden soll:")
  172.       (set renametxt          "Jedes alte Projekt wird umbenannt zu")
  173.       (set prefshelp          (cat    "Das Beispielprojekt enthält einige Tips"
  174.          "über die Benutzung von " RECALL " und könnte nützlich für"
  175.          "unerfahrene Benutzer sein. Drücken sie 'Ja', um das Projekt"
  176.          "zu installieren.\n\n"
  177.          "Erfahrene Benutzer sollten diesen Teil überspringen und"
  178.          "'Nein' drücken.")
  179.          )
  180.       (set #WhereRecallGuide  (cat "Wählen sie ein Verzeichnis aus, in das das " RECALL "-Amigaguide-Dokument installiert werden so