1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
#include <ctf-api.h>
#include <stdio.h>
#include <stdlib.h>
int
main (int argc, char *argv[])
{
ctf_dict_t *fp;
ctf_archive_t *ctf;
ctf_next_t *i = NULL;
ctf_id_t type;
const char *arcname;
int err;
if (argc != 2)
{
fprintf (stderr, "Syntax: %s PROGRAM\n", argv[0]);
exit(1);
}
if ((ctf = ctf_open (argv[1], NULL, &err)) == NULL)
goto open_err;
/* Make sure we can look up a_t * by name in all non-parent dicts, even though
the a_t * and the type it points to are in distinct dicts; make sure we
cannot look up b_t *. */
while ((fp = ctf_archive_next (ctf, &i, &arcname, 1, &err)) != NULL)
{
if ((type = ctf_lookup_by_name (fp, "a_t *")) == CTF_ERR)
goto err;
if ((ctf_lookup_by_name (fp, "b_t *")) != CTF_ERR ||
ctf_errno (fp) != ECTF_NOTYPE)
goto noerr;
if (ctf_type_reference (fp, type) == CTF_ERR)
goto err;
printf ("%s: a_t * points to a type of kind %i\n", arcname,
ctf_type_kind (fp, ctf_type_reference (fp, type)));
ctf_dict_close (fp);
}
if (err != ECTF_NEXT_END)
goto open_err;
ctf_close (ctf);
return 0;
open_err:
fprintf (stderr, "%s: cannot open: %s\n", argv[0], ctf_errmsg (err));
return 1;
err:
fprintf (stderr, "Lookup failed in %s: %s\n", arcname, ctf_errmsg (ctf_errno (fp)));
return 1;
noerr:
fprintf (stderr, "Lookup unexpectedly succeeded in %s\n", arcname);
return 1;
}
|
