Add a script to make IPv6 nets from the IPv4 netlist.

1 files changed, 33 insertions, 0 deletions

diff --git a/tools/v6-netlist-from-v4.pl b/tools/v6-netlist-from-v4.pl
new file mode 100644
index 0000000..ea79268
--- /dev/null
+++ b/tools/v6-netlist-from-v4.pl
@@ -0,0 +1,33 @@
+#! /usr/bin/perl
+use strict;
+use warnings;
+
+while (<>) {
+	chomp;
+	/^#/ and next;
+	/^(151\.216\.(\d+)\.(\d+)) (\d+) (\S+)$/ or die;
+	my $z;
+	my ($ip, $third, $fourth, $len, $name) = ($1, $2, $3, $4, $5);
+	if ($len == 24) {
+		$z = '2a02:ed02:' . $third . '::/64';
+	} elsif ($len == 25) {
+		if ($fourth == 0) {
+			$z = '2a02:ed02:' . $third . 'a::/64';
+		} else {
+			$z = '2a02:ed02:' . $third . 'b::/64';
+		}
+	} elsif ($len == 26) {
+		if ($fourth == 0) {
+			$z = '2a02:ed02:' . $third . 'a::/64';
+		} elsif ($fourth == 64) {
+			$z = '2a02:ed02:' . $third . 'b::/64';
+		} elsif ($fourth == 128) {
+			$z = '2a02:ed02:' . $third . 'c::/64';
+		} else {
+			$z = '2a02:ed02:' . $third . 'd::/64';
+		}
+	} else {
+		warn "Unknown len $ip/$len";
+	}
+	print "$z $name\n" if (defined($z));
+}