ref: 7cf8369411a3b9348f862bccaa4147b9aaf38e67
dir: /rc/bin/pci/
#!/bin/rc # pci [-bv] - dump pci configuration rfork e fn verbose { if (! test -f /lib/pci) echo $0: no /lib/pci >[1=2] awk ' function lower(s) { gsub(/A/, "a", s) gsub(/B/, "b", s) gsub(/C/, "c", s) gsub(/D/, "d", s) gsub(/E/, "e", s) gsub(/F/, "f", s) return s } BEGIN{ file="/lib/pci" FS="\t" while(getline <file > 0){ if(/^[#;]/) continue if(/^[0-9A-Fa-f]/){ vid=$1 #vid=lower($1) vendor[vid] = $2 } if(/^ [0-9A-Fa-f]/){ did=$2 #lower($2) id[vid "/" did] = $3 } } FS = " " } { print $0 vid = $4 sub(/\/.*/, "", vid) if(vid in vendor){ s = vendor[vid] if($4 in id) s = s " " id[$4] print "\t" s } } ' } filter=cat flagfmt=v,b args='[vid/did ...]' if(! ifs=() eval `{aux/getflags $*}){ aux/usage exit usage } if(! ~ $#* 0){ { for(i in `{echo $* | tr 'A-Z' 'a-z'}) echo '- - -' $i } | verbose | sed 's:^- - - ::' exit '' } if(~ $#flagv 1) filter=verbose builtin cd '#$/pci' && grep . `{ls -n | grep ctl} | { if (~ $#flagb 1) sed /:06/d if not cat } | sed ' s/ctl:/: / t noop : noop s/: 01/: disk 01/ s/: 02/: net 02/ s/: 03/: vid 03/ s/: 04/: aud 04/ s/: 05/: mem 05/ s/: 06/: brg 06/ s/: 07/: ser 07/ s/: 08/: base 08/ s/: 09/: inpt 09/ s/: 0a/: dock 0a/ s/: 0b/: proc 0b/ s/: 0c\.03/: usb 0c.03/ s/: 0c\.05/: smb 0c.05/ s/: 0c\.07/: ipmi 0c.07/ s/: 0d/: rad 0d/ s/: 0e/: intl 0e/ s/: 0f/: sat 0f/ s/: 10/: cryp 10/ s/: 11/: sigl 11/ s/: 12/: exl 12/ t s/ / --- / ' | $filter