2003-12-08 05:55:28 +03:00
####################################################################
#
# This file was generated using Parse::Yapp version 1.05.
#
# Don't edit this file, use source file instead.
#
# ANY CHANGE MADE HERE WILL BE LOST !
#
####################################################################
2005-07-09 19:32:08 +04:00
package Parse::Pidl::IDL ;
2003-12-08 05:55:28 +03:00
use vars qw ( @ ISA ) ;
use strict ;
@ ISA = qw ( Parse::Yapp:: Driver ) ;
#Included Parse/Yapp/Driver.pm file----------------------------------------
{
#
# Module Parse::Yapp::Driver
#
# This module is part of the Parse::Yapp package available on your
# nearest CPAN
#
# Any use of this module in a standalone parser make the included
# text under the same copyright as the Parse::Yapp module itself.
#
# This notice should remain unchanged.
#
# (c) Copyright 1998-2001 Francois Desarmenien, all rights reserved.
# (see the pod text in Parse::Yapp module for use and distribution rights)
#
package Parse::Yapp::Driver ;
require 5.004 ;
use strict ;
use vars qw ( $ VERSION $ COMPATIBLE $ FILENAME ) ;
$ VERSION = '1.05' ;
$ COMPATIBLE = '0.07' ;
$ FILENAME = __FILE__ ;
use Carp ;
#Known parameters, all starting with YY (leading YY will be discarded)
my ( % params ) = ( YYLEX = > 'CODE' , 'YYERROR' = > 'CODE' , YYVERSION = > '' ,
YYRULES = > 'ARRAY' , YYSTATES = > 'ARRAY' , YYDEBUG = > '' ) ;
#Mandatory parameters
my ( @ params ) = ( 'LEX' , 'RULES' , 'STATES' ) ;
sub new {
my ( $ class ) = shift ;
my ( $ errst , $ nberr , $ token , $ value , $ check , $ dotpos ) ;
my ( $ self ) = { ERROR = > \ & _Error ,
ERRST = > \ $ errst ,
NBERR = > \ $ nberr ,
TOKEN = > \ $ token ,
VALUE = > \ $ value ,
DOTPOS = > \ $ dotpos ,
STACK = > [] ,
DEBUG = > 0 ,
CHECK = > \ $ check } ;
_CheckParams ( [] , \ % params , \ @ _ , $ self ) ;
exists ( $$ self { VERSION } )
and $$ self { VERSION } < $ COMPATIBLE
and croak "Yapp driver version $VERSION " .
"incompatible with version $$self{VERSION}:\n" .
"Please recompile parser module." ;
ref ( $ class )
and $ class = ref ( $ class ) ;
bless ( $ self , $ class ) ;
}
sub YYParse {
my ( $ self ) = shift ;
my ( $ retval ) ;
_CheckParams ( \ @ params , \ % params , \ @ _ , $ self ) ;
if ( $$ self { DEBUG } ) {
_DBLoad ( ) ;
$ retval = eval '$self->_DBParse()' ; #Do not create stab entry on compile
$@ and die $@ ;
}
else {
$ retval = $ self - > _Parse ( ) ;
}
$ retval
}
sub YYData {
my ( $ self ) = shift ;
exists ( $$ self { USER } )
or $$ self { USER } = { } ;
$$ self { USER } ;
}
sub YYErrok {
my ( $ self ) = shift ;
$ { $$ self { ERRST } } = 0 ;
undef ;
}
sub YYNberr {
my ( $ self ) = shift ;
$ { $$ self { NBERR } } ;
}
sub YYRecovering {
my ( $ self ) = shift ;
$ { $$ self { ERRST } } != 0 ;
}
sub YYAbort {
my ( $ self ) = shift ;
$ { $$ self { CHECK } } = 'ABORT' ;
undef ;
}
sub YYAccept {
my ( $ self ) = shift ;
$ { $$ self { CHECK } } = 'ACCEPT' ;
undef ;
}
sub YYError {
my ( $ self ) = shift ;
$ { $$ self { CHECK } } = 'ERROR' ;
undef ;
}
sub YYSemval {
my ( $ self ) = shift ;
my ( $ index ) = $ _ [ 0 ] - $ { $$ self { DOTPOS } } - 1 ;
$ index < 0
and - $ index <= @ { $$ self { STACK } }
and return $$ self { STACK } [ $ index ] [ 1 ] ;
undef ; #Invalid index
}
sub YYCurtok {
my ( $ self ) = shift ;
@ _
and $ { $$ self { TOKEN } } = $ _ [ 0 ] ;
$ { $$ self { TOKEN } } ;
}
sub YYCurval {
my ( $ self ) = shift ;
@ _
and $ { $$ self { VALUE } } = $ _ [ 0 ] ;
$ { $$ self { VALUE } } ;
}
sub YYExpect {
my ( $ self ) = shift ;
keys % { $ self - > { STATES } [ $ self - > { STACK } [ - 1 ] [ 0 ] ] { ACTIONS } }
}
sub YYLexer {
my ( $ self ) = shift ;
$$ self { LEX } ;
}
#################
# Private stuff #
#################
sub _CheckParams {
my ( $ mandatory , $ checklist , $ inarray , $ outhash ) = @ _ ;
my ( $ prm , $ value ) ;
my ( $ prmlst ) = { } ;
while ( ( $ prm , $ value ) = splice ( @$ inarray , 0 , 2 ) ) {
$ prm = uc ( $ prm ) ;
exists ( $$ checklist { $ prm } )
or croak ( "Unknow parameter '$prm'" ) ;
ref ( $ value ) eq $$ checklist { $ prm }
or croak ( "Invalid value for parameter '$prm'" ) ;
$ prm = unpack ( '@2A*' , $ prm ) ;
$$ outhash { $ prm } = $ value ;
}
for ( @$ mandatory ) {
exists ( $$ outhash { $ _ } )
or croak ( "Missing mandatory parameter '" . lc ( $ _ ) . "'" ) ;
}
}
sub _Error {
print "Parse error.\n" ;
}
sub _DBLoad {
{
no strict 'refs' ;
exists ( $ { __PACKAGE__ . '::' } { _DBParse } ) #Already loaded ?
and return ;
}
my ( $ fname ) = __FILE__ ;
my ( @ drv ) ;
open ( DRV , "<$fname" ) or die "Report this as a BUG: Cannot open $fname" ;
while ( <DRV> ) {
/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
and do {
s/^#DBG>// ;
push ( @ drv , $ _ ) ;
}
}
close ( DRV ) ;
$ drv [ 0 ] =~ s/_P/_DBP/ ;
eval join ( '' , @ drv ) ;
}
#Note that for loading debugging version of the driver,
#this file will be parsed from 'sub _Parse' up to '}#_Parse' inclusive.
#So, DO NOT remove comment at end of sub !!!
sub _Parse {
my ( $ self ) = shift ;
my ( $ rules , $ states , $ lex , $ error )
= @$ self { 'RULES' , 'STATES' , 'LEX' , 'ERROR' } ;
my ( $ errstatus , $ nberror , $ token , $ value , $ stack , $ check , $ dotpos )
= @$ self { 'ERRST' , 'NBERR' , 'TOKEN' , 'VALUE' , 'STACK' , 'CHECK' , 'DOTPOS' } ;
#DBG> my($debug)=$$self{DEBUG};
#DBG> my($dbgerror)=0;
#DBG> my($ShowCurToken) = sub {
#DBG> my($tok)='>';
#DBG> for (split('',$$token)) {
#DBG> $tok.= (ord($_) < 32 or ord($_) > 126)
#DBG> ? sprintf('<%02X>',ord($_))
#DBG> : $_;
#DBG> }
#DBG> $tok.='<';
#DBG> };
$$ errstatus = 0 ;
$$ nberror = 0 ;
( $$ token , $$ value ) = ( undef , undef ) ;
@$ stack = ( [ 0 , undef ] ) ;
$$ check = '' ;
while ( 1 ) {
my ( $ actions , $ act , $ stateno ) ;
$ stateno = $$ stack [ - 1 ] [ 0 ] ;
$ actions = $$ states [ $ stateno ] ;
#DBG> print STDERR ('-' x 40),"\n";
#DBG> $debug & 0x2
#DBG> and print STDERR "In state $stateno:\n";
#DBG> $debug & 0x08
#DBG> and print STDERR "Stack:[".
#DBG> join(',',map { $$_[0] } @$stack).
#DBG> "]\n";
if ( exists ( $$ actions { ACTIONS } ) ) {
defined ( $$ token )
or do {
( $$ token , $$ value ) = & $ lex ( $ self ) ;
#DBG> $debug & 0x01
#DBG> and print STDERR "Need token. Got ".&$ShowCurToken."\n";
} ;
$ act = exists ( $$ actions { ACTIONS } { $$ token } )
? $$ actions { ACTIONS } { $$ token }
: exists ( $$ actions { DEFAULT } )
? $$ actions { DEFAULT }
: undef ;
}
else {
$ act = $$ actions { DEFAULT } ;
#DBG> $debug & 0x01
#DBG> and print STDERR "Don't need token.\n";
}
defined ( $ act )
and do {
$ act > 0
and do { #shift
#DBG> $debug & 0x04
#DBG> and print STDERR "Shift and go to state $act.\n";
$$ errstatus
and do {
- - $$ errstatus ;
#DBG> $debug & 0x10
#DBG> and $dbgerror
#DBG> and $$errstatus == 0
#DBG> and do {
#DBG> print STDERR "**End of Error recovery.\n";
#DBG> $dbgerror=0;
#DBG> };
} ;
push ( @$ stack , [ $ act , $$ value ] ) ;
$$ token ne '' #Don't eat the eof
and $$ token = $$ value = undef ;
next ;
} ;
#reduce
my ( $ lhs , $ len , $ code , @ sempar , $ semval ) ;
( $ lhs , $ len , $ code ) = @ { $$ rules [ - $ act ] } ;
#DBG> $debug & 0x04
#DBG> and $act
#DBG> and print STDERR "Reduce using rule ".-$act." ($lhs,$len): ";
$ act
or $ self - > YYAccept ( ) ;
$$ dotpos = $ len ;
unpack ( 'A1' , $ lhs ) eq '@' #In line rule
and do {
$ lhs =~ /^\@[0-9]+\-([0-9]+)$/
or die "In line rule name '$lhs' ill formed: " .
"report it as a BUG.\n" ;
$$ dotpos = $ 1 ;
} ;
@ sempar = $$ dotpos
? map { $$ _ [ 1 ] } @$ stack [ - $$ dotpos .. - 1 ]
: ( ) ;
$ semval = $ code ? & $ code ( $ self , @ sempar )
: @ sempar ? $ sempar [ 0 ] : undef ;
splice ( @$ stack , - $ len , $ len ) ;
$$ check eq 'ACCEPT'
and do {
#DBG> $debug & 0x04
#DBG> and print STDERR "Accept.\n";
return ( $ semval ) ;
} ;
$$ check eq 'ABORT'
and do {
#DBG> $debug & 0x04
#DBG> and print STDERR "Abort.\n";
return ( undef ) ;
} ;
#DBG> $debug & 0x04
#DBG> and print STDERR "Back to state $$stack[-1][0], then ";
$$ check eq 'ERROR'
or do {
#DBG> $debug & 0x04
#DBG> and print STDERR
#DBG> "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";
#DBG> $debug & 0x10
#DBG> and $dbgerror
#DBG> and $$errstatus == 0
#DBG> and do {
#DBG> print STDERR "**End of Error recovery.\n";
#DBG> $dbgerror=0;
#DBG> };
push ( @$ stack ,
[ $$ states [ $$ stack [ - 1 ] [ 0 ] ] { GOTOS } { $ lhs } , $ semval ] ) ;
$$ check = '' ;
next ;
} ;
#DBG> $debug & 0x04
#DBG> and print STDERR "Forced Error recovery.\n";
$$ check = '' ;
} ;
#Error
$$ errstatus
or do {
$$ errstatus = 1 ;
& $ error ( $ self ) ;
$$ errstatus # if 0, then YYErrok has been called
or next ; # so continue parsing
#DBG> $debug & 0x10
#DBG> and do {
#DBG> print STDERR "**Entering Error recovery.\n";
#DBG> ++$dbgerror;
#DBG> };
+ + $$ nberror ;
} ;
$$ errstatus == 3 #The next token is not valid: discard it
and do {
$$ token eq '' # End of input: no hope
and do {
#DBG> $debug & 0x10
#DBG> and print STDERR "**At eof: aborting.\n";
return ( undef ) ;
} ;
#DBG> $debug & 0x10
#DBG> and print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n";
$$ token = $$ value = undef ;
} ;
$$ errstatus = 3 ;
while ( @$ stack
and ( not exists ( $$ states [ $$ stack [ - 1 ] [ 0 ] ] { ACTIONS } )
or not exists ( $$ states [ $$ stack [ - 1 ] [ 0 ] ] { ACTIONS } { error } )
or $$ states [ $$ stack [ - 1 ] [ 0 ] ] { ACTIONS } { error } <= 0 ) ) {
#DBG> $debug & 0x10
#DBG> and print STDERR "**Pop state $$stack[-1][0].\n";
pop ( @$ stack ) ;
}
@$ stack
or do {
#DBG> $debug & 0x10
#DBG> and print STDERR "**No state left on stack: aborting.\n";
return ( undef ) ;
} ;
#shift the error token
#DBG> $debug & 0x10
#DBG> and print STDERR "**Shift \$error token and go to state ".
#DBG> $$states[$$stack[-1][0]]{ACTIONS}{error}.
#DBG> ".\n";
push ( @$ stack , [ $$ states [ $$ stack [ - 1 ] [ 0 ] ] { ACTIONS } { error } , undef ] ) ;
}
#never reached
croak ( "Error in driver logic. Please, report it as a BUG" ) ;
} #_Parse
#DO NOT remove comment
1 ;
}
#End of include--------------------------------------------------
sub new {
my ( $ class ) = shift ;
ref ( $ class )
and $ class = ref ( $ class ) ;
my ( $ self ) = $ class - > SUPER:: new ( yyversion = > '1.05' ,
yystates = >
[
{ #State 0
2004-08-11 23:48:36 +04:00
DEFAULT = > - 1 ,
2003-12-08 05:55:28 +03:00
GOTOS = > {
2004-08-11 23:48:36 +04:00
'idl' = > 1
2003-12-08 05:55:28 +03:00
}
} ,
{ #State 1
ACTIONS = > {
2006-11-07 00:54:19 +03:00
'' = > 2 ,
"importlib" = > 3 ,
2006-11-07 01:54:49 +03:00
"import" = > 6 ,
"include" = > 11
2003-12-08 05:55:28 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 92 ,
2003-12-08 05:55:28 +03:00
GOTOS = > {
2006-11-07 00:54:19 +03:00
'importlib' = > 9 ,
'interface' = > 8 ,
'include' = > 4 ,
'coclass' = > 10 ,
'import' = > 7 ,
2004-11-02 00:10:46 +03:00
'property_list' = > 5
2003-12-08 05:55:28 +03:00
}
} ,
2004-08-11 23:48:36 +04:00
{ #State 2
DEFAULT = > 0
} ,
2003-12-08 05:55:28 +03:00
{ #State 3
2006-11-07 00:54:19 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'TEXT' = > 13
2006-11-07 00:54:19 +03:00
} ,
GOTOS = > {
2006-11-07 01:54:49 +03:00
'commalist' = > 12 ,
'text' = > 14
2006-11-07 00:54:19 +03:00
}
2004-08-11 23:48:36 +04:00
} ,
{ #State 4
2006-11-07 00:54:19 +03:00
DEFAULT = > - 5
2003-12-08 05:55:28 +03:00
} ,
2004-08-11 23:48:36 +04:00
{ #State 5
2003-12-08 05:55:28 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"coclass" = > 15 ,
"[" = > 17 ,
"interface" = > 16
2003-12-08 05:55:28 +03:00
}
} ,
{ #State 6
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'TEXT' = > 13
2004-08-11 23:48:36 +04:00
} ,
GOTOS = > {
2006-11-07 01:54:49 +03:00
'commalist' = > 18 ,
'text' = > 14
2003-12-08 05:55:28 +03:00
}
} ,
{ #State 7
2006-11-07 00:54:19 +03:00
DEFAULT = > - 4
2003-12-08 05:55:28 +03:00
} ,
{ #State 8
2006-11-07 00:54:19 +03:00
DEFAULT = > - 2
2003-12-08 05:55:28 +03:00
} ,
{ #State 9
2006-11-07 00:54:19 +03:00
DEFAULT = > - 6
2003-12-08 05:55:28 +03:00
} ,
{ #State 10
2006-11-07 00:54:19 +03:00
DEFAULT = > - 3
2003-12-08 05:55:28 +03:00
} ,
{ #State 11
2006-11-07 01:54:49 +03:00
ACTIONS = > {
'TEXT' = > 13
} ,
GOTOS = > {
'commalist' = > 19 ,
'text' = > 14
}
2003-12-08 05:55:28 +03:00
} ,
2004-08-11 23:48:36 +04:00
{ #State 12
2006-11-07 00:54:19 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
";" = > 20 ,
"," = > 21
}
2004-11-02 00:10:46 +03:00
} ,
{ #State 13
2006-11-07 01:54:49 +03:00
DEFAULT = > - 125
2003-12-08 05:55:28 +03:00
} ,
2004-11-02 00:10:46 +03:00
{ #State 14
2006-11-07 01:54:49 +03:00
DEFAULT = > - 10
2003-12-08 05:55:28 +03:00
} ,
{ #State 15
2006-11-07 00:54:19 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'IDENTIFIER' = > 22
} ,
GOTOS = > {
'identifier' = > 23
2004-08-11 23:48:36 +04:00
}
2003-12-08 05:55:28 +03:00
} ,
{ #State 16
2006-11-07 01:54:49 +03:00
ACTIONS = > {
'IDENTIFIER' = > 22
} ,
GOTOS = > {
'identifier' = > 24
}
2003-12-08 05:55:28 +03:00
} ,
{ #State 17
2006-11-07 01:54:49 +03:00
ACTIONS = > {
'IDENTIFIER' = > 22
} ,
GOTOS = > {
'identifier' = > 26 ,
'property' = > 27 ,
'properties' = > 25
}
2003-12-08 05:55:28 +03:00
} ,
{ #State 18
2006-11-07 01:54:49 +03:00
ACTIONS = > {
";" = > 28 ,
"," = > 21
}
2003-12-08 05:55:28 +03:00
} ,
{ #State 19
2004-11-02 00:10:46 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
";" = > 29 ,
"," = > 21
2004-11-02 00:10:46 +03:00
}
2003-12-08 05:55:28 +03:00
} ,
{ #State 20
2006-11-07 01:54:49 +03:00
DEFAULT = > - 9
2003-12-08 05:55:28 +03:00
} ,
{ #State 21
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'TEXT' = > 13
2006-11-07 00:54:19 +03:00
} ,
GOTOS = > {
2006-11-07 01:54:49 +03:00
'text' = > 30
2003-12-08 05:55:28 +03:00
}
} ,
{ #State 22
2006-11-07 01:54:49 +03:00
DEFAULT = > - 121
2003-12-08 05:55:28 +03:00
} ,
{ #State 23
2006-11-07 00:54:19 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"{" = > 31
2006-11-07 00:54:19 +03:00
}
2003-12-08 05:55:28 +03:00
} ,
{ #State 24
2006-11-07 00:54:19 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
":" = > 32
2006-11-07 00:54:19 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 16 ,
2006-11-07 00:54:19 +03:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'base_interface' = > 33
2006-11-07 00:54:19 +03:00
}
2003-12-08 05:55:28 +03:00
} ,
{ #State 25
2004-11-02 00:10:46 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"," = > 34 ,
"]" = > 35
2006-11-07 00:54:19 +03:00
}
2003-12-08 05:55:28 +03:00
} ,
{ #State 26
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"(" = > 36
2006-11-07 00:54:19 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 96
2003-12-08 05:55:28 +03:00
} ,
{ #State 27
2006-11-07 01:54:49 +03:00
DEFAULT = > - 94
2003-12-08 05:55:28 +03:00
} ,
{ #State 28
2006-11-07 01:54:49 +03:00
DEFAULT = > - 7
2003-12-08 05:55:28 +03:00
} ,
{ #State 29
2006-11-07 01:54:49 +03:00
DEFAULT = > - 8
2003-12-08 05:55:28 +03:00
} ,
{ #State 30
2006-11-07 01:54:49 +03:00
DEFAULT = > - 11
2003-12-08 05:55:28 +03:00
} ,
{ #State 31
2006-11-07 01:54:49 +03:00
DEFAULT = > - 13 ,
2006-11-07 00:54:19 +03:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'interface_names' = > 37
2003-12-08 05:55:28 +03:00
}
} ,
{ #State 32
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'IDENTIFIER' = > 22
2003-12-08 05:55:28 +03:00
} ,
GOTOS = > {
2006-11-07 01:54:49 +03:00
'identifier' = > 38
2003-12-08 05:55:28 +03:00
}
} ,
{ #State 33
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"{" = > 39
2003-12-08 05:55:28 +03:00
}
} ,
2005-02-21 15:13:42 +03:00
{ #State 34
2003-12-08 05:55:28 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'IDENTIFIER' = > 22
2003-12-08 05:55:28 +03:00
} ,
GOTOS = > {
2006-11-07 01:54:49 +03:00
'identifier' = > 26 ,
'property' = > 40
2003-12-08 05:55:28 +03:00
}
} ,
2005-02-21 15:13:42 +03:00
{ #State 35
2006-11-07 01:54:49 +03:00
DEFAULT = > - 93
2003-12-08 05:55:28 +03:00
} ,
2005-02-21 15:13:42 +03:00
{ #State 36
2004-11-02 00:10:46 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'CONSTANT' = > 44 ,
'TEXT' = > 13 ,
'IDENTIFIER' = > 22
2004-11-02 00:10:46 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 102 ,
2004-11-02 00:10:46 +03:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'identifier' = > 45 ,
'text' = > 46 ,
'listtext' = > 42 ,
'anytext' = > 41 ,
'constant' = > 43
2004-11-02 00:10:46 +03:00
}
2003-12-08 05:55:28 +03:00
} ,
2005-02-21 15:13:42 +03:00
{ #State 37
2003-12-08 05:55:28 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"}" = > 47 ,
"interface" = > 48
2003-12-08 05:55:28 +03:00
}
} ,
2005-02-21 15:13:42 +03:00
{ #State 38
2006-11-07 01:54:49 +03:00
DEFAULT = > - 17
2004-08-11 23:48:36 +04:00
} ,
2005-02-21 15:13:42 +03:00
{ #State 39
2003-12-08 05:55:28 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"typedef" = > 49 ,
"union" = > 50 ,
"enum" = > 63 ,
"bitmap" = > 64 ,
"declare" = > 56 ,
"const" = > 58 ,
"struct" = > 61
} ,
DEFAULT = > - 92 ,
GOTOS = > {
'typedecl' = > 62 ,
'function' = > 51 ,
'bitmap' = > 65 ,
'definitions' = > 52 ,
'definition' = > 55 ,
'property_list' = > 54 ,
'usertype' = > 53 ,
'declare' = > 67 ,
'const' = > 66 ,
'struct' = > 57 ,
'enum' = > 59 ,
'typedef' = > 60 ,
'union' = > 68
2003-12-08 05:55:28 +03:00
}
} ,
2005-02-21 15:13:42 +03:00
{ #State 40
2006-11-07 01:54:49 +03:00
DEFAULT = > - 95
2003-12-08 05:55:28 +03:00
} ,
2005-02-21 15:13:42 +03:00
{ #State 41
2004-11-02 00:10:46 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"-" = > 70 ,
":" = > 69 ,
"<" = > 71 ,
"+" = > 73 ,
"~" = > 72 ,
"*" = > 74 ,
"?" = > 75 ,
"{" = > 76 ,
"&" = > 77 ,
"/" = > 78 ,
"=" = > 79 ,
"(" = > 80 ,
"|" = > 81 ,
"." = > 82 ,
">" = > 83
2004-11-02 00:10:46 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 98
2003-12-08 05:55:28 +03:00
} ,
2005-02-21 15:13:42 +03:00
{ #State 42
2004-11-02 00:10:46 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"," = > 84 ,
")" = > 85
2004-11-02 00:10:46 +03:00
}
2004-08-11 23:48:36 +04:00
} ,
2005-02-21 15:13:42 +03:00
{ #State 43
2006-11-07 01:54:49 +03:00
DEFAULT = > - 104
2003-12-08 05:55:28 +03:00
} ,
2005-02-21 15:13:42 +03:00
{ #State 44
2006-11-07 01:54:49 +03:00
DEFAULT = > - 124
2003-12-08 05:55:28 +03:00
} ,
2005-02-21 15:13:42 +03:00
{ #State 45
2006-11-07 01:54:49 +03:00
DEFAULT = > - 103
2004-11-29 14:08:15 +03:00
} ,
2005-02-21 15:13:42 +03:00
{ #State 46
2006-11-07 01:54:49 +03:00
DEFAULT = > - 105
2005-01-21 09:46:07 +03:00
} ,
2005-02-21 15:13:42 +03:00
{ #State 47
2005-09-04 02:58:04 +04:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
";" = > 86
2005-09-04 02:58:04 +04:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 126 ,
GOTOS = > {
'optional_semicolon' = > 87
}
2005-05-27 22:14:43 +04:00
} ,
{ #State 48
2005-09-04 02:58:04 +04:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'IDENTIFIER' = > 22
2005-09-04 02:58:04 +04:00
} ,
2006-11-07 01:54:49 +03:00
GOTOS = > {
'identifier' = > 88
}
2003-12-08 05:55:28 +03:00
} ,
2005-05-27 22:14:43 +04:00
{ #State 49
2006-11-07 01:54:49 +03:00
DEFAULT = > - 92 ,
GOTOS = > {
'property_list' = > 89
}
2003-12-08 05:55:28 +03:00
} ,
2005-07-20 03:34:02 +04:00
{ #State 50
2006-11-07 00:54:19 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'IDENTIFIER' = > 90
2006-11-07 00:54:19 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 123 ,
GOTOS = > {
'optional_identifier' = > 91
}
2005-07-20 03:34:02 +04:00
} ,
2005-05-27 22:14:43 +04:00
{ #State 51
2006-11-07 01:54:49 +03:00
DEFAULT = > - 20
2003-12-08 05:55:28 +03:00
} ,
2005-05-27 22:14:43 +04:00
{ #State 52
2005-07-20 03:34:02 +04:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"}" = > 92 ,
"typedef" = > 49 ,
"union" = > 50 ,
"enum" = > 63 ,
"bitmap" = > 64 ,
"declare" = > 56 ,
"const" = > 58 ,
"struct" = > 61
} ,
DEFAULT = > - 92 ,
GOTOS = > {
'typedecl' = > 62 ,
'function' = > 51 ,
'bitmap' = > 65 ,
'definition' = > 93 ,
'property_list' = > 54 ,
'usertype' = > 53 ,
'const' = > 66 ,
'struct' = > 57 ,
'declare' = > 67 ,
'enum' = > 59 ,
'typedef' = > 60 ,
'union' = > 68
2005-07-20 03:34:02 +04:00
}
2004-08-11 23:48:36 +04:00
} ,
2005-05-27 22:14:43 +04:00
{ #State 53
2006-11-07 00:54:19 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
";" = > 94
}
2005-09-04 02:58:04 +04:00
} ,
{ #State 54
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'IDENTIFIER' = > 22 ,
"signed" = > 100 ,
"union" = > 50 ,
"enum" = > 63 ,
"bitmap" = > 64 ,
'void' = > 95 ,
"unsigned" = > 101 ,
"[" = > 17 ,
"struct" = > 61
2006-11-07 00:54:19 +03:00
} ,
2006-11-07 01:54:49 +03:00
GOTOS = > {
'existingtype' = > 99 ,
'bitmap' = > 65 ,
'usertype' = > 96 ,
'identifier' = > 97 ,
'struct' = > 57 ,
'enum' = > 59 ,
'type' = > 102 ,
'union' = > 68 ,
'sign' = > 98
}
2005-09-04 02:58:04 +04:00
} ,
{ #State 55
2006-11-07 01:54:49 +03:00
DEFAULT = > - 18
2005-09-04 02:58:04 +04:00
} ,
{ #State 56
2006-11-07 01:54:49 +03:00
DEFAULT = > - 92 ,
GOTOS = > {
'property_list' = > 103
2005-01-06 09:32:07 +03:00
}
2003-12-08 05:55:28 +03:00
} ,
2005-09-04 02:58:04 +04:00
{ #State 57
2006-11-07 01:54:49 +03:00
DEFAULT = > - 36
2005-01-06 09:32:07 +03:00
} ,
2005-09-04 02:58:04 +04:00
{ #State 58
2006-11-07 00:54:19 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'IDENTIFIER' = > 22
2006-11-07 00:54:19 +03:00
} ,
2006-11-07 01:54:49 +03:00
GOTOS = > {
'identifier' = > 104
}
2005-01-06 09:32:07 +03:00
} ,
2005-09-04 02:58:04 +04:00
{ #State 59
2006-11-07 01:54:49 +03:00
DEFAULT = > - 38
2005-07-20 03:34:02 +04:00
} ,
2005-09-04 02:58:04 +04:00
{ #State 60
2006-11-07 01:54:49 +03:00
DEFAULT = > - 22
2003-12-08 05:55:28 +03:00
} ,
2005-09-04 02:58:04 +04:00
{ #State 61
2006-11-07 00:54:19 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'IDENTIFIER' = > 90
2006-11-07 00:54:19 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 123 ,
2006-11-07 00:54:19 +03:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'optional_identifier' = > 105
2006-11-07 00:54:19 +03:00
}
2005-05-27 22:14:43 +04:00
} ,
2006-11-07 01:54:49 +03:00
{ #State 62
DEFAULT = > - 24
} ,
2005-09-04 02:58:04 +04:00
{ #State 63
2005-02-21 15:13:42 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'IDENTIFIER' = > 90
2005-07-20 03:34:02 +04:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 123 ,
2005-07-20 03:34:02 +04:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'optional_identifier' = > 106
2005-02-21 15:13:42 +03:00
}
} ,
2005-09-04 02:58:04 +04:00
{ #State 64
2006-11-07 00:54:19 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'IDENTIFIER' = > 90
2005-07-20 03:34:02 +04:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 123 ,
2005-07-20 03:34:02 +04:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'optional_identifier' = > 107
2005-07-20 03:34:02 +04:00
}
} ,
2006-11-07 01:54:49 +03:00
{ #State 65
DEFAULT = > - 39
} ,
2005-09-04 02:58:04 +04:00
{ #State 66
2006-11-07 01:54:49 +03:00
DEFAULT = > - 21
2006-11-07 00:54:19 +03:00
} ,
{ #State 67
2006-11-07 01:54:49 +03:00
DEFAULT = > - 23
2005-07-20 03:34:02 +04:00
} ,
2005-09-04 02:58:04 +04:00
{ #State 68
2006-11-07 01:54:49 +03:00
DEFAULT = > - 37
2005-07-20 03:34:02 +04:00
} ,
2005-09-04 02:58:04 +04:00
{ #State 69
2006-11-07 00:54:19 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'CONSTANT' = > 44 ,
'TEXT' = > 13 ,
'IDENTIFIER' = > 22
2006-11-07 00:54:19 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 102 ,
2006-11-07 00:54:19 +03:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'identifier' = > 45 ,
'anytext' = > 108 ,
'text' = > 46 ,
'constant' = > 43
2006-11-07 00:54:19 +03:00
}
2005-07-20 03:34:02 +04:00
} ,
2005-09-04 02:58:04 +04:00
{ #State 70
2006-11-07 00:54:19 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'CONSTANT' = > 44 ,
'TEXT' = > 13 ,
'IDENTIFIER' = > 22
} ,
DEFAULT = > - 102 ,
GOTOS = > {
'identifier' = > 45 ,
'anytext' = > 109 ,
'text' = > 46 ,
'constant' = > 43
2006-11-07 00:54:19 +03:00
}
2005-07-20 03:34:02 +04:00
} ,
2005-09-04 02:58:04 +04:00
{ #State 71
2006-11-07 01:54:49 +03:00
ACTIONS = > {
'CONSTANT' = > 44 ,
'TEXT' = > 13 ,
'IDENTIFIER' = > 22
} ,
DEFAULT = > - 102 ,
GOTOS = > {
'identifier' = > 45 ,
'anytext' = > 110 ,
'text' = > 46 ,
'constant' = > 43
}
2005-07-20 03:34:02 +04:00
} ,
2005-09-04 02:58:04 +04:00
{ #State 72
2005-07-20 03:34:02 +04:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'CONSTANT' = > 44 ,
'TEXT' = > 13 ,
'IDENTIFIER' = > 22
} ,
DEFAULT = > - 102 ,
GOTOS = > {
'identifier' = > 45 ,
'anytext' = > 111 ,
'text' = > 46 ,
'constant' = > 43
2005-07-20 03:34:02 +04:00
}
} ,
2006-11-07 00:54:19 +03:00
{ #State 73
2006-11-07 01:54:49 +03:00
ACTIONS = > {
'CONSTANT' = > 44 ,
'TEXT' = > 13 ,
'IDENTIFIER' = > 22
} ,
DEFAULT = > - 102 ,
GOTOS = > {
'identifier' = > 45 ,
'anytext' = > 112 ,
'text' = > 46 ,
'constant' = > 43
}
2006-11-07 00:54:19 +03:00
} ,
2005-09-04 02:58:04 +04:00
{ #State 74
2004-11-29 14:08:15 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'CONSTANT' = > 44 ,
'TEXT' = > 13 ,
'IDENTIFIER' = > 22
2005-09-04 02:58:04 +04:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 102 ,
GOTOS = > {
'identifier' = > 45 ,
'anytext' = > 113 ,
'text' = > 46 ,
'constant' = > 43
}
2005-09-04 02:58:04 +04:00
} ,
{ #State 75
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'CONSTANT' = > 44 ,
'TEXT' = > 13 ,
'IDENTIFIER' = > 22
} ,
DEFAULT = > - 102 ,
GOTOS = > {
'identifier' = > 45 ,
'anytext' = > 114 ,
'text' = > 46 ,
'constant' = > 43
2006-11-07 00:54:19 +03:00
}
2004-08-11 23:48:36 +04:00
} ,
2005-09-04 02:58:04 +04:00
{ #State 76
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'CONSTANT' = > 44 ,
'TEXT' = > 13 ,
'IDENTIFIER' = > 22
2006-11-07 00:54:19 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 102 ,
GOTOS = > {
'identifier' = > 45 ,
'anytext' = > 115 ,
'text' = > 46 ,
'constant' = > 43 ,
'commalisttext' = > 116
}
2005-09-04 02:58:04 +04:00
} ,
{ #State 77
2004-11-29 14:08:15 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'CONSTANT' = > 44 ,
'TEXT' = > 13 ,
'IDENTIFIER' = > 22
2004-11-29 14:08:15 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 102 ,
GOTOS = > {
'identifier' = > 45 ,
'anytext' = > 117 ,
'text' = > 46 ,
'constant' = > 43
}
2003-12-08 05:55:28 +03:00
} ,
2005-09-04 02:58:04 +04:00
{ #State 78
2004-11-29 14:08:15 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'CONSTANT' = > 44 ,
'TEXT' = > 13 ,
'IDENTIFIER' = > 22
2005-05-27 22:14:43 +04:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 102 ,
2006-11-07 00:54:19 +03:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'identifier' = > 45 ,
'anytext' = > 118 ,
'text' = > 46 ,
'constant' = > 43
2006-11-07 00:54:19 +03:00
}
2005-05-27 22:14:43 +04:00
} ,
2005-09-04 02:58:04 +04:00
{ #State 79
2005-05-27 22:14:43 +04:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'CONSTANT' = > 44 ,
'TEXT' = > 13 ,
'IDENTIFIER' = > 22
2005-01-21 09:46:07 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 102 ,
2006-11-07 00:54:19 +03:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'identifier' = > 45 ,
'anytext' = > 119 ,
'text' = > 46 ,
'constant' = > 43
2006-11-07 00:54:19 +03:00
}
2003-12-08 05:55:28 +03:00
} ,
2005-09-04 02:58:04 +04:00
{ #State 80
2006-11-07 01:54:49 +03:00
ACTIONS = > {
'CONSTANT' = > 44 ,
'TEXT' = > 13 ,
'IDENTIFIER' = > 22
} ,
DEFAULT = > - 102 ,
2006-11-07 00:54:19 +03:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'identifier' = > 45 ,
'anytext' = > 115 ,
'text' = > 46 ,
'constant' = > 43 ,
'commalisttext' = > 120
2006-11-07 00:54:19 +03:00
}
2003-12-08 05:55:28 +03:00
} ,
2005-09-04 02:58:04 +04:00
{ #State 81
2003-12-08 05:55:28 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'CONSTANT' = > 44 ,
'TEXT' = > 13 ,
'IDENTIFIER' = > 22
2006-11-07 00:54:19 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 102 ,
2006-11-07 00:54:19 +03:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'identifier' = > 45 ,
'anytext' = > 121 ,
'text' = > 46 ,
'constant' = > 43
2005-01-21 09:46:07 +03:00
}
2003-12-08 05:55:28 +03:00
} ,
2005-09-04 02:58:04 +04:00
{ #State 82
2004-11-29 14:08:15 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'CONSTANT' = > 44 ,
'TEXT' = > 13 ,
'IDENTIFIER' = > 22
} ,
DEFAULT = > - 102 ,
GOTOS = > {
'identifier' = > 45 ,
'anytext' = > 122 ,
'text' = > 46 ,
'constant' = > 43
2006-11-07 00:54:19 +03:00
}
2003-12-08 05:55:28 +03:00
} ,
2006-11-07 01:54:49 +03:00
{ #State 83
2005-05-27 22:14:43 +04:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'CONSTANT' = > 44 ,
'TEXT' = > 13 ,
'IDENTIFIER' = > 22
} ,
DEFAULT = > - 102 ,
GOTOS = > {
'identifier' = > 45 ,
'anytext' = > 123 ,
'text' = > 46 ,
'constant' = > 43
2006-11-07 00:54:19 +03:00
}
2005-09-04 02:58:04 +04:00
} ,
2006-11-07 01:54:49 +03:00
{ #State 84
2005-09-04 02:58:04 +04:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'CONSTANT' = > 44 ,
'TEXT' = > 13 ,
'IDENTIFIER' = > 22
2006-11-07 00:54:19 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 102 ,
2006-11-07 00:54:19 +03:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'identifier' = > 45 ,
'anytext' = > 124 ,
'text' = > 46 ,
'constant' = > 43
2005-05-27 22:14:43 +04:00
}
} ,
2006-11-07 01:54:49 +03:00
{ #State 85
DEFAULT = > - 97
} ,
2005-09-04 02:58:04 +04:00
{ #State 86
2006-11-07 01:54:49 +03:00
DEFAULT = > - 127
2003-12-08 05:55:28 +03:00
} ,
2005-09-04 02:58:04 +04:00
{ #State 87
2006-11-07 01:54:49 +03:00
DEFAULT = > - 12
2005-01-21 09:46:07 +03:00
} ,
2005-09-04 02:58:04 +04:00
{ #State 88
2006-11-07 01:54:49 +03:00
ACTIONS = > {
";" = > 125
}
2006-11-07 00:54:19 +03:00
} ,
{ #State 89
2005-01-21 09:46:07 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'IDENTIFIER' = > 22 ,
"signed" = > 100 ,
"union" = > 50 ,
"enum" = > 63 ,
"bitmap" = > 64 ,
'void' = > 95 ,
"unsigned" = > 101 ,
"[" = > 17 ,
"struct" = > 61
} ,
GOTOS = > {
'existingtype' = > 99 ,
'bitmap' = > 65 ,
'usertype' = > 96 ,
'identifier' = > 97 ,
'struct' = > 57 ,
'enum' = > 59 ,
'type' = > 126 ,
'union' = > 68 ,
'sign' = > 98
2006-11-07 00:54:19 +03:00
}
2003-12-08 05:55:28 +03:00
} ,
2005-09-04 02:58:04 +04:00
{ #State 90
2006-11-07 01:54:49 +03:00
DEFAULT = > - 122
2003-12-08 05:55:28 +03:00
} ,
2005-09-04 02:58:04 +04:00
{ #State 91
2006-11-07 01:54:49 +03:00
ACTIONS = > {
"{" = > 128
} ,
DEFAULT = > - 77 ,
GOTOS = > {
'union_body' = > 129 ,
'opt_union_body' = > 127
}
2006-11-07 00:54:19 +03:00
} ,
{ #State 92
2004-10-14 14:30:08 +04:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
";" = > 86
2005-01-05 02:25:25 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 126 ,
2005-01-05 02:25:25 +03:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'optional_semicolon' = > 130
2004-11-29 14:08:15 +03:00
}
2003-12-08 05:55:28 +03:00
} ,
2005-09-04 02:58:04 +04:00
{ #State 93
2006-11-07 01:54:49 +03:00
DEFAULT = > - 19
2006-11-07 00:54:19 +03:00
} ,
{ #State 94
2006-11-07 01:54:49 +03:00
DEFAULT = > - 40
2003-12-08 05:55:28 +03:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 95
2006-11-07 01:54:49 +03:00
DEFAULT = > - 48
2003-12-08 05:55:28 +03:00
} ,
2005-09-04 02:58:04 +04:00
{ #State 96
2006-11-07 01:54:49 +03:00
DEFAULT = > - 46
2003-12-08 05:55:28 +03:00
} ,
2005-09-04 02:58:04 +04:00
{ #State 97
2006-11-07 01:54:49 +03:00
DEFAULT = > - 45
2005-01-05 18:28:10 +03:00
} ,
2005-09-04 02:58:04 +04:00
{ #State 98
2003-12-08 05:55:28 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'IDENTIFIER' = > 22
2004-11-02 00:10:46 +03:00
} ,
GOTOS = > {
2006-11-07 01:54:49 +03:00
'identifier' = > 131
2004-08-11 23:48:36 +04:00
}
2003-12-08 05:55:28 +03:00
} ,
2006-11-07 01:54:49 +03:00
{ #State 99
DEFAULT = > - 47
} ,
{ #State 100
DEFAULT = > - 41
} ,
2005-09-04 02:58:04 +04:00
{ #State 101
2006-11-07 01:54:49 +03:00
DEFAULT = > - 42
2005-12-25 17:59:21 +03:00
} ,
{ #State 102
2006-11-07 01:54:49 +03:00
ACTIONS = > {
'IDENTIFIER' = > 22
} ,
GOTOS = > {
'identifier' = > 132
}
2005-12-25 17:59:21 +03:00
} ,
{ #State 103
2006-11-07 01:54:49 +03:00
ACTIONS = > {
"union" = > 133 ,
"enum" = > 138 ,
"bitmap" = > 139 ,
"[" = > 17
} ,
GOTOS = > {
'decl_enum' = > 134 ,
'decl_bitmap' = > 135 ,
'decl_type' = > 137 ,
'decl_union' = > 136
}
2005-12-25 17:59:21 +03:00
} ,
{ #State 104
2006-11-07 01:54:49 +03:00
DEFAULT = > - 81 ,
GOTOS = > {
'pointers' = > 140
2005-12-25 17:59:21 +03:00
}
} ,
{ #State 105
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"{" = > 142
} ,
DEFAULT = > - 67 ,
GOTOS = > {
'struct_body' = > 141 ,
'opt_struct_body' = > 143
2005-01-06 09:32:07 +03:00
}
} ,
2005-12-25 17:59:21 +03:00
{ #State 106
2006-11-07 01:54:49 +03:00
ACTIONS = > {
"{" = > 144
} ,
DEFAULT = > - 50 ,
GOTOS = > {
'opt_enum_body' = > 146 ,
'enum_body' = > 145
}
2003-12-08 05:55:28 +03:00
} ,
2005-12-25 17:59:21 +03:00
{ #State 107
2005-07-20 03:34:02 +04:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"{" = > 148
2005-12-25 17:59:21 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 58 ,
2005-12-25 17:59:21 +03:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'bitmap_body' = > 149 ,
'opt_bitmap_body' = > 147
2005-07-20 03:34:02 +04:00
}
} ,
2005-12-25 17:59:21 +03:00
{ #State 108
2005-07-20 03:34:02 +04:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"-" = > 70 ,
":" = > 69 ,
"<" = > 71 ,
"+" = > 73 ,
"~" = > 72 ,
"*" = > 74 ,
"?" = > 75 ,
"{" = > 76 ,
"&" = > 77 ,
"/" = > 78 ,
"=" = > 79 ,
"(" = > 80 ,
"|" = > 81 ,
"." = > 82 ,
">" = > 83
2005-12-25 17:59:21 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 115
2005-07-20 03:34:02 +04:00
} ,
2005-12-25 17:59:21 +03:00
{ #State 109
2006-11-07 01:54:49 +03:00
ACTIONS = > {
":" = > 69 ,
"<" = > 71 ,
"~" = > 72 ,
"?" = > 75 ,
"{" = > 76 ,
"=" = > 79
} ,
DEFAULT = > - 106
2005-07-20 03:34:02 +04:00
} ,
2005-12-25 17:59:21 +03:00
{ #State 110
2006-11-07 01:54:49 +03:00
ACTIONS = > {
"-" = > 70 ,
":" = > 69 ,
"<" = > 71 ,
"+" = > 73 ,
"~" = > 72 ,
"*" = > 74 ,
"?" = > 75 ,
"{" = > 76 ,
"&" = > 77 ,
"/" = > 78 ,
"=" = > 79 ,
"(" = > 80 ,
"|" = > 81 ,
"." = > 82 ,
">" = > 83
} ,
DEFAULT = > - 110
2005-02-21 15:13:42 +03:00
} ,
2005-12-25 17:59:21 +03:00
{ #State 111
2006-11-07 01:54:49 +03:00
ACTIONS = > {
"-" = > 70 ,
":" = > 69 ,
"<" = > 71 ,
"+" = > 73 ,
"~" = > 72 ,
"*" = > 74 ,
"?" = > 75 ,
"{" = > 76 ,
"&" = > 77 ,
"/" = > 78 ,
"=" = > 79 ,
"(" = > 80 ,
"|" = > 81 ,
"." = > 82 ,
">" = > 83
} ,
DEFAULT = > - 118
2004-10-14 14:30:08 +04:00
} ,
2005-12-25 17:59:21 +03:00
{ #State 112
2006-11-07 01:54:49 +03:00
ACTIONS = > {
":" = > 69 ,
"<" = > 71 ,
"~" = > 72 ,
"?" = > 75 ,
"{" = > 76 ,
"=" = > 79
} ,
DEFAULT = > - 117
2004-11-29 14:08:15 +03:00
} ,
2005-12-25 17:59:21 +03:00
{ #State 113
2006-11-07 01:54:49 +03:00
ACTIONS = > {
":" = > 69 ,
"<" = > 71 ,
"~" = > 72 ,
"?" = > 75 ,
"{" = > 76 ,
"=" = > 79
} ,
DEFAULT = > - 108
2003-12-08 05:55:28 +03:00
} ,
2005-12-25 17:59:21 +03:00
{ #State 114
2003-12-08 05:55:28 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"-" = > 70 ,
":" = > 69 ,
"<" = > 71 ,
"+" = > 73 ,
"~" = > 72 ,
"*" = > 74 ,
"?" = > 75 ,
"{" = > 76 ,
"&" = > 77 ,
"/" = > 78 ,
"=" = > 79 ,
"(" = > 80 ,
"|" = > 81 ,
"." = > 82 ,
">" = > 83
2005-01-05 02:25:25 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 114
2003-12-08 05:55:28 +03:00
} ,
2005-12-25 17:59:21 +03:00
{ #State 115
2006-11-07 01:54:49 +03:00
ACTIONS = > {
"-" = > 70 ,
":" = > 69 ,
"<" = > 71 ,
"+" = > 73 ,
"~" = > 72 ,
"*" = > 74 ,
"?" = > 75 ,
"{" = > 76 ,
"&" = > 77 ,
"/" = > 78 ,
"=" = > 79 ,
"(" = > 80 ,
"|" = > 81 ,
"." = > 82 ,
">" = > 83
} ,
DEFAULT = > - 100
2005-12-25 17:59:21 +03:00
} ,
{ #State 116
2006-11-07 01:54:49 +03:00
ACTIONS = > {
"}" = > 150 ,
"," = > 151
}
2003-12-08 05:55:28 +03:00
} ,
2005-12-25 17:59:21 +03:00
{ #State 117
2006-11-07 01:54:49 +03:00
ACTIONS = > {
":" = > 69 ,
"<" = > 71 ,
"~" = > 72 ,
"?" = > 75 ,
"{" = > 76 ,
"=" = > 79
} ,
DEFAULT = > - 112
2005-12-25 17:59:21 +03:00
} ,
{ #State 118
2006-11-07 00:54:19 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
":" = > 69 ,
"<" = > 71 ,
"~" = > 72 ,
"?" = > 75 ,
"{" = > 76 ,
"=" = > 79
2006-11-07 00:54:19 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 113
2005-07-20 03:34:02 +04:00
} ,
2005-12-25 17:59:21 +03:00
{ #State 119
2006-11-07 00:54:19 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"-" = > 70 ,
":" = > 69 ,
"<" = > 71 ,
"+" = > 73 ,
"~" = > 72 ,
"*" = > 74 ,
"?" = > 75 ,
"{" = > 76 ,
"&" = > 77 ,
"/" = > 78 ,
"=" = > 79 ,
"(" = > 80 ,
"|" = > 81 ,
"." = > 82 ,
">" = > 83
2006-11-07 00:54:19 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 116
2005-12-25 17:59:21 +03:00
} ,
{ #State 120
2006-11-07 01:54:49 +03:00
ACTIONS = > {
"," = > 151 ,
")" = > 152
2005-01-05 02:25:25 +03:00
}
2003-12-08 05:55:28 +03:00
} ,
2005-12-25 17:59:21 +03:00
{ #State 121
2006-11-07 00:54:19 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
":" = > 69 ,
"<" = > 71 ,
"~" = > 72 ,
"?" = > 75 ,
"{" = > 76 ,
"=" = > 79
2006-11-07 00:54:19 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 111
2005-07-20 03:34:02 +04:00
} ,
2005-12-25 17:59:21 +03:00
{ #State 122
2006-11-07 00:54:19 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
":" = > 69 ,
"<" = > 71 ,
"~" = > 72 ,
"?" = > 75 ,
"{" = > 76 ,
"=" = > 79
2006-11-07 00:54:19 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 107
2005-07-20 03:34:02 +04:00
} ,
2005-12-25 17:59:21 +03:00
{ #State 123
2006-11-07 00:54:19 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
":" = > 69 ,
"<" = > 71 ,
"~" = > 72 ,
"?" = > 75 ,
"{" = > 76 ,
"=" = > 79
2006-11-07 00:54:19 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 109
2003-12-08 05:55:28 +03:00
} ,
2005-12-25 17:59:21 +03:00
{ #State 124
2006-11-07 00:54:19 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"-" = > 70 ,
":" = > 69 ,
"<" = > 71 ,
"+" = > 73 ,
"~" = > 72 ,
"*" = > 74 ,
"?" = > 75 ,
"{" = > 76 ,
"&" = > 77 ,
"/" = > 78 ,
"=" = > 79 ,
"(" = > 80 ,
"|" = > 81 ,
"." = > 82 ,
">" = > 83
2006-11-07 00:54:19 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 99
2005-07-20 03:34:02 +04:00
} ,
2005-12-25 17:59:21 +03:00
{ #State 125
2006-11-07 01:54:49 +03:00
DEFAULT = > - 14
2006-11-07 00:54:19 +03:00
} ,
{ #State 126
2005-01-05 18:28:10 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'IDENTIFIER' = > 22
2005-07-20 03:34:02 +04:00
} ,
GOTOS = > {
2006-11-07 01:54:49 +03:00
'identifier' = > 153
2005-01-05 18:28:10 +03:00
}
} ,
2005-12-25 17:59:21 +03:00
{ #State 127
2006-11-07 01:54:49 +03:00
DEFAULT = > - 79
2005-12-25 17:59:21 +03:00
} ,
{ #State 128
2006-11-07 01:54:49 +03:00
DEFAULT = > - 74 ,
2005-01-05 03:14:29 +03:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'union_elements' = > 154
2005-01-05 03:14:29 +03:00
}
} ,
2005-12-25 17:59:21 +03:00
{ #State 129
2006-11-07 01:54:49 +03:00
DEFAULT = > - 78
2005-12-25 17:59:21 +03:00
} ,
{ #State 130
2006-11-07 01:54:49 +03:00
DEFAULT = > - 15
2003-12-08 05:55:28 +03:00
} ,
2005-12-25 17:59:21 +03:00
{ #State 131
2006-11-07 01:54:49 +03:00
DEFAULT = > - 44
2005-12-25 17:59:21 +03:00
} ,
{ #State 132
2006-07-29 10:00:58 +04:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"(" = > 155
2006-07-29 10:00:58 +04:00
}
2005-12-25 17:59:21 +03:00
} ,
{ #State 133
2006-11-07 01:54:49 +03:00
DEFAULT = > - 34
2005-12-25 17:59:21 +03:00
} ,
{ #State 134
2006-11-07 01:54:49 +03:00
DEFAULT = > - 29
2006-07-29 10:00:58 +04:00
} ,
{ #State 135
2006-11-07 01:54:49 +03:00
DEFAULT = > - 30
2006-07-29 10:00:58 +04:00
} ,
{ #State 136
2006-11-07 01:54:49 +03:00
DEFAULT = > - 31
2006-11-07 00:54:19 +03:00
} ,
{ #State 137
2005-01-06 09:32:07 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'IDENTIFIER' = > 22
2005-01-06 09:32:07 +03:00
} ,
GOTOS = > {
2006-11-07 01:54:49 +03:00
'identifier' = > 156
2005-01-06 09:32:07 +03:00
}
} ,
2006-07-29 10:00:58 +04:00
{ #State 138
2006-11-07 01:54:49 +03:00
DEFAULT = > - 32
2006-11-07 00:54:19 +03:00
} ,
{ #State 139
2006-11-07 01:54:49 +03:00
DEFAULT = > - 33
2006-11-07 00:54:19 +03:00
} ,
{ #State 140
2003-12-08 05:55:28 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'IDENTIFIER' = > 22 ,
"*" = > 158
2005-09-04 02:58:04 +04:00
} ,
2006-11-07 00:54:19 +03:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'identifier' = > 157
2006-11-07 00:54:19 +03:00
}
2003-12-08 05:55:28 +03:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 141
2006-11-07 01:54:49 +03:00
DEFAULT = > - 68
2006-11-07 00:54:19 +03:00
} ,
{ #State 142
2006-11-07 01:54:49 +03:00
DEFAULT = > - 83 ,
2006-11-07 00:54:19 +03:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'element_list1' = > 159
2006-11-07 00:54:19 +03:00
}
} ,
{ #State 143
2006-11-07 01:54:49 +03:00
DEFAULT = > - 69
2006-11-07 00:54:19 +03:00
} ,
{ #State 144
2004-11-29 14:08:15 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'IDENTIFIER' = > 22
2004-11-29 14:08:15 +03:00
} ,
2006-11-07 00:54:19 +03:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'identifier' = > 160 ,
'enum_element' = > 161 ,
'enum_elements' = > 162
2006-11-07 00:54:19 +03:00
}
2003-12-08 05:55:28 +03:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 145
2006-11-07 01:54:49 +03:00
DEFAULT = > - 51
2006-11-07 00:54:19 +03:00
} ,
{ #State 146
2006-11-07 01:54:49 +03:00
DEFAULT = > - 52
2006-11-07 00:54:19 +03:00
} ,
{ #State 147
2006-11-07 01:54:49 +03:00
DEFAULT = > - 60
2006-11-07 00:54:19 +03:00
} ,
{ #State 148
2003-12-08 05:55:28 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'IDENTIFIER' = > 22
2003-12-08 05:55:28 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 63 ,
2006-11-07 00:54:19 +03:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'identifier' = > 165 ,
'bitmap_element' = > 164 ,
'bitmap_elements' = > 163 ,
'opt_bitmap_elements' = > 166
2006-11-07 00:54:19 +03:00
}
2003-12-08 05:55:28 +03:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 149
2006-11-07 01:54:49 +03:00
DEFAULT = > - 59
2006-11-07 00:54:19 +03:00
} ,
{ #State 150
2004-11-29 14:08:15 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'CONSTANT' = > 44 ,
'TEXT' = > 13 ,
'IDENTIFIER' = > 22
2004-11-29 14:08:15 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 102 ,
2005-01-05 03:14:29 +03:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'identifier' = > 45 ,
'anytext' = > 167 ,
'text' = > 46 ,
'constant' = > 43
2005-01-05 03:14:29 +03:00
}
2003-12-08 05:55:28 +03:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 151
2003-12-08 05:55:28 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'CONSTANT' = > 44 ,
'TEXT' = > 13 ,
'IDENTIFIER' = > 22
2003-12-08 05:55:28 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 102 ,
2003-12-08 05:55:28 +03:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'identifier' = > 45 ,
'anytext' = > 168 ,
'text' = > 46 ,
'constant' = > 43
2003-12-08 05:55:28 +03:00
}
} ,
2006-11-07 00:54:19 +03:00
{ #State 152
2004-11-02 00:10:46 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'CONSTANT' = > 44 ,
'TEXT' = > 13 ,
'IDENTIFIER' = > 22
2005-01-05 03:14:29 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 102 ,
2005-01-05 03:14:29 +03:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'identifier' = > 45 ,
'anytext' = > 169 ,
'text' = > 46 ,
'constant' = > 43
2004-11-02 00:10:46 +03:00
}
2003-12-08 05:55:28 +03:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 153
2005-01-06 09:32:07 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"[" = > 170
} ,
DEFAULT = > - 89 ,
GOTOS = > {
'array_len' = > 171
2005-01-06 09:32:07 +03:00
}
} ,
2006-11-07 00:54:19 +03:00
{ #State 154
2004-11-29 14:08:15 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"}" = > 172
2005-01-05 02:25:25 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 92 ,
2005-01-05 02:25:25 +03:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'optional_base_element' = > 174 ,
'property_list' = > 173
2004-11-29 14:08:15 +03:00
}
} ,
2006-11-07 00:54:19 +03:00
{ #State 155
2003-12-08 05:55:28 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"," = > - 85 ,
"void" = > 178 ,
")" = > - 85
2005-02-11 05:05:47 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 92 ,
2005-02-11 05:05:47 +03:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'base_element' = > 175 ,
'element_list2' = > 177 ,
'property_list' = > 176
}
} ,
{ #State 156
ACTIONS = > {
";" = > 179
2005-01-05 03:14:29 +03:00
}
} ,
2006-11-07 00:54:19 +03:00
{ #State 157
2005-10-16 21:17:42 +04:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"[" = > 170 ,
"=" = > 181
2006-07-29 10:00:58 +04:00
} ,
2006-11-07 01:54:49 +03:00
GOTOS = > {
'array_len' = > 180
}
2005-10-16 21:17:42 +04:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 158
2006-11-07 01:54:49 +03:00
DEFAULT = > - 82
2005-10-16 21:17:42 +04:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 159
2003-12-08 05:55:28 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"}" = > 182
} ,
DEFAULT = > - 92 ,
GOTOS = > {
'base_element' = > 183 ,
'property_list' = > 176
2003-12-08 05:55:28 +03:00
}
} ,
2006-11-07 00:54:19 +03:00
{ #State 160
2005-07-20 03:34:02 +04:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"=" = > 184
2006-09-07 02:25:54 +04:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 55
2006-09-07 02:25:54 +04:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 161
2006-11-07 01:54:49 +03:00
DEFAULT = > - 53
2004-11-02 00:10:46 +03:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 162
2006-07-29 10:00:58 +04:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"}" = > 185 ,
"," = > 186
2006-07-29 10:00:58 +04:00
}
} ,
2006-11-07 00:54:19 +03:00
{ #State 163
2006-09-07 02:25:54 +04:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"," = > 187
} ,
DEFAULT = > - 64
2006-09-07 02:25:54 +04:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 164
2006-11-07 01:54:49 +03:00
DEFAULT = > - 61
2005-01-05 18:28:10 +03:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 165
2005-01-05 18:28:10 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"=" = > 188
2005-01-05 18:28:10 +03:00
}
} ,
2006-11-07 00:54:19 +03:00
{ #State 166
2006-11-07 01:54:49 +03:00
ACTIONS = > {
"}" = > 189
}
2006-09-07 02:25:54 +04:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 167
2004-11-02 00:10:46 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"-" = > 70 ,
":" = > 69 ,
"<" = > 71 ,
"+" = > 73 ,
"~" = > 72 ,
"*" = > 74 ,
"?" = > 75 ,
"{" = > 76 ,
"&" = > 77 ,
"/" = > 78 ,
"=" = > 79 ,
"(" = > 80 ,
"|" = > 81 ,
"." = > 82 ,
">" = > 83
2004-11-02 00:10:46 +03:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 120
2004-11-02 00:10:46 +03:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 168
2006-11-07 01:54:49 +03:00
ACTIONS = > {
"-" = > 70 ,
":" = > 69 ,
"<" = > 71 ,
"+" = > 73 ,
"~" = > 72 ,
"*" = > 74 ,
"?" = > 75 ,
"{" = > 76 ,
"&" = > 77 ,
"/" = > 78 ,
"=" = > 79 ,
"(" = > 80 ,
"|" = > 81 ,
"." = > 82 ,
">" = > 83
} ,
DEFAULT = > - 101
2004-11-02 00:10:46 +03:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 169
2006-11-07 01:54:49 +03:00
ACTIONS = > {
":" = > 69 ,
"<" = > 71 ,
"~" = > 72 ,
"?" = > 75 ,
"{" = > 76 ,
"=" = > 79
} ,
DEFAULT = > - 119
2006-09-07 02:25:54 +04:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 170
2005-07-20 03:34:02 +04:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'CONSTANT' = > 44 ,
'TEXT' = > 13 ,
"]" = > 190 ,
'IDENTIFIER' = > 22
} ,
DEFAULT = > - 102 ,
GOTOS = > {
'identifier' = > 45 ,
'anytext' = > 191 ,
'text' = > 46 ,
'constant' = > 43
2005-07-20 03:34:02 +04:00
}
2005-01-05 03:14:29 +03:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 171
2005-01-05 03:14:29 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
";" = > 192
2005-01-05 03:14:29 +03:00
}
} ,
2006-11-07 00:54:19 +03:00
{ #State 172
2006-11-07 01:54:49 +03:00
DEFAULT = > - 76
2005-07-20 03:34:02 +04:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 173
2005-07-20 03:34:02 +04:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"[" = > 17
2005-07-20 03:34:02 +04:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 92 ,
2005-07-20 03:34:02 +04:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'base_or_empty' = > 193 ,
'base_element' = > 194 ,
'empty_element' = > 195 ,
'property_list' = > 196
2005-07-20 03:34:02 +04:00
}
} ,
2006-11-07 01:54:49 +03:00
{ #State 174
DEFAULT = > - 75
} ,
{ #State 175
DEFAULT = > - 87
} ,
2006-11-07 00:54:19 +03:00
{ #State 176
2006-11-07 01:54:49 +03:00
ACTIONS = > {
'IDENTIFIER' = > 22 ,
"signed" = > 100 ,
"union" = > 50 ,
"enum" = > 63 ,
"bitmap" = > 64 ,
'void' = > 95 ,
"unsigned" = > 101 ,
"[" = > 17 ,
"struct" = > 61
} ,
DEFAULT = > - 43 ,
GOTOS = > {
'existingtype' = > 99 ,
'bitmap' = > 65 ,
'usertype' = > 96 ,
'identifier' = > 97 ,
'struct' = > 57 ,
'enum' = > 59 ,
'type' = > 197 ,
'union' = > 68 ,
'sign' = > 98
}
2006-09-07 02:25:54 +04:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 177
2005-05-27 18:01:22 +04:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"," = > 198 ,
")" = > 199
2005-07-20 03:34:02 +04:00
}
} ,
2006-11-07 00:54:19 +03:00
{ #State 178
2006-11-07 01:54:49 +03:00
DEFAULT = > - 86
2005-01-05 02:25:25 +03:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 179
2006-11-07 01:54:49 +03:00
DEFAULT = > - 28
2005-01-05 02:25:25 +03:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 180
2005-07-20 03:34:02 +04:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"=" = > 200
2005-07-20 03:34:02 +04:00
}
2005-02-11 05:05:47 +03:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 181
2005-01-05 03:14:29 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'CONSTANT' = > 44 ,
'TEXT' = > 13 ,
'IDENTIFIER' = > 22
2005-07-20 03:34:02 +04:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 102 ,
2005-07-20 03:34:02 +04:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'identifier' = > 45 ,
'anytext' = > 201 ,
'text' = > 46 ,
'constant' = > 43
2005-01-05 03:14:29 +03:00
}
} ,
2006-11-07 00:54:19 +03:00
{ #State 182
2006-11-07 01:54:49 +03:00
DEFAULT = > - 66
2005-02-11 05:05:47 +03:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 183
2006-11-07 01:54:49 +03:00
ACTIONS = > {
";" = > 202
}
2006-09-07 02:25:54 +04:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 184
2005-10-16 21:17:42 +04:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'CONSTANT' = > 44 ,
'TEXT' = > 13 ,
'IDENTIFIER' = > 22
2005-10-16 21:17:42 +04:00
} ,
2006-11-07 01:54:49 +03:00
DEFAULT = > - 102 ,
2005-10-16 21:17:42 +04:00
GOTOS = > {
2006-11-07 01:54:49 +03:00
'identifier' = > 45 ,
'anytext' = > 203 ,
'text' = > 46 ,
'constant' = > 43
2005-10-16 21:17:42 +04:00
}
} ,
2006-11-07 00:54:19 +03:00
{ #State 185
2006-11-07 01:54:49 +03:00
DEFAULT = > - 49
2005-10-16 21:17:42 +04:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 186
2006-11-07 01:54:49 +03:00
ACTIONS = > {
'IDENTIFIER' = > 22
} ,
GOTOS = > {
'identifier' = > 160 ,
'enum_element' = > 204
}
2005-07-20 03:34:02 +04:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 187
2006-11-07 01:54:49 +03:00
ACTIONS = > {
'IDENTIFIER' = > 22
} ,
GOTOS = > {
'identifier' = > 165 ,
'bitmap_element' = > 205
}
2005-07-20 03:34:02 +04:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 188
2006-09-07 02:25:54 +04:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'CONSTANT' = > 44 ,
'TEXT' = > 13 ,
'IDENTIFIER' = > 22
} ,
DEFAULT = > - 102 ,
GOTOS = > {
'identifier' = > 45 ,
'anytext' = > 206 ,
'text' = > 46 ,
'constant' = > 43
2006-09-07 02:25:54 +04:00
}
2005-07-20 03:34:02 +04:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 189
2006-11-07 01:54:49 +03:00
DEFAULT = > - 57
2006-09-07 02:25:54 +04:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 190
2005-01-05 03:14:29 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"[" = > 170
} ,
DEFAULT = > - 89 ,
GOTOS = > {
'array_len' = > 207
2005-01-05 03:14:29 +03:00
}
} ,
2006-11-07 00:54:19 +03:00
{ #State 191
2006-11-07 01:54:49 +03:00
ACTIONS = > {
"-" = > 70 ,
":" = > 69 ,
"?" = > 75 ,
"<" = > 71 ,
"+" = > 73 ,
"~" = > 72 ,
"&" = > 77 ,
"{" = > 76 ,
"/" = > 78 ,
"=" = > 79 ,
"|" = > 81 ,
"(" = > 80 ,
"*" = > 74 ,
"." = > 82 ,
"]" = > 208 ,
">" = > 83
2005-07-20 03:34:02 +04:00
}
} ,
2006-11-07 00:54:19 +03:00
{ #State 192
2006-11-07 01:54:49 +03:00
DEFAULT = > - 35
2005-07-20 03:34:02 +04:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 193
2006-11-07 01:54:49 +03:00
DEFAULT = > - 73
2005-07-20 03:34:02 +04:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 194
2005-07-20 03:34:02 +04:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
";" = > 209
2005-07-20 03:34:02 +04:00
}
} ,
2006-11-07 00:54:19 +03:00
{ #State 195
2006-11-07 01:54:49 +03:00
DEFAULT = > - 72
2003-12-08 05:55:28 +03:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 196
2006-11-07 01:54:49 +03:00
ACTIONS = > {
'IDENTIFIER' = > 22 ,
"signed" = > 100 ,
"union" = > 50 ,
";" = > 210 ,
"enum" = > 63 ,
"bitmap" = > 64 ,
'void' = > 95 ,
"unsigned" = > 101 ,
"[" = > 17 ,
"struct" = > 61
} ,
DEFAULT = > - 43 ,
GOTOS = > {
'existingtype' = > 99 ,
'bitmap' = > 65 ,
'usertype' = > 96 ,
'identifier' = > 97 ,
'struct' = > 57 ,
'enum' = > 59 ,
'type' = > 197 ,
'union' = > 68 ,
'sign' = > 98
}
2006-09-07 02:25:54 +04:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 197
2006-11-07 01:54:49 +03:00
DEFAULT = > - 81 ,
GOTOS = > {
'pointers' = > 211
}
2003-12-08 05:55:28 +03:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 198
2006-11-07 01:54:49 +03:00
DEFAULT = > - 92 ,
GOTOS = > {
'base_element' = > 212 ,
'property_list' = > 176
}
2003-12-08 05:55:28 +03:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 199
2006-11-07 01:54:49 +03:00
ACTIONS = > {
";" = > 213
}
2005-01-05 03:14:29 +03:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 200
2004-11-29 14:08:15 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'CONSTANT' = > 44 ,
'TEXT' = > 13 ,
'IDENTIFIER' = > 22
} ,
DEFAULT = > - 102 ,
GOTOS = > {
'identifier' = > 45 ,
'anytext' = > 214 ,
'text' = > 46 ,
'constant' = > 43
}
2005-10-16 21:17:42 +04:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 201
2005-10-16 21:17:42 +04:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"-" = > 70 ,
":" = > 69 ,
"?" = > 75 ,
"<" = > 71 ,
";" = > 215 ,
"+" = > 73 ,
"~" = > 72 ,
"&" = > 77 ,
"{" = > 76 ,
"/" = > 78 ,
"=" = > 79 ,
"|" = > 81 ,
"(" = > 80 ,
"*" = > 74 ,
"." = > 82 ,
">" = > 83
2005-10-16 21:17:42 +04:00
}
} ,
2006-11-07 01:54:49 +03:00
{ #State 202
DEFAULT = > - 84
} ,
2006-11-07 00:54:19 +03:00
{ #State 203
2006-11-07 01:54:49 +03:00
ACTIONS = > {
"-" = > 70 ,
":" = > 69 ,
"<" = > 71 ,
"+" = > 73 ,
"~" = > 72 ,
"*" = > 74 ,
"?" = > 75 ,
"{" = > 76 ,
"&" = > 77 ,
"/" = > 78 ,
"=" = > 79 ,
"(" = > 80 ,
"|" = > 81 ,
"." = > 82 ,
">" = > 83
} ,
DEFAULT = > - 56
2005-07-20 03:34:02 +04:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 204
2006-11-07 01:54:49 +03:00
DEFAULT = > - 54
2006-09-07 02:25:54 +04:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 205
2006-11-07 01:54:49 +03:00
DEFAULT = > - 62
2003-12-08 05:55:28 +03:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 206
2006-11-07 01:54:49 +03:00
ACTIONS = > {
"-" = > 70 ,
":" = > 69 ,
"<" = > 71 ,
"+" = > 73 ,
"~" = > 72 ,
"*" = > 74 ,
"?" = > 75 ,
"{" = > 76 ,
"&" = > 77 ,
"/" = > 78 ,
"=" = > 79 ,
"(" = > 80 ,
"|" = > 81 ,
"." = > 82 ,
">" = > 83
} ,
DEFAULT = > - 65
2006-09-07 02:25:54 +04:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 207
2006-11-07 01:54:49 +03:00
DEFAULT = > - 90
2003-12-08 05:55:28 +03:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 208
ACTIONS = > {
2006-11-07 01:54:49 +03:00
"[" = > 170
} ,
DEFAULT = > - 89 ,
GOTOS = > {
'array_len' = > 216
2006-11-07 00:54:19 +03:00
}
} ,
{ #State 209
2006-11-07 01:54:49 +03:00
DEFAULT = > - 71
2005-10-16 21:17:42 +04:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 210
2006-11-07 01:54:49 +03:00
DEFAULT = > - 70
2006-09-07 02:25:54 +04:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 211
2003-12-08 05:55:28 +03:00
ACTIONS = > {
2006-11-07 01:54:49 +03:00
'IDENTIFIER' = > 22 ,
"*" = > 158
2003-12-08 05:55:28 +03:00
} ,
GOTOS = > {
2006-11-07 01:54:49 +03:00
'identifier' = > 217
2003-12-08 05:55:28 +03:00
}
} ,
2006-11-07 00:54:19 +03:00
{ #State 212
2006-11-07 01:54:49 +03:00
DEFAULT = > - 88
2005-10-16 21:17:42 +04:00
} ,
2006-11-07 00:54:19 +03:00
{ #State 213
2006-11-07 01:54:49 +03:00
DEFAULT = > - 27
} ,
{ #State 214
ACTIONS = > {
"-" = > 70 ,
":" = > 69 ,
"?" = > 75 ,
"<" = > 71 ,
";" = > 218 ,
"+" = > 73 ,
"~" = > 72 ,
"&" = > 77 ,
"{" = > 76 ,
"/" = > 78 ,
"=" = > 79 ,
"|" = > 81 ,
"(" = > 80 ,
"*" = > 74 ,
"." = > 82 ,
">" = > 83
}
} ,
{ #State 215
DEFAULT = > - 25
} ,
{ #State 216
DEFAULT = > - 91
} ,
{ #State 217
ACTIONS = > {
"[" = > 170
} ,
DEFAULT = > - 89 ,
GOTOS = > {
'array_len' = > 219
}
} ,
{ #State 218
DEFAULT = > - 26
} ,
{ #State 219
DEFAULT = > - 80
2003-12-08 05:55:28 +03:00
}
] ,
yyrules = >
[
[ #Rule 0
'$start' , 2 , undef
] ,
[ #Rule 1
2004-08-11 23:48:36 +04:00
'idl' , 0 , undef
2003-12-08 05:55:28 +03:00
] ,
[ #Rule 2
'idl' , 2 ,
sub
2007-01-05 18:20:23 +03:00
#line 19 "idl.yp"
2004-11-02 00:10:46 +03:00
{ push ( @ { $ _ [ 1 ] } , $ _ [ 2 ] ) ; $ _ [ 1 ] }
2003-12-08 05:55:28 +03:00
] ,
[ #Rule 3
2004-11-02 00:10:46 +03:00
'idl' , 2 ,
sub
2007-01-05 18:20:23 +03:00
#line 20 "idl.yp"
2004-11-02 00:10:46 +03:00
{ push ( @ { $ _ [ 1 ] } , $ _ [ 2 ] ) ; $ _ [ 1 ] }
] ,
[ #Rule 4
2006-11-07 00:54:19 +03:00
'idl' , 2 ,
sub
2007-01-05 18:20:23 +03:00
#line 21 "idl.yp"
2006-11-07 00:54:19 +03:00
{ push ( @ { $ _ [ 1 ] } , $ _ [ 2 ] ) ; $ _ [ 1 ] }
] ,
[ #Rule 5
'idl' , 2 ,
sub
2007-01-05 18:20:23 +03:00
#line 22 "idl.yp"
2006-11-07 00:54:19 +03:00
{ push ( @ { $ _ [ 1 ] } , $ _ [ 2 ] ) ; $ _ [ 1 ] }
] ,
[ #Rule 6
'idl' , 2 ,
sub
2007-01-05 18:20:23 +03:00
#line 23 "idl.yp"
2006-11-07 00:54:19 +03:00
{ push ( @ { $ _ [ 1 ] } , $ _ [ 2 ] ) ; $ _ [ 1 ] }
] ,
[ #Rule 7
'import' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 26 "idl.yp"
2006-11-07 00:54:19 +03:00
{ {
"TYPE" = > "IMPORT" ,
2006-11-07 01:54:49 +03:00
"PATHS" = > $ _ [ 2 ] ,
2007-01-05 18:20:23 +03:00
"FILE" = > $ _ [ 0 ] - > YYData - > { FILE } ,
2006-11-07 00:54:19 +03:00
"LINE" = > $ _ [ 0 ] - > YYData - > { LINE }
} }
] ,
[ #Rule 8
'include' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 33 "idl.yp"
2006-11-07 00:54:19 +03:00
{ {
"TYPE" = > "INCLUDE" ,
2006-11-07 01:54:49 +03:00
"PATHS" = > $ _ [ 2 ] ,
2007-01-05 18:20:23 +03:00
"FILE" = > $ _ [ 0 ] - > YYData - > { FILE } ,
2006-11-07 00:54:19 +03:00
"LINE" = > $ _ [ 0 ] - > YYData - > { LINE }
} }
] ,
[ #Rule 9
'importlib' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 40 "idl.yp"
2006-11-07 00:54:19 +03:00
{ {
"TYPE" = > "IMPORTLIB" ,
2006-11-07 01:54:49 +03:00
"PATHS" = > $ _ [ 2 ] ,
2007-01-05 18:20:23 +03:00
"FILE" = > $ _ [ 0 ] - > YYData - > { FILE } ,
2006-11-07 00:54:19 +03:00
"LINE" = > $ _ [ 0 ] - > YYData - > { LINE }
} }
] ,
[ #Rule 10
2006-11-07 01:54:49 +03:00
'commalist' , 1 ,
2004-11-02 00:10:46 +03:00
sub
2007-01-05 18:20:23 +03:00
#line 49 "idl.yp"
2006-11-07 01:54:49 +03:00
{ [ $ _ [ 1 ] ] }
] ,
[ #Rule 11
'commalist' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 50 "idl.yp"
2006-11-07 01:54:49 +03:00
{ push ( @ { $ _ [ 1 ] } , $ _ [ 3 ] ) ; $ _ [ 1 ] }
] ,
[ #Rule 12
'coclass' , 7 ,
sub
2007-01-05 18:20:23 +03:00
#line 54 "idl.yp"
2006-11-07 00:54:19 +03:00
{ {
2004-11-02 00:10:46 +03:00
"TYPE" = > "COCLASS" ,
2005-01-05 03:31:28 +03:00
"PROPERTIES" = > $ _ [ 1 ] ,
"NAME" = > $ _ [ 3 ] ,
"DATA" = > $ _ [ 5 ] ,
2007-01-05 18:20:23 +03:00
"FILE" = > $ _ [ 0 ] - > YYData - > { FILE } ,
r6973: Merge new version of pidl into the main SAMBA_4_0 branch.
The main difference in this new version is the extra data structure generated
between the IDL data structure and the NDR parser:
IDL -> NDR -> { ndr_parser, ndr_header, eparser, etc }
This makes the ndr_parser.pm internals much more sane.
Other changes include:
- Remove unnecessary calls with NDR_BUFFERS (for example, GUID doesn't have any buffers, just scalars) as well as some (unnecessary) nested setting of flags.
- Parse array loops in the C code rather then calling ndr_pull_array(). This allows us to have, for example, arrays of pointers or arrays of pointers to arrays, etc..
- Use if() {} rather then if () goto foo; everywhere
- NDR_IN no longer implies LIBNDR_FLAG_REF_ALLOC
- By default, top level pointers are now "ref" (as is the default in
most other IDL compilers). This can be overridden using the
default_pointer_top() property.
- initial work on new ethereal parser generators by Alan DeKok and me
- pidl now writes errors in the standard format used by compilers, which
is parsable by most editors
- ability to warn about the fact that pidl extension(s) have been used,
useful for making sure IDL files work with other IDL compilers.
oh, and there's probably some other things I can't think of right now..
(This used to be commit 13cf227615f6b9e0e5fa62e59197024410254f01)
2005-05-25 17:50:27 +04:00
"LINE" = > $ _ [ 0 ] - > YYData - > { LINE } ,
2004-11-02 00:10:46 +03:00
} }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 13
2005-02-21 15:13:42 +03:00
'interface_names' , 0 , undef
2004-11-02 00:10:46 +03:00
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 14
2005-02-21 15:13:42 +03:00
'interface_names' , 4 ,
2004-11-02 00:10:46 +03:00
sub
2007-01-05 18:20:23 +03:00
#line 66 "idl.yp"
2004-11-02 00:10:46 +03:00
{ push ( @ { $ _ [ 1 ] } , $ _ [ 2 ] ) ; $ _ [ 1 ] }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 15
2004-11-01 15:26:59 +03:00
'interface' , 8 ,
2003-12-08 05:55:28 +03:00
sub
2007-01-05 18:20:23 +03:00
#line 70 "idl.yp"
2006-11-07 00:54:19 +03:00
{ {
2004-08-11 23:48:36 +04:00
"TYPE" = > "INTERFACE" ,
2005-01-05 03:31:28 +03:00
"PROPERTIES" = > $ _ [ 1 ] ,
"NAME" = > $ _ [ 3 ] ,
"BASE" = > $ _ [ 4 ] ,
"DATA" = > $ _ [ 6 ] ,
2007-01-05 18:20:23 +03:00
"FILE" = > $ _ [ 0 ] - > YYData - > { FILE } ,
r6973: Merge new version of pidl into the main SAMBA_4_0 branch.
The main difference in this new version is the extra data structure generated
between the IDL data structure and the NDR parser:
IDL -> NDR -> { ndr_parser, ndr_header, eparser, etc }
This makes the ndr_parser.pm internals much more sane.
Other changes include:
- Remove unnecessary calls with NDR_BUFFERS (for example, GUID doesn't have any buffers, just scalars) as well as some (unnecessary) nested setting of flags.
- Parse array loops in the C code rather then calling ndr_pull_array(). This allows us to have, for example, arrays of pointers or arrays of pointers to arrays, etc..
- Use if() {} rather then if () goto foo; everywhere
- NDR_IN no longer implies LIBNDR_FLAG_REF_ALLOC
- By default, top level pointers are now "ref" (as is the default in
most other IDL compilers). This can be overridden using the
default_pointer_top() property.
- initial work on new ethereal parser generators by Alan DeKok and me
- pidl now writes errors in the standard format used by compilers, which
is parsable by most editors
- ability to warn about the fact that pidl extension(s) have been used,
useful for making sure IDL files work with other IDL compilers.
oh, and there's probably some other things I can't think of right now..
(This used to be commit 13cf227615f6b9e0e5fa62e59197024410254f01)
2005-05-25 17:50:27 +04:00
"LINE" = > $ _ [ 0 ] - > YYData - > { LINE } ,
2003-12-08 05:55:28 +03:00
} }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 16
2004-08-11 23:48:36 +04:00
'base_interface' , 0 , undef
2003-12-08 05:55:28 +03:00
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 17
2004-08-11 23:48:36 +04:00
'base_interface' , 2 ,
2003-12-08 05:55:28 +03:00
sub
2007-01-05 18:20:23 +03:00
#line 83 "idl.yp"
2004-08-11 23:48:36 +04:00
{ $ _ [ 2 ] }
2003-12-08 05:55:28 +03:00
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 18
2003-12-08 05:55:28 +03:00
'definitions' , 1 ,
sub
2007-01-05 18:20:23 +03:00
#line 87 "idl.yp"
2003-12-08 05:55:28 +03:00
{ [ $ _ [ 1 ] ] }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 19
2003-12-08 05:55:28 +03:00
'definitions' , 2 ,
sub
2007-01-05 18:20:23 +03:00
#line 88 "idl.yp"
2003-12-08 05:55:28 +03:00
{ push ( @ { $ _ [ 1 ] } , $ _ [ 2 ] ) ; $ _ [ 1 ] }
] ,
2006-11-07 00:54:19 +03:00
[ #Rule 20
2003-12-08 05:55:28 +03:00
'definition' , 1 , undef
] ,
2006-11-07 00:54:19 +03:00
[ #Rule 21
2005-01-06 09:32:07 +03:00
'definition' , 1 , undef
] ,
2006-11-07 00:54:19 +03:00
[ #Rule 22
2005-07-20 03:34:02 +04:00
'definition' , 1 , undef
] ,
2006-11-07 00:54:19 +03:00
[ #Rule 23
2006-11-07 01:54:49 +03:00
'definition' , 1 , undef
] ,
[ #Rule 24
'definition' , 1 , undef
] ,
[ #Rule 25
2005-10-16 21:17:42 +04:00
'const' , 7 ,
2003-12-08 05:55:28 +03:00
sub
2007-01-05 18:20:23 +03:00
#line 96 "idl.yp"
2003-12-08 05:55:28 +03:00
{ {
"TYPE" = > "CONST" ,
"DTYPE" = > $ _ [ 2 ] ,
2005-10-16 21:17:42 +04:00
"POINTERS" = > $ _ [ 3 ] ,
"NAME" = > $ _ [ 4 ] ,
"VALUE" = > $ _ [ 6 ] ,
2007-01-05 18:20:23 +03:00
"FILE" = > $ _ [ 0 ] - > YYData - > { FILE } ,
r6973: Merge new version of pidl into the main SAMBA_4_0 branch.
The main difference in this new version is the extra data structure generated
between the IDL data structure and the NDR parser:
IDL -> NDR -> { ndr_parser, ndr_header, eparser, etc }
This makes the ndr_parser.pm internals much more sane.
Other changes include:
- Remove unnecessary calls with NDR_BUFFERS (for example, GUID doesn't have any buffers, just scalars) as well as some (unnecessary) nested setting of flags.
- Parse array loops in the C code rather then calling ndr_pull_array(). This allows us to have, for example, arrays of pointers or arrays of pointers to arrays, etc..
- Use if() {} rather then if () goto foo; everywhere
- NDR_IN no longer implies LIBNDR_FLAG_REF_ALLOC
- By default, top level pointers are now "ref" (as is the default in
most other IDL compilers). This can be overridden using the
default_pointer_top() property.
- initial work on new ethereal parser generators by Alan DeKok and me
- pidl now writes errors in the standard format used by compilers, which
is parsable by most editors
- ability to warn about the fact that pidl extension(s) have been used,
useful for making sure IDL files work with other IDL compilers.
oh, and there's probably some other things I can't think of right now..
(This used to be commit 13cf227615f6b9e0e5fa62e59197024410254f01)
2005-05-25 17:50:27 +04:00
"LINE" = > $ _ [ 0 ] - > YYData - > { LINE } ,
2003-12-08 05:55:28 +03:00
} }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 26
2005-10-16 21:17:42 +04:00
'const' , 8 ,
2004-11-29 14:08:15 +03:00
sub
2007-01-05 18:20:23 +03:00
#line 106 "idl.yp"
2004-11-29 14:08:15 +03:00
{ {
"TYPE" = > "CONST" ,
"DTYPE" = > $ _ [ 2 ] ,
2005-10-16 21:17:42 +04:00
"POINTERS" = > $ _ [ 3 ] ,
"NAME" = > $ _ [ 4 ] ,
"ARRAY_LEN" = > $ _ [ 5 ] ,
"VALUE" = > $ _ [ 7 ] ,
2007-01-05 18:20:23 +03:00
"FILE" = > $ _ [ 0 ] - > YYData - > { FILE } ,
r6973: Merge new version of pidl into the main SAMBA_4_0 branch.
The main difference in this new version is the extra data structure generated
between the IDL data structure and the NDR parser:
IDL -> NDR -> { ndr_parser, ndr_header, eparser, etc }
This makes the ndr_parser.pm internals much more sane.
Other changes include:
- Remove unnecessary calls with NDR_BUFFERS (for example, GUID doesn't have any buffers, just scalars) as well as some (unnecessary) nested setting of flags.
- Parse array loops in the C code rather then calling ndr_pull_array(). This allows us to have, for example, arrays of pointers or arrays of pointers to arrays, etc..
- Use if() {} rather then if () goto foo; everywhere
- NDR_IN no longer implies LIBNDR_FLAG_REF_ALLOC
- By default, top level pointers are now "ref" (as is the default in
most other IDL compilers). This can be overridden using the
default_pointer_top() property.
- initial work on new ethereal parser generators by Alan DeKok and me
- pidl now writes errors in the standard format used by compilers, which
is parsable by most editors
- ability to warn about the fact that pidl extension(s) have been used,
useful for making sure IDL files work with other IDL compilers.
oh, and there's probably some other things I can't think of right now..
(This used to be commit 13cf227615f6b9e0e5fa62e59197024410254f01)
2005-05-25 17:50:27 +04:00
"LINE" = > $ _ [ 0 ] - > YYData - > { LINE } ,
2004-11-29 14:08:15 +03:00
} }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 27
2003-12-08 05:55:28 +03:00
'function' , 7 ,
sub
2007-01-05 18:20:23 +03:00
#line 120 "idl.yp"
2003-12-08 05:55:28 +03:00
{ {
"TYPE" = > "FUNCTION" ,
"NAME" = > $ _ [ 3 ] ,
"RETURN_TYPE" = > $ _ [ 2 ] ,
"PROPERTIES" = > $ _ [ 1 ] ,
r6973: Merge new version of pidl into the main SAMBA_4_0 branch.
The main difference in this new version is the extra data structure generated
between the IDL data structure and the NDR parser:
IDL -> NDR -> { ndr_parser, ndr_header, eparser, etc }
This makes the ndr_parser.pm internals much more sane.
Other changes include:
- Remove unnecessary calls with NDR_BUFFERS (for example, GUID doesn't have any buffers, just scalars) as well as some (unnecessary) nested setting of flags.
- Parse array loops in the C code rather then calling ndr_pull_array(). This allows us to have, for example, arrays of pointers or arrays of pointers to arrays, etc..
- Use if() {} rather then if () goto foo; everywhere
- NDR_IN no longer implies LIBNDR_FLAG_REF_ALLOC
- By default, top level pointers are now "ref" (as is the default in
most other IDL compilers). This can be overridden using the
default_pointer_top() property.
- initial work on new ethereal parser generators by Alan DeKok and me
- pidl now writes errors in the standard format used by compilers, which
is parsable by most editors
- ability to warn about the fact that pidl extension(s) have been used,
useful for making sure IDL files work with other IDL compilers.
oh, and there's probably some other things I can't think of right now..
(This used to be commit 13cf227615f6b9e0e5fa62e59197024410254f01)
2005-05-25 17:50:27 +04:00
"ELEMENTS" = > $ _ [ 5 ] ,
2007-01-05 18:20:23 +03:00
"FILE" = > $ _ [ 0 ] - > YYData - > { FILE } ,
r6973: Merge new version of pidl into the main SAMBA_4_0 branch.
The main difference in this new version is the extra data structure generated
between the IDL data structure and the NDR parser:
IDL -> NDR -> { ndr_parser, ndr_header, eparser, etc }
This makes the ndr_parser.pm internals much more sane.
Other changes include:
- Remove unnecessary calls with NDR_BUFFERS (for example, GUID doesn't have any buffers, just scalars) as well as some (unnecessary) nested setting of flags.
- Parse array loops in the C code rather then calling ndr_pull_array(). This allows us to have, for example, arrays of pointers or arrays of pointers to arrays, etc..
- Use if() {} rather then if () goto foo; everywhere
- NDR_IN no longer implies LIBNDR_FLAG_REF_ALLOC
- By default, top level pointers are now "ref" (as is the default in
most other IDL compilers). This can be overridden using the
default_pointer_top() property.
- initial work on new ethereal parser generators by Alan DeKok and me
- pidl now writes errors in the standard format used by compilers, which
is parsable by most editors
- ability to warn about the fact that pidl extension(s) have been used,
useful for making sure IDL files work with other IDL compilers.
oh, and there's probably some other things I can't think of right now..
(This used to be commit 13cf227615f6b9e0e5fa62e59197024410254f01)
2005-05-25 17:50:27 +04:00
"LINE" = > $ _ [ 0 ] - > YYData - > { LINE } ,
} }
2003-12-08 05:55:28 +03:00
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 28
2005-01-06 09:32:07 +03:00
'declare' , 5 ,
2003-12-08 05:55:28 +03:00
sub
2007-01-05 18:20:23 +03:00
#line 132 "idl.yp"
2005-01-06 09:32:07 +03:00
{ {
"TYPE" = > "DECLARE" ,
"PROPERTIES" = > $ _ [ 2 ] ,
"NAME" = > $ _ [ 4 ] ,
"DATA" = > $ _ [ 3 ] ,
2007-01-05 18:20:23 +03:00
"FILE" = > $ _ [ 0 ] - > YYData - > { FILE } ,
r6973: Merge new version of pidl into the main SAMBA_4_0 branch.
The main difference in this new version is the extra data structure generated
between the IDL data structure and the NDR parser:
IDL -> NDR -> { ndr_parser, ndr_header, eparser, etc }
This makes the ndr_parser.pm internals much more sane.
Other changes include:
- Remove unnecessary calls with NDR_BUFFERS (for example, GUID doesn't have any buffers, just scalars) as well as some (unnecessary) nested setting of flags.
- Parse array loops in the C code rather then calling ndr_pull_array(). This allows us to have, for example, arrays of pointers or arrays of pointers to arrays, etc..
- Use if() {} rather then if () goto foo; everywhere
- NDR_IN no longer implies LIBNDR_FLAG_REF_ALLOC
- By default, top level pointers are now "ref" (as is the default in
most other IDL compilers). This can be overridden using the
default_pointer_top() property.
- initial work on new ethereal parser generators by Alan DeKok and me
- pidl now writes errors in the standard format used by compilers, which
is parsable by most editors
- ability to warn about the fact that pidl extension(s) have been used,
useful for making sure IDL files work with other IDL compilers.
oh, and there's probably some other things I can't think of right now..
(This used to be commit 13cf227615f6b9e0e5fa62e59197024410254f01)
2005-05-25 17:50:27 +04:00
"LINE" = > $ _ [ 0 ] - > YYData - > { LINE } ,
2005-01-06 09:32:07 +03:00
} }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 29
2005-01-06 09:32:07 +03:00
'decl_type' , 1 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 30
2005-07-20 03:34:02 +04:00
'decl_type' , 1 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 31
2006-07-29 10:00:58 +04:00
'decl_type' , 1 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 32
2005-01-06 09:32:07 +03:00
'decl_enum' , 1 ,
sub
2007-01-05 18:20:23 +03:00
#line 146 "idl.yp"
2005-01-06 09:32:07 +03:00
{ {
"TYPE" = > "ENUM"
} }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 33
2005-01-06 09:32:07 +03:00
'decl_bitmap' , 1 ,
sub
2007-01-05 18:20:23 +03:00
#line 152 "idl.yp"
2005-01-06 09:32:07 +03:00
{ {
"TYPE" = > "BITMAP"
} }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 34
2006-07-29 10:00:58 +04:00
'decl_union' , 1 ,
sub
2007-01-05 18:20:23 +03:00
#line 158 "idl.yp"
2006-07-29 10:00:58 +04:00
{ {
"TYPE" = > "UNION"
} }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 35
2005-01-06 09:32:07 +03:00
'typedef' , 6 ,
sub
2007-01-05 18:20:23 +03:00
#line 164 "idl.yp"
2003-12-08 05:55:28 +03:00
{ {
2005-01-05 02:25:25 +03:00
"TYPE" = > "TYPEDEF" ,
"PROPERTIES" = > $ _ [ 2 ] ,
"NAME" = > $ _ [ 4 ] ,
"DATA" = > $ _ [ 3 ] ,
r6973: Merge new version of pidl into the main SAMBA_4_0 branch.
The main difference in this new version is the extra data structure generated
between the IDL data structure and the NDR parser:
IDL -> NDR -> { ndr_parser, ndr_header, eparser, etc }
This makes the ndr_parser.pm internals much more sane.
Other changes include:
- Remove unnecessary calls with NDR_BUFFERS (for example, GUID doesn't have any buffers, just scalars) as well as some (unnecessary) nested setting of flags.
- Parse array loops in the C code rather then calling ndr_pull_array(). This allows us to have, for example, arrays of pointers or arrays of pointers to arrays, etc..
- Use if() {} rather then if () goto foo; everywhere
- NDR_IN no longer implies LIBNDR_FLAG_REF_ALLOC
- By default, top level pointers are now "ref" (as is the default in
most other IDL compilers). This can be overridden using the
default_pointer_top() property.
- initial work on new ethereal parser generators by Alan DeKok and me
- pidl now writes errors in the standard format used by compilers, which
is parsable by most editors
- ability to warn about the fact that pidl extension(s) have been used,
useful for making sure IDL files work with other IDL compilers.
oh, and there's probably some other things I can't think of right now..
(This used to be commit 13cf227615f6b9e0e5fa62e59197024410254f01)
2005-05-25 17:50:27 +04:00
"ARRAY_LEN" = > $ _ [ 5 ] ,
2007-01-05 18:20:23 +03:00
"FILE" = > $ _ [ 0 ] - > YYData - > { FILE } ,
r6973: Merge new version of pidl into the main SAMBA_4_0 branch.
The main difference in this new version is the extra data structure generated
between the IDL data structure and the NDR parser:
IDL -> NDR -> { ndr_parser, ndr_header, eparser, etc }
This makes the ndr_parser.pm internals much more sane.
Other changes include:
- Remove unnecessary calls with NDR_BUFFERS (for example, GUID doesn't have any buffers, just scalars) as well as some (unnecessary) nested setting of flags.
- Parse array loops in the C code rather then calling ndr_pull_array(). This allows us to have, for example, arrays of pointers or arrays of pointers to arrays, etc..
- Use if() {} rather then if () goto foo; everywhere
- NDR_IN no longer implies LIBNDR_FLAG_REF_ALLOC
- By default, top level pointers are now "ref" (as is the default in
most other IDL compilers). This can be overridden using the
default_pointer_top() property.
- initial work on new ethereal parser generators by Alan DeKok and me
- pidl now writes errors in the standard format used by compilers, which
is parsable by most editors
- ability to warn about the fact that pidl extension(s) have been used,
useful for making sure IDL files work with other IDL compilers.
oh, and there's probably some other things I can't think of right now..
(This used to be commit 13cf227615f6b9e0e5fa62e59197024410254f01)
2005-05-25 17:50:27 +04:00
"LINE" = > $ _ [ 0 ] - > YYData - > { LINE } ,
2003-12-08 05:55:28 +03:00
} }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 36
2005-07-20 03:34:02 +04:00
'usertype' , 1 , undef
2003-12-08 05:55:28 +03:00
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 37
2005-07-20 03:34:02 +04:00
'usertype' , 1 , undef
2003-12-08 05:55:28 +03:00
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 38
2005-07-20 03:34:02 +04:00
'usertype' , 1 , undef
2004-11-29 14:08:15 +03:00
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 39
2005-07-20 03:34:02 +04:00
'usertype' , 1 , undef
2005-01-05 18:28:10 +03:00
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 40
2005-07-20 03:34:02 +04:00
'typedecl' , 2 ,
sub
2007-01-05 18:20:23 +03:00
#line 177 "idl.yp"
2005-07-20 03:34:02 +04:00
{ $ _ [ 1 ] }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 41
2005-12-25 17:59:21 +03:00
'sign' , 1 , undef
2005-07-20 03:34:02 +04:00
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 42
2005-12-25 17:59:21 +03:00
'sign' , 1 , undef
2005-07-20 03:34:02 +04:00
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 43
2005-12-25 17:59:21 +03:00
'existingtype' , 0 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 44
2005-12-25 17:59:21 +03:00
'existingtype' , 2 ,
sub
2007-01-05 18:20:23 +03:00
#line 182 "idl.yp"
2005-12-25 17:59:21 +03:00
{ "$_[1] $_[2]" }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 45
2005-12-25 17:59:21 +03:00
'existingtype' , 1 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 46
2005-12-25 17:59:21 +03:00
'type' , 1 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 47
2005-12-25 17:59:21 +03:00
'type' , 1 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 48
2003-12-08 05:55:28 +03:00
'type' , 1 ,
sub
2007-01-05 18:20:23 +03:00
#line 186 "idl.yp"
2003-12-08 05:55:28 +03:00
{ "void" }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 49
2005-12-25 17:59:21 +03:00
'enum_body' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 188 "idl.yp"
2005-12-25 17:59:21 +03:00
{ $ _ [ 2 ] }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 50
2005-12-25 17:59:21 +03:00
'opt_enum_body' , 0 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 51
2005-12-25 17:59:21 +03:00
'opt_enum_body' , 1 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 52
2005-12-25 17:59:21 +03:00
'enum' , 3 ,
2003-12-08 05:55:28 +03:00
sub
2007-01-05 18:20:23 +03:00
#line 191 "idl.yp"
2003-12-08 05:55:28 +03:00
{ {
r6973: Merge new version of pidl into the main SAMBA_4_0 branch.
The main difference in this new version is the extra data structure generated
between the IDL data structure and the NDR parser:
IDL -> NDR -> { ndr_parser, ndr_header, eparser, etc }
This makes the ndr_parser.pm internals much more sane.
Other changes include:
- Remove unnecessary calls with NDR_BUFFERS (for example, GUID doesn't have any buffers, just scalars) as well as some (unnecessary) nested setting of flags.
- Parse array loops in the C code rather then calling ndr_pull_array(). This allows us to have, for example, arrays of pointers or arrays of pointers to arrays, etc..
- Use if() {} rather then if () goto foo; everywhere
- NDR_IN no longer implies LIBNDR_FLAG_REF_ALLOC
- By default, top level pointers are now "ref" (as is the default in
most other IDL compilers). This can be overridden using the
default_pointer_top() property.
- initial work on new ethereal parser generators by Alan DeKok and me
- pidl now writes errors in the standard format used by compilers, which
is parsable by most editors
- ability to warn about the fact that pidl extension(s) have been used,
useful for making sure IDL files work with other IDL compilers.
oh, and there's probably some other things I can't think of right now..
(This used to be commit 13cf227615f6b9e0e5fa62e59197024410254f01)
2005-05-25 17:50:27 +04:00
"TYPE" = > "ENUM" ,
2005-07-20 03:34:02 +04:00
"NAME" = > $ _ [ 2 ] ,
2005-12-25 17:59:21 +03:00
"ELEMENTS" = > $ _ [ 3 ]
2003-12-08 05:55:28 +03:00
} }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 53
2003-12-08 05:55:28 +03:00
'enum_elements' , 1 ,
sub
2007-01-05 18:20:23 +03:00
#line 199 "idl.yp"
2003-12-08 05:55:28 +03:00
{ [ $ _ [ 1 ] ] }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 54
2003-12-08 05:55:28 +03:00
'enum_elements' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 200 "idl.yp"
2003-12-08 05:55:28 +03:00
{ push ( @ { $ _ [ 1 ] } , $ _ [ 3 ] ) ; $ _ [ 1 ] }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 55
2003-12-08 05:55:28 +03:00
'enum_element' , 1 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 56
2003-12-08 05:55:28 +03:00
'enum_element' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 204 "idl.yp"
2003-12-08 05:55:28 +03:00
{ "$_[1]$_[2]$_[3]" }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 57
2005-12-25 17:59:21 +03:00
'bitmap_body' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 207 "idl.yp"
2005-12-25 17:59:21 +03:00
{ $ _ [ 2 ] }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 58
2005-12-25 17:59:21 +03:00
'opt_bitmap_body' , 0 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 59
2005-12-25 17:59:21 +03:00
'opt_bitmap_body' , 1 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 60
2005-12-25 17:59:21 +03:00
'bitmap' , 3 ,
2003-12-08 05:55:28 +03:00
sub
2007-01-05 18:20:23 +03:00
#line 210 "idl.yp"
2005-01-05 18:28:10 +03:00
{ {
2005-07-20 03:34:02 +04:00
"TYPE" = > "BITMAP" ,
"NAME" = > $ _ [ 2 ] ,
2005-12-25 17:59:21 +03:00
"ELEMENTS" = > $ _ [ 3 ]
2005-01-05 18:28:10 +03:00
} }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 61
2005-01-05 18:28:10 +03:00
'bitmap_elements' , 1 ,
sub
2007-01-05 18:20:23 +03:00
#line 218 "idl.yp"
2005-01-05 18:28:10 +03:00
{ [ $ _ [ 1 ] ] }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 62
2005-01-05 18:28:10 +03:00
'bitmap_elements' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 219 "idl.yp"
2005-01-05 18:28:10 +03:00
{ push ( @ { $ _ [ 1 ] } , $ _ [ 3 ] ) ; $ _ [ 1 ] }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 63
2006-09-07 02:25:54 +04:00
'opt_bitmap_elements' , 0 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 64
2006-09-07 02:25:54 +04:00
'opt_bitmap_elements' , 1 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 65
2005-01-05 18:28:10 +03:00
'bitmap_element' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 224 "idl.yp"
2005-01-05 18:28:10 +03:00
{ "$_[1] ( $_[3] )" }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 66
2005-12-25 17:59:21 +03:00
'struct_body' , 3 ,
2005-01-05 18:28:10 +03:00
sub
2007-01-05 18:20:23 +03:00
#line 227 "idl.yp"
2005-12-25 17:59:21 +03:00
{ $ _ [ 2 ] }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 67
2005-12-25 17:59:21 +03:00
'opt_struct_body' , 0 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 68
2005-12-25 17:59:21 +03:00
'opt_struct_body' , 1 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 69
2005-12-25 17:59:21 +03:00
'struct' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 231 "idl.yp"
2003-12-08 05:55:28 +03:00
{ {
2005-07-20 03:34:02 +04:00
"TYPE" = > "STRUCT" ,
"NAME" = > $ _ [ 2 ] ,
2005-12-25 17:59:21 +03:00
"ELEMENTS" = > $ _ [ 3 ]
2003-12-08 05:55:28 +03:00
} }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 70
2005-02-11 05:05:47 +03:00
'empty_element' , 2 ,
2003-12-08 05:55:28 +03:00
sub
2007-01-05 18:20:23 +03:00
#line 239 "idl.yp"
2003-12-08 05:55:28 +03:00
{ {
2005-02-11 05:05:47 +03:00
"NAME" = > "" ,
"TYPE" = > "EMPTY" ,
2005-03-28 22:22:45 +04:00
"PROPERTIES" = > $ _ [ 1 ] ,
r6973: Merge new version of pidl into the main SAMBA_4_0 branch.
The main difference in this new version is the extra data structure generated
between the IDL data structure and the NDR parser:
IDL -> NDR -> { ndr_parser, ndr_header, eparser, etc }
This makes the ndr_parser.pm internals much more sane.
Other changes include:
- Remove unnecessary calls with NDR_BUFFERS (for example, GUID doesn't have any buffers, just scalars) as well as some (unnecessary) nested setting of flags.
- Parse array loops in the C code rather then calling ndr_pull_array(). This allows us to have, for example, arrays of pointers or arrays of pointers to arrays, etc..
- Use if() {} rather then if () goto foo; everywhere
- NDR_IN no longer implies LIBNDR_FLAG_REF_ALLOC
- By default, top level pointers are now "ref" (as is the default in
most other IDL compilers). This can be overridden using the
default_pointer_top() property.
- initial work on new ethereal parser generators by Alan DeKok and me
- pidl now writes errors in the standard format used by compilers, which
is parsable by most editors
- ability to warn about the fact that pidl extension(s) have been used,
useful for making sure IDL files work with other IDL compilers.
oh, and there's probably some other things I can't think of right now..
(This used to be commit 13cf227615f6b9e0e5fa62e59197024410254f01)
2005-05-25 17:50:27 +04:00
"POINTERS" = > 0 ,
2005-05-27 18:01:22 +04:00
"ARRAY_LEN" = > [] ,
2007-01-05 18:20:23 +03:00
"FILE" = > $ _ [ 0 ] - > YYData - > { FILE } ,
r6973: Merge new version of pidl into the main SAMBA_4_0 branch.
The main difference in this new version is the extra data structure generated
between the IDL data structure and the NDR parser:
IDL -> NDR -> { ndr_parser, ndr_header, eparser, etc }
This makes the ndr_parser.pm internals much more sane.
Other changes include:
- Remove unnecessary calls with NDR_BUFFERS (for example, GUID doesn't have any buffers, just scalars) as well as some (unnecessary) nested setting of flags.
- Parse array loops in the C code rather then calling ndr_pull_array(). This allows us to have, for example, arrays of pointers or arrays of pointers to arrays, etc..
- Use if() {} rather then if () goto foo; everywhere
- NDR_IN no longer implies LIBNDR_FLAG_REF_ALLOC
- By default, top level pointers are now "ref" (as is the default in
most other IDL compilers). This can be overridden using the
default_pointer_top() property.
- initial work on new ethereal parser generators by Alan DeKok and me
- pidl now writes errors in the standard format used by compilers, which
is parsable by most editors
- ability to warn about the fact that pidl extension(s) have been used,
useful for making sure IDL files work with other IDL compilers.
oh, and there's probably some other things I can't think of right now..
(This used to be commit 13cf227615f6b9e0e5fa62e59197024410254f01)
2005-05-25 17:50:27 +04:00
"LINE" = > $ _ [ 0 ] - > YYData - > { LINE } ,
2003-12-08 05:55:28 +03:00
} }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 71
2005-02-11 05:05:47 +03:00
'base_or_empty' , 2 , undef
2003-12-08 05:55:28 +03:00
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 72
2005-02-11 05:05:47 +03:00
'base_or_empty' , 1 , undef
2003-12-08 05:55:28 +03:00
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 73
2005-02-11 05:05:47 +03:00
'optional_base_element' , 2 ,
2003-12-08 05:55:28 +03:00
sub
2007-01-05 18:20:23 +03:00
#line 253 "idl.yp"
2005-12-25 17:59:21 +03:00
{ $ _ [ 2 ] - > { PROPERTIES } = FlattenHash ( [ $ _ [ 1 ] , $ _ [ 2 ] - > { PROPERTIES } ] ) ; $ _ [ 2 ] }
2003-12-08 05:55:28 +03:00
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 74
2005-02-11 05:05:47 +03:00
'union_elements' , 0 , undef
2003-12-08 05:55:28 +03:00
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 75
2005-02-11 05:05:47 +03:00
'union_elements' , 2 ,
2003-12-08 05:55:28 +03:00
sub
2007-01-05 18:20:23 +03:00
#line 258 "idl.yp"
2005-02-11 05:05:47 +03:00
{ push ( @ { $ _ [ 1 ] } , $ _ [ 2 ] ) ; $ _ [ 1 ] }
2003-12-08 05:55:28 +03:00
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 76
2005-12-25 17:59:21 +03:00
'union_body' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 261 "idl.yp"
2005-12-25 17:59:21 +03:00
{ $ _ [ 2 ] }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 77
2005-12-25 17:59:21 +03:00
'opt_union_body' , 0 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 78
2005-12-25 17:59:21 +03:00
'opt_union_body' , 1 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 79
2005-12-25 17:59:21 +03:00
'union' , 3 ,
2003-12-08 05:55:28 +03:00
sub
2007-01-05 18:20:23 +03:00
#line 265 "idl.yp"
2003-12-08 05:55:28 +03:00
{ {
2005-07-20 03:34:02 +04:00
"TYPE" = > "UNION" ,
"NAME" = > $ _ [ 2 ] ,
2005-12-25 17:59:21 +03:00
"ELEMENTS" = > $ _ [ 3 ]
2005-02-11 05:05:47 +03:00
} }
2003-12-08 05:55:28 +03:00
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 80
2003-12-08 05:55:28 +03:00
'base_element' , 5 ,
sub
2007-01-05 18:20:23 +03:00
#line 273 "idl.yp"
2003-12-08 05:55:28 +03:00
{ {
"NAME" = > $ _ [ 4 ] ,
"TYPE" = > $ _ [ 2 ] ,
"PROPERTIES" = > $ _ [ 1 ] ,
"POINTERS" = > $ _ [ 3 ] ,
r6973: Merge new version of pidl into the main SAMBA_4_0 branch.
The main difference in this new version is the extra data structure generated
between the IDL data structure and the NDR parser:
IDL -> NDR -> { ndr_parser, ndr_header, eparser, etc }
This makes the ndr_parser.pm internals much more sane.
Other changes include:
- Remove unnecessary calls with NDR_BUFFERS (for example, GUID doesn't have any buffers, just scalars) as well as some (unnecessary) nested setting of flags.
- Parse array loops in the C code rather then calling ndr_pull_array(). This allows us to have, for example, arrays of pointers or arrays of pointers to arrays, etc..
- Use if() {} rather then if () goto foo; everywhere
- NDR_IN no longer implies LIBNDR_FLAG_REF_ALLOC
- By default, top level pointers are now "ref" (as is the default in
most other IDL compilers). This can be overridden using the
default_pointer_top() property.
- initial work on new ethereal parser generators by Alan DeKok and me
- pidl now writes errors in the standard format used by compilers, which
is parsable by most editors
- ability to warn about the fact that pidl extension(s) have been used,
useful for making sure IDL files work with other IDL compilers.
oh, and there's probably some other things I can't think of right now..
(This used to be commit 13cf227615f6b9e0e5fa62e59197024410254f01)
2005-05-25 17:50:27 +04:00
"ARRAY_LEN" = > $ _ [ 5 ] ,
2007-01-05 18:20:23 +03:00
"FILE" = > $ _ [ 0 ] - > YYData - > { FILE } ,
r6973: Merge new version of pidl into the main SAMBA_4_0 branch.
The main difference in this new version is the extra data structure generated
between the IDL data structure and the NDR parser:
IDL -> NDR -> { ndr_parser, ndr_header, eparser, etc }
This makes the ndr_parser.pm internals much more sane.
Other changes include:
- Remove unnecessary calls with NDR_BUFFERS (for example, GUID doesn't have any buffers, just scalars) as well as some (unnecessary) nested setting of flags.
- Parse array loops in the C code rather then calling ndr_pull_array(). This allows us to have, for example, arrays of pointers or arrays of pointers to arrays, etc..
- Use if() {} rather then if () goto foo; everywhere
- NDR_IN no longer implies LIBNDR_FLAG_REF_ALLOC
- By default, top level pointers are now "ref" (as is the default in
most other IDL compilers). This can be overridden using the
default_pointer_top() property.
- initial work on new ethereal parser generators by Alan DeKok and me
- pidl now writes errors in the standard format used by compilers, which
is parsable by most editors
- ability to warn about the fact that pidl extension(s) have been used,
useful for making sure IDL files work with other IDL compilers.
oh, and there's probably some other things I can't think of right now..
(This used to be commit 13cf227615f6b9e0e5fa62e59197024410254f01)
2005-05-25 17:50:27 +04:00
"LINE" = > $ _ [ 0 ] - > YYData - > { LINE } ,
2003-12-08 05:55:28 +03:00
} }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 81
2003-12-08 05:55:28 +03:00
'pointers' , 0 ,
sub
2007-01-05 18:20:23 +03:00
#line 287 "idl.yp"
2003-12-08 05:55:28 +03:00
{ 0 }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 82
2003-12-08 05:55:28 +03:00
'pointers' , 2 ,
sub
2007-01-05 18:20:23 +03:00
#line 288 "idl.yp"
2003-12-08 05:55:28 +03:00
{ $ _ [ 1 ] + 1 }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 83
2003-12-08 05:55:28 +03:00
'element_list1' , 0 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 84
2003-12-08 05:55:28 +03:00
'element_list1' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 293 "idl.yp"
2003-12-08 05:55:28 +03:00
{ push ( @ { $ _ [ 1 ] } , $ _ [ 2 ] ) ; $ _ [ 1 ] }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 85
2003-12-08 05:55:28 +03:00
'element_list2' , 0 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 86
2003-12-08 05:55:28 +03:00
'element_list2' , 1 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 87
2003-12-08 05:55:28 +03:00
'element_list2' , 1 ,
sub
2007-01-05 18:20:23 +03:00
#line 299 "idl.yp"
2003-12-08 05:55:28 +03:00
{ [ $ _ [ 1 ] ] }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 88
2003-12-08 05:55:28 +03:00
'element_list2' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 300 "idl.yp"
2003-12-08 05:55:28 +03:00
{ push ( @ { $ _ [ 1 ] } , $ _ [ 3 ] ) ; $ _ [ 1 ] }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 89
2003-12-08 05:55:28 +03:00
'array_len' , 0 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 90
2005-05-27 18:01:22 +04:00
'array_len' , 3 ,
2003-12-08 05:55:28 +03:00
sub
2007-01-05 18:20:23 +03:00
#line 305 "idl.yp"
2005-05-27 18:01:22 +04:00
{ push ( @ { $ _ [ 3 ] } , "*" ) ; $ _ [ 3 ] }
2003-12-08 05:55:28 +03:00
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 91
2005-05-27 18:01:22 +04:00
'array_len' , 4 ,
2003-12-08 05:55:28 +03:00
sub
2007-01-05 18:20:23 +03:00
#line 306 "idl.yp"
2005-05-27 18:01:22 +04:00
{ push ( @ { $ _ [ 4 ] } , "$_[2]" ) ; $ _ [ 4 ] }
2003-12-08 05:55:28 +03:00
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 92
2003-12-08 05:55:28 +03:00
'property_list' , 0 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 93
2003-12-08 05:55:28 +03:00
'property_list' , 4 ,
sub
2007-01-05 18:20:23 +03:00
#line 312 "idl.yp"
2005-12-25 17:59:21 +03:00
{ FlattenHash ( [ $ _ [ 1 ] , $ _ [ 3 ] ] ) ; }
2003-12-08 05:55:28 +03:00
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 94
2003-12-08 05:55:28 +03:00
'properties' , 1 ,
sub
2007-01-05 18:20:23 +03:00
#line 315 "idl.yp"
2003-12-08 05:55:28 +03:00
{ $ _ [ 1 ] }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 95
2003-12-08 05:55:28 +03:00
'properties' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 316 "idl.yp"
2005-12-25 17:59:21 +03:00
{ FlattenHash ( [ $ _ [ 1 ] , $ _ [ 3 ] ] ) ; }
2003-12-08 05:55:28 +03:00
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 96
2003-12-08 05:55:28 +03:00
'property' , 1 ,
sub
2007-01-05 18:20:23 +03:00
#line 319 "idl.yp"
2003-12-08 05:55:28 +03:00
{ { "$_[1]" = > "1" } }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 97
2003-12-08 05:55:28 +03:00
'property' , 4 ,
sub
2007-01-05 18:20:23 +03:00
#line 320 "idl.yp"
2003-12-08 05:55:28 +03:00
{ { "$_[1]" = > "$_[3]" } }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 98
2003-12-08 05:55:28 +03:00
'listtext' , 1 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 99
2003-12-08 05:55:28 +03:00
'listtext' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 325 "idl.yp"
2003-12-08 05:55:28 +03:00
{ "$_[1] $_[3]" }
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 100
2004-10-14 14:30:08 +04:00
'commalisttext' , 1 , undef
2003-12-08 05:55:28 +03:00
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 101
2004-10-14 14:30:08 +04:00
'commalisttext' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 330 "idl.yp"
2004-10-14 14:30:08 +04:00
{ "$_[1],$_[3]" }
2003-12-08 05:55:28 +03:00
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 102
2004-10-14 14:30:08 +04:00
'anytext' , 0 ,
sub
2007-01-05 18:20:23 +03:00
#line 334 "idl.yp"
2004-10-14 14:30:08 +04:00
{ "" }
2003-12-08 05:55:28 +03:00
] ,
2006-11-07 00:54:19 +03:00
[ #Rule 103
2006-09-07 02:25:54 +04:00
'anytext' , 1 , undef
2003-12-08 05:55:28 +03:00
] ,
2006-11-07 00:54:19 +03:00
[ #Rule 104
2006-11-07 01:54:49 +03:00
'anytext' , 1 , undef
2003-12-08 05:55:28 +03:00
] ,
2006-11-07 00:54:19 +03:00
[ #Rule 105
2006-11-07 01:54:49 +03:00
'anytext' , 1 , undef
2004-10-14 14:30:08 +04:00
] ,
2006-11-07 00:54:19 +03:00
[ #Rule 106
2004-10-14 14:30:08 +04:00
'anytext' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 336 "idl.yp"
2004-10-14 14:30:08 +04:00
{ "$_[1]$_[2]$_[3]" }
] ,
2006-11-07 00:54:19 +03:00
[ #Rule 107
2004-11-29 14:08:15 +03:00
'anytext' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 337 "idl.yp"
2004-11-29 14:08:15 +03:00
{ "$_[1]$_[2]$_[3]" }
] ,
2006-11-07 00:54:19 +03:00
[ #Rule 108
2005-01-21 09:46:07 +03:00
'anytext' , 3 ,
2003-12-08 05:55:28 +03:00
sub
2007-01-05 18:20:23 +03:00
#line 338 "idl.yp"
2005-01-21 09:46:07 +03:00
{ "$_[1]$_[2]$_[3]" }
2003-12-08 05:55:28 +03:00
] ,
2006-11-07 00:54:19 +03:00
[ #Rule 109
2005-05-27 22:14:43 +04:00
'anytext' , 3 ,
2004-11-29 14:08:15 +03:00
sub
2007-01-05 18:20:23 +03:00
#line 339 "idl.yp"
2005-05-27 22:14:43 +04:00
{ "$_[1]$_[2]$_[3]" }
2004-11-29 14:08:15 +03:00
] ,
2006-11-07 00:54:19 +03:00
[ #Rule 110
2005-09-04 02:58:04 +04:00
'anytext' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 340 "idl.yp"
2005-09-04 02:58:04 +04:00
{ "$_[1]$_[2]$_[3]" }
] ,
2006-11-07 00:54:19 +03:00
[ #Rule 111
2005-09-04 02:58:04 +04:00
'anytext' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 341 "idl.yp"
2005-09-04 02:58:04 +04:00
{ "$_[1]$_[2]$_[3]" }
] ,
2006-11-07 00:54:19 +03:00
[ #Rule 112
2005-09-04 02:58:04 +04:00
'anytext' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 342 "idl.yp"
2005-09-04 02:58:04 +04:00
{ "$_[1]$_[2]$_[3]" }
] ,
2006-11-07 00:54:19 +03:00
[ #Rule 113
2006-07-29 10:00:58 +04:00
'anytext' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 343 "idl.yp"
2006-07-29 10:00:58 +04:00
{ "$_[1]$_[2]$_[3]" }
] ,
2006-11-07 00:54:19 +03:00
[ #Rule 114
2006-07-29 10:00:58 +04:00
'anytext' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 344 "idl.yp"
2006-07-29 10:00:58 +04:00
{ "$_[1]$_[2]$_[3]" }
] ,
2006-11-07 00:54:19 +03:00
[ #Rule 115
2006-09-07 02:25:54 +04:00
'anytext' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 345 "idl.yp"
2006-09-07 02:25:54 +04:00
{ "$_[1]$_[2]$_[3]" }
] ,
2006-11-07 00:54:19 +03:00
[ #Rule 116
2006-09-07 02:25:54 +04:00
'anytext' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 346 "idl.yp"
2006-09-07 02:25:54 +04:00
{ "$_[1]$_[2]$_[3]" }
] ,
2006-11-07 00:54:19 +03:00
[ #Rule 117
2006-11-07 01:54:49 +03:00
'anytext' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 347 "idl.yp"
2006-11-07 01:54:49 +03:00
{ "$_[1]$_[2]$_[3]" }
] ,
[ #Rule 118
'anytext' , 3 ,
sub
2007-01-05 18:20:23 +03:00
#line 348 "idl.yp"
2006-11-07 01:54:49 +03:00
{ "$_[1]$_[2]$_[3]" }
] ,
[ #Rule 119
2005-01-21 09:46:07 +03:00
'anytext' , 5 ,
sub
2007-01-05 18:20:23 +03:00
#line 349 "idl.yp"
2005-01-21 09:46:07 +03:00
{ "$_[1]$_[2]$_[3]$_[4]$_[5]" }
2003-12-08 05:55:28 +03:00
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 120
2005-05-27 22:14:43 +04:00
'anytext' , 5 ,
sub
2007-01-05 18:20:23 +03:00
#line 350 "idl.yp"
2005-05-27 22:14:43 +04:00
{ "$_[1]$_[2]$_[3]$_[4]$_[5]" }
2003-12-08 05:55:28 +03:00
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 121
2005-05-27 22:14:43 +04:00
'identifier' , 1 , undef
2005-01-21 09:46:07 +03:00
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 122
2005-07-20 03:34:02 +04:00
'optional_identifier' , 1 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 123
2005-07-20 03:34:02 +04:00
'optional_identifier' , 0 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 124
2005-05-27 22:14:43 +04:00
'constant' , 1 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 125
2003-12-08 05:55:28 +03:00
'text' , 1 ,
sub
2007-01-05 18:20:23 +03:00
#line 364 "idl.yp"
2003-12-08 05:55:28 +03:00
{ "\"$_[1]\"" }
2004-11-01 15:26:59 +03:00
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 126
2004-11-01 15:26:59 +03:00
'optional_semicolon' , 0 , undef
] ,
2006-11-07 01:54:49 +03:00
[ #Rule 127
2004-11-01 15:26:59 +03:00
'optional_semicolon' , 1 , undef
2003-12-08 05:55:28 +03:00
]
] ,
@ _ ) ;
bless ( $ self , $ class ) ;
}
2007-01-05 18:20:23 +03:00
#line 375 "idl.yp"
2005-12-25 17:59:21 +03:00
2007-01-05 18:20:23 +03:00
use Parse::Pidl qw( error ) ;
2005-12-25 17:59:21 +03:00
#####################################################################
# flatten an array of hashes into a single hash
sub FlattenHash ($)
{
my $ a = shift ;
my % b ;
for my $ d ( @ { $ a } ) {
for my $ k ( keys % { $ d } ) {
$ b { $ k } = $ d - > { $ k } ;
}
}
return \ % b ;
}
2003-12-08 05:55:28 +03:00
2005-07-10 05:16:02 +04:00
#####################################################################
# traverse a perl data structure removing any empty arrays or
# hashes and any hash elements that map to undef
sub CleanData ($)
{
sub CleanData ($) ;
my ( $ v ) = shift ;
2005-12-25 02:32:50 +03:00
return undef if ( not defined ( $ v ) ) ;
2005-07-10 05:16:02 +04:00
if ( ref ( $ v ) eq "ARRAY" ) {
foreach my $ i ( 0 .. $# { $ v } ) {
CleanData ( $ v - > [ $ i ] ) ;
if ( ref ( $ v - > [ $ i ] ) eq "ARRAY" && $# { $ v - > [ $ i ] } == - 1 ) {
$ v - > [ $ i ] = undef ;
next ;
}
}
# this removes any undefined elements from the array
@ { $ v } = grep { defined $ _ } @ { $ v } ;
} elsif ( ref ( $ v ) eq "HASH" ) {
foreach my $ x ( keys % { $ v } ) {
CleanData ( $ v - > { $ x } ) ;
if ( ! defined $ v - > { $ x } ) { delete ( $ v - > { $ x } ) ; next ; }
if ( ref ( $ v - > { $ x } ) eq "ARRAY" && $# { $ v - > { $ x } } == - 1 ) { delete ( $ v - > { $ x } ) ; next ; }
}
}
return $ v ;
}
2003-12-08 05:55:28 +03:00
sub _Error {
r6973: Merge new version of pidl into the main SAMBA_4_0 branch.
The main difference in this new version is the extra data structure generated
between the IDL data structure and the NDR parser:
IDL -> NDR -> { ndr_parser, ndr_header, eparser, etc }
This makes the ndr_parser.pm internals much more sane.
Other changes include:
- Remove unnecessary calls with NDR_BUFFERS (for example, GUID doesn't have any buffers, just scalars) as well as some (unnecessary) nested setting of flags.
- Parse array loops in the C code rather then calling ndr_pull_array(). This allows us to have, for example, arrays of pointers or arrays of pointers to arrays, etc..
- Use if() {} rather then if () goto foo; everywhere
- NDR_IN no longer implies LIBNDR_FLAG_REF_ALLOC
- By default, top level pointers are now "ref" (as is the default in
most other IDL compilers). This can be overridden using the
default_pointer_top() property.
- initial work on new ethereal parser generators by Alan DeKok and me
- pidl now writes errors in the standard format used by compilers, which
is parsable by most editors
- ability to warn about the fact that pidl extension(s) have been used,
useful for making sure IDL files work with other IDL compilers.
oh, and there's probably some other things I can't think of right now..
(This used to be commit 13cf227615f6b9e0e5fa62e59197024410254f01)
2005-05-25 17:50:27 +04:00
if ( exists $ _ [ 0 ] - > YYData - > { ERRMSG } ) {
2007-01-05 18:20:23 +03:00
error ( $ _ [ 0 ] - > YYData , $ _ [ 0 ] - > YYData - > { ERRMSG } ) ;
2003-12-08 05:55:28 +03:00
delete $ _ [ 0 ] - > YYData - > { ERRMSG } ;
return ;
} ;
my $ last_token = $ _ [ 0 ] - > YYData - > { LAST_TOKEN } ;
2007-01-05 18:20:23 +03:00
error ( $ _ [ 0 ] - > YYData , "Syntax error near '$last_token'" ) ;
2003-12-08 05:55:28 +03:00
}
sub _Lexer ($)
{
my ( $ parser ) = shift ;
2005-07-22 01:27:39 +04:00
$ parser - > YYData - > { INPUT } or return ( '' , undef ) ;
2003-12-08 05:55:28 +03:00
again:
$ parser - > YYData - > { INPUT } =~ s/^[ \t]*// ;
for ( $ parser - > YYData - > { INPUT } ) {
if ( /^\#/ ) {
if ( s/^\# (\d+) \"(.*?)\"( \d+|)// ) {
$ parser - > YYData - > { LINE } = $ 1 - 1 ;
2007-01-05 18:20:23 +03:00
$ parser - > YYData - > { FILE } = $ 2 ;
2003-12-08 05:55:28 +03:00
goto again ;
}
2003-12-16 03:38:33 +03:00
if ( s/^\#line (\d+) \"(.*?)\"( \d+|)// ) {
$ parser - > YYData - > { LINE } = $ 1 - 1 ;
2007-01-05 18:20:23 +03:00
$ parser - > YYData - > { FILE } = $ 2 ;
2003-12-16 03:38:33 +03:00
goto again ;
}
if ( s/^(\#.*)$//m ) {
goto again ;
}
2003-12-08 05:55:28 +03:00
}
if ( s/^(\n)// ) {
$ parser - > YYData - > { LINE } + + ;
goto again ;
}
if ( s/^\"(.*?)\"// ) {
$ parser - > YYData - > { LAST_TOKEN } = $ 1 ;
return ( 'TEXT' , $ 1 ) ;
}
if ( s/^(\d+)(\W|$)/$2/ ) {
$ parser - > YYData - > { LAST_TOKEN } = $ 1 ;
return ( 'CONSTANT' , $ 1 ) ;
}
if ( s/^([\w_]+)// ) {
$ parser - > YYData - > { LAST_TOKEN } = $ 1 ;
if ( $ 1 =~
2005-01-06 09:32:07 +03:00
/ ^ ( coclass | interface | const | typedef | declare | union
2006-11-07 00:54:19 +03:00
| struct | enum | bitmap | void | unsigned | signed | import | include
| importlib ) $ / x ) {
2003-12-08 05:55:28 +03:00
return $ 1 ;
}
return ( 'IDENTIFIER' , $ 1 ) ;
}
if ( s/^(.)//s ) {
$ parser - > YYData - > { LAST_TOKEN } = $ 1 ;
return ( $ 1 , $ 1 ) ;
}
}
}
2005-12-25 02:32:50 +03:00
sub parse_string
2003-12-08 05:55:28 +03:00
{
2005-12-25 02:32:50 +03:00
my ( $ data , $ filename ) = @ _ ;
2005-12-25 00:57:51 +03:00
my $ self = new Parse::Pidl:: IDL ;
2007-01-05 18:20:23 +03:00
$ self - > YYData - > { FILE } = $ filename ;
2005-12-25 00:57:51 +03:00
$ self - > YYData - > { INPUT } = $ data ;
$ self - > YYData - > { LINE } = 0 ;
$ self - > YYData - > { LAST_TOKEN } = "NONE" ;
my $ idl = $ self - > YYParse ( yylex = > \ & _Lexer , yyerror = > \ & _Error ) ;
return CleanData ( $ idl ) ;
}
2006-11-06 23:01:22 +03:00
sub parse_file ($$)
2005-12-25 00:57:51 +03:00
{
2006-11-06 23:01:22 +03:00
my ( $ filename , $ incdirs ) = @ _ ;
2003-12-08 05:55:28 +03:00
my $ saved_delim = $/ ;
undef $/ ;
2003-12-16 01:06:18 +03:00
my $ cpp = $ ENV { CPP } ;
if ( ! defined $ cpp ) {
2005-09-09 01:59:40 +04:00
$ cpp = "cpp" ;
2003-12-16 01:06:18 +03:00
}
2006-11-07 04:00:27 +03:00
my $ includes = join ( '' , map { " -I$_" } @$ incdirs ) ;
2006-11-06 23:01:22 +03:00
my $ data = `$cpp -D__PIDL__$includes -xc $filename` ;
2003-12-08 05:55:28 +03:00
$/ = $ saved_delim ;
2005-12-25 02:32:50 +03:00
return parse_string ( $ data , $ filename ) ;
2003-12-08 05:55:28 +03:00
}
1 ;