Correct some typos

src/ast_to_c.ml

@@ -258,7 +258,7 @@ let cp_init_aux_nodes fmt (node, h) =
 let cp_equations fmt (eqs, hloc, h) =
   (** [main_block] is modified through some optimization passes, eg:
     * - merge two CIf blocks using the same condition
-    * - replace [if (! c) { b1 } else {b2 }] by [if(c) { b2 } else { b1 }]
+    * - replace [if (! c) { b1 } else { b2 }] by [if(c) { b2 } else { b1 }]
     *
     *  These passes are defined in [ctranslation.ml]
       *)

src/cprint.ml

@@ -3,7 +3,7 @@ open Intermediate_ast
 open Ast
 open Cast
 
-(** This file contains extrimely simple functions printing C code. *)
+(** This file contains extremely simple functions printing C code. *)
 
 let rec cp_includes fmt = function
   | [] -> ()
@@ -77,7 +77,7 @@ let rec cp_varlist fmt vl =
 
 let cp_prototype fmt (node, h): unit =
   match Hashtbl.find_opt h node.in_name with
-  | None -> failwith "This should not happend!"
+  | None -> failwith "This should not happened!"
   | Some nst ->
       begin
         Format.fprintf fmt "void fn_%s (%s *state, %a)"
@@ -164,7 +164,7 @@ and cp_expression fmt (expr, hloc) =
       Format.fprintf fmt "%sstate->%s[%d] = %a;\n"
         prefix arr idx cp_value (value, hloc)
     end
-  | CAssign (CVInput _, _) -> failwith "should not happend."
+  | CAssign (CVInput _, _) -> failwith "should not happened."
   | CSeq (e, e') ->
       Format.fprintf fmt "%a%a"
         cp_expression (e, hloc)

src/ctranslation.ml

@@ -67,7 +67,7 @@ let rec equation_to_expression (node_st, node_sts, (vl, expr)) =
           vl
         in
       CApplication (node.n_name,i , al, vl, node_sts)
-  | IETuple _ -> failwith "[ctranslation.ml] linearisatiosn should have transformed you."
+  | IETuple _ -> failwith "[ctranslation.ml] linearization should have transformed you."
   | IEWhen  (expr, cond) ->
     begin
       CIf (iexpression_to_cvalue cond,

src/lustre_pp.ml

@@ -70,7 +70,7 @@ let pp_expression =
         begin match c with
         | CBool b -> Format.fprintf fmt "\t\t\t%s<%s : bool>\n" prefix (Bool.to_string b)
         | CInt i ->  Format.fprintf fmt "\t\t\t%s<%5d: int>\n" prefix i
-        | CReal r -> Format.fprintf fmt "\t\t\t%s<%5f: float>\n" prefix r
+        | CReal r -> Format.fprintf fmt "\t\t\t%s<%5f: real>\n" prefix r
         end
     | EVar (_, IVar v) -> Format.fprintf fmt "\t\t\t%s<int var %s>\n" prefix v
     | EVar (_, BVar v) -> Format.fprintf fmt "\t\t\t%s<bool var %s>\n" prefix v