Commit bf7ec1d7 authored by David Hauzar's avatar David Hauzar

Getting string with counter-example model elements related to term

that triggers VC.
parent e4ef16a0
...@@ -227,6 +227,13 @@ let print_model_vc_term ...@@ -227,6 +227,13 @@ let print_model_vc_term
let model_elements = get_elements model_file line_number in let model_elements = get_elements model_file line_number in
print_model_elements ~sep me_name_trans fmt model_elements print_model_elements ~sep me_name_trans fmt model_elements
let model_vc_term_to_string
?(me_name_trans = why_name_trans)
?(sep = "\n")
model =
print_model_vc_term ~me_name_trans ~sep str_formatter model;
flush_str_formatter ()
let get_padding line = let get_padding line =
try try
let r = Str.regexp " *" in let r = Str.regexp " *" in
......
...@@ -144,6 +144,16 @@ val print_model_vc_term : ...@@ -144,6 +144,16 @@ val print_model_vc_term :
@model the counter-example model. @model the counter-example model.
*) *)
val model_vc_term_to_string :
?me_name_trans: ((string * model_element_type) -> string) ->
?sep: string ->
model ->
string
(** Gets string with counter-example model elements related to term that
triggers VC.
See print_model_vc_term
*)
val print_model_json : val print_model_json :
?me_name_trans:((string * model_element_type) -> string) -> ?me_name_trans:((string * model_element_type) -> string) ->
Format.formatter -> Format.formatter ->
......
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