#!/usr/local/bin/perl

#
# converts internic netinfo/asn.txt to C code
#

print '#include "bytes.h"
#include "sym.h"
#include "fmt.h"

struct sym_table sym_asn[] = { 

';



while (<>) {

	chop;

	next if (!/^ *\d+/);
	$_ =~ s/^ +//g;

	@f = split;

	next if ($f[0] =~ /^32768|64512/);

	if ($f[1] eq '-') {
		for ($asn = $f[0]; $asn <= $f[2]; ++$asn) {
			print "\"$f[3]\",	$asn,\n";
		}
	} else {
		print "\"$f[1]\",	$f[0],\n";
	}

}

print '

	(char*)0L,	0,
};
'
