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