Merge pull request #13 from philburk/fixrom

[pforth] / csrc / pf_clib.c

/* @(#) pf_clib.c 96/12/18 1.12 */\r
/***************************************************************\r
** Duplicate functions from stdlib for PForth based on 'C'\r
**\r
** This code duplicates some of the code in the 'C' lib\r
** because it reduces the dependency on foreign libraries\r
** for monitor mode where no OS is available.\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
** 961124 PLB Advance pointers in pfCopyMemory() and pfSetMemory()\r
***************************************************************/\r
\r
#include "pf_all.h"\r
\r
#ifdef PF_NO_CLIB\r
/* Count chars until NUL.  Replace strlen() */\r
#define  NUL  ((char) 0)\r
cell_t pfCStringLength( const char *s )\r
{\r
	cell_t len = 0;\r
	while( *s++ != NUL ) len++;\r
	return len;\r
}\r
 \r
/*    void *memset (void *s, cell_t c, size_t n); */\r
void *pfSetMemory( void *s, cell_t c, cell_t n )\r
{\r
	uint8_t *p = s, byt = (uint8_t) c;\r
	while( (n--) > 0) *p++ = byt;\r
	return s;\r
}\r
\r
/*  void *memccpy (void *s1, const void *s2, cell_t c, size_t n); */\r
void *pfCopyMemory( void *s1, const void *s2, cell_t n)\r
{\r
	uint8_t *p1 = s1;\r
	const uint8_t *p2 = s2;\r
	while( (n--) > 0) *p1++ = *p2++;\r
	return s1;\r
}\r
\r
#endif  /* PF_NO_CLIB */\r
\r
char pfCharToUpper( char c )\r
{\r
	return (char) ( ((c>='a') && (c<='z')) ? (c - ('a' - 'A')) : c );\r
}\r
\r
char pfCharToLower( char c )\r
{\r
	return (char) ( ((c>='A') && (c<='Z')) ? (c + ('a' - 'A')) : c );\r
}\r