Import proper IDL for interface pointers.
[samba.git] / source4 / pidl / idl.yp
index 8589982a2c913830aa9a761a6fad4ee024bc19b9..d557590494edcfff808d5b22c9920813fc281bf4 100644 (file)
@@ -276,11 +276,16 @@ element_list1:
     | element_list1 base_element ';' { push(@{$_[1]}, $_[2]); $_[1] }
 ;
 
+optional_const: 
+       #empty
+       | 'const'
+;
+
 element_list2: 
     #empty
     | 'void' 
-    | base_element { [ $_[1] ] }
-    | element_list2 ',' base_element { push(@{$_[1]}, $_[3]); $_[1] }
+    | optional_const base_element { [ $_[2] ] }
+    | element_list2 ',' optional_const base_element { push(@{$_[1]}, $_[4]); $_[1] }
 ;
 
 array_len: