Lines Matching refs:then
103 : sizeof ' >body @ state @ if postpone literal then ; immediate
104 : offsetof ' >body cell+ @ state @ if postpone literal then ; immediate
175 len allocate if ENOMEM throw then
188 addr c@ c = if addr len exit then
204 addr c@ paddr c@ = if addr len exit then
216 state @ if postpone sliteral then
226 : s2n ( c-addr/u1 -- u2 | -1 ) ?number 0= if -1 then ;
229 : getenv? getenv -1 = if false else drop true then ;
244 then
245 then
253 ['] strdup catch if 2drop exit then
282 then
285 then then
289 then
302 2 pick 0= if 2drop 2drop true exit then
303 dup 0= if 2drop 2drop false exit then
312 2 pick over = if 2drop 2drop true exit then
315 swap drop if 2drop 2drop true exit then
316 then begin
319 if false else true then 2 pick 0> and
337 else drop false then
340 else drop false then
344 else drop false then
352 then
391 : free-memory free if EFREE throw then ;
399 : strfree { var -- } var .addr @ ?dup if free-memory 0 0 var strset then ;
413 over c@ [char] " = if 2 chars - swap char+ swap then
456 then
470 then
479 dup 0= if exit then
484 resize if ENOMEM throw then
486 r@ allocate if ENOMEM throw then
487 then
493 dup 0= if 2drop exit then
514 read_buffer_size allocate if ENOMEM throw then
516 then
518 dup -1 = if EREAD throw then
519 dup 0= if true to end_of_file? then
631 end_of_line? if 0 else space? then
643 then
657 then
666 len allocate if ENOMEM throw then
673 then
685 end_of_line? if ESYNTAX throw then
691 end_of_line? if ESYNTAX throw then
692 then
694 end_of_line? if ESYNTAX throw then
715 then
716 then
726 comment? if ['] comment to parsing_function exit then
727 end_of_line? 0= if ESYNTAX throw then
739 then
750 assignment_sign? if ['] assignment_sign to parsing_function exit then
761 letter? if ['] variable_name to parsing_function exit then
762 comment? if ['] comment to parsing_function exit then
763 end_of_line? 0= if ESYNTAX throw then
777 then
778 comment? if ['] comment to parsing_function exit then
779 end_of_line? 0= if ESYNTAX throw then
796 or or 0= if ESYNTAX throw then
811 or or 0= if ESYNTAX throw then
824 name_buffer .len @ over <= if 2drop false exit then
854 allocate if ENOMEM throw then
865 then
880 then
899 compare 0= if exit then
905 sizeof module allocate if ENOMEM throw then
913 ?dup 0= if new_module_option then
969 ['] evaluate catch if EEXEC throw then
973 name_buffer .len @ 0= if exit then
974 loader_conf_files? if set_conf_files exit then
975 verbose_flag? if set_verbose exit then
976 execute? if execute_command exit then
977 module_load? if set_module_flag exit then
978 module_loadname? if set_module_loadname exit then
979 module_type? if set_module_type exit then
980 module_hash? if set_module_hash exit then
981 module_args? if set_module_args exit then
982 module_beforeload? if set_module_beforeload exit then
983 module_afterload? if set_module_afterload exit then
984 module_loaderror? if set_module_loaderror exit then
990 \ Free some pointers if needed. The code then tests for errors
1033 fd @ -1 = if EOPEN throw then
1051 fd @ -1 = if EOPEN throw then
1075 fd @ -1 = if EOPEN throw then
1087 ESYNTAX = if cr print_syntax_error then
1093 dup 0= if 2drop then ( parse did not find argument, try stack )
1094 depth 2 < if 0 exit then
1101 compare 0= if drop drop r> exit then ( found it )
1112 then ;
1123 ." Status: " addr module.flag @ if ." Load" else ." Don't load" then cr
1198 repeat then
1209 then
1230 then
1246 then
1265 then
1266 then
1267 then
1271 then
1272 dup 0= if exit then \ nothing to do
1275 if 0 exit then
1279 then
1282 0= if -1 abort" unexpected readdir error" then \ shouldnt happen
1296 dup allocate if drop free 2drop 0 exit then
1334 then
1339 pos len = if 0 else addr pos + c@ bl = then
1351 then
1355 pos len = if 0 else addr pos + c@ bl <> then
1372 dup 0= if true to any_conf_read? drop exit then
1377 then
1381 then
1384 then
1386 verbose? if ." Warning: unable to open file " print_current_file cr then
1388 then
1400 dup 0= if drop exit then
1404 then
1407 then
1409 verbose? if ." Warning: unable to open /boot/solaris/bootenv.rc" cr then
1411 then
1419 dup 0= if drop exit then \ no error
1424 then
1428 then
1431 then
1433 verbose? if ." Warning: unable to open file /boot/transient.conf" cr then
1435 then
1449 conf_files .addr @ if recurse then
1457 l1 l2 + allocate if ENOMEM throw then
1472 then
1483 then
1495 then
1498 then
1499 then
1515 then
1522 then
1528 ['] evaluate catch if EBEFORELOAD throw then
1529 then
1535 ['] evaluate catch if EAFTERLOAD throw then
1536 then
1543 then
1550 then
1553 : load_error_message verbose? if ." failed!" cr then ;
1555 : load_successful_message verbose? if ." ok" cr then ;
1570 then
1574 then
1585 then
1590 then
1598 then
1603 then
1619 then
1633 dup -1 = if 0 swap exit then
1637 -1 = if drop else free abort" Freeing error" then
1647 then
1656 then
1672 repeat then
1675 then
1690 dup 2 = if ." Flags : " >r 2over type r> cr then
1691 then
1698 then
1706 then
1713 then
1739 dup 0= if exit then
1740 then
1748 then
1774 args 1 = if 0 0 then
1790 then
1791 allocate if ( out of memory ) 1 exit then \ XXX throw ?
1808 then
1810 then
1831 then
1833 then
1861 args 1 = if 0 0 then
1867 dup 0= if exit else drop then
1879 dup -1 = if drop 0 else 1 then
1884 args 0= if 0 0 then
1887 dup -1 = if 0 swap then
1895 then
1903 then
1909 then
1919 then
1932 then
1937 2dup = if 0 0 exit then \ out of range
1968 dup 0= if 0 exit then
1984 strlen(argv) allocate if ENOMEM throw then
2008 then
2011 then
2017 drop free if EFREE throw then
2020 then
2023 r> if 2r> 1 else 0 then
2044 then
2051 then
2052 ?dup 0= if ['] load_modules catch then
2053 then