Commit 641c191b authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2003-11-20 11:24:57 by afrisch] Prep. pour CQL

Original author: afrisch
Date: 2003-11-20 11:24:57+00:00
parent 6d0fe0cf
...@@ -88,7 +88,7 @@ uninstall: ...@@ -88,7 +88,7 @@ uninstall:
# Source directories # Source directories
DIRS = misc parser schema typing types compile runtime driver DIRS = misc parser schema typing types compile runtime driver query
CLEAN_DIRS = $(DIRS) tools tests CLEAN_DIRS = $(DIRS) tools tests
# Objects to build # Objects to build
...@@ -125,7 +125,9 @@ OBJECTS = \ ...@@ -125,7 +125,9 @@ OBJECTS = \
compile/compile.cmo \ compile/compile.cmo \
compile/operators.cmo \ compile/operators.cmo \
\ \
types/builtin.cmo driver/librarian.cmo driver/cduce.cmo types/builtin.cmo driver/librarian.cmo driver/cduce.cmo \
\
query/query_parse.cmo
VALIDATE_OBJECTS := $(shell for o in $(OBJECTS); do echo $$o; if [ "$$o" = "schema/schema_parser.cmo" ]; then exit 0; fi; done) # all objects until schema_parser.cmo VALIDATE_OBJECTS := $(shell for o in $(OBJECTS); do echo $$o; if [ "$$o" = "schema/schema_parser.cmo" ]; then exit 0; fi; done) # all objects until schema_parser.cmo
...@@ -165,7 +167,7 @@ compute_depend: $(DEPEND_OCAMLDEP) ...@@ -165,7 +167,7 @@ compute_depend: $(DEPEND_OCAMLDEP)
@echo "Computing dependencies ..." @echo "Computing dependencies ..."
ocamlfind ocamldep -package "$(PACKAGES)" \ ocamlfind ocamldep -package "$(PACKAGES)" \
$(INCLUDES) $(SYNTAX_PARSER) $(DEPEND) | \ $(INCLUDES) $(SYNTAX_PARSER) $(DEPEND) | \
sed -e "s|: |: misc/q_symbol.cmo |" > depend sed -e "s|: |: misc/q_symbol.cmo |" > depend
clean: clean:
for i in $(CLEAN_DIRS); do \ for i in $(CLEAN_DIRS); do \
(cd $$i; rm -f *.cmi *.cmo *.cma *.cmx *.o *~); \ (cd $$i; rm -f *.cmi *.cmo *.cma *.cmx *.o *~); \
......
...@@ -577,6 +577,11 @@ EXTEND ...@@ -577,6 +577,11 @@ EXTEND
]; ];
END END
module Hook = struct
let expr = expr
let pat = pat
end
let pat = Grammar.Entry.parse pat let pat = Grammar.Entry.parse pat
and expr = Grammar.Entry.parse expr and expr = Grammar.Entry.parse expr
and prog = Grammar.Entry.parse prog and prog = Grammar.Entry.parse prog
......
...@@ -6,3 +6,11 @@ val prog : char Stream.t -> Ast.pmodule_item list ...@@ -6,3 +6,11 @@ val prog : char Stream.t -> Ast.pmodule_item list
val top_phrases : char Stream.t -> Ast.pmodule_item list val top_phrases : char Stream.t -> Ast.pmodule_item list
val sync : unit -> unit val sync : unit -> unit
(* Hooks to extend the syntax *)
module Hook: sig
val expr: Ast.pexpr Grammar.Entry.e
val pat: Ast.ppat Grammar.Entry.e
end
\ No newline at end of file
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