home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / AdPro2_5_0ConversionPack.DMS / in.adf / Install-PCP < prev    next >
Encoding:
Text File  |  1993-12-18  |  13.4 KB  |  572 lines
  1. ; ************************************************
  2. ; *
  3. ; * Install-PCP
  4. ; *
  5. ; * $VER: Install-PCP 2.5.0 (18.12.93)
  6. ; *
  7. ; * This is the installation script for ASDG's Professional Conversion Pack 2.5.0.
  8. ; *
  9. ; * Copyright © 1992-1994 ASDG Incorporated
  10. ; * All Rights Reserved
  11. ; *
  12. ; ************************************************
  13.  
  14.  
  15. ; ****************************
  16. ; * Set up some global variables.
  17. ; ****************************
  18. ;
  19. (set ProductName    "Professional Conversion Pack")    ; product name
  20. (set ProductBaseName    "PCP")                ; product base name
  21. (set ADProName        "Art Department Professional")    ; ADPro name
  22. (set ADProBaseName    "ADPro")            ; ADPro base name
  23. (set MPName        "MorphPlus")            ; MorphPlus name
  24. (set MPBaseName        "MorphPlus")            ; MorphPlus base name
  25. (set VersionNum        "2.5.0")            ; product version number
  26.  
  27. (set OSVersion        (/ (getversion) 65536))
  28. (set TotalFiles        0)
  29. (set AccumFiles        0)
  30. (set PctDone        0)
  31. (set DisplayReadMe    0)
  32.  
  33. (set DiskName            "PCP_D1")    ; actual name of PCP disk
  34.  
  35. (set DiskInstall        DiskName)    ; installation (main) disk
  36. (set DiskLoaders        DiskName)    ; common loaders disk
  37. (set DiskSavers            DiskName)    ; common savers disk
  38. (set DiskFREDScripts        DiskName)    ; FRED Scripts disk
  39.  
  40.  
  41.  
  42.  
  43. (procedure setPkgOpts
  44. ;
  45. ; ****************************
  46. ; * Ask the user which parts of the package should be installed.
  47. ; ****************************
  48. ;
  49.     (
  50.     (set PkgOpts
  51.         (askoptions
  52.             (prompt
  53.                 ("Select the parts of the %s package you want to install " ProductName)
  54.                 "at this time."
  55.             )
  56.             (help
  57.                 "This part of the installation procedure lets you select the "
  58.                 ("parts of the %s package you want to install at this time.\n" ProductName)
  59.                 "\n"
  60.                 "*** Loader and Saver Modules\n"
  61.                 "This option lets you install all of the loader and saver "
  62.                 "modules that are supplied and supported by ASDG for use with "
  63.                 ("%s and %s.\n" ADProName MPName)
  64.                 "\n"
  65.                 "*** ARexx Scripts\n"
  66.                 "This option lets you install some pre-written FRED Invoke ADPro "
  67.                 "scripts (i.e., FREDScripts) for your convenience.\n"
  68.                 "\n"
  69.                 "*** ReadMe\n"
  70.                 "This option lets you install the ReadMe file from disk 1 "
  71.                 "onto your floppy or hard disk to use as a reference.\n"
  72.                 "\n"
  73.                 @askoptions-help
  74.             )
  75.             (choices
  76.                 ; bit position 0 -- todo & 1
  77.                 ;
  78.                 "Loader and Saver Modules"
  79.  
  80.                 ; bit position 1 -- todo & 2
  81.                 ;
  82.                 "ARexx Scripts"
  83.  
  84.                 ; bit position 2 -- todo & 4
  85.                 ;
  86.                 "ReadMe"
  87.             )
  88.         )
  89.     )
  90.     )
  91. )
  92.  
  93.  
  94. (procedure calcBitMaskAllOn
  95. ;
  96. ; ****************************
  97. ; * Calculate the decimal value of a bit mask with all bits on (= 1).
  98. ; ****************************
  99. ;
  100. ; these variables must be defined before calling this procedure:
  101. ;    numBits
  102. ;
  103. ; this procedure returns the calculated value in BitMaskValue
  104. ;
  105.     (
  106.     (set currBit 1)
  107.     (set BitMaskValue 1)
  108.     (while (<= currBit numBits)
  109.         (
  110.         (set BitMaskValue (* BitMaskValue 2))
  111.         (set currBit (+ currBit 1))
  112.         )
  113.     )
  114.     (set BitMaskValue (- BitMaskValue 1))
  115.     )
  116. )
  117.  
  118.  
  119. (procedure setDirPath
  120. ;
  121. ; ****************************
  122. ; * Ask the user for a directory name.
  123. ; ****************************
  124. ;
  125. ; these variables must be defined before calling this procedure:
  126. ;    setDirPathWhy
  127. ;    setDirPathHelp
  128. ;    DirPath
  129. ;
  130. ; this procedure returns the selected directory in DirPath
  131. ;
  132.     (
  133.     (set moveon    FALSE)
  134.     (while (NOT moveon)
  135.         (
  136.         (set DirPath
  137.             (askdir
  138.                 (prompt    ("Please select the directory %s" setDirPathWhy)
  139.                 )
  140.                 (help    setDirPathHelp
  141.                     "\n"
  142.                     @askdir-help
  143.                 )
  144.                 (default DirPath)
  145.             )
  146.         )
  147.  
  148.         (if (= (exists DirPath) 0)
  149.             (makedir DirPath)
  150.             (set moveon    TRUE)
  151.         )
  152.         )
  153.     )
  154.     )
  155. )
  156.  
  157.  
  158. (procedure copyLibFile
  159. ;
  160. ; ****************************
  161. ; * Copy the specific library file to the LIBS: directory.
  162. ; ****************************
  163. ;
  164. ; these variables must be defined before calling this procedure:
  165. ;
  166. ;    copyLibFileName
  167. ;    copyLibFileHelp
  168. ;    DirPath
  169. ;
  170.     (
  171.     (if (= (exists (tackon DirPath copyLibFileName)) 1)
  172.         (
  173.         (protect (tackon DirPath copyLibFileName) "+rwed")
  174.         )
  175.     )
  176.     (copylib
  177.         (prompt    ("Copying %s to %s" copyLibFileName DirPath))
  178.         (help    copyLibFileHelp
  179.             "\n"
  180.             "If you already have a copy of this library in the selected destination directory, the library "
  181.             "included on the distribution disk will be compared to the one you "
  182.             "already have. If your current library is an old version, the newer "
  183.             "version will be installed.\n"
  184.             "\n"
  185.             @copylib-help
  186.         )
  187.         (source copyLibFileName)
  188.         (dest DirPath)
  189.         (confirm)
  190.     )
  191.     )
  192. )
  193.  
  194.  
  195. (procedure incrementMeter
  196. ;
  197. ; ****************************
  198. ; * Increment the progress meter indicator.
  199. ; ****************************
  200. ;
  201. ;    addToMeter
  202. ;
  203.     (
  204.     (set PctDone    (/ (* AccumFiles 100) TotalFiles))
  205.     (set AccumFiles    (+ AccumFiles addToMeter))
  206.     (complete PctDone)
  207.     )
  208. )
  209.  
  210.  
  211. ; ****************************
  212. ; * ADPro Module Installation routine
  213. ; ****************************
  214. ;
  215. (procedure installADProModule
  216. ;
  217. ; This procedure does the work of de-arcing and copying files.
  218. ; It requires initialization of variables:
  219. ;    moduleArcName
  220. ;    moduleFileName
  221. ;    moduleType
  222. ;    moduleDestDir
  223. ;    modulesToDo
  224. ;    moduleCurrN
  225. ;
  226.     (
  227.     (set addToMeter    1)
  228.     (incrementMeter)
  229.  
  230.     (if (IN modulesToDo moduleCurrN)
  231.         (
  232.         (protect (tackon moduleDestDir moduleFileName) "+rwed")
  233.         (delete (tackon moduleDestDir moduleFileName))
  234.  
  235.         (set workingMsg        ("Installing %s %s..." moduleFileName moduleType))
  236.         (set arcFileName    moduleArcName)
  237.         (set srcFileName    moduleFileName)
  238.         (set destDirName    moduleDestDir)
  239.         (extractLZFile2Dir)
  240.         )
  241.     )
  242.     )
  243. )
  244.  
  245.  
  246. ; ****************************
  247. ; * PCP Installation routine
  248. ; ****************************
  249. ;
  250. (procedure PCPInstall
  251.     (
  252.     (makeassign "PCPINSTALL" ADProDir)
  253.  
  254.  
  255.     ; ****************************
  256.     ; * copy adpro.library to the ADPRO: directory.
  257.     ; ****************************
  258.     ;
  259.     (set addToMeter    1)
  260.     (incrementMeter)
  261.  
  262.     (set copyLibFileName    ("%s:Libs/adpro.library" DiskInstall))
  263.     (set copyLibFileHelp    ("This library is required to run many of the %s modules.\n" ProductBaseName))
  264.     (set DirPath        ADProDir)
  265.     (copyLibFile)
  266.  
  267.  
  268.     ; ****************************
  269.     ; * delete adpro.library from the LIBS: directory, if it exists.
  270.     ; ****************************
  271.     ;
  272.     (if (AND (= (exists (tackon ADProDir "adpro.library")) 1) (= (exists "LIBS:adpro.library") 1))
  273.         (
  274.         (protect "LIBS:adpro.library" "+rwed")
  275.         (delete "LIBS:adpro.library")
  276.         )
  277.     )
  278.  
  279.  
  280.     ; ****************************
  281.     ; * Install the Selected Loaders
  282.     ; ****************************
  283.     ;
  284.     (set ADProLoadersDir    (tackon ADProDir "Loaders2"))
  285.     (onerror
  286.         (abort    ("The directory %s could not be created. " ADProLoadersDir)
  287.             "This might be because your destination disk or drawer "
  288.             "has no room or is write protected. This installation "
  289.             "cannot continue."
  290.         )
  291.     )
  292.     (if (= (exists ADProLoadersDir) 0)
  293.         (makedir ADProLoadersDir)
  294.     )
  295.     (makeassign "PCPINSTALL" ADProLoadersDir)
  296.     (onerror
  297.         (cleanUp)
  298.     )
  299.  
  300.     (copyfiles
  301.         (prompt    "Installing PCP Loaders...")
  302.         (help    "")
  303.         (source    ("%s:Loaders2" DiskLoaders))
  304.         (dest    "PCPINSTALL:")
  305.         (all)
  306.     )
  307.  
  308.  
  309.     ; ****************************
  310.     ; * Install the Selected Savers
  311.     ; ****************************
  312.     ;
  313.     (set ADProSaversDir    (tackon ADProDir "Savers2"))
  314.     (onerror
  315.         (abort    ("The directory %s could not be created. " ADProSaversDir)
  316.             "This might be because your destination disk or drawer "
  317.             "has no room or is write protected. This installation "
  318.             "cannot continue."
  319.         )
  320.     )
  321.     (if (= (exists ADProSaversDir) 0)
  322.         (makedir ADProSaversDir)
  323.     )
  324.     (makeassign "PCPINSTALL" ADProSaversDir)
  325.     (onerror
  326.         (cleanUp)
  327.     )
  328.  
  329.     (copyfiles
  330.         (prompt    "Installing PCP Savers...")
  331.         (help    "")
  332.         (source    ("%s:Savers2" DiskSavers))
  333.         (dest    "PCPINSTALL:")
  334.         (all)
  335.     )
  336.     )
  337. )
  338.  
  339.  
  340. ; ****************************
  341. ; * ARexxScript Installation routine
  342. ; ****************************
  343. ;
  344. (procedure ARexxScriptInstall
  345.     (
  346.     (makeassign "PCPINSTALL" FREDScriptDir)
  347.  
  348.     (set addToMeter    1)                ; 1 operation
  349.     (incrementMeter)
  350.  
  351.     (copyfiles
  352.         (prompt    "Installing PCP-related FRED Scripts...")
  353.         (help    "")
  354.         (source    ("%s:FREDScripts/FREDSavers" DiskFREDScripts))
  355.         (dest    "PCPINSTALL:")
  356.         (all)
  357.     )
  358.     )
  359. )
  360.  
  361.  
  362. ; ****************************
  363. ; * ReadMe Installation routine
  364. ; ****************************
  365. ;
  366. (procedure ReadMeInstall
  367.     (
  368.     (makeassign "PCPINSTALL" ReadMeDir)
  369.  
  370.     (set addToMeter    2)
  371.     (incrementMeter)
  372.  
  373.     (copyfiles
  374.         (prompt        ("Installing ReadMe file as ReadMe_%s_%s..." ProductBaseName VersionNum))
  375.         (help        "")
  376.         (source        ("%s:ReadMe" DiskInstall))
  377.         (dest        "PCPINSTALL:")
  378.         (newname    ("ReadMe_%s_%s" ProductBaseName VersionNum))
  379.         (infos)
  380.     )
  381.  
  382.     (if (= (exists ("PCPINSTALL:ReadMe_%s_%s.info" ProductBaseName VersionNum)) 1)
  383.         (
  384.         (if (>= OSVersion 39)
  385.             (set ReadMeTool    "MultiView")
  386.             (set ReadMeTool    "More")
  387.         )
  388.  
  389.         (tooltype
  390.             (prompt        "")
  391.             (help        "")
  392.             (dest        ("PCPINSTALL:ReadMe_%s_%s" ProductBaseName VersionNum))
  393.             (setdefaulttool    ReadMeTool)
  394.             (noposition)
  395.         )
  396.         )
  397.     )
  398.     )
  399. )
  400.  
  401.  
  402. ; ****************************
  403. ; * General CleanUp routine
  404. ; ****************************
  405. ;
  406. (procedure cleanUp
  407.     (
  408.     ; ****************************
  409.     ; * remove temporary assignment
  410.     ; ****************************
  411.     ;
  412.     (makeassign "PCPINSTALL")
  413.  
  414.  
  415.     ; ****************************
  416.     ; * exit the program.
  417.     ; ****************************
  418.     ;
  419.     (if (= DisplayReadMe 1)
  420.         (
  421.         (run ("run %s:C/More %s:ReadMe" DiskInstall DiskInstall))
  422.         (complete 100)
  423.         (exit)
  424.         )
  425.     )
  426.     )
  427. )
  428.  
  429.  
  430. ; *************************************************************************
  431. ; *                         ACTUAL START OF SCRIPT
  432. ; *
  433. ; * Ask all questions for the user now, do all of the work later.
  434. ; *************************************************************************
  435. ;
  436.  
  437. (onerror
  438.     (cleanUp)
  439. )
  440.  
  441. (if (< OSVersion 37)
  442.     (abort    ("\nThe %s version %s requires at least AmigaOS 2.04 to run.\n" ProductName VersionNum)
  443.         "\n"
  444.         "Press the Proceed button to stop the installation procedure.\n")
  445. )
  446.  
  447.  
  448. ; ****************************
  449. ; * set the default destination to ADPRO: (if exists) or SYS:<ProductBaseName> (if it doesn't).
  450. ; ****************************
  451. ;
  452. (if (= (getassign "ADPRO" "a") "")
  453.     (set @default-dest ("SYS:%s" ProductBaseName))
  454.     (set @default-dest (getassign "ADPRO" "a"))
  455. )
  456. ;(set @default-dest ("SYS:%s" ProductBaseName))
  457.  
  458. (setPkgOpts)
  459.  
  460.  
  461. ; ****************************
  462. ; * if (PkgOpts & 0), ask the user where to install the loader and saver modules,
  463. ; * but don't actually do it yet.
  464. ; ****************************
  465. ;
  466. (if (IN PkgOpts 0)                ; if bit position 0 is on
  467.     (
  468.     (set TotalFiles        (+ TotalFiles 1))    ; adpro.library
  469.  
  470.     (set continueOn        0)
  471.     (while (<> continueOn 1)
  472.         (
  473.         (set setDirPathWhy    ("where the %s or %s program is located." ADProBaseName MPBaseName))
  474.         (set setDirPathHelp     ("This part of the installation is asking you where the %s or %s program is currently located.  The %s modules will be installed in the Loaders2 and Savers2 subdirectories of this selected directory.\n" ADProBaseName MPBaseName ProductBaseName))
  475.         (set DirPath        @default-dest)
  476.         (setDirPath)
  477.  
  478.         (if (= 1 (askbool
  479.                 (prompt    ("\nThe %s modules will be installed in the Loaders2 and Savers2 subdirectories of the following directory:\n\n%s\n\n\nIs this correct?" ProductBaseName DirPath))
  480.                 (help    ("This panel displays what you have told the Installer is the directory where the %s modules will be installed. " ProductBaseName)
  481.                     "It is so that you know exactly where the files will be placed.\n"
  482.                     "\n"
  483.                     "To select a different directory, press the No button. Otherwise, press the "
  484.                     "Yes button to proceed with the installation process.\n")))
  485.             (set continueOn        1)
  486.         )
  487.         )
  488.     )
  489.  
  490.     (set ADProDir        DirPath)
  491.     (set @default-dest    ADProDir)
  492.     )
  493. )
  494.  
  495.  
  496. ; ****************************
  497. ; * if (PkgOpts & 1), ask the user where to install the FRED ARexx scripts,
  498. ; * but don't actually do it yet.
  499. ; ****************************
  500. ;
  501. (if (<> (getassign "FREDSCRIPTS" "a") "")
  502.     (set defaultFREDScriptDir (getassign "FREDSCRIPTS" "a"))
  503.     (
  504.     (if (<> (exists (tackon ADProDir "Rexx")) 0)
  505.         (set defaultFREDScriptDir (tackon ADProDir "Rexx"))
  506.         (
  507.         (if (<> (exists (tackon ADProDir "Scripts")) 0)
  508.             (set defaultFREDScriptDir (tackon ADProDir "Scripts"))
  509.             (set defaultFREDScriptDir "REXX:")
  510.         )
  511.         )
  512.     )
  513.     )
  514. )
  515. (if (= (exists (tackon defaultFREDScriptDir "FREDSavers")) 1)
  516.     (set defaultFREDScriptDir (tackon defaultFREDScriptDir "FREDSavers"))
  517. )
  518. (if (IN PkgOpts 1)                ; if bit position 1 is on
  519.     (
  520.     (set setDirPathWhy    "where you want to install the FREDSavers scripts.")
  521.     (set setDirPathHelp    "You must select a directory into which the FREDSavers ARexx scripts will be installed.\n")
  522.     (set DirPath        defaultFREDScriptDir)
  523.     (setDirPath)
  524.     (set FREDScriptDir    DirPath)
  525.  
  526.     (set TotalFiles    (+ TotalFiles 1))            ; 1 operation
  527.     )
  528. )
  529.  
  530.  
  531. ; ****************************
  532. ; * if (PkgOpts & 2), ask the user where to install the package's ReadMe file
  533. ; * from disk 1.
  534. ; ****************************
  535. ;
  536. (if (IN PkgOpts 2)                ; if bit position 2 is on
  537.     (
  538.     (set setDirPathWhy    "where you want to install the ReadMe file.")
  539.     (set setDirPathHelp    "Although the ReadMe file will be displayed at the end of the installation process, you should install it onto your hard disk for future reference.  There is a lot of important information in the ReadMe which for one reason or another was left out of the manual.\n")
  540.     (set DirPath        @default-dest)
  541.     (setDirPath)
  542.  
  543.     (set ReadMeDir        DirPath)
  544.  
  545.     (set TotalFiles (+ TotalFiles 2))            ; ReadMe + icon
  546.     )
  547. )
  548.  
  549.  
  550. (complete 0)
  551.  
  552. (message "\nShall I proceed with the installation?"
  553.     (help    "Once you press the Proceed button, the PCP modules will be installed.  This is your last chance "
  554.         "to abort this procedure without partially installing the selected files.\n"
  555.         "\n"
  556.         "After you press Proceed, you can use the Esc key to abort the installation procedure.\n")
  557. )
  558.  
  559.  
  560. (if (IN PkgOpts 0)
  561.     (PCPInstall)
  562. )
  563. (if (IN PkgOpts 1)
  564.     (ARexxScriptInstall)
  565. )
  566. (if (IN PkgOpts 2)
  567.     (ReadMeInstall)
  568. )
  569.  
  570. (set DisplayReadMe    1)
  571. (cleanUp)
  572.