1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
/* @(#) pf_text.h 96/12/18 1.10 */
#ifndef _pforth_text_h
#define _pforth_text_h
/***************************************************************
** Include file for PForth Text
**
** Author: Phil Burk
** Copyright 1994 3DO, Phil Burk, Larry Polansky, Devid Rosenboom
**
** The pForth software code is dedicated to the public domain,
** and any third party may reproduce, distribute and modify
** the pForth software code or any derivative works thereof
** without any compensation or license. The pForth software
** code is provided on an "as is" basis without any warranty
** of any kind, including, without limitation, the implied
** warranties of merchantability and fitness for a particular
** purpose and their equivalents under the laws of any jurisdiction.
**
***************************************************************/
#define PF_ERR_INDEX_MASK (0xFFFF)
#define PF_ERR_BASE (0x80000000)
#define PF_ERR_NO_MEM (PF_ERR_BASE | 0)
#define PF_ERR_BAD_ADDR (PF_ERR_BASE | 1)
#define PF_ERR_TOO_BIG (PF_ERR_BASE | 2)
#define PF_ERR_NUM_PARAMS (PF_ERR_BASE | 3)
#define PF_ERR_OPEN_FILE (PF_ERR_BASE | 4)
#define PF_ERR_WRONG_FILE (PF_ERR_BASE | 5)
#define PF_ERR_BAD_FILE (PF_ERR_BASE | 6)
#define PF_ERR_READ_FILE (PF_ERR_BASE | 7)
#define PF_ERR_WRITE_FILE (PF_ERR_BASE | 8)
#define PF_ERR_CORRUPT_DIC (PF_ERR_BASE | 9)
#define PF_ERR_NOT_SUPPORTED (PF_ERR_BASE | 10)
#define PF_ERR_VERSION_FUTURE (PF_ERR_BASE | 11)
#define PF_ERR_VERSION_PAST (PF_ERR_BASE | 12)
#define PF_ERR_COLON_STACK (PF_ERR_BASE | 13)
#define PF_ERR_HEADER_ROOM (PF_ERR_BASE | 14)
#define PF_ERR_CODE_ROOM (PF_ERR_BASE | 15)
#define PF_ERR_NO_SHELL (PF_ERR_BASE | 16)
#define PF_ERR_NO_NAMES (PF_ERR_BASE | 17)
#define PF_ERR_OUT_OF_RANGE (PF_ERR_BASE | 18)
#define PF_ERR_ENDIAN_CONFLICT (PF_ERR_BASE | 19)
#define PF_ERR_FLOAT_CONFLICT (PF_ERR_BASE | 20)
/* If you add an error code here, also add a text message in "pf_text.c". */
#ifdef __cplusplus
extern "C" {
#endif
void pfReportError( const char *FunctionName, Err ErrCode );
char *ForthStringToC( char *dst, const char *FString );
char *CStringToForth( char *dst, const char *CString );
int32 ffCompare( const char *s1, int32 len1, const char *s2, int32 len2 );
int32 ffCompareText( const char *s1, const char *s2, int32 len );
int32 ffCompareTextCaseN( const char *s1, const char *s2, int32 len );
void DumpMemory( void *addr, int32 cnt);
char *ConvertNumberToText( int32 Num, int32 Base, int32 IfSigned, int32 MinChars );
void TypeName( const char *Name );
#ifdef __cplusplus
}
#endif
#endif /* _pforth_text_h */
|
