bisonfix.awk

   1 # bisonfix.awk --- tweak awkgram.c for stupid compilers.
   2
   3 # Copyright (C) 2005, 2009 the Free Software Foundation, Inc.
   4 #
   5 # This file is part of GAWK, the GNU implementation of the
   6 # AWK Programming Language.
   7 #
   8 # GAWK is free software; you can redistribute it and/or modify
   9 # it under the terms of the GNU General Public License as published by
  10 # the Free Software Foundation; either version 3 of the License, or
  11 # (at your option) any later version.
  12 #
  13 # GAWK is distributed in the hope that it will be useful,
  14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 # GNU General Public License for more details.
  17 #
  18 # You should have received a copy of the GNU General Public License
  19 # along with this program; if not, write to the Free Software
  20 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA
  21
  22 BEGIN { sfile = ARGV[1] ; delete ARGV[1] }
  23
  24 /^#if.*\\$/ {
  25         line = $0
  26         sub(/\\$/, "", line)
  27         getline line2
  28         while (line2 ~ /\\$/) {
  29                 line = line line2
  30                 sub(/\\$/, "", line)
  31                 getline line2
  32         }
  33         line = line line2
  34         sub(/\\$/, "", line)
  35         print line
  36         next
  37 }
  38
  39 /^#line.*y\.tab\.c/     { sub(/y.tab/, sfile) }
  40
  41 { print }
  42