1 #! /usr/bin/perl 2 # 3 # This file is part of the WebKit project 4 # 5 # Copyright (C) 2010 Andras Becsi (abecsi (at] inf.u-szeged.hu), University of Szeged 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 # along 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 use strict; 23 use Switch; 24 use File::Basename; 25 26 my $outdir = $ARGV[0]; 27 shift; 28 my $option = basename($ARGV[0],".gperf"); 29 30 31 switch ($option) { 32 33 case "DocTypeStrings" { 34 35 my $docTypeStringsGenerated = "$outdir/DocTypeStrings.cpp"; 36 my $docTypeStringsGperf = $ARGV[0]; 37 shift; 38 39 system("gperf --key-positions=\"*\" -s 2 $docTypeStringsGperf > $docTypeStringsGenerated") == 0 || die "calling gperf failed: $?"; 40 41 } # case "DocTypeStrings" 42 43 case "ColorData" { 44 45 my $colorDataGenerated = "$outdir/ColorData.cpp"; 46 my $colorDataGperf = $ARGV[0]; 47 shift; 48 49 system("gperf --key-positions=\"*\" -D -s 2 $colorDataGperf > $colorDataGenerated") == 0 || die "calling gperf failed: $?"; 50 51 } # case "ColorData" 52 53 } # switch ($option) 54