diff options
author | knarf <knarf@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2014-03-14 15:29:32 +0000 |
---|---|---|
committer | knarf <knarf@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2014-03-14 15:29:32 +0000 |
commit | d842694cd77a0bb7218bf2d2fc65af59fea44a9a (patch) | |
tree | c56267527edfb797586a1c2f0e54fbb52178d83a /lib/sbin/InterLatex.pl | |
parent | b98230f1a4357b144691197f0aff2f08642b2d4b (diff) |
patch from Barry Wardell: include interface information in ThornDoc
git-svn-id: http://svn.cactuscode.org/flesh/trunk@5096 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/InterLatex.pl')
-rwxr-xr-x | lib/sbin/InterLatex.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/sbin/InterLatex.pl b/lib/sbin/InterLatex.pl index cb558948..fd495806 100755 --- a/lib/sbin/InterLatex.pl +++ b/lib/sbin/InterLatex.pl @@ -1,7 +1,7 @@ #!/usr/bin/perl -s #use strict; -use vars qw($cctk_home $debug $verbose $h $help $document_type $outdir $directory $thornlist); +use vars qw($cctk_home $debug $verbose $h $help $document_type $outdir $directory $thornlist $thorn); #/*@@ # @file InterLatex.pl @@ -27,6 +27,7 @@ if ($h || $help) { print "--> InterLatex.pl <--\n"; print "Options:\n"; print "\t-thornlist= : thornlist to process\n"; + print "\t-thorn= : (opt) specific thorn to process\n"; print "\t-directory= : directory of arrangements (default arrangements/)\n"; print "\t-outdir= : directory to dump output files, default is .\n"; print "\t-document_type= : create a 'document' or 'section'\n"; @@ -110,6 +111,8 @@ if (defined $thornlist) { # provided by MakeUtils.pl, returns a hash with a list of the thorns in our thornlist %thorns = &ReadThornlist($thornlist); @listOfThorns = sort keys %thorns; +} elsif (defined $thorn) { + @listOfThorns = $thorn; } else { # we don't have a thornlist, go find all thorns in arrangements directory @listOfThorns = ThornUtils::CreateThornlist($arrangements_dir); @@ -331,7 +334,7 @@ sub LatexTableElement # print nothign as we are dealing with the same group if (! $firstpass) { print "~ &"; - $firstpass = 0; + $firstpass = 0; } my $new_counter = 1; |