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