Lines Matching +full:2 +full:c

1 \ Copyright (c) 2003 Scott Long <scottl@FreeBSD.org>
2 \ Copyright (c) 2003 Aleksander Fafula <alex@fafula.com>
3 \ Copyright (c) 2006-2015 Devin Teske <dteske@FreeBSD.org>
11 \ 2. Redistributions in binary form must reproduce the above copyright
154 2drop
170 : +c! ( N C-ADDR/U K -- C-ADDR/U )
171 3 pick 3 pick ( n c-addr/u k -- n c-addr/u k n c-addr )
172 rot + c! ( n c-addr/u k n c-addr -- n c-addr/u )
173 rot drop ( n c-addr/u -- c-addr/u )
179 : namespace ( C-ADDR/U N -- ) also menu-namespace +c! evaluate previous ;
184 : init_textN ( N -- C-ADDR ) s" init_textN" 9 namespace ;
187 : kernel[x] ( N -- C-ADDR/U ) s" kernel[x]" 7 +c! ;
188 : menu_init[x] ( N -- C-ADDR/U ) s" menu_init[x]" 10 +c! ;
189 : menu_command[x] ( N -- C-ADDR/U ) s" menu_command[x]" 13 +c! ;
190 : menu_caption[x] ( N -- C-ADDR/U ) s" menu_caption[x]" 13 +c! ;
191 : ansi_caption[x] ( N -- C-ADDR/U ) s" ansi_caption[x]" 13 +c! ;
192 : menu_keycode[x] ( N -- C-ADDR/U ) s" menu_keycode[x]" 13 +c! ;
193 : toggled_text[x] ( N -- C-ADDR/U ) s" toggled_text[x]" 13 +c! ;
194 : toggled_ansi[x] ( N -- C-ADDR/U ) s" toggled_ansi[x]" 13 +c! ;
195 : menu_caption[x][y] ( N M -- C-ADDR/U ) s" menu_caption[x][y]" 16 +c! 13 +c! ;
196 : ansi_caption[x][y] ( N M -- C-ADDR/U ) s" ansi_caption[x][y]" 16 +c! 13 +c! ;
248 : acpimenuitem ( -- C-Addr/U | -1 )
274 : delim? ( C -- BOOL )
275 dup 32 = ( c -- c bool ) \ [sp] space
276 over 9 = or ( c bool -- c bool ) \ [ht] horizontal tab
277 over 10 = or ( c bool -- c bool ) \ [nl] newline
278 over 13 = or ( c bool -- c bool ) \ [cr] carriage return
279 over [char] , = or ( c bool -- c bool ) \ comma
280 swap drop ( c bool -- bool ) \ return boolean
296 then ( -- c-addr/u )
300 s" kernel_state" evaluate @ 48 + s" kernel[N]" 7 +c! getenv
305 2swap 2over compare 0= if
306 2drop FALSE ( skip below conditional )
316 then ( c-addr/u -- c-addr/u c-addr/u,-1 | 0 )
318 kerndefault 1+ 0 2swap strcat swap 1- c!
325 2dup menu_caption[x][y] unsetenv
326 2dup ansi_caption[x][y] unsetenv
329 2drop
338 over c@ delim? ( c-addr/u -- c-addr/u bool )
340 false ( c-addr/u -- c-addr/u bool )
343 1- swap 1+ swap ( c-addr/u -- c-addr'/u' )
345 ( c-addr/u -- c-addr'/u' )
348 2drop ( c-addr/u -- )
356 then ( -- c-addr/u )
361 2dup ( c-addr/u -- c-addr/u c-addr/u )
363 over c@ delim? if
367 1- swap 1+ swap \ c-addr++ u--
370 2drop ( c-addr/u c-addr'/u' -- c-addr/u )
377 s" ," strcat 2swap strcat
382 ( c-addr/u -- c-addr'/u' )
387 over kernlen @ ( c-addr/u -- c-addr/u c-addr/u2 )
390 2dup kernmenuidx @ kernel[x] setenv
394 2over strcat
406 2over strcat
411 2drop ( c-addr/u c-addr/u2 -- c-addr/u )
414 2drop ( c-addr/u -- ) exit
417 kernlen @ - swap kernlen @ + swap ( c-addr/u -- c-addr'/u' )
427 [char] 0 s" (Y of Z)" ( x -- x y c-addr/u )
428 kernmenuidx @ -rot 7 +c! \ Replace 'Z' with number of kernels parsed
430 2 pick 1+ -rot 2 +c! \ Replace 'Y' with current ASCII num
432 2over menu_caption[x][y] getenv dup -1 <> if
433 2dup + 1- c@ [char] ) = if
434 2drop \ Already tagged
436 kerncapbuf 0 2swap strcat
437 2over strcat
444 2over ansi_caption[x][y] getenv dup -1 <> if
445 2dup + 1- c@ [char] ) = if
446 2drop \ Already tagged
448 kerncapbuf 0 2swap strcat
449 2over strcat
457 -rot 2drop TRUE ( break )
462 2drop ( x y -- )
476 2dup s" left" compare-insensitive 0= if ( 1 )
477 2drop ( c-addr/u ) drop ( bool )
480 else ( 1 ) 2dup s" right" compare-insensitive 0= if ( 2 )
481 2drop ( c-addr/u ) drop ( bool )
484 else ( 2 ) 2drop ( c-addr/u ) then ( 1 ) then
489 menuX @ 19 + over 2 / - menuY @ 1-
493 2drop ( empty loader_menu_title )
528 c@ dup 48 > over 57 < and if ( '1' <= c1 <= '8' )
547 c@ dup 48 > over 57 < and if ( '1' <= c1 <= '8' )
562 2dup swap dup ( n y -- n y y n n )
564 17 +c! 34 +c! 37 +c! evaluate
565 ( n y y n n c-addr/u -- n y )
568 2dup swap dup ( n y -- n y y n n )
570 17 +c! 34 +c! 37 +c! evaluate
571 ( n y y n n c-addr/u -- n y )
588 c@ dup 48 > over 57 < and if ( '1' <= c1 <= '8' )
614 menurow @ 2 + menurow !
626 dup acpimenuitem ( n -- n n c-addr/u | n n -1 )
628 13 +c! ( n n c-addr/u -- n c-addr/u )
661 printmenuitem ( c-addr/u -- n )
698 s" Autoboot in N seconds. [Space] to pause" ( n -- n c-addr/u )
700 2 pick 0> if
701 rot 48 + -rot ( n c-addr/u -- n' c-addr/u ) \ convert to ASCII
702 12 +c! ( n' c-addr/u -- c-addr/u ) \ replace 'N' above
705 type ( c-addr/u -- ) \ print message
708 spaces ( n c-addr/u -- n c-addr ) \ erase message
709 2drop ( n c-addr -- )
801 2dup at-xy 38 spaces 1+ 2dup at-xy 38 spaces 1+
802 2dup at-xy 38 spaces 1+ 2dup at-xy 38 spaces 1+
803 2dup at-xy 38 spaces 1+ 2dup at-xy 38 spaces 1+
804 2dup at-xy 38 spaces 1+ 2dup at-xy 38 spaces 1+
805 2dup at-xy 38 spaces 1+ 2dup at-xy 38 spaces 1+
806 2dup at-xy 38 spaces 1+ 2dup at-xy 38 spaces
807 2drop
824 dup init_textN c@ 0= if
840 2 pick ( n c-addr/u -- n c-addr/u n )
841 init_textN ( n c-addr/u n -- n c-addr/u c-addr )
843 \ now we have the buffer c-addr on top
844 \ ( followed by c-addr/u of current caption )
847 2dup c! -rot \ store strlen at first byte
851 2dup c@ swap c! \ copy current character
856 2drop \ buffer len/addr
884 2 pick ( n c-addr/u -- n c-addr/u n ) \ key pressed
900 dup init_textN count ( n -- n c-addr/u )
903 2 pick ( n c-addr/u -- n c-addr/u n ) \ key pressed
939 ( n addr k n k' -- n addr k c-addr/u )
951 2 pick [char] 0 ( n addr 0 -- n addr 0 n 48 ) \ (n,48) as (x,y)
957 ( n addr 0 n 48 -- n addr 0 c-addr/u )
971 \ c-addr/u - string value we intend to store to menu_caption[x]
977 4 pick ( n addr k c-addr/u -- n addr k c-addr/u n )
1004 else ( 1 ) 2dup s" single" compare-insensitive 0= if ( 2 )
1006 else ( 2 ) 2dup s" double" compare-insensitive 0= if ( 3 )
1010 ( 4 ) then ( 3 ) then ( 2 ) then ( 1 ) then
1059 s" menu_timeout_command" getenv -1 <> if ( Addr C -1 -- | Addr )
1071 2dup ?number 0= if ( if not a number )
1080 -rot 2drop
1151 menuacpi @ over 2dup < -rot = or
1181 menuacpi @ 1+ over 2dup < -rot = or
1205 2drop
1244 2dup menu_caption[x][y] unsetenv
1245 2dup ansi_caption[x][y] unsetenv
1253 0 over init_textN c! \ used by toggle_menuitem
1318 0 init_text1 c!
1319 0 init_text2 c!
1320 0 init_text3 c!
1321 0 init_text4 c!
1322 0 init_text5 c!
1323 0 init_text6 c!
1324 0 init_text7 c!
1325 0 init_text8 c!