// SPDX-License-Identifier: LGPL-2.1
// Copyright (C) 2018, Red Hat Inc, Arnaldo Carvalho de Melo <acme@redhat.com>

#include "trace/beauty/beauty.h"
#include <sys/socket.h>
#include <sys/types.h>
#include <sys/un.h>
#include <arpa/inet.h>

#include "trace/beauty/generated/sockaddr.c"
DEFINE_STRARRAY(socket_families, "PF_");

static size_t af_inet__scnprintf(struct sockaddr *sa, char *bf, size_t size)
{
 struct sockaddr_in *sin = (struct sockaddr_in *)sa;
 char tmp[16];
 return scnprintf(bf, size, ", port: %d, addr: %s", ntohs(sin->sin_port),
    inet_ntop(sin->sin_family, &sin->sin_addr, tmp, sizeof(tmp)));
}

static size_t af_inet6__scnprintf(struct sockaddr *sa, char *bf, size_t size)
{
 struct sockaddr_in6 *sin6 = (struct sockaddr_in6 *)sa;
 u32 flowinfo = ntohl(sin6->sin6_flowinfo);
 char tmp[512];
 size_t printed = scnprintf(bf, size, ", port: %d, addr: %s", ntohs(sin6->sin6_port),
       inet_ntop(sin6->sin6_family, &sin6->sin6_addr, tmp, sizeof(tmp)));
 if (flowinfo != 0)
  printed += scnprintf(bf + printed, size - printed, ", flowinfo: %lu", flowinfo);
 if (sin6->sin6_scope_id != 0)
  printed += scnprintf(bf + printed, size - printed, ", scope_id: %lu", sin6->sin6_scope_id);

 return printed;
}

static size_t af_local__scnprintf(struct sockaddr *sa, char *bf, size_t size)
{
 struct sockaddr_un *sun = (struct sockaddr_un *)sa;
 return scnprintf(bf, size, ", path: %s", sun->sun_path);
}

static size_t (*af_scnprintfs[])(struct sockaddr *sa, char *bf, size_t size) = {
 [AF_LOCAL] = af_local__scnprintf,
 [AF_INET]  = af_inet__scnprintf,
 [AF_INET6] = af_inet6__scnprintf,
};

static size_t syscall_arg__scnprintf_augmented_sockaddr(struct syscall_arg *arg, char *bf, size_t size)
{
 struct sockaddr *sa = (struct sockaddr *)&arg->augmented.args->value;
 char family[32];
 size_t printed;

 strarray__scnprintf(&strarray__socket_families, family, sizeof(family), "%d", arg->show_string_prefix, sa->sa_family);
 printed = scnprintf(bf, size, "{ .family: %s", family);

 if (sa->sa_family < ARRAY_SIZE(af_scnprintfs) && af_scnprintfs[sa->sa_family])
  printed += af_scnprintfs[sa->sa_family](sa, bf + printed, size - printed);

 return printed + scnprintf(bf + printed, size - printed, " }");
}

size_t syscall_arg__scnprintf_sockaddr(char *bf, size_t size, struct syscall_arg *arg)
{
 if (arg->augmented.args)
  return syscall_arg__scnprintf_augmented_sockaddr(arg, bf, size);

 return scnprintf(bf, size, "%#lx", arg->val);
}