home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / comms / comprgs / t22bd1.lha / Installieren < prev    next >
Encoding:
Text File  |  1992-05-09  |  3.7 KB  |  173 lines
  1. ;    $VER: Installieren Deutsch 2.1 (8.5.92)
  2.  
  3. .BRA {
  4. .KET }
  5.  
  6. ;    Der Vorgabewert, falls der Anwender einfach nur <Return> drⁿckt
  7.  
  8. Set Vorgabe "Work:term"
  9.  
  10. Lab Anfang
  11.  
  12. ;    In welchem Verzeichnis soll `term' landen?
  13.  
  14. Echo "Bitte wΣhlen Sie die Schublade aus, in der das"
  15. Echo "`term' Hauptprogramm installiert werden soll."
  16. Echo "Schublade (<Return> = $Vorgabe) ? " NoLine
  17.  
  18. ;    Vorherigen Wert l÷schen
  19.  
  20. UnSet Schublade
  21.  
  22. ;    Zielschublade einlesen
  23.  
  24. Set >NIL: Schublade ?
  25.  
  26. ;    Falls nur <Return> gedrⁿckt wurde, wird der Vorgabewert verwendet
  27.  
  28. If "$Schublade" EQ "*$Schublade"
  29.     Set Schublade $Vorgabe
  30. EndIf
  31.  
  32. ;    Den ursprⁿnglichen Pfad bitte merken
  33.  
  34. Set Startpfad $Schublade
  35.  
  36. ;    Jetzt wird nachgeprⁿft, ob wir es mit einem Pfad inklusive eines
  37. ;    Schubladennamens, oder mit einem Wurzelverzeichnis zu tun haben.
  38.  
  39. FailAt 21
  40.  
  41. Assign >NIL: ${Schublade} Exists
  42.  
  43. If FAIL
  44.     FailAt 10
  45.  
  46.     ;    Existiert die Schublade bereits?
  47.  
  48.     If NOT EXISTS $Schublade
  49.         FailAt 21
  50.  
  51.         ;    Versuchen wir, die Schublade anzulegen.
  52.  
  53.         MakeDir "$Schublade"
  54.  
  55.         ;    Netter Versuch, aber trotzdem daneben.
  56.  
  57.         If FAIL
  58.             Echo "*NDie Schublade $Schublade konnte nicht angelegt werden!"
  59.  
  60.             FailAt 10
  61.  
  62.             ;    Nochmal das ganze, bitte.
  63.  
  64.             Skip Back Anfang
  65.         EndIf
  66.     EndIf
  67.  
  68.     ; Der Schublade wird noch ein Icon verpa▀t.
  69.  
  70.     :C/UpdateIcon "$Schublade" Add
  71.  
  72.     ;    Wir hΣngen dem Schubladennamen noch einen SchrΣgstrich an.
  73.  
  74.     Set Temp "$Schublade/"
  75.  
  76.     Set Schublade $Temp
  77.  
  78.     UnSet Temp
  79. EndIf
  80.  
  81. ;    Das Hauptprogramm und das dazugeh÷rige Icon werden kopiert
  82.  
  83. Copy term(.info|%) "$Schublade" Quiet
  84.  
  85. :C/UpdateIcon ${Schublade}term Update
  86.  
  87. ;    Soll auch die Programmdokumentation installiert werden?
  88.  
  89. Echo "*NM÷chten Sie die Programmdokumentation"
  90. Echo "installieren" NoLine
  91.  
  92. Ask " (y = Ja / n = Nein)?"
  93.  
  94. If WARN
  95.     Copy #?.dok#? ${Schublade} Quiet
  96.     :C/UpdateIcon ${Schublade}#?.dok Update Replace :c/MuchMore DefaultTool MuchMore
  97.     Copy :C/MuchMore ${Schublade}
  98. EndIf
  99.  
  100. ;    Wie schaut es mit den ZeichensΣtzen aus?
  101.  
  102. Echo "*NSollen die von `term' ben÷tigten ZeichensΣtze"
  103. Echo "installiert werden" NoLine
  104.  
  105. Ask " (y = Ja / n = Nein)?"
  106.  
  107. If WARN
  108.     Copy Fonts Fonts: All Quiet
  109. EndIf
  110.  
  111. ;    Und wie steht es mit den XPR-Bibliotheken?
  112.  
  113. Echo "*NM÷chten Sie die fⁿr Datentransfer ben÷tigten"
  114. Echo "XPR-Bibliotheken installieren" NoLine
  115.  
  116. Ask " (y = Ja / n = Nein)?"
  117.  
  118. If WARN
  119.     Copy XPR_Libs/#?.library Libs: Quiet
  120. EndIf
  121.  
  122. ;    Werden auch die Dokumentationen der Bibliotheken ben÷tigt?
  123.  
  124. Echo "*NSollen die zu den XPR-Bibliotheken geh÷renden"
  125. Echo "Dokumentationsdateien installiert werden" NoLine
  126.  
  127. Ask " (y = Ja / n = Nein)?"
  128.  
  129. If WARN
  130.     Copy XPR_Libs/#?.do#? ${Schublade} Quiet
  131.     :C/UpdateIcon ${Schublade}#?.do? Update Replace :c/MuchMore DefaultTool MuchMore
  132.     Copy :C/MuchMore ${Schublade}
  133. EndIf
  134.  
  135. ;    Jetzt zu den externen Emulationsbibliotheken.
  136.  
  137. Echo "*N`term' unterstⁿtzt die Verwendung externer"
  138. Echo "Terminalemulations-Bibliotheken. Sie sind fⁿr"
  139. Echo "das korrekte Funktionieren des Programmes"
  140. Echo "nicht zwingend notwendig, stellen aber eine"
  141. Echo "sinnvolle Erweiterung dar."
  142. Echo "M÷chten Sie die Terminalemulations-Bibliotheken"
  143. Echo "installieren" NoLine
  144.  
  145. Ask " (y = Ja / n = Nein)?"
  146.  
  147. If WARN
  148.     Copy XEM_Libs/#?.library Libs: Quiet
  149.     Copy XEM_Libs/Env Env: All Quiet
  150.     Copy XEM_Libs/Env EnvArc: All Quiet
  151. EndIf
  152.  
  153. ;    Zum Schlu▀ zur OwnDevUnit.library.
  154.  
  155. Echo "*N`term' macht, falls vorhanden, Gebrauch von"
  156. Echo "einer Bibliothek, die das Konkurrieren von"
  157. Echo "mehreren Programmen um die serielle"
  158. Echo "Schnittstelle regelt. Soll diese Bibliothek"
  159. Echo "installiert werden" NoLine
  160.  
  161. Ask " (y = Ja / n = Nein)?"
  162.  
  163. If WARN
  164.     Copy Extra_Libs/OwnDevUnit.library Libs:
  165. EndIf
  166.  
  167. ;    Verabschiedung...
  168.  
  169. Echo "*NInstallation abgeschlossen. `term' befindet sich"
  170. Echo "jetzt in der Schublade *"$Startpfad*". WΣhlen Sie das"
  171. Echo "Schlie▀symbol in der linken oberen Fensterecke,"
  172. Echo "um das Fenster zu schlie▀en."
  173.