Previous  Up  Next

Module Cabs

module Cabs: sig .. end
This file was originally part of Hugues Casee's frontc 2.0, and has been extensively changed since. * * 1.0 3.22.99 Hugues Cassé First version. * 2.0 George Necula 12/12/00: Many extensions 
type cabsloc = Lexing.position * Lexing.position 
type typeSpecifier =
| Tvoid
| Tchar
| Tbool
| Tshort
| Tint
| Tlong
| Tint64
| Tfloat
| Tdouble
| Tsigned
| Tunsigned
| Tnamed of string
| Tstruct of string * field_group list option * attribute list
| Tunion of string * field_group list option * attribute list
| Tenum of string * enum_item list option * attribute list
| TtypeofE of expression
| TtypeofT of specifier * decl_type 
type storage =
| NO_STORAGE
| AUTO
| STATIC
| EXTERN
| REGISTER 
type funspec =
| INLINE
| VIRTUAL
| EXPLICIT 
type cvspec =
| CV_CONST
| CV_VOLATILE
| CV_RESTRICT
| CV_ATTRIBUTE_ANNOT of string 
type spec_elem =
| SpecTypedef
| SpecCV of cvspec
| SpecAttr of attribute
| SpecStorage of storage
| SpecInline
| SpecType of typeSpecifier
| SpecPattern of string 
type specifier = spec_elem list 
type decl_type =
| JUSTBASE
| PARENTYPE of attribute list * decl_type * attribute list
| ARRAY of decl_type * attribute list * expression
| PTR of attribute list * decl_type
| PROTO of decl_type * single_name list * bool 
type name_group = specifier * name list 
type field_group =
| FIELD of specifier * (name * expression option) list
| TYPE_ANNOT of Logic_ptree.type_annot 
type init_name_group = specifier * init_name list 
type name = string * decl_type * attribute list * cabsloc 
type init_name = name * init_expression 
type single_name = specifier * name 
type enum_item = string * expression * cabsloc 
type definition =
| FUNDEF of (Logic_ptree.spec * cabsloc) option * single_name * block
* cabsloc * cabsloc
| DECDEF of (Logic_ptree.spec * cabsloc) option * init_name_group
* cabsloc
| TYPEDEF of name_group * cabsloc
| ONLYTYPEDEF of specifier * cabsloc
| GLOBASM of string * cabsloc
| PRAGMA of expression * cabsloc
| LINKAGE of string * cabsloc * definition list
| GLOBANNOT of Logic_ptree.decl list (*Logical declaration (axiom, logic, etc.)*)
| CUSTOM of Logic_ptree.custom_tree * string * cabsloc 
type file = string * (bool * definition) list
the string is a file name, and then the list of toplevel forms.
Consult the Plugin Development Guide for additional details.
type block = {
   blabels : string list;
   battrs : attribute list;
   bstmts : statement list;
} 
type asm_details = {
   aoutputs : (string option * string * expression) list;
   ainputs : (string option * string * expression) list;
   aclobbers : string list;
   alabels : string list;
} 
type raw_statement =
| NOP of cabsloc
| COMPUTATION of expression * cabsloc
| BLOCK of block * cabsloc * cabsloc
| SEQUENCE of statement * statement * cabsloc
| IF of expression * statement * statement * cabsloc
| WHILE of loop_invariant * expression * statement * cabsloc
| DOWHILE of loop_invariant * expression * statement * cabsloc
| FOR of loop_invariant * for_clause * expression * expression
* statement * cabsloc
| BREAK of cabsloc
| CONTINUE of cabsloc
| RETURN of expression * cabsloc
| SWITCH of expression * statement * cabsloc
| CASE of expression * statement * cabsloc
| CASERANGE of expression * expression * statement * cabsloc
| DEFAULT of statement * cabsloc
| LABEL of string * statement * cabsloc
| GOTO of string * cabsloc
| COMPGOTO of expression * cabsloc
| DEFINITION of definition
| ASM of attribute list * string list * asm_details option * cabsloc
| TRY_EXCEPT of block * expression * block * cabsloc
| TRY_FINALLY of block * block * cabsloc
| CODE_ANNOT of (Logic_ptree.code_annot * cabsloc)
| CODE_SPEC of (Logic_ptree.spec * cabsloc) 
type statement = {
   mutable stmt_ghost : bool;
   stmt_node : raw_statement;
} 
type loop_invariant = Logic_ptree.code_annot list 
type for_clause =
| FC_EXP of expression
| FC_DECL of definition 
type binary_operator =
| ADD
| SUB
| MUL
| DIV
| MOD
| AND
| OR
| BAND
| BOR
| XOR
| SHL
| SHR
| EQ
| NE
| LT
| GT
| LE
| GE
| ASSIGN
| ADD_ASSIGN
| SUB_ASSIGN
| MUL_ASSIGN
| DIV_ASSIGN
| MOD_ASSIGN
| BAND_ASSIGN
| BOR_ASSIGN
| XOR_ASSIGN
| SHL_ASSIGN
| SHR_ASSIGN 
type unary_operator =
| MINUS
| PLUS
| NOT
| BNOT
| MEMOF
| ADDROF
| PREINCR
| PREDECR
| POSINCR
| POSDECR 
type expression = {
   expr_loc : cabsloc;
   expr_node : cabsexp;
} 
type cabsexp =
| NOTHING
| UNARY of unary_operator * expression
| LABELADDR of string
| BINARY of binary_operator * expression * expression
| QUESTION of expression * expression * expression
| CAST of (specifier * decl_type) * init_expression
| CALL of expression * expression list
| COMMA of expression list
| CONSTANT of constant
| PAREN of expression
| VARIABLE of string
| EXPR_SIZEOF of expression
| TYPE_SIZEOF of specifier * decl_type
| EXPR_ALIGNOF of expression
| TYPE_ALIGNOF of specifier * decl_type
| INDEX of expression * expression
| MEMBEROF of expression * string
| MEMBEROFPTR of expression * string
| GNU_BODY of block
| EXPR_PATTERN of string 
type constant =
| CONST_INT of string
| CONST_FLOAT of string
| CONST_CHAR of int64 list
| CONST_WCHAR of int64 list
| CONST_STRING of string
| CONST_WSTRING of int64 list 
type init_expression =
| NO_INIT
| SINGLE_INIT of expression
| COMPOUND_INIT of (initwhat * init_expression) list 
type initwhat =
| NEXT_INIT
| INFIELD_INIT of string * initwhat
| ATINDEX_INIT of expression * initwhat
| ATINDEXRANGE_INIT of expression * expression 
type attribute = string * expression list