X-Git-Url: https://pd.if.org/git/?a=blobdiff_plain;f=functions%2Fctype%2Fislower.c;fp=functions%2Fctype%2Fislower.c;h=d98069a6e0c2c8c6c17c4fd26b92f0ae62e3d0d3;hb=3a92b78272cd3f0f413bb1cfc0c77deef49967fd;hp=0000000000000000000000000000000000000000;hpb=be35e77c0d824e5bd545620ca81c812f9e16f0e5;p=pdclib.old diff --git a/functions/ctype/islower.c b/functions/ctype/islower.c new file mode 100644 index 0000000..d98069a --- /dev/null +++ b/functions/ctype/islower.c @@ -0,0 +1,34 @@ +/* $Id$ */ + +/* islower( int ) + + This file is part of the Public Domain C Library (PDCLib). + Permission is granted to use, modify, and / or redistribute at will. +*/ + +#include + +#ifndef REGTEST + +int islower( int c ) +{ + return ( _PDCLIB_locale_info.ctype[c].flags & _PDCLIB_CTYPE_LOWER ); +} + +#endif + +#ifdef TEST +#include <_PDCLIB_test.h> + +int main( void ) +{ + TESTCASE( islower( 'a' ) ); + TESTCASE( islower( 'z' ) ); + TESTCASE( ! islower( 'A' ) ); + TESTCASE( ! islower( 'Z' ) ); + TESTCASE( ! islower( ' ' ) ); + TESTCASE( ! islower( '@' ) ); + return TEST_RESULTS; +} + +#endif