Re: FigForth Vocabularies

sjack <sjack@dontemail.me> wrote:

Showing some vocabularies and where they tie in:

:) myfig lib -p go

.. CURRENT and CONTEXT are TOAD   Base: 10   Latest: DECOMP  OK

-- load in some addtional word sets
"/go_rtc/rtc"  /dir BACK ISN'T UNIQUE OK        \ a BacForth wordset
"/go_rtc/screen" /dir S: ISN'T UNIQUE  OK       \ a split-screen wordset
--
-- Get word type code for vocabularies
--
"/wtcode/voc" /dir  OK..
--
-- Using the word type code (double word) LSWT will list
-- what it finds in the context.
--
op defs  OK..
forth 2dup lswt
           CONTEXT is FORTH , CURRENT is OP
           BUF  TOAD  EDITOR  FORTH  OK..
toad 2dup lswt
           CONTEXT is TOAD , CURRENT is OP
           SCREEN  RTC  DECOMP  DIRVOC  SCRKEY  WRK  MMVOC  OP  OK..
screen lswt
           CONTEXT is SCREEN , CURRENT is OP
           BTPAD  OK


(
Side note: A while back DFX mentioned Wil Baden's directory for
block files. It only takes minutes to implement so I gave it a
try and found it interesting not so much as need for a file system
but because it allowed access to SCR _lines_ in a manner that SCR
lines could be addressed as keyword/value pairs, the value being
the rest of the line for evauation. So in the above /DIR is
using a directory path to locate a SCR line and evaluate it which
in the above is loading screens and files and fetching code
(much of which is unseen).
)
--
me