PageRenderTime 42ms CodeModel.GetById 17ms RepoModel.GetById 1ms app.codeStats 0ms

/src/freebsd/share/examples/bootforth/menu.4th

https://bitbucket.org/killerpenguinassassins/open_distrib_devel
Forth | 99 lines | 92 code | 7 blank | 0 comment | 3 complexity | ef03d88c478c17d254d1168652fdedee MD5 | raw file
Possible License(s): CC0-1.0, MIT, LGPL-2.0, LGPL-3.0, WTFPL, GPL-2.0, BSD-2-Clause, AGPL-3.0, CC-BY-SA-3.0, MPL-2.0, JSON, BSD-3-Clause-No-Nuclear-License-2014, LGPL-2.1, CPL-1.0, AGPL-1.0, 0BSD, ISC, Apache-2.0, GPL-3.0, IPL-1.0, MPL-2.0-no-copyleft-exception, BSD-3-Clause 
    

  1. \ Simple greeting screen, presenting basic options.
    2. 

  2. \ XXX This is far too trivial - I don't have time now to think
    3. 

  3. \ XXX about something more fancy... :-/
    4. 

  4. \ $FreeBSD$
    5. 

  5. 

  6. : title
    7. 

  7. 	f_single
    8. 

  8. 	60 11 10 4 box
    9. 

  9. 	29 4 at-xy 15 fg 7 bg
    10. 

  10. 	." Welcome to BootFORTH!"
    11. 

  11. 	me
    12. 

  12. ;
    13. 

  13. 

  14. : menu
    15. 

  15. 	2 fg
    16. 

  16. 	20 7 at-xy 
    17. 

  17. 	." 1.  Start FreeBSD /kernel."
    18. 

  18. 	20 8 at-xy
    19. 

  19. 	." 2.  Interact with BootFORTH."
    20. 

  20. 	20 9 at-xy
    21. 

  21. 	." 3.  Reboot."
    22. 

  22. 	me
    23. 

  23. ;
    24. 

  24. 

  25. : tkey	( d -- flag | char )
    26. 

  26. 	seconds +
    27. 

  27. 	begin 1 while
    28. 

  28. 	    dup seconds u< if
    29. 

  29. 		drop
    30. 

  30. 		-1
    31. 

  31. 		exit
    32. 

  32. 	    then
    33. 

  33. 	    key? if
    34. 

  34. 		drop
    35. 

  35. 		key
    36. 

  36. 		exit
    37. 

  37. 	    then
    38. 

  38. 	repeat
    39. 

  39. ;
    40. 

  40. 

  41. : prompt
    42. 

  42. 	14 fg
    43. 

  43. 	20 11 at-xy
    44. 

  44. 	." Enter your option (1,2,3): "
    45. 

  45. 	10 tkey
    46. 

  46. 	dup 32 = if
    47. 

  47. 	    drop key
    48. 

  48. 	then
    49. 

  49. 	dup 0< if
    50. 

  50. 	    drop 49
    51. 

  51. 	then
    52. 

  52. 	dup emit
    53. 

  53. 	me
    54. 

  54. ;
    55. 

  55. 

  56. : help_text
    57. 

  57. 	10 18 at-xy ." * Choose 1 if you just want to run FreeBSD."
    58. 

  58. 	10 19 at-xy ." * Choose 2 if you want to use bootloader facilities."
    59. 

  59. 	12 20 at-xy ." See '?' for available commands, and 'words' for"
    60. 

  60. 	12 21 at-xy ." complete list of Forth words."
    61. 

  61. 	10 22 at-xy ." * Choose 3 in order to warm boot your machine."
    62. 

  62. ;
    63. 

  63. 

  64. : (boot) 0 boot ;
    65. 

  65. : (reboot) 0 reboot ;
    66. 

  66. 

  67. : main_menu
    68. 

  68. 	begin 1 while
    69. 

  69. 		clear
    70. 

  70. 		f_double
    71. 

  71. 		79 23 1 1 box
    72. 

  72. 		title
    73. 

  73. 		menu
    74. 

  74. 		help_text
    75. 

  75. 		prompt
    76. 

  76. 		cr cr cr
    77. 

  77. 		dup 49 = if
    78. 

  78. 			drop
    79. 

  79. 			1 25 at-xy cr
    80. 

  80. 			." Loading kernel. Please wait..." cr
    81. 

  81. 			['] (boot) catch abort" Error booting"
    82. 

  82. 		then
    83. 

  83. 		dup 50 = if
    84. 

  84. 			drop
    85. 

  85. 			1 25 at-xy cr
    86. 

  86. 			exit
    87. 

  87. 		then
    88. 

  88. 		dup 51 = if
    89. 

  89. 			drop
    90. 

  90. 			1 25 at-xy cr
    91. 

  91. 			['] (reboot) catch abort" Error rebooting"
    92. 

  92. 		then
    93. 

  93. 		20 12 at-xy
    94. 

  94. 		." Key " emit ."  is not a valid option!"
    95. 

  95. 		20 13 at-xy
    96. 

  96. 		." Press any key to continue..."
    97. 

  97. 		key drop
    98. 

  98. 	repeat
    99. 

  99. ;
    100. 

  100.