2 files changed, 65 insertions, 0 deletions
diff --git a/msdos/eg/crlf.bat b/msdos/eg/crlf.bat
new file mode 100644
index 0000000000..24d73661b9
--- /dev/null
+++ b/msdos/eg/crlf.bat
@@ -0,0 +1,32 @@
+@REM=("
+@perl %0.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
+@end ") if 0 ;
+
+# Convert all the files in the current directory from unix to MS-DOS
+# line ending conventions.
+#
+# By Diomidis Spinellis
+#
+open(FILES, 'find . -print |');
+while ($file = <FILES>) {
+	$file =^ s/[\n\r]//;
+	if (-f $file) {
+		if (-B $file) {
+			print STDERR "Skipping binary file $file\n";
+			next;
+		}
+		($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime,
+ $blksize, $blocks) = stat($file);
+		open(IFILE, "$file");
+		open(OFILE, ">xl$$");
+		while (<IFILE>) {
+			print OFILE;
+		}
+		close(OFILE) || die "close xl$$: $!\n";
+		close(IFILE) || die "close $file: $!\n";
+		unlink($file) || die "unlink $file: $!\n";
+		rename("xl$$", $file) || die "rename(xl$$, $file): $!\n";
+		chmod($mode, $file) || die "chmod($mode, $file: $!\n";
+		utime($atime, $mtime, $file) || die "utime($atime, $mtime, $file): $!\n";
+	}
+}
diff --git a/msdos/eg/lf.bat b/msdos/eg/lf.bat
new file mode 100644
index 0000000000..9c13eef840
--- /dev/null
+++ b/msdos/eg/lf.bat
@@ -0,0 +1,33 @@
+@REM=("
+@perl %0.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
+@end ") if 0 ;
+
+# Convert all the files in the current directory from MS-DOS to unix
+# line ending conventions.
+#
+# By Diomidis Spinellis
+#
+open(FILES, 'find . -print |');
+while ($file = <FILES>) {
+	$file =^ s/[\n\r]//;
+	if (-f $file) {
+		if (-B $file) {
+			print STDERR "Skipping binary file $file\n";
+			next;
+		}
+		($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime,
+ $blksize, $blocks) = stat($file);
+		open(IFILE, "$file");
+		open(OFILE, ">xl$$");
+		binmode OFILE || die "binmode xl$$: $!\n";
+		while (<IFILE>) {
+			print OFILE;
+		}
+		close(OFILE) || die "close xl$$: $!\n";
+		close(IFILE) || die "close $file: $!\n";
+		unlink($file) || die "unlink $file: $!\n";
+		rename("xl$$", $file) || die "rename(xl$$, $file): $!\n";
+		chmod($mode, $file) || die "chmod($mode, $file: $!\n";
+		utime($atime, $mtime, $file) || die "utime($atime, $mtime, $file): $!\n";
+	}
+}