vlna: Use binary mode for output files (from W32TeX)

git-svn-id: svn://tug.org/texlive/trunk@26977 c570f23f-e606-0410-a88d-b1316a301751

6 files changed, 32 insertions, 6 deletions

diff --git a/Build/source/utils/vlna/vlna-1.5-PATCHES/ChangeLog b/Build/source/utils/vlna/vlna-1.5-PATCHES/ChangeLog
index 64e27dced7e..ab84073218d 100644
--- a/Build/source/utils/vlna/vlna-1.5-PATCHES/ChangeLog
+++ b/Build/source/utils/vlna/vlna-1.5-PATCHES/ChangeLog
@@ -1,3 +1,8 @@
+2012-05-16  Peter Breitenlohner  <peb@mppmu.mpg.de>
+
+	* patch-04-write-bin (new): Use binary mode for output files.
+	From Akira Kakuto <kakuto@fuk.kindai.ac.jp> (W32TeX).
+
 2011-05-02  Peter Breitenlohner  <peb@mppmu.mpg.de>
 
 	* patch-0[123]-warnings (new): Document changes applied to the
diff --git a/Build/source/utils/vlna/vlna-1.5-PATCHES/patch-04-write-bin b/Build/source/utils/vlna/vlna-1.5-PATCHES/patch-04-write-bin
new file mode 100644
index 00000000000..1948ab247bd
--- /dev/null
+++ b/Build/source/utils/vlna/vlna-1.5-PATCHES/patch-04-write-bin
@@ -0,0 +1,21 @@
+diff -ur -x vlna.c -x vlna.dvi -x vlna.idx -x vlna.scn -x vlna.tex vlna-1.5.orig/vlna.w vlna-1.5/vlna.w
+--- vlna-1.5.orig/vlna.w	2011-05-02 16:02:38.000000000 +0200
++++ vlna-1.5/vlna.w	2012-06-16 18:43:33.000000000 +0200
+@@ -226,7 +226,7 @@
+   infile = stdin; outfile = stdout;
+   if (argc >= 2) infile = fopen (argv[1], "r");
+   if (infile == NULL)  ioerr (argv[1]), exit (IO_ERR);
+-  if (argc == 3) outfile = fopen(argv[2], "w");
++  if (argc == 3) outfile = fopen(argv[2], "wb");
+   if (outfile == NULL) ioerr (argv[2]), exit (IO_ERR);
+   if (argc >= 2) filename = argv[1];
+   else filename = NULL;
+@@ -252,7 +252,7 @@
+      if (infile == NULL) {
+        ioerr (argv[0]); continue;
+      }
+-     outfile = fopen (argv[0], "w");
++     outfile = fopen (argv[0], "wb");
+      if (outfile == NULL) {
+        ioerr (argv[0]);
+        rename (backup, argv[0]); 
diff --git a/Build/source/utils/vlna/vlna-1.5/vlna.w b/Build/source/utils/vlna/vlna-1.5/vlna.w
index 08a7588ecc6..8062a128b50 100644
--- a/Build/source/utils/vlna/vlna-1.5/vlna.w
+++ b/Build/source/utils/vlna/vlna-1.5/vlna.w
@@ -226,7 +226,7 @@ příkazové řádce:
   infile = stdin; outfile = stdout;
   if (argc >= 2) infile = fopen (argv[1], "r");
   if (infile == NULL)  ioerr (argv[1]), exit (IO_ERR);
-  if (argc == 3) outfile = fopen(argv[2], "w");
+  if (argc == 3) outfile = fopen(argv[2], "wb");
   if (outfile == NULL) ioerr (argv[2]), exit (IO_ERR);
   if (argc >= 2) filename = argv[1];
   else filename = NULL;
@@ -252,7 +252,7 @@ program se ukončí s~chybou.
      if (infile == NULL) {
        ioerr (argv[0]); continue;
      }
-     outfile = fopen (argv[0], "w");
+     outfile = fopen (argv[0], "wb");
      if (outfile == NULL) {
        ioerr (argv[0]);
        rename (backup, argv[0]); 
diff --git a/Build/source/utils/vlna/vlna.c b/Build/source/utils/vlna/vlna.c
index 83e07380fcf..43a9ccb31cb 100644
--- a/Build/source/utils/vlna/vlna.c
+++ b/Build/source/utils/vlna/vlna.c
@@ -797,7 +797,7 @@ if(argc> 3)printusage(),exit(BAD_OPTIONS);
 infile= stdin;outfile= stdout;
 if(argc>=2)infile= fopen(argv[1],"r");
 if(infile==NULL)ioerr(argv[1]),exit(IO_ERR);
-if(argc==3)outfile= fopen(argv[2],"w");
+if(argc==3)outfile= fopen(argv[2],"wb");
 if(outfile==NULL)ioerr(argv[2]),exit(IO_ERR);
 if(argc>=2)filename= argv[1];
 else filename= NULL;
@@ -839,7 +839,7 @@ if(j==0)infile= fopen(backup,"r");
 if(infile==NULL){
 ioerr(argv[0]);continue;
 }
-outfile= fopen(argv[0],"w");
+outfile= fopen(argv[0],"wb");
 if(outfile==NULL){
 ioerr(argv[0]);
 rename(backup,argv[0]);
diff --git a/Build/source/utils/vlna/vlna.dvi b/Build/source/utils/vlna/vlna.dvi
index 1c73f879a85..334f496c8d9 100644
--- a/Build/source/utils/vlna/vlna.dvi
+++ b/Build/source/utils/vlna/vlna.dvi
diff --git a/Build/source/utils/vlna/vlna.tex b/Build/source/utils/vlna/vlna.tex
index 99ee1f10e80..1e2660c1bae 100644
--- a/Build/source/utils/vlna/vlna.tex
+++ b/Build/source/utils/vlna/vlna.tex
@@ -305,7 +305,7 @@ ${}\\{infile}\K\\{fopen}(\\{argv}[\T{1}],\39\.{"r"});{}$\2\6
 \&{if} ${}(\\{infile}\E\NULL){}$\1\5
 ${}\\{ioerr}(\\{argv}[\T{1}]),\39\\{exit}(\.{IO\_ERR});{}$\2\6
 \&{if} ${}(\\{argc}\E\T{3}){}$\1\5
-${}\\{outfile}\K\\{fopen}(\\{argv}[\T{2}],\39\.{"w"});{}$\2\6
+${}\\{outfile}\K\\{fopen}(\\{argv}[\T{2}],\39\.{"wb"});{}$\2\6
 \&{if} ${}(\\{outfile}\E\NULL){}$\1\5
 ${}\\{ioerr}(\\{argv}[\T{2}]),\39\\{exit}(\.{IO\_ERR});{}$\2\6
 \&{if} ${}(\\{argc}\G\T{2}){}$\1\5
@@ -344,7 +344,7 @@ ${}\{{}$\1\6
 \\{ioerr}(\\{argv}[\T{0}]);\6
 \&{continue};\6
 \4${}\}{}$\2\6
-${}\\{outfile}\K\\{fopen}(\\{argv}[\T{0}],\39\.{"w"});{}$\6
+${}\\{outfile}\K\\{fopen}(\\{argv}[\T{0}],\39\.{"wb"});{}$\6
 \&{if} ${}(\\{outfile}\E\NULL){}$\5
 ${}\{{}$\1\6
 \\{ioerr}(\\{argv}[\T{0}]);\6