1 ###################################################
2 # C utility functions for pidl
3 # Copyright jelmer@samba.org 2005-2007
4 # released under the GNU GPL
5 package Parse::Pidl::CUtil;
9 @EXPORT = qw(get_pointer_to get_value_of);
10 use vars qw($VERSION);
19 if ($var_name =~ /^\*(.*)$/) {
21 } elsif ($var_name =~ /^\&(.*)$/) {
22 return "&($var_name)";
32 if ($var_name =~ /^\&(.*)$/) {