Commit 943e400c authored by gerd's avatar gerd

Hope this makes insert_variant working under Cygwin.


git-svn-id: https://godirepo.camlcity.org/svn/lib-pxp/trunk@312 dbe99aee-44db-0310-b2b3-d33182c8eb97
parent 17572f07
......@@ -3,7 +3,7 @@
exec ocaml "$0" "$@"
*) directory ".";;
(* $Id: insert_variant,v 1.2 2000/05/20 21:14:33 gerd Exp $
(* $Id: insert_variant,v 1.3 2001/04/21 17:41:57 gerd Exp $
* ----------------------------------------------------------------------
*
*)
......@@ -37,7 +37,7 @@ let edit_file variant name =
if String.length line >= 8 & String.sub line 0 8 = "#insert " then begin
let insname = get_arg variant line in
(* Copy the file 'insname' to chout *)
let chcopy = open_in insname in
let chcopy = open_in_bin insname in
let n = in_channel_length chcopy in
let s = String.create n in
really_input chcopy s 0 n;
......@@ -92,6 +92,9 @@ main();;
* History:
*
* $Log: insert_variant,v $
* Revision 1.3 2001/04/21 17:41:57 gerd
* Hope this makes insert_variant working under Cygwin.
*
* Revision 1.2 2000/05/20 21:14:33 gerd
* Workaround for an OCaml 3.00 bug.
*
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment