home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / graphics / tsmorph / install < prev    next >
Encoding:
Text File  |  1993-05-15  |  2.0 KB  |  121 lines
  1. ; This is the script to install TSMorph
  2. ; $VER: TSMorph-Install 1.2 (15.5.93)
  3.  
  4. (set InstallDir
  5.     (askdir
  6.         (prompt "Where do you want to install TSMorph 1.2?")
  7.         (help @askdir-help)
  8.         (default "Work:")
  9.     )
  10. )
  11.  
  12. (Set DestDir 
  13.     (tackon InstallDir "TSMorph")
  14. )
  15.  
  16. (Set RexxDir 
  17.     (tackon DestDir "Rexx")
  18. )
  19.  
  20. (set @default-dest 
  21.     DestDir
  22. )
  23.  
  24. (makedir
  25.     DestDir 
  26.     (infos)
  27. )
  28.  
  29. (Set Use040
  30.     (= 
  31.         (database
  32.             "cpu"
  33.         )
  34.          68040
  35.     )
  36. )
  37.  
  38. (set Use881
  39.     (askbool
  40.         (prompt "Install 68020/030/68881/2/68040 version")
  41.         (help "There are two versions of the TSMorph-render program. "
  42.                 "One requires both a 68020 or 68030 CPU with a 68881 or 68882 FPU or a 68040. "
  43.                 "The other should run on any processor.")
  44.         (default Use040)
  45.     )
  46. )
  47.  
  48. (if Use881
  49.     (
  50.         (copyfiles
  51.             (prompt "Copying TSMorph program and data files")
  52.             (help @copyfiles-help)
  53.             (source "")
  54.             (dest DestDir)
  55.             (choices "TSMorph" "TSMorph-render.881" "TSMorph.guide")
  56.             (infos)
  57.             (confirm)
  58.         )
  59.         (rename (tackon DestDir "TSMorph-render.881")
  60.                   (tackon DestDir "TSMorph-render")
  61.         )
  62.         (rename (tackon DestDir "TSMorph-render.881.info")
  63.                   (tackon DestDir "TSMorph-render.info")
  64.         )
  65.     )
  66.     (copyfiles
  67.         (prompt "Copying TSMorph program and data files")
  68.         (help @copyfiles-help)
  69.         (source "")
  70.         (dest DestDir)
  71.         (choices "TSMorph" "TSMorph-render" "TSMorph.guide")
  72.         (infos)
  73.         (confirm)
  74.     )
  75. )
  76.  
  77. (makedir
  78.     RexxDir
  79.     (infos)
  80. )
  81.  
  82. (copyfiles
  83.     (prompt "Copying example Rexx scripts")
  84.     (help @copyfiles-help)
  85.     (source "Rexx")
  86.     (dest RexxDir)
  87.     (all)
  88.     (infos)
  89.     (confirm)
  90. )
  91.  
  92. (makedir "ENVARC:TSMorph")
  93.  
  94. (copyfiles
  95.     (prompt "Copying Icon to ENVARC:")
  96.     (help @copyfiles-help)
  97.     (source "")
  98.     (dest "ENVARC:TSmorph")
  99.     (choices "ENV/TSMorph/def_points.info")
  100.     (confirm)
  101. )
  102.  
  103. (makedir "ENV:TSMorph")
  104.  
  105. (copyfiles
  106.     (prompt "Copying Icon to ENV:")
  107.     (help @copyfiles-help)
  108.     (source "")
  109.     (dest "ENV:TSmorph")
  110.     (choices "ENV/TSMorph/def_points.info")
  111.     (confirm)
  112. )
  113.  
  114. (startup "TSMorph"
  115.     (prompt "Adding assign TSMorph: to " DestDir " in s:user-startup")
  116.     (help @startup-help)
  117.     (command "Assign TSMorph: " DestDir)
  118. )
  119.  
  120. (makeassign "TSMorph" DestDir)
  121.