[Flexml-commits] flexml flexml.pl,1.47,1.48

[Martin Q. <mqu...@us...>]

Update of /cvsroot/flexml/flexml
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28276

Modified Files:
	flexml.pl 
Log Message:
Add a -T option allowing to overide the flexml-act file to use. This allows to test a version before installing it

Index: flexml.pl
===================================================================
RCS file: /cvsroot/flexml/flexml/flexml.pl,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -d -r1.47 -r1.48
--- flexml.pl	21 Mar 2006 11:12:57 -0000	1.47
+++ flexml.pl	21 Mar 2006 13:09:12 -0000	1.48
@@ -55,6 +55,7 @@
 my $pubid;			# -p option string
 my $stacksize;			# -b option flag
 my $tagprefix;			# -P option flag
+my $actbin;                     # -T option content
 
 my $dtd;			# DTD file name (or URI)
 my $dtdrevision;		# DTD version pruned from file
@@ -486,10 +487,10 @@
 
 
 # Parse options.
-$Use = "Usage: flexml [-ASHDvdqnLXV] [-s skel] [-p pubid] [-u uri]\n"
+$Use = "Usage: flexml [-ASHDvdqnLXV] [-s skel] [-T actbin] [-p pubid] [-u uri]\n"
      . "       [-b stack_size] [-r roottags] [-a actions] [-P prefix] name[.dtd]";
 
-getopts('ASHDvdnLXVqp:b:P:s:u:r:a:', \%opt);
+getopts('ASHDvdnLXVqp:b:P:s:T:u:r:a:', \%opt);
 
 # Version!
 print "FleXML version $Id.\n" if $opt{V} or $opt{v};
@@ -519,6 +520,9 @@
 # Specific tagprefix?
 $tagprefix = ($opt{'P'} ? $opt{'P'}."_" : "");
 
+# Specific actbin?
+$actbin = ($opt{'T'} ? $opt{'T'} : "./flexml-act");
+    
 # Set skeleton scanner file name and check it is readable (if needed).
 $SKELETON = ($opt{'s'} ? $opt{'s'} : './skel');
 die "$0: No skeleton file $SKELETON.\n" if not -r $SKELETON and $opt{S};
@@ -1547,7 +1551,7 @@
   # Get requested actions.
   if ($ACTIONS) {
 
-    open ACTIONS, "./flexml-act $ACTIONS|" || die "$0: Cannot exec ./flexml-act $ACTIONS: $!\n";
+    open ACTIONS, "$actbin $ACTIONS|" || die "$0: Cannot exec $actbin $ACTIONS: $!\n";
 
     my ($tag,$attribute);
     my @myattributes;
@@ -1622,7 +1626,7 @@
       print $_;
 
     }
-    close ACTIONS || die "$0: Cannot close pipe to flexml-act: $!\n";
+    close ACTIONS || die "$0: Cannot close pipe to $actbin: $!\n";
     print "\n";
   }
 
@@ -1766,6 +1770,11 @@
 
 Use the skeleton scanner I<skel> instead of the default.
 
+=item B<-T> I<flexml-act>
+
+This is an internal option mainly used to test versions of flexml not
+installed yet.
+
 =item B<-b> I<stack_size>
 
 Sets the FLEXML_BUFFERSTACKSIZE to stack_size (100000 by default). Use