Annotation tool for the resulting GDS files from the Search tool
authorPhilipp Gühring <pg@futureware.at>
Wed, 24 Jul 2019 17:27:57 +0000 (17:27 +0000)
committerPhilipp Gühring <pg@futureware.at>
Wed, 24 Jul 2019 17:27:57 +0000 (17:27 +0000)
Tools/perl/annotate.pl [new file with mode: 0644]

diff --git a/Tools/perl/annotate.pl b/Tools/perl/annotate.pl
new file mode 100644 (file)
index 0000000..014c095
--- /dev/null
@@ -0,0 +1,20 @@
+#!/usr/bin/perl -w
+
+foreach(<str/*.gds>)
+{
+  next if(-f "$_.ann");        
+  system "klayout $_";
+  print "Is it good?\n";
+  my $val=<STDIN>;
+  print "So you think $val?\n";
+  if($val=~m/[eq]/i)
+  {
+    exit;
+  }
+  if($val=~m/[yn]/)
+  {
+    open OUT,">$_.ann";
+    print OUT $val;
+    close OUT;
+  }
+}