Pascal

git-svn-id: svn://svn.code.sf.net/p/nuttx/code/trunk@485 42af7a65-404d-4744-a932-0658087f49c3

1 files changed, 143 insertions, 0 deletions

diff --git a/misc/pascal/nuttx/INSTALL.sh b/misc/pascal/nuttx/INSTALL.sh
new file mode 100755
index 000000000..71509827f
--- /dev/null
+++ b/misc/pascal/nuttx/INSTALL.sh
@@ -0,0 +1,143 @@
+############################################################################
+# nuttx/INSTALL.sh
+# Install the pascaldirl runtime into the NuttX source tree
+#
+#   Copyright (C) 2008 Gregory Nutt. All rights reserved.
+#   Author: Gregory Nutt <spudmonkey@racsa.co.cr>
+#
+# 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. Neither the name NuttX 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 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 OWNER 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.
+#
+############################################################################
+
+# Parse command arguments
+
+wd=`pwd`
+
+modeldir=insn16
+unset nuttxdir
+while [ ! -z "$1" ]; do
+  case "$1" in
+    -d )
+      set -x
+      ;;
+    -16 )
+      modeldir=insn16
+      ;;
+    -32 )
+      modeldir=insn32
+      ;;
+    -h )
+      echo "USAGE: $0 [-16|-32] <NuttX-path>"
+      exit 0
+      ;;
+    *)
+      nuttxdir=$1
+      ;;
+  esac
+  shift
+done
+
+echo "Installing model $modeldir to $nuttxdir"
+
+# Verify that required parameters were provided
+
+if [ -z "${nuttxdir}" ]; then
+  echo "USAGE: $0 [-16|-32] <NuttX-path>"
+  exit 1
+fi
+
+# Find the directory we were executed from and that things look sane
+
+myname=`basename $0`
+
+if [ -x ${wd}/${myname} ] ; then
+   pascaldir=`dirname ${wd}`
+else
+   if [ -x ${wd}/nuttx/${myname} ] ; then
+     pascaldir=${wd}
+   else
+     echo "You must cd into the pascal directory to execute this script."
+     exit 1
+   fi
+fi
+
+if [ ! -d ${pascaldir}/${modeldir} ]; then
+  echo "Subdirectory ${modeldir} does not exist"
+  exit 1
+fi
+
+if [ ! -d ${nuttxdir} ]; then
+  echo "NuttX directory ${nuttxdir} does not exist"
+  exit 1
+fi
+
+if [ -d ${nuttxdir}/pcode ]; then
+  echo "${nuttxdir}/pcode already exists.  Remove it and try again."
+  exit 1
+fi
+
+# Looks good enough.  Create NuttX directories
+
+mkdir ${nuttxdir}/pcode || \
+  { echo "mkdir ${nuttxdir}/pcode failed" ; exit 1 ; }
+
+mkdir ${nuttxdir}/pcode/include || \
+  { echo "mkdir ${nuttxdir}/pcode/include failed" ; exit 1 ; }
+
+mkdir ${nuttxdir}/pcode/insn || \
+  { echo "mkdir ${nuttxdir}/pcode/insn failed" ; exit 1 ; }
+
+# Copy runtime files
+
+cp -a ${pascaldir}/include/poff.h ${nuttxdir}/pcode/include/. || \
+  { echo "Failed to copy ${pascaldir}/include/poff.h" ; exit 1; }
+
+cp -a ${pascaldir}/include/pofflib.h ${nuttxdir}/pcode/include/. || \
+  { echo "Failed to copy ${pascaldir}/include/poff.h" ; exit 1; }
+
+cp -a ${pascaldir}/nuttx/Makefile ${nuttxdir}/pcode/. || \
+  { echo "Failed to copy ${pascaldir}/nuttx/Makefile" ; exit 1; }
+
+cp -a ${pascaldir}/nuttx/keywords.h ${nuttxdir}/pcode/include/. || \
+  { echo "Failed to copy ${pascaldir}/nuttx/keywords.h" ; exit 1; }
+
+cp -a ${pascaldir}/libpoff ${nuttxdir}/pcode/. || \
+  { echo "Failed to copy ${pascaldir}/libpoff" ; exit 1; }
+
+rm -f ${nuttxdir}/pcode/libpoff/Makefile || \
+  { echo "Failed to remove ${nuttxdir}/pcode/libpoff/Makefile" ; exit 1; }
+
+cp -a ${pascaldir}/${modeldir}/include  ${nuttxdir}/pcode/insn/. || \
+  { echo "Failed to copy ${pascaldir}/${modeldir}/include" ; exit 1; }
+
+cp -a ${pascaldir}/${modeldir}/prun  ${nuttxdir}/pcode/insn/. || \
+  { echo "Failed to copy ${pascaldir}/${modeldir}/prun" ; exit 1; }
+
+rm -f ${nuttxdir}/pcode/insn/Makefile || \
+  { echo "Failed to remove ${nuttxdir}/pcode/insn/Makefile" ; exit 1; }
+