home *** CD-ROM | disk | FTP | other *** search
/ Spanish Scene 4 / SpanishScene4.iso / Programas / EsteveBoix_Ind / mapPlugv142.lha / mapPlug142 / install / Install_mapPlug next >
Text File  |  1999-07-13  |  5KB  |  194 lines
  1. ;Install script for mapPlug version 1.4 © 1999 Esteve Boix
  2. ;
  3.  
  4. (complete 0)
  5.  
  6. ;========================================================
  7. ; variable setup
  8.  
  9. (set #installver (/ @installer-version 65536))
  10. (set #installrev (- @installer-version (* #installver 65536)))
  11. (set #tempversion (getversion))
  12. (set #osversion (/ #tempversion 65536))
  13. (set #osrevision (- #tempversion (* #osversion 65536)))
  14. (set #adddocs 0)
  15. (set #frominstdir (pathonly @icon))
  16. (set #frominstdir (substr #frominstdir 0 (- (strlen #frominstdir) (strlen "/install"))))
  17.  
  18. ;========================================================
  19. ; check installer version
  20.  
  21. (if (< #installver 43)
  22.     (
  23.      (abort (#mess-oldinstaller1 #installver #installrev)
  24.              #mess-oldinstaller2)
  25. ))
  26.  
  27. ;========================================================
  28. ; check kickstart version
  29.  
  30. (if (< #osversion 39)
  31.     (
  32.      (abort "Sorry, but mapPlug requires AmigaOS v3.0+")
  33. ))
  34.  
  35. ;========================================================
  36. ; Display picture
  37.  
  38. ;(if (> (exists ("c:multiview")) 0) (set #mv "c:") )
  39. ;(if (> (exists ("sys:utilities/multiview")) 0) (set #mv "sys:Utilities") )
  40. ;(if (> (exists ("sys:tools/multiview")) 0) (set #mv "sys:Tools") )
  41. ;
  42. ;(if (<> #mv 0)
  43. ;    ((run (cat "run " (tackon #mv "multiview ") "/docs/pics/webPlugS.gif"))))
  44. ;
  45. ; Hehe... Still to do :)
  46.  
  47. ;========================================================
  48. ; check mui (MUI 3.8 = muimaster.library V19.35)
  49.  
  50. (if (= (exists "LIBS:muimaster.library" (noreq)) 1)
  51.     (
  52.      (set #tempver (getversion "LIBS:muimaster.library"))
  53.      (set #muiver (/ #tempver 65536))
  54.      (set #muirev (- #tempver (* #muiver 65536)))
  55.      (if (< #muiver 19)
  56.     (
  57.      (abort ("You need a newer version of MUI. Please install it before installing mapPlug"))
  58.      )))
  59.   ((abort "mapPlug requires MUI v3.8+ !"))
  60. )
  61.  
  62. ;=============================================================================
  63. ; where should mapPlug be installed
  64.  
  65. (if (= (exists "Work:" (noreq)) 2)
  66.     (set #def-dest "Work:")
  67.     (set #def-dest "SYS:")
  68.     )
  69.  
  70. (set #directory
  71.    (askdir
  72.        (prompt "Where do you want mapPlug to be installed ?\nA new dir WILL be created")
  73.        (help @askdir-help)
  74.        (default #def-dest)
  75.     )
  76. )
  77. (complete 10)
  78.  
  79. ;=============================================================================
  80. ; should documentation be installed?
  81.  
  82. (if (OR (= #adddocs 0) (= @user-level 2))
  83. (
  84.     (set #adddocs
  85.    (askbool
  86.        (prompt "Install the provided AmigaGuide documentation ?")
  87.        (help @askbool-help)
  88.        (default 1)
  89.     ))
  90. ))
  91. (complete 20)
  92.  
  93. ;=============================================================================
  94. ; if new installation create the main directory
  95.  
  96. (if (= 0 #b-upgrade)
  97. (
  98.    (set @default-dest (tackon #directory "mapPlug"))
  99.    (makedir
  100.     (@default-dest)
  101.     (prompt "Creating mapPlug's dir")
  102.     (help @makedir-help)
  103.     (infos)
  104.    )
  105.    (complete 30)
  106.  
  107. ;-----------------------------------------------
  108. ; and copying icon file for main program/directory
  109.  
  110.    (copyfiles
  111.     (source (cat #frominstdir ".info"))
  112.     (dest (tackon @default-dest '/'))
  113.     (newname 'mapPlug.info' )
  114.     (infos)
  115.     (help @copyfiles-help)
  116.    )
  117. )
  118. ;-----------------------------------------------
  119. ; else just set @default-dest
  120.  
  121.     (set @default-dest #directory)
  122. )
  123. (complete 50)
  124.  
  125. ;=============================================================================
  126. ; copy the "toolicons" directory
  127.  
  128. (copyfiles
  129.    (source "/bin/toolicons")
  130.    (dest (tackon @default-dest "toolicons"))
  131.    (prompt "Copying mapPlug icons")
  132.    (all)
  133.    (help @copyfiles-help)
  134. )
  135. (complete 60)
  136.  
  137. ;=============================================================================
  138. ; copy the (AmigaGuide) documentation
  139. (set #docs-dest @default-dest)
  140.  
  141. (if (= 1 #adddocs)
  142.    (copyfiles
  143.       (source "/bin/mapPlug.guide")
  144.       (dest #docs-dest)
  145.       (prompt "Copying the AmigaGuide documentation")
  146.       (help @copyfiles-help)
  147.       (infos)
  148.    )
  149. )
  150. (complete 70)
  151.  
  152. ;=============================================================================
  153. ; install the BetterString.mcc MUI:Libs/mui/
  154.  
  155. (copylib
  156.     (source "/bin/mui/betterstring.mcc")
  157.     (dest "mui:libs/mui")
  158.     (prompt #prompt-betterstring)
  159. )
  160. (copylib
  161.     (source "/bin/mui/betterstring.mcp")
  162.     (dest "mui:libs/mui")
  163.     (prompt #prompt-betterstring)
  164. )
  165.  
  166. (complete 80)
  167.  
  168. ;=============================================================================
  169. ; install the executable mapPlug
  170.  
  171. (copyfiles
  172.    (source "/bin/mapPlug")
  173.    (dest @default-dest)
  174.    (prompt #prompt-executable)
  175.    (help @copyfiles-help)
  176.    (infos)
  177. )
  178.  
  179. (complete 90)
  180.  
  181. ;=============================================================================
  182. ;Close the mlutiview window
  183.  
  184. ;(rexx "quit_multiview.rexx")
  185. ;
  186. (complete 100)
  187.  
  188. ;=============================================================================
  189. ; That's it!
  190.  
  191.  
  192. (exit ("mapPlug is now installed ! Congratulations !\nPlease remember that this software is shareware. If you use it, register it. Read the docs for further details.\nThank you") )
  193.  
  194.