home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Editor / DST-LUM.LHA / luminus / Install_Luminus < prev    next >
Encoding:
Text File  |  1980-12-12  |  3.1 KB  |  173 lines
  1. ; Install-Script for Luminus 2.12
  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.