mkdevlist

著名操作系统Plan 9的第三版的部分核心源代码。现在很难找到了。Plan 9是bell实验室开发的Unix后继者。

#!/bin/rc

awk '
BEGIN{		collect = isdev = 0;
}

/^$/{		next;
}
/^#/{		next;
}
collect && /^[^	\t]/{
		collect = isdev = 0;
}
collect && $0 ~ /[^ \t]+/{
		if(isdev)
			obj["dev" $1 "'.$O'"]++;
		else
			obj[$1 "'.$O'"]++;
		for(i = 2; i <= NF; i++){
			if($i !~ "[+=-].*")
				obj[$i "'.$O'"]++;
		}
}
$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)
			x = x i "\n"
		printf x
}' $*