2007-09-28 Wenji Huang <wenji.huang@oracle.com>

        * lib/systemtap.exp: New proc get_system_info.
        * lib/stap_run.exp: New proc print_system_info.

1 files changed, 16 insertions, 0 deletions

diff --git a/testsuite/lib/systemtap.exp b/testsuite/lib/systemtap.exp
index 6c8ed540..5b08c233 100644
--- a/testsuite/lib/systemtap.exp
+++ b/testsuite/lib/systemtap.exp
@@ -49,9 +49,25 @@ proc setup_systemtap_environment {} {
     }
 }
 
+proc get_system_info {} {
+    global Host Snapshot Distro env
+    
+    set Host [exec /bin/uname -a] 
+    if [file exists $env(SRCDIR)/../SNAPSHOT] {
+	set Snapshot [exec /bin/cat $env(SRCDIR)/../SNAPSHOT]
+    } else {
+	set Snapshot "unknown"
+	}
+    set Distro "Linux"
+    if [file exists /etc/fedora-release] {set Distro [exec /bin/cat /etc/fedora-release]}
+    if [file exists /etc/redhat-release] {set Distro [exec /bin/cat /etc/redhat-release]}
+    if [file exists /etc/suse-release] {set Distro [exec /bin/cat /etc/suse-release]}
+    if [file exists /etc/debian_version] {set Distro [exec /bin/cat /etc/debian_version]}
+}
 
 setup_systemtap_environment
 print_systemtap_version
+get_system_info
 
 proc systemtap_init {args} {}
 proc systemtap_version {} {}