Category : C Source Code
Archive   : CSRC2.ZIP
Filename : CSMEMB.C

 
Output of file : CSMEMB.C contained in archive : CSRC2.ZIP
/*
* c s m e m b . c
*/

/*)LIBRARY
*/

#ifdef DOCUMENTATION

title csmember Test For Membership in a Cset
index Test for membership in a cset

synopsis

#ifdef vms
#include "c:cset.h"
#else
#include
#endif

int
csmember(cs,c);
CSET *cs;
int c;

description

csmember() returns TRUE if c is a member of the cset cs, FALSE
otherwise. Note that c is typically a char.

Note: c is not validated; c<0 or c>=cssize will return nonsense.
However, csmask is used to control unwanted sign extension - see
cset().

bugs

author

Jerry Leichter

#endif

/*
)EDITLEVEL=07
* Edit history
* 0.0 13-Jul-82 JSL Invention
* 0.1 16-Jul-82 JSL Reverse order of arguments for consistency
*/

#ifdef vms
#include "c:cset.h"
#else
#include
#endif

csmember(cs,c)
register CSET *cs;
register int c;
{
c &= csmask;

if ((int)cs & 1) /* A complemented cset */
{ cs = cscomp(cs); /* Get base cset */
return ((cs->table[c] & cs->mask) == 0);
/* Test if NOT there */
}
else
return ((cs->table[c] & cs->mask) != 0);
/* Test if there */
}


  3 Responses to “Category : C Source Code
Archive   : CSRC2.ZIP
Filename : CSMEMB.C
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/