\ Automatic character encoding tables

\ ---------------------------------------------------
\     (c) Copyright 2001  Julian V. Noble.          \
\       Permission is granted by the author to      \
\       use this software for any application pro-  \
\       vided this copyright notice is preserved.   \
\ ---------------------------------------------------

\ This is an ANS Forth program using the CORE wordset


: char_table:   ( #chars "table_name" -- )
    CREATE   HERE  OVER  CHARS  ALLOT   SWAP  0 FILL
    DOES>  ( char -- code[c])
           CHARS +   C@  ;

: install      (  adr char.n char.1 -- )   \ fast fill
    SWAP 1+ SWAP   DO  2DUP  I  CHARS +  C!  LOOP  2DROP ;
\ end automatic conversion tables