Home | History | Annotate | Download | only in scripts 
      1 #!/usr/bin/perl -w
      2 #
      3 # Copyright (C) 2009 Adam Dingle <adam (at] 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";
     78