# Copyright (C) 2013-2015 Free Software Foundation, Inc. # # This program is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by the # Free Software Foundation; either version 3, or (at your option) any # later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; see the file COPYING3. If not see # . # This Awk script takes passes.def and writes pass-instances.def, # counting the instances of each kind of pass, adding an instance number # to everywhere that NEXT_PASS is used. # # For example, the single-instanced pass: # NEXT_PASS (pass_warn_unused_result); # becomes this in the output: # NEXT_PASS (pass_warn_unused_result, 1); # # The various instances of # NEXT_PASS (pass_copy_prop); # become: # NEXT_PASS (pass_copy_prop, 1); # through: # NEXT_PASS (pass_copy_prop, 8); # (currently there are 8 instances of that pass) # Usage: awk -f gen-pass-instances.awk passes.def BEGIN { print "/* This file is auto-generated by gen-pass-instances.awk"; print " from passes.def. */"; } function handle_line() { line = $0; # Find call expression. call_starts_at = match(line, /NEXT_PASS \(.+\)/); if (call_starts_at == 0) { print line; return; } # Length of the call expression. len_of_call = RLENGTH; len_of_start = length("NEXT_PASS ("); len_of_open = length("("); len_of_close = length(")"); # Find pass_name argument len_of_pass_name = len_of_call - (len_of_start + len_of_close); pass_starts_at = call_starts_at + len_of_start; pass_name = substr(line, pass_starts_at, len_of_pass_name); # Find call expression prefix (until and including called function) prefix_len = pass_starts_at - 1 - len_of_open; prefix = substr(line, 1, prefix_len); # Find call expression postfix postfix_starts_at = call_starts_at + len_of_call; postfix = substr(line, postfix_starts_at); # Set pass_counts if (pass_name in pass_counts) pass_counts[pass_name]++; else pass_counts[pass_name] = 1; pass_num = pass_counts[pass_name]; # Print call expression with extra pass_num argument printf "%s(%s, %s)%s\n", prefix, pass_name, pass_num, postfix; } { handle_line() } # Local Variables: # mode:awk # c-basic-offset:8 # End: