home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 84 / af084sub.adf / SIZER / sizer.lzx / cdxSizer / Install_cdxSizer < prev    next >
Encoding:
Text File  |  1992-09-02  |  10.5 KB  |  305 lines
  1. ;; $VER: Install_cdxSizer 3.20b (23.9.1995)
  2. ;;
  3. ;; Install cdxSizer to system
  4. ;; (c)1995 by Codex Design Software
  5.  
  6. ;; ============================================
  7.  
  8. (set @default-dest "SYS:Commodities")
  9. (set @pretend 0)
  10. (set @user-level 2)
  11. (set #docdir "HELP:")
  12. (set #chkwindir "SYS:Utilities")
  13.  
  14. ;; ============================================ HELLO
  15.  
  16. (welcome "·C·O·D·E·X· ·D·E·S·I·G·N· ·S·O·F·T·W·A·R·E·\n"
  17.          "presents:\n"
  18.          "cdxSizer V3.20b\n"
  19.          "welcome to its installation utility\n")
  20.  
  21. (complete 10)
  22.  
  23. ;; ============================================ COPY WHERE ?
  24.  
  25. (if (askbool   (prompt "\n"
  26.                "Do you want that\n"
  27.                "\n"
  28.                "* cdxSizer V3.20b *\n"
  29.                "\n"
  30.                "will automatically be started when\n"
  31.                "the Workbench is being loaded ?")
  32.                (help   "Please decide whether you want to start "
  33.                        "cdxSizer automatically when your "
  34.                        "Workbench is been loaded.\n"
  35.                        "Therefore this program will copy cdxSizer\n"
  36.                        "to SYS:WBStartup\n"
  37.                        "IF YOU do not want to install cdxSizer "
  38.                        "to your SYS:WBStartup, select <none> !\n\n"
  39.                        @askchoice-help)
  40.                (choices "Yep !" "Nope !")
  41.                (default 1)
  42.     )
  43.     (set @default-dest "SYS:WBStartup")
  44.     (set @default-dest (askdir (prompt "Where do you want to install\n"
  45.                                        "cdxSizer ?")
  46.                                (help   "Please select a destination where\n"
  47.                                        "to put cdxSizer in...\n\n"
  48.                                        @askdir-help)
  49.                                (newpath)
  50.                                (default @default-dest)
  51.                        )
  52.     )
  53. )
  54.  
  55. ;; ============================================ COPY PALIS ?
  56.  
  57. (complete 20)
  58.  
  59. (if (exists "C:PALIS" (noreq))
  60.     (set #palis FALSE)
  61.     (set #palis (askbool (prompt "cdxSizer will make use of PALIS\n"
  62.                              "to avoid conflicts with other\n"
  63.                              "programs which may patch libraries.\n"
  64.                              "YOU ARE STRONGLY RECOMMENDED TO\n"
  65.                              "INSTALL PALIS NOW !!!!!\n"
  66.                              "See the manual for more information !")
  67.                      (help   "PALIS is a _very_ little program that\n"
  68.                              "is used to perform a simple but very\n"
  69.                              "important feature:\n"
  70.                              "It will track all patches made to\n"
  71.                              "any library and will take appropiate\n"
  72.                              "steps to manage such things as save as\n"
  73.                              "possible.\n"
  74.                              "Since PALIS will also cooperate with\n"
  75.                              "alien programs it will _not_ cause\n"
  76.                              "any trouble to your system !\n"
  77.                              "You are not able to quit cdxSizer if\n"
  78.                              "you do not install PALIS !!!!!!!!!\n"
  79.                              "\n"
  80.                              @askbool-help)
  81.                      (choices "Yes, that's cool" "No - I'm a fool")
  82.                      (default 1)
  83.              )
  84.      )
  85. )
  86.  
  87.  
  88. ;; ============================================ WHAT ELSE TO COPY
  89.  
  90. (complete 30)
  91.  
  92. (set #opts (askoptions (prompt "Which optional parts of cdxSizer do yo\n"
  93.                                "want to install ?\n"
  94.                                "Click at 'help' for further information !")
  95.                        (help   "cdxSizer manual - the documentation...\n"
  96.                                "   I guess it would be wise to install\n"
  97.                                "   this one ;-)\n"
  98.                                "Settings tester: A little program that\n"
  99.                                "   allows you to open a little window\n"
  100.                                "   showing the results of the settings\n"
  101.                    "   you are defining (5700 bytes).\n"
  102.                                "Mouseptr changes: Feature to change the\n"
  103.                                "   mousepointer when you size a window.\n"
  104.                                "   Looks much nicer... (360 bytes)\n"
  105.                                "Default settings: Settings I'm using.\n"
  106.                                "   You should copy these, too, and edit\n"
  107.                                "   them later (refer to the docs !).\n"
  108.                                "\n"
  109.                                @askoptions-help)
  110.                        (choices "cdxSizer manual"
  111.                                 "Settings tester"
  112.                                 "Mouseptr changes"
  113.                                 "Default settings")
  114.                        (default 15)
  115.             )
  116. )
  117.  
  118. (if (<> 0 (AND #opts 1))
  119.     ( ( set #docdir (askdir (prompt "Where do you want to copy the\n"
  120.                                     "manual (amigaguide) ?")
  121.                             (help   @askdir-help)
  122.                             (newpath)
  123.                             (default #docdir)
  124.                     )
  125.       )
  126.       (set #docs TRUE)
  127.     )
  128.     (set #docs FALSE)
  129. )
  130.  
  131. (if (<> 0 (AND #opts 2))
  132.    (set #test TRUE)
  133.    (set #test FALSE)
  134. )
  135.  
  136. (if (<> 0 (AND #opts 4))
  137.    (set #mptr TRUE)
  138.    (set #mptr FALSE)
  139. )
  140.  
  141. (if (<> 0 (AND #opts 8))
  142.    (set #defset TRUE)
  143.    (set #defset FALSE)
  144. )
  145.  
  146. ;; ============================================ ADDITIONAL SOFTWARE...
  147.  
  148. (complete 40)
  149.  
  150. (set #opts (askoptions (prompt "Which additional programs do you\n"
  151.                                "want to install ?\n"
  152.                                "Click at 'help' for further information !")
  153.                        (help   "chkWin V1.00 will help you to generate\n"
  154.                                "   user-settings for special windows by\n"
  155.                                "   saying you which process controls\n"
  156.                                "   a window...\n"
  157.                                "\n"
  158.                                @askoptions-help)
  159.                        (choices "chkWin V1.00")
  160.                        (default 1)
  161.             )
  162. )
  163.  
  164. (if (<> 0 (AND #opts 8))
  165.    ( (set #chkwindir (askdir (prompt "Where do you want to copy\n"
  166.                      "ChkWin V1.00 ?")
  167.                  (help   @askdir-help)
  168.                  (default #chkwindir)
  169.                  (newpath)
  170.                  )
  171.      )
  172.      (set #chkwin TRUE)
  173.    )
  174.    (set #chkwin FALSE)
  175. )
  176.  
  177. ;; ============================================ READY... COPYING
  178.  
  179. (complete 60)
  180.  
  181. (copyfiles (prompt "Copying cdxSizer V3.20b...")
  182.            (help   "Fine, isn't it ;-)")
  183.            (dest   @default-dest)
  184.            (source "cdxSizer")
  185.            (files) (infos) (optional "askuser" "force")
  186. )
  187. (makedir "S:cdxSizerData" (prompt "Creating data directory...")
  188.                           (help   "cdxSizer will store several data here.")
  189.                           (safe)
  190. )
  191.  
  192. (complete 65)
  193.  
  194. (if #palis ( (copyfiles (prompt "Copying PALIS V1.00...")
  195.                         (help   "That's cool, man...")
  196.                         (dest   "C:")
  197.                         (source "palis/Palis")
  198.                         (files) (optional "askuser" "force")
  199.              )
  200.              (startup "PALIS" (prompt "Installing PALIS V1.00...")
  201.                               (help   "PALIS is needed to be started\n"
  202.                                       "before _any_ program attempts\n"
  203.                                       "to patch a library and which\n"
  204.                                       "you may want to terminate later.\n"
  205.                       "\n"
  206.                       "Palis will be copied to C:PALIS !")
  207.                               (command "C:Palis")
  208.              )
  209.            )
  210. )
  211.  
  212. (complete 70)
  213.  
  214. (if #docs (copyfiles (prompt "Copying manual...")
  215.                        (help   "You should read this one !")
  216.                        (dest   #docdir)
  217.                        (source "doc/cdxSizer.guide")
  218.                        (files) (infos) (optional "askuser" "force" "nofail")
  219.           )
  220. )
  221.  
  222. (complete 75)
  223.  
  224. (if #test ( (makedir "S:cdxSizerData/modules"
  225.                           (prompt "Creating modules directory...")
  226.                           (help   "cdxSizer will load several data from here.")
  227.                           (safe)
  228.             )
  229.             (copyfiles (prompt "Copying module 'test'...")
  230.              (help   "Click at the '?' in the main-window to\n"
  231.                      "start the test-program !")
  232.              (dest   "S:cdxSizerData/modules")
  233.              (source "cdxSizerData/modules/cdxTest")
  234.              (files) (optional "oknodelete" "force" "nofail")
  235.         )
  236.           )
  237. )
  238.  
  239. (complete 80)
  240.  
  241. (if #mptr ( (makedir "S:cdxSizerData/pointers"
  242.                           (prompt "Creating pointers directory...")
  243.                           (help   "cdxSizer will load the images from here.")
  244.                           (safe)
  245.             )
  246.             (copyfiles (prompt "Copying pointers...")
  247.              (help   "nice gfx...")
  248.              (dest   "S:cdxSizerData/pointers")
  249.              (source "cdxSizerData/pointers")
  250.              (all)
  251.              (files) (optional "oknodelete" "force" "nofail")
  252.         )
  253.           )
  254. )
  255.  
  256. (complete 85)
  257.  
  258. (if #defset (copyfiles (prompt "Copying default user-settings...")
  259.                        (help   "Modify them, if you don't like them !")
  260.                        (dest   "S:cdxSizerData")
  261.                        (source "cdxSizerData/settings.dat")
  262.                        (files) (optional "oknodelete" "force" "nofail")
  263.             )
  264. )
  265.  
  266. (complete 90)
  267.  
  268. (if #chkwin (copyfiles (prompt "Copying ChkWin V1.00 ...")
  269.                        (help   "Start it and press the hotkey !")
  270.                        (dest   #chkwindir)
  271.                        (source "utils/chkwin")
  272.                        (infos) (files) (optional "force" "nofail")
  273.             )
  274. )
  275.  
  276. ;; ============================================ READY... COPYING
  277.  
  278. (complete 100)
  279.  
  280. (if #palis
  281.     (message "\n"
  282.          "cdxSizer V3.20B is now installed !\n"
  283.              "\n"
  284.              "Please note that you should reboot your machine before\n"
  285.              "you start PALIS.\n"
  286.              "cdxSizer can now be started from the archive but\n"
  287.              "it will (of course) warn you that PALIS is not been\n"
  288.              "found.\n"
  289.              "You may ignore that message now since it will be\n"
  290.              "found if you reboot your machine.\n"
  291.              "\n"
  292.              "** PALIS shouldn't be started now !!!!!!!! **\n"
  293.              "\n"
  294.              "Have fun, anyhow ;^)"
  295.     )
  296. )
  297.  
  298. (exit "Thank you for installing\n"
  299.       "a\n"
  300.       "·C·O·D·E·X· ·D·E·S·I·G·N· ·S·O·F·T·W·A·R·E·\n"
  301.       "production !\n\n"
  302.       "Statements etc welcome at:\n"
  303.       "codex@stern.mathematik.hu-berlin.de")
  304.