22

✏️ Editing: lneato

#!/bin/sh
FILES=""
MLEVEL="0"
LMODE="async"
FLAGS=

usage="echo usage: lneato [-V] [-lm (sync|async)] [-el (0|1)] <filename>"

if test "x$DOTTYOPTIONS" != "x"
then
    options=$DOTTYOPTIONS
else
    options="$@"
fi

set -- $options

for i in "$@"
do
	if test "x$i" = "x$1"
	then
		case $i in
		-V)
			shift
			echo "lneato version 95 (04-18-95)"
			FLAGS=$FLAGS" -V"
			;;
		-lm)
			shift
			LMODE="$1"
			shift
			if test "x$LMODE" != "xsync" -a "x$LMODE" != "xasync"
			then
				$usage
				exit 1
			fi
			;;
		-el)
			shift
			MLEVEL="$1"
			shift
			if test "x$MLEVEL" != "x0" -a "x$MLEVEL" != "x1"
			then
				$usage
				exit 1
			fi
			;;
		-?*)
			$usage
			exit 1
			;;
		*)
			FILES="$FILES '"$1"'"
			shift
			;;
		esac
	fi
done

if test "x$MLEVEL" != "x0"
then
	echo "FILES  = $FILES"
	echo "MLEVEL = $MLEVEL"
	echo "LMODE  = $LMODE"
fi

if test "x$DOTTYPATH" != "x"
then
    LEFTYPATH="$DOTTYPATH:$LEFTYPATH"
fi

CMDS="dotty.layoutmode = '$LMODE';"
CMDS="$CMDS dotty.mlevel = $MLEVEL; dot.mlevel =  $MLEVEL;"

if test "x$FILES" = "x"
then
    FILES=null
fi
for i in $FILES
do
	CMDS="$CMDS dotty.createviewandgraph($i,'file',null,null);"
done

lefty $FLAGS -e "
load ('dotty.lefty');

checkpath = function () {
	if (tablesize(dotty) > 0);	# because tablesize(undef) returns "" not 0
	else {
		echo('You must set LEFTYPATH to the lefty lib directory path name.');
		exit();
	}
};
checkpath ();

dotty.protogt.lserver = 'neato';
dotty.protogt.graph.type = 'graph';
dotty.init ();
monitorfile = dotty.monitorfile;
$CMDS
txtview ('off');
"

MR SKB