diff options
| author | Gabriel Hernan Czernikier <gaboherno@gmail.com> | 2014-10-30 11:34:30 -0300 |
|---|---|---|
| committer | Gabriel Hernan Czernikier <gaboherno@gmail.com> | 2014-10-30 11:34:30 -0300 |
| commit | ea34304862c8613bc8f36315d6b7450f79d11b29 (patch) | |
| tree | df409506a52e3f4dc5baeefe968b7eeb94b9bb52 /synopsis.pl | |
| parent | 8f65b1209fe8416dff667bd960ea8710955e4eca (diff) | |
| download | vital-ea34304862c8613bc8f36315d6b7450f79d11b29.tar.gz vital-ea34304862c8613bc8f36315d6b7450f79d11b29.tar.bz2 | |
Clean output format: strip off raw text out of HTML part.
Diffstat (limited to 'synopsis.pl')
| -rw-r--r-- | synopsis.pl | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/synopsis.pl b/synopsis.pl index e066119..981cd3f 100644 --- a/synopsis.pl +++ b/synopsis.pl @@ -80,12 +80,14 @@ my @FORMAT = ( sub printFile {
return if @_==1;
- if (@_==2) {
- my $fh = $_[1];
- ${_[0]} =~ s/</</g;
- print $fh "<p>${_[0]}</p>\n";
- return;
- }
+
+ #if (@_==2) {
+ # my $fh = $_[1];
+ # ${_[0]} =~ s/</</g;
+ # print $fh "<p>${_[0]}</p>\n";
+ # return;
+ #}
+ return if @_==2;
# @_==5
printFile @{$_[1]}, $_[4];
my $coderef = $FORMAT[$_[3]][1];
@@ -97,9 +99,10 @@ sub printFile { sub joinParseTree {
return if @_==0;
- if (@_==1) {
- return ${_[0]};
- }
+ return if @_==1;
+ #if (@_==1) {
+ # return ${_[0]};
+ #}
# @_==4
return joinParseTree(@{$_[1]}) . $_[0] . joinParseTree(@{$_[2]});
}
|