-const int translate_fmt[40] =
- {
- -1, FMT_A, FMT_AHEX, FMT_COMMA, FMT_DOLLAR, FMT_F, FMT_IB,
- FMT_PIBHEX, FMT_P, FMT_PIB, FMT_PK, FMT_RB, FMT_RBHEX, -1,
- -1, FMT_Z, FMT_N, FMT_E, -1, -1, FMT_DATE, FMT_TIME,
- FMT_DATETIME, FMT_ADATE, FMT_JDATE, FMT_DTIME, FMT_WKDAY,
- FMT_MONTH, FMT_MOYR, FMT_QYR, FMT_WKYR, FMT_PCT, FMT_DOT,
- FMT_CCA, FMT_CCB, FMT_CCC, FMT_CCD, FMT_CCE, FMT_EDATE,
- FMT_SDATE,
- };
-
-int
-parse_format_specifier_name (const char **cp, int allow_xt)
-{
- struct fmt_desc *f;
- char *ep;
- int x;
-
- ep = ds_value (&tokstr);
- while (isalpha ((unsigned char) *ep))
- ep++;
- x = *ep;
- *ep = 0;
-
- for (f = formats; f->name[0]; f++)
- if (!strcmp (f->name, ds_value (&tokstr)))
- {
- int indx = f - formats;
-
- *ep = x;
- if (cp)
- *cp = ep;
-
- if (!allow_xt && (indx == FMT_T || indx == FMT_X))
- {
- msg (SE, _("X and T format specifiers not allowed here."));
- return -1;
- }
- return indx;
- }
-
- msg (SE, _("%s is not a valid data format."), ds_value (&tokstr));
- *ep = x;
- return -1;
-}