#!/usr/bin/perl -w
# $Id$
# Dieses Script (latex-links) wurde von Rdiger Beck erstellt
# Es ist freie Software
# Bei Fehlern wenden Sie sich bitte an mich.
# jeffbeck@web.de  oder  jeffbeck@gmx.de

# thist script reads the file 'links'
# and typesets that

# Bibliotheken
use strict;

use Getopt::Long;
Getopt::Long::Configure ("bundling");
use File::Find;
use coldformix;
# ==========================================================================



# Choose the Language: de, en
my $lang="de";

# Choose the Unit-System: si_symbol,
my $unit_system = "si_symbol";


my $symbol="";
my $number=0;
# ===========================================================================
# Optionen verarbeiten
# ==========================================================================
# Parsen der Optionen
my $testopt=GetOptions(
           "lang|l=s" => \$lang,
           "unit_system|u=s" => \$unit_system
          );


print "Language: $lang \n";
print "Unit_System: $unit_system \n";

# Prfen, ob Optionen erkannt wurden, sonst Abbruch
&coldformix::check_options($testopt);


my $link;
my $description;


#
if (not -e "../coldformix-generated/$lang/latex") {
    system("install -d ../coldformix-generated/$lang/latex");
}



open(IN,"<../data/reference/links");

#open(LATEXOUT,">../data/reference/generated-$lang/links.tex");
open(LATEXOUT,">../coldformix-generated/$lang/latex/links-$lang.tex");



while (<IN>){
    if ($_ eq ""){next;} # Wenn Zeile Leer, dann aussteigen
    if(/^\##/){next;} # Bei Kommentarzeichen aussteigen
    ($link,$description)=split(/::/);
       if(/^HEADER/){
   	  s/HEADER://g;
          s/^ //g;
          s/^ //g;
          print LATEXOUT " \\subsection*{$_:} \n";
       } else {
          print LATEXOUT "--- $description:  \n\n";
          print LATEXOUT "\\begin{verbatim} \n";
          print LATEXOUT "   $link \n";
          print LATEXOUT "\\end{verbatim} \n\n";

       }
}



