home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fresh Fish 2
/
FFMCD02.bin
/
new
/
amigalibdisks
/
disk940
/
videomaxe
/
installvm
< prev
next >
Wrap
Text File
|
1993-12-21
|
13KB
|
366 lines
; $VER: InstallVM 01.20 (16 Sep 1993) © Stephan Sürken
; TEXT DEFINITIONS
(set stepsHelp
(cat "\n"
"This window lets you choose the steps this script should "
"perform. It can be used for four main purposes:\n\n"
" (0) accomplish a minor update\n"
" (1) accomplish a complete new installation\n"
" (2) update older VideoMaxe files\n\n"
" You can freely choose which steps should actually be "
"performed, except that steps 0 and 1 exclude themselves.\n\n"
" STEP 0: Will only copy the VideoMaxe program file, "
"the new documentation files and the language "
"localization files. You should use this "
"if you want to install an update without file format "
"changes. Thus your VideoMaxe configuration "
"remain as it was (note that hence you will not "
"recognize new configuration design (e.g. new icons) "
"of the new release).\n"
" STEP 1: Will accomlish a complete new instalation "
"of VideoMaxe. Use this if you are a new user or "
"updating from the 3.XX version (as you can`t reuse "
"VideoMaxe 3.XX configuration...).\n"
"Choose this too if you are not sure what to select, "
"as this will in any case produce a runable installation "
"of the new version.\n"
" STEP 2: Lets you update older VideoMaxe files with "
"the CLI-Tool VMConvert.\n\n"
"Note that if you however forgot anything, you can "
"call this script again, performing only the "
"furthermore needed steps.\n\n"))
(set destDirHelp
(cat "\n"
"Into the directory you choose here all files "
"important for VideoMaxe are placed during the "
"installation procedure.\n"
"Note that this directory must be empty, so "
"normally you will create a new directory at "
"this point.\n\n"))
(set langHelp
(cat "\n"
"Since OS 2.1, the Amiga can operate in different "
"languages if the application supports them. VideoMaxe "
"up to now supports English (as default, `built-in` "
"language), German (Deutsch) and French (Français).\n"
"Simply check the languages you want VideoMaxe to "
"support.\n\n"))
(set exampleFilesHelp
(cat "\n"
"VideoMaxe comes with various example files.\n"
"`Projects' contains example project files. "
"`MaskList' contains example mask list files. "
"`PrtPrefs' contains example printer preferences files. "
"`VideoRecorder' contains example video recorder files.\n\n"))
(set docsHelp
(cat "\n"
"VideoMaxe comes with two differently formatted files "
"containing its documentation. The first (VideoMaxe.doc) "
"is a plain ASCII text file (that could for example be "
"displayed with the standard text viewer More). The "
"second file (VideoMaxe.guide) is in AmigaGuide© format "
"and can be displayed by any hypertext displayer (e.g. "
"AmigaGuide).\n"
"I strongly urge to use the latter if you have the "
"opportunity to.\n\n"))
(set updateFilesHelp
(cat "\n"
"If you have worked with former versions of VideoMaxe "
"and there have been file format changes, you will want "
"to use these old files with the new version as well. "
"So, you have to update these files to the new formats.\n"
"This task is done by the CLI-Tool `VMConvert'; to "
"not let you nimble around with that Tool you can "
"comfortably update old files with this script!! "
"Simply choose the old file types you want to update; "
"you will then be asked for source and destination "
"file names.\n\n"))
(set V3XXVRECHelp
(cat "\n"
"Choose a VideoMaxe V3.XX video recorder file here. "
"In that release, these files normally were stored "
"in `VM:Treiber'. It will be updated to a video "
"recorder file that will work with the current "
"version of VideoMaxe.\n"
"If you have never worked with the 3.XX version "
"of VideoMaxe, you are completely wrong here.\n"
"Go away!\n\n"))
(set V3XXPROJECTHelp
(cat "\n"
"Choose a VideoMaxe V3.XX project file here. "
"In that release, these files normally were stored "
"in `VM:Projekte'. It will be updated to a project "
"file that will work with the current "
"version of VideoMaxe.\n"
"If you have never worked with the 3.XX version "
"of VideoMaxe, you are completely wrong here.\n"
"Go away!\n\n"))
;------------------
(PROCEDURE CopyCats
; ARGS: destDir
(if (NOT (exists "LOCALE:")) ; `LOCALE:' THERE?
((message "\n You have no LOCALE: directory; will copy "
"catalogs to program directory!")
(set catDest (tackon destDir "Catalogs"))
)
((set catDest ("LOCALE:Catalogs"))
)
) ; fi
(makedir catDest); maybe existent
(copyfiles (prompt "Which languages (additionally to the built-in language "
"english) should be supported by VideoMaxe?")
(source "Catalogs")
(dest catDest)
(choices "Deutsch"
"Français")
(confirm)
(help langHelp @copyfiles-help))
);ENDPROC CopyCats
;-----------------
;------------------
(PROCEDURE CopyDocs
; ARGS: destDir, docsHelp
(copyfiles (prompt "Which documentation files should be copied?")
(source "Docs")
(dest (tackon destDir "Docs"))
(choices "VideoMaxe.doc"
"VideoMaxe.guide")
(confirm)
(infos)
(noposition)
(help docsHelp @copyfiles-help))
);ENDPROC CopyDocs
;------------------
; INITIAL SETTINGS
(set steps %010)
(set destDir "Work:VideoMaxe")
(set @default-dest destDir)
; WELCOME OUT THERE!
(welcome)
; WHICH STEPS?
(set ok 0)
(until ok
(set steps (askoptions (prompt "Which steps should be performed?")
(default steps)
(help stepsHelp @askoptions-help)
(choices "Minor update"
"New installation"
"Update files")))
; STEPS 0 AND 1 SELECTED?
(set ok (NOT (AND (> (IN steps 0) 0) (> (IN steps 1) 0))))
(if (NOT ok) ((message "\nYou must not choose step 0 AND step 1!")))
)
(if (IN steps 0)
(
;====================================
(message "\nSTEP ZERO: MINOR UPDATE")
;====================================
; GET DEST DIR
(set ok 0)
(until ok
(set destDir (askdir (prompt "Please specify the directory VideoMaxe "
"is installed in:")
(default "VM:")
(help ©askdir-help)))
(set ok (exists destDir)) ; dest dir ok
(if (NOT ok) (message "\nSpecified directory does not exist!"))
)
(set @default-dest destDir)
; COPY DOC FILES
(CopyDocs)
; COPY LOCALIZATION FILES
(CopyCats)
;===================================
(message "\nMINOR UPDATE COMPLETE.")
;===================================
))
(if (IN steps 1)
(
;=======================================
(message "\nSTEP ONE: NEW INSTALLATION")
;=======================================
; GET DEST DIR
(set ok 0)
(until ok
(set destDir (askdir (prompt "Please specify the directory VideoMaxe "
"should be installed to (must be empty):")
(default "Work:VideoMaxe")
(help destDirHelp @askdir-help)))
(set ok 1) ; dest dir ok
(foreach destDir "#?" (set ok 0)) ; or not? - must be empty!
(if (NOT ok) (message "\nSpecified directory is not empty!"))
)
(set @default-dest destDir)
; CREATE DIRS
(working "Creating needed sub-directories...")
(makedir (tackon destDir "Config"))
(copyfile