Shifted to stmt + SM

This commit is contained in:
Dmitry Boulytchev 2018-02-20 01:28:29 +03:00
parent 7a35fdf1eb
commit 9f9e912032
7 changed files with 118 additions and 66 deletions

View file

@ -15,10 +15,10 @@ all: .depend $(TOPFILE).opt
$(OCAMLDEP) $(PXFLAGS) *.ml > .depend
$(TOPFILE).opt: $(SOURCES:.ml=.cmx)
$(OCAMLOPT) -o $(TOPFILE).opt $(OFLAGS) $(LIBS:.cma=.cmxa) ostap.cmx Expr.cmx Embedding.cmx $(SOURCES:.ml=.cmx)
$(OCAMLOPT) -o $(TOPFILE).opt $(OFLAGS) $(LIBS:.cma=.cmxa) ostap.cmx Syntax.cmx Embedding.cmx SM.cmx $(SOURCES:.ml=.cmx)
$(TOPFILE).byte: $(SOURCES:.ml=.cmo)
$(OCAMLC) -o $(TOPFILE).byte $(BFLAGS) $(LIBS) ostap.cmo Expr.cmo Embedding.cmo $(SOURCES:.ml=.cmo)
$(OCAMLC) -o $(TOPFILE).byte $(BFLAGS) $(LIBS) ostap.cmo Syntax.cmo Embedding.cmo SM.cmo $(SOURCES:.ml=.cmo)
clean:
rm -Rf *.cmi *.cmo *.cmx *.annot *.o *.opt *.byte *~

View file

@ -1,5 +1,5 @@
open GT
open Expr
open Syntax.Expr
open Embedding
let state ps = List.fold_right (fun (x, v) s -> update x v s) ps empty