Mercurial > hg > octave-nkf
diff liboctave/sparse-mk-ops.awk @ 10317:42d098307c30
untabify additional source files
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 11 Feb 2010 13:30:42 -0500 |
parents | 4270ded9ddc6 |
children | fd0a3ac60b0e |
line wrap: on
line diff
--- a/liboctave/sparse-mk-ops.awk +++ b/liboctave/sparse-mk-ops.awk @@ -65,184 +65,184 @@ result_tag_2 = $2; lhs_tag = $3; rhs_tag = $4; - op_type = $5; + op_type = $5; - bin_ops = index (op_type, "B") != 0; - cmp_ops = index (op_type, "C") != 0; - eqne_ops = index (op_type, "E") != 0; - bool_ops = index (op_type, "L") != 0; + bin_ops = index (op_type, "B") != 0; + cmp_ops = index (op_type, "C") != 0; + eqne_ops = index (op_type, "E") != 0; + bool_ops = index (op_type, "L") != 0; n = 5; lhs_conv = cmp_ops ? $(++n) : ""; rhs_conv = cmp_ops ? $(++n) : ""; - if (lhs_conv == "NONE") - lhs_conv = ""; + if (lhs_conv == "NONE") + lhs_conv = ""; - if (rhs_conv == "NONE") - rhs_conv = ""; + if (rhs_conv == "NONE") + rhs_conv = ""; - k = 0 - while (NF > n) - bool_headers[k++] = $(++n); + k = 0 + while (NF > n) + bool_headers[k++] = $(++n); - cc_file = sprintf ("%s-%s-%s.cc", prefix, lhs_tag, rhs_tag); - h_file = sprintf ("%s-%s-%s.h", prefix, lhs_tag, rhs_tag); + cc_file = sprintf ("%s-%s-%s.cc", prefix, lhs_tag, rhs_tag); + h_file = sprintf ("%s-%s-%s.h", prefix, lhs_tag, rhs_tag); - if (list_cc_files) - { - print cc_file; - next; - } + if (list_cc_files) + { + print cc_file; + next; + } - if (list_h_files) - { - print h_file; - next; - } + if (list_h_files) + { + print h_file; + next; + } - if (make_inclusive_header) - { + if (make_inclusive_header) + { printf ("#include \"%s\"\n", h_file); next; } - h_guard = sprintf ("octave_%s_%s_%s_h", prefix, lhs_tag, rhs_tag); + h_guard = sprintf ("octave_%s_%s_%s_h", prefix, lhs_tag, rhs_tag); - result_num_1 = rev_tag[result_tag_1]; - result_num_2 = rev_tag[result_tag_2]; - lhs_num = rev_tag[lhs_tag]; - rhs_num = rev_tag[rhs_tag]; + result_num_1 = rev_tag[result_tag_1]; + result_num_2 = rev_tag[result_tag_2]; + lhs_num = rev_tag[lhs_tag]; + rhs_num = rev_tag[rhs_tag]; - result_type_1 = type[result_num_1]; - result_type_2 = type[result_num_2]; - lhs_type = type[lhs_num]; + result_type_1 = type[result_num_1]; + result_type_2 = type[result_num_2]; + lhs_type = type[lhs_num]; rhs_type = type[rhs_num]; - result_scalar_zero_val_1 = scalar_zero_val[result_num_1]; - result_scalar_zero_val_2 = scalar_zero_val[result_num_2]; + result_scalar_zero_val_1 = scalar_zero_val[result_num_1]; + result_scalar_zero_val_2 = scalar_zero_val[result_num_2]; lhs_scalar_zero_val = scalar_zero_val[lhs_num]; rhs_scalar_zero_val = scalar_zero_val[rhs_num]; - result_header_1 = header[result_num_1]; - result_header_2 = header[result_num_2]; - lhs_header = header[lhs_num]; + result_header_1 = header[result_num_1]; + result_header_2 = header[result_num_2]; + lhs_header = header[lhs_num]; rhs_header = header[rhs_num]; - lhs_class = class[lhs_num]; - rhs_class = class[rhs_num]; + lhs_class = class[lhs_num]; + rhs_class = class[rhs_num]; - print "// DO NOT EDIT -- generated by sparse-mk-ops" > h_file; + print "// DO NOT EDIT -- generated by sparse-mk-ops" > h_file; - printf ("#if !defined (%s)\n", h_guard) >> h_file; - printf ("#define %s 1\n", h_guard) >> h_file; + printf ("#if !defined (%s)\n", h_guard) >> h_file; + printf ("#define %s 1\n", h_guard) >> h_file; if (result_header_1) - { - if (result_fwd_decl_ok) - printf ("class %s\n", result_type_1) >> h_file; - else - printf ("#include \"%s\"\n", result_header_1) >> h_file; - } + { + if (result_fwd_decl_ok) + printf ("class %s\n", result_type_1) >> h_file; + else + printf ("#include \"%s\"\n", result_header_1) >> h_file; + } if (result_header_2 && ! (result_header_2 == result_header_1)) - { - if (result_fwd_decl_ok) - printf ("class %s\n", result_type_2) >> h_file; - else - printf ("#include \"%s\"\n", result_header_2) >> h_file; - } + { + if (result_fwd_decl_ok) + printf ("class %s\n", result_type_2) >> h_file; + else + printf ("#include \"%s\"\n", result_header_2) >> h_file; + } if (lhs_header && ! (lhs_header == result_header_1 || lhs_header == result_header_2)) - { - if (result_fwd_decl_ok) - printf ("class %s\n", lhs_type) >> h_file; - else - printf ("#include \"%s\"\n", lhs_header) >> h_file; - } + { + if (result_fwd_decl_ok) + printf ("class %s\n", lhs_type) >> h_file; + else + printf ("#include \"%s\"\n", lhs_header) >> h_file; + } if (rhs_header && ! (rhs_header == lhs_header || rhs_header == result_header_1 || rhs_header == result_header_2)) - { - if (result_fwd_decl_ok) - printf ("class %s\n", rhs_type) >> h_file; - else - printf ("#include \"%s\"\n", rhs_header) >> h_file; - } + { + if (result_fwd_decl_ok) + printf ("class %s\n", rhs_type) >> h_file; + else + printf ("#include \"%s\"\n", rhs_header) >> h_file; + } printf ("#include \"Sparse-op-defs.h\"\n") >> h_file; if (bin_ops) printf ("SPARSE_%s%s_BIN_OP_DECLS (%s, %s, %s, %s, OCTAVE_API)\n", lhs_class, - rhs_class, result_type_1, result_type_2, lhs_type, - rhs_type) >> h_file + rhs_class, result_type_1, result_type_2, lhs_type, + rhs_type) >> h_file if (cmp_ops) printf ("SPARSE_%s%s_CMP_OP_DECLS (%s, %s, OCTAVE_API)\n", lhs_class, - rhs_class, lhs_type, rhs_type) >> h_file + rhs_class, lhs_type, rhs_type) >> h_file if (eqne_ops) printf ("SPARSE_%s%s_EQNE_OP_DECLS (%s, %s, OCTAVE_API)\n", lhs_class, - rhs_class, lhs_type, rhs_type) >> h_file + rhs_class, lhs_type, rhs_type) >> h_file if (bool_ops) printf ("SPARSE_%s%s_BOOL_OP_DECLS (%s, %s, OCTAVE_API)\n", lhs_class, - rhs_class, lhs_type, rhs_type) >> h_file + rhs_class, lhs_type, rhs_type) >> h_file print "#endif" >> h_file; - close (h_file); + close (h_file); - print "// DO NOT EDIT -- generated by sparse-mk-ops" > cc_file; + print "// DO NOT EDIT -- generated by sparse-mk-ops" > cc_file; - ## print "#ifdef HAVE_CONFIG_H" >> cc_file; - print "#include <config.h>" >> cc_file; - ## print "#endif" >> cc_file; + ## print "#ifdef HAVE_CONFIG_H" >> cc_file; + print "#include <config.h>" >> cc_file; + ## print "#endif" >> cc_file; - print "#include \"Array-util.h\"" >> cc_file; - print "#include \"quit.h\"" >> cc_file; + print "#include \"Array-util.h\"" >> cc_file; + print "#include \"quit.h\"" >> cc_file; - printf ("#include \"%s\"\n", h_file) >> cc_file; + printf ("#include \"%s\"\n", h_file) >> cc_file; - for (i in bool_headers) - { - printf ("#include \"%s\"\n", bool_headers[i]) >> cc_file; - delete bool_headers[i]; - } + for (i in bool_headers) + { + printf ("#include \"%s\"\n", bool_headers[i]) >> cc_file; + delete bool_headers[i]; + } if (result_header_1) - printf ("#include \"%s\"\n", result_header_1) >> cc_file; + printf ("#include \"%s\"\n", result_header_1) >> cc_file; if (result_header_2 && ! (result_header_2 == result_header_1)) - printf ("#include \"%s\"\n", result_header_2) >> cc_file; + printf ("#include \"%s\"\n", result_header_2) >> cc_file; if (lhs_header && ! (lhs_header == result_header_1 || lhs_header == result_header_2)) - printf ("#include \"%s\"\n", lhs_header) >> cc_file; + printf ("#include \"%s\"\n", lhs_header) >> cc_file; if (rhs_header && ! (rhs_header == lhs_header || rhs_header == result_header_1 || rhs_heaer == result_header_2)) - printf ("#include \"%s\"\n", rhs_header) >> cc_file; + printf ("#include \"%s\"\n", rhs_header) >> cc_file; - if (bin_ops) + if (bin_ops) printf ("SPARSE_%s%s_BIN_OPS (%s, %s, %s, %s)\n", lhs_class, - rhs_class, result_type_1, result_type_2, lhs_type, - rhs_type) >> cc_file + rhs_class, result_type_1, result_type_2, lhs_type, + rhs_type) >> cc_file if (cmp_ops) printf ("SPARSE_%s%s_CMP_OPS (%s, %s, %s, %s, %s, %s)\n", - lhs_class, rhs_class, lhs_type, lhs_scalar_zero_val, - lhs_conv, rhs_type, rhs_scalar_zero_val, rhs_conv) >> cc_file + lhs_class, rhs_class, lhs_type, lhs_scalar_zero_val, + lhs_conv, rhs_type, rhs_scalar_zero_val, rhs_conv) >> cc_file if (eqne_ops) printf ("SPARSE_%s%s_EQNE_OPS (%s, %s, %s, %s, %s, %s)\n", - lhs_class, rhs_class, lhs_type, lhs_scalar_zero_val, - lhs_conv, rhs_type, rhs_scalar_zero_val, rhs_conv) >> cc_file + lhs_class, rhs_class, lhs_type, lhs_scalar_zero_val, + lhs_conv, rhs_type, rhs_scalar_zero_val, rhs_conv) >> cc_file if (bool_ops) printf ("SPARSE_%s%s_BOOL_OPS2 (%s, %s, %s, %s)\n", lhs_class, - rhs_class, lhs_type, rhs_type, lhs_scalar_zero_val, - rhs_scalar_zero_val) >> cc_file + rhs_class, lhs_type, rhs_type, lhs_scalar_zero_val, + rhs_scalar_zero_val) >> cc_file close (cc_file);