home *** CD-ROM | disk | FTP | other *** search
/ World of Video / World of Video.iso / gfxprograms / edit / tsmorph30 / install < prev    next >
Encoding:
Text File  |  1995-02-13  |  8.1 KB  |  353 lines
  1. ; TSMorph - Amiga Morphing program
  2. ; Copyright (C) © 1993/94 Topicsave Limited
  3.  
  4. ; This program is free software; you can redistribute it and/or modify
  5. ; it under the terms of the GNU General Public License as published by
  6. ; the Free Software Foundation; either version 2 of the License, or
  7. ; any later version.
  8.  
  9. ; This program is distributed in the hope that it will be useful,
  10. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12. ; GNU General Public License for more details.
  13.  
  14. ; You should have received a copy of the GNU General Public License
  15. ; along with this program; if not, write to the Free Software
  16. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  17.  
  18. ; mpaddock@cix.compulink.co.uk
  19.  
  20. ; This is the script to install TSMorph
  21. ; $VER: TSMorph-Install 3.0 (5.3.94)
  22.  
  23. (complete 0)
  24.  
  25. (set InstallDir
  26.    (askdir
  27.       (prompt "Where do you want to install TSMorph 3.0")
  28.       (help @askdir-help)
  29.       (default "Work:")
  30.    )
  31. )
  32.  
  33. (if (> (/ (getversion) 65536) 38)
  34.    (set Kick30 1)
  35.    (set Kick30 0)
  36. )
  37.  
  38. (Set DestDir 
  39.    (tackon InstallDir "TSMorph")
  40. )
  41.  
  42. (Set RexxDir 
  43.    (tackon DestDir "Rexx")
  44. )
  45.  
  46. (Set CursorDir 
  47.    (tackon DestDir "Cursor")
  48. )
  49.  
  50. (Set BrushDir 
  51.    (tackon DestDir "Brush")
  52. )
  53.  
  54. (Set TutDir 
  55.    (tackon DestDir "Tutorial")
  56. )
  57.  
  58. (Set HTMLDir 
  59.    (tackon DestDir "HTML")
  60. )
  61.  
  62. (set @default-dest 
  63.    DestDir
  64. )
  65.  
  66. (makedir
  67.    DestDir 
  68.    (infos)
  69. )
  70.  
  71. (Set Use040
  72.    (= 
  73.       (database "cpu")
  74.       68040
  75.    )
  76. )
  77.  
  78. (Set Has881
  79.     (+
  80.         (AND
  81.             (NOT (run "cpu check 68881"))
  82.            (>=
  83.               (database "cpu")
  84.               68020
  85.            )
  86.        )
  87.        Use040
  88.     )
  89. )
  90.  
  91. (set Use881
  92.    (askchoice
  93.       (prompt "Install which version?")
  94.       (help "There are three versions of the TSMorph-render program. "
  95.             "One should run on any processor. "
  96.             "One requires both a 68020 or 68030 CPU with a 68881 or 68882 FPU. "
  97.             "The other requires a 68040.")
  98.       (choices
  99.          "No FPU version"
  100.          "68020/030/68881/2"
  101.          "68040"
  102.       )
  103.       (default Has881)
  104.    )
  105. )
  106.  
  107. (complete 10)
  108.  
  109. (if Use881
  110.    (if (> Use881 1)
  111.       (
  112.          (copyfiles
  113.             (prompt "Copying TSMorph program and data files")
  114.             (help @copyfiles-help)
  115.             (source "")
  116.             (dest DestDir)
  117.             (choices "TSMorph" "TSMorph-render.040" "TSMorph.doc" "TSMorph.guide" "TSMorph-prefs")
  118.             (infos)
  119.             (confirm)
  120.          )
  121.          (delete (tackon DestDir "TSMorph-render"))
  122.          (rename (tackon DestDir "TSMorph-render.040")
  123.                  (tackon DestDir "TSMorph-render")
  124.          )
  125.          (delete (tackon DestDir "TSMorph-render.info"))
  126.          (rename (tackon DestDir "TSMorph-render.040.info")
  127.                  (tackon DestDir "TSMorph-render.info")
  128.          )
  129.       )
  130.    )
  131.    (
  132.       (
  133.          (copyfiles
  134.                 (prompt "Copying TSMorph program and data files")
  135.                 (help @copyfiles-help)
  136.                 (source "")
  137.             (dest DestDir)
  138.             (choices "TSMorph" "TSMorph-render.881" "TSMorph.doc" "TSMorph.guide" "TSMorph-prefs")
  139.             (infos)
  140.             (confirm)
  141.          )
  142.          (delete (tackon DestDir "TSMorph-render"))
  143.          (rename (tackon DestDir "TSMorph-render.881")
  144.                  (tackon DestDir "TSMorph-render")
  145.          )
  146.          (delete (tackon DestDir "TSMorph-render.info"))
  147.          (rename (tackon DestDir "TSMorph-render.881.info")
  148.                  (tackon DestDir "TSMorph-render.info")
  149.          )
  150.       )
  151.    )
  152.    (copyfiles
  153.       (prompt "Copying TSMorph program and data files")
  154.       (help @copyfiles-help)
  155.       (source "")
  156.       (dest DestDir)
  157.       (choices "TSMorph" "TSMorph-render" "TSMorph.doc" "TSMorph.guide" "TSMorph-prefs")
  158.       (infos)
  159.       (confirm)
  160.    )
  161. )
  162.  
  163. (if Kick30
  164.    (tooltype
  165.       (dest (tackon destdir "TSMorph.guide"))
  166.       (setdefaulttool "MultiView")
  167.    )
  168. )
  169.  
  170. (complete 20)
  171.  
  172. (makedir
  173.    RexxDir
  174.    (infos)
  175. )
  176.  
  177. (copyfiles
  178.    (prompt "Copying example Rexx scripts")
  179.    (help @copyfiles-help)
  180.    (source "Rexx")
  181.    (dest RexxDir)
  182.    (all)
  183.    (infos)
  184.    (confirm)
  185. )
  186.  
  187. (complete 30)
  188.  
  189. (makedir "ENVARC:TSMorph")
  190.  
  191. (copyfiles
  192.    (prompt "Copying Icons to ENVARC:")
  193.    (help @copyfiles-help)
  194.    (source "")
  195.    (dest "ENVARC:TSmorph")
  196.    (choices "ENV/TSMorph/def_points.info"
  197.             "ENV/TSMorph/def_bw16.info"
  198.             "ENV/TSMorph/def_bw256.info"
  199.             "ENV/TSMorph/def_dctv3.info"
  200.             "ENV/TSMorph/def_dctv4.info"
  201.             "ENV/TSMorph/def_ham6.info"
  202.             "ENV/TSMorph/def_ham8.info"
  203.             "ENV/TSMorph/def_iff.info"
  204.             "ENV/TSMorph/def_ilbm.info"
  205.             "ENV/TSMorph/def_jpg.info"
  206.             "ENV/TSMorph/def_ppm.info"
  207.             "ENV/TSMorph/def_prefs.info")
  208.    (confirm)
  209. )
  210.  
  211. (complete 40)
  212.  
  213. (makedir "ENV:TSMorph")
  214.  
  215. (copyfiles
  216.    (prompt "Copying Icons to ENV:")
  217.    (help @copyfiles-help)
  218.    (source "")
  219.    (dest "ENV:TSmorph")
  220.    (choices "ENV/TSMorph/def_points.info"
  221.             "ENV/TSMorph/def_bw16.info"
  222.             "ENV/TSMorph/def_bw256.info"
  223.             "ENV/TSMorph/def_dctv3.info"
  224.             "ENV/TSMorph/def_dctv4.info"
  225.             "ENV/TSMorph/def_ham6.info"
  226.             "ENV/TSMorph/def_ham8.info"
  227.             "ENV/TSMorph/def_iff.info"
  228.             "ENV/TSMorph/def_ilbm.info"
  229.             "ENV/TSMorph/def_jpg.info"
  230.             "ENV/TSMorph/def_ppm.info"
  231.             "ENV/TSMorph/def_prefs.info")
  232.    (confirm)
  233. )
  234.  
  235. (complete 50)
  236.  
  237. (if
  238.    (askbool
  239.       (prompt "Copy GUI files?")
  240.       (help "Select 'Yes' to copy the GUI files. "
  241.             "These files may then be changed to allow you to configure the user interface. "
  242.             "Select 'No' if you do not wish to change the interface.")
  243.       (default 0)
  244.    )
  245.    (
  246.       (makedir CursorDir)
  247.       (copyfiles
  248.          (prompt "Copying Pointer files")
  249.          (help @copyfiles-help)
  250.          (source "Cursor")
  251.          (dest CursorDir)
  252.          (all)
  253.          (infos)
  254.          (confirm)
  255.       )
  256.       (complete 55)
  257.       (makedir BrushDir)
  258.       (copyfiles
  259.          (prompt "Copying Gadget files")
  260.          (help @copyfiles-help)
  261.          (source "Brush")
  262.          (dest BrushDir)
  263.          (all)
  264.          (infos)
  265.          (confirm)
  266.       )
  267.    )
  268. )
  269.  
  270. (complete 60)
  271.  
  272. (if
  273.    (askbool
  274.       (prompt "Copy Tutorial files?")
  275.       (help "A short tutorial and some image files are included. "
  276.             "Select 'Yes' to copy the Tutorial files. "
  277.             "Select 'No' if you do not wish to install the Tutorial.")
  278.       (default 1)
  279.    )
  280.    (
  281.       (makedir TutDir)
  282.       (copyfiles
  283.          (prompt "Copying Tutorial files")
  284.          (help @copyfiles-help)
  285.          (source "Tutorial")
  286.          (dest TutDir)
  287.          (all)
  288.          (infos)
  289.          (confirm)
  290.       )
  291.    )
  292. )
  293.  
  294. (complete 70)
  295.  
  296. (if
  297.    (askbool
  298.       (prompt "Copy .html files?")
  299.       (help "Documentation is also included in .html format. "
  300.             "You will need Mosaic to read these files. "
  301.             "If you do not have Mosaic (or do not know what it is) then "
  302.             "you will not want to copy the files. "
  303.             "Select 'Yes' to copy the .html files. "
  304.             "Select 'No' if you do not wish to install the .html files.")
  305.       (default 0)
  306.    )
  307.    (
  308.       (makedir HTMLDir)
  309.       (copyfiles
  310.          (prompt "Copying .html files")
  311.          (help @copyfiles-help)
  312.          (source "HTML")
  313.          (dest HTMLDir)
  314.          (all)
  315.       )
  316.       (complete 75)
  317.       (copyfiles
  318.          (prompt "Copying View_HTML icon")
  319.          (help @copyfiles-help)
  320.           (source "")
  321.           (dest DestDir)
  322.          (choices "View_HTML.info")
  323.       )
  324.       (set Mosaic
  325.          (askfile
  326.             (prompt "Where is Mosaic?")
  327.             (help "The exact location and name of Mosaic is required "
  328.                   "to enable a script to be set up to view the documentation.")
  329.             (default "work:Mosaic")
  330.          )
  331.       )
  332.       (textfile
  333.           (dest (tackon DestDir "View_HTML"))
  334.           (append "cd HTML\n")
  335.           (append Mosaic " file://localhost/TSMorph:html/TSMorph.html")
  336.       )
  337.    )
  338. )
  339.  
  340. (complete 80)
  341.  
  342. (startup "TSMorph"
  343.    (prompt "Adding assign TSMorph: to " DestDir " in s:user-startup")
  344.    (help @startup-help)
  345.    (command "Assign TSMorph: " DestDir)
  346. )
  347.  
  348. (complete 90)
  349.  
  350. (makeassign "TSMorph" DestDir)
  351.  
  352. (complete 100)
  353.