From: solar Date: Sat, 8 Jan 2005 07:06:23 +0000 (+0000) Subject: Added some of . X-Git-Tag: v0.2~9 X-Git-Url: https://pd.if.org/git/?a=commitdiff_plain;ds=inline;h=c2f1367984ba4153d892062759c3813020b65a9a;p=pdclib Added some of . --- diff --git a/_PDCLIB_aux.h b/_PDCLIB_aux.h index 86712ee..4ef019e 100755 --- a/_PDCLIB_aux.h +++ b/_PDCLIB_aux.h @@ -20,16 +20,19 @@ #ifndef __STDC_VERSION__ #define _PDCLIB_C_VERSION 90 +#define _PDCLIB_restrict #elif __STDC_VERSION__ == 199409L #define _PDCLIB_C_VERSION 95 +#define _PDCLIB_restrict #elif __STDC_VERSION__ == 199901L #define _PDCLIB_C_VERSION 99 +#define _PDCLIB_restrict restrict #else #error Unsupported _ _STDC_VERSION_ _ (__STDC_VERSION__) (supported: ISO/IEC 9899:1990, 9899/AMD1:1995, and 9899:1999). #endif #ifndef __STDC_HOSTED__ -#error Compiler does not define _ _STDC_HOSTED_ _ (not standard-compliant)! +#warning Compiler does not define _ _STDC_HOSTED_ _ (not standard-compliant)! #elif __STDC_HOSTED__ == 0 #define _PDCLIB_HOSTED 0 #elif __STDC_HOSTED__ == 1 @@ -43,11 +46,6 @@ #warning PDCLib might not be fully conforming to either C89 or C95 prior to v2.x. #endif -#if _PDCLIB_HOSTED != 0 -#warning Up to the 1.x release, PDCLib is only complete as a freestanding environment. -#warning PDCLib might not be fully conforming as a hosted environment. -#endif - /* -------------------------------------------------------------------------- */ /* Helper macros: */ /* _PDCLIB_cc( x, y ) concatenates two preprocessor tokens without extending */ diff --git a/functions/string/memchr.c b/functions/string/memchr.c new file mode 100644 index 0000000..4194a85 --- /dev/null +++ b/functions/string/memchr.c @@ -0,0 +1,25 @@ +/* $Id$ */ + +/* Release $Name$ */ + +/* memchr( const void *, int, size_t ) + + This file is part of the Public Domain C Library (PDCLib). + Permission is granted to use, modify, and / or redistribute at will. +*/ + +#include + +void * memchr( const void * s, int c, size_t n ) +{ + const unsigned char * p = (const unsigned char *) s; + while ( n-- ) + { + if ( *p == (unsigned char) c ) + { + return (void *) p; + } + ++p; + } + return NULL; +} diff --git a/functions/string/memcmp.c b/functions/string/memcmp.c new file mode 100644 index 0000000..d873c07 --- /dev/null +++ b/functions/string/memcmp.c @@ -0,0 +1,27 @@ +/* $Id$ */ + +/* Release $Name$ */ + +/* memcmp( const void *, const void *, size_t ) + + This file is part of the Public Domain C Library (PDCLib). + Permission is granted to use, modify, and / or redistribute at will. +*/ + +#include + +int memcmp( const void * s1, const void * s2, size_t n ) +{ + const unsigned char * p1 = (const unsigned char *) s1; + const unsigned char * p2 = (const unsigned char *) s2; + while ( n-- ) + { + if ( *p1 != *p2 ) + { + return *p2 - *p1; + } + ++p1; + ++p2; + } + return 0; +} diff --git a/functions/string/memcpy.c b/functions/string/memcpy.c new file mode 100644 index 0000000..b483be5 --- /dev/null +++ b/functions/string/memcpy.c @@ -0,0 +1,22 @@ +/* $Id$ */ + +/* Release $Name$ */ + +/* memcpy( void *, const void *, size_t ) + + This file is part of the Public Domain C Library (PDCLib). + Permission is granted to use, modify, and / or redistribute at will. +*/ + +#include + +void * memcpy( void * _PDCLIB_restrict s1, const void * _PDCLIB_restrict s2, size_t n ) +{ + char * dest = (char *) s1; + const char * src = (const char *) s2; + while ( n-- ) + { + *dest++ = *src++; + } + return s1; +} diff --git a/functions/string/memmove.c b/functions/string/memmove.c new file mode 100644 index 0000000..b46a15a --- /dev/null +++ b/functions/string/memmove.c @@ -0,0 +1,34 @@ +/* $Id$ */ + +/* Release $Name$ */ + +/* memmove( void *, const void *, size_t ) + + This file is part of the Public Domain C Library (PDCLib). + Permission is granted to use, modify, and / or redistribute at will. +*/ + +#include + +void * memmove( void * s1, const void * s2, size_t n ) +{ + char * dest = (char *) s1; + const char * src = (const char *) s2; + if ( dest < src ) + { + while ( n-- ) + { + *dest++ = *src++; + } + } + else + { + src += n; + dest += n; + while ( n-- ) + { + *dest-- = *src--; + } + } + return s1; +} diff --git a/functions/string/strcat.c b/functions/string/strcat.c new file mode 100644 index 0000000..422565d --- /dev/null +++ b/functions/string/strcat.c @@ -0,0 +1,22 @@ +/* $Id$ */ + +/* Release $Name$ */ + +/* strcat( char *, const char * ) + + This file is part of the Public Domain C Library (PDCLib). + Permission is granted to use, modify, and / or redistribute at will. +*/ + +#include <_PDCLIB_aux.h> + +char * strcat( char * _PDCLIB_restrict s1, const char * _PDCLIB_restrict s2 ) +{ + char * rc = s1; + if ( *s1 ) + { + while ( *++s1 ); + } + while ( (*s1++ = *s2++) ); + return rc; +} diff --git a/functions/string/strchr.c b/functions/string/strchr.c new file mode 100644 index 0000000..ced1d55 --- /dev/null +++ b/functions/string/strchr.c @@ -0,0 +1,23 @@ +/* $Id$ */ + +/* Release $Name$ */ + +/* strchr( const char *, int ) + + This file is part of the Public Domain C Library (PDCLib). + Permission is granted to use, modify, and / or redistribute at will. +*/ + +#include + +char * strchr( const char * s, int c ) +{ + do + { + if ( *s == (char) c ) + { + return (char *) s; + } + } while ( *s++ ); + return NULL; +} diff --git a/functions/string/strcmp.c b/functions/string/strcmp.c new file mode 100644 index 0000000..59cc1d8 --- /dev/null +++ b/functions/string/strcmp.c @@ -0,0 +1,19 @@ +/* $Id$ */ + +/* Release $Name$ */ + +/* strcmp( const char *, const char * ) + + This file is part of the Public Domain C Library (PDCLib). + Permission is granted to use, modify, and / or redistribute at will. +*/ + +int strcmp( const char * s1, const char * s2 ) +{ + while ( ( *s1 ) && ( *s1 == *s2 ) ) + { + ++s1; + ++s2; + } + return ( *s1 - *s2 ); +} diff --git a/functions/string/strcoll.c b/functions/string/strcoll.c new file mode 100644 index 0000000..51fc59f --- /dev/null +++ b/functions/string/strcoll.c @@ -0,0 +1,18 @@ +/* $Id$ */ + +/* Release $Name$ */ + +/* strcoll( const char *, const char * ) + + This file is part of the Public Domain C Library (PDCLib). + Permission is granted to use, modify, and / or redistribute at will. +*/ + +/* TODO: Dummy function, PDCLib does not support locales yet. */ + +int strcmp( const char * s1, const char * s2 ); + +int strcoll( const char * s1, const char * s2 ) +{ + return strcmp( s1, s2 ); +} diff --git a/functions/string/strcpy.c b/functions/string/strcpy.c new file mode 100644 index 0000000..18fc91e --- /dev/null +++ b/functions/string/strcpy.c @@ -0,0 +1,18 @@ +/* $Id$ */ + +/* Release $Name$ */ + +/* strcpy( char *, const char * ) + + This file is part of the Public Domain C Library (PDCLib). + Permission is granted to use, modify, and / or redistribute at will. +*/ + +#include <_PDCLIB_aux.h> + +char * strcpy( char * _PDCLIB_restrict s1, const char * _PDCLIB_restrict s2 ) +{ + char * rc = s1; + while ( ( *s1++ = *s2++ ) ); + return rc; +} diff --git a/functions/string/strcspn.c b/functions/string/strcspn.c new file mode 100644 index 0000000..0417d51 --- /dev/null +++ b/functions/string/strcspn.c @@ -0,0 +1,30 @@ +/* $Id$ */ + +/* Release $Name$ */ + +/* strcspn( const char *, const char * ) + + This file is part of the Public Domain C Library (PDCLib). + Permission is granted to use, modify, and / or redistribute at will. +*/ + +#include + +size_t strcspn( const char * src_1, const char * src_2 ) +{ + size_t len = 0; + const char * src_p; + while ( src_1[len] != '\0' ) + { + src_p = src_2; + while ( *src_p != '\0' ) + { + if ( src_1[len] == *src_p++ ) + { + return len; + } + } + ++len; + } + return len; +} diff --git a/functions/string/strncat.c b/functions/string/strncat.c new file mode 100644 index 0000000..ff9e389 --- /dev/null +++ b/functions/string/strncat.c @@ -0,0 +1,29 @@ +/* $Id$ */ + +/* Release $Name$ */ + +/* strncat( char *, const char *, size_t ) + + This file is part of the Public Domain C Library (PDCLib). + Permission is granted to use, modify, and / or redistribute at will. +*/ + +#include + +char * strncat( char * _PDCLIB_restrict s1, const char * _PDCLIB_restrict s2, size_t n ) +{ + char * rc = s1; + while ( *s1 ) + { + ++s1; + } + while ( n && ( *s1++ = *s2++ ) ) + { + --n; + } + if ( n == 0 ) + { + *s1 = '\0'; + } + return rc; +} diff --git a/functions/string/strncmp.c b/functions/string/strncmp.c new file mode 100644 index 0000000..f64984e --- /dev/null +++ b/functions/string/strncmp.c @@ -0,0 +1,29 @@ +/* $Id$ */ + +/* Release $Name$ */ + +/* strncmp( const char *, const char *, size_t ) + + This file is part of the Public Domain C Library (PDCLib). + Permission is granted to use, modify, and / or redistribute at will. +*/ + +#include + +int strncmp( const char * s1, const char * s2, size_t n ) +{ + while ( n && ( *s1 == *s2 ) ) + { + ++s1; + ++s2; + --n; + } + if ( ( n == 0 ) ) + { + return 0; + } + else + { + return ( *s1 - *s2 ); + } +} diff --git a/functions/string/strncpy.c b/functions/string/strncpy.c new file mode 100644 index 0000000..614ca13 --- /dev/null +++ b/functions/string/strncpy.c @@ -0,0 +1,28 @@ +/* $Id$ */ + +/* Release $Name$ */ + +/* strncpy( char *, const char *, size_t ) + + This file is part of the Public Domain C Library (PDCLib). + Permission is granted to use, modify, and / or redistribute at will. +*/ + +#include + +char * strncpy( char * _PDCLIB_restrict s1, const char * _PDCLIB_restrict s2, size_t n ) +{ + char * rc = s1; + while ( ( n > 0 ) && ( *s1++ = *s2++ ) ) + { + /* Cannot do "n--" in the conditional as size_t is unsigned and we have + to check it again for >0 in the next loop. + */ + --n; + } + while ( n-- ) + { + *s1++ = '\0'; + } + return rc; +} diff --git a/functions/string/strxfrm.c b/functions/string/strxfrm.c new file mode 100644 index 0000000..60575cb --- /dev/null +++ b/functions/string/strxfrm.c @@ -0,0 +1,26 @@ +/* $Id$ */ + +/* Release $Name$ */ + +/* strxfrm( char *, const char *, size_t ) + + This file is part of the Public Domain C Library (PDCLib). + Permission is granted to use, modify, and / or redistribute at will. +*/ + +#include + +/* TODO: Dummy function, no locale support yet. */ + +size_t strxfrm( char * _PDCLIB_restrict s1, const char * _PDCLIB_restrict s2, size_t n ) +{ + size_t len = strlen( s2 ); + if ( len < n ) + { + /* Cannot use strncpy() here as the filling of s1 with '\0' is not part + of the spec. + */ + while ( n-- && ( *s1++ = *s2++ ) ); + } + return len; +}