@@ -1,17 +1,79 @@ #!/bin/bash + +# some rubish code to locate the file ... + +simplify_path () { + curfile=$2 + # simplify path by transforming "//" in "/" + pattern="/\{2,\}" + while ( echo "${curfile}" | grep "${pattern}" >/dev/null 2>&1 ) ; do + curfile=`echo "${curfile}" | sed -e s%"${pattern}"%"/"%` + done + # simplify path by removing "./" + pattern="/\./" + while ( echo "${curfile}" | grep "${pattern}" >/dev/null 2>&1 ) ; do + curfile=`echo "${curfile}" | sed -e s%"${pattern}"%"/"%` + done + # simplify path by transforming "x/y/.." in "x" + pattern="/[^/]\{1,\}/\.\./" + while ( echo "${curfile}" | grep "${pattern}" >/dev/null 2>&1 ) ; do + curfile=`echo "${curfile}" | sed -e s%"${pattern}"%"/"%` + done + eval "$1=$curfile" +} + +locate () { + # Extract the path where this file is located (not where it is run + # from), taking care of dereferencing link and simplifying path. + # (code from FHT commented/set-in-function by LCE) + # + # locate $2 dereferencing link + curpath=$2 + curfile="" + while [ "${curpath}" != "/" ] ; do + if [ -h "${curpath}" ] ; then + lnk=`ls -l ${curpath} | sed -e s%"^.\\{0,\\}[ ]->[ ]\\{1,\\}"%%` + if ( echo "${lnk}" | grep "^/" >/dev/null 2>&1 ) ; then + curpath="${lnk}" + else + curpath="`dirname ${curpath}`/${lnk}" + fi + else + curfile="/`basename ${curpath}`${curfile}" + curpath=`dirname ${curpath}` + fi + done + simplify_path locfile $curfile + eval "$1=$locfile" +} + +# extract application path +if ( echo "${0}" | grep "^/" >/dev/null 2>&1) ; then + CURPATH="${0}" +else + CURPATH="`pwd`/${0}" +fi +locate CURFILE $CURPATH + +# directory where is the current file (file $0) +ROOT=`dirname ${CURFILE}`/.. + + +# running the example start here + EXIT=0 OCAML_NODE_NAME=ocaml ERLANG_NODE_NAME=erl COOKIE=cookie -PWD=`pwd` +APP=$ROOT/carve.native # start erlang first (ensure epmd is running) echo; echo "Test $0: Run and stop an erlang node to ensure epmd is running." erl -sname $ERLANG_NODE_NAME -setcookie $COOKIE -noshell -s init stop echo; echo "Test $0: Run the ocaml server." -./carve.native -name $OCAML_NODE_NAME -cookie $COOKIE & +$APP -name $OCAML_NODE_NAME -cookie $COOKIE & OCAML_PID=$! echo; echo "Test $0: Run erlang node to interact with ocaml node." @@ -23,13 +85,13 @@ erl -sname $ERLANG_NODE_NAME -setcookie $COOKIE -noshell -eval " {eocarving, OcamlNode} ! {self(), R1}, {ok, Carver} = receive {R1, P} -> {ok, P} after 1 -> error end, - Carver ! {set_src_file, \"$PWD/test/river.jpg\"}, - Carver ! {carve_h, -50, \"$PWD/test/river_del50.jpg\"}, - Carver ! {carve_h, +50, \"$PWD/test/river_add50.jpg\"}, + Carver ! {set_src_file, \"$ROOT/test/river.jpg\"}, + Carver ! {carve_h, -50, \"$ROOT/test/river_del50.jpg\"}, + Carver ! {carve_h, +50, \"$ROOT/test/river_add50.jpg\"}, - Carver ! {set_src_file, \"$PWD/test/horses.jpg\"}, - Carver ! {carve_h, -50, \"$PWD/test/horses_del50.jpg\"}, - Carver ! {carve_h, +50, \"$PWD/test/horses_add50.jpg\"}, + Carver ! {set_src_file, \"$ROOT/test/horses.jpg\"}, + Carver ! {carve_h, -50, \"$ROOT/test/horses_del50.jpg\"}, + Carver ! {carve_h, +50, \"$ROOT/test/horses_add50.jpg\"}, Carver ! {self(), stop}, ok = receive {Carver, stopped} -> ok after 5000 -> error end. test/carveh.sh c66066978c050b4679fe47114676b5374a522d6c Ludovic Coquelle lcoquelle@gmail.com http://github.com/khigia/eocarve/commit/8a5f65b8175b27bfc0d792719485b5d31b72760a 8a5f65b8175b27bfc0d792719485b5d31b72760a 2008-05-09T20:19:57-07:00 2008-05-09T20:19:57-07:00 Make test/carveh.sh runnable from any folder location. 0cf6390b93e5fc67cd92febf8aed5a25c834172c Ludovic Coquelle lcoquelle@gmail.com