home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format 126
/
af126a.adf
/
FullPalette.lzx
/
FullPalette
/
Install
< prev
next >
Wrap
Text File
|
1999-05-22
|
8KB
|
296 lines
;** $VER: FullPalette_install 40.2 (7.2.99) by Massimo Tantignone
;**
;** requires:
;** - RexxMast, Rx, Search and Version commands
;** - T: and ENV: assignments for temporary files
;******************************
;** MESSAGES (DEFAULT: ENGLISH)
(set msg_rx "Installer is unable to locate the \"Rx\" command")
(set msg_rxm "Installer is unable to locate the \"RexxMast\" command")
(set msg_rxp "Please locate it:")
(set msg_wait "Checking installation")
(set msg_fpi "A copy of FullPalette is already installed")
(set msg_fpn "FullPalette is not installed")
(set msg_dir "A drawer WILL NOT be created")
(set msg_seldr "Select the destination drawer:")
(set msg_whdoc "Where do you want to copy the documentation files?")
(set msg_lang "What language catalogs do you want to install?")
;(set msg_l_deu "Deutsch")
(set msg_l_ita "Italiano")
(set msg_icons "Do you want to install icons?")
(set msg_done "FullPalette will be available next time you boot.")
(set rxhelp "Use the file requester to select the \"Rx\" program.")
(set rxmhelp "Use the file requester to select the \"RexxMast\" program.")
(set dirhelp "Select the drawer into which FPPrefs (the FullPalette daemon that is run in the Startup-sequence) is to be copied.")
(set dirhelp2 "Select the drawer into which the documentation is to be copied.\nThe default is the same drawer which FPPrefs resides in.")
(set langhelp "Choose one or more languages for the FullPalette editor.\nYou can later select which one to use with the Locale preferences editor.")
(set iconhelp "If you select \"No\", your existing icons won't be overwritten.")
(set var_docd "DocsEnglish")
(set var_docr "FullPalette.guide")
;**********************
;** MESSAGES (ITALIANO)
(if (= @language "italiano")(
(set msg_rx "Installer non è in grado di trovare il comando \"Rx\"")
(set msg_rxm "Installer non è in grado di trovare il comando \"RexxMast\"")
(set msg_rxp "Per favore, localizzatelo:")
(set msg_wait "Verifica installazione")
(set msg_fpi "Una copia di FullPalette è già installata")
(set msg_fpn "FullPalette non è installato")
(set msg_dir "NON verrà creato alcun cassetto")
(set msg_seldr "Scegliere il cassetto di destinazione:")
(set msg_whdoc "Dove volete che siano copiati i file della documentazione?")
(set msg_lang "Per quali lingue deve essere installato un catalog?")
; (set msg_l_deu "Deutsch")
(set msg_l_ita "Italiano")
(set msg_icons "Volete installare le icone?")
(set msg_done "FullPalette sarà disponibile dopo il prossimo reboot.")
(set rxhelp "Usate il file requester per selezionare il programma \"Rx\".")
(set rxmhelp "Usate il file requester per selezionare il programma \"RexxMast\".")
(set dirhelp "Selezionare il cassetto in cui deve essere copiato FPPrefs (il demone di FullPalette che viene lanciato nella Startup-sequence).")
(set dirhelp2 "Selezionare il cassetto in cui deve essere copiata la documentazione.\nIl default è lo stesso cassetto in cui si trova FPPrefs.")
(set langhelp "Scegliere una o più lingue per l'editor FullPalette.\nIn seguito si potrà scegliere quale usare con l'editor di preferenze Locale.")
(set iconhelp "Selezionando \"No\" le vostre icone già esistenti non verranno sovrascritte.")
(set var_docd "DocsItaliano")
(set var_docr "FullPalette.guide")
))
;************************
;** LOCATE AREXX PROGRAMS
(if (= 1 (exists "sys:rexxc/rx" (noreq)))
(set var_rx "sys:rexxc/rx")
(if (= 1 (exists "c:rx" (noreq)))
(set var_rx "c:rx")
(set var_rx
(askfile
(default "SYS:RexxC/Rx")
(help rxhelp)
(prompt msg_rx ".\n\n" msg_rxp)
)
)
)
)
(set var_rxm (tackon (pathonly var_rx) "rexxmast"))
(if (= 0 (exists var_rxm (noreq)))
(if (= 1 (exists "sys:rexxc/rexxmast" (noreq)))
(set var_rxm "sys:rexxc/rexxmast")
(if (= 1 (exists "c:rexxmast" (noreq)))
(set var_rxm "c:rexxmast")
(if (= 1 (exists "sys:system/rexxmast" (noreq)))
(set var_rxm "sys:system/rexxmast")
(set var_rxm
(askfile
(default "SYS:System/RexxMast")
(help rxmhelp)
(prompt msg_rxm ".\n\n" msg_rxp)
)
)
)
)
)
)
(run var_rxm)
;******************************
;** CHECK PREVIOUS INSTALLATION
(working "(" msg_wait ")")
(delete "t:installfp.rx" (optional force) (safe))
(textfile
(safe)
(dest "t:installfp.rx")
(append (cat
"/* filter */\n"
"\n"
"pull string\n"
"\n"
"comment=pos(';',string)\n"
"if comment~==0 then string=trim(left(string,comment-1))\n"
"say right(string,length(string)-lastpos(' ',string))\n"
))
)
(delete "t:installfp.sh" (optional force) (safe))
(textfile
(safe)
(dest "t:installfp.sh")
(append (cat
"delete force t:installfp.out\n"
"\n"
"search >t:installfp.out search FPPrefs S:Startup-sequence\n"
"if $RC eq 0\n"
" setenv installfp_fp 1\n"
" setenv installfp_fpp `" var_rx " <t:installfp.out t:installfp.rx`\n"
"else\n"
" setenv installfp_fp 0\n"
" setenv installfp_fpp \"\"\n"
"endif\n"
"delete t:installfp.out\n"
"\n"
))
)
(execute "t:installfp.sh" (safe))
(delete "t:installfp.rx" (safe))
(delete "t:installfp.sh" (safe))
(set var_fp (getenv "installfp_fp"))
(set var_fpp (getenv "installfp_fpp"))
(run "unsetenv installfp_fp")
(run "unsetenv installfp_fpp")
(if (= 1 var_fp)
(
(set @default-dest (pathonly var_fpp))
(set msg_fp msg_fpi)
)
(set msg_fp msg_fpn)
)
(complete 10)
(set no_break_warning
(askdir
(default @default-dest)
(help dirhelp)
(prompt (cat msg_fp ".\n" msg_dir ".\n\n" msg_seldr))
)
)
(set @default-dest (tackon no_break_warning ""))
(set docdir
(askdir
(default @default-dest)
(help dirhelp2)
(prompt (cat msg_whdoc "\n\n" msg_seldr))
)
)
(set docdir (tackon docdir ""))
;*******************************
;** ASK INSTALLATION PREFERENCES
(complete 20)
(set var_lang
(askoptions
(prompt msg_lang)
(help langhelp)
(choices
msg_l_ita
; msg_l_deu
)
(default 1)
)
)
(complete 30)
(set var_icon
(askbool
(prompt msg_icons)
(help iconhelp)
)
)
;*************************
;** INSTALL FILES: FPPREFS
(complete 40)
(copyfiles
(source "FPPrefs")
(dest @default-dest)
(infos) (noposition)
)
;*******************************
;** INSTALL FILES: DOCUMENTATION
(complete 50)
(if (= 1 var_icon)
(
(copyfiles
(source (tackon var_docd var_docr))
(dest docdir)
(infos) (noposition)
)
)
(
(copyfiles
(source (tackon var_docd var_docr))
(dest docdir)
)
)
)
;***********************************
;** INSTALL FILES: FULLPALETTE-PREFS
(complete 60)
(copyfiles
(source "FullPalette")
(dest "SYS:Prefs/")
(noposition)
)
(if (= 1 var_icon)(
(copyfiles
(source "FullPalette.info")
(dest "SYS:Prefs/")
(noposition)
)
))
;**************************
;** INSTALL FILES: CATALOGS
(complete 70)
(if (bitand var_lang 1)
(
(copyfiles
(source "Catalogs/italiano/fullpalette.catalog")
(dest "LOCALE:Catalogs/italiano/")
)
)
)
(if (bitand var_lang 2)
(
(copyfiles
(source "Catalogs/deutsch/fullpalette.catalog")
(dest "LOCALE:Catalogs/deutsch/")
)
)
)
;*******************
;** STARTUP-SEQUENCE
(complete 80)
(if (= 0 var_fp)
(
(run (cat "InstallTools/AddLine \"" @default-dest "\""))
(protect "S:Startup-sequence" "+srwd")
)
)
;*******
;** DONE
(complete 100)
(exit msg_done)