diff options
| author | Stefan Metzmacher <metze@samba.org> | 2008-02-02 11:13:03 +0100 |
|---|---|---|
| committer | Stefan Metzmacher <metze@samba.org> | 2008-02-02 11:13:03 +0100 |
| commit | e22c627ea1e700c30568399cf94df5b88b05f216 (patch) | |
| tree | 0e81ec21588b62e66abc9ca8bd934e82fa557b36 /source4/pidl/lib/Parse/Pidl/CUtil.pm | |
| parent | 4117839d7725a814c76c3869a23b6bd65cedf079 (diff) | |
| download | samba-e22c627ea1e700c30568399cf94df5b88b05f216.tar.gz samba-e22c627ea1e700c30568399cf94df5b88b05f216.tar.bz2 samba-e22c627ea1e700c30568399cf94df5b88b05f216.zip | |
pidl: revert changes it didn't want to push...sorry!
8ebf16c0741085fa769fcc2929f275ab49b1ea5d Works!!!...pidl/Samba4::NDR::Parser: fix support for embedded "ref" pointers
6fcf2456d0e81898b5779ef1650f38b4c5363a80 WORKS!!!...pidl/NDR: fix handling of multilevel pointers in function elements
0569139ca2960ec5478829c3e66f7ff69bdb55cd LOOKS OK... pidl: get the pointer types correct when an element has multiple pointe
rs
13afc89a87716063180723f0e9cb4f76daca837e CHECKED... pidl/Samba4::NDR::Parser: correctly get the name of an array element
29c104944bcad30c6a2a3fa70d527bf0ee8969de CHECKED... TODO:MSG pidl/Samba4::NDR::Parser: fix ...
3369015f5d8c425e1a9f9d861471028f03f163bb CHECKED... pidl/Samba4::NDR::Parser: move logic for extra get_pointer_of() into a f
unction
metze
(This used to be commit 0bcc8e53d1470ba9dfe93e5d6925b8f4c20c7c66)
Diffstat (limited to 'source4/pidl/lib/Parse/Pidl/CUtil.pm')
| -rw-r--r-- | source4/pidl/lib/Parse/Pidl/CUtil.pm | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/source4/pidl/lib/Parse/Pidl/CUtil.pm b/source4/pidl/lib/Parse/Pidl/CUtil.pm index 9deb6ee177..bd7b16812c 100644 --- a/source4/pidl/lib/Parse/Pidl/CUtil.pm +++ b/source4/pidl/lib/Parse/Pidl/CUtil.pm @@ -6,7 +6,7 @@ package Parse::Pidl::CUtil; require Exporter; @ISA = qw(Exporter); -@EXPORT = qw(get_pointer_to get_value_of get_array_element); +@EXPORT = qw(get_pointer_to get_value_of); use vars qw($VERSION); $VERSION = '0.01'; @@ -36,17 +36,4 @@ sub get_value_of($) } } -sub get_array_element($$) -{ - my ($var_name, $idx) = @_; - - if ($var_name =~ /^\*.*$/) { - $var_name = "($var_name)"; - } elsif ($var_name =~ /^\&.*$/) { - $var_name = "($var_name)"; - } - - return "$var_name"."[$idx]"; -} - 1; |