home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / text / edit / macro / mpascal / newmk.ged < prev    next >
Text File  |  1994-09-11  |  709b  |  36 lines
  1. /*
  2. ** $VER: newmk 0.002 (11 Sep 1994) ***
  3. **
  4. ** (c) © 1994 Oliver Clouth
  5. **
  6. ** FUNCTION : Erstellen eines neuen Makefiles
  7. **
  8. **            Falls MPascal noch nicht gestartet wurde wird dieses vorher noch
  9. **            erledigt.
  10. **
  11. */
  12.  
  13. host = ADDRESS()                              /* get GED's port    */
  14.  
  15. IF ~show('p', 'MPASCAL') THEN
  16.  
  17.     do
  18.        shell                                  /* talk to AmigaDos  */
  19.        'run >NIL: PASCAL:BIN/MPASCAL -c S:MPascal.config -r MPASCAL'
  20.        'WaitForPort MPASCAL'
  21.     end
  22.  
  23. IF show('p', 'MPASCAL') THEN
  24.  
  25.     do
  26.         ADDRESS MPASCAL
  27.         "newmk"
  28.     end
  29. else 
  30.     do
  31.         ADDRESS (host)
  32.         'REQUEST BODY "Couldn''t launch MPascal ?!"'
  33.     end
  34.  
  35. EXIT
  36.