xref: /freebsd/stand/forth/shortcuts.4th (revision 4543ef516683042d46f3bd3bb8a4f3f746e00499)
1\ Copyright (c) 2008-2011 Devin Teske <dteske@FreeBSD.org>
2\ All rights reserved.
3\
4\ Redistribution and use in source and binary forms, with or without
5\ modification, are permitted provided that the following conditions
6\ are met:
7\ 1. Redistributions of source code must retain the above copyright
8\    notice, this list of conditions and the following disclaimer.
9\ 2. Redistributions in binary form must reproduce the above copyright
10\    notice, this list of conditions and the following disclaimer in the
11\    documentation and/or other materials provided with the distribution.
12\
13\ THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
14\ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
15\ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
16\ ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
17\ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
18\ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
19\ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
20\ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
21\ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
22\ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
23\ SUCH DAMAGE.
24\
25
26\ FICL words intended to be used as shortcuts for carrying out common tasks or
27\ producing common results. Generally, words defined here are simply groupings
28\ of other custom words that pull from multiple libraries (for example, if you
29\ want to define a custom word that uses words defined in three different
30\ libraries, this is a good place to define such a word).
31\
32\ This script should be included after you have included any/all other
33\ libraries. This will prevent calling a word defined here before any required
34\ words have been defined.
35
36marker task-shortcuts.4th
37
38\ This "shortcut" word will not be used directly, but is defined here to
39\ offer the user a quick way to get back into the interactive PXE menu
40\ after they have escaped to the shell (perhaps by accident).
41\
42: menu ( -- )
43	clear           \ Clear the screen (in screen.4th)
44	print_version   \ print version string (bottom-right; see version.4th)
45	draw-beastie    \ Draw FreeBSD logo at right (in beastie.4th)
46	draw-brand      \ Draw FIS logo at top (in brand.4th)
47	menu-init       \ Initialize menu and draw bounding box (in menu.4th)
48	menu-display    \ Launch interactive menu (in menu.4th)
49;
50