Mercurial > hg > octave-lyh
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 +}