diff liboctave/mk-ops.awk @ 4547:308feb0e5646

[project @ 2003-10-25 01:59:15 by jwe]
author jwe
date Sat, 25 Oct 2003 01:59:15 +0000
parents 74c92e375b54
children a1ac9ab474a1
line wrap: on
line diff
--- a/liboctave/mk-ops.awk
+++ b/liboctave/mk-ops.awk
@@ -2,25 +2,26 @@
   declare_types = 0;
   generate_ops = 0;
   ntypes = 0;
-  if (make_inclusive_header)
+} {
+  if (NR == 1 && make_inclusive_header)
     {
+      print "// DO NOT EDIT -- generated by mk-ops";
       tmp = make_inclusive_header;
-      gsub ("\\.-", "_", tmp);
+      gsub (/[\.-]/, "_", tmp);
       printf ("#if !defined (octave_%s)\n", tmp);
       printf ("#define octave_%s 1\n", tmp);
     }
 }
-  /^#/ {
-    if ($2 == "types")
-      declare_types = 1;
-    else if ($2 == "ops")
-      {
-        generate_ops = 1;
-        declare_types = 0;
-      }
-    next;
-  }
-{
+/^#/ {
+  if ($2 == "types")
+    declare_types = 1;
+  else if ($2 == "ops")
+    {
+      generate_ops = 1;
+      declare_types = 0;
+    }
+  next;
+} {
   if (declare_types)
     {
       ntypes++;
@@ -84,7 +85,10 @@
 	    }
 
 	  if (make_inclusive_header)
-            printf ("#include \"%s\"\n", h_file);
+	    {
+              printf ("#include \"%s\"\n", h_file);
+              next;
+            }
 
 	  h_guard = sprintf ("octave_%s_%s_%s_h", prefix, lhs_tag, rhs_tag);
 
@@ -192,4 +196,4 @@
 END {
   if (make_inclusive_header)
     print "#endif";
-}
\ No newline at end of file
+}