[OpenBIOS] r655 - in trunk/openbios-devel/forth: device packages system

[svn at openbios.org]

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 )