Summary: The current source parser is based on ocamllex only. In order to track field declaration locations, we propose a new parser using ocamllex/menhir. This is a more ambitious project that closely follows the official Java syntax. Reviewed By: jvillard Differential Revision: D24858280 fbshipit-source-id: 22d6766e5master
David Pichardie
4 years ago
committed by
Facebook GitHub Bot
parent
02625ac1ce
commit
2f09b39f56
@ -0,0 +1,43 @@
|
|||||||
|
(*
|
||||||
|
* Copyright (c) Facebook, Inc. and its affiliates.
|
||||||
|
*
|
||||||
|
* This source code is licensed under the MIT license found in the
|
||||||
|
* LICENSE file in the root directory of this source tree.
|
||||||
|
*)
|
||||||
|
|
||||||
|
open! IStd
|
||||||
|
|
||||||
|
type location = {line: int; col: int}
|
||||||
|
|
||||||
|
type class_kind = Class of string | Interface of string | AnonymousClass | Enum of string
|
||||||
|
|
||||||
|
type class_or_interface =
|
||||||
|
{location: location; kind: class_kind; inner_elements: class_or_interface list}
|
||||||
|
|
||||||
|
type file_content = {package: string option; classes: class_or_interface list}
|
||||||
|
|
||||||
|
type context = {prefix: string; mutable counter: int}
|
||||||
|
|
||||||
|
let name_of_kind context = function
|
||||||
|
| Class id | Interface id | Enum id ->
|
||||||
|
id
|
||||||
|
| AnonymousClass ->
|
||||||
|
context.counter <- context.counter + 1 ;
|
||||||
|
string_of_int context.counter
|
||||||
|
|
||||||
|
|
||||||
|
let rec iter ~action_on_class_location context {location; kind; inner_elements} =
|
||||||
|
let previous_prefix = context.prefix in
|
||||||
|
let name = name_of_kind context kind in
|
||||||
|
let context = {prefix= Printf.sprintf "%s%s$" context.prefix name; counter= 0} in
|
||||||
|
let classname = previous_prefix ^ name in
|
||||||
|
let col = location.col in
|
||||||
|
let line = location.line in
|
||||||
|
let _ = action_on_class_location ~classname ~col ~line in
|
||||||
|
List.iter inner_elements ~f:(iter ~action_on_class_location context)
|
||||||
|
|
||||||
|
|
||||||
|
let iter_on_declarations ~action_on_class_location {package; classes} =
|
||||||
|
let prefix = Option.fold ~init:"" ~f:(fun _ s -> s ^ ".") package in
|
||||||
|
let context = {prefix; counter= 0} in
|
||||||
|
List.iter classes ~f:(iter ~action_on_class_location context)
|
||||||
@ -0,0 +1,20 @@
|
|||||||
|
(*
|
||||||
|
* Copyright (c) Facebook, Inc. and its affiliates.
|
||||||
|
*
|
||||||
|
* This source code is licensed under the MIT license found in the
|
||||||
|
* LICENSE file in the root directory of this source tree.
|
||||||
|
*)
|
||||||
|
|
||||||
|
open! IStd
|
||||||
|
|
||||||
|
type location = {line: int; col: int}
|
||||||
|
|
||||||
|
type class_kind = Class of string | Interface of string | AnonymousClass | Enum of string
|
||||||
|
|
||||||
|
type class_or_interface =
|
||||||
|
{location: location; kind: class_kind; inner_elements: class_or_interface list}
|
||||||
|
|
||||||
|
type file_content = {package: string option; classes: class_or_interface list}
|
||||||
|
|
||||||
|
val iter_on_declarations :
|
||||||
|
action_on_class_location:(classname:string -> col:int -> line:int -> unit) -> file_content -> unit
|
||||||
@ -0,0 +1,244 @@
|
|||||||
|
(*
|
||||||
|
* Copyright (c) Facebook, Inc. and its affiliates.
|
||||||
|
*
|
||||||
|
* This source code is licensed under the MIT license found in the
|
||||||
|
* LICENSE file in the root directory of this source tree.
|
||||||
|
*)
|
||||||
|
|
||||||
|
{
|
||||||
|
|
||||||
|
(** classic Ocamllex function to update current lexbuf line at each end of
|
||||||
|
line *)
|
||||||
|
let incr_linenum lexbuf =
|
||||||
|
let pos = lexbuf.Lexing.lex_curr_p in
|
||||||
|
lexbuf.Lexing.lex_curr_p <- { pos with
|
||||||
|
Lexing.pos_lnum = pos.Lexing.pos_lnum + 1;
|
||||||
|
Lexing.pos_bol = pos.Lexing.pos_cnum;
|
||||||
|
}
|
||||||
|
|
||||||
|
open JSourceParser
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
let whitespace = [' ' '\t']
|
||||||
|
let eol = whitespace*("\r")?"\n" (* end of line *)
|
||||||
|
let eol_comment = "//" [^'\n']*
|
||||||
|
let id = ['a'-'z' 'A'-'Z' '_' '$'] ['a'-'z' 'A'-'Z' '0'-'9' '_' '$']*
|
||||||
|
let char = "'\\''" | "'\"'" | "'" [ ^'\'' ]+ "'"
|
||||||
|
let modifier = "public"|"protected"|"private"|"abstract"|"static"|
|
||||||
|
"final"|"strictfp"|"transient"|"volatile"
|
||||||
|
let numeric_type = "byte"|"short"|"int"|"long"|"char"|"float"|"double"
|
||||||
|
let primitive_type = "boolean"|numeric_type
|
||||||
|
let assignment_operator = "*="|"/="|"%="|"+="|"-="|"<<="|">>="|">>>="|"&="|"^="|"|="
|
||||||
|
let binop = "||"|"&&"|"&"|"^"|"=="|"!="|"<="|">="|"<<"|">>"|">>>"|"+"|"-"|"*"|"/"|"%"
|
||||||
|
|
||||||
|
let binary_numeral_prefix = "0" ("b"|"B")
|
||||||
|
let hex_numeral_prefix = "0" ("x"|"X")
|
||||||
|
let numeral_prefix = ['0'-'9'] | binary_numeral_prefix | hex_numeral_prefix
|
||||||
|
let numeral_digit = ['0'-'9' 'a'-'f' 'A'-'F' '_']
|
||||||
|
let integer_literal = numeral_prefix numeral_digit* ['l' 'L']?
|
||||||
|
let hexadecimal_floating_point_literal = hex_numeral_prefix (numeral_digit | ".")+ ("p"|"P")
|
||||||
|
let decimal_floating_point_literal = hex_numeral_prefix (numeral_digit | ".")+ ("p"|"P")
|
||||||
|
let digits = ['0'-'9']+
|
||||||
|
let float_type_suffix = ['f' 'F' 'd' 'D']
|
||||||
|
let exponent_part = ['e' 'E'] ['-' '+']? digits
|
||||||
|
let floating_point_literal =
|
||||||
|
(digits "." digits? exponent_part? float_type_suffix?)
|
||||||
|
| ("." digits exponent_part? float_type_suffix?)
|
||||||
|
| (digits exponent_part float_type_suffix?)
|
||||||
|
| (digits exponent_part? float_type_suffix)
|
||||||
|
|
||||||
|
|
||||||
|
(* We follow an abstraction of the official grammar described here:
|
||||||
|
https://docs.oracle.com/javase/specs/jls/se14/html/jls-19.html *)
|
||||||
|
rule class_scan = parse
|
||||||
|
| whitespace+
|
||||||
|
{ class_scan lexbuf }
|
||||||
|
| eol_comment
|
||||||
|
{ class_scan lexbuf }
|
||||||
|
| "/*"
|
||||||
|
{ skip_comments (class_scan) lexbuf }
|
||||||
|
| eol
|
||||||
|
{ incr_linenum lexbuf;
|
||||||
|
class_scan lexbuf }
|
||||||
|
| "package"
|
||||||
|
{ PACKAGE }
|
||||||
|
| "import"
|
||||||
|
{ IMPORT }
|
||||||
|
| "class"
|
||||||
|
{ CLASS }
|
||||||
|
| "instanceof"
|
||||||
|
{ INSTANCEOF }
|
||||||
|
| "interface"
|
||||||
|
{ INTERFACE }
|
||||||
|
| "void"
|
||||||
|
{ VOID }
|
||||||
|
| "throws"
|
||||||
|
{ THROWS }
|
||||||
|
| "enum"
|
||||||
|
{ ENUM }
|
||||||
|
| modifier
|
||||||
|
{ class_scan lexbuf }
|
||||||
|
| primitive_type
|
||||||
|
{ PRIMTYPE }
|
||||||
|
| "<"
|
||||||
|
{ LANGLE }
|
||||||
|
| ">"
|
||||||
|
{ RANGLE }
|
||||||
|
| "new"
|
||||||
|
{ NEW }
|
||||||
|
| "var"
|
||||||
|
{ VAR }
|
||||||
|
| "extends"
|
||||||
|
{ EXTENDS }
|
||||||
|
| "super"
|
||||||
|
{ SUPER }
|
||||||
|
| "implements"
|
||||||
|
{ IMPLEMENTS }
|
||||||
|
| "assert"
|
||||||
|
{ ASSERT }
|
||||||
|
| "do"
|
||||||
|
{ DO }
|
||||||
|
| "while"
|
||||||
|
{ WHILE }
|
||||||
|
| "if"
|
||||||
|
{ IF }
|
||||||
|
| "else"
|
||||||
|
{ ELSE }
|
||||||
|
| "try"
|
||||||
|
{ TRY }
|
||||||
|
| "catch"
|
||||||
|
{ CATCH }
|
||||||
|
| "finally"
|
||||||
|
{ FINALLY }
|
||||||
|
| "for"
|
||||||
|
{ FOR }
|
||||||
|
| "break"
|
||||||
|
{ BREAK }
|
||||||
|
| "continue"
|
||||||
|
{ CONTINUE }
|
||||||
|
| "return"
|
||||||
|
{ RETURN }
|
||||||
|
| "throw"
|
||||||
|
{ THROW }
|
||||||
|
| "synchronized"
|
||||||
|
{ SYNCHRONIZED }
|
||||||
|
| "yield"
|
||||||
|
{ YIELD }
|
||||||
|
| "null"
|
||||||
|
{ NULL }
|
||||||
|
| "true"
|
||||||
|
{ TRUE }
|
||||||
|
| "false"
|
||||||
|
{ FALSE }
|
||||||
|
|
||||||
|
| (floating_point_literal as f)
|
||||||
|
{ FLOATINGPOINT f }
|
||||||
|
| (integer_literal as i)
|
||||||
|
{ INTEGER i }
|
||||||
|
|
||||||
|
|
||||||
|
| (id as name)
|
||||||
|
{ IDENT name }
|
||||||
|
|
||||||
|
| "\"" ([^ '\"']* as s) "\""
|
||||||
|
{ STRING s }
|
||||||
|
| (char as s)
|
||||||
|
{ CHAR s }
|
||||||
|
| ";"
|
||||||
|
{ SEMICOLON }
|
||||||
|
| ":"
|
||||||
|
{ COLON }
|
||||||
|
| "."
|
||||||
|
{ DOT }
|
||||||
|
| "{"
|
||||||
|
{ LBRACKET }
|
||||||
|
| "}"
|
||||||
|
{ RBRACKET }
|
||||||
|
| "["
|
||||||
|
{ LSBRACKET }
|
||||||
|
| "]"
|
||||||
|
{ RSBRACKET }
|
||||||
|
| "("
|
||||||
|
{ LPAREN }
|
||||||
|
| ")"
|
||||||
|
{ RPAREN }
|
||||||
|
| ","
|
||||||
|
{ COMMA }
|
||||||
|
| "?"
|
||||||
|
{ QMARK }
|
||||||
|
| ("++"|"--")
|
||||||
|
{ INCR_DECR }
|
||||||
|
| "|"
|
||||||
|
{ PIPE }
|
||||||
|
| "="
|
||||||
|
{ EQ }
|
||||||
|
| "!"
|
||||||
|
{ BANG }
|
||||||
|
| "~"
|
||||||
|
{ TILDE }
|
||||||
|
| "..."
|
||||||
|
{ THREEDOTS }
|
||||||
|
| assignment_operator
|
||||||
|
{ ASSIGNOP}
|
||||||
|
| binop
|
||||||
|
{ BINOP }
|
||||||
|
|
||||||
|
| "@" whitespace* id ("." id)* "("
|
||||||
|
{ skip_well_parenthesized_parentheses 1
|
||||||
|
(class_scan) lexbuf }
|
||||||
|
| "@" whitespace* id ("." id)*
|
||||||
|
{ class_scan lexbuf }
|
||||||
|
|
||||||
|
| _
|
||||||
|
{ class_scan lexbuf }
|
||||||
|
| eof
|
||||||
|
{ EOF }
|
||||||
|
|
||||||
|
(* we skip type annotation arguments (...) because they may contain brackets *)
|
||||||
|
and skip_well_parenthesized_parentheses width action = parse
|
||||||
|
| eol
|
||||||
|
{ incr_linenum lexbuf;
|
||||||
|
skip_well_parenthesized_parentheses width action lexbuf }
|
||||||
|
| "("
|
||||||
|
{ skip_well_parenthesized_parentheses (width+1) action lexbuf }
|
||||||
|
| ")"
|
||||||
|
{ if width<=1 then action lexbuf
|
||||||
|
else skip_well_parenthesized_parentheses (width-1) action lexbuf }
|
||||||
|
| eol_comment
|
||||||
|
{ skip_well_parenthesized_parentheses width action lexbuf }
|
||||||
|
| "/*"
|
||||||
|
{ skip_comments
|
||||||
|
(skip_well_parenthesized_parentheses width action) lexbuf }
|
||||||
|
| "\""
|
||||||
|
{ skip_string (skip_well_parenthesized_parentheses width action) lexbuf }
|
||||||
|
| char
|
||||||
|
{ skip_well_parenthesized_parentheses width action lexbuf }
|
||||||
|
| _
|
||||||
|
{ skip_well_parenthesized_parentheses width action lexbuf }
|
||||||
|
|
||||||
|
and skip_comments action = parse
|
||||||
|
| "*/"
|
||||||
|
{ action lexbuf }
|
||||||
|
| eol
|
||||||
|
{ incr_linenum lexbuf;
|
||||||
|
skip_comments action lexbuf }
|
||||||
|
| _
|
||||||
|
{ skip_comments action lexbuf }
|
||||||
|
|
||||||
|
and skip_string action = parse
|
||||||
|
| "\\\\"
|
||||||
|
{ skip_string action lexbuf }
|
||||||
|
| "\\\""
|
||||||
|
{ skip_string action lexbuf }
|
||||||
|
| "\""
|
||||||
|
{ action lexbuf }
|
||||||
|
| _
|
||||||
|
{ skip_string action lexbuf }
|
||||||
|
|
||||||
|
|
||||||
|
{
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
@ -0,0 +1,53 @@
|
|||||||
|
(*
|
||||||
|
* Copyright (c) 2009-2013, Monoidics ltd.
|
||||||
|
* Copyright (c) Facebook, Inc. and its affiliates.
|
||||||
|
*
|
||||||
|
* This source code is licensed under the MIT license found in the
|
||||||
|
* LICENSE file in the root directory of this source tree.
|
||||||
|
*)
|
||||||
|
|
||||||
|
open! IStd
|
||||||
|
open Javalib_pack
|
||||||
|
|
||||||
|
let collect_class_location (program : JProgramDesc.t) (file : SourceFile.t) =
|
||||||
|
let path = SourceFile.to_abs_path file in
|
||||||
|
if String.is_suffix path ~suffix:".java" then (
|
||||||
|
let cin = In_channel.create path in
|
||||||
|
let filebuf = Lexing.from_channel cin in
|
||||||
|
let action_on_class_location ~classname ~col ~line =
|
||||||
|
let loc : Location.t = {line; col; file} in
|
||||||
|
let cn : JBasics.class_name = JBasics.make_cn classname in
|
||||||
|
Logging.debug Capture Verbose "set_java_location %s with location %a@." (JBasics.cn_name cn)
|
||||||
|
Location.pp_file_pos loc ;
|
||||||
|
JProgramDesc.set_java_location program cn loc
|
||||||
|
in
|
||||||
|
( try
|
||||||
|
let cl = JSourceParser.main JSourceLexer.class_scan filebuf in
|
||||||
|
JSourceAST.iter_on_declarations ~action_on_class_location cl
|
||||||
|
with
|
||||||
|
| Failure s ->
|
||||||
|
Logging.debug Capture Verbose "Error parsing source file %s\n%s"
|
||||||
|
(SourceFile.to_abs_path file) s
|
||||||
|
| JSourceParser.Error ->
|
||||||
|
Logging.debug Capture Verbose "JSourceParser error on file %s\n"
|
||||||
|
(SourceFile.to_abs_path file) ) ;
|
||||||
|
In_channel.close cin )
|
||||||
|
|
||||||
|
|
||||||
|
let debug_on_file path =
|
||||||
|
if String.is_suffix path ~suffix:".java" then (
|
||||||
|
let cin = In_channel.create path in
|
||||||
|
let filebuf = Lexing.from_channel cin in
|
||||||
|
let action_on_class_location ~classname ~col ~line =
|
||||||
|
Printf.printf "class %s at line %d, column %d\n" classname line col
|
||||||
|
in
|
||||||
|
( try
|
||||||
|
let cl = JSourceParser.main JSourceLexer.class_scan filebuf in
|
||||||
|
JSourceAST.iter_on_declarations ~action_on_class_location cl
|
||||||
|
with JSourceParser.Error ->
|
||||||
|
let pos = filebuf.Lexing.lex_curr_p in
|
||||||
|
let buf_length = Lexing.lexeme_end filebuf - Lexing.lexeme_start filebuf in
|
||||||
|
let line = pos.Lexing.pos_lnum in
|
||||||
|
let col = pos.Lexing.pos_cnum - pos.Lexing.pos_bol - buf_length in
|
||||||
|
Printf.eprintf "Java source syntax error at line %d, column %d.\n%!" line col ) ;
|
||||||
|
In_channel.close cin )
|
||||||
@ -0,0 +1,13 @@
|
|||||||
|
(*
|
||||||
|
* Copyright (c) 2009-2013, Monoidics ltd.
|
||||||
|
* Copyright (c) Facebook, Inc. and its affiliates.
|
||||||
|
*
|
||||||
|
* This source code is licensed under the MIT license found in the
|
||||||
|
* LICENSE file in the root directory of this source tree.
|
||||||
|
*)
|
||||||
|
|
||||||
|
open! IStd
|
||||||
|
|
||||||
|
val collect_class_location : JProgramDesc.t -> SourceFile.t -> unit
|
||||||
|
|
||||||
|
val debug_on_file : string -> unit
|
||||||
@ -0,0 +1,773 @@
|
|||||||
|
/*
|
||||||
|
* Copyright (c) Facebook, Inc. and its affiliates.
|
||||||
|
*
|
||||||
|
* This source code is licensed under the MIT license found in the
|
||||||
|
* LICENSE file in the root directory of this source tree.
|
||||||
|
*/
|
||||||
|
%{
|
||||||
|
open JSourceAST
|
||||||
|
|
||||||
|
let location_of_pos pos =
|
||||||
|
let line = pos.Lexing.pos_lnum in
|
||||||
|
let col = pos.Lexing.pos_cnum - pos.Lexing.pos_bol in
|
||||||
|
{ line; col }
|
||||||
|
|
||||||
|
%}
|
||||||
|
|
||||||
|
%token PACKAGE
|
||||||
|
%token IMPORT
|
||||||
|
%token CLASS
|
||||||
|
%token INTERFACE
|
||||||
|
%token IMPLEMENTS
|
||||||
|
%token EXTENDS
|
||||||
|
%token SUPER
|
||||||
|
%token ENUM
|
||||||
|
%token NEW
|
||||||
|
%token INSTANCEOF
|
||||||
|
%token VOID
|
||||||
|
%token THROWS
|
||||||
|
%token VAR
|
||||||
|
%token ASSERT
|
||||||
|
%token DO
|
||||||
|
%token WHILE
|
||||||
|
%token IF
|
||||||
|
%token ELSE
|
||||||
|
%token TRY
|
||||||
|
%token CATCH
|
||||||
|
%token FINALLY
|
||||||
|
%token FOR
|
||||||
|
%token BREAK
|
||||||
|
%token CONTINUE
|
||||||
|
%token RETURN
|
||||||
|
%token THROW
|
||||||
|
%token SYNCHRONIZED
|
||||||
|
%token YIELD
|
||||||
|
%token THIS
|
||||||
|
%token NULL
|
||||||
|
%token TRUE
|
||||||
|
%token FALSE
|
||||||
|
|
||||||
|
|
||||||
|
//non Java terminals
|
||||||
|
%token PRIMTYPE
|
||||||
|
|
||||||
|
%token LBRACKET
|
||||||
|
%token RBRACKET
|
||||||
|
%token LSBRACKET
|
||||||
|
%token RSBRACKET
|
||||||
|
%token LPAREN
|
||||||
|
%token RPAREN
|
||||||
|
%token LANGLE
|
||||||
|
%token RANGLE
|
||||||
|
|
||||||
|
%token EQ
|
||||||
|
%token ASSIGNOP
|
||||||
|
%token SEMICOLON
|
||||||
|
%token COLON
|
||||||
|
%token COMMA
|
||||||
|
%token DOT
|
||||||
|
%token QMARK
|
||||||
|
%token BANG
|
||||||
|
%token TILDE
|
||||||
|
%token PIPE
|
||||||
|
|
||||||
|
%token INCR_DECR
|
||||||
|
%token THREEDOTS
|
||||||
|
|
||||||
|
%token EOF
|
||||||
|
|
||||||
|
%token <string> IDENT
|
||||||
|
%token <string> INTEGER
|
||||||
|
%token <string> FLOATINGPOINT
|
||||||
|
%token <string> STRING
|
||||||
|
%token <string> CHAR
|
||||||
|
|
||||||
|
%token BINOP
|
||||||
|
|
||||||
|
%left BINOP LANGLE RANGLE
|
||||||
|
%nonassoc INSTANCEOF
|
||||||
|
|
||||||
|
%start <JSourceAST.file_content> main
|
||||||
|
|
||||||
|
%%
|
||||||
|
|
||||||
|
main:
|
||||||
|
| package_declaration? import_declaration* app_list(type_declaration) EOF
|
||||||
|
{ { package = $1; classes = $3 } }
|
||||||
|
|
||||||
|
import_declaration:
|
||||||
|
| IMPORT import_name SEMICOLON
|
||||||
|
{}
|
||||||
|
|
||||||
|
import_name:
|
||||||
|
| IDENT import_name_end
|
||||||
|
{}
|
||||||
|
import_name_end:
|
||||||
|
|
|
||||||
|
| DOT BINOP
|
||||||
|
| DOT IDENT import_name_end
|
||||||
|
{}
|
||||||
|
|
||||||
|
type_arguments:
|
||||||
|
| LANGLE type_argument_list RANGLE
|
||||||
|
{}
|
||||||
|
|
||||||
|
type_argument_list:
|
||||||
|
| separated_nonempty_list(COMMA, type_argument)
|
||||||
|
{}
|
||||||
|
|
||||||
|
type_argument:
|
||||||
|
| unann_reference_type // If we decide to parse annotations, it will
|
||||||
|
// require change here
|
||||||
|
| QMARK wildcard_bounds?
|
||||||
|
{}
|
||||||
|
|
||||||
|
wildcard_bounds:
|
||||||
|
| EXTENDS unann_reference_type
|
||||||
|
| SUPER unann_reference_type
|
||||||
|
{}
|
||||||
|
|
||||||
|
package_declaration:
|
||||||
|
| PACKAGE unann_class_or_interface_type SEMICOLON
|
||||||
|
{ $2 }
|
||||||
|
|
||||||
|
type_declaration:
|
||||||
|
| class_declaration
|
||||||
|
| interface_declaration
|
||||||
|
{ [$1] }
|
||||||
|
| SEMICOLON
|
||||||
|
{ [] }
|
||||||
|
|
||||||
|
class_declaration:
|
||||||
|
| normal_class_declaration
|
||||||
|
| enum_declaration
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
normal_class_declaration:
|
||||||
|
| CLASS id=identifier superclass? superinterfaces? inner=class_body
|
||||||
|
{ {
|
||||||
|
location = location_of_pos $startpos(id);
|
||||||
|
kind = Class id;
|
||||||
|
inner_elements = inner;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
enum_declaration:
|
||||||
|
| ENUM id=identifier superinterfaces? inner=enum_body
|
||||||
|
{ {
|
||||||
|
location = location_of_pos $startpos(id);
|
||||||
|
kind = Enum id;
|
||||||
|
inner_elements = inner;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
superclass:
|
||||||
|
| EXTENDS class_type
|
||||||
|
{}
|
||||||
|
|
||||||
|
superinterfaces:
|
||||||
|
| IMPLEMENTS separated_nonempty_list(COMMA, class_type)
|
||||||
|
{}
|
||||||
|
|
||||||
|
enum_body:
|
||||||
|
| LBRACKET enum_constant_list RBRACKET // TODO add optional comma
|
||||||
|
{ [] }
|
||||||
|
| LBRACKET enum_constant_list inner=enum_body_declarations RBRACKET
|
||||||
|
{ inner }
|
||||||
|
|
||||||
|
enum_constant_list:
|
||||||
|
| separated_nonempty_list(COMMA, enum_constant)
|
||||||
|
{}
|
||||||
|
|
||||||
|
enum_constant:
|
||||||
|
| identifier class_body?
|
||||||
|
| identifier LPAREN argument_list? RPAREN class_body?
|
||||||
|
{}
|
||||||
|
|
||||||
|
enum_body_declarations:
|
||||||
|
| SEMICOLON app_list(class_body_declaration)
|
||||||
|
{ $2 }
|
||||||
|
|
||||||
|
class_body:
|
||||||
|
| LBRACKET app_list(class_body_declaration) RBRACKET
|
||||||
|
{ $2 }
|
||||||
|
|
||||||
|
class_body_declaration:
|
||||||
|
| class_member_declaration
|
||||||
|
{ $1 }
|
||||||
|
| constructor_declaration
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
constructor_declaration:
|
||||||
|
| constructor_declarator throws? inner=constructor_body
|
||||||
|
{ inner }
|
||||||
|
|
||||||
|
constructor_declarator:
|
||||||
|
| identifier LPAREN formal_parameter_list RPAREN // TODO add receive_parameter
|
||||||
|
{}
|
||||||
|
|
||||||
|
constructor_body:
|
||||||
|
| LBRACKET inner=loption(block_statements) RBRACKET
|
||||||
|
{ inner }
|
||||||
|
|
||||||
|
argument_list:
|
||||||
|
| app_separated_non_empty_list(COMMA, expression)
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
class_member_declaration:
|
||||||
|
| class_declaration
|
||||||
|
| interface_declaration
|
||||||
|
{ [$1] }
|
||||||
|
| field_declaration
|
||||||
|
| method_declaration
|
||||||
|
{ $1 }
|
||||||
|
| SEMICOLON
|
||||||
|
{ [] }
|
||||||
|
|
||||||
|
method_declaration:
|
||||||
|
| method_header method_body
|
||||||
|
{ $2 }
|
||||||
|
|
||||||
|
interface_declaration:
|
||||||
|
| normal_interface_declaration
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
normal_interface_declaration:
|
||||||
|
| INTERFACE id=identifier inner=interface_body
|
||||||
|
{ {
|
||||||
|
location = location_of_pos $startpos(id);
|
||||||
|
kind = Interface id;
|
||||||
|
inner_elements = inner;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
interface_body:
|
||||||
|
| LBRACKET app_list(interface_member_declaration) RBRACKET
|
||||||
|
{ $2 }
|
||||||
|
|
||||||
|
interface_member_declaration:
|
||||||
|
| constant_declaration
|
||||||
|
| interface_method_declaration
|
||||||
|
{ [] }
|
||||||
|
| class_declaration
|
||||||
|
| interface_declaration
|
||||||
|
{ [$1] }
|
||||||
|
|
||||||
|
interface_method_declaration:
|
||||||
|
| method_header method_body
|
||||||
|
{}
|
||||||
|
|
||||||
|
method_header:
|
||||||
|
| result method_declarator throws?
|
||||||
|
{}
|
||||||
|
|
||||||
|
%inline
|
||||||
|
result:
|
||||||
|
| unann_type
|
||||||
|
| VOID
|
||||||
|
{}
|
||||||
|
|
||||||
|
method_declarator:
|
||||||
|
| identifier LPAREN formal_parameter_list RPAREN dims? //TODO add receiver_parameter
|
||||||
|
{}
|
||||||
|
|
||||||
|
formal_parameter_list:
|
||||||
|
| separated_list(COMMA, formal_parameter)
|
||||||
|
{}
|
||||||
|
|
||||||
|
formal_parameter:
|
||||||
|
| unann_type variable_declarator_id
|
||||||
|
| variable_arity_parameter
|
||||||
|
{}
|
||||||
|
|
||||||
|
variable_arity_parameter:
|
||||||
|
| unann_type THREEDOTS identifier
|
||||||
|
{}
|
||||||
|
|
||||||
|
method_body:
|
||||||
|
| block
|
||||||
|
{ $1 }
|
||||||
|
| SEMICOLON
|
||||||
|
{ [] }
|
||||||
|
|
||||||
|
block:
|
||||||
|
| LBRACKET loption(block_statements) RBRACKET
|
||||||
|
{ $2 }
|
||||||
|
|
||||||
|
block_statements:
|
||||||
|
| app_non_empty_list(block_statement)
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
block_statement:
|
||||||
|
| class_declaration
|
||||||
|
{ [$1] }
|
||||||
|
| local_variable_declaration_statement
|
||||||
|
| statement
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
local_variable_declaration_statement:
|
||||||
|
| local_variable_declaration SEMICOLON
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
local_variable_declaration:
|
||||||
|
| local_variable_type variable_declarator_list
|
||||||
|
{ $2 }
|
||||||
|
|
||||||
|
local_variable_type:
|
||||||
|
| unann_type
|
||||||
|
| VAR
|
||||||
|
{}
|
||||||
|
|
||||||
|
statement:
|
||||||
|
| statement_without_trailing_substatement
|
||||||
|
// TODO: add labeled_statement
|
||||||
|
| if_then_statement
|
||||||
|
| if_then_else_statement
|
||||||
|
| while_statement
|
||||||
|
| for_statement
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
for_statement:
|
||||||
|
| basic_for_statement
|
||||||
|
| enhanced_for_statement
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
for_statement_no_short_if:
|
||||||
|
| basic_for_statement_no_short_if
|
||||||
|
| enhanced_for_statement_no_short_if
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
basic_for_statement:
|
||||||
|
| FOR LPAREN loption(for_init) SEMICOLON loption(expression) SEMICOLON loption(for_update) RPAREN statement
|
||||||
|
{ $3 @ $5 @ $7 @ $9 }
|
||||||
|
|
||||||
|
enhanced_for_statement:
|
||||||
|
| FOR LPAREN local_variable_type variable_declarator_id COLON expression RPAREN statement
|
||||||
|
{ $6 @ $8 }
|
||||||
|
|
||||||
|
enhanced_for_statement_no_short_if:
|
||||||
|
| FOR LPAREN local_variable_type variable_declarator_id COLON expression RPAREN statement_no_short_if
|
||||||
|
{ $6 @ $8 }
|
||||||
|
|
||||||
|
basic_for_statement_no_short_if:
|
||||||
|
| FOR LPAREN loption(for_init) SEMICOLON loption(expression) SEMICOLON loption(for_update) RPAREN statement_no_short_if
|
||||||
|
{ $3 @ $5 @ $7 @ $9 }
|
||||||
|
|
||||||
|
for_init:
|
||||||
|
| statement_expression_list
|
||||||
|
| local_variable_declaration
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
for_update:
|
||||||
|
| statement_expression_list
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
statement_expression_list:
|
||||||
|
| app_separated_non_empty_list(COMMA, statement_expression)
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
if_then_statement:
|
||||||
|
| IF LPAREN expression RPAREN statement
|
||||||
|
{ $3 @ $5 }
|
||||||
|
|
||||||
|
if_then_else_statement:
|
||||||
|
| IF LPAREN expression RPAREN statement_no_short_if ELSE statement
|
||||||
|
{ $3 @ $5 @ $7 }
|
||||||
|
|
||||||
|
if_then_else_statement_no_short_if:
|
||||||
|
| IF LPAREN expression RPAREN statement_no_short_if ELSE statement_no_short_if
|
||||||
|
{ $3 @ $5 @ $7 }
|
||||||
|
|
||||||
|
statement_no_short_if:
|
||||||
|
| statement_without_trailing_substatement
|
||||||
|
| if_then_else_statement_no_short_if
|
||||||
|
| while_statement_no_short_if
|
||||||
|
| for_statement_no_short_if
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
while_statement:
|
||||||
|
| WHILE LPAREN expression RPAREN statement
|
||||||
|
{ $3 @ $5 }
|
||||||
|
|
||||||
|
while_statement_no_short_if:
|
||||||
|
| WHILE LPAREN expression RPAREN statement_no_short_if
|
||||||
|
{ $3 @ $5 }
|
||||||
|
|
||||||
|
statement_without_trailing_substatement:
|
||||||
|
| block
|
||||||
|
| empty_statement
|
||||||
|
| expression_statement
|
||||||
|
| assert_statement
|
||||||
|
| do_statement
|
||||||
|
| break_statement
|
||||||
|
| continue_statement
|
||||||
|
| return_statement
|
||||||
|
| synchronized_statement
|
||||||
|
| throw_statement
|
||||||
|
| try_statement
|
||||||
|
| yield_statement
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
empty_statement:
|
||||||
|
| SEMICOLON
|
||||||
|
{ [] }
|
||||||
|
|
||||||
|
expression_statement:
|
||||||
|
| statement_expression SEMICOLON
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
statement_expression:
|
||||||
|
| INCR_DECR unary_expression
|
||||||
|
{ $2 }
|
||||||
|
| assignment
|
||||||
|
| postfix_expression INCR_DECR
|
||||||
|
| method_invocation
|
||||||
|
| class_instance_creation_expression
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
assert_statement:
|
||||||
|
| ASSERT expression SEMICOLON
|
||||||
|
{ $2 }
|
||||||
|
| ASSERT expression COLON expression SEMICOLON
|
||||||
|
{ $2 @ $4 }
|
||||||
|
|
||||||
|
do_statement:
|
||||||
|
| DO statement WHILE LPAREN expression RPAREN SEMICOLON
|
||||||
|
{ $2 @ $5 }
|
||||||
|
|
||||||
|
break_statement:
|
||||||
|
| BREAK identifier? SEMICOLON
|
||||||
|
{ [] }
|
||||||
|
|
||||||
|
continue_statement:
|
||||||
|
| CONTINUE identifier? SEMICOLON
|
||||||
|
{ [] }
|
||||||
|
|
||||||
|
return_statement:
|
||||||
|
| RETURN loption(expression) SEMICOLON
|
||||||
|
{ $2 }
|
||||||
|
|
||||||
|
synchronized_statement:
|
||||||
|
| SYNCHRONIZED LPAREN expression RPAREN block
|
||||||
|
{ $3 }
|
||||||
|
|
||||||
|
try_statement:
|
||||||
|
| TRY block catches
|
||||||
|
{ $2 @ $3 }
|
||||||
|
| TRY block loption(catches) finally
|
||||||
|
{ $2 @ $3 @ $4 }
|
||||||
|
|
||||||
|
catches:
|
||||||
|
| app_non_empty_list(catch_clause)
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
catch_clause:
|
||||||
|
| CATCH LPAREN catch_formal_parameter RPAREN block
|
||||||
|
{ $5 }
|
||||||
|
|
||||||
|
catch_formal_parameter:
|
||||||
|
| catch_type variable_declarator_id
|
||||||
|
{}
|
||||||
|
|
||||||
|
catch_type:
|
||||||
|
| separated_nonempty_list(PIPE,unann_class_or_interface_type)
|
||||||
|
{}
|
||||||
|
|
||||||
|
finally:
|
||||||
|
| FINALLY block
|
||||||
|
{ $2 }
|
||||||
|
|
||||||
|
yield_statement:
|
||||||
|
| YIELD expression SEMICOLON
|
||||||
|
{ $2 }
|
||||||
|
|
||||||
|
throw_statement:
|
||||||
|
| THROW expression SEMICOLON
|
||||||
|
{ $2 }
|
||||||
|
|
||||||
|
throws:
|
||||||
|
| THROWS exception_type_list
|
||||||
|
{ $2 }
|
||||||
|
|
||||||
|
exception_type_list:
|
||||||
|
| separated_nonempty_list(COMMA, exception_type)
|
||||||
|
{ [] }
|
||||||
|
|
||||||
|
exception_type:
|
||||||
|
| unann_class_or_interface_type // WE DROP ANNOTS
|
||||||
|
{ [] }
|
||||||
|
|
||||||
|
constant_declaration:
|
||||||
|
| unann_type variable_declarator_list SEMICOLON
|
||||||
|
{ $2 }
|
||||||
|
|
||||||
|
field_declaration:
|
||||||
|
| unann_type variable_declarator_list SEMICOLON
|
||||||
|
{ $2 }
|
||||||
|
|
||||||
|
variable_declarator_list:
|
||||||
|
| app_separated_non_empty_list(COMMA,variable_declarator)
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
variable_declarator:
|
||||||
|
| variable_declarator_id
|
||||||
|
{ [] }
|
||||||
|
| variable_declarator_id EQ variable_initializer
|
||||||
|
{ $3 }
|
||||||
|
|
||||||
|
variable_declarator_id:
|
||||||
|
| identifier dims?
|
||||||
|
{}
|
||||||
|
|
||||||
|
variable_initializer:
|
||||||
|
| expression
|
||||||
|
| array_initializer
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
array_initializer:
|
||||||
|
| LBRACKET RBRACKET
|
||||||
|
| LBRACKET COMMA RBRACKET
|
||||||
|
{ [] }
|
||||||
|
| LBRACKET variable_initializer array_initializer_end
|
||||||
|
{ $2 @ $3 }
|
||||||
|
|
||||||
|
array_initializer_end:
|
||||||
|
| RBRACKET
|
||||||
|
| COMMA RBRACKET
|
||||||
|
{ [] }
|
||||||
|
| COMMA variable_initializer array_initializer_end
|
||||||
|
{ $2 @ $3 }
|
||||||
|
|
||||||
|
unann_type:
|
||||||
|
| PRIMTYPE
|
||||||
|
| unann_reference_type
|
||||||
|
{}
|
||||||
|
|
||||||
|
unann_reference_type:
|
||||||
|
| unann_class_or_interface_type
|
||||||
|
| unann_array_type
|
||||||
|
{}
|
||||||
|
|
||||||
|
dotted_name:
|
||||||
|
| identifier
|
||||||
|
{ $1 }
|
||||||
|
| identifier DOT dotted_name
|
||||||
|
{ $1 ^ "." ^ $3 }
|
||||||
|
// | package_opt? separated_nonempty_list(DOT, IDENT)
|
||||||
|
// don't know how to write Java programs like that
|
||||||
|
|
||||||
|
%inline
|
||||||
|
unann_class_or_interface_type:
|
||||||
|
| dotted_name { $1 }
|
||||||
|
%inline
|
||||||
|
class_type:
|
||||||
|
| dotted_name { $1 }
|
||||||
|
%inline
|
||||||
|
class_or_interface_type_to_instantiate:
|
||||||
|
| dotted_name { $1 }
|
||||||
|
%inline
|
||||||
|
expression_name:
|
||||||
|
| dotted_name { $1 }
|
||||||
|
|
||||||
|
unann_array_type:
|
||||||
|
| PRIMTYPE dims
|
||||||
|
| unann_class_or_interface_type dims
|
||||||
|
{}
|
||||||
|
|
||||||
|
%inline dim:
|
||||||
|
| LSBRACKET RSBRACKET
|
||||||
|
{}
|
||||||
|
dims:
|
||||||
|
| dim+
|
||||||
|
{}
|
||||||
|
|
||||||
|
expression:
|
||||||
|
| assignment_expression
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
assignment_expression:
|
||||||
|
| conditional_expression
|
||||||
|
| assignment
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
assignment:
|
||||||
|
| left_hand_side assignment_operator expression
|
||||||
|
{ $1 @ $3 }
|
||||||
|
|
||||||
|
assignment_operator:
|
||||||
|
| EQ
|
||||||
|
| ASSIGNOP
|
||||||
|
{}
|
||||||
|
|
||||||
|
left_hand_side:
|
||||||
|
| expression_name
|
||||||
|
{ [] }
|
||||||
|
| field_access
|
||||||
|
| array_access
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
field_access:
|
||||||
|
| primary DOT identifier
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
array_access:
|
||||||
|
| expression_name LSBRACKET expression RSBRACKET
|
||||||
|
{ $3 }
|
||||||
|
| primary_no_new_array LSBRACKET expression RSBRACKET
|
||||||
|
{ $1 @ $3 }
|
||||||
|
|
||||||
|
primary:
|
||||||
|
| primary_no_new_array
|
||||||
|
| array_creation_expression
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
array_creation_expression:
|
||||||
|
| NEW PRIMTYPE dim_exprs
|
||||||
|
| NEW class_type dim_exprs
|
||||||
|
{ $3 }
|
||||||
|
| NEW PRIMTYPE dims array_initializer
|
||||||
|
| NEW class_type dims array_initializer
|
||||||
|
{ $4 }
|
||||||
|
|
||||||
|
dim_exprs:
|
||||||
|
| app_non_empty_list(dim_expr)
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
dim_expr:
|
||||||
|
| LSBRACKET expression RSBRACKET
|
||||||
|
{ $2 }
|
||||||
|
|
||||||
|
primary_no_new_array:
|
||||||
|
| LPAREN expression RPAREN
|
||||||
|
{ $2 }
|
||||||
|
| literal
|
||||||
|
| class_literal
|
||||||
|
| THIS
|
||||||
|
{ [] }
|
||||||
|
| class_instance_creation_expression
|
||||||
|
| field_access
|
||||||
|
| array_access
|
||||||
|
| method_invocation
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
method_invocation:
|
||||||
|
| expression_name LPAREN loption(argument_list) RPAREN
|
||||||
|
{ $3 }
|
||||||
|
| primary DOT identifier LPAREN loption(argument_list) RPAREN
|
||||||
|
{ $1 @ $5 }
|
||||||
|
|
||||||
|
literal:
|
||||||
|
| INTEGER
|
||||||
|
| FLOATINGPOINT
|
||||||
|
| boolean
|
||||||
|
| CHAR
|
||||||
|
| STRING
|
||||||
|
| NULL
|
||||||
|
{}
|
||||||
|
|
||||||
|
boolean:
|
||||||
|
| TRUE
|
||||||
|
| FALSE
|
||||||
|
{}
|
||||||
|
|
||||||
|
class_literal:
|
||||||
|
| type_name DOT CLASS
|
||||||
|
{}
|
||||||
|
|
||||||
|
%inline
|
||||||
|
identifier:
|
||||||
|
| id=IDENT { id }
|
||||||
|
|
||||||
|
%inline
|
||||||
|
type_name:
|
||||||
|
| IDENT
|
||||||
|
{}
|
||||||
|
|
||||||
|
class_instance_creation_expression:
|
||||||
|
| unqualified_class_instance_creation_expression
|
||||||
|
{ $1 }
|
||||||
|
| identifier DOT unqualified_class_instance_creation_expression
|
||||||
|
{ $3 }
|
||||||
|
| primary DOT unqualified_class_instance_creation_expression
|
||||||
|
{ $1 @ $3 }
|
||||||
|
|
||||||
|
%inline
|
||||||
|
unqualified_class_instance_creation_expression:
|
||||||
|
| NEW class_or_interface_type_to_instantiate LPAREN loption(argument_list) RPAREN
|
||||||
|
{ $4 }
|
||||||
|
| NEW class_or_interface_type_to_instantiate LPAREN args=loption(argument_list) RPAREN inner=class_body
|
||||||
|
{ args @
|
||||||
|
[{
|
||||||
|
location = location_of_pos $startpos(inner);
|
||||||
|
kind = AnonymousClass;
|
||||||
|
inner_elements = inner;
|
||||||
|
}]
|
||||||
|
}
|
||||||
|
|
||||||
|
conditional_expression:
|
||||||
|
| conditional_or_expression
|
||||||
|
{ $1 }
|
||||||
|
| conditional_or_expression QMARK expression COLON conditional_expression
|
||||||
|
{ $1 @ $3 @ $5 }
|
||||||
|
|
||||||
|
// we simpify official spec and merge many rules here
|
||||||
|
conditional_or_expression:
|
||||||
|
| conditional_or_expression binop conditional_or_expression
|
||||||
|
{ $1 @ $3 }
|
||||||
|
| conditional_or_expression INSTANCEOF unann_reference_type // WE DROP ANNOTS
|
||||||
|
| unary_expression
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
%inline
|
||||||
|
binop:
|
||||||
|
| BINOP | RANGLE | LANGLE
|
||||||
|
{}
|
||||||
|
|
||||||
|
unary_expression:
|
||||||
|
| INCR_DECR unary_expression
|
||||||
|
| BINOP unary_expression
|
||||||
|
{ $2 }
|
||||||
|
| unary_expression_not_plus_minus
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
|
||||||
|
unary_expression_not_plus_minus:
|
||||||
|
| postfix_expression
|
||||||
|
| cast_expression
|
||||||
|
{ $1 }
|
||||||
|
| BANG unary_expression
|
||||||
|
| TILDE unary_expression
|
||||||
|
{ $2 }
|
||||||
|
|
||||||
|
%inline
|
||||||
|
cast_expression:
|
||||||
|
| LPAREN PRIMTYPE RPAREN unary_expression
|
||||||
|
{ $4 }
|
||||||
|
|
||||||
|
postfix_expression:
|
||||||
|
| primary
|
||||||
|
{ $1 }
|
||||||
|
| expression_name
|
||||||
|
{ [] }
|
||||||
|
| postfix_expression INCR_DECR
|
||||||
|
{ $1 }
|
||||||
|
|
||||||
|
//speciazed version of Menhir macros using concatenation
|
||||||
|
app_list(X):
|
||||||
|
{ [] }
|
||||||
|
| x = X; xs = app_list(X)
|
||||||
|
{ x@xs }
|
||||||
|
|
||||||
|
app_non_empty_list(X):
|
||||||
|
| x = X; xs = app_list(X)
|
||||||
|
{ x@xs }
|
||||||
|
|
||||||
|
app_separated_list(SEP,X):
|
||||||
|
xs = loption(app_separated_non_empty_list(SEP,X))
|
||||||
|
{ xs }
|
||||||
|
|
||||||
|
app_separated_non_empty_list(SEP,X):
|
||||||
|
x = X
|
||||||
|
{ x }
|
||||||
|
| x = X; SEP; xs = app_separated_non_empty_list(SEP,X)
|
||||||
|
{ x@xs }
|
||||||
Loading…
Reference in new issue