jungerl/lib/prf/examples/gperf gperf.erl,1.1,1.2 gperf,1.2,1.3 ChangeLog,1.1,1.2

[mats c. <ma...@us...>]

Update of /cvsroot/jungerl/jungerl/lib/prf/examples/gperf
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4919/examples/gperf

Modified Files:
	gperf.erl gperf ChangeLog 
Log Message:
* gperf (Module): 
* gperf.erl (Module): fixed start script (again)


Index: gperf.erl
===================================================================
RCS file: /cvsroot/jungerl/jungerl/lib/prf/examples/gperf/gperf.erl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- gperf.erl	7 Nov 2005 09:49:31 -0000	1.1
+++ gperf.erl	2 Dec 2005 12:38:59 -0000	1.2
@@ -1,5 +1,7 @@
 -module(gperf).
 -export([start/1]).
 
-start([Node]) -> prfHost:start([gperf,Node,gperfConsumer]);
-start(Node) -> prfHost:start(gperf,Node,gperfConsumer).
+start([Node]) -> 				%from bash
+    prfHost:start([gperf,Node,gperfConsumer]),halt();
+start(Node) -> 					%from erlang shell
+    prfHost:start(gperf,Node,gperfConsumer).

Index: gperf
===================================================================
RCS file: /cvsroot/jungerl/jungerl/lib/prf/examples/gperf/gperf,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- gperf	1 Dec 2005 15:40:47 -0000	1.2
+++ gperf	2 Dec 2005 12:38:59 -0000	1.3
@@ -2,23 +2,74 @@
 
 usage(){
     U1="usage: $0 [-setcookie <cookie>] [-nocookie] "
-    U2="[-nettick <tick>] [-nospawn] nodename"
+    U2="[-nettick <tick>] [-win] [-vsn <OTP version>] nodename"
     echo $U1 $U2
     exit
 }
 
+if [ ${0:0:1} == "/" ];then
+    SPATH=$0
+elif [ -x $PWD/$0 ];then
+    SPATH=$PWD/$0
+else
+    SPATH=`which $0`
+fi
+
+n=4
+while [ 0 -lt "$n" ]; do 
+    SPATH=`dirname $SPATH` ; let "n--"
+done
+
+detach="-detached"
+ERL=erl
+
 while [ -n "$1" ] 
   do
-  ARGS="$ARGS $LAST"
-  LAST=$1
+  case $1 in
+      "-help"|"-h"|"-?")
+	  usage
+	  ;;
+      "-win")
+	  WIN="xterm -sb -sl 9999 -bg gold -fg black -e"
+	  detach=""
+	  ;;
+      "-vsn"|"-version")
+	  vsn=$2
+	  shift
+	  ERLP=`which erl`
+	  ERLP=`dirname $ERLP` ; ERLP=`dirname $ERLP` ; ERLP=`dirname $ERLP`
+	  ERL=`echo $ERLP/${vsn}*/bin/erl`
+	  if [ ! -x "$ERL" ]; then usage; fi
+	  ;;
+      "-nettick"|"-tick")
+	  nettick="-kernel net_ticktime $2"
+	  shift 
+	  ;;
+      "-cookie"|"-setcookie")
+	  cookie="-setcookie $2"
+	  shift
+	  ;;
+      "-nocookie")
+	  cookie=""
+	  ;;
+      *)
+	  if [ $# -eq 1 ]; then
+	      TARG=$1
+	  else
+	      usage
+	  fi
+	  ;;
+  esac
   shift
 done
-echo args $ARGS
-echo last $LAST
-if [ -z "$LAST" ]; then usage; fi
+if [ -z "$TARG" ]; then usage; fi
 
-Erl $ARGS \
--pa $JUNGERL/lib/prf/examples/gperf \
--pa $JUNGERL/lib/prf/ebin \
--pa $JUNGERL/lib/gtkNode/ebin \
--s gperf start $LAST
+name="gperf_"$$
+FLAGS="$detach -boot start_sasl -sasl errlog_type error +A16"
+DISTR="-hidden -sname $name $cookie $nettick"
+
+$WIN $ERL $FLAGS $DISTR \
+-pa $SPATH/prf/examples/gperf \
+-pa $SPATH/prf/ebin \
+-pa $SPATH/gtkNode/ebin \
+-s gperf start $TARG

Index: ChangeLog
===================================================================
RCS file: /cvsroot/jungerl/jungerl/lib/prf/examples/gperf/ChangeLog,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- ChangeLog	1 Dec 2005 15:40:47 -0000	1.1
+++ ChangeLog	2 Dec 2005 12:38:59 -0000	1.2
@@ -1,3 +1,8 @@
+2005-12-02  Mats Cronqvist  <locmacr@mwlx084>
+
+	* gperf (Module): 
+	* gperf.erl (Module): fixed start script (again)
+
 2005-12-01  Mats Cronqvist  <locmacr@mwlx084>
 
 	* gperf (Module): bugfix