BEGIN {
	fname = ARGV[1]
	if (fname == "/fd/0")
		fname = ARGV[2]
	split(fname,x,".")
	name = x[1]
	ipf = name".ipf"
	pins = name".pins"
	print "DEF "name"." > ipf
}
/Pin/ {
	tran[$2] = $3
}
/^NET/ {
	split($2,x,";")
	split(x[1],y,"_")
	port = y[1]
	clk = substr(port,1,3) == "clk"
	if (clk)
		next
	print $0 > ipf
}
/ PIN:/ {
	split($1,x,":")
	i = substr(x[2],1,length(x[2])-1)	# goddam actel
#	print $0 > ipf
#	print "USE ; "port"; FIX." > ipf
	if (!clk)
		printf "  PIN:%s,\n  FIX:''.\n",i > ipf
	if (pga == 1)
		i = tran[i]
	pin[port] = i
	if (type[port] != "")
		tt = substr(tt,1,i-1)""type[port]""substr(tt,i+1,length(tt)-i)
}
/^use/ {
	cell = $2
	port = $3
	if (cell == "INBUF" || cell == "CLKBUF")
		type[port] = "i"
	else if (cell == "OUTBUF")
		type[port] = "2"
	else if (cell == "BIBUF")
		type[port] = "3"
	else if (cell == "TRIBUFF")
		type[port] = "4"
}
/FAM.*a1200/ {family = 1200}
/FAM.*a1000/ {family = 1000}
/VAR.*PACK/ {
	n = split($4,x,"/")
	split(x[n],y,".")
	package = toupper(y[1])
	print ".t	"name"	"package > pins
	if (family == 1000) {
		if (package == "LCC68")		# wow, only depends on the package!
			tt = "nnnvnnnnn nnnnggnnnnnvnnnvn nnnnngnnnnnvnnnnn nnnnngnnnngvnnnnn nnnnngnn"
		else if (package == "LCC84")
			tt = "nnnvnnnnnnn nnnnnnggnnnnnvvnnnnnn vnnnnnngnnnnnvnnnnnnn nnnnnnggnnnngvvnnnnnn nnnnnnngnn"
		else if (package == "PGA132") {
			pga = 1
			tt = "gnnnnnnnnnnnn nnnngnnngnnnn nnnngnvngnnnn nnn nvn nnn nngggn nnngnnnn nvvvvvvv nnnnnnng ngggnn nnn nvn ngn nnnngnvngnnnn nnnnnnnngnnnn nnnnnnnnnnnnn"
		}
	}
	else if (family == 1200) {
		if (package == "LCC84")
			tt = "nnnnngnnnnn gnnnnnnnnnvvnnnngnnnn nnnnnnnnnnvnnnnngnnnn nnnnnnnnngvvnnnngnnnn nnnnnnnnnv"
		else if (package == "PGA132") {
			pga = 1
			tt = "?nnnnnnnnnnnn nnnngnnngnnnn nnnngnvngnnnn nnn nvn nnn nngggn nnngnnnn nvvvvvvv nnnnnnng ngggnn nnn nvn ngn nnnngnvngnnnn nnnnnnnngnnnn nnnnnnnnnnnnn"
		}
	}
	else
		print "family non-member"
	split(tt,x," ")
	tt = x[1]
	for (i = 2; x[i] != ""; i++)
		tt = tt""x[i]
#	tt = x[1]x[2]x[3]x[4]x[5]	# plcc-specific
	n = length(tt)
	for (i = 1; i <= n; i++)
		if (substr(tt,i,1) == "v")
			vcc[nv++] = i
		else if (substr(tt,i,1) == "g")
			gnd[ng++] = i
}
END {
	print "END." > ipf
	print ".tt	"tt > pins
	printf ".tp	VCC[0-%d]	",nv-1 > pins
	for (i in vcc)
		printf	"%d ",vcc[i] > pins
	printf "\n" > pins
	printf ".tp	GND[0-%d]	",ng-1 > pins
	for (i in gnd)
		printf	"%d ",gnd[i] > pins
	printf "\n" > pins
	for (i in pin)
		print	".tp	"i"	"pin[i] > pins
}