1 /*********************************************************************** 2 * * 3 * This software is part of the ast package * 4 * Copyright (c) 1985-2007 AT&T Knowledge Ventures * 5 * and is licensed under the * 6 * Common Public License, Version 1.0 * 7 * by AT&T Knowledge Ventures * 8 * * 9 * A copy of the License is available at * 10 * http://www.opensource.org/licenses/cpl1.0.txt * 11 * (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) * 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* 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