mirror of
https://gitee.com/mirrors_PX4/PX4-Autopilot.git
synced 2026-10-18 06:03:33 +08:00
Resync new repository with old repo r5166
git-svn-id: http://svn.code.sf.net/p/nuttx/code/trunk@5153 42af7a65-404d-4744-a932-0658087f49c3
This commit is contained in:
patacongo
@@ -0,0 +1,13 @@
|
||||
#
|
||||
# For a description of the syntax of this configuration file,
|
||||
# see misc/tools/kconfig-language.txt.
|
||||
#
|
||||
|
||||
config EXAMPLES_PASHELLO
|
||||
bool "Pascal \"Hello, World!\" example"
|
||||
default n
|
||||
---help---
|
||||
Enable the Pascal \"Hello, World!\" example
|
||||
|
||||
if EXAMPLES_PASHELLO
|
||||
endif
|
||||
@@ -0,0 +1,93 @@
|
||||
############################################################################
|
||||
# apps/examples/pashello/Makefile
|
||||
#
|
||||
# Copyright (C) 2008-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.
|
||||
#
|
||||
############################################################################
|
||||
|
||||
-include $(TOPDIR)/.config
|
||||
-include $(TOPDIR)/Make.defs
|
||||
include $(APPDIR)/Make.defs
|
||||
|
||||
# Pascal Add-On Example
|
||||
|
||||
ASRCS =
|
||||
CSRCS = pashello.c device.c
|
||||
|
||||
AOBJS = $(ASRCS:.S=$(OBJEXT))
|
||||
COBJS = $(CSRCS:.c=$(OBJEXT))
|
||||
|
||||
SRCS = $(ASRCS) $(CSRCS)
|
||||
OBJS = $(AOBJS) $(COBJS)
|
||||
|
||||
ifeq ($(WINTOOL),y)
|
||||
BIN = "${shell cygpath -w $(APPDIR)/libapps$(LIBEXT)}"
|
||||
else
|
||||
BIN = "$(APPDIR)/libapps$(LIBEXT)"
|
||||
endif
|
||||
|
||||
ROOTDEPPATH = --dep-path .
|
||||
|
||||
# Common build
|
||||
|
||||
VPATH =
|
||||
|
||||
all: .built
|
||||
.PHONY: clean depend distclean
|
||||
|
||||
$(AOBJS): %$(OBJEXT): %.S
|
||||
$(call ASSEMBLE, $<, $@)
|
||||
|
||||
$(COBJS): %$(OBJEXT): %.c
|
||||
$(call COMPILE, $<, $@)
|
||||
|
||||
.built: $(OBJS)
|
||||
@( for obj in $(OBJS) ; do \
|
||||
$(call ARCHIVE, $(BIN), $${obj}); \
|
||||
done ; )
|
||||
@touch .built
|
||||
|
||||
context:
|
||||
|
||||
.depend: Makefile $(SRCS)
|
||||
@$(MKDEP) $(ROOTDEPPATH) $(CC) -- $(CFLAGS) -- $(SRCS) >Make.dep
|
||||
@touch $@
|
||||
|
||||
depend: .depend
|
||||
|
||||
clean:
|
||||
@rm -f *.o *~ .*.swp .built
|
||||
$(call CLEAN)
|
||||
|
||||
distclean: clean
|
||||
@rm -f Make.dep .depend
|
||||
|
||||
-include Make.dep
|
||||
@@ -0,0 +1,34 @@
|
||||
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
|
||||
|
||||
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.
|
||||
|
||||
@@ -0,0 +1,110 @@
|
||||
/****************************************************************************
|
||||
* 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 =
|
||||
{
|
||||
0, /* open */
|
||||
0, /* close */
|
||||
hello_read, /* read */
|
||||
0, /* write */
|
||||
0, /* seek */
|
||||
0, /* ioctl */
|
||||
#ifndef CONFIG_DISABLE_POLL
|
||||
0 /* poll */
|
||||
#endif
|
||||
};
|
||||
|
||||
/****************************************************************************
|
||||
* 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);
|
||||
}
|
||||
@@ -0,0 +1,23 @@
|
||||
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;
|
||||
@@ -0,0 +1,5 @@
|
||||
program hello(output);
|
||||
begin
|
||||
writeln('Hello world!!!');
|
||||
end.
|
||||
|
||||
Binary file not shown.
Executable
+141
@@ -0,0 +1,141 @@
|
||||
#!/bin/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
|
||||
|
||||
@@ -0,0 +1,133 @@
|
||||
/****************************************************************************
|
||||
* 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 "apps/pcode/insn/pexec.h"
|
||||
#include "apps/pcode/pedefs.h"
|
||||
#include "pashello.h"
|
||||
|
||||
/****************************************************************************
|
||||
* Definitions
|
||||
****************************************************************************/
|
||||
|
||||
#ifndef CONFIG_PASHELLO_VARSTACKSIZE
|
||||
# define CONFIG_PASHELLO_VARSTACKSIZE 1024
|
||||
#endif
|
||||
|
||||
#ifndef CONFIG_PASHELLO_STRSTACKSIZE
|
||||
# define CONFIG_PASHELLO_STRSTACKSIZE 128
|
||||
#endif
|
||||
|
||||
/****************************************************************************
|
||||
* Private Data
|
||||
****************************************************************************/
|
||||
|
||||
/****************************************************************************
|
||||
* Public Functions
|
||||
****************************************************************************/
|
||||
|
||||
/****************************************************************************
|
||||
* Name: prun
|
||||
*
|
||||
* Description:
|
||||
* This function executes the P-Code program until a stopping condition
|
||||
* is encountered.
|
||||
*
|
||||
****************************************************************************/
|
||||
|
||||
static void prun(FAR struct pexec_s *st)
|
||||
{
|
||||
int errcode;
|
||||
|
||||
for (;;)
|
||||
{
|
||||
/* Execute the instruction; Check for exceptional conditions */
|
||||
|
||||
errcode = pexec(st);
|
||||
if (errcode != eNOERROR) break;
|
||||
}
|
||||
|
||||
if (errcode != eEXIT)
|
||||
{
|
||||
printf("Runtime error 0x%02x -- Execution Stopped\n", errcode);
|
||||
}
|
||||
}
|
||||
|
||||
/****************************************************************************
|
||||
* Public Functions
|
||||
****************************************************************************/
|
||||
|
||||
/****************************************************************************
|
||||
* pashello_main
|
||||
****************************************************************************/
|
||||
|
||||
int pashello_main(int argc, FAR char *argv[])
|
||||
{
|
||||
FAR struct pexec_s *st;
|
||||
|
||||
/* Register the /dev/hello driver */
|
||||
|
||||
hello_register();
|
||||
|
||||
/* Load the POFF file */
|
||||
|
||||
st = pload("/dev/hello", CONFIG_PASHELLO_VARSTACKSIZE, CONFIG_PASHELLO_STRSTACKSIZE);
|
||||
if (!st)
|
||||
{
|
||||
fprintf(stderr, "pashello_main: ERROR: Could not load /dev/hello\n");
|
||||
exit(1);
|
||||
}
|
||||
printf("pashello_main: /dev/hello Loaded\n");
|
||||
printf("pashello_main: Interpreter started:\n");
|
||||
|
||||
/* And start program execution */
|
||||
|
||||
prun(st);
|
||||
|
||||
/* Clean up resources used by the interpreter */
|
||||
|
||||
printf("pashello_main: Interpreter terminated");
|
||||
pexec_release(st);
|
||||
return 0;
|
||||
}
|
||||
@@ -0,0 +1,55 @@
|
||||
/****************************************************************************
|
||||
* 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
|
||||
****************************************************************************/
|
||||
|
||||
/****************************************************************************
|
||||
* Definitions
|
||||
****************************************************************************/
|
||||
|
||||
/****************************************************************************
|
||||
* Public Function Prototypes
|
||||
****************************************************************************/
|
||||
|
||||
/* Defined in device.c */
|
||||
|
||||
extern void hello_register(void);
|
||||
|
||||
#endif /* __EXAMPLES_PASHELLO_H */
|
||||
Reference in New Issue
Block a user