home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / CRX-AB13.LHA / AmiBroker135E / Install-AmiBroker < prev    next >
Encoding:
Text File  |  1995-10-20  |  3.2 KB  |  185 lines
  1. ; Installer Script for AmiBroker 1.30e
  2. ; Sep 24th, 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 "Bardzo mi przykro ale program AmiBroker wymaga systemu w wersji 2.04 lub wyûszej")
  15.  
  16.         (exit (quiet))
  17.     )
  18. )
  19.  
  20. ;just started
  21. (complete 0)
  22.  
  23.  
  24. (message "\nAmiBroker 1.3\nInstallation script\n"
  25.          "Copyright (C)1995 by Tomasz Janeczko\n\n"
  26.          "This is SHAREWARE product,\nso if you like 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 "Select where do you want to install AmiBroker? ( Directory called 'AmiBroker' will be created there)")
  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. (copyfiles
  113.   (source "broker.prefs")
  114.   (dest AmiBroker_dest)
  115. )
  116.  
  117. (complete 65)
  118.  
  119. (if (NOT (exists (tackon AmiBroker_dest "broker.portfolio") ) )
  120.     (copyfiles
  121.      (source "broker.portfolio")
  122.      (dest AmiBroker_dest)
  123.     )
  124. )
  125.  
  126. ; copy key-file if exists
  127. (if (exists "broker.key")
  128.     (copyfiles
  129.      (source "broker.key")
  130.      (dest AmiBroker_dest)
  131.     )
  132. )
  133.  
  134. (complete 70)
  135.  
  136. ; delete old BrokerSymbol font (1.22 and earlier vers) if exists
  137. (if (exists "FONTS:BrokerSym.font")
  138.     (delete "FONTS:BrokerSym.font")
  139. )
  140.  
  141. (if (exists "FONTS:BrokerSym/16")
  142.     (delete "FONTS:BrokerSym/16")
  143. )
  144.  
  145. (if (exists "FONTS:BrokerSym")
  146.     (delete "FONTS:BrokerSym")
  147. )
  148.  
  149. ; copy fonts needed
  150. (copyfiles
  151.   (source "fonts")
  152.   (dest "FONTS:")
  153.   (fonts)
  154.   (all)
  155. )
  156.  
  157.  
  158. (complete 80)
  159.  
  160. ;copy the reqtools.library
  161. (copylib
  162.         (prompt "AmiBroker requires reqtools.library")
  163.         (source "libs/reqtools.library")
  164.         (dest "LIBS:")
  165.         (confirm)
  166.         (help @copylib-help)
  167. )
  168.  
  169. (complete 90)
  170.  
  171. ;un-snapshot the AmiBroker drawer icon
  172. (tooltype
  173.         (dest AmiBroker_dest)
  174.         (noposition)
  175. )
  176.  
  177. ;done with the install
  178. (complete 100)
  179.  
  180. ;cleanup
  181. (makeassign "AmiBrokerinstpgm" (safe))
  182.  
  183. ;and get out
  184. (exit)
  185.