Update dependency generation, and ensure it uses the opie default config when none exists

1 files changed, 73 insertions, 0 deletions

diff --git a/scripts/deps.pl b/scripts/deps.pl
new file mode 100755
index 0000000..56c4e77
--- a/dev/null
+++ b/scripts/deps.pl
@@ -0,0 +1,73 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+my %depends;
+my %tokenpath;
+
+sub getdepends ($$)
+{
+	my ($token, $path, $intoken);
+	$token = shift || return;
+	$token =~ s/CONFIG_//;
+	$path = shift || return;
+#print "opening $path/config.in\n";
+#	print "token is $token\n";
+	open( FILE, "< $path/config.in" ) || return;
+	$intoken = 0;
+	while( <FILE> ) {
+		if( $intoken == 1 ) {
+			/depends\S*(.*)/ && return $1;
+			if( /\S*(config|menu)/ ) {
+				$intoken = 0;
+				return;
+			}
+		} else {
+			/$token/ || next;
+			$intoken = 1;
+		}
+		/$token/ || next;
+	}
+	close( FILE );
+	return;
+}
+
+sub makedepends ($$)
+{
+	my ($depends, $tokenpath, $token, $depword, $mustbesep, $state);
+	$depends = shift || return;
+	$tokenpath = shift || return;
+	$mustbesep = 0;
+
+	for $token (keys %$depends){
+		print ${$tokenpath}{$token} . " : ";
+		for (split(/\s+/, ${$depends}{$token})){
+			/^\s+$/ && next;
+			/\&\&/ && next;
+			/\|\|/ && next;
+			/^$/ && next;
+			if(defined(${$tokenpath}{"CONFIG_" . $_})){
+				print '$(if $(CONFIG_' . $_ . '),' . ${$tokenpath}{"CONFIG_" . $_} . ') ';
+			} else {
+				print STDERR "ERROR in dependency generation, unable to locate path for token CONFIG_$_\n";
+			}
+		}
+		print "\n";
+	}
+}
+
+while( <> ) {
+	my $dep;
+	my ($token, $path, $pro);
+	chomp;
+	s/^\s*//g;
+	s/\s*$//g;
+	($token, $path, $pro) = split(/\s+/,$_);
+	$tokenpath{$token} = $path;
+	$dep = getdepends($token, $path);
+	if( $dep ) {
+		$depends{$token} = $dep;
+	}
+}
+
+makedepends(\%depends, \%tokenpath);