Environment variable SCHHIST_ADDLIBS to force libraries to be present.

- schhist/sanitize-profile: ensure that the libraries listed in
  SCHHIST_ADDLIBS are present in the profile
- schhist/Makefile (board-qi-avt2): use SCHHIST_ADDLIBS to add the "device"
  library

schhist/Makefile

@@ -102,6 +102,7 @@ board-qi-avt2:
 	SCHHIST_TITLE="AVT2" \
 	  SCHHIST_HOME_URL=http://projects.qi-hardware.com/index.php/p/board-qi-avt2/ \
 	  SCHHIST_COMMIT_TEMPLATE='http://projects.qi-hardware.com/index.php/p/board-qi-avt2/source/commit/{}/' \
+	  SCHHIST_ADDLIBS=device \
 	  ./schhist2web -S ../../board-qi-avt2 \
 	    main/Qi_AVT2.sch _avt2
 

schhist/sanitize-profile

@@ -22,6 +22,7 @@ sub rewrite
     return $s if $section ne "eeschema/libraries";
     return $s unless /^LibName(\d+)=(.*)\s*$/;
     my $lib = $2;
+    delete $add{$lib};
     if ($1 == $in_lib) {
 	$in_lib++;
     } else {
@@ -42,6 +43,17 @@ sub rewrite
 }
 
 
+sub complement
+{
+    for (sort keys %add) {
+	print STDERR "adding $_\n";
+	$out_lib++;
+	push(@f, "LibName$out_lib=$_\n");
+	delete $add{$_};
+    }
+}
+
+
 sub usage
 {
     print STDERR "usage: $0 file.pro [outfile]\n";
@@ -49,6 +61,10 @@ sub usage
 }
 
 
+for (split(",", $ENV{"SCHHIST_ADDLIBS"})) {
+    $add{$_} = 1 if $_ ne "";
+}
+
 ($file, $out) = @ARGV;
 &usage if $#ARGV > 1;
 
@@ -58,11 +74,13 @@ $dir = "." if $dir eq "";
 open(FILE, $file) || die "$file: $!";
 while (<FILE>) {
     if (/^\[(\S+)\]/) {
-	$section = $1;
-	if ($section eq "eeschema/libraries") {
+	if ($1 eq "eeschema/libraries") {
 	    $in_lib = 1;
 	    $out_lib = 0;
+	} else {
+	    &complement if $section eq "eeschema/libraries";
 	}
+	$section = $1;
     }
     if ($section eq "eeschema") {
 	$libdir = $1 if /^LibDir=(.*)\s*$/;
@@ -71,6 +89,7 @@ while (<FILE>) {
     push(@f, $s) if defined $s;
 }
 close FILE;
+&complement;
 
 if (!defined $out) {
     rename($file, "$file.bak");