Edited documentation of ChimaraIF::command signal
[projects/chimara/chimara.git] / interpreters / nitfol / copying.awk
1 BEGIN   {
2   FS="\"";
3   print "/* ==> Do not modify this file!!  It is created automatically";
4   print "   by copying.awk.  Modify copying.awk instead.  <== */";
5   print "";
6   print "#ifdef DEBUGGING";
7   print "";
8   print "#include \"nitfol.h\"";
9   print "";
10   print "void show_copying(void)";
11   print "{";
12   print "  infix_print_fixed_string(";
13 }
14 NR == 1,/^[     ]*NO WARRANTY[  ]*$/    {
15   if ($0 ~ /\f/)
16   {
17     print "  \"\\n\\n\"";
18   }
19   else if ($0 !~ /^[    ]*NO WARRANTY[  ]*$/) 
20   {
21     printf "  \"";
22     for (i = 1; i <= NF; i++)
23     {
24       gsub("\011", "        ", $i);
25       printf "%s", $i;
26     }
27     printf "\\n\"\n";
28   }
29 }
30 /^[      ]*NO WARRANTY[         ]*$/    {
31   print "  );";
32   print "}";
33   print "";
34   print "void show_warranty(void)";
35   print "{";
36   print "  infix_print_fixed_string(";
37 }
38 /^[     ]*NO WARRANTY[  ]*$/, /^[       ]*END OF TERMS AND CONDITIONS[  ]*$/{  
39   if (! ($0 ~ /^[       ]*END OF TERMS AND CONDITIONS[  ]*$/)) 
40   {
41     printf "  \"";
42     for (i = 1; i <= NF; i++)
43     {
44       gsub("\011", "        ", $i);
45       printf "%s", $i;
46     }
47     printf "\\n\"\n", $NF;
48   }
49 }
50 END     {
51   print "  );";
52   print "}";
53   print "";
54   print "#endif";
55 }
56
57
58