diff options
| author | Daniel Baumann <daniel@debian.org> | 2007-09-23 10:05:12 +0200 |
|---|---|---|
| committer | Daniel Baumann <daniel@debian.org> | 2011-03-09 18:19:41 +0100 |
| commit | 504c05c3a63de0af4fd0e876274afc039c5c0ed1 (patch) | |
| tree | 5a29d0f82735a131c9319b5b825c57b740584d13 /templates/yaboot/pegasos | |
| parent | 37a5c53ddd2825bf6b0ce521908a63d419683981 (diff) | |
| download | live-build-504c05c3a63de0af4fd0e876274afc039c5c0ed1.zip live-build-504c05c3a63de0af4fd0e876274afc039c5c0ed1.tar.gz | |
Adding live-helper 1.0~a15-1.
Diffstat (limited to 'templates/yaboot/pegasos')
| -rw-r--r-- | templates/yaboot/pegasos | 90 |
1 files changed, 90 insertions, 0 deletions
diff --git a/templates/yaboot/pegasos b/templates/yaboot/pegasos new file mode 100644 index 0000000..7a8758a --- /dev/null +++ b/templates/yaboot/pegasos @@ -0,0 +1,90 @@ +\ FORTH is identifed by a forth comment at first line +\ +\ terminal control stuff +\ +: TTY.CSI d# 27 EMIT ASCII [ EMIT ; +: TTY.HOME TTY.CSI ASCII H EMIT ; +: TTY.CLR_EOS TTY.CSI ASCII J EMIT ; +: TTY.HOME_CLR TTY.HOME TTY.CLR_EOS ; +\ +\ boot menu stuff +\ +: my-max-boot-num 4 ; +: my-boot-default 1 ; +: my-boot-delay d# 300 ; \ unit = 100 ms +: my-print-menu ( -- ) + TTY.HOME_CLR + ." " cr + ." Welcome to Debian GNU/Linux!" cr + ." " cr + ." This is a Debian Live CDROM," cr + ." built on LIVE_DATE." cr + ." " cr + ." The default option is 'live'." cr + ." " cr + ." ************************************" cr + ." If in doubt, just choose (1) 'live'" cr + ." ************************************" cr + ." " cr + ." 1: install" cr + ." 2: install" cr + ." 3: expert" cr + ." 4: rescue" cr + ." 5: return to OF prompt" cr + ." " cr +; +: my-boot-case ( num -- ) + ." " cr + case + 1 of " cd live/vmlinuz-chrp.initrd --" endof + 2 of " cd install/powerpc/vmlinuz-chrp.initrd --" endof + 3 of " cd install/powerpc/vmlinuz-chrp.initrd DEBCONF_PRIORITY=low --" endof + 4 of " cd install/powerpc/vmlinuz-chrp.initrd rescue/enable=true --" endof + 5 of " none" endof + endcase + $boot +; +: my-input-num ( wait-period max-boot-num default-num -- boot-num ) + 1 \ loop-inc = 1 + 3 pick 0 do + 0d emit + ." press 1-" + ( wait-period max-boot-num default-num loop-inc ) + 2 pick ascii 0 + emit + dup 1 = if + ." within " + 3 pick i - d# 10 / .d + ." seconds" + then + ." (default: " + over ascii 0 + emit + ." ) : " + d# 100 ms + key? if + key + ( wait-period max-boot-num default-num loop-inc key ) + dup 0d = if \ return pressed + drop leave + then + + ascii 0 - + ( wait-period max-boot-num default-num loop-inc num ) + dup 1 5 pick + ( wait-period max-boot-num default-num loop-inc num num 1 max-boot-num ) + between if + rot drop swap leave + then + + ( wait-period max-boot-num default-num loop-inc num ) + 2drop 0 \ loop-inc = 0 + then + dup +loop + drop + ( wait-period max-boot-num boot-num ) + nip nip +; + + +my-print-menu +my-boot-delay my-max-boot-num my-boot-default my-input-num +my-boot-case |