Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
why3
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
121
Issues
121
List
Boards
Labels
Service Desk
Milestones
Merge Requests
17
Merge Requests
17
Operations
Operations
Incidents
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
Why3
why3
Commits
3185e298
Commit
3185e298
authored
May 25, 2010
by
MARCHE Claude
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
solved configure pb with manager
parent
510df77f
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
43 additions
and
18 deletions
+43
-18
configure.in
configure.in
+1
-0
src/core/env.mli
src/core/env.mli
+11
-3
src/printer/gappa.ml
src/printer/gappa.ml
+28
-12
src/transform/explicit_polymorphism.ml
src/transform/explicit_polymorphism.ml
+3
-3
No files found.
configure.in
View file @
3185e298
...
...
@@ -306,6 +306,7 @@ dnl AC_SUBST(OCAMLWEB)
AC_SUBST(CAMLP5O)
AC_SUBST(enable_ide)
AC_SUBST(enable_proof_manager)
AC_SUBST(enable_plugins)
AC_SUBST(DYNLINK)
...
...
src/core/env.mli
View file @
3185e298
...
...
@@ -23,16 +23,24 @@ open Theory
type
env
val
env_tag
:
env
->
int
type
retrieve_theory
=
env
->
string
list
->
theory
Mnm
.
t
val
create_env
:
retrieve_theory
->
env
(** ??? *)
exception
TheoryNotFound
of
string
list
*
string
val
find_theory
:
env
->
string
list
->
string
->
theory
(** [find_theory e p n] finds the theory named [p.n] in environment
[e]
@raises [TheoryNotFound p n] if theory not present in env [e]
*)
val
env_tag
:
env
->
int
exception
TheoryNotFound
of
string
list
*
string
(** Parsers *)
...
...
src/printer/gappa.ml
View file @
3185e298
...
...
@@ -480,8 +480,31 @@ let gando = function
(* recognition of a Gappa predicate *)
let
is_le_num
_id
=
assert
false
(* true when id is <= on R or Z *)
let
prelude_to_load
=
ref
true
let
dummy_symbol
=
(
Obj
.
magic
0
:
Term
.
lsymbol
)
let
symbol_le_int
=
ref
dummy_symbol
let
symbol_le_real
=
ref
dummy_symbol
let
load_prelude
(
drv
:
Driver
.
driver_query
)
=
if
!
prelude_to_load
then
begin
let
env
=
Driver
.
query_env
drv
in
let
int_theory
=
Env
.
find_theory
env
[
"int"
]
"Int"
in
let
real_theory
=
Env
.
find_theory
env
[
"real"
]
"Real"
in
symbol_le_int
:=
Theory
.
ns_find_ls
int_theory
.
Theory
.
th_export
[
"infix <="
];
symbol_le_real
:=
Theory
.
ns_find_ls
real_theory
.
Theory
.
th_export
[
"infix <="
];
prelude_to_load
:=
false
;
end
(* true when id is <= on R or Z *)
let
is_le_num
id
=
ls_equal
id
!
symbol_le_int
||
ls_equal
id
!
symbol_le_real
let
is_ge_num
_id
=
assert
false
(* true when id is >= on R or Z *)
...
...
@@ -667,16 +690,8 @@ let process_goal _g = assert false
*)
let
print_decl
drv
_fmt
d
=
match
d
.
d_node
with
|
Dtype
_dl
->
assert
false
(*
print_list_opt newline (print_type_decl drv) fmt dl
*)
|
Dlogic
_dl
->
assert
false
(*
print_list_opt newline (print_logic_decl drv) fmt dl
*)
|
Dtype
_dl
->
false
|
Dlogic
_dl
->
false
|
Dind
_
->
unsupportedDecl
d
"gappa: inductive definition are not supported"
|
Dprop
(
Paxiom
,
pr
,
_
)
when
Driver
.
query_remove
drv
pr
.
pr_name
->
false
...
...
@@ -705,6 +720,7 @@ let print_task drv fmt task =
let
()
=
register_printer
"gappa"
(
fun
drv
fmt
task
->
load_prelude
drv
;
(*
forget_all ident_printer;
*)
...
...
src/transform/explicit_polymorphism.ml
View file @
3185e298
...
...
@@ -83,8 +83,8 @@ module Utils = struct
let
const
x
_
=
x
let
map_keys
m
=
Mty
.
fold
(
fun
key
value
acc
->
key
::
acc
)
m
[]
let
map_values
m
=
Mty
.
fold
(
fun
key
value
acc
->
value
::
acc
)
m
[]
let
map_keys
m
=
Mty
.
fold
(
fun
key
_
value
acc
->
key
::
acc
)
m
[]
let
map_values
m
=
Mty
.
fold
(
fun
_
key
value
acc
->
value
::
acc
)
m
[]
end
...
...
@@ -132,7 +132,7 @@ module Prelude = struct
(** [find_matching_vars tblT varM args_ty args_vars] matches [args_ty]
against [args_vars] to deduce a mapping from [args_vars] to lsymbols
through [tblT] and [varM] *)
let
find_matching_vars
tblT
varM
args_ty
args_vars
=
let
find_matching_vars
_
tblT
varM
args_ty
args_vars
=
let
tv_to_ty
=
Mtv
.
empty
in
let
mapping
=
List
.
fold_left2
ty_match
tv_to_ty
args_ty
args_vars
in
let
tv_to_lsymbol
=
Mtv
.
empty
in
(* result mapping *)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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