diff options
Diffstat (limited to 'kalyptus')
| -rw-r--r-- | kalyptus/kalyptus | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/kalyptus/kalyptus b/kalyptus/kalyptus index 5ffa8af8..5bc443ba 100644 --- a/kalyptus/kalyptus +++ b/kalyptus/kalyptus @@ -23,7 +23,7 @@ use kdocParseDoc; use vars qw/ %rootNodes $declNodeType @includes_list %options @formats_wanted $allow_k_dcop_accessors @includeclasses $includeclasses $skipInternal %defines $defines $match_qt_defines $libdir $libname $outputdir @libs $parse_global_space $qt_embedded $qt4 $striphpath $doPrivate $readstdin - $Version $tquiet $debug $debuggen $parseonly $currentfile $cSourceNode $exe + $Version $quiet $debug $debuggen $parseonly $currentfile $cSourceNode $exe %formats %flagnames @allowed_k_dcop_accesors $allowed_k_dcop_accesors_re $rootNode @classStack $cNode $globalSpaceClassName $lastLine $docNode @includes $cpp $defcppcmd $cppcmd $docincluded @@ -52,7 +52,7 @@ $includeclasses = ""; $doPrivate = 0; $Version = "0.9"; -$tquiet = 0; +$quiet = 0; $debug = 0; $debuggen = 0; $parseonly = 0; @@ -201,7 +201,7 @@ GetOptions( \%options, "define=s", \%defines, # define a single preprocessing symbol "defines=s", \$defines, # file containing preprocessing symbols, one per line - "tquiet|q", \$tquiet, + "quiet|q", \$quiet, "debug|D", \$debug, # debug the parsing "debuggen", \$debuggen, # debug the file generation "parse-only", \$parseonly ) @@ -221,7 +221,7 @@ else { if ($#includeclasses>=0) { $includeclasses = join (" ", @includeclasses); - print "Using Classes: $includeclasses\n" unless $tquiet; + print "Using Classes: $includeclasses\n" unless $quiet; } if ( $#includes >= 0 && !$cpp ) { @@ -330,7 +330,7 @@ sub readLibraries require kdocLib; foreach my $lib ( @libs ) { - print "$exe: reading lib: $lib\n" unless $tquiet; + print "$exe: reading lib: $lib\n" unless $quiet; my $relpath = exists $options{url} ? $options{url} : $outputdir; @@ -366,7 +366,7 @@ sub parseFiles || croak "Can't read from $currentfile"; } - print STDERR "$exe: processing $currentfile\n" unless $tquiet; + print STDERR "$exe: processing $currentfile\n" unless $quiet; # reset vars $rootNode = getRoot( $lang ); @@ -415,7 +415,7 @@ sub writeDocumentation require $pack.".pm"; print STDERR "Generating bindings for $format ", - "language...\n" unless $tquiet; + "language...\n" unless $quiet; my $f = "$pack\::writeDoc"; &$f( $libname, $node, $outputdir, \%options ); |