Initial import of slof-JX-1.7.0-4

Signed-off-by: Benjamin Herrenschmidt <benh@kernel.crashing.org>

3 files changed, 123 insertions, 0 deletions

diff --git a/slof/fs/devices/pci-class_02.fs b/slof/fs/devices/pci-class_02.fs
new file mode 100644
index 0000000..ff78496
--- /dev/null
+++ b/slof/fs/devices/pci-class_02.fs
@@ -0,0 +1,35 @@
+\ *****************************************************************************
+\ * Copyright (c) 2004, 2008 IBM Corporation
+\ * All rights reserved.
+\ * This program and the accompanying materials
+\ * are made available under the terms of the BSD License
+\ * which accompanies this distribution, and is available at
+\ * http://www.opensource.org/licenses/bsd-license.php
+\ *
+\ * Contributors:
+\ *     IBM Corporation - initial implementation
+\ ****************************************************************************/
+
+s" network [ " type my-space pci-class-name type s"  ]" type
+
+my-space pci-device-generic-setup
+my-space pci-alias-net
+
+s" network" device-type
+
+cr
+
+INSTANCE VARIABLE obp-tftp-package
+: open  ( -- okay? )
+   open IF           \ enables PCI mem, io and Bus master and returns TRUE
+      my-args s" obp-tftp" $open-package obp-tftp-package ! true
+   ELSE
+       false
+   THEN ;
+: close  ( -- )
+    s" close" obp-tftp-package @ $call-method
+    close ;         \ disables PCI mem, io and Bus master
+: load  ( addr -- len )
+    s" load" obp-tftp-package @ $call-method  ;
+
+: ping  ( -- )  s" ping" obp-tftp-package @ $call-method  ;
diff --git a/slof/fs/devices/pci-class_0c.fs b/slof/fs/devices/pci-class_0c.fs
new file mode 100644
index 0000000..53e1e19
--- /dev/null
+++ b/slof/fs/devices/pci-class_0c.fs
@@ -0,0 +1,39 @@
+\ *****************************************************************************
+\ * Copyright (c) 2004, 2008 IBM Corporation
+\ * All rights reserved.
+\ * This program and the accompanying materials
+\ * are made available under the terms of the BSD License
+\ * which accompanies this distribution, and is available at
+\ * http://www.opensource.org/licenses/bsd-license.php
+\ *
+\ * Contributors:
+\ *     IBM Corporation - initial implementation
+\ ****************************************************************************/
+
+s" serial bus [ " type my-space pci-class-name type s"  ]" type cr
+
+my-space pci-device-generic-setup
+
+
+\ Handle USB OHCI controllers:
+: handle-usb-ohci-class  ( -- )
+   \ set Memory Write and Invalidate Enable, SERR# Enable
+   \ (see PCI 3.0 Spec Chapter 6.2.2 device control):
+   4 config-w@ 110 or 4 config-w!
+   pci-master-enable               \ set PCI Bus master bit and
+   pci-mem-enable                  \ memory space enable for USB scan
+   10 config-l@                    \ get base address on stack for usb-ohci.fs
+                                   \ TODO: Use translate-address here
+   s" usb-ohci.fs" included
+;
+
+\ Check PCI sub-class and interface type of Serial Bus Controller
+\ to include the appropriate driver:
+: handle-sbc-subclass  ( -- )
+   my-space pci-class@ ffff and CASE         \ get PCI sub-class and interface
+      0310 OF handle-usb-ohci-class ENDOF    \ USB OHCI controller
+   ENDCASE
+;
+
+handle-sbc-subclass
+
diff --git a/slof/fs/devices/pci-device_10de_0141.fs b/slof/fs/devices/pci-device_10de_0141.fs
new file mode 100644
index 0000000..507c383
--- /dev/null
+++ b/slof/fs/devices/pci-device_10de_0141.fs
@@ -0,0 +1,49 @@
+\ *****************************************************************************
+\ * Copyright (c) 2004, 2008 IBM Corporation
+\ * All rights reserved.
+\ * This program and the accompanying materials
+\ * are made available under the terms of the BSD License
+\ * which accompanies this distribution, and is available at
+\ * http://www.opensource.org/licenses/bsd-license.php
+\ *
+\ * Contributors:
+\ *     IBM Corporation - initial implementation
+\ ****************************************************************************/
+
+my-space pci-class-name type
+
+my-space pci-device-generic-setup
+
+enable-io-access
+enable-mem-access
+
+30 config-l@  pci-find-fcode execute-rom-fcode
+
+: check-display ( nodepath len -- true|false ) \ true if display found and "screen" alias set
+\ check if display availabe, set screen alias
+2dup find-node \ ( path len phandle|0 ) find node
+?dup IF
+   \ node found, get "display-type" property
+   s" display-type" rot get-property ( path len true|propaddr proplen 0 )
+   0= IF
+      ( path len propaddr proplen ) \ property found, check if the value is not "NONE"
+      s" NONE" 0 char-cat ( path len propaddr proplen str strlen ) \ null-terminated NONE string
+      str= 0= IF
+         ( path len ) \ "display-type" property is not "NONE" so we can set "screen" alias
+         s" screen" 2swap set-alias 
+         true ( true ) \  return true
+      ELSE
+         2drop false ( false ) \ return false
+      THEN
+   THEN
+THEN
+;
+
+get-node node>path s" /NVDA,DISPLAY-A" $cat check-display
+0= IF
+   \ no display found on DISPLAY-A ... check DISPLAY-B
+   get-node node>path s" /NVDA,DISPLAY-B" $cat check-display
+   drop \ drop result 
+THEN
+
+s" name" get-my-property drop s"  ( " type type s"  ) " type cr