f80d9fe585
Use pkgsrc ocaml-csv instead of severely outdated included copy. Note: there's a new(er) upstream version, from 2008 instead of 2006, but I'm having problems building it. If anyone uses this and is interested in the update, let me know.
34 lines
1.1 KiB
OCaml
34 lines
1.1 KiB
OCaml
$NetBSD: patch-extern_iCalendar_iCalendar.ml,v 1.1 2018/03/14 06:27:21 dholland Exp $
|
|
|
|
Fix build with ocaml 4.06.
|
|
|
|
--- extern/iCalendar/iCalendar.ml~ 2006-05-21 19:17:46.000000000 +0000
|
|
+++ extern/iCalendar/iCalendar.ml
|
|
@@ -1,13 +1,13 @@
|
|
let read get_char =
|
|
let lex_func s n =
|
|
- let l = String.length s in
|
|
+ let l = Bytes.length s in
|
|
let cur_pos = ref 0 in
|
|
let nb_chars () = !cur_pos in
|
|
let should_stop () = (n - !cur_pos) < 3 in (* enough to put \r\n c*)
|
|
let store_string_char c =
|
|
if !cur_pos >= l then failwith "string given by lexbuf is too short !"
|
|
else begin
|
|
- String.unsafe_set s (!cur_pos) c;
|
|
+ Bytes.unsafe_set s (!cur_pos) c;
|
|
incr cur_pos
|
|
end
|
|
in
|
|
@@ -102,9 +102,9 @@ let chars_from_str inc =
|
|
|
|
let read_file inc =
|
|
let len = in_channel_length inc in
|
|
- let buf = String.create len in
|
|
+ let buf = Bytes.create len in
|
|
really_input inc buf 0 len;
|
|
- buf
|
|
+ Bytes.to_string buf
|
|
|
|
let iCalReader inc outc =
|
|
let s = V.string_of_t (Ical.view_from_icalendar (read (chars_from_str inc))) in
|