1/*
2 * This file is part of ltrace.
3 * Copyright (C) 2011 Petr Machata, Red Hat Inc.
4 *
5 * This program is free software; you can redistribute it and/or
6 * modify it under the terms of the GNU General Public License as
7 * published by the Free Software Foundation; either version 2 of the
8 * License, or (at your option) any later version.
9 *
10 * This program is distributed in the hope that it will be useful, but
11 * WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13 * General Public License for more details.
14 *
15 * You should have received a copy of the GNU General Public License
16 * along with this program; if not, write to the Free Software
17 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
18 * 02110-1301 USA
19 */
20
21#include <assert.h>
22
23#include "lens.h"
24#include "lens_default.h"
25#include "type.h"
26#include "value.h"
27
28int
29format_argument(FILE *stream, struct value *value,
30		struct value_dict *arguments)
31{
32	/* Find the closest enclosing parental value whose type has a
33	 * lens assigned.  */
34	struct value *parent;
35	for (parent = value; (parent != NULL && parent->type != NULL
36			      && parent->type->lens == NULL);
37	     parent = parent->parent)
38		;
39
40	struct lens *lens = &default_lens;
41	if (parent != NULL && parent->type != NULL
42	    && parent->type->lens != NULL)
43		lens = parent->type->lens;
44
45	return lens_format(lens, stream, value, arguments);
46}
47
48int
49lens_format(struct lens *lens, FILE *stream, struct value *value,
50	    struct value_dict *arguments)
51{
52	assert(lens->format_cb != NULL);
53	return lens->format_cb(lens, stream, value, arguments);
54}
55
56void
57lens_destroy(struct lens *lens)
58{
59	if (lens != NULL
60	    && lens->destroy_cb != NULL)
61		lens->destroy_cb(lens);
62}
63