contrib/binutils-2.21/gprof/gen-c-prog.awk

   1 NR == 1 {
   2     FS="\"";
   3     print "/* ==> Do not modify this file!!  It is created automatically"
   4     printf "   from %s using the gen-c-prog.awk script.  <== */\n\n", FILE
   5     print "#include <stdio.h>"
   6     print "#include \"ansidecl.h\""
   7 }
   8
   9         {
  10           if (curfun != FUNCTION)
  11             {
  12               if (curfun)
  13                 print "}"
  14               curfun = FUNCTION
  15               print ""
  16               print "void ", FUNCTION, "(FILE *);"
  17               print "void";
  18               printf "%s (file)\n", FUNCTION
  19               print "     FILE *file;";
  20               print "{";
  21             }
  22           printf "  fputs (\"";
  23           for (i = 1; i < NF; i++)
  24             printf "%s\\\"", $i;
  25           printf "%s\\n\", file);\n", $NF;
  26 }
  27
  28 END     { print "}" }