changeset 364:817b2f6e138e

fix localCode at generate_stub.pl
author anatofuz
date Fri, 03 Jul 2020 14:50:32 +0900
parents 5ff90ae1fa04
children f0c51aac6bed
files src/gearsTools/generate_stub.pl
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/gearsTools/generate_stub.pl	Fri Jun 26 19:28:31 2020 +0900
+++ b/src/gearsTools/generate_stub.pl	Fri Jul 03 14:50:32 2020 +0900
@@ -410,13 +410,15 @@
                 my $interfaceHeader = $1;
                 # #interface not write
                 next unless ($interfaceHeader =~ /context.h/);
-            } elsif (/^\s\s*_\_code (\w+)\((.*)\)(.*)/) {
+            } elsif (/extern\s+_\_code\s+(\w+)\((.*)\)/) {
+               $localCode{$1} = 1;
+            } elsif (/^\s\s*_\_code\s+(\w+)\((.*)\)(.*)/) {
                $localCode{$1} = 1;
             } elsif (/^\s\s*_\_code  *\(\s*\*\s*(\w+)\)\((.*)\)(.*)/) {
                $localCode{$1} = 1;
             } elsif (/^\_\_code (\w+)\((.*)\)(.*)/) {
                 $inCode = 1;
-                %localCode = {};
+                $localCode{$inCode} = {};
                 %localVarType = {};
                 $codeGearName = $1;
                 my $args = $2;