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