Mandatory message

Author: AnFunctionArray

faster.regex.pl

@@ -27,9 +27,7 @@ sub register_normal_decl {
     my $poslast = pos();
     my $ident = $_[0];
     $matches[-1]{'ident'} = $ident;
-    CORE::print ("registering " . $ident . " " . $matches[-1]{typedefkey} . "\n");
+    #CORE::print ("registering " . $ident . " " . $matches[-1]{typedefkey} . "\n");
     register_decl($matches[-1]);
     push_decl($poslast, $ident)
-}
-
-1
+}

parse.pl

@@ -51,6 +51,8 @@
 use experimental 'switch';
 
 use File::Basename;
+use Data::Dumper;
+use POSIX;
 
 $genml = $ENV{'GENMLJSON'};
 
@@ -62,15 +64,18 @@
 $silent = $ENV{'SILENT'};
 $lineonly = $ENV{'LINEONLY'};
 $maxthreads = $ENV{'MAXTHREADS'};
+@printprops = split //, $ENV{'PRINTPROPS'};
 
 #my sub Dumper {"\n"}
 #use Data::Dumper;
-my sub print {CORE::print(@_) if( 1 )}
-my sub print2 {CORE::print(@_) if(1)}
-sub print3 {CORE::print(@_) if( 1)}
-sub Dumper2  {use Data::Dumper; CORE::print(Dumper(@_)) }
-my sub Dumper  {use Data::Dumper; Dumper(@_) if( 1 )}
-my sub strftime  {use POSIX; strftime(@_) if( 1 )}
+my sub print {CORE::print(@_) if( $printprops[0] eq 1)}
+my sub print2 {CORE::print(@_) if($printprops[1] eq 1)}
+sub print3 {CORE::print(@_) if( $printprops[2] eq 1)}
+sub Dumper2  {CORE::print(Data::Dumper::Dumper(@_)) }
+my sub Dumper  {Data::Dumper::Dumper(@_) if( $printprops[3] eq 1 )}
+my sub strftime  {POSIX::strftime(@_) if( $printprops[4] eq 1 )}
+
+Dumper2(\@printprops);
 
 sub push2 {
     my @args = @_;
@@ -353,11 +358,11 @@ sub dec {
 
 my $matchinperl = 0;
 
-chdir "regexes";
+#chdir "regexes";
 
 $mainregexfilecontent =~/$utilregexfilecontent/;
 
-chdir "..";
+#chdir "..";
 
 #(?{parseregexfile($+{filename})})
 #(?{entryregexmain($+{entrygroup}, $+{prefix})})
@@ -1033,7 +1038,7 @@ sub waitforid {
         while($subject =~ m{$compreg}gxxs) {
             #CORE::print($lastposcurrlast . "\n");
             $lasrtypedefobj = {%{$typedefidentifiersvector->[0]}};
-            $lastposcurrlast = $+[0];
+            $lastposcurrlast = pos($subject);
         }
 
         if(!($subject =~ m{$}sxxg)) {

primexpr.regex.pl

@@ -32,6 +32,4 @@ sub end_binary {
     my $res = shift;
     print $$res = not existsflag "ternaryexpr", {"normalexpr"}, $flagsarg;
 }
-=cut
-
-1
+=cut

typename.regex.pl

@@ -165,8 +165,8 @@ sub checkidentpermissive  {
 sub checktypeorqualifortypdf  {
     #print3 "checking". $^N . "\n";
 
-    my $force = $_[0];
-    my $callnot = $_[1];
+    my $force = scalar $_[0];
+    my $callnot = scalar $_[1];
 
     #inc2 "facet";
     #CORE::print ("dumping\n");
@@ -268,5 +268,3 @@ sub declident {
         return checktypeorqualif($^N)
     }
 }
-
-1