From 8b68c016b1907375bfad28d762daa49df7b93f5d Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Sat, 1 Jan 2000 14:47:20 +0000
Subject: [PATCH] renamed gdx.pl as showdx

---
 Changes                 |  1 +
 perl/{gdx.pl => showdx} | 31 +++++++++++++++++++++----------
 2 files changed, 22 insertions(+), 10 deletions(-)
 rename perl/{gdx.pl => showdx} (54%)

diff --git a/Changes b/Changes
index cae5201f..eeb6a553 100644
--- a/Changes
+++ b/Changes
@@ -4,6 +4,7 @@ as I do!).
 2. updated gdx.pl so that external programs can do a sh/dx just as a normal
 user can. On reflection this could be used as a model for all sorts of 
 "external" interface routines.
+3. renamed gdx.pl as showdx.
 11Dec99=======================================================================
 1. added missing pc48 so that it calls the DXDb::process routine 
 10Dec99=======================================================================
diff --git a/perl/gdx.pl b/perl/showdx
similarity index 54%
rename from perl/gdx.pl
rename to perl/showdx
index f88761ab..9af8f41b 100755
--- a/perl/gdx.pl
+++ b/perl/showdx
@@ -1,6 +1,10 @@
 #!/usr/bin/perl
 #
-# grep for expressions in various fields of the dx file
+# Implement an external "show/dx" command
+#
+# Copyright (c) 1998-2000 Dirk Koopman G1TLH
+#
+# $Id$
 #
 
 # search local then perl directories
@@ -28,15 +32,22 @@ STDOUT->autoflush(1);
 Spot::init();
 Bands::load();
 
-for (;;) {
-  print "expr: ";
-  $expr = <STDIN>;
-  last if $expr =~ /^q/i;
+$expr = join ' ', @ARGV if @ARGV;
 
-  chomp $expr;
-
-  my @out = map {"$_\n"} &$dxproc({priv=>0,call=>'GDX'}, $expr);
-  shift @out;   # remove return code
-  print @out;
+for (;;) {
+	if ($expr) {
+		$myexpr = $expr;
+	} else {
+		print "show/dx: ";
+		$myexpr = <STDIN>;
+		last unless defined $myexpr;
+		chomp $myexpr;
+		last if $myexpr =~ /^q$/i;
+	}
+	my @out = map {"$_\n"} &$dxproc({priv=>0,call=>'GDX'}, $myexpr);
+	shift @out;   # remove return code
+	print @out;
+	last if $expr;
 }
+exit(0);
 
-- 
2.43.0