From 409f7f8e9ace89ba6136f8184a98d190ccc9cff1 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sat, 4 Dec 2010 17:12:12 +0000
Subject: [PATCH] pcb/points-pin-alloc: Initial checkin

---
 pcb/Makefile               |   6 ++
 pcb/points-pin-alloc-sheet | 135 +++++++++++++++++++++++++++++++++++++
 2 files changed, 141 insertions(+)
 create mode 100755 pcb/points-pin-alloc-sheet

diff --git a/pcb/Makefile b/pcb/Makefile
index 765a594..f025751 100644
--- a/pcb/Makefile
+++ b/pcb/Makefile
@@ -99,6 +99,12 @@ pcboprints:	reversers.oprints-l detectors.oprints-l
 %.net-spec:	generate-netspec.pl
 		./$< $@ $o
 
+points-pin-alloc.lout: points-pin-alloc-sheet detectors.net-spec reversers.net-spec
+		./$< reversers:4 detectors:4 $o
+
+%.ps:		%.lout
+		lout -s $< $o
+
 tidy:
 
 clean:		tidy
diff --git a/pcb/points-pin-alloc-sheet b/pcb/points-pin-alloc-sheet
new file mode 100755
index 0000000..2df6df1
--- /dev/null
+++ b/pcb/points-pin-alloc-sheet
@@ -0,0 +1,135 @@
+#!/usr/bin/perl -w
+
+use strict qw(refs vars);
+
+use POSIX;
+use IO::Handle;
+
+our @boards;
+foreach (@ARGV) {
+    m/^(\w+)\:(\d+)$/ or die "$_ ?";
+    foreach (my $i=0; $i<$2; $i++) { push @boards, $1; }
+}
+
+our @pins;
+our @pin2otherdesc;
+while (<DATA>) {
+    m/^(\d+)\t(\S.*\S)\s+/ or die;
+    push @pins, $1;
+    $pin2otherdesc[$1]= $2;
+}
+
+our %boardpin2point;
+foreach my $board (0..$#boards) {
+    my $bkind= $boards[$board];
+    next if exists $boardpin2point{$bkind};
+    open NI, "$bkind.net-info" or die "$bkind $!";
+    while (<NI>) {
+	next if m/^\#/;
+	while (s/\\\n$//) { $_ .= <NI>; }
+	next unless m/\S/;
+	chomp;
+	my ($netname, $type, $pins) = m/^(\w+)\s+(\w+)\s+(\S.*)?$/
+	    or die "$_ ?";
+	next unless defined $pins;
+	$pins= " $pins ";
+	$pins =~ m/\sPIC-(\d+)\s/ or next;
+	my $pin= $1;
+	$netname= "__${netname}__";
+	$netname =~ m/__pt(\d+)__/ or next;
+	my $point= $1;
+	die "$netname $pin" unless defined $pin2otherdesc[$pin];
+	$boardpin2point{$bkind}[$pin]= $point;
+    }
+    NI->error and die "$bkind $!";
+    close NI;
+}
+
+print <<END;
+\@SysInclude { tbl }
+\@SysInclude { doc }
+\@Doc \@Text \@Begin
+END
+
+print "\@Tbl\n";
+
+my (@formats,@cells);
+my %formats;
+my $body='';
+my $cellix;
+my $nextformat= 'a';
+
+sub startrow () {
+    $cellix= "A";
+}
+
+sub endrow () {
+    my $format= join ' | ', @formats;
+    my $formatname= $formats{$format};
+    if (!defined $formatname) {
+	$formatname= $nextformat++;
+	$formats{$format}= $formatname;
+	print " ${formatname}format { $format }\n";
+    }
+    $body .= "\@Row${formatname}\n ".join("\n ", @cells)."\n";
+    @formats= @cells= ();
+}
+
+sub cell ($$) {
+    my ($fmt, $data) = @_;
+    my $ix= $cellix++; #"C".scalar @cells;
+    push @formats, '@Cell '.$fmt." $ix";
+    push @cells, "$ix { $data }";
+}
+
+startrow();
+cell('', '@B pin');
+cell('', '@B { alternative uses }');
+foreach my $board (0..$#boards) {
+    cell('', "$boards[$board]");
+}
+endrow();
+
+foreach my $pin (@pins) {
+    startrow();
+    cell('', $pin);
+    cell('', "\"$pin2otherdesc[$pin]\"");
+    foreach my $board (0..$#boards) {
+	my $point= $boardpin2point{$boards[$board]}[$pin];
+	if (!defined $point) {
+	    cell('paint { lightgrey }', '');
+	} else {
+	    cell('', "PT$point");
+	}
+    }
+    endrow();
+}
+print "{\n",$body,"}\n";
+
+print <<END;
+\@End \@Text
+END
+
+STDOUT->error and die $!;
+
+__DATA__
+40	(useable for point only)
+39	(useable for point only)
+38	Interrupt on change
+37	Interrupt on change
+36	GPIO
+35	External Interrupt 2
+34	External Interrupt 1
+33	External Interrupt 0
+30	ECCP1 PWM output D
+29	ECCP1 PWN output C
+28	ECCP1 PWN output B
+27	ECCP1 PWN output A
+26	RS232 RX
+25	RS232 TX
+24	GPIO
+22	Comparator 2 input
+2	Analogue in 0 / Comparator ref out
+3	Analogue in 1
+15	Timer 1 osc out / Timer 1,3 ext clock in
+16	Timer 1 osc in
-- 
2.30.2