Lines Matching refs:addr
28 \ initialize ( addr len -- ) as above, plus load_conf_files
29 \ load_conf ( addr len -- ) load conf file given
41 \ cell .addr string address
65 \ strdup ( addr len -- addr' len) similar to strdup(3)
66 \ strcat ( addr len addr' len' -- addr len+len' ) similar to strcat(3)
67 \ s' ( | string' -- addr len | ) similar to s"
111 ptr .addr
114 0 over .addr !
144 int pf.addr
174 : strdup { addr len -- addr' len' }
176 addr over len move len
179 : strcat { addr len addr' len' -- addr len+len' }
180 addr' addr len + len' move
181 addr len len' +
184 : strchr { addr len c -- addr' len' }
188 addr c@ c = if addr len exit then
189 addr 1 + to addr
195 : strspn { addr len addr1 len1 | paddr plen -- addr' len' }
204 addr c@ paddr c@ = if addr len exit then
208 addr 1 + to addr
224 : n2s ( n -- c-addr/u ) s>d <# #s #> ;
226 : s2n ( c-addr/u1 -- u2 | -1 ) ?number 0= if -1 then ;
233 : getenvn ( n1 c-addr/u -- n1 | n2 )
238 s2n ( n1 c-addr/u1 -- n1 n2 )
262 \ we need to handle 3 cases for addr len pairs on stack:
263 \ addr len are 0 0 - there was no comma nor space
264 \ addr len are x 0 - the first char is either comma or space
265 \ addr len are x y.
329 s" ttya" 2swap contains? ( addr len f )
330 -rot 2dup ( f addr len addr len )
331 s" ttyb" 2swap contains? ( f addr len f )
332 -rot 2dup ( f f addr len addr len )
333 s" ttyc" 2swap contains? ( f f addr len f )
334 -rot ( f f f addr len )
335 s" ttyd" 2swap contains? ( f f addr len f )
393 : strget { var -- addr len } var .addr @ var .len @ ;
395 \ assign addr len to variable.
396 : strset { addr len var -- } addr var .addr ! len var .len ! ;
399 : strfree { var -- } var .addr @ ?dup if free-memory 0 0 var strset then ;
402 : string= { addr len var -- } var strfree addr len strdup var strset ;
407 : strref { addr len var -- addr len }
408 addr var .addr ! len var .len ! addr len
412 : unquote ( addr len -- addr len )
452 read_buffer .addr @ read_buffer_ptr + c@ lf = if
460 : scan_buffer ( -- addr len )
465 read_buffer .addr @ r@ + c@ lf = if
466 read_buffer .addr @ read_buffer_ptr + ( -- addr )
473 read_buffer .addr @ read_buffer_ptr + ( -- addr )
482 line_buffer .addr @
488 line_buffer .addr !
492 : append_to_line_buffer ( addr len -- )
501 scan_buffer ( -- addr len )
503 append_to_line_buffer ( addr len -- )
513 read_buffer .addr @ 0= if
515 read_buffer .addr !
517 fd @ read_buffer .addr @ read_buffer_size fread
637 : parse_name ( -- addr len )
651 : parse_value ( -- addr len )
665 : remove_backslashes { addr len | addr' len' -- addr' len' }
667 to addr'
668 addr >r
670 addr c@ [char] \ <> if
671 addr c@ addr' len' + c!
674 addr char+ to addr
675 r@ len + addr =
678 addr' len'
681 : parse_quote ( xt -- addr len )
703 parse_name ( -- addr len )
709 ['] "quote? parse_quote ( -- addr len )
712 ['] 'quote? parse_quote ( -- addr len )
714 parse_value ( -- addr len )
786 line_buffer .addr @ to line_pointer
801 line_buffer .addr @ to line_pointer
818 : assignment_type? ( addr len -- flag )
823 : suffix_type? ( addr len -- flag )
825 name_buffer .len @ over - name_buffer .addr @ +
873 : append_to_module_options_list ( addr -- )
883 : set_module_name { addr -- } \ check leaks
884 name_buffer strget addr module.name string=
892 : find_module_option ( -- addr | 0 ) \ return ptr to entry matching name_buffer
904 : new_module_option ( -- addr )
911 : get_module_option ( -- addr )
1029 : peek_file ( addr len -- )
1047 : load_conf ( addr len -- )
1061 line_buffer .addr @
1071 : load_bootenv ( addr len -- )
1090 \ find a module name, leave addr on the stack (0 if not found)
1092 bl parse ( addr len )
1099 2dup ( addr len addr len )
1107 : show-nonempty ( addr len mod -- )
1114 : show-one-module { addr -- addr }
1115 ." Name: " addr module.name strtype cr
1116 s" Path: " addr module.loadname show-nonempty
1117 s" Type: " addr module.type show-nonempty
1118 s" Hash: " addr module.hash show-nonempty
1119 s" Flags: " addr module.args show-nonempty
1120 s" Before load: " addr module.beforeload show-nonempty
1121 s" After load: " addr module.afterload show-nonempty
1122 s" Error: " addr module.loaderror show-nonempty
1123 ." Status: " addr module.flag @ if ." Load" else ." Don't load" then cr
1125 addr
1138 : free-one-module { addr -- addr }
1139 addr module.name strfree
1140 addr module.loadname strfree
1141 addr module.type strfree
1142 addr module.hash strfree
1143 addr module.args strfree
1144 addr module.largs strfree
1145 addr module.beforeload strfree
1146 addr module.afterload strfree
1147 addr module.loaderror strfree
1148 addr
1179 dup cell+ ( addr2 addr1 addr )
1180 swap @ ( addr2 addr len )
1181 rot ( addr len addr2 )
1182 dup cell+ ( addr len addr2 addr' )
1183 swap @ ( addr len addr' len' )
1212 : readdir ( addr len flag | flag )
1226 readdir ( i addr len flag | i flag )
1238 : make_cstring ( addr len -- addr' )
1239 dup ( addr len len )
1240 s" /boot/conf.d/" ( addr len len addr' len' )
1241 rot ( addr len addr' len' len )
1242 over + ( addr len addr' len' total ) \ space for prefix+str
1247 ( addr len addr' len' total taddr )
1248 dup rot ( addr len addr' len' taddr taddr total )
1249 swap ! ( addr len addr' len' taddr ) \ store length
1252 2dup 2>r ( addr len addr' len' taddr' ) ( R: taddr len' taddr' )
1253 swap move ( addr len )
1254 2r> + ( addr len taddr' ) ( R: taddr )
1259 : scan_conf_dir ( -- addr len -1 | 0 )
1281 readdir ( n array addr len flag | n array flag )
1283 ( n array addr len )
1285 make_cstring ( n array addr )
1297 ( n array len addr )
1299 2swap ( len addr n array )
1300 over 0 swap 0 do ( len addr n array 0 )
1301 over I cells + @ ( len addr n array total array[I] )
1302 dup @ swap cell+ ( len addr n array total len addr' )
1303 over ( len addr n array total len addr' len )
1304 6 pick ( len addr n array total len addr' len addr )
1305 4 pick + ( len addr n array total len addr' len addr+total )
1306 swap move + ( len addr n array total+len )
1307 3 pick ( len addr n array total addr )
1308 over + bl swap c! 1+ ( len addr n array total )
1311 drop free drop drop ( len addr )
1312 swap ( addr len )
1316 : get_conf_files ( -- addr len ) \ put addr/len on stack, reset var
1319 ( addr len )
1320 dup conf_files .len @ + 2 + allocate abort" out of memory" ( addr len addr' )
1321 dup conf_files strget ( addr len addr' caddr clen )
1322 rot swap move ( addr len addr' )
1324 dup conf_files .len @ + ( addr len addr' addr'+clen )
1325 dup bl swap c! 1+ ( addr len addr' addr'' )
1326 3 pick swap ( addr len addr' addr addr'' )
1327 3 pick move ( addr len addr' )
1328 rot ( len addr' addr )
1329 free drop swap ( addr' len )
1330 conf_files .len @ + 1+ ( addr len )
1337 : skip_leading_spaces { addr len pos -- addr len pos' }
1339 pos len = if 0 else addr pos + c@ bl = then
1343 addr len pos
1347 : get_file_name { addr len pos -- addr len pos' addr' len' || 0 }
1349 addr free abort" Fatal error freeing memory"
1355 pos len = if 0 else addr pos + c@ bl <> then
1359 addr len pos addr r@ + pos r> -
1362 : get_next_file ( addr len ptr -- addr len ptr' addr' len' | 0 )
1442 get_conf_files 0 ( addr len offset )
1444 get_next_file ?dup ( addr len 1 | 0 )
1449 conf_files .addr @ if recurse then
1466 : build_largs { addr -- addr }
1467 addr module.largs strfree
1468 addr module.hash .len @
1470 s" hash=" addr module.hash strget concat
1471 addr module.largs strset \ largs = "hash=" + module.hash
1474 addr module.type strget s" hash" compare 0=
1476 addr module.largs strget s" name=" concat
1478 addr module.loadname .len @
1480 addr module.loadname strget concat
1482 addr module.name strget concat
1485 addr module.largs strfree
1486 addr module.largs strset \ largs = largs + name
1489 addr module.largs strget [char] . strchr
1493 addr module.largs .len @ 5 -
1494 addr module.largs .len !
1501 addr module.largs strget s" " concat
1502 addr module.args strget concat
1503 addr module.largs strfree
1504 addr module.largs strset
1505 addr
1508 : load_parameters { addr -- addr addrN lenN ... addr1 len1 N }
1509 addr build_largs
1510 addr module.largs strget
1511 addr module.loadname .len @ if
1512 addr module.loadname strget
1514 addr module.name strget
1516 addr module.type .len @ if
1517 addr module.type strget
1525 : before_load ( addr -- addr )
1532 : after_load ( addr -- addr )
1539 : load_error ( addr -- addr )
1546 : pre_load_message ( addr -- addr )
1561 : process_module ( addr -- addr )
1578 : process_module_errors ( addr ior -- )
1595 dup module.name .addr @ over module.name .len @ type
1632 : saveenv ( addr len | -1 -- addr' len | 0 -1 )
1636 : freeenv ( addr len | 0 -1 )
1639 : restoreenv ( addr len | 0 -1 -- )
1663 : parse-; ( addr len -- addr' len-x addr x )
1664 over 0 2swap ( addr 0 addr len )
1666 dup 0 <> ( addr 0 addr len )
1668 over c@ [char] ; <> ( addr 0 addr len flag )
1681 : try_multiple_kernels ( addr len addr' len' args -- flag )
1704 0 do 2drop loop \ drop addr len pairs
1873 : initialize ( addr len -- )
1877 : boot-args ( -- addr len 1 | 0 )
1915 1 1 load ( c-addr/u flag N -- flag )
1985 0 2>r ( save addr 0 on return stack )
2000 : set_tempoptions ( addrN lenN ... addr1 len1 N -- addr len 1 | 0 )