Skip to content
GitLab
Menu
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
17f2d252
Commit
17f2d252
authored
May 12, 2017
by
Sylvain Dailler
Browse files
removed dead code, irrelevant comments.
parent
0fc3a92d
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/session/server_utils.ml
View file @
17f2d252
(* TODO: all occurences of Format.eprintf in this file should be
replaced by proper server notifications *)
let
has_extension
f
=
try
let
_
=
Filename
.
chop_extension
f
in
true
...
...
src/session/session_itp.ml
View file @
17f2d252
...
...
@@ -89,20 +89,6 @@ type session = {
session_prover_ids
:
int
Hprover
.
t
;
}
let
dummy_session
=
{
proofAttempt_table
=
Hint
.
create
23
;
next_proofAttemptID
=
0
;
proofNode_table
=
Hint
.
create
23
;
next_proofNodeID
=
0
;
trans_table
=
Hint
.
create
23
;
next_transID
=
0
;
session_dir
=
""
;
session_files
=
Hstr
.
create
23
;
session_shape_version
=
0
;
session_prover_ids
=
Hprover
.
create
23
;
}
let
theory_parent
s
th
=
Hstr
.
find
s
.
session_files
th
.
theory_parent_name
...
...
src/session/session_itp.mli
View file @
17f2d252
...
...
@@ -16,8 +16,6 @@ unique identifiers of type [proofNodeId]
type
session
val
dummy_session
:
session
type
proofNodeID
val
print_proofNodeID
:
Format
.
formatter
->
proofNodeID
->
unit
type
transID
...
...
Write
Preview
Supports
Markdown
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