home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 115 / af115sub.adf / SCSIList.lzx / scsi_list / HDInstall < prev    next >
Text File  |  1986-09-30  |  4KB  |  165 lines
  1. ; Scsi_List HardDisk Installer
  2. ;
  3. ;  $VER: Scsi_List_Install 1.0 (7.5.96)
  4. ;
  5.  
  6. (set default_lang 0)
  7. (set #which-language
  8. (cat "\nWhich languages should be installed?"
  9. ))
  10.  
  11. (set #which-language-help
  12. (cat "\nThe Amiga can be operated in many different "
  13.      "languages. Several files must be copied to your "
  14.      "hard drive for each language supported.\n\n"
  15.      "To reduce the amount of space consumed by the "
  16.      "language files, you can select only the "
  17.      "files of specific languages to be copied.\n\n"
  18.      "Check the boxes of the languages you wish "
  19.      "to have available on your system.\n\n"
  20.      @askoptions-help
  21. ))
  22.  
  23. ;=============================================================================
  24. ; procedure to copy the language drivers and catalogs
  25.  
  26. (procedure DOLOCALE
  27. (
  28.     (set n 0)
  29.     (while (set language (select n "deutsch"
  30.                "svenska"
  31.                "français"
  32.                "Español"
  33.                "Italiano"
  34.                "Norsk"
  35.                ""
  36.           )
  37.       )
  38.     (
  39.    (if (IN lang n)
  40.    (
  41.        (copyfiles (source "Catalogs/") 
  42.                   (pattern language)
  43.              (dest (tackon ScsiList_Dest "Catalogs"))
  44.              (infos)
  45.        )
  46.  
  47.    )
  48.    )
  49.    (set n (+ n 1))
  50.     ))
  51.  
  52. ))
  53.  
  54.  
  55. ;=============================================================================
  56. ;hello everyone
  57. (welcome 
  58.    (set ScsiListVersion (getversion "Scsi_List"))
  59.    (Set ScsiListVer (/ ScsiListVersion 65536))
  60.    (set ScsiListRev (- ScsiListVersion (* ScsiListVer 65536)))
  61.    (message ("\n Welcome to the Hard disk installation utility for \nScsi_List \nVersion %ld.%ld\n" ScsiListVer ScsiListRev)
  62.       "\n NOTE:\n To ensure proper installation, it is important that  "
  63.       " you boot from your hard drive before using the installation utility!"
  64.       "\n\nIf you require help at any stage of the installation,"
  65.       " just select the HELP buttons at the appropriate stages."
  66.    )
  67. )
  68.  
  69. ;  Set Default destination for Scsi_List
  70.  
  71. (@default-dest "WORK:")
  72. (set default-source "Progdir:")
  73.  
  74. (transcript "Scsi_List "@default-dest)
  75.  
  76. (complete 0)
  77.  
  78. ;  Ask for location to install EditMate 
  79.  
  80. (set ScsiList_Loct
  81.    (askdir
  82.       (prompt "Select the location for the Scsi_List Drawer.")
  83.       (help @askdir-help)
  84.          (default @default-dest)
  85.    )
  86. )
  87. (set ScsiList_Dest (tackon ScsiList_Loct "Scsi_List"))
  88. (set ScsiList_TT
  89.     (askstring
  90.         (prompt "Select device name for Tooltype.\n"
  91.             "Note : This is only required if the device name\n"
  92.             "does not contain the characters "scsi".")
  93.         (help "")
  94.         (default "")
  95.     )
  96. )
  97.  
  98.  
  99. (complete 40)
  100.  
  101. ;  create Scsi_List drawer
  102.  
  103. (makedir ScsiList_Dest)
  104. (run (cat "copy " "/Scsi_List.info \"" ScsiList_Dest ".info\""))
  105.  
  106. (copyfiles 
  107.     (Source "Scsi_List")
  108.     (dest ScsiList_Dest)
  109.     (infos)
  110. )
  111. (copyfiles 
  112.     (Source "ReadMe")
  113.     (dest ScsiList_Dest)
  114.     (infos)
  115. )
  116.  
  117. (if ScsiList_TT 
  118.     (tooltype 
  119.         (dest (tackon ScsiList_Dest "Scsi_List"))
  120.         (settooltype  "DEVICE" ScsiList_TT)
  121.     )
  122. )
  123. (makedir (tackon ScsiList_Dest "Catalogs"))
  124. (copyfiles 
  125.     (Source "Catalogs.info")
  126.     (dest ScsiList_Dest)
  127. )
  128. (copyfiles 
  129.     (Source "Catalogs/Scsi_List.ct")
  130.     (dest (tackon ScsiList_Dest "Catalogs"))
  131.     (infos)
  132. )
  133.  
  134. (set lang (askoptions (prompt #which-language)
  135.             (help #which-language-help)
  136.             (choices "Deutsch" "Svenska" "Français" "Español" "Italiano" "Norsk")
  137.             (default default_lang)
  138.      )
  139. )
  140. (DOLOCALE)
  141.  
  142. (complete 80)
  143.  
  144. (copyfiles
  145.     (Source "Source")
  146.     (all)
  147.     (dest (tackon ScsiList_Dest "Source"))
  148.     (infos)
  149. )
  150. (copyfiles 
  151.     (Source "Source.info")
  152.     (dest ScsiList_Dest)
  153. )
  154.  
  155.  
  156. (complete 100)
  157.  
  158. ;  Complete Message
  159.  
  160. (message ("\nScsi_List has now been installed in the selected directory")
  161. )
  162.  
  163.  
  164. (exit(quiet))
  165.