@@ -13,7 +13,7 @@ foreach $file (@ARGV)
 | 
				
			|||||||
	$func="";
 | 
						$func="";
 | 
				
			||||||
	while (<IN>)
 | 
						while (<IN>)
 | 
				
			||||||
		{
 | 
							{
 | 
				
			||||||
		if (!/;$/ && /^([a-zA-Z].*[\s*])?([A-Za-z_0-9]+)\(.*[),]/)
 | 
							if (!/;$/ && /^\**([a-zA-Z].*[\s*])?([A-Za-z_0-9]+)\(.*([),]|$)/)
 | 
				
			||||||
			{
 | 
								{
 | 
				
			||||||
			/^([^()]*(\([^()]*\)[^()]*)*)\(/;
 | 
								/^([^()]*(\([^()]*\)[^()]*)*)\(/;
 | 
				
			||||||
			$1 =~ /([A-Za-z_0-9]*)$/;
 | 
								$1 =~ /([A-Za-z_0-9]*)$/;
 | 
				
			||||||
 
 | 
				
			|||||||
@@ -180,7 +180,7 @@ while (($hdr, $lib) = each %libinc)
 | 
				
			|||||||
 | 
					
 | 
				
			||||||
	if ($gotfile) {
 | 
						if ($gotfile) {
 | 
				
			||||||
	  while(<IN>) {
 | 
						  while(<IN>) {
 | 
				
			||||||
		if(/^\#define\s+(\S+)\s+(\S+)/) {
 | 
							if(/^\#\s*define\s+(\S+)\s+(\S+)/) {
 | 
				
			||||||
			$name = $1;
 | 
								$name = $1;
 | 
				
			||||||
			$code = $2;
 | 
								$code = $2;
 | 
				
			||||||
			next if $name =~ /^${lib}err/;
 | 
								next if $name =~ /^${lib}err/;
 | 
				
			||||||
 
 | 
				
			|||||||
		Reference in New Issue
	
	Block a user