Skip to content
Snippets Groups Projects
Commit 52f682a7 authored by erwan's avatar erwan
Browse files

Fix: generate correct C code for lustre programs that have var names containing quotes

parent 96f545de
No related branches found
No related tags found
No related merge requests found
No preview for this file type
(* Time-stamp: <modified the 21/07/2017 (at 17:04) by Erwan Jahier> *)
(* Time-stamp: <modified the 22/05/2019 (at 09:43) by Erwan Jahier> *)
open Soc
let colcol = Str.regexp "::"
let prime = Str.regexp "'"
let id2s id = (* XXX Refuser les noms de module à la con plutot *)
let str =
match Str.split colcol id with
......@@ -14,6 +15,7 @@ let id2s id = (* XXX Refuser les noms de module à la con plutot *)
| _ -> id
in
let str = Str.global_replace colcol "_" str in
let str = Str.global_replace prime "_prime" str in
str
let long2s l = id2s (Lv6Id.string_of_long false l)
......
(* Time-stamp: <modified the 25/03/2018 (at 22:16) by Erwan Jahier> *)
(* Time-stamp: <modified the 22/05/2019 (at 09:37) by Erwan Jahier> *)
let dbg = (Lv6Verbose.get_flag "exec")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment