r8910: An initial parser to parse structures in smb_interfaces.h. This will be
authorTim Potter <tpot@samba.org>
Tue, 2 Aug 2005 06:10:31 +0000 (06:10 +0000)
committerGerald (Jerry) Carter <jerry@samba.org>
Wed, 10 Oct 2007 18:30:57 +0000 (13:30 -0500)
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)

source4/build/pidl/smb_interfaces.pm [new file with mode: 0644]
source4/build/pidl/smb_interfaces.yp [new file with mode: 0644]
source4/build/smb_build/makefile.pm
source4/script/build_smb_interfaces.pl [new file with mode: 0755]

diff --git a/source4/build/pidl/smb_interfaces.pm b/source4/build/pidl/smb_interfaces.pm
new file mode 100644 (file)
index 0000000..de8b704
--- /dev/null
@@ -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 (file)
index 0000000..704c052
--- /dev/null
@@ -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);
+}
index 530a040565e45fc5b03369b4f107507001d2ad9d..a5c97a13da85938ad73e54b80f3133a6653d7f64 100644 (file)
@@ -140,6 +140,13 @@ idl: build/pidl/Parse/Pidl/IDL.pm
 build/pidl/Parse/Pidl/IDL.pm: build/pidl/idl.yp
        -yapp -s -m 'Parse::Pidl::IDL' -o build/pidl/Parse/Pidl/IDL.pm build/pidl/idl.yp 
 
+smb_interfaces: build/pidl/smb_interfaces.pm
+       $(PERL) -Ibuild/pidl script/build_smb_interfaces.pl \
+               include/smb_interfaces.h
+
+build/pidl/smb_interfaces.pm: build/pidl/smb_interfaces.yp
+       -yapp -s -m 'smb_interfaces' -o build/pidl/smb_interfaces.pm build/pidl/smb_interfaces.yp 
+
 pch: proto include/includes.h.gch
 
 pch_clean:
diff --git a/source4/script/build_smb_interfaces.pl b/source4/script/build_smb_interfaces.pl
new file mode 100755 (executable)
index 0000000..3130922
--- /dev/null
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+
+my $idl_file = shift;
+
+require smb_interfaces;
+my $idl_parser = new smb_interfaces;
+$parse = $idl_parser->parse($idl_file);
+
+use Data::Dumper;
+print Dumper($parse);