#!/usr/bin/perl
#
# Author: Peter Keel <seegras@discordia.ch>
# Version: 1.0, Sat 11 Jan 2003
#
# Wandelt ASCII-Texte so um, dass sie in Latex importiert werden können. 
# Die meisten Zeichen fehlen noch. 
# 

die "Usage: $0 filename\n" unless($ARGV[0]);

open(IN_FILE,"<$ARGV[0]") || die "Cannot open $ARGV[0] for input\n";
while(<IN_FILE>){
	$_ =~ s/\"/\'\'a/g;
	$_ =~ s/ä/\"a/g;
	$_ =~ s/Ä/\"A/g;
	$_ =~ s/ö/\"o/g;
	$_ =~ s/Ö/\"O/g;
	$_ =~ s/ü/\"u/g;
	$_ =~ s/Ü/\"U/g;
	$_ =~ s/ï/\"i/g;
	$_ =~ s/Ï/\"I/g;
	$_ =~ s/ÿ/\"y/g;
	$_ =~ s/ë/\"e/g;
	$_ =~ s/Ë/\"E/g;
	$_ =~ s/\~/\$\\sim\$/g;
	$_ =~ s/\\/\$\\backslash\$/g;
	$_ =~ s/\&/\\&/g;
	$_ =~ s/\#/\\#/g;
	$_ =~ s/\*/\$\\ast\$/g;
	$_ =~ s/\|/\$\\vert\$/g;
	$_ =~ s/\>/\$\>\$/g;
	$_ =~ s/\</\$\<\$/g;
	$_ =~ s/\[/\$\[\$/g;
	$_ =~ s/\]/\$\]\$/g;
	$_ =~ s/\{/\\{/g;
	$_ =~ s/\}/\\}/g;
      print($_);
   }
close IN;