Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Why3
why3
Commits
53c1a2d0
Commit
53c1a2d0
authored
Oct 02, 2010
by
Andrei Paskevich
Browse files
localize logical expressions in programs
parent
40805deb
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/programs/pgm_env.ml
View file @
53c1a2d0
...
...
@@ -174,10 +174,8 @@ let parse_string f loc s =
reloc
loc
lb
;
f
lb
let
logic_lexpr
((
pos
,
_
)
as
loc
,
s
)
=
let
e
=
parse_string
Lexer
.
parse_lexpr
pos
s
in
let
lab
=
Ident
.
label
~
loc
"annotation"
in
{
e
with
Ptree
.
pp_desc
=
Ptree
.
PPnamed
(
lab
,
e
)
}
let
logic_lexpr
((
pos
,
_
)
,
s
)
=
parse_string
Lexer
.
parse_lexpr
pos
s
let
logic_decls
((
loc
,
_
)
,
s
)
e
env
=
let
parse
=
Lexer
.
parse_list0_decl
e
Mnm
.
empty
env
.
uc
in
...
...
src/programs/pgm_typing.ml
View file @
53c1a2d0
...
...
@@ -203,8 +203,8 @@ let deffect env e =
List
.
map
(
fun
id
->
let
ls
,_,_
=
dexception
env
id
in
ls
)
e
.
Pgm_ptree
.
pe_raises
;
}
let
dterm
env
l
=
Typing
.
dterm
env
(
Pgm_env
.
logic_lexpr
l
)
let
dfmla
env
l
=
Typing
.
dfmla
env
(
Pgm_env
.
logic_lexpr
l
)
let
dterm
env
l
=
Typing
.
dterm
~
localize
:
true
env
(
Pgm_env
.
logic_lexpr
l
)
let
dfmla
env
l
=
Typing
.
dfmla
~
localize
:
true
env
(
Pgm_env
.
logic_lexpr
l
)
let
dpost
env
ty
(
q
,
ql
)
=
let
dexn
(
id
,
l
)
=
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment