From 3f99432cc11977a4345c881bed3aa60a1a614238 Mon Sep 17 00:00:00 2001 From: fche Date: Wed, 8 Aug 2007 03:36:25 +0000 Subject: 2007-08-07 Frank Ch. Eigler PR 4846 * parse.cxx (input_put): New function, sort of like stdio ungetc. (input_get): Skip cursor position changing for input_put strings. (scan): Rework $.../@... substitution into character pasting. * parse.h: Corresponding changes. * util.h (lex_cast_qstring): Octal-quote unprintable characters. * stap.1.in, NEWS: Document new behaviour. 2007-08-07 Frank Ch. Eigler PR 4846 * parseko/preprocess13.stp, parseok/nineteen.stp, semok/twentyfive.stp: New tests. --- testsuite/ChangeLog | 6 ++++++ testsuite/parseko/preprocess13.stp | 4 ++++ testsuite/parseok/nineteen.stp | 3 +++ testsuite/semok/twentyfive.stp | 8 ++++++++ 4 files changed, 21 insertions(+) create mode 100755 testsuite/parseko/preprocess13.stp create mode 100755 testsuite/parseok/nineteen.stp create mode 100755 testsuite/semok/twentyfive.stp (limited to 'testsuite') diff --git a/testsuite/ChangeLog b/testsuite/ChangeLog index 8a95ff1e..ee107c22 100644 --- a/testsuite/ChangeLog +++ b/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2007-08-07 Frank Ch. Eigler + + PR 4846 + * parseko/preprocess13.stp, parseok/nineteen.stp, + semok/twentyfive.stp: New tests. + 2007-08-07 David Smith PR 4736 (partial fix) diff --git a/testsuite/parseko/preprocess13.stp b/testsuite/parseko/preprocess13.stp new file mode 100755 index 00000000..9ef34f59 --- /dev/null +++ b/testsuite/parseko/preprocess13.stp @@ -0,0 +1,4 @@ +#! /bin/sh + +# recursive +stap -p1 -e '$1' '$1' diff --git a/testsuite/parseok/nineteen.stp b/testsuite/parseok/nineteen.stp new file mode 100755 index 00000000..1d36b590 --- /dev/null +++ b/testsuite/parseok/nineteen.stp @@ -0,0 +1,3 @@ +#! /bin/sh + +stap -p1 -e '$1 {log (@1.@2)}' 'probe foo' ' ' # <- control codes diff --git a/testsuite/semok/twentyfive.stp b/testsuite/semok/twentyfive.stp new file mode 100755 index 00000000..fadca484 --- /dev/null +++ b/testsuite/semok/twentyfive.stp @@ -0,0 +1,8 @@ +#! /bin/sh + +set -e +stap -p2 -e 'probe begin {foo$1$2$3}' # $-expansion only at token head +stap -p2 -e 'probe $1 $2' 'syscall.open,begin' '{log ("hello\n")}' +stap -p2 -e 'probe begin {@1 @2}' 'syscall.open,begin' '{log ("hello\n")}' +stap -p2 -e 'probe begin {log (@1.@2)}' 'syscall.open,begin' '{log ("hello\n")}' + -- cgit