Create a tool for converting a config_h.SH into a VOS config.h.

p4raw-id: //depot/cfgperl@4872

1 files changed, 48 insertions, 0 deletions

diff --git a/vos/config.pl b/vos/config.pl
new file mode 100644
index 0000000000..33629d7081
--- /dev/null
+++ b/vos/config.pl
@@ -0,0 +1,48 @@
+# This file fills in a config_h.SH template based on the data
+# of the file config.def and outputs a config.sh.
+
+if (open(CONFIG_DEF, "config.def")) {
+    while (<CONFIG_DEF>) {
+	if (/^([^=]+)='(.+)'$/) {
+	    my ($var, $val) = ($1, $2);
+	    $define{$var} = $val;
+	} else {
+	    warn "config.def: $.: illegal line: $_";
+	}
+    }
+} else {
+    die "$0: Cannot open config.def: $!";
+}
+
+if (open(CONFIG_SH, "config_h.SH_orig")) {
+    while (<CONFIG_SH>) {
+	last if /^sed <<!GROK!THIS!/;
+    }
+    while (<CONFIG_SH>) {
+	last if /^!GROK!THIS!/;
+	s/\\\$Id:/\$Id:/;
+	s/\$package/perl5/;
+	s/\$cf_time/localtime/e;
+	s/\$myuname/$define{OSNAME}/;
+        s/\$seedfunc/$define{seedfunc}/;
+	if (/^#\$\w+\s+(\w+)/) {
+	    if (exists $define{$1}) {
+		if ($define{$1} eq 'define') {
+		    print "#define $1\t/**/\n";
+		} else {
+		    print "#define $1 $define{$1}\n";
+		}
+	    } else {
+		print "/*#define $1\t/**/\n";
+	    }
+	} elsif (/^#define\s+(\S+)/) {
+	    print "#define $1 $define{$1}\n";
+	} elsif (s/\$cpp_stuff/$define{cpp_stuff}/g) { 
+	    print;
+	} else {
+	    print;
+	}
+    }
+} else {
+    die "$0: Cannot open config_h.SH_orig: $!";
+}