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:
# 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
# Objects to build
......@@ -125,7 +125,9 @@ OBJECTS = \
compile/compile.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
......@@ -165,7 +167,7 @@ compute_depend: $(DEPEND_OCAMLDEP)
@echo "Computing dependencies ..."
ocamlfind ocamldep -package "$(PACKAGES)" \
$(INCLUDES) $(SYNTAX_PARSER) $(DEPEND) | \
sed -e "s|: |: misc/q_symbol.cmo |" > depend
sed -e "s|: |: misc/q_symbol.cmo |" > depend
clean:
for i in $(CLEAN_DIRS); do \
(cd $$i; rm -f *.cmi *.cmo *.cma *.cmx *.o *~); \
......
......@@ -577,6 +577,11 @@ EXTEND
];
END
module Hook = struct
let expr = expr
let pat = pat
end
let pat = Grammar.Entry.parse pat
and expr = Grammar.Entry.parse expr
and prog = Grammar.Entry.parse prog
......
......@@ -6,3 +6,11 @@ val prog : char Stream.t -> Ast.pmodule_item list
val top_phrases : char Stream.t -> Ast.pmodule_item list
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