8c6afa35be
- Change the 'fopen' keyword to accept a mode parameter. Note that this will break existing 4th scripts that use fopen. Thus, the loader version has been bumped and loader.4th has been changed to check for a sufficient version on i386 and alpha. Be sure that you either do a full world build or install or full build and install of sys/boot after this since loader.old won't work with the new 4th files and vice versa. PR: kern/32389 Submitted by: Jonathan Mini <mini@haikugeek.com> Sponsored by: ClickArray, Inc.
23 lines
461 B
Forth
23 lines
461 B
Forth
\ Example of the file which is automatically loaded by /boot/loader
|
|
\ on startup.
|
|
\ $FreeBSD$
|
|
|
|
\ Load the screen manipulation words
|
|
|
|
cr .( Loading Forth extensions:)
|
|
|
|
cr .( - screen.4th...)
|
|
s" /boot/screen.4th" O_RDONLY fopen dup fload fclose
|
|
|
|
\ Load frame support
|
|
cr .( - frames.4th...)
|
|
s" /boot/frames.4th" O_RDONLY fopen dup fload fclose
|
|
|
|
\ Load our little menu
|
|
cr .( - menu.4th...)
|
|
s" /boot/menu.4th" O_RDONLY fopen dup fload fclose
|
|
|
|
\ Show it
|
|
cr
|
|
main_menu
|