2005-03-15 Frank Ch. Eigler <fche@redhat.com>

	* TODO: New file.  Include some probe-point-provider syntax examples.
	* parse.cxx (lexer::scan, parser::parse_literal): Support hex, octal
	numbers via strtol.
	(parse_probe, parse_probe_point): Modify for dotted syntax.
	* staptree.cxx: Ditto.
	* parsetest.cxx, semtest.cxx: Print parse/sem results even if
	.stp files were given on command line.
	* parse.h, staptree.h: Rename probe_point_spec -> probe_point.
	* runtest.sh: New test-runner front-end script.
	* Makefile.am: Use it for TESTS_ENVIRONMENT.
	* testsuite/*: Update probe point syntax.  Add a bunch of new tests.

5 files changed, 37 insertions, 3 deletions

diff --git a/testsuite/parseok/five.stp b/testsuite/parseok/five.stp
new file mode 100755
index 00000000..a475807e
--- /dev/null
+++ b/testsuite/parseok/five.stp
@@ -0,0 +1,19 @@
+#! parsetest
+
+probe lkst("process_contextswitch") {}
+probe syscall("name").return {}
+probe syscall("*") {}
+probe kernel.function("wait_for_godot") {}
+probe kernel.function("name").line(10) {}
+probe kernel.source("mempool.c").line(5004) {}
+probe kernel.address(0xdeadbeef) {}
+probe kernel.module("driver.ko").function("name").return {}
+probe kernel.module("cpqarray.ko").jumptable("ida_fops") {}
+probe kernel.watch("datasymbol").write {}
+probe user("fche").inode("/bin/vi").function("refresh") {}
+probe user.inode("/lib/libc.so.6").function("malloc").return {}
+probe time.real.hz(500) {}
+probe time.virtual.jiffies(100) {}
+probe perfcounter("tlbmiss").count(4000) {}
+probe resource.freemembelow(50) {} # pages?
+probe begin {}
diff --git a/testsuite/parseok/four.stp b/testsuite/parseok/four.stp
new file mode 100755
index 00000000..d381b242
--- /dev/null
+++ b/testsuite/parseok/four.stp
@@ -0,0 +1,7 @@
+#! parsetest
+
+probe syscall ("foo").foo.bar , syscall ("bar"), syscall ("*").return
+{
+  $a = a$a = a$a$ = 0;
+}
+
diff --git a/testsuite/parseok/six.stp b/testsuite/parseok/six.stp
new file mode 100755
index 00000000..6fb9b764
--- /dev/null
+++ b/testsuite/parseok/six.stp
@@ -0,0 +1,8 @@
+#! parsetest
+
+probe one
+{
+  a = 1+01+0x1-1-01-0x1;
+  b = 2147483647;
+  c = -2147483647-1;
+}
diff --git a/testsuite/parseok/three.stp b/testsuite/parseok/three.stp
index b2628d4d..d2401877 100755
--- a/testsuite/parseok/three.stp
+++ b/testsuite/parseok/three.stp
@@ -1,6 +1,6 @@
 #! parsetest
 
-probe kernel:systemcall("foo") 
+probe syscall ("foo")
 {
   $a = a$a = a$a$ = 0;
 }
diff --git a/testsuite/parseok/two.stp b/testsuite/parseok/two.stp
index 6ab3823e..b6b843de 100755
--- a/testsuite/parseok/two.stp
+++ b/testsuite/parseok/two.stp
@@ -1,6 +1,6 @@
 #! parsetest
 
-probe kernel:systemcall("foo") 
+probe syscall (231)
 {
   array[idx] << value;
   if (global > 5) { global -- } else ;
@@ -11,7 +11,7 @@ function foo () {
   return 0;
 }
 
-probe systemtap:end
+probe end
 {
   foo ("value", 4+8);
 }