#!/usr/bin/perl -w
# $Id$
# Dieses Script (latex-vocabulary) 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 a vapour-table from coolpack-output
# and converts it to a latex-table

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


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


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


print "Language: $lang \n";

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


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

my %trans = &coldformix::get_trans();

#print "$trans{'Enthalpie'}{'en'}\n";
#printing the national psfrag-file
open(PSFRAG,">../coldformix-generated/$lang/latex/psfrag-vocabulary-$lang.tex");

############################################################
# reading the database
while (my ($name, $hashref) = each %trans) {
#    my $sym=$trans{$name}{si_symbol};
    my $translation="";
    my $psfrag_line="";
    my $tag="";
    if ($trans{$name}{psfrag}==1){
	my $name=$trans{$name}{de};
	if (defined $trans{$name}{$lang} and $trans{$name}{$lang} ne ""){
           $translation=$trans{$name}{$lang};
        } else {
           $translation ="\\textcolor{red}{$name(de)}"
        }
        if (defined $trans{$name}{tagname} and $trans{$name}{tagname} ne ""){
            $tag=$trans{$name}{tagname};
       } else {
           $tag=$name;
       }
       my $psfrag_line="\\psfrag{".$tag."}[cc][cc]{".$translation."}\n";
       print PSFRAG $psfrag_line;
       print $psfrag_line;
    }
}
############################################################

close PSFRAG;



############################################################
# SUB
############################################################
