shithub: front

ref: 461ba8aaa0b2eb33e36765551c70a9c16aa39b09
dir: /sys/src/9/port/mkdevlist/

View raw version 
#!/bin/rc

awk '
BEGIN{
	if(ARGC < 2)
		exit;
	collect = isdev = 0;
}

/^[ \t]*$/{
	next;
}
/^#/{
	next;
}
collect && /^[^	\t]/{
	collect = isdev = 0;
}
collect && $0 ~ /[^ \t]+/{
	if(isdev)
		obj["dev" $1]++;
	else
		obj[$1]++;
	for(i = 2; i <= NF; i++){
		if($i !~ "[+=-].*")
			obj[$i]++;
	}
}
$0 ~ /^[^ \t]/{
	if($1 ~ "dev"){
		isdev = 1;
		collect = 1;
	}
	else if($1 ~ "misc" || $1 ~ "link" || $1 ~ "ip")
		collect = 1;
	next;
}

END{
	for(i in obj)
		print i ".'$O'"
}' $*