motgrampy

#!/bin/sh
#
# Copyright (c) 2013, Georgia Tech Research Corporation
# All rights reserved.
#
# Author(s): Neil T. Dantam <ntd@gatech.edu>
# Georgia Tech Humanoid Robotics Lab
# Under Direction of Prof. Mike Stilman
#
# This file is provided under the following "BSD-style" License:
#
#   Redistribution and use in source and binary forms, with or
#   without modification, are permitted provided that the following
#   conditions are met:
#   * Redistributions of source code must retain the above
#     copyright notice, this list of conditions and the following
#     disclaimer.
#   * 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.
#
#   THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS 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 COPYRIGHT HOLDER 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.


if test -z "$1"; then
    # Starting the REPL
    # check if tty and have rlwrap
    if which tty > /dev/null 2> /dev/null && \
        tty > /dev/null 2> /dev/null &&      \
        which rlwrap > /dev/null 2> /dev/null
    then
        # wrap with readline
        exec rlwrap motgramlisp --eval '(CLPYTHON.PARSER:ENTER-MIXED-LISP-PYTHON-SYNTAX)'
    else
        # not a typewriter
        exec motgramlisp --eval '(CLPYTHON.PARSER:ENTER-MIXED-LISP-PYTHON-SYNTAX)'
    fi
else
    # Escape the filename
    FILE=`echo $1 | sed -e 's/"/\\\\"/g'`
    # Exec Lisp
    exec motgramlisp --script <<EOF
(clpython:run #p"$FILE")
EOF
fi