Lines Matching defs:format
1 /* Perl format strings.
25 #include "format.h"
29 #include "format-invalid.h"
34 /* Perl format strings are implemented in function Perl_sv_vcatpvfn in
64 - '%m$' for the format string,
136 format_parse (const char *format, bool translated, char *fdi,
139 const char *const format_start = format;
153 for (; *format != '\0';)
154 if (*format++ == '%')
162 FDI_SET (format - 1, FMTDIR_START);
165 if (isnonzerodigit (*format))
167 const char *f = format;
180 format = ++f;
185 while (*format == ' ' || *format == '+' || *format == '-'
186 || *format == '#' || *format == '0')
187 format++;
190 if (*format == 'v')
192 format++;
195 else if (*format == '*')
197 const char *f = format;
202 format = ++f;
233 format = ++f;
266 if (*format == '*')
270 format++;
272 if (isnonzerodigit (*format))
274 const char *f = format;
287 format = ++f;
303 else if (isnonzerodigit (*format))
305 do format++; while (isdigit (*format));
309 if (*format == '.')
311 format++;
313 if (*format == '*')
317 format++;
319 if (isnonzerodigit (*format))
321 const char *f = format;
334 format = ++f;
350 while (isdigit (*format)) format++;
356 if (*format == 'h')
359 format++;
361 else if (*format == 'l')
363 if (format[1] == 'l')
366 format += 2;
371 format++;
374 else if (*format == 'L' || *format == 'q')
377 format++;
379 else if (*format == 'V')
382 format++;
384 else if (*format == 'I')
386 if (format[1] == '6' && format[2] == '4')
389 format += 3;
391 else if (format[1] == '3' && format[2] == '2')
394 format += 3;
399 format++;
403 switch (*format)
433 xasprintf (_("In the directive number %u, the size specifier is incompatible with the conversion specifier '%c'."), directives, *format);
434 FDI_SET (format, FMTDIR_ERROR);
446 if (*format == '\0')
449 FDI_SET (format - 1, FMTDIR_ERROR);
454 INVALID_CONVERSION_SPECIFIER (directives, *format);
455 FDI_SET (format, FMTDIR_ERROR);
473 FDI_SET (format, FMTDIR_END);
475 format++;
584 error_logger (_("a format specification for argument %u, as in '%s', doesn't exist in 'msgid'"),
594 error_logger (_("a format specification for argument %u doesn't exist in '%s'"),
614 error_logger (_("format specifications in 'msgid' and '%s' for argument %u are not the same"),
762 * 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-perl.c ../gnulib-lib/libgettextlib.la"