A sample rconfig script which completely wipes and reinstalls dragonfly
[dragonfly.git] / share / examples / bootforth / menuconf.4th
1 \ Simple greeting screen, presenting basic options.
2 \ XXX This is far too trivial - I don't have time now to think
3 \ XXX about something more fancy... :-/
4 \ $FreeBSD: src/share/examples/bootforth/menuconf.4th,v 1.4.2.1 2000/09/08 17:19:01 dcs Exp $
5 \ $DragonFly: src/share/examples/bootforth/menuconf.4th,v 1.2 2003/06/17 04:36:57 dillon Exp $
6
7 : title
8         f_single
9         60 11 10 4 box
10         29 4 at-xy 15 fg 7 bg
11         ." Welcome to BootFORTH!"
12         me
13 ;
14
15 : menu
16         2 fg
17         20 7 at-xy 
18         ." 1.  Start FreeBSD with /boot/stable.conf."
19         20 8 at-xy
20         ." 2.  Start FreeBSD with /boot/current.conf."
21         20 9 at-xy
22         ." 3.  Start FreeBSD with standard configuration. "
23         20 10 at-xy
24         ." 4.  Reboot."
25         me
26 ;
27
28 : tkey  ( d -- flag | char )
29         seconds +
30         begin 1 while
31             dup seconds u< if
32                 drop
33                 -1
34                 exit
35             then
36             key? if
37                 drop
38                 key
39                 exit
40             then
41         repeat
42 ;
43
44 : prompt
45         14 fg
46         20 12 at-xy
47         ." Enter your option (1,2,3,4): "
48         10 tkey
49         dup 32 = if
50             drop key
51         then
52         dup 0< if
53             drop 51
54         then
55         dup emit
56         me
57 ;
58
59 : help_text
60         10 18 at-xy ." * Choose 1 or 2 to run special configuration file."
61         10 19 at-xy ." * Choose 3 to proceed with standard bootstrapping."
62         12 20 at-xy ." See '?' for available commands, and 'words' for"
63         12 21 at-xy ." complete list of Forth words."
64         10 22 at-xy ." * Choose 4 in order to warm boot your machine."
65 ;
66
67 : (reboot) 0 reboot ;
68
69 : main_menu
70         begin 1 while
71                 clear
72                 f_double
73                 79 23 1 1 box
74                 title
75                 menu
76                 help_text
77                 prompt
78                 cr cr cr
79                 dup 49 = if
80                         drop
81                         1 25 at-xy cr
82                         ." Loading /boot/stable.conf. Please wait..." cr
83                         s" /boot/stable.conf" read-conf
84                         0 boot-conf exit
85                 then
86                 dup 50 = if
87                         drop
88                         1 25 at-xy cr
89                         ." Loading /boot/current.conf. Please wait..." cr
90                         s" /boot/current.conf" read-conf
91                         0 boot-conf exit
92                 then
93                 dup 51 = if
94                         drop
95                         1 25 at-xy cr
96                         ." Proceeding with standard boot. Please wait..." cr
97                         0 boot-conf exit
98                 then
99                 dup 52 = if
100                         drop
101                         1 25 at-xy cr
102                         ['] (reboot) catch abort" Error rebooting"
103                 then
104                 20 12 at-xy
105                 ." Key " emit ."  is not a valid option!"
106                 20 13 at-xy
107                 ." Press any key to continue..."
108                 key drop
109         repeat
110 ;
111