[bpt/coccinelle.git] / parsing_cocci / ast0_cocci.mli

(* --------------------------------------------------------------------- *)
(* Modified code *)

type arity = OPT | UNIQUE | NONE

type token_info =
    { tline_start : int; tline_end : int;
      left_offset : int; right_offset : int }
val default_token_info : token_info

type mcodekind =
    MINUS       of (Ast_cocci.anything list list * token_info) ref
  | PLUS
  | CONTEXT     of (Ast_cocci.anything Ast_cocci.befaft *
		      token_info * token_info) ref
  | MIXED       of (Ast_cocci.anything Ast_cocci.befaft *
		      token_info * token_info) ref

type position_info = { line_start : int; line_end : int;
		       logical_start : int; logical_end : int;
		       column : int; offset : int; }

type info = { pos_info : position_info;
	      attachable_start : bool; attachable_end : bool;
	      mcode_start : mcodekind list; mcode_end : mcodekind list;
	      (* the following are only for + code *)
	      strings_before : (string * position_info) list;
	      strings_after : (string * position_info) list }

type 'a mcode =
    'a * arity * info * mcodekind * meta_pos ref (* pos, - only *) *
      int (* adjacency_index *)

and 'a wrap =
    { node : 'a;
      info : info;
      index : int ref;
      mcodekind : mcodekind ref;
      exp_ty : Type_cocci.typeC option ref; (* only for expressions *)
      bef_aft : dots_bef_aft; (* only for statements *)
      true_if_arg : bool; (* true if "arg_exp", only for exprs *)
      true_if_test : bool; (* true if "test position", only for exprs *)
      true_if_test_exp : bool;(* true if "test_exp from iso", only for exprs *)
      (*nonempty if this represents the use of an iso*)
      iso_info : (string*anything) list }

and dots_bef_aft =
    NoDots | AddingBetweenDots of statement | DroppingBetweenDots of statement

(* for iso metavariables, true if they can only match nonmodified, unitary
   metavariables
   for SP metavariables, true if the metavariable is unitary (valid up to
   isomorphism phase only) *)
and pure = Impure | Pure | Context | PureContext (* pure and only context *)

(* --------------------------------------------------------------------- *)
(* --------------------------------------------------------------------- *)
(* Dots *)

and 'a base_dots =
    DOTS of 'a list
  | CIRCLES of 'a list
  | STARS of 'a list

and 'a dots = 'a base_dots wrap

(* --------------------------------------------------------------------- *)
(* Identifier *)

and base_ident =
    Id of string mcode
  | MetaId        of Ast_cocci.meta_name mcode * ident list * pure
  | MetaFunc      of Ast_cocci.meta_name mcode * ident list * pure
  | MetaLocalFunc of Ast_cocci.meta_name mcode * ident list * pure
  | OptIdent      of ident
  | UniqueIdent   of ident

and ident = base_ident wrap

(* --------------------------------------------------------------------- *)
(* Expression *)

and base_expression =
    Ident          of ident
  | Constant       of Ast_cocci.constant mcode
  | FunCall        of expression * string mcode (* ( *) *
                      expression dots * string mcode (* ) *)
  | Assignment     of expression * Ast_cocci.assignOp mcode * expression *
	              bool (* true if it can match an initialization *)
  | CondExpr       of expression * string mcode (* ? *) * expression option *
	              string mcode (* : *) * expression
  | Postfix        of expression * Ast_cocci.fixOp mcode
  | Infix          of expression * Ast_cocci.fixOp mcode
  | Unary          of expression * Ast_cocci.unaryOp mcode
  | Binary         of expression * Ast_cocci.binaryOp mcode * expression
  | Nested         of expression * Ast_cocci.binaryOp mcode * expression
  | Paren          of string mcode (* ( *) * expression *
                      string mcode (* ) *)
  | ArrayAccess    of expression * string mcode (* [ *) * expression *
	              string mcode (* ] *)
  | RecordAccess   of expression * string mcode (* . *) * ident
  | RecordPtAccess of expression * string mcode (* -> *) * ident
  | Cast           of string mcode (* ( *) * typeC * string mcode (* ) *) *
                      expression
  | SizeOfExpr     of string mcode (* sizeof *) * expression
  | SizeOfType     of string mcode (* sizeof *) * string mcode (* ( *) *
                      typeC * string mcode (* ) *)
  | TypeExp        of typeC
  | MetaErr        of Ast_cocci.meta_name mcode * expression list * pure
  | MetaExpr       of Ast_cocci.meta_name mcode * expression list *
	              Type_cocci.typeC list option * Ast_cocci.form * pure
  | MetaExprList   of Ast_cocci.meta_name mcode (* only in arglists *) *
	              listlen * pure
  | EComma         of string mcode (* only in arglists *)
  | DisjExpr       of string mcode * expression list * string mcode list *
	              string mcode
  | NestExpr       of string mcode * expression dots * string mcode *
	              expression option * Ast_cocci.multi
  | Edots          of string mcode (* ... *) * expression option
  | Ecircles       of string mcode (* ooo *) * expression option
  | Estars         of string mcode (* *** *) * expression option
  | OptExp         of expression
  | UniqueExp      of expression

and expression = base_expression wrap

and listlen = Ast_cocci.meta_name mcode option

(* --------------------------------------------------------------------- *)
(* Types *)

and base_typeC =
    ConstVol        of Ast_cocci.const_vol mcode * typeC
  | BaseType        of Ast_cocci.baseType * string mcode list
  | Signed          of Ast_cocci.sign mcode * typeC option
  | Pointer         of typeC * string mcode (* * *)
  | FunctionPointer of typeC *
	          string mcode(* ( *)*string mcode(* * *)*string mcode(* ) *)*
                  string mcode (* ( *)*parameter_list*string mcode(* ) *)
  | FunctionType    of typeC option *
	               string mcode (* ( *) * parameter_list *
                       string mcode (* ) *)
  | Array           of typeC * string mcode (* [ *) *
	               expression option * string mcode (* ] *)
  | EnumName        of string mcode (*enum*) * ident (* name *)
  | StructUnionName of Ast_cocci.structUnion mcode * ident option (* name *)
  | StructUnionDef  of typeC (* either StructUnionName or metavar *) *
	string mcode (* { *) * declaration dots * string mcode (* } *)
  | TypeName        of string mcode
  | MetaType        of Ast_cocci.meta_name mcode * pure
  | DisjType        of string mcode * typeC list * (* only after iso *)
                       string mcode list (* the |s *)  * string mcode
  | OptType         of typeC
  | UniqueType      of typeC

and typeC = base_typeC wrap

(* --------------------------------------------------------------------- *)
(* Variable declaration *)
(* Even if the Cocci program specifies a list of declarations, they are
   split out into multiple declarations of a single variable each. *)

and base_declaration =
    Init       of Ast_cocci.storage mcode option * typeC * ident *
	string mcode (*=*) * initialiser * string mcode (*;*)
  | UnInit     of Ast_cocci.storage mcode option * typeC * ident *
	string mcode (* ; *)
  | TyDecl of typeC * string mcode (* ; *)
  | MacroDecl of ident (* name *) * string mcode (* ( *) *
        expression dots * string mcode (* ) *) * string mcode (* ; *)
  | Typedef of string mcode (* typedef *) * typeC * typeC * string mcode (*;*)
  | DisjDecl   of string mcode * declaration list * string mcode list *
	          string mcode
  | Ddots      of string mcode (* ... *) * declaration option (* whencode *)
  | OptDecl    of declaration
  | UniqueDecl of declaration

and declaration = base_declaration wrap

(* --------------------------------------------------------------------- *)
(* Initializers *)

and base_initialiser =
    MetaInit of Ast_cocci.meta_name mcode * pure
  | InitExpr of expression
  | InitList of string mcode (*{*) * initialiser_list * string mcode (*}*)
  | InitGccExt of
      designator list (* name *) * string mcode (*=*) *
	initialiser (* gccext: *)
  | InitGccName of ident (* name *) * string mcode (*:*) *
	initialiser
  | IComma of string mcode
  | Idots  of string mcode (* ... *) * initialiser option (* whencode *)
  | OptIni    of initialiser
  | UniqueIni of initialiser

and designator =
    DesignatorField of string mcode (* . *) * ident
  | DesignatorIndex of string mcode (* [ *) * expression * string mcode (* ] *)
  | DesignatorRange of
      string mcode (* [ *) * expression * string mcode (* ... *) *
      expression * string mcode (* ] *)

and initialiser = base_initialiser wrap

and initialiser_list = initialiser dots

(* --------------------------------------------------------------------- *)
(* Parameter *)

and base_parameterTypeDef =
    VoidParam     of typeC
  | Param         of typeC * ident option
  | MetaParam     of Ast_cocci.meta_name mcode * pure
  | MetaParamList of Ast_cocci.meta_name mcode * listlen * pure
  | PComma        of string mcode
  | Pdots         of string mcode (* ... *)
  | Pcircles      of string mcode (* ooo *)
  | OptParam      of parameterTypeDef
  | UniqueParam   of parameterTypeDef

and parameterTypeDef = base_parameterTypeDef wrap

and parameter_list = parameterTypeDef dots

(* --------------------------------------------------------------------- *)
(* #define Parameters *)

and base_define_param =
    DParam        of ident
  | DPComma       of string mcode
  | DPdots        of string mcode (* ... *)
  | DPcircles     of string mcode (* ooo *)
  | OptDParam     of define_param
  | UniqueDParam  of define_param

and define_param = base_define_param wrap

and base_define_parameters =
    NoParams
  | DParams      of string mcode(*( *) * define_param dots * string mcode(* )*)

and define_parameters = base_define_parameters wrap

(* --------------------------------------------------------------------- *)
(* Statement*)

and base_statement =
    Decl          of (info * mcodekind) (* before the decl *) * declaration
  | Seq           of string mcode (* { *) * statement dots *
 	             string mcode (* } *)
  | ExprStatement of expression * string mcode (*;*)
  | IfThen        of string mcode (* if *) * string mcode (* ( *) *
	             expression * string mcode (* ) *) *
	             statement * (info * mcodekind)
  | IfThenElse    of string mcode (* if *) * string mcode (* ( *) *
	             expression * string mcode (* ) *) *
	             statement * string mcode (* else *) * statement *
	             (info * mcodekind)
  | While         of string mcode (* while *) * string mcode (* ( *) *
	             expression * string mcode (* ) *) *
	             statement * (info * mcodekind) (* after info *)
  | Do            of string mcode (* do *) * statement *
                     string mcode (* while *) * string mcode (* ( *) *
	             expression * string mcode (* ) *) *
                     string mcode (* ; *)
  | For           of string mcode (* for *) * string mcode (* ( *) *
                     expression option * string mcode (*;*) *
	             expression option * string mcode (*;*) *
                     expression option * string mcode (* ) *) * statement *
	             (info * mcodekind) (* after info *)
  | Iterator      of ident (* name *) * string mcode (* ( *) *
	             expression dots * string mcode (* ) *) *
	             statement * (info * mcodekind) (* after info *)
  | Switch        of string mcode (* switch *) * string mcode (* ( *) *
	             expression * string mcode (* ) *) * string mcode (* { *) *
	             case_line dots * string mcode (* } *)
  | Break         of string mcode (* break *) * string mcode (* ; *)
  | Continue      of string mcode (* continue *) * string mcode (* ; *)
  | Label         of ident * string mcode (* : *)
  | Goto          of string mcode (* goto *) * ident * string mcode (* ; *)
  | Return        of string mcode (* return *) * string mcode (* ; *)
  | ReturnExpr    of string mcode (* return *) * expression *
	             string mcode (* ; *)
  | MetaStmt      of Ast_cocci.meta_name mcode * pure
  | MetaStmtList  of Ast_cocci.meta_name mcode (*only in statement lists*) *
	             pure
  | Exp           of expression  (* only in dotted statement lists *)
  | TopExp        of expression (* for macros body *)
  | Ty            of typeC (* only at top level *)
  | TopInit       of initialiser (* only at top level *)
  | Disj          of string mcode * statement dots list * string mcode list *
	             string mcode
  | Nest          of string mcode * statement dots * string mcode *
	             (statement dots,statement) whencode list * Ast_cocci.multi
  | Dots          of string mcode (* ... *) *
                     (statement dots,statement) whencode list
  | Circles       of string mcode (* ooo *) *
	             (statement dots,statement) whencode list
  | Stars         of string mcode (* *** *) *
	             (statement dots,statement) whencode list
  | FunDecl of (info * mcodekind) (* before the function decl *) *
	fninfo list * ident (* name *) *
	string mcode (* ( *) * parameter_list * string mcode (* ) *) *
	string mcode (* { *) * statement dots *
	string mcode (* } *)
  | Include of string mcode (* #include *) * Ast_cocci.inc_file mcode(* file *)
  | Define of string mcode (* #define *) * ident (* name *) *
	define_parameters (*params*) * statement dots
  | OptStm   of statement
  | UniqueStm of statement

and fninfo =
    FStorage of Ast_cocci.storage mcode
  | FType of typeC
  | FInline of string mcode
  | FAttr of string mcode

and ('a,'b) whencode =
    WhenNot of 'a
  | WhenAlways of 'b
  | WhenModifier of Ast_cocci.when_modifier
  | WhenNotTrue of expression
  | WhenNotFalse of expression

and statement = base_statement wrap

and base_case_line =
    Default of string mcode (* default *) * string mcode (*:*) * statement dots
  | Case of string mcode (* case *) * expression * string mcode (*:*) *
	statement dots
  | OptCase of case_line

and case_line = base_case_line wrap

(* --------------------------------------------------------------------- *)
(* Positions *)

and meta_pos =
    MetaPos of Ast_cocci.meta_name mcode * Ast_cocci.meta_name list *
	Ast_cocci.meta_collect
  | NoMetaPos

(* --------------------------------------------------------------------- *)
(* Top-level code *)

and base_top_level =
    DECL of statement
  | CODE of statement dots
  | FILEINFO of string mcode (* old file *) * string mcode (* new file *)
  | ERRORWORDS of expression list
  | OTHER of statement (* temporary, disappears after top_level.ml *)

and top_level = base_top_level wrap
and rule = top_level list

and parsed_rule =
    CocciRule of
      (rule * Ast_cocci.metavar list *
	 (string list * string list * Ast_cocci.dependency * string *
	    Ast_cocci.exists)) *
	(rule * Ast_cocci.metavar list) * Ast_cocci.ruletype
  | ScriptRule of
      string * Ast_cocci.dependency * (string * Ast_cocci.meta_name) list *
	string
  | InitialScriptRule of string * string
  | FinalScriptRule of string * string

(* --------------------------------------------------------------------- *)

and anything =
    DotsExprTag of expression dots
  | DotsInitTag of initialiser dots
  | DotsParamTag of parameterTypeDef dots
  | DotsStmtTag of statement dots
  | DotsDeclTag of declaration dots
  | DotsCaseTag of case_line dots
  | IdentTag of ident
  | ExprTag of expression
  | ArgExprTag of expression  (* for isos *)
  | TestExprTag of expression (* for isos *)
  | TypeCTag of typeC
  | ParamTag of parameterTypeDef
  | InitTag of initialiser
  | DeclTag of declaration
  | StmtTag of statement
  | CaseLineTag of case_line
  | TopTag of top_level
  | IsoWhenTag of Ast_cocci.when_modifier (*only for when code, in iso phase*)
  | IsoWhenTTag of expression(*only for when code, in iso phase*)
  | IsoWhenFTag of expression(*only for when code, in iso phase*)
  | MetaPosTag of meta_pos (* only in iso phase *)

val dotsExpr : expression dots -> anything
val dotsInit : initialiser dots -> anything
val dotsParam : parameterTypeDef dots -> anything
val dotsStmt : statement dots -> anything
val dotsDecl : declaration dots -> anything
val dotsCase : case_line dots -> anything
val ident : ident -> anything
val expr : expression -> anything
val typeC : typeC -> anything
val param : parameterTypeDef -> anything
val ini : initialiser -> anything
val decl : declaration -> anything
val stmt : statement -> anything
val case_line : case_line -> anything
val top : top_level -> anything

(* --------------------------------------------------------------------- *)

val undots : 'a dots -> 'a list

(* --------------------------------------------------------------------- *)
(* Avoid cluttering the parser.  Calculated in compute_lines.ml. *)

val default_info : unit -> info
val default_befaft : unit -> mcodekind
val context_befaft : unit -> mcodekind
val wrap : 'a -> 'a wrap
val context_wrap : 'a -> 'a wrap
val unwrap : 'a wrap -> 'a
val unwrap_mcode : 'a mcode -> 'a
val rewrap : 'a wrap -> 'b -> 'b wrap
val rewrap_mcode : 'a mcode -> 'b -> 'b mcode
val copywrap : 'a wrap -> 'b -> 'b wrap
val get_pos : 'a mcode -> meta_pos
val get_pos_ref : 'a mcode -> meta_pos ref
val set_pos : meta_pos -> 'a mcode -> 'a mcode
val get_info : 'a wrap -> info
val set_info : 'a wrap -> info -> 'a wrap
val get_index : 'a wrap -> int
val set_index : 'a wrap -> int -> unit
val get_line : 'a wrap -> int
val get_line_end : 'a wrap -> int
val get_mcodekind : 'a wrap -> mcodekind
val get_mcode_mcodekind : 'a mcode -> mcodekind
val get_mcodekind_ref : 'a wrap -> mcodekind ref
val set_mcodekind : 'a wrap -> mcodekind -> unit
val set_type : 'a wrap -> Type_cocci.typeC option -> unit
val get_type : 'a wrap -> Type_cocci.typeC option
val set_dots_bef_aft : statement -> dots_bef_aft -> statement
val get_dots_bef_aft : 'a wrap -> dots_bef_aft
val set_arg_exp : expression -> expression
val get_arg_exp : expression -> bool
val set_test_pos : expression -> expression
val get_test_pos : 'a wrap -> bool
val set_test_exp : expression -> expression
val get_test_exp : 'a wrap -> bool
val set_iso : 'a wrap -> (string*anything) list -> 'a wrap
val get_iso : 'a wrap -> (string*anything) list
val fresh_index : unit -> int
val set_mcode_data : 'a -> 'a mcode -> 'a mcode
val make_mcode : 'a -> 'a mcode
val make_mcode_info : 'a -> info -> 'a mcode

val ast0_type_to_type : typeC -> Type_cocci.typeC
val reverse_type : Type_cocci.typeC -> base_typeC
exception TyConv

val lub_pure : pure -> pure -> pure

(* --------------------------------------------------------------------- *)

val rule_name : string ref (* for the convenience of the parser *)
Commit	Line	Data
34e49164 C	1	(* --------------------------------------------------------------------- *)
	2	(* Modified code *)
	3
	4	type arity = OPT \| UNIQUE \| NONE
	5
	6	type token_info =
	7	{ tline_start : int; tline_end : int;
	8	left_offset : int; right_offset : int }
	9	val default_token_info : token_info
	10
	11	type mcodekind =
	12	MINUS of (Ast_cocci.anything list list * token_info) ref
	13	\| PLUS
	14	\| CONTEXT of (Ast_cocci.anything Ast_cocci.befaft *
	15	token_info * token_info) ref
	16	\| MIXED of (Ast_cocci.anything Ast_cocci.befaft *
	17	token_info * token_info) ref
	18
0708f913 C	19	type position_info = { line_start : int; line_end : int;
	20	logical_start : int; logical_end : int;
	21	column : int; offset : int; }
	22
	23	type info = { pos_info : position_info;
34e49164 C	24	attachable_start : bool; attachable_end : bool;
34e49164 C	25	mcode_start : mcodekind list; mcode_end : mcodekind list;
34e49164	26	(* the following are only for + code *)
0708f913 C	27	strings_before : (string * position_info) list;
0708f913 C	28	strings_after : (string * position_info) list }
34e49164	29
708f4980 C	30	type 'a mcode =
	31	'a * arity * info * mcodekind * meta_pos ref (* pos, - only )
	32	int (* adjacency_index *)
	33
34e49164 C	34	and 'a wrap =
	35	{ node : 'a;
	36	info : info;
	37	index : int ref;
	38	mcodekind : mcodekind ref;
	39	exp_ty : Type_cocci.typeC option ref; (* only for expressions *)
	40	bef_aft : dots_bef_aft; (* only for statements *)
	41	true_if_arg : bool; (* true if "arg_exp", only for exprs *)
	42	true_if_test : bool; (* true if "test position", only for exprs *)
	43	true_if_test_exp : bool;(* true if "test_exp from iso", only for exprs *)
	44	(nonempty if this represents the use of an iso)
	45	iso_info : (string*anything) list }
	46
	47	and dots_bef_aft =
	48	NoDots \| AddingBetweenDots of statement \| DroppingBetweenDots of statement
	49
	50	(* for iso metavariables, true if they can only match nonmodified, unitary
	51	metavariables
	52	for SP metavariables, true if the metavariable is unitary (valid up to
	53	isomorphism phase only) *)
	54	and pure = Impure \| Pure \| Context \| PureContext (* pure and only context *)
	55
	56	(* --------------------------------------------------------------------- *)
	57	(* --------------------------------------------------------------------- *)
	58	(* Dots *)
	59
	60	and 'a base_dots =
	61	DOTS of 'a list
	62	\| CIRCLES of 'a list
	63	\| STARS of 'a list
	64
	65	and 'a dots = 'a base_dots wrap
	66
	67	(* --------------------------------------------------------------------- *)
	68	(* Identifier *)
	69
	70	and base_ident =
	71	Id of string mcode
	72	\| MetaId of Ast_cocci.meta_name mcode * ident list * pure
	73	\| MetaFunc of Ast_cocci.meta_name mcode * ident list * pure
	74	\| MetaLocalFunc of Ast_cocci.meta_name mcode * ident list * pure
	75	\| OptIdent of ident
	76	\| UniqueIdent of ident
	77
	78	and ident = base_ident wrap
	79
	80	(* --------------------------------------------------------------------- *)
	81	(* Expression *)
	82
faf9a90c	83	and base_expression =
34e49164 C	84	Ident of ident
	85	\| Constant of Ast_cocci.constant mcode
	86	\| FunCall of expression * string mcode (* ( )
	87	expression dots * string mcode (* ) *)
	88	\| Assignment of expression * Ast_cocci.assignOp mcode * expression *
	89	bool (* true if it can match an initialization *)
	90	\| CondExpr of expression * string mcode (* ? ) expression option *
	91	string mcode (* : ) expression
	92	\| Postfix of expression * Ast_cocci.fixOp mcode
	93	\| Infix of expression * Ast_cocci.fixOp mcode
	94	\| Unary of expression * Ast_cocci.unaryOp mcode
	95	\| Binary of expression * Ast_cocci.binaryOp mcode * expression
	96	\| Nested of expression * Ast_cocci.binaryOp mcode * expression
	97	\| Paren of string mcode (* ( ) expression *
	98	string mcode (* ) *)
	99	\| ArrayAccess of expression * string mcode (* [ ) expression *
	100	string mcode (* ] *)
	101	\| RecordAccess of expression * string mcode (* . ) ident
	102	\| RecordPtAccess of expression * string mcode (* -> ) ident
	103	\| Cast of string mcode (* ( ) typeC * string mcode (* ) )
	104	expression
	105	\| SizeOfExpr of string mcode (* sizeof ) expression
	106	\| SizeOfType of string mcode (* sizeof ) string mcode (* ( )
	107	typeC * string mcode (* ) *)
	108	\| TypeExp of typeC
	109	\| MetaErr of Ast_cocci.meta_name mcode * expression list * pure
	110	\| MetaExpr of Ast_cocci.meta_name mcode * expression list *
	111	Type_cocci.typeC list option * Ast_cocci.form * pure
	112	\| MetaExprList of Ast_cocci.meta_name mcode (* only in arglists )
	113	listlen * pure
	114	\| EComma of string mcode (* only in arglists *)
	115	\| DisjExpr of string mcode * expression list * string mcode list *
	116	string mcode
	117	\| NestExpr of string mcode * expression dots * string mcode *
	118	expression option * Ast_cocci.multi
	119	\| Edots of string mcode (* ... ) expression option
	120	\| Ecircles of string mcode (* ooo ) expression option
	121	\| Estars of string mcode (* *** ) expression option
	122	\| OptExp of expression
	123	\| UniqueExp of expression
	124
	125	and expression = base_expression wrap
	126
	127	and listlen = Ast_cocci.meta_name mcode option
	128
	129	(* --------------------------------------------------------------------- *)
	130	(* Types *)
	131
faf9a90c	132	and base_typeC =
34e49164	133	ConstVol of Ast_cocci.const_vol mcode * typeC
faf9a90c C	134	\| BaseType of Ast_cocci.baseType * string mcode list
faf9a90c C	135	\| Signed of Ast_cocci.sign mcode * typeC option
34e49164 C	136	\| Pointer of typeC * string mcode (* * *)
	137	\| FunctionPointer of typeC *
	138	string mcode(* ( )string mcode(* * )string mcode(* ) )
	139	string mcode (* ( )parameter_liststring mcode( ) *)
	140	\| FunctionType of typeC option *
	141	string mcode (* ( ) parameter_list *
	142	string mcode (* ) *)
	143	\| Array of typeC * string mcode (* [ )
	144	expression option * string mcode (* ] *)
faf9a90c	145	\| EnumName of string mcode (enum) * ident (* name *)
34e49164 C	146	\| StructUnionName of Ast_cocci.structUnion mcode * ident option (* name *)
	147	\| StructUnionDef of typeC (* either StructUnionName or metavar )
	148	string mcode (* { ) declaration dots * string mcode (* } *)
	149	\| TypeName of string mcode
	150	\| MetaType of Ast_cocci.meta_name mcode * pure
	151	\| DisjType of string mcode * typeC list * (* only after iso *)
	152	string mcode list (* the \|s ) string mcode
	153	\| OptType of typeC
	154	\| UniqueType of typeC
	155
	156	and typeC = base_typeC wrap
	157
	158	(* --------------------------------------------------------------------- *)
	159	(* Variable declaration *)
	160	(* Even if the Cocci program specifies a list of declarations, they are
	161	split out into multiple declarations of a single variable each. *)
	162
	163	and base_declaration =
	164	Init of Ast_cocci.storage mcode option * typeC * ident *
	165	string mcode (=) * initialiser * string mcode (;)
	166	\| UnInit of Ast_cocci.storage mcode option * typeC * ident *
	167	string mcode (* ; *)
	168	\| TyDecl of typeC * string mcode (* ; *)
	169	\| MacroDecl of ident (* name ) string mcode (* ( )
	170	expression dots * string mcode (* ) ) string mcode (* ; *)
	171	\| Typedef of string mcode (* typedef ) typeC * typeC * string mcode (;)
	172	\| DisjDecl of string mcode * declaration list * string mcode list *
	173	string mcode
	174	\| Ddots of string mcode (* ... ) declaration option (* whencode *)
	175	\| OptDecl of declaration
	176	\| UniqueDecl of declaration
	177
	178	and declaration = base_declaration wrap
	179
	180	(* --------------------------------------------------------------------- *)
	181	(* Initializers *)
	182
	183	and base_initialiser =
113803cf C	184	MetaInit of Ast_cocci.meta_name mcode * pure
113803cf C	185	\| InitExpr of expression
34e49164	186	\| InitList of string mcode ({) * initialiser_list * string mcode (})
113803cf C	187	\| InitGccExt of
113803cf C	188	designator list (* name ) string mcode (=) *
34e49164 C	189	initialiser (* gccext: *)
	190	\| InitGccName of ident (* name ) string mcode (:) *
	191	initialiser
34e49164 C	192	\| IComma of string mcode
	193	\| Idots of string mcode (* ... ) initialiser option (* whencode *)
	194	\| OptIni of initialiser
	195	\| UniqueIni of initialiser
	196
113803cf C	197	and designator =
	198	DesignatorField of string mcode (* . ) ident
	199	\| DesignatorIndex of string mcode (* [ ) expression * string mcode (* ] *)
	200	\| DesignatorRange of
	201	string mcode (* [ ) expression * string mcode (* ... )
	202	expression * string mcode (* ] *)
	203
34e49164 C	204	and initialiser = base_initialiser wrap
	205
	206	and initialiser_list = initialiser dots
	207
	208	(* --------------------------------------------------------------------- *)
	209	(* Parameter *)
	210
	211	and base_parameterTypeDef =
	212	VoidParam of typeC
	213	\| Param of typeC * ident option
	214	\| MetaParam of Ast_cocci.meta_name mcode * pure
	215	\| MetaParamList of Ast_cocci.meta_name mcode * listlen * pure
	216	\| PComma of string mcode
	217	\| Pdots of string mcode (* ... *)
	218	\| Pcircles of string mcode (* ooo *)
	219	\| OptParam of parameterTypeDef
	220	\| UniqueParam of parameterTypeDef
	221
	222	and parameterTypeDef = base_parameterTypeDef wrap
	223
	224	and parameter_list = parameterTypeDef dots
	225
	226	(* --------------------------------------------------------------------- *)
	227	(* #define Parameters *)
	228
	229	and base_define_param =
	230	DParam of ident
	231	\| DPComma of string mcode
	232	\| DPdots of string mcode (* ... *)
	233	\| DPcircles of string mcode (* ooo *)
	234	\| OptDParam of define_param
	235	\| UniqueDParam of define_param
	236
	237	and define_param = base_define_param wrap
	238
	239	and base_define_parameters =
	240	NoParams
	241	\| DParams of string mcode(( ) * define_param dots * string mcode(* )*)
	242
	243	and define_parameters = base_define_parameters wrap
	244
	245	(* --------------------------------------------------------------------- *)
	246	(* Statement*)
	247
	248	and base_statement =
	249	Decl of (info * mcodekind) (* before the decl ) declaration
	250	\| Seq of string mcode (* { ) statement dots *
	251	string mcode (* } *)
	252	\| ExprStatement of expression * string mcode (;)
	253	\| IfThen of string mcode (* if ) string mcode (* ( )
	254	expression * string mcode (* ) )
	255	statement * (info * mcodekind)
	256	\| IfThenElse of string mcode (* if ) string mcode (* ( )
	257	expression * string mcode (* ) )
	258	statement * string mcode (* else ) statement *
	259	(info * mcodekind)
	260	\| While of string mcode (* while ) string mcode (* ( )
	261	expression * string mcode (* ) )
	262	statement * (info * mcodekind) (* after info *)
	263	\| Do of string mcode (* do ) statement *
	264	string mcode (* while ) string mcode (* ( )
	265	expression * string mcode (* ) )
	266	string mcode (* ; *)
	267	\| For of string mcode (* for ) string mcode (* ( )
268	expression option * string mcode (;) *
269	expression option * string mcode (;) *
270	expression option * string mcode (* ) ) statement *
271	(info * mcodekind) (* after info *)
272	\| Iterator of ident (* name ) string mcode (* ( )
273	expression dots * string mcode (* ) )
274	statement * (info * mcodekind) (* after info *)
275	\| Switch of string mcode (* switch ) string mcode (* ( )
276	expression * string mcode (* ) ) string mcode (* { )
277	case_line dots * string mcode (* } *)
278	\| Break of string mcode (* break ) string mcode (* ; *)
279	\| Continue of string mcode (* continue ) string mcode (* ; *)
280	\| Label of ident * string mcode (* : *)
281	\| Goto of string mcode (* goto ) ident * string mcode (* ; *)
282	\| Return of string mcode (* return ) string mcode (* ; *)
283	\| ReturnExpr of string mcode (* return ) expression *
284	string mcode (* ; *)
285	\| MetaStmt of Ast_cocci.meta_name mcode * pure
286	\| MetaStmtList of Ast_cocci.meta_name mcode (only in statement lists) *
287	pure
288	\| Exp of expression (* only in dotted statement lists *)
289	\| TopExp of expression (* for macros body *)
290	\| Ty of typeC (* only at top level *)
1be43e12	291	\| TopInit of initialiser (* only at top level *)
34e49164 C	292	\| Disj of string mcode * statement dots list * string mcode list *
	293	string mcode
	294	\| Nest of string mcode * statement dots * string mcode *
	295	(statement dots,statement) whencode list * Ast_cocci.multi
	296	\| Dots of string mcode (* ... )
	297	(statement dots,statement) whencode list
	298	\| Circles of string mcode (* ooo )
	299	(statement dots,statement) whencode list
	300	\| Stars of string mcode (* *** )
	301	(statement dots,statement) whencode list
	302	\| FunDecl of (info * mcodekind) (* before the function decl )
	303	fninfo list * ident (* name )
	304	string mcode (* ( ) parameter_list * string mcode (* ) )
	305	string mcode (* { ) statement dots *
	306	string mcode (* } *)
	307	\| Include of string mcode (* #include ) Ast_cocci.inc_file mcode(* file *)
	308	\| Define of string mcode (* #define ) ident (* name )
	309	define_parameters (params) * statement dots
	310	\| OptStm of statement
	311	\| UniqueStm of statement
	312
	313	and fninfo =
	314	FStorage of Ast_cocci.storage mcode
	315	\| FType of typeC
	316	\| FInline of string mcode
	317	\| FAttr of string mcode
	318
	319	and ('a,'b) whencode =
	320	WhenNot of 'a
	321	\| WhenAlways of 'b
	322	\| WhenModifier of Ast_cocci.when_modifier
1be43e12 C	323	\| WhenNotTrue of expression
1be43e12 C	324	\| WhenNotFalse of expression
34e49164 C	325
	326	and statement = base_statement wrap
	327
	328	and base_case_line =
	329	Default of string mcode (* default ) string mcode (:) * statement dots
	330	\| Case of string mcode (* case ) expression * string mcode (:) *
	331	statement dots
	332	\| OptCase of case_line
	333
	334	and case_line = base_case_line wrap
	335
	336	(* --------------------------------------------------------------------- *)
	337	(* Positions *)
	338
	339	and meta_pos =
	340	MetaPos of Ast_cocci.meta_name mcode * Ast_cocci.meta_name list *
	341	Ast_cocci.meta_collect
	342	\| NoMetaPos
	343
	344	(* --------------------------------------------------------------------- *)
	345	(* Top-level code *)
	346
	347	and base_top_level =
	348	DECL of statement
	349	\| CODE of statement dots
	350	\| FILEINFO of string mcode (* old file ) string mcode (* new file *)
	351	\| ERRORWORDS of expression list
	352	\| OTHER of statement (* temporary, disappears after top_level.ml *)
	353
	354	and top_level = base_top_level wrap
	355	and rule = top_level list
	356
	357	and parsed_rule =
	358	CocciRule of
	359	(rule * Ast_cocci.metavar list *
	360	(string list * string list * Ast_cocci.dependency * string *
	361	Ast_cocci.exists)) *
faf9a90c	362	(rule * Ast_cocci.metavar list) * Ast_cocci.ruletype
34e49164 C	363	\| ScriptRule of
	364	string * Ast_cocci.dependency * (string * Ast_cocci.meta_name) list *
	365	string
b1b2de81 C	366	\| InitialScriptRule of string * string
b1b2de81 C	367	\| FinalScriptRule of string * string
34e49164 C	368
	369	(* --------------------------------------------------------------------- *)
	370
	371	and anything =
	372	DotsExprTag of expression dots
	373	\| DotsInitTag of initialiser dots
	374	\| DotsParamTag of parameterTypeDef dots
	375	\| DotsStmtTag of statement dots
	376	\| DotsDeclTag of declaration dots
	377	\| DotsCaseTag of case_line dots
	378	\| IdentTag of ident
	379	\| ExprTag of expression
	380	\| ArgExprTag of expression (* for isos *)
	381	\| TestExprTag of expression (* for isos *)
	382	\| TypeCTag of typeC
	383	\| ParamTag of parameterTypeDef
	384	\| InitTag of initialiser
	385	\| DeclTag of declaration
	386	\| StmtTag of statement
	387	\| CaseLineTag of case_line
	388	\| TopTag of top_level
	389	\| IsoWhenTag of Ast_cocci.when_modifier (only for when code, in iso phase)
1be43e12 C	390	\| IsoWhenTTag of expression(only for when code, in iso phase)
1be43e12 C	391	\| IsoWhenFTag of expression(only for when code, in iso phase)
34e49164 C	392	\| MetaPosTag of meta_pos (* only in iso phase *)
	393
	394	val dotsExpr : expression dots -> anything
	395	val dotsInit : initialiser dots -> anything
	396	val dotsParam : parameterTypeDef dots -> anything
	397	val dotsStmt : statement dots -> anything
	398	val dotsDecl : declaration dots -> anything
	399	val dotsCase : case_line dots -> anything
	400	val ident : ident -> anything
	401	val expr : expression -> anything
	402	val typeC : typeC -> anything
	403	val param : parameterTypeDef -> anything
	404	val ini : initialiser -> anything
	405	val decl : declaration -> anything
	406	val stmt : statement -> anything
	407	val case_line : case_line -> anything
	408	val top : top_level -> anything
	409
	410	(* --------------------------------------------------------------------- *)
	411
	412	val undots : 'a dots -> 'a list
	413
	414	(* --------------------------------------------------------------------- *)
	415	(* Avoid cluttering the parser. Calculated in compute_lines.ml. *)
	416
	417	val default_info : unit -> info
	418	val default_befaft : unit -> mcodekind
	419	val context_befaft : unit -> mcodekind
	420	val wrap : 'a -> 'a wrap
	421	val context_wrap : 'a -> 'a wrap
	422	val unwrap : 'a wrap -> 'a
	423	val unwrap_mcode : 'a mcode -> 'a
	424	val rewrap : 'a wrap -> 'b -> 'b wrap
	425	val rewrap_mcode : 'a mcode -> 'b -> 'b mcode
	426	val copywrap : 'a wrap -> 'b -> 'b wrap
	427	val get_pos : 'a mcode -> meta_pos
	428	val get_pos_ref : 'a mcode -> meta_pos ref
	429	val set_pos : meta_pos -> 'a mcode -> 'a mcode
	430	val get_info : 'a wrap -> info
	431	val set_info : 'a wrap -> info -> 'a wrap
	432	val get_index : 'a wrap -> int
	433	val set_index : 'a wrap -> int -> unit
	434	val get_line : 'a wrap -> int
	435	val get_line_end : 'a wrap -> int
	436	val get_mcodekind : 'a wrap -> mcodekind
	437	val get_mcode_mcodekind : 'a mcode -> mcodekind
	438	val get_mcodekind_ref : 'a wrap -> mcodekind ref
	439	val set_mcodekind : 'a wrap -> mcodekind -> unit
	440	val set_type : 'a wrap -> Type_cocci.typeC option -> unit
	441	val get_type : 'a wrap -> Type_cocci.typeC option
	442	val set_dots_bef_aft : statement -> dots_bef_aft -> statement
	443	val get_dots_bef_aft : 'a wrap -> dots_bef_aft
	444	val set_arg_exp : expression -> expression
	445	val get_arg_exp : expression -> bool
	446	val set_test_pos : expression -> expression
	447	val get_test_pos : 'a wrap -> bool
	448	val set_test_exp : expression -> expression
	449	val get_test_exp : 'a wrap -> bool
	450	val set_iso : 'a wrap -> (string*anything) list -> 'a wrap
	451	val get_iso : 'a wrap -> (string*anything) list
	452	val fresh_index : unit -> int
	453	val set_mcode_data : 'a -> 'a mcode -> 'a mcode
	454	val make_mcode : 'a -> 'a mcode
	455	val make_mcode_info : 'a -> info -> 'a mcode
456
457	val ast0_type_to_type : typeC -> Type_cocci.typeC
458	val reverse_type : Type_cocci.typeC -> base_typeC
459	exception TyConv
460
461	val lub_pure : pure -> pure -> pure
462
463	(* --------------------------------------------------------------------- *)
464
465	val rule_name : string ref (* for the convenience of the parser *)