V25 with 64-bit support

[pforth] / csrc / pf_clib.h

/* @(#) pf_clib.h 96/12/18 1.10 */\r
#ifndef _pf_clib_h\r
#define _pf_clib_h\r
\r
/***************************************************************\r
** Include file for PForth tools\r
**\r
** Author: Phil Burk\r
** Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom\r
**\r
** The pForth software code is dedicated to the public domain,\r
** and any third party may reproduce, distribute and modify\r
** the pForth software code or any derivative works thereof\r
** without any compensation or license.  The pForth software\r
** code is provided on an "as is" basis without any warranty\r
** of any kind, including, without limitation, the implied\r
** warranties of merchantability and fitness for a particular\r
** purpose and their equivalents under the laws of any jurisdiction.\r
**\r
***************************************************************/\r
\r
#ifdef  PF_NO_CLIB\r
\r
	#ifdef __cplusplus\r
	extern "C" {\r
	#endif\r
\r
	cell_t pfCStringLength( const char *s );\r
	void *pfSetMemory( void *s, cell_t c, cell_t n );\r
	void *pfCopyMemory( void *s1, const void *s2, cell_t n);\r
	#define EXIT(n)  {while(1);}\r
	\r
	#ifdef __cplusplus\r
	}   \r
	#endif\r
\r
#else   /* PF_NO_CLIB */\r
\r
	#ifdef PF_USER_CLIB\r
		#include PF_USER_CLIB\r
	#else\r
/* Use stdlib functions if available because they are probably faster. */\r
		#define pfCStringLength strlen\r
		#define pfSetMemory     memset\r
		#define pfCopyMemory    memcpy\r
		#define EXIT(n)  exit(n)\r
	#endif /* PF_USER_CLIB */\r
	\r
#endif  /* !PF_NO_CLIB */\r
\r
#ifdef __cplusplus\r
extern "C" {\r
#endif\r
\r
/* Always use my own functions to avoid macro expansion problems with tolower(*s++) */\r
char pfCharToUpper( char c );\r
char pfCharToLower( char c );\r
\r
#ifdef __cplusplus\r
}   \r
#endif\r
\r
#endif /* _pf_clib_h */\r