tools/perf/util/header.c

   1 #define _FILE_OFFSET_BITS 64
   2
   3 #include "util.h"
   4 #include <sys/types.h>
   5 #include <byteswap.h>
   6 #include <unistd.h>
   7 #include <stdio.h>
   8 #include <stdlib.h>
   9 #include <linux/list.h>
  10 #include <linux/kernel.h>
  11 #include <linux/bitops.h>
  12 #include <sys/utsname.h>
  13
  14 #include "evlist.h"
  15 #include "evsel.h"
  16 #include "header.h"
  17 #include "../perf.h"
  18 #include "trace-event.h"
  19 #include "session.h"
  20 #include "symbol.h"
  21 #include "debug.h"
  22 #include "cpumap.h"
  23
  24 static bool no_buildid_cache = false;
  25
  26 static int event_count;
  27 static struct perf_trace_event_type *events;
  28
  29 static u32 header_argc;
  30 static const char **header_argv;
  31
  32 int perf_header__push_event(u64 id, const char *name)
  33 {
  34         struct perf_trace_event_type *nevents;
  35
  36         if (strlen(name) > MAX_EVENT_NAME)
  37                 pr_warning("Event %s will be truncated\n", name);
  38
  39         nevents = realloc(events, (event_count + 1) * sizeof(*events));
  40         if (nevents == NULL)
  41                 return -ENOMEM;
  42         events = nevents;
  43
  44         memset(&events[event_count], 0, sizeof(struct perf_trace_event_type));
  45         events[event_count].event_id = id;
  46         strncpy(events[event_count].name, name, MAX_EVENT_NAME - 1);
  47         event_count++;
  48         return 0;
  49 }
  50
  51 char *perf_header__find_event(u64 id)
  52 {
  53         int i;
  54         for (i = 0 ; i < event_count; i++) {
  55                 if (events[i].event_id == id)
  56                         return events[i].name;
  57         }
  58         return NULL;
  59 }
  60
  61 /*
  62  * magic2 = "PERFILE2"
  63  * must be a numerical value to let the endianness
  64  * determine the memory layout. That way we are able
  65  * to detect endianness when reading the perf.data file
  66  * back.
  67  *
  68  * we check for legacy (PERFFILE) format.
  69  */
  70 static const char *__perf_magic1 = "PERFFILE";
  71 static const u64 __perf_magic2    = 0x32454c4946524550ULL;
  72 static const u64 __perf_magic2_sw = 0x50455246494c4532ULL;
  73
  74 #define PERF_MAGIC      __perf_magic2
  75
  76 struct perf_file_attr {
  77         struct perf_event_attr  attr;
  78         struct perf_file_section        ids;
  79 };
  80
  81 void perf_header__set_feat(struct perf_header *header, int feat)
  82 {
  83         set_bit(feat, header->adds_features);
  84 }
  85
  86 void perf_header__clear_feat(struct perf_header *header, int feat)
  87 {
  88         clear_bit(feat, header->adds_features);
  89 }
  90
  91 bool perf_header__has_feat(const struct perf_header *header, int feat)
  92 {
  93         return test_bit(feat, header->adds_features);
  94 }
  95
  96 static int do_write(int fd, const void *buf, size_t size)
  97 {
  98         while (size) {
  99                 int ret = write(fd, buf, size);
 100
 101                 if (ret < 0)
 102                         return -errno;
 103
 104                 size -= ret;
 105                 buf += ret;
 106         }
 107
 108         return 0;
 109 }
 110
 111 #define NAME_ALIGN 64
 112
 113 static int write_padded(int fd, const void *bf, size_t count,
 114                         size_t count_aligned)
 115 {
 116         static const char zero_buf[NAME_ALIGN];
 117         int err = do_write(fd, bf, count);
 118
 119         if (!err)
 120                 err = do_write(fd, zero_buf, count_aligned - count);
 121
 122         return err;
 123 }
 124
 125 static int do_write_string(int fd, const char *str)
 126 {
 127         u32 len, olen;
 128         int ret;
 129
 130         olen = strlen(str) + 1;
 131         len = ALIGN(olen, NAME_ALIGN);
 132
 133         /* write len, incl. \0 */
 134         ret = do_write(fd, &len, sizeof(len));
 135         if (ret < 0)
 136                 return ret;
 137
 138         return write_padded(fd, str, olen, len);
 139 }
 140
 141 static char *do_read_string(int fd, struct perf_header *ph)
 142 {
 143         ssize_t sz, ret;
 144         u32 len;
 145         char *buf;
 146
 147         sz = read(fd, &len, sizeof(len));
 148         if (sz < (ssize_t)sizeof(len))
 149                 return NULL;
 150
 151         if (ph->needs_swap)
 152                 len = bswap_32(len);
 153
 154         buf = malloc(len);
 155         if (!buf)
 156                 return NULL;
 157
 158         ret = read(fd, buf, len);
 159         if (ret == (ssize_t)len) {
 160                 /*
 161                  * strings are padded by zeroes
 162                  * thus the actual strlen of buf
 163                  * may be less than len
 164                  */
 165                 return buf;
 166         }
 167
 168         free(buf);
 169         return NULL;
 170 }
 171
 172 int
 173 perf_header__set_cmdline(int argc, const char **argv)
 174 {
 175         int i;
 176
 177         /*
 178          * If header_argv has already been set, do not override it.
 179          * This allows a command to set the cmdline, parse args and
 180          * then call another builtin function that implements a
 181          * command -- e.g, cmd_kvm calling cmd_record.
 182          */
 183         if (header_argv)
 184                 return 0;
 185
 186         header_argc = (u32)argc;
 187
 188         /* do not include NULL termination */
 189         header_argv = calloc(argc, sizeof(char *));
 190         if (!header_argv)
 191                 return -ENOMEM;
 192
 193         /*
 194          * must copy argv contents because it gets moved
 195          * around during option parsing
 196          */
 197         for (i = 0; i < argc ; i++)
 198                 header_argv[i] = argv[i];
 199
 200         return 0;
 201 }
 202
 203 #define dsos__for_each_with_build_id(pos, head) \
 204         list_for_each_entry(pos, head, node)    \
 205                 if (!pos->has_build_id)         \
 206                         continue;               \
 207                 else
 208
 209 static int __dsos__write_buildid_table(struct list_head *head, pid_t pid,
 210                                 u16 misc, int fd)
 211 {
 212         struct dso *pos;
 213
 214         dsos__for_each_with_build_id(pos, head) {
 215                 int err;
 216                 struct build_id_event b;
 217                 size_t len;
 218
 219                 if (!pos->hit)
 220                         continue;
 221                 len = pos->long_name_len + 1;
 222                 len = ALIGN(len, NAME_ALIGN);
 223                 memset(&b, 0, sizeof(b));
 224                 memcpy(&b.build_id, pos->build_id, sizeof(pos->build_id));
 225                 b.pid = pid;
 226                 b.header.misc = misc;
 227                 b.header.size = sizeof(b) + len;
 228                 err = do_write(fd, &b, sizeof(b));
 229                 if (err < 0)
 230                         return err;
 231                 err = write_padded(fd, pos->long_name,
 232                                    pos->long_name_len + 1, len);
 233                 if (err < 0)
 234                         return err;
 235         }
 236
 237         return 0;
 238 }
 239
 240 static int machine__write_buildid_table(struct machine *machine, int fd)
 241 {
 242         int err;
 243         u16 kmisc = PERF_RECORD_MISC_KERNEL,
 244             umisc = PERF_RECORD_MISC_USER;
 245
 246         if (!machine__is_host(machine)) {
 247                 kmisc = PERF_RECORD_MISC_GUEST_KERNEL;
 248                 umisc = PERF_RECORD_MISC_GUEST_USER;
 249         }
 250
 251         err = __dsos__write_buildid_table(&machine->kernel_dsos, machine->pid,
 252                                           kmisc, fd);
 253         if (err == 0)
 254                 err = __dsos__write_buildid_table(&machine->user_dsos,
 255                                                   machine->pid, umisc, fd);
 256         return err;
 257 }
 258
 259 static int dsos__write_buildid_table(struct perf_header *header, int fd)
 260 {
 261         struct perf_session *session = container_of(header,
 262                         struct perf_session, header);
 263         struct rb_node *nd;
 264         int err = machine__write_buildid_table(&session->host_machine, fd);
 265
 266         if (err)
 267                 return err;
 268
 269         for (nd = rb_first(&session->machines); nd; nd = rb_next(nd)) {
 270                 struct machine *pos = rb_entry(nd, struct machine, rb_node);
 271                 err = machine__write_buildid_table(pos, fd);
 272                 if (err)
 273                         break;
 274         }
 275         return err;
 276 }
 277
 278 int build_id_cache__add_s(const char *sbuild_id, const char *debugdir,
 279                           const char *name, bool is_kallsyms)
 280 {
 281         const size_t size = PATH_MAX;
 282         char *realname, *filename = zalloc(size),
 283              *linkname = zalloc(size), *targetname;
 284         int len, err = -1;
 285
 286         if (is_kallsyms) {
 287                 if (symbol_conf.kptr_restrict) {
 288                         pr_debug("Not caching a kptr_restrict'ed /proc/kallsyms\n");
 289                         return 0;
 290                 }
 291                 realname = (char *)name;
 292         } else
 293                 realname = realpath(name, NULL);
 294
 295         if (realname == NULL || filename == NULL || linkname == NULL)
 296                 goto out_free;
 297
 298         len = scnprintf(filename, size, "%s%s%s",
 299                        debugdir, is_kallsyms ? "/" : "", realname);
 300         if (mkdir_p(filename, 0755))
 301                 goto out_free;
 302
 303         snprintf(filename + len, size - len, "/%s", sbuild_id);
 304
 305         if (access(filename, F_OK)) {
 306                 if (is_kallsyms) {
 307                          if (copyfile("/proc/kallsyms", filename))
 308                                 goto out_free;
 309                 } else if (link(realname, filename) && copyfile(name, filename))
 310                         goto out_free;
 311         }
 312
 313         len = scnprintf(linkname, size, "%s/.build-id/%.2s",
 314                        debugdir, sbuild_id);
 315
 316         if (access(linkname, X_OK) && mkdir_p(linkname, 0755))
 317                 goto out_free;
 318
 319         snprintf(linkname + len, size - len, "/%s", sbuild_id + 2);
 320         targetname = filename + strlen(debugdir) - 5;
 321         memcpy(targetname, "../..", 5);
 322
 323         if (symlink(targetname, linkname) == 0)
 324                 err = 0;
 325 out_free:
 326         if (!is_kallsyms)
 327                 free(realname);
 328         free(filename);
 329         free(linkname);
 330         return err;
 331 }
 332
 333 static int build_id_cache__add_b(const u8 *build_id, size_t build_id_size,
 334                                  const char *name, const char *debugdir,
 335                                  bool is_kallsyms)
 336 {
 337         char sbuild_id[BUILD_ID_SIZE * 2 + 1];
 338
 339         build_id__sprintf(build_id, build_id_size, sbuild_id);
 340
 341         return build_id_cache__add_s(sbuild_id, debugdir, name, is_kallsyms);
 342 }
 343
 344 int build_id_cache__remove_s(const char *sbuild_id, const char *debugdir)
 345 {
 346         const size_t size = PATH_MAX;
 347         char *filename = zalloc(size),
 348              *linkname = zalloc(size);
 349         int err = -1;
 350
 351         if (filename == NULL || linkname == NULL)
 352                 goto out_free;
 353
 354         snprintf(linkname, size, "%s/.build-id/%.2s/%s",
 355                  debugdir, sbuild_id, sbuild_id + 2);
 356
 357         if (access(linkname, F_OK))
 358                 goto out_free;
 359
 360         if (readlink(linkname, filename, size - 1) < 0)
 361                 goto out_free;
 362
 363         if (unlink(linkname))
 364                 goto out_free;
 365
 366         /*
 367          * Since the link is relative, we must make it absolute:
 368          */
 369         snprintf(linkname, size, "%s/.build-id/%.2s/%s",
 370                  debugdir, sbuild_id, filename);
 371
 372         if (unlink(linkname))
 373                 goto out_free;
 374
 375         err = 0;
 376 out_free:
 377         free(filename);
 378         free(linkname);
 379         return err;
 380 }
 381
 382 static int dso__cache_build_id(struct dso *dso, const char *debugdir)
 383 {
 384         bool is_kallsyms = dso->kernel && dso->long_name[0] != '/';
 385
 386         return build_id_cache__add_b(dso->build_id, sizeof(dso->build_id),
 387                                      dso->long_name, debugdir, is_kallsyms);
 388 }
 389
 390 static int __dsos__cache_build_ids(struct list_head *head, const char *debugdir)
 391 {
 392         struct dso *pos;
 393         int err = 0;
 394
 395         dsos__for_each_with_build_id(pos, head)
 396                 if (dso__cache_build_id(pos, debugdir))
 397                         err = -1;
 398
 399         return err;
 400 }
 401
 402 static int machine__cache_build_ids(struct machine *machine, const char *debugdir)
 403 {
 404         int ret = __dsos__cache_build_ids(&machine->kernel_dsos, debugdir);
 405         ret |= __dsos__cache_build_ids(&machine->user_dsos, debugdir);
 406         return ret;
 407 }
 408
 409 static int perf_session__cache_build_ids(struct perf_session *session)
 410 {
 411         struct rb_node *nd;
 412         int ret;
 413         char debugdir[PATH_MAX];
 414
 415         snprintf(debugdir, sizeof(debugdir), "%s", buildid_dir);
 416
 417         if (mkdir(debugdir, 0755) != 0 && errno != EEXIST)
 418                 return -1;
 419
 420         ret = machine__cache_build_ids(&session->host_machine, debugdir);
 421
 422         for (nd = rb_first(&session->machines); nd; nd = rb_next(nd)) {
 423                 struct machine *pos = rb_entry(nd, struct machine, rb_node);
 424                 ret |= machine__cache_build_ids(pos, debugdir);
 425         }
 426         return ret ? -1 : 0;
 427 }
 428
 429 static bool machine__read_build_ids(struct machine *machine, bool with_hits)
 430 {
 431         bool ret = __dsos__read_build_ids(&machine->kernel_dsos, with_hits);
 432         ret |= __dsos__read_build_ids(&machine->user_dsos, with_hits);
 433         return ret;
 434 }
 435
 436 static bool perf_session__read_build_ids(struct perf_session *session, bool with_hits)
 437 {
 438         struct rb_node *nd;
 439         bool ret = machine__read_build_ids(&session->host_machine, with_hits);
 440
 441         for (nd = rb_first(&session->machines); nd; nd = rb_next(nd)) {
 442                 struct machine *pos = rb_entry(nd, struct machine, rb_node);
 443                 ret |= machine__read_build_ids(pos, with_hits);
 444         }
 445
 446         return ret;
 447 }
 448
 449 static int write_tracing_data(int fd, struct perf_header *h __used,
 450                             struct perf_evlist *evlist)
 451 {
 452         return read_tracing_data(fd, &evlist->entries);
 453 }
 454
 455
 456 static int write_build_id(int fd, struct perf_header *h,
 457                           struct perf_evlist *evlist __used)
 458 {
 459         struct perf_session *session;
 460         int err;
 461
 462         session = container_of(h, struct perf_session, header);
 463
 464         if (!perf_session__read_build_ids(session, true))
 465                 return -1;
 466
 467         err = dsos__write_buildid_table(h, fd);
 468         if (err < 0) {
 469                 pr_debug("failed to write buildid table\n");
 470                 return err;
 471         }
 472         if (!no_buildid_cache)
 473                 perf_session__cache_build_ids(session);
 474
 475         return 0;
 476 }
 477
 478 static int write_hostname(int fd, struct perf_header *h __used,
 479                           struct perf_evlist *evlist __used)
 480 {
 481         struct utsname uts;
 482         int ret;
 483
 484         ret = uname(&uts);
 485         if (ret < 0)
 486                 return -1;
 487
 488         return do_write_string(fd, uts.nodename);
 489 }
 490
 491 static int write_osrelease(int fd, struct perf_header *h __used,
 492                            struct perf_evlist *evlist __used)
 493 {
 494         struct utsname uts;
 495         int ret;
 496
 497         ret = uname(&uts);
 498         if (ret < 0)
 499                 return -1;
 500
 501         return do_write_string(fd, uts.release);
 502 }
 503
 504 static int write_arch(int fd, struct perf_header *h __used,
 505                       struct perf_evlist *evlist __used)
 506 {
 507         struct utsname uts;
 508         int ret;
 509
 510         ret = uname(&uts);
 511         if (ret < 0)
 512                 return -1;
 513
 514         return do_write_string(fd, uts.machine);
 515 }
 516
 517 static int write_version(int fd, struct perf_header *h __used,
 518                          struct perf_evlist *evlist __used)
 519 {
 520         return do_write_string(fd, perf_version_string);
 521 }
 522
 523 static int write_cpudesc(int fd, struct perf_header *h __used,
 524                        struct perf_evlist *evlist __used)
 525 {
 526 #ifndef CPUINFO_PROC
 527 #define CPUINFO_PROC NULL
 528 #endif
 529         FILE *file;
 530         char *buf = NULL;
 531         char *s, *p;
 532         const char *search = CPUINFO_PROC;
 533         size_t len = 0;
 534         int ret = -1;
 535
 536         if (!search)
 537                 return -1;
 538
 539         file = fopen("/proc/cpuinfo", "r");
 540         if (!file)
 541                 return -1;
 542
 543         while (getline(&buf, &len, file) > 0) {
 544                 ret = strncmp(buf, search, strlen(search));
 545                 if (!ret)
 546                         break;
 547         }
 548
 549         if (ret)
 550                 goto done;
 551
 552         s = buf;
 553
 554         p = strchr(buf, ':');
 555         if (p && *(p+1) == ' ' && *(p+2))
 556                 s = p + 2;
 557         p = strchr(s, '\n');
 558         if (p)
 559                 *p = '\0';
 560
 561         /* squash extra space characters (branding string) */
 562         p = s;
 563         while (*p) {
 564                 if (isspace(*p)) {
 565                         char *r = p + 1;
 566                         char *q = r;
 567                         *p = ' ';
 568                         while (*q && isspace(*q))
 569                                 q++;
 570                         if (q != (p+1))
 571                                 while ((*r++ = *q++));
 572                 }
 573                 p++;
 574         }
 575         ret = do_write_string(fd, s);
 576 done:
 577         free(buf);
 578         fclose(file);
 579         return ret;
 580 }
 581
 582 static int write_nrcpus(int fd, struct perf_header *h __used,
 583                         struct perf_evlist *evlist __used)
 584 {
 585         long nr;
 586         u32 nrc, nra;
 587         int ret;
 588
 589         nr = sysconf(_SC_NPROCESSORS_CONF);
 590         if (nr < 0)
 591                 return -1;
 592
 593         nrc = (u32)(nr & UINT_MAX);
 594
 595         nr = sysconf(_SC_NPROCESSORS_ONLN);
 596         if (nr < 0)
 597                 return -1;
 598
 599         nra = (u32)(nr & UINT_MAX);
 600
 601         ret = do_write(fd, &nrc, sizeof(nrc));
 602         if (ret < 0)
 603                 return ret;
 604
 605         return do_write(fd, &nra, sizeof(nra));
 606 }
 607
 608 static int write_event_desc(int fd, struct perf_header *h __used,
 609                             struct perf_evlist *evlist)
 610 {
 611         struct perf_evsel *evsel;
 612         u32 nre = 0, nri, sz;
 613         int ret;
 614
 615         list_for_each_entry(evsel, &evlist->entries, node)
 616                 nre++;
 617
 618         /*
 619          * write number of events
 620          */
 621         ret = do_write(fd, &nre, sizeof(nre));
 622         if (ret < 0)
 623                 return ret;
 624
 625         /*
 626          * size of perf_event_attr struct
 627          */
 628         sz = (u32)sizeof(evsel->attr);
 629         ret = do_write(fd, &sz, sizeof(sz));
 630         if (ret < 0)
 631                 return ret;
 632
 633         list_for_each_entry(evsel, &evlist->entries, node) {
 634
 635                 ret = do_write(fd, &evsel->attr, sz);
 636                 if (ret < 0)
 637                         return ret;
 638                 /*
 639                  * write number of unique id per event
 640                  * there is one id per instance of an event
 641                  *
 642                  * copy into an nri to be independent of the
 643                  * type of ids,
 644                  */
 645                 nri = evsel->ids;
 646                 ret = do_write(fd, &nri, sizeof(nri));
 647                 if (ret < 0)
 648                         return ret;
 649
 650                 /*
 651                  * write event string as passed on cmdline
 652                  */
 653                 ret = do_write_string(fd, perf_evsel__name(evsel));
 654                 if (ret < 0)
 655                         return ret;
 656                 /*
 657                  * write unique ids for this event
 658                  */
 659                 ret = do_write(fd, evsel->id, evsel->ids * sizeof(u64));
 660                 if (ret < 0)
 661                         return ret;
 662         }
 663         return 0;
 664 }
 665
 666 static int write_cmdline(int fd, struct perf_header *h __used,
 667                          struct perf_evlist *evlist __used)
 668 {
 669         char buf[MAXPATHLEN];
 670         char proc[32];
 671         u32 i, n;
 672         int ret;
 673
 674         /*
 675          * actual atual path to perf binary
 676          */
 677         sprintf(proc, "/proc/%d/exe", getpid());
 678         ret = readlink(proc, buf, sizeof(buf));
 679         if (ret <= 0)
 680                 return -1;
 681
 682         /* readlink() does not add null termination */
 683         buf[ret] = '\0';
 684
 685         /* account for binary path */
 686         n = header_argc + 1;
 687
 688         ret = do_write(fd, &n, sizeof(n));
 689         if (ret < 0)
 690                 return ret;
 691
 692         ret = do_write_string(fd, buf);
 693         if (ret < 0)
 694                 return ret;
 695
 696         for (i = 0 ; i < header_argc; i++) {
 697                 ret = do_write_string(fd, header_argv[i]);
 698                 if (ret < 0)
 699                         return ret;
 700         }
 701         return 0;
 702 }
 703
 704 #define CORE_SIB_FMT \
 705         "/sys/devices/system/cpu/cpu%d/topology/core_siblings_list"
 706 #define THRD_SIB_FMT \
 707         "/sys/devices/system/cpu/cpu%d/topology/thread_siblings_list"
 708
 709 struct cpu_topo {
 710         u32 core_sib;
 711         u32 thread_sib;
 712         char **core_siblings;
 713         char **thread_siblings;
 714 };
 715
 716 static int build_cpu_topo(struct cpu_topo *tp, int cpu)
 717 {
 718         FILE *fp;
 719         char filename[MAXPATHLEN];
 720         char *buf = NULL, *p;
 721         size_t len = 0;
 722         u32 i = 0;
 723         int ret = -1;
 724
 725         sprintf(filename, CORE_SIB_FMT, cpu);
 726         fp = fopen(filename, "r");
 727         if (!fp)
 728                 return -1;
 729
 730         if (getline(&buf, &len, fp) <= 0)
 731                 goto done;
 732
 733         fclose(fp);
 734
 735         p = strchr(buf, '\n');
 736         if (p)
 737                 *p = '\0';
 738
 739         for (i = 0; i < tp->core_sib; i++) {
 740                 if (!strcmp(buf, tp->core_siblings[i]))
 741                         break;
 742         }
 743         if (i == tp->core_sib) {
 744                 tp->core_siblings[i] = buf;
 745                 tp->core_sib++;
 746                 buf = NULL;
 747                 len = 0;
 748         }
 749
 750         sprintf(filename, THRD_SIB_FMT, cpu);
 751         fp = fopen(filename, "r");
 752         if (!fp)
 753                 goto done;
 754
 755         if (getline(&buf, &len, fp) <= 0)
 756                 goto done;
 757
 758         p = strchr(buf, '\n');
 759         if (p)
 760                 *p = '\0';
 761
 762         for (i = 0; i < tp->thread_sib; i++) {
 763                 if (!strcmp(buf, tp->thread_siblings[i]))
 764                         break;
 765         }
 766         if (i == tp->thread_sib) {
 767                 tp->thread_siblings[i] = buf;
 768                 tp->thread_sib++;
 769                 buf = NULL;
 770         }
 771         ret = 0;
 772 done:
 773         if(fp)
 774                 fclose(fp);
 775         free(buf);
 776         return ret;
 777 }
 778
 779 static void free_cpu_topo(struct cpu_topo *tp)
 780 {
 781         u32 i;
 782
 783         if (!tp)
 784                 return;
 785
 786         for (i = 0 ; i < tp->core_sib; i++)
 787                 free(tp->core_siblings[i]);
 788
 789         for (i = 0 ; i < tp->thread_sib; i++)
 790                 free(tp->thread_siblings[i]);
 791
 792         free(tp);
 793 }
 794
 795 static struct cpu_topo *build_cpu_topology(void)
 796 {
 797         struct cpu_topo *tp;
 798         void *addr;
 799         u32 nr, i;
 800         size_t sz;
 801         long ncpus;
 802         int ret = -1;
 803
 804         ncpus = sysconf(_SC_NPROCESSORS_CONF);
 805         if (ncpus < 0)
 806                 return NULL;
 807
 808         nr = (u32)(ncpus & UINT_MAX);
 809
 810         sz = nr * sizeof(char *);
 811
 812         addr = calloc(1, sizeof(*tp) + 2 * sz);
 813         if (!addr)
 814                 return NULL;
 815
 816         tp = addr;
 817
 818         addr += sizeof(*tp);
 819         tp->core_siblings = addr;
 820         addr += sz;
 821         tp->thread_siblings = addr;
 822
 823         for (i = 0; i < nr; i++) {
 824                 ret = build_cpu_topo(tp, i);
 825                 if (ret < 0)
 826                         break;
 827         }
 828         if (ret) {
 829                 free_cpu_topo(tp);
 830                 tp = NULL;
 831         }
 832         return tp;
 833 }
 834
 835 static int write_cpu_topology(int fd, struct perf_header *h __used,
 836                           struct perf_evlist *evlist __used)
 837 {
 838         struct cpu_topo *tp;
 839         u32 i;
 840         int ret;
 841
 842         tp = build_cpu_topology();
 843         if (!tp)
 844                 return -1;
 845
 846         ret = do_write(fd, &tp->core_sib, sizeof(tp->core_sib));
 847         if (ret < 0)
 848                 goto done;
 849
 850         for (i = 0; i < tp->core_sib; i++) {
 851                 ret = do_write_string(fd, tp->core_siblings[i]);
 852                 if (ret < 0)
 853                         goto done;
 854         }
 855         ret = do_write(fd, &tp->thread_sib, sizeof(tp->thread_sib));
 856         if (ret < 0)
 857                 goto done;
 858
 859         for (i = 0; i < tp->thread_sib; i++) {
 860                 ret = do_write_string(fd, tp->thread_siblings[i]);
 861                 if (ret < 0)
 862                         break;
 863         }
 864 done:
 865         free_cpu_topo(tp);
 866         return ret;
 867 }
 868
 869
 870
 871 static int write_total_mem(int fd, struct perf_header *h __used,
 872                           struct perf_evlist *evlist __used)
 873 {
 874         char *buf = NULL;
 875         FILE *fp;
 876         size_t len = 0;
 877         int ret = -1, n;
 878         uint64_t mem;
 879
 880         fp = fopen("/proc/meminfo", "r");
 881         if (!fp)
 882                 return -1;
 883
 884         while (getline(&buf, &len, fp) > 0) {
 885                 ret = strncmp(buf, "MemTotal:", 9);
 886                 if (!ret)
 887                         break;
 888         }
 889         if (!ret) {
 890                 n = sscanf(buf, "%*s %"PRIu64, &mem);
 891                 if (n == 1)
 892                         ret = do_write(fd, &mem, sizeof(mem));
 893         }
 894         free(buf);
 895         fclose(fp);
 896         return ret;
 897 }
 898
 899 static int write_topo_node(int fd, int node)
 900 {
 901         char str[MAXPATHLEN];
 902         char field[32];
 903         char *buf = NULL, *p;
 904         size_t len = 0;
 905         FILE *fp;
 906         u64 mem_total, mem_free, mem;
 907         int ret = -1;
 908
 909         sprintf(str, "/sys/devices/system/node/node%d/meminfo", node);
 910         fp = fopen(str, "r");
 911         if (!fp)
 912                 return -1;
 913
 914         while (getline(&buf, &len, fp) > 0) {
 915                 /* skip over invalid lines */
 916                 if (!strchr(buf, ':'))
 917                         continue;
 918                 if (sscanf(buf, "%*s %*d %s %"PRIu64, field, &mem) != 2)
 919                         goto done;
 920                 if (!strcmp(field, "MemTotal:"))
 921                         mem_total = mem;
 922                 if (!strcmp(field, "MemFree:"))
 923                         mem_free = mem;
 924         }
 925
 926         fclose(fp);
 927
 928         ret = do_write(fd, &mem_total, sizeof(u64));
 929         if (ret)
 930                 goto done;
 931
 932         ret = do_write(fd, &mem_free, sizeof(u64));
 933         if (ret)
 934                 goto done;
 935
 936         ret = -1;
 937         sprintf(str, "/sys/devices/system/node/node%d/cpulist", node);
 938
 939         fp = fopen(str, "r");
 940         if (!fp)
 941                 goto done;
 942
 943         if (getline(&buf, &len, fp) <= 0)
 944                 goto done;
 945
 946         p = strchr(buf, '\n');
 947         if (p)
 948                 *p = '\0';
 949
 950         ret = do_write_string(fd, buf);
 951 done:
 952         free(buf);
 953         fclose(fp);
 954         return ret;
 955 }
 956
 957 static int write_numa_topology(int fd, struct perf_header *h __used,
 958                           struct perf_evlist *evlist __used)
 959 {
 960         char *buf = NULL;
 961         size_t len = 0;
 962         FILE *fp;
 963         struct cpu_map *node_map = NULL;
 964         char *c;
 965         u32 nr, i, j;
 966         int ret = -1;
 967
 968         fp = fopen("/sys/devices/system/node/online", "r");
 969         if (!fp)
 970                 return -1;
 971
 972         if (getline(&buf, &len, fp) <= 0)
 973                 goto done;
 974
 975         c = strchr(buf, '\n');
 976         if (c)
 977                 *c = '\0';
 978
 979         node_map = cpu_map__new(buf);
 980         if (!node_map)
 981                 goto done;
 982
 983         nr = (u32)node_map->nr;
 984
 985         ret = do_write(fd, &nr, sizeof(nr));
 986         if (ret < 0)
 987                 goto done;
 988
 989         for (i = 0; i < nr; i++) {
 990                 j = (u32)node_map->map[i];
 991                 ret = do_write(fd, &j, sizeof(j));
 992                 if (ret < 0)
 993                         break;
 994
 995                 ret = write_topo_node(fd, i);
 996                 if (ret < 0)
 997                         break;
 998         }
 999 done:
1000         free(buf);
1001         fclose(fp);
1002         free(node_map);
1003         return ret;
1004 }
1005
1006 /*
1007  * default get_cpuid(): nothing gets recorded
1008  * actual implementation must be in arch/$(ARCH)/util/header.c
1009  */
1010 int __attribute__((weak)) get_cpuid(char *buffer __used, size_t sz __used)
1011 {
1012         return -1;
1013 }
1014
1015 static int write_cpuid(int fd, struct perf_header *h __used,
1016                        struct perf_evlist *evlist __used)
1017 {
1018         char buffer[64];
1019         int ret;
1020
1021         ret = get_cpuid(buffer, sizeof(buffer));
1022         if (!ret)
1023                 goto write_it;
1024
1025         return -1;
1026 write_it:
1027         return do_write_string(fd, buffer);
1028 }
1029
1030 static int write_branch_stack(int fd __used, struct perf_header *h __used,
1031                        struct perf_evlist *evlist __used)
1032 {
1033         return 0;
1034 }
1035
1036 static void print_hostname(struct perf_header *ph, int fd, FILE *fp)
1037 {
1038         char *str = do_read_string(fd, ph);
1039         fprintf(fp, "# hostname : %s\n", str);
1040         free(str);
1041 }
1042
1043 static void print_osrelease(struct perf_header *ph, int fd, FILE *fp)
1044 {
1045         char *str = do_read_string(fd, ph);
1046         fprintf(fp, "# os release : %s\n", str);
1047         free(str);
1048 }
1049
1050 static void print_arch(struct perf_header *ph, int fd, FILE *fp)
1051 {
1052         char *str = do_read_string(fd, ph);
1053         fprintf(fp, "# arch : %s\n", str);
1054         free(str);
1055 }
1056
1057 static void print_cpudesc(struct perf_header *ph, int fd, FILE *fp)
1058 {
1059         char *str = do_read_string(fd, ph);
1060         fprintf(fp, "# cpudesc : %s\n", str);
1061         free(str);
1062 }
1063
1064 static void print_nrcpus(struct perf_header *ph, int fd, FILE *fp)
1065 {
1066         ssize_t ret;
1067         u32 nr;
1068
1069         ret = read(fd, &nr, sizeof(nr));
1070         if (ret != (ssize_t)sizeof(nr))
1071                 nr = -1; /* interpreted as error */
1072
1073         if (ph->needs_swap)
1074                 nr = bswap_32(nr);
1075
1076         fprintf(fp, "# nrcpus online : %u\n", nr);
1077
1078         ret = read(fd, &nr, sizeof(nr));
1079         if (ret != (ssize_t)sizeof(nr))
1080                 nr = -1; /* interpreted as error */
1081
1082         if (ph->needs_swap)
1083                 nr = bswap_32(nr);
1084
1085         fprintf(fp, "# nrcpus avail : %u\n", nr);
1086 }
1087
1088 static void print_version(struct perf_header *ph, int fd, FILE *fp)
1089 {
1090         char *str = do_read_string(fd, ph);
1091         fprintf(fp, "# perf version : %s\n", str);
1092         free(str);
1093 }
1094
1095 static void print_cmdline(struct perf_header *ph, int fd, FILE *fp)
1096 {
1097         ssize_t ret;
1098         char *str;
1099         u32 nr, i;
1100
1101         ret = read(fd, &nr, sizeof(nr));
1102         if (ret != (ssize_t)sizeof(nr))
1103                 return;
1104
1105         if (ph->needs_swap)
1106                 nr = bswap_32(nr);
1107
1108         fprintf(fp, "# cmdline : ");
1109
1110         for (i = 0; i < nr; i++) {
1111                 str = do_read_string(fd, ph);
1112                 fprintf(fp, "%s ", str);
1113                 free(str);
1114         }
1115         fputc('\n', fp);
1116 }
1117
1118 static void print_cpu_topology(struct perf_header *ph, int fd, FILE *fp)
1119 {
1120         ssize_t ret;
1121         u32 nr, i;
1122         char *str;
1123
1124         ret = read(fd, &nr, sizeof(nr));
1125         if (ret != (ssize_t)sizeof(nr))
1126                 return;
1127
1128         if (ph->needs_swap)
1129                 nr = bswap_32(nr);
1130
1131         for (i = 0; i < nr; i++) {
1132                 str = do_read_string(fd, ph);
1133                 fprintf(fp, "# sibling cores   : %s\n", str);
1134                 free(str);
1135         }
1136
1137         ret = read(fd, &nr, sizeof(nr));
1138         if (ret != (ssize_t)sizeof(nr))
1139                 return;
1140
1141         if (ph->needs_swap)
1142                 nr = bswap_32(nr);
1143
1144         for (i = 0; i < nr; i++) {
1145                 str = do_read_string(fd, ph);
1146                 fprintf(fp, "# sibling threads : %s\n", str);
1147                 free(str);
1148         }
1149 }
1150
1151 static void print_event_desc(struct perf_header *ph, int fd, FILE *fp)
1152 {
1153         struct perf_event_attr attr;
1154         uint64_t id;
1155         void *buf = NULL;
1156         char *str;
1157         u32 nre, sz, nr, i, j;
1158         ssize_t ret;
1159         size_t msz;
1160
1161         /* number of events */
1162         ret = read(fd, &nre, sizeof(nre));
1163         if (ret != (ssize_t)sizeof(nre))
1164                 goto error;
1165
1166         if (ph->needs_swap)
1167                 nre = bswap_32(nre);
1168
1169         ret = read(fd, &sz, sizeof(sz));
1170         if (ret != (ssize_t)sizeof(sz))
1171                 goto error;
1172
1173         if (ph->needs_swap)
1174                 sz = bswap_32(sz);
1175
1176         memset(&attr, 0, sizeof(attr));
1177
1178         /* buffer to hold on file attr struct */
1179         buf = malloc(sz);
1180         if (!buf)
1181                 goto error;
1182
1183         msz = sizeof(attr);
1184         if (sz < msz)
1185                 msz = sz;
1186
1187         for (i = 0 ; i < nre; i++) {
1188
1189                 /*
1190                  * must read entire on-file attr struct to
1191                  * sync up with layout.
1192                  */
1193                 ret = read(fd, buf, sz);
1194                 if (ret != (ssize_t)sz)
1195                         goto error;
1196
1197                 if (ph->needs_swap)
1198                         perf_event__attr_swap(buf);
1199
1200                 memcpy(&attr, buf, msz);
1201
1202                 ret = read(fd, &nr, sizeof(nr));
1203                 if (ret != (ssize_t)sizeof(nr))
1204                         goto error;
1205
1206                 if (ph->needs_swap)
1207                         nr = bswap_32(nr);
1208
1209                 str = do_read_string(fd, ph);
1210                 fprintf(fp, "# event : name = %s, ", str);
1211                 free(str);
1212
1213                 fprintf(fp, "type = %d, config = 0x%"PRIx64
1214                             ", config1 = 0x%"PRIx64", config2 = 0x%"PRIx64,
1215                                 attr.type,
1216                                 (u64)attr.config,
1217                                 (u64)attr.config1,
1218                                 (u64)attr.config2);
1219
1220                 fprintf(fp, ", excl_usr = %d, excl_kern = %d",
1221                                 attr.exclude_user,
1222                                 attr.exclude_kernel);
1223
1224                 fprintf(fp, ", excl_host = %d, excl_guest = %d",
1225                                 attr.exclude_host,
1226                                 attr.exclude_guest);
1227
1228                 fprintf(fp, ", precise_ip = %d", attr.precise_ip);
1229
1230                 if (nr)
1231                         fprintf(fp, ", id = {");
1232
1233                 for (j = 0 ; j < nr; j++) {
1234                         ret = read(fd, &id, sizeof(id));
1235                         if (ret != (ssize_t)sizeof(id))
1236                                 goto error;
1237
1238                         if (ph->needs_swap)
1239                                 id = bswap_64(id);
1240
1241                         if (j)
1242                                 fputc(',', fp);
1243
1244                         fprintf(fp, " %"PRIu64, id);
1245                 }
1246                 if (nr && j == nr)
1247                         fprintf(fp, " }");
1248                 fputc('\n', fp);
1249         }
1250         free(buf);
1251         return;
1252 error:
1253         fprintf(fp, "# event desc: not available or unable to read\n");
1254 }
1255
1256 static void print_total_mem(struct perf_header *h __used, int fd, FILE *fp)
1257 {
1258         uint64_t mem;
1259         ssize_t ret;
1260
1261         ret = read(fd, &mem, sizeof(mem));
1262         if (ret != sizeof(mem))
1263                 goto error;
1264
1265         if (h->needs_swap)
1266                 mem = bswap_64(mem);
1267
1268         fprintf(fp, "# total memory : %"PRIu64" kB\n", mem);
1269         return;
1270 error:
1271         fprintf(fp, "# total memory : unknown\n");
1272 }
1273
1274 static void print_numa_topology(struct perf_header *h __used, int fd, FILE *fp)
1275 {
1276         ssize_t ret;
1277         u32 nr, c, i;
1278         char *str;
1279         uint64_t mem_total, mem_free;
1280
1281         /* nr nodes */
1282         ret = read(fd, &nr, sizeof(nr));
1283         if (ret != (ssize_t)sizeof(nr))
1284                 goto error;
1285
1286         if (h->needs_swap)
1287                 nr = bswap_32(nr);
1288
1289         for (i = 0; i < nr; i++) {
1290
1291                 /* node number */
1292                 ret = read(fd, &c, sizeof(c));
1293                 if (ret != (ssize_t)sizeof(c))
1294                         goto error;
1295
1296                 if (h->needs_swap)
1297                         c = bswap_32(c);
1298
1299                 ret = read(fd, &mem_total, sizeof(u64));
1300                 if (ret != sizeof(u64))
1301                         goto error;
1302
1303                 ret = read(fd, &mem_free, sizeof(u64));
1304                 if (ret != sizeof(u64))
1305                         goto error;
1306
1307                 if (h->needs_swap) {
1308                         mem_total = bswap_64(mem_total);
1309                         mem_free = bswap_64(mem_free);
1310                 }
1311
1312                 fprintf(fp, "# node%u meminfo  : total = %"PRIu64" kB,"
1313                             " free = %"PRIu64" kB\n",
1314                         c,
1315                         mem_total,
1316                         mem_free);
1317
1318                 str = do_read_string(fd, h);
1319                 fprintf(fp, "# node%u cpu list : %s\n", c, str);
1320                 free(str);
1321         }
1322         return;
1323 error:
1324         fprintf(fp, "# numa topology : not available\n");
1325 }
1326
1327 static void print_cpuid(struct perf_header *ph, int fd, FILE *fp)
1328 {
1329         char *str = do_read_string(fd, ph);
1330         fprintf(fp, "# cpuid : %s\n", str);
1331         free(str);
1332 }
1333
1334 static void print_branch_stack(struct perf_header *ph __used, int fd __used,
1335                                FILE *fp)
1336 {
1337         fprintf(fp, "# contains samples with branch stack\n");
1338 }
1339
1340 static int __event_process_build_id(struct build_id_event *bev,
1341                                     char *filename,
1342                                     struct perf_session *session)
1343 {
1344         int err = -1;
1345         struct list_head *head;
1346         struct machine *machine;
1347         u16 misc;
1348         struct dso *dso;
1349         enum dso_kernel_type dso_type;
1350
1351         machine = perf_session__findnew_machine(session, bev->pid);
1352         if (!machine)
1353                 goto out;
1354
1355         misc = bev->header.misc & PERF_RECORD_MISC_CPUMODE_MASK;
1356
1357         switch (misc) {
1358         case PERF_RECORD_MISC_KERNEL:
1359                 dso_type = DSO_TYPE_KERNEL;
1360                 head = &machine->kernel_dsos;
1361                 break;
1362         case PERF_RECORD_MISC_GUEST_KERNEL:
1363                 dso_type = DSO_TYPE_GUEST_KERNEL;
1364                 head = &machine->kernel_dsos;
1365                 break;
1366         case PERF_RECORD_MISC_USER:
1367         case PERF_RECORD_MISC_GUEST_USER:
1368                 dso_type = DSO_TYPE_USER;
1369                 head = &machine->user_dsos;
1370                 break;
1371         default:
1372                 goto out;
1373         }
1374
1375         dso = __dsos__findnew(head, filename);
1376         if (dso != NULL) {
1377                 char sbuild_id[BUILD_ID_SIZE * 2 + 1];
1378
1379                 dso__set_build_id(dso, &bev->build_id);
1380
1381                 if (filename[0] == '[')
1382                         dso->kernel = dso_type;
1383
1384                 build_id__sprintf(dso->build_id, sizeof(dso->build_id),
1385                                   sbuild_id);
1386                 pr_debug("build id event received for %s: %s\n",
1387                          dso->long_name, sbuild_id);
1388         }
1389
1390         err = 0;
1391 out:
1392         return err;
1393 }
1394
1395 static int perf_header__read_build_ids_abi_quirk(struct perf_header *header,
1396                                                  int input, u64 offset, u64 size)
1397 {
1398         struct perf_session *session = container_of(header, struct perf_session, header);
1399         struct {
1400                 struct perf_event_header   header;
1401                 u8                         build_id[ALIGN(BUILD_ID_SIZE, sizeof(u64))];
1402                 char                       filename[0];
1403         } old_bev;
1404         struct build_id_event bev;
1405         char filename[PATH_MAX];
1406         u64 limit = offset + size;
1407
1408         while (offset < limit) {
1409                 ssize_t len;
1410
1411                 if (read(input, &old_bev, sizeof(old_bev)) != sizeof(old_bev))
1412                         return -1;
1413
1414                 if (header->needs_swap)
1415                         perf_event_header__bswap(&old_bev.header);
1416
1417                 len = old_bev.header.size - sizeof(old_bev);
1418                 if (read(input, filename, len) != len)
1419                         return -1;
1420
1421                 bev.header = old_bev.header;
1422
1423                 /*
1424                  * As the pid is the missing value, we need to fill
1425                  * it properly. The header.misc value give us nice hint.
1426                  */
1427                 bev.pid = HOST_KERNEL_ID;
1428                 if (bev.header.misc == PERF_RECORD_MISC_GUEST_USER ||
1429                     bev.header.misc == PERF_RECORD_MISC_GUEST_KERNEL)
1430                         bev.pid = DEFAULT_GUEST_KERNEL_ID;
1431
1432                 memcpy(bev.build_id, old_bev.build_id, sizeof(bev.build_id));
1433                 __event_process_build_id(&bev, filename, session);
1434
1435                 offset += bev.header.size;
1436         }
1437
1438         return 0;
1439 }
1440
1441 static int perf_header__read_build_ids(struct perf_header *header,
1442                                        int input, u64 offset, u64 size)
1443 {
1444         struct perf_session *session = container_of(header, struct perf_session, header);
1445         struct build_id_event bev;
1446         char filename[PATH_MAX];
1447         u64 limit = offset + size, orig_offset = offset;
1448         int err = -1;
1449
1450         while (offset < limit) {
1451                 ssize_t len;
1452
1453                 if (read(input, &bev, sizeof(bev)) != sizeof(bev))
1454                         goto out;
1455
1456                 if (header->needs_swap)
1457                         perf_event_header__bswap(&bev.header);
1458
1459                 len = bev.header.size - sizeof(bev);
1460                 if (read(input, filename, len) != len)
1461                         goto out;
1462                 /*
1463                  * The a1645ce1 changeset:
1464                  *
1465                  * "perf: 'perf kvm' tool for monitoring guest performance from host"
1466                  *
1467                  * Added a field to struct build_id_event that broke the file
1468                  * format.
1469                  *
1470                  * Since the kernel build-id is the first entry, process the
1471                  * table using the old format if the well known
1472                  * '[kernel.kallsyms]' string for the kernel build-id has the
1473                  * first 4 characters chopped off (where the pid_t sits).
1474                  */
1475                 if (memcmp(filename, "nel.kallsyms]", 13) == 0) {
1476                         if (lseek(input, orig_offset, SEEK_SET) == (off_t)-1)
1477                                 return -1;
1478                         return perf_header__read_build_ids_abi_quirk(header, input, offset, size);
1479                 }
1480
1481                 __event_process_build_id(&bev, filename, session);
1482
1483                 offset += bev.header.size;
1484         }
1485         err = 0;
1486 out:
1487         return err;
1488 }
1489
1490 static int process_tracing_data(struct perf_file_section *section __unused,
1491                               struct perf_header *ph __unused,
1492                               int feat __unused, int fd, void *data)
1493 {
1494         trace_report(fd, data, false);
1495         return 0;
1496 }
1497
1498 static int process_build_id(struct perf_file_section *section,
1499                             struct perf_header *ph,
1500                             int feat __unused, int fd, void *data __used)
1501 {
1502         if (perf_header__read_build_ids(ph, fd, section->offset, section->size))
1503                 pr_debug("Failed to read buildids, continuing...\n");
1504         return 0;
1505 }
1506
1507 struct feature_ops {
1508         int (*write)(int fd, struct perf_header *h, struct perf_evlist *evlist);
1509         void (*print)(struct perf_header *h, int fd, FILE *fp);
1510         int (*process)(struct perf_file_section *section,
1511                        struct perf_header *h, int feat, int fd, void *data);
1512         const char *name;
1513         bool full_only;
1514 };
1515
1516 #define FEAT_OPA(n, func) \
1517         [n] = { .name = #n, .write = write_##func, .print = print_##func }
1518 #define FEAT_OPP(n, func) \
1519         [n] = { .name = #n, .write = write_##func, .print = print_##func, \
1520                 .process = process_##func }
1521 #define FEAT_OPF(n, func) \
1522         [n] = { .name = #n, .write = write_##func, .print = print_##func, \
1523                 .full_only = true }
1524
1525 /* feature_ops not implemented: */
1526 #define print_tracing_data      NULL
1527 #define print_build_id          NULL
1528
1529 static const struct feature_ops feat_ops[HEADER_LAST_FEATURE] = {
1530         FEAT_OPP(HEADER_TRACING_DATA,   tracing_data),
1531         FEAT_OPP(HEADER_BUILD_ID,       build_id),
1532         FEAT_OPA(HEADER_HOSTNAME,       hostname),
1533         FEAT_OPA(HEADER_OSRELEASE,      osrelease),
1534         FEAT_OPA(HEADER_VERSION,        version),
1535         FEAT_OPA(HEADER_ARCH,           arch),
1536         FEAT_OPA(HEADER_NRCPUS,         nrcpus),
1537         FEAT_OPA(HEADER_CPUDESC,        cpudesc),
1538         FEAT_OPA(HEADER_CPUID,          cpuid),
1539         FEAT_OPA(HEADER_TOTAL_MEM,      total_mem),
1540         FEAT_OPA(HEADER_EVENT_DESC,     event_desc),
1541         FEAT_OPA(HEADER_CMDLINE,        cmdline),
1542         FEAT_OPF(HEADER_CPU_TOPOLOGY,   cpu_topology),
1543         FEAT_OPF(HEADER_NUMA_TOPOLOGY,  numa_topology),
1544         FEAT_OPA(HEADER_BRANCH_STACK,   branch_stack),
1545 };
1546
1547 struct header_print_data {
1548         FILE *fp;
1549         bool full; /* extended list of headers */
1550 };
1551
1552 static int perf_file_section__fprintf_info(struct perf_file_section *section,
1553                                            struct perf_header *ph,
1554                                            int feat, int fd, void *data)
1555 {
1556         struct header_print_data *hd = data;
1557
1558         if (lseek(fd, section->offset, SEEK_SET) == (off_t)-1) {
1559                 pr_debug("Failed to lseek to %" PRIu64 " offset for feature "
1560                                 "%d, continuing...\n", section->offset, feat);
1561                 return 0;
1562         }
1563         if (feat >= HEADER_LAST_FEATURE) {
1564                 pr_warning("unknown feature %d\n", feat);
1565                 return 0;
1566         }
1567         if (!feat_ops[feat].print)
1568                 return 0;
1569
1570         if (!feat_ops[feat].full_only || hd->full)
1571                 feat_ops[feat].print(ph, fd, hd->fp);
1572         else
1573                 fprintf(hd->fp, "# %s info available, use -I to display\n",
1574                         feat_ops[feat].name);
1575
1576         return 0;
1577 }
1578
1579 int perf_header__fprintf_info(struct perf_session *session, FILE *fp, bool full)
1580 {
1581         struct header_print_data hd;
1582         struct perf_header *header = &session->header;
1583         int fd = session->fd;
1584         hd.fp = fp;
1585         hd.full = full;
1586
1587         perf_header__process_sections(header, fd, &hd,
1588                                       perf_file_section__fprintf_info);
1589         return 0;
1590 }
1591
1592 static int do_write_feat(int fd, struct perf_header *h, int type,
1593                          struct perf_file_section **p,
1594                          struct perf_evlist *evlist)
1595 {
1596         int err;
1597         int ret = 0;
1598
1599         if (perf_header__has_feat(h, type)) {
1600                 if (!feat_ops[type].write)
1601                         return -1;
1602
1603                 (*p)->offset = lseek(fd, 0, SEEK_CUR);
1604
1605                 err = feat_ops[type].write(fd, h, evlist);
1606                 if (err < 0) {
1607                         pr_debug("failed to write feature %d\n", type);
1608
1609                         /* undo anything written */
1610                         lseek(fd, (*p)->offset, SEEK_SET);
1611
1612                         return -1;
1613                 }
1614                 (*p)->size = lseek(fd, 0, SEEK_CUR) - (*p)->offset;
1615                 (*p)++;
1616         }
1617         return ret;
1618 }
1619
1620 static int perf_header__adds_write(struct perf_header *header,
1621                                    struct perf_evlist *evlist, int fd)
1622 {
1623         int nr_sections;
1624         struct perf_file_section *feat_sec, *p;
1625         int sec_size;
1626         u64 sec_start;
1627         int feat;
1628         int err;
1629
1630         nr_sections = bitmap_weight(header->adds_features, HEADER_FEAT_BITS);
1631         if (!nr_sections)
1632                 return 0;
1633
1634         feat_sec = p = calloc(sizeof(*feat_sec), nr_sections);
1635         if (feat_sec == NULL)
1636                 return -ENOMEM;
1637
1638         sec_size = sizeof(*feat_sec) * nr_sections;
1639
1640         sec_start = header->data_offset + header->data_size;
1641         lseek(fd, sec_start + sec_size, SEEK_SET);
1642
1643         for_each_set_bit(feat, header->adds_features, HEADER_FEAT_BITS) {
1644                 if (do_write_feat(fd, header, feat, &p, evlist))
1645                         perf_header__clear_feat(header, feat);
1646         }
1647
1648         lseek(fd, sec_start, SEEK_SET);
1649         /*
1650          * may write more than needed due to dropped feature, but
1651          * this is okay, reader will skip the mising entries
1652          */
1653         err = do_write(fd, feat_sec, sec_size);
1654         if (err < 0)
1655                 pr_debug("failed to write feature section\n");
1656         free(feat_sec);
1657         return err;
1658 }
1659
1660 int perf_header__write_pipe(int fd)
1661 {
1662         struct perf_pipe_file_header f_header;
1663         int err;
1664
1665         f_header = (struct perf_pipe_file_header){
1666                 .magic     = PERF_MAGIC,
1667                 .size      = sizeof(f_header),
1668         };
1669
1670         err = do_write(fd, &f_header, sizeof(f_header));
1671         if (err < 0) {
1672                 pr_debug("failed to write perf pipe header\n");
1673                 return err;
1674         }
1675
1676         return 0;
1677 }
1678
1679 int perf_session__write_header(struct perf_session *session,
1680                                struct perf_evlist *evlist,
1681                                int fd, bool at_exit)
1682 {
1683         struct perf_file_header f_header;
1684         struct perf_file_attr   f_attr;
1685         struct perf_header *header = &session->header;
1686         struct perf_evsel *evsel, *pair = NULL;
1687         int err;
1688
1689         lseek(fd, sizeof(f_header), SEEK_SET);
1690
1691         if (session->evlist != evlist)
1692                 pair = perf_evlist__first(session->evlist);
1693
1694         list_for_each_entry(evsel, &evlist->entries, node) {
1695                 evsel->id_offset = lseek(fd, 0, SEEK_CUR);
1696                 err = do_write(fd, evsel->id, evsel->ids * sizeof(u64));
1697                 if (err < 0) {
1698 out_err_write:
1699                         pr_debug("failed to write perf header\n");
1700                         return err;
1701                 }
1702                 if (session->evlist != evlist) {
1703                         err = do_write(fd, pair->id, pair->ids * sizeof(u64));
1704                         if (err < 0)
1705                                 goto out_err_write;
1706                         evsel->ids += pair->ids;
1707                         pair = perf_evsel__next(pair);
1708                 }
1709         }
1710
1711         header->attr_offset = lseek(fd, 0, SEEK_CUR);
1712
1713         list_for_each_entry(evsel, &evlist->entries, node) {
1714                 f_attr = (struct perf_file_attr){
1715                         .attr = evsel->attr,
1716                         .ids  = {
1717                                 .offset = evsel->id_offset,
1718                                 .size   = evsel->ids * sizeof(u64),
1719                         }
1720                 };
1721                 err = do_write(fd, &f_attr, sizeof(f_attr));
1722                 if (err < 0) {
1723                         pr_debug("failed to write perf header attribute\n");
1724                         return err;
1725                 }
1726         }
1727
1728         header->event_offset = lseek(fd, 0, SEEK_CUR);
1729         header->event_size = event_count * sizeof(struct perf_trace_event_type);
1730         if (events) {
1731                 err = do_write(fd, events, header->event_size);
1732                 if (err < 0) {
1733                         pr_debug("failed to write perf header events\n");
1734                         return err;
1735                 }
1736         }
1737
1738         header->data_offset = lseek(fd, 0, SEEK_CUR);
1739
1740         if (at_exit) {
1741                 err = perf_header__adds_write(header, evlist, fd);
1742                 if (err < 0)
1743                         return err;
1744         }
1745
1746         f_header = (struct perf_file_header){
1747                 .magic     = PERF_MAGIC,
1748                 .size      = sizeof(f_header),
1749                 .attr_size = sizeof(f_attr),
1750                 .attrs = {
1751                         .offset = header->attr_offset,
1752                         .size   = evlist->nr_entries * sizeof(f_attr),
1753                 },
1754                 .data = {
1755                         .offset = header->data_offset,
1756                         .size   = header->data_size,
1757                 },
1758                 .event_types = {
1759                         .offset = header->event_offset,
1760                         .size   = header->event_size,
1761                 },
1762         };
1763
1764         memcpy(&f_header.adds_features, &header->adds_features, sizeof(header->adds_features));
1765
1766         lseek(fd, 0, SEEK_SET);
1767         err = do_write(fd, &f_header, sizeof(f_header));
1768         if (err < 0) {
1769                 pr_debug("failed to write perf header\n");
1770                 return err;
1771         }
1772         lseek(fd, header->data_offset + header->data_size, SEEK_SET);
1773
1774         header->frozen = 1;
1775         return 0;
1776 }
1777
1778 static int perf_header__getbuffer64(struct perf_header *header,
1779                                     int fd, void *buf, size_t size)
1780 {
1781         if (readn(fd, buf, size) <= 0)
1782                 return -1;
1783
1784         if (header->needs_swap)
1785                 mem_bswap_64(buf, size);
1786
1787         return 0;
1788 }
1789
1790 int perf_header__process_sections(struct perf_header *header, int fd,
1791                                   void *data,
1792                                   int (*process)(struct perf_file_section *section,
1793                                                  struct perf_header *ph,
1794                                                  int feat, int fd, void *data))
1795 {
1796         struct perf_file_section *feat_sec, *sec;
1797         int nr_sections;
1798         int sec_size;
1799         int feat;
1800         int err;
1801
1802         nr_sections = bitmap_weight(header->adds_features, HEADER_FEAT_BITS);
1803         if (!nr_sections)
1804                 return 0;
1805
1806         feat_sec = sec = calloc(sizeof(*feat_sec), nr_sections);
1807         if (!feat_sec)
1808                 return -1;
1809
1810         sec_size = sizeof(*feat_sec) * nr_sections;
1811
1812         lseek(fd, header->data_offset + header->data_size, SEEK_SET);
1813
1814         err = perf_header__getbuffer64(header, fd, feat_sec, sec_size);
1815         if (err < 0)
1816                 goto out_free;
1817
1818         for_each_set_bit(feat, header->adds_features, HEADER_LAST_FEATURE) {
1819                 err = process(sec++, header, feat, fd, data);
1820                 if (err < 0)
1821                         goto out_free;
1822         }
1823         err = 0;
1824 out_free:
1825         free(feat_sec);
1826         return err;
1827 }
1828
1829 static const int attr_file_abi_sizes[] = {
1830         [0] = PERF_ATTR_SIZE_VER0,
1831         [1] = PERF_ATTR_SIZE_VER1,
1832         [2] = PERF_ATTR_SIZE_VER2,
1833         [3] = PERF_ATTR_SIZE_VER3,
1834         [4] = PERF_ATTR_SIZE_VER4,
1835         0,
1836 };
1837
1838 /*
1839  * In the legacy file format, the magic number is not used to encode endianness.
1840  * hdr_sz was used to encode endianness. But given that hdr_sz can vary based
1841  * on ABI revisions, we need to try all combinations for all endianness to
1842  * detect the endianness.
1843  */
1844 static int try_all_file_abis(uint64_t hdr_sz, struct perf_header *ph)
1845 {
1846         uint64_t ref_size, attr_size;
1847         int i;
1848
1849         for (i = 0 ; attr_file_abi_sizes[i]; i++) {
1850                 ref_size = attr_file_abi_sizes[i]
1851                          + sizeof(struct perf_file_section);
1852                 if (hdr_sz != ref_size) {
1853                         attr_size = bswap_64(hdr_sz);
1854                         if (attr_size != ref_size)
1855                                 continue;
1856
1857                         ph->needs_swap = true;
1858                 }
1859                 pr_debug("ABI%d perf.data file detected, need_swap=%d\n",
1860                          i,
1861                          ph->needs_swap);
1862                 return 0;
1863         }
1864         /* could not determine endianness */
1865         return -1;
1866 }
1867
1868 #define PERF_PIPE_HDR_VER0      16
1869
1870 static const size_t attr_pipe_abi_sizes[] = {
1871         [0] = PERF_PIPE_HDR_VER0,
1872         0,
1873 };
1874
1875 /*
1876  * In the legacy pipe format, there is an implicit assumption that endiannesss
1877  * between host recording the samples, and host parsing the samples is the
1878  * same. This is not always the case given that the pipe output may always be
1879  * redirected into a file and analyzed on a different machine with possibly a
1880  * different endianness and perf_event ABI revsions in the perf tool itself.
1881  */
1882 static int try_all_pipe_abis(uint64_t hdr_sz, struct perf_header *ph)
1883 {
1884         u64 attr_size;
1885         int i;
1886
1887         for (i = 0 ; attr_pipe_abi_sizes[i]; i++) {
1888                 if (hdr_sz != attr_pipe_abi_sizes[i]) {
1889                         attr_size = bswap_64(hdr_sz);
1890                         if (attr_size != hdr_sz)
1891                                 continue;
1892
1893                         ph->needs_swap = true;
1894                 }
1895                 pr_debug("Pipe ABI%d perf.data file detected\n", i);
1896                 return 0;
1897         }
1898         return -1;
1899 }
1900
1901 static int check_magic_endian(u64 magic, uint64_t hdr_sz,
1902                               bool is_pipe, struct perf_header *ph)
1903 {
1904         int ret;
1905
1906         /* check for legacy format */
1907         ret = memcmp(&magic, __perf_magic1, sizeof(magic));
1908         if (ret == 0) {
1909                 pr_debug("legacy perf.data format\n");
1910                 if (is_pipe)
1911                         return try_all_pipe_abis(hdr_sz, ph);
1912
1913                 return try_all_file_abis(hdr_sz, ph);
1914         }
1915         /*
1916          * the new magic number serves two purposes:
1917          * - unique number to identify actual perf.data files
1918          * - encode endianness of file
1919          */
1920
1921         /* check magic number with one endianness */
1922         if (magic == __perf_magic2)
1923                 return 0;
1924
1925         /* check magic number with opposite endianness */
1926         if (magic != __perf_magic2_sw)
1927                 return -1;
1928
1929         ph->needs_swap = true;
1930
1931         return 0;
1932 }
1933
1934 int perf_file_header__read(struct perf_file_header *header,
1935                            struct perf_header *ph, int fd)
1936 {
1937         int ret;
1938
1939         lseek(fd, 0, SEEK_SET);
1940
1941         ret = readn(fd, header, sizeof(*header));
1942         if (ret <= 0)
1943                 return -1;
1944
1945         if (check_magic_endian(header->magic,
1946                                header->attr_size, false, ph) < 0) {
1947                 pr_debug("magic/endian check failed\n");
1948                 return -1;
1949         }
1950
1951         if (ph->needs_swap) {
1952                 mem_bswap_64(header, offsetof(struct perf_file_header,
1953                              adds_features));
1954         }
1955
1956         if (header->size != sizeof(*header)) {
1957                 /* Support the previous format */
1958                 if (header->size == offsetof(typeof(*header), adds_features))
1959                         bitmap_zero(header->adds_features, HEADER_FEAT_BITS);
1960                 else
1961                         return -1;
1962         } else if (ph->needs_swap) {
1963                 /*
1964                  * feature bitmap is declared as an array of unsigned longs --
1965                  * not good since its size can differ between the host that
1966                  * generated the data file and the host analyzing the file.
1967                  *
1968                  * We need to handle endianness, but we don't know the size of
1969                  * the unsigned long where the file was generated. Take a best
1970                  * guess at determining it: try 64-bit swap first (ie., file
1971                  * created on a 64-bit host), and check if the hostname feature
1972                  * bit is set (this feature bit is forced on as of fbe96f2).
1973                  * If the bit is not, undo the 64-bit swap and try a 32-bit
1974                  * swap. If the hostname bit is still not set (e.g., older data
1975                  * file), punt and fallback to the original behavior --
1976                  * clearing all feature bits and setting buildid.
1977                  */
1978                 mem_bswap_64(&header->adds_features,
1979                             BITS_TO_U64(HEADER_FEAT_BITS));
1980
1981                 if (!test_bit(HEADER_HOSTNAME, header->adds_features)) {
1982                         /* unswap as u64 */
1983                         mem_bswap_64(&header->adds_features,
1984                                     BITS_TO_U64(HEADER_FEAT_BITS));
1985
1986                         /* unswap as u32 */
1987                         mem_bswap_32(&header->adds_features,
1988                                     BITS_TO_U32(HEADER_FEAT_BITS));
1989                 }
1990
1991                 if (!test_bit(HEADER_HOSTNAME, header->adds_features)) {
1992                         bitmap_zero(header->adds_features, HEADER_FEAT_BITS);
1993                         set_bit(HEADER_BUILD_ID, header->adds_features);
1994                 }
1995         }
1996
1997         memcpy(&ph->adds_features, &header->adds_features,
1998                sizeof(ph->adds_features));
1999
2000         ph->event_offset = header->event_types.offset;
2001         ph->event_size   = header->event_types.size;
2002         ph->data_offset  = header->data.offset;
2003         ph->data_size    = header->data.size;
2004         return 0;
2005 }
2006
2007 static int perf_file_section__process(struct perf_file_section *section,
2008                                       struct perf_header *ph,
2009                                       int feat, int fd, void *data)
2010 {
2011         if (lseek(fd, section->offset, SEEK_SET) == (off_t)-1) {
2012                 pr_debug("Failed to lseek to %" PRIu64 " offset for feature "
2013                           "%d, continuing...\n", section->offset, feat);
2014                 return 0;
2015         }
2016
2017         if (feat >= HEADER_LAST_FEATURE) {
2018                 pr_debug("unknown feature %d, continuing...\n", feat);
2019                 return 0;
2020         }
2021
2022         if (!feat_ops[feat].process)
2023                 return 0;
2024
2025         return feat_ops[feat].process(section, ph, feat, fd, data);
2026 }
2027
2028 static int perf_file_header__read_pipe(struct perf_pipe_file_header *header,
2029                                        struct perf_header *ph, int fd,
2030                                        bool repipe)
2031 {
2032         int ret;
2033
2034         ret = readn(fd, header, sizeof(*header));
2035         if (ret <= 0)
2036                 return -1;
2037
2038         if (check_magic_endian(header->magic, header->size, true, ph) < 0) {
2039                 pr_debug("endian/magic failed\n");
2040                 return -1;
2041         }
2042
2043         if (ph->needs_swap)
2044                 header->size = bswap_64(header->size);
2045
2046         if (repipe && do_write(STDOUT_FILENO, header, sizeof(*header)) < 0)
2047                 return -1;
2048
2049         return 0;
2050 }
2051
2052 static int perf_header__read_pipe(struct perf_session *session, int fd)
2053 {
2054         struct perf_header *header = &session->header;
2055         struct perf_pipe_file_header f_header;
2056
2057         if (perf_file_header__read_pipe(&f_header, header, fd,
2058                                         session->repipe) < 0) {
2059                 pr_debug("incompatible file format\n");
2060                 return -EINVAL;
2061         }
2062
2063         session->fd = fd;
2064
2065         return 0;
2066 }
2067
2068 static int read_attr(int fd, struct perf_header *ph,
2069                      struct perf_file_attr *f_attr)
2070 {
2071         struct perf_event_attr *attr = &f_attr->attr;
2072         size_t sz, left;
2073         size_t our_sz = sizeof(f_attr->attr);
2074         int ret;
2075
2076         memset(f_attr, 0, sizeof(*f_attr));
2077
2078         /* read minimal guaranteed structure */
2079         ret = readn(fd, attr, PERF_ATTR_SIZE_VER0);
2080         if (ret <= 0) {
2081                 pr_debug("cannot read %d bytes of header attr\n",
2082                          PERF_ATTR_SIZE_VER0);
2083                 return -1;
2084         }
2085
2086         /* on file perf_event_attr size */
2087         sz = attr->size;
2088
2089         if (ph->needs_swap)
2090                 sz = bswap_32(sz);
2091
2092         if (sz == 0) {
2093                 /* assume ABI0 */
2094                 sz =  PERF_ATTR_SIZE_VER0;
2095         } else if (sz > our_sz) {
2096                 pr_debug("file uses a more recent and unsupported ABI"
2097                          " (%zu bytes extra)\n", sz - our_sz);
2098                 return -1;
2099         }
2100         /* what we have not yet read and that we know about */
2101         left = sz - PERF_ATTR_SIZE_VER0;
2102         if (left) {
2103                 void *ptr = attr;
2104                 ptr += PERF_ATTR_SIZE_VER0;
2105
2106                 ret = readn(fd, ptr, left);
2107         }
2108         /* read perf_file_section, ids are read in caller */
2109         ret = readn(fd, &f_attr->ids, sizeof(f_attr->ids));
2110
2111         return ret <= 0 ? -1 : 0;
2112 }
2113
2114 static int perf_evsel__set_tracepoint_name(struct perf_evsel *evsel,
2115                                            struct pevent *pevent)
2116 {
2117         struct event_format *event = pevent_find_event(pevent,
2118                                                        evsel->attr.config);
2119         char bf[128];
2120
2121         if (event == NULL)
2122                 return -1;
2123
2124         snprintf(bf, sizeof(bf), "%s:%s", event->system, event->name);
2125         evsel->name = strdup(bf);
2126         if (event->name == NULL)
2127                 return -1;
2128
2129         evsel->tp_format = event;
2130         return 0;
2131 }
2132
2133 static int perf_evlist__set_tracepoint_names(struct perf_evlist *evlist,
2134                                              struct pevent *pevent)
2135 {
2136         struct perf_evsel *pos;
2137
2138         list_for_each_entry(pos, &evlist->entries, node) {
2139                 if (pos->attr.type == PERF_TYPE_TRACEPOINT &&
2140                     perf_evsel__set_tracepoint_name(pos, pevent))
2141                         return -1;
2142         }
2143
2144         return 0;
2145 }
2146
2147 int perf_session__read_header(struct perf_session *session, int fd)
2148 {
2149         struct perf_header *header = &session->header;
2150         struct perf_file_header f_header;
2151         struct perf_file_attr   f_attr;
2152         u64                     f_id;
2153         int nr_attrs, nr_ids, i, j;
2154
2155         session->evlist = perf_evlist__new(NULL, NULL);
2156         if (session->evlist == NULL)
2157                 return -ENOMEM;
2158
2159         if (session->fd_pipe)
2160                 return perf_header__read_pipe(session, fd);
2161
2162         if (perf_file_header__read(&f_header, header, fd) < 0)
2163                 return -EINVAL;
2164
2165         nr_attrs = f_header.attrs.size / f_header.attr_size;
2166         lseek(fd, f_header.attrs.offset, SEEK_SET);
2167
2168         for (i = 0; i < nr_attrs; i++) {
2169                 struct perf_evsel *evsel;
2170                 off_t tmp;
2171
2172                 if (read_attr(fd, header, &f_attr) < 0)
2173                         goto out_errno;
2174
2175                 if (header->needs_swap)
2176                         perf_event__attr_swap(&f_attr.attr);
2177
2178                 tmp = lseek(fd, 0, SEEK_CUR);
2179                 evsel = perf_evsel__new(&f_attr.attr, i);
2180
2181                 if (evsel == NULL)
2182                         goto out_delete_evlist;
2183                 /*
2184                  * Do it before so that if perf_evsel__alloc_id fails, this
2185                  * entry gets purged too at perf_evlist__delete().
2186                  */
2187                 perf_evlist__add(session->evlist, evsel);
2188
2189                 nr_ids = f_attr.ids.size / sizeof(u64);
2190                 /*
2191                  * We don't have the cpu and thread maps on the header, so
2192                  * for allocating the perf_sample_id table we fake 1 cpu and
2193                  * hattr->ids threads.
2194                  */
2195                 if (perf_evsel__alloc_id(evsel, 1, nr_ids))
2196                         goto out_delete_evlist;
2197
2198                 lseek(fd, f_attr.ids.offset, SEEK_SET);
2199
2200                 for (j = 0; j < nr_ids; j++) {
2201                         if (perf_header__getbuffer64(header, fd, &f_id, sizeof(f_id)))
2202                                 goto out_errno;
2203
2204                         perf_evlist__id_add(session->evlist, evsel, 0, j, f_id);
2205                 }
2206
2207                 lseek(fd, tmp, SEEK_SET);
2208         }
2209
2210         symbol_conf.nr_events = nr_attrs;
2211
2212         if (f_header.event_types.size) {
2213                 lseek(fd, f_header.event_types.offset, SEEK_SET);
2214                 events = malloc(f_header.event_types.size);
2215                 if (events == NULL)
2216                         return -ENOMEM;
2217                 if (perf_header__getbuffer64(header, fd, events,
2218                                              f_header.event_types.size))
2219                         goto out_errno;
2220                 event_count =  f_header.event_types.size / sizeof(struct perf_trace_event_type);
2221         }
2222
2223         perf_header__process_sections(header, fd, &session->pevent,
2224                                       perf_file_section__process);
2225
2226         lseek(fd, header->data_offset, SEEK_SET);
2227
2228         if (perf_evlist__set_tracepoint_names(session->evlist, session->pevent))
2229                 goto out_delete_evlist;
2230
2231         header->frozen = 1;
2232         return 0;
2233 out_errno:
2234         return -errno;
2235
2236 out_delete_evlist:
2237         perf_evlist__delete(session->evlist);
2238         session->evlist = NULL;
2239         return -ENOMEM;
2240 }
2241
2242 int perf_event__synthesize_attr(struct perf_tool *tool,
2243                                 struct perf_event_attr *attr, u32 ids, u64 *id,
2244                                 perf_event__handler_t process)
2245 {
2246         union perf_event *ev;
2247         size_t size;
2248         int err;
2249
2250         size = sizeof(struct perf_event_attr);
2251         size = ALIGN(size, sizeof(u64));
2252         size += sizeof(struct perf_event_header);
2253         size += ids * sizeof(u64);
2254
2255         ev = malloc(size);
2256
2257         if (ev == NULL)
2258                 return -ENOMEM;
2259
2260         ev->attr.attr = *attr;
2261         memcpy(ev->attr.id, id, ids * sizeof(u64));
2262
2263         ev->attr.header.type = PERF_RECORD_HEADER_ATTR;
2264         ev->attr.header.size = (u16)size;
2265
2266         if (ev->attr.header.size == size)
2267                 err = process(tool, ev, NULL, NULL);
2268         else
2269                 err = -E2BIG;
2270
2271         free(ev);
2272
2273         return err;
2274 }
2275
2276 int perf_event__synthesize_attrs(struct perf_tool *tool,
2277                                    struct perf_session *session,
2278                                    perf_event__handler_t process)
2279 {
2280         struct perf_evsel *evsel;
2281         int err = 0;
2282
2283         list_for_each_entry(evsel, &session->evlist->entries, node) {
2284                 err = perf_event__synthesize_attr(tool, &evsel->attr, evsel->ids,
2285                                                   evsel->id, process);
2286                 if (err) {
2287                         pr_debug("failed to create perf header attribute\n");
2288                         return err;
2289                 }
2290         }
2291
2292         return err;
2293 }
2294
2295 int perf_event__process_attr(union perf_event *event,
2296                              struct perf_evlist **pevlist)
2297 {
2298         u32 i, ids, n_ids;
2299         struct perf_evsel *evsel;
2300         struct perf_evlist *evlist = *pevlist;
2301
2302         if (evlist == NULL) {
2303                 *pevlist = evlist = perf_evlist__new(NULL, NULL);
2304                 if (evlist == NULL)
2305                         return -ENOMEM;
2306         }
2307
2308         evsel = perf_evsel__new(&event->attr.attr, evlist->nr_entries);
2309         if (evsel == NULL)
2310                 return -ENOMEM;
2311
2312         perf_evlist__add(evlist, evsel);
2313
2314         ids = event->header.size;
2315         ids -= (void *)&event->attr.id - (void *)event;
2316         n_ids = ids / sizeof(u64);
2317         /*
2318          * We don't have the cpu and thread maps on the header, so
2319          * for allocating the perf_sample_id table we fake 1 cpu and
2320          * hattr->ids threads.
2321          */
2322         if (perf_evsel__alloc_id(evsel, 1, n_ids))
2323                 return -ENOMEM;
2324
2325         for (i = 0; i < n_ids; i++) {
2326                 perf_evlist__id_add(evlist, evsel, 0, i, event->attr.id[i]);
2327         }
2328
2329         return 0;
2330 }
2331
2332 int perf_event__synthesize_event_type(struct perf_tool *tool,
2333                                       u64 event_id, char *name,
2334                                       perf_event__handler_t process,
2335                                       struct machine *machine)
2336 {
2337         union perf_event ev;
2338         size_t size = 0;
2339         int err = 0;
2340
2341         memset(&ev, 0, sizeof(ev));
2342
2343         ev.event_type.event_type.event_id = event_id;
2344         memset(ev.event_type.event_type.name, 0, MAX_EVENT_NAME);
2345         strncpy(ev.event_type.event_type.name, name, MAX_EVENT_NAME - 1);
2346
2347         ev.event_type.header.type = PERF_RECORD_HEADER_EVENT_TYPE;
2348         size = strlen(ev.event_type.event_type.name);
2349         size = ALIGN(size, sizeof(u64));
2350         ev.event_type.header.size = sizeof(ev.event_type) -
2351                 (sizeof(ev.event_type.event_type.name) - size);
2352
2353         err = process(tool, &ev, NULL, machine);
2354
2355         return err;
2356 }
2357
2358 int perf_event__synthesize_event_types(struct perf_tool *tool,
2359                                        perf_event__handler_t process,
2360                                        struct machine *machine)
2361 {
2362         struct perf_trace_event_type *type;
2363         int i, err = 0;
2364
2365         for (i = 0; i < event_count; i++) {
2366                 type = &events[i];
2367
2368                 err = perf_event__synthesize_event_type(tool, type->event_id,
2369                                                         type->name, process,
2370                                                         machine);
2371                 if (err) {
2372                         pr_debug("failed to create perf header event type\n");
2373                         return err;
2374                 }
2375         }
2376
2377         return err;
2378 }
2379
2380 int perf_event__process_event_type(struct perf_tool *tool __unused,
2381                                    union perf_event *event)
2382 {
2383         if (perf_header__push_event(event->event_type.event_type.event_id,
2384                                     event->event_type.event_type.name) < 0)
2385                 return -ENOMEM;
2386
2387         return 0;
2388 }
2389
2390 int perf_event__synthesize_tracing_data(struct perf_tool *tool, int fd,
2391                                         struct perf_evlist *evlist,
2392                                         perf_event__handler_t process)
2393 {
2394         union perf_event ev;
2395         struct tracing_data *tdata;
2396         ssize_t size = 0, aligned_size = 0, padding;
2397         int err __used = 0;
2398
2399         /*
2400          * We are going to store the size of the data followed
2401          * by the data contents. Since the fd descriptor is a pipe,
2402          * we cannot seek back to store the size of the data once
2403          * we know it. Instead we:
2404          *
2405          * - write the tracing data to the temp file
2406          * - get/write the data size to pipe
2407          * - write the tracing data from the temp file
2408          *   to the pipe
2409          */
2410         tdata = tracing_data_get(&evlist->entries, fd, true);
2411         if (!tdata)
2412                 return -1;
2413
2414         memset(&ev, 0, sizeof(ev));
2415
2416         ev.tracing_data.header.type = PERF_RECORD_HEADER_TRACING_DATA;
2417         size = tdata->size;
2418         aligned_size = ALIGN(size, sizeof(u64));
2419         padding = aligned_size - size;
2420         ev.tracing_data.header.size = sizeof(ev.tracing_data);
2421         ev.tracing_data.size = aligned_size;
2422
2423         process(tool, &ev, NULL, NULL);
2424
2425         /*
2426          * The put function will copy all the tracing data
2427          * stored in temp file to the pipe.
2428          */
2429         tracing_data_put(tdata);
2430
2431         write_padded(fd, NULL, 0, padding);
2432
2433         return aligned_size;
2434 }
2435
2436 int perf_event__process_tracing_data(union perf_event *event,
2437                                      struct perf_session *session)
2438 {
2439         ssize_t size_read, padding, size = event->tracing_data.size;
2440         off_t offset = lseek(session->fd, 0, SEEK_CUR);
2441         char buf[BUFSIZ];
2442
2443         /* setup for reading amidst mmap */
2444         lseek(session->fd, offset + sizeof(struct tracing_data_event),
2445               SEEK_SET);
2446
2447         size_read = trace_report(session->fd, &session->pevent,
2448                                  session->repipe);
2449         padding = ALIGN(size_read, sizeof(u64)) - size_read;
2450
2451         if (read(session->fd, buf, padding) < 0)
2452                 die("reading input file");
2453         if (session->repipe) {
2454                 int retw = write(STDOUT_FILENO, buf, padding);
2455                 if (retw <= 0 || retw != padding)
2456                         die("repiping tracing data padding");
2457         }
2458
2459         if (size_read + padding != size)
2460                 die("tracing data size mismatch");
2461
2462         perf_evlist__set_tracepoint_names(session->evlist, session->pevent);
2463
2464         return size_read + padding;
2465 }
2466
2467 int perf_event__synthesize_build_id(struct perf_tool *tool,
2468                                     struct dso *pos, u16 misc,
2469                                     perf_event__handler_t process,
2470                                     struct machine *machine)
2471 {
2472         union perf_event ev;
2473         size_t len;
2474         int err = 0;
2475
2476         if (!pos->hit)
2477                 return err;
2478
2479         memset(&ev, 0, sizeof(ev));
2480
2481         len = pos->long_name_len + 1;
2482         len = ALIGN(len, NAME_ALIGN);
2483         memcpy(&ev.build_id.build_id, pos->build_id, sizeof(pos->build_id));
2484         ev.build_id.header.type = PERF_RECORD_HEADER_BUILD_ID;
2485         ev.build_id.header.misc = misc;
2486         ev.build_id.pid = machine->pid;
2487         ev.build_id.header.size = sizeof(ev.build_id) + len;
2488         memcpy(&ev.build_id.filename, pos->long_name, pos->long_name_len);
2489
2490         err = process(tool, &ev, NULL, machine);
2491
2492         return err;
2493 }
2494
2495 int perf_event__process_build_id(struct perf_tool *tool __used,
2496                                  union perf_event *event,
2497                                  struct perf_session *session)
2498 {
2499         __event_process_build_id(&event->build_id,
2500                                  event->build_id.filename,
2501                                  session);
2502         return 0;
2503 }
2504
2505 void disable_buildid_cache(void)
2506 {
2507         no_buildid_cache = true;
2508 }