#!/usr/bin/perl
# ------------------------------------------------------------
# Dateiname:        $Source: /ma/miwa/CvsRepository/mjm/tools/bin/convert2shell.pl,v $
# Version:          $Revision: 1.1 $
# Datum angelegt:   17.07.1998
# Datum geaendert:  $Date: 2003/01/23 15:16:48 $
# Komponente:       MNPC_Tools
# Kommentar:        schreibt das input file nach stdout mit "\" an den Zeilenenden
#
# Autor 1:          Wolfgang Herbst, sd&m
# Autor 2:          $Author: wagner $
# Status:           $State: Exp $
# Copyright (c):    sd&m, Mai 1998
#   ---------------------------------------------------------


#---------------------------------
# Hauptprogramm
#---------------------------------

# check input params
if (!$ARGV[0])
{
    die "usage: convert2shell.pl <inputfile>"
}

# Lese input file
open (INPUT_FILE, $ARGV[0]);
@Zeilen = <INPUT_FILE>;

# Schleife über Zeilen
$LastLine="";
while ($Zeile = shift(@Zeilen))
{
	chomp ($Zeile);
	if ($Zeile && $LastLine)
	{
		print "$LastLine \\\n";
	}
	elsif ($LastLine)
	{
		print "$LastLine\n";
	}
	else
	{
		print "\n";
	}
	$LastLine = $Zeile;
}
print "$LastLine\n";
