1 #!/usr/bin/perl -w

     2 #

     3 # Copyright (C) 2009 Adam Dingle <adam@yorba.org>

     4 #

     5 # This file is part of WebKit

     6 # 

     7 # This library is free software; you can redistribute it and/or

     8 # modify it under the terms of the GNU Library General Public

     9 # License as published by the Free Software Foundation; either

    10 # version 2 of the License, or (at your option) any later version.

    11 # 

    12 # This library is distributed in the hope that it will be useful,

    13 # but WITHOUT ANY WARRANTY; without even the implied warranty of

    14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

    15 # Library General Public License for more details.

    16 # 

    17 # You should have received a copy of the GNU Library General Public License

    18 # aint with this library; see the file COPYING.LIB.  If not, write to

    19 # the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,

    20 # Boston, MA 02110-1301, USA.

    21 # 

    22 

    23 my $classlist = <STDIN>;

    24 chomp($classlist);

    25 my @classes = split / /, $classlist;

    26 @classes = sort @classes;

    27 

    28 print <<EOF;

    29 /* This file is part of the WebKit open source project.

    30    This file has been generated by gobject-generate-headers.pl.  DO NOT MODIFY!

    31    

    32    This library is free software; you can redistribute it and/or

    33    modify it under the terms of the GNU Library General Public

    34    License as published by the Free Software Foundation; either

    35    version 2 of the License, or (at your option) any later version.

    36 

    37    This library is distributed in the hope that it will be useful,

    38    but WITHOUT ANY WARRANTY; without even the implied warranty of

    39    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

    40    Library General Public License for more details.

    41 

    42    You should have received a copy of the GNU Library General Public License

    43    along with this library; see the file COPYING.LIB.  If not, write to

    44    the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,

    45    Boston, MA 02110-1301, USA.

    46 */

    47 

    48 EOF

    49 

    50 my $outType = $ARGV[0];

    51 my $header;

    52 if ($outType eq "defines") {

    53     $header = "webkitdomdefines_h";

    54 } elsif ($outType eq "gdom") {

    55     $header = "webkitdom_h";

    56 } else {

    57     die "unknown output type";

    58 }

    59 

    60 print "#ifndef ${header}\n";

    61 print "#define ${header}\n";

    62 print "\n";

    63 

    64 if ($outType eq "defines") {

    65     foreach my $class (@classes) {

    66         print "typedef struct _WebKitDOM${class} WebKitDOM${class};\n";

    67         print "typedef struct _WebKitDOM${class}Class WebKitDOM${class}Class;\n";

    68         print "\n";

    69     }

    70 } elsif ($outType eq "gdom") {

    71     foreach my $class (@classes) {

    72         print "#include <webkit/WebKitDOM${class}.h>\n";

    73     }

    74 }

    75 

    76 print "\n";

    77 print "#endif\n";