mirror of
https://gitlab.com/qemu-project/openbios.git
synced 2024-02-13 08:34:06 +08:00
27 lines
648 B
Forth
27 lines
648 B
Forth
|
\ tag: misc useful functions
|
||
|
|
\
|
||
|
|
\ Misc useful functions
|
||
|
|
\
|
||
|
|
\ Copyright (C) 2003 Samuel Rydh
|
||
|
|
\
|
||
|
|
\ See the file "COPYING" for further information about
|
||
|
|
\ the copyright and warranty status of this work.
|
||
|
|
\
|
||
|
|
|
||
|
|
\ -------------------------------------------------------------------------
|
||
|
|
\ statically allocated lists
|
||
|
|
\ -------------------------------------------------------------------------
|
||
|
|
\ list-head should be a variable
|
||
|
|
|
||
|
|
: list-add ( listhead -- )
|
||
|
|
here 0 , swap \ next, [data...]
|
||
|
|
( here listhead )
|
||
|
|
begin dup @ while @ repeat !
|
||
|
|
;
|
||
|
|
|
||
|
|
: list-get ( listptr -- nextlistptr dictptr true | false )
|
||
|
|
@ dup if
|
||
|
|
dup na1+ true
|
||
|
|
then
|
||
|
|
;
|