From 09bec72caa8b01d0ef67a54936410a992b15f936 Mon Sep 17 00:00:00 2001
From: Robert Ricci <ricci@cs.utah.edu>
Date: Mon, 24 Nov 2003 19:46:05 +0000
Subject: [PATCH] Implement the '-o outfile' option.
---
utils/nsgen/nsgen | 17 +++++++++++++++--
1 file changed, 15 insertions(+), 2 deletions(-)
diff --git a/utils/nsgen/nsgen b/utils/nsgen/nsgen
index 2c3d18124f..38a05e29e5 100755
--- a/utils/nsgen/nsgen
+++ b/utils/nsgen/nsgen
@@ -50,6 +50,15 @@ my $template_file = shift @ARGV;
my ($template,$variables) = readTemplate($template_file);
processOptions($variables,@vars);
my $nsfile = substitute($template,$variables);
+if ($outfile) {
+ open(OF,">$outfile") or die "Unable to open $outfile: $!\n";
+ print OF $nsfile;
+ close OF;
+} else {
+ print $nsfile;
+}
+
+exit 0;
#
# Read the template XML file
@@ -103,7 +112,10 @@ sub processOptions($@) {
#
# Replace variables embedded in the template
#
-sub substitute($template,$variables) {
+sub substitute($s) {
+ my ($template,$variables) = @_;
+ my $nsfile = "";
+
#
# Loop through each section of the template
#
@@ -143,8 +155,9 @@ sub substitute($template,$variables) {
}
$lines =~ s/<(\w+)>/$value/;
}
- print $lines;
+ $nsfile .= $lines;
}
+ return $nsfile;
}
#
--
GitLab