Lines Matching defs:format
1 /* Object Pascal format strings.
25 #include "format.h"
29 #include "format-invalid.h"
34 /* Object Pascal format strings are usable with the "format" function in the
37 "sysutils" doesn't (yet?) have the "format" function.
105 format_parse (const char *format, bool translated, char *fdi,
108 const char *const format_start = format;
129 for (; *format != '\0';)
130 if (*format++ == '%')
133 FDI_SET (format - 1, FMTDIR_START);
136 if (*format != '%')
143 if (isdigit (*format))
145 const char *f = format;
159 format = ++f;
162 else if (*format == '*')
164 if (format[1] == ':')
167 format += 2;
172 if (*format == '-')
173 format++;
176 if (isdigit (*format))
179 format++;
180 while (isdigit (*format));
182 else if (*format == '*')
195 format++;
199 if (*format == '.')
201 format++;
203 if (isdigit (*format))
206 format++;
207 while (isdigit (*format));
209 else if (*format == '*')
222 format++;
225 --format; /* will jump to bad_format */
228 switch (c_tolower (*format))
246 if (*format == '\0')
249 FDI_SET (format - 1, FMTDIR_ERROR);
254 INVALID_CONVERSION_SPECIFIER (directives, *format);
255 FDI_SET (format, FMTDIR_ERROR);
287 FDI_SET (format, FMTDIR_END);
289 format++;
401 error_logger (_("a format specification for argument %u, as in '%s', doesn't exist in 'msgid'"),
411 error_logger (_("a format specification for argument %u doesn't exist in '%s'"),
431 error_logger (_("format specifications in 'msgid' and '%s' for argument %u are not the same"),
549 * 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-pascal.c ../gnulib-lib/libgettextlib.la"