From ad8140f162e0d46bba45edc0e41cb2e976eef876 Mon Sep 17 00:00:00 2001
From: patacongo <patacongo@42af7a65-404d-4744-a932-0658087f49c3>
Date: Fri, 1 Feb 2008 14:27:45 +0000
Subject: [PATCH] Pascal Test Case

git-svn-id: svn://svn.code.sf.net/p/nuttx/code/trunk@603 42af7a65-404d-4744-a932-0658087f49c3
---
 examples/pashello/hello.pas  |   5 ++
 examples/pashello/hello.pex  | Bin 0 -> 232 bytes
 examples/pashello/mkhello.sh | 134 +++++++++++++++++++++++++++++++++++
 3 files changed, 139 insertions(+)
 create mode 100644 examples/pashello/hello.pas
 create mode 100644 examples/pashello/hello.pex
 create mode 100755 examples/pashello/mkhello.sh

diff --git a/examples/pashello/hello.pas b/examples/pashello/hello.pas
new file mode 100644
index 0000000000..fe137f1b67
--- /dev/null
+++ b/examples/pashello/hello.pas
@@ -0,0 +1,5 @@
+program hello(output);
+begin
+    writeln('Hello world!!!');
+end.
+
diff --git a/examples/pashello/hello.pex b/examples/pashello/hello.pex
new file mode 100644
index 0000000000000000000000000000000000000000..0f14eb1013fab6f98ae464899b547e79e06948d5
GIT binary patch
literal 232
zcmXYpJqp4=5JtbnBwG0cf_5f_V6|A<Ss79U;uTi1VqnQivY>@m@CFthK?@Hj2s$JC
z!P~bp%*?h(Qz3vcLXiHM(kmih<m(HW|Dpp-eD6vg5FrB0eD6jMhzLC_eD6*k610jX
z!FdoX;t9C^8<@YoA5y%|v@te5*~XMflAud7yvO0Yd<WSk&kG!QQXW+c>Gat_Hnvnw
ULGCM~o!UW~s@AoIY+b|k53P41rvLx|

literal 0
HcmV?d00001

diff --git a/examples/pashello/mkhello.sh b/examples/pashello/mkhello.sh
new file mode 100755
index 0000000000..a0aab89b99
--- /dev/null
+++ b/examples/pashello/mkhello.sh
@@ -0,0 +1,134 @@
+#!/bin/sh
+############################################################################
+# mkhello.sh
+#
+#   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.
+#
+############################################################################
+#set -x
+
+BINDIR=$1
+WD=`pwd`
+
+PASCAL=${BINDIR}/pascal
+POPT=${BINDIR}/popt
+PLINK=${BINDIR}/plink
+PRUN=${BINDIR}/prun
+
+PASFILENAME=hello.pas
+STRSTKSZ=1024
+
+function sanity_check ()
+{
+	if [ ! -f "${WD}/${PASFILENAME}" ]; then
+		echo "ERROR: Source ${PASFILENAME} does not exist in this directory"
+		exit 1
+	fi
+	if [ -z "${BINDIR}" ]; then
+		echo "ERROR: Path to the pascal bin/ directory not provided"
+		exit 1
+	fi
+	if [ ! -d "${BINDIR}" ]; then
+		echo "ERROR: Tool ${BINDIR} does not exist"
+		exit 1
+	fi
+	if [ ! -x "${PASCAL}" ]; then
+		echo "ERROR: Executable ${PASCAL} does not exist"
+		exit 1
+	fi
+	if [ ! -x "${POPT}" ]; then
+		echo "ERROR: Executable ${POPT} does not exist"
+		exit 1
+	fi
+	if [ ! -x "${PLINK}" ]; then
+		echo "ERROR: Executable ${PLINK} does not exist"
+		exit 1
+	fi
+	if [ ! -x "${PRUN}" ]; then
+		echo "ERROR: Executable ${PRUN} does not exist"
+		exit 1
+	fi
+}
+
+function compile_hello ()
+{
+	PASOPTS=
+	${PASCAL} ${PASOPTS} ${PASFILENAME} 2>&1 || rm -f hello.o1
+	if [ -f hello.err ] ; then
+	    cat hello.err | grep Line
+	fi
+	if [ ! -f hello.o1 ] ; then
+		echo "Compilation failed"
+	else
+		POPTOPTS=
+		${POPT} ${POPTOPTS} hello.o1 2>&1
+		${PLINK} hello.o hello.pex 2>&1
+	fi
+}
+
+function test_program ()
+{
+    if [ "${CONFIG_REGM}" == "y" ]; then
+	echo "Don't know how to run REGM programs yet"
+    else
+	echo "Using string stack size = ${STRSTKSZ}"
+	PRUNOPTS="-t ${STRSTKSZ}"
+
+	if [ ! -f hello.pex ]; then
+	    echo "No p-code executable"
+	else
+	    if [ -f hello.inp ] ; then
+		${PRUN} ${PRUNOPTS} hello.pex 2>&1 <hello.inp
+	    else
+		${PRUN} ${PRUNOPTS} hello.pex 2>&1
+	    fi
+	fi
+    fi
+}
+
+function test_hello ()
+{
+	echo "Using string stack size = ${STRSTKSZ}"
+	PRUNOPTS="-t ${STRSTKSZ}"
+
+	if [ ! -f hello.pex ]; then
+		echo "No p-code executable"
+		exit 1
+	else
+		${PRUN} ${PRUNOPTS} hello.pex
+	fi
+}
+
+sanity_check
+compile_hello
+rm *.o *.o1 *.lst *.err
+test_hello
+