home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / SPR-EC22.LHA / EuraConfig / Install < prev    next >
Encoding:
Text File  |  1996-12-19  |  4.7 KB  |  194 lines
  1. ; ************************************************
  2. ; *
  3. ; * EuraConfig - HD Install Script
  4. ; *
  5. ; * $VER: Install-EuraConfig 2.00
  6. ; *
  7. ; * Script written by Richard Körber
  8. ; *
  9. ; ************************************************
  10.  
  11. ;------- Prompts ---------------------------------
  12. ;
  13. (set DestDirPrompt
  14.   (cat  "Wohin soll EuraConfig installiert werden?\n"
  15.         "Ein eigenes Verzeichnis wird dort erzeugt."
  16.   )
  17. )
  18.  
  19. (set Ask020Prompt
  20.   (cat  "Möchten Sie die für den 68020 und höher\n"
  21.         "optimierte Version installieren?"
  22.   )
  23. )
  24.  
  25. (set CopyEuraCfgPrompt
  26.   (     "Kopiere EuraConfig-Hauptprogramm.")
  27. )
  28.  
  29. (set CopyEuraCfgInfoPrompt
  30.   (     "Kopiere EuraConfig-Piktogramm.")
  31. )
  32.  
  33. (set CopyDocPrompt
  34.   (     "Kopiere die Anleitung.")
  35. )
  36.  
  37. (set CopyDviPrompt
  38.   (     "Kopiere die Anleitung im DVI-Format.")
  39. )
  40.  
  41. (set PatchPrompt
  42.   (     "Erzeuge die 68020-Version.")
  43. )
  44.  
  45. ;------- Help ------------------------------------
  46. ;
  47. (set DestDirHelp
  48.   (cat  "Wählen Sie ein Zielverzeichnis aus, z. B.\n"
  49.         "'Work:'. Sie brauchen kein eigenes Verzeichnis\n"
  50.         "anlegen, da es automatisch erzeugt wird!"
  51.   )
  52. )
  53.  
  54. (set Ask020Help
  55.   (cat  "Es gibt eine Spezialversionen der EuraConfig.\n"
  56.         "Sie ist optimiert für den 68020 bis 68060.\n"
  57.         "Es wird der umfangreichere Befehlssatz der Pro-\n"
  58.         "zessoren ausgenutzt.\n\n"
  59.         "Die voreingestellte Version können Sie auf jeden\n"
  60.         "Fall verwenden."
  61.   )
  62. )
  63.  
  64. (set CopyDocHelp
  65.   (cat  "Dies sind Anleitungen zu EuraConfig:\n\n"
  66.         "  EuraConfig.guide  im AmigaGuide-Format\n"
  67.         "  EuraConfig.dvi    im DVI (TeX)-Format\n"
  68.         "  History.txt       Information über Änderungen\n"
  69.         "  Formular.txt      Registrationsformular\n\n"
  70.         "Die guide-Datei wird dringend empfohlen, da\n"
  71.         "sie auch von der Online-Hilfe benötigt wird.\n"
  72.         "Die anderen Dateien sind optional."
  73.   )
  74. )
  75.  
  76.  
  77. ;------- Messages --------------------------------
  78. ;
  79. (set StartupMsg
  80.   (cat  "\nWillkommen zur\n\n"
  81.         "EuraConfig Installation\n\n\n"
  82.         "EuraConfig ist Shareware. Sie dürfen das\n"
  83.         "Programm einen Monat lang testen. Danach\n"
  84.         "müssen Sie sich registrieren lassen oder\n"
  85.         "das gesamte Paket löschen.\n\n"
  86.         "Lesen Sie bitte unbedingt VOR dem ersten\n"
  87.         "Start die Anleitung!"
  88.   )
  89. )
  90.  
  91. (set NeedMUIMsg
  92.   (cat  "\n** ACHTUNG **\n\n"
  93.         "EuraConfig benötigt MUI V3!\n\n"
  94.         "Sie müssen MUI unbedingt noch installieren,\n"
  95.         "um das Programm zu verwenden. MUI finden Sie\n"
  96.         "auf jeder gut sortierten Public Domain-CD-ROM\n"
  97.         "oder unter  http://www.sasg.com  "
  98.   )
  99. )
  100.  
  101. (set AllrightMsg
  102.   (cat  "\nEuraConfig ist jetzt installiert.\n\n"
  103.         "Bitte vergessen Sie nicht, sich nach\n"
  104.         "einem Monat registrieren zu lassen! ;-)\n\n"
  105.         "               Richard Körber"
  106.   )
  107. )
  108.  
  109. (set CPU000 "68000, 68010")
  110. (set CPU020 "68020, 68030, 68040, 68060")
  111.  
  112. ;------- Files -----------------------------------
  113. ;
  114. (set Patch          "spatch")
  115. (set EuraCfg020     "EuraConfig_020.pch")
  116. (set EuraCfg        "EuraConfig")
  117. (set EuraCfgInfo    "EuraConfig.info")
  118. (set EuraDoc        "EuraConfig.guide")
  119. (set EuraDvi        "EuraConfig.dvi")
  120. (set EuraHistory    "History.txt")
  121. (set EuraFormular   "Formular.txt")
  122.  
  123. ;------- Installation ----------------------------
  124. ;
  125. (message StartupMsg)            ;-------- Welcome the user
  126.  
  127. (if (<> (exists "libs:muimaster.library") 1)      ; is MUI installed?
  128.   (message  NeedMUIMsg)
  129. )
  130.  
  131. (set DestDir                    ;-------- Ask dir to create drawer into
  132.   (askdir
  133.     (prompt  DestDirPrompt)
  134.     (help    DestDirHelp)
  135.     (default "Work:")
  136.   )
  137. )
  138. (set DestDir                            ; And create this directory
  139.   (tackon DestDir "EuraConfig")
  140. )
  141. (makedir
  142.   (DestDir)
  143.   (infos)
  144. )
  145. (set @default-dest (DestDir))
  146.  
  147. (set usedcpu (+ (database "cpu")))      ; Is a 68020+ available?
  148. (if (< usedcpu 68020)
  149.   (set usedcpu 0)
  150.   (set usedcpu 1)
  151. )
  152. (if (= @user-level 2)
  153.   (set CPUVer
  154.     (askchoice
  155.       (prompt Ask020Prompt)
  156.       (help   Ask020Help)
  157.       (choices CPU000 CPU020)
  158.       (default usedcpu)
  159.     )
  160.   )
  161.   (set CPUVer usedcpu)
  162. )
  163.  
  164. (copyfiles                              ; Copy EuraConfig
  165.   (prompt  CopyEuraCfgPrompt)
  166.   (help    @copyfiles-help)
  167.   (source  EuraCfg)
  168.   (dest    DestDir)
  169.   (infos)
  170. )
  171.  
  172. (if (= CPUVer 1)
  173.   (
  174.     (set Sourcefile (tackon DestDir EuraCfg))
  175.     (set Cmd (cat Patch " -o" Sourcefile " -p" EuraCfg020 " " Sourcefile))
  176.     (run Cmd (prompt PatchPrompt))
  177.   )
  178. )
  179.  
  180. (copyfiles                              ; Copy the documentation
  181.   (prompt  CopyDocPrompt)
  182.   (help    CopyDocHelp)
  183.   (source  "")
  184.   (choices EuraDoc EuraDvi EuraHistory EuraFormular)
  185.   (dest    DestDir)
  186.   (infos)
  187.   (confirm)
  188. )
  189.  
  190. (message AllrightMsg)
  191.  
  192. ;------- Done ------------------------------------
  193.  
  194.