Lines Matching full:len
28 \ initialize ( addr len -- ) as above, plus load_conf_files
29 \ load_conf ( addr len -- ) load conf file given
41 \ cell .len string length
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"
109 int .len
112 0 swap .len !
171 : strdup { addr len -- addr' len' }
172 len allocate if ENOMEM throw then
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' }
183 len
185 addr c@ c = if addr len exit then
187 len 1 - to len
192 : strspn { addr len addr1 len1 | paddr plen -- addr' len' }
194 len
201 addr c@ paddr c@ = if addr len exit then
206 len 1 - to len
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 ! ;
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 )
411 read_buffer .len @ read_buffer_ptr >
421 : scan_buffer ( -- addr len )
424 read_buffer .len @ r@ >
428 r@ read_buffer_ptr - ( -- len )
435 r@ read_buffer_ptr - ( -- len )
439 : line_buffer_resize ( len -- len )
442 line_buffer .len @ if
444 line_buffer .len @ r@ +
453 : append_to_line_buffer ( addr len -- )
457 line_buffer .len !
462 scan_buffer ( -- addr len )
463 line_buffer_resize ( len -- len )
464 append_to_line_buffer ( addr len -- )
468 read_buffer .len @ read_buffer_ptr =
481 read_buffer .len !
488 0 read_buffer .len !
580 : parse_name ( -- addr len )
591 : remove_backslashes { addr len | addr' len' -- addr' len' }
592 len allocate if ENOMEM throw then
597 addr c@ addr' len' + c!
598 len' char+ to len'
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 )
707 : assignment_type? ( addr len -- flag )
712 : suffix_type? ( addr len -- flag )
713 name_buffer .len @ over <= if 2drop false exit then
714 name_buffer .len @ over - name_buffer .addr @ +
744 name_buffer .len @ value_buffer .len @ + 5 chars + \ size of result string
815 name_buffer .len @ load_module_suffix nip - name_buffer .len !
820 name_buffer .len @ module_args_suffix nip - name_buffer .len !
826 name_buffer .len @ module_loadname_suffix nip - name_buffer .len !
832 name_buffer .len @ module_type_suffix nip - name_buffer .len !
838 name_buffer .len @ module_beforeload_suffix nip - name_buffer .len !
844 name_buffer .len @ module_afterload_suffix nip - name_buffer .len !
850 name_buffer .len @ module_loaderror_suffix nip - name_buffer .len !
869 name_buffer .len @ 0= if exit then
913 : peek_file ( addr len -- )
931 : load_conf ( addr len -- )
967 bl parse ( addr len )
972 2dup ( addr len addr len )
980 : show-nonempty ( addr len mod -- )
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 }
1061 pos len = if
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 )
1122 : get_nextboot_conf_file ( -- addr len )
1130 fd @ s' nextboot_enable="NO" ' fwrite ( fd buf len -- nwritten ) drop
1160 addr module.loadname .len @ if
1165 addr module.type .len @ if
1175 dup module.beforeload .len @ if
1182 dup module.afterload .len @ if
1189 dup module.loaderror .len @ if
1215 dup module.loaderror .len @ if
1232 dup module.loadname .len @ if
1244 dup module.name .addr @ over module.name .len @ type
1245 dup module.loadname .len @ if
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 )
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 )
1375 : load_a_kernel ( flags len 1 | x x 0 -- flag )
1417 : load_from_directory ( path len 1 | flags len' path len 2 -- flag )
1504 : load_directory_or_file ( path len 1 | flags len' path len 2 -- flag )
1519 : initialize ( addr len -- )
1523 : kernel_options ( -- addr len 1 | 0 )
1603 : strlen(argv) ( aN uN .. a1 u1 N -- aN uN .. a1 u1 N len )
1636 : set_tempoptions ( addrN lenN ... addr1 len1 N -- addr len 1 | 0 )