slof/fs/romfs.fs

14 	cell field romfs>file-header
15 	cell field romfs>data
16 	cell field romfs>data-size
17 	cell field romfs>flags
19 CONSTANT /romfs-lookup-control-block
21 CREATE romfs-lookup-cb /romfs-lookup-control-block allot
22 romfs-lookup-cb /romfs-lookup-control-block erase
29 : romfs-lookup ( fn-str fn-len -- data size | false )
30     create-filename romfs-base
31     romfs-lookup-cb romfs-lookup-entry call-c
32     0= IF romfs-lookup-cb dup romfs>data @ swap romfs>data-size @ ELSE
35 : ibm,romfs-lookup ( fn-str fn-len -- data-high data-low size | 0 0 false )
36   romfs-lookup dup
41 : romfs-lookup-client ibm,romfs-lookup ;
46 	cell field romfs>next-off
47 	cell field romfs>size
48 	cell field romfs>flags
49 	cell field romfs>data-off
50 	cell field romfs>name
52 CONSTANT /romfs-cb
54 : romfs-map-file ( fn-str fn-len -- file-addr file-size )
55   romfs-base >r
56   BEGIN 2dup r@ romfs>name zcount string=ci not WHILE
58     r> romfs>next-off dup @ dup 0= IF 1 THROW THEN + >r REPEAT
60     2drop r@ romfs>data-off @ r@ + r> romfs>size @ ;
62 \ returns address of romfs-header file
91    2dup >r >r romfs-lookup dup IF
117 : (print-romfs-file-info)  ( file-addr -- )
121 : romfs-list  ( -- )
122    romfs-base 0 cr BEGIN + dup (print-romfs-file-info) dup @ dup 0= UNTIL 2drop