ChangeLogTag: Tue Dec 31 21:21:26 2002 Balachandran Natarajan <bala@isis-server.isis.vanderbilt.edu>

4 files changed, 99 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index 06f02de9b40..92288013eb9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+Tue Dec 31 21:21:26 2002  Balachandran Natarajan  <bala@isis-server.isis.vanderbilt.edu>
+
+	* bin/generate_topinfo_charts.sh:
+	* bin/topinfo_stats.sh: Scripts to track the memory usage and plot
+	  them. At present it works only for the simple test in
+	  $TAO_ROOT/performance-tests/Memory/Single_Threaded. 
+
 Tue Dec 31 17:57:19 2002  Steve Huston  <shuston@riverace.com>
 
         * examples/Service_Configurator/IPC-tests/server/Handle_Thr_Stream.h:
diff --git a/ChangeLogs/ChangeLog-03a b/ChangeLogs/ChangeLog-03a
index 06f02de9b40..92288013eb9 100644
--- a/ChangeLogs/ChangeLog-03a
+++ b/ChangeLogs/ChangeLog-03a
@@ -1,3 +1,10 @@
+Tue Dec 31 21:21:26 2002  Balachandran Natarajan  <bala@isis-server.isis.vanderbilt.edu>
+
+	* bin/generate_topinfo_charts.sh:
+	* bin/topinfo_stats.sh: Scripts to track the memory usage and plot
+	  them. At present it works only for the simple test in
+	  $TAO_ROOT/performance-tests/Memory/Single_Threaded. 
+
 Tue Dec 31 17:57:19 2002  Steve Huston  <shuston@riverace.com>
 
         * examples/Service_Configurator/IPC-tests/server/Handle_Thr_Stream.h:
diff --git a/bin/generate_topinfo_charts.sh b/bin/generate_topinfo_charts.sh
new file mode 100755
index 00000000000..d4ba57af942
--- /dev/null
+++ b/bin/generate_topinfo_charts.sh
@@ -0,0 +1,17 @@
+#!/bin/sh
+#
+# $Id$
+#
+
+gnuplot <<_EOF_ >/tmp/null.bala 2>&1
+  set xdata time
+  set timefmt '%Y/%m/%d-%H:%M'
+  set xlabel 'Date (MM/DD)'
+  set ylabel 'Size (KBytes)'
+  set terminal png small color
+  set yrange [3000:6000]    
+  set output "$2"
+  plot '$1' using 1:2 title '$3' w l
+  exit
+_EOF_
+
diff --git a/bin/topinfo_stats.sh b/bin/topinfo_stats.sh
new file mode 100755
index 00000000000..c2fe1ac1993
--- /dev/null
+++ b/bin/topinfo_stats.sh
@@ -0,0 +1,68 @@
+#!/bin/sh
+#
+# $Id$
+#
+
+
+if [ $# -lt 2 ]; then
+  echo "Usage: $0 [ROOT] [DEST]"
+  exit 0
+fi
+
+ROOT=$1
+DEST=$2
+DATE=`date +%Y/%m/%d-%H:%M`
+cd $ROOT
+ACE_ROOT=$ROOT
+export ACE_ROOT
+cd TAO/performance-tests/Memory/Single_Threaded
+# start the server
+./server &
+s_id=$!;
+# Just sleep for 2 seconds.
+sleep 2;
+# Check whether the server has started 
+file="test.ior"
+if test -f $file
+    then
+    # Just get the size as soon the server is started, ie. the vanilla
+    # server.  
+    s_up=`top -p $s_id -n 1 | grep $USER| awk '{print $5}'`;
+
+    # Write it a file
+    echo $DATE $s_up >> $DEST/source/st_start_size.txt
+    # start the client
+    ./client &
+    c_id=$!;
+    # Wait till all the invocations are done
+    sleep 10;
+    # Get the size once the client has made sufficient invocations. 
+    s_invocations=`top -p $s_id -n 1 | grep $USER| awk '{print $5}'`;
+    cd $ROOT
+    
+    echo $DATE $s_invocations >> $DEST/source/st_after_invoke_size.txt
+
+    # Kill the server and client. We will look at better ways of doing
+    # this later. 
+    kill -9 $c_id;
+    
+    # Just sleep for the server to release memory etc.
+    sleep 5;
+
+    # Get the size once the client is killed or crashed
+    s_client_death=`top -p $s_id -n 1 | grep $USER| awk '{print $5}'`;
+    echo $DATE $s_client_death  >> $DEST/source/st_after_peer_death_size.txt
+    kill -9 $s_id;
+else
+    echo $file doesnt exist
+fi
+
+
+cd $DEST/source
+
+FILES="start after_invoke after_peer_death"
+for i in $FILES ; do
+/usr/bin/tac st_${i}_size.txt > $DEST/data/st_${i}_size.txt
+/usr/bin/tail -5 st_${i}_size.txt > $DEST/data/LAST_st_${i}_size.txt
+$ROOT/bin/generate_topinfo_charts.sh st_${i}_size.txt $DEST/images/st_${i}_size.png st_${i}_size.txt
+done