X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/bb6b2dcdd9acffabfd373c4c3f6b64a9cc43f335..1f99f95d6a7eecc05cae8fb357f9b7bf564c2725:/csrc/pf_clib.h diff --git a/csrc/pf_clib.h b/csrc/pf_clib.h index 0d8ad18..71d846d 100644 --- a/csrc/pf_clib.h +++ b/csrc/pf_clib.h @@ -1,63 +1,66 @@ -/* @(#) pf_clib.h 96/12/18 1.10 */ -#ifndef _pf_clib_h -#define _pf_clib_h - -/*************************************************************** -** Include file for PForth tools -** -** Author: Phil Burk -** Copyright 1994 3DO, Phil Burk, Larry Polansky, David 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. -** -***************************************************************/ - -#ifdef PF_NO_CLIB - - #ifdef __cplusplus - extern "C" { - #endif - - cell pfCStringLength( const char *s ); - void *pfSetMemory( void *s, cell c, cell n ); - void *pfCopyMemory( void *s1, const void *s2, cell n); - #define EXIT(n) {while(1);} - - #ifdef __cplusplus - } - #endif - -#else /* PF_NO_CLIB */ - - #ifdef PF_USER_CLIB - #include PF_USER_CLIB - #else -/* Use stdlib functions if available because they are probably faster. */ - #define pfCStringLength strlen - #define pfSetMemory memset - #define pfCopyMemory memcpy - #define EXIT(n) exit(n) - #endif /* PF_USER_CLIB */ - -#endif /* !PF_NO_CLIB */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* Always use my own functions to avoid macro expansion problems with tolower(*s++) */ -char pfCharToUpper( char c ); -char pfCharToLower( char c ); - -#ifdef __cplusplus -} -#endif - -#endif /* _pf_clib_h */ +/* @(#) pf_clib.h 96/12/18 1.10 */ +#ifndef _pf_clib_h +#define _pf_clib_h + +/*************************************************************** +** Include file for PForth tools +** +** Author: Phil Burk +** Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom +** +** Permission to use, copy, modify, and/or distribute this +** software for any purpose with or without fee is hereby granted. +** +** THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL +** WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED +** WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL +** THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR +** CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING +** FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF +** CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF +** OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. +** +***************************************************************/ + +#ifdef PF_NO_CLIB + + #ifdef __cplusplus + extern "C" { + #endif + + cell_t pfCStringLength( const char *s ); + void *pfSetMemory( void *s, cell_t c, cell_t n ); + void *pfCopyMemory( void *s1, const void *s2, cell_t n); + #define EXIT(n) {while(1);} + + #ifdef __cplusplus + } + #endif + +#else /* PF_NO_CLIB */ + + #ifdef PF_USER_CLIB + #include PF_USER_CLIB + #else +/* Use stdlib functions if available because they are probably faster. */ + #define pfCStringLength strlen + #define pfSetMemory memset + #define pfCopyMemory memcpy + #define EXIT(n) exit(n) + #endif /* PF_USER_CLIB */ + +#endif /* !PF_NO_CLIB */ + +#ifdef __cplusplus +extern "C" { +#endif + +/* Always use my own functions to avoid macro expansion problems with tolower(*s++) */ +char pfCharToUpper( char c ); +char pfCharToLower( char c ); + +#ifdef __cplusplus +} +#endif + +#endif /* _pf_clib_h */