INTEGRATION: CWS npower8 (1.1.2); FILE ADDED
2007/07/17 08:26:28 npower 1.1.2.1: due to continuing problems with the combination of xslt, gcj, 64bit systems kendy re-wrote the transformation in perl resulting in a much faster cleaner solution.. thanks kendy!!
This commit is contained in:
Vladimir Glazounov
parent
d4f72f3394
commit
3464b8ec60
1 changed files with 209 additions and 0 deletions
209
oovbaapi/genconstidl/api-to-idl.pl
Normal file
209
oovbaapi/genconstidl/api-to-idl.pl
Normal file
|
|
@ -0,0 +1,209 @@
|
|||
:
|
||||
eval 'exec perl -S $0 ${1+"$@"}'
|
||||
if 0;
|
||||
#*************************************************************************
|
||||
#
|
||||
# OpenOffice.org - a multi-platform office productivity suite
|
||||
#
|
||||
# $RCSfile: api-to-idl.pl,v $
|
||||
#
|
||||
# $Revision: 1.2 $
|
||||
#
|
||||
# last change: $Author: vg $ $Date: 2007-12-07 11:17:00 $
|
||||
#
|
||||
# The Contents of this file are made available subject to
|
||||
# the terms of GNU Lesser General Public License Version 2.1.
|
||||
#
|
||||
#
|
||||
# GNU Lesser General Public License Version 2.1
|
||||
# =============================================
|
||||
# Copyright 2005 by Sun Microsystems, Inc.
|
||||
# 901 San Antonio Road, Palo Alto, CA 94303, USA
|
||||
#
|
||||
# This library is free software; you can redistribute it and/or
|
||||
# modify it under the terms of the GNU Lesser General Public
|
||||
# License version 2.1, as published by the Free Software Foundation.
|
||||
#
|
||||
# This library is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
# Lesser General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU Lesser General Public
|
||||
# License along with this library; if not, write to the Free Software
|
||||
# Foundation, Inc., 59 Temple Place, Suite 330, Boston,
|
||||
# MA 02111-1307 USA
|
||||
#
|
||||
#*************************************************************************
|
||||
|
||||
sub usage() {
|
||||
print "Usage: api-to-idl.pl source.api destination_path\n";
|
||||
print;
|
||||
print "This tool converts oovbaapi *.api files into *.idl's.\n";
|
||||
exit 1;
|
||||
}
|
||||
|
||||
my $src = shift;
|
||||
my $dest = shift;
|
||||
|
||||
if ( !defined( $src ) || !defined( $dest ) || $src eq "-h" || $src eq "--help" ) {
|
||||
usage();
|
||||
}
|
||||
|
||||
# Parsing functions
|
||||
my $state = "";
|
||||
my $source = "";
|
||||
my $name = "";
|
||||
my $value = "";
|
||||
|
||||
my %result;
|
||||
|
||||
# Process element start event
|
||||
sub start_element($) {
|
||||
my ($el) = @_;
|
||||
|
||||
@element_attr = split( /\s+/, $el );
|
||||
my $element = $element_attr[0];
|
||||
|
||||
if ( $element eq "element" ) {
|
||||
if ( $element_attr[1] =~ /type="?([^"]*)"?/ && $1 eq "constant" ) {
|
||||
$state = "constant";
|
||||
$source = "";
|
||||
$name = "";
|
||||
$value = "";
|
||||
}
|
||||
}
|
||||
elsif ( $state eq "constant" && $element eq "source" ) {
|
||||
$state = "source";
|
||||
if ( $element_attr[1] =~ /id="?([^"]*)"?/ ) {
|
||||
chomp( $source = $1 );
|
||||
}
|
||||
}
|
||||
elsif ( $state eq "source" && $element eq "name" ) {
|
||||
$state = "name";
|
||||
}
|
||||
elsif ( $state eq "source" && $element eq "value" ) {
|
||||
$state = "value";
|
||||
}
|
||||
}
|
||||
|
||||
# Process element end event
|
||||
sub end_element($) {
|
||||
my ($element) = @_;
|
||||
|
||||
if ( $state eq "name" && $element eq "name" ) {
|
||||
$state = "source";
|
||||
}
|
||||
elsif ( $state eq "value" && $element eq "value" ) {
|
||||
$state = "source";
|
||||
}
|
||||
elsif ( $state ne "" && $element eq "element" ) {
|
||||
$state = "";
|
||||
|
||||
my @destination = split( /\./, $source );
|
||||
my $module = shift( @destination );
|
||||
my $type = shift( @destination );
|
||||
|
||||
$module =~ tr/[A-Z]/[a-z]/;
|
||||
|
||||
$result{$module} = {} unless exists $result{$module};
|
||||
$result{$module}{$type} = [] unless exists $result{$module}{$type};
|
||||
|
||||
push( @{$result{$module}{$type}},
|
||||
{ "name" => $name, "value" => $value } );
|
||||
}
|
||||
}
|
||||
|
||||
# Process characters
|
||||
sub characters($) {
|
||||
my ($data) = @_;
|
||||
|
||||
if ( $state eq "name" ) {
|
||||
chomp( $name = $data );
|
||||
}
|
||||
elsif ( $state eq "value" ) {
|
||||
chomp( $value = $data );
|
||||
}
|
||||
}
|
||||
|
||||
# Create idls from the parsed data
|
||||
sub generate_idls($) {
|
||||
my ($path) = @_;
|
||||
|
||||
foreach $module ( keys %result ) {
|
||||
foreach $type ( keys %{$result{$module}} ) {
|
||||
my $fname = $path . "/" . $type . ".idl";
|
||||
open( IDL, ">$fname" ) || die "Cannot write $fname.";
|
||||
|
||||
print IDL "module org { module openoffice { 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";
|
||||
|
||||
close( IDL );
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
# Parse the input
|
||||
open( IN, "<$src" ) || die "Cannot open $src.";
|
||||
|
||||
my $in_comment = 0;
|
||||
my $line = "";
|
||||
while (<IN>) {
|
||||
# ignore comments
|
||||
s/<!--[^>]*-->//g;
|
||||
if ( /<!--/ ) {
|
||||
$in_comment = 1;
|
||||
s/<!--.*//;
|
||||
}
|
||||
elsif ( /-->/ && $in_comment ) {
|
||||
$in_comment = 0;
|
||||
s/.*-->//;
|
||||
}
|
||||
elsif ( $in_comment ) {
|
||||
next;
|
||||
}
|
||||
# ignore empty lines
|
||||
chomp;
|
||||
s/^\s*//;
|
||||
s/\s*$//;
|
||||
next if ( $_ eq "" );
|
||||
|
||||
# take care of lines where element continues
|
||||
if ( $line ne "" ) {
|
||||
$line .= " " . $_;
|
||||
}
|
||||
else {
|
||||
$line = $_;
|
||||
}
|
||||
next if ( !/>$/ );
|
||||
|
||||
# the actual parsing
|
||||
my @starts = split( /</, $line );
|
||||
$line = "";
|
||||
foreach $start ( @starts ) {
|
||||
next if ( $start eq "" );
|
||||
|
||||
@ends = split( />/, $start );
|
||||
my $element = $ends[0];
|
||||
my $data = $ends[1];
|
||||
|
||||
# start or end element
|
||||
if ( $element =~ /^\/(.*)/ ) {
|
||||
end_element( $1 );
|
||||
}
|
||||
else {
|
||||
start_element( $element );
|
||||
}
|
||||
|
||||
# the data
|
||||
characters( $data );
|
||||
}
|
||||
}
|
||||
close( IN );
|
||||
|
||||
# Generate the output
|
||||
generate_idls($dest);
|
||||
Loading…
Reference in a new issue