text: /* $Id: iscntrl.c 506 2010-12-29 13:19:53Z solar $ */
  
  /* iscntrl( int )
  
     This file is part of the Public Domain C Library (PDCLib).
     Permission is granted to use, modify, and / or redistribute at will.
  */
  
  #include <ctype.h>
  
  #ifndef REGTEST
  
  #include <locale.h>
  
  int iscntrl( int c )
  {
      return ( _PDCLIB_lconv.ctype[c].flags & _PDCLIB_CTYPE_CNTRL );
  }
  
  #endif
  
  #ifdef TEST
  #include <_PDCLIB_test.h>
  
  int main( void )
  {
      TESTCASE( iscntrl( '\a' ) );
      TESTCASE( iscntrl( '\b' ) );
      TESTCASE( iscntrl( '\n' ) );
      TESTCASE( ! iscntrl( ' ' ) );
      return TEST_RESULTS;
  }
  
  #endif
  