home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 August - Disc 3 / chip_20018103_hu.iso / amiga / chiputil / commander.lha / Commander / Install / InstallScript < prev    next >
Text File  |  2001-06-09  |  3KB  |  177 lines
  1. ;
  2. ;  Commander 1.0 installer
  3. ;  *************************
  4. ;
  5. ;  (c) 2001 Magic Software
  6. ;  ***********************
  7. ;
  8. ;
  9. ; -------------------------------------------------------------------------
  10. ;
  11. ; Set messages
  12. ;
  13. (if (= @language "english")
  14.   (
  15.     (set #select-destination
  16.       (cat "Where do you want to install program files? A directory "
  17.            "called \"Commander\" will be automatically created."
  18.       )
  19.     )
  20.     (set #select-executable "Where do you want to install the executable file?")
  21.     (set #select-catalogs "Which translations do you want to install?")
  22.     (set #copying-files "Copying files...")
  23.     (set #copying-library "Copying utilities.library...")
  24.   )
  25. )
  26.  
  27. (if (= @language "polski")
  28.   (
  29.     (set #select-destination
  30.       (cat "Gdzie chcesz zainstalowaΩ pliki zwiΓzane z programem? Katalog "
  31.            "o nazwie \"Commander\" zostanie automatycznie utworzony."
  32.       )
  33.     )
  34.     (set #select-executable "Gdzie chcesz zainstalowaΩ plik wykonywalny?")
  35.     (set #select-catalogs "Kt≤re tεumaczenia chcesz zainstalowaΩ?")
  36.     (set #copying-files "Kopiujδ pliki...")
  37.     (set #copying-library "Kopiujδ utilities.library...")
  38.  
  39.   )
  40. )
  41. ;
  42. ;
  43. ;--------------------------------------------------------------------------
  44. ;
  45. ;
  46.  
  47. ;
  48. ;  Ask about files' destination
  49. ;
  50. (set #destinationParent
  51.   (askdir
  52.     (prompt  #select-destination)
  53.     (help    @askdir-help)
  54.     (default "SYS:")
  55.   )
  56. )
  57.  
  58. ;
  59. ;  Ask about executable's destination
  60. ;
  61. (set #destinationExecutable
  62.   (askdir
  63.     (prompt  #select-executable)
  64.     (help    @askdir-help)
  65.     (default "SYS:WBStartup/")
  66.   )
  67. )
  68.  
  69. ;
  70. ;  Ask about catalogs
  71. ;
  72. (set #catalogs
  73.   (askoptions 
  74.     (prompt  #select-catalogs)
  75.     (help    @askoptions-help)
  76.     (choices "Deutsch" "Polski")
  77.     (default 0)
  78.   )
  79. )
  80. ;
  81. ;
  82. ; -------------------------------------------------------------------------
  83. ;
  84. ;
  85. (set #destination
  86.   (tackon #destinationParent "Commander"
  87.   )
  88. )
  89.  
  90. ;
  91. ;  Create destination directory
  92. ;
  93. (makedir #destination
  94.   (infos)
  95. )
  96.  
  97. ;
  98. ;  Copy files
  99. ;
  100. (copyfiles
  101.   (source  "/")
  102.   (dest    #destination)
  103.   (choices "Docs")
  104.   (prompt  #copying-files)
  105.   (help    @copyfiles-help)
  106.   (infos)
  107. )
  108.  
  109. ;
  110. ;  Copy executable file
  111. ;
  112. (copyfiles
  113.   (source  "/WBStartup/Commander")
  114.   (dest    #destinationExecutable)
  115.   (prompt  #copying-files)
  116.   (help    @copyfiles-help)
  117.   (infos)
  118. )
  119.  
  120. ;
  121. ;  Copy catalog description and catalogs
  122. ;
  123. (makedir (cat #destination "/Catalogs") )
  124. (copyfiles
  125.   (source "/Catalogs.info")
  126.   (dest   #destination)
  127.   (prompt #copying-files)
  128.   (help   @copyfiles-help)
  129. )
  130.  
  131. (copyfiles
  132.   (source  "/Catalogs/Commander.cd")
  133.   (dest    (cat #destination "/Catalogs") )
  134.   (prompt  #copying-files)
  135.   (help    @copyfiles-help)
  136. )
  137.  
  138. (set n 0)
  139. (while (set #catalog (select n "Polski" "Deutsch" "") )
  140.  (
  141.   (if (IN #catalogs n)
  142.    (
  143.     (copyfiles
  144.      (source (cat "/Catalogs/" #catalog) )
  145.      (dest   (cat "LOCALE:Catalogs/" #catalog) )
  146.      (all)
  147.     )
  148.    )
  149.   )
  150.   (set n (+ n 1) )
  151.  )
  152. )
  153.  
  154. ;
  155. ;  Copy utilities.library
  156. ;
  157. (copylib
  158.   (source "/Libs/utilities.library")
  159.   (dest   "Libs:")
  160.   (prompt #copying-library)
  161.   (help   @copylib-help)
  162.   (confirm)
  163. )
  164.  
  165. ;
  166. ;  Copy wbstart.library
  167. ;
  168. (copylib
  169.   (source "/Libs/wbstart.library")
  170.   (dest   "Libs:")
  171.   (prompt #copying-library)
  172.   (help   @copylib-help)
  173.   (confirm)
  174. )
  175.  
  176. (exit)
  177.