home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fresh Fish 2
/
FFMCD02.bin
/
new
/
util
/
misc
/
rsys
/
rsys13.install
< prev
next >
Wrap
Text File
|
1993-12-21
|
22KB
|
583 lines
;--------------------------------------------------------------------------
; $VER: RSys13.Install 1.31 (25-Sep-93)
;--------------------------------------------------------------------------
; Install script for RSys 1.3
;--------------------------------------------------------------------------
(set @abort-button "Installation abbrechen")
(set @language "deutsch")
(set @pretend 0)
(set @user-level 2)
(set @rsysversion "1.3")
(set RSysMain "RSYS:")
(set RSysDoc "RSYS:Doc/")
(set RSysSrc "RSYS:Src/")
(set RSysCalls "RSYS:Src/Calls/")
(set RSysData "RSYS:Data/")
(set RSysGoodies "RSYS:")
(set RSysArexx "RSYS:Arexx/")
(set ass-created 0)
(set RSys-dir-size 185000)
(set doc-dir-size 582000)
(set src-dir-size 580000)
(set calls-dir-size 80000)
(set goodies-size 55000)
(set arexx-size 8000)
(set tmpdir "T:@@@")
(set starline "\n ----------------------------------------")
;--------------------------------------------------------------------------
; This is the Welcome
;--------------------------------------------------------------------------
(set @welcome (cat "----------------------------------------"
"\n\n Willkommen zu der Installation von RSys "@rsysversion "!\n"
"\n Bitte lesen Sie nach der Installation zuerst die"
"\nDokumentation, damit Sie RSys auch im vollen Umfang"
"\n nutzen können. Viel Erfolg bei der Installation!\n\n"
"\nDieses Script können Sie auch dazu verwenden, Teile"
"\ndes Programmpaketes nachzuinstallieren.\n"
"\n----------------------------------------")
)
(set archiver-help (cat starline
"\nHier geben Sie Ihr Entpack-Programm an,"
" mit dem Sie die Archive entpacken können."
starline
"\n\n" @askfile-help)
)
(set work-tmp-archiv (cat "\n\n" "Entpacke das Archiv in ein T:-Unterverzeichnis."
"\n" "Liegt es im RAM:, so kann die Installation"
"\n" "schneller durchführt werden."
"\n\n" )
)
(set work-RSys-archiv (cat "\n\n" "Entpacke Hauptprogramm und die Daten."
"\n\n" )
)
(set work-RSysDoc-archiv (cat "\n\n" "Entpacke die Dokumentation."
"\n\n" )
)
(set ask-dest-dir-help (cat starline
"\nIn diesem anzugebenden Verzeichnis"
" befinden sich alle Dateien, die zu RSys"
" gehören. Sie können auch ein neues"
" Verzeichnis anlegen."
starline
"\n\n" @askdir-help)
)
(set copy-to-destdir-help (cat starline
"\nDie Dateien werden in das Zielverzeichnis kopiert."
starline
"\n\n" @copyfiles-help)
)
(set copy-lib-help (cat starline
"\nDie Library amigaguide.library wird im Verzeichns"
"\nLIBS: installiert. Damit kann die RSys-Amigaguide-"
"\nHilfe genutzt werden."
starline
"\n\n" @askbool-help)
)
(set ask-src-dir-help (cat starline
"\nIn diesem anzugebenden Verzeichnis"
" befinden sich alle C-Quelltexte von RSys"
" gehören. Sie können auch ein neues"
" Verzeichnis anlegen."
starline
"\n\n" @askdir-help)
)
(set ask-doc-dir-help (cat starline
"\nIn diesem anzugebenden Verzeichnis"
" befindet sich die Dokumentation von RSys."
" Sie können auch ein neues Verzeichnis"
" anlegen."
starline
"\n\n" @askdir-help)
)
(set install-env-help (cat starline
"\nRSys arbeitet mit zwei Environmentvariablen, RSYSHELP"
" und RSYSACTION. In ihnen stehen die Pfadnamen für"
" eine Hilfedatei und der Aktionsdatei."
starline
"\n\n" @askbool-help)
)
(set install-src-help (cat starline
"\nZum Lieferumfang von RSys gehören sämtliche Quelltexte."
" Wählen Sie \"Ja\", so werden die C-Sourcen in ein"
" auszuwählendes Verzeichnis entpackt."
starline
"\n\n" @askbool-help)
)
(set install-calls-help (cat starline
"\nZum Lieferumfang von RSys gehören auch die Calls."
" Das sind die Dateien, in denen die Struktur der"
" Quelltexte dokumentiert sind. Sie dienen nur der"
" Programmdokumentation und brauchen nicht installiert"
" zu werden."
starline
"\n\n" @askbool-help)
)
(set install-Arexx-help (cat starline
"\nZum Lieferumfang von RSys gehört eine."
" Arexx-Datei zum Erstellen der Library-Offsets."
" Sie braucht nicht installiert zu werden."
starline
"\n\n" @askbool-help)
)
(set install-doc-help (cat starline
"\nZum Lieferumfang von RSys gehört die Dokumentation."
" Wählen Sie \"Ja\", so werden die Dokumentationen"
" in ein auszuwählendes Verzeichnis entpackt."
starline
"\n\n" @askbool-help)
)
(set install-goodies-help (cat starline
"\nZum Lieferumfang von RSys gehört einige nette Goodies."
" Wählen Sie \"Ja\", so werden die Programme"
" in ein auszuwählendes Verzeichnis entpackt."
starline
"\n\n" @askbool-help)
)
(set my-choice-help (cat starline
"\nHier können Sie auswählen, welche Teile des"
" Programmpaketes installiert werden sollen."
starline
"\n\n" @askchoice-help)
)
(set wbstart-copy-help (cat starline
"\nEs gibt die Möglichkeit, RSys nach jedem Neustart"
" des Rechners automatisch zu starten. Dazu müssen die"
" Dateien RSys und RSys.info in das Verzeichnis"
" SYS:WBStartup kopiert werden."
starline
"\n\n" @askbool-help)
)
(set del-tmp-help (cat starline
"\nInstall hat ein Temporärverzeichnis angelegt,"
" damit die Installation schneller voran geht."
" Sie werden nun gefragt, ob Sie es löschen"
" möchten."
starline
"\n\n" @askbool-help)
)
(set startup-help (cat starline
"\nInstall wird ein Assign namens RSYS: in die"
" die Datei S:User-Startup eintragen. Damit kann"
" RSys alle externen Dateien leichter finden."
starline
"\n\n" @startup-help)
)
;--------------------------------------------------------------------------
; Ask the user which archiver were used
;--------------------------------------------------------------------------
(procedure AskArchiver
(
(set archiver (askfile (prompt "\n" "Geben Sie hier Ihr LHARC-Programm an:")
(help archiver-help)
(default "C/LhX")
)
)
))
;---------------------------------