home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 6 / AACD06.ISO / AACD / Online / AteoNet / InstallAteoBus < prev    next >
Text File  |  1999-12-21  |  32KB  |  821 lines

  1.  
  2. ;***************************************************
  3. ;** * Installation de l'AtéoBus pour Amiga 1200   **
  4. ;**                                               **
  5. ;** * Installation des utilitaires pour l'AtéoBus **
  6. ;**       - StartAteoBus                          **
  7. ;**       - Picasso96                             **
  8. ;**       - ModePro                               **
  9. ;**                                               **
  10. ;** * Installation de AteoSer                     **
  11. ;**                                               **
  12. ;** * Installation de AteoPar                     **
  13. ;**                                               **
  14. ;** * Installation de AteoNet                     **
  15. ;**                                               **
  16. ;**                        Installation Rev. 1.27 **
  17. ;**                                   (10/12/99)  **
  18. ;***************************************************
  19. ;
  20. ; Sorry, all languages are not translated...
  21. ; If you want to translate them in your home country
  22. ; language send us an E-Mail a fax or a letter.
  23. ; Buggs are also welcome :-)
  24. ;
  25. ;**************************************************
  26. ;
  27. ; Little History :
  28. ;-----------------
  29. ; 1.0ß : First release (30.03.98)
  30. ; 1.1ß : Add losts of stuff (under test)
  31. ; 1.2ß : Correct some textes + English translation
  32. ;   .
  33. ;   .
  34. ;   .
  35. ; 1.16 : Fix a bug in the "ModePro.Prefs" installation
  36. ; 1.17 : New AteoSerPrefs revision (1.12)
  37. ;        New AteoParPrefs revision (1.11)
  38. ; 1.18 : Add installation for AteoNet boards (ateonet.device + AmiTCP-4.0)
  39. ;      : New script
  40. ; 1.19 : Update ModePro (4.63)
  41. ; 1.20 : Update Picasso 96 (1.43_ateo)
  42. ; 1.21 : Update StartAteoBus (5.05)
  43. ; 1.22 : Add compression of 'StartAteoBus' because out of space on floppy.
  44. ; 1.23 : New version of the ateopar.device (1.01).
  45. ; 1.24 : Forgot the ateobus.library (3.0).
  46. ; 1.25 : Fix bug in locale path + change "LOCALE:" by "SYS:Locale/" (strange trouble with OS 3.5)
  47. ;        New AteoSerPrefs revision (1.24)
  48. ;        New AteoParPrefs revision (1.24)
  49. ; 1.26 : New StartAteoBus revision (6.1)
  50. ; 1.27 : Update installer for the new "StartAteoBus"
  51. ;        New StartAteoBus revision (6.2)
  52. ;        New ateoser.device revision (0.391)
  53. ;        New AteoSerPrefs revision (2.52)
  54. ;        New AteoParPrefs revision (2.52)
  55. ;        New ateonet.device revision (1.8)
  56. ;        New programme AteoBusPrefs (2.306)
  57. ;
  58. ;**************************************************
  59.  
  60. (set #Install_Rev        "1.27")
  61. (set #AteoBus_Rev        "2.2")
  62. (set #Pixel64_Rev        "A")
  63. (set #StartAteoBus_Rev    "6.2")
  64. (set #Picasso96_Rev        "1.43_ateo")
  65. (set #ModePro_Rev        "4.63")
  66. (set #AteoSerPrefs_Rev    "2.52")
  67. (set #AteoSerDevice_Rev    "0.391")
  68. (set #AteoParPrefs_Rev    "2.52")
  69. (set #AteoParDevice_Rev    "1.01")
  70. (set #AteoBusPrefs_Rev    "2.306")
  71. (set #AteoBusLibrary_Rev    "4.0")
  72. (set #AteoNetDevice_Rev    "1.8")
  73. (set #AmiTCP_Rev        "4.0")
  74. (set #Date            "10/12/99")
  75.  
  76. (set #System             (getversion "intuition.library" (resident)))
  77. (set #System_Version    (/ #System 65536))
  78. (set #System_Revision    (- #System (* #System_Version 65536)))
  79. (set #Minimum_Memory    "2000000")
  80.  
  81. (set #Install_StartAteoBus    0)
  82. (set #Install_Pixel64        0)
  83. (set #Install_AteoSer        0)
  84. (set #Install_AteoPar        0)
  85. (set #Install_AteoNet        1)
  86.  
  87. (set #Install_Cmd_StartAteoBus    "Install")
  88. (set #Compressor                "LhA")
  89. (set #Install_Path                (pathonly @icon))
  90. (set #Working_Path                "RAM:Ateo-Concepts/")
  91. (set #Script_Name                "Execute_Me")
  92.  
  93. ; System
  94. (set #SYS                        "SYS:")
  95. (set #ENV                        "ENV:")
  96. (set #ENVARC                    "ENVARC:")
  97. (set #PRESETS                    (tackon #SYS "Prefs/Presets/Ateo_Concepts/"))
  98. (set #C                        "C:")
  99. (set #LIB                        "Libs:")
  100. (set #DEVS                    "Devs:")
  101. (set #NETWORKS                    (tackon #DEVS "Networks/"))
  102. (set #LOCALE                    (tackon (tackon "SYS:Locale/Catalogs/" @language) "Ateo_Concepts/"))
  103. (set #ATEOPREFS                (tackon #SYS "Prefs/Ateo_Concepts/"))
  104. (set #Ext_Catalog                ".catalog")
  105. (set #Ext_Info                    ".info")
  106.  
  107. ; StartAteoBus
  108. (set #S_Path_StartAteoBus        (tackon #Install_Path "StartAteoBus/"))
  109. (set #File_StartAteoBus            "StartAteoBus")
  110. (set #File_AteoBusServer            "AteoBusServer")
  111. (set #File_AteoBus_Library        "ateobus.library")
  112.  
  113. ; AteoBusPrefs
  114. (set #S_Path_AteoBusPrefs        (tackon #Install_Path "AteoBusPrefs/"))
  115. (set #S_Path_Catalog_AteoBusPrefs    (tackon #S_Path_AteoBusPrefs (tackon "catalogs/" @language)))
  116. (set #File_AteoBusPrefs            "AteoBusPrefs")
  117.  
  118. ; Picasso96
  119. (set #S_Path_Picasso96            (tackon #Install_Path "Pixel64/"))
  120. (set #S_Path_Install_Picasso96    (tackon #Working_Path "Picasso96Install/"))
  121. (set #File_Picasso96            "Picasso96")
  122. (set #File_Install_Picasso96        "InstallPicasso96")
  123.  
  124. ; ModePro
  125. (set #S_Path_ModePro             (tackon #Install_Path "Pixel64/"))
  126. (set #S_Path_Install_ModePro         (tackon #Working_Path "ModePro/"))
  127. (set #File_ModePro                 "ModePro")
  128. (set #File_Install_ModePro         "InstallModePro")
  129. (set #File_Prefs_ModePro         "ModePro.Pref")
  130.  
  131. ; AteoSerPrefs & AteoParPrefs
  132. (set #S_Icone_AteoPrefs            (tackon #Install_Path (cat "StartAteoBus" #Ext_Info)))
  133. (set #Default_Device_Name        "scsi.device")
  134. (set #Default_Device_Unit        0)
  135.  
  136. ; AteoSerPrefs
  137. (set #S_Path_AteoSer            (tackon #Install_Path "AteoSer/"))
  138. (set #S_Path_Catalog_AteoSer        (tackon #S_Path_AteoSer (tackon "catalogs/" @language)))
  139. (set #File_AteoSerPrefs            "AteoSerPrefs")
  140. (set #File_AteoSerDevice            "ateoser.device")
  141. (set #File_AteoSerPresets        "ateoser.pre")
  142.  
  143. ; AteoParPrefs
  144. (set #S_Path_AteoPar            (tackon #Install_Path "AteoPar/"))
  145. (set #S_Path_Catalog_AteoPar        (tackon #S_Path_AteoPar (tackon "catalogs/" @language)))
  146. (set #File_AteoParPrefs            "AteoParPrefs")
  147. (set #File_AteoParDevice            "ateopar.device")
  148. (set #File_AteoParPresets        "ateopar.pre")
  149.  
  150. ; AteoNet
  151. (set #S_Path_AteoNet            (tackon #Install_Path "AteoNet/"))
  152. (set #S_Path_AmiTCP                (tackon #Install_Path "AteoNet/"))
  153. (set #S_Path_Install_AmiTCP        (tackon #Working_Path "AmiTCP-4.0/"))
  154. (set #File_AmiTCP                "AmiTCP")
  155. (set #File_Install_AmiTCP        "Install_AmiTCP")
  156. (set #File_AteoNetDevice            "ateonet.device")
  157. (set #File_AteoNetPresets        "ateonet.pre")
  158.  
  159.  
  160. ;********************************
  161. ;************ TEXTES ************
  162. ;********************************
  163.  
  164. (if (= @language "français")
  165. (
  166.     (set #Mess_Translation_Name "Atéo Concepts")
  167.  
  168.      (if (= #Install_StartAteoBus "1")
  169.           (set #Mess_Welcome "Bienvenue à l'installation de l'AtéoBus"))
  170.      (if (= #Install_Pixel64 "1")
  171.           (set #Mess_Welcome "Bienvenue à l'installation de l'AtéoBus et de la Pixel64"))
  172.      (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "0") (= #Install_AteoNet "0"))
  173.           (set #Mess_Welcome "Bienvenue à l'installation de l'AtéoSer"))
  174.      (if (AND (= #Install_AteoSer "0") (= #Install_AteoPar "1") (= #Install_AteoNet "0"))
  175.           (set #Mess_Welcome "Bienvenue à l'installation de l'AtéoPar"))
  176.      (if (AND (= #Install_AteoSer "0") (= #Install_AteoPar "0") (= #Install_AteoNet "1"))
  177.           (set #Mess_Welcome "Bienvenue à l'installation de l'AtéoNet"))
  178.      (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "1") (= #Install_AteoNet "0"))
  179.           (set #Mess_Welcome "Bienvenue à l'installation de l'AtéoSer et de l'AtéoPar"))
  180.      (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "1") (= #Install_AteoNet "1"))
  181.           (set #Mess_Welcome "Bienvenue à l'installation de : AtéoSer, AtéoPar et AteoNet"))
  182.  
  183.      (set #Mess_Choice "Choisisez les programmes à installer :")
  184.     (set #Help_Choice (cat    "Selectionnez les modules que vous voulez installez :"
  185.                         "\n-AtéoBus : Absolument nécessaire sinon l'Amiga 1200 ne reconnaitra pas l'AtéoBus."
  186.                         "\n-Picasso96 : C'est le programme qui gère les cartes graphiques et permet l'affichage d'un écran le moniteur (nécessaire si vous avez une Pixel64)."
  187.                         "\n-ModePro : Est-ce qu'on appel un 'promoteur d'écran'. C'est lui qui \"transforme\" les ouvertures d'écrans PAL, NTSC, ou autres, vers des écrans Pixel64 pour les programmes qui ne permettent pas de choisir des écrans Pixel64 directement."))
  188.  
  189.     (set #Mess_Prepare "Maintenant, quelques fichiers\nvont-êtres copiés en mémoire pour\npréparer l'installation.")
  190.     (set #Mess_Expand "Décompression du fichier")
  191.     (set #Mess_CopyFile-1 "Nous allons maintenant installer")
  192.     (set #Mess_CopyFile-2 "* Si ce fichier n'existe pas,\nil sera copié\n\n* Si ce fichier existe,\nil sera mis à jour si nécessaire...\n\n-->> Cliquez pour continuer <<--")
  193.     (set #Mess_CopyFileCV "Copie du fichier")
  194.     (set #Mess_Update_Startup (cat     "Une commande va être ajouté\nà la 'Startup-Sequence'\nafin que l'AtéoBus soit reconu\nau démarrage par l'Amiga."
  195.                                 "\n\n\n(une sauvegarde de la 'Startup-Sequence'\nsera faite sous le nom :\n'Startup-Sequence.old')"))
  196.     (set #Mess_Choice_Source "Voulez-vous installer ce programme\ndepuis la disquette fournie ou\ndepuis une source plus récente ?")
  197.     (set #Help_Choice_Source (cat    "-Si c'est la première installation que vous faite, choisisez l'installation depuis la disquette."
  198.                             "\n-Si vous avez récupérez une archive plus récente que celle que nous fournissons, vous pouvez selectionner le deuxième choix."))
  199.  
  200.     (set #Mess_Floppy_Source "Depuis la disquette fournie")
  201.     (set #Mess_Other_Source "Depuis une source plus récente")
  202.     (set #Mess_Select_Path "Dans quel répertoire ce trouve l'archive ?")
  203.     (set #Mess_No_Source "Il n'y a pas d'archive dans le répertoire que vous avez indiqué")
  204.     (set #Mess_Create_Repertory "Création d'un dossier 'Ateo_Concepts'\ndans le répertoire 'SYS:Prefs'\nafin de regrouper tous les\nprogrammes de préférence pour l'AtéoBus")
  205.  
  206.     (set #Mess_ToolType_Device "Nom de votre device SCSI")
  207.     (set #Help_ToolType_Device (cat    "Vous devez écrir ici le nom de votre device SCSI sinon le programme ne fonctionnera pas.\n"
  208.                                 "- Si vous utilisez le port IDE standard de l'A1200, le nom du device est \"scsi.device\".\nFaites attention, le nom du device est sensible aux majuscules et minuscules!\n"
  209.                                 "- Si vous utilisez un autre system comme un module SCSI sur une carte accélératrice Blizzard 12x0 ou un Squirrel, le nom du device va changé.\n\nVoici une petite liste de ce que vous pouvez trouver:\n* Kit SCSI pour Blizzard = \"1230scsi.device\"\n* Squirrel = \"squirrel.device\"\n* Etc...\n\n\nSi vous ne savez rien de votre device, vous pouvez utiliser des programmes comme \"Scout\", \"ARTM\", \"SysInfo\" ou autre pour obtenir des informations sur le nom de device et sur le numéro d'unité de votre disque dur."))
  210.  
  211.     (set #Mess_ToolType_Unit "Numéro d'unité de votre disque dur principal\n(correspondant au nom du device)")
  212.     (set #Help_ToolType_Unit (cat    "Dans le précédent choix vous avez donné le nom du device, vous devez maintenant donner le numéro d'unité correspondant au disque dur connecté sur ce device.\n"
  213.                             "- Si vous utilisez le port IDE natif du A1200, le numéro d'unité est '0'.\n"
  214.                             "- Si vous utilisez un device SCSI (Squirrel ou module Blizzard) le numéro d'unité est un chiffre de '0' à '7'.\n\n\nSi vous ne savez rien de votre device, vous pouvez utiliser des programmes comme \"Scout\", \"ARTM\", \"SysInfo\" ou autre pour obtenir des informations sur le nom de device et sur le numéro d'unité de votre disque dur."))
  215.  
  216.     (set #Mess_ToolType_Offset "Offset de la carte")
  217.     (set #Help_ToolType_Offset "Pas d'aide!")
  218.  
  219.     (set #Mess_ToolType_Delay "??????")
  220.     (set #Help_ToolType_Delay "Pas d'aide!")
  221.  
  222.     (set #Mess_ToolType_IOFast "????????")
  223.     (set #Help_ToolType_IOFast "Pas d'aide!")
  224.  
  225.     (set #Mess_ToolType_IRQ "IRQ de la carte (0xff si pas d'IRQ)")
  226.     (set #Help_ToolType_IRQ "Pas d'aide!")
  227.  
  228.     (set #Mess_ToolType_Frequency "Fréquence de l'oscillateur sur la carte\n(l'unité de la fréquence est en KHz)")
  229.     (set #Help_ToolType_Frequency "Pas d'aide!")
  230.  
  231.     (set #Mess_Run_Install "Lancement de l'installation")
  232.     (set #Mess_Wait "Veuillez patientez quelques instants...")
  233.  
  234.     (set #Mess_Prefs_ModePro "Un fichiers de préférences\ndu programme ModePro existe\ndéjà sur votre disque dur.\nVoulez-vous le remplacer par\ndes préférences pour la Pixel64 ?")
  235.     (set #Help_Prefs_ModePro "Vous avez déjà un fichier de préférence pour le programme ModePro.\nSi vous selectionnez l'option 'oui' vos anciènnes préférences vont-êtres éffacées. Si vous voulez les garder, selectionnez 'non'.")
  236.  
  237.     (set #Mess_CleanUp "Effacement des fichiers temporaires de la mémoire")
  238.     (set #Mess_End "L'installation est finie")
  239.  
  240.     (set #Mess_Error_Startup "Une erreur est survenue lors de la\nmise à jour de la 'Startup-Sequence'.\n\nLa 'Startup-Sequence' originale va étre restaurée...")
  241.     (set #Mess_Error_Memory "L'Amiga n'a pas assez de mémoire.\nEssayez de désactiver tous les autres\nprogrammes en marche et recommencez.\n\nSi l'installation ne fonctionne toujours pas,\nmettez plus de mémoire dans l'Amiga\navant d'essayer à nouveau")
  242. ))
  243.  
  244. (if (= @language "english")
  245. (
  246.     (set #Mess_Translation_Name "Atéo Concepts")
  247.  
  248.      (if (= #Install_StartAteoBus "1")
  249.          (set #Mess_Welcome "Welcome to the AtéoBus installation"))
  250.      (if (= #Install_Pixel64 "1")
  251.          (set #Mess_Welcome "Welcome to the AtéoBus and Pixel64 Installation"))
  252.      (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "0") (= #Install_AteoNet "0"))
  253.          (set #Mess_Welcome "Welcome to the AtéoSer installation"))
  254.      (if (AND (= #Install_AteoSer "0") (= #Install_AteoPar "1") (= #Install_AteoNet "0"))
  255.          (set #Mess_Welcome "Welcome to the AtéoPar installation"))
  256.      (if (AND (= #Install_AteoSer "0") (= #Install_AteoPar "0") (= #Install_AteoNet "1"))
  257.          (set #Mess_Welcome "Welcome to the AtéoNet installation"))
  258.      (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "1") (= #Install_AteoNet "0"))
  259.           (set #Mess_Welcome "Welcome to the AtéoSer and AtéoPar installation"))
  260.      (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "1") (= #Install_AteoNet "1"))
  261.           (set #Mess_Welcome "Welcome to the AtéoSer, AtéoPar and AtéoNet installation"))
  262.  
  263.      (set #Mess_Choice "Choose softwares to install :")
  264.     (set #Help_Choice (cat    "Select modules you want to install :"
  265.                         "\n-AtéoBus : You absolutly need it, otherwise the Amiga won't recognize the AtéoBus."
  266.                         "\n-Picasso96 : This is the program that manage graphics boards and allow display on a monitor's screen (necessary if you have a Pixel64)."
  267.                         "\n-ModePro : Is what we call a 'screen promotor'. This is it that \"promote\" PAL, NTSC, and other, opening screens to Pixel64's screen for programs that doesn't allow to choose directly a Pixel64's screen."))
  268.  
  269.     (set #Mess_Prepare "Now, files will be copy\nin memory to prepare\nthe installation.")
  270.     (set #Mess_Expand "Extracting the file")
  271.     (set #Mess_CopyFile-1 "We will now install")
  272.     (set #Mess_CopyFile-2 "* If this file doesn't exists,\nit will be created\n\n* If this file exists,\nit will be updated if necessary...\n\n-->> Click to continue <<--")
  273.     (set #Mess_CopyFileCV "Installing file")
  274.     (set #Mess_Update_Startup (cat    "One line will be add to the\n'Startup-Sequence' so that the AtéoBus\nwill appear after you start the Amiga."
  275.                                 "\n\n\n(a backup copy of the 'Startup-Sequence'\nwill be done under the name :\n'Startup-Sequence.old')"))
  276.     (set #Mess_Choice_Source "Do you want to install this file\nfrom the supplied floppy disk or\nfrom a newer source ?")
  277.     (set #Help_Choice_Source (cat    "-If it's the first time you make the installation, choose the installation from the supllied floppy disk."
  278.                             "\n-If you have found a newer archive that the one we supply, you can choose the second choice."))
  279.  
  280.     (set #Mess_Floppy_Source "From the supplied floppy disk")
  281.     (set #Mess_Other_Source "From a newer source")
  282.     (set #Mess_Select_Path "In witch drawer is the archive ?")
  283.     (set #Mess_No_Source "There is no archive in the drawer that you choose")
  284.     (set #Mess_Create_Repertory "Creation of the 'Ateo_Concepts' directory\nin the repertory 'SYS:Prefs'\nto gather all the preferences\nprograms for the AtéoBus")
  285.  
  286.     (set #Mess_ToolType_Device "Name of your SCSI device")
  287.     (set #Help_ToolType_Device (cat    "You must write here the name of your device otherwise the program will not work.\n"
  288.                                 "- If you use the standard A1200 IDE port, the name of the device is \"scsi.device\".\nBe carreful, the device name is case sensitive!\n"
  289.                                 "- If you use an other system like a SCSI module on a Blizzard 12x0 accelerator board or a Squirrel, the device name will change.\n\nHere it is a little list of what you can find:\n* Blizzard SCSI kit = \"1230scsi.device\"\n* Squirrel = \"squirrel.device\"\n* Etc...\n\n\nIf you don't know anything about your device, you can use program like \"Scout\", \"ARTM\", \"SysInfo\" or other to obtain informations on the device name and the unit number of your hard drive."))
  290.  
  291.     (set #Mess_ToolType_Unit "Unit numer of your main hard drive\n(corresponding to the device name)")
  292.     (set #Help_ToolType_Unit (cat    "As you first indicate the device name, you must now give the unit corresponding to the hard drive connected on this device.\n"
  293.                             "- If you use the native A1200 IDE port, the unit number is '0'.\n"
  294.                             "- If you use a SCSI device (Squirrel or Blizzard module) the unit number will be from '0' to '7'.\n\n\nIf you don't know anything about your device, you can use program like \"Scout\", \"ARTM\", \"SysInfo\" or other to obtain informations on the device name and the unit number of your hard drive."))
  295.  
  296.     (set #Mess_ToolType_Offset "Offset of the board")
  297.     (set #Help_ToolType_Offset "No Help!")
  298.  
  299.     (set #Mess_ToolType_Delay "??????")
  300.     (set #Help_ToolType_Delay "No Help!")
  301.  
  302.     (set #Mess_ToolType_IOFast "????????")
  303.     (set #Help_ToolType_IOFast "No Help!")
  304.  
  305.     (set #Mess_ToolType_IRQ "Board IRQ (0xff if no IRQ)")
  306.     (set #Help_ToolType_IRQ "No Help!")
  307.  
  308.     (set #Mess_ToolType_Frequency "Frequency of the oscillator on the board\n(frequency unit is KHz)")
  309.     (set #Help_ToolType_Frequency "No Help!")
  310.  
  311.     (set #Mess_Run_Install "Starting the installation")
  312.     (set #Mess_Wait "Please wait a few time...")
  313.  
  314.     (set #Mess_Prefs_ModePro "A preferences file for ModePro\nalready exist on your hard drive.\nDo you want to replace them by\npreferences for thePixel64 ?" )
  315.     (set #Help_Prefs_ModePro "You alreay have a preference file for the ModePro software.\nIf you choose the option 'yes' your old setings will be deleted. If you want to keep them, choose 'no'.")
  316.  
  317.     (set #Mess_CleanUp "Deleting temporary files from memory")
  318.     (set #Mess_End "The installation is finished")
  319.  
  320.     (set #Mess_Error_Startup "One error occurs during\nthe up to date of the 'Startup-Sequence'.\n\nThe original 'Startup-Sequence' will be copy back...")
  321.     (set #Mess_Error_Memory "The Amiga doesn't have enough memory.\nTry to desactivate all other\nworking programs and restart.\n\nIf the installation still doesn't work,\nadd memory to the Amiga\nbefore to try again")
  322. ))
  323.  
  324. ;(if (= @language "deutsch")
  325. ;(
  326. ;    (set #Rien "Nothing!")
  327. ;))
  328.  
  329. ;(if (= @language "italiano")
  330. ;(
  331. ;    (set #Rien "Nothing!")
  332. ;))
  333.  
  334. ;(if (= @language "español")
  335. ;(
  336. ;    (set #Rien "Nothing!")
  337. ;))
  338.  
  339. ;(if (= @language "suisse")
  340. ;(
  341. ;    (set #Rien "Nothing!")
  342. ;))
  343.  
  344. ;(if (= @language "finland")
  345. ;(
  346. ;    (set #Rien "Nothing!")
  347. ;))
  348.  
  349.  
  350. ;************************************
  351. ;************ PROCEDURES ************
  352. ;************************************
  353.  
  354. (procedure AskSource #Def_Source #Version
  355.     (set #Choix
  356.         (askchoice
  357.             (prompt "->  " (fileonly #Def_Source) " " #Version " <-\n\n" #Mess_Choice_Source "\n")
  358.             (choices #Mess_Floppy_Source #Mess_Other_Source)
  359.             (help "\n" #Help_Choice_Source)
  360.             (default 0)
  361.         )
  362.     )
  363.  
  364.     (set #Source (cat #Def_Source ".lha"))
  365.     (set #Destination #Working_Path)
  366.  
  367.     (if (= #choix "1")
  368.     (
  369.         (set #Reponse "1")
  370.  
  371.         (while (= #Reponse "1")
  372.             (set #Choix
  373.                 (askdir
  374.                     (help "Not yet!")
  375.                     (prompt "-> " (fileonly #Def_Source) " <-\n\n" #Mess_Select_Path "\n")
  376.                     (disk)
  377.                     (default #Install_Path)
  378.                 )
  379.             )
  380.  
  381.             (set #Reponse "0")
  382.  
  383.             (if (NOT (exists (cat (tackon #Choix (fileonly #Def_Source)) ".lha")))
  384.                 (set #Reponse    (askbool
  385.                                 (prompt "\n\n" #Mess_No_Source "...")
  386.                                 (default 1)
  387.                                 (help "Not yet!")
  388.                             )
  389.                 )
  390.                 (set #Source (cat (tackon #Choix (fileonly #Def_Source)) ".lha"))
  391.             )
  392.         )
  393.     ))
  394. )
  395.  
  396. (procedure CopyFile #Source #Destination
  397.     (copyfiles
  398.         (source #Source)
  399.         (dest (pathonly #Destination))
  400.         (newname (fileonly #Destination))
  401.         (safe)
  402.         (files)
  403.         (optional nofail)
  404.     )
  405. )
  406.  
  407. (procedure CopyFileCV #Source #Destination
  408.     (message "\n\n" #Mess_CopyFile-1  " \"" #Destination "\".\n\n\n" #Mess_CopyFile-2)
  409.     (copylib
  410.         (prompt "\n" #Mess_CopyFileCV " \"" (fileonly #Destination) "\"")
  411.         (help "No help!")
  412.         (confirm)
  413.         (source #Source)
  414.         (dest (pathonly #Destination))
  415.         (newname (fileonly #Destination))
  416. ;        (safe)
  417.         (optional fail)
  418. ;        (nogauge)
  419.     )
  420. )
  421.  
  422. (procedure Expand #Source #Nom
  423.     (transcript "Decompress file : " #Nom ".lha")
  424.     (working #Mess_Expand " : " #Nom ".lha\n\n" #Mess_Wait)
  425.     (if    (run (cat (tackon #Working_Path #Compressor) " -2MN e \"" #Source "\" " #Working_Path))
  426.         (abort "Error while decompressing file")
  427.     )
  428. )
  429.  
  430. (procedure Lancement #Nom
  431.     (transcript "Running file : " #Nom)
  432.     (working #Mess_Run_Install " : " #Nom)
  433.     (if    (execute
  434.             (safe)
  435.               (tackon #Working_Path #Script_Name)
  436.         )
  437.         (abort "Error in the script file (procedure Lancement)")
  438.     )
  439. )
  440.  
  441. (procedure StartAteoBus
  442.     (CopyFileCV (tackon #Working_Path #File_AteoBus_Library) (tackon #LIB #File_AteoBus_Library))
  443.     (CopyFileCV (tackon #Working_Path #File_StartAteoBus) (tackon #C #File_StartAteoBus))
  444.     (CopyFileCV (tackon #Working_Path #File_AteoBusServer) (tackon #C #File_AteoBusServer))
  445.  
  446.     (if (NOT (run (cat (tackon #Install_Path #Install_Cmd_StartAteoBus) " check")))
  447.     (
  448.         (message "\n\n" #Mess_Update_Startup)
  449.  
  450.         ; Vérification de l'éxistance d'un fichier 'Startup-Sequence.old'
  451.         ; puis effacement...
  452.         (if (exists "S:Startup-Sequence.old")
  453.             (delete
  454.                 "S:Startup-Sequence.old"
  455.                 (optional "force")
  456.         ))
  457.  
  458.         ; Backup de la 'Startup-Sequence' avant de la modifier
  459.         (CopyFile "S:Startup-Sequence" "S:Startup-Sequence.old")
  460.  
  461.         (if (NOT (run (tackon #Install_Path #Install_Cmd_StartAteoBus)))
  462.         (
  463.             (message "\n\n" #Mess_Error_Startup)
  464.             (if (exists "S:Startup-Sequence")
  465.                 (delete
  466.                     "S:Startup-Sequence"
  467.                     (optional "force")
  468.             ))
  469.  
  470.             ; Restauration de la 'Startup-Sequence'
  471.             (CopyFile "S:Startup-Sequence.old" "S:Startup-Sequence")
  472.         ))
  473.     ))
  474. )
  475.  
  476. (procedure CheckDrawers
  477.     ; Vérification et/ou création du répertoire pour les préférences
  478.     (if (NOT (exists (pathonly #ATEOPREFS)))
  479.     (
  480.         (message "\n\n" #Mess_Create_Repertory)
  481.         (makedir (pathonly #ATEOPREFS))
  482.         (CopyFile #S_Icone_AteoPrefs (cat (pathonly #ATEOPREFS) #Ext_Info))
  483.         (tooltype
  484.             (dest (pathonly #ATEOPREFS))
  485.             (settooltype "** ICON BY ATEO CONCEPTS **" "")
  486.             (noposition)
  487.         )
  488.     ))
  489.  
  490.     ; Vérification et/ou création du répertoire pour les presets
  491.     (if (NOT (exists (pathonly #PRESETS)))
  492.         (makedir (pathonly #PRESETS))
  493.     )
  494.  
  495.     ; Vérification et/ou création du répertoire pour les catalogues
  496.     (if (NOT (exists #LOCALE))
  497.         (makedir #LOCALE)
  498.     )
  499. )
  500.  
  501. (procedure AteoBusPrefs
  502.     (CheckDrawers)
  503.  
  504.     ; Copie de AteoBusPrefs + icône
  505.     ;******************************
  506.     (CopyFileCV (tackon #S_Path_AteoBusPrefs #File_AteoBusPrefs) (tackon #ATEOPREFS #File_AteoBusPrefs))
  507.  
  508.     (if (NOT (exists (tackon #ATEOPREFS (cat #File_AteoBusPrefs #Ext_Info))))
  509.     (
  510.         (CopyFile (tackon #S_Path_AteoBusPrefs (cat #File_AteoBusPrefs #Ext_Info)) (tackon #ATEOPREFS (cat #File_AteoBusPrefs #Ext_Info)))
  511.     ))
  512.  
  513.     ; Copie du catalogue
  514.     ;*******************
  515.     (if (exists (tackon #S_Path_Catalog_AteoBusPrefs (cat #File_AteoBusPrefs #ext_Catalog)))
  516.         ; Copie du catalogue
  517.         (CopyFileCV (tackon #S_Path_Catalog_AteoBusPrefs (cat #File_AteoBusPrefs #ext_Catalog)) (tackon #LOCALE (cat #File_AteoBusPrefs #ext_Catalog)))
  518.     )
  519. )
  520.  
  521. (procedure AteoSer
  522.     (CheckDrawers)
  523.  
  524.     ; Copie de AteoSerPrefs + icône
  525.     ;******************************
  526.     (CopyFileCV (tackon #S_Path_AteoSer #File_AteoSerPrefs) (tackon #ATEOPREFS #File_AteoSerPrefs))
  527.  
  528.     (if (NOT (exists (tackon #ATEOPREFS (cat #File_AteoSerPrefs #Ext_Info))))
  529.         (CopyFile (tackon #S_Path_AteoSer (cat #File_AteoSerPrefs #Ext_Info)) (tackon #ATEOPREFS (cat #File_AteoSerPrefs #Ext_Info)))
  530.     )
  531.  
  532.     ; Copie du catalogue
  533.     ;*******************
  534.     (if (exists (tackon #S_Path_Catalog_AteoSer (cat #File_AteoSerPrefs #ext_Catalog)))
  535.         ; Copie du catalogue
  536.         (CopyFileCV (tackon #S_Path_Catalog_AteoSer (cat #File_AteoSerPrefs #ext_Catalog)) (tackon #LOCALE (cat #File_AteoSerPrefs #ext_Catalog)))
  537.     )
  538.  
  539.     (AteoBusPrefs)
  540.  
  541.     ; Copie de AteoSer.Device + Presets
  542.     ;**********************************
  543.     (CopyFileCV (tackon #S_Path_AteoSer #File_AteoSerDevice) (tackon #DEVS #File_AteoSerDevice))
  544.     (CopyFile (tackon #S_Path_AteoSer #File_AteoSerPresets) (tackon #PRESETS #File_AteoSerPresets))
  545. )
  546.  
  547. (procedure AteoPar
  548.     (CheckDrawers)
  549.  
  550.     ; Copie de AteoParPrefs + icône
  551.     ;******************************
  552.     (CopyFileCV (tackon #S_Path_AteoPar #File_AteoParPrefs) (tackon #ATEOPREFS #File_AteoParPrefs))
  553.  
  554.     (if (NOT (exists (tackon #ATEOPREFS (cat #File_AteoParPrefs #Ext_Info))))
  555.         (CopyFile (tackon #S_Path_AteoPar (cat #File_AteoParPrefs #Ext_Info)) (tackon #ATEOPREFS (cat #File_AteoParPrefs #Ext_Info)))
  556.     )
  557.  
  558.     ; Copie du catalogue
  559.     ;*******************
  560.     (if (exists (tackon #S_Path_Catalog_AteoPar (cat #File_AteoParPrefs #ext_Catalog)))
  561.         ; Copie du catalogue
  562.         (CopyFileCV (tackon #S_Path_Catalog_AteoPar (cat #File_AteoParPrefs #ext_Catalog)) (tackon #LOCALE (cat #File_AteoParPrefs #ext_Catalog)))
  563.     )
  564.  
  565.     (AteoBusPrefs)
  566.  
  567.     ; Copie de AteoPar.Device + Presets
  568.     ;**********************************
  569.     (CopyFileCV (tackon #S_Path_AteoPar #File_AteoParDevice) (tackon #DEVS #File_AteoParDevice))
  570.     (CopyFile (tackon #S_Path_AteoPar #File_AteoParPresets) (tackon #PRESETS #File_AteoParPresets))
  571. )
  572.  
  573. (procedure AteoNet
  574.     (CheckDrawers)
  575.  
  576.     ; Vérification et/ou création du répertoire pour le device
  577.     (if (NOT (exists #NETWORKS))
  578.         (makedir #NETWORKS)
  579.     )
  580.  
  581.     ; Copie de AteoNet.Device + Presets
  582.     ;**********************************
  583.     (CopyFileCV (tackon #S_Path_AteoNet #File_AteoNetDevice) (tackon #NETWORKS #File_AteoNetDevice))
  584.     (CopyFile (tackon #S_Path_AteoNet #File_AteoNetPresets) (tackon #PRESETS #File_AteoNetPresets))
  585.  
  586.     (AteoBusPrefs)
  587.  
  588.     ;Copie et installation du programme `AmiTCP'
  589.     ;*******************************************
  590.     (AskSource (tackon #S_Path_AmiTCP #File_AmiTCP) #AmiTCP_Rev)
  591.     (Expand #Source "AmiTCP")
  592.     (textfile
  593.         (safe)
  594.         (dest (tackon #Working_Path #Script_Name))
  595.         (append
  596.             "Stack 20000\n"
  597.             "Cd " #S_Path_Install_AmiTCP "\n"
  598.             #Working_Path "Installer " #File_Install_AmiTCP
  599.             " LANGUAGE " @language " APPNAME AmiTCP MINUSER AVERAGE\n"
  600.         )
  601.     )
  602.     (Lancement #File_Install_AmiTCP)
  603. )
  604.  
  605.  
  606. ;***************************************
  607. ;************ INSTALLATIONS ************
  608. ;***************************************
  609.  
  610. (complete 0)
  611.  
  612. (onerror
  613.     (working "\n" #Mess_CleanUp "...\n\n" #Mess_Wait)
  614.     (delete
  615.         (all)
  616.         (safe)
  617.         (optional "force")
  618.         #Working_Path
  619.     )
  620. )
  621.  
  622. (message "\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  623. #Mess_Welcome
  624.         "\n\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
  625.         "\n\nInstallation " #Install_Rev
  626.         "\n- Translated by : " #Mess_Translation_Name " -"
  627.         "\nCopyright © Atéo Concepts " #Date
  628.         "\n\n(note : If you want to integrate your local translation, please contact Atéo Concepts)"
  629. )
  630.  
  631. (welcome)
  632.  
  633. ; Test de la mémoire
  634. ;*******************
  635. (set #Avail_Memory (database "total-mem"))
  636. (transcript "Mémoire nécessaire : " #Minimum_Memory)
  637. (transcript "Mémoire disponible : " #Avail_Memory)
  638. ;(if (< #Avail_Memory #Minimum_Memory)
  639. ;(
  640. ;    (transcript "Not enought memrory. End of installation...")
  641. ;    (abort (cat "\n" #Mess_Error_Memory "..."))
  642. ;))
  643.  
  644. (complete 5)
  645.  
  646. ;(if (OR (= #Install_Pixel64 "1") (= #Install_AteoNet "1"))
  647. ;(
  648.     ; Création d'un répertoire en ram et copie de quelques fichiers
  649.     ;**************************************************************
  650.      (makedir
  651.          #Working_Path
  652.          (safe)
  653.      )
  654.      (message (cat "\n\n" #Mess_Prepare))
  655.      (CopyFile (tackon #Install_Path "Installer") (tackon #Working_Path "Installer"))
  656.      (CopyFile (tackon #Install_Path #Compressor) (tackon #Working_Path #Compressor))
  657. ;))
  658.  
  659. (complete 20)
  660.  
  661. ; Installation : AteoBus.library et StartAteoBus
  662. ;***********************************************
  663. (Expand (cat (tackon #S_Path_StartAteoBus #File_StartAteoBus) ".lha") "StartAteoBus")
  664. (complete 30)
  665. (StartAteoBus)
  666.  
  667. (complete 40)
  668.  
  669. ; Installation : Install_Pixel64
  670. ;--------------------------------
  671. (if (= #Install_Pixel64 "1")
  672. (
  673.     (set #Flag_Picasso96    1)
  674.     (set #Flag_ModePro        2)
  675.  
  676.     ; Choix : Installation Picasso96 / ModePro
  677.     ;*****************************************
  678.      (set #Install_Selection
  679.          (askoptions
  680.              (prompt (cat "\n" #Mess_Choice "\n"))
  681.              (help "\n" #Help_Choice)
  682.              (choices "Picasso96" "ModePro")
  683.              (default (+ #Flag_Picasso96 #Flag_ModePro))
  684.          )
  685.      )
  686.  
  687.     (complete 60)
  688.  
  689.     ;Copie et installation du programme `Picasso96'
  690.     ;**********************************************
  691.     (if (BITAND #Install_Selection #Flag_Picasso96)
  692.     (
  693.         (AskSource (tackon #S_Path_Picasso96 #File_Picasso96) #Picasso96_Rev)
  694.         (Expand #Source "Picasso96")
  695.         (textfile
  696.             (safe)
  697.             (dest (tackon #Working_Path #Script_Name))
  698.             (append
  699.                 "Stack 20000\n"
  700.                 "Cd " #S_Path_Install_Picasso96 "\n"
  701.                 #Working_Path "Installer " #File_Install_Picasso96
  702.                 " LANGUAGE " @language " APPNAME Picasso96 MINUSER AVERAGE\n"
  703.             )
  704.         )
  705.         (Lancement #File_Install_Picasso96)
  706.     ))
  707.  
  708.     (complete 80)
  709.  
  710.     ;Copie et installation du programme `ModePro'
  711.     ;********************************************
  712.     (if (BITAND #Install_Selection #Flag_ModePro)
  713.     (
  714.         (set #Destination #Working_Path)
  715.         (Expand (cat (tackon #S_Path_ModePro #File_ModePro) ".lha") (fileonly #File_ModePro))
  716.         (textfile
  717.             (safe)
  718.             (dest (tackon #Working_Path #Script_Name))
  719.             (append
  720.                 "Stack 20000\n"
  721.                 "Cd " #S_Path_Install_ModePro "\n"
  722.                 #Working_Path "Installer " #File_Install_ModePro
  723.                 " LANGUAGE " @language " APPNAME ModePro MINUSER NOVICE\n"
  724.             )
  725.         )
  726.         (Lancement #File_Install_ModePro)
  727.  
  728.         (if (exists (tackon #ENVARC #File_Prefs_ModePro))
  729.             (if    (= (askbool
  730.                     (prompt (cat "\n\n" #Mess_Prefs_ModePro))
  731.                     (help "\n" #Help_Prefs_ModePro)
  732.                 ) "1")
  733.                 (
  734.                     (CopyFile (tackon #S_Path_ModePro #File_Prefs_ModePro) (tackon #ENV #File_Prefs_ModePro))
  735.                     (CopyFile (tackon #S_Path_ModePro #File_Prefs_ModePro) (tackon #ENVARC #File_Prefs_ModePro))
  736.             ))
  737.             (
  738.                 (CopyFile (tackon #S_Path_ModePro #File_Prefs_ModePro) (tackon #ENV #File_Prefs_ModePro))
  739.                 (CopyFile (tackon #S_Path_ModePro #File_Prefs_ModePro) (tackon #ENVARC #File_Prefs_ModePro))
  740.             )
  741.         )
  742.     ))
  743.  
  744.     (complete 90)
  745. ))
  746.  
  747. ; Installation : Install_AteoSer, Install_AteoPar, Install_AteoNet
  748. ;------------------------------------------------------------------
  749. (if (OR (= #Install_AteoSer "1") (= #Install_AteoPar "1") (= #Install_AteoNet "1"))
  750. (
  751.     ; Choix : Installation : AteoSerPrefs / AteoParPrefs / AteoNet
  752.     ;*************************************************************
  753.     (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "0") (= #Install_AteoNet "0"))
  754.         (AteoSer)
  755.     )
  756.  
  757.     (if (AND (= #Install_AteoSer "0") (= #Install_AteoPar "1") (= #Install_AteoNet "0"))
  758.         (AteoPar)
  759.     )
  760.  
  761.     (if (AND (= #Install_AteoSer "0") (= #Install_AteoPar "0") (= #Install_AteoNet "1"))
  762.         (AteoNet)
  763.     )
  764.  
  765.     (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "1"))
  766.     (
  767.         (set #Flag_AteoSer        1)
  768.         (set #Flag_AteoPar        2)
  769.         (set #Flag_AteoNet        4)
  770.  
  771.          (set #Install_Selection
  772.              (askoptions
  773.                  (prompt (cat "\n" #Mess_Choice "\n"))
  774.                 (help "\n" #Help_Choice)
  775.                 (if (= #Install_AteoNet "0")
  776.                 (
  777.                     (choices "AteoSer" "AteoPar")
  778.                     (default (+ #Flag_AteoSer #Flag_AteoPar))
  779.                 )
  780.                 (
  781.                     (choices "AteoSer" "AteoPar" "AteoNet")
  782.                     (default (+ #Flag_AteoSer #Flag_AteoPar #Flag_AteoNet))
  783.                 ))
  784.             )
  785.         )
  786.  
  787.         (if (BITAND #Install_Selection #Flag_AteoSer)
  788.             (AteoSer)
  789.         )
  790.  
  791.         (complete 60)
  792.  
  793.         (if (BITAND #Install_Selection #Flag_AteoPar)
  794.             (AteoPar)
  795.         )
  796.  
  797.         (complete 80)
  798.  
  799.         (if (BITAND #Install_Selection #Flag_AteoNet)
  800.         (
  801.             (AteoNet)
  802.             (complete 90)
  803.         ))
  804.     ))
  805. ))
  806.  
  807. ;(if (OR (= #Install_Pixel64 "1") (= #Install_AteoNet "1"))
  808. ;(
  809.         (working "\n" #Mess_CleanUp "...\n\n" #Mess_Wait)
  810.         (delete
  811.             #Working_Path
  812.              (all)
  813.              (safe)
  814.              (optional "force")
  815.         )
  816. ;))
  817.  
  818. (complete 100)
  819.  
  820. ;(exit "\n\n\n" #Mess_End "..." )
  821.