Lines Matching defs:format
1 /* Emacs Lisp format strings.
25 #include "format.h"
29 #include "format-invalid.h"
34 /* Emacs Lisp format strings are implemented in emacs-21.1/src/editfns.c,
97 format_parse (const char *format, bool translated, char *fdi,
100 const char *const format_start = format;
111 for (; *format != '\0';)
112 if (*format++ == '%')
117 FDI_SET (format - 1, FMTDIR_START);
120 if (isdigit (*format))
122 const char *f = format;
135 format = ++f;
140 while (*format == ' ' || *format == '+' || *format == '-'
141 || *format == '#' || *format == '0')
142 format++;
145 if (*format == '*')
147 format++;
160 else if (isdigit (*format))
162 do format++; while (isdigit (*format));
166 if (*format == '.')
168 format++;
170 if (*format == '*')
172 format++;
185 else if (isdigit (*format))
187 do format++; while (isdigit (*format));
191 switch (*format)
212 if (*format == '\0')
215 FDI_SET (format - 1, FMTDIR_ERROR);
220 INVALID_CONVERSION_SPECIFIER (spec.directives, *format);
221 FDI_SET (format, FMTDIR_ERROR);
240 FDI_SET (format, FMTDIR_END);
242 format++;
348 error_logger (_("a format specification for argument %u, as in '%s', doesn't exist in 'msgid'"),
358 error_logger (_("a format specification for argument %u doesn't exist in '%s'"),
378 error_logger (_("format specifications in 'msgid' and '%s' for argument %u are not the same"),
496 * 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-elisp.c ../gnulib-lib/libgettextlib.la"