steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

system: Make a shorter banner on startup.

db4
Doug Coleman 2015-08-04 16:57:19 -07:00
parent 732a8b8dc5
commit e9dbb7cf22
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
core/system/system.factor
View File

@ -1,7 +1,7 @@
! copyright (c) 2007, 2010 slava pestov. ! copyright (c) 2007, 2010 slava pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: assocs continuations init io kernel kernel.private make USING: assocs continuations init io kernel kernel.private make
math.parser namespaces sequences ; math.parser namespaces sequences splitting ;
IN: system IN: system
PRIMITIVE: (exit) ( n -- * ) PRIMITIVE: (exit) ( n -- * )
@ -24,6 +24,13 @@ UNION: unix macosx linux ;
: vm-git-label ( -- string ) \ vm-git-label get-global ; foldable : vm-git-label ( -- string ) \ vm-git-label get-global ; foldable
: split-vm-git-label ( -- ref git-id )
vm-git-label "-" split1-last ; foldable
: vm-git-ref ( -- string ) split-vm-git-label drop ; foldable
: vm-git-id ( -- string ) split-vm-git-label nip ; foldable
: vm-compiler ( -- string ) \ vm-compiler get-global ; foldable : vm-compiler ( -- string ) \ vm-compiler get-global ; foldable
: vm-compile-time ( -- string ) \ vm-compile-time get-global ; foldable : vm-compile-time ( -- string ) \ vm-compile-time get-global ; foldable
@ -72,7 +79,8 @@ PRIVATE>
[ [
"Factor " % vm-version % "Factor " % vm-version %
" " % cpu cpu>string % " " % cpu cpu>string %
" (" % build # ", " % vm-git-label % ", " % " (" % build # ", " %
split-vm-git-label [ % "-" % ] [ 10 head % ] bi* ", " %
vm-compile-time % ")\n[" % vm-compile-time % ")\n[" %
vm-compiler % "] on " % os os>string % vm-compiler % "] on " % os os>string %
] "" make ; ] "" make ;