DataMuseum.dk

top - metrics - download

    Length: 1115 (0x45b)
    Types: TextFile
    Names: »IMISC-12.c«

└─⟦2d1937cfd⟧ Bits:30007241 EUUGD22: P.P 5.0
    └─⟦e83f91978⟧ »EurOpenD22/isode/osimis-2.0.tar.Z« 
        └─⟦d846658bd⟧ 
            └─⟦this⟧ »osimis/misode/imisc/IMISC-12.c« 

TextFile

/* automatically generated by pepy 6.0 #3 (embarcadero.cs.ucl.ac.uk), do not edit! */

#include "psap.h"

#define	advise	PY_advise

void	advise ();

/* Generated from module IMISC */

#include <stdio.h>
#include "IMISC-types.h"

#ifndef PEPYPARM
#define PEPYPARM char *
#endif /* PEPYPARM */
extern PEPYPARM NullParm;

/* ARGSUSED */

int	decode_IMISC_Empty (pe, explicit, len, buffer, parm)
PE	pe;
int	explicit;
integer    *len;
char  **buffer;
struct type_IMISC_Empty ** parm;
{
#ifdef DEBUG
    (void) testdebug (pe, "IMISC.Empty");
#endif

    if (explicit) {
        if (pe -> pe_class != PE_CLASS_UNIV || pe -> pe_id != PE_PRIM_NULL) {
            advise (NULLCP, "Empty bad class/form/id: %s/%d/0x%x",
                    pe_classlist[pe -> pe_class], pe -> pe_form, pe -> pe_id);
            return NOTOK;
        }
    }

    {
# line 81 "IMISC-types.py"

        if ((*(parm) = (struct type_IMISC_Empty *)
                calloc (1, sizeof **(parm))) == ((struct type_IMISC_Empty *) 0)) {
            advise (NULLCP, "%s", PEPY_ERR_NOMEM);
            return NOTOK;
        }
    
    }

    return OK;
}