home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / text / edit / Luminus.lha / Luminus / Install_Luminus < prev    next >
Text File  |  1995-10-22  |  3KB  |  173 lines
  1. ; Install-Script for Luminus 0.1ß
  2.  
  3.  
  4. (complete 0)
  5.  
  6. (set @default-dest
  7.     (askdir
  8.         (prompt "In which directory would you like Luminus installed?")
  9.         (help @askdir-help)
  10.         (default @default-dest)
  11.     )
  12. )
  13.  
  14. (set @default-dest
  15.     (tackon @default-dest "Luminus")
  16. )
  17.  
  18. (set maindir @default-dest)
  19.  
  20. ; determine cpu type
  21. (set cpu
  22.     (database "cpu")
  23. )
  24.  
  25. (set defcpu
  26.     (if (OR (= cpu "68000") (= cpu "68010"))
  27.         (set defcpu 0)
  28.         (if (= cpu "68020")
  29.             (set defcpu 1)
  30.             (if (= cpu "68030")
  31.                 (set defcpu 2)
  32.                 (if (= cpu "68040")
  33.                     (set defcpu 3)
  34.                 )
  35.             )
  36.         )
  37.     )
  38. )
  39.  
  40. (set luminver
  41.     (askchoice
  42.         (prompt "Which version of Luminus would you like installed?")
  43.         (help @askchoice-help)
  44.         (choices "68000" "68020" "68030" "68040")
  45.         (default defcpu)
  46.     )
  47. )
  48.  
  49. (makedir @default-dest
  50.     (infos)
  51. )
  52.  
  53. (select luminver
  54.     ; 68000 version
  55.     (copyfiles
  56.         (help @copyfiles-help)
  57.         (source "68000/Luminus")
  58.         (dest maindir)
  59.         (infos)
  60.     )
  61.  
  62.     ; 68020 version
  63.     (copyfiles
  64.         (help @copyfiles-help)
  65.         (source "68020/Luminus020")
  66.         (dest maindir)
  67.         (newname "Luminus")
  68.         (infos)
  69.     )
  70.  
  71.     ; 68030 version
  72.     (copyfiles
  73.         (help @copyfiles-help)
  74.         (source "68030/Luminus030")
  75.         (dest maindir)
  76.         (newname "Luminus")
  77.         (infos)
  78.     )
  79.  
  80.     ; 68040 version
  81.     (copyfiles
  82.         (help @copyfiles-help)
  83.         (source "68040/Luminus040")
  84.         (dest maindir)
  85.         (newname "Luminus")
  86.         (infos)
  87.     )
  88. )
  89.  
  90. (copyfiles
  91.     (help @copyfiles-help)
  92.     (source "Luminus.info")
  93.     (dest maindir)
  94. )
  95.  
  96. (complete 60)
  97.  
  98. (set dodocs
  99.     (askbool
  100.         (prompt "Do you want to install the documentation?")
  101.         (help @askbool-help)
  102.         (default 1)
  103.     )
  104. )
  105.  
  106. (if dodocs
  107.     (
  108.         (set docsdir
  109.             (tackon @default-dest "Docs")
  110.         )
  111.  
  112.         (makedir docsdir
  113.             (infos)
  114.         )
  115.  
  116.         (copyfiles
  117.             (help @copyfiles-help)
  118.             (source "Docs")
  119.             (dest docsdir)
  120.             (choices "Luminus.doc")
  121.             (infos)
  122.             (optional "nofail")
  123.         )
  124.     )
  125. )
  126.  
  127. (complete 80)
  128.  
  129. ; (set guidedir
  130. ;    (askdir
  131. ;        (prompt "In which directory would you like Luminus' AmigaGuide file?")
  132. ;        (help @askdir-help)
  133. ;        (default maindir)
  134. ;        (newpath)
  135. ;    )
  136. ; )
  137.  
  138. ; (set guidedir (expandpath guidedir))
  139.  
  140. ; create guidedir if it doesn't exist
  141. ; (if (NOT (exists guidedir))
  142. ;    (makedir guidedir
  143. ;        (infos)
  144. ;    )
  145. ; )
  146.  
  147. (copyfiles
  148.     (help @copyfiles-help)
  149.     (source "Docs")
  150.     (dest maindir)
  151.     (choices "Luminus.guide")
  152.     (infos)
  153.     (optional "nofail")
  154. )
  155.  
  156. ; .guide file uses AmigaGuide instead of MultiView for OS <= V38
  157. (set ver (/ (getversion) 65536))
  158.  
  159. (if (> ver 38)
  160.     (tooltype
  161.         (dest (tackon maindir "Luminus.guide"))
  162.         (setdefaulttool "MultiView")
  163.     )
  164. )
  165.  
  166. (run "c:avail flush")
  167. (run "c:avail flush")
  168.  
  169. (complete 100)
  170.  
  171. (exit)
  172.  
  173.