1 /* @(#) pf_clib.h 96/12/18 1.10 */
\r
5 /***************************************************************
\r
6 ** Include file for PForth tools
\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
28 cell_t pfCStringLength( const char *s );
\r
29 void *pfSetMemory( void *s, cell_t c, cell_t n );
\r
30 void *pfCopyMemory( void *s1, const void *s2, cell_t n);
\r
31 #define EXIT(n) {while(1);}
\r
37 #else /* PF_NO_CLIB */
\r
40 #include PF_USER_CLIB
\r
42 /* Use stdlib functions if available because they are probably faster. */
\r
43 #define pfCStringLength strlen
\r
44 #define pfSetMemory memset
\r
45 #define pfCopyMemory memcpy
\r
46 #define EXIT(n) exit(n)
\r
47 #endif /* PF_USER_CLIB */
\r
49 #endif /* !PF_NO_CLIB */
\r
55 /* Always use my own functions to avoid macro expansion problems with tolower(*s++) */
\r
56 char pfCharToUpper( char c );
\r
57 char pfCharToLower( char c );
\r
63 #endif /* _pf_clib_h */
\r