home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 18
/
amigaformatcd18.iso
/
+look_here_1st!+
/
af_on_the_web
/
websites
/
weirdscience
/
downloads
/
miami20n.lha
/
Install_Miami
next >
Wrap
Text File
|
1997-04-09
|
8KB
|
302 lines
(procedure check-system-version
(set exec-version (/ (getversion) 65536))
(if (< exec-version 37)
(abort "Miami 2.0 needs Kickstart 2.04 or higher.\n")
)
(if (< exec-version 39)
(set ag-browser "AmigaGuide")
(set ag-browser "MultiView")
)
)
(procedure select-destination-directory
(if (exists "Miami:" (noreq))
(
(set old-miami-assign 1)
(set old-miami-assign-location (expandpath "Miami:"))
(set @default-dest
(askdir
(prompt "Select the directory where you want to "
"install Miami 2.0. You already have a 'Miami:' "
"assign on your system, so it is assumed that this "
"is the location of an older version of Miami that "
"you want to upgrade.")
(help "Select the directory where you want to "
"install Miami 2.0. Since you already have a 'Miami:' "
"assign on your system you should probably accept "
"the default.")
(default "Miami:")
)
)
) (
(set old-miami-assign 0)
(set @default-dest
(askdir
(prompt "Select the directory where you want to "
"install Miami 2.0. Most of the files do not have "
"to be copied if you accept the default. A separate "
"directory WILL NOT be created at the location you "
"specify.")
(help "Select the directory where you want to "
"install Miami 2.0. You can choose to install "
"'in-place', i.e. within the directory where your "
"Miami files are currently located, or you can have "
"Miami installed in a different location, copying "
"all files.")
(default source-dir)
)
)
)
)
(makeassign "Miami" @default-dest)
)
(procedure check-registered
(set is-registered (exists (tackon @default-dest "Miami.key2")))
)
(procedure select-cpu
(if is-registered
(set cpu-choice
(askchoice
(prompt "Please select which version of\nMiami you want to use:")
(help "Miami exists in an 68000 version\nand an 68020 version. The "
"68020 version\ncan only be used by registered users.")
(choices "68000 version" "68020 version")
)
)
(set cpu-choice 0)
)
)
(procedure select-icon
(set icon-choice
(askchoice
(prompt "Please select which icons you\nwant to use:")
(help "Miami comes with three different\nicon styles. Please select\n"
"the one you prefer.")
(choices "do not install new icons" "standard" "Magic Workbench" "NewIcons")
)
)
)
(procedure check-in-place
(set is-in-place
(= (expandpath source-dir) (expandpath @default-dest))
)
)
(procedure copy-file
(copyfiles
(source (tackon source-dir to-copy))
(dest @default-dest)
(optional force)
)
)
(procedure copy-files
(if (exists (tackon @default-dest "Miami"))
(delete (tackon @default-dest "Miami") force)
)
(if (exists (tackon @default-dest "Miami.info"))
(delete (tackon @default-dest "Miami.info") force)
)
(if is-in-place
(
(if cpu-choice
(
(delete (tackon @default-dest "Miami.000") force)
(delete (tackon @default-dest "Miami.000.info") force)
(rename (tackon @default-dest "Miami.020") (tackon @default-dest "Miami"))
(rename (tackon @default-dest "Miami.020.info") (tackon @default-dest "Miami.info"))
)
(
(delete (tackon @default-dest "Miami.020") force)
(delete (tackon @default-dest "Miami.020.info") force)
(rename (tackon @default-dest "Miami.000") (tackon @default-dest "Miami"))
(rename (tackon @default-dest "Miami.000.info") (tackon @default-dest "Miami.info"))
)
)
(complete 50)
) (
(if cpu-choice
(set to-copy "Miami.020")
(set to-copy "Miami.000")
)
(copy-file)
(if cpu-choice
(rename (tackon @default-dest "Miami.020") (tackon @default-dest "Miami"))
(rename (tackon @default-dest "Miami.000") (tackon @default-dest "Miami"))
)
(set to-copy "Miami.guide") (copy-file)
(set to-copy "Miami.guide.info") (copy-file)
(set to-copy "MiamiArp") (copy-file)
(set to-copy "MiamiFinger") (copy-file)
(set to-copy "MiamiIfConfig") (copy-file)
(set to-copy "MiamiInit") (copy-file)
(set to-copy "MiamiInit.info") (copy-file)
(set to-copy "MiamiInitSANA2") (copy-file)
(set to-copy "MiamiInitSANA2.info") (copy-file)
(set to-copy "MiamiNetStat") (copy-file)
(set to-copy "MiamiPing") (copy-file)
(set to-copy "MiamiRegister") (copy-file)
(set to-copy "MiamiRegister.info") (copy-file)
(set to-copy "MiamiResolve") (copy-file)
(set to-copy "MiamiRoute") (copy-file)
(set to-copy "MiamiSysCtl") (copy-file)
(set to-copy "MiamiTCPDump") (copy-file)
(set to-copy "MiamiTraceRoute") (copy-file)
(set to-copy "README_FIRST") (copy-file)
(set to-copy "README_FIRST.info") (copy-file)
(complete 25)
(if (not (exists (tackon @default-dest "libs")))
(makedir (tackon @default-dest "libs"))
)
(copyfiles
(source (tackon source-dir "libs"))
(dest (tackon @default-dest "libs"))
(all)
)
)
)
(if (not (= icon-choice 0)) (
(set to-copy
(select icon-choice
""
"Icons/Standard/Miami.info"
"Icons/MagicWB/Miami.info"
"Icons/NewIcons/Miami.info"
)
)
(copyfiles
(source (tackon source-dir to-copy))
(dest @default-dest)
)
(copyfiles
(source (tackon source-dir to-copy))
(dest @default-dest)
(newname "MiamiInit.info")
)
(copyfiles
(source (tackon source-dir to-copy))
(dest @default-dest)
(newname "MiamiInitSANA2.info")
)
(copyfiles
(source (tackon source-dir to-copy))
(dest @default-dest)
(newname "MiamiRegister.info")
)
))
(complete 50)
)
(procedure set-tooltypes
(tooltype
(dest (tackon @default-dest "Miami"))
(noposition)
)
(tooltype
(dest (tackon @default-dest "MiamiInit"))
(noposition)
)
(tooltype
(dest (tackon @default-dest "MiamiInitSANA2"))
(noposition)
)
(tooltype
(dest (tackon @default-dest "MiamiRegister"))
(noposition)
)
(tooltype
(dest (tackon @default-dest "Miami.guide"))
(noposition)
(setdefaulttool ag-browser)
)
)
(procedure add-to-startup
(if old-miami-assign
(if (= (old-miami-assign-location (expandpath @default-dest)))
(set change-startup 0)
(set change-startup 1)
)
(set change-startup 1)
)
(if change-startup
(
(set startup-addition (cat
"assign Miami: \"" (expandpath @default-dest) "\"\n"
)
)
(if
(askbool
(prompt "It is strongly recommended that an assign "
"'Miami:' is created for the Miami installation "
"directory. Miami by itself will work fine without "
"this assign, but some utility programs like "
"MiamiTCPDump need it. Would you like Installer "
"to make the required change to your user-startup "
"file ?")
(help "It is strongly recommended that an assign "
"'Miami:' is created for the Miami installation "
"directory. Miami by itself will work fine without "
"this assign, but some utility programs like "
"MiamiTCPDump need it. Please indicate if you would like Installer "
"to make the required change to your user-startup "
"file.")
(choices "Yes" "No")
)
(startup "Miami"
(command startup-addition)
(prompt "Installer will modify your s:user-startup "
"script. The following lines will be added:\n\n"
startup-addition)
(help "Installer will modify your s:user-startup "
"script. The following lines will be added:\n\n"
startup-addition)
)
(textfile
(dest (tackon @default-dest "addition-to-user-startup"))
(append startup-addition)
)
)
)
)
)
;;;; Start
(welcome "Welcome to the Miami 2.0 installation.\n")
(set app-name "Miami 2.0")
(check-system-version)
(complete 0)
(set source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
(expandpath @icon))
)
(select-destination-directory)
(check-registered)
(select-cpu)
(select-icon)
(check-in-place)
(copy-files)
(set-tooltypes)
(complete 75)
(add-to-startup)
(complete 100)