\ *****************************************************************************
\ * 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
\ ****************************************************************************/

: pci-class-name-00 ( addr -- str len )
        pci-class@ 8 rshift FF and CASE
        01  OF s" display"               ENDOF
        dup OF s" legacy-device"         ENDOF
        ENDCASE
;

: pci-class-name-01 ( addr -- str len )
        pci-class@ 8 rshift FF and CASE
        00  OF s" scsi"         ENDOF
        01  OF s" ide"          ENDOF
        02  OF s" fdc"          ENDOF
        03  OF s" ipi"          ENDOF
        04  OF s" raid"         ENDOF
        05  OF s" ata"          ENDOF
        06  OF s" sata"         ENDOF
        07  OF s" sas"          ENDOF
        dup OF s" mass-storage" ENDOF
        ENDCASE
;

: pci-class-name-02 ( addr -- str len )
        pci-class@ 8 rshift FF and CASE
        00  OF s" ethernet"   ENDOF
        01  OF s" token-ring" ENDOF
        02  OF s" fddi"       ENDOF
        03  OF s" atm"        ENDOF
        04  OF s" isdn"       ENDOF
        05  OF s" worldfip"   ENDOF
        05  OF s" picmg"      ENDOF
        dup OF s" network"    ENDOF
        ENDCASE
;

: pci-class-name-03 ( addr -- str len )
        pci-class@ FFFF and CASE
        0000  OF s" vga"             ENDOF
        0100  OF s" xga"             ENDOF
        0200  OF s" 3d-controller"   ENDOF
        dup OF s" display"           ENDOF
        ENDCASE
;

: pci-class-name-04 ( addr -- str len )
        pci-class@ 8 rshift FF and CASE
        00  OF s" video"             ENDOF
        01  OF s" sound"             ENDOF
        02  OF s" telephony"         ENDOF
        dup OF s" multimedia-device" ENDOF
        ENDCASE
;

: pci-class-name-05 ( addr -- str len )
        pci-class@ 8 rshift FF and CASE
        00  OF s" memory"            ENDOF
        01  OF s" flash"             ENDOF
        dup OF s" memory-controller" ENDOF
        ENDCASE
;

: pci-class-name-06 ( addr -- str len )
        pci-class@ 8 rshift FF and CASE
        00  OF s" host"                 ENDOF
        01  OF s" isa"                  ENDOF
        02  OF s" eisa"                 ENDOF
        03  OF s" mca"                  ENDOF
        04  OF s" pci"                  ENDOF
        05  OF s" pcmcia"               ENDOF
        06  OF s" nubus"                ENDOF
        07  OF s" cardbus"              ENDOF
        08  OF s" raceway"              ENDOF
        09  OF s" semi-transparent-pci" ENDOF
        0A  OF s" infiniband"           ENDOF
        dup OF s" unknown-bridge"       ENDOF
        ENDCASE
;

: pci-class-name-07 ( addr -- str len )
        pci-class@ FFFF and CASE
        0000  OF s" serial"                   ENDOF
        0100  OF s" parallel"                 ENDOF
        0200  OF s" multiport-serial"         ENDOF
        0300  OF s" modem"                    ENDOF
        0400  OF s" gpib"                     ENDOF
        0500  OF s" smart-card"               ENDOF
        dup   OF s" communication-controller" ENDOF
        ENDCASE
;


: pci-class-name-08 ( addr -- str len )
        pci-class@ FFFF and CASE
        0000  OF s" interrupt-controller" ENDOF
        0100  OF s" dma-controller"       ENDOF
        0200  OF s" timer"                ENDOF
        0300  OF s" rtc"                  ENDOF
        0400  OF s" hot-plug-controller"  ENDOF
        0500  OF s" sd-host-controller"   ENDOF
        dup   OF s" system-peripheral"    ENDOF
        ENDCASE
;

: pci-class-name-09 ( addr -- str len )
        pci-class@ 8 rshift FF and CASE
        00  OF s" keyboard"         ENDOF
        01  OF s" pen"              ENDOF
        02  OF s" mouse"            ENDOF
        03  OF s" scanner"          ENDOF
        04  OF s" gameport"         ENDOF
        dup OF s" input-controller" ENDOF
        ENDCASE
;

: pci-class-name-0A ( addr -- str len )
        pci-class@ 8 rshift FF and CASE
        00  OF s" dock"            ENDOF
        dup OF s" docking-station" ENDOF
        ENDCASE
;

: pci-class-name-0B ( addr -- str len )
        pci-class@ 8 rshift FF and CASE
        02  OF s" pentium"       ENDOF
        20  OF s" powerpc"       ENDOF
        30  OF s" mips"          ENDOF
        40  OF s" co-processor"  ENDOF
        dup OF s" cpu"           ENDOF
        ENDCASE
;

: pci-class-name-0C ( addr -- str len )
        pci-class@ FFFF and CASE
        0000  OF s" firewire"      ENDOF
        0100  OF s" access-bus"    ENDOF
        0200  OF s" ssa"           ENDOF
        0300  OF s" usb-uhci"      ENDOF
        0310  OF s" usb-ohci"      ENDOF
	0320  OF s" usb-ehci"      ENDOF
        0330  OF s" usb-xhci"      ENDOF
        0380  OF s" usb-unknown"   ENDOF
        03FE  OF s" usb-device"    ENDOF
        0400  OF s" fibre-channel" ENDOF
        0500  OF s" smb"           ENDOF
        0600  OF s" infiniband"    ENDOF
        0700  OF s" ipmi"          ENDOF
        0701  OF s" ipmi"          ENDOF
        0702  OF s" ipmi"          ENDOF
        0800  OF s" sercos"        ENDOF
        0900  OF s" canbus"        ENDOF
        dup OF s" serial-bus"      ENDOF
        ENDCASE
;

: pci-class-name-0D ( addr -- str len )
        pci-class@ 8 rshift FF and CASE
        00  OF s" irda"                ENDOF
        01  OF s" consumer-ir"         ENDOF
        10  OF s" rf-controller"       ENDOF
        11  OF s" bluetooth"           ENDOF
        12  OF s" broadband"           ENDOF
        dup OF s" wireless-controller" ENDOF
        ENDCASE
;


: pci-class-name-0E ( addr -- str len )
        pci-class@ 8 rshift FF and CASE
        dup OF s" intelligent-io" ENDOF
        ENDCASE
;

: pci-class-name-0F ( addr -- str len )
        pci-class@ 8 rshift FF and CASE
        01  OF s" satellite-tv"     ENDOF
        02  OF s" satellite-audio"  ENDOF
        03  OF s" satellite-voice"  ENDOF
        04  OF s" satellite-data"   ENDOF
        dup OF s" satellite-device" ENDOF
        ENDCASE
;

: pci-class-name-10 ( addr -- str len )
        pci-class@ 8 rshift FF and CASE
        00  OF s" network-encryption"       ENDOF
        01  OF s" entertainment-encryption" ENDOF
        dup OF s" encryption"               ENDOF
        ENDCASE
;

: pci-class-name-11 ( addr -- str len )
        pci-class@ 8 rshift FF and CASE
        00  OF s" dpio"                       ENDOF
        01  OF s" counter"                    ENDOF
        10  OF s" measurement"                ENDOF
        20  OF s" managment-card"             ENDOF
        dup OF s" data-processing-controller" ENDOF
        ENDCASE
;

\ create a string holding the predefined Class-Code-Names
: pci-class-name ( addr -- str len )
        dup pci-class@ 10 rshift CASE
        00  OF pci-class-name-00 ENDOF
        01  OF pci-class-name-01 ENDOF
        02  OF pci-class-name-02 ENDOF
        03  OF pci-class-name-03 ENDOF
        04  OF pci-class-name-04 ENDOF
        05  OF pci-class-name-05 ENDOF
        06  OF pci-class-name-06 ENDOF
        07  OF pci-class-name-07 ENDOF
        08  OF pci-class-name-08 ENDOF
        09  OF pci-class-name-09 ENDOF
        0A  OF pci-class-name-0A ENDOF
        0B  OF pci-class-name-0B ENDOF
        0C  OF pci-class-name-0C ENDOF
        0D  OF pci-class-name-0D ENDOF
        0E  OF pci-class-name-0E ENDOF
        0F  OF pci-class-name-0F ENDOF
        10  OF pci-class-name-10 ENDOF
        11  OF pci-class-name-11 ENDOF
        dup OF drop s" unknown"  ENDOF
        ENDCASE
;