gen-c-prog.awk revision 1.1.1.1 
1NR == 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
28END	{ print "}" }
29