Changeset View
Changeset View
Standalone View
Standalone View
head/emulators/xen-kernel47/files/xen.4th
| Property | Old Value | New Value |
|---|---|---|
| fbsd:nokeywords | null | yes \ No newline at end of property |
| svn:eol-style | null | native \ No newline at end of property |
| svn:mime-type | null | text/plain \ No newline at end of property |
| \ Copyright (c) 2015 Devin Teske <dteske@FreeBSD.org> | |||||
| \ All rights reserved. | |||||
| \ | |||||
| \ Redistribution and use in source and binary forms, with or without | |||||
| \ modification, are permitted provided that the following conditions | |||||
| \ are met: | |||||
| \ 1. Redistributions of source code must retain the above copyright | |||||
| \ notice, this list of conditions and the following disclaimer. | |||||
| \ 2. Redistributions in binary form must reproduce the above copyright | |||||
| \ notice, this list of conditions and the following disclaimer in the | |||||
| \ documentation and/or other materials provided with the distribution. | |||||
| \ | |||||
| \ THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND | |||||
| \ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | |||||
| \ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | |||||
| \ ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE | |||||
| \ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | |||||
| \ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | |||||
| \ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | |||||
| \ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | |||||
| \ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | |||||
| \ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | |||||
| \ SUCH DAMAGE. | |||||
| \ | |||||
| \ $FreeBSD$ | |||||
| create xenkerndefault 64 allot | |||||
| 0 xenkerndefault c! | |||||
| also menu-command-helpers | |||||
| also menu-namespace | |||||
| : init_xen_active ( N -- N ) | |||||
| s" [X]en Kernel.. off" 2 pick menu_caption[x] setenv | |||||
| s" [X]en Kernel.. On" 2 pick toggled_text[x] setenv | |||||
| s" toggle_xen" 2 pick menu_command[x] setenv | |||||
| s" 120" 2 pick menu_keycode[x] setenv | |||||
| s" ^[1mX^[men Kernel.. ^[34;1mOff^[m" 2 pick ansi_caption[x] setenv | |||||
| s" ^[1mX^[men Kernel.. ^[32;7mOn^[m" 2 pick toggled_ansi[x] setenv | |||||
| ; | |||||
| : init_xen_inactive ( N -- N ) | |||||
| s" Xen Kernel.. N/A" 2dup | |||||
| 4 pick menu_caption[x] setenv | |||||
| 2 pick ansi_caption[x] setenv | |||||
| s" true" 2 pick menu_command[x] setenv | |||||
| ; | |||||
| : init_xen ( -- ) | |||||
| s" optionsmenu_options" getenv 0> if | |||||
| c@ dup [char] 0 > over [char] 9 < and false = if | |||||
| drop [char] 0 | |||||
| then | |||||
| 1+ | |||||
| else | |||||
| [char] 1 | |||||
| then | |||||
| begin | |||||
| dup [char] 8 > if | |||||
| false ( break ) | |||||
| else | |||||
| dup s" optionsmenu_caption[x]" 20 +c! getenv -1 = if | |||||
| false ( break ) | |||||
| else | |||||
| drop true | |||||
| then | |||||
| then | |||||
| while | |||||
| 1+ | |||||
| repeat | |||||
| s" xen_kernel" getenv dup -1 <> over 0> and if | |||||
| xenkerndefault 1+ 0 2swap strcat swap 1- c! | |||||
| init_xen_active ( n -- n ) | |||||
| toggle_menuitem ( n -- n ) | |||||
| else | |||||
| drop | |||||
| xenkerndefault c@ 0<> if | |||||
| init_xen_active ( n -- n ) | |||||
| else | |||||
| init_xen_inactive ( n -- n ) | |||||
| then | |||||
| then | |||||
| ; | |||||
| : toggle_xen ( N -- N TRUE ) | |||||
| toggle_menuitem ( n -- n ) | |||||
| menu-redraw | |||||
| dup toggle_stateN @ 0= if | |||||
| s" xen_kernel" unsetenv | |||||
| else | |||||
| xenkerndefault count s" xen_kernel" setenv | |||||
| then | |||||
| TRUE \ loop menu again | |||||
| ; | |||||
| set optionsmenu_init="$optionsmenu_init init_xen" | |||||