home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 2 / FFMCD02.bin / new / biz / dbase / videomaxe / installvm < prev    next >
Text File  |  1993-12-21  |  14KB  |  439 lines
  1. ; $VER: InstallVM 02.00 (23 Nov 1993) © Stephan Sürken
  2.  
  3. ; TEXT DEFINITIONS
  4.  
  5. (set stepsHelp
  6.      (cat "\n"
  7.           "This window lets you choose the steps this script should "
  8.           "perform. It can be used for four main purposes:\n\n"
  9.           " (0) accomplish a minor update\n"
  10.           " (1) accomplish a complete new installation\n"
  11.           " (2) update older VideoMaxe files\n\n"
  12.           " You can freely choose which steps should actually be "
  13.           "performed, except that steps 0 and 1 exclude themselves.\n\n"
  14.           " STEP 0: Will only copy the VideoMaxe program file, "
  15.           "the new documentation files and the language "
  16.           "localization files. You should use this "
  17.           "if you want to install an update without file format "
  18.           "changes. Thus your VideoMaxe configuration "
  19.           "remain as it was (note that hence you will not "
  20.           "recognize new configuration design (e.g. new icons) "
  21.           "of the new release).\n"
  22.           " STEP 1: Will accomlish a complete new instalation "
  23.           "of VideoMaxe. Use this if you are a new user or "
  24.           "updating from the 3.XX version (as you can`t reuse "
  25.           "VideoMaxe 3.XX configuration...).\n"
  26.           "Choose this too if you are not sure what to select, "
  27.           "as this will in any case produce a runable installation "
  28.           "of the new version.\n"
  29.           " STEP 2: Lets you update older VideoMaxe files with "
  30.           "the CLI-Tool VMConvert.\n\n"
  31.           "Note that if you however forgot anything, you can "
  32.           "call this script again, performing only the "
  33.           "furthermore needed steps.\n\n"))
  34.  
  35. (set destDirHelp
  36.      (cat "\n"
  37.           "Into the directory you choose here all files "
  38.           "important for VideoMaxe are placed during the "
  39.           "installation procedure.\n"
  40.           "Note that this directory must be empty, so "
  41.           "normally you will create a new directory at "
  42.           "this point.\n\n"))
  43.  
  44. (set langHelp
  45.      (cat "\n"
  46.           "Since OS 2.1, the Amiga can operate in different "
  47.           "languages if the application supports them. VideoMaxe "
  48.           "up to now supports English (as default, `built-in` "
  49.           "language), German (Deutsch) and French (Français).\n"
  50.           "Simply check the languages you want VideoMaxe to "
  51.           "support.\n\n"))
  52.  
  53. (set exampleFilesHelp
  54.      (cat "\n"
  55.           "VideoMaxe comes with various example files.\n"
  56.           "`Projects' contains example project files. "
  57.           "`MaskList' contains example mask list files. "
  58.           "`PrtPrefs' contains example printer preferences files. "
  59.           "`VideoRecorder' contains example video recorder files.\n\n"))
  60.  
  61. (set docsHelp
  62.      (cat "\n"
  63.           "VideoMaxe comes with two differently formatted files "
  64.           "containing its documentation. The first (VideoMaxe.doc) "
  65.           "is a plain ASCII text file (that could for example be "
  66.           "displayed with the standard text viewer More). The "
  67.           "second file (VideoMaxe.guide) is in AmigaGuide© format "
  68.           "and can be displayed by any hypertext displayer (e.g. "
  69.           "AmigaGuide).\n"
  70.           "I strongly urge to use the latter if you have the "
  71.           "opportunity to.\n\n"))
  72.  
  73. (set updateFilesHelp
  74.      (cat "\n"
  75.           "If you have worked with former versions of VideoMaxe "
  76.           "and there have been file format changes, you won't want "
  77.           "to loose the data of these old files.\n"
  78.           "Thus, you have to update these files to the new formats.\n"
  79.           "This task is done by the CLI-Tool `VMConvert', shipped "
  80.           "with every release of VideoMaxe in the `Tools' directory; "
  81.           "to not let you nimble around with that Tool you can "
  82.           "comfortably update old files with this script!! "
  83.           "Simply choose the old file types you want to update; "
  84.           "you will then be asked for source and destination "
  85.           "file names.\n"
  86.           "This procedure won't do no harm as it will only convert "
  87.           "to non-existent destination files.\n\n"))
  88.  
  89. (set V3XXUpdateHelp
  90.      (cat "\n"
  91.           "Here you are updating files from the 3.XX version "
  92.           "to the format of the current version of VideoMaxe.\n"
  93.           "Choose a _source_ VideoMaxe V3.XX file of the specified "
  94.           "type and a _destination_ file here. The choosen "
  95.           "source file will then be updated into the choosen "
  96.           "destination file.\n"
  97.           "If you have never worked with the 3.XX version "
  98.           "of VideoMaxe, you are completely wrong here.\n"
  99.           "Go away!\n\n"))
  100.  
  101. (set V420UpdateHelp
  102.      (cat "\n"
  103.           "Here you are updating files from the 4.00-4.20 versions "
  104.           "to the format of the current version of VideoMaxe.\n"
  105.           "Choose a _source_ VideoMaxe V4.00-V4.20 file of the specified "
  106.           "type and a _destination_ file here. The choosen "
  107.           "source file will then be updated into the choosen "
  108.           "destination file.\n"
  109.           "If you have never worked with the 4.00-4.20 versions "
  110.           "of VideoMaxe, you are completely wrong here.\n"
  111.           "Go away!\n\n"))
  112.  
  113. ;------------------
  114. (PROCEDURE CopyCats
  115. ; ARGS: destDir
  116.  
  117. (if (NOT (exists "LOCALE:"))        ; `LOCALE:' THERE?
  118.      ((message "\n You have no LOCALE: directory; will copy "
  119.                "catalogs to program directory!")
  120.       (set catDest (tackon destDir "Catalogs"))
  121.      )
  122.      ((set catDest ("LOCALE:Catalogs"))
  123.      )
  124. ) ; fi
  125.  
  126. (makedir catDest); maybe existent
  127. (copyfiles (prompt "Which languages (additionally to the built-in language "
  128.                    "english) should be supported by VideoMaxe?")
  129.            (source "Catalogs")
  130.            (dest catDest)
  131.            (choices "Deutsch"
  132.                     "Français")
  133.            (confirm)
  134.            (help langHelp @copyfiles-help))
  135.  
  136. );ENDPROC CopyCats
  137. ;-----------------
  138.  
  139. ;------------------
  140. (PROCEDURE CopyDocs
  141. ; ARGS: destDir, docsHelp
  142.  
  143. (copyfiles (prompt "Which documentation files should be copied?")
  144.            (source "Docs")
  145.            (dest (tackon destDir "Docs"))
  146.            (choices "VideoMaxe.doc"
  147.                     "VideoMaxe.guide")
  148.            (confirm)
  149.            (infos)
  150.            (noposition)
  151.            (help docsHelp @copyfiles-help))
  152.  
  153. );ENDPROC CopyDocs
  154. ;------------------
  155.  
  156. ;-----------------------
  157. (PROCEDURE ConvertFiles
  158. ; ARGS: fileType,        ; the file type to be converted
  159. ;       sourceFile, destFile,    ; used as dir defaults...
  160. ;       versionUpdateHelp    ; information texts...
  161.  
  162.  
  163. ; CALC PROMPTS
  164. (set sourceFileSpecifyPrompt (cat "Please specify the old VideoMaxe "
  165.                                   "file of type: "
  166.                                   fileType))
  167. (set destFileSpecifyPrompt (cat "Please specify the name for "
  168.                                 "the updated output file:"))
  169.  
  170. ; WHILE
  171. (set ok 1)
  172. (while ok
  173.        ; GET SOURCE
  174.        (set sourceFile (askfile (prompt sourceFileSpecifyPrompt)
  175.                                 (default sourceFile)
  176.                                 (help versionUpdateHelp @askfile-help)))
  177.        ; GET DEST
  178.        (set destFile (askfile (prompt destFileSpecifyPrompt)
  179.                               (default destFile)
  180.                               (help versionUpdateHelp @askfile-help)))
  181.        (if (exists destFile)
  182.            ((message "\nCan't convert: Destination file already exists!"))
  183.            ((run ("Tools/VMConvert >CON:20/20/400/200/VMConvert/CLOSE/WAIT %s %s %s" fileType sourceFile destFile)))
  184.        )
  185.        (set ok (askbool (prompt "\nUpdate more files of that type?\n")
  186.                         (help ©askbool-help)
  187.                         (choices "Yes" "No")))
  188. )
  189.  
  190. );ENDPROC ConvertFiles
  191. ;----------------------
  192.  
  193.  
  194. ; INITIAL SETTINGS
  195.  
  196. (set steps %010)
  197. (set destDir "Work:VideoMaxe")
  198. (set @default-dest destDir)
  199.  
  200. ; WELCOME OUT THERE!
  201.  
  202. (welcome)
  203.  
  204. ; WHICH STEPS?
  205.  
  206. (set ok 0)
  207. (until ok
  208.  
  209.        (set steps (askoptions (prompt "Which steps should be performed?")
  210.                               (default steps)
  211.                               (help stepsHelp @askoptions-help)
  212.                               (choices "Minor update"
  213.