|
|
1.1 root 1: /* time2prim.c - time string to presentation element */
2:
3: #ifndef lint
4: static char *rcsid = "$Header: /f/osi/psap/RCS/time2prim.c,v 7.0 89/11/23 22:13:52 mrose Rel $";
5: #endif
6:
7: /*
8: * $Header: /f/osi/psap/RCS/time2prim.c,v 7.0 89/11/23 22:13:52 mrose Rel $
9: *
10: *
11: * $Log: time2prim.c,v $
12: * Revision 7.0 89/11/23 22:13:52 mrose
13: * Release 6.0
14: *
15: */
16:
17: /*
18: * NOTICE
19: *
20: * Acquisition, use, and distribution of this module and related
21: * materials are subject to the restrictions of a license agreement.
22: * Consult the Preface in the User's Manual for the full terms of
23: * this agreement.
24: *
25: */
26:
27:
28: /* LINTLIBRARY */
29:
30: #include <stdio.h>
31: #include "psap.h"
32:
33: /* */
34:
35: PE time2prim (u, generalized, class, id)
36: register UTC u;
37: int generalized;
38: PElementClass class;
39: PElementID id;
40: {
41: register int len;
42: register char *bp;
43: register PE pe;
44:
45: if ((bp = time2str (u, generalized)) == NULLCP)
46: return NULLPE;
47:
48: if ((pe = pe_alloc (class, PE_FORM_PRIM, id)) == NULLPE)
49: return NULLPE;
50:
51: if ((pe -> pe_prim = PEDalloc (len = strlen (bp))) == NULLPED) {
52: pe_free (pe);
53: return NULLPE;
54: }
55: PEDcpy (bp, pe -> pe_prim, pe -> pe_len = len);
56:
57: return pe;
58: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.