build: auto generate ASN1 and ET rules

1 files changed, 37 insertions, 5 deletions

diff --git a/buildtools/mktowscript/mktowscript.pl b/buildtools/mktowscript/mktowscript.pl
index 07ade21d0e..1db7297261 100755
--- a/buildtools/mktowscript/mktowscript.pl
+++ b/buildtools/mktowscript/mktowscript.pl
@@ -143,11 +143,6 @@ sub read_config_mk($)
 		# lines beginning with '#' are ignored
 		next if (/^\#.*$/);
 
-		if (/^(mkinclude perl_path_wrapper.sh.*)/) {
-			printf(STDERR "Ignoring: %s", $1);
-			next;
-		}
-
 		if (/^(.*)\\$/) {
 			$prev .= $1;
 			next;
@@ -156,6 +151,35 @@ sub read_config_mk($)
 			$prev = "";
 		}
 
+		if ($line =~ /^mkinclude.*asn1_deps.pl\s+([^\s]+)\s+([^\s]+)\s+\\\$\\\(\w+\\\)\/([^\s|]+)\s*([^|]*)\|$/) {
+			my $src = $1;
+			$section = $2;
+			my $dir = $3;
+			my $options = $4;
+			$section = "HEIMDAL_" . uc($section);
+			$result->{$section}->{TYPE} = 'ASN1';
+			$result->{$section}->{SECNUMBER} = $secnumber++;
+			if ($options ne '') {
+				$result->{$section}->{OPTIONS} = $options;
+			}
+			$result->{$section}->{DIRECTORY} = $dir;
+			$result->{$section}->{$section . '_OBJ_FILES'} = $src;
+			next;
+		}
+
+		if ($line =~ /^mkinclude.*et_deps.pl\s+([^\s]+)\s+\\\$\\\(\w+\\\)\/([^\s|]+)\|$/) {
+			my $src = $1;
+			my $dir = $2;
+			$section = basename($src);
+			$section =~ s/\./_/g;
+			$section = "HEIMDAL_" . uc($section);
+			$result->{$section}->{TYPE} = 'ERRTABLE';
+			$result->{$section}->{SECNUMBER} = $secnumber++;
+			$result->{$section}->{DIRECTORY} = "$dir";
+			$result->{$section}->{$section . '_OBJ_FILES'} = $src;
+			next;
+		}
+
 		if ($line =~ /^\[(\w+)::([\w-]+)\]/)
 		{
 			my $type = $1;
@@ -281,6 +305,14 @@ foreach my $s (sort {$result->{$a}->{SECNUMBER} <=> $result->{$b}->{SECNUMBER}}
 			    $trailer .= sprintf(",\n\tcflags='%s'", strlist($sec->{$k}));
 			    next;
 		    }
+		    if ($k eq "OPTIONS") {
+			    $trailer .= sprintf(",\n\toptions='%s'", strlist($sec->{$k}));
+			    next;
+		    }
+		    if ($k eq "DIRECTORY") {
+			    $trailer .= sprintf(",\n\tdirectory='%s'", strlist($sec->{$k}));
+			    next;
+		    }
 		    if ($k eq "LDFLAGS") {
 			    $trailer .= sprintf(",\n\tldflags='%s'", strlist($sec->{$k}));
 			    next;