[OpenBIOS] r582 - in trunk/openbios-devel/forth: admin device

[svn at openbios.org]

Author: laurent
Date: 2009-09-20 06:20:48 +0200 (Sun, 20 Sep 2009)
New Revision: 582

Modified:
   trunk/openbios-devel/forth/admin/devices.fs
   trunk/openbios-devel/forth/device/pathres.fs
Log:
According to IEEE Std 1275-1994, "CORE REQUIREMENTS AND PRACTICES",
Annexe H.8, "User interface name changes", "select-dev" and
"unselect-dev" have been obsoleted and replaced by "open-dev" and 
"device-end".
But some scripts (like BootX) are using the obsoleted name, so we need 
to
define them.

Signed-off-by: Laurent Vivier <Laurent at vivier.eu>



Modified: trunk/openbios-devel/forth/admin/devices.fs
===================================================================
--- trunk/openbios-devel/forth/admin/devices.fs	2009-09-19 21:44:05 UTC (rev 581)
+++ trunk/openbios-devel/forth/admin/devices.fs	2009-09-20 04:20:48 UTC (rev 582)
@@ -45,6 +45,10 @@
 : device-end    ( -- )
   0 active-package!
   ;
+
+: unselect-dev ( -- )
+  device-end
+;
   
 : ?active-package ( -- phandle )
   active-package dup 0= abort" no active device"

Modified: trunk/openbios-devel/forth/device/pathres.fs
===================================================================
--- trunk/openbios-devel/forth/device/pathres.fs	2009-09-19 21:44:05 UTC (rev 581)
+++ trunk/openbios-devel/forth/device/pathres.fs	2009-09-20 04:20:48 UTC (rev 582)
@@ -471,6 +471,10 @@
   ( ihandle )
 ;
 
+: select-dev ( dev-str dev-len -- ihandle | 0 )
+  open-dev
+;
+
 : execute-device-method
 ( ... dev-str dev-len met-str met-len -- ... false | ?? true )
   2swap