Lines Matching full:addr
28 \ initialize ( addr len -- ) as above, plus load_conf_files
29 \ load_conf ( addr len -- ) load conf file given
40 \ cell .addr string address
62 \ strdup ( addr len -- addr' len) similar to strdup(3)
63 \ strcat ( addr len addr' len' -- addr len+len' ) similar to strcat(3)
64 \ s' ( | string' -- addr len | ) similar to s"
108 ptr .addr
111 0 over .addr !
139 int pf.addr
171 : strdup { addr len -- addr' len' }
173 addr over len move len
176 : strcat { addr len addr' len' -- addr len+len' }
177 addr' addr len + len' move
178 addr len len' +
181 : strchr { addr len c -- addr' len' }
185 addr c@ c = if addr len exit then
186 addr 1 + to addr
192 : strspn { addr len addr1 len1 | paddr plen -- addr' len' }
201 addr c@ paddr c@ = if addr len exit then
205 addr 1 + to addr
236 \ we need to handle 3 cases for addr len pairs on stack:
237 \ addr len are 0 0 - there was no comma nor space
238 \ addr len are x 0 - the first char is either comma or space
239 \ addr len are x y.
354 : strget { var -- addr len } var .addr @ var .len @ ;
356 \ assign addr len to variable.
357 : strset { addr len var -- } addr var .addr ! len var .len ! ;
360 : strfree { var -- } var .addr @ ?dup if free-memory 0 0 var strset then ;
363 : string= { addr len var -- } var strfree addr len strdup var strset ;
368 : strref { addr len var -- addr len }
369 addr var .addr ! len var .len ! addr len
373 : unquote ( addr len -- addr len )
413 read_buffer .addr @ read_buffer_ptr + c@ lf = if
421 : scan_buffer ( -- addr len )
426 read_buffer .addr @ r@ + c@ lf = if
427 read_buffer .addr @ read_buffer_ptr + ( -- addr )
434 read_buffer .addr @ read_buffer_ptr + ( -- addr )
443 line_buffer .addr @
449 line_buffer .addr !
453 : append_to_line_buffer ( addr len -- )
462 scan_buffer ( -- addr len )
464 append_to_line_buffer ( addr len -- )
474 read_buffer .addr @ 0= if
476 read_buffer .addr !
478 fd @ read_buffer .addr @ read_buffer_size fread
580 : parse_name ( -- addr len )
591 : remove_backslashes { addr len | addr' len' -- addr' len' }
593 to addr'
594 addr >r
596 addr c@ [char] \ <> if
597 addr c@ addr' len' + c!
600 addr char+ to addr
601 r@ len + addr =
604 addr' len'
607 : parse_quote ( -- addr len )
627 parse_name ( -- addr len )
633 parse_quote ( -- addr len )
635 parse_name ( -- addr len )
690 line_buffer .addr @ to line_pointer
707 : assignment_type? ( addr len -- flag )
712 : suffix_type? ( addr len -- flag )
714 name_buffer .len @ over - name_buffer .addr @ +
768 : append_to_module_options_list ( addr -- )
778 : set_module_name { addr -- } \ check leaks
779 name_buffer strget addr module.name string=
790 : find_module_option ( -- addr | 0 ) \ return ptr to entry matching name_buffer
802 : new_module_option ( -- addr )
809 : get_module_option ( -- addr )
913 : peek_file ( addr len -- )
931 : load_conf ( addr len -- )
945 line_buffer .addr @
965 \ find a module name, leave addr on the stack (0 if not found)
967 bl parse ( addr len )
972 2dup ( addr len addr len )
980 : show-nonempty ( addr len mod -- )
987 : show-one-module { addr -- addr }
988 ." Name: " addr module.name strtype cr
989 s" Path: " addr module.loadname show-nonempty
990 s" Type: " addr module.type show-nonempty
991 s" Flags: " addr module.args show-nonempty
992 s" Before load: " addr module.beforeload show-nonempty
993 s" After load: " addr module.afterload show-nonempty
994 s" Error: " addr module.loaderror show-nonempty
995 ." Status: " addr module.flag @ if ." Load" else ." Don't load" then cr
997 addr
1010 : free-one-module { addr -- addr }
1011 addr module.name strfree
1012 addr module.loadname strfree
1013 addr module.type strfree
1014 addr module.args strfree
1015 addr module.beforeload strfree
1016 addr module.afterload strfree
1017 addr module.loaderror strfree
1018 addr
1046 : get_conf_files ( -- addr len ) \ put addr/len on stack, reset var
1050 : skip_leading_spaces { addr len pos -- addr len pos' }
1052 pos len = if 0 else addr pos + c@ bl = then
1056 addr len pos
1060 : get_file_name { addr len pos -- addr len pos' addr' len' || 0 }
1062 addr free abort" Fatal error freeing memory"
1068 pos len = if 0 else addr pos + c@ bl <> then
1072 addr len pos addr r@ + pos r> -
1075 : get_next_file ( addr len ptr -- addr len ptr' addr' len' | 0 )
1111 get_conf_files 0 ( addr len offset )
1113 get_next_file ?dup ( addr len 1 | 0 )
1118 conf_files .addr @ if recurse then
1122 : get_nextboot_conf_file ( -- addr len )
1157 : load_parameters { addr -- addr addrN lenN ... addr1 len1 N }
1158 addr
1159 addr module.args strget
1160 addr module.loadname .len @ if
1161 addr module.loadname strget
1163 addr module.name strget
1165 addr module.type .len @ if
1166 addr module.type strget
1174 : before_load ( addr -- addr )
1181 : after_load ( addr -- addr )
1188 : load_error ( addr -- addr )
1195 : pre_load_message ( addr -- addr )
1210 : process_module ( addr -- addr )
1227 : process_module_errors ( addr ior -- )
1244 dup module.name .addr @ over module.name .len @ type
1281 : saveenv ( addr len | -1 -- addr' len | 0 -1 )
1285 : freeenv ( addr len | 0 -1 )
1288 : restoreenv ( addr len | 0 -1 -- )
1313 : newparse-; { addr len | a1 -- a' len-x addr x }
1314 addr len [char] ; strchr dup if ( a1 len1 )
1317 addr a1 addr -
1319 0 0 addr len
1323 : parse-; ( addr len -- addr' len-x addr x )
1324 over 0 2swap ( addr 0 addr len )
1326 dup 0 <> ( addr 0 addr len )
1328 over c@ [char] ; <> ( addr 0 addr len flag )
1341 : try_multiple_kernels ( addr len addr' len' args -- flag )
1519 : initialize ( addr len -- )
1523 : kernel_options ( -- addr len 1 | 0 )
1551 1 1 load ( c-addr/u flag N -- flag )
1621 0 2>r ( save addr 0 on return stack )
1636 : set_tempoptions ( addrN lenN ... addr1 len1 N -- addr len 1 | 0 )