Return to boolean.c CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / isode-beta / dsap / common

Annotation of 43BSDReno/contrib/isode-beta/dsap/common/boolean.c, revision 1.1

1.1     ! root        1: /* SYNTAX boolean ::= 'TRUE' | 'FALSE' */
        !             2: 
        !             3: #include "quipu/util.h"
        !             4: #include "quipu/attr.h"
        !             5: #include "psap.h"
        !             6: 
        !             7: strprint();
        !             8: sfree();
        !             9: pstrcmp();
        !            10: 
        !            11: static PE boolenc (x)
        !            12: char *x;
        !            13: {
        !            14:        return (bool2prim (lexequ (x,"TRUE") ? 0 : 1));
        !            15: }
        !            16: 
        !            17: static char * booldec (pe)
        !            18: PE pe;
        !            19: {
        !            20:         if (! test_prim_pe (pe,PE_CLASS_UNIV,PE_PRIM_BOOL))
        !            21:                return (NULLCP);
        !            22: 
        !            23:        if (prim2flag (pe) == 1)
        !            24:                return (strdup ("TRUE"));
        !            25:        else
        !            26:                return (strdup ("FALSE"));
        !            27: }
        !            28: 
        !            29: static char * boolget (x)
        !            30: char * x;
        !            31: {
        !            32:        if ((lexequ (x,"TRUE") == 0) || (lexequ (x,"FALSE") == 0))
        !            33:                return (strdup(x));
        !            34: 
        !            35:        parse_error ("TRUE or FALSE expected (%s)",x);
        !            36:        return (NULLCP);
        !            37: }
        !            38: 
        !            39: boolean_syntax ()
        !            40: {
        !            41:        (void) add_attribute_syntax ("boolean",
        !            42:                (IFP) boolenc,  (IFP) booldec,
        !            43:                (IFP) boolget,  strprint,
        !            44:                (IFP) strdup,   pstrcmp,
        !            45:                sfree,          NULLCP,
        !            46:                NULLIFP,        FALSE);
        !            47: }
        !            48: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.