Add the raptor vocabulary
Eduardo Cavazos
parent
225692f144
commit
f1f628dc0a
|
|
@ -0,0 +1,140 @@
|
||||||
|
|
||||||
|
USING: namespaces unix.linux.if unix.linux.ifreq unix.linux.route ;
|
||||||
|
|
||||||
|
IN: raptor
|
||||||
|
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
: configure-lo ( -- )
|
||||||
|
"lo" "127.0.0.1" set-if-addr
|
||||||
|
"lo" { IFF_UP } flags set-if-flags ;
|
||||||
|
|
||||||
|
: configure-eth1 ( -- )
|
||||||
|
"eth1" "192.168.1.10" set-if-addr
|
||||||
|
"eth1" { IFF_UP IFF_MULTICAST } flags set-if-flags ;
|
||||||
|
|
||||||
|
: configure-route ( -- )
|
||||||
|
"0.0.0.0" "192.168.1.1" "0.0.0.0" { RTF_UP RTF_GATEWAY } flags route ;
|
||||||
|
|
||||||
|
[
|
||||||
|
configure-lo
|
||||||
|
configure-eth1
|
||||||
|
configure-route
|
||||||
|
] networking-hook set-global
|
||||||
|
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
[
|
||||||
|
|
||||||
|
! rcS.d
|
||||||
|
|
||||||
|
"mountvirtfs" start-service
|
||||||
|
"hostname.sh" start-service
|
||||||
|
"keymap.sh" start-service
|
||||||
|
"linux-restricted-modules-common" start-service
|
||||||
|
"udev" start-service
|
||||||
|
"mountdevsubfs" start-service
|
||||||
|
"module-init-tools" start-service
|
||||||
|
"procps.sh" start-service
|
||||||
|
"checkroot.sh" start-service
|
||||||
|
"mtab" start-service
|
||||||
|
"checkfs.sh" start-service
|
||||||
|
"mountall.sh" start-service
|
||||||
|
|
||||||
|
start-networking
|
||||||
|
|
||||||
|
"hwclock.sh" start-service
|
||||||
|
"displayconfig-hwprobe.py" start-service
|
||||||
|
"screen" start-service
|
||||||
|
"x11-common" start-service
|
||||||
|
"bootmisc.sh" start-service
|
||||||
|
"urandom" start-service
|
||||||
|
"console-screen.sh" start-service
|
||||||
|
|
||||||
|
! rc2.d
|
||||||
|
|
||||||
|
"vbesave" start-service
|
||||||
|
"acpid" start-service
|
||||||
|
"powernowd.early" start-service
|
||||||
|
"sysklogd" start-service
|
||||||
|
"klogd" start-service
|
||||||
|
"dbus" start-service
|
||||||
|
"apmd" start-service
|
||||||
|
"hotkey-setup" start-service
|
||||||
|
"laptop-mode" start-service
|
||||||
|
"makedev" start-service
|
||||||
|
"nvidia-kernel" start-service
|
||||||
|
"postfix" start-service
|
||||||
|
"powernowd" start-service
|
||||||
|
"ntp-server" start-service
|
||||||
|
"anacron" start-service
|
||||||
|
"atd" start-service
|
||||||
|
"cron" start-service
|
||||||
|
"binfmt-support" start-service
|
||||||
|
"acpi-support" start-service
|
||||||
|
"rc.local" start-service
|
||||||
|
"rmnologin" start-service
|
||||||
|
|
||||||
|
start-listeners
|
||||||
|
start-gettys
|
||||||
|
] boot-hook set-global
|
||||||
|
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
[
|
||||||
|
"anacron" stop-service
|
||||||
|
"atd" stop-service
|
||||||
|
"cron" stop-service
|
||||||
|
"acpi-support" stop-service
|
||||||
|
"apmd" stop-service
|
||||||
|
"dbus" stop-service
|
||||||
|
"hotkey-setup" stop-service
|
||||||
|
"laptop-mode" stop-service
|
||||||
|
"makedev" stop-service
|
||||||
|
"nvidia-kernel" stop-service
|
||||||
|
"powernowd" stop-service
|
||||||
|
"acpid" stop-service
|
||||||
|
"hwclock.sh" stop-service
|
||||||
|
"alsa-utils" stop-service
|
||||||
|
"klogd" stop-service
|
||||||
|
"binfmt-support" stop-service
|
||||||
|
"sysklogd" stop-service
|
||||||
|
"linux-restricted-modules-common" stop-service
|
||||||
|
"sendsigs" stop-service
|
||||||
|
"urandom" stop-service
|
||||||
|
"umountnfs.sh" stop-service
|
||||||
|
"networking" stop-service
|
||||||
|
"umountfs" stop-service
|
||||||
|
"umountroot" stop-service
|
||||||
|
"reboot" stop-service
|
||||||
|
] reboot-hook set-global
|
||||||
|
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
[
|
||||||
|
"anacron" stop-service
|
||||||
|
"atd" stop-service
|
||||||
|
"cron" stop-service
|
||||||
|
"acpi-support" stop-service
|
||||||
|
"apmd" stop-service
|
||||||
|
"dbus" stop-service
|
||||||
|
"hotkey-setup" stop-service
|
||||||
|
"laptop-mode" stop-service
|
||||||
|
"makedev" stop-service
|
||||||
|
"nvidia-kernel" stop-service
|
||||||
|
"postfix" stop-service
|
||||||
|
"powernowd" stop-service
|
||||||
|
"acpid" stop-service
|
||||||
|
"hwclock.sh" stop-service
|
||||||
|
"alsa-utils" stop-service
|
||||||
|
"klogd" stop-service
|
||||||
|
"binfmt-support" stop-service
|
||||||
|
"sysklogd" stop-service
|
||||||
|
"linux-restricted-modules-common" stop-service
|
||||||
|
"sendsigs" stop-service
|
||||||
|
"urandom" stop-service
|
||||||
|
"umountnfs.sh" stop-service
|
||||||
|
"umountfs" stop-service
|
||||||
|
"umountroot" stop-service
|
||||||
|
"halt" stop-service
|
||||||
|
] shutdown-hook set-global
|
||||||
|
|
@ -0,0 +1,60 @@
|
||||||
|
|
||||||
|
USING: kernel parser namespaces threads unix.process combinators.cleave ;
|
||||||
|
|
||||||
|
IN: raptor
|
||||||
|
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
SYMBOL: boot-hook
|
||||||
|
SYMBOL: reboot-hook
|
||||||
|
SYMBOL: shutdown-hook
|
||||||
|
SYMBOL: networking-hook
|
||||||
|
|
||||||
|
: reload-raptor-config ( -- ) "/etc/raptor/config.factor" run-file ;
|
||||||
|
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
USING: sequences unix ;
|
||||||
|
|
||||||
|
: start-service ( name -- ) "/etc/init.d/" swap " start" 3append system drop ;
|
||||||
|
: stop-service ( name -- ) "/etc/init.d/" swap " stop" 3append system drop ;
|
||||||
|
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
: fork-exec-wait ( pathname args -- )
|
||||||
|
fork dup 0 = [ drop exec drop ] [ 2nip wait-for-pid ] if ;
|
||||||
|
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
: respawn ( pathname args -- ) [ fork-exec-wait ] [ respawn ] 2bi ;
|
||||||
|
|
||||||
|
: start-gettys ( -- )
|
||||||
|
[ "/sbin/getty" { "getty" "38400" "tty5" } respawn ] in-thread
|
||||||
|
[ "/sbin/getty" { "getty" "38400" "tty6" } respawn ] in-thread ;
|
||||||
|
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
USING: io io.files io.streams.lines io.streams.plain io.streams.duplex
|
||||||
|
listener ;
|
||||||
|
|
||||||
|
: tty-listener ( tty -- )
|
||||||
|
[ <file-reader> <line-reader> ]
|
||||||
|
[ <file-writer> <plain-writer> ]
|
||||||
|
bi <duplex-stream> [ listener ] with-stream ;
|
||||||
|
|
||||||
|
: forever ( quot -- ) [ call ] [ forever ] bi ;
|
||||||
|
|
||||||
|
: start-listeners ( -- )
|
||||||
|
[ [ "/dev/tty2" tty-listener ] forever ] in-thread
|
||||||
|
[ [ "/dev/tty3" tty-listener ] forever ] in-thread
|
||||||
|
[ [ "/dev/tty4" tty-listener ] forever ] in-thread ;
|
||||||
|
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
: start-networking ( -- ) networking-hook get call ;
|
||||||
|
|
||||||
|
: boot ( -- ) boot-hook get call ;
|
||||||
|
: reboot ( -- ) reboot-hook get call ;
|
||||||
|
: shutdown ( -- ) shutdown-hook get call ;
|
||||||
|
|
||||||
|
MAIN: boot
|
||||||
|
|
@ -0,0 +1,117 @@
|
||||||
|
|
||||||
|
Raptor Linux
|
||||||
|
|
||||||
|
*** Introduction ***
|
||||||
|
|
||||||
|
Raptor Linux is a mod of Ubuntu 6.06 (Dapper Drake)
|
||||||
|
|
||||||
|
This is unlikely to work on another version of Ubuntu, much less
|
||||||
|
another Linux distribution.
|
||||||
|
|
||||||
|
*** Install ***
|
||||||
|
|
||||||
|
( scratchpad ) USE: raptor
|
||||||
|
( scratchpad ) save
|
||||||
|
|
||||||
|
# mv -v /sbin/{init,init.orig}
|
||||||
|
|
||||||
|
# cp -v /scratch/factor/factor /sbin/init
|
||||||
|
|
||||||
|
# cp -v /scratch/factor/factor.image /sbin/init.image
|
||||||
|
|
||||||
|
# mkdir -v /etc/raptor
|
||||||
|
|
||||||
|
# cp -v /scratch/factor/extra/raptor/config.factor /etc/raptor/config.factor
|
||||||
|
|
||||||
|
*** Static IP networking ***
|
||||||
|
|
||||||
|
If you use a static IP in your network then Factor can take care of
|
||||||
|
networking.
|
||||||
|
|
||||||
|
# emacs /etc/raptor/config.factor
|
||||||
|
|
||||||
|
(change the settings accordingly)
|
||||||
|
|
||||||
|
The udev system has a hook to bring up ethernet interfaces when they
|
||||||
|
are detected. Let's remove this hook since we'll be bringing up the
|
||||||
|
interface. Actually, we'll move it, not delete it.
|
||||||
|
|
||||||
|
# mv -v /etc/udev/rules.d/85-ifupdown.rules /root
|
||||||
|
|
||||||
|
*** DHCP networking ***
|
||||||
|
|
||||||
|
If you're using dhcp then we'll fall back on what Ubuntu offers. In
|
||||||
|
your config.factor change the line :
|
||||||
|
|
||||||
|
start-networking
|
||||||
|
|
||||||
|
to
|
||||||
|
|
||||||
|
"loopback" start-service
|
||||||
|
"networking" start-service
|
||||||
|
|
||||||
|
Add these to your reboot-hook and shutdown-hook :
|
||||||
|
|
||||||
|
"loopback" stop-service
|
||||||
|
"networking" stop-service
|
||||||
|
|
||||||
|
*** Editing the hooks ***
|
||||||
|
|
||||||
|
The items in boot-hook correspond to the things in '/etc/rcS.d' and
|
||||||
|
'/etc/rc2.d'. Feel free to add and remove items from that hook. For
|
||||||
|
example, I removed the printer services. I also removed other things
|
||||||
|
that I didn't feel were necessary on my system.
|
||||||
|
|
||||||
|
*** Grub ***
|
||||||
|
|
||||||
|
Edit your '/boot/grub/menu.lst'. Basically, copy and paste your
|
||||||
|
current good entry. My default entry is this:
|
||||||
|
|
||||||
|
title Ubuntu, kernel 2.6.15-28-686
|
||||||
|
root (hd0,0)
|
||||||
|
kernel /boot/vmlinuz-2.6.15-28-686 root=/dev/hda1 ro quiet splash
|
||||||
|
initrd /boot/initrd.img-2.6.15-28-686
|
||||||
|
savedefault
|
||||||
|
boot
|
||||||
|
|
||||||
|
I pasted a copy above it and edited it to look like this:
|
||||||
|
|
||||||
|
title Raptor, kernel 2.6.15-28-686
|
||||||
|
root (hd0,0)
|
||||||
|
kernel /boot/vmlinuz-2.6.15-28-686 root=/dev/hda1 ro quiet -run=ubuntu.dapper.boot
|
||||||
|
initrd /boot/initrd.img-2.6.15-28-686
|
||||||
|
savedefault
|
||||||
|
boot
|
||||||
|
|
||||||
|
* Note that I removed the 'splash' kernel option
|
||||||
|
|
||||||
|
* Note the '-run=ubuntu.dapper.boot' option. Unfortunately, this isn't
|
||||||
|
working yet...
|
||||||
|
|
||||||
|
*** Boot ***
|
||||||
|
|
||||||
|
Reboot or turn on your computer. Eventually, hopefully, you'll be at a
|
||||||
|
Factor prompt. Boot your system:
|
||||||
|
|
||||||
|
( scratchpad ) boot
|
||||||
|
|
||||||
|
You'll probably be prompted to select a vocab. Select 'raptor'.
|
||||||
|
|
||||||
|
*** Now what ***
|
||||||
|
|
||||||
|
The virtual consoles are allocated like so:
|
||||||
|
|
||||||
|
1 - Main listener console
|
||||||
|
2 - listener
|
||||||
|
3 - listener
|
||||||
|
4 - listener
|
||||||
|
5 - getty
|
||||||
|
6 - getty
|
||||||
|
|
||||||
|
So you're next step might be to alt-f5, login, and run startx.
|
||||||
|
|
||||||
|
*** Join the fun ***
|
||||||
|
|
||||||
|
Take a loot at what happens during run levels S and 2. Implement a
|
||||||
|
Factor version of something. Let me know about it.
|
||||||
|
|
||||||
Loading…
Reference in New Issue