\ @(#) strings.fth 98/01/26 1.2
\ String support for PForth
\ Copyright Phil Burk 1994
: -TRAILING ( c-addr u1 -- c-addr u2 , strip trailing blanks )
\ Structure of string table
CREATE ( #strings #chars_max -- )
: $= ( $1 $2 -- flag , true if equal )
: TEXT= ( addr1 addr2 count -- flag )
: TEXT=? ( addr1 count addr2 -- flag , for JForth compatibility )
: $MATCH? ( $string1 $string2 -- flag , case INsensitive )
: INDEX ( $string char -- false | address_char true , search for char in string )
: $APPEND.CHAR ( $string char -- ) \ ugly stack diagram
\ ----------------------------------------------
: ($ROM) ( index address -- $string )
: $ROM ( packed array of strings, unalterable )
DOES> ( index -- $string ) ($rom)
: TEXTROM ( packed array of strings, unalterable )
DOES> ( index -- address count ) ($rom) count
\ -----------------------------------------------