X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/bb6b2dcdd9acffabfd373c4c3f6b64a9cc43f335..e2531e837774276f6ffb3b284703c594644761f8:/csrc/pf_text.h diff --git a/csrc/pf_text.h b/csrc/pf_text.h index dfb4665..29e0218 100644 --- a/csrc/pf_text.h +++ b/csrc/pf_text.h @@ -41,6 +41,7 @@ #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) +#define PF_ERR_CELL_SIZE_CONFLICT (PF_ERR_BASE | 21) /* If you add an error code here, also add a text message in "pf_text.c". */ #ifdef __cplusplus @@ -50,17 +51,19 @@ extern "C" { void pfReportError( const char *FunctionName, Err ErrCode ); void pfReportThrow( ThrowCode code ); -char *ForthStringToC( char *dst, const char *FString ); -char *CStringToForth( char *dst, const char *CString ); +char *ForthStringToC( char *dst, const char *FString, cell_t dstSize ); +char *CStringToForth( char *dst, const char *CString, cell_t dstSize ); -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 ); +cell_t ffCompare( const char *s1, cell_t len1, const char *s2, int32_t len2 ); +cell_t ffCompareText( const char *s1, const char *s2, cell_t len ); +cell_t ffCompareTextCaseN( const char *s1, const char *s2, cell_t len ); -void DumpMemory( void *addr, int32 cnt); -char *ConvertNumberToText( int32 Num, int32 Base, int32 IfSigned, int32 MinChars ); +void DumpMemory( void *addr, cell_t cnt); +char *ConvertNumberToText( cell_t Num, cell_t Base, int32_t IfSigned, int32_t MinChars ); void TypeName( const char *Name ); - + +cell_t pfUnitTestText( void ); + #ifdef __cplusplus } #endif