diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2005-07-09 15:32:08 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:19:27 -0500 |
| commit | fa1445f4bc962efb3e639d3a4e345b1db14155b7 (patch) | |
| tree | 8799d04bc9ec022569fedd636e899bcc29a57935 /source4/build/pidl/idl.yp | |
| parent | c222331d6d3785075bb0c961315aae9380101e47 (diff) | |
| download | samba-fa1445f4bc962efb3e639d3a4e345b1db14155b7.tar.gz samba-fa1445f4bc962efb3e639d3a4e345b1db14155b7.tar.bz2 samba-fa1445f4bc962efb3e639d3a4e345b1db14155b7.zip | |
r8264: - Use standard perl package structure for pidl.
- Only "use" pidl modules in the main executable when necessary
Try 'make install' in build/pidl to install the package (should work stand-alone).
(This used to be commit c620095692122a65ae1c5d85ca20468d4de93c54)
Diffstat (limited to 'source4/build/pidl/idl.yp')
| -rw-r--r-- | source4/build/pidl/idl.yp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/source4/build/pidl/idl.yp b/source4/build/pidl/idl.yp index b556b064b4..acf926dd40 100644 --- a/source4/build/pidl/idl.yp +++ b/source4/build/pidl/idl.yp @@ -192,7 +192,7 @@ empty_element: property_list ';' base_or_empty: base_element ';' | empty_element; optional_base_element: - property_list base_or_empty { $_[2]->{PROPERTIES} = util::FlattenHash([$_[1],$_[2]->{PROPERTIES}]); $_[2] } + property_list base_or_empty { $_[2]->{PROPERTIES} = Parse::Pidl::Util::FlattenHash([$_[1],$_[2]->{PROPERTIES}]); $_[2] } ; union_elements: @@ -247,11 +247,11 @@ array_len: property_list: #empty - | property_list '[' properties ']' { util::FlattenHash([$_[1],$_[3]]); } + | property_list '[' properties ']' { Parse::Pidl::Util::FlattenHash([$_[1],$_[3]]); } ; properties: property { $_[1] } - | properties ',' property { util::FlattenHash([$_[1], $_[3]]); } + | properties ',' property { Parse::Pidl::Util::FlattenHash([$_[1], $_[3]]); } ; property: identifier {{ "$_[1]" => "1" }} @@ -304,7 +304,7 @@ optional_semicolon: # start code %% -use pidl::util; +use Parse::Pidl::Util; sub _Error { if (exists $_[0]->YYData->{ERRMSG}) { @@ -393,5 +393,5 @@ sub parse_idl($$) my $idl = $self->YYParse( yylex => \&_Lexer, yyerror => \&_Error ); - return util::CleanData($idl); + return Parse::Pidl::Util::CleanData($idl); } |