Commit 8dfc863f authored by Kim Nguyễn's avatar Kim Nguyễn

Multiple application test.

parent 9c70e7b8
......@@ -17,3 +17,4 @@ true: -traverse
<tests/libtest/*Test.*>: pp(camlp4orf.opt), package(netstring), package(pcre), package(oUnit), package(ulex), package(num), package(camlp4.lib)
<tests/eval/src/main.*>: pp(camlp4orf.opt), package(netstring), package(pcre), package(oUnit), package(ulex), package(num), package(camlp4.lib)
<kim*.native>: pp(camlp4orf.opt), package(netstring), package(pcre), package(oUnit), package(ulex), package(num), package(camlp4.lib)
This diff is collapsed.
#!/bin/sh
PREF=0
# echo "let funs_h0 = ["
for i in `seq 1 20`
do
echo -n '"'
for j in `seq 1 $i`
do
echo -n '`$A'${PREF}${j}' -> '
done
echo 'Int", ['
for j in `seq 1 $i`
do
echo '"`$B'${PREF}${j}'";'
#echo '"Int";'
done
echo "];"
PREF=$(($PREF + 1 ))
done
echo "];;"
exit 0
echo "let funs_hh = ["
for i in `seq 1 15`
do
echo -n '"( `$A'${PREF}1' -> `$B'${PREF}1' ) '
for j in `seq 2 $i`
do
echo -n '-> ( `$A'${PREF}${j}' -> `$B'${PREF}${j}' ) '
done
echo -n '-> `$A'${PREF}1' '
for j in `seq 2 $i`
do
echo -n '-> `$A'${PREF}${j}' '
done
echo -n ' -> ('
echo -n '`$B'${PREF}1
for j in `seq 2 $i`
do
echo -n ', `$B'${PREF}${j}
done
echo ')", ['
for j in `seq 1 $i`
do
echo '" (`$C'${PREF}${j}' -> `$D'${PREF}${j}' ) ";' # & (`$E'${PREF}${j}' -> `$F'${PREF}${j}') ";'
done
for j in `seq 1 $i`
do
echo '" (`$C'${PREF}${j}' )";' # |`$E'${PREF}${j}') ";'
done
echo "];"
PREF=$(($PREF + 1 ))
done
echo "]"
This diff is collapsed.
......@@ -10,7 +10,7 @@ module BoolChars : BoolVar.S with
type s = Chars.t and
type elem = Chars.t Var.pairvar
type const =
type const =
| Integer of Intervals.V.t
| Atom of Atoms.V.t
| Char of Chars.V.t
......@@ -21,7 +21,7 @@ type const =
type service_params =
| TProd of service_params * service_params
| TOption of service_params
| TOption of service_params
| TList of string * service_params
| TSet of service_params
| TSum of service_params * service_params
......@@ -29,17 +29,17 @@ type service_params =
| TInt of string
| TInt32 of string
| TInt64 of string
| TFloat of string
| TFloat of string
| TBool of string
| TFile of string
(* | TUserType of string * (string -> 'a) * ('a -> string) *)
| TCoord of string
| TCoord of string
| TCoordv of service_params * string
| TESuffix of string
| TESuffix of string
| TESuffixs of string
(* | TESuffixu of (string * (string -> 'a) * ('a -> string)) *)
| TSuffix of (bool * service_params)
| TUnit
| TUnit
| TAny
| TConst of string;;
......@@ -85,7 +85,7 @@ include Custom.T
module Node : Custom.T
module Pair : Bool.S with type elem = (Node.t * Node.t)
module BoolPair : BoolVar.S with type s = Pair.t and type elem = Pair.t Var.pairvar
module BoolPair : BoolVar.S with type s = Pair.t and type elem = Pair.t Var.pairvar
module Rec : Bool.S with type elem = bool * Node.t Ident.label_map
module BoolRec : BoolVar.S with type s = Rec.t and type elem = Rec.t Var.pairvar
......@@ -184,7 +184,7 @@ module Product : sig
val pi1: t -> descr
val pi2: t -> descr
val pi2_restricted: descr -> t -> descr
(* Intersection with (pi1,Any) *)
val restrict_1: t -> descr -> t
......@@ -366,7 +366,7 @@ module Tallying : sig
exception Step2Fail
module CS : sig
module M : sig
module M : sig
include Map.S with type key = (bool * Var.var)
val print : Format.formatter -> descr t -> unit
end
......@@ -411,3 +411,5 @@ module Tallying : sig
end
val apply : t -> t -> Tallying.CS.sl
val apply_full : t -> t -> t
val apply_raw : t -> t -> Tallying.CS.sl * (t*t)
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