1 /***********************************************************************
2 * *
3 * This software is part of the ast package *
4 * Copyright (c) 1985-2011 AT&T Intellectual Property *
5 * and is licensed under the *
6 * Eclipse Public License, Version 1.0 *
7 * by AT&T Intellectual Property *
8 * *
9 * A copy of the License is available at *
10 * http://www.eclipse.org/org/documents/epl-v10.html *
11 * (with md5 checksum b35adb5213ca9657e911e9befb180842) *
12 * *
13 * Information and Software Systems Research *
14 * AT&T Research *
15 * Florham Park NJ *
16 * *
17 * Glenn Fowler <gsf@research.att.com> *
18 * David Korn <dgk@research.att.com> *
19 * Phong Vo <kpv@research.att.com> *
20 * *
21 ***********************************************************************/
22 #pragma prototyped
23
24 /*
25 * return the record format string given a format descriptor
26 */
27
28 #include <recfmt.h>
29 #include <ctype.h>
30
31 char*
fmtrec(Recfmt_t f,int fs)32 fmtrec(Recfmt_t f, int fs)
33 {
34 char* b;
35 char* e;
36 char* s;
37 long n;
38 char del[2];
39
40 b = s = fmtbuf(n = 32);
41 e = b + n;
42 switch (RECTYPE(f))
43 {
44 case REC_delimited:
45 *s++ = 'd';
46 if ((del[0] = REC_D_DELIMITER(f)) != '\n')
47 {
48 del[1] = 0;
49 if (fs)
50 sfsprintf(s, e - s, "0x%02x", *(unsigned char*)del);
51 else
52 sfsprintf(s, e - s, "%s", fmtquote(del, NiL, NiL, 1, 0));
53 }
54 else
55 *s = 0;
56 break;
57 case REC_fixed:
58 if (!fs)
59 *s++ = 'f';
60 sfsprintf(s, e - s, "%lu", REC_F_SIZE(f));
61 break;
62 case REC_variable:
63 *s++ = 'v';
64 if (n = REC_V_SIZE(f))
65 s += sfsprintf(s, e - s, "%lu", n);
66 if (REC_V_HEADER(f) != 4)
67 s += sfsprintf(s, e - s, "h%u", REC_V_HEADER(f));
68 if (REC_V_OFFSET(f) != 0)
69 s += sfsprintf(s, e - s, "o%u", REC_V_OFFSET(f));
70 if (REC_V_LENGTH(f) != 2)
71 s += sfsprintf(s, e - s, "z%u", REC_V_LENGTH(f));
72 if (REC_V_LITTLE(f) != 0)
73 *s++ = 'l';
74 if (REC_V_INCLUSIVE(f) == 0)
75 *s++ = 'n';
76 *s = 0;
77 break;
78 case REC_method:
79 *s++ = 'm';
80 switch (n = REC_M_INDEX(f))
81 {
82 case REC_M_data:
83 sfsprintf(s, e - s, "data");
84 break;
85 case REC_M_path:
86 sfsprintf(s, e - s, "path");
87 break;
88 default:
89 sfsprintf(s, e - s, "%lu", n);
90 break;
91 }
92 break;
93 case REC_none:
94 *s++ = 'n';
95 *s = 0;
96 break;
97 default:
98 sfsprintf(s, e - s, "u%u.0x%07x", RECTYPE(f), REC_U_ATTRIBUTES(f));
99 break;
100 }
101 return b;
102 }
103