1#! /usr/bin/perl -w 2# 3# Copyright (C) 2009 Nokia Corporation and/or its subsidiary(-ies) 4# Copyright (C) 2010 Patrick Gansterer <paroga@paroga.com> 5# 6# This library is free software; you can redistribute it and/or 7# modify it under the terms of the GNU Library General Public 8# License as published by the Free Software Foundation; either 9# version 2 of the License, or (at your option) any later version. 10# 11# This library is distributed in the hope that it will be useful, 12# but WITHOUT ANY WARRANTY; without even the implied warranty of 13# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 14# Library General Public License for more details. 15# 16# You should have received a copy of the GNU Library General Public License 17# along with this library; see the file COPYING.LIB. If not, write to 18# the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, 19# Boston, MA 02110-1301, USA. 20 21use strict; 22use File::Basename; 23use Getopt::Long; 24 25my $usage = basename($0) . " --prefix prefix file"; 26 27my $rtype_template = quotemeta("#rtype#"); 28my $op_template = quotemeta("#op#"); 29 30my $prefix; 31my $enable_dfg = 0; 32my $file; 33 34my $getOptionsResult = GetOptions( 35 'prefix=s' => \$prefix, 36 'dfg!' => \$enable_dfg 37); 38 39$file = $ARGV[0]; 40 41die "$usage\n" unless ($prefix and $file); 42 43my $stub_template = ""; 44my $output_end = ""; 45my $stub = ""; 46 47my $rtype = ""; 48my $op = ""; 49my $if_counter = 0; 50my $dfg_begin = 0; 51 52print STDERR "Creating JIT stubs for $file \n"; 53open(IN, $file) or die "No such file $file"; 54 55while ( $_ = <IN> ) { 56 if ( /^#if (.*)/ ) { 57 $if_counter++; 58 if ( $1 eq "ENABLE(DFG_JIT)" ) { 59 $dfg_begin = $if_counter; 60 } 61 } 62 if ( /^#endif/ ) { 63 if ( $if_counter == $dfg_begin ) { 64 $dfg_begin = 0; 65 } 66 $if_counter--; 67 } 68 if ( /^$prefix\_BEGIN\((.*)\)/ ) { 69 $stub = $1; 70 print $stub . "\n"; 71 } 72 if ( /^$prefix\((.*)\)/ ) { 73 $stub_template .= $1 . "\n"; 74 } 75 if ( /^$prefix\_END\((.*)\)/ ) { 76 $output_end .= $1 . "\n"; 77 } 78 if ( /^DEFINE_STUB_FUNCTION\((.*), (.*)\)/ ) { 79 $stub = $stub_template; 80 $rtype = quotemeta($1); 81 $op = quotemeta($2); 82 $stub =~ s/$rtype_template/$rtype/g; 83 $stub =~ s/$op_template/$op/g; 84 $stub =~ s/\\\*/\*/g; 85 if ( $enable_dfg == 1 || $dfg_begin == 0 ) { 86 print $stub; 87 } 88 } 89} 90 91print $output_end; 92 93close(IN); 94