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
cduce
cduce
Commits
417256a7
Commit
417256a7
authored
Oct 05, 2007
by
Pietro Abate
Browse files
[r2003-05-25 11:12:58 by cvscast] Display of samples
Original author: cvscast Date: 2003-05-25 11:13:31+00:00
parent
e825c8fa
Changes
2
Hide whitespace changes
Inline
Side-by-side
Makefile
View file @
417256a7
...
...
@@ -89,6 +89,7 @@ clean:
for
i
in
$(CLEAN_DIRS)
;
do
\
(
cd
$$
i
;
rm
-f
*
.cmi
*
.cmo
*
.cma
*
.cmx
*
.o
*
~
)
;
\
done
rm
-f
`
find
-name
"*~"
`
rm
-f
*
.cmi
*
.cmo
*
.cma
*
.cmx
*
.a
*
.cmxa
*
.o
*
~
rm
-f
cduce ocamlprof.dump
rm
-f
dtd2cduce pool webiface
...
...
@@ -186,5 +187,5 @@ package:
rm
-Rf
package
mkdir
package
cp
-R
$(DISTRIB)
package/
(
cd
package
;
headache
-h
../header
$(DEPEND)
)
(
cd
package
;
headache
-h
../header
$(DEPEND)
;
rm
-Rf
`
find
-name
"CVS"
`
)
driver/cduce.ml
View file @
417256a7
...
...
@@ -20,6 +20,11 @@ let print_norm ppf d =
Location
.
protect
ppf
(
fun
ppf
->
Types
.
Print
.
print
ppf
((
*
Types
.
normalize
*
)
d
))
let
print_sample
ppf
s
=
Location
.
protect
ppf
(
fun
ppf
->
Sample
.
print
ppf
s
)
let
print_value
ppf
v
=
Location
.
protect
ppf
(
fun
ppf
->
Value
.
print
ppf
v
)
...
...
@@ -70,17 +75,13 @@ let rec print_exn ppf = function
print_norm
t
;
Format
.
fprintf
ppf
"but its inferred type is:@
\n
%a@
\n
"
print_norm
s
;
Format
.
fprintf
ppf
"which is not a subtype, as shown by the sample:@
\n
"
;
Location
.
protect
ppf
(
fun
ppf
->
Sample
.
print
ppf
(
Sample
.
get
(
Types
.
diff
s
t
)));
Format
.
fprintf
ppf
"@
\n
"
Format
.
fprintf
ppf
"which is not a subtype, as shown by the sample:@
\n
%a@
\n
"
print_sample
(
Sample
.
get
(
Types
.
diff
s
t
))
|
Typer
.
NonExhaustive
t
->
Format
.
fprintf
ppf
"This pattern matching is not exhaustive@
\n
"
;
Format
.
fprintf
ppf
"Residual type:@
\n
%a@
\n
"
print_norm
t
;
Format
.
fprintf
ppf
"Sample:@
\n
%a@
\n
"
Sample
.
print
(
Sample
.
get
t
)
Format
.
fprintf
ppf
"Sample:@
\n
%a@
\n
"
print_sample
(
Sample
.
get
t
)
|
Typer
.
UnboundId
x
->
Format
.
fprintf
ppf
"Unbound identifier %a@
\n
"
U
.
print
(
Id
.
value
x
)
|
Wlexer
.
Illegal_character
c
->
...
...
@@ -109,9 +110,7 @@ let debug ppf = function
|
`Sample
t
->
Format
.
fprintf
ppf
"[DEBUG:sample]@
\n
"
;
let
t
=
Types
.
descr
(
Typer
.
typ
t
)
in
Location
.
protect
ppf
(
fun
ppf
->
Sample
.
print
ppf
(
Sample
.
get
t
));
Format
.
fprintf
ppf
"@
\n
"
Format
.
fprintf
ppf
"%a@
\n
"
print_sample
(
Sample
.
get
t
)
|
`Filter
(
t
,
p
)
->
Format
.
fprintf
ppf
"[DEBUG:filter]@
\n
"
;
let
t
=
Typer
.
typ
t
...
...
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