#!/usr/bin/perl -w

require 5.000;
use lib '/usr/local/bin',"$ENV{HOME}/bin",'/usr/stud/loescher/bin';
use lib 'd:/bin','c:/mydos','c:/bin';
use slutil;
use English;


######################################################################
### Voreinstellungen
######################################################################

$version = '1.01';
$appname = 'EmuEdit';


######################################################################
### Hauptprogramm
######################################################################

&Hilfe if ($#ARGV<0);

$file = shift;

$file = '/' . lc $file;  # Kleinbuchstaben
$file =~ s|\\|/|g; # Slashes
$file =~ s/://g;   # Doppelpunkt

# CRLF nach LF wandeln
{
  # undef $/;
  local $/ = undef;
  open(FILE, $file) || die "Kann '$file' nicht lesen!\n";
  $text = <FILE>;
  close FILE;
}
$text =~ s/\015\012/\012/g;
open(FILE, ">$file") || die "Kann '$file' nicht schreiben!\n";
print FILE $text;
close FILE;

exec("$ENV{EDITOR} $file");

######################################################################
### Unterprogramme
######################################################################

sub Kopf
{
  my $head = "$appname $version   -   von Stephan Löscher";
  return "\n$head\n" . '~' x length($head) . "\n";
}


sub Hilfe
{
#  printumlautepaged
  printumlaute
  Kopf().
"Syntax: emuedit filename

Verwendung:
Im DOSEMU kann emuedit durch das Kommando: unix emuedit 'filename'
verwendet werden. Es wird der DOS-Filename auf einen Unix-Namen abgebildet,
CRLF nach LF gewandelt und dann \$EDITOR gestartet.
Beispiel: unix emuedit 'E:\UTIL\YARN\LETTER.SND' startet
\$EDITOR /e/util/yarn/letter.snd

Hilfreich ist unter DOSEMU eine Batchdatei z.B. 'ed.bat' derart:
\@echo off
unix emuedit '%1'

";
exit;
}