Lines Matching +full:right +full:- +full:justified
1 \ Copyright (c) 2006-2015 Devin Teske <dteske@FreeBSD.org>
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
49 s" loader_version_y" getenv dup -1 <> if
50 ?number drop versionY ! -1
54 s" loader_version" getenv dup -1 = if
57 s" loader_logo" getenv dup -1 = if
60 \ For tributes, do nothing (defer to logo-*.4th)
61 2dup s" tribute" compare-insensitive 0= if
64 drop exit \ see logo-tribute.4th
68 else 2dup s" tributebw" compare-insensitive 0= if
71 drop exit \ see logo-tributebw.4th
79 then dup -1 = if
83 \ Right justify the text
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