Commit 4d2f4241 authored by Pietro Abate's avatar Pietro Abate

[r2002-11-17 09:28:21 by cvscast] Empty log message

Original author: cvscast
Date: 2002-11-17 09:28:22+00:00
parent b0b4a9e7
......@@ -117,6 +117,7 @@ profile:
fi; \
done; \
done
cp parser/wlexer.mll prepro/parser/
cp Makefile depend prepro/
(cd prepro; make cduce OCAMLCP="ocamlcp -p a" SYNTAX_PARSER=)
......
type T = [ `A? `B? `C? `D? `E? `F? `G? `H? `I? `J?
`K? `L? `M? `N? `O? `P? `Q? `R? ];;
`K? `L? `M? `N? `O? `P? `Q? `R? ];;
(*
let fun f (Any -> T) T & x -> x | x -> f x;;
debug compile Any T;;
*)
(*
debug compile T
......
......@@ -54,7 +54,7 @@ let mk' =
id = !counter;
loc' = loc;
fv = None;
descr' = `Alias ("__dummy__", x);
descr' = `Alias ("__dummy__", x);
type_node = None;
pat_node = None
} in
......@@ -127,7 +127,7 @@ module Regexp = struct
let rec compile fin e seq : [`Res of Ast.ppat | `Empty] =
if Coind.mem seq !e then `Empty
else (
e := Coind.add seq !e;
e := Coind.add seq !e;
match seq with
| [] ->
`Res fin
......
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