Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Why3
why3
Commits
41a11117
Commit
41a11117
authored
Aug 30, 2010
by
Andrei Paskevich
Browse files
put spaces around logic symbols starting or ending with '*'
parent
382181a5
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/core/pretty.ml
View file @
41a11117
...
...
@@ -82,6 +82,11 @@ let extract_op ls =
let
tight_op
s
=
let
c
=
String
.
sub
s
0
1
in
c
=
"!"
||
c
=
"?"
let
escape_op
s
=
let
s
=
Str
.
replace_first
(
Str
.
regexp
"^
\\
*."
)
"
\\
0"
s
in
let
s
=
Str
.
replace_first
(
Str
.
regexp
".
\\
*$"
)
"
\\
0 "
s
in
s
(* theory names always start with an upper case letter *)
let
print_th
fmt
th
=
let
sanitizer
=
String
.
capitalize
in
...
...
@@ -91,7 +96,7 @@ let print_ts fmt ts =
fprintf
fmt
"%s"
(
id_unique
tprinter
ts
.
ts_name
)
let
print_ls
fmt
ls
=
match
extract_op
ls
with
|
Some
s
->
fprintf
fmt
"(%s)"
s
|
Some
s
->
fprintf
fmt
"(%s)"
(
escape_op
s
)
|
None
->
fprintf
fmt
"%s"
(
id_unique
lprinter
ls
.
ls_name
)
let
print_cs
fmt
ls
=
...
...
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