/share/examples/bootforth/boot.4th

https://bitbucket.org/freebsd/freebsd-head/ · Forth · 22 lines · 16 code · 6 blank · 0 comment · 0 complexity · 726fc62695d4069354d016ced0344c9c MD5 · raw file 

    

  1. \ Example of the file which is automatically loaded by /boot/loader
    2. 

  2. \ on startup.
    3. 

  3. \ $FreeBSD$
    4. 

  4. 

  5. \ Load the screen manipulation words
    6. 

  6. 

  7. cr .( Loading Forth extensions:)
    8. 

  8. 

  9. cr .( - screen.4th...)
    10. 

  10. s" /boot/screen.4th" O_RDONLY fopen dup fload fclose
    11. 

  11. 

  12. \ Load frame support
    13. 

  13. cr .( - frames.4th...)
    14. 

  14. s" /boot/frames.4th" O_RDONLY fopen dup fload fclose
    15. 

  15. 

  16. \ Load our little menu
    17. 

  17. cr .( - menu.4th...)
    18. 

  18. s" /boot/menu.4th" O_RDONLY fopen dup fload fclose
    19. 

  19. 

  20. \ Show it
    21. 

  21. cr
    22. 

  22. main_menu
    23.