home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 15 / AACD15.ISO / AACD / Programming / advlite / Install < prev   
Encoding:
Text File  |  1980-09-13  |  5.1 KB  |  194 lines
  1. ; $VER: AutodocViewerLite v2.0 Install Script (13.9.2000)
  2.  
  3. (effect "upper_right" "radial" $FFFFFF $0000FF)
  4.  
  5. (set #default-dest "SYS:" )
  6.  
  7. (set #language (getenv "Language" ))
  8.  
  9. (set #applicationname (cat "AutodocViewerLite v2.0" ))
  10. (set #applicationdate (cat "13 September 2000" ))
  11.  
  12. (set #wbversion 0)
  13. (set #wbversion (getversion "libs:version.library" ))
  14. (set #wbversion (/ #wbversion 65536) )
  15.  
  16. (complete 0)
  17.  
  18. ;============================================================
  19. ; English strings
  20.  
  21. (set default_lang 4)
  22. (set default_country 1)
  23. (set #languages 1)
  24.  
  25. (set #msg-welcome
  26. (cat "\n\n" #applicationname"\n"
  27.      #applicationdate"\n"
  28.      "Copyright © 1994-2000 Ronny Tennebekk\n\n\n"
  29.      "\nThis script will install " #applicationname "\n"
  30.      "on your harddisk...\n"
  31.     ))
  32.  
  33. (set #msg-selectpath
  34. (cat "Please, select were to install " #applicationname ".\n"
  35.      "An directory called AutodocViewer will be created!"
  36.      ))
  37.  
  38. (set #msg-docpath
  39. (cat "Please, select were to install the HTML documentation.\n"
  40.      "An directory called HTML will be created!"
  41.      ))
  42.  
  43. (set #msg-badkick
  44. (cat "You must have Kickstart v3.1 and AmigaOS 3.1"
  45.      "installed to run " #applicationname "!"
  46.      ))
  47.  
  48. (set #confirm-language
  49. (cat "Please, select language to install!!!\n\n"
  50.      "english are built-in..."
  51.      ))
  52.  
  53. (set #confirm-icon
  54. (cat "Please, select icon type to install\n\n"
  55.      ))
  56.  
  57. ;(set #choice-magicwb "MagicWB" )
  58. ;(set #choice-glowicons "GlowIcons" )
  59.  
  60. (set #choice-english "English" )
  61. ;(set #choice-norwegian "Norwegian" )
  62.  
  63. (set #installing-library "Installing autodoc.library..." )
  64. (set #installing-autodocviewer "Installing " #applicationname "..." )
  65. (set #installing-images "Installing images..." )
  66. (set #installing-language "Installing language catalog..." )
  67. (set #installing-documentation "Installing documentation..." )
  68.  
  69.  
  70. ;============================================================
  71. ; make sure we are running under a KS3.1
  72.  
  73. (if (< #wbversion 40)
  74. (   (exit #msg-badkick (quiet))
  75.     ))
  76.  
  77.  
  78. ;============================================================
  79. ; the fun begins
  80.  
  81. (message #msg-welcome)
  82.  
  83. (welcome)
  84.  
  85. (showmedia "logo" "images/autodocviewerlogo.iff" "upper_left" "none" 1)
  86.  
  87. (set ask-progdir
  88.     (askdir (prompt #msg-selectpath)
  89.             (help @askdir-help)
  90.             (default #default-dest)
  91.             (disk)
  92.     ))
  93.  
  94. ;============================================================
  95. ; Create AutodocViewer directories
  96.  
  97. (makedir (tackon ask-progdir "AutodocViewer" ))
  98. (makedir (tackon ask-progdir "AutodocViewer/Images" ))
  99.  
  100. ;============================================================
  101.  
  102. ;(set ask-icontype
  103. ;    (askchoice (prompt #confirm-icon)
  104. ;               (help @askchoice-help)
  105. ;               (choices #choice-magicwb #choice-glowicons)
  106. ;    ))
  107.  
  108. (set ask-docdir
  109.     (askdir (prompt #msg-docpath)
  110.             (help @askchoice-help)
  111.             (default ask-progdir)
  112.             (disk)
  113.     ))
  114.  
  115. (set ask-language
  116.     (askchoice (prompt #confirm-language)
  117.                (help @askchoice-help)
  118.                (choices #choice-english)  ; #choice-norwegian)
  119.     ))
  120.  
  121. (set #language (select ask-language "english"
  122.                             ;        "norsk"
  123.                             ;   "dansk"
  124.                             ;   "deutsch"
  125.                             ;   "español"
  126.                             ;   "français"
  127.                             ;   "italiano"
  128.                             ;   "nederlands"
  129.                             ;   "português"
  130.                             ;   "svenska"
  131.                                ))
  132.  
  133.  
  134. ;============================================================
  135. ; Copy autodoc.library
  136.  
  137. (copylib   (prompt #installing-library)
  138.            (source "libs/autodoc.library")
  139.            (help @copylib-help)
  140.            (dest "Libs:")
  141.            (confirm)
  142.            )
  143.  
  144. ;============================================================
  145. ; Create HTML doc directory
  146.  
  147. (makedir (tackon ask-docdir "HTML" ))
  148.  
  149.  
  150. ;============================================================
  151. ; Copy files
  152.  
  153. (copyfiles (prompt #installing-autodocviewer)
  154.            (source ( "AutodocViewer" ))
  155.            (dest (tackon ask-progdir (cat "AutodocViewer" )))
  156.            (help @copyfiles-help)
  157.            (infos)
  158.            )
  159.  
  160. (copyfiles (prompt #installing-autodocviewer)
  161.            (source ( "autodocviewer.keywords" ))
  162.            (dest (tackon ask-progdir (cat "autodocviewer.keywords" )))
  163.            (help @copyfiles-help)
  164.            (infos)
  165.            )
  166.  
  167. (copyfiles (prompt #installing-images)
  168.            (source ( "Images" ))
  169.            (dest (tackon ask-progdir (cat "AutodocViewer/Images" )))
  170.            (help @copyfiles-help)
  171.            (all)
  172.            )
  173.  
  174. (copyfiles (prompt #installing-documentation)
  175.            (source ( "Docs" ))
  176.            (dest (tackon ask-docdir (cat "HTML" )))
  177.            (help @copyfiles-help)
  178.            (all)
  179.            )
  180.  
  181. (copyfiles (prompt #installing-language)
  182.            (source (tackon "Catalogs/" #language ))
  183.            (dest (tackon "Locale:Catalogs/" #language ))
  184.            (help @copyfiles-help)
  185.            (all)
  186.            )
  187.  
  188. ;============================================================
  189. ; Installization complete
  190.  
  191. (set #default-dest ask-progdir)
  192. (complete 100)
  193. (exit)
  194.