Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4354 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Daniel de Rauglaudre 2002-02-05 15:17:40 +00:00
parent 1c1502c43f
commit a52ce778f6
2 changed files with 19 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
camlp4/etc/pr_o.ml
View File

@ -890,13 +890,19 @@ and class_sig_item csf dg k =
HVbox [: `S LR "inherit"; `class_type ce k :]
| MLast.CgMth _ lab pf t ->
HVbox
[: `S LR "method"; private_flag pf; `label lab; `S LR ":";
[: `HVbox
[: `S LR "method"; private_flag pf; `label lab; `S LR ":" :];
`ctyp t "" k :]
| MLast.CgVal _ lab mf t ->
HVbox
[: `S LR "val"; mutable_flag mf; `label lab; `S LR ":";
[: `HVbox [: `S LR "val"; mutable_flag mf; `label lab; `S LR ":" :];
`ctyp t "" k :]
| _ -> HVbox [: `not_impl "class_sig_item" csf; k :] ]
| MLast.CgVir _ lab pf t ->
HVbox
[: `HVbox
[: `S LR "method"; `S LR "virtual"; private_flag pf;
`label lab; `S LR ":" :];
`ctyp t "" k :] ]
and class_description b ci _ k =
HVbox
[: `HVbox

13
camlp4/etc/pr_r.ml
View File

@ -877,13 +877,20 @@ and class_sig_item csf k =
HVbox [: `S LR "inherit"; `class_type ce k :]
| MLast.CgMth _ lab pf t ->
HVbox
[: `S LR "method"; flag "private" pf; `label lab; `S LR ":";
[: `HVbox
[: `S LR "method"; flag "private" pf; `label lab; `S LR ":" :];
`ctyp t k :]
| MLast.CgVal _ lab mf t ->
HVbox
[: `S LR "value"; flag "mutable" mf; `label lab; `S LR ":";
[: `HVbox
[: `S LR "value"; flag "mutable" mf; `label lab; `S LR ":" :];
`ctyp t k :]
| _ -> HVbox [: `not_impl "class_sig_item" csf; k :] ]
| MLast.CgVir _ lab pf t ->
HVbox
[: `HVbox
[: `S LR "method"; `S LR "virtual"; flag "private" pf;
`label lab; `S LR ":" :];
`ctyp t k :] ]
and class_description b ci k =
HVbox
[: `HVbox