BSD 4_3_Net_2 release

[unix-history] / usr / src / contrib / isode / dsap / common / fax.c

/* fax.c - facsimileTelephoneNumber attribute */

#ifndef lint
static char *rcsid = "$Header: /f/osi/dsap/common/RCS/fax.c,v 7.1 91/02/22 09:19:11 mrose Interim $";
#endif

/* 
* $Header: /f/osi/dsap/common/RCS/fax.c,v 7.1 91/02/22 09:19:11 mrose Interim $
*
*
* $Log:        fax.c,v $
* Revision 7.1  91/02/22  09:19:11  mrose
* Interim 6.8
* 
* 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"
#include "quipu/syntaxes.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;

   f -> fax_bits = bitstr2strb (f -> bits, & f -> fax_len);

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

   if (f -> fax_bits)
           free (f -> fax_bits);

   return pe;
}

/* \f */

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

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

   if ( f -> fax_bits ) {
           f -> bits = strb2bitstr ( f -> fax_bits, f -> fax_len, 
                             PE_CLASS_UNIV, PE_PRIM_BITS);

           free ( f -> fax_bits );
   }

   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);
}