# HG changeset patch
# User anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
# Date 1579073677 -32400
# Node ID d116d737fed0340951c9f56ec3438aba89af4e43
# Parent  efff86f375edd4dde8fb74a659c53d9dcd71f7c1
tweak trans_impl.pl

diff -r efff86f375ed -r d116d737fed0 src/gearsTools/trans_impl.pl
--- a/src/gearsTools/trans_impl.pl	Wed Jan 15 16:26:44 2020 +0900
+++ b/src/gearsTools/trans_impl.pl	Wed Jan 15 16:34:37 2020 +0900
@@ -75,6 +75,11 @@
 EOF
 
   for my $datum (@impl_data) {
+        $datum =~ s|//[\s\w]+||;
+        if ($datum =~ /^\s+#/) {
+          next;
+        }
+
         if ($datum =~ /\w+\s\w+\*\s(\w+)/) {
             print $out "    ${instance_impl}->$1 = NULL;\n";
             next;
@@ -95,6 +100,12 @@
   }
 
   for my $datum (@inter_data) {
+        # remove macro, comment block
+        $datum =~ s|//[\s\w]+||;
+        if ($datum =~ /^\s+#/) {
+          next;
+        }
+
         if ($datum =~ /\w+\s\w+\*\s(\w+)/) {
             print $out "    ${instance_inter}->$1 = NULL;\n";
             next;