Return to integer.c CVS log

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

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

1.1     ! root        1: /* LINTLIBRARY */
        !             2: 
        !             3: #include "quipu/util.h"
        !             4: #include "quipu/attr.h"
        !             5: #include "psap.h"
        !             6: 
        !             7: atoi();
        !             8: 
        !             9: static PE intenc (x)
        !            10: int x;
        !            11: {
        !            12:        return (int2prim(x));
        !            13: }
        !            14: 
        !            15: static intdec (pe)
        !            16: PE pe;
        !            17: {
        !            18:         if (! test_prim_pe (pe,PE_CLASS_UNIV,PE_PRIM_INT))
        !            19:                return (0);
        !            20: 
        !            21:        return (prim2num(pe));
        !            22: }
        !            23: 
        !            24: /* ARGSUSED */
        !            25: static intprint (ps,x,format)
        !            26: PS ps;
        !            27: int x,format;
        !            28: {
        !            29:        ps_printf (ps,"%d",x);
        !            30: }
        !            31: 
        !            32: static intdup (x)
        !            33: int x;
        !            34: {
        !            35:        return (x);
        !            36: }
        !            37: 
        !            38: static intcmp (x,y)
        !            39: int x,y;
        !            40: {
        !            41:        return ( x == y ? 0 : (x > y ? 1 : -1) );
        !            42: }
        !            43: 
        !            44: integer_syntax ()
        !            45: {
        !            46:        (void) add_attribute_syntax ("integer",
        !            47:                (IFP) intenc,   (IFP) intdec,
        !            48:                (IFP) atoi,     intprint,
        !            49:                (IFP) intdup,   intcmp,
        !            50:                NULLIFP,        NULLCP,
        !            51:                NULLIFP,        FALSE);
        !            52: }

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