Up
module
Js_simpl
:
sig
#
val
if_statement :
Javascript
.
expression
->
Javascript
.
location
->
Javascript
.
statement
*
Javascript
.
location
->
bool
->
Javascript
.
statement
*
Javascript
.
location
->
bool
->
(
Javascript
.
statement
*
Javascript
.
location
) list
#
val
get_variable :
Code
.
VarSet
.
t
->
Javascript
.
expression
->
Code
.
VarSet
.
t
#
val
block : (
Javascript
.
statement
*
Javascript
.
location
) list
->
Javascript
.
statement
*
Javascript
.
location
#
val
unblock :
Javascript
.
statement
*
Javascript
.
location
->
(
Javascript
.
statement
*
Javascript
.
location
) list
end