Author: mcayland
Date: 2010-01-01 19:17:15 +0100 (Fri, 01 Jan 2010)
New Revision: 655
Modified:
trunk/openbios-devel/forth/device/builtin.fs
trunk/openbios-devel/forth/device/device.fs
trunk/openbios-devel/forth/device/tree.fs
trunk/openbios-devel/forth/packages/deblocker.fs
trunk/openbios-devel/forth/packages/disklabel.fs
trunk/openbios-devel/forth/packages/obp-tftp.fs
trunk/openbios-devel/forth/packages/packages.fs
trunk/openbios-devel/forth/packages/terminal-emulator.fs
trunk/openbios-devel/forth/system/ciface.fs
Log:
Change the new-device word so that subsequent words within a new device are added to the public wordlist and not
the private wordlist by default. This is required for executing Milax Fcode which defines package words which need to be externally
visible.
As a consequence, it is now possible to remove lots of "external" words used building the device tree since this is now the
default.
Modified: trunk/openbios-devel/forth/device/builtin.fs
===================================================================
--- trunk/openbios-devel/forth/device/builtin.fs 2009-12-30 10:54:52 UTC (rev 654)
+++ trunk/openbios-devel/forth/device/builtin.fs 2010-01-01 18:17:15 UTC (rev 655)
@@ -14,13 +14,11 @@
new-device
" builtin" device-name
- external
: open true ;
: close ;
new-device
" console" device-name
- external
: open true ;
: close ;
: write dup >r bounds ?do i c@ (emit) loop r> ;
Modified: trunk/openbios-devel/forth/device/device.fs
===================================================================
--- trunk/openbios-devel/forth/device/device.fs 2009-12-30 10:54:52 UTC (rev 654)
+++ trunk/openbios-devel/forth/device/device.fs 2010-01-01 18:17:15 UTC (rev 655)
@@ -85,8 +85,8 @@
to my-self
r@ active-package!
- \ swtich to private wordlist
- private
+ \ swtich to public wordlist
+ external
r> drop
;
Modified: trunk/openbios-devel/forth/device/tree.fs
===================================================================
--- trunk/openbios-devel/forth/device/tree.fs 2009-12-30 10:54:52 UTC (rev 654)
+++ trunk/openbios-devel/forth/device/tree.fs 2010-01-01 18:17:15 UTC (rev 655)
@@ -13,7 +13,6 @@
new-device
" OpenBiosTeam,OpenBIOS" device-name
1 encode-int " #address-cells" property
- external
: open true ;
: close ;
: decode-unit parse-hex ;
@@ -23,7 +22,6 @@
new-device
" aliases" device-name
- external
: open true ;
: close ;
finish-device
@@ -36,7 +34,6 @@
0 0 " supports-bootinfo" property
1 encode-int " boot-syntax" property
- external
: selftest
." OpenBIOS selftest... succeded" cr
true
@@ -58,7 +55,6 @@
\ " -as" encode-string " bootargs" property
0 encode-int " memory" property
0 encode-int " mmu" property
- external
finish-device
\ END
Modified: trunk/openbios-devel/forth/packages/deblocker.fs
===================================================================
--- trunk/openbios-devel/forth/packages/deblocker.fs 2009-12-30 10:54:52 UTC (rev 654)
+++ trunk/openbios-devel/forth/packages/deblocker.fs 2010-01-01 18:17:15 UTC (rev 655)
@@ -17,7 +17,6 @@
new-device
" deblocker" device-name
- external
\ open ( -- flag )
\ Prepares the package for subsequent use, allocating the buffers used
\ by the deblocking process based upon the values returned by the parent
Modified: trunk/openbios-devel/forth/packages/disklabel.fs
===================================================================
--- trunk/openbios-devel/forth/packages/disklabel.fs 2009-12-30 10:54:52 UTC (rev 654)
+++ trunk/openbios-devel/forth/packages/disklabel.fs 2010-01-01 18:17:15 UTC (rev 655)
@@ -14,7 +14,6 @@
new-device
" disklabel" device-name
- external
\ now the methods...
finish-device
Modified: trunk/openbios-devel/forth/packages/obp-tftp.fs
===================================================================
--- trunk/openbios-devel/forth/packages/obp-tftp.fs 2009-12-30 10:54:52 UTC (rev 654)
+++ trunk/openbios-devel/forth/packages/obp-tftp.fs 2010-01-01 18:17:15 UTC (rev 655)
@@ -14,7 +14,6 @@
new-device
" obp-tftp" device-name
- external
\ now the methods...
finish-device
Modified: trunk/openbios-devel/forth/packages/packages.fs
===================================================================
--- trunk/openbios-devel/forth/packages/packages.fs 2009-12-30 10:54:52 UTC (rev 654)
+++ trunk/openbios-devel/forth/packages/packages.fs 2010-01-01 18:17:15 UTC (rev 655)
@@ -10,7 +10,6 @@
new-device
" packages" device-name
- external
: open true ;
: close ;
finish-device
Modified: trunk/openbios-devel/forth/packages/terminal-emulator.fs
===================================================================
--- trunk/openbios-devel/forth/packages/terminal-emulator.fs 2009-12-30 10:54:52 UTC (rev 654)
+++ trunk/openbios-devel/forth/packages/terminal-emulator.fs 2010-01-01 18:17:15 UTC (rev 655)
@@ -14,7 +14,6 @@
new-device
" terminal-emulator" device-name
- external
\ now the methods...
finish-device
Modified: trunk/openbios-devel/forth/system/ciface.fs
===================================================================
--- trunk/openbios-devel/forth/system/ciface.fs 2009-12-30 10:54:52 UTC (rev 654)
+++ trunk/openbios-devel/forth/system/ciface.fs 2010-01-01 18:17:15 UTC (rev 655)
@@ -11,6 +11,8 @@
\ private stuff
\ -------------------------------------------------------------
+private
+
variable callback-function
: ?phandle ( phandle -- phandle )