DataMuseum.dk

top - metrics - download

    Length: 5211 (0x145b)
    Types: TextFile
    Names: »fax.c«

└─⟦2d1937cfd⟧ Bits:30007241 EUUGD22: P.P 5.0
    └─⟦35176feda⟧ »EurOpenD22/isode/isode-6.tar.Z« 
        └─⟦de7628f85⟧ 
            └─⟦this⟧ »isode-6.0/dsap/common/fax.c« 

TextFile

/* fax.c - facsimileTelephoneNumber attribute */

#ifndef	lint
static char *rcsid = "$Header: /f/osi/dsap/common/RCS/fax.c,v 7.0 89/11/23 21:42:12 mrose Rel $";
#endif

/* 
 * $Header: /f/osi/dsap/common/RCS/fax.c,v 7.0 89/11/23 21:42:12 mrose Rel $
 *
 *
 * $Log:	fax.c,v $
 * Revision 7.0  89/11/23  21:42:12  mrose
 * Release 6.0
 * 
 */

/*
 *				  NOTICE
 *
 *    Acquisition, use, and distribution of this module and related
 *    materials are subject to the restrictions of a license agreement.
 *    Consult the Preface in the User's Manual for the full terms of
 *    this agreement.
 *
 */


/* 
	SYNTAX 
	fax ::= <printablestring> [ <parameters> ]
	parameters ::= <parm> | <parm> $ <parameters>
	<parm> ::= "twoDimensional" | "fineResolution" | "unlimitedLength" |
		   "b4Length" | "a3Width" | "b4Width" | "uncompressed"

	EXAMPLE
		123-4567 $ twoDimensional
*/

/* LINTLIBRARY */

#include "quipu/util.h"
#include "quipu/entry.h"

/* \f

 */

struct pair {
    char   *p_name;
    int	    p_value;
};

static struct pair pairs[] = {
    "twoDimensional", 8,
    "fineResolution", 9,
    "unlimitedLength", 20,
    "b4Length", 21,
    "a3Width", 22,
    "b4Width", 23,
    "uncompressed", 30,

    NULL
};

/* \f

 */

static	fax_free (f)
register struct fax *f;
{
    free (f -> number);

    if (f -> bits)
	pe_free (f -> bits);

    free ((char *) f);
}

/* \f

 */

static struct fax *fax_cpy (a)
register struct fax *a;
{
    register struct fax *f;

    f = (struct fax *) smalloc (sizeof *f);

    f -> number = strdup (a -> number);
    f -> bits = a -> bits ? pe_cpy (a -> bits) : NULLPE;

    return f;
}

/* \f

 */

static int  fax_cmp (a, b)
register struct fax *a;
register struct fax *b;
{
    int	    i;

    if (a == (struct fax *) NULL)
	return (b ? -1 : 0);
    else
	if  (b == (struct fax *) NULL)
	    return 1;

    if (i = telcmp (a -> number, b -> number))
	return i;

    return pe_cmp (a -> bits, b -> bits);
}

/* \f

 */

static	fax_print (ps, f, format)
register PS ps;
register struct fax *f;
int	format;
{
    register int   i;
    register struct pair *p;
    register PE    pe;

    if (format == READOUT) {
	ps_printf (ps, "%s", f -> number);

	if ((pe = f -> bits) && (i = pe -> pe_nbits) > 0) {
	    char    *cp = " {";

	    while (i-- >= 0)
		if (bit_test (pe, i) > OK) {
		    for (p = pairs; p -> p_name; p++)
			if (p -> p_value == i)
			    break;
		    if (p -> p_name)
			ps_printf (ps, "%s %s", cp, p -> p_name);
		    else
			ps_printf (ps, "%s %d", cp, i);
		    cp = ",";
		}

	    if (*cp == ',')
		ps_print (ps, " }");
	}
    }
    else {
	ps_printf (ps, "%s", f -> number);

	if ((pe = f -> bits) && (i = pe -> pe_nbits) > 0) {
	    char    *cp = " $";

	    while (i-- >= 0)
		if (bit_test (pe, i) > OK) {
		    for (p = pairs; p -> p_name; p++)
			if (p -> p_value == i)
			    break;
		    if (p -> p_name)
			ps_printf (ps, "%s %s", cp, p -> p_name);
		    else
			ps_printf (ps, "%s %d", cp, i);
		    cp = "";
		}
	}
    }
}

/* \f

 */

char   *TidyString ();

static struct fax *str2fax (str)
register char  *str;
{
    int	    value;
    register char  *ptr,
		  **ap;
    char   *vec[NVEC + 1];
    register struct fax *f;
    register struct pair *p;

    f = (struct fax *) smalloc (sizeof *f);

    if (ptr = index (str, '$'))
	*ptr = NULL;
    if (strlen (str) > UB_TELEPHONE_NUMBER) {
	parse_error ("fax phone number too big",NULLCP);
	free ((char *) f);
        return ((struct fax *) NULL);
    }
    f -> number = TidyString (strdup (str));
    f -> bits = NULLPE;

    if (!ptr)
	return f;

    *ptr++ = '$';
    ptr = strdup (ptr);

    bzero ((char *) vec, sizeof vec);
    (void) str2vec (ptr, vec);

    for (ap = vec; *ap; ap++) {
	if (sscanf (*ap, "%d", &value) == 1 && value >= 0)
	    goto got_value;

	for (p = pairs; p -> p_name; p++)
	    if (lexequ (p -> p_name, *ap) == 0)
		break;
	if (! p -> p_name) {
	    parse_error ("unknown G3fax non-basic parameter: '%s'", *ap);

you_lose: ;
	    free (ptr);
	    free (f -> number);
	    if (f -> bits)
		pe_free (f -> bits);
	    free ((char *) f);

	    return ((struct fax *) NULL);
	}
	value = p -> p_value;

got_value: ;
	if ((f -> bits == NULLPE
		    && (f -> bits = prim2bit (pe_alloc (PE_CLASS_UNIV,
							PE_FORM_PRIM,
							PE_PRIM_BITS)))
			    == NULLPE)
		|| bit_on (f -> bits, value) == NOTOK) {
no_allocate: ;
	    parse_error ("unable to allocate G3fax non-basic parameter",NULLCP);
	    goto you_lose;
	}
    }

    if (bit2prim (f -> bits) == NULLPE)
	goto no_allocate;

    free (ptr);

    return f;
}

/* \f

 */

static PE  fax_enc (f)
struct fax *f;
{
    PE	pe = NULLPE;

    (void) encode_SA_FacsimileTelephoneNumber (&pe, 0, 0, NULLCP, f);

    return pe;
}

/* \f

 */

static struct fax *fax_dec (pe)
PE	pe;
{
    struct fax *f;

    f = (struct fax *) smalloc (sizeof *f);

    if (decode_SA_FacsimileTelephoneNumber (pe, 1, NULLIP, NULLVP, f)
	    == NOTOK) {
	free ((char *) f);
	return ((struct fax *) NULL);
    }

    return f;
}

/* \f

 */

fax_syntax () {
    (void) add_attribute_syntax ("FacsimileTelephoneNumber",
				 (IFP) fax_enc,	(IFP) fax_dec,
				 (IFP) str2fax,	fax_print,
				 (IFP) fax_cpy,	fax_cmp,
				 fax_free,	NULLCP,
				 NULLIFP,	TRUE);
}