Forgot to remove two more files

git-svn-id: http://anonsvn.wireshark.org/wireshark/trunk@34732 f5534014-38df-0310-8fa8-9805f1628bb7

diff --git a/tools/pidl/config.mk b/tools/pidl/config.mk
deleted file mode 100644 (file)
index d7a84e3..0000000
--- a/tools/pidl/config.mk
+++ /dev/null
@@ -1,34 +0,0 @@
-PIDL = $(PERL) $(pidldir)/pidl
-
-$(pidldir)/Makefile: $(pidldir)/Makefile.PL
-       @cd $(pidldir) && $(PERL) Makefile.PL PREFIX=$(prefix)
-
-pidl-testcov: $(pidldir)/Makefile
-       cd $(pidldir) && cover -test
-
-installpidl:: $(pidldir)/Makefile
-       @$(MAKE) -C $(pidldir) install_vendor VENDORPREFIX=$(prefix) \
-                                          INSTALLVENDORLIB=$(datarootdir)/perl5 \
-                                                                  INSTALLVENDORBIN=$(bindir) \
-                                                                  INSTALLVENDORSCRIPT=$(bindir) \
-                                                                  INSTALLVENDORMAN1DIR=$(mandir)/man1 \
-                                                                  INSTALLVENDORMAN3DIR=$(mandir)/man3
-
-ifeq ($(HAVE_PERL_EXTUTILS_MAKEMAKER),1)
-install:: installpidl
-endif
-
-$(pidldir)/lib/Parse/Pidl/IDL.pm: $(pidldir)/idl.yp
-       -$(YAPP) -m 'Parse::Pidl::IDL' -o $(pidldir)/lib/Parse/Pidl/IDL.pm $(pidldir)/idl.yp ||\
-               touch $(pidldir)/lib/Parse/Pidl/IDL.pm 
-
-$(pidldir)/lib/Parse/Pidl/Expr.pm: $(pidldir)/idl.yp
-       -$(YAPP) -m 'Parse::Pidl::Expr' -o $(pidldir)/lib/Parse/Pidl/Expr.pm $(pidldir)/expr.yp ||\
-               touch $(pidldir)/lib/Parse/Pidl/Expr.pm 
-
-testcov-html:: pidl-testcov
-
-pidl-clean:
-       /bin/rm -f $(pidldir)/Makefile
-
-clean:: pidl-clean

diff --git a/tools/pidl/smb_interfaces.yp b/tools/pidl/smb_interfaces.yp
deleted file mode 100644 (file)
index f8c34ea..0000000
--- a/tools/pidl/smb_interfaces.yp
+++ /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);
-}