summaryrefslogtreecommitdiff
path: root/new-infra
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-05-24 09:19:27 +0000
committerNorbert Preining <preining@logic.at>2007-05-24 09:19:27 +0000
commitde9763530c6841fc8d050a7858c7fd28211793a1 (patch)
treedf6f25f4d571ee097ffe0e7c386b3965829a59d8 /new-infra
parent73a07e1fe93eb774cf97e4e140a38a430281aa25 (diff)
and more fixes..
git-svn-id: svn://tug.org/texlive/trunk@4359 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'new-infra')
-rw-r--r--new-infra/TLP.pm16
-rw-r--r--new-infra/TLSRC.pm14
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