Lines Matching +full:drop +full:- +full:out
1 \ Copyright (c) 2006-2015 Devin Teske <dteske@FreeBSD.org>
22 \ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
26 marker task-version.4th
28 vocabulary version-processing
29 only forth also version-processing definitions
35 : str_loader_version ( -- C-ADDR/U|-1 ) -1 ;
38 80 versionX ! \ NOTE: this is the ending column (text is right-justified)
41 only forth definitions also version-processing
43 : print_version ( -- )
46 s" loader_version_x" getenv dup -1 <> if
47 ?number drop versionX ! -1
48 then drop
49 s" loader_version_y" getenv dup -1 <> if
50 ?number drop versionY ! -1
51 then drop
54 s" loader_version" getenv dup -1 = if
55 drop
57 s" loader_logo" getenv dup -1 = if
58 drop str_loader_version
60 \ For tributes, do nothing (defer to logo-*.4th)
61 2dup s" tribute" compare-insensitive 0= if
62 2drop
64 drop exit \ see logo-tribute.4th
66 drop str_loader_version
68 else 2dup s" tributebw" compare-insensitive 0= if
69 2drop
71 drop exit \ see logo-tributebw.4th
73 drop str_loader_version
76 2drop str_loader_version
79 then dup -1 = if
80 drop exit \ default version (above) is disabled
84 dup versionX @ swap - versionY @ at-xy
87 loader_color? dup ( c-addr/u -- c-addr/u bool bool )
89 -rot type
92 0 25 at-xy