Mercurial > hg > xemacs-beta

comparison src/doprnt.c @ 2267:5753220a0f80

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-14 02:53:13 by james] Preformat syntax error messages.
author james
date Tue, 14 Sep 2004 02:53:16 +0000
parents 4e6a63799f08
children 4ec724310f33
comparison
equal deleted inserted replaced
2266:7561cb77a6e6 2267:5753220a0f80
595 if (!NUMBERP (obj)) 595 if (!NUMBERP (obj))
596 #else 596 #else
597 if (!INT_OR_FLOATP (obj)) 597 if (!INT_OR_FLOATP (obj))
598 #endif 598 #endif
599 { 599 {
600 syntax_error 600 /* WARNING! This MUST be big enough for the sprintf below */
601 ("format specifier %%%c doesn't match argument type", 601 CIbyte message[48];
602 make_char (ch)); 602 sprintf (message,
603 "format specifier %%%c doesn't match argument type",
604 ch);
605 syntax_error (message, Qnil);
603 } 606 }
604 else if (strchr (double_converters, ch)) 607 else if (strchr (double_converters, ch))
605 { 608 {
606 #ifdef WITH_NUMBER_TYPES 609 #ifdef WITH_NUMBER_TYPES
607 if (INTP (obj) || FLOATP (obj)) 610 if (INTP (obj) || FLOATP (obj))
713 Ibyte charbuf[MAX_ICHAR_LEN]; 716 Ibyte charbuf[MAX_ICHAR_LEN];
714 717
715 a = (Ichar) arg.l; 718 a = (Ichar) arg.l;
716 719
717 if (!valid_ichar_p (a)) 720 if (!valid_ichar_p (a))
718 syntax_error ("invalid character value %d to %%c spec", 721 {
719 make_int (a)); 722 /* WARNING! This MUST be big enough for the sprintf below */
723 CIbyte message[60];
724 sprintf (message, "invalid character value %d to %%c spec",
725 a);
726 syntax_error (message, Qnil);
727 }
720 728
721 charlen = set_itext_ichar (charbuf, a); 729 charlen = set_itext_ichar (charbuf, a);
722 doprnt_2 (stream, charbuf, charlen, spec->minwidth, 730 doprnt_2 (stream, charbuf, charlen, spec->minwidth,
723 -1, spec->minus_flag, spec->zero_flag); 731 -1, spec->minus_flag, spec->zero_flag);
724 } 732 }