X-Git-Url: https://pd.if.org/git/?a=blobdiff_plain;f=functions%2Fstring%2Fstrcoll.c;h=7c8c1803a9b65c6db78f822e1fd7518fd7908c13;hb=e1c526e9bad3f6e69391e94059096145390508d3;hp=3693e48071f975ebd4b631556c7172d0d416e327;hpb=c0169638bd02098717cb23fbbca3bcc4e4caccf0;p=pdclib diff --git a/functions/string/strcoll.c b/functions/string/strcoll.c index 3693e48..7c8c180 100644 --- a/functions/string/strcoll.c +++ b/functions/string/strcoll.c @@ -1,20 +1,41 @@ -/* $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. */ +#include -int strcmp( const char * s1, const char * s2 ); +#ifndef REGTEST + +#include <_PDCLIB_locale.h> int strcoll( const char * s1, const char * s2 ) { - return strcmp( s1, s2 ); + const _PDCLIB_ctype_t * ctype = _PDCLIB_threadlocale()->_CType; + + while ( ( *s1 ) && ( ctype[(unsigned char)*s1].collation == ctype[(unsigned char)*s2].collation ) ) + { + ++s1; + ++s2; + } + return ( ctype[(unsigned char)*s1].collation == ctype[(unsigned char)*s2].collation ); } -#warning Test driver missing. +#endif + +#ifdef TEST +#include <_PDCLIB_test.h> + +int main( void ) +{ + char cmpabcde[] = "abcde"; + char empty[] = ""; + TESTCASE( strcmp( abcde, cmpabcde ) == 0 ); + TESTCASE( strcmp( abcde, abcdx ) < 0 ); + TESTCASE( strcmp( abcdx, abcde ) > 0 ); + TESTCASE( strcmp( empty, abcde ) < 0 ); + TESTCASE( strcmp( abcde, empty ) > 0 ); + return TEST_RESULTS; +} +#endif