[OpenBIOS] r297 - openbios-devel/drivers

svn at openbios.org svn at openbios.org
Sat Dec 20 19:38:04 CET 2008


Author: blueswirl
Date: 2008-12-20 19:38:04 +0100 (Sat, 20 Dec 2008)
New Revision: 297

Removed:
   openbios-devel/drivers/ide.fs
Log:
Delete drivers/ide.fs, should have been deleted in r292

Deleted: openbios-devel/drivers/ide.fs
===================================================================
--- openbios-devel/drivers/ide.fs	2008-12-20 18:36:23 UTC (rev 296)
+++ openbios-devel/drivers/ide.fs	2008-12-20 18:38:04 UTC (rev 297)
@@ -1,69 +0,0 @@
-
-dev /pci
-
-[IFDEF] CONFIG_DRIVER_IDE
-
-\ simple isa bus node
-new-device
-  " isa" device-name
-  " isa" device-type
-	2 encode-int " #address-cells" property
-	1 encode-int " #size-cells" property
-	
-  external
-  : open true ;
-  : close ;
-
-finish-device
-
-: ?devalias ( alias-str alias-len device-str device-len -- 
-  \		alias-str alias-len false | true )
-  active-package >r
-  " /aliases" find-device
-  \ 2dup ." Checking " type
-  2dup find-dev if     \ check if device exists
-    drop
-    2over find-dev if  \ do we already have an alias?
-      \ ." alias exists" cr
-      drop 2drop false
-    else
-      \ ." device exists" cr
-      encode-string
-      2swap property
-      true
-    then
-  else
-    \ ." device doesn't exist" cr
-    2drop false
-  then
-  r> active-package!
-  ;
-
-:noname 
-  " hd"
-  " /pci/isa/ide0/disk at 0" ?devalias not if
-    " /pci/isa/ide0/disk at 1" ?devalias not if
-      " /pci/isa/ide1/disk at 0" ?devalias not if
-        " /pci/isa/ide1/disk at 1" ?devalias not if
-	  2drop ." No disk found." cr
-	then
-      then
-    then
-  then
- 
-  " cdrom"
-  " /pci/isa/ide0/cdrom at 0" ?devalias not if
-    " /pci/isa/ide0/cdrom at 1" ?devalias not if
-      " /pci/isa/ide1/cdrom at 0" ?devalias not if
-        " /pci/isa/ide1/cdrom at 1" ?devalias not if
-	  2drop ." No cdrom found" cr
-	then
-      then
-    then
-  then
-; SYSTEM-initializer
-
-
-[THEN]
-
-device-end




More information about the OpenBIOS mailing list