Lines Matching +full:1 +full:c
1 \ Copyright (c) 2012 Devin Teske <dteske@FreeBSD.org>
7 \ 1. Redistributions of source code must retain the above copyright
34 create menuset_x 1 allot
35 create menuset_y 1 allot
51 ( u1 -- u1 c-addr2 u2 )
54 ( u1 -- u1 c-addr2 u2 )
56 evaluate ( u1 c-addr2 u2 -- u1 )
57 s" cmdbuf" getenv ( u1 -- u1 c-addr2 u2 )
59 ( u1 c-addr2 u2 -- c-addr2 u2 c-addr1 u1 )
61 getenv dup -1 = if
62 ( c-addr2 u2 c-addr1 u1 -- c-addr2 u2 -1 )
64 drop ( c-addr2 u2 -1 -- c-addr2 u2 )
65 2drop ( c-addr2 u2 -- )
67 ( c-addr2 u2 c-addr1 u1 -- c-addr2 u2 c-addr1 u1 )
68 \ SET -- execute cmdbuf (c-addr2/u2) to inherit value
69 2drop ( c-addr2 u2 c-addr1 u1 -- c-addr2 u2 )
70 evaluate ( c-addr2 u2 -- )
113 \ $x is "1" through "8"
121 ( u1 -- u1 c-addr2 u2 )
124 ( u1 -- u1 c-addr2 u2 )
126 evaluate ( u1 c-addr2 u2 -- u1 )
127 s" cmdbuf" getenv ( u1 -- u1 c-addr2 u2 )
129 ( u1 c-addr2 u2 -- c-addr2 u2 c-addr1 u1 )
131 getenv dup -1 = if
132 ( c-addr2 u2 c-addr1 u1 -- c-addr2 u2 -1 )
134 drop ( c-addr2 u2 -1 -- c-addr2 u2 )
135 2drop ( c-addr2 u2 -- )
137 ( c-addr2 u2 c-addr1 u1 -- c-addr2 u2 c-addr1 u1 )
138 \ SET -- execute cmdbuf (c-addr2/u2) to inherit value
139 2drop ( c-addr2 u2 c-addr1 u1 -- c-addr2 u2 )
140 evaluate ( c-addr2 u2 -- )
153 \ $x is "1" through "8"
204 \ $x is "1" through "8"
213 ( u1 -- u1 c-addr2 u2 )
216 ( u1 -- u1 c-addr2 u2 )
218 evaluate ( u1 c-addr2 u2 -- u1 )
219 s" cmdbuf" getenv ( u1 -- u1 c-addr2 u2 )
221 ( u1 c-addr2 u2 -- c-addr2 u2 c-addr1 u1 )
223 getenv dup -1 = if
224 ( c-addr2 u2 c-addr1 u1 -- c-addr2 u2 -1 )
226 drop ( c-addr2 u2 -1 -- c-addr2 u2 )
227 2drop ( c-addr2 u2 -- )
229 ( c-addr2 u2 c-addr1 u1 -- c-addr2 u2 c-addr1 u1 )
230 \ SET -- execute cmdbuf (c-addr2/u2) to inherit value
231 2drop ( c-addr2 u2 c-addr1 u1 -- c-addr2 u2 )
232 evaluate ( c-addr2 u2 -- )
245 \ $x is "1" through "8"
280 : menuset-setnum-namevar ( N -- C-Addr/U )
282 s" menuset_nameNNNNN" ( n -- n c-addr1 u1 ) \ variable basename
283 drop 12 ( n c-addr1 u1 -- n c-addr1 12 ) \ remove "NNNNN"
284 rot ( n c-addr1 12 -- c-addr1 12 n ) \ move number on top
287 s>d <# #s #> ( c-addr1 12 n -- c-addr1 12 c-addr2 u2 )
290 begin ( using u2 in c-addr2/u2 pair as countdown to zero )
291 over ( c-addr1 u1 c-addr2 u2 -- continued below )
292 ( c-addr1 u1 c-addr2 u2 c-addr2 ) \ copy src-addr
293 c@ ( c-addr1 u1 c-addr2 u2 c-addr2 -- continued below )
294 ( c-addr1 u1 c-addr2 u2 c ) \ get next src-addr byte
296 ( c-addr1 u1 c-addr2 u2 c -- continued below )
297 ( c-addr1 u1 c-addr2 u2 c c-addr1 u1 )
298 \ get destination c-addr1/u1 pair
299 + ( c-addr1 u1 c-addr2 u2 c c-addr1 u1 -- cont. below )
300 ( c-addr1 u1 c-addr2 u2 c c-addr3 )
301 \ combine dest-c-addr to get dest-addr for byte
302 c! ( c-addr1 u1 c-addr2 u2 c c-addr3 -- continued below )
303 ( c-addr1 u1 c-addr2 u2 )
306 2swap 1+ 2swap \ increment u1 in destination c-addr1/u1 pair
307 swap 1+ swap \ increment c-addr2 in source c-addr2/u2 pair
308 1- \ decrement u2 in the source c-addr2/u2 pair
313 2drop ( c-addr1 u1 c-addr2 u2 -- c-addr1 u1 )
314 \ drop temporary number-format conversion c-addr2/u2
338 2dup ( c-addr1 u1 -- c-addr1 u1 c-addr1 u1 ) \ save a copy
339 getenv dup -1 <> if ( c-addr1 u1 c-addr1 u1 -- c-addr1 u1 c-addr2 u2 )
344 2swap 2drop ( c-addr1 u1 c-addr2 u2 -- c-addr2 u2 )
346 else ( c-addr1 u1 c-addr1 u1 -- c-addr1 u1 -1 ) \ no such variable
350 drop ( c-addr1 u1 -1 -- c-addr1 u1 ) \ drop -1 result
351 12 - swap 12 + swap ( c-addr1 u1 -- c-addr2 u2 )
361 \ For example, if the stack-input is 1 and menuset_name1 is NOT set
379 \ represents the value of $menuset_name1 (given 1 as stack-input):
408 menuset_affixbuf 0 2swap ( c-addr2 u2 -- c-addr1 0 c-addr2 u2 )
409 begin ( using u2 in c-addr2/u2 pair as countdown to zero )
410 over ( c-addr1 u1 c-addr2 u2 -- c-addr1 u1 c-addr2 u2 c-addr2 )
411 c@ ( c-addr1 u1 c-addr2 u2 -- c-addr1 u1 c-addr2 u2 c )
413 ( c-addr1 u1 c-addr2 u2 c -- continued below )
414 ( c-addr1 u1 c-addr2 u2 c c-addr1 u1 )
415 + ( c-addr1 u1 c-addr2 u2 c c-addr1 u1 -- continued below )
416 ( c-addr1 u1 c-addr2 u2 c c-addr3 )
417 c! ( c-addr1 u1 c-addr2 u2 c c-addr3 -- continued below )
418 ( c-addr1 u1 c-addr2 u2 )
419 2swap 1+ 2swap \ increment affixbuf byte position/count
420 swap 1+ swap \ increment strbuf pointer (source c-addr2)
421 1- \ decrement strbuf byte count (source u2)
424 2drop ( c-addr1 u1 c-addr2 u2 -- c-addr1 u1 ) \ drop strbuf c-addr2/u2
431 s" affix" setenv ( c-addr1 u1 -- )
462 s" menu_init" 2dup getenv dup -1 <> if
466 drop 2drop ( n c-addr u -1 -- n )
469 [char] 1 ( -- x ) \ Loop range ASCII '1' (49) to '8' (56)
471 dup menuset_x tuck c! 1 s" x" setenv \ set loop iterator and $x
481 [char] 0 ( x -- x y ) \ Inner Loop ASCII '1' (48) to '9' (57)
483 dup menuset_y tuck c! 1 s" y" setenv
492 1+ dup 57 > ( x y -- y' 0|-1 ) \ increment and test
516 1+ dup 56 > ( x -- x' 0|-1 ) \ increment iterator
548 1 begin
558 s" set buf=${affix}menu_caption[1]"
560 s" set buf=menuset${affix}_caption[1]"
562 evaluate s" buf" getenv getenv -1 = if
568 drop ( n c-addr2 -- n ) \ unused
571 [char] 1 ( n -- n x ) \ Loop range ASCII '1' (49) to '8' (56)
573 dup menuset_x tuck c! 1 s" x" setenv \ set $x to x
581 dup menuset_y tuck c! 1 s" y" setenv
585 1+ dup 57 > ( n x y -- n x y' 0|-1 )
594 1+ dup 56 > ( x -- x' 0|-1 ) \ increment and test
605 1+ dup 65535 > ( n -- n' 0|-1 ) \ increment and test
616 s" menuset_initial" getenv dup -1 <> if