home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / macro28.lha / Macro / FinsGold / Modula / ResetM2Error.ged < prev    next >
Encoding:
Text File  |  1994-06-12  |  2.6 KB  |  86 lines
  1. /* $VER: ResetM2Error.ged V 0.98 © 1994 Fin Schuppenhauer      */
  2. /* 14. März 1994 0.9                                           */
  3. /* 19. März 1994 Komplett neu geschrieben; verwendet jetzt das */
  4. /*               Programm "RexxM2Error" -> 0.95                */
  5. /* 20. März 1994 Alle Faltungen werden jetzt aufgehoben (sonst */
  6. /*               kann der Fehler nicht richtig positioniert    */
  7. /*               werden -> 0.96                                */
  8. /* 29. März 1994 Textlänge (in Bytes) wird im Clip abgelegt    */
  9. /* 12. Juni 1994 "RexxM2Error wird nun auf Wunsch gestartet.   */
  10.  
  11. OPTIONS RESULTS                             /* enable return codes     */
  12.  
  13. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  14.     address 'GOLDED.1'
  15.  
  16. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  17. OPTIONS FAILAT 6                            /* ignore warnings         */
  18. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  19.  
  20.  
  21. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  22.  
  23.  
  24. 'QUERY CAT'
  25. isGerman = (result = "deutsch")
  26.  
  27. 'QUERY DOC VAR DOCNAME'
  28.  
  29. if (right(docname, 4) ~= '.mod') & (right(docname, 4) ~= '.def') then do
  30.    if (isGerman) then
  31.       'REQUEST BODY="Dies ist kein Modula-2 Quelltext!" BUTTON="Das stimmt"'
  32.    else
  33.       'REQUEST BODY="This is no Modula-2 source!" BUTTON="I see"'
  34.    'UNLOCK'
  35.    EXIT
  36. end
  37.  
  38. if ~show('P', 'REXXM2ERROR') then do
  39.    if (isGerman) then
  40.       'REQUEST BODY="RexxM2Error läuft nicht!|Soll ich es starten." BUTTON=Ja|Abbrechen'
  41.    else
  42.       'REQUEST BODY="RexxM2Error is not running!|Should i start that program." BUTTON=Yes|Cancel'
  43.    if result = '0' then do
  44.       'UNLOCK'
  45.       EXIT
  46.    end
  47.    ADDRESS COMMAND 'run >NIL: M2:RexxM2Error'
  48.    if ~show('P', 'REXXM2ERROR') then do
  49.       if (isGerman) then
  50.          'REQUEST BODY="Startversuch fehlgeschlagen!" BUTTON=Abbruch'
  51.      else
  52.          'REQUEST BODY="Starting failed!" BUTTON=Cancel'
  53.      'UNLOCK'
  54.      EXIT
  55.    end
  56. end
  57.  
  58. if exists(docname'E') then do
  59.    'FOLD OPEN=TRUE ALL'
  60.    'EXALL'
  61.    'QUERY BYTES'
  62.    call setclip('Bytes', result)
  63.    ADDRESS 'REXXM2ERROR' 'LOAD 'docname
  64.    if (isGerman) then
  65.       'REQUEST BODY="Fehlerliste geladen." BUTTON=Ok'
  66.    else
  67.       'REQUEST BODY="Errorlist loaded." BUTTON=Ok'
  68.    end
  69. else
  70.    if (isGerman) then
  71.       'REQUEST BODY="Fehlerliste nicht gefunden!" BUTTON=Ok'
  72.    else
  73.       'REQUEST BODY="Errorlist not found!" BUTTON=Ok'
  74.  
  75.  
  76. /* ---------------------------- END OF YOUR CODE --------------------- */
  77.  
  78. 'UNLOCK' /* VERY important: unlock GUI */
  79. EXIT
  80.  
  81. SYNTAX:
  82.  
  83. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  84. 'UNLOCK'
  85. EXIT
  86.