Email address change in misc/

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

11 files changed, 415 insertions, 415 deletions

diff --git a/misc/pascal/include/keywords.h b/misc/pascal/include/keywords.h
index 6025524d9..7784d8df9 100644
--- a/misc/pascal/include/keywords.h
+++ b/misc/pascal/include/keywords.h
@@ -1,82 +1,82 @@
-/*************************************************************

- * keywords.h

- * This file defines the pascal compilation environment

- *

- *   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.

- *

- *************************************************************/

-

-#ifndef __KEYWORDS_H

-#define __KEYWORDS_H

-

-/*************************************************************

- * Included Files

- *************************************************************/

-

-#include "config.h"

-

-/*************************************************************

- *Pre-processor Definitions

- *************************************************************/

-

-#ifndef NULL

-#  define NULL ((void*)0)

-#endif

-

-#ifndef CONFIG_DEBUG

-# define CONFIG_DEBUG 0

-#endif

-

-#if CONFIG_DEBUG

-# define DEBUG(stream, format, arg...) fprintf(stream, format, ##arg)

-#else

-# define DEBUG(x...)

-#endif

-

-#ifndef CONFIG_TRACE

-# define CONFIG_TRACE 0

-#endif

-

-#if CONFIG_TRACE

-# define TRACE(stream, format, arg...) fprintf(stream, format, ##arg)

-#else

-# define TRACE(x...)

-#endif

-

-#define FAR

-

-#define dbg(...) fprintf(stderr, __VA_ARGS__)

-#define vdbg(...) DEBUG(__VA_ARGS__)

-

-#endif /* __KEYWORDS_H */

-

-

-

+/*************************************************************
+ * keywords.h
+ * This file defines the pascal compilation environment
+ *
+ *   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 __KEYWORDS_H
+#define __KEYWORDS_H
+
+/*************************************************************
+ * Included Files
+ *************************************************************/
+
+#include "config.h"
+
+/*************************************************************
+ *Pre-processor Definitions
+ *************************************************************/
+
+#ifndef NULL
+#  define NULL ((void*)0)
+#endif
+
+#ifndef CONFIG_DEBUG
+# define CONFIG_DEBUG 0
+#endif
+
+#if CONFIG_DEBUG
+# define DEBUG(stream, format, arg...) fprintf(stream, format, ##arg)
+#else
+# define DEBUG(x...)
+#endif
+
+#ifndef CONFIG_TRACE
+# define CONFIG_TRACE 0
+#endif
+
+#if CONFIG_TRACE
+# define TRACE(stream, format, arg...) fprintf(stream, format, ##arg)
+#else
+# define TRACE(x...)
+#endif
+
+#define FAR
+
+#define dbg(...) fprintf(stderr, __VA_ARGS__)
+#define vdbg(...) DEBUG(__VA_ARGS__)
+
+#endif /* __KEYWORDS_H */
+
+
+
diff --git a/misc/pascal/include/paslib.h b/misc/pascal/include/paslib.h
index 7b2016401..55f965c10 100644
--- a/misc/pascal/include/paslib.h
+++ b/misc/pascal/include/paslib.h
@@ -3,7 +3,7 @@
  * External Declarations associated with paslib
  *
  *   Copyright (C) 2008-2009 Gregory Nutt. All rights reserved.
- *   Author: Gregory Nutt <spudmonkey@racsa.co.cr>
+ *   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
diff --git a/misc/pascal/include/pdefs.h b/misc/pascal/include/pdefs.h
index 692dd2817..3f794a981 100644
--- a/misc/pascal/include/pdefs.h
+++ b/misc/pascal/include/pdefs.h
@@ -3,7 +3,7 @@
  * Common definitions
  *
  *   Copyright (C) 2008-2009 Gregory Nutt. All rights reserved.
- *   Author: Gregory Nutt <spudmonkey@racsa.co.cr>
+ *   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
diff --git a/misc/pascal/include/pedefs.h b/misc/pascal/include/pedefs.h
index 56adebe9a..4957a9d2b 100644
--- a/misc/pascal/include/pedefs.h
+++ b/misc/pascal/include/pedefs.h
@@ -3,7 +3,7 @@
  * Definitions of error codes
  *
  *   Copyright (C) 2008-2009 Gregory Nutt. All rights reserved.
- *   Author: Gregory Nutt <spudmonkey@racsa.co.cr>
+ *   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
diff --git a/misc/pascal/include/perr.h b/misc/pascal/include/perr.h
index daf5a4639..a272ce89c 100644
--- a/misc/pascal/include/perr.h
+++ b/misc/pascal/include/perr.h
@@ -3,7 +3,7 @@
  * External Declarations associated with perr.c
  *
  *   Copyright (C) 2008-2009 Gregory Nutt. All rights reserved.
- *   Author: Gregory Nutt <spudmonkey@racsa.co.cr>
+ *   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
diff --git a/misc/pascal/include/pfdefs.h b/misc/pascal/include/pfdefs.h
index 76072ed2c..ac861a641 100644
--- a/misc/pascal/include/pfdefs.h
+++ b/misc/pascal/include/pfdefs.h
@@ -1,93 +1,93 @@
-/***********************************************************************

- * pfdefs.h

- * Floating point operation codes

- *

- *   Copyright (C) 2008-2009 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.

- *

- ***********************************************************************/

-

-#ifndef __PFDEFS_H

-#define __PFDEFS_H

-

-/***********************************************************************

- * FLOATING POINT SUB-OPCODES

- ***********************************************************************/

-

-/* This bit may be set in the opcode to indicate that the arguments

- * is(are) type integer and require(s) conversion. */

-

-#define fpARG1  (0x40)

-#define fpARG2  (0x80)

-#define fpMASK  (0x3f)

-#define fpSHIFT  6

-

-/* The "INVALID" floating point operation */

-

-#define fpINVLD (0x00)

-

-/* Floating Pointer Conversions (On 16-bit stack argument:  FP or Integer) */

-

-#define fpFLOAT (0x01)

-#define fpTRUNC (0x02)

-#define fpROUND (0x03)

-

-/* Floating Point arithmetic instructions (Two FP 16-bit stack arguments) */

-

-#define fpADD   (0x04)

-#define fpSUB   (0x05)

-#define fpMUL   (0x06)

-#define fpDIV   (0x07)

-#define fpMOD   (0x08)

-

-/* Floating Point Comparisons (Two FP 16-bit stack arguments) */

-

-#define fpEQU   (0x0a)

-#define fpNEQ   (0x0b)

-#define fpLT    (0x0c)

-#define fpGTE   (0x0d)

-#define fpGT    (0x0e)

-#define fpLTE   (0x0f)

-

-/* Floating Point arithmetic instructions (One FP 16-bit stack arguments) */

-

-#define fpNEG   (0x10)

-#define fpABS   (0x11)

-#define fpSQR   (0x12)

-#define fpSQRT  (0x13)

-#define fpSIN   (0x14)

-#define fpCOS   (0x15)

-#define fpATAN  (0x16)

-#define fpLN    (0x17)

-#define fpEXP   (0x18)

-

-#define MAX_FOP (0x19) /* Number of floating point operations */

-

-#endif /* __PFDEFS_H */

+/***********************************************************************
+ * pfdefs.h
+ * Floating point operation codes
+ *
+ *   Copyright (C) 2008-2009 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 __PFDEFS_H
+#define __PFDEFS_H
+
+/***********************************************************************
+ * FLOATING POINT SUB-OPCODES
+ ***********************************************************************/
+
+/* This bit may be set in the opcode to indicate that the arguments
+ * is(are) type integer and require(s) conversion. */
+
+#define fpARG1  (0x40)
+#define fpARG2  (0x80)
+#define fpMASK  (0x3f)
+#define fpSHIFT  6
+
+/* The "INVALID" floating point operation */
+
+#define fpINVLD (0x00)
+
+/* Floating Pointer Conversions (On 16-bit stack argument:  FP or Integer) */
+
+#define fpFLOAT (0x01)
+#define fpTRUNC (0x02)
+#define fpROUND (0x03)
+
+/* Floating Point arithmetic instructions (Two FP 16-bit stack arguments) */
+
+#define fpADD   (0x04)
+#define fpSUB   (0x05)
+#define fpMUL   (0x06)
+#define fpDIV   (0x07)
+#define fpMOD   (0x08)
+
+/* Floating Point Comparisons (Two FP 16-bit stack arguments) */
+
+#define fpEQU   (0x0a)
+#define fpNEQ   (0x0b)
+#define fpLT    (0x0c)
+#define fpGTE   (0x0d)
+#define fpGT    (0x0e)
+#define fpLTE   (0x0f)
+
+/* Floating Point arithmetic instructions (One FP 16-bit stack arguments) */
+
+#define fpNEG   (0x10)
+#define fpABS   (0x11)
+#define fpSQR   (0x12)
+#define fpSQRT  (0x13)
+#define fpSIN   (0x14)
+#define fpCOS   (0x15)
+#define fpATAN  (0x16)
+#define fpLN    (0x17)
+#define fpEXP   (0x18)
+
+#define MAX_FOP (0x19) /* Number of floating point operations */
+
+#endif /* __PFDEFS_H */
diff --git a/misc/pascal/include/pinsn.h b/misc/pascal/include/pinsn.h
index de4f571dd..b2276b099 100644
--- a/misc/pascal/include/pinsn.h
+++ b/misc/pascal/include/pinsn.h
@@ -3,7 +3,7 @@
  * External Declarations associated libinsn.a
  *
  *   Copyright (C) 2008-2009 Gregory Nutt. All rights reserved.
- *   Author: Gregory Nutt <spudmonkey@racsa.co.cr>
+ *   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
diff --git a/misc/pascal/include/podefs.h b/misc/pascal/include/podefs.h
index 9d372b402..fc25d62a4 100644
--- a/misc/pascal/include/podefs.h
+++ b/misc/pascal/include/podefs.h
@@ -3,7 +3,7 @@
  * Logical P-code operation code definitions
  *
  *   Copyright (C) 2008-2009 Gregory Nutt. All rights reserved.
- *   Author: Gregory Nutt <spudmonkey@racsa.co.cr>
+ *   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
diff --git a/misc/pascal/include/poff.h b/misc/pascal/include/poff.h
index e0516f9ee..7cc33b290 100644
--- a/misc/pascal/include/poff.h
+++ b/misc/pascal/include/poff.h
@@ -3,7 +3,7 @@
  * Definitions for the PCode Object File Format (POFF)
  *
  *   Copyright (C) 2008-2009 Gregory Nutt. All rights reserved.
- *   Author: Gregory Nutt <spudmonkey@racsa.co.cr>
+ *   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
diff --git a/misc/pascal/include/pofflib.h b/misc/pascal/include/pofflib.h
index 44013623c..3547fca60 100644
--- a/misc/pascal/include/pofflib.h
+++ b/misc/pascal/include/pofflib.h
@@ -3,7 +3,7 @@
  * Interfaces to the POFF library
  *
  *   Copyright (C) 2008-2009 Gregory Nutt. All rights reserved.
- *   Author: Gregory Nutt <spudmonkey@racsa.co.cr>
+ *   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
diff --git a/misc/pascal/include/pxdefs.h b/misc/pascal/include/pxdefs.h
index 202ccfe5f..8c9ab834d 100644
--- a/misc/pascal/include/pxdefs.h
+++ b/misc/pascal/include/pxdefs.h
@@ -1,232 +1,232 @@
-/***********************************************************************

- * pxdefs.h

- * Definitions of the arguments of the oSYSIO opcode

- *

- *   Copyright (C) 2008-2009 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.

- *

- ***********************************************************************/

-

-#ifndef __PXDEFS_H

-#define __PXDEFS_H

-

-/***********************************************************************/

-/* Codes for system IO calls associated with standard Pascal procedure

- * and function calls.  These must be confined to the range 0x0000

- * through 0xffff.

- */

-

-#define xEOF            (0x0001)

-#define xEOLN           (0x0002)

-#define xRESET          (0x0003)

-#define xREWRITE        (0x0004)

-

-#define xREADLN         (0x0010)

-#define xREAD_PAGE      (0x0011)

-#define xREAD_BINARY    (0x0012)

-#define xREAD_INT       (0x0013)

-#define xREAD_CHAR      (0x0014)

-#define xREAD_STRING    (0x0015)

-#define xREAD_REAL      (0x0016)

-

-#define xWRITELN        (0x0020)

-#define xWRITE_PAGE     (0x0021)

-#define xWRITE_BINARY   (0x0022)

-#define xWRITE_INT      (0x0023)

-#define xWRITE_CHAR     (0x0024)

-#define xWRITE_STRING   (0x0025)

-#define xWRITE_REAL     (0x0026)

-

-#define MAX_XOP         (0x0027)

-

-/***********************************************************************/

-/* Codes for runtime library interfaces.  These must be confined to the

- * range 0x0000 through 0xffff.

- */

-

-/* Get an environment string.

- *   function getent(name : string) : cstring;

- * ON INPUT:

- *   TOS(0)=length of string

- *   TOS(1)=pointer to string

- * ON RETURN:  actual parameters released

- *   TOS(0,1)=32-bit absolute address of string

- */

-

-#define lbGETENV        (0x0000)

-

-/* Copy pascal string to a pascal string

- *   procedure str2str(src : string; var dest : string)

- * ON INPUT:

- *   TOS(0)=address of dest string

- *   TOS(1)=length of source string

- *   TOS(2)=pointer to source string

- * ON RETURN: actual parameters released.

- */

-

-#define lbSTR2STR       (0x0001)

-

-/* Copy C string to a pascal string

- *   procedure cstr2str(src : cstring; var dest : string)

- * ON INPUT:

- *   TOS(0)=address of dest string

- *   TOS(1,2)=32-bit absolute address of C string

- * ON RETURN: actual parameters released

- */

-

-#define lbCSTR2STR      (0x0002)

-

-/* Copy pascal string to a pascal string reference

- *   procedure str2rstr(src : string; var dest : rstring)

- * ON INPUT:

- *   TOS(0)=address of dest string reference

- *   TOS(1)=length of source string

- *   TOS(2)=pointer to source string

- * ON RETURN: actual parameters released.

- */

-

-#define lbSTR2RSTR      (0x0003)

-

-/* Copy C string to a pascal string reference

- *   procedure cstr2str(src : cstring; var dest : string)

- * ON INPUT:

- *   TOS(0)=address of dest string reference

- *   TOS(0)=MS 16-bits of 32-bit C source string pointer

- *   TOS(1)=LS 16-bits of 32-bit C source string pointer

- * ON RETURN: actual parameters released

- */

-

-#define lbCSTR2RSTR     (0x0004)

-

-/* Convert a string to a numeric value

- *   procedure val(const s : string; var v; var code : word); 

- *

- * Description:

- * val() converts the value represented in the string S to a numerical

- * value, and stores this value in the variable V, which can be of type

- * Longint, Real and Byte. If the conversion isn¡Çt succesfull, then the

- * parameter Code contains the index of the character in S which

- * prevented the conversion. The string S is allowed to contain spaces

- * in the beginning.

- *

- * The string S can contain a number in decimal, hexadecimal, binary or

- * octal format, as described in the language reference.

- *

- * Errors:

- * If the conversion doesn¡Çt succeed, the value of Code indicates the

- * position where the conversion went wrong.

- *

- * ON INPUT

- *   TOS(0)=address of Code

- *   TOS(1)=address of v

- *   TOS(2)=length of source string

- *   TOS(3)=pointer to source string

- * ON RETURN: actual parameters released

- */

-

-#define lbVAL           (0x0005)

-

-/* Create an empty string

- *   function mkstk : string;

- * ON INPUT

- * ON RETURN

- *   TOS(0)=length of new string

- *   TOS(1)=pointer to new string

- */

-

-#define lbMKSTK         (0x0006)

-

-/* Replace a string with a duplicate string residing in allocated

- * string stack.

- *   function mkstkstr(name : string) : string;

- * ON INPUT

- *   TOS(0)=length of original string

- *   TOS(1)=pointer to original string

- * ON RETURN

- *  TOS(0)=length of new string

- *  TOS(1)=pointer to new string

- */

-

-#define lbMKSTKSTR      (0x0007)

-

-/* Replace a character with a string residing in allocated string stack.

- *   function mkstkc(c : char) : string;

- * ON INPUT

- *   TOS(0)=Character value

- * ON RETURN

- *   TOS(0)=length of new string

- *   TOS(1)=pointer to new string

- */

-

-#define lbMKSTKC        (0x0008)

-

-/* Concatenate a string to the end of a string.

- *   function strcat(name : string, c : char) : string;

- * ON INPUT

- *   TOS(0)=length of string

- *   TOS(1)=pointer to string

- *   TOS(2)=length of string

- *   TOS(3)=pointer to string

- * ON OUTPUT

- *   TOS(1)=new length of string

- *   TOS(2)=pointer to string

- */

-

-#define lbSTRCAT        (0x0009)

-

-/* Concatenate a character to the end of a string.

- *   function strcatc(name : string, c : char) : string;

- * ON INPUT

- *   TOS(0)=character to concatenate

- *   TOS(1)=length of string

- *   TOS(2)=pointer to string

- * ON OUTPUT

- *   TOS(1)=new length of string

- *   TOS(2)=pointer to string

- */

-

-#define lbSTRCATC       (0x000a)

-

-/* Compare two pascal strings

- *   function strcmp(name1 : string, name2 : string) : integer;

- * ON INPUT

- *   TOS(1)=length of string2

- *   TOS(2)=address of string2 data

- *   TOS(3)=length of string1

- *   TOS(4)=address of string1 data

- * ON OUTPUT

- *   TOS(0)=(-1=less than, 0=equal, 1=greater than} 

- */

-

-#define lbSTRCMP        (0x000b)

-

-#define MAX_LBOP        (0x000c)

-

-#endif /* __PXDEFS_H */

+/***********************************************************************
+ * pxdefs.h
+ * Definitions of the arguments of the oSYSIO opcode
+ *
+ *   Copyright (C) 2008-2009 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 __PXDEFS_H
+#define __PXDEFS_H
+
+/***********************************************************************/
+/* Codes for system IO calls associated with standard Pascal procedure
+ * and function calls.  These must be confined to the range 0x0000
+ * through 0xffff.
+ */
+
+#define xEOF            (0x0001)
+#define xEOLN           (0x0002)
+#define xRESET          (0x0003)
+#define xREWRITE        (0x0004)
+
+#define xREADLN         (0x0010)
+#define xREAD_PAGE      (0x0011)
+#define xREAD_BINARY    (0x0012)
+#define xREAD_INT       (0x0013)
+#define xREAD_CHAR      (0x0014)
+#define xREAD_STRING    (0x0015)
+#define xREAD_REAL      (0x0016)
+
+#define xWRITELN        (0x0020)
+#define xWRITE_PAGE     (0x0021)
+#define xWRITE_BINARY   (0x0022)
+#define xWRITE_INT      (0x0023)
+#define xWRITE_CHAR     (0x0024)
+#define xWRITE_STRING   (0x0025)
+#define xWRITE_REAL     (0x0026)
+
+#define MAX_XOP         (0x0027)
+
+/***********************************************************************/
+/* Codes for runtime library interfaces.  These must be confined to the
+ * range 0x0000 through 0xffff.
+ */
+
+/* Get an environment string.
+ *   function getent(name : string) : cstring;
+ * ON INPUT:
+ *   TOS(0)=length of string
+ *   TOS(1)=pointer to string
+ * ON RETURN:  actual parameters released
+ *   TOS(0,1)=32-bit absolute address of string
+ */
+
+#define lbGETENV        (0x0000)
+
+/* Copy pascal string to a pascal string
+ *   procedure str2str(src : string; var dest : string)
+ * ON INPUT:
+ *   TOS(0)=address of dest string
+ *   TOS(1)=length of source string
+ *   TOS(2)=pointer to source string
+ * ON RETURN: actual parameters released.
+ */
+
+#define lbSTR2STR       (0x0001)
+
+/* Copy C string to a pascal string
+ *   procedure cstr2str(src : cstring; var dest : string)
+ * ON INPUT:
+ *   TOS(0)=address of dest string
+ *   TOS(1,2)=32-bit absolute address of C string
+ * ON RETURN: actual parameters released
+ */
+
+#define lbCSTR2STR      (0x0002)
+
+/* Copy pascal string to a pascal string reference
+ *   procedure str2rstr(src : string; var dest : rstring)
+ * ON INPUT:
+ *   TOS(0)=address of dest string reference
+ *   TOS(1)=length of source string
+ *   TOS(2)=pointer to source string
+ * ON RETURN: actual parameters released.
+ */
+
+#define lbSTR2RSTR      (0x0003)
+
+/* Copy C string to a pascal string reference
+ *   procedure cstr2str(src : cstring; var dest : string)
+ * ON INPUT:
+ *   TOS(0)=address of dest string reference
+ *   TOS(0)=MS 16-bits of 32-bit C source string pointer
+ *   TOS(1)=LS 16-bits of 32-bit C source string pointer
+ * ON RETURN: actual parameters released
+ */
+
+#define lbCSTR2RSTR     (0x0004)
+
+/* Convert a string to a numeric value
+ *   procedure val(const s : string; var v; var code : word); 
+ *
+ * Description:
+ * val() converts the value represented in the string S to a numerical
+ * value, and stores this value in the variable V, which can be of type
+ * Longint, Real and Byte. If the conversion isn¡Çt succesfull, then the
+ * parameter Code contains the index of the character in S which
+ * prevented the conversion. The string S is allowed to contain spaces
+ * in the beginning.
+ *
+ * The string S can contain a number in decimal, hexadecimal, binary or
+ * octal format, as described in the language reference.
+ *
+ * Errors:
+ * If the conversion doesn¡Çt succeed, the value of Code indicates the
+ * position where the conversion went wrong.
+ *
+ * ON INPUT
+ *   TOS(0)=address of Code
+ *   TOS(1)=address of v
+ *   TOS(2)=length of source string
+ *   TOS(3)=pointer to source string
+ * ON RETURN: actual parameters released
+ */
+
+#define lbVAL           (0x0005)
+
+/* Create an empty string
+ *   function mkstk : string;
+ * ON INPUT
+ * ON RETURN
+ *   TOS(0)=length of new string
+ *   TOS(1)=pointer to new string
+ */
+
+#define lbMKSTK         (0x0006)
+
+/* Replace a string with a duplicate string residing in allocated
+ * string stack.
+ *   function mkstkstr(name : string) : string;
+ * ON INPUT
+ *   TOS(0)=length of original string
+ *   TOS(1)=pointer to original string
+ * ON RETURN
+ *  TOS(0)=length of new string
+ *  TOS(1)=pointer to new string
+ */
+
+#define lbMKSTKSTR      (0x0007)
+
+/* Replace a character with a string residing in allocated string stack.
+ *   function mkstkc(c : char) : string;
+ * ON INPUT
+ *   TOS(0)=Character value
+ * ON RETURN
+ *   TOS(0)=length of new string
+ *   TOS(1)=pointer to new string
+ */
+
+#define lbMKSTKC        (0x0008)
+
+/* Concatenate a string to the end of a string.
+ *   function strcat(name : string, c : char) : string;
+ * ON INPUT
+ *   TOS(0)=length of string
+ *   TOS(1)=pointer to string
+ *   TOS(2)=length of string
+ *   TOS(3)=pointer to string
+ * ON OUTPUT
+ *   TOS(1)=new length of string
+ *   TOS(2)=pointer to string
+ */
+
+#define lbSTRCAT        (0x0009)
+
+/* Concatenate a character to the end of a string.
+ *   function strcatc(name : string, c : char) : string;
+ * ON INPUT
+ *   TOS(0)=character to concatenate
+ *   TOS(1)=length of string
+ *   TOS(2)=pointer to string
+ * ON OUTPUT
+ *   TOS(1)=new length of string
+ *   TOS(2)=pointer to string
+ */
+
+#define lbSTRCATC       (0x000a)
+
+/* Compare two pascal strings
+ *   function strcmp(name1 : string, name2 : string) : integer;
+ * ON INPUT
+ *   TOS(1)=length of string2
+ *   TOS(2)=address of string2 data
+ *   TOS(3)=length of string1
+ *   TOS(4)=address of string1 data
+ * ON OUTPUT
+ *   TOS(0)=(-1=less than, 0=equal, 1=greater than} 
+ */
+
+#define lbSTRCMP        (0x000b)
+
+#define MAX_LBOP        (0x000c)
+
+#endif /* __PXDEFS_H */