G:/ScriptBasic/source/commands/goto.c

Go to the documentation of this file.

/*goto.c

--GNU LGPL
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.

This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public
License along with this library; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

*/

#include <stdlib.h>
#include <stdio.h>

#include "../command.h"

COMMAND(GOTO)
#if NOTIMP_GOTO
NOTIMPLEMENTED;
#else


  SETPROGRAMCOUNTER(PARAMETERNODE);

#endif
END

COMMAND(RESUMELABEL)
#if NOTIMP_RESUMELABEL
NOTIMPLEMENTED;
#else


  SETPROGRAMCOUNTER(PARAMETERNODE);
  pEo->LastError = 0;
  pEo->ErrorGoto = 0;
  pEo->fErrorGoto = 0;

#endif
END
COMMAND(ONERRORRESUMELABEL)
#if NOTIMP_ONERRORRESUMELABEL
NOTIMPLEMENTED;
#else


  pEo->ErrorGoto = PARAMETERNODE;
  pEo->fErrorGoto = ONERROR_RESUME;

#endif
END

COMMAND(ONERRORGOTONULL)
#if NOTIMP_ONERRORGOTONULL
NOTIMPLEMENTED;
#else


  pEo->ErrorGoto = 0;
  pEo->fErrorGoto = 0;

#endif
END

COMMAND(ONERRORGOTO)
#if NOTIMP_ONERRORGOTO
NOTIMPLEMENTED;
#else


  pEo->ErrorGoto = PARAMETERNODE;
  pEo->fErrorGoto = ONERROR_GOTO;

#endif
END

COMMAND(RESUME)
#if NOTIMP_RESUME
NOTIMPLEMENTED;
#else


  pEo->LastError = 0;
  if( !pEo->ErrorResume )ERROR(COMMAND_ERROR_NO_RESUME);
  SETPROGRAMCOUNTER(pEo->ErrorResume);

#endif
END

COMMAND(ONERRORRESUMENEXT)
#if NOTIMP_ONERRORRESUMENEXT
NOTIMPLEMENTED;
#else


  pEo->fErrorGoto = ONERROR_RESUMENEXT;

#endif
END

COMMAND(RESUMENEXT)
#if NOTIMP_RESUMENEXT
NOTIMPLEMENTED;
#else


  pEo->LastError = 0;
  if( ! pEo->ErrorResume )ERROR(COMMAND_ERROR_NO_RESUME);
  SETPROGRAMCOUNTER( CDR(pEo->ErrorResume) );

#endif
END

COMMAND(STOP)
#if NOTIMP_STOP
NOTIMPLEMENTED;
#else

  pEo->fStop = fStopSTOP;

#endif
END

COMMAND(END)
#if NOTIMP_END
NOTIMPLEMENTED;
#else

  pEo->fStop = fStopSTOP;

#endif
END

COMMAND(ERROR)
#if NOTIMP_ERROR
NOTIMPLEMENTED;
#else


  RESULT = NEWMORTALLONG;
/*  ASSERTNULL(RESULT) we already raise an error */
  if( RESULT ){
    LONGVALUE(RESULT) = pEo->LastError;
    }

#endif
END

COMMAND(ERRORDOLLAR)
#if NOTIMP_ERRORDOLLAR
NOTIMPLEMENTED;
#else
  VARIABLE vErrCode;
  long lErrCode;

  USE_CALLER_MORTALS;

  vErrCode = NULL;
  if( CAR(PARAMETERLIST) ){
    vErrCode = _EVALUATEEXPRESSION(CAR(PARAMETERLIST));
    ASSERTOKE;
    }
  if( vErrCode == NULL ){
    lErrCode = pEo->LastError;
    }else lErrCode = GETLONGVALUE(vErrCode);

  if( lErrCode < 0 || lErrCode >= MAX_ERROR_CODE ){
    RESULT = NULL;
    RETURN;
    }

  RESULT = NEWMORTALSTRING(strlen(en_error_messages[lErrCode]));
  ASSERTNULL(RESULT)
  memcpy(STRINGVALUE(RESULT),en_error_messages[lErrCode],STRLEN(RESULT));

#endif
END

COMMAND(CERROR)
#if NOTIMP_CERROR
NOTIMPLEMENTED;
#else


  ERROR(pEo->LastError=LONGVALUE(CONVERT2LONG(EVALUATEEXPRESSION(PARAMETERNODE))));
  /* this is a bit weird, but it can happen that the user wants to create an error and
     an error happens while the expression following the keyword ERROR is evaluated */
  ASSERTOKE;

#endif
END

---