This commit is contained in:
Achim D. Brucker 2005-10-20 17:36:34 +00:00
parent 103ed6b315
commit 3a4853ff76
2 changed files with 8 additions and 1 deletions

View File

@ -79,7 +79,7 @@ use "rep.sml";
(* support functions *)
use "ocl2string.sml"
use "ocl2string.sml";
(* ****************************************************** *)
(* Main Conversion Processes *)

View File

@ -22,6 +22,13 @@
* 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
******************************************************************************)
structure ocl2string =
struct
open Rep_OclType
open Rep_OclTerm
open Rep_Core
fun ocl2string show_types oclterm =
let
fun string_of_infix show_types src styp opname arg atyp rtyp