diff options
Diffstat (limited to 'src/smtlib2/sExpr.ml')
-rw-r--r-- | src/smtlib2/sExpr.ml | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/src/smtlib2/sExpr.ml b/src/smtlib2/sExpr.ml new file mode 100644 index 0000000..b130d45 --- /dev/null +++ b/src/smtlib2/sExpr.ml @@ -0,0 +1,20 @@ +(**************************************************************************) +(* *) +(* SMTCoq *) +(* Copyright (C) 2011 - 2019 *) +(* *) +(* See file "AUTHORS" for the list of authors *) +(* *) +(* This file is distributed under the terms of the CeCILL-C licence *) +(* *) +(**************************************************************************) + + +type t = Atom of string | List of t list + +let rec print fmt = function + | Atom s -> Format.pp_print_string fmt s + | List l -> + Format.fprintf fmt "(@[<hov 2>"; + List.iter (Format.fprintf fmt "%a " print) l; + Format.fprintf fmt "@])" |