14.8 Modifying the Startup Sequence ¶

You can add your own initialization to the startup sequence of an image through the deferred word 'cold. 'cold is invoked just before the image-specific command line processing (i.e., loading files and evaluating (-e) strings) starts.

A sequence for adding your initialization usually looks like this:

:noname
    Defers 'cold \ do other initialization stuff (e.g., rehashing wordlists)
    ... \ your stuff
; IS 'cold

After 'cold, Gforth processes the image options (see Invoking Gforth), and then it performs bootmessage, another deferred word. This normally prints Gforth’s startup message and does nothing else.

So, if you want to make a turnkey image (i.e., an image for an application instead of an extended Forth system), you can do this in several ways:

• If you want to do your interpretation of the OS command-line arguments, hook into 'cold. In that case you probably also want to build the image with gforthmi --application (see gforthmi) to keep the engine from processing OS command line options. You can then do your own command-line processing with next-arg
• If you want to have the normal Gforth processing of OS command-line arguments, but specify your own command-line options, hook into process-option.
• If you want to have more options in addition to the ones that come with Gforth, define words into the options vocabulary.
• If you want to display your own boot message, hook into bootmessage.

In either case, you probably do not want the word that you execute in these hooks to exit normally, but use bye or throw. Otherwise the Gforth startup process would continue and eventually present the Forth command line to the user.

'cold ( –  ) gforth-0.2 “tick-cold”

Hook (deferred word) for things to do right before interpreting the OS command-line arguments. Normally does some initializations that you also want to perform.

bootmessage ( –  ) gforth-0.4

Hook (deferred word) executed right after interpreting the OS command-line arguments. Normally prints the Gforth startup message.

process-option ( addr u – ... xt | 0  ) gforth-0.7

Recognizer that processes an option, returns an execute-only xt to process the option