home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / compress / filearchivers / objectarchive / install-objectarchive < prev    next >
Text File  |  1995-02-28  |  3KB  |  190 lines
  1. ; ObjectArchive Installation Script
  2.  
  3. ;=============================================================================
  4.  
  5. (set @default-dest "SYS:")
  6. (complete 0)
  7.  
  8. (set #NeedV37
  9.     (cat
  10.         "ObjectArchive requires AmigaOS 2.0 or higher."
  11.     )
  12. )
  13. (set #introduction
  14.     (cat
  15.         "Your are about to install ObjectArchive and related files into your system.\n"
  16.     )
  17. )
  18.  
  19. (set #AskDocsDest
  20.     (cat
  21.         "Please select directory where to copy documentations."
  22.     )
  23. )
  24.  
  25. (set #EditStartup
  26.     (cat
  27.         "Some required commands will be added to your \"s:user-startup\" file."
  28.     )
  29. )
  30.  
  31. ;=============================================================================
  32.  
  33.  
  34. (set OSVersion (/ (getversion) 65536))
  35.  
  36. (if (< OSVersion 37)
  37.     (abort #NeedV37)
  38. )
  39.  
  40. (message #introduction)
  41.  
  42. (set DocsDir
  43.     (askdir
  44.         (prompt #AskDocsDest)
  45.         (help @askdir-help)
  46.         (default "SYS:")
  47.     )
  48. )
  49.  
  50. (if (NOT (exists "SYS:Classes" (noreq)))
  51. (
  52.     (makedir
  53.         "SYS:Classes"
  54.     )
  55.     (run
  56.         "Assign LIBS: SYS:Classes ADD"
  57.     )
  58.     ; Add the Assign command to Startup-sequence
  59.     (startup "ObjectArchive"
  60.         (prompt #EditStartup)
  61.         (help @startup-help)
  62.         (command "Assign add LIBS: SYS:Classes\n")
  63.     )
  64. ))
  65.  
  66. (if (<> (exists "SYS:Classes/Archives" (noreq)))
  67.     (makedir
  68.         "SYS:Classes/Archives"
  69.     )
  70. )
  71.  
  72. (if (<> (exists "DEVS:Archives" (noreq)))
  73.     (makedir
  74.         "DEVS:Archives"
  75.     )
  76. )
  77.  
  78. (if (<> (exists "ENV:Archives" (noreq)))
  79.     (makedir
  80.         "ENV:Archives"
  81.     )
  82. )
  83.  
  84. (if (<> (exists "ENVARC:Archives" (noreq)))
  85.     (makedir
  86.         "ENVARC:Archives"
  87.     )
  88. )
  89.  
  90. ;========= Libraries ==========
  91.  
  92. (copylib
  93.     (help @copylib-help)
  94.     (source "libs/archive.library")
  95.     (dest "LIBS:")
  96. )
  97. (copylib
  98.     (help @copylib-help)
  99.     (source "libs/whatis.library")
  100.     (dest "LIBS:")
  101. )
  102. (if (NOT (exists "S:FileTypes" (noreq)))
  103.     (copyfiles
  104.         (help @copyfiles-help)
  105.         (source "S/FileTypes")
  106.         (dest "S:")
  107.     )
  108. )    
  109.  
  110. ;========= Objects ============
  111.  
  112. (foreach "Classes/Archives" "~(#?.info)"
  113.     (copylib
  114.         (help @copylib-help)
  115.         (source (tackon "Classes/Archives" @each-name))
  116.         (dest "SYS:Classes/Archives")
  117.     )
  118. )
  119.  
  120. ;======= Archive types ========
  121.  
  122. (foreach "Devs/Archives" "~(#?.info)"
  123.     (copyfiles
  124.         (help @copyfiles-help)
  125.         (source (tackon "Devs/Archives" @each-name))
  126.         (dest "DEVS:Archives")
  127.         (infos)
  128.     )
  129. )
  130.  
  131. ;============ Env =============
  132.  
  133. (foreach "Env/Archives" "#?"
  134.     (if (<> (exists (tackon "ENV:Archives" @each-name) (noreq)))
  135.     (
  136.         (copyfiles
  137.             (help @copyfiles-help)
  138.             (source (tackon "Env/Archives" @each-name))
  139.             (dest "ENV:Archives")
  140.         )
  141.         (copyfiles
  142.             (help @copyfiles-help)
  143.             (source (tackon "Env/Archives" @each-name))
  144.             (dest "ENVARC:Archives")
  145.         )
  146.     ))
  147. )
  148.  
  149. ;========= Commands ===========
  150.  
  151. (copyfiles
  152.     (help @copyfiles-help)
  153.     (source "C/AddArchive")
  154.     (dest "C:")
  155. )
  156.  
  157. (copyfiles
  158.     (help @copyfiles-help)
  159.     (source "C/MountArchive")
  160.     (dest "C:")
  161. )
  162.  
  163. (copyfiles
  164.     (help @copyfiles-help)
  165.     (source "C/UnMount")
  166.     (dest "C:")
  167. )
  168.  
  169. ;============ Docs ============
  170.  
  171. (foreach "Docs" "#?"
  172.     (copyfiles
  173.         (help @copyfiles-help)
  174.         (source (tackon "Docs" @each-name))
  175.         (dest DocsDir)
  176.         (infos)
  177.     )
  178. )
  179.  
  180. (if (< OSVersion 39)
  181.     (tooltype
  182.         (dest (tackon DestDir "Docs/ObjectArchive_User.guide"))
  183.         (setdefaulttool "C:AmigaGuide")
  184.     )
  185. )
  186.  
  187. (complete 100)
  188. (exit)
  189.  
  190.