diff --git a/priv/bin/dtop b/priv/bin/dtop index 26344d9..2aa88b8 100755 --- a/priv/bin/dtop +++ b/priv/bin/dtop @@ -2,7 +2,7 @@ usage(){ cat <<- end -usage: `basename $0` [-setcookie ] [-nocookie] [-nettick ] +usage: `basename $0` [-setcookie ] [-nocookie] [-nettick ] [-win] [-dbg] [-vsn ] [-proxy proxynode] nodename end exit @@ -21,49 +21,49 @@ while [ 0 -lt "$n" ]; do SPATH=`dirname $SPATH`; let n=n-1; done ERL=erl START="-s dtop start" -while [ -n "$1" ] +while [ -n "$1" ] do case $1 in "-help"|"-h"|"-?") - usage - ;; + usage + ;; "-dbg") - ;; + ;; "-win") - WIN="xterm -sb -sl 9999 -bg gold -fg black -e" - ;; + WIN="xterm -sb -sl 9999 -bg gold -fg black -e" + ;; "-vsn"|"-version") - shift - VSN="+R "$1 - ;; + shift + VSN="+R "$1 + ;; "-nettick"|"-tick") - shift - nettick="-kernel net_ticktime $1" - ;; + shift + nettick="-kernel net_ticktime $1" + ;; "-cookie"|"-setcookie") - shift - cookie="-setcookie $1" - ;; + shift + cookie="-setcookie $1" + ;; "-nocookie") - cookie="" - ;; + cookie="" + ;; "-proxy") - shift - proxy="$1" - ;; + shift + proxy="$1" + ;; *) - if [ $# -eq 1 ]; then - TARG=$1 - else - usage - fi - ;; + if [ $# -eq 1 ]; then + TARG=$1 + else + usage + fi + ;; esac shift done -if [ -z "$TARG" ]; then - usage; +if [ -z "$TARG" ]; then + usage; else START="$START $TARG $proxy" fi diff --git a/priv/bin/gperf b/priv/bin/gperf index a88301a..dca15ca 100755 --- a/priv/bin/gperf +++ b/priv/bin/gperf @@ -2,7 +2,7 @@ usage(){ cat <<- end -usage: `basename $0` [-setcookie ] [-nocookie] [-nettick ] +usage: `basename $0` [-setcookie ] [-nocookie] [-nettick ] [-pa ] [-win] [-dbg] [-vsn ] [-proxy proxy] [node] end exit @@ -21,9 +21,9 @@ while [ 0 -lt "$n" ]; do SPATH=`dirname $SPATH`; let n=n-1; done PATHS="" for p in $SPATH/gtknode-*/ebin $SPATH/eper-*/ebin; do if [ "${p: -7}" == "-*/ebin" ]; then - echo "Can't expand $p.${p: -7}" + echo "Can't expand $p.${p: -7}" else - PATHS=$PATHS" -pa $p" + PATHS=$PATHS" -pa $p" fi done @@ -33,46 +33,46 @@ START="-s gperf ni" HALT="-s erlang halt" XTRA="" -while [ -n "$1" ] +while [ -n "$1" ] do case $1 in "-help"|"-h"|"-?") - usage - ;; + usage + ;; "-win") - WIN="xterm -sb -sl 9999 -bg gold -fg black -e" + WIN="xterm -sb -sl 9999 -bg gold -fg black -e" START="-s gperf start" HALT="" - detach="" - ;; + detach="" + ;; "-dbg") START="-s gperf start" HALT="" - detach="" - ;; + detach="" + ;; "-vsn"|"-version") - shift - VSN="+R $1" - ;; + shift + VSN="+R $1" + ;; "-nettick"|"-tick") - shift - nettick="-kernel net_ticktime $1" - ;; + shift + nettick="-kernel net_ticktime $1" + ;; "-cookie"|"-setcookie") - shift - cookie="-setcookie $1" - ;; + shift + cookie="-setcookie $1" + ;; "-nocookie") - cookie="" - ;; + cookie="" + ;; "-pa") - shift - XTRA="-pa $1 $XTRA" - ;; + shift + XTRA="-pa $1 $XTRA" + ;; "-proxy") - shift - proxy="$1" - ;; + shift + proxy="$1" + ;; "-*") echo dollar_one $1 ;; diff --git a/priv/bin/ntop b/priv/bin/ntop index e6138e7..bb92fb7 100755 --- a/priv/bin/ntop +++ b/priv/bin/ntop @@ -2,7 +2,7 @@ usage(){ cat <<- end -usage: [-setcookie ] [-nocookie] [-nettick ] +usage: [-setcookie ] [-nocookie] [-nettick ] [-win] [-dbg] [-vsn ] [-proxy proxynode] nodename end exit @@ -23,49 +23,49 @@ while [ 0 -lt "$n" ]; do SPATH=`dirname $SPATH`; let n=n-1; done ERL=erl START="-s $script start" -while [ -n "$1" ] +while [ -n "$1" ] do case $1 in "-help"|"-h"|"-?") - usage - ;; + usage + ;; "-dbg") - ;; + ;; "-win") - WIN="xterm -sb -sl 9999 -bg gold -fg black -e" - ;; + WIN="xterm -sb -sl 9999 -bg gold -fg black -e" + ;; "-vsn"|"-version") - shift - VSN="+R "$1 - ;; + shift + VSN="+R "$1 + ;; "-nettick"|"-tick") - shift - nettick="-kernel net_ticktime $1" - ;; + shift + nettick="-kernel net_ticktime $1" + ;; "-cookie"|"-setcookie") - shift - cookie="-setcookie $1" - ;; + shift + cookie="-setcookie $1" + ;; "-nocookie") - cookie="" - ;; + cookie="" + ;; "-proxy") - shift - proxy="$1" - ;; + shift + proxy="$1" + ;; *) - if [ $# -eq 1 ]; then - TARG=$1 - else - usage - fi - ;; + if [ $# -eq 1 ]; then + TARG=$1 + else + usage + fi + ;; esac shift done -if [ -z "$TARG" ]; then - usage; +if [ -z "$TARG" ]; then + usage; else START="$START $TARG $proxy" fi diff --git a/priv/bin/redbug b/priv/bin/redbug index a7d2bee..493b886 100755 --- a/priv/bin/redbug +++ b/priv/bin/redbug @@ -15,33 +15,33 @@ VSN="" XTRA="" echo="" -while [ -n "$1" ] +while [ -n "$1" ] do case $1 in "--help"|"-h"|"-?") - usage - ;; + usage + ;; "-vsn"|"-version") - VSN="+R "$2 - shift - ;; + VSN="+R "$2 + shift + ;; "-nettick"|"-tick") - nettick="-kernel net_ticktime $2" - shift - ;; + nettick="-kernel net_ticktime $2" + shift + ;; "-cookie"|"-setcookie") - cookie="-setcookie $2" - shift - ;; + cookie="-setcookie $2" + shift + ;; "-debug") echo=echo ;; "-nocookie") - cookie="" - ;; + cookie="" + ;; "-*") echo unrecognized flag $1 - usage + usage ;; *) XTRA=" $XTRA $1" @@ -53,7 +53,7 @@ done if [ -z "$XTRA" ]; then usage; fi PATHS="-pa $self/ebin" -name="redbug_"$$ +name="redbug_"$$ DISTR="-noshell -hidden -sname $name $cookie $nettick" START="-run redbug unix" diff --git a/priv/bin/sherk b/priv/bin/sherk index 07b4926..1f9ea1d 100644 --- a/priv/bin/sherk +++ b/priv/bin/sherk @@ -26,35 +26,35 @@ detach="-detached" VSN="" START="-s sherk ni -s erlang halt" -while [ -n "$1" ] +while [ -n "$1" ] do case $1 in "-help"|"-h"|"-?") - usage - ;; + usage + ;; "-win") - WIN="xterm -sb -sl 9999 -bg gold -fg black -e" + WIN="xterm -sb -sl 9999 -bg gold -fg black -e" START="-s sherk go" - detach="" - ;; + detach="" + ;; "-vsn"|"-version") - VSN="+R "$2 - shift - ;; + VSN="+R "$2 + shift + ;; "-nettick"|"-tick") - nettick="-kernel net_ticktime $2" - shift - ;; + nettick="-kernel net_ticktime $2" + shift + ;; "-cookie"|"-setcookie") - cookie="-setcookie $2" - shift - ;; + cookie="-setcookie $2" + shift + ;; "-nocookie") - cookie="" - ;; + cookie="" + ;; *) usage - ;; + ;; esac shift done diff --git a/src/redbug.erl b/src/redbug.erl index 24141fe..6bb0e66 100644 --- a/src/redbug.erl +++ b/src/redbug.erl @@ -117,7 +117,7 @@ unix([Node,Time,Msgs,Trc,Proc]) -> try Cnf = #cnf{time = to_int(Time), msgs = to_int(Msgs), - trc = to_term(Trc), + trc = try to_term(Trc) catch _:_ -> Trc end, proc = to_atom(Proc), target = to_atom(Node)}, self() ! {start,Cnf},