forked from Archive/PX4-Autopilot
233 lines
7.1 KiB
C
233 lines
7.1 KiB
C
/***********************************************************************
|
|
* 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 */
|