|
@@ -209,12 +209,11 @@ and parse_class_field_resume s =
|
|
(match List.map fst (Stream.npeek 2 s) with
|
|
(match List.map fst (Stream.npeek 2 s) with
|
|
| Kwd Public :: _ | Kwd Static :: _ | Kwd Var :: _ | Kwd Override :: _ | Kwd Dynamic :: _ ->
|
|
| Kwd Public :: _ | Kwd Static :: _ | Kwd Var :: _ | Kwd Override :: _ | Kwd Dynamic :: _ ->
|
|
raise Exit
|
|
raise Exit
|
|
- | [] | Eof :: _ | Kwd Extern :: _ | Kwd Class :: _ | Kwd Interface :: _ | Kwd Enum :: _ | Kwd Typedef :: _ ->
|
|
|
|
|
|
+ | [] | Eof :: _ | Kwd Import :: _ | Kwd Extern :: _ | Kwd Class :: _ | Kwd Interface :: _ | Kwd Enum :: _ | Kwd Typedef :: _ ->
|
|
raise Not_found
|
|
raise Not_found
|
|
| [Kwd Private; Kwd Function]
|
|
| [Kwd Private; Kwd Function]
|
|
| [Kwd Private; Kwd Var] ->
|
|
| [Kwd Private; Kwd Var] ->
|
|
raise Exit
|
|
raise Exit
|
|
- | [Kwd Import]
|
|
|
|
| [Kwd Private; Kwd Class]
|
|
| [Kwd Private; Kwd Class]
|
|
| [Kwd Private; Kwd Interface]
|
|
| [Kwd Private; Kwd Interface]
|
|
| [Kwd Private; Kwd Enum]
|
|
| [Kwd Private; Kwd Enum]
|
|
@@ -535,7 +534,7 @@ and expr = parser
|
|
let e2 , s = (match s with parser
|
|
let e2 , s = (match s with parser
|
|
| [< '(Kwd Else,_); e2 = expr; s >] -> Some e2 , s
|
|
| [< '(Kwd Else,_); e2 = expr; s >] -> Some e2 , s
|
|
| [< >] ->
|
|
| [< >] ->
|
|
- (*
|
|
|
|
|
|
+ (*
|
|
we can't directly npeek 2 elements because this might
|
|
we can't directly npeek 2 elements because this might
|
|
remove some documentation tag.
|
|
remove some documentation tag.
|
|
*)
|
|
*)
|