home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Commodities / HyperHelp / HyperInstall < prev    next >
Encoding:
Text File  |  1996-09-27  |  3.6 KB  |  160 lines
  1. ; A simple installation-script for the HyperHelp archive
  2. ; $VER: HyperInstall 0.23 (17/05/94)
  3. ;
  4.  
  5. (set #programmer     "Russell/Lutzenberger")
  6. (set #version        "V0.23")
  7. (set #Mainprog       "HyperHelp_cx")
  8. (set #Prefsprog      "HyperHelp")
  9. (set #Indexprog      "MakeIndex")
  10. (set #cli_Prefsprog  "MakePrefs")
  11. (set #guideeng       "HyperHelp.guide")
  12. (set #guidedeu       "HyperHelp.Dguide")
  13. (set #CRC_history    "CRC_History.txt")
  14. (set #exe            "exe.lst")
  15. (set @default-dest   "SYS:")
  16.  
  17. (set mainsize        20988)
  18. (set prefssize       25620)
  19. (set guidesize       36303)
  20. (set guidedeusize    36303)
  21. (set indexsize       17204)
  22. (set exesize         181)
  23. (set cli_prefssize   10044)
  24. (set crc_history     1519)
  25.  
  26. (set done (+ mainsize exesize prefssize guidesize guidedeusize indexsize cli_prefssize crc_history))
  27.  
  28. (complete 0)
  29.  
  30. (set progs
  31.    (askoptions
  32.       (help       @askoptions-help)
  33.       (prompt        "Select parts of the package to be installed:")
  34.          (choices      "HyperHelp    (Preferences)"
  35.                        "HyperHelp_cx (Commodity)"
  36.                        "HyperHelp.guide"
  37.                        "CLI prefs programs"
  38.             (default   31)
  39.          )
  40.    )
  41. )
  42.  
  43. (if (IN progs 2) (
  44.    (set docdest
  45.       (askdir
  46.          (prompt     "Select in which drawer to install the documentation:")
  47.          (help       @askdir-help)
  48.          (default    @default-dest))
  49.       )
  50.    )
  51. )
  52.  
  53. (if (IN progs 2) (
  54.    (set langs
  55.       (askoptions
  56.          (help       @askoptions-help)
  57.          (prompt     "Select document languages to install:")
  58.             (choices "German"
  59.                      "English"
  60.                      (default   31)
  61.             )
  62.       )
  63.    )
  64. ))
  65.  
  66.  
  67. (if (IN progs 3) (
  68.    (set clidest
  69.       (askdir
  70.          (prompt     "Select in which drawer to install the CLI programs:")
  71.          (help       @askdir-help)
  72.          (default    "C:"))
  73.       )
  74.    )
  75. )
  76.  
  77. (if (IN progs 1) (
  78.    (copylib(source  #Mainprog)
  79.                (dest    "SYS:WBStartup")
  80.                (prompt  (cat "About to copy " #Mainprog))
  81.                (help    @copylib-help)
  82.                (confirm)
  83.                (infos))
  84.    )
  85. )
  86. (complete (/ (* (set sofar (+ sofar mainsize)) 100) done))
  87.  
  88. (if (IN progs 0) (
  89.    (copylib(source   #Prefsprog)
  90.                (dest      "SYS:Prefs")
  91.                (prompt (cat "About to copy " #Prefsprog))
  92.                (help      @copylib-help)
  93.                (confirm)
  94.                (infos))
  95.    )
  96. )
  97. (complete (/ (* (set sofar (+ sofar prefssize)) 100) done))
  98.  
  99. (if (IN progs 2) (
  100.    (if (IN langs 0) (
  101.       (copylib(source   #guidedeu)
  102.          (dest      docdest)
  103.          (infos)
  104.          )
  105.       ))
  106.    (if (IN langs 1) (
  107.       (copylib(source   #guideeng)
  108.          (dest       docdest)
  109.          (infos)
  110.          )
  111.       ))
  112.    ))
  113. (complete (/ (* (set sofar (+ sofar guidesize)) 100) done))
  114. (complete (/ (* (set sofar (+ sofar guidedeusize)) 100) done))
  115.  
  116. (if (IN progs 2) (
  117.    (copyfiles 
  118.       (source  #exe)
  119.       (dest    docdest)
  120.       (infos)
  121.       )
  122.    )
  123. )
  124. (complete (/ (* (set sofar (+ sofar exesize)) 100) done))
  125.  
  126. (if (IN progs 2) (
  127.    (copylib(source   #CRC_History)
  128.       (dest      docdest)
  129.       (infos)
  130.       )
  131.    )
  132. )
  133. (complete (/ (* (set sofar (+ sofar crc_history)) 100) done))
  134.  
  135. (if (IN progs 3) (
  136.    (copylib
  137.       (source #Indexprog)
  138.       (dest    clidest)
  139.       (prompt  (cat "About to copy " #Indexprog))
  140.       (help    @copylib-help)
  141.       (confirm)
  142.       (infos)
  143.       )
  144.    )
  145. )
  146. (complete (/ (* (set sofar (+ sofar indexsize)) 100) done))
  147.  
  148. (if (IN progs 3) (
  149.    (copylib
  150.       (source #cli_Prefsprog)
  151.       (dest    clidest)
  152.       (prompt  (cat "About to copy " #cli_Prefsprog))
  153.       (help    @copylib-help)
  154.       (confirm)
  155.       (infos)
  156.       )
  157.    )
  158. )
  159. (complete 100)
  160.