$sanat = 'sanat.txt';
$kaikki = 'sanat.html';
$laaja = 'laaja.html';
$alku = 'sanat';
$suff = '.html';

$style =
"<link rel=\"stylesheet\" type=\"text/css\" ".
"title=\"Sanakirjatyyli\" ".
"href=\"sanak.css\">\n";

$table = "<table border=\"1\">\n";
$table_end = "</table>\n";

my %map = ( 'å' => 'ao', 'ä' => 'ae', 'ö' => 'oe',
            'ü' => 'y',
	    'é' => 'e',
	    'à' => 'a', '$' => 's', '¨' => 's' );
for $letter('a'..'z') { $map{$letter} = $letter; }
for $letter('A'..'Z') { $map{$letter} = lc($letter); }

open(SANAT,"<$sanat") or die "Sanatiedostoa ei löydy:\n $!";
open(KAIKKI,">$kaikki") or die "Tiedostoa $kaikki ei voi luoda:\n $!";
print KAIKKI "<title>Pienehkö sivistyssanakirja, kaikki sanat, lyhyet selitykset</title>\n",
$style, "<h1 class=\"small\"><a href=\"index.html\" title=\"Sanakirjan sisällysluettelo\">Pienehkö sivistyssanakirja</a>, kaikki sanat, lyhyet selitykset</h1>\n";

open(LAAJA,">$laaja") or die "Tiedostoa $laaja ei voi luoda:\n $!";
print LAAJA 
"<title>Pienehkö sivistyssanakirja, kaikki sanat, laajat selitykset</title>\n",
$style, "<h1 class=\"small\"><a href=\"index.html\" title=\"Sanakirjan sisällysluettelo\">Pienehkö sivistyssanakirja</a>, kaikki sanat, laajat selitykset</h1>\n";

my $kirjain = '';

print KAIKKI $table;
while(<SANAT>) {
    my $laus;
    my $komm;
    s/\r//;
    s/\n//;
    $sana = muunna($_);
    if(m/(.+?)\s*(\[.+\])/) {
	$sana = $1;
	$laus = $2; }

    $uusik = substr($sana,0,1);
    if($uusik eq 'à') { $uusik = 'a'; }
    $uusikirjain = $map{$uusik};
    die "***Virhe! uusi: $uusikirjain, sana: $sana, rivi: $_" 
       unless $uusikirjain =~ m/[a-zA-Z]+/;
    if($uusikirjain ne $kirjain) {
	if($kirjain) {
	    close OSA; }	    
	$kirjain = $uusikirjain;
	$osa = $alku . $kirjain . $suff;
	open(OSA,">$osa") or die "Tiedostoa $osa ei voi luoda:\n $!";
        print OSA "<title>Pienehkö sivistyssanakirja, $uusik-alkuiset sanat</title>\n",
          $style, "<h1 class=\"small\"><a href=\"index.html\" title=\"Sanakirjan sisällysluettelo\">Pienehkö sivistyssanakirja</a>, $uusik-alkuiset sanat</h1>\n"; }

    $selitys = <SANAT>;
    $selitys =~ s/\r//;
    chomp $selitys;
    $selitys = linkit($selitys);
    $ankkuri = $sana;
    $ankkuri =~ s/\(.*\)//g;
    $sana =~ s/¨/&#353;/; 
    $sana =~ s/\$/&#353;/; 
    $tauhka = "<tr><th align=\"left\"><a name=\"$ankkuri\">$sana</a> </th><td>$selitys $laus</td></tr>\n";
    print KAIKKI $tauhka;
    $komm = '';
    while(<SANAT>) {
	s/\r//g;
	s/\n//g;
	last if !$_ || $_ eq "\n" || $_ eq '';
        $komm .= ' '.linkit($_); }
    $tauhka = "<p><a name=\"$ankkuri\"><dfn>$sana</dfn></a> $laus $selitys ";
    if($komm ne '') { $tauhka .= "¶ $komm"; }
    $tauhka .= "</p>\n";
    print LAAJA $tauhka;
    $tauhka =~ s/\"#(\w|¨)/&tiedosto($1)/ge;
    print OSA $tauhka; }

print KAIKKI $table_end;
close OSA;
close LAAJA;
close KAIKKI;

sub linkit {
    $_[0] =~ s/\\([a-zA-zäåöÄÅÖàÀéÉ\&#0-9;\-]*?)\(([a-zA-zäåöÄÅÖàÀéÉ\&#0-9¨;\-]*?)\)\\/<a href="#$2">$1<\/a>/g;
    $_[0] =~ s/\\(.*?)\\/<a href="#$1">$1<\/a>/g;
    return muunna($_[0]); }

sub muunna {
    $_ = $_[0];
    s?!SI?<a href="../SI/index.html">SI</a>?;
    s?!LV?<a href="asu.html#aa">lyhytvokaalinen</a>?;
    s?!SS?<cite><a href="asu.html#ss">Yksi vai kaksi konsonanttia\?</a></cite>?;
    s?!OLI?<a href="asu.html#oli">-oli</a>?;
    s?!KIRJ?<cite><a href="asu.html#kirj">Kirjoitus- vai äänneasun mukaan\?</a></cite>?;
    s?!VIER?<a href="asu.html#vier">huomautuksia vieraiden kirjainten käytöstä</a>?;
    s?!KS?<cite><a href="asu.html#ks">K vai s\?</a></cite>?;
    s?!LAT?<a href="asu.html#lat">sitaattilaina latinasta</a>?;
    s?!NEN?<cite><a href="asu.html#nen">Voisiko -nen-lopun jättää pois adjektiiveista\?</a></cite>?;
    s?!BP?Ks. <cite><a href="asu.html#b">Vieras vai kotoinen kirjain\?</a></cite>?;
    s?!LOGIA?Sukulaissanoista ks. <a href="#logia">logia</a>.?;
    s?!ISMI?Sukulaissanoista ks. <a href="#ismi">ismi</a></cite>.?;
    s?!SH2?Kirjoitusasusta ks. <cite><a href="asu.html#sh">Suhuässä ja sen merkitseminen</a></cite>.</a>?;
    s?!SH?<a href="asu.html#sh" title="Suhuässä ja sen merkitseminen">Aiemmin s:n tilalla oli sh tai &#353;</a>?;
    s?!TR?Ks. <cite><a href="asu.html#tr">Konsonanttiyhdistelmien yksinkertaistuminen</a></cite>.?;
    s?\(biol\.?(biologiassa?;
    s?\(hist\.?(historiassa?;
    s?\(kem\.?(kemiassa?;
    s?\(lääket\.?(lääketieteessä?;
    s?\(mat\.?(matematiikassa?;
    s?\(mus\.?(musiikissa?;
    s?\(tekn\.?(tekniikassa?;
    s?\(urh\.?(urheilussa?;
    return $_; }

sub tiedosto {
    my $a = $_[0];
    return '"'.$alku.$map{$a}.$suff."#".$a; }