sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2024-12-22 13:34:15 +03:00
Code

r4522: PROPERTIES are now handled at the typedef level

Browse Source 
(This used to be commit 73d5a033e8)
This commit is contained in:
Andrew Tridgell 2005-01-05 00:14:29 +00:00 committed by Gerald (Jerry) Carter
parent b90c0850fc
commit 0ba751b0aa
2 changed files with 363 additions and 374 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

713
source4/build/pidl/idl.pm
View File

File diff suppressed because it is too large Load Diff

24
source4/build/pidl/idl.yp
View File

@ -23,9 +23,9 @@ idl:
coclass: property_list 'coclass' identifier '{' interfaces '}' optional_semicolon
{$_[3] => {
"TYPE" => "COCLASS",
"PROPERTIES" => $_[1],
"NAME" => $_[3],
"DATA" => $_[5],
"PROPERTIES" => $_[1],
"NAME" => $_[3],
"DATA" => $_[5],
}}
;
@ -37,10 +37,10 @@ interfaces:
interface: property_list 'interface' identifier base_interface '{' definitions '}' optional_semicolon
{$_[3] => {
"TYPE" => "INTERFACE",
"PROPERTIES" => $_[1],
"NAME" => $_[3],
"BASE" => $_[4],
"DATA" => $_[6],
"PROPERTIES" => $_[1],
"NAME" => $_[3],
"BASE" => $_[4],
"DATA" => $_[6],
}}
;
@ -117,19 +117,17 @@ enum_element: identifier
| identifier '=' anytext { "$_[1]$_[2]$_[3]" }
;
struct: property_list 'struct' '{' element_list1 '}'
struct: 'struct' '{' element_list1 '}'
{{
"TYPE" => "STRUCT",
"PROPERTIES" => $_[1],
"ELEMENTS" => $_[4]
"ELEMENTS" => $_[3]
}}
;
union: property_list 'union' '{' union_elements '}'
union: 'union' '{' union_elements '}'
{{
"TYPE" => "UNION",
"PROPERTIES" => $_[1],
"DATA" => $_[4]
"DATA" => $_[3]
}}
;