1 /* @(#) pf_text.h 96/12/18 1.10 */
5 /***************************************************************
6 ** Include file for PForth Text
9 ** Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom
11 ** Permission to use, copy, modify, and/or distribute this
12 ** software for any purpose with or without fee is hereby granted.
14 ** THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
15 ** WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
16 ** WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL
17 ** THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR
18 ** CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
19 ** FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
20 ** CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
21 ** OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
23 ***************************************************************/
25 #define PF_ERR_INDEX_MASK (0xFFFF)
26 #define PF_ERR_BASE (0x80000000)
27 #define PF_ERR_NO_MEM (PF_ERR_BASE | 0)
28 #define PF_ERR_TOO_BIG (PF_ERR_BASE | 2)
29 #define PF_ERR_NUM_PARAMS (PF_ERR_BASE | 3)
30 #define PF_ERR_OPEN_FILE (PF_ERR_BASE | 4)
31 #define PF_ERR_WRONG_FILE (PF_ERR_BASE | 5)
32 #define PF_ERR_BAD_FILE (PF_ERR_BASE | 6)
33 #define PF_ERR_READ_FILE (PF_ERR_BASE | 7)
34 #define PF_ERR_WRITE_FILE (PF_ERR_BASE | 8)
35 #define PF_ERR_CORRUPT_DIC (PF_ERR_BASE | 9)
36 #define PF_ERR_NOT_SUPPORTED (PF_ERR_BASE | 10)
37 #define PF_ERR_VERSION_FUTURE (PF_ERR_BASE | 11)
38 #define PF_ERR_VERSION_PAST (PF_ERR_BASE | 12)
39 #define PF_ERR_COLON_STACK (PF_ERR_BASE | 13)
40 #define PF_ERR_HEADER_ROOM (PF_ERR_BASE | 14)
41 #define PF_ERR_CODE_ROOM (PF_ERR_BASE | 15)
42 #define PF_ERR_NO_SHELL (PF_ERR_BASE | 16)
43 #define PF_ERR_NO_NAMES (PF_ERR_BASE | 17)
44 #define PF_ERR_OUT_OF_RANGE (PF_ERR_BASE | 18)
45 #define PF_ERR_ENDIAN_CONFLICT (PF_ERR_BASE | 19)
46 #define PF_ERR_FLOAT_CONFLICT (PF_ERR_BASE | 20)
47 #define PF_ERR_CELL_SIZE_CONFLICT (PF_ERR_BASE | 21)
48 /* If you add an error code here, also add a text message in "pf_text.c". */
54 void pfReportError( const char *FunctionName, Err ErrCode );
55 void pfReportThrow( ThrowCode code );
57 char *ForthStringToC( char *dst, const char *FString, cell_t dstSize );
58 char *CStringToForth( char *dst, const char *CString, cell_t dstSize );
60 cell_t ffCompare( const char *s1, cell_t len1, const char *s2, cell_t len2 );
61 cell_t ffCompareText( const char *s1, const char *s2, cell_t len );
62 cell_t ffCompareTextCaseN( const char *s1, const char *s2, cell_t len );
64 void DumpMemory( void *addr, cell_t cnt);
65 char *ConvertNumberToText( cell_t Num, cell_t Base, int32_t IfSigned, int32_t MinChars );
66 void TypeName( const char *Name );
68 cell_t pfUnitTestText( void );
74 #endif /* _pforth_text_h */