/* $VER: 0.3 © 1993 Oliver Clouth. */
/* Starten von Kick-Pascal und Compilation des Programm's */

OPTIONS RESULTS                             /* enable return codes     */

if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
    address 'GOLDED.1'

'LOCK CURRENT'                              /* lock GUI, gain access   */
OPTIONS FAILAT 6                            /* ignore warnings         */
SIGNAL ON SYNTAX                            /* ensure clean exit       */


/* ------------------------- INSERT YOUR CODE HERE: ------------------ */

'QUERY CAT'
isGerman = (result = "deutsch")

'QUERY ANYTEXT'

if (result = 'TRUE') then 

    do
        'QUERY DOC VAR OLDNAME'             /* remember current file name */
        'SAVE ALL NAME="RAM:Test.p"'        /* create temorary file */

        shell                               /* address shell */

        'PAS:KP -w100 Ram:Test.p'           /* Aufruf von Kick-Pascal */

        ok = (RC = 0)

        shell                               /* address host (GoldED) */

        'NAME NEW ' || oldname              /* restore old file name */
    end

else do

    if (isGerman) then
        'REQUEST BODY="Kein Text vorhanden ?!"'
    else
        'REQUEST BODY="Text buffer is empty ?!"'
end

/* ---------------------------- END OF YOUR CODE ----------------------- */

'UNLOCK' /* VERY important: unlock GUI */
EXIT

SYNTAX:

SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
'UNLOCK'
EXIT