Mercurial > emacs
annotate src/doprnt.c @ 99492:ee792794d888
(isearch-search-fun): Compare the length of the
current search string with the length of the string from the
previous search state to detect the situation when the user
adds or removes characters in the search string.
Use word-search-forward-lax and word-search-backward-lax in this
case, and otherwise word-search-forward and word-search-backward.
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Tue, 11 Nov 2008 19:43:09 +0000 |
parents | 4390d64d3328 |
children | e41ac6b691bb |
rev | line source |
---|---|
49 | 1 /* Output like sprintf to a buffer of specified size. |
2 Also takes args differently: pass one pointer to an array of strings | |
3 in addition to the format string which is separate. | |
75227
e90d04cd455a
Update copyright for years from Emacs 21 to present (mainly adding
Glenn Morris <rgm@gnu.org>
parents:
68651
diff
changeset
|
4 Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005, |
79759 | 5 2006, 2007, 2008 Free Software Foundation, Inc. |
49 | 6 |
7 This file is part of GNU Emacs. | |
8 | |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
9 GNU Emacs is free software: you can redistribute it and/or modify |
49 | 10 it under the terms of the GNU General Public License as published by |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
11 the Free Software Foundation, either version 3 of the License, or |
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
12 (at your option) any later version. |
49 | 13 |
14 GNU Emacs is distributed in the hope that it will be useful, | |
15 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
17 GNU General Public License for more details. | |
18 | |
19 You should have received a copy of the GNU General Public License | |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
20 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ |
49 | 21 |
22 | |
5036 | 23 #include <config.h> |
49 | 24 #include <stdio.h> |
25 #include <ctype.h> | |
26 | |
18681
a30375801ad7
Use #ifdef to test STDC_HEADERS.
Richard M. Stallman <rms@gnu.org>
parents:
18627
diff
changeset
|
27 #ifdef STDC_HEADERS |
16943
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
28 #include <float.h> |
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
29 #endif |
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
30 |
25323 | 31 #ifdef HAVE_UNISTD_H |
32 #include <unistd.h> | |
33 #endif | |
34 | |
35 #ifdef HAVE_STDLIB_H | |
36 #include <stdlib.h> | |
37 #endif | |
38 | |
18627
c372b7e6669b
Include float.h before lisp.h.
Richard M. Stallman <rms@gnu.org>
parents:
17030
diff
changeset
|
39 #include "lisp.h" |
c372b7e6669b
Include float.h before lisp.h.
Richard M. Stallman <rms@gnu.org>
parents:
17030
diff
changeset
|
40 |
16943
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
41 #ifndef DBL_MAX_10_EXP |
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
42 #define DBL_MAX_10_EXP 308 /* IEEE double */ |
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
43 #endif |
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
44 |
17030 | 45 /* Since we use the macro CHAR_HEAD_P, we have to include this, but |
46 don't have to include others because CHAR_HEAD_P does not contains | |
47 another macro. */ | |
88351
aac41b50c875
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
42859
diff
changeset
|
48 #include "character.h" |
17030 | 49 |
13449 | 50 static int doprnt1 (); |
51 | |
147
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
52 /* Generate output from a format-spec FORMAT, |
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
53 terminated at position FORMAT_END. |
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
54 Output goes in BUFFER, which has room for BUFSIZE chars. |
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
55 If the output does not fit, truncate it to fit. |
49442 | 56 Returns the number of bytes stored into BUFFER. |
147
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
57 ARGS points to the vector of arguments, and NARGS says how many. |
13449 | 58 A double counts as two arguments. |
59 String arguments are passed as C strings. | |
60 Integers are passed as C integers. */ | |
147
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
61 |
21514 | 62 int |
49 | 63 doprnt (buffer, bufsize, format, format_end, nargs, args) |
64 char *buffer; | |
65 register int bufsize; | |
66 char *format; | |
67 char *format_end; | |
68 int nargs; | |
69 char **args; | |
70 { | |
13449 | 71 return doprnt1 (0, buffer, bufsize, format, format_end, nargs, args); |
72 } | |
73 | |
74 /* Like doprnt except that strings in ARGS are passed | |
75 as Lisp_Object. */ | |
76 | |
21514 | 77 int |
13449 | 78 doprnt_lisp (buffer, bufsize, format, format_end, nargs, args) |
79 char *buffer; | |
80 register int bufsize; | |
81 char *format; | |
82 char *format_end; | |
83 int nargs; | |
84 char **args; | |
85 { | |
86 return doprnt1 (1, buffer, bufsize, format, format_end, nargs, args); | |
87 } | |
88 | |
89 static int | |
90 doprnt1 (lispstrings, buffer, bufsize, format, format_end, nargs, args) | |
91 int lispstrings; | |
92 char *buffer; | |
93 register int bufsize; | |
94 char *format; | |
95 char *format_end; | |
96 int nargs; | |
97 char **args; | |
98 { | |
49 | 99 int cnt = 0; /* Number of arg to gobble next */ |
100 register char *fmt = format; /* Pointer into format string */ | |
101 register char *bufptr = buffer; /* Pointer into output buffer.. */ | |
4774
8e36034f65e2
(doprnt): Use a fixed buffer to store the format
Brian Fox <bfox@gnu.org>
parents:
2439
diff
changeset
|
102 |
147
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
103 /* Use this for sprintf unless we need something really big. */ |
16943
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
104 char tembuf[DBL_MAX_10_EXP + 100]; |
4774
8e36034f65e2
(doprnt): Use a fixed buffer to store the format
Brian Fox <bfox@gnu.org>
parents:
2439
diff
changeset
|
105 |
147
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
106 /* Size of sprintf_buffer. */ |
75950
f7b102b31618
(doprnt1): Add support for '+' flag. Fix overflow checking.
Andreas Schwab <schwab@suse.de>
parents:
75227
diff
changeset
|
107 unsigned size_allocated = sizeof (tembuf); |
4774
8e36034f65e2
(doprnt): Use a fixed buffer to store the format
Brian Fox <bfox@gnu.org>
parents:
2439
diff
changeset
|
108 |
147
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
109 /* Buffer to use for sprintf. Either tembuf or same as BIG_BUFFER. */ |
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
110 char *sprintf_buffer = tembuf; |
4774
8e36034f65e2
(doprnt): Use a fixed buffer to store the format
Brian Fox <bfox@gnu.org>
parents:
2439
diff
changeset
|
111 |
147
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
112 /* Buffer we have got with malloc. */ |
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
113 char *big_buffer = 0; |
4774
8e36034f65e2
(doprnt): Use a fixed buffer to store the format
Brian Fox <bfox@gnu.org>
parents:
2439
diff
changeset
|
114 |
49 | 115 register int tem; |
22310
c68a115303f7
(doprnt1): Fix char signedness mismatches.
Karl Heuer <kwzh@gnu.org>
parents:
21993
diff
changeset
|
116 unsigned char *string; |
4774
8e36034f65e2
(doprnt): Use a fixed buffer to store the format
Brian Fox <bfox@gnu.org>
parents:
2439
diff
changeset
|
117 char fixed_buffer[20]; /* Default buffer for small formatting. */ |
8e36034f65e2
(doprnt): Use a fixed buffer to store the format
Brian Fox <bfox@gnu.org>
parents:
2439
diff
changeset
|
118 char *fmtcpy; |
49 | 119 int minlen; |
20310
b6fd8353113b
(doprnt1): Declare `charbuf' as unsigned char.
Andreas Schwab <schwab@suse.de>
parents:
18681
diff
changeset
|
120 unsigned char charbuf[5]; /* Used for %c. */ |
49 | 121 |
122 if (format_end == 0) | |
123 format_end = format + strlen (format); | |
124 | |
4774
8e36034f65e2
(doprnt): Use a fixed buffer to store the format
Brian Fox <bfox@gnu.org>
parents:
2439
diff
changeset
|
125 if ((format_end - format + 1) < sizeof (fixed_buffer)) |
8e36034f65e2
(doprnt): Use a fixed buffer to store the format
Brian Fox <bfox@gnu.org>
parents:
2439
diff
changeset
|
126 fmtcpy = fixed_buffer; |
8e36034f65e2
(doprnt): Use a fixed buffer to store the format
Brian Fox <bfox@gnu.org>
parents:
2439
diff
changeset
|
127 else |
5053
b98e742f0b05
(doprnt): Cast the value alloca returns.
Richard M. Stallman <rms@gnu.org>
parents:
5036
diff
changeset
|
128 fmtcpy = (char *) alloca (format_end - format + 1); |
4774
8e36034f65e2
(doprnt): Use a fixed buffer to store the format
Brian Fox <bfox@gnu.org>
parents:
2439
diff
changeset
|
129 |
49 | 130 bufsize--; |
4774
8e36034f65e2
(doprnt): Use a fixed buffer to store the format
Brian Fox <bfox@gnu.org>
parents:
2439
diff
changeset
|
131 |
8e36034f65e2
(doprnt): Use a fixed buffer to store the format
Brian Fox <bfox@gnu.org>
parents:
2439
diff
changeset
|
132 /* Loop until end of format string or buffer full. */ |
8e36034f65e2
(doprnt): Use a fixed buffer to store the format
Brian Fox <bfox@gnu.org>
parents:
2439
diff
changeset
|
133 while (fmt != format_end && bufsize > 0) |
49 | 134 { |
135 if (*fmt == '%') /* Check for a '%' character */ | |
136 { | |
75950
f7b102b31618
(doprnt1): Add support for '+' flag. Fix overflow checking.
Andreas Schwab <schwab@suse.de>
parents:
75227
diff
changeset
|
137 unsigned size_bound = 0; |
17030 | 138 int width; /* Columns occupied by STRING. */ |
147
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
139 |
49 | 140 fmt++; |
484 | 141 /* Copy this one %-spec into fmtcpy. */ |
75950
f7b102b31618
(doprnt1): Add support for '+' flag. Fix overflow checking.
Andreas Schwab <schwab@suse.de>
parents:
75227
diff
changeset
|
142 string = (unsigned char *) fmtcpy; |
49 | 143 *string++ = '%'; |
4774
8e36034f65e2
(doprnt): Use a fixed buffer to store the format
Brian Fox <bfox@gnu.org>
parents:
2439
diff
changeset
|
144 while (1) |
49 | 145 { |
146 *string++ = *fmt; | |
16943
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
147 if ('0' <= *fmt && *fmt <= '9') |
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
148 { |
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
149 /* Get an idea of how much space we might need. |
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
150 This might be a field width or a precision; e.g. |
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
151 %1.1000f and %1000.1f both might need 1000+ bytes. |
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
152 Parse the width or precision, checking for overflow. */ |
75950
f7b102b31618
(doprnt1): Add support for '+' flag. Fix overflow checking.
Andreas Schwab <schwab@suse.de>
parents:
75227
diff
changeset
|
153 unsigned n = *fmt - '0'; |
16943
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
154 while ('0' <= fmt[1] && fmt[1] <= '9') |
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
155 { |
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
156 if (n * 10 / 10 != n |
75950
f7b102b31618
(doprnt1): Add support for '+' flag. Fix overflow checking.
Andreas Schwab <schwab@suse.de>
parents:
75227
diff
changeset
|
157 || (n = n * 10 + (fmt[1] - '0')) < n) |
16943
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
158 error ("Format width or precision too large"); |
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
159 *string++ = *++fmt; |
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
160 } |
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
161 |
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
162 if (size_bound < n) |
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
163 size_bound = n; |
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
164 } |
75950
f7b102b31618
(doprnt1): Add support for '+' flag. Fix overflow checking.
Andreas Schwab <schwab@suse.de>
parents:
75227
diff
changeset
|
165 else if (*fmt == '-' || *fmt == ' ' || *fmt == '.' || *fmt == '+') |
16943
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
166 ; |
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
167 else |
49 | 168 break; |
169 fmt++; | |
170 } | |
171 *string = 0; | |
4774
8e36034f65e2
(doprnt): Use a fixed buffer to store the format
Brian Fox <bfox@gnu.org>
parents:
2439
diff
changeset
|
172 |
16943
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
173 /* Make the size bound large enough to handle floating point formats |
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
174 with large numbers. */ |
75950
f7b102b31618
(doprnt1): Add support for '+' flag. Fix overflow checking.
Andreas Schwab <schwab@suse.de>
parents:
75227
diff
changeset
|
175 if (size_bound + DBL_MAX_10_EXP + 50 < size_bound) |
f7b102b31618
(doprnt1): Add support for '+' flag. Fix overflow checking.
Andreas Schwab <schwab@suse.de>
parents:
75227
diff
changeset
|
176 error ("Format width or precision too large"); |
16943
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
177 size_bound += DBL_MAX_10_EXP + 50; |
e7814b054e91
Include <float.h> if STDC_HEADERS.
Paul Eggert <eggert@twinsun.com>
parents:
16096
diff
changeset
|
178 |
147
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
179 /* Make sure we have that much. */ |
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
180 if (size_bound > size_allocated) |
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
181 { |
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
182 if (big_buffer) |
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
183 big_buffer = (char *) xrealloc (big_buffer, size_bound); |
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
184 else |
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
185 big_buffer = (char *) xmalloc (size_bound); |
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
186 sprintf_buffer = big_buffer; |
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
187 size_allocated = size_bound; |
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
188 } |
49 | 189 minlen = 0; |
190 switch (*fmt++) | |
191 { | |
192 default: | |
193 error ("Invalid format operation %%%c", fmt[-1]); | |
194 | |
195 /* case 'b': */ | |
196 case 'd': | |
197 case 'o': | |
198 case 'x': | |
199 if (cnt == nargs) | |
12797
f0724d9d625e
(doprnt): Don't let size_bound be gigantic. Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
200 error ("Not enough arguments for format string"); |
11700
79358a3240fe
(doprnt): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11320
diff
changeset
|
201 if (sizeof (int) == sizeof (EMACS_INT)) |
79358a3240fe
(doprnt): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11320
diff
changeset
|
202 ; |
79358a3240fe
(doprnt): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11320
diff
changeset
|
203 else if (sizeof (long) == sizeof (EMACS_INT)) |
79358a3240fe
(doprnt): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11320
diff
changeset
|
204 /* Insert an `l' the right place. */ |
79358a3240fe
(doprnt): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11320
diff
changeset
|
205 string[1] = string[0], |
79358a3240fe
(doprnt): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11320
diff
changeset
|
206 string[0] = string[-1], |
79358a3240fe
(doprnt): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11320
diff
changeset
|
207 string[-1] = 'l', |
79358a3240fe
(doprnt): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11320
diff
changeset
|
208 string++; |
79358a3240fe
(doprnt): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11320
diff
changeset
|
209 else |
79358a3240fe
(doprnt): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11320
diff
changeset
|
210 abort (); |
147
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
211 sprintf (sprintf_buffer, fmtcpy, args[cnt++]); |
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
212 /* Now copy into final output, truncating as nec. */ |
75950
f7b102b31618
(doprnt1): Add support for '+' flag. Fix overflow checking.
Andreas Schwab <schwab@suse.de>
parents:
75227
diff
changeset
|
213 string = (unsigned char *) sprintf_buffer; |
49 | 214 goto doit; |
215 | |
147
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
216 case 'f': |
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
217 case 'e': |
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
218 case 'g': |
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
219 { |
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
220 union { double d; char *half[2]; } u; |
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
221 if (cnt + 1 == nargs) |
42859
e66ccbc3c73d
(doprnt1): Fix typos in error call.
Pavel Janík <Pavel@Janik.cz>
parents:
35409
diff
changeset
|
222 error ("Not enough arguments for format string"); |
147
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
223 u.half[0] = args[cnt++]; |
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
224 u.half[1] = args[cnt++]; |
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
225 sprintf (sprintf_buffer, fmtcpy, u.d); |
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
226 /* Now copy into final output, truncating as nec. */ |
75950
f7b102b31618
(doprnt1): Add support for '+' flag. Fix overflow checking.
Andreas Schwab <schwab@suse.de>
parents:
75227
diff
changeset
|
227 string = (unsigned char *) sprintf_buffer; |
147
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
228 goto doit; |
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
229 } |
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
230 |
49 | 231 case 'S': |
232 string[-1] = 's'; | |
233 case 's': | |
234 if (cnt == nargs) | |
42859
e66ccbc3c73d
(doprnt1): Fix typos in error call.
Pavel Janík <Pavel@Janik.cz>
parents:
35409
diff
changeset
|
235 error ("Not enough arguments for format string"); |
49 | 236 if (fmtcpy[1] != 's') |
237 minlen = atoi (&fmtcpy[1]); | |
13449 | 238 if (lispstrings) |
239 { | |
75950
f7b102b31618
(doprnt1): Add support for '+' flag. Fix overflow checking.
Andreas Schwab <schwab@suse.de>
parents:
75227
diff
changeset
|
240 string = ((struct Lisp_String *) args[cnt])->data; |
f7b102b31618
(doprnt1): Add support for '+' flag. Fix overflow checking.
Andreas Schwab <schwab@suse.de>
parents:
75227
diff
changeset
|
241 tem = STRING_BYTES ((struct Lisp_String *) args[cnt]); |
13449 | 242 cnt++; |
243 } | |
244 else | |
245 { | |
75950
f7b102b31618
(doprnt1): Add support for '+' flag. Fix overflow checking.
Andreas Schwab <schwab@suse.de>
parents:
75227
diff
changeset
|
246 string = (unsigned char *) args[cnt++]; |
13449 | 247 tem = strlen (string); |
248 } | |
17030 | 249 width = strwidth (string, tem); |
13449 | 250 goto doit1; |
251 | |
49 | 252 /* Copy string into final output, truncating if no room. */ |
253 doit: | |
17030 | 254 /* Coming here means STRING contains ASCII only. */ |
255 width = tem = strlen (string); | |
8141
e3859c43c6f4
(doprnt): Handle padding on %c.
Richard M. Stallman <rms@gnu.org>
parents:
6715
diff
changeset
|
256 doit1: |
17030 | 257 /* We have already calculated: |
258 TEM -- length of STRING, | |
259 WIDTH -- columns occupied by STRING when displayed, and | |
260 MINLEN -- minimum columns of the output. */ | |
49 | 261 if (minlen > 0) |
262 { | |
17030 | 263 while (minlen > width && bufsize > 0) |
49 | 264 { |
265 *bufptr++ = ' '; | |
266 bufsize--; | |
267 minlen--; | |
268 } | |
269 minlen = 0; | |
270 } | |
271 if (tem > bufsize) | |
17030 | 272 { |
273 /* Truncate the string at character boundary. */ | |
274 tem = bufsize; | |
20530
88d7475304df
(doprnt1): Call to CHAR_HEAD_P fixed.
Richard M. Stallman <rms@gnu.org>
parents:
20310
diff
changeset
|
275 while (!CHAR_HEAD_P (string[tem - 1])) tem--; |
17030 | 276 bcopy (string, bufptr, tem); |
277 /* We must calculate WIDTH again. */ | |
278 width = strwidth (bufptr, tem); | |
279 } | |
280 else | |
281 bcopy (string, bufptr, tem); | |
49 | 282 bufptr += tem; |
283 bufsize -= tem; | |
284 if (minlen < 0) | |
285 { | |
17030 | 286 while (minlen < - width && bufsize > 0) |
49 | 287 { |
288 *bufptr++ = ' '; | |
289 bufsize--; | |
290 minlen++; | |
291 } | |
292 minlen = 0; | |
293 } | |
294 continue; | |
295 | |
296 case 'c': | |
297 if (cnt == nargs) | |
42859
e66ccbc3c73d
(doprnt1): Fix typos in error call.
Pavel Janík <Pavel@Janik.cz>
parents:
35409
diff
changeset
|
298 error ("Not enough arguments for format string"); |
26852
a06c16bde275
(doprnt1): Adjusted for the change of CHAR_STRING.
Kenichi Handa <handa@m17n.org>
parents:
25323
diff
changeset
|
299 tem = CHAR_STRING ((int) (EMACS_INT) args[cnt], charbuf); |
a06c16bde275
(doprnt1): Adjusted for the change of CHAR_STRING.
Kenichi Handa <handa@m17n.org>
parents:
25323
diff
changeset
|
300 string = charbuf; |
17030 | 301 cnt++; |
302 string[tem] = 0; | |
303 width = strwidth (string, tem); | |
8141
e3859c43c6f4
(doprnt): Handle padding on %c.
Richard M. Stallman <rms@gnu.org>
parents:
6715
diff
changeset
|
304 if (fmtcpy[1] != 'c') |
e3859c43c6f4
(doprnt): Handle padding on %c.
Richard M. Stallman <rms@gnu.org>
parents:
6715
diff
changeset
|
305 minlen = atoi (&fmtcpy[1]); |
e3859c43c6f4
(doprnt): Handle padding on %c.
Richard M. Stallman <rms@gnu.org>
parents:
6715
diff
changeset
|
306 goto doit1; |
49 | 307 |
308 case '%': | |
309 fmt--; /* Drop thru and this % will be treated as normal */ | |
310 } | |
311 } | |
17030 | 312 |
313 { | |
314 /* Just some character; Copy it if the whole multi-byte form | |
315 fit in the buffer. */ | |
316 char *save_bufptr = bufptr; | |
317 | |
318 do { *bufptr++ = *fmt++; } | |
20530
88d7475304df
(doprnt1): Call to CHAR_HEAD_P fixed.
Richard M. Stallman <rms@gnu.org>
parents:
20310
diff
changeset
|
319 while (--bufsize > 0 && !CHAR_HEAD_P (*fmt)); |
88d7475304df
(doprnt1): Call to CHAR_HEAD_P fixed.
Richard M. Stallman <rms@gnu.org>
parents:
20310
diff
changeset
|
320 if (!CHAR_HEAD_P (*fmt)) |
17030 | 321 { |
322 bufptr = save_bufptr; | |
323 break; | |
324 } | |
325 } | |
49 | 326 }; |
327 | |
147
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
328 /* If we had to malloc something, free it. */ |
95481
4390d64d3328
Make "xfree (NULL)" a no-op; remove useless if-before-xfree.
Jim Meyering <jim@meyering.net>
parents:
94963
diff
changeset
|
329 xfree (big_buffer); |
147
0f50f1badd75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
116
diff
changeset
|
330 |
49 | 331 *bufptr = 0; /* Make sure our string end with a '\0' */ |
332 return bufptr - buffer; | |
333 } | |
52401 | 334 |
335 /* arch-tag: aa0ab528-7c5f-4c73-894c-aa2526a1efb3 | |
336 (do not change this comment) */ |