home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / database / amigabase / install-ab < prev    next >
Encoding:
Text File  |  1995-02-27  |  4.3 KB  |  189 lines
  1. ; This is the Installer-script for AmigaBase.
  2.  
  3. (set OS_version (/ (getversion) 65536))
  4. (set IsKick20 (>= OS_Version 36))
  5.  
  6. (transcript "Installing AmigaBase V1.31.")
  7. (complete 0)
  8.  
  9. (set HD_Installation
  10.    (=
  11.       (askchoice
  12.          (prompt "Choose installation:")
  13.          (help "The harddisk installation installs all files"
  14.                "in a seperate directory, while the floppy installation"
  15.                "only installs the libraries and the catalog files.")
  16.          (choices "Harddisk installation" "Floppy installation")
  17.          (default 1)
  18.       )
  19.       0
  20.    )
  21. )
  22.  
  23. (if HD_Installation
  24.    (
  25.       (set AB_dest
  26.          (askdir
  27.             (prompt "Select disk/directory where AmigaBase should be installed:")
  28.             (help "The installation program creates the directory "
  29.                   "\"AmigaBase\" in this directory.")
  30.             (default @default-dest)
  31.          )
  32.       )
  33.  
  34.       ; Make dest directory and create icon
  35.       (makedir (tackon AB_dest "AmigaBase"))
  36.       (copyfiles
  37.          (source "AB_dir.icon")
  38.          (dest AB_dest)
  39.          (newname "AmigaBase.info")
  40.       )
  41.  
  42.       (complete 10)
  43.  
  44.       ; now, we want everything to be copied into this sub-dir
  45.       (set AB_dest (tackon AB_dest "AmigaBase"))
  46.       (set @default-dest AB_dest)
  47.  
  48.       ;copy the AmigaBase drawer over
  49.       (copyfiles
  50.          (prompt "Copying 'AmigaBase' and some text files.")
  51.          (help @copyfiles-help)
  52.          (source "")
  53.          (dest AB_dest)
  54.          (choices "AmigaBase" "ReadMe" "LiesMich" "BUGS" "HISTORY" "TODO")
  55.          (infos)
  56.          (confirm)
  57.       )
  58.    )
  59. )
  60.  
  61. (complete 20)
  62.  
  63. ;copy reqtools.library
  64. (copylib
  65.    (prompt "Installing 'reqtools.library'.")
  66.     (help @copylib-help)
  67.     (source
  68.       (if IsKick20
  69.          "libs20/reqtools.library"
  70.          "libs13/reqtools.library"
  71.       )
  72.    )
  73.     (dest "libs:")
  74.     (confirm)
  75. )
  76.  
  77. (complete 30)
  78.  
  79. ;copy gadget.library
  80. (copylib
  81.    (prompt "Installing 'gadget.library'.")
  82.     (help @copylib-help)
  83.     (source "libs13/gadget.library")
  84.     (dest "libs:")
  85.     (confirm)
  86. )
  87.  
  88. (complete 40)
  89.  
  90. (if HD_Installation
  91.    (
  92.       ;make AmigaBase assign in startup-sequence
  93.  
  94.       (startup "AmigaBase"
  95.           (prompt
  96.               "An assign instruction need to be added to the \"S:user-startup\" "
  97.             "so that AmigaBase can be started by double clicking an "
  98.             "AmigaBase project."
  99.          )
  100.           (help @startup-help)
  101.           (command (cat "assign AmigaBase: " AB_dest "\n"))
  102.       )
  103.       (makeassign "AmigaBase" AB_dest)
  104.    )
  105.    (if (= (getassign "AmigaBase" "vad") "")
  106.       (
  107.          (set AB_dest (expandpath ""))
  108.          (startup "AmigaBase"
  109.              (prompt
  110.                  "An assign instruction need to be added to the \"S:user-startup\" "
  111.                "so that AmigaBase can be started by double clicking an "
  112.                "AmigaBase project."
  113.             )
  114.              (help @startup-help)
  115.              (command (cat "assign AmigaBase: " AB_dest "\n"))
  116.          )
  117.          (makeassign "AmigaBase" AB_dest)
  118.       )
  119.    )
  120. )
  121. (complete 50)
  122.  
  123. ;copy catalog files
  124. (if IsKick20
  125.    (copyfiles
  126.       (prompt "Which additional languages should AmigaBase support?")
  127.       (help "The builtin language of AmigaBase is 'english'. ")
  128.       (source "Catalogs")
  129.       (dest "LOCALE:Catalogs")
  130.       (pattern "#?")
  131.       (confirm)
  132.    )
  133. )
  134.  
  135. (complete 60)
  136.  
  137. (if HD_Installation
  138.    (
  139.       ;create "Data" directory
  140.       (makedir (tackon AB_dest "Data"))
  141.       (copyfiles
  142.          (source "Data.info")
  143.          (dest AB_dest)
  144.          (newname "Data.info")
  145.       )
  146.  
  147.       (complete 70)
  148.  
  149.       ;copy optional examples
  150.       (copyfiles
  151.          (prompt "Copying optional examples")
  152.          (help @copyfiles-help)
  153.          (source "Data")
  154.          (dest (tackon AB_dest "Data"))
  155.          (choices "Deutsch" "English" "Graphics")
  156.          (infos)
  157.          (confirm)
  158.       )
  159.  
  160.       (complete 90)
  161.  
  162.       ;copy optional AppStrings.source file
  163.       (copyfiles
  164.          (prompt "Copying optional files for translating AmigaBase into another language.")
  165.          (help @copyfiles-help)
  166.          (source "")
  167.          (dest AB_dest)
  168.          (pattern "MakeCat")
  169.          (infos)
  170.          (confirm)
  171.       )
  172.    )
  173. )
  174.  
  175. (complete 100)
  176.  
  177. (if (NOT HD_Installation)
  178.    (
  179.       (set @default-dest "")
  180.       (message
  181.          "The Libraries (and catalog files) are installed. "
  182.          "You can now start AmigaBase by double clicking its icon."
  183.       )
  184.    )
  185. )
  186.  
  187. (exit)
  188.  
  189.