follow the api changes of Zed_char and Zed_string

Author: kandu

src/lTerm.ml

@@ -1164,7 +1164,7 @@ let render_style term buf old_point new_point =
 let render_point term buf old_point new_point =
   render_style term buf old_point new_point;
   (* Skip control characters, otherwise output will be messy. *)
-  if UChar.code new_point.LTerm_draw.char.core < 32 then
+  if UChar.code (Zed_char.core new_point.LTerm_draw.char) < 32 then
     Buffer.add_string buf unknown_utf8
   else
     Buffer.add_string buf (Zed_char_UTF8.of_t new_point.LTerm_draw.char)
@@ -1244,7 +1244,7 @@ let render_windows term kind handle_newlines matrix =
           else begin
             match !(Array.unsafe_get line i) with
             | LTerm_draw.Elem point->
-              let code = UChar.code point.LTerm_draw.char.core in
+              let code = UChar.code (Zed_char.core point.LTerm_draw.char) in
               if handle_newlines && code = 10 then begin
                 (* Copy styles. *)
                 Array.unsafe_set res i (windows_char_info term point yspace);
@@ -1345,7 +1345,7 @@ let print_box_with_newlines_unix term matrix =
     let rec loop x =
       match !(Array.unsafe_get line x) with
       | Elem point->
-        let code = UChar.code point.char.core in
+        let code = UChar.code (Zed_char.core point.char) in
         if x = cols then begin
           if code = 10 && y < rows - 1 then
             Buffer.add_char buf '\n'

src/lTerm_buttons_impl.ml

@@ -1,6 +1,6 @@
 (*
- * lTerm.ml
- * --------
+ * lTerm_buttons_impl.ml
+ * ---------------------
  * Copyright : (c) 2011, Jeremie Dimino <jeremie@dimino.org>
  * Licence   : BSD3
  *

src/lTerm_draw.ml

@@ -597,7 +597,7 @@ let char_of_piece = function
 
 let piece_of_point point=
   match !point with
-  | Elem elem-> piece_of_char elem.char.core
+  | Elem elem-> piece_of_char (Zed_char.core elem.char)
   | WidthHolder _-> None
 
 let draw_piece ctx row col ?style piece=

src/lTerm_text_impl.ml

@@ -20,7 +20,7 @@ module Make (LiteralIntf: LiteralIntf.Type) = struct
   let dummy = (Zed_char.unsafe_of_char ' ', LTerm_style.none)
 
   let of_string str=
-    Array.map (fun chr-> (chr, LTerm_style.none)) str.Zed_string.chars
+    Array.map (fun chr-> (chr, LTerm_style.none)) (Zed_string.chars str)
 
   let aval_width= function
     | Ok Zed_string.{len=_;width}-> width
@@ -54,7 +54,7 @@ module Make (LiteralIntf: LiteralIntf.Type) = struct
           let chr= Zed_string.get str idx in
           match Zed_char.prop chr with
           | Other->
-            let code= UChar.int_of (Zed_string.get str idx).core in
+            let code= UChar.int_of (Zed_char.core (Zed_string.get str idx)) in
             Array.unsafe_set arr (idx + 0)
               (Zed_char.unsafe_of_char '\\', LTerm_style.none);
             Array.unsafe_set arr (idx + 1)
@@ -102,7 +102,7 @@ module Make (LiteralIntf: LiteralIntf.Type) = struct
 
   let stylise str style =
     let str= Zed_string_UTF8.to_t_exn str in
-    Array.map (fun chr-> (chr, style)) str.chars
+    Array.map (fun chr-> (chr, style)) (Zed_string.chars str)
 
   (* +-----------------------------------------------------------------+
     | Parenthesis matching                                            |