X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=interpreters%2Fnitfol%2Fcopying.awk;fp=interpreters%2Fnitfol%2Fcopying.awk;h=15bb686bec006f44b5d22d3c55947011761dbb3e;hb=b1f1dc50b22b30c4d7176e1ff7c0805e80fe0724;hp=0000000000000000000000000000000000000000;hpb=50176172d18ae72d019181725c5629d45d21c548;p=projects%2Fchimara%2Fchimara.git

diff --git a/interpreters/nitfol/copying.awk b/interpreters/nitfol/copying.awk
new file mode 100644
index 0000000..15bb686
--- /dev/null
+++ b/interpreters/nitfol/copying.awk
@@ -0,0 +1,58 @@
+BEGIN	{
+  FS="\"";
+  print "/* ==> Do not modify this file!!  It is created automatically";
+  print "   by copying.awk.  Modify copying.awk instead.  <== */";
+  print "";
+  print "#ifdef DEBUGGING";
+  print "";
+  print "#include \"nitfol.h\"";
+  print "";
+  print "void show_copying(void)";
+  print "{";
+  print "  infix_print_fixed_string(";
+}
+NR == 1,/^[ 	]*NO WARRANTY[ 	]*$/	{
+  if ($0 ~ //)
+  {
+    print "  \"\\n\\n\"";
+  }
+  else if ($0 !~ /^[ 	]*NO WARRANTY[ 	]*$/) 
+  {
+    printf "  \"";
+    for (i = 1; i <= NF; i++)
+    {
+      gsub("\011", "        ", $i);
+      printf "%s", $i;
+    }
+    printf "\\n\"\n";
+  }
+}
+/^[	 ]*NO WARRANTY[ 	]*$/	{
+  print "  );";
+  print "}";
+  print "";
+  print "void show_warranty(void)";
+  print "{";
+  print "  infix_print_fixed_string(";
+}
+/^[ 	]*NO WARRANTY[ 	]*$/, /^[ 	]*END OF TERMS AND CONDITIONS[ 	]*$/{  
+  if (! ($0 ~ /^[ 	]*END OF TERMS AND CONDITIONS[ 	]*$/)) 
+  {
+    printf "  \"";
+    for (i = 1; i <= NF; i++)
+    {
+      gsub("\011", "        ", $i);
+      printf "%s", $i;
+    }
+    printf "\\n\"\n", $NF;
+  }
+}
+END	{
+  print "  );";
+  print "}";
+  print "";
+  print "#endif";
+}
+
+
+