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
|
