home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 6 / Sonderheft_6-96.iso / pd / disktools / scsi_list / hdinstall < prev    next >
Text File  |  1996-11-03  |  4KB  |  161 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.                ""
  32.           )
  33.       )
  34.     (
  35.    (if (IN lang n)
  36.    (
  37.        (copyfiles (source "Catalogs/") 
  38.                   (pattern language)
  39.              (dest (tackon ScsiList_Dest "Catalogs"))
  40.              (infos)
  41.        )
  42.  
  43.    )
  44.    )
  45.    (set n (+ n 1))
  46.     ))
  47.  
  48. ))
  49.  
  50.  
  51. ;=============================================================================
  52. ;hello everyone
  53. (welcome 
  54.    (set ScsiListVersion (getversion "Scsi_List"))
  55.    (Set ScsiListVer (/ ScsiListVersion 65536))
  56.    (set ScsiListRev (- ScsiListVersion (* ScsiListVer 65536)))
  57.    (message ("\n Welcome to the Hard disk installation utility for \nScsi_List \nVersion %ld.%ld\n" ScsiListVer ScsiListRev)
  58.       "\n NOTE:\n To ensure proper installation, it is important that  "
  59.       " you boot from your hard drive before using the installation utility!"
  60.       "\n\nIf you require help at any stage of the installation,"
  61.       " just select the HELP buttons at the appropriate stages."
  62.    )
  63. )
  64.  
  65. ;  Set Default destination for Scsi_List
  66.  
  67. (@default-dest "WORK:")
  68. (set default-source "Progdir:")
  69.  
  70. (transcript "Scsi_List "@default-dest)
  71.  
  72. (complete 0)
  73.  
  74. ;  Ask for location to install EditMate 
  75.  
  76. (set ScsiList_Loct
  77.    (askdir
  78.       (prompt "Select the location for the Scsi_List Drawer.")
  79.       (help @askdir-help)
  80.          (default @default-dest)
  81.    )
  82. )
  83. (set ScsiList_Dest (tackon ScsiList_Loct "Scsi_List"))
  84. (set ScsiList_TT
  85.     (askstring
  86.         (prompt "Select device name for Tooltype.\n"
  87.             "Note : This is only required if the device name\n"
  88.             "does not contain the characters "scsi".")
  89.         (help "")
  90.         (default "")
  91.     )
  92. )
  93.  
  94.  
  95. (complete 40)
  96.  
  97. ;  create Scsi_List drawer
  98.  
  99. (makedir ScsiList_Dest)
  100. (run (cat "copy " "/Scsi_List.info \"" ScsiList_Dest ".info\""))
  101.  
  102. (copyfiles 
  103.     (Source "Scsi_List")
  104.     (dest ScsiList_Dest)
  105.     (infos)
  106. )
  107. (copyfiles 
  108.     (Source "ReadMe")
  109.     (dest ScsiList_Dest)
  110.     (infos)
  111. )
  112.  
  113. (if ScsiList_TT 
  114.     (tooltype 
  115.         (dest (tackon ScsiList_Dest "Scsi_List"))
  116.         (settooltype  "DEVICE" ScsiList_TT)
  117.     )
  118. )
  119. (makedir (tackon ScsiList_Dest "Catalogs"))
  120. (copyfiles 
  121.     (Source "Catalogs.info")
  122.     (dest ScsiList_Dest)
  123. )
  124. (copyfiles 
  125.     (Source "Catalogs/Scsi_List.cd")
  126.     (dest (tackon ScsiList_Dest "Catalogs"))
  127.     (infos)
  128. )
  129.  
  130. (set lang (askoptions (prompt #which-language)
  131.             (help #which-language-help)
  132.             (choices "Deutsch" "Svenska")
  133.             (default default_lang)
  134.      )
  135. )
  136. (DOLOCALE)
  137.  
  138. (complete 80)
  139.  
  140. (copyfiles
  141.     (Source "Source")
  142.     (all)
  143.     (dest (tackon ScsiList_Dest "Source"))
  144.     (infos)
  145. )
  146. (copyfiles 
  147.     (Source "Source.info")
  148.     (dest ScsiList_Dest)
  149. )
  150.  
  151.  
  152. (complete 100)
  153.  
  154. ;  Complete Message
  155.  
  156. (message ("\nScsi_List has now been installed in the selected directory")
  157. )
  158.  
  159.  
  160. (exit(quiet))
  161.