pidl: Remove obsolete smb_interfaces code.
authorJelmer Vernooij <jelmer@samba.org>
Sat, 12 Jan 2008 21:03:05 +0000 (22:03 +0100)
committerJelmer Vernooij <jelmer@samba.org>
Sat, 12 Jan 2008 21:03:05 +0000 (22:03 +0100)
source/pidl/smb_interfaces.pm [deleted file]
source/pidl/smb_interfaces.yp [deleted file]

diff --git a/source/pidl/smb_interfaces.pm b/source/pidl/smb_interfaces.pm
deleted file mode 100644 (file)
index c9cc449..0000000
+++ /dev/null
@@ -1,1272 +0,0 @@
-####################################################################
-#
-#    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 => -33,
-               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 => -33,
-               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 => -32
-       },
-       {#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' => 37,
-                       'IDENTIFIER' => 33,
-                       'ENUM' => 32,
-                       'STRUCT' => 35,
-                       'CONST' => 34
-               },
-               GOTOS => {
-                       'struct' => 38,
-                       'type' => 39,
-                       'union' => 40,
-                       'element' => 36
-               }
-       },
-       {#State 26
-               ACTIONS => {
-                       "}" => 41,
-                       'UNION' => 37,
-                       'IDENTIFIER' => 33,
-                       'ENUM' => 32,
-                       'STRUCT' => 35,
-                       'CONST' => 34
-               },
-               GOTOS => {
-                       'struct' => 38,
-                       'type' => 39,
-                       'union' => 40,
-                       'element' => 36
-               }
-       },
-       {#State 27
-               ACTIONS => {
-                       "}" => 42,
-                       'UNION' => 37,
-                       'IDENTIFIER' => 33,
-                       'ENUM' => 32,
-                       'STRUCT' => 35,
-                       'CONST' => 34
-               },
-               GOTOS => {
-                       'struct' => 38,
-                       'type' => 39,
-                       'union' => 40,
-                       'element' => 36
-               }
-       },
-       {#State 28
-               ACTIONS => {
-                       'IDENTIFIER' => 43
-               }
-       },
-       {#State 29
-               ACTIONS => {
-                       ";" => 44
-               }
-       },
-       {#State 30
-               ACTIONS => {
-                       'IDENTIFIER' => 22
-               },
-               GOTOS => {
-                       'enum_identifier' => 45
-               }
-       },
-       {#State 31
-               DEFAULT => -28,
-               GOTOS => {
-                       'pointers' => 46
-               }
-       },
-       {#State 32
-               ACTIONS => {
-                       'IDENTIFIER' => 47
-               }
-       },
-       {#State 33
-               DEFAULT => -26
-       },
-       {#State 34
-               ACTIONS => {
-                       'IDENTIFIER' => 33,
-                       'ENUM' => 32
-               },
-               GOTOS => {
-                       'type' => 48
-               }
-       },
-       {#State 35
-               ACTIONS => {
-                       'IDENTIFIER' => 49
-               },
-               DEFAULT => -33,
-               GOTOS => {
-                       'optional_identifier' => 13
-               }
-       },
-       {#State 36
-               DEFAULT => -16
-       },
-       {#State 37
-               ACTIONS => {
-                       'IDENTIFIER' => 50
-               },
-               DEFAULT => -33,
-               GOTOS => {
-                       'optional_identifier' => 16
-               }
-       },
-       {#State 38
-               DEFAULT => -18
-       },
-       {#State 39
-               DEFAULT => -28,
-               GOTOS => {
-                       'pointers' => 51
-               }
-       },
-       {#State 40
-               DEFAULT => -19
-       },
-       {#State 41
-               DEFAULT => -28,
-               GOTOS => {
-                       'pointers' => 52
-               }
-       },
-       {#State 42
-               ACTIONS => {
-                       'IDENTIFIER' => 12
-               },
-               DEFAULT => -33,
-               GOTOS => {
-                       'optional_identifier' => 53
-               }
-       },
-       {#State 43
-               DEFAULT => -14
-       },
-       {#State 44
-               DEFAULT => -10
-       },
-       {#State 45
-               DEFAULT => -12
-       },
-       {#State 46
-               ACTIONS => {
-                       'IDENTIFIER' => 12,
-                       "*" => 55
-               },
-               DEFAULT => -33,
-               GOTOS => {
-                       'optional_identifier' => 54,
-                       'optional_identifiers' => 56
-               }
-       },
-       {#State 47
-               DEFAULT => -27
-       },
-       {#State 48
-               DEFAULT => -28,
-               GOTOS => {
-                       'pointers' => 57
-               }
-       },
-       {#State 49
-               ACTIONS => {
-                       "{" => -32
-               },
-               DEFAULT => -28,
-               GOTOS => {
-                       'pointers' => 58
-               }
-       },
-       {#State 50
-               ACTIONS => {
-                       "{" => -32
-               },
-               DEFAULT => -28,
-               GOTOS => {
-                       'pointers' => 59
-               }
-       },
-       {#State 51
-               ACTIONS => {
-                       'IDENTIFIER' => 60,
-                       "*" => 55
-               }
-       },
-       {#State 52
-               ACTIONS => {
-                       'IDENTIFIER' => 12,
-                       "*" => 55
-               },
-               DEFAULT => -33,
-               GOTOS => {
-                       'optional_identifier' => 61
-               }
-       },
-       {#State 53
-               ACTIONS => {
-                       ";" => 62
-               }
-       },
-       {#State 54
-               DEFAULT => -30
-       },
-       {#State 55
-               DEFAULT => -29
-       },
-       {#State 56
-               ACTIONS => {
-                       ";" => 63,
-                       "," => 64
-               }
-       },
-       {#State 57
-               ACTIONS => {
-                       'IDENTIFIER' => 65,
-                       "*" => 55
-               }
-       },
-       {#State 58
-               ACTIONS => {
-                       'IDENTIFIER' => 66,
-                       "*" => 55
-               }
-       },
-       {#State 59
-               ACTIONS => {
-                       'IDENTIFIER' => 67,
-                       "*" => 55
-               }
-       },
-       {#State 60
-               ACTIONS => {
-                       "[" => 69
-               },
-               DEFAULT => -24,
-               GOTOS => {
-                       'array' => 68
-               }
-       },
-       {#State 61
-               ACTIONS => {
-                       ";" => 70
-               }
-       },
-       {#State 62
-               DEFAULT => -9
-       },
-       {#State 63
-               DEFAULT => -7
-       },
-       {#State 64
-               ACTIONS => {
-                       'IDENTIFIER' => 12
-               },
-               DEFAULT => -33,
-               GOTOS => {
-                       'optional_identifier' => 71
-               }
-       },
-       {#State 65
-               ACTIONS => {
-                       "[" => 69
-               },
-               DEFAULT => -24,
-               GOTOS => {
-                       'array' => 72
-               }
-       },
-       {#State 66
-               ACTIONS => {
-                       ";" => 73
-               }
-       },
-       {#State 67
-               ACTIONS => {
-                       ";" => 74
-               }
-       },
-       {#State 68
-               ACTIONS => {
-                       ";" => 75
-               }
-       },
-       {#State 69
-               ACTIONS => {
-                       'CONSTANT' => 76
-               }
-       },
-       {#State 70
-               DEFAULT => -8
-       },
-       {#State 71
-               DEFAULT => -31
-       },
-       {#State 72
-               ACTIONS => {
-                       ";" => 77
-               }
-       },
-       {#State 73
-               DEFAULT => -20
-       },
-       {#State 74
-               DEFAULT => -21
-       },
-       {#State 75
-               DEFAULT => -23
-       },
-       {#State 76
-               ACTIONS => {
-                       "]" => 78
-               }
-       },
-       {#State 77
-               DEFAULT => -22
-       },
-       {#State 78
-               DEFAULT => -25
-       }
-],
-                                  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"
-{
-               {
-                       "NAME" => $_[7],
-                       "STRUCT_NAME" => $_[2],
-                       "TYPE" => "struct",
-                       "DATA" => $_[4],
-               }
-       }
-       ],
-       [#Rule 8
-                'union', 8,
-sub
-#line 38 "build/pidl/smb_interfaces.yp"
-{
-               {
-                       "NAME" => $_[7],
-                       "UNION_NAME" => $_[2],
-                       "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,
-sub
-#line 72 "build/pidl/smb_interfaces.yp"
-{{
-                       "NAME" => [$_[2]],
-                       "POINTERS" => $_[3],
-                       "TYPE" => "struct $_[2]",
-               }}
-       ],
-       [#Rule 21
-                'element', 5,
-sub
-#line 78 "build/pidl/smb_interfaces.yp"
-{{
-                       "NAME" => $_[2],
-                       "POINTERS" => $_[3],
-                       "TYPE" => "union $_[2]",
-               }}
-       ],
-       [#Rule 22
-                'element', 6,
-sub
-#line 84 "build/pidl/smb_interfaces.yp"
-{{
-                          "NAME" => [$_[4]],
-                          "TYPE" => $_[2],
-                          "POINTERS" => $_[3],
-               }}
-       ],
-       [#Rule 23
-                'element', 5,
-sub
-#line 90 "build/pidl/smb_interfaces.yp"
-{{
-                          "NAME" => [$_[3]],
-                          "TYPE" => $_[1],
-                          "POINTERS" => $_[2],
-                          "ARRAY_LENGTH" => $_[4]
-               }}
-       ],
-       [#Rule 24
-                'array', 0, undef
-       ],
-       [#Rule 25
-                'array', 3,
-sub
-#line 99 "build/pidl/smb_interfaces.yp"
-{ int($_[2]) }
-       ],
-       [#Rule 26
-                'type', 1, undef
-       ],
-       [#Rule 27
-                'type', 2,
-sub
-#line 104 "build/pidl/smb_interfaces.yp"
-{ "enum $_[2]" }
-       ],
-       [#Rule 28
-                'pointers', 0, undef
-       ],
-       [#Rule 29
-                'pointers', 2,
-sub
-#line 109 "build/pidl/smb_interfaces.yp"
-{ $_[1]+1 }
-       ],
-       [#Rule 30
-                'optional_identifiers', 1,
-sub
-#line 112 "build/pidl/smb_interfaces.yp"
-{ [$_[1]] }
-       ],
-       [#Rule 31
-                'optional_identifiers', 3,
-sub
-#line 113 "build/pidl/smb_interfaces.yp"
-{ push(@{$_[1]}, $_[3]); $_[1] }
-       ],
-       [#Rule 32
-                'optional_identifier', 1, undef
-       ],
-       [#Rule 33
-                'optional_identifier', 0, undef
-       ]
-],
-                                  @_);
-    bless($self,$class);
-}
-
-#line 119 "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/source/pidl/smb_interfaces.yp b/source/pidl/smb_interfaces.yp
deleted file mode 100644 (file)
index f8c34ea..0000000
+++ /dev/null
@@ -1,233 +0,0 @@
-########################
-# 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 ';'
-       {
-               {
-                       "NAME" => $_[7],
-                       "STRUCT_NAME" => $_[2],
-                       "TYPE" => "struct",
-                       "DATA" => $_[4],
-               }
-       }
-;
-
-union:
-       UNION optional_identifier '{' elements '}' pointers optional_identifier ';'
-       {
-               {
-                       "NAME" => $_[7],
-                       "UNION_NAME" => $_[2],
-                       "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 ';'
-               {{
-                       "NAME" => [$_[2]],
-                       "POINTERS" => $_[3],
-                       "TYPE" => "struct $_[2]",
-               }}
-       | UNION IDENTIFIER pointers IDENTIFIER ';'
-               {{
-                       "NAME" => $_[2],
-                       "POINTERS" => $_[3],
-                       "TYPE" => "union $_[2]",
-               }}
-       | CONST type pointers IDENTIFIER array ';'
-               {{
-                          "NAME" => [$_[4]],
-                          "TYPE" => $_[2],
-                          "POINTERS" => $_[3],
-               }}
-       | type pointers IDENTIFIER array ';'
-               {{
-                          "NAME" => [$_[3]],
-                          "TYPE" => $_[1],
-                          "POINTERS" => $_[2],
-                          "ARRAY_LENGTH" => $_[4]
-               }}
-;
-
-array: #empty
-       | '[' CONSTANT  ']'     { int($_[2]) }
-;
-
-type: IDENTIFIER
-       | ENUM IDENTIFIER
-               { "enum $_[2]" }
-;
-
-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);
-}