Lines Matching refs:addr
83 : set-boot-args { | addr len baddr blen aaddr alen -- }
99 to addr
100 \ boot-addr may have file name before options, copy it to addr
103 baddr blen [char] - strchr ( addr len )
106 baddr addr blen move
110 else ( addr len )
113 to len ( addr len )
114 to blen ( addr )
115 baddr addr len move ( addr )
122 bl addr len + c! len 1+ to len
124 [char] - addr len + c! len 1+ to len
128 [char] s addr len + c! len 1+ to len
135 [char] v addr len + c! len 1+ to len
142 [char] k addr len + c! len 1+ to len
149 [char] d addr len + c! len 1+ to len
156 [char] r addr len + c! len 1+ to len
163 [char] a addr len + c! len 1+ to len
170 [char] x addr len + c! len 1+ to len
177 \ baddr[0] is '-', if baddr[1] != 'B' append to addr,
181 addr len + 1- c@ [char] - = if \ if addr[len -1] == '-'
185 bl addr len + c! len 1+ to len
191 baddr addr len + blen move
198 addr len + 1- c@ [char] - <> if
199 bl addr len + c! len 1+ to len
200 [char] - addr len + c! len 1+ to len
202 s" B acpi-user-options=" dup -rot ( len addr len )
203 addr len + swap move ( len )
205 aaddr addr len + alen move
210 addr len 1- + c@ [char] - = if
214 addr len 1- + c@ bl = if
222 addr len s" boot-args" setenv
224 addr free drop
308 while ( addr len ) \ points to -
314 2 - swap 2 + ( addr len len-2 addr+2 ) \ skip -B
322 ( addr len len' addr' )
326 2drop ( addr len )
330 baddr swap ( addr rem )
338 over ( addr rem addr )
339 over + 1- ( addr rem addr+rem-1 )
342 1- swap ( rem-1 addr )
343 over ( rem-1 addr rem-1 )
344 over + ( rem-1 addr addr+rem-1 )
352 ( addr len len' addr' )
359 ( addr len len' addr' )
367 ( addr len len' addr' )
368 \ addr' points to acpi options, find its end [',' or ' ' or 0 ]
369 \ set it as acpi-user-options and move remaining to addr'
370 2dup ( addr len len' addr' len' addr' )
380 ( addr len len' addr' len" addr" )
381 >r >r ( addr len len' addr' R: addr" len" )
382 over r@ - ( addr len len' addr' proplen R: addr" len" )
383 dup 5 + ( addr len len' addr' proplen proplen+5 )
386 0 s" set " strcat ( addr len len' addr' proplen caddr clen )
387 >r >r 2dup r> r> 2swap strcat ( addr len len' addr' proplen caddr clen )
390 ( addr len len' addr' proplen R: addr" len" )
392 \ addr: -B, addr': acpi... addr": reminder
393 swap ( addr len len' proplen addr' )
394 r> r> ( addr len len' proplen addr' len" addr" )
396 \ skip , and move addr" to addr'
397 1+ swap 1- ( addr len len' proplen addr' addr" len" )
398 rot swap 1+ move ( addr len len' proplen )
399 else \ its bl or 0 ( addr len len' proplen addr' len" addr" )
400 \ for both bl and 0 we need to copy to addr'-1 to remove
404 2drop ( addr len len' proplen addr' )
405 1- 0 swap c! ( addr len len' proplen )
407 >r >r ( addr len len' proplen addr' R: addr" len" )
409 r> r> ( addr len len' proplen addr' len" addr" )
410 rot rot move ( addr len len' proplen )
421 ( addr len len' addr' )
437 ( addr len len' addr' )
438 \ this block is done, remove addr and len from stack
442 over c@ [char] - = if ( addr len )
443 2dup 1- swap 1+ ( addr len len' addr' )
464 dup >r ( addr len len' addr' R: addr' )
465 1+ swap 1- ( addr len addr'+1 len'-1 R: addr' )
466 r> swap move ( addr len )
555 : (read-conf) ( addr len -- )
560 : read-conf ( <filename> | addr len -- ) ( throws: abort & user-defined )
591 : set-module-path ( addr len <module> -- )
627 LF parse ( c -- s-addr/u ) 2drop \ advance >in to EOL (drop data)