#!/usr/bin/perl -w

print "static builtin_key_t builtin_keys[] = {\n";
while(<>) {
	print ",\n" if($.>1);
	my ($type,$port,$host,$key) = /^(\w+)\@(\d+):(\S+)\s*(\S*)/;
	print "  {\"$host\",$port,\"$type\",\"$key\"}";
}
print "\n};\n";