home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / binutils-2.7-src.tgz / tar.out / fsf / binutils / gprof / gen-c-prog.awk < prev    next >
Text File  |  1996-09-28  |  568b  |  27 lines
  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. }
  7.  
  8.     {
  9.       if (curfun != FUNCTION)
  10.         {
  11.           if (curfun)
  12.         print "}"
  13.           curfun = FUNCTION
  14.           print ""
  15.           print "void";
  16.           printf "%s (file)\n", FUNCTION
  17.           print "     FILE *file;";
  18.           print "{";
  19.         }
  20.       printf "  fputs (\"";
  21.       for (i = 1; i < NF; i++)
  22.         printf "%s\\\"", $i;
  23.       printf "%s\\n\", file);\n", $NF;
  24. }
  25.  
  26. END    { print "}" }
  27.