.( fendo.addon.lioc_by_prefix_and_level.fs) cr

forth_definitions

require string.fs \ Gforth's dynamic strings

require galope/package.fs \ `package`, `private`, `public`, `end-package`

fendo_definitions

package fendo.addon.lioc_by_prefix_and_level

variable prefix

variable level

: ((lioc_by_prefix_and_level)) { D: pid -- }

pid prefix $@ string-prefix? 0= ?exit

pid pid$>level level @ <> ?exit

pid pid$>pid# draft? ?exit

pid lioc ;

\ Create an element of a list of content

\ if the given page ID starts with the current prefix

\ and has the current level.

: (lioc_by_prefix_and_level) ( ca len -- true )

((lioc_by_prefix_and_level)) true ;

\ ca len = page ID

\ true = continue with the next element?

public

: lioc_by_prefix_and_level ( ca len n -- )

level ! prefix $! ['] (lioc_by_prefix_and_level) traverse_pids ;

\ Create a list of content

\ with pages whose page ID has the given prefix and level.

\ ca len = prefix

\ n = page hierarchical level (0 is the top)

end-package

.( fendo.addon.lioc_by_prefix_and_level.fs compiled) cr

\

\

\

\