1 /* @(#) pf_text.c 98/01/26 1.3 */
\r
2 /***************************************************************
\r
3 ** Text Strings for Error Messages
\r
4 ** Various Text tools.
\r
6 ** For PForth based on 'C'
\r
9 ** Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom
\r
11 ** The pForth software code is dedicated to the public domain,
\r
12 ** and any third party may reproduce, distribute and modify
\r
13 ** the pForth software code or any derivative works thereof
\r
14 ** without any compensation or license. The pForth software
\r
15 ** code is provided on an "as is" basis without any warranty
\r
16 ** of any kind, including, without limitation, the implied
\r
17 ** warranties of merchantability and fitness for a particular
\r
18 ** purpose and their equivalents under the laws of any jurisdiction.
\r
20 ****************************************************************
\r
21 ** 19970702 PLB Fixed ConvertNumberToText for unsigned numbers.
\r
22 ** 19980522 PLB Expand PAD for ConvertNumberToText so "-1 binary .s" doesn't crash.
\r
23 ***************************************************************/
\r
30 ** Define array of error messages.
\r
31 ** These are defined in one place to make it easier to translate them.
\r
34 /***************************************************************/
\r
35 void pfReportError( const char *FunctionName, Err ErrCode )
\r
43 switch(ErrCode & 0xFF)
\r
45 case PF_ERR_NO_MEM & 0xFF:
\r
46 s = "insufficient memory"; break;
\r
47 case PF_ERR_TOO_BIG & 0xFF:
\r
48 s = "data chunk too large"; break;
\r
49 case PF_ERR_NUM_PARAMS & 0xFF:
\r
50 s = "incorrect number of parameters"; break;
\r
51 case PF_ERR_OPEN_FILE & 0xFF:
\r
52 s = "could not open file"; break;
\r
53 case PF_ERR_WRONG_FILE & 0xFF:
\r
54 s = "wrong type of file format"; break;
\r
55 case PF_ERR_BAD_FILE & 0xFF:
\r
56 s = "badly formatted file"; break;
\r
57 case PF_ERR_READ_FILE & 0xFF:
\r
58 s = "file read failed"; break;
\r
59 case PF_ERR_WRITE_FILE & 0xFF:
\r
60 s = "file write failed"; break;
\r
61 case PF_ERR_CORRUPT_DIC & 0xFF:
\r
62 s = "corrupted dictionary"; break;
\r
63 case PF_ERR_NOT_SUPPORTED & 0xFF:
\r
64 s = "not supported in this version"; break;
\r
65 case PF_ERR_VERSION_FUTURE & 0xFF:
\r
66 s = "version from future"; break;
\r
67 case PF_ERR_VERSION_PAST & 0xFF:
\r
68 s = "version is obsolete. Rebuild new one."; break;
\r
69 case PF_ERR_COLON_STACK & 0xFF:
\r
70 s = "stack depth changed between : and ; . Probably unbalanced conditional"; break;
\r
71 case PF_ERR_HEADER_ROOM & 0xFF:
\r
72 s = "no room left in header space"; break;
\r
73 case PF_ERR_CODE_ROOM & 0xFF:
\r
74 s = "no room left in code space"; break;
\r
75 case PF_ERR_NO_SHELL & 0xFF:
\r
76 s = "attempt to use names in forth compiled with PF_NO_SHELL"; break;
\r
77 case PF_ERR_NO_NAMES & 0xFF:
\r
78 s = "dictionary has no names"; break;
\r
79 case PF_ERR_OUT_OF_RANGE & 0xFF:
\r
80 s = "parameter out of range"; break;
\r
81 case PF_ERR_ENDIAN_CONFLICT & 0xFF:
\r
82 s = "endian-ness of dictionary does not match code"; break;
\r
83 case PF_ERR_FLOAT_CONFLICT & 0xFF:
\r
84 s = "float support mismatch between .dic file and code"; break;
\r
86 s = "unrecognized error code!"; break;
\r
92 void pfReportThrow( ThrowCode code )
\r
94 const char *s = NULL;
\r
98 case THROW_ABORT_QUOTE:
\r
100 case THROW_STACK_OVERFLOW:
\r
101 s = "Stack overflow!"; break;
\r
102 case THROW_STACK_UNDERFLOW:
\r
103 s = "Stack underflow!"; break;
\r
104 case THROW_EXECUTING:
\r
105 s = "Executing a compile-only word!"; break;
\r
106 case THROW_FLOAT_STACK_UNDERFLOW:
\r
107 s = "Float Stack underflow!"; break;
\r
108 case THROW_UNDEFINED_WORD:
\r
109 s = "Undefined word!"; break;
\r
111 s = "Conditional control structure mismatch!"; break;
\r
115 case THROW_SEMICOLON:
\r
116 s = "Stack depth changed between : and ; . Probably unbalanced conditional!"; break;
\r
117 case THROW_DEFERRED:
\r
118 s = "Not a DEFERred word!"; break;
\r
120 s = "Unrecognized throw code!"; break;
\r
125 MSG_NUM_D("THROW code = ", code );
\r
132 /**************************************************************
\r
133 ** Copy a Forth String to a 'C' string.
\r
136 char *ForthStringToC( char *dst, const char *FString )
\r
140 Len = (int32) *FString;
\r
141 pfCopyMemory( dst, FString+1, Len );
\r
147 /**************************************************************
\r
148 ** Copy a NUL terminated string to a Forth counted string.
\r
150 char *CStringToForth( char *dst, const char *CString )
\r
156 for( i=0; *CString; i++ )
\r
164 /**************************************************************
\r
165 ** Compare two test strings, case sensitive.
\r
166 ** Return TRUE if they match.
\r
168 int32 ffCompareText( const char *s1, const char *s2, int32 len )
\r
173 for( i=0; i<len; i++ )
\r
175 DBUGX(("ffCompareText: *s1 = 0x%x, *s2 = 0x%x\n", *s1, *s2 ));
\r
176 if( *s1++ != *s2++ )
\r
182 DBUGX(("ffCompareText: return 0x%x\n", Result ));
\r
186 /**************************************************************
\r
187 ** Compare two test strings, case INsensitive.
\r
188 ** Return TRUE if they match.
\r
190 int32 ffCompareTextCaseN( const char *s1, const char *s2, int32 len )
\r
196 for( i=0; i<len; i++ )
\r
198 c1 = pfCharToLower(*s1++);
\r
199 c2 = pfCharToLower(*s2++);
\r
200 DBUGX(("ffCompareText: c1 = 0x%x, c2 = 0x%x\n", c1, c2 ));
\r
207 DBUGX(("ffCompareText: return 0x%x\n", Result ));
\r
211 /**************************************************************
\r
212 ** Compare two strings, case sensitive.
\r
213 ** Return zero if they match, -1 if s1<s2, +1 is s1>s2;
\r
215 int32 ffCompare( const char *s1, int32 len1, const char *s2, int32 len2 )
\r
217 int32 i, result, n, diff;
\r
220 n = MIN(len1,len2);
\r
221 for( i=0; i<n; i++ )
\r
223 if( (diff = (*s2++ - *s1++)) != 0 )
\r
225 result = (diff > 0) ? -1 : 1 ;
\r
229 if( result == 0 ) /* Match up to MIN(len1,len2) */
\r
235 else if ( len1 > len2 )
\r
243 /***************************************************************
\r
244 ** Convert number to text.
\r
246 #define CNTT_PAD_SIZE ((sizeof(int32)*8)+2) /* PLB 19980522 - Expand PAD so "-1 binary .s" doesn't crash. */
\r
247 static char cnttPad[CNTT_PAD_SIZE];
\r
249 char *ConvertNumberToText( int32 Num, int32 Base, int32 IfSigned, int32 MinChars )
\r
251 int32 IfNegative = 0;
\r
253 uint32 NewNum, Rem, uNum;
\r
259 /* Convert to positive and keep sign. */
\r
267 /* Point past end of Pad */
\r
268 p = cnttPad + CNTT_PAD_SIZE;
\r
269 *(--p) = (char) 0; /* NUL terminate */
\r
271 while( (i++<MinChars) || (uNum != 0) )
\r
273 NewNum = uNum / Base;
\r
274 Rem = uNum - (NewNum * Base);
\r
275 c = (char) (( Rem < 10 ) ? (Rem + '0') : (Rem - 10 + 'A'));
\r
282 if( IfNegative ) *(--p) = '-';
\r
287 /***************************************************************
\r
288 ** Diagnostic routine that prints memory in table format.
\r
290 void DumpMemory( void *addr, int32 cnt)
\r
292 int32 ln, cn, nlines;
\r
293 unsigned char *ptr, *cptr, c;
\r
295 nlines = (cnt + 15) / 16;
\r
297 ptr = (unsigned char *) addr;
\r
301 for (ln=0; ln<nlines; ln++)
\r
303 MSG( ConvertNumberToText( (int32) ptr, 16, FALSE, 8 ) );
\r
306 for (cn=0; cn<16; cn++)
\r
308 MSG( ConvertNumberToText( (int32) *cptr++, 16, FALSE, 2 ) );
\r
312 for (cn=0; cn<16; cn++)
\r
315 if ((c < ' ') || (c > '}')) c = '.';
\r
323 /* Print name, mask off any dictionary bits. */
\r
324 void TypeName( const char *Name )
\r
326 const char *FirstChar;
\r
329 FirstChar = Name+1;
\r
330 Len = *Name & 0x1F;
\r
332 ioType( FirstChar, Len );
\r