Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.forth > #26781

Re: ABORT" ABORT QUIT THROW and all that

Show all headers | View raw

Albert van der Horst wrote:
> ...
> Where is the entry point for a turnkey to be filled in?
> A natural is ABORT. You want to run a Forth or a turnkey,
> same idea. The first situation you fill in QUIT,
> the second time you fill in CALCULATION.
> An uncaught exception gets you in quit, or restarts the
> calculation.

My system has a variable BOOT and flags and to indicate whether
the application running is forth, a compilerless turnkey, or turnkey
with compiler.  The error routine interrogates BOOT etc and takes
appropriate action depending on the environment.  E.g. if the app is
a compilerless turnkey, error just prints the ABORT" message,
leaving out details such as last word parsed, screen/file location etc
which a) wouldn't apply in this situation and b) the code for it isn't
even resident.

It's more complicated than simply patching COLD and QUIT but
probably unavoidable given the turnkey options and memory configurations
my system needs to support.  On the plus side, I can TURNKEY and
remain in forth confident that a keyboard mistake or executing COLD
won't result in a surprise!

> ...
> Is there a good place to reinitialize the exception stack
> in case of errors? Can it be safely done in either
> QUIT or ABORT?

I initialize the error handler with  0 CATCHER ! (called HANDLER
on some systems).  This occurs in COLD and QUIT just after the
return stack pointer has been initialized.

Back to comp.lang.forth | Previous | Next — Previous in thread | Find similar | Unroll thread

Thread

ABORT" ABORT QUIT THROW and all that albert@spenarnc.xs4all.nl (Albert van der Horst) - 2013-10-28 13:12 +0000
  Re: ABORT" ABORT QUIT THROW and all that "Ed" <invalid@invalid.com> - 2013-10-29 16:01 +1100
    Re: ABORT" ABORT QUIT THROW and all that Bernd Paysan <bernd.paysan@gmx.de> - 2013-10-29 16:52 +0100
      Re: ABORT" ABORT QUIT THROW and all that "Ed" <invalid@invalid.com> - 2013-10-30 12:01 +1100
  Re: ABORT" ABORT QUIT THROW and all that "Ed" <invalid@invalid.com> - 2013-11-02 12:55 +1100

csiph-web