- '.$$s;}
for($k=0;$k<$nb-$suiv;$k++){$$s=$$s.'
';} push(@{$$p->{text}},'
'.$s."\n"); } elsif($$p->{lines}[$j+1] =~ /^\s*$/) { if (!$TEXT_MODE) {html_tabling($p,\$s);} push(@{$$p->{text}},$s.'
'."\n"); } else { if ((!$TEXT_MODE)&&(!html_tabling($p,\$s))) {$s = $s.'';} push(@{$$p->{text}},$s."\n"); } $$p->{white}=0; } } } # # scan_in_nowhat # sub scan_in_nowhat { my ($p,$s,$filename,$ip,$j) = @_; SWITCH: { if ($$p->{state} == $TITLEPAGE) { if ($s !~ /^\s*$/) { chop($s); $$p->{pagetitle} = $s; $$p->{state}++; } last SWITCH; } if ($$p->{state} == $TITLE) { if ($s !~ /^\s*$/) { chop($s); $$p->{title} = $s; $$p->{state}++; } last SWITCH; } if ($$p->{state} == $BODY) { scan_in_body($p,$s,$filename,$ip,$j); last SWITCH; } if ($$p->{state} == $AUTHOR) { if ($s !~ /^\s*$/) { chop($s); $$p->{author} = $s; $$p->{state}++; } last SWITCH; } if ($$p->{state} == $DATE) { if ($s !~ /^\s*$/) { $$p->{date} = $s; chop($$p->{date}); $$p->{state}++; } last SWITCH; } } } # # scan_in_poem # sub scan_in_poem { my ($p,$s,$filename,$ip,$j) = @_; SWITCH: { if ($$p->{what} == $NOWHAT) { scan_in_nowhat($p,$s,$filename,$ip,$j); last SWITCH; } if ($$p->{what} == $TITLEPAGE) { $$p->{titlepage} = $$p->{titlepage}.$s; last SWITCH; } if ($$p->{what} == $TITLE) { $$p->{title} = $$p->{title}.$s; last SWITCH; } if ($$p->{what} == $AUTHOR) { $$p->{author} = $$p->{author}.$s; last SWITCH; } if ($$p->{what} == $DATE) { $$p->{date} = $$p->{date}.$s; last SWITCH; } if ($$p->{what} == $DEDICACE) { $$p->{dedicace} = $$p->{dedicace}.$s; last SWITCH; } if ($$p->{what} == $CITATION) { $$p->{citation} = $$p->{citation}.$s; last SWITCH; } if ($$p->{what} == $NOTE) { $$p->{note} = $$p->{note}.$s; last SWITCH; } } } # # file_scan # sub file_scan { my ($p,$filename,$ip) = @_; my($j,$s); for ($j=0;$j<@{$$p->{lines}};$j++) { $s=$$p->{lines}[$j]; if (($MULTI == 0)&&($j==@{$$p->{lines}}-1)) {$s = "#!POEM\n"} if ($s =~ /^\#/) { $s = substr($s,1); chop($s); execute_poem_command($p,$s,$filename,$ip); if ($$p->{excluded}) {return;} }elsif ($$p->{where} == $INPOEM) { scan_in_poem($p,$s,$filename,$ip,$j); } } } sub makepoem { my ($filename, $poemtemp,$ip) = @_; my ($parameters); $parameters = { ptmp => [ @$poemtemp ], poemtemp => [ @$poemtemp ], lines => [ () ], text => [ () ], where => $NOWHERE, what => $NOWHAT, litteral => 0, state => $TITLEPAGE, white => 1, number => 0, dedicace => "", author => "-", title => "", date => "", note => "", bodyskip => 0, tab => 0, new_mark => 0, in_index => 1, # has to be referenced in the index excluded => 0, }; # $filename = $file; $input++; unless (open($input, $filename)) { print STDERR "Can't open $filename: $!\n"; return; } @{$parameters->{lines}} = <$input>; close($input); print "processing : ";print $filename;print "\n"; if ($MULTI == 0) {$parameters->{where} = $INPOEM;} file_scan(\$parameters,$filename,$ip); } # # astaz_index_option # sub astaz_index_option { my($indexout,$ip,$ipp,$lastauthor,$k) = @_; if (!($$ip->{authorindex}[$$ipp->{index_loc}][$k] =~ /^$$lastauthor/)) { push(@$indexout,''."\n"); push(@$indexout ,''.$$ip->{authorindex}[$$ipp->{index_loc}][$k].''."\n"); push(@$indexout,'
- '."\n");
$$lastauthor = $$ip->{authorindex}[$$ipp->{index_loc}][$k];
}
}
#
# execute_index_command
#
sub execute_index_command
{
my ($command,$ip,$ipp)= @_;
my ($k,$j,$sl,$lastauthor);
$_ = $command;
$lastauthor = "xxxxxxxxxxxxxxxxxxxx";
SWITCH:
{
if (/^fileloop/i)
{
$command =~ s/(fileloop)/\2/i;
$$ipp->{index_loc} = ($command+$command)/2;
$$ipp->{loopflag} = 1;
last SWITCH;
}
if (/^\!fileloop/i)
{
$$ipp->{loopflag} = 0;
$$ipp->{lastauthort} = "zzzzzzzzzzzzz";
for ($k=0;$k<@{$$ip->{titleindex}[$$ipp->{index_loc}]};$k++)
{
if ($ASTAZ)
{
astaz_index_option(\@{$$ipp->{indexout}},$ip,$ipp
,\$lastauthor,$k);
}
for ($j=0;$j<@{$$ipp->{loop}};$j++)
{
$sl = $$ipp->{loop}[$j];
if ($sl =~ /\$/)
{
if ($sl =~ /\$localfile/)
{
$sl =~ s/\$localfile/$$ip->{fileindex}[$$ipp->{index_loc}][$k]/;
}elsif ($sl =~ /\$title/)
{
$sl =~ s/\$title/$$ip->{titleindex}[$$ipp->{index_loc}][$k]/;
}elsif ($sl =~ /\$new_mark/)
{
if ($$ip->{new_mark}[$$ipp->{index_loc}][$k])
{
$sl =~ s/\$new_mark/
/;
}
else {$sl =~ s/\$new_mark//;}
}
}
push(@{$$ipp->{indexout}},$sl);
}
}
$$ipp->{loop} = ();
}
}
}
#
# indestemp_scan
#
sub indextemp_scan
{
my ($ip,$ipp,$indextemp) = @_;
my($i,$s,$command);
for ($i=0;$i<@$indextemp;$i++)
{
$s = $$indextemp[$i];
if ($s =~ /^\#/)
{
$command = substr($s,1);
chop($command);
execute_index_command($command,$ip,$ipp);
}elsif ($$ipp->{loopflag})
{
push(@{$$ipp->{loop}},$s);
}else
{
push(@{$$ipp->{indexout}},$s);
}
}
}
#
# makeindex
#
sub makeindex
{
my ($indextemp,$ip) = @_;
my($i,$ipp,$s,$location);
$ipp =
{
loop => [ () ], # The loop content
loopflag => 0, # in the loop
indexout => [ () ], # The file content
index_loc => 0, #
new_mark => [ () ], #will be 1 if the file has to be marked as new
};
print "make index\n";
indextemp_scan($ip,\$ipp,$indextemp);
for ($i=0;$i<@{$ipp->{indexout}};$i++)
{
if ($ipp->{indexout}[$i] =~ /\$/)
{
if ($ipp->{indexout}[$i] =~ /\$location/)
{
$location = qx{pwd};
chop($location);
$location =~ s/\/export\/home\/patois\/public_html/http:\/\/www.sura.org\/~patois/;
$location =~ s/\/test//;
$location = $location.'/index.html';
$ipp->{indexout}[$i] =~ s/\$location/$location/;
}elsif ($ipp->{indexout}[$i] =~ /\$pagedate/)
{
$pagedate = qx{date};
chop($pagedate);
$ipp->{indexout}[$i] =~ s/\$pagedate/$pagedate/;
}
}
}
open(FOUT, ">index.html");
print FOUT @{$ipp->{indexout}};
close(FOUT);
}
# ---------------------------------------------------------------------------------
# Link to the previous and the next document
# ---------------------------------------------------------------------------------
sub makeprevnext
# ---------------------------------------------------------------------------------
{
my ($ip,$n) = @_;
my (@file,$i,$location,$filename);
unless (open(INPUT,$$ip->{fileindex}[0][$n]))
{
print STDERR "Can't open $filename: $!\n";
return;
}
@file = ;
close(INPUT);
foreach $line (@file)
{
dbprint(1001,"line : $line");
if ($line =~ /\$/)
{
if ($line =~ /\$previous_page/)
{
dbprint(1001,"We r in previous ! : $n\n");
if ($n == 0) {$line = "\n";}
else
{
$location = './'.$$ip->{fileindex}[0][$n-1];
$line =~ s/\$previous_page/$location/;
}
}elsif ($line =~ /\$next_page/)
{
dbprint(1001,"We r in next ! : $n\n");
if ($n == ($$ip->{n}-1)) {$line = "\n";}
else
{
$location = './'.$$ip->{fileindex}[0][$n+1];
$line =~ s/\$next_page/$location/;
}
}
}
}
open(FOUT, ">$$ip->{fileindex}[0][$n]");
print FOUT @file;
close(FOUT);
}
# ---------------------------------------------------------------------------------
# WELCOME TO DERRY, MAINE
# ---------------------------------------------------------------------------------
sub main
# ---------------------------------------------------------------------------------
{
my (@indextemp, @poemtemp);
my ($index_parameters,$i);
loadfile($TEXTTEMPLATE_NAME ,\@poemtemp);
loadfile($INDEXTEMPLATE_NAME,\@indextemp);
$index_parameters =
{
titleindex => [ () ],
authorindex => [ () ],
fileindex => [ () ],
n => 0 , #number of files
};
print "Fabrication d'un Web de Poesie\n";
print "fichiers...\n";
foreach $file (@ARGV)
{
makepoem($file,\@poemtemp,\$index_parameters);
}
if ($INDEX)
{
print "\n index...\n";
makeindex(\@indextemp,\$index_parameters);
}
if ($PREV_NEXT)
{
print "makeprevnext...\n";
for ($i=0;$i<$index_parameters->{n};$i++)
{makeprevnext(\$index_parameters,$i);}
}
print "...done\n";
}
# ---------------------------------------------------------------------------------
# THE line that start everything...
# ---------------------------------------------------------------------------------
&main();
# ---------------------------------------------------------------------------------