home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / text / edit / macro / mpascal / addtx.ged next >
Text File  |  1994-09-18  |  2KB  |  77 lines
  1. /*
  2. ** $VER: Compile 0.001 (18 Sep 1994) ***
  3. **
  4. ** (c) © 1994 Oliver Clouth
  5. **
  6. ** Function : Compilieren
  7. **
  8. **            ACHTUNG: Es wird nur der Pfad des Textes angegeben, es muß also
  9. **                     vorher der Text abgespeicher werden.
  10. **                     
  11. **                     Eine Möglichkeit dieses zu ändern siehe weiter unten.
  12. **
  13. **            Falls MPascal noch nicht gestartet wurde, wird dies vorher noch
  14. **            erledigt
  15. **
  16. */
  17.  
  18.  
  19. OPTIONS RESULTS                             /* enable return codes     */
  20.  
  21. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  22.     address 'GOLDED.1'
  23.  
  24. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  25. OPTIONS FAILAT 6                            /* ignore warnings         */
  26. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  27.  
  28. host = ADDRESS()                              /* get GED's port    */
  29.  
  30. /* ------------------------- INSERT YOUR CODE HERE: ------------------ */
  31.  
  32. 'QUERY CAT'
  33. isGerman = (result = "deutsch")
  34.  
  35. 'QUERY ANYTEXT'
  36.  
  37. if (result = 'TRUE') then 
  38.  
  39.     do
  40.         'QUERY DOC VAR OLDNAME'             /* remember current file name */
  41.  
  42.         'QUERY DOC VAR FNAME'              /* Filename mit Pfad in Var FNAME */
  43.                                            /* FNAME wird dem Compiler übergeben */
  44.  
  45.         shell                               /* address shell */
  46.  
  47.         ok = (RC = 0)
  48.  
  49.         shell                               /* address host (GoldED) */
  50.  
  51.         'NAME NEW ' || oldname              /* restore old file name */
  52.     end
  53.  
  54. else do
  55.  
  56.     if (isGerman) then
  57.         'REQUEST BODY="Kein Text vorhanden ?!"'
  58.     else
  59.         'REQUEST BODY="Text buffer is empty ?!"'
  60. end
  61.  
  62. 'UNLOCK' /* VERY important: unlock GUI */
  63.  
  64. IF show('p', 'MPASCAL') THEN
  65.  
  66.     do
  67.         ADDRESS MPASCAL
  68.         'addtx 'FNAME
  69.     end
  70. else 
  71.     do
  72.         ADDRESS (host)
  73.         'REQUEST BODY "Couldn''t launch MPASCAL ?!"'
  74.     end
  75.  
  76. EXIT
  77.