2 * This file is part of ltrace.
3 * Copyright (C) 2011,2012,2013 Petr Machata, Red Hat Inc.
4 * Copyright (C) 1998,2004,2007,2008,2009 Juan Cespedes
5 * Copyright (C) 2006 Steve Fink
6 * Copyright (C) 2006 Ian Wienand
8 * This program is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU General Public License as
10 * published by the Free Software Foundation; either version 2 of the
11 * License, or (at your option) any later version.
13 * This program is distributed in the hope that it will be useful, but
14 * WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * General Public License for more details.
18 * You should have received a copy of the GNU General Public License
19 * along with this program; if not, write to the Free Software
20 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
33 #include "lens_default.h"
38 size_t *future_length;
44 static struct param_enum *
45 param_printf_init(struct value *cb_args, size_t nargs,
46 struct value_dict *arguments)
50 /* We expect a char array pointer. */
51 if (cb_args->type->type != ARGTYPE_POINTER
52 || cb_args->type->u.ptr_info.info->type != ARGTYPE_ARRAY
53 || (cb_args->type->u.ptr_info.info->u.array_info.elt_type->type
57 struct param_enum *self = malloc(sizeof(*self));
64 if (value_init_deref(&self->array, cb_args) < 0)
67 assert(self->array.type->type == ARGTYPE_ARRAY);
69 self->format = (char *)value_get_data(&self->array, arguments);
70 if (self->format == NULL) {
71 value_destroy(&self->array);
75 size_t size = value_size(&self->array, arguments);
76 if (size == (size_t)-1) {
77 value_destroy(&self->array);
82 self->ptr = self->format;
83 self->end = self->format + size;
84 self->future_length = NULL;
89 drop_future_length(struct param_enum *self)
91 if (self->future_length != NULL) {
92 free(self->future_length);
93 self->future_length = NULL;
98 form_next_param(struct param_enum *self,
99 enum arg_type format_type, enum arg_type elt_type,
100 unsigned hlf, unsigned lng, char *len_buf, size_t len_buf_len,
101 struct arg_type_info *infop)
103 /* XXX note: Some types are wrong because we lack
104 ARGTYPE_LONGLONG, ARGTYPE_UCHAR and ARGTYPE_SCHAR. */
107 static enum arg_type ints[] =
108 { ARGTYPE_CHAR, ARGTYPE_SHORT, ARGTYPE_INT,
109 ARGTYPE_LONG, ARGTYPE_ULONG };
110 static enum arg_type uints[] =
111 { ARGTYPE_CHAR, ARGTYPE_USHORT, ARGTYPE_UINT,
112 ARGTYPE_ULONG, ARGTYPE_ULONG };
114 struct arg_type_info *elt_info = NULL;
115 if (format_type == ARGTYPE_ARRAY || format_type == ARGTYPE_POINTER)
116 elt_info = type_get_simple(elt_type);
117 else if (format_type == ARGTYPE_INT)
118 format_type = ints[2 + lng - hlf];
119 else if (format_type == ARGTYPE_UINT)
120 format_type = uints[2 + lng - hlf];
123 if (format_type == ARGTYPE_ARRAY) {
124 struct arg_type_info *array = malloc(sizeof(*array));
128 struct expr_node *node = NULL;
131 || self->future_length != NULL) {
133 struct expr_node node;
134 struct arg_type_info type;
136 struct tmp *len = malloc(sizeof(*len));
144 len->type = *type_get_simple(ARGTYPE_LONG);
147 if (self->future_length != NULL) {
148 l = *self->future_length;
149 drop_future_length(self);
154 expr_init_const_word(&len->node, l, &len->type, 0);
156 node = build_zero_w_arg(&len->node, 1);
162 node = expr_node_zero();
165 assert(node != NULL);
167 type_init_array(array, elt_info, 0, node, own_node);
168 type_init_pointer(infop, array, 1);
170 } else if (format_type == ARGTYPE_POINTER) {
171 type_init_pointer(infop, elt_info, 0);
174 *infop = *type_get_simple(format_type);
181 param_printf_next(struct param_enum *self, struct arg_type_info *infop,
186 enum arg_type format_type = ARGTYPE_VOID;
187 enum arg_type elt_type = ARGTYPE_VOID;
188 char len_buf[25] = {};
189 size_t len_buf_len = 0;
190 struct lens *lens = NULL;
192 for (; self->ptr < self->end; ++self->ptr) {
193 if (!self->percent) {
194 if (*self->ptr == '%')
199 switch (*self->ptr) {
200 case '#': case ' ': case '-':
201 case '+': case 'I': case '\'':
202 /* These are only important for formatting,
203 * not for interpreting the type. */
207 /* Length parameter given in the next
209 if (self->future_length == NULL)
210 /* This should really be an assert,
211 * but we can't just fail on invalid
214 = malloc(sizeof(*self->future_length));
216 if (self->future_length != NULL) {
218 format_type = ARGTYPE_INT;
223 case '1': case '2': case '3':
224 case '4': case '5': case '6':
225 case '7': case '8': case '9':
226 /* Field length likewise, but we need to parse
227 * this to attach the appropriate string
228 * length expression. */
229 if (len_buf_len < sizeof(len_buf) - 1)
230 len_buf[len_buf_len++] = *self->ptr;
247 case 'L': /* long double */
251 case 'j': /* intmax_t */
252 /* XXX ABI should know */
256 case 't': /* ptrdiff_t */
257 case 'Z': case 'z': /* size_t */
258 lng = 1; /* XXX ABI should tell */
263 format_type = ARGTYPE_INT;
276 format_type = ARGTYPE_UINT;
284 format_type = ARGTYPE_DOUBLE;
288 case 'C': /* like "lc" */
292 /* XXX "lc" means wchar_t string. */
293 format_type = ARGTYPE_CHAR;
297 case 'S': /* like "ls" */
301 format_type = ARGTYPE_ARRAY;
302 /* XXX "ls" means wchar_t string. */
303 elt_type = ARGTYPE_CHAR;
309 case 'n': /* int* where to store no. of printed chars. */
310 format_type = ARGTYPE_POINTER;
311 elt_type = ARGTYPE_VOID;
315 case 'm': /* (glibc) print argument of errno */
326 /* If we got here, the type must have been set. */
327 assert(format_type != ARGTYPE_VOID);
329 if (form_next_param(self, format_type, elt_type, hlf, lng,
330 len_buf, len_buf_len, infop) < 0)
339 *infop = *type_get_simple(ARGTYPE_VOID);
343 static enum param_status
344 param_printf_stop(struct param_enum *self, struct value *value)
346 if (self->future_length != NULL
347 && value_extract_word(value, (long *)self->future_length, NULL) < 0)
348 drop_future_length(self);
354 param_printf_done(struct param_enum *context)
356 value_destroy(&context->array);
361 param_pack_init_printf(struct param *param, struct expr_node *arg, int own_arg)
363 param_init_pack(param, PARAM_PACK_VARARGS, arg, 1, own_arg,
364 ¶m_printf_init, ¶m_printf_next,
365 ¶m_printf_stop, ¶m_printf_done);