@@ -19,6 +19,7 @@ make-banner: func [
19
19
str: make string! 200
20
20
star: append /dup make string! 74 #"*" 74
21
21
spc: format ["**" 70 "**" ] ""
22
+ append str "^[ [7m"
22
23
parse fmt [
23
24
some [
24
25
[
@@ -30,24 +31,26 @@ make-banner: func [
30
31
| block! (b: reform b/1 )
31
32
| string! (b: b/1 )
32
33
]
33
- (s: format ["** " 11 55 "**" ] reduce [a b])
34
+ (s: either none? b [none][ format ["** " 11 55 "**" ] reduce [a b] ])
34
35
| '* (s: star)
35
36
| '- (s: spc)
36
37
]
37
- (append append str s newline)
38
+ (unless none? s [ append append str s newline] )
38
39
]
39
40
]
41
+ append str "^[ [0m"
40
42
str
41
43
]
42
44
43
45
sys/boot-banner: make-banner [
44
46
*
45
47
-
46
- "REBOL 3.0 [Alpha Test] "
48
+ "REBOL 3.0 (Oldes branch) "
47
49
-
48
- = Copyright: [system/build/year "REBOL Technologies" ]
49
- = "" "All rights reserved."
50
- = Website: "www.REBOL.com"
50
+ = Copyright: "2012 REBOL Technologies"
51
+ = "" "2012-2017 Rebol Open Source Contributors"
52
+ = "" "Apache 2.0 License, see LICENSE."
53
+ = Website: "https://github.com/oldes/r3"
51
54
-
52
55
= Version: system/version
53
56
= Platform: system/platform
@@ -56,27 +59,20 @@ sys/boot-banner: make-banner [
56
59
-
57
60
= Language: system/locale/language*
58
61
= Locale: system/locale/locale*
59
- = Home: [to-local-file system/options/home ]
62
+ = Home: [to-local-file clean-path join what-dir system/options/home ]
60
63
-
61
64
*
62
65
]
63
66
64
67
sys/boot-help:
65
- {Important notes:
68
+ {^[ [1;33;49mImportant notes^[ [0m :
66
69
67
70
* Sandbox and security are not available.
68
71
* Direct access to TCP HTTP required (no proxies).
69
- * Default web browser must be available.
70
72
71
- Special functions:
73
+ ^[ [1;33;49mSpecial functions^[ [0m :
72
74
73
- Chat - open DevBase developer forum/BBS
74
- Docs - open DocBase document wiki (web)
75
- Bugs - open CureCode bug database (web)
76
- Demo - run demo launcher (from rebol.com)
77
- Help - show built-in help information
78
- Upgrade - check for newer releases
79
- Changes - what's new about this version (web)
75
+ ^[ [1;32;49mHelp^[ [0m - show built-in help information
80
76
}
81
77
82
78
;print make-banner boot-banner halt
0 commit comments