r582 - in trunk/openbios-devel/forth: admin device

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@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
participants (1)
-
svn@openbios.org