sergiotarxz/nuttx-apps
sergiotarxz/nuttx-apps
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove all support for the ancient Pascal compiler and pcode interpreter.

Browse Source
This commit is contained in:
Gregory Nutt 2019-11-21 07:04:34 -06:00
parent c084cd820c
commit 3ebf71095e
26 changed files with 0 additions and 1245 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
examples/README.txt
View File

@ -1199,17 +1199,6 @@ examples/oneshot
Simple test of a oneshot driver.
examples/pashello
^^^^^^^^^^^^^^^^^
This is "Hello, World" implemented via the Pascal P-Code interpreter. In
order to use this example, you must first download and install the
NuttX pascal module. After unpacking the pascal module, you can find
installation instructions in pascal/nuttx/README.txt.
The correct install location for the NuttX examples and build files is
apps/interpreters.
examples/pca9635
^^^^^^^^^^^^^^^^

13
examples/pashello/.gitignore vendored
View File

@ -1,13 +0,0 @@
/Make.dep
/.depend
/.built
/*.o1
/*.asm
/*.obj
/*.rel
/*.lst
/*.sym
/*.adb
/*.lib
/*.src
/*.err

30
examples/pashello/Kconfig
View File

@ -1,30 +0,0 @@
#
# For a description of the syntax of this configuration file,
# see the file kconfig-language.txt in the NuttX tools repository.
#
config EXAMPLES_PASHELLO
tristate "Pascal \"Hello, World!\" example"
default n
depends on INTERPRETERS_PCODE
select INTERPRETERS_PRUN
---help---
Enable the Pascal \"Hello, World!\" example
if EXAMPLES_PASHELLO
config EXAMPLES_PASHELLO_VARSTACKSIZE
int "P-Code variable stack size"
default 1024
---help---
This size of the P-Code variable storage area to be allocated by the
P-Code runtime.
config EXAMPLES_PASHELLO_STRSTACKSIZE
int "P-Code string stack size"
default 128
---help---
This size of the P-Code string stack area to be allocated by the
P-Code runtime.
endif

39
examples/pashello/Make.defs
View File

@ -1,39 +0,0 @@
############################################################################
# apps/examples/pashello/Make.defs
# Adds selected applications to apps/ build
#
# Copyright (C) 2015 Gregory Nutt. All rights reserved.
# Author: Gregory Nutt <gnutt@nuttx.org>
#
# 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.
#
############################################################################
ifneq ($(CONFIG_EXAMPLES_PASHELLO),)
CONFIGURED_APPS += $(APPDIR)/examples/pashello
endif

53
examples/pashello/Makefile
View File

@ -1,53 +0,0 @@
############################################################################
# apps/examples/pashello/Makefile
#
# Copyright (C) 2008-2012 Gregory Nutt. All rights reserved.
# Author: Gregory Nutt <gnutt@nuttx.org>
#
# 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.
#
############################################################################
-include $(TOPDIR)/Make.defs
# Pascal Add-On Example
PROGNAME = pashello
PRIORITY = SCHED_PRIORITY_DEFAULT
STACKSIZE = 2048
MODULE = $(CONFIG_EXAMPLES_PASHELLO)
CFLAGS += ${shell $(INCDIR) $(INCDIROPT) "$(CC)" \
"." \
"$(APPDIR)$(DELIM)interpreters$(DELIM)pcode$(DELIM)include" \
"$(APPDIR)$(DELIM)interpreters$(DELIM)pcode$(DELIM)insn$(DELIM)include"}
CSRCS = device.c
MAINSRC = pashello.c
include $(APPDIR)/Application.mk

38
examples/pashello/README.txt
View File

@ -1,38 +0,0 @@
README
^^^^^^
hello.pas
This is a sample "Hello, World!" Pascal Program
hello.pex
This is the compiled, linked P-Code executable that results
when hello.pas is compiled.
hello.h
This file defines an initialized C array holds a copy of
hello.pex. This file as created by:
xxd -i hello.pex >hello.h
The resulting hello.h should be editted so that both data definitions
are marked with the 'const' qualify so that the data will be stored in
FLASH.
mkhello.sh
This is a scripts that can be used to rebuild both hello.pex
and hello.h.
device.c
The hello.pex file must be provided to the interpreter as a file
in the file system. Normally this would be done using real storage
medium. In this example, we will use device.c:
device.c implements a simple device driver. Reads from this device
will access the in-memory copy of hello.pex This device driver is
registered as /dev/pashello in the pseudo filesystem.

108
examples/pashello/device.c
View File

@ -1,108 +0,0 @@
/****************************************************************************
* examples/pashello/device.c
*
* Copyright (C) 2008, 2012 Gregory Nutt. All rights reserved.
* Author: Gregory Nutt <gnutt@nuttx.org>
*
* 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.
*
****************************************************************************/
/****************************************************************************
* Compilation Switches
****************************************************************************/
/****************************************************************************
* Included Files
****************************************************************************/
#include <nuttx/config.h>
#include <sys/types.h>
#include <string.h>
#include <errno.h>
#include <nuttx/fs/fs.h>
#include "hello.h"
#include "pashello.h"
/****************************************************************************
* Private Function Prototypes
****************************************************************************/
static ssize_t hello_read(struct file *, char *, size_t);
/****************************************************************************
* Private Data
****************************************************************************/
static const struct file_operations hello_fops =
{
NULL, /* open */
NULL, /* close */
hello_read, /* read */
NULL, /* write */
NULL, /* seek */
NULL, /* ioctl */
NULL /* poll */
};
/****************************************************************************
* Private Functions
****************************************************************************/
static ssize_t hello_read(struct file *filep, char *buffer, size_t len)
{
off_t offset = filep->f_pos; /* Start read position */
ssize_t nread = 0; /* Bytes read -- assume EOF */
/* Make sure that the offset is within the .pex file */
if (offset < hello_pex_len)
{
/* Make sure the read does not extend beyond the .pex file */
nread = len;
if (nread + offset > hello_pex_len)
{
nread = hello_pex_len - offset;
}
memcpy(buffer, &hello_pex[offset], nread);
filep->f_pos += nread;
}
return nread;
}
/****************************************************************************
* Public Functions
****************************************************************************/
void hello_register(void)
{
(void)register_driver("/dev/hello", &hello_fops, 0444, NULL);
}

25
examples/pashello/hello.h
View File

@ -1,25 +0,0 @@
unsigned char hello_pex[] =
{
0x50, 0x4f, 0x46, 0x46, 0x01, 0x01, 0x00, 0x00, 0x00, 0x14, 0x00, 0x05,
0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x18,
0x01, 0x06, 0x00, 0x00, 0x00, 0x00, 0x00, 0x11, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x7c, 0x00, 0x00, 0x00, 0x11, 0x01, 0x03, 0x00, 0x00,
0x00, 0x00, 0x00, 0x17, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x8d,
0x00, 0x00, 0x00, 0x0f, 0x05, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x1f,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x9c, 0x00, 0x00, 0x00, 0x04,
0x06, 0x00, 0x00, 0x08, 0x00, 0x00, 0x00, 0x28, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0xa0, 0x00, 0x00, 0x00, 0x10, 0x03, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x30, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xb0,
0x00, 0x00, 0x00, 0x38, 0xb1, 0x00, 0x00, 0x74, 0x0e, 0xf9, 0x00, 0x00,
0x25, 0xb5, 0xff, 0xfc, 0xf9, 0x00, 0x00, 0x20, 0x3f, 0x48, 0x65, 0x6c,
0x6c, 0x6f, 0x20, 0x77, 0x6f, 0x72, 0x6c, 0x64, 0x21, 0x21, 0x21, 0x00,
0x07, 0x00, 0x00, 0x00, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x04, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x48, 0x45, 0x4c,
0x4c, 0x4f, 0x00, 0x68, 0x65, 0x6c, 0x6c, 0x6f, 0x2e, 0x70, 0x61, 0x73,
0x00, 0x2e, 0x74, 0x65, 0x78, 0x74, 0x00, 0x2e, 0x72, 0x6f, 0x64, 0x61,
0x74, 0x61, 0x00, 0x2e, 0x66, 0x69, 0x6c, 0x65, 0x74, 0x61, 0x62, 0x00,
0x2e, 0x6c, 0x69, 0x6e, 0x65, 0x6e, 0x6f, 0x00, 0x2e, 0x73, 0x74, 0x72,
0x74, 0x61, 0x62, 0x00
};
unsigned int hello_pex_len = 232;

5
examples/pashello/hello.pas
View File

@ -1,5 +0,0 @@
program hello(output);
begin
writeln('Hello world!!!');
end.

BIN
examples/pashello/hello.pex
View File

Binary file not shown.

141
examples/pashello/mkhello.sh
View File

@ -1,141 +0,0 @@
#!/usr/bin/env bash
############################################################################
# examples/pashello/mkhello.sh
#
# Copyright (C) 2008 Gregory Nutt. All rights reserved.
# Author: Gregory Nutt <gnutt@nuttx.org>
#
# 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
OUFILE=hello.h
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
}
function make_include ()
{
xxd -i hello.pex >hello.h
}
sanity_check
compile_hello
rm *.o *.o1 *.lst *.err
test_hello
make_include

99
examples/pashello/pashello.c
View File

@ -1,99 +0,0 @@
/****************************************************************************
* examples/pashello/pashello.c
*
* Copyright (C) 2008-2009, 2011 Gregory Nutt. All rights reserved.
* Author: Gregory Nutt <gnutt@nuttx.org>
*
* 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.
*
****************************************************************************/
/****************************************************************************
* Included Files
****************************************************************************/
#include <nuttx/config.h>
#include <stdio.h>
#include <stdlib.h>
#include <debug.h>
#include "interpreters/prun.h"
#include "pashello.h"
/****************************************************************************
* Pre-processor Definitions
****************************************************************************/
#ifndef CONFIG_EXAMPLES_PASHELLO_VARSTACKSIZE
# define CONFIG_EXAMPLES_PASHELLO_VARSTACKSIZE 1024
#endif
#ifndef CONFIG_EXAMPLES_PASHELLO_STRSTACKSIZE
# define CONFIG_EXAMPLES_PASHELLO_STRSTACKSIZE 128
#endif
/****************************************************************************
* Private Data
****************************************************************************/
/****************************************************************************
* Public Functions
****************************************************************************/
/****************************************************************************
* Public Functions
****************************************************************************/
/****************************************************************************
* pashello_main
****************************************************************************/
int main(int argc, FAR char *argv[])
{
int exitcode = EXIT_SUCCESS;
int ret;
/* Register the /dev/hello driver */
hello_register();
/* Execute the POFF file */
ret = prun("/dev/hello", CONFIG_EXAMPLES_PASHELLO_VARSTACKSIZE,
CONFIG_EXAMPLES_PASHELLO_STRSTACKSIZE);
if (ret < 0)
{
fprintf(stderr, "pashello_main: ERROR: Execution failed\n");
exitcode = EXIT_FAILURE;
}
printf("pashello_main: Interpreter terminated");
return exitcode;
}

55
examples/pashello/pashello.h
View File

@ -1,55 +0,0 @@
/****************************************************************************
* examples/pashello/pashello.h
*
* Copyright (C) 2008 Gregory Nutt. All rights reserved.
* Author: Gregory Nutt <gnutt@nuttx.org>
*
* 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.
*
****************************************************************************/
#ifndef __EXAMPLES_PASHELLO_H
#define __EXAMPLES_PASHELLO_H
/****************************************************************************
* Included Files
****************************************************************************/
/****************************************************************************
* Pre-processor Definitions
****************************************************************************/
/****************************************************************************
* Public Function Prototypes
****************************************************************************/
/* Defined in device.c */
void hello_register(void);
#endif /* __EXAMPLES_PASHELLO_H */

1
include/.gitignore vendored
View File

@ -1,4 +1,3 @@
/pcode
/netutils/cJSON.h
/netutils/cJSON_Utils.h

53
interpreters/README.txt
View File

@ -23,56 +23,3 @@ minibasic
responsibility for any actions that you might take based on my
understanding. Please use your own legal judgement.
pcode
-----
At present, only the NuttX Pascal add-on is supported. This NuttX add-on
must be downloaded separately (or is available from the Nuttx Pascal GIT
repository).
This Pascal add-on must be installed into the NuttX apps/ directory. After
unpacking the Pascal add-on package, an installation script and README.txt
instructions can be found at pascal/nuttx.
INSTALL.sh -- The script that performs the operation. Usage:
./INSTALL.sh [-16|-32] <install-dir>
If you are using this standard NuttX apps/ package, the correct
location for the <install-dir> is apps/interpreters. That is
where the examples and build logic will expect to find the pcode
sub-directory.
Example:
./INSTALL.sh -16 $PWD/../../../apps/interpreters
After installation, the NuttX apps/interpresters directory will contain
the following files
pcode
|-- Makefile
|-- include
| `-- Common header files
|-- libboff
| `-- Pascal object format (POFF) library
`--insn
|-- include
| `-- model-specific header files
`-- prun
`-- model-specific source files
pashello
There is a simple Pascal example at apps/examples/pashello. This is the
standard "Hello, World!" example written in Pascal and interpreted from
Pascal P-Code at runtime. To use this example, place the following in
your defonfig file:
CONFIG_EXAMPLES_PASHELLO=y
CONFIG_INTERPRETERS_PCODE=y
prun
This directory holds some simple, convenience functions to simplify and
standardize the interaction with the P-Code library.

6
interpreters/pcode/.gitignore vendored
View File

@ -1,6 +0,0 @@
/Makefile
/include
/insn
/libpas
/libpoff

13
interpreters/pcode/Kconfig
View File

@ -1,13 +0,0 @@
config INTERPRETERS_PCODE
bool "Pascal p-code interpreter"
default n
---help---
Enable support for the Pascal p-code interpreter. See the README.txt
file at located in the NuttX Pascal repository and also the
README.txt file in the apps/interpreter directory. Use of this
configuration implies that you have performed the required
installation of the Pascal run-time code.
if INTERPRETERS_PCODE
endif

4
interpreters/pcode/Make.defs
View File

@ -1,4 +0,0 @@
ifeq ($(CONFIG_INTERPRETERS_PCODE),y)
CONFIGURED_APPS += $(APPDIR)/interpreters/pcode
endif

13
system/prun/.gitignore vendored
View File

@ -1,13 +0,0 @@
/Make.dep
/.depend
/.built
/*.o1
/*.asm
/*.obj
/*.rel
/*.lst
/*.sym
/*.adb
/*.lib
/*.src
/*.err

57
system/prun/Kconfig
View File

@ -1,57 +0,0 @@
#
# For a description of the syntax of this configuration file,
# see the file kconfig-language.txt in the NuttX tools repository.
#
menuconfig SYSTEM_PRUN
bool "Pascal P-Code interpreter"
default n
depends on INTERPRETERS_PCODE
---help---
Build the Pascal P-Code interpreter / Virtual machine. This selection
just builds a library of P-Code-related functions as described in
include/apps/system/prun.h. This selection is also necessary to enable other
P-Code related features.
if SYSTEM_PRUN
config SYSTEM_PEXEC
tristate "Pascal P-Code command"
default n
---help---
Generates an NSH built-in task that may be used to execute P-Code
files from the NSH command line. For example:
nsh> pexec /bin/hello.pex
Hello, World!
if SYSTEM_PEXEC
config SYSTEM_PEXEC_STACKSIZE
int "P-code interpreter stack size"
default 2048
---help---
This is the stack size that will be used when starting P-code interpreter.
config SYSTEM_PEXEC_PRIORITY
int "P-code interpreter priority"
default 100
---help---
This is the task_priority that will be used when starting P-code interpreter.
config SYSTEM_PEXEC_VARSTACKSIZE
int "P-code variable stack size (default)"
default 1024
---help---
This default size of the P-Code variable storage area to be allocated by the
P-Code runtime.
config SYSTEM_PEXEC_STRSTACKSIZE
int "P-code string stack size (default)"
default 128
---help---
This default size of the P-Code string stack area to be allocated by the
P-Code runtime.
endif
endif

40
system/prun/Make.defs
View File

@ -1,40 +0,0 @@
############################################################################
# apps/system/prun/Make.defs
# Adds selected applications to apps/ build
#
# Copyright (C) 2016 Gregory Nutt. All rights reserved.
# Author: Gregory Nutt <gnutt@nuttx.org>
#
# 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.
#
############################################################################
ifneq ($(CONFIG_SYSTEM_PRUN),)
CONFIGURED_APPS += $(APPDIR)/system/prun
endif

56
system/prun/Makefile
View File

@ -1,56 +0,0 @@
############################################################################
# apps/system/prun/Makefile
#
# Copyright (C) 2014, 2016 Gregory Nutt. All rights reserved.
# Author: Gregory Nutt <gnutt@nuttx.org>
#
# 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.
#
############################################################################
-include $(TOPDIR)/Make.defs
# Pascal P-Code interpreter / Virtual machine
CFLAGS += ${shell $(INCDIR) $(INCDIROPT) "$(CC)" \
"." \
"$(APPDIR)$(DELIM)interpreters$(DELIM)pcode$(DELIM)include" \
"$(APPDIR)$(DELIM)interpreters$(DELIM)pcode$(DELIM)insn$(DELIM)include"}
CSRCS = prun.c
ifneq ($(CONFIG_SYSTEM_PEXEC),)
PROGNAME = pexec
PRIORITY = $(CONFIG_SYSTEM_PEXEC_PRIORITY)
STACKSIZE = $(CONFIG_SYSTEM_PEXEC_STACKSIZE)
MODULE = $(CONFIG_SYSTEM_PEXEC)
MAINSRC += pexec_main.c
endif
include $(APPDIR)/Application.mk

38
system/prun/README.txt
View File

@ -1,38 +0,0 @@
README
^^^^^^
hello.pas
This is a sample "Hello, World!" Pascal Program
hello.pex
This is the compiled, linked P-Code executable that results
when hello.pas is compiled.
hello.h
This file defines an initialized C array holds a copy of
hello.pex. This file as created by:
xxd -i hello.pex >hello.h
The resulting hello.h should be editted so that both data definitions
are marked with the 'const' qualify so that the data will be stored in
FLASH.
mkhello.sh
This is a scripts that can be used to rebuild both hello.pex
and hello.h.
device.c
The hello.pex file must be provided to the interpreter as a file
in the file system. Normally this would be done using real storage
medium. In this example, we will use device.c:
device.c implements a simple device driver. Reads from this device
will access the in-memory copy of hello.pex This device driver is
registered as /dev/prun in the pseudo filesystem.

174
system/prun/pexec_main.c
View File

@ -1,174 +0,0 @@
/****************************************************************************
* system/prun/pexec_main.c
*
* Copyright (C) 2013 Gregory Nutt. All rights reserved.
* Author: Gregory Nutt <gnutt@nuttx.org>
*
* 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.
*
****************************************************************************/
/****************************************************************************
* Included Files
****************************************************************************/
#include <nuttx/config.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <assert.h>
#include <errno.h>
#include "system/prun.h"
/****************************************************************************
* Pre-processor Definitions
****************************************************************************/
#ifndef CONFIG_SYSTEM_PEXEC_VARSTACKSIZE
# define CONFIG_SYSTEM_PEXEC_VARSTACKSIZE 1024
#endif
#ifndef CONFIG_SYSTEM_PEXEC_STRSTACKSIZE
# define CONFIG_SYSTEM_PEXEC_STRSTACKSIZE 128
#endif
/****************************************************************************
* Private Functions
****************************************************************************/
static void show_usage(FAR const char *progname, int errcode)
{
fprintf(stderr, "USAGE: %s [OPTIONS] <filename>\n", progname);
fprintf(stderr, "\nWhere:\n");
fprintf(stderr, "\t<filename> is the full path to the P-Code file to be executed\n");
fprintf(stderr, "\nand OPTIONS include the following:\n");
fprintf(stderr, "\t-v <varsize>: Variable memory size to use. Default: %d\n",
CONFIG_SYSTEM_PEXEC_VARSTACKSIZE);
fprintf(stderr, "\t-s <strsize>: String stack size to use. Default: %d\n",
CONFIG_SYSTEM_PEXEC_STRSTACKSIZE);
fprintf(stderr, "\t-h: Show this text and exit\n");
exit(errcode);
}
/****************************************************************************
* Public Functions
****************************************************************************/
int main(int argc, FAR char *argv[])
{
FAR char *filename = NULL;
FAR char *endptr;
long varsize = CONFIG_SYSTEM_PEXEC_VARSTACKSIZE;
long strsize = CONFIG_SYSTEM_PEXEC_STRSTACKSIZE;
long tmp;
int option;
int ret;
/* Parse input parameters */
while ((option = getopt(argc, argv, ":v:s:h")) != ERROR)
{
switch (option)
{
case 'h':
show_usage(argv[0], EXIT_SUCCESS);
break;
case 'v':
tmp = strtol(optarg, &endptr, 10);
if (tmp < 0)
{
fprintf(stderr, "ERROR: Variable memory size out of range: %ld\n", tmp);
show_usage(argv[0], EXIT_FAILURE);
}
else
{
varsize = tmp;
}
break;
case 's':
tmp = strtol(optarg, &endptr, 10);
if (tmp < 0)
{
fprintf(stderr, "ERROR: String stack size out of range: %ld\n", tmp);
show_usage(argv[0], EXIT_FAILURE);
}
else
{
strsize = tmp;
}
break;
case ':':
fprintf(stderr, "ERROR: Missing required argument\n");
show_usage(argv[0], EXIT_FAILURE);
break;
default:
case '?':
fprintf(stderr, "ERROR: Unrecognized option\n");
show_usage(argv[0], EXIT_FAILURE);
break;
}
}
/* There should be one final parameters remaining on the command line */
if (optind >= argc)
{
fprintf(stderr, "ERROR: Missing required <filename> argument\n");
show_usage(argv[0], EXIT_FAILURE);
}
filename = argv[optind];
optind++;
if (optind < argc)
{
fprintf(stderr, "ERROR: Garbage at the end of the command line\n");
show_usage(argv[0], EXIT_FAILURE);
}
/* Execute the P-Code file */
ret = prun(filename, varsize, strsize);
if (ret < 0)
{
int errval = errno;
DEBUGASSERT(errval > 0);
fprintf(stderr, "ERROR: P-Code execution failed: %d %d\n", ret, errval);
return EXIT_FAILURE;
}
return EXIT_SUCCESS;
}

118
system/prun/prun.c
View File

@ -1,118 +0,0 @@
/****************************************************************************
* apps/system/prun/prun.c
*
* Copyright (C) 2014 Gregory Nutt. All rights reserved.
* Author: Gregory Nutt <gnutt@nuttx.org>
*
* 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.
*
****************************************************************************/
/****************************************************************************
* Included Files
****************************************************************************/
#include <nuttx/config.h>
#include <stdio.h>
#include <stdlib.h>
#include <errno.h>
#include <debug.h>
#include "system/prun.h"
#include "pexec.h"
#include "pedefs.h"
#include "prun.h"
/****************************************************************************
* Public Functions
****************************************************************************/
/****************************************************************************
* Name: prun
*
* Description:
* Execute/interpret a P-Code file. This function does not return until
* the P-code program terminates or until a fatal error occurs.
*
* Input Parameters:
* exepath - The full path to the P-Code binary.
* varsize - Size of the P-Code variable stack
* strsize - the size of the P-Code string stack.
*
* Returned Value:
* OK if the P-Code program successfully terminated; A negated errno value
* is returned on the event of any failure.
*
****************************************************************************/
int prun(FAR char *exepath, size_t varsize, size_t strsize)
{
FAR struct pexec_s *st;
int errcode;
int ret = OK;
/* Load the POFF file into memory */
st = pload(exepath, varsize, varsize);
if (!st)
{
berr("ERROR: Could not load %s\n", exepath);
return -ENOEXEC;
}
binfo("Loaded %s\n", exepath);
/* Execute the P-Code program until a stopping condition occurs */
for (;;)
{
/* Execute the instruction; Check for exceptional conditions */
errcode = pexec(st);
if (errcode != eNOERROR)
{
break;
}
}
if (errcode != eEXIT)
{
/* REVISIT: Select a more appropriated return errocode */
berr("ERROR: Runtime error 0x%02x -- Execution Stopped\n", errcode);
ret = -ENOEXEC;
}
/* Clean up resources used by the interpreter */
binfo("Execution terminated\n");
pexec_release(st);
return ret;
}

55
system/prun/prun.h
View File

@ -1,55 +0,0 @@
/****************************************************************************
* apps/system/prun/prun.h
*
* Copyright (C) 2008 Gregory Nutt. All rights reserved.
* Author: Gregory Nutt <gnutt@nuttx.org>
*
* 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.
*
****************************************************************************/
#ifndef __APPS_SYSTEM_PRUN_H
#define __APPS_SYSTEM_PRUN_H
/****************************************************************************
* Included Files
****************************************************************************/
/****************************************************************************
* Pre-processor Definitions
****************************************************************************/
/****************************************************************************
* Public Function Prototypes
****************************************************************************/
/* Defined in device.c */
extern void hello_register(void);
#endif /* __APPS_SYSTEM_PRUN_H */