diff options
Diffstat (limited to 'oovbaapi/genconstidl')
| -rw-r--r-- | oovbaapi/genconstidl/api-to-idl.pl | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/oovbaapi/genconstidl/api-to-idl.pl b/oovbaapi/genconstidl/api-to-idl.pl index a310d1450bf4..fb060d2b4ced 100644 --- a/oovbaapi/genconstidl/api-to-idl.pl +++ b/oovbaapi/genconstidl/api-to-idl.pl @@ -131,12 +131,23 @@ sub generate_idls($) { my $fname = $path . "/" . $type . ".idl"; open( IDL, ">$fname" ) || die "Cannot write $fname."; - print IDL "module org { module openoffice { module $module {\n"; + if( $module eq "vba" ) { + print IDL "module ooo { module $module {\n"; + } + else { + print IDL "module ooo { module vba { module $module {\n"; + } + print IDL " constants $type {\n"; foreach $constant ( @{$result{$module}{$type}} ) { print IDL " const long $constant->{'name'} = $constant->{'value'};\n"; } - print IDL " };\n}; }; };\n"; + if( $module eq "vba" ) { + print IDL " };\n}; };\n"; + } + else { + print IDL " };\n}; }; };\n"; + } close( IDL ); } |