#!/usr/bin/perl
# Perl script for converting gismu list file (v.1994) into LATEX format
# usage: g2tex < inputfilename > outputfilename
# Evgueni Sklyanin, version 1999:05:16
#

open(INPUT,'-');
open(OUTPUT,'>-');

$line=<INPUT>;
while ($line = <INPUT>) {
 $gismu = substr($line, 0,5); 
 $rafsi = substr($line, 6,12);$rafsi=~ s/^\s+//;$rafsi=~ s/\s+$//; 
 $key   = substr($line,19,20);$key=~ s/^\s+//;$key=~ s/\s+$//; 
 $alias = substr($line,40,20);$alias=~ s/^\s+//;$alias=~ s/\s+$//; 
 $body  = substr($line,61,96);$body=~ s/^\s+//;$body=~ s/\s+$//; 
 $comm  = substr($line,168);chop($comm);$comm=~ s/^\s+//;$comm=~ s/\s+$//; 
 $line = "\\g{".$gismu."}{".$rafsi."}{".$key."}{}{".$body."}{".$comm."}";
  $line =~ s/%/\\%/g;
  $line =~ s/#/\\#/g;
  $line =~ s/&/\\&/g;
  $line =~ s/1\/1([0-9]+)/\$1\/1\1\$/g;
  $line =~ s/1\*1/1x1/g;
  $line =~ s/1x10\*\*([0-9]+)/\$1\\times10\^{\1}\$/g;
  $line =~ s/1x10\*\*-([0-9]+)/\$1\\times10\^{-\1}\$/g;
  $line =~ s/x1/\\xa\\ /g;
  $line =~ s/x2/\\xb\\ /g;
  $line =~ s/x3/\\xc\\ /g;
  $line =~ s/x4/\\xd\\ /g;
  $line =~ s/x5/\\xe\\ /g;
  $line =~ s/\//\\s /g;
  $line =~ s/\$([0-9]+)\\s ([0-9]+)\$/\$\1\/\2\$/g;
  $line =~ s/cf\./cf.\\/g;
  $line =~ s/ +/ /g;
 print OUTPUT $line,"\n";
}


close(INPUT);
close(OUTPUT);