#include <elf.h>
#include <link.h>
#include <stdio.h>
#include <stddef.h>
#include <string.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <unistd.h>
#include <stdlib.h>

int
main (int argc, char **argv, char **envp)
{
  ElfW(auxv_t) auxv;
  ElfW(auxv_t) *auxv_p;

  void *entry0 = NULL;
  void *entry1 = NULL;

  char *platform0 = NULL;
  char *platform1 = NULL;

  // First try the "traditional" way.
  while (*envp++ != NULL)
    ; /* Skip, skip, skip... and after finding a NULL we have the auxv. */

  for (auxv_p = (ElfW(auxv_t) *) envp;
       auxv_p->a_type != AT_NULL;
       auxv_p++)
    {
      if (auxv_p->a_type == AT_ENTRY)
	entry0 = (void *) auxv_p->a_un.a_val;
      if (auxv_p->a_type == AT_PLATFORM)
	platform0 = strdup((char *) auxv_p->a_un.a_val);
    }

  // Now the /proc way as often used in libraries.
  int fd = open("/proc/self/auxv", O_RDONLY);
  if (fd == -1)
    return -1;

  while (read(fd, &auxv, sizeof(auxv)) == sizeof(auxv))
    {
      if (auxv.a_type == AT_ENTRY)
	entry1 = (void *) auxv.a_un.a_val;
      if (auxv.a_type == AT_PLATFORM)
	platform1 = strdup((char *) auxv.a_un.a_val);
    }
  close(fd);

  if (entry0 == entry1 && entry0 != NULL)
    fprintf(stderr, "entries OK\n");

  if (strcmp (platform0, platform1) == 0)
    fprintf(stderr, "platform OK\n");

  free (platform0);
  free (platform1);

  return 0;
}