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
119
Issues
119
List
Boards
Labels
Service Desk
Milestones
Merge Requests
16
Merge Requests
16
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
ed9c52d3
Commit
ed9c52d3
authored
Sep 23, 2010
by
MARCHE Claude
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
db more
parent
bc8f514c
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
36 additions
and
17 deletions
+36
-17
src/ide/db.ml
src/ide/db.ml
+30
-16
src/ide/db.mli
src/ide/db.mli
+6
-1
No files found.
src/ide/db.ml
View file @
ed9c52d3
...
...
@@ -240,8 +240,19 @@ let subgoals t = t.subgoals
type
theory
let
theory_name
_
=
assert
false
let
goals
_
=
assert
false
let
verified
_
=
assert
false
let
init_base
_
=
assert
false
let
files
_
=
assert
false
type
file
let
file_name
_
=
assert
false
let
theories
_
=
assert
false
...
...
@@ -1064,23 +1075,26 @@ let root_goals () =
*)
let
add_file
_
=
assert
false
let
add_theory
_
=
assert
false
let
add_goal
_
=
assert
false
let
add_transformation
_
=
assert
false
let
set_edited_as
_
=
assert
false
let
set_obsolete
_
=
assert
false
let
set_status
_
=
assert
false
let
add_proof_attempt
_
=
assert
false
let
prover_from_name
_
=
assert
false
let
prover_from_name
n
=
let
db
=
current
()
in
try
ProverId
.
get
db
n
with
Not_found
->
ProverId
.
add
db
n
let
transf_from_name
_n
=
assert
false
exception
AlreadyExist
let
files
_
=
assert
false
let
init_base
_
=
assert
false
let
theories
_
=
assert
false
let
file_name
_
=
assert
false
let
verified
_
=
assert
false
let
goals
_
=
assert
false
let
theory_name
_
=
assert
false
let
add_proof_attempt
_
=
assert
false
let
set_status
_
=
assert
false
let
set_obsolete
_
=
assert
false
let
set_edited_as
_
=
assert
false
let
add_transformation
_
=
assert
false
let
add_goal
_
=
assert
false
let
add_theory
_
=
assert
false
let
add_file
_
=
assert
false
(*
...
...
src/ide/db.mli
View file @
ed9c52d3
...
...
@@ -120,11 +120,16 @@ val files : unit -> file list
exception
AlreadyExist
(** {3 prover
s
} *)
(** {3 prover
id
} *)
val
prover_from_name
:
string
->
prover_id
(** retrieves existing prover id from its name.
creates prover id if not existing yet *)
(** {3 transf id} *)
val
transf_from_name
:
string
->
transf_id
(** retrieves existing transformation id from its name.
creates it if not existing yet *)
(** {3 external proof attempts} *)
val
add_proof_attempt
:
goal
->
prover_id
->
proof_attempt
...
...
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