diff options
| author | Norbert Preining <preining@logic.at> | 2007-05-24 09:19:27 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2007-05-24 09:19:27 +0000 |
| commit | de9763530c6841fc8d050a7858c7fd28211793a1 (patch) | |
| tree | df6f25f4d571ee097ffe0e7c386b3965829a59d8 | |
| parent | 73a07e1fe93eb774cf97e4e140a38a430281aa25 (diff) | |
and more fixes..
git-svn-id: svn://tug.org/texlive/trunk@4359 c570f23f-e606-0410-a88d-b1316a301751
| -rw-r--r-- | new-infra/TLP.pm | 16 | ||||
| -rw-r--r-- | new-infra/TLSRC.pm | 14 |
2 files changed, 25 insertions, 5 deletions
diff --git a/new-infra/TLP.pm b/new-infra/TLP.pm index 6a324a15d44..5b10dd952b3 100644 --- a/new-infra/TLP.pm +++ b/new-infra/TLP.pm @@ -8,6 +8,10 @@ package TLP; +use FileHandle; + +my $_tmp; + sub new { my $class = shift; my %params = @_; @@ -114,11 +118,15 @@ sub from_file { sub writeout { my $self = shift; my $fd = (@_ ? $_[0] : STDOUT); + format_name $fd "multilineformat"; print $fd "name ", $self->name, "\n"; defined($self->{'revision'}) && print $fd "revision $self->{'revision'}\n"; defined($self->{'catalogue'}) && print $fd "catalogue $self->{'catalogue'}\n"; defined($self->{'shortdesc'}) && print $fd "shortdesc $self->{'shortdesc'}\n"; - defined($self->{'longdesc'}) && print $fd "longdesc $self->{'longdesc'}\n"; + if (defined($self->{'longdesc'})) { + $_tmp = "longdesc $self->{'longdesc'}"; + write $fd; + } if (defined($self->{'depends'})) { foreach (@{$self->{'depends'}}) { print $fd "depend $_\n"; @@ -240,11 +248,11 @@ sub executes { ###### Formats -format TLP = +format multilineformat = ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< -$tlpline +$_tmp ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~ -$tlpline +$_tmp . ### Local Variables: diff --git a/new-infra/TLSRC.pm b/new-infra/TLSRC.pm index 06beb58cac3..5effd8451e2 100644 --- a/new-infra/TLSRC.pm +++ b/new-infra/TLSRC.pm @@ -134,7 +134,11 @@ sub writeout { print $fd "name ", $self->name, "\n"; print $fd "catalogue $self->{'catalogue'}\n"; defined($self->{'shortdesc'}) && print $fd "shortdesc $self->{'shortdesc'}\n"; - defined($self->{'longdesc'}) && print $fd "longdesc $self->{'longdesc'}\n"; + if (defined($self->{'longdesc'})) { + my $tmp = $self->{'longdesc'}; + $~ = "multilineformat"; + write $fd; + } if (defined($self->{'depends'})) { foreach (@{$self->{'depends'}}) { print $fd "depend $_\n"; @@ -334,6 +338,14 @@ sub executes { 1; +# FORMATS +format multilineformat = +^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< +$tmp + ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~ +$tmp +. + ### Local Variables: ### perl-indent-level: 4 ### tab-width: 4 |