home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / bus_pers / recal13.lha / Recall / InstallMe! next >
Text File  |  1993-06-04  |  2KB  |  114 lines
  1. ; A simple installation-script for the Recall-package
  2.  
  3. (set #programmer        "© 1993 Ketil Hunn")
  4. (set #version                "V1.01")
  5. (set #Mainprog            "Recall")
  6. (set #Prefsprog            "RecallPrefs")
  7. (set #Script                "Recall.prefs")
  8. (set #guide                    "Recall.guide")
  9. (set #Sourcedir            "Source")
  10. (set @default-dest    "SYS:")
  11.  
  12. (set mainsize             14280)
  13. (set prefssize         27672)
  14. (set libssize             38104)
  15. (set projectsize        863)
  16. (set guidesize         25506)
  17. (set sourcesize        83507)
  18.  
  19. (set done (+ mainsize prefssize libssize projectsize guidesize sourcesize))
  20.  
  21. (complete 0)
  22.  
  23. (set progs
  24.     (askoptions
  25.         (help            @askoptions-help)
  26.         (prompt            "Select parts of the package to be installed:")
  27.             (choices    "Recall"
  28.                                 "RecallPrefs"
  29.                                 "Recall.prefs"
  30.                                 "Recall.guide"
  31.                                 "C-Source"
  32.                 (default    31)
  33.           )
  34.     )
  35. )
  36.  
  37. (if (IN progs 3) (
  38.     (set docdest
  39.         (askdir
  40.             (prompt        "Select in which drawer to install the documentation:")
  41.             (help            @askdir-help)
  42.             (default    @default-dest))
  43.         )
  44.     )
  45. )
  46.  
  47. (if (IN progs 4) (
  48.     (set sourcedest
  49.         (askdir
  50.             (prompt        "Select in which drawer to install the sourcecode:")
  51.             (help            @askdir-help)
  52.             (default    @default-dest))
  53.         )
  54.     )
  55. )
  56.  
  57. (if (IN progs 0) (
  58.     (copylib(source    #Mainprog)
  59.                     (dest        "SYS:WBStartup")
  60.                     (prompt (cat "About to copy " #Mainprog))
  61.                     (help        @copylib-help)
  62.                     (confirm)
  63.                     (infos))
  64.     )
  65. )
  66. (complete (/ (* (set sofar (+ sofar mainsize)) 100) done))
  67.  
  68. (if (IN progs 1) (
  69.     (copylib(source    #Prefsprog)
  70.                     (dest        "SYS:Prefs")
  71.                     (prompt (cat "About to copy " #Prefsprog))
  72.                     (help        @copylib-help)
  73.                     (confirm)
  74.                     (infos))
  75.     )
  76. )
  77. (complete (/ (* (set sofar (+ sofar prefssize)) 100) done))
  78.  
  79. (copylib(source    "Libs")
  80.                 (dest        "Libs:")
  81.                 (prompt (cat "About to copy ReqTools.library" ))
  82.                 (help        @copylib-help)
  83.                 (confirm))
  84. (complete (/ (* (set sofar (+ sofar libssize)) 100) done))
  85.  
  86. (if (IN progs 2) (
  87.     (set OK (askbool(prompt "About to copy " #Script "\n\n"
  88.                                     "Destination Drawer to Copy to:\n"
  89.                                     "ENVARC:")
  90.                                     (help @askbool-help)
  91.                                     (default 1)))
  92.         (copyfiles(source    #Script)
  93.                             (dest        "ENVARC:"))
  94.     )
  95. )
  96. (complete (/ (* (set sofar (+ sofar projectsize)) 100) done))
  97.  
  98. (if (IN progs 3) (
  99.     (copyfiles(source    #guide)
  100.                         (dest        docdest)
  101.                         (infos))
  102.     )
  103. )
  104. (complete (/ (* (set sofar (+ sofar guidesize)) 100) done))
  105.  
  106. (if (IN progs 4) (
  107.     (copyfiles(source    #Sourcedir)
  108.                         (dest        (tackon sourcedest "RecallSource"))
  109.                         (all)
  110.                         (infos))
  111.     )
  112. )
  113. (complete 100)
  114.