1\ tag: misc useful functions 2\ 3\ C bindings 4\ 5\ Copyright (C) 2003, 2004 Samuel Rydh 6\ 7\ See the file "COPYING" for further information about 8\ the copyright and warranty status of this work. 9\ 10 11\ return xt of the word just defined 12: last-xt ( -- xt ) 13 latest @ na1+ 14; 15 16\ ------------------------------------------------------------------------- 17\ word creation 18\ ------------------------------------------------------------------------- 19 20: $is-ibuf ( size name name-len -- xt ) 21 instance $buffer: drop 22 last-xt 23; 24 25: is-ibuf ( size -- xt ) 26 0 0 $is-ibuf 27; 28 29: is-ivariable ( size name len -- xt ) 30 4 -rot instance $buffer: drop 31 last-xt 32; 33 34: is-xt-func ( xt|0 wordstr len ) 35 header 1 , 36 ?dup if , then 37 ['] (semis) , reveal 38; 39 40: is-2xt-func ( xt1 xt2 wordstr len ) 41 header 1 , 42 swap , , 43 ['] (semis) , reveal 44; 45 46: is-func-begin ( wordstr len ) 47 header 1 , 48; 49 50: is-func-end ( wordstr len ) 51 ['] (semis) , reveal 52; 53