home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 3 / CD_Magazyn_EXEC_nr_3.iso / eXec / PhotoFolio / PhotoFolio2Demo.lha / Install-PhotoFolio < prev    next >
Text File  |  2000-05-03  |  27KB  |  800 lines
  1. ; Install PhotoFolio
  2. ; $VER: Install-PhotoFolio V2.1 (3.5.2000)
  3. ; © 2000 Steeple Software
  4.  
  5. (set #catalog 0) ; english language is default
  6.  
  7. ; Find the current language
  8. (set #i 0)
  9. (while (set #thisfile (select #i
  10.         "english" "italiano" "deutsch" "español" "czech" "català" "dansk" "français"
  11.         "hrvatski" "nederlands" "norsk" "polski" "português"
  12.         "russian" "srpski" "suomi" "svenska" "ÃeÓtina"
  13.         ""))
  14.     (
  15.         (if (= @language #thisfile)
  16.             (
  17.                 (set #catalog #i)
  18.                 (set #catalogname #thisfile)
  19.             )
  20.         )
  21.         (set #i (+ #i 1))
  22.     )
  23. )
  24.  
  25. ; Query user for their language, using system as default
  26. (set #catalog
  27.     (askchoice
  28.         (prompt "Select your native language (language for installer)")
  29.         (help @askoptions-help)
  30.         (choices "English" "Italiano" "Deutsch" "Español" "Czech")
  31.         (default #catalog)
  32.     )
  33. )
  34.  
  35. ; Reset #catalogname as the user may have changed the language above
  36. (if (< #catalog 5)
  37.     (
  38.         (set #catalogname (select #catalog "english" "italiano" "deutsch" "español" "czech"))
  39.     )
  40. )
  41.  
  42. ; Some string defaults common for all languages
  43. (set #HOMEPAGE "http://mafeking.scouts.org.au/photofolio")
  44. (set #BLANK "\n")
  45.  
  46.  
  47. ; ************************** English texts ******************************
  48. (set #INITIAL_MESSAGE
  49.   (cat "\nWelcome to the PhotoFolio installer\n\n\n"
  50.     "The authors, Steve Quartly and Paul Huxham\n"
  51.     "would like to thank you\n"
  52.     "for choosing and using PhotoFolio\n\n\n"
  53.     "You can obtain updates, mailing list and other information\nabout PhotoFolio at the PhotoFolio homepage\n"
  54.     #HOMEPAGE)
  55. )
  56. (set #WRONG_INSTALLER_VERSION "\n\n\n\nYou need at least version 42.9 of Installer\nto install PhotoFolio")
  57. (set #WRONG_CPU "\n\n\n\nYou need a 68020 CPU or better\nto run PhotoFolio")
  58. (set #WRONG_OS_VERSION "\n\n\n\nYou need at least AmigaOS V3.0\nto run PhotoFolio")
  59. (set #PROMPT_INSTALL_MUI "\nMUI installation is required to use PhotoFolio.\n\nDo you want to run the MUI installer now?")
  60. (set #REBOOT_REQUIRED "\n\n\n\nA reboot is required after a MUI installation")
  61. (set #INSTALL_CANCELLED "\n\n\n\nInstallation of PhotoFolio has been cancelled")
  62. (set #INSTALLING_LIBRARIES "\nInstalling PhotoFolio library")
  63. (set #INSTALLING_MCC "\nInstalling MUI custom class")
  64. (set #SELECT_INSTALL_DIRECTORY "Select a directory to install PhotoFolio into.\n(If you want PhotoFolio in its own directory - create one now)")
  65. (set #CHECKING_SYSTEM "\n\n\n\nChecking system...")
  66. (set #PROMPT_INSTALL_IMAGEIOPREFS "\nInstall imageio.library prefs?\n\n(Used to alter the loading formats and\nother parameters of image loading)")
  67. (set #INSTALLING_IMAGEIOPREFS "\nInstalling imageio.library prefs")
  68. (set #INSTALL_MYSTICVIEW "\nInstall mysticview.library?\n\n(Optional library used as an alternate image viewer)")
  69. (set #INSTALLING_PROGRAM "\n\n\n\nInstalling PhotoFolio program")
  70. (set #PROMPT_INSTALL_DOCS "\nInstall PhotoFolio documentation?")
  71. (set #INSTALLING_DOCS "\nInstalling PhotoFolio documentation")
  72. (set #PROMPT_INSTALL_CATALOG "\nWhich language catalogs would you like to install?")
  73. (set #INSTALLING_CATALOG "\nInstalling PhotoFolio catalog")
  74. (set #PROMPT_INSTALL_VLABGRAB "\nInstall vlab.mcc?\n\n(Optional MUI custom class for grabbing images\nfrom VLab directly into PhotoFolio)")
  75. (set #INSTALLING_VLABGRAB "\nInstalling vlab.mcc")
  76. (set #PROMPT_INSTALL_OPENURL "\nInstall openurl.library?\n\n(Optional browser support library)")
  77. (set #PROMPT_INSTALL_OPENURLPREFS "\nInstall OpenURL preferences?")
  78. (set #PROMPT_INSTALL_AREXX "\nInstall ARexx scripts?\n\n(Optional ARexx scripts for use in PhotoFolio)")
  79. (set #INSTALLING_AREXX "\nInstalling ARexx scripts")
  80. (set #UPDATES_AVAILABLE "\nUpdates of PhotoFolio and its required libraries\n\nare available from the PhotoFolio home page")
  81. (set #YES "Yes")
  82. (set #NO "No")
  83.  
  84. ; ************************** Italiano texts *****************************
  85. (if (= #catalog 1)
  86. (
  87. (set #INITIAL_MESSAGE
  88.   (cat "\nBenvenuto nell'installazione di PhotoFolio\n\n\n"
  89.      "Gli autori, Steve Quartly e Paul Huxham\n"
  90.      "desiderano ringrazziarti per aver\n"
  91.      "scelto e deciso di usare PhotoFolio\n\n\n"
  92.      "Puoi ottenere gli aggiornamenti, la mailing list e altre informazioni\nsu PhotoFolio alla homepage di PhotoFolio.\n"
  93.      #HOMEPAGE)
  94. )
  95. (set #WRONG_INSTALLER_VERSION "\n\n\n\nNecessiti almeno della versione 42.9 dell'Installer\nper installare PhotoFolio")
  96. (set #WRONG_CPU "\n\n\n\nNecessiti di una CPU 68020 o superiore\nper usare PhotoFolio")
  97. (set #WRONG_OS_VERSION "\n\n\n\nNecessiti almeno di AmigaOS V3.0\nper usare PhotoFolio")
  98. (set #PROMPT_INSTALL_MUI "\nL'installazione MUI è richiesta per usare PhotoFolio.\n\nVuoi lanciare l'installazione MUI adesso?")
  99. (set #REBOOT_REQUIRED "\n\n\n\nÈ necessario un riavviamento dopo l'installazione MUI")
  100. (set #INSTALL_CANCELLED "\n\n\n\nL'installazione di PhotoFolio è stata annullata")
  101. (set #INSTALLING_LIBRARIES "\nInstallazione PhotoFolio library in corso")
  102. (set #INSTALLING_MCC "\nInstallazione classi MUI in corso")
  103. (set #SELECT_INSTALL_DIRECTORY "Seleziona una directory nella quale installare PhotoFolio.\n(Se vuoi PhotoFolio in una sua specifica directory - creane una adesso)")
  104. (set #CHECKING_SYSTEM "\n\n\n\nSto controllando il sistema...")
  105. (set #PROMPT_INSTALL_IMAGEIOPREFS "\nInstallare preferenze per l'imageio.library?\n\n(Usata per alterare i formati di caricamento e\naltri paramentri del caricamento delle immagini)")
  106. (set #INSTALLING_IMAGEIOPREFS "\nInstallazione preferenze imageio.library in corso")
  107. (set #INSTALL_MYSTICVIEW "\nInstalla mysticview.library?\n\n(Libreria opzionale usata come visualizzatore immagini alternativo)")
  108. (set #INSTALLING_PROGRAM "\n\n\n\nInstallazione programma PhotoFolio in corso")
  109. (set #PROMPT_INSTALL_DOCS "\nInstalla documentazione PhotoFolio?")
  110. (set #INSTALLING_DOCS "\nInstallazione documentazione PhotoFolio in corso")
  111. (set #PROMPT_INSTALL_CATALOG "\nQuale catalogo della lingua desideri installare?")
  112. (set #INSTALLING_CATALOG "\nInstallazione catalogo PhotoFolio")
  113. (set #PROMPT_INSTALL_VLABGRAB "\nInstalla vlab.mcc?\n\n(Classe MUI esterna e opzionale per acquisire le immagini\nda VLab direttamente in PhotoFolio)")
  114. (set #INSTALLING_VLABGRAB "\nInstallazione vlab.mcc in corso")
  115. (set #PROMPT_INSTALL_OPENURL "\nInstalla openurl.library?\n\n(Libreria opzionale di supporto ai browser WWW)")
  116. (set #PROMPT_INSTALL_OPENURLPREFS "\nInstallare preferenze OpenURL?")
  117. (set #PROMPT_INSTALL_AREXX "\nInstallare gli script ARexx?\n\n(Script ARexxx opzionali da usare in PhotoFolio)")
  118. (set #INSTALLING_AREXX "\nInstallazione script ARexx in corso")
  119. (set #UPDATES_AVAILABLE "\nAggiornamenti di PhotoFolio e le librarie richieste\n\nsono disponibili sulla home page di PhotoFolio")
  120. (set #YES "Sì")
  121. (set #NO "No")
  122. )
  123. )
  124.  
  125. ; ************************** Deutsch texts ******************************
  126. (if (= #catalog 2)
  127. (
  128. (set #INITIAL_MESSAGE
  129.   (cat "\nWillkommen zur Installation von PhotoFolio\n\n\n"
  130.     "Die Autoren, Steve Quartly und Paul Huxham\n"
  131.     "möchten Ihnen danken, dass\n"
  132.     "Sie sich für PhotoFolio entschieden haben\n\n\n"
  133.     "Updates, eine Mailingliste und weitere Information\nüber PhotoFolio gibt es auf der PhotoFolio Homepage\n"
  134.     #HOMEPAGE)
  135. )
  136. (set #WRONG_INSTALLER_VERSION "\n\n\n\nSie benötigen mind. Version 42.9 des Installers\num PhotoFolio zu installieren")
  137. (set #WRONG_CPU "\n\n\n\nSie benötigen einen 68020 oder höher\num PhotoFolio ausführen zu können")
  138. (set #WRONG_OS_VERSION "\n\n\n\nSie benötigen mind. AmigaOS V3.0\num PhotoFolio ausführen zu können")
  139. (set #PROMPT_INSTALL_MUI "\nPhotoFolio benötigt ein installiertes MUI.\n\nWollen Sie MUI jetzt installieren?")
  140. (set #REBOOT_REQUIRED "\n\n\n\nNach der Installation von MUI müssen Sie Ihren Amiga neu starten")
  141. (set #INSTALL_CANCELLED "\n\n\n\nDie Installation von PhotoFolio wurde abgebrochen")
  142. (set #INSTALLING_LIBRARIES "\nPhotoFolio Library wird installiert")
  143. (set #INSTALLING_MCC "\nMUI Custom Class wird installiert")
  144. (set #SELECT_INSTALL_DIRECTORY "Wählen Sie ein Verzeichnis in das Sie PhotoFolio installieren wollen.\n(Falls Sie PhotoFolio in ein eigenes Verzeichnis installieren wollen müssen Sie es jetzt erstellen)")
  145. (set #CHECKING_SYSTEM "\n\n\n\nÜberprüfe System...")
  146. (set #PROMPT_INSTALL_IMAGEIOPREFS "\nImageio.library Prefs installieren?\n\n(Zum Ändern des Ladeformats und\nanderer Parameter des Ladens von Bildern)")
  147. (set #INSTALLING_IMAGEIOPREFS "\nImageio.library Prefs wird installiert")
  148. (set #INSTALL_MYSTICVIEW "\nMysticview.library installieren?\n\n(Optionale Library zur Anzeige von Bildern)")
  149. (set #INSTALLING_PROGRAM "\n\n\n\nPhotoFolio Programm wird installiert")
  150. (set #PROMPT_INSTALL_DOCS "\nPhotoFolio Dokumentation installieren?")
  151. (set #INSTALLING_DOCS "\nPhotoFolio Dokumentation wird installiert")
  152. (set #PROMPT_INSTALL_CATALOG "\nWelche Sprachen wollen Sie installieren?")
  153. (set #INSTALLING_CATALOG "\nPhotoFolio Sprachdatei wird installiert")
  154. (set #PROMPT_INSTALL_VLABGRAB "\nVlab.mcc installieren?\n\n(Optionale MUI Klasse zur Übertragung von Bildern\nüber eine VLab direkt in PhotoFolio)")
  155. (set #INSTALLING_VLABGRAB "\nInstalling vlab.mcc")
  156. (set #PROMPT_INSTALL_OPENURL "\nOpenurl.library installieren?\n\n(Optionale Library zur Unterstützung von Internet-Software)")
  157. (set #PROMPT_INSTALL_OPENURLPREFS "\nInstall OpenURL preferences?")
  158. (set #PROMPT_INSTALL_AREXX "\nARexx Skripte installieren?\n\n(Optionale ARexx Skripte für PhotoFolio)")
  159. (set #INSTALLING_AREXX "\nARexx Skripte werden installiert")
  160. (set #UPDATES_AVAILABLE "\nUpdates für PhotoFolio und den dazugehörigen libraries\n\ngibt es auf der PhotoFolio Homepage")
  161. (set #YES "Ja")
  162. (set #NO "Nein")
  163. )
  164. )
  165.  
  166. ; ************************** Español texts ******************************
  167. (if (= #catalog 3)
  168. (
  169. (set #INITIAL_MESSAGE
  170.   (cat "\nBienvenido a la instalación de PhotoFolio\n\n\n"
  171.     "Los autores, Steve Quartly y Paul Huxham\n"
  172.     "te dan las gracias\n"
  173.     "por elegir y utilizar PhotoFolio\n\n\n"
  174.     "Podrás obtener actualizaciones, acceder a listas de correo y tener más información\nsobre PhotoFolio en la página web de PhotoFolio\n"
  175.     #HOMEPAGE)
  176. )
  177. (set #WRONG_INSTALLER_VERSION "\n\n\n\nNecesitas al menos la versión 42.9 del Installer\npara instalar PhotoFolio")
  178. (set #WRONG_CPU "\n\n\n\nNecesitas un 68020 o superior\npara utilizar PhotoFolio")
  179. (set #WRONG_OS_VERSION "\n\n\n\nNecesitas al menos AmigaOS V3.0\npara utilizar PhotoFolio")
  180. (set #PROMPT_INSTALL_MUI "\nLa instalación de MUI es necesaria para utilizar PhotoFolio.\n\n¿Quieres ejecutar el instalador de MUI ahora?")
  181. (set #REBOOT_REQUIRED "\n\n\n\nDebes resetear después de instalar MUI")
  182. (set #INSTALL_CANCELLED "\n\n\n\nLa Instalación de PhotoFolio ha sido cancelada")
  183. (set #INSTALLING_LIBRARIES "\nInstalando librerías de PhotoFolio")
  184. (set #INSTALLING_MCC "\nInstalando MUI custom class")
  185. (set #SELECT_INSTALL_DIRECTORY "Elige el directorio donde quieres instalar PhotoFolio.\n(Si quieres que PhotoFolio tenga su propio cajón - debes crear uno ahora)")
  186. (set #CHECKING_SYSTEM "\n\n\n\nChequeando el sistema...")
  187. (set #PROMPT_INSTALL_IMAGEIOPREFS "\n¿Instalo imageio.library prefs?\n\n(Utilizada para los diferentes formatos y\notros parámetros de carga de imágenes)")
  188. (set #INSTALLING_IMAGEIOPREFS "\nInstalando preferencias de imageio.library")
  189. (set #INSTALL_MYSTICVIEW "\n¿Instalo mysticview.library?\n\n(Librería opcional para utilizar un visor alternativo)")
  190. (set #INSTALLING_PROGRAM "\n\n\n\nInstalando el programa PhotoFolio")
  191. (set #PROMPT_INSTALL_DOCS "\n¿Instalo la documentación de PhotoFolio?")
  192. (set #INSTALLING_DOCS "\nInstalando la documentación de PhotoFolio")
  193. (set #PROMPT_INSTALL_CATALOG "\n¿Qué catalogos (lenguajes) quieres instalar?")
  194. (set #INSTALLING_CATALOG "\nInstalando catálogo de PhotoFolio")
  195. (set #PROMPT_INSTALL_VLABGRAB "\n¿Instalo vlab.mcc?\n\n(Custom class opcional de MUI para capturar imágenes\ncon PhotoFolio desde tarjetas VLab)")
  196. (set #INSTALLING_VLABGRAB "\nInstalando vlab.mcc")
  197. (set #PROMPT_INSTALL_OPENURL "\n¿Instalo openurl.library?\n\n(Librería opcional con soporte para navegador)")
  198. (set #PROMPT_INSTALL_OPENURLPREFS "\n¿Instalo las preferencias de OpenURL?")
  199. (set #PROMPT_INSTALL_AREXX "\n¿Instalo los scripts ARexx?\n\n(Scripts ARexx opcionales para PhotoFolio)")
  200. (set #INSTALLING_AREXX "\nInstalando scripts ARexx")
  201. (set #UPDATES_AVAILABLE "\nLas actualizaciones de PhotoFolio y librerías necesarias\n\nestán disponibles en la página web de PhotoFolio")
  202. (set #YES "Sí")
  203. (set #NO "No")
  204. )
  205. )
  206.  
  207. ; ************************** Czech texts ******************************
  208. (if (= #catalog 4)
  209. (
  210. (set #INITIAL_MESSAGE
  211.   (cat "\nVítejte pêi instalaci programu PhotoFolio!\n\n\n"
  212.     "Autoêi programu, Steve Quartly and Paul Huxham,\n"
  213.     "by vám rádi podëkovali za jeho pouùívání"
  214.     "Dalîí informace, kontakt na ostatní uùivatele a aktualizace\nmûùete zdarma získat staùením z domovské stránky\n"
  215.     #HOMEPAGE)
  216. )
  217. (set #WRONG_INSTALLER_VERSION "\n\n\n\nK instalaci programu Photofolio\npotêebujete Installer V42.9 nebo vyîîí")
  218. (set #WRONG_CPU "\n\n\n\nKe spuîtëní programu Photofolio\npotêebujete alespoñ CPU68020 nebo lepîí")
  219. (set #WRONG_OS_VERSION "\n\n\n\nProgram Photofolio vyùaduje\nke spuîtëní AmigaOS V3.0")
  220. (set #PROMPT_INSTALL_MUI "\n\n\n\nProgram Photofolio vyùaduje\nke spuîtëní uùivatelské rozhraní MUI.\n\nChcete provést instalaci MUI ihned?")
  221. (set #REBOOT_REQUIRED "\n\n\n\nPo instalaci MUI je vyùadován restart")
  222. (set #INSTALL_CANCELLED "\n\n\n\nInstalace programu PhotoFolio byla pêeruîena")
  223. (set #INSTALLING_LIBRARIES "\nInstalace knihoven programu PhotoFolio")
  224. (set #INSTALLING_MCC "\nInstalace vlastních têíd MUI")
  225. (set #SELECT_INSTALL_DIRECTORY "Vyberte adresáê, do kterého chcete nainstalovat Photofolio.\n(adresáê NEBUDE vytvoêen, pêípadný nový si vytvoête sami)")
  226. (set #CHECKING_SYSTEM "\n\n\n\nZjiîïování informací o systému...")
  227. (set #PROMPT_INSTALL_IMAGEIOPREFS "\nInstall imageio.library prefs?\n\n(Used to alter the loading formats and\nother parameters of image loading)")
  228. (set #INSTALLING_IMAGEIOPREFS "\nInstalace nastavení knihovny imageio.library")
  229. (set #INSTALL_MYSTICVIEW "\nChcete nainstalovat knihovnu mysticview.library?\n\n(volitelná knihovna, kterou lze pouùít jako\nalternativní prohlíùeç)")
  230. (set #INSTALLING_PROGRAM "\n\n\n\nInstalace programu PhotoFolio")
  231. (set #PROMPT_INSTALL_DOCS "\n\n\n\nChcete nainstalovat dokumentaci?\n\n(Amigaguide)")
  232. (set #INSTALLING_DOCS "\n\n\n\nInstalace dokumentace programu PhotoFolio")
  233. (set #PROMPT_INSTALL_CATALOG "\nKterý z pêekladû chcete nainstalovat?")
  234. (set #INSTALLING_CATALOG "\nInstalace pêekladu programu PhotoFolio")
  235. (set #PROMPT_INSTALL_VLABGRAB "\nChcete nainstalovat vlab.mcc?\n\n(volitelná vlastní têída MUI ke snímání obrázkû\nz karty VLab pêímo do programu PhotoFolio)")
  236. (set #INSTALLING_VLABGRAB "\nInstalace têídy vlab.mcc")
  237. (set #PROMPT_INSTALL_OPENURL "\nChcete nainstalovat openurl.library?\n\n(volitelná knihovna pro podporu prohlíùeçû WWW)")
  238. (set #PROMPT_INSTALL_OPENURLPREFS "\nChcete nainstalovat nastavení pro OpenURL?")
  239. (set #PROMPT_INSTALL_AREXX "\nChcete nainstalovat arexxové skripty?\n\n(arexxové skripty pro program PhotoFolio)")
  240. (set #INSTALLING_AREXX "\nInstalace arexxových skriptû")
  241. (set #UPDATES_AVAILABLE "\n\nAktualizace programu PhotoFolio a pêísluîných\n\nknihoven jsou dostupné z domovské stránky")
  242. (set #YES "Ano")
  243. (set #NO "Ne")
  244. )
  245. )
  246.  
  247.  
  248. ; ************************* Global procedures ***************************
  249. (procedure P_copylib lib destpath newlibname
  250.     (
  251.         (copylib
  252.             (prompt (cat (cat #INSTALLING_LIBRARIES " ") (fileonly newlibname)))
  253.             (help @copylib-help)
  254.             (newname newlibname)
  255.             (source lib)
  256.             (dest destpath)
  257.             (confirm)
  258.         )
  259.     )
  260. )
  261.  
  262. (procedure P_copymcc mcc destpath
  263.     (
  264.         (copylib
  265.             (prompt (cat (cat #INSTALLING_MCC " ") (fileonly mcc)))
  266.             (help @copylib-help)
  267.             (source mcc)
  268.             (dest destpath)
  269.             (confirm)
  270.         )
  271.     )
  272. )
  273.  
  274.  
  275. ; *********************** PhotoFolio install
  276.  
  277. (if (< @installer-version (+ (* 65536 42) 9))
  278.     (abort #WRONG_INSTALLER_VERSION)
  279. )
  280.  
  281. (if (< (database "cpu") 68020 )
  282.     (abort #WRONG_CPU)
  283. )
  284.  
  285. (set os_version (/ (getversion "exec.library" (resident)) 65536))
  286. (if (< os_version 39)
  287.     (abort #WRONG_OS_VERSION)
  288. )
  289.  
  290. ; *********************** Install MUI ?
  291. (set muiinstall_required 0)
  292. (if (= (exists "MUI:" (noreq)) 0)
  293.     (
  294.         (set muiinstall_required 1)
  295.     )
  296.     (
  297.         (set mui_version (getversion "MUI:Libs/muimaster.library" ))
  298.         (if (< mui_version 1245219)
  299.             (
  300.                 (set muiinstall_required 1)
  301.             )
  302.         )
  303.     )
  304. )
  305.  
  306. (if (= muiinstall_required 1)
  307.     (
  308.         (if (=
  309.             (askchoice
  310.                 (help @askchoice-help)
  311.                 (prompt #PROMPT_INSTALL_MUI)
  312.                 (choices #YES #NO)
  313.                 (default 0)
  314.             )    0 )
  315.             (
  316.                 (textfile
  317.                     (help @textfile-help)
  318.                     (dest "t:PF-InstallMUI")
  319.                     (append "CD PhotoFolio_2.0:MUI\n")
  320.                     (append "Installer433 SCRIPT Install-MUI APPNAME MUI MINUSER NOVICE DEFUSER AVERAGE LOGFILE t:install.log")
  321.                     (safe)
  322.                 )
  323.  
  324.                 (execute "t:PF-InstallMUI" (safe))
  325.                 (abort #REBOOT_REQUIRED)
  326.             )
  327.             (
  328.                 (abort #INSTALL_CANCELLED)
  329.             )
  330.         )
  331.     )
  332. )
  333.  
  334. ; All essential version numbers are correct, continue installation
  335. (message #INITIAL_MESSAGE)
  336.  
  337.  
  338. ; *********************** Set destination directory
  339.  
  340. ; Set destination directory for install
  341. (set destination
  342.     (askdir
  343.         (prompt #SELECT_INSTALL_DIRECTORY)
  344.         (help @askdir-help)
  345.         (default @default-dest)
  346.     )
  347. )
  348.  
  349. (set @default-dest destination)
  350.  
  351. (complete 0)
  352.  
  353.  
  354. ; *********************** Sort out what the user has where
  355.  
  356. (working #CHECKING_SYSTEM)
  357.  
  358. ; Establish default MUI install location
  359. (if (= (exists "MUI:Libs/mui") 0)
  360.     (
  361.         (set #muipath (tackon destination "mui"))
  362.         (makedir #muipath)
  363.     )
  364.     (
  365.         (set #muipath "MUI:Libs/mui")
  366.     )
  367. )
  368.  
  369. ; Establish CPU type
  370.  
  371. (set #i 0)
  372. (while (set #thiscpu (select #i "68020" "68030" "68040" "68060" ""))
  373.     (
  374.         (if (= (database "cpu") #thiscpu) (set #ourcpu #i))
  375.         (set #i (+ #i 1))
  376.     )
  377. )
  378.  
  379. (complete 8)
  380.  
  381.  
  382. ; *********************** Install nlist.mcc
  383.  
  384. (working (cat #INSTALLING_MCC " nlist"))
  385.  
  386. (set #i 0)
  387. (while (set #thismcc (select #i "Support/MCC_NList/Libs/MUI/NFloattext.mcc" "Support/MCC_NList/Libs/MUI/NList.mcc" "Support/MCC_NList/Libs/MUI/NListview.mcc" "Support/MCC_NList/Libs/MUI/NListviews.mcp" ""))
  388.     (
  389.         (if (<> #thismcc "")
  390.             (P_copymcc #thismcc #muipath)
  391.         )
  392.         (set #i (+ #i 1))
  393.     )
  394. )
  395.  
  396. (complete 16)
  397.  
  398.  
  399. ; *********************** Install listtree.mcc
  400.  
  401. (working (cat #INSTALLING_MCC " listtree"))
  402.  
  403. (set #i 0)
  404. (while (set #thismcc (select #i "Support/MCC_Listtree/Libs/MUI/Listtree.mcc" "Support/MCC_Listtree/Libs/MUI/Listtree.mcp" ""))
  405.     (
  406.         (if (<> #thismcc "")
  407.             (P_copymcc #thismcc #muipath)
  408.         )
  409.         (set #i (+ #i 1))
  410.     )
  411. )
  412.  
  413. (complete 24)
  414.  
  415.  
  416. ; *********************** Install guigfx.library
  417.  
  418. (P_copylib (select #ourcpu "Support/guigfx.library/libs/guigfx.library" "Support/guigfx.library/libs/guigfx.library" "Support/guigfx.library/libs/guigfx.library_68040" "Support/guigfx.library/libs/guigfx.library_68060") "LIBS:" "guigfx.library")
  419.  
  420. (complete 32)
  421.  
  422.  
  423. ; *********************** Install render.library
  424.  
  425. (P_copylib (select #ourcpu "Support/render.library/libs/render.library" "Support/render.library/libs/render.library" "Support/render.library/libs/render.library_68040" "Support/render.library/libs/render.library_68060") "LIBS:" "render.library")
  426.  
  427. (complete 40)
  428.  
  429.  
  430. ; *********************** Install imageio.library
  431.  
  432. (P_copylib (select #ourcpu "Support/imageio.library/libs/imageio.library_020" "Support/imageio.library/libs/imageio.library_020" "Support/imageio.library/libs/imageio.library_040" "Support/imageio.library/libs/imageio.library_060") "LIBS:" "imageio.library")
  433.  
  434. ; Set up prefs in envarc
  435. (if (not (exists "ENVARC:imageio.library"))
  436.     (makedir "ENVARC:imageio.library")
  437. )
  438.  
  439. (textfile
  440.     (help @textfile-help)
  441.     (dest "ENVARC:imageio.library/AllowUUDecoding")
  442.     (append "0\n")
  443. )
  444.  
  445. ; Set up prefs in env
  446. (if (not (exists "ENV:imageio.library"))
  447.     (makedir "ENV:imageio.library")
  448. )
  449.  
  450. (textfile
  451.     (help @textfile-help)
  452.     (dest "ENV:imageio.library/AllowUUDecoding")
  453.     (append "0\n")
  454. )
  455.  
  456. (if (=
  457.     (askchoice
  458.         (help @askchoice-help)
  459.         (prompt #PROMPT_INSTALL_IMAGEIOPREFS)
  460.         (choices #YES #NO)
  461.         (default 0)
  462.     )    0 )
  463.     (
  464.         (copyfiles
  465.             (prompt #INSTALLING_IMAGEIOPREFS)
  466.             (source "Support/imageio.library/prefs")
  467.             (choices "ImageIOLibraryPrefs" "ImageIOLibraryPrefs.info" )
  468.         (help @copyfiles-help)
  469.             (dest @default-dest)
  470.             (files)
  471.             (noposition)
  472.             (optional askuser)
  473.             (confirm)
  474.         )
  475.     )
  476. )
  477.  
  478. (complete 48)
  479.  
  480.  
  481. ; *********************** Install jpeg.library
  482.  
  483. (P_copylib (select #ourcpu "Support/jpeg.library/libs/jpeg.library_020" "Support/jpeg.library/libs/jpeg.library_020" "Support/jpeg.library/libs/jpeg.library_040" "Support/jpeg.library/libs/jpeg.library_060") "LIBS:" "jpeg.library")
  484.  
  485. (complete 56)
  486.  
  487.  
  488. ; *********************** Install proof.library
  489.  
  490. (P_copylib (select #ourcpu "Support/proof.library/libs/proof.library_020" "Support/proof.library/libs/proof.library_020" "Support/proof.library/libs/proof.library_040" "Support/proof.library/libs/proof.library_060") "LIBS:" "proof.library")
  491.  
  492. ; Set up prefs in envarc
  493. (if (not (exists "ENVARC:proof.library"))
  494.     (makedir "ENVARC:proof.library")
  495. )
  496.  
  497. (textfile
  498.     (help @textfile-help)
  499.     (dest "ENVARC:proof.library/Test_Proof_By_Protection")
  500.     (append "no\n")
  501. )
  502.  
  503. ; Set up prefs in env
  504. (if (not (exists "ENV:proof.library"))
  505.     (makedir "ENV:proof.library")
  506. )
  507.  
  508. (textfile
  509.     (help @textfile-help)
  510.     (dest "ENV:proof.library/Test_Proof_By_Protection")
  511.     (append "no\n")
  512. )
  513.  
  514. (complete 64)
  515.  
  516.  
  517. ; *********************** Install mysticview.library
  518.  
  519. (if (=
  520.     (askchoice
  521.         (help @askchoice-help)
  522.         (prompt #INSTALL_MYSTICVIEW)
  523.         (choices #YES #NO)
  524.         (default 0)
  525.     )    0 )
  526.     (
  527.         (P_copylib (select #ourcpu "Support/mysticview.library/libs/mysticview.library" "Support/mysticview.library/libs/mysticview.library" "Support/mysticview.library/libs/mysticview.library" "Support/mysticview.library/libs/mysticview.library_68060") "LIBS:" "mysticview.library")
  528.     )
  529. )
  530.  
  531. (complete 72)
  532.  
  533.  
  534. ; *********************** Install vlab.mcc
  535.  
  536. (set vlab_version (/ (getversion "vlab.library") 65536))
  537.  
  538. (if (<> vlab_version 0)
  539.     (
  540.         (if (=
  541.             (askchoice
  542.                 (help @askchoice-help)
  543.                 (prompt #PROMPT_INSTALL_VLABGRAB)
  544.                 (choices #YES #NO)
  545.                 (default 0)
  546.             )    0 )
  547.             (
  548.                 (copyfiles
  549.                     (prompt #INSTALLING_VLABGRAB)
  550.                     (source "Support/MCC_Vlab/libs/mui")
  551.                     (choices "VLab.mcc" "VLab.mcp")
  552.                 (help @copyfiles-help)
  553.                     (dest #muipath)
  554.                     (files)
  555.                     (optional askuser)
  556.                     (confirm)
  557.                 )
  558.             )
  559.         )
  560.     )
  561. )
  562.  
  563. (complete 80)
  564.  
  565.  
  566. ; *********************** Install openurl.library
  567.  
  568. (if (=
  569.     (askchoice
  570.         (help @askchoice-help)
  571.         (prompt #PROMPT_INSTALL_OPENURL)
  572.         (choices #YES #NO)
  573.         (default 0)
  574.     )    0 )
  575.     (
  576.         (P_copylib "Support/OpenURL/Libs/openurl.library" "LIBS:" "openurl.library")
  577.         (P_copylib "Support/OpenURL/L/OpenURL-handler" "L:" "OpenURL-Handler")
  578.  
  579.         (working (cat #INSTALLING_MCC " required for openurl.library"))
  580.  
  581.         (set #i 0)
  582.         (while (set #thismcc (select #i "Support/OpenURL/Libs/MUI/Popplaceholder.mcc" "Support/OpenURL/Libs/MUI/Popport.mcc" ""))
  583.             (
  584.                 (if (<> #thismcc "")
  585.                     (P_copymcc #thismcc #muipath)
  586.                 )
  587.                 (set #i (+ #i 1))
  588.             )
  589.         )
  590.  
  591.         (copyfiles
  592.             (prompt #PROMPT_INSTALL_OPENURLPREFS)
  593.             (source "Support/OpenURL/Prefs")
  594.             (choices "OpenURL" "OpenURL.info" )
  595.            (help @copyfiles-help)
  596.             (dest @default-dest)
  597.             (files)
  598.             (noposition)
  599.             (optional askuser)
  600.             (confirm)
  601.         )
  602.     )
  603. )
  604.  
  605. (complete 85)
  606.  
  607.  
  608. ; *********************** Install main program and icon
  609.  
  610. ; Install executable and icon
  611. (copyfiles
  612.     (prompt #INSTALLING_PROGRAM)
  613.     (source "")
  614.     (choices "PhotoFolio" "PhotoFolio.info")
  615.     (help @copyfiles-help)
  616.     (dest @default-dest)
  617.     (files)
  618.     (noposition)
  619.     (optional askuser)
  620. )
  621.  
  622.  
  623. ; *********************** Install documentation
  624.  
  625. (if (=
  626.     (askchoice
  627.         (help @askchoice-help)
  628.         (prompt #PROMPT_INSTALL_DOCS)
  629.         (choices #YES #NO)
  630.         (default 0)
  631.     )    0 )
  632.     (
  633.         (set #doclangfound -1) ; Flags if the docs were found in their language
  634.  
  635.         (set #i 0)
  636.         (while (set #thiscat (select #i "English" "-" "Deutsch" "Español" "-" ""))
  637.             (
  638.                 (if (= #i #catalog)
  639.                     (
  640.                         (if (<> #thiscat "-")
  641.                             (
  642.                                 (set #doclangfound #catalog)
  643.                             )
  644.                         )
  645.                     )
  646.                 )
  647.                 (set #i (+ #i 1))
  648.             )
  649.         )
  650.  
  651.         (if (<> #doclangfound -1)
  652.             (
  653.                 (set #docs (tackon "Documentation" (select #catalog "English" "Italiano" "Deutsch" "Español")))
  654.                 (copyfiles
  655.                     (prompt #INSTALLING_DOCS)
  656.                     (choices "PhotoFolio.guide" "PhotoFolio.guide.info")
  657.                     (source #docs)
  658.                 (help @copyfiles-help)
  659.                     (dest @default-dest)
  660.                     (files)
  661.                     (noposition)
  662.                     (optional askuser)
  663.                     (confirm)
  664.                 )
  665.             )
  666.             (
  667.                 ; Havent got their language, install English instead
  668.                 (copyfiles
  669.                     (prompt #INSTALLING_DOCS)
  670.                     (choices "PhotoFolio.guide" "PhotoFolio.guide.info")
  671.                     (source "Documentation/English")
  672.                 (help @copyfiles-help)
  673.                     (dest @default-dest)
  674.                     (files)
  675.                     (noposition)
  676.                     (optional askuser)
  677.                     (confirm)
  678.                 )
  679.             )
  680.         )
  681.  
  682.         ; Install ARexx documentation
  683.         (copyfiles
  684.             (prompt #INSTALLING_DOCS)
  685.             (choices "PhotoFolio_ARexx.guide" "PhotoFolio_ARexx.guide.info")
  686.             (source "Documentation/English")
  687.         (help @copyfiles-help)
  688.             (dest @default-dest)
  689.             (files)
  690.             (noposition)
  691.             (optional askuser)
  692.             (confirm)
  693.         )
  694.     )
  695. )
  696.  
  697. (complete 90)
  698.  
  699.  
  700. ; *********************** Install locale catalog
  701.  
  702.  
  703. (set #localedest "LOCALE:Catalogs")
  704.  
  705. (if (<> #catalog 0)
  706.     (
  707.         (set #localesrc 1) ; Defaults to first entry
  708.         (set #i 0)
  709.         (while (set #thiscat (select #i "italiano" "deutsch" "español" "czech" ""))
  710.             (
  711.                 (if (= #catalogname #thiscat)
  712.                     (
  713.                         (set #x #i)
  714.                         (while (> #x 0)
  715.                             (set #localesrc (* #localesrc 2))
  716.  
  717.                             (set #x (- #x 1))
  718.                         )
  719.                     )
  720.                 )
  721.  
  722.                 (set #i (+ #i 1))
  723.             )
  724.         )
  725.     )
  726.     (
  727.         (set #localesrc 0)
  728.     )
  729. )
  730.  
  731. (set #installcat
  732.     (askoptions
  733.         (prompt #PROMPT_INSTALL_CATALOG)
  734.         (choices "Italiano" "Deutsch" "Español" "Czech")
  735.         (default #localesrc)
  736.         (help @askoptions-help)
  737.     )
  738. )
  739.  
  740. (set #i 0)
  741. (while (< #i 4)
  742.     (set #x #i)
  743.     (set #y 1)
  744.  
  745.     (while (> #x 0)
  746.         (set #y (* #y 2))
  747.  
  748.         (set #x (- #x 1))
  749.     )
  750.  
  751.     (if (bitand #installcat #y)
  752.         (
  753.             (set #localecat (select #i "Italiano" "Deutsch" "Español" "Czech"))
  754.  
  755.             (copyfiles
  756.                 (prompt (cat (cat #INSTALLING_CATALOG " " ) #localecat))
  757.                 (help @copyfiles-help)
  758.                 (source (tackon "Catalogs" #localecat))
  759.                 (choices "PhotoFolio.catalog")
  760.                 (dest (tackon #localedest #localecat))
  761.                 (confirm)
  762.                 (optional askuser)
  763.                 (files)
  764.             )
  765.         )
  766.     )
  767.  
  768.     (set #i (+ #i 1))
  769. )
  770.  
  771. (complete 95)
  772.  
  773.  
  774. ; *********************** Install ARexx scripts
  775.  
  776. (if (=
  777.     (askchoice
  778.         (help @askchoice-help)
  779.         (prompt #PROMPT_INSTALL_AREXX)
  780.         (choices #YES #NO)
  781.         (default 0)
  782.     )    0 )
  783.     (
  784.         (copyfiles
  785.             (prompt #INSTALLING_AREXX)
  786.         (help @copyfiles-help)
  787.             (source "Rexx")
  788.             (dest (tackon destination "Rexx"))
  789.             (all)
  790.             (confirm)
  791.         )
  792.     )
  793. )
  794.  
  795. (complete 100)
  796.  
  797.  
  798. ; Finished installation
  799. (message (cat #UPDATES_AVAILABLE #BLANK #BLANK #HOMEPAGE))
  800.