home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / text / skoed / skoed_install < prev    next >
Text File  |  1995-02-27  |  3KB  |  114 lines
  1. ; Installation script for SkoEd
  2.  
  3. (set vernum (getversion "SkoEd"))
  4. (set ver (/ vernum 65536))
  5. (set rev (- vernum (* ver 65536) ) )
  6.  
  7. (welcome "Ready to install SkoEd V1.14")
  8.  
  9. (if (< (/ (getversion) 65536) 37)
  10.  
  11.     (
  12.       (message "\nSkoEd is for OS v2.04 or greater\n")
  13.       (exit (quiet))
  14.     )
  15. )
  16.  
  17. (
  18.         ;get destination dir for executable
  19.         (set mydest
  20.                 (askdir
  21.                         (prompt "Select the directory to store SkoEd executable.")
  22.                         (help   "The directory where you store the executable "
  23.                                 "should be easily accessible via WorkBench or CLI/Shell.\n\n"
  24.                                 @askfile-help
  25.                         )
  26.                         (default "C:")
  27.                         (disk)
  28.                 )
  29.         )
  30.  
  31.         (set @default-dest mydest)
  32.  
  33.         (set thedest (tackon mydest "SkoEd"))
  34.  
  35.         (copylib
  36.                 (prompt ("Copying SkoEd V%ld.%ld to %s." ver rev mydest))
  37.                 (help @copyfiles-help)
  38.                 (source "SkoEd")
  39.                 (dest mydest)
  40.                 (infos)
  41.         )
  42.  
  43.         (set thedest (tackon mydest "Gadgets"))
  44.  
  45.         (copyfiles
  46.                 (prompt ("Copying Gadgets to %s" mydest))
  47.                 (help @copyfiles-help)
  48.                 (source "Gadgets/")
  49.                 (dest thedest)
  50.                 (infos)
  51.                 (all)
  52.         )
  53.  
  54.         (set thedest (tackon mydest "SkoEd.Config"))
  55.  
  56.         (if (= 1 (exists thedest))
  57.             (
  58.                (if (= 1
  59.                       (askbool
  60.                          (prompt "SkoEd.Config found. Do you wish to overwrite it?\n\n")
  61.                          (help @askbool-help)
  62.                          (default 1)
  63.                          (choices "Copy" "NO Copy")
  64.                       )
  65.                    )
  66.                    (copyfiles
  67.                        (prompt ("Copying SkoEd.Config to %s." mydest))
  68.                        (help @copyfiles-help)
  69.                        (source "SkoEd.Config")
  70.                        (dest mydest)
  71.                    )
  72.  
  73.                )
  74.             )
  75.             (copyfiles
  76.                 (prompt ("Copying SkoEd.Config to %s." mydest))
  77.                 (help @copyfiles-help)
  78.                 (source "SkoEd.Config")
  79.                 (dest mydest)
  80.             )
  81.         )
  82.  
  83.         (set thedest (tackon mydest "SkoEd.Macro"))
  84.  
  85.         (if (= 1 (exists thedest))
  86.             (
  87.                (if (= 1
  88.                       (askbool
  89.                          (prompt "SkoEd.Macro found. Do you wish to overwrite it?\n\n")
  90.                          (help @askbool-help)
  91.                          (default 1)
  92.                          (choices "Copy" "NO Copy")
  93.                       )
  94.                    )
  95.                    (copyfiles
  96.                            (prompt ("Copying SkoEd.Macro to %s." mydest))
  97.                            (help @copyfiles-help)
  98.                            (source "SkoEd.Macro")
  99.                            (dest mydest)
  100.                    )
  101.                )
  102.             )
  103.             (copyfiles
  104.                     (prompt ("Copying SkoEd.Macro to %s." mydest))
  105.                     (help @copyfiles-help)
  106.                     (source "SkoEd.Macro")
  107.                     (dest mydest)
  108.             )
  109.         )
  110.  
  111. )
  112. (run "makedir >NIL: ENV:SkoEd")
  113.  
  114.