diff options
author | Adrian Reber <adrian@lisas.de> | 2008-11-21 12:45:38 +0100 |
---|---|---|
committer | Adrian Reber <adrian@lisas.de> | 2008-11-21 12:45:38 +0100 |
commit | 1015f69140c36be1c56653075636be60ca433a6d (patch) | |
tree | 23c81fb82a757758186b8ad9adab8f48badd3a16 /slof/fs/root.fs | |
parent | 07ec038eec68116cbfcc42b4eea568fd334e8c88 (diff) | |
download | SLOF-slof-JX-1.4.0-0.zip SLOF-slof-JX-1.4.0-0.tar.gz SLOF-slof-JX-1.4.0-0.tar.bz2 |
imported slof-JX-1.4.0-0 releaseslof-JX-1.4.0-0
Diffstat (limited to 'slof/fs/root.fs')
-rw-r--r-- | slof/fs/root.fs | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/slof/fs/root.fs b/slof/fs/root.fs new file mode 100644 index 0000000..67df811 --- /dev/null +++ b/slof/fs/root.fs @@ -0,0 +1,57 @@ +\ ***************************************************************************** +\ * Copyright (c) 2004, 2007 IBM Corporation +\ * All rights reserved. +\ * This program and the accompanying materials +\ * are made available under the terms of the BSD License +\ * which accompanies this distribution, and is available at +\ * http://www.opensource.org/licenses/bsd-license.php +\ * +\ * Contributors: +\ * IBM Corporation - initial implementation +\ ****************************************************************************/ + +\ this creates the root and common branches of the device tree + +defer (client-exec) +defer client-exec + +\ defined in slof/fs/client.fs +defer callback +defer continue-client + +: set-chosen ( prop len name len -- ) + s" /chosen" find-node set-property ; + +: get-chosen ( name len -- [ prop len ] success ) + s" /chosen" find-node get-property 0= ; + +new-device + s" /" device-name + new-device + s" chosen" device-name + s" " encode-string s" bootargs" property + s" " encode-string s" bootpath" property + finish-device + + new-device + s" aliases" device-name + finish-device + + new-device + s" options" device-name + finish-device + + + new-device + s" openprom" device-name + s" BootROM" device-type + finish-device + + new-device +#include <packages.fs> + finish-device + +: open true ; +: close ; + +finish-device |