Up
module
Strmatch
:
sig
#
module type
I =
sig
#
val
string_block_length :
Cmm
.
expression
->
Cmm
.
expression
#
val
transl_switch :
Cmm
.
expression
->
int
->
int
->
(int *
Cmm
.
expression
) list
->
Cmm
.
expression
->
Cmm
.
expression
end
#
module
Make :
functor
(I :
I
)
->
sig
#
val
compile :
Cmm
.
expression
->
Cmm
.
expression
option
->
(string *
Cmm
.
expression
) list
->
Cmm
.
expression
end
end