Mercurial > hg > octave-kai > gnulib-hg
annotate lib/quotearg.c @ 2237:5fc41d889f78
fix typo. sheesh
author | Jim Meyering <jim@meyering.net> |
---|---|
date | Mon, 31 Jan 2000 08:42:45 +0000 |
parents | c4a8e51bfd93 |
children | 8ed5c871e719 |
rev | line source |
---|---|
1248 | 1 /* quotearg.c - quote arguments for output |
2124
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
2 Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc. |
1248 | 3 |
4 This program is free software; you can redistribute it and/or modify | |
5 it under the terms of the GNU General Public License as published by | |
6 the Free Software Foundation; either version 2, or (at your option) | |
7 any later version. | |
8 | |
9 This program is distributed in the hope that it will be useful, | |
10 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
12 GNU General Public License for more details. | |
13 | |
14 You should have received a copy of the GNU General Public License | |
15 along with this program; if not, write to the Free Software Foundation, | |
16 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ | |
17 | |
18 /* Written by Paul Eggert <eggert@twinsun.com> */ | |
19 | |
20 #if HAVE_CONFIG_H | |
21 # include <config.h> | |
22 #endif | |
23 | |
24 #include <sys/types.h> | |
25 #include <quotearg.h> | |
26 #include <xalloc.h> | |
27 | |
28 #include <ctype.h> | |
29 | |
1920
78f6058b59a6
Include <libintl.h> if ENABLE_NLS.
Jim Meyering <jim@meyering.net>
parents:
1891
diff
changeset
|
30 #if ENABLE_NLS |
78f6058b59a6
Include <libintl.h> if ENABLE_NLS.
Jim Meyering <jim@meyering.net>
parents:
1891
diff
changeset
|
31 # include <libintl.h> |
78f6058b59a6
Include <libintl.h> if ENABLE_NLS.
Jim Meyering <jim@meyering.net>
parents:
1891
diff
changeset
|
32 # define _(text) gettext (text) |
78f6058b59a6
Include <libintl.h> if ENABLE_NLS.
Jim Meyering <jim@meyering.net>
parents:
1891
diff
changeset
|
33 #else |
78f6058b59a6
Include <libintl.h> if ENABLE_NLS.
Jim Meyering <jim@meyering.net>
parents:
1891
diff
changeset
|
34 # define _(text) text |
78f6058b59a6
Include <libintl.h> if ENABLE_NLS.
Jim Meyering <jim@meyering.net>
parents:
1891
diff
changeset
|
35 #endif |
78f6058b59a6
Include <libintl.h> if ENABLE_NLS.
Jim Meyering <jim@meyering.net>
parents:
1891
diff
changeset
|
36 |
1248 | 37 #if HAVE_LIMITS_H |
38 # include <limits.h> | |
39 #endif | |
40 #ifndef CHAR_BIT | |
41 # define CHAR_BIT 8 | |
42 #endif | |
43 #ifndef UCHAR_MAX | |
44 # define UCHAR_MAX ((unsigned char) -1) | |
45 #endif | |
46 | |
47 #if HAVE_STDLIB_H | |
48 # include <stdlib.h> | |
49 #endif | |
50 | |
51 #if HAVE_STRING_H | |
52 # include <string.h> | |
53 #endif | |
54 | |
2183
37b73a4c0ec5
[HAVE_WCTYPE_H]: Include <wctype.h>.
Jim Meyering <jim@meyering.net>
parents:
2145
diff
changeset
|
55 #if HAVE_WCTYPE_H |
37b73a4c0ec5
[HAVE_WCTYPE_H]: Include <wctype.h>.
Jim Meyering <jim@meyering.net>
parents:
2145
diff
changeset
|
56 # include <wctype.h> |
37b73a4c0ec5
[HAVE_WCTYPE_H]: Include <wctype.h>.
Jim Meyering <jim@meyering.net>
parents:
2145
diff
changeset
|
57 #endif |
37b73a4c0ec5
[HAVE_WCTYPE_H]: Include <wctype.h>.
Jim Meyering <jim@meyering.net>
parents:
2145
diff
changeset
|
58 |
2124
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
59 #if HAVE_MBRTOWC && HAVE_WCHAR_H |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
60 # include <wchar.h> |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
61 #else |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
62 # define iswprint(wc) 1 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
63 # define mbrtowc(pwc, s, n, ps) 1 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
64 # define mbsinit(ps) 1 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
65 # define mbstate_t int |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
66 #endif |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
67 |
1248 | 68 #define INT_BITS (sizeof (int) * CHAR_BIT) |
69 | |
2234
c4a8e51bfd93
(ISASCII): Add #undef and move definition to follow
Jim Meyering <jim@meyering.net>
parents:
2183
diff
changeset
|
70 #if defined (STDC_HEADERS) || (!defined (isascii) && !defined (HAVE_ISASCII)) |
c4a8e51bfd93
(ISASCII): Add #undef and move definition to follow
Jim Meyering <jim@meyering.net>
parents:
2183
diff
changeset
|
71 /* Undefine to protect against the definition in wctype.h of solaris2.6. */ |
c4a8e51bfd93
(ISASCII): Add #undef and move definition to follow
Jim Meyering <jim@meyering.net>
parents:
2183
diff
changeset
|
72 # undef ISASCII |
c4a8e51bfd93
(ISASCII): Add #undef and move definition to follow
Jim Meyering <jim@meyering.net>
parents:
2183
diff
changeset
|
73 # define ISASCII(c) 1 |
c4a8e51bfd93
(ISASCII): Add #undef and move definition to follow
Jim Meyering <jim@meyering.net>
parents:
2183
diff
changeset
|
74 #else |
c4a8e51bfd93
(ISASCII): Add #undef and move definition to follow
Jim Meyering <jim@meyering.net>
parents:
2183
diff
changeset
|
75 # define ISASCII(c) isascii (c) |
c4a8e51bfd93
(ISASCII): Add #undef and move definition to follow
Jim Meyering <jim@meyering.net>
parents:
2183
diff
changeset
|
76 #endif |
c4a8e51bfd93
(ISASCII): Add #undef and move definition to follow
Jim Meyering <jim@meyering.net>
parents:
2183
diff
changeset
|
77 /* Undefine to protect against the definition in wctype.h of solaris2.6. */ |
2237 | 78 #undef ISPRINT |
2234
c4a8e51bfd93
(ISASCII): Add #undef and move definition to follow
Jim Meyering <jim@meyering.net>
parents:
2183
diff
changeset
|
79 #define ISPRINT(c) (ISASCII (c) && isprint (c)) |
c4a8e51bfd93
(ISASCII): Add #undef and move definition to follow
Jim Meyering <jim@meyering.net>
parents:
2183
diff
changeset
|
80 |
1248 | 81 struct quoting_options |
82 { | |
83 /* Basic quoting style. */ | |
84 enum quoting_style style; | |
85 | |
2124
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
86 /* Quote the characters indicated by this bit vector even if the |
1248 | 87 quoting style would not normally require them to be quoted. */ |
88 int quote_these_too[((UCHAR_MAX + 1) / INT_BITS | |
89 + ((UCHAR_MAX + 1) % INT_BITS != 0))]; | |
90 }; | |
91 | |
92 /* Names of quoting styles. */ | |
93 char const *const quoting_style_args[] = | |
94 { | |
1597
287550eb5c15
(quotearg_buffer): Cast -1 to size_t before comparing.
Jim Meyering <jim@meyering.net>
parents:
1565
diff
changeset
|
95 "literal", |
287550eb5c15
(quotearg_buffer): Cast -1 to size_t before comparing.
Jim Meyering <jim@meyering.net>
parents:
1565
diff
changeset
|
96 "shell", |
287550eb5c15
(quotearg_buffer): Cast -1 to size_t before comparing.
Jim Meyering <jim@meyering.net>
parents:
1565
diff
changeset
|
97 "shell-always", |
287550eb5c15
(quotearg_buffer): Cast -1 to size_t before comparing.
Jim Meyering <jim@meyering.net>
parents:
1565
diff
changeset
|
98 "c", |
287550eb5c15
(quotearg_buffer): Cast -1 to size_t before comparing.
Jim Meyering <jim@meyering.net>
parents:
1565
diff
changeset
|
99 "escape", |
1920
78f6058b59a6
Include <libintl.h> if ENABLE_NLS.
Jim Meyering <jim@meyering.net>
parents:
1891
diff
changeset
|
100 "locale", |
1597
287550eb5c15
(quotearg_buffer): Cast -1 to size_t before comparing.
Jim Meyering <jim@meyering.net>
parents:
1565
diff
changeset
|
101 0 |
287550eb5c15
(quotearg_buffer): Cast -1 to size_t before comparing.
Jim Meyering <jim@meyering.net>
parents:
1565
diff
changeset
|
102 }; |
287550eb5c15
(quotearg_buffer): Cast -1 to size_t before comparing.
Jim Meyering <jim@meyering.net>
parents:
1565
diff
changeset
|
103 |
2124
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
104 /* Correspondences to quoting style names. */ |
1597
287550eb5c15
(quotearg_buffer): Cast -1 to size_t before comparing.
Jim Meyering <jim@meyering.net>
parents:
1565
diff
changeset
|
105 enum quoting_style const quoting_style_vals[] = |
287550eb5c15
(quotearg_buffer): Cast -1 to size_t before comparing.
Jim Meyering <jim@meyering.net>
parents:
1565
diff
changeset
|
106 { |
287550eb5c15
(quotearg_buffer): Cast -1 to size_t before comparing.
Jim Meyering <jim@meyering.net>
parents:
1565
diff
changeset
|
107 literal_quoting_style, |
287550eb5c15
(quotearg_buffer): Cast -1 to size_t before comparing.
Jim Meyering <jim@meyering.net>
parents:
1565
diff
changeset
|
108 shell_quoting_style, |
287550eb5c15
(quotearg_buffer): Cast -1 to size_t before comparing.
Jim Meyering <jim@meyering.net>
parents:
1565
diff
changeset
|
109 shell_always_quoting_style, |
287550eb5c15
(quotearg_buffer): Cast -1 to size_t before comparing.
Jim Meyering <jim@meyering.net>
parents:
1565
diff
changeset
|
110 c_quoting_style, |
1920
78f6058b59a6
Include <libintl.h> if ENABLE_NLS.
Jim Meyering <jim@meyering.net>
parents:
1891
diff
changeset
|
111 escape_quoting_style, |
78f6058b59a6
Include <libintl.h> if ENABLE_NLS.
Jim Meyering <jim@meyering.net>
parents:
1891
diff
changeset
|
112 locale_quoting_style |
1248 | 113 }; |
114 | |
1282 | 115 /* The default quoting options. */ |
116 static struct quoting_options default_quoting_options; | |
117 | |
1248 | 118 /* Allocate a new set of quoting options, with contents initially identical |
1282 | 119 to O if O is not null, or to the default if O is null. |
1248 | 120 It is the caller's responsibility to free the result. */ |
121 struct quoting_options * | |
122 clone_quoting_options (struct quoting_options *o) | |
123 { | |
124 struct quoting_options *p | |
125 = (struct quoting_options *) xmalloc (sizeof (struct quoting_options)); | |
1282 | 126 *p = *(o ? o : &default_quoting_options); |
1248 | 127 return p; |
128 } | |
129 | |
1282 | 130 /* Get the value of O's quoting style. If O is null, use the default. */ |
1248 | 131 enum quoting_style |
132 get_quoting_style (struct quoting_options *o) | |
133 { | |
1282 | 134 return (o ? o : &default_quoting_options)->style; |
1248 | 135 } |
136 | |
1282 | 137 /* In O (or in the default if O is null), |
138 set the value of the quoting style to S. */ | |
1248 | 139 void |
140 set_quoting_style (struct quoting_options *o, enum quoting_style s) | |
141 { | |
1282 | 142 (o ? o : &default_quoting_options)->style = s; |
1248 | 143 } |
144 | |
1282 | 145 /* In O (or in the default if O is null), |
146 set the value of the quoting options for character C to I. | |
1248 | 147 Return the old value. Currently, the only values defined for I are |
148 0 (the default) and 1 (which means to quote the character even if | |
149 it would not otherwise be quoted). */ | |
150 int | |
151 set_char_quoting (struct quoting_options *o, char c, int i) | |
152 { | |
153 unsigned char uc = c; | |
1282 | 154 int *p = (o ? o : &default_quoting_options)->quote_these_too + uc / INT_BITS; |
1248 | 155 int shift = uc % INT_BITS; |
156 int r = (*p >> shift) & 1; | |
157 *p ^= ((i & 1) ^ r) << shift; | |
158 return r; | |
159 } | |
160 | |
1282 | 161 /* Place into buffer BUFFER (of size BUFFERSIZE) a quoted version of |
2124
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
162 argument ARG (of size ARGSIZE), using QUOTING_STYLE and the |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
163 non-quoting-style part of O to control quoting. |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
164 Terminate the output with a null character, and return the written |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
165 size of the output, not counting the terminating null. |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
166 If BUFFERSIZE is too small to store the output string, return the |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
167 value that would have been returned had BUFFERSIZE been large enough. |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
168 If ARGSIZE is -1, use the string length of the argument for ARGSIZE. |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
169 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
170 This function acts like quotearg_buffer (BUFFER, BUFFERSIZE, ARG, |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
171 ARGSIZE, O), except it uses QUOTING_STYLE instead of the quoting |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
172 style specified by O, and O may not be null. */ |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
173 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
174 static size_t |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
175 quotearg_buffer_restyled (char *buffer, size_t buffersize, |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
176 char const *arg, size_t argsize, |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
177 enum quoting_style quoting_style, |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
178 struct quoting_options const *o) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
179 { |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
180 size_t i; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
181 size_t len = 0; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
182 char const *quote_string = 0; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
183 size_t quote_string_len = 0; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
184 int backslash_escapes = 0; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
185 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
186 #define STORE(c) \ |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
187 do \ |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
188 { \ |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
189 if (len < buffersize) \ |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
190 buffer[len] = (c); \ |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
191 len++; \ |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
192 } \ |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
193 while (0) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
194 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
195 switch (quoting_style) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
196 { |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
197 case c_quoting_style: |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
198 STORE ('"'); |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
199 backslash_escapes = 1; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
200 quote_string = "\""; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
201 quote_string_len = 1; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
202 break; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
203 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
204 case escape_quoting_style: |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
205 backslash_escapes = 1; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
206 break; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
207 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
208 case locale_quoting_style: |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
209 for (quote_string = _("`"); *quote_string; quote_string++) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
210 STORE (*quote_string); |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
211 backslash_escapes = 1; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
212 quote_string = _("'"); |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
213 quote_string_len = strlen (quote_string); |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
214 break; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
215 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
216 case shell_always_quoting_style: |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
217 STORE ('\''); |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
218 quote_string = "'"; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
219 quote_string_len = 1; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
220 break; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
221 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
222 default: |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
223 break; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
224 } |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
225 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
226 for (i = 0; ! (argsize == (size_t) -1 ? arg[i] == '\0' : i == argsize); i++) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
227 { |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
228 unsigned char c; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
229 unsigned char esc; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
230 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
231 if (backslash_escapes |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
232 && quote_string_len |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
233 && i + quote_string_len <= argsize |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
234 && memcmp (arg + i, quote_string, quote_string_len) == 0) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
235 STORE ('\\'); |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
236 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
237 c = arg[i]; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
238 switch (c) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
239 { |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
240 case '?': |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
241 switch (quoting_style) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
242 { |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
243 case shell_quoting_style: |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
244 goto use_shell_always_quoting_style; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
245 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
246 case c_quoting_style: |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
247 if (i + 2 < argsize && arg[i + 1] == '?') |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
248 switch (arg[i + 2]) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
249 { |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
250 case '!': case '\'': |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
251 case '(': case ')': case '-': case '/': |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
252 case '<': case '=': case '>': |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
253 /* Escape the second '?' in what would otherwise be |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
254 a trigraph. */ |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
255 i += 2; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
256 c = arg[i + 2]; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
257 STORE ('?'); |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
258 STORE ('\\'); |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
259 STORE ('?'); |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
260 break; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
261 } |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
262 break; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
263 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
264 default: |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
265 break; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
266 } |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
267 break; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
268 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
269 #if HAVE_C_BACKSLASH_A |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
270 case '\a': esc = 'a'; goto c_escape; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
271 #endif |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
272 case '\b': esc = 'b'; goto c_escape; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
273 case '\f': esc = 'f'; goto c_escape; |
2145
d0a924014953
(quotearg_buffer_restyled): Do not quote
Jim Meyering <jim@meyering.net>
parents:
2124
diff
changeset
|
274 case '\n': esc = 'n'; goto c_and_shell_escape; |
d0a924014953
(quotearg_buffer_restyled): Do not quote
Jim Meyering <jim@meyering.net>
parents:
2124
diff
changeset
|
275 case '\r': esc = 'r'; goto c_and_shell_escape; |
d0a924014953
(quotearg_buffer_restyled): Do not quote
Jim Meyering <jim@meyering.net>
parents:
2124
diff
changeset
|
276 case '\t': esc = 't'; goto c_and_shell_escape; |
2124
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
277 case '\v': esc = 'v'; goto c_escape; |
2145
d0a924014953
(quotearg_buffer_restyled): Do not quote
Jim Meyering <jim@meyering.net>
parents:
2124
diff
changeset
|
278 case '\\': esc = c; goto c_and_shell_escape; |
2124
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
279 |
2145
d0a924014953
(quotearg_buffer_restyled): Do not quote
Jim Meyering <jim@meyering.net>
parents:
2124
diff
changeset
|
280 c_and_shell_escape: |
d0a924014953
(quotearg_buffer_restyled): Do not quote
Jim Meyering <jim@meyering.net>
parents:
2124
diff
changeset
|
281 if (quoting_style == shell_quoting_style) |
d0a924014953
(quotearg_buffer_restyled): Do not quote
Jim Meyering <jim@meyering.net>
parents:
2124
diff
changeset
|
282 goto use_shell_always_quoting_style; |
2124
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
283 c_escape: |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
284 if (backslash_escapes) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
285 { |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
286 c = esc; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
287 goto store_escape; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
288 } |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
289 break; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
290 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
291 case '#': case '~': |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
292 if (i != 0) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
293 break; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
294 /* Fall through. */ |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
295 case ' ': |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
296 case '!': /* special in bash */ |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
297 case '"': case '$': case '&': |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
298 case '(': case ')': case '*': case ';': |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
299 case '<': case '>': case '[': |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
300 case '^': /* special in old /bin/sh, e.g. SunOS 4.1.4 */ |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
301 case '`': case '|': |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
302 /* A shell special character. In theory, '$' and '`' could |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
303 be the first bytes of multibyte characters, which means |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
304 we should check them with mbrtowc, but in practice this |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
305 doesn't happen so it's not worth worrying about. */ |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
306 if (quoting_style == shell_quoting_style) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
307 goto use_shell_always_quoting_style; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
308 break; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
309 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
310 case '\'': |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
311 switch (quoting_style) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
312 { |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
313 case shell_quoting_style: |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
314 goto use_shell_always_quoting_style; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
315 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
316 case shell_always_quoting_style: |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
317 STORE ('\''); |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
318 STORE ('\\'); |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
319 STORE ('\''); |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
320 break; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
321 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
322 default: |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
323 break; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
324 } |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
325 break; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
326 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
327 case '%': case '+': case ',': case '-': case '.': case '/': |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
328 case '0': case '1': case '2': case '3': case '4': case '5': |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
329 case '6': case '7': case '8': case '9': case ':': case '=': |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
330 case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
331 case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
332 case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
333 case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
334 case 'Y': case 'Z': case ']': case '_': case 'a': case 'b': |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
335 case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
336 case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
337 case 'o': case 'p': case 'q': case 'r': case 's': case 't': |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
338 case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
339 case '{': case '}': |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
340 /* These characters don't cause problems, no matter what the |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
341 quoting style is. They cannot start multibyte sequences. */ |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
342 break; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
343 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
344 default: |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
345 /* If we have a multibyte sequence, copy it until we reach |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
346 its end, find an error, or come back to the initial shift |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
347 state. For C-like styles, if the sequence has |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
348 unprintable characters, escape the whole sequence, since |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
349 we can't easily escape single characters within it. */ |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
350 { |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
351 /* Length of multibyte sequence found so far. */ |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
352 size_t m = 0; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
353 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
354 int printable = 1; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
355 mbstate_t mbstate; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
356 memset (&mbstate, 0, sizeof mbstate); |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
357 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
358 if (argsize == (size_t) -1) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
359 argsize = strlen (arg); |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
360 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
361 do |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
362 { |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
363 wchar_t w; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
364 size_t bytes = mbrtowc (&w, &arg[i + m], |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
365 argsize - (i + m), &mbstate); |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
366 if (bytes == 0) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
367 break; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
368 else if (bytes == (size_t) -1) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
369 { |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
370 printable = 0; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
371 break; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
372 } |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
373 else if (bytes == (size_t) -2) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
374 { |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
375 printable = 0; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
376 while (i + m < argsize && arg[i + m]) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
377 m++; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
378 break; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
379 } |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
380 else |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
381 { |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
382 if (! iswprint (w)) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
383 printable = 0; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
384 m += bytes; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
385 } |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
386 } |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
387 while (! mbsinit (&mbstate)); |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
388 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
389 if (m <= 1) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
390 { |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
391 /* Escape a unibyte character like a multibyte |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
392 sequence if using backslash escapes, and if the |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
393 character is not printable. */ |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
394 m = backslash_escapes && ! ISPRINT (c); |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
395 printable = 0; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
396 } |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
397 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
398 if (m) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
399 { |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
400 /* Output a multibyte sequence, or an escaped |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
401 unprintable unibyte character. */ |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
402 size_t imax = i + m - 1; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
403 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
404 for (;;) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
405 { |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
406 if (backslash_escapes && ! printable) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
407 { |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
408 STORE ('\\'); |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
409 STORE ('0' + (c >> 6)); |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
410 STORE ('0' + ((c >> 3) & 7)); |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
411 c = '0' + (c & 7); |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
412 } |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
413 if (i == imax) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
414 break; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
415 STORE (c); |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
416 c = arg[++i]; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
417 } |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
418 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
419 goto store_c; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
420 } |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
421 } |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
422 } |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
423 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
424 if (! (backslash_escapes |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
425 && o->quote_these_too[c / INT_BITS] & (1 << (c % INT_BITS)))) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
426 goto store_c; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
427 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
428 store_escape: |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
429 STORE ('\\'); |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
430 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
431 store_c: |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
432 STORE (c); |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
433 } |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
434 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
435 if (quote_string) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
436 for (; *quote_string; quote_string++) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
437 STORE (*quote_string); |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
438 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
439 if (len < buffersize) |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
440 buffer[len] = '\0'; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
441 return len; |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
442 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
443 use_shell_always_quoting_style: |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
444 return quotearg_buffer_restyled (buffer, buffersize, arg, argsize, |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
445 shell_always_quoting_style, o); |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
446 } |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
447 |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
448 /* Place into buffer BUFFER (of size BUFFERSIZE) a quoted version of |
1248 | 449 argument ARG (of size ARGSIZE), using O to control quoting. |
1282 | 450 If O is null, use the default. |
1248 | 451 Terminate the output with a null character, and return the written |
452 size of the output, not counting the terminating null. | |
1282 | 453 If BUFFERSIZE is too small to store the output string, return the |
454 value that would have been returned had BUFFERSIZE been large enough. | |
1248 | 455 If ARGSIZE is -1, use the string length of the argument for ARGSIZE. */ |
456 size_t | |
1282 | 457 quotearg_buffer (char *buffer, size_t buffersize, |
1248 | 458 char const *arg, size_t argsize, |
459 struct quoting_options const *o) | |
460 { | |
1282 | 461 struct quoting_options const *p = o ? o : &default_quoting_options; |
2124
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
462 return quotearg_buffer_restyled (buffer, buffersize, arg, argsize, |
30abc8682bdf
Quote multibyte characters correctly.
Jim Meyering <jim@meyering.net>
parents:
1920
diff
changeset
|
463 p->style, p); |
1248 | 464 } |
465 | |
466 /* Use storage slot N to return a quoted version of the string ARG. | |
467 OPTIONS specifies the quoting options. | |
468 The returned value points to static storage that can be | |
469 reused by the next call to this function with the same value of N. | |
1663
8ae2c5884032
(quotearg_n_options): Revert type of parameter `n'
Jim Meyering <jim@meyering.net>
parents:
1650
diff
changeset
|
470 N must be nonnegative. N is deliberately declared with type `int' |
8ae2c5884032
(quotearg_n_options): Revert type of parameter `n'
Jim Meyering <jim@meyering.net>
parents:
1650
diff
changeset
|
471 to allow for future extensions (using negative values). */ |
1248 | 472 static char * |
1663
8ae2c5884032
(quotearg_n_options): Revert type of parameter `n'
Jim Meyering <jim@meyering.net>
parents:
1650
diff
changeset
|
473 quotearg_n_options (int n, char const *arg, |
1598
d0dff44eca51
(quotearg_n_options): Make `options' parameter be `const'.
Jim Meyering <jim@meyering.net>
parents:
1597
diff
changeset
|
474 struct quoting_options const *options) |
1248 | 475 { |
1597
287550eb5c15
(quotearg_buffer): Cast -1 to size_t before comparing.
Jim Meyering <jim@meyering.net>
parents:
1565
diff
changeset
|
476 static unsigned int nslots; |
1248 | 477 static struct slotvec |
478 { | |
479 size_t size; | |
480 char *val; | |
481 } *slotvec; | |
482 | |
483 if (nslots <= n) | |
484 { | |
1663
8ae2c5884032
(quotearg_n_options): Revert type of parameter `n'
Jim Meyering <jim@meyering.net>
parents:
1650
diff
changeset
|
485 int n1 = n + 1; |
1248 | 486 size_t s = n1 * sizeof (struct slotvec); |
487 if (! (0 < n1 && n1 == s / sizeof (struct slotvec))) | |
488 abort (); | |
489 slotvec = (struct slotvec *) xrealloc (slotvec, s); | |
490 memset (slotvec + nslots, 0, (n1 - nslots) * sizeof (struct slotvec)); | |
491 nslots = n; | |
492 } | |
493 | |
494 { | |
495 size_t size = slotvec[n].size; | |
496 char *val = slotvec[n].val; | |
497 size_t qsize = quotearg_buffer (val, size, arg, (size_t) -1, options); | |
498 | |
499 if (size <= qsize) | |
500 { | |
501 slotvec[n].size = size = qsize + 1; | |
502 slotvec[n].val = val = xrealloc (val, size); | |
503 quotearg_buffer (val, size, arg, (size_t) -1, options); | |
504 } | |
505 | |
506 return val; | |
507 } | |
508 } | |
509 | |
510 char * | |
1597
287550eb5c15
(quotearg_buffer): Cast -1 to size_t before comparing.
Jim Meyering <jim@meyering.net>
parents:
1565
diff
changeset
|
511 quotearg_n (unsigned int n, char const *arg) |
1248 | 512 { |
1282 | 513 return quotearg_n_options (n, arg, &default_quoting_options); |
1248 | 514 } |
515 | |
516 char * | |
517 quotearg (char const *arg) | |
518 { | |
519 return quotearg_n (0, arg); | |
520 } | |
521 | |
522 char * | |
1920
78f6058b59a6
Include <libintl.h> if ENABLE_NLS.
Jim Meyering <jim@meyering.net>
parents:
1891
diff
changeset
|
523 quotearg_n_style (unsigned int n, enum quoting_style s, char const *arg) |
78f6058b59a6
Include <libintl.h> if ENABLE_NLS.
Jim Meyering <jim@meyering.net>
parents:
1891
diff
changeset
|
524 { |
78f6058b59a6
Include <libintl.h> if ENABLE_NLS.
Jim Meyering <jim@meyering.net>
parents:
1891
diff
changeset
|
525 struct quoting_options o; |
78f6058b59a6
Include <libintl.h> if ENABLE_NLS.
Jim Meyering <jim@meyering.net>
parents:
1891
diff
changeset
|
526 o.style = s; |
78f6058b59a6
Include <libintl.h> if ENABLE_NLS.
Jim Meyering <jim@meyering.net>
parents:
1891
diff
changeset
|
527 memset (o.quote_these_too, 0, sizeof o.quote_these_too); |
78f6058b59a6
Include <libintl.h> if ENABLE_NLS.
Jim Meyering <jim@meyering.net>
parents:
1891
diff
changeset
|
528 return quotearg_n_options (n, arg, &o); |
78f6058b59a6
Include <libintl.h> if ENABLE_NLS.
Jim Meyering <jim@meyering.net>
parents:
1891
diff
changeset
|
529 } |
78f6058b59a6
Include <libintl.h> if ENABLE_NLS.
Jim Meyering <jim@meyering.net>
parents:
1891
diff
changeset
|
530 |
78f6058b59a6
Include <libintl.h> if ENABLE_NLS.
Jim Meyering <jim@meyering.net>
parents:
1891
diff
changeset
|
531 char * |
78f6058b59a6
Include <libintl.h> if ENABLE_NLS.
Jim Meyering <jim@meyering.net>
parents:
1891
diff
changeset
|
532 quotearg_style (enum quoting_style s, char const *arg) |
78f6058b59a6
Include <libintl.h> if ENABLE_NLS.
Jim Meyering <jim@meyering.net>
parents:
1891
diff
changeset
|
533 { |
78f6058b59a6
Include <libintl.h> if ENABLE_NLS.
Jim Meyering <jim@meyering.net>
parents:
1891
diff
changeset
|
534 return quotearg_n_style (0, s, arg); |
78f6058b59a6
Include <libintl.h> if ENABLE_NLS.
Jim Meyering <jim@meyering.net>
parents:
1891
diff
changeset
|
535 } |
78f6058b59a6
Include <libintl.h> if ENABLE_NLS.
Jim Meyering <jim@meyering.net>
parents:
1891
diff
changeset
|
536 |
78f6058b59a6
Include <libintl.h> if ENABLE_NLS.
Jim Meyering <jim@meyering.net>
parents:
1891
diff
changeset
|
537 char * |
1248 | 538 quotearg_char (char const *arg, char ch) |
539 { | |
540 struct quoting_options options; | |
1282 | 541 options = default_quoting_options; |
1248 | 542 set_char_quoting (&options, ch, 1); |
543 return quotearg_n_options (0, arg, &options); | |
544 } | |
545 | |
546 char * | |
547 quotearg_colon (char const *arg) | |
548 { | |
549 return quotearg_char (arg, ':'); | |
550 } |