Lines Matching defs:format
1 /* Tcl format strings.
25 #include "format.h"
29 #include "format-invalid.h"
34 /* Tcl format strings are described in the tcl8.3.3/doc/format.n manual
100 format_parse (const char *format, bool translated, char *fdi,
103 const char *const format_start = format;
118 for (; *format != '\0';)
119 if (*format++ == '%')
122 FDI_SET (format - 1, FMTDIR_START);
125 if (*format != '%')
132 if (isdigit (*format))
134 const char *f = format;
153 format = ++f;
159 FDI_SET (format - 1, FMTDIR_ERROR);
173 FDI_SET (format - 1, FMTDIR_ERROR);
180 while (*format == ' ' || *format == '+' || *format == '-'
181 || *format == '#' || *format == '0')
182 format++;
185 if (*format == '*')
187 format++;
200 else if (isdigit (*format))
202 do format++; while (isdigit (*format));
206 if (*format == '.')
208 format++;
210 if (*format == '*')
212 format++;
225 else if (isdigit (*format))
227 do format++; while (isdigit (*format));
233 if (*format == 'h')
234 short_flag = true, format++;
235 else if (*format == 'l')
236 format++;
238 switch (*format)
256 if (*format == '\0')
259 FDI_SET (format - 1, FMTDIR_ERROR);
264 INVALID_CONVERSION_SPECIFIER (spec.directives, *format);
265 FDI_SET (format, FMTDIR_ERROR);
282 FDI_SET (format, FMTDIR_END);
284 format++;
390 error_logger (_("a format specification for argument %u, as in '%s', doesn't exist in 'msgid'"),
400 error_logger (_("a format specification for argument %u doesn't exist in '%s'"),
420 error_logger (_("format specifications in 'msgid' and '%s' for argument %u are not the same"),
544 * compile-command: "/bin/sh ../libtool --tag=CC --mode=link gcc -o a.out -static -O -g -Wall -I.. -I../gnulib-lib -I../intl -DHAVE_CONFIG_H -DTEST format-tcl.c ../gnulib-lib/libgettextlib.la"