home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 644a.lha / dicepref_v1.0 / arexx / Run.ttx < prev    next >
Encoding:
Text File  |  1992-05-12  |  847 b   |  46 lines
  1. /*
  2.  * ARexx-Script zur Steuerung des DICE aus TTX
  3.  */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. SetStatusBar "Working..."
  8.  
  9. /*
  10.  * Filenamen des aktuelles Windows
  11.  */
  12.  
  13. GetFilePath
  14. fullname = RESULT
  15.  
  16. /*
  17.  * Erzeugen einer temporären Script-Datei
  18.  */
  19.  
  20. laenge = Index(fullname,".c")
  21. IF laenge = 0 THEN DO
  22.   SetStatusBar "Kein C-Source! Breche ab..."
  23.   EXIT
  24. END; ELSE DO
  25.   ADDRESS COMMAND
  26.   CONFENSTER = '"CON:0/400/704/112/ARexx »» DICE C-Compiler/CLOSE/SCREENTURBOTEXT"'
  27.  
  28.   name = LEFT(fullname,laenge-1)
  29.  
  30.   CALL OPEN OUT,"t:AREXXTEMP",WRITE
  31.   CALL WRITELN OUT, 'cd DCC:SRC'
  32.   CALL WRITELN OUT, 'stack 20000'
  33.   CALL WRITELN OUT, 'path DCC:BIN add'
  34.   CALL WRITELN OUT, 'make ' || name
  35.   CALL WRITELN OUT, 'list ' || name
  36.   CALL WRITELN OUT, 'runback ' || name
  37.   CALL CLOSE OUT
  38.  
  39. /*
  40.  * Aufruf einer Shell mit der Script-Datei
  41.  */
  42.  
  43.   'NEWSHELL' CONFENSTER "T:AREXXTEMP"
  44. END;
  45. EXIT
  46.