summaryrefslogtreecommitdiff
path: root/source4/build/pidl
diff options
context:
space:
mode:
authorTim Potter <tpot@samba.org>2005-08-02 06:10:31 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 13:30:57 -0500
commite3374bb48daa0235811d384bce55e39b6cf6abda (patch)
tree69aafae101448c8d6747a9c390eb4f320201201c /source4/build/pidl
parent6e64a8b40fe0857cc5565ff855387c2ef97374dc (diff)
downloadsamba-e3374bb48daa0235811d384bce55e39b6cf6abda.tar.gz
samba-e3374bb48daa0235811d384bce55e39b6cf6abda.tar.bz2
samba-e3374bb48daa0235811d384bce55e39b6cf6abda.zip
r8910: An initial parser to parse structures in smb_interfaces.h. This will be
used to generate ejs objects for making raw smb calls. Running 'make smb_interfaces' should run the build_smb_interfaces.pl script which at the moment only displays a dump of the parsed data. Const is also not working right now but it's bedtime. (This used to be commit 1be5f55d7f6926bf7266ea72623990f0bb558c94)
Diffstat (limited to 'source4/build/pidl')
-rw-r--r--source4/build/pidl/smb_interfaces.pm1200
-rw-r--r--source4/build/pidl/smb_interfaces.yp215
2 files changed, 1415 insertions, 0 deletions
diff --git a/source4/build/pidl/smb_interfaces.pm b/source4/build/pidl/smb_interfaces.pm
new file mode 100644
index 0000000000..de8b704b17
--- /dev/null
+++ b/source4/build/pidl/smb_interfaces.pm
@@ -0,0 +1,1200 @@
+####################################################################
+#
+# 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 !
+#
+####################################################################
+package smb_interfaces;
+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
+ ACTIONS => {
+ 'UNION' => 5,
+ 'ENUM' => 1,
+ 'TYPEDEF' => 7,
+ 'STRUCT' => 2
+ },
+ GOTOS => {
+ 'struct' => 6,
+ 'enum' => 9,
+ 'typedef' => 8,
+ 'union' => 10,
+ 'definitions' => 3,
+ 'definition' => 4
+ }
+ },
+ {#State 1
+ ACTIONS => {
+ 'IDENTIFIER' => 11
+ }
+ },
+ {#State 2
+ ACTIONS => {
+ 'IDENTIFIER' => 12
+ },
+ DEFAULT => -32,
+ GOTOS => {
+ 'optional_identifier' => 13
+ }
+ },
+ {#State 3
+ ACTIONS => {
+ '' => 14,
+ 'UNION' => 5,
+ 'ENUM' => 1,
+ 'TYPEDEF' => 7,
+ 'STRUCT' => 2
+ },
+ GOTOS => {
+ 'struct' => 6,
+ 'typedef' => 8,
+ 'enum' => 9,
+ 'union' => 10,
+ 'definition' => 15
+ }
+ },
+ {#State 4
+ DEFAULT => -1
+ },
+ {#State 5
+ ACTIONS => {
+ 'IDENTIFIER' => 12
+ },
+ DEFAULT => -32,
+ GOTOS => {
+ 'optional_identifier' => 16
+ }
+ },
+ {#State 6
+ DEFAULT => -3
+ },
+ {#State 7
+ ACTIONS => {
+ 'STRUCT' => 17
+ }
+ },
+ {#State 8
+ DEFAULT => -5
+ },
+ {#State 9
+ DEFAULT => -6
+ },
+ {#State 10
+ DEFAULT => -4
+ },
+ {#State 11
+ ACTIONS => {
+ "{" => 18
+ }
+ },
+ {#State 12
+ DEFAULT => -31
+ },
+ {#State 13
+ ACTIONS => {
+ "{" => 19
+ }
+ },
+ {#State 14
+ DEFAULT => 0
+ },
+ {#State 15
+ DEFAULT => -2
+ },
+ {#State 16
+ ACTIONS => {
+ "{" => 20
+ }
+ },
+ {#State 17
+ ACTIONS => {
+ "{" => 21
+ }
+ },
+ {#State 18
+ ACTIONS => {
+ 'IDENTIFIER' => 22
+ },
+ GOTOS => {
+ 'enum_identifiers' => 23,
+ 'enum_identifier' => 24
+ }
+ },
+ {#State 19
+ DEFAULT => -15,
+ GOTOS => {
+ 'elements' => 25
+ }
+ },
+ {#State 20
+ DEFAULT => -15,
+ GOTOS => {
+ 'elements' => 26
+ }
+ },
+ {#State 21
+ DEFAULT => -15,
+ GOTOS => {
+ 'elements' => 27
+ }
+ },
+ {#State 22
+ ACTIONS => {
+ "=" => 28
+ },
+ DEFAULT => -13
+ },
+ {#State 23
+ ACTIONS => {
+ "}" => 29,
+ "," => 30
+ }
+ },
+ {#State 24
+ DEFAULT => -11
+ },
+ {#State 25
+ ACTIONS => {
+ "}" => 31,
+ 'UNION' => 36,
+ 'IDENTIFIER' => 33,
+ 'ENUM' => 32,
+ 'STRUCT' => 34
+ },
+ GOTOS => {
+ 'struct' => 37,
+ 'type' => 38,
+ 'union' => 39,
+ 'element' => 35
+ }
+ },
+ {#State 26
+ ACTIONS => {
+ "}" => 40,
+ 'UNION' => 36,
+ 'IDENTIFIER' => 33,
+ 'ENUM' => 32,
+ 'STRUCT' => 34
+ },
+ GOTOS => {
+ 'struct' => 37,
+ 'type' => 38,
+ 'union' => 39,
+ 'element' => 35
+ }
+ },
+ {#State 27
+ ACTIONS => {
+ "}" => 41,
+ 'UNION' => 36,
+ 'IDENTIFIER' => 33,
+ 'ENUM' => 32,
+ 'STRUCT' => 34
+ },
+ GOTOS => {
+ 'struct' => 37,
+ 'type' => 38,
+ 'union' => 39,
+ 'element' => 35
+ }
+ },
+ {#State 28
+ ACTIONS => {
+ 'IDENTIFIER' => 42
+ }
+ },
+ {#State 29
+ ACTIONS => {
+ ";" => 43
+ }
+ },
+ {#State 30
+ ACTIONS => {
+ 'IDENTIFIER' => 22
+ },
+ GOTOS => {
+ 'enum_identifier' => 44
+ }
+ },
+ {#State 31
+ DEFAULT => -27,
+ GOTOS => {
+ 'pointers' => 45
+ }
+ },
+ {#State 32
+ ACTIONS => {
+ 'IDENTIFIER' => 46
+ }
+ },
+ {#State 33
+ DEFAULT => -25
+ },
+ {#State 34
+ ACTIONS => {
+ 'IDENTIFIER' => 47
+ },
+ DEFAULT => -32,
+ GOTOS => {
+ 'optional_identifier' => 13
+ }
+ },
+ {#State 35
+ DEFAULT => -16
+ },
+ {#State 36
+ ACTIONS => {
+ 'IDENTIFIER' => 48
+ },
+ DEFAULT => -32,
+ GOTOS => {
+ 'optional_identifier' => 16
+ }
+ },
+ {#State 37
+ DEFAULT => -18
+ },
+ {#State 38
+ DEFAULT => -27,
+ GOTOS => {
+ 'pointers' => 49
+ }
+ },
+ {#State 39
+ DEFAULT => -19
+ },
+ {#State 40
+ DEFAULT => -27,
+ GOTOS => {
+ 'pointers' => 50
+ }
+ },
+ {#State 41
+ ACTIONS => {
+ 'IDENTIFIER' => 12
+ },
+ DEFAULT => -32,
+ GOTOS => {
+ 'optional_identifier' => 51
+ }
+ },
+ {#State 42
+ DEFAULT => -14
+ },
+ {#State 43
+ DEFAULT => -10
+ },
+ {#State 44
+ DEFAULT => -12
+ },
+ {#State 45
+ ACTIONS => {
+ 'IDENTIFIER' => 12,
+ "*" => 53
+ },
+ DEFAULT => -32,
+ GOTOS => {
+ 'optional_identifier' => 52,
+ 'optional_identifiers' => 54
+ }
+ },
+ {#State 46
+ DEFAULT => -26
+ },
+ {#State 47
+ ACTIONS => {
+ "{" => -31
+ },
+ DEFAULT => -27,
+ GOTOS => {
+ 'pointers' => 55
+ }
+ },
+ {#State 48
+ ACTIONS => {
+ "{" => -31
+ },
+ DEFAULT => -27,
+ GOTOS => {
+ 'pointers' => 56
+ }
+ },
+ {#State 49
+ ACTIONS => {
+ 'IDENTIFIER' => 57,
+ "*" => 53
+ }
+ },
+ {#State 50
+ ACTIONS => {
+ 'IDENTIFIER' => 12,
+ "*" => 53
+ },
+ DEFAULT => -32,
+ GOTOS => {
+ 'optional_identifier' => 58
+ }
+ },
+ {#State 51
+ ACTIONS => {
+ ";" => 59
+ }
+ },
+ {#State 52
+ DEFAULT => -29
+ },
+ {#State 53
+ DEFAULT => -28
+ },
+ {#State 54
+ ACTIONS => {
+ ";" => 60,
+ "," => 61
+ }
+ },
+ {#State 55
+ ACTIONS => {
+ 'IDENTIFIER' => 62,
+ "*" => 53
+ }
+ },
+ {#State 56
+ ACTIONS => {
+ 'IDENTIFIER' => 63,
+ "*" => 53
+ }
+ },
+ {#State 57
+ ACTIONS => {
+ "[" => 65
+ },
+ DEFAULT => -23,
+ GOTOS => {
+ 'array' => 64
+ }
+ },
+ {#State 58
+ ACTIONS => {
+ ";" => 66
+ }
+ },
+ {#State 59
+ DEFAULT => -9
+ },
+ {#State 60
+ DEFAULT => -7
+ },
+ {#State 61
+ ACTIONS => {
+ 'IDENTIFIER' => 12
+ },
+ DEFAULT => -32,
+ GOTOS => {
+ 'optional_identifier' => 67
+ }
+ },
+ {#State 62
+ ACTIONS => {
+ ";" => 68
+ }
+ },
+ {#State 63
+ ACTIONS => {
+ ";" => 69
+ }
+ },
+ {#State 64
+ ACTIONS => {
+ ";" => 70
+ }
+ },
+ {#State 65
+ ACTIONS => {
+ 'CONSTANT' => 71
+ }
+ },
+ {#State 66
+ DEFAULT => -8
+ },
+ {#State 67
+ DEFAULT => -30
+ },
+ {#State 68
+ DEFAULT => -20
+ },
+ {#State 69
+ DEFAULT => -21
+ },
+ {#State 70
+ DEFAULT => -22
+ },
+ {#State 71
+ ACTIONS => {
+ "]" => 72
+ }
+ },
+ {#State 72
+ DEFAULT => -24
+ }
+],
+ yyrules =>
+[
+ [#Rule 0
+ '$start', 2, undef
+ ],
+ [#Rule 1
+ 'definitions', 1,
+sub
+#line 14 "build/pidl/smb_interfaces.yp"
+{ [$_[1]] }
+ ],
+ [#Rule 2
+ 'definitions', 2,
+sub
+#line 15 "build/pidl/smb_interfaces.yp"
+{ push(@{$_[1]}, $_[2]); $_[1] }
+ ],
+ [#Rule 3
+ 'definition', 1, undef
+ ],
+ [#Rule 4
+ 'definition', 1, undef
+ ],
+ [#Rule 5
+ 'definition', 1, undef
+ ],
+ [#Rule 6
+ 'definition', 1, undef
+ ],
+ [#Rule 7
+ 'struct', 8,
+sub
+#line 26 "build/pidl/smb_interfaces.yp"
+{
+ my $name = defined($_[2]) ? $_[2] : $_[7];
+ {
+ "NAME" => $name,
+ "TYPE" => "STRUCT",
+ "DATA" => $_[4],
+ }
+ }
+ ],
+ [#Rule 8
+ 'union', 8,
+sub
+#line 38 "build/pidl/smb_interfaces.yp"
+{
+ my $name = defined($_[2]) ? $_[2] : $_[7];
+ {
+ "NAME" => $name,
+ "TYPE" => "UNION",
+ "DATA" => $_[4],
+ }
+ }
+ ],
+ [#Rule 9
+ 'typedef', 7, undef
+ ],
+ [#Rule 10
+ 'enum', 6, undef
+ ],
+ [#Rule 11
+ 'enum_identifiers', 1, undef
+ ],
+ [#Rule 12
+ 'enum_identifiers', 3, undef
+ ],
+ [#Rule 13
+ 'enum_identifier', 1, undef
+ ],
+ [#Rule 14
+ 'enum_identifier', 3, undef
+ ],
+ [#Rule 15
+ 'elements', 0, undef
+ ],
+ [#Rule 16
+ 'elements', 2,
+sub
+#line 65 "build/pidl/smb_interfaces.yp"
+{ push(@{$_[1]}, $_[2]); $_[1] }
+ ],
+ [#Rule 17
+ 'element', 0, undef
+ ],
+ [#Rule 18
+ 'element', 1, undef
+ ],
+ [#Rule 19
+ 'element', 1, undef
+ ],
+ [#Rule 20
+ 'element', 5, undef
+ ],
+ [#Rule 21
+ 'element', 5, undef
+ ],
+ [#Rule 22
+ 'element', 5,
+sub
+#line 74 "build/pidl/smb_interfaces.yp"
+{{
+ "NAME" => $_[3],
+ "TYPE" => $_[1],
+ "POINTERS" => $_[2],
+ }}
+ ],
+ [#Rule 23
+ 'array', 0, undef
+ ],
+ [#Rule 24
+ 'array', 3, undef
+ ],
+ [#Rule 25
+ 'type', 1, undef
+ ],
+ [#Rule 26
+ 'type', 2, undef
+ ],
+ [#Rule 27
+ 'pointers', 0, undef
+ ],
+ [#Rule 28
+ 'pointers', 2,
+sub
+#line 91 "build/pidl/smb_interfaces.yp"
+{ $_[1]+1 }
+ ],
+ [#Rule 29
+ 'optional_identifiers', 1,
+sub
+#line 94 "build/pidl/smb_interfaces.yp"
+{ [$_[1]] }
+ ],
+ [#Rule 30
+ 'optional_identifiers', 3,
+sub
+#line 95 "build/pidl/smb_interfaces.yp"
+{ push(@{$_[1]}, $_[3]); $_[1] }
+ ],
+ [#Rule 31
+ 'optional_identifier', 1, undef
+ ],
+ [#Rule 32
+ 'optional_identifier', 0, undef
+ ]
+],
+ @_);
+ bless($self,$class);
+}
+
+#line 101 "build/pidl/smb_interfaces.yp"
+
+
+#####################################################################
+# 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;
+ 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;
+}
+
+sub _Error {
+ if (exists $_[0]->YYData->{ERRMSG}) {
+ print $_[0]->YYData->{ERRMSG};
+ delete $_[0]->YYData->{ERRMSG};
+ return;
+ };
+ my $line = $_[0]->YYData->{LINE};
+ my $last_token = $_[0]->YYData->{LAST_TOKEN};
+ my $file = $_[0]->YYData->{INPUT_FILENAME};
+
+ print "$file:$line: Syntax error near '$last_token'\n";
+}
+
+sub _Lexer($)
+{
+ my($parser)=shift;
+
+ $parser->YYData->{INPUT} or return('',undef);
+
+again:
+ $parser->YYData->{INPUT} =~ s/^[ \t]*//;
+
+ for ($parser->YYData->{INPUT}) {
+ if (/^\#/) {
+ if (s/^\# (\d+) \"(.*?)\"( \d+|)//) {
+ $parser->YYData->{LINE} = $1-1;
+ $parser->YYData->{INPUT_FILENAME} = $2;
+ goto again;
+ }
+ if (s/^\#line (\d+) \"(.*?)\"( \d+|)//) {
+ $parser->YYData->{LINE} = $1-1;
+ $parser->YYData->{INPUT_FILENAME} = $2;
+ goto again;
+ }
+ if (s/^(\#.*)$//m) {
+ goto again;
+ }
+ }
+ 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 =~
+ /^(const|typedef|union|struct|enum)$/x) {
+ return uc($1);
+ }
+ return('IDENTIFIER',$1);
+ }
+ if (s/^(.)//s) {
+ $parser->YYData->{LAST_TOKEN} = $1;
+ return($1,$1);
+ }
+ }
+}
+
+sub parse($$)
+{
+ my ($self,$filename) = @_;
+
+ my $saved_delim = $/;
+ undef $/;
+ my $cpp = $ENV{CPP};
+ if (! defined $cpp) {
+ $cpp = "cpp"
+ }
+ my $data = `$cpp -D__PIDL__ -xc $filename`;
+ $/ = $saved_delim;
+
+ $self->YYData->{INPUT} = $data;
+ $self->YYData->{LINE} = 0;
+ $self->YYData->{LAST_TOKEN} = "NONE";
+
+ my $idl = $self->YYParse( yylex => \&_Lexer, yyerror => \&_Error );
+
+ return CleanData($idl);
+}
+
+1;
diff --git a/source4/build/pidl/smb_interfaces.yp b/source4/build/pidl/smb_interfaces.yp
new file mode 100644
index 0000000000..704c0522ba
--- /dev/null
+++ b/source4/build/pidl/smb_interfaces.yp
@@ -0,0 +1,215 @@
+########################
+# Parse::Yapp parser for a C header file that contains only structures
+# or unions.
+
+# Copyright (C) 2005, Tim Potter <tpot@samba.org> released under the
+# GNU GPL version 2 or later
+
+################
+# grammar
+
+%%
+
+definitions:
+ definition { [$_[1]] }
+ | definitions definition { push(@{$_[1]}, $_[2]); $_[1] }
+;
+
+definition:
+ struct
+ | union
+ | typedef
+ | enum
+;
+
+struct: STRUCT optional_identifier '{' elements '}' pointers optional_identifiers ';'
+ {
+ my $name = defined($_[2]) ? $_[2] : $_[7];
+ {
+ "NAME" => $name,
+ "TYPE" => "STRUCT",
+ "DATA" => $_[4],
+ }
+ }
+;
+
+union:
+ UNION optional_identifier '{' elements '}' pointers optional_identifier ';'
+ {
+ my $name = defined($_[2]) ? $_[2] : $_[7];
+ {
+ "NAME" => $name,
+ "TYPE" => "UNION",
+ "DATA" => $_[4],
+ }
+ }
+;
+
+typedef:
+ TYPEDEF STRUCT '{' elements '}' optional_identifier ';'
+;
+
+enum:
+ ENUM IDENTIFIER '{' enum_identifiers '}' ';'
+;
+
+enum_identifiers: enum_identifier
+ | enum_identifiers ',' enum_identifier
+;
+
+enum_identifier: IDENTIFIER
+ | IDENTIFIER '=' IDENTIFIER
+;
+
+elements: #empty
+ | elements element { push(@{$_[1]}, $_[2]); $_[1] }
+;
+
+element:
+ | struct
+ | union
+ | STRUCT IDENTIFIER pointers IDENTIFIER ';'
+ | UNION IDENTIFIER pointers IDENTIFIER ';'
+ | type pointers IDENTIFIER array ';'
+ {{
+ "NAME" => $_[3],
+ "TYPE" => $_[1],
+ "POINTERS" => $_[2],
+ }}
+;
+
+array: #empty
+ | '[' CONSTANT ']'
+;
+
+type: IDENTIFIER
+ | ENUM IDENTIFIER
+;
+
+pointers:
+ #empty { 0 }
+ | pointers '*' { $_[1]+1 }
+;
+
+optional_identifiers: optional_identifier { [$_[1]] }
+ | optional_identifiers ',' optional_identifier { push(@{$_[1]}, $_[3]); $_[1] }
+;
+
+optional_identifier: IDENTIFIER | #empty { undef }
+;
+
+%%
+
+#####################################################################
+# 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;
+ 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;
+}
+
+sub _Error {
+ if (exists $_[0]->YYData->{ERRMSG}) {
+ print $_[0]->YYData->{ERRMSG};
+ delete $_[0]->YYData->{ERRMSG};
+ return;
+ };
+ my $line = $_[0]->YYData->{LINE};
+ my $last_token = $_[0]->YYData->{LAST_TOKEN};
+ my $file = $_[0]->YYData->{INPUT_FILENAME};
+
+ print "$file:$line: Syntax error near '$last_token'\n";
+}
+
+sub _Lexer($)
+{
+ my($parser)=shift;
+
+ $parser->YYData->{INPUT} or return('',undef);
+
+again:
+ $parser->YYData->{INPUT} =~ s/^[ \t]*//;
+
+ for ($parser->YYData->{INPUT}) {
+ if (/^\#/) {
+ if (s/^\# (\d+) \"(.*?)\"( \d+|)//) {
+ $parser->YYData->{LINE} = $1-1;
+ $parser->YYData->{INPUT_FILENAME} = $2;
+ goto again;
+ }
+ if (s/^\#line (\d+) \"(.*?)\"( \d+|)//) {
+ $parser->YYData->{LINE} = $1-1;
+ $parser->YYData->{INPUT_FILENAME} = $2;
+ goto again;
+ }
+ if (s/^(\#.*)$//m) {
+ goto again;
+ }
+ }
+ 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 =~
+ /^(const|typedef|union|struct|enum)$/x) {
+ return uc($1);
+ }
+ return('IDENTIFIER',$1);
+ }
+ if (s/^(.)//s) {
+ $parser->YYData->{LAST_TOKEN} = $1;
+ return($1,$1);
+ }
+ }
+}
+
+sub parse($$)
+{
+ my ($self,$filename) = @_;
+
+ my $saved_delim = $/;
+ undef $/;
+ my $cpp = $ENV{CPP};
+ if (! defined $cpp) {
+ $cpp = "cpp"
+ }
+ my $data = `$cpp -D__PIDL__ -xc $filename`;
+ $/ = $saved_delim;
+
+ $self->YYData->{INPUT} = $data;
+ $self->YYData->{LINE} = 0;
+ $self->YYData->{LAST_TOKEN} = "NONE";
+
+ my $idl = $self->YYParse( yylex => \&_Lexer, yyerror => \&_Error );
+
+ return CleanData($idl);
+}