From: marko Date: Fri, 24 Jun 2005 12:53:59 +0000 (+0000) Subject: Initial import X-Git-Tag: initial~7 X-Git-Url: https://git.entuzijast.net/?a=commitdiff_plain;h=cefebacb0699f8bbc9ba8477f2f7064ca5996a05;p=imunes.git Initial import --- diff --git a/imunes b/imunes new file mode 100755 index 0000000..485121d --- /dev/null +++ b/imunes @@ -0,0 +1,66 @@ +#!/bin/sh +# +# Copyright 2004 University of Zagreb, Croatia. All rights reserved. +# +# Redistribution and use in source and binary forms, with or without +# modification, are permitted provided that the following conditions +# are met: +# 1. Redistributions of source code must retain the above copyright +# notice, this list of conditions and the following disclaimer. +# 2. Redistributions in binary form must reproduce the above copyright +# notice, this list of conditions and the following disclaimer in the +# documentation and/or other materials provided with the distribution. +# 3. All advertising materials mentioning features or use of this software +# must display the following acknowledgement: +# This product includes software developed by the University of Zagreb, +# Croatia and its contributors. +# 4. Neither the name of the University nor the names of its contributors +# may be used to endorse or promote products derived from this software +# without specific prior written permission. +# +# THIS SOFTWARE IS PROVIDED BY THE UNIVERSITY AND CONTRIBUTORS ``AS IS'' AND +# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +# ARE DISCLAIMED. IN NO EVENT SHALL THE UNIVERSITY OR CONTRIBUTORS BE LIABLE +# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS +# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) +# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT +# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY +# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF +# SUCH DAMAGE. +# +# This work was supported in part by Croatian Ministry of Science +# and Technology through the research contract #IP-2003-143. +# + + +if [ `id -ur` -eq 0 ]; then + vimage=`vimage` + if [ `expr ${vimage} != "default"` -ne 0 ]; then + echo "Imunes cannot be started from virtual image!" + echo "(exit to default and try again)" + exit 2 + fi +fi + +SHELL=/bin/sh +export SHELL + +ROOTDIR="." +LIBDIR="" + +imunes=$ROOTDIR/$LIBDIR/imunes.tcl + +case $1 in +-b | --batch) + exec tclsh8.4 $imunes "$@" + ;; +-v | --version) + exec echo IMUNES version 2005-06-24 + ;; +*) + exec wish8.4 $imunes "$@" + ;; +esac +