diff options
author | fche <fche> | 2005-12-12 17:39:53 +0000 |
---|---|---|
committer | fche <fche> | 2005-12-12 17:39:53 +0000 |
commit | a9c62ac9b339211d80b013eac75ba47f8a39d478 (patch) | |
tree | 235ad14256204134f14b55080f8c2b40a2186ea7 /testsuite/parseok | |
parent | 9cb3a339871fa02385f16d896471ac8b7941e580 (diff) | |
download | systemtap-steved-a9c62ac9b339211d80b013eac75ba47f8a39d478.tar.gz systemtap-steved-a9c62ac9b339211d80b013eac75ba47f8a39d478.tar.xz systemtap-steved-a9c62ac9b339211d80b013eac75ba47f8a39d478.zip |
2005-12-12 Frank Ch. Eigler <fche@redhat.com>
Fix parse tree pretty-printer.
* staptree.h (print_format): Add raw_components field.
* parse.cxx (parse_symbol): Set it.
* staptree.cxx (lex_cast_qstring): Copy it here too.
(binary_expression::print): Add a space around operator, due to
lexical ambiguity (expr % paren-expr) vs %( preprocessor op.
(array_in:: foreach_loop:: arrayindex::print): Print base as indexable.
(print_format::string_to_components): Use parse_error, not semantic.
(print_format::print): Properly quote formatting string. Print
histogram argument.
* translate.cxx (visit_print_format): Properly quote formatting string.
(varlock): Reword lock timeout error message.
* testsuite/buildok/printf.stp: Add some quoting troublemakers.
* testsuite/parseok/unparser.stp: New file.
Diffstat (limited to 'testsuite/parseok')
-rwxr-xr-x | testsuite/parseok/unparser.stp | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/testsuite/parseok/unparser.stp b/testsuite/parseok/unparser.stp new file mode 100755 index 00000000..710c4636 --- /dev/null +++ b/testsuite/parseok/unparser.stp @@ -0,0 +1,21 @@ +#! /bin/sh + +set -e + +for dir in ${SRCDIR}/testsuite/parseok \ +${SRCDIR}/testsuite/semok \ +${SRCDIR}/testsuite/semko \ +${SRCDIR}/testsuite/transok \ +${SRCDIR}/testsuite/transko \ +${SRCDIR}/testsuite/buildok \ +${SRCDIR}/testsuite/buildko +do + for file in $dir/*.stp + do + if head -1 $file | grep -q stap + then + echo $file + ./stap -p1 $file | ./stap -p1 - > /dev/null + fi + done +done |