home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 10 / Fresh_Fish_10_2352.bin / new / text / edit / warpmod / install < prev    next >
Text File  |  1995-06-02  |  2KB  |  88 lines
  1. ; $VER: 1.0
  2.  
  3. (delopts "oknodelete" "force" "askuser")
  4. (complete 0)
  5.  
  6. (if (exists "GOLDED:" (NOREQ))
  7.  
  8.     (
  9.         (set vernum (getversion "golded:golded"))
  10.  
  11.         (set ver (/ vernum 65536))
  12.         (set rev (- vernum (* ver 65536)))
  13.  
  14.         (set version (+ (* 10 ver) rev))
  15.  
  16.         (if (< version 30)
  17.  
  18.             (
  19.                 (message "\nSorry, GoldED 3.0.1 or better required")
  20.                 (exit (quiet))
  21.             )
  22.         )
  23.  
  24.         (message (cat "\n"
  25.  
  26.             "GoldED WarpMOD Modula/Oberon Syntax Parser  \n"
  27.             "                                            \n"
  28.             "©1995 Dietmar Eilert                        \n"
  29.             "      DIETMAR@TOMATE.TNG.OCHE.DE            \n"
  30.             "                                            \n"
  31.             "GoldED Release 3.0.1+ required.             \n"
  32.             "                                            \n"
  33.             "This package is NOT 'freely distributable'. \n"
  34.             "Please have a look at the licence file      \n"
  35.             "before using this software. Thank you.      \n"
  36.         ))
  37.  
  38.         (copyfiles
  39.  
  40.             (source "parser")
  41.             (dest "GOLDED:syntax")
  42.             (all)
  43.         )
  44.  
  45.         (copyfiles
  46.  
  47.             (source "presets")
  48.             (dest "GoldED:presets")
  49.             (all)
  50.         )
  51.  
  52.         (if (exists "GoldED:syntax/developer/source")
  53.  
  54.             (if (not (exists "GOLDED:syntax/developer/source/example_warpMOD"))
  55.  
  56.                 (makedir "GOLDED:syntax/developer/source/example_warpMOD")
  57.             )
  58.         )
  59.  
  60.         (copyfiles
  61.  
  62.             (source "source")
  63.             (dest   "GOLDED:syntax/developer/source/example_warpMOD")
  64.             (all)
  65.         )
  66.  
  67.  
  68.         (run "bin/moveicons DIR=golded:tools GRID DX=0 DY=27 COLUMNS=1")
  69.  
  70.         (complete 100)
  71.  
  72.         (message "\nInstallation complete. Have fun :-)")
  73.  
  74.         (run (cat "gx FORCE MACRO=\"" (tackon (pathonly @icon) "auto.ged\"")))
  75.     )
  76.  
  77.     (message (cat "\n"
  78.  
  79.         "Please install GoldED before attempting to\n"
  80.         "install this client.                      \n"
  81.     ))
  82. )
  83.  
  84. (exit (quiet))
  85.  
  86. (welcome)
  87.  
  88.