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