home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / biz / misc / Ami_Broker160E.lha / AmiBroker160E / Install-AmiBroker < prev    next >
Text File  |  1995-12-17  |  3KB  |  188 lines
  1. ; Installer Script for AmiBroker 1.60
  2. ; Dec 16th, 1995  Tomasz Janeczko, TJ Productions.
  3.  
  4. ; set up an error cleanup routine
  5. (onerror
  6.         (makeassign "AmiBrokerinstpgm" (safe))
  7. )
  8.  
  9.  
  10. ; check OS version
  11.  
  12. (if (< (/ (getversion) 65536) 37)
  13.     (
  14.         (message "I'm sorry but AmiBroker requires OS 2.04 or better")
  15.  
  16.         (exit (quiet))
  17.     )
  18. )
  19.  
  20. ;just started
  21. (complete 0)
  22.  
  23.  
  24. (message "\nAmiBroker 1.6\nInstallation script\n"
  25.          "Copyright (C)1995 by Tomasz Janeczko\n\n"
  26.          "This is SHAREWARE product, so if you use it you should register\n\n\n"
  27.          "ReqTools (C)1991-1995 Nico François\n"
  28.          "Installer (C)1991-93 Commodore-Amiga, Inc."
  29.          )
  30.  
  31. (welcome)
  32.  
  33. ;cancel the assign in case of installation restart
  34. (makeassign "AmiBrokerinstpgm" (safe))
  35.  
  36.  
  37. ; get the dest dir for AmiBroker
  38. (set AmiBroker_dest
  39.         (tackon
  40.                 (askdir
  41.                         (prompt "Where do you want to install AmiBroker? ('AmiBroker' drawer will be created for you)")
  42.                         (help @askdir-help)
  43.                         (default @default-dest)
  44.                 )
  45.                 "AmiBroker"
  46.         )
  47. )
  48.  
  49.  
  50. (complete 10)
  51.  
  52. ;We now have a valid destination, so tell Installer where AmiBroker will end up
  53. ;so the exit page will be correct.
  54. (set @default-dest AmiBroker_dest)
  55.  
  56. ;copy program files from source to dest
  57.  
  58. (copyfiles
  59.   (source "AmiBroker")
  60.   (dest AmiBroker_dest)
  61.   (infos)
  62. )
  63.  
  64. (complete 10)
  65.  
  66. (copyfiles
  67.   (source "AmiBroker.FPU")
  68.   (dest AmiBroker_dest)
  69.   (infos)
  70. )
  71.  
  72. (complete 20)
  73.  
  74. (copyfiles
  75.   (source "AmiBroker.guide")
  76.   (dest AmiBroker_dest)
  77.   (infos)
  78. )
  79.  
  80.  
  81. (complete 30)
  82.  
  83. (copyfiles
  84.   (source "AmiBroker.history")
  85.   (dest AmiBroker_dest)
  86.   (infos)
  87. )
  88.  
  89. (copyfiles
  90.   (source "ReadMe")
  91.   (dest AmiBroker_dest)
  92.   (infos)
  93. )
  94.  
  95. ; delete old data file if exists
  96. (if (exists (tackon AmiBroker_dest "broker.data"))
  97.     (delete (tackon AmiBroker_dest "broker.data"))
  98. )
  99.  
  100.  
  101. (complete 40)
  102. (makedir (tackon AmiBroker_dest "data") )
  103.  
  104. (copyfiles
  105.   (source "data")
  106.   (dest (tackon AmiBroker_Dest "data" ) )
  107.   (all)
  108. )
  109.  
  110. (complete 60)
  111.  
  112. (if (NOT (exists (tackon AmiBroker_dest "broker.portfolio") ) )
  113.     (copyfiles
  114.      (source "broker.portfolio")
  115.      (dest AmiBroker_dest)
  116.     )
  117. )
  118.  
  119. ; copy key-file if exists
  120. (if (exists "broker.key")
  121.     (copyfiles
  122.      (source "broker.key")
  123.      (dest AmiBroker_dest)
  124.     )
  125. )
  126.  
  127. (complete 70)
  128.  
  129. ; delete old BrokerSymbol font (1.22 and earlier vers) if exists
  130. (if (exists "FONTS:BrokerSym.font")
  131.     (delete "FONTS:BrokerSym.font")
  132. )
  133.  
  134. (if (exists "FONTS:BrokerSym/16")
  135.     (delete "FONTS:BrokerSym/16")
  136. )
  137.  
  138. (if (exists "FONTS:BrokerSym")
  139.     (delete "FONTS:BrokerSym")
  140. )
  141.  
  142. ; copy fonts needed
  143. (copyfiles
  144.   (source "fonts")
  145.   (dest "FONTS:")
  146.   (fonts)
  147.   (all)
  148. )
  149.  
  150.  
  151. (complete 80)
  152.  
  153. (copyfiles
  154.   (source "ARexxDemo.abrx")
  155.   (dest AmiBroker_dest)
  156.   (infos)
  157. )
  158.  
  159. (makedir (tackon AmiBroker_dest "Examples") )
  160.  
  161. (copyfiles
  162.   (source "Examples")
  163.   (dest (tackon AmiBroker_Dest "Examples" ) )
  164.   (all)
  165. )
  166.  
  167. (copyfiles
  168.   (source "examples.info")
  169.   (dest AmiBroker_Dest)
  170. )
  171.  
  172. (complete 90)
  173.  
  174. ;un-snapshot the AmiBroker drawer icon
  175. (tooltype
  176.         (dest AmiBroker_dest)
  177.         (noposition)
  178. )
  179.  
  180. ;done with the install
  181. (complete 100)
  182.  
  183. ;cleanup
  184. (makeassign "AmiBrokerinstpgm" (safe))
  185.  
  186. ;and get out
  187. (exit)
  188.