Osmocom Open Build Service

Changes of Revision 8

osmo-diameter2gsup_0.1.1.dsc -> osmo-diameter2gsup_0.1.1.202208050002.dsc Changed

osmo-diameter2gsup_0.1.1.202208050002.tar.xz/.tarball-version Added

osmo-diameter2gsup_0.1.1.tar.xz/build_dep.tar.gz -> osmo-diameter2gsup_0.1.1.202208050002.tar.xz/build_dep.tar.gz Changed

osmo-diameter2gsup_0.1.1.tar.xz/debian/changelog -> osmo-diameter2gsup_0.1.1.202208050002.tar.xz/debian/changelog Changed

osmo-diameter2gsup_0.1.1.tar.xz/debian/control -> osmo-diameter2gsup_0.1.1.202208050002.tar.xz/debian/control Changed

osmo-diameter2gsup_0.1.1.tar.xz/_build Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_build/default Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_build/default/lib Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_build/default/plugins Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_build/default/plugins/.rebar3 Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_build/default/plugins/.rebar3/rebar_compiler_erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_build/default/plugins/.rebar3/rebar_compiler_erl/source_apps.dag Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap/LICENSE Deleted

@@ -1,29 +0,0 @@
-Copyright (c) 2009-2020 Michael Santos <michael.santos@gmail.com>. All
-rights reserved.
-
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions
-are met:
-
-1. Redistributions of source code must retain the above copyright notice,
-this list of conditions and the following disclaimer.
-
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in the
-documentation and/or other materials provided with the distribution.
-
-3. Neither the name of the copyright holder nor the names of its
-contributors may be used to endorse or promote products derived from
-this software without specific prior written permission.
-
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
-A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
-HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
-TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
-PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
-LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
-NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap/Makefile Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap/README.md Deleted

@@ -1,173 +0,0 @@
-An Erlang port interface to libpcap.
-
-epcap includes a small example program called sniff.
-
-## QUICK SETUP
-
-    $ rebar3 compile # or: make
-
-To compile the examples:
-
-    $ make examples
-
-    # Allow your user to epcap with root privs
-    sudo visudo
-    youruser ALL = NOPASSWD: /path/to/epcap/priv/epcap
-    # And if requiretty is enabled, disable it by using one of these
-    Defaults!/path/to/epcap/priv/epcap !requiretty
-    Defaults:youruser !requiretty
-
-    rebar3 shell
-
-    % Start the sniffer process
-    sniff:start_link().
-
-    % Use your interface, or leave it out and trust in pcap
-    sniff:start({interface, "eth0"}).
-
-    % To change the filter
-    sniff:start({filter, "icmp or (tcp and port 80)"},{interface, "eth0"}).
-
-    % To stop sniffing
-    sniff:stop().
-
-
-## USAGE
-
-    epcap:start() -> {ok, pid()}
-    epcap:start(Args) -> {ok, pid()}
-    epcap:start_link() -> {ok, pid()}
-    epcap:start_link(Args) -> {ok, pid()}
-
-        Types   Args = Options
-                Options = {chroot, string()} | {group, string()} | {interface, string()} | {promiscuous, boolean()} |
-                            {user, string()} | {filter, string()} | {progname, string()} | {file, string()} |
-                            {monitor, boolean()} | {cpu_affinity, string()} | {cluster_id, non_neg_integer()}} |
-                            {inject, boolean()} | {snaplen, non_neg_integer} | {buffer, non_neg_integer()} |
-                            {time_unit, microsecond | timestamp} | {direction, in | out | inout} |
-                            {timeout, pos_integer() | infinity | immediate},
-                            {env, string()}
-
-        Packets are delivered as messages:
-
-            {packet, DataLinkType, Time, Length, Packet}
-
-        The DataLinkType is an integer representing the link layer,
-        e.g., ethernet, Linux cooked socket.
-
-        The Time can be either in microseconds or a timestamp in the same
-        format as erlang:now/0 depending on the value of the time_unit
-        option (default: timestamp):
-
-        {MegaSecs, Secs, MicroSecs}
-
-        The Length corresponds to the actual packet length on the
-        wire. The captured packet may have been truncated. To get the
-        captured packet length, use byte_size(Packet).
-
-        The Packet is a binary holding the captured data.
-
-        If the version of the pcap library supports it, the pcap buffer
-        size can be set to avoid dropped packets by using the 'buffer'
-        option. The buffer size must be larger than the snapshot
-        length (default: 65535) plus some overhead for the pcap data
-        structures. Using some multiple of the snapshot length is
-        suggested. The timeout used when appending subsequent packets
-        to the buffer can be controlled by the 'timeout' option on some
-        platforms (value in msecs), the special values 'infinity' (wait
-        until the pcap buffer is filled) and 'immediate' (do not wait
-        after the first packet). The value 0 is equivalent to
-        'immediate' which differs from the definition given in pcap(3PCAP).
-
-    epcap:send(Ref, Packet) -> ok
-
-        Types   Ref = pid()
-                Packet = binary()
-
-        Inject a packet on the network interface. To enable sending
-        packets, start_link/1 must be called with the {inject, true} option
-        (default: {inject, false}). When disabled, any data sent
-        to the epcap port is silently discarded.
-
-        Packet injection failures are treated as fatal errors, terminating
-        the epcap port. Partial writes are not considered to be errors
-        and are ignored (an error message will be printed to stderr if
-        the verbose option is used).
-
-## PF_RING
-
-        In case you want to compile epcap with PF_RING support,
-        just specify the path to the libpfring and modified libpcap libraries
-        via shell variable PFRING.
-
-            PFRING=/home/user/pfring make
-
-        To complete the configuration you need to set up the cluster_id option.
-        The value of the cluster_id option is integer and should be in range between 0 and 255.
-
-            epcap:start_link({interface, "lo"}, {cluster_id, 2}).
-
-        You can also specify the option cpu_affinity to set up CPU affinity for epcap port:
-
-            epcap:start_link({interface, "lo"}, {cluster_id, 2}, {cpu_affinity, "1,3,5-7"}).
-
-## PROCESS RESTRICTION
-
-Setting the `RESTRICT_PROCESS` environment variable controls which
-mode of process restriction is used. The available modes are:
-
-* seccomp: linux
-
-* pledge: openbsd (default)
-
-* capsicum: freebsd (default)
-
-* rlimit: all (default: linux)
-
-* null: all
-
-For example, to force using the seccomp process restriction on linux:
-
-    RESTRICT_PROCESS=rlimit rebar3 do clean, compile
-
-The `null` mode disables process restrictions and can be used for debugging.
-
-    RESTRICT_PROCESS=null rebar3 do clean, compile
-
-    epcap:start({exec, "sudo strace -f -s 4096 -o rlimit.trace"}, {filter, "port 9997"}).
-
-    RESTRICT_PROCESS=seccomp make clean all
-
-    epcap:start({exec, "sudo strace -f -s 4096 -o seccomp.trace"}, {filter, "port 9997"}).
-
-## SCREENSHOT
-
-    =INFO REPORT==== 27-Oct-2013::11:47:43 ===
-        pcap: {time,"2013-10-27 11:47:43"},
-               {caplen,653},
-               {len,653},
-               {datalink,en10mb}
-        ether: {source_macaddr,"F0:BD:4F:AA:BB:CC"},
-                {destination_macaddr,"B3:4B:19:00:11:22"}
-        ipv6: {protocol,tcp},
-               {source_address,"2607:F8B0:400B:80B::1000"},
-               {destination_address,"2002:26F:92:AE::123"}
-        tcp: {source_port,80},
-              {destination_port,47980},
-              {flags,ack,psh},
-              {seq,686139900},
-              {ack,725208397},
-              {win,224}
-        payload_size: 567
-        payload: "HTTP/1.0 301 Moved Permanently..Location: http://www.google.ca/..Content-Type: text/html; charset=UTF-8..Date: Sun, 27 Oct 2013 15:47:49 GMT..Expires: Tue, 26 Nov 2013 15:47:49 GMT..Cache-Control: public, max-age=2592000..Server: gws..Content-Length: 218..X-XSS-Protection: 1; mode=block..X-Frame-Options: SAMEORIGIN..Alternate-Protocol: 80:quic....<HTML><HEAD><meta http-equiv=\"content-type\" content=\"text/html;charset=utf-8\">.<TITLE>301 Moved</TITLE></HEAD><BODY>.<H1>301 Moved</H1>.The document has moved.<A HREF=\"http://www.google.ca/\">here</A>...</BODY></HTML>.." 
-
-And a screenshot of the number of packets epcap is processing on a
-production system:
-
-!IPTraf Screenshot(https://cloud.githubusercontent.com/assets/13721/4917083/8fe7754c-64e0-11e4-9165-17e21c57ee06.png)
-
-## TODO
-
-* return error atoms/tuples instead of using errx
-
-* add support for retrieving packet statistics using pcap\_stats(3PCAP)

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap/c_src Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap/c_src/Makefile Deleted

@@ -1,80 +0,0 @@
-# Based on c_src.mk from erlang.mk by Loic Hoguin <essen@ninenines.eu>
-
-CURDIR := $(shell pwd)
-BASEDIR := $(abspath $(CURDIR)/..)
-
-PROJECT ?= $(notdir $(BASEDIR))
-PROJECT := $(strip $(PROJECT))
-
-ERTS_INCLUDE_DIR ?= $(shell erl -noshell -s init stop -eval "io:format(\"~s/erts-~s/include/\", code:root_dir(), erlang:system_info(version)).")
-ERL_INTERFACE_INCLUDE_DIR ?= $(shell erl -noshell -s init stop -eval "io:format(\"~s\", code:lib_dir(erl_interface, include)).")
-ERL_INTERFACE_LIB_DIR ?= $(shell erl -noshell -s init stop -eval "io:format(\"~s\", code:lib_dir(erl_interface, lib)).")
-
-C_SRC_DIR = $(CURDIR)
-C_SRC_OUTPUT ?= $(CURDIR)/../priv/$(PROJECT)
-
-# System type and C compiler/flags.
-CC ?= cc
-
-UNAME_SYS := $(shell uname -s)
-ifeq ($(UNAME_SYS), Darwin)
-	LDFLAGS ?= -Wno-missing-braces
-	CFLAGS ?= -D_FORTIFY_SOURCE=2 -O2 -fstack-protector-strong \
-					 	-Wformat -Werror=format-security \
-					 	-fno-strict-aliasing \
-					 	-pie -fPIE
-else ifeq ($(UNAME_SYS), FreeBSD)
-	LDFLAGS ?= -Wl,-Bsymbolic-functions -Wl,-z,relro,-z,now -Wl,-z,noexecstack
-	CFLAGS ?= -DHAVE_SETPROCTITLE -DHAVE_STRTONUM \
-					 	-D_FORTIFY_SOURCE=2 -O2 -fstack-protector-strong \
-					 	-Wformat -Werror=format-security \
-					 	-fno-strict-aliasing \
-					 	-pie -fPIE
-	RESTRICT_PROCESS ?= capsicum
-else ifeq ($(UNAME_SYS), OpenBSD)
-	LDFLAGS ?= -Wl,-z,relro,-z,now -Wl,-z,noexecstack
-	CFLAGS ?= -DHAVE_SETPROCTITLE -DHAVE_STRTONUM \
-					 	-D_FORTIFY_SOURCE=2 -O2 -fstack-protector-strong \
-					 	-Wformat -Werror=format-security \
-					 	-fno-strict-aliasing \
-					 	-pie -fPIE
-	RESTRICT_PROCESS ?= pledge
-else ifeq ($(UNAME_SYS), Linux)
-	LDFLAGS ?= -Wl,-Bsymbolic-functions -Wl,-z,relro,-z,now -Wl,-z,noexecstack
-	CFLAGS ?= -D_FORTIFY_SOURCE=2 -O2 -fstack-protector-strong \
-					 	-Wformat -Werror=format-security \
-					 	-fno-strict-aliasing \
-					 	-pie -fPIE
-else ifeq ($(UNAME_SYS), SunOS)
-	CFLAGS += -std=c99 -D_POSIX_C_SOURCE=200112L -D__EXTENSIONS__=1
-endif
-
-RESTRICT_PROCESS ?= rlimit
-EPCAP_RLIMIT_NOFILES ?= 1
-
-EPCAP_CFLAGS ?= -g -Wall -fwrapv
-CFLAGS += $(EPCAP_CFLAGS) $(EPCAP_DEFINE) -I $(ERTS_INCLUDE_DIR) -I $(ERL_INTERFACE_INCLUDE_DIR) \
-          -DRESTRICT_PROCESS=\"$(RESTRICT_PROCESS)\" -DRESTRICT_PROCESS_$(RESTRICT_PROCESS) \
-					-DEPCAP_RLIMIT_NOFILES=$(EPCAP_RLIMIT_NOFILES)
-
-LDLIBS += -lpcap -L $(ERL_INTERFACE_LIB_DIR) -lei
-LDFLAGS += $(EPCAP_LDFLAGS)
-
-# Verbosity.
-
-c_verbose_0 = @echo " C     " $(?F);
-c_verbose = $(c_verbose_$(V))
-
-link_verbose_0 = @echo " LD    " $(@F);
-link_verbose = $(link_verbose_$(V))
-
-SOURCES := $(shell find $(C_SRC_DIR) -type f $ -name "*.c" $)
-OBJECTS = $(addsuffix .o, $(basename $(SOURCES)))
-
-COMPILE_C = $(c_verbose) $(CC) $(CFLAGS)
-
-$(C_SRC_OUTPUT):
-	$(COMPILE_C) -o $(C_SRC_OUTPUT) $(SOURCES) $(LDFLAGS) $(LDLIBS)
-
-clean:
-	@rm -f $(C_SRC_OUTPUT) $(OBJECTS)

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap/c_src/epcap.c Deleted

@@ -1,667 +0,0 @@
-/* Copyright (c) 2009-2021 Michael Santos <michael.santos@gmail.com>. All
- * rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions
- * are met:
- *
- * 1. Redistributions of source code must retain the above copyright notice,
- * this list of conditions and the following disclaimer.
- *
- * 2. Redistributions in binary form must reproduce the above copyright
- * notice, this list of conditions and the following disclaimer in the
- * documentation and/or other materials provided with the distribution.
- *
- * 3. Neither the name of the copyright holder nor the names of its
- * contributors may be used to endorse or promote products derived from
- * this software without specific prior written permission.
- *
- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
- * HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
- * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
- * TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- */
-#include <ei.h>
-#include <stdint.h>
-
-#ifdef RESTRICT_PROCESS_capsicum
-#include <sys/procdesc.h>
-#endif
-
-#include "epcap.h"
-
-#define PIPE_READ 0
-#define PIPE_WRITE 1
-
-#ifdef HAVE_SETPROCTITLE
-#define EPCAP_TITLE_CAPTURE "capture"
-#define EPCAP_TITLE_SUPERVISOR "supervisor"
-#else
-#define EPCAP_TITLE_CAPTURE "epcap capture"
-#define EPCAP_TITLE_SUPERVISOR "epcap supervisor"
-#endif
-
-enum { EPCAP_TIME_UNIT_TIMESTAMP = 0, EPCAP_TIME_UNIT_MICROSECOND = 1 };
-
-static int epcap_open(EPCAP_STATE *);
-static int epcap_init(EPCAP_STATE *);
-static void epcap_loop(EPCAP_STATE *);
-static void epcap_ctrl(const char *);
-void epcap_response(u_char *, const struct pcap_pkthdr *, const u_char *);
-static void epcap_send_free(ei_x_buff *);
-static int epcap_send(EPCAP_STATE *);
-static ssize_t read_exact(int, void *, ssize_t);
-static void usage(EPCAP_STATE *);
-
-void signal_handler(int sig);
-int signal_init(void);
-
-extern char **environ;
-
-#ifdef RESTRICT_PROCESS_capsicum
-int pdfd;
-#endif
-pid_t pid;
-
-int main(int argc, char *argv) {
-  EPCAP_STATE *ep = NULL;
-  int ch = 0;
-  int fd = 0;
-  const char *errstr = NULL;
-
-#ifndef HAVE_SETPROCTITLE
-  spt_init(argc, argv);
-#endif
-
-  ep = calloc(1, sizeof(EPCAP_STATE));
-
-  if (ep == NULL)
-    exit(ENOMEM);
-
-  ep->snaplen = SNAPLEN;
-  ep->timeout = TIMEOUT;
-  ep->opt |= EPCAP_OPT_IMMEDIATE;
-
-  while ((ch = getopt(argc, argv, "b:d:e:f:g:hi:MPs:T:t:u:Q:vX")) != -1) {
-    switch (ch) {
-    case 'b':
-      ep->bufsz = strtonum(optarg, INT32_MIN, INT32_MAX, &errstr);
-      if (errstr) {
-        VERBOSE(0, "%s, invalid buffer size (-b) value: %s\n", __progname, errstr);
-        exit(errno);
-      }
-      break;
-    case 'd': /* chroot directory */
-      ep->chroot = strdup(optarg);
-
-      if (ep->chroot == NULL)
-        exit(ENOMEM);
-
-      break;
-    case 'e': {
-      char *name = NULL;
-      char *value = NULL;
-
-      name = strdup(optarg);
-
-      if (name == NULL)
-        exit(ENOMEM);
-
-      value = strchr(name, '=');
-
-      if (value == NULL)
-        exit(EINVAL);
-
-      *value = '\0';
-      value++;
-
-      if (setenv(name, value, 0) < 0)
-        exit(errno);
-
-      free(name);
-    } break;
-    case 'f':
-      ep->file = strdup(optarg);
-
-      if (ep->file == NULL)
-        exit(ENOMEM);
-
-      ep->opt |= EPCAP_OPT_RUNASUSER;
-      break;
-    case 'g':
-      ep->group = strdup(optarg);
-
-      if (ep->group == NULL)
-        exit(ENOMEM);
-
-      break;
-    case 'i':
-      ep->dev = strdup(optarg);
-
-      if (ep->dev == NULL)
-        exit(ENOMEM);
-
-      break;
-    case 'M':
-      ep->opt |= EPCAP_OPT_RFMON;
-      break;
-    case 'P':
-      ep->opt |= EPCAP_OPT_PROMISC;
-      break;
-    case 's':
-      ep->snaplen = strtonum(optarg, INT32_MIN, INT32_MAX, &errstr);
-      if (errstr) {
-        VERBOSE(0, "%s, invalid snap length (-s) value: %s\n", __progname, errstr);
-        exit(errno);
-      }
-      break;
-    case 'T':
-      ep->time_unit = strtonum(optarg, 0, 1, &errstr);
-      if (errstr) {
-        VERBOSE(0, "%s, invalid time unit (-T) value: %s\n", __progname, errstr);
-        exit(errno);
-      }
-      break;
-    case 't':
-      ep->timeout = strtonum(optarg, INT32_MIN, INT32_MAX, &errstr);
-      if (errstr) {
-        VERBOSE(0, "%s, invalid timeout (-t) value: %s\n", __progname, errstr);
-        exit(errno);
-      }
-      if (ep->timeout < 0)
-        ep->timeout = INT32_MAX;
-      if (ep->timeout == 0) {
-        ep->opt |= EPCAP_OPT_IMMEDIATE;
-        ep->timeout = TIMEOUT;
-      }
-      else
-        ep->opt &= ~EPCAP_OPT_IMMEDIATE;
-      break;
-    case 'u':
-      ep->user = strdup(optarg);
-
-      if (ep->user == NULL)
-        exit(ENOMEM);
-
-      break;
-    case 'v':
-      ep->verbose++;
-      break;
-    case 'X':
-      ep->opt |= EPCAP_OPT_INJECT;
-      break;
-    case 'Q':
-      if (strcmp(optarg, "in") == 0) {
-        ep->direction = PCAP_D_IN;
-      } else if (strcmp(optarg, "out") == 0) {
-        ep->direction = PCAP_D_OUT;
-      } else {
-        ep->direction = PCAP_D_INOUT;
-      }
-      break;
-    case 'h':
-    default:
-      usage(ep);
-    }
-  }
-
-  argc -= optind;
-  argv += optind;
-
-  ep->filt = strdup((argc == 1) ? argv0 : EPCAP_FILTER);
-
-  if (ep->filt == NULL)
-    exit(ENOMEM);
-
-  if (ep->verbose > 0) {
-    for (; *environ; environ++)
-      VERBOSE(2, "env:%s\n", *environ);
-  }
-
-  fd = open("/dev/null", O_RDWR);
-
-  if (fd < 0)
-    exit(errno);
-
-  if (epcap_priv_runasuser(ep) < 0)
-    exit(errno);
-
-  if (epcap_open(ep) < 0)
-    exit(errno);
-
-  if (epcap_priv_drop(ep) < 0)
-    exit(errno);
-
-  if (pipe(ep->fdctl) < 0)
-    exit(errno);
-
-#ifdef RESTRICT_PROCESS_capsicum
-  pid = pdfork(&pdfd, 0);
-#else
-  pid = fork();
-#endif
-  switch (pid) {
-  case -1:
-    exit(errno);
-  case 0:
-#ifdef __linux__
-    if (prctl(PR_SET_PDEATHSIG, 9) < 0)
-      exit(errno);
-#endif
-
-    if (dup2(fd, STDIN_FILENO) < 0)
-      exit(errno);
-
-    if (close(fd) < 0)
-      exit(errno);
-
-    if (close(ep->fdctlPIPE_READ) < 0)
-      exit(errno);
-
-    setproctitle(EPCAP_TITLE_CAPTURE);
-
-    if (epcap_init(ep) < 0)
-      exit(errno);
-
-    if (restrict_process_capture() < 0)
-      exit(errno);
-
-    epcap_ctrl("ready");
-    epcap_loop(ep);
-    break;
-  default:
-    if (signal_init() < 0)
-      goto CLEANUP;
-
-    if ((dup2(fd, STDOUT_FILENO) < 0) || (close(fd) < 0))
-      goto CLEANUP;
-
-    if (close(ep->fdctlPIPE_WRITE) < 0)
-      exit(errno);
-
-    if (!(ep->opt & EPCAP_OPT_INJECT))
-      pcap_close(ep->p);
-
-    setproctitle(EPCAP_TITLE_SUPERVISOR);
-
-    if (restrict_process_supervisor() < 0)
-      goto CLEANUP;
-
-    (void)epcap_send(ep);
-
-  CLEANUP:
-#ifdef RESTRICT_PROCESS_capsicum
-    (void)pdkill(pdfd, SIGTERM);
-#else
-    (void)kill(pid, SIGTERM);
-#endif
-    break;
-  }
-
-  exit(0);
-}
-
-static int epcap_send(EPCAP_STATE *ep) {
-  const int fd = STDIN_FILENO;
-  int maxfd = 0;
-  ssize_t n = 0;
-  unsigned char bufSNAPLEN = {0};
-  u_int16_t len = 0;
-
-  int rv = 0;
-
-  for (;;) {
-    fd_set rfds;
-
-    FD_ZERO(&rfds);
-    FD_SET(fd, &rfds);
-    FD_SET(ep->fdctlPIPE_READ, &rfds);
-    maxfd = ep->fdctlPIPE_READ + 1;
-
-    rv = select(maxfd, &rfds, NULL, NULL, NULL);
-
-    switch (rv) {
-    case 0:
-      continue;
-
-    case -1:
-      if (errno == EINTR)
-        continue;
-
-      return -1;
-
-    default:
-      break;
-    }
-
-    if (FD_ISSET(ep->fdctlPIPE_READ, &rfds))
-      return 0;
-
-    if (!FD_ISSET(fd, &rfds))
-      continue;
-
-    n = read_exact(fd, &len, sizeof(len));
-
-    if (n != sizeof(len)) {
-      VERBOSE(1, "epcap_send: header len != %lu: %ld",
-              (unsigned long)sizeof(len), (long)n);
-      return -1;
-    }
-
-    len = ntohs(len);
-
-    VERBOSE(2, "epcap_send: packet len = %u", len);
-
-    if (len >= sizeof(buf)) {
-      errno = EINVAL;
-      return -1;
-    }
-
-    n = read_exact(fd, buf, len);
-
-    if (n != len) {
-      VERBOSE(1, "epcap_send: len = %u, read = %ld", len, (long)n);
-      errno = EINVAL;
-      return -1;
-    }
-
-    if (ep->opt & EPCAP_OPT_INJECT) {
-      n = pcap_inject(ep->p, buf, len);
-
-      if (n < 0) {
-        VERBOSE(0, "epcap_send: %s", pcap_geterr(ep->p));
-        return -1;
-      } else if (n != len) {
-        VERBOSE(1, "epcap_send: len = %u, sent = %ld", len, (long)n);
-      }
-    } else {
-      VERBOSE(2, "epcap_send: ignoring: len = %u", len);
-    }
-  }
-
-  return 0;
-}
-
-static int epcap_open(EPCAP_STATE *ep) {
-  if (ep->file) {
-    ep->p = pcap_open_offline(ep->file, ep->errbuf);
-
-    if (ep->p == NULL) {
-      VERBOSE(0, "%s, failed call to pcap_open_offline %s\n", __progname,
-              ep->errbuf);
-      return -1;
-    }
-  } else {
-    if (ep->dev == NULL) {
-      pcap_if_t *alldevs;
-
-      if (pcap_findalldevs(&alldevs, ep->errbuf) < 0 || alldevs == NULL) {
-        VERBOSE(0, "%s, failed call to pcap_findalldevs %s\n", __progname,
-                ep->errbuf);
-        return -1;
-      }
-
-      ep->dev = strdup(alldevs->name);
-
-      if (ep->dev == NULL)
-        return -1;
-
-      pcap_freealldevs(alldevs);
-    }
-
-#ifdef HAVE_PCAP_CREATE
-    ep->p = pcap_create(ep->dev, ep->errbuf);
-
-    if (ep->p == NULL) {
-      VERBOSE(0, "%s, failed call to pcap_create %s\n", __progname, ep->errbuf);
-      return -1;
-    }
-
-    (void)pcap_set_snaplen(ep->p, ep->snaplen);
-    (void)pcap_set_promisc(ep->p, ep->opt & EPCAP_OPT_PROMISC);
-    (void)pcap_set_immediate_mode(ep->p, ep->opt & EPCAP_OPT_IMMEDIATE);
-    (void)pcap_set_timeout(ep->p, ep->timeout);
-
-    if (ep->bufsz > 0)
-      (void)pcap_set_buffer_size(ep->p, ep->bufsz);
-
-    switch (pcap_activate(ep->p)) {
-    case 0:
-      break;
-    case PCAP_WARNING:
-    case PCAP_ERROR:
-    case PCAP_WARNING_PROMISC_NOTSUP:
-    case PCAP_ERROR_NO_SUCH_DEVICE:
-    case PCAP_ERROR_PERM_DENIED:
-      (void)strncpy(ep->errbuf, pcap_geterr(ep->p), sizeof(ep->errbuf) - 1);
-      return -1;
-    default:
-      return -1;
-    }
-#else
-    ep->p = pcap_open_live(ep->dev, ep->snaplen, ep->opt & EPCAP_OPT_PROMISC,
-                           ep->timeout, ep->errbuf);
-
-    if (ep->p == NULL) {
-      VERBOSE(0, "%s, failed call to pcap_open_live %s\n", __progname,
-              ep->errbuf);
-      return -1;
-    }
-#endif
-
-    /* monitor mode */
-#ifdef PCAP_ERROR_RFMON_NOTSUP
-    if (pcap_can_set_rfmon(ep->p) == 1)
-      (void)pcap_set_rfmon(ep->p, ep->opt & EPCAP_OPT_RFMON);
-#endif
-  }
-
-  ep->datalink = pcap_datalink(ep->p);
-
-  if (ep->file == 0 && pcap_setdirection(ep->p, ep->direction) != 0) {
-    VERBOSE(1, "pcap_setdirection: %s (%d)", pcap_geterr(ep->p), ep->direction);
-    return -1;
-  }
-
-  return 0;
-}
-
-static int epcap_init(EPCAP_STATE *ep) {
-  struct bpf_program fcode = {0};
-  char errbufPCAP_ERRBUF_SIZE = {0};
-
-  u_int32_t ipaddr = 0;
-  u_int32_t ipmask = 0;
-
-  if (pcap_lookupnet(ep->dev, &ipaddr, &ipmask, errbuf) == -1) {
-    VERBOSE(1, "%s", errbuf);
-    ipmask = PCAP_NETMASK_UNKNOWN;
-  }
-
-  VERBOSE(2, "%s Using filter: %s\n", __progname, ep->filt);
-
-  if (pcap_compile(ep->p, &fcode, ep->filt, 1 /* optimize == true */, ipmask) !=
-      0) {
-    VERBOSE(1, "pcap_compile: %s", pcap_geterr(ep->p));
-    return -1;
-  }
-
-  if (pcap_setfilter(ep->p, &fcode) != 0) {
-    VERBOSE(1, "pcap_setfilter: %s", pcap_geterr(ep->p));
-    return -1;
-  }
-
-  pcap_freecode(&fcode);
-
-  return 0;
-}
-
-static void epcap_loop(EPCAP_STATE *ep) {
-  int rv = -1;
-
-  rv = pcap_loop(ep->p, -1, epcap_response, (u_char *)ep);
-
-  switch (rv) {
-  case -2:
-    break;
-  case -1: /* error reading packet */
-    VERBOSE(1, "%s", pcap_geterr(ep->p));
-    break;
-  default:
-    if (ep->file)
-      epcap_ctrl("eof");
-    break;
-  }
-}
-
-static void epcap_ctrl(const char *ctrl_evt) {
-  ei_x_buff msg;
-
-  EPCAP_ENCODE_ERR(ei_x_new_with_version(&msg));
-  EPCAP_ENCODE_ERR(ei_x_encode_tuple_header(&msg, 2));
-  EPCAP_ENCODE_ERR(ei_x_encode_atom(&msg, "epcap"));
-  EPCAP_ENCODE_ERR(ei_x_encode_atom(&msg, ctrl_evt));
-
-  epcap_send_free(&msg);
-}
-
-void epcap_response(u_char *user, const struct pcap_pkthdr *hdr,
-                    const u_char *pkt) {
-  EPCAP_STATE *ep = (EPCAP_STATE *)user;
-  ei_x_buff msg = {0};
-
-  EPCAP_ENCODE_ERR(ei_x_new_with_version(&msg));
-
-  /* {packet, DatalinkType, Time, ActualLength, Packet} */
-  EPCAP_ENCODE_ERR(ei_x_encode_tuple_header(&msg, 5));
-  EPCAP_ENCODE_ERR(ei_x_encode_atom(&msg, "packet"));
-
-  /* DataLinkType */
-  EPCAP_ENCODE_ERR(ei_x_encode_long(&msg, ep->datalink));
-
-  switch (ep->time_unit) {
-  case EPCAP_TIME_UNIT_MICROSECOND:
-    /* microseconds */
-    EPCAP_ENCODE_ERR(ei_x_encode_ulonglong(
-        &msg, (unsigned long long)hdr->ts.tv_sec * 1000000 +
-                  (unsigned long long)hdr->ts.tv_usec));
-    break;
-
-  case EPCAP_TIME_UNIT_TIMESTAMP:
-  default:
-    /* {MegaSec, Sec, MicroSec} */
-    EPCAP_ENCODE_ERR(ei_x_encode_tuple_header(&msg, 3));
-    EPCAP_ENCODE_ERR(ei_x_encode_long(&msg, hdr->ts.tv_sec / 1000000L));
-    EPCAP_ENCODE_ERR(ei_x_encode_long(&msg, hdr->ts.tv_sec % 1000000));
-    EPCAP_ENCODE_ERR(ei_x_encode_long(&msg, hdr->ts.tv_usec));
-    break;
-  }
-
-  /* ActualLength} */
-  EPCAP_ENCODE_ERR(ei_x_encode_long(&msg, hdr->len));
-
-  /* Packet */
-  EPCAP_ENCODE_ERR(ei_x_encode_binary(&msg, pkt, hdr->caplen));
-
-  /* } */
-
-  epcap_send_free(&msg);
-}
-
-static void epcap_send_free(ei_x_buff *msg) {
-  u_int16_t len = 0;
-  struct iovec iov2;
-
-  len = htons(msg->index);
-
-  iov0.iov_base = &len;
-  iov0.iov_len = sizeof(len);
-  iov1.iov_base = msg->buff;
-  iov1.iov_len = msg->index;
-
-  if (writev(STDOUT_FILENO, iov, sizeof(iov) / sizeof(iov0)) !=
-      sizeof(len) + msg->index)
-    exit(errno);
-
-  ei_x_free(msg);
-}
-
-static ssize_t read_exact(int fd, void *buf, ssize_t len) {
-  ssize_t i = 0;
-  ssize_t got = 0;
-
-  do {
-    if ((i = read(fd, buf + got, len - got)) <= 0)
-      return i;
-    got += i;
-  } while (got < len);
-
-  return len;
-}
-
-void signal_handler(int sig) {
-  if (pid > 0)
-#ifdef RESTRICT_PROCESS_capsicum
-    (void)pdkill(pdfd, sig);
-#else
-    (void)kill(pid, sig);
-#endif
-}
-
-int signal_init(void) {
-  struct sigaction act = {0};
-  int sig;
-
-  act.sa_handler = signal_handler;
-  (void)sigfillset(&act.sa_mask);
-
-  for (sig = 1; sig < NSIG; sig++) {
-    if (sig == SIGCHLD)
-      continue;
-
-    if (sigaction(sig, &act, NULL) < 0) {
-      if (errno == EINVAL)
-        continue;
-
-      return -1;
-    }
-  }
-
-  return 0;
-}
-
-static void usage(EPCAP_STATE *ep) {
-  (void)fprintf(stderr, "%s, %s (using %s process restriction)\n", __progname,
-                EPCAP_VERSION, RESTRICT_PROCESS);
-  (void)fprintf(
-      stderr,
-      "usage: %s <options>\n"
-      "              -d <directory>   chroot directory\n"
-      "              -i <interface>   interface to snoop\n"
-      "              -f <filename>    read from file instead of live capture\n"
-#ifdef PCAP_ERROR_RFMON_NOTSUP
-      "              -M               wireless monitor (rfmon) mode\n"
-#endif
-      "              -P               promiscuous mode\n"
-      "              -g <group>       unprivileged group\n"
-      "              -u <user>        unprivileged user\n"
-#ifdef HAVE_PCAP_CREATE
-      "              -b <size>        PCAP buf size\n"
-#endif
-      "              -s <length>      packet capture length\n"
-      "              -t <millisecond> capture timeout\n"
-      "              -e <key>=<val>   set an environment variable\n"
-      "              -v               verbose mode\n"
-      "              -X               enable sending packets\n"
-      "              -Q               capture direction\n",
-      __progname);
-
-  exit(EXIT_FAILURE);
-}

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap/c_src/epcap.h Deleted

@@ -1,129 +0,0 @@
-/* Copyright (c) 2009-2020 Michael Santos <michael.santos@gmail.com>. All
- * rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions
- * are met:
- *
- * 1. Redistributions of source code must retain the above copyright notice,
- * this list of conditions and the following disclaimer.
- *
- * 2. Redistributions in binary form must reproduce the above copyright
- * notice, this list of conditions and the following disclaimer in the
- * documentation and/or other materials provided with the distribution.
- *
- * 3. Neither the name of the copyright holder nor the names of its
- * contributors may be used to endorse or promote products derived from
- * this software without specific prior written permission.
- *
- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
- * HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
- * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
- * TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- */
-#define _GNU_SOURCE
-#include <fcntl.h>
-#include <netinet/in.h>
-#include <signal.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <sys/resource.h>
-#include <sys/uio.h>
-#include <unistd.h>
-
-#include <pcap.h>
-
-#ifdef __linux__
-#include <sys/prctl.h>
-#endif
-
-#if defined(__SVR4) && defined(__sun)
-#define u_int8_t uint8_t
-#define u_int16_t uint16_t
-#define u_int32_t uint32_t
-#define u_int64_t uint64_t
-#endif
-
-#if !defined(PCAP_NETMASK_UNKNOWN)
-#define PCAP_NETMASK_UNKNOWN 0xffffffff
-#endif
-
-#define EPCAP_VERSION "0.4.0"
-
-#define SNAPLEN 65535
-
-/* On Linux, 0 will block until the next packet is received.
- * On BSD, 0 will block until the snaplen buffer is full.
- */
-#define TIMEOUT 500 /* ms, 0 = block indefinitely */
-
-#define EPCAP_USER "nobody"
-#define EPCAP_CHROOT "/var/empty"
-#define EPCAP_FILTER "" /* match any packet */
-
-#define EPCAP_ENCODE_ERR(x)                                                    \
-  do {                                                                         \
-    if ((x) != 0)                                                              \
-      exit(ENOMEM);                                                            \
-  } while (0);
-
-#define VERBOSE(x, ...)                                                        \
-  do {                                                                         \
-    if (ep->verbose >= x) {                                                    \
-      (void)fprintf(stderr, __VA_ARGS__);                                      \
-    }                                                                          \
-  } while (0)
-
-extern char *__progname;
-
-enum {
-  EPCAP_OPT_PROMISC = 1 << 0,   /* enable promiscuous mode */
-  EPCAP_OPT_RUNASUSER = 1 << 1, /* setuid: drop privs to calling user */
-  EPCAP_OPT_RFMON = 1 << 2,     /* enable monitor mode */
-  EPCAP_OPT_INJECT = 1 << 3,    /* enable packet injection */
-  EPCAP_OPT_IMMEDIATE = 1 << 4, /* enable capture immediate mode */
-};
-
-typedef struct {
-  pcap_t *p;                     /* pcap handle */
-  int fdctl2;                  /* control descriptor for supervisor process */
-  int datalink;                  /* dlt */
-  int opt;                       /* options */
-  int verbose;                   /* debug messages */
-  int snaplen;                   /* packet capture length */
-  int timeout;                   /* capture timeout */
-  int time_unit;                 /* microseconds, timestamp */
-  int bufsz;                     /* pcap buf size */
-  int direction;                 /* capture direction */
-  char *filt;                    /* packet filter */
-  char *dev;                     /* device to snoop */
-  char *user;                    /* run as unprivileged user */
-  char *group;                   /* run as unprivilted group */
-  char *chroot;                  /* chroot directory */
-  char *file;                    /* filename in case we read from pcap file */
-  char errbufPCAP_ERRBUF_SIZE; /* pcap error */
-} EPCAP_STATE;
-
-int epcap_priv_drop(EPCAP_STATE *);
-int epcap_priv_runasuser(EPCAP_STATE *ep);
-
-int restrict_process_capture();
-int restrict_process_supervisor();
-
-#ifndef HAVE_STRTONUM
-long long strtonum(const char *numstr, long long minval, long long maxval,
-                   const char **errstrp);
-#endif
-
-#ifndef HAVE_SETPROCTITLE
-void spt_init(int argc, char *argv);
-void setproctitle(const char *fmt, ...);
-#endif

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap/c_src/epcap_priv.c Deleted

@@ -1,116 +0,0 @@
-/* Copyright (c) 2009-2021 Michael Santos <michael.santos@gmail.com>. All
- * rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions
- * are met:
- *
- * 1. Redistributions of source code must retain the above copyright notice,
- * this list of conditions and the following disclaimer.
- *
- * 2. Redistributions in binary form must reproduce the above copyright
- * notice, this list of conditions and the following disclaimer in the
- * documentation and/or other materials provided with the distribution.
- *
- * 3. Neither the name of the copyright holder nor the names of its
- * contributors may be used to endorse or promote products derived from
- * this software without specific prior written permission.
- *
- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
- * HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
- * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
- * TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- */
-#include "epcap.h"
-#include <grp.h>
-#include <pwd.h>
-
-int epcap_priv_drop(EPCAP_STATE *ep) {
-  struct passwd *pw = NULL;
-  struct group *gr = NULL;
-  gid_t gid;
-
-  if (geteuid() != 0)
-    return 1;
-
-  if (!ep->user)
-    ep->user = EPCAP_USER;
-
-  if (!ep->chroot)
-    ep->chroot = EPCAP_CHROOT;
-
-  if ((pw = getpwnam(ep->user)) == NULL)
-    return -1;
-
-  if (ep->group && (gr = getgrnam(ep->group)) == NULL)
-    return -1;
-
-  if (chroot(ep->chroot) < 0)
-    return -1;
-
-  if (chdir("/") < 0)
-    return -1;
-
-  if (setgroups(0, NULL) < 0)
-    return -1;
-
-  gid = ep->group ? gr->gr_gid : pw->pw_gid;
-
-#if defined(__sunos__) || defined(__APPLE__)
-  if (setgid(gid) < 0)
-    return -1;
-
-  if (setuid(pw->pw_uid) < 0)
-    return -1;
-#else
-  if (setresgid(gid, gid, gid) < 0)
-    return -1;
-
-  if (setresuid(pw->pw_uid, pw->pw_uid, pw->pw_uid) < 0)
-    return -1;
-#endif
-
-#ifdef __linux__
-  if (prctl(PR_SET_NO_NEW_PRIVS, 1, 0, 0, 0) < 0)
-    return -1;
-#endif
-
-  return 0;
-}
-
-int epcap_priv_runasuser(EPCAP_STATE *ep) {
-  uid_t uid;
-  gid_t gid;
-
-  uid = getuid();
-  gid = getgid();
-
-  if (!(ep->opt & EPCAP_OPT_RUNASUSER) || (geteuid() != 0))
-    return 0;
-
-  if (setgroups(0, NULL) < 0)
-    return -1;
-
-#if defined(__sunos__) || defined(__APPLE__)
-  if (setgid(getgid()) < 0)
-    return -1;
-
-  if (setuid(getuid()) < 0)
-    return -1;
-#else
-  if (setresgid(gid, gid, gid) < 0)
-    return -1;
-
-  if (setresuid(uid, uid, uid) < 0)
-    return -1;
-#endif
-
-  return 0;
-}

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap/c_src/restrict_process_capsicum.c Deleted

@@ -1,120 +0,0 @@
-/* Copyright (c) 2017-2020 Michael Santos <michael.santos@gmail.com>. All
- * rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions
- * are met:
- *
- * 1. Redistributions of source code must retain the above copyright notice,
- * this list of conditions and the following disclaimer.
- *
- * 2. Redistributions in binary form must reproduce the above copyright
- * notice, this list of conditions and the following disclaimer in the
- * documentation and/or other materials provided with the distribution.
- *
- * 3. Neither the name of the copyright holder nor the names of its
- * contributors may be used to endorse or promote products derived from
- * this software without specific prior written permission.
- *
- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
- * HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
- * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
- * TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- */
-#ifdef RESTRICT_PROCESS_capsicum
-
-#include <sys/capsicum.h>
-#include <sys/param.h>
-#include <sys/resource.h>
-#include <sys/time.h>
-#include <sys/types.h>
-#include <unistd.h>
-
-#include <errno.h>
-
-#include "epcap.h"
-#include <pcap/pcap.h>
-
-int restrict_process_capture() {
-  struct rlimit rl = {0};
-  cap_rights_t policy_read;
-  cap_rights_t policy_null;
-  cap_rights_t policy_write;
-
-  int fd = -1;
-
-  (void)cap_rights_init(&policy_read, CAP_READ, CAP_EVENT);
-  (void)cap_rights_init(&policy_null);
-  (void)cap_rights_init(&policy_write, CAP_WRITE);
-
-  if (cap_rights_limit(STDIN_FILENO, &policy_null) < 0)
-    return -1;
-
-  if (cap_rights_limit(STDOUT_FILENO, &policy_write) < 0)
-    return -1;
-
-  if (cap_rights_limit(STDERR_FILENO, &policy_write) < 0)
-    return -1;
-
-  if (setrlimit(RLIMIT_NPROC, &rl) != 0)
-    return -1;
-
-  if (getrlimit(RLIMIT_NOFILE, &rl) < 0)
-    return -1;
-
-  for (fd = STDERR_FILENO + 1; fd < rl.rlim_cur; fd++) {
-    if (fcntl(fd, F_GETFD, 0) < 0)
-      continue;
-
-    if (cap_rights_limit(fd, &policy_read) < 0)
-      return -1;
-  }
-
-  return cap_enter();
-}
-
-int restrict_process_supervisor() {
-  struct rlimit rl = {0};
-  cap_rights_t policy_read;
-  cap_rights_t policy_write;
-  cap_rights_t policy_null;
-
-  int fd = -1;
-
-  (void)cap_rights_init(&policy_read, CAP_READ, CAP_EVENT);
-  (void)cap_rights_init(&policy_write, CAP_WRITE, CAP_EVENT);
-  (void)cap_rights_init(&policy_null);
-
-  if (cap_rights_limit(STDIN_FILENO, &policy_read) < 0)
-    return -1;
-
-  if (cap_rights_limit(STDOUT_FILENO, &policy_null) < 0)
-    return -1;
-
-  if (cap_rights_limit(STDERR_FILENO, &policy_write) < 0)
-    return -1;
-
-  if (setrlimit(RLIMIT_NPROC, &rl) != 0)
-    return -1;
-
-  if (getrlimit(RLIMIT_NOFILE, &rl) < 0)
-    return -1;
-
-  for (fd = STDERR_FILENO + 1; fd < rl.rlim_cur; fd++) {
-    if (fcntl(fd, F_GETFD, 0) < 0)
-      continue;
-
-    if (cap_rights_limit(fd, &policy_write) < 0)
-      return -1;
-  }
-
-  return cap_enter();
-}
-#endif

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap/c_src/restrict_process_null.c Deleted

@@ -1,36 +0,0 @@
-/* Copyright (c) 2018-2020 Michael Santos <michael.santos@gmail.com>. All
- * rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions
- * are met:
- *
- * 1. Redistributions of source code must retain the above copyright notice,
- * this list of conditions and the following disclaimer.
- *
- * 2. Redistributions in binary form must reproduce the above copyright
- * notice, this list of conditions and the following disclaimer in the
- * documentation and/or other materials provided with the distribution.
- *
- * 3. Neither the name of the copyright holder nor the names of its
- * contributors may be used to endorse or promote products derived from
- * this software without specific prior written permission.
- *
- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
- * HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
- * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
- * TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- */
-#ifdef RESTRICT_PROCESS_null
-
-int restrict_process_capture() { return 0; }
-
-int restrict_process_supervisor() { return 0; }
-#endif

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap/c_src/restrict_process_pledge.c Deleted

@@ -1,39 +0,0 @@
-/* Copyright (c) 2018-2020 Michael Santos <michael.santos@gmail.com>. All
- * rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions
- * are met:
- *
- * 1. Redistributions of source code must retain the above copyright notice,
- * this list of conditions and the following disclaimer.
- *
- * 2. Redistributions in binary form must reproduce the above copyright
- * notice, this list of conditions and the following disclaimer in the
- * documentation and/or other materials provided with the distribution.
- *
- * 3. Neither the name of the copyright holder nor the names of its
- * contributors may be used to endorse or promote products derived from
- * this software without specific prior written permission.
- *
- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
- * HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
- * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
- * TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- */
-#ifdef RESTRICT_PROCESS_pledge
-
-#include "epcap.h"
-#include <unistd.h>
-
-int restrict_process_capture() { return pledge("stdio", NULL); }
-
-int restrict_process_supervisor() { return pledge("stdio proc", NULL); }
-#endif

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap/c_src/restrict_process_rlimit.c Deleted

@@ -1,74 +0,0 @@
-/* Copyright (c) 2017-2020 Michael Santos <michael.santos@gmail.com>. All
- * rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions
- * are met:
- *
- * 1. Redistributions of source code must retain the above copyright notice,
- * this list of conditions and the following disclaimer.
- *
- * 2. Redistributions in binary form must reproduce the above copyright
- * notice, this list of conditions and the following disclaimer in the
- * documentation and/or other materials provided with the distribution.
- *
- * 3. Neither the name of the copyright holder nor the names of its
- * contributors may be used to endorse or promote products derived from
- * this software without specific prior written permission.
- *
- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
- * HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
- * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
- * TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- */
-#ifdef RESTRICT_PROCESS_rlimit
-
-#include "epcap.h"
-
-/* On some platforms (Linux), poll() (used by pcap)
- *  * will return EINVAL if RLIMIT_NOFILES < numfd */
-#ifndef EPCAP_RLIMIT_NOFILES
-#define EPCAP_RLIMIT_NOFILES 0
-#warning "Using default value of EPCAP_RLIMIT_NOFILES=0"
-#endif
-
-int restrict_process_capture() {
-  struct rlimit rl = {0};
-
-  if (setrlimit(RLIMIT_FSIZE, &rl) != 0)
-    return -1;
-
-  if (setrlimit(RLIMIT_NPROC, &rl) != 0)
-    return -1;
-
-  rl.rlim_cur = EPCAP_RLIMIT_NOFILES;
-  rl.rlim_max = EPCAP_RLIMIT_NOFILES;
-
-  if (setrlimit(RLIMIT_NOFILE, &rl) != 0)
-    return -1;
-
-  return 0;
-}
-
-int restrict_process_supervisor() {
-  struct rlimit rl = {0};
-
-  if (setrlimit(RLIMIT_FSIZE, &rl) != 0)
-    return -1;
-
-  if (setrlimit(RLIMIT_NPROC, &rl) != 0)
-    return -1;
-
-  if (setrlimit(RLIMIT_NOFILE, &rl) != 0)
-    return -1;
-
-  return 0;
-}
-#endif

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap/c_src/restrict_process_seccomp.c Deleted

@@ -1,224 +0,0 @@
-/* Copyright (c) 2018-2020 Michael Santos <michael.santos@gmail.com>. All
- * rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions
- * are met:
- *
- * 1. Redistributions of source code must retain the above copyright notice,
- * this list of conditions and the following disclaimer.
- *
- * 2. Redistributions in binary form must reproduce the above copyright
- * notice, this list of conditions and the following disclaimer in the
- * documentation and/or other materials provided with the distribution.
- *
- * 3. Neither the name of the copyright holder nor the names of its
- * contributors may be used to endorse or promote products derived from
- * this software without specific prior written permission.
- *
- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
- * HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
- * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
- * TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- */
-#ifdef RESTRICT_PROCESS_seccomp
-#include <errno.h>
-#include <linux/audit.h>
-#include <linux/filter.h>
-#include <linux/seccomp.h>
-#include <stddef.h>
-#include <sys/prctl.h>
-#include <sys/syscall.h>
-
-/* macros from openssh-7.2/sandbox-seccomp-filter.c */
-
-/* Linux seccomp_filter restrict_process */
-#define SECCOMP_FILTER_FAIL SECCOMP_RET_KILL
-
-/* Use a signal handler to emit violations when debugging */
-#ifdef RESTRICT_PROCESS_SECCOMP_FILTER_DEBUG
-#undef SECCOMP_FILTER_FAIL
-#define SECCOMP_FILTER_FAIL SECCOMP_RET_TRAP
-#endif /* RESTRICT_PROCESS_SECCOMP_FILTER_DEBUG */
-
-/* Simple helpers to avoid manual errors (but larger BPF programs). */
-#define SC_DENY(_nr, _errno)                                                   \
-  BPF_JUMP(BPF_JMP + BPF_JEQ + BPF_K, __NR_##_nr, 0, 1),                       \
-      BPF_STMT(BPF_RET + BPF_K, SECCOMP_RET_ERRNO | (_errno))
-#define SC_ALLOW(_nr)                                                          \
-  BPF_JUMP(BPF_JMP + BPF_JEQ + BPF_K, __NR_##_nr, 0, 1),                       \
-      BPF_STMT(BPF_RET + BPF_K, SECCOMP_RET_ALLOW)
-#define SC_ALLOW_ARG(_nr, _arg_nr, _arg_val)                                   \
-  BPF_JUMP(BPF_JMP + BPF_JEQ + BPF_K, __NR_##_nr, 0,                           \
-           4), /* load first syscall argument */                               \
-      BPF_STMT(BPF_LD + BPF_W + BPF_ABS,                                       \
-               offsetof(struct seccomp_data, args(_arg_nr))),                \
-      BPF_JUMP(BPF_JMP + BPF_JEQ + BPF_K, (_arg_val), 0, 1),                   \
-      BPF_STMT(BPF_RET + BPF_K,                                                \
-               SECCOMP_RET_ALLOW), /* reload syscall number; all rules expect  \
-                                      it in accumulator */                     \
-      BPF_STMT(BPF_LD + BPF_W + BPF_ABS, offsetof(struct seccomp_data, nr))
-
-/*
- * http://outflux.net/teach-seccomp/
- * https://github.com/gebi/teach-seccomp
- *
- */
-#define syscall_nr (offsetof(struct seccomp_data, nr))
-#define arch_nr (offsetof(struct seccomp_data, arch))
-
-#if defined(__i386__)
-#define SECCOMP_AUDIT_ARCH AUDIT_ARCH_I386
-#elif defined(__x86_64__)
-#define SECCOMP_AUDIT_ARCH AUDIT_ARCH_X86_64
-#elif defined(__arm__)
-#define SECCOMP_AUDIT_ARCH AUDIT_ARCH_ARM
-#elif defined(__aarch64__)
-#define SECCOMP_AUDIT_ARCH AUDIT_ARCH_AARCH64
-#else
-#warning "seccomp: unsupported platform"
-#define SECCOMP_AUDIT_ARCH 0
-#endif
-
-int restrict_process_capture() {
-  struct sock_filter filter = {
-      /* Ensure the syscall arch convention is as expected. */
-      BPF_STMT(BPF_LD + BPF_W + BPF_ABS, offsetof(struct seccomp_data, arch)),
-      BPF_JUMP(BPF_JMP + BPF_JEQ + BPF_K, SECCOMP_AUDIT_ARCH, 1, 0),
-      BPF_STMT(BPF_RET + BPF_K, SECCOMP_FILTER_FAIL),
-      /* Load the syscall number for checking. */
-      BPF_STMT(BPF_LD + BPF_W + BPF_ABS, offsetof(struct seccomp_data, nr)),
-
-  /* Syscalls to allow */
-
-#ifdef __NR_brk
-      SC_ALLOW(brk),
-#endif
-#ifdef __NR_recvfrom
-      SC_ALLOW(recvfrom),
-#endif
-#ifdef __NR_recv
-      SC_ALLOW(recv),
-#endif
-#ifdef __NR_recvmsg
-      SC_ALLOW(recvmsg),
-#endif
-
-#ifdef __NR_writev
-      SC_ALLOW(writev),
-#endif
-
-#ifdef __NR_fcntl
-      SC_ALLOW(fcntl),
-#endif
-#ifdef __NR_fcntl64
-      SC_ALLOW(fcntl64),
-#endif
-
-#ifdef __NR_setsockopt
-      SC_ALLOW(setsockopt),
-#endif
-
-#ifdef __NR_poll
-      SC_ALLOW(poll),
-#endif
-#ifdef __NR_ppoll
-      SC_ALLOW(ppoll),
-#endif
-
-#ifdef __NR_rt_sigreturn
-      SC_ALLOW(rt_sigreturn),
-#endif
-#ifdef __NR_restart_syscall
-      SC_ALLOW(restart_syscall),
-#endif
-
-      /* Default deny */
-      BPF_STMT(BPF_RET + BPF_K, SECCOMP_FILTER_FAIL)};
-
-  struct sock_fprog prog = {
-      .len = (unsigned short)(sizeof(filter) / sizeof(filter0)),
-      .filter = filter,
-  };
-
-  if (prctl(PR_SET_NO_NEW_PRIVS, 1, 0, 0, 0) < 0)
-    return -1;
-
-  return prctl(PR_SET_SECCOMP, SECCOMP_MODE_FILTER, &prog);
-}
-
-int restrict_process_supervisor() {
-  struct sock_filter filter = {
-      /* Ensure the syscall arch convention is as expected. */
-      BPF_STMT(BPF_LD + BPF_W + BPF_ABS, offsetof(struct seccomp_data, arch)),
-      BPF_JUMP(BPF_JMP + BPF_JEQ + BPF_K, SECCOMP_AUDIT_ARCH, 1, 0),
-      BPF_STMT(BPF_RET + BPF_K, SECCOMP_FILTER_FAIL),
-      /* Load the syscall number for checking. */
-      BPF_STMT(BPF_LD + BPF_W + BPF_ABS, offsetof(struct seccomp_data, nr)),
-
-  /* Syscalls to allow */
-#ifdef __NR_kill
-      SC_ALLOW(kill),
-#endif
-
-#ifdef __NR_exit_group
-      SC_ALLOW(exit_group),
-#endif
-
-#ifdef __NR_read
-      SC_ALLOW(read),
-#endif
-#ifdef __NR_readv
-      SC_ALLOW(readv),
-#endif
-#ifdef __NR_write
-      SC_ALLOW(write),
-#endif
-#ifdef __NR_writev
-      SC_ALLOW(writev),
-#endif
-#ifdef __NR_sendto
-      SC_ALLOW(sendto),
-#endif
-#ifdef __NR__newselect
-      SC_ALLOW(_newselect),
-#endif
-#ifdef __NR_select
-      SC_ALLOW(select),
-#endif
-#ifdef __NR_pselect6
-      SC_ALLOW(pselect6),
-#endif
-
-#ifdef __NR_poll
-      SC_ALLOW(poll),
-#endif
-
-#ifdef __NR_rt_sigreturn
-      SC_ALLOW(rt_sigreturn),
-#endif
-#ifdef __NR_restart_syscall
-      SC_ALLOW(restart_syscall),
-#endif
-
-      /* Default deny */
-      BPF_STMT(BPF_RET + BPF_K, SECCOMP_RET_TRAP)};
-
-  struct sock_fprog prog = {
-      .len = (unsigned short)(sizeof(filter) / sizeof(filter0)),
-      .filter = filter,
-  };
-
-  if (prctl(PR_SET_NO_NEW_PRIVS, 1, 0, 0, 0) < 0)
-    return -1;
-
-  return prctl(PR_SET_SECCOMP, SECCOMP_MODE_FILTER, &prog);
-}
-#endif

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap/c_src/setproctitle.c Deleted

@@ -1,256 +0,0 @@
-/* ==========================================================================
- * setproctitle.c - Linux/Darwin setproctitle.
- * --------------------------------------------------------------------------
- * Copyright (C) 2010  William Ahern
- * Copyright (C) 2013  Salvatore Sanfilippo
- * Copyright (C) 2013  Stam He
- *
- * Permission is hereby granted, free of charge, to any person obtaining a
- * copy of this software and associated documentation files (the
- * "Software"), to deal in the Software without restriction, including
- * without limitation the rights to use, copy, modify, merge, publish,
- * distribute, sublicense, and/or sell copies of the Software, and to permit
- * persons to whom the Software is furnished to do so, subject to the
- * following conditions:
- *
- * The above copyright notice and this permission notice shall be included
- * in all copies or substantial portions of the Software.
- *
- * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
- * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
- * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN
- * NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,
- * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR
- * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE
- * USE OR OTHER DEALINGS IN THE SOFTWARE.
- * ==========================================================================
- */
-#ifndef _GNU_SOURCE
-#define _GNU_SOURCE
-#endif
-
-#include <stdarg.h> /* va_list va_start va_end */
-#include <stddef.h> /* NULL size_t */
-#include <stdio.h>  /* vsnprintf(3) snprintf(3) */
-#include <stdlib.h> /* malloc(3) setenv(3) clearenv(3) setproctitle(3) getprogname(3) */
-
-#include <string.h> /* strlen(3) strchr(3) strdup(3) memset(3) memcpy(3) */
-
-#include <errno.h> /* errno program_invocation_name program_invocation_short_name */
-
-#if !defined(HAVE_SETPROCTITLE)
-#if (defined __NetBSD__ || defined __FreeBSD__ || defined __OpenBSD__)
-#define HAVE_SETPROCTITLE 1
-#else
-#define HAVE_SETPROCTITLE 0
-#endif
-#endif
-
-#if !HAVE_SETPROCTITLE
-#if (defined __linux || defined __APPLE__)
-
-extern char **environ;
-
-static struct {
-  /* original value */
-  const char *arg0;
-
-  /* title space available */
-  char *base, *end;
-
-  /* pointer to original nul character within base */
-  char *nul;
-
-  _Bool reset;
-  int error;
-} SPT;
-
-#ifndef SPT_MIN
-#define SPT_MIN(a, b) (((a) < (b)) ? (a) : (b))
-#endif
-
-static inline size_t spt_min(size_t a, size_t b) {
-  return SPT_MIN(a, b);
-} /* spt_min() */
-
-/*
- * For discussion on the portability of the various methods, see
- * http://lists.freebsd.org/pipermail/freebsd-stable/2008-June/043136.html
- */
-static int spt_clearenv(void) {
-#if __GLIBC__
-  clearenv();
-
-  return 0;
-#else
-  extern char **environ;
-  static char **tmp;
-
-  if (!(tmp = malloc(sizeof *tmp)))
-    return errno;
-
-  tmp0 = NULL;
-  environ = tmp;
-
-  return 0;
-#endif
-} /* spt_clearenv() */
-
-static int spt_copyenv(char *oldenv) {
-  extern char **environ;
-  char *eq;
-  int i, error;
-
-  if (environ != oldenv)
-    return 0;
-
-  if ((error = spt_clearenv()))
-    goto error;
-
-  for (i = 0; oldenvi; i++) {
-    if (!(eq = strchr(oldenvi, '=')))
-      continue;
-
-    *eq = '\0';
-    error = (0 != setenv(oldenvi, eq + 1, 1)) ? errno : 0;
-    *eq = '=';
-
-    if (error)
-      goto error;
-  }
-
-  return 0;
-error:
-  environ = oldenv;
-
-  return error;
-} /* spt_copyenv() */
-
-static int spt_copyargs(int argc, char *argv) {
-  char *tmp;
-  int i;
-
-  for (i = 1; i < argc || (i >= argc && argvi); i++) {
-    if (!argvi)
-      continue;
-
-    if (!(tmp = strdup(argvi)))
-      return errno;
-
-    argvi = tmp;
-  }
-
-  return 0;
-} /* spt_copyargs() */
-
-void spt_init(int argc, char *argv) {
-  char **envp = environ;
-  char *base, *end, *nul, *tmp;
-  int i, error;
-
-  if (!(base = argv0))
-    return;
-
-  nul = &basestrlen(base);
-  end = nul + 1;
-
-  for (i = 0; i < argc || (i >= argc && argvi); i++) {
-    if (!argvi || argvi < end)
-      continue;
-
-    end = argvi + strlen(argvi) + 1;
-  }
-
-  for (i = 0; envpi; i++) {
-    if (envpi < end)
-      continue;
-
-    end = envpi + strlen(envpi) + 1;
-  }
-
-  if (!(SPT.arg0 = strdup(argv0)))
-    goto syerr;
-
-#if __GLIBC__
-  if (!(tmp = strdup(program_invocation_name)))
-    goto syerr;
-
-  program_invocation_name = tmp;
-
-  if (!(tmp = strdup(program_invocation_short_name)))
-    goto syerr;
-
-  program_invocation_short_name = tmp;
-#elif __APPLE__
-  if (!(tmp = strdup(getprogname())))
-    goto syerr;
-
-  setprogname(tmp);
-#endif
-
-  if ((error = spt_copyenv(envp)))
-    goto error;
-
-  if ((error = spt_copyargs(argc, argv)))
-    goto error;
-
-  SPT.nul = nul;
-  SPT.base = base;
-  SPT.end = end;
-
-  return;
-syerr:
-  error = errno;
-error:
-  SPT.error = error;
-} /* spt_init() */
-
-#ifndef SPT_MAXTITLE
-#define SPT_MAXTITLE 255
-#endif
-
-void setproctitle(const char *fmt, ...) {
-  char bufSPT_MAXTITLE + 1; /* use buffer in case argv0 is passed */
-  va_list ap;
-  char *nul;
-  int len, error;
-
-  if (!SPT.base)
-    return;
-
-  if (fmt) {
-    va_start(ap, fmt);
-    len = vsnprintf(buf, sizeof buf, fmt, ap);
-    va_end(ap);
-  } else {
-    len = snprintf(buf, sizeof buf, "%s", SPT.arg0);
-  }
-
-  if (len <= 0) {
-    error = errno;
-    goto error;
-  }
-
-  if (!SPT.reset) {
-    memset(SPT.base, 0, SPT.end - SPT.base);
-    SPT.reset = 1;
-  } else {
-    memset(SPT.base, 0, spt_min(sizeof buf, SPT.end - SPT.base));
-  }
-
-  len = spt_min(len, spt_min(sizeof buf, SPT.end - SPT.base) - 1);
-  memcpy(SPT.base, buf, len);
-  nul = &SPT.baselen;
-
-  if (nul == SPT.nul && &nul1 < SPT.end) {
-    *SPT.nul = ' ';
-    *++nul = '\0';
-  }
-
-  return;
-error:
-  SPT.error = error;
-} /* setproctitle() */
-
-#endif /* __linux || __APPLE__ */
-#endif /* !HAVE_SETPROCTITLE */

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap/c_src/strtonum.c Deleted

@@ -1,68 +0,0 @@
-/*	$OpenBSD: strtonum.c,v 1.6 2004/08/03 19:38:01 millert Exp $	*/
-
-/*
- * Copyright (c) 2004 Ted Unangst and Todd Miller
- * All rights reserved.
- *
- * Permission to use, copy, modify, and distribute this software for any
- * purpose with or without fee is hereby granted, provided that the above
- * copyright notice and this permission notice appear in all copies.
- *
- * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
- * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
- * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
- * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
- * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
- * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
- * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
- */
-
-/* OPENBSD ORIGINAL: lib/libc/stdlib/strtonum.c */
-
-#ifndef HAVE_STRTONUM
-#include <errno.h>
-#include <limits.h>
-#include <stdlib.h>
-
-#define INVALID 1
-#define TOOSMALL 2
-#define TOOLARGE 3
-
-long long strtonum(const char *numstr, long long minval, long long maxval,
-                   const char **errstrp) {
-  long long ll = 0;
-  char *ep;
-  int error = 0;
-  struct errval {
-    const char *errstr;
-    int err;
-  } ev4 = {
-      {NULL, 0},
-      {"invalid", EINVAL},
-      {"too small", ERANGE},
-      {"too large", ERANGE},
-  };
-
-  ev0.err = errno;
-  errno = 0;
-  if (minval > maxval)
-    error = INVALID;
-  else {
-    ll = strtoll(numstr, &ep, 10);
-    if (numstr == ep || *ep != '\0')
-      error = INVALID;
-    else if ((ll == LLONG_MIN && errno == ERANGE) || ll < minval)
-      error = TOOSMALL;
-    else if ((ll == LLONG_MAX && errno == ERANGE) || ll > maxval)
-      error = TOOLARGE;
-  }
-  if (errstrp != NULL)
-    *errstrp = everror.errstr;
-  errno = everror.err;
-  if (error)
-    ll = 0;
-
-  return (ll);
-}
-
-#endif /* HAVE_STRTONUM */

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap/examples Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap/examples/icmp_resend.erl Deleted

@@ -1,67 +0,0 @@
-%%% Copyright (c) 2013-2020 Michael Santos <michael.santos@gmail.com>. All
-%%% rights reserved.
-%%%
-%%% Redistribution and use in source and binary forms, with or without
-%%% modification, are permitted provided that the following conditions
-%%% are met:
-%%%
-%%% 1. Redistributions of source code must retain the above copyright notice,
-%%% this list of conditions and the following disclaimer.
-%%%
-%%% 2. Redistributions in binary form must reproduce the above copyright
-%%% notice, this list of conditions and the following disclaimer in the
-%%% documentation and/or other materials provided with the distribution.
-%%%
-%%% 3. Neither the name of the copyright holder nor the names of its
-%%% contributors may be used to endorse or promote products derived from
-%%% this software without specific prior written permission.
-%%%
-%%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
-%%% A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
-%%% HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-%%% SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
-%%% TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
-%%% PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
-%%% LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
-%%% NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-%%% SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
--module(icmp_resend).
-
--export(start/1, start/2).
-
-%% An example of using epcap to send packets. It sniffs the
-%% network for ICMP packets and spoofs them.
-%%
-%% Listen on a network device:
-%%
-%% $ ./start.sh
-%% 1> icmp_resend:start("eth0").
-%%
-%% In another shell, run ping:
-%%
-%% $ ping google.com
-%% PING google.com (173.194.43.69) 56(84) bytes of data.
-%% 64 bytes from yyz08s09-in-f5.1e100.net (173.194.43.69): icmp_req=1 ttl=54 time=36.0 ms
-%% 64 bytes from yyz08s09-in-f5.1e100.net (173.194.43.69): icmp_req=1 ttl=54 time=37.2 ms (DUP!)
-%% 64 bytes from yyz08s09-in-f5.1e100.net (173.194.43.69): icmp_req=2 ttl=54 time=13.9 ms
-%% 64 bytes from yyz08s09-in-f5.1e100.net (173.194.43.69): icmp_req=2 ttl=54 time=15.7 ms (DUP!)
-%% ^C
-%% --- google.com ping statistics ---
-%% 2 packets transmitted, 2 received, +2 duplicates, 0% packet loss, time 1001ms
-%% rtt min/avg/max/mdev = 13.914/25.738/37.222/10.915 ms
-
-start(Dev) -> start(Dev, 0).
-
-start(Dev, Verbose) ->
-    {ok, Ref} = epcap:start_link({verbose, Verbose}, {inteface, Dev}, inject,
-                                  {filter, "icmp"}),
-    resend(Ref).
-
-resend(Ref) ->
-    receive
-      {packet, _DataLinkType, _Time, _Length, Packet} ->
-          ok = epcap:send(Ref, Packet), resend(Ref)
-    end.
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap/examples/sniff.erl Deleted

@@ -1,197 +0,0 @@
-%%% Copyright (c) 2010-2020 Michael Santos <michael.santos@gmail.com>. All
-%%% rights reserved.
-%%%
-%%% Redistribution and use in source and binary forms, with or without
-%%% modification, are permitted provided that the following conditions
-%%% are met:
-%%%
-%%% 1. Redistributions of source code must retain the above copyright notice,
-%%% this list of conditions and the following disclaimer.
-%%%
-%%% 2. Redistributions in binary form must reproduce the above copyright
-%%% notice, this list of conditions and the following disclaimer in the
-%%% documentation and/or other materials provided with the distribution.
-%%%
-%%% 3. Neither the name of the copyright holder nor the names of its
-%%% contributors may be used to endorse or promote products derived from
-%%% this software without specific prior written permission.
-%%%
-%%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
-%%% A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
-%%% HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-%%% SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
-%%% TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
-%%% PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
-%%% LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
-%%% NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-%%% SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
--module(sniff).
-
--behaviour(gen_statem).
-
--include_lib("pkt/include/pkt.hrl").
-
-% Interface
--export(start/0, start/1, stop/0).
-
--export(start_link/0).
-
-% States
--export(waiting/3, sniffing/3).
-
-% Behaviours
--export(init/1, callback_mode/0, handle_info/3, terminate/3, code_change/4).
-
--define(is_print(C), C >= $\s, C =< $~).
-
--record(state,
-        {pid, crash = true,
-         format = }). % full packet dump: binary, hex
-
-%%--------------------------------------------------------------------
-%%% Interface
-%%--------------------------------------------------------------------
-start_link() -> gen_statem:start({local, ?MODULE}, ?MODULE, , ).
-
-start() -> start({filter, "tcp and port 80"}, {chroot, "priv/tmp"}).
-
-start(Opt) when is_list(Opt) -> gen_statem:cast(?MODULE, {start, Opt}).
-
-stop() -> gen_statem:cast(?MODULE, stop).
-
-%%--------------------------------------------------------------------
-%%% Callbacks
-%%--------------------------------------------------------------------
-callback_mode() -> state_functions.
-
-init() -> process_flag(trap_exit, true), {ok, waiting, #state{}}.
-
-%%
-%% State: sniffing
-%%
-handle_info({packet, DLT, Time, Len, Data}, sniffing,
-            #state{format = Format} = State) ->
-    Packet = decode(DLT, Data, State),
-    Headers = header(Packet),
-    error_logger:info_report({pcap,
-                               {time, timestamp(Time)}, {caplen, byte_size(Data)}, {len, Len},
-                                {datalink, pkt:dlt(DLT)}}
-                               ++ Headers ++ packet(Format, Data)),
-    {next_state, sniffing, State};
-% epcap port stopped
-handle_info({'EXIT', _Pid, normal}, sniffing, State) ->
-    {next_state, sniffing, State};
-%%
-%% State: waiting
-%%
-% epcap port stopped
-handle_info({'EXIT', _Pid, normal}, waiting, State) ->
-    {next_state, waiting, State}.
-
-terminate(_Reason, _StateName, _State) -> ok.
-
-code_change(_OldVsn, StateName, State, _Extra) -> {ok, StateName, State}.
-
-%%--------------------------------------------------------------------
-%%% States
-%%--------------------------------------------------------------------
-waiting(cast, {start, Opt}, State) ->
-    Format = proplists:get_value(format, Opt, ),
-    Snaplen = proplists:get_value(snaplen, Opt),
-    {ok, Pid} = epcap:start_link(Opt),
-    {next_state, sniffing,
-     State#state{pid = Pid, format = Format, crash = Snaplen =:= undefined}};
-waiting(info, Event, State) -> handle_info(Event, waiting, State).
-
-sniffing(cast, {start, Opt}, #state{pid = Pid} = State) ->
-    epcap:stop(Pid),
-    {ok, Pid1} = epcap:start_link(Opt),
-    {next_state, sniffing, State#state{pid = Pid1}};
-sniffing(cast, stop, #state{pid = Pid} = State) ->
-    epcap:stop(Pid), {next_state, waiting, State};
-sniffing(info, Event, State) -> handle_info(Event, sniffing, State).
-
-%%--------------------------------------------------------------------
-%%% Internal functions
-%%--------------------------------------------------------------------
-decode(DLT, Data, #state{crash = true}) ->
-    pkt:decapsulate({pkt:dlt(DLT), Data});
-decode(DLT, Data, #state{crash = false}) ->
-    case pkt:decode(pkt:dlt(DLT), Data) of
-      {ok, {Headers, Payload}} -> Headers ++ Payload;
-      {error, SoFar, _Failed} -> SoFar
-    end.
-
-header(Payload) -> header(Payload, ).
-
-header(, Acc) -> lists:reverse(Acc);
-header(#ether{shost = Shost, dhost = Dhost} | Rest, Acc) ->
-    header(Rest,
-           {ether,
-             {source_macaddr, ether_addr(Shost)}, {destination_macaddr, ether_addr(Dhost)}}
-            | Acc);
-header(#ipv4{saddr = Saddr, daddr = Daddr, p = Proto} | Rest, Acc) ->
-    header(Rest,
-           {ipv4,
-             {protocol, pkt:proto(Proto)}, {source_address, inet_parse:ntoa(Saddr)},
-              {destination_address, inet_parse:ntoa(Daddr)}}
-            | Acc);
-header(#ipv6{saddr = Saddr, daddr = Daddr, next = Proto} | Rest, Acc) ->
-    header(Rest,
-           {ipv6,
-             {protocol, pkt:proto(Proto)}, {source_address, inet_parse:ntoa(Saddr)},
-              {destination_address, inet_parse:ntoa(Daddr)}}
-            | Acc);
-header(#tcp{sport = Sport, dport = Dport, ackno = Ackno, seqno = Seqno,
-             win = Win, cwr = CWR, ece = ECE, urg = URG, ack = ACK, psh = PSH, rst = RST,
-             syn = SYN, fin = FIN}
-        | Rest,
-       Acc) ->
-    Flags = F
-             || {F, V}
-                    <- {cwr, CWR}, {ece, ECE}, {urg, URG}, {ack, ACK}, {psh, PSH}, {rst, RST},
-                        {syn, SYN}, {fin, FIN},
-                V =:= 1,
-    header(Rest,
-           {tcp,
-             {source_port, Sport}, {destination_port, Dport}, {flags, Flags}, {seq, Seqno},
-              {ack, Ackno}, {win, Win}}
-            | Acc);
-header(#udp{sport = Sport, dport = Dport, ulen = Ulen} | Rest, Acc) ->
-    header(Rest,
-           {udp, {source_port, Sport}, {destination_port, Dport}, {ulen, Ulen}} | Acc);
-header(#icmp{type = Type, code = Code} | Rest, Acc) ->
-    header(Rest, {icmp, {type, Type}, {code, Code}} | Acc);
-header(#icmp6{type = Type, code = Code} | Rest, Acc) ->
-    header(Rest, {icmp6, {type, Type}, {code, Code}} | Acc);
-header(Hdr | Rest, Acc) when is_tuple(Hdr) ->
-    header(Rest, {header, Hdr} | Acc);
-header(Payload | Rest, Acc) when is_binary(Payload) ->
-    header(Rest,
-           {payload, to_ascii(Payload)}, {payload_size, byte_size(Payload)} | Acc).
-
-packet(Format, Bin) -> packet(Format, Bin, ).
-
-packet(, _Bin, Acc) -> lists:reverse(Acc);
-packet(binary | Rest, Bin, Acc) -> packet(Rest, Bin, {packet, Bin} | Acc);
-packet(hex | Rest, Bin, Acc) ->
-    packet(Rest, Bin, {packet, to_hex(Bin)} | Acc).
-
-to_ascii(Bin) when is_binary(Bin) -> to_ascii(C) || <<C:8>> <= Bin;
-to_ascii(C) when ?is_print(C) -> C;
-to_ascii(_) -> $..
-
-to_hex(Bin) when is_binary(Bin) -> integer_to_list(N, 16) || <<N:8>> <= Bin.
-
-ether_addr(MAC) -> string:join(to_hex(MAC), ":").
-
-timestamp(Now) when is_tuple(Now) ->
-    iso_8601_fmt(calendar:now_to_local_time(Now)).
-
-iso_8601_fmt(DateTime) ->
-    {{Year, Month, Day}, {Hour, Min, Sec}} = DateTime,
-    lists:flatten(io_lib:format("~4.10.0B-~2.10.0B-~2.10.0B ~2.10.0B:~2.10.0B:~2.10.0B",
-                                Year, Month, Day, Hour, Min, Sec)).
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap/rebar.config Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap/rebar.config.script Deleted

@@ -1,76 +0,0 @@
-TMPDIR = os:getenv("TMPDIR", "/tmp"),
-
-Compile = fun(Name0, Prog) ->
-                  Name = filename:join(TMPDIR, Name0),
-                  ok = file:write_file(Name, Prog, write, exclusive),
-                  Cmd = erlang:open_port({spawn, "${CC-cc} -o /dev/null ", Name, " -lpcap"},
-                                         stream, exit_status),
-                  Status = receive
-                               {Cmd, {exit_status, 0}} ->
-                                   true;
-                               {Cmd, {exit_status, _}} ->
-                                   false
-                           end,
-                  ok = file:delete(Name),
-                  Status
-          end,
-
-Test = fun(Name, Prog, Supported, Unsupported) ->
-               case Compile(Name, Prog) of
-                   true ->
-                       Supported;
-                   false ->
-                       Unsupported
-               end
-       end,
-
-Append = fun(Str, Flag) ->
-                 string:join(sets:to_list(sets:add_element(Flag,
-                                                           sets:from_list(string:tokens(Str, " ")))), " ")
-         end,
-
-Setenv = fun(Key, Val) ->
-                 Cur = os:getenv(Key, ""),
-                 os:putenv(Key, Append(Cur, Val))
-         end,
-
-%%
-%% Tests
-%%
-
-PFRING = fun(Config) -> case os:getenv("PFRING") of
-                            false ->
-                                ok;
-                            Value ->
-                                case filelib:is_dir(Value) of
-                                    true ->
-                                        LDFLAGS = os:getenv("EPCAP_LDFLAGS", ""),
-                                        true = Setenv("EPCAP_LDFLAGS", "-L" ++ Value);
-                                    _ ->
-                                        ok
-                                end
-                        end,
-                        Config
-         end,
-
-Pcap_create = fun(Config) ->
-                      Check = "
-#include <pcap.h>
-                          int main(int argc, char *argv)
-                          {
-                           char errbufPCAP_ERRBUF_SIZE;
-                               (void)pcap_create(NULL, errbuf);
-                               return 0;
-                          }",
-
-    Flag = Test("test_pcap_create.c", Check, "-DHAVE_PCAP_CREATE", ""),
-                      true = Setenv("EPCAP_DEFINE", Flag),
-                      Config
-              end,
-
-lists:foldl(fun(Fun, Cfg) ->
-                    Fun(Cfg)
-            end,
-            CONFIG,
-            PFRING, Pcap_create
-           ).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap/rebar.lock Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap/src Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap/src/epcap.app.src Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap/src/epcap.erl Deleted

@@ -1,335 +0,0 @@
-%%% @copyright 2009-2020 Michael Santos <michael.santos@gmail.com>
-%%% All rights reserved.
-%%%
-%%% Redistribution and use in source and binary forms, with or without
-%%% modification, are permitted provided that the following conditions
-%%% are met:
-%%%
-%%% 1. Redistributions of source code must retain the above copyright notice,
-%%% this list of conditions and the following disclaimer.
-%%%
-%%% 2. Redistributions in binary form must reproduce the above copyright
-%%% notice, this list of conditions and the following disclaimer in the
-%%% documentation and/or other materials provided with the distribution.
-%%%
-%%% 3. Neither the name of the copyright holder nor the names of its
-%%% contributors may be used to endorse or promote products derived from
-%%% this software without specific prior written permission.
-%%%
-%%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
-%%% A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
-%%% HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-%%% SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
-%%% TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
-%%% PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
-%%% LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
-%%% NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-%%% SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
--module(epcap).
-
--behaviour(gen_server).
-
-%% API
--export(start_link/0, start_link/1, start_link/2, stop/1).
-
--export(start/0, start/1, start/2).
-
--export(send/2).
-
--export(getopts/1).
-
-%% gen_server callbacks
--export(
-    init/1,
-    handle_call/3,
-    handle_cast/2,
-    handle_info/2,
-    terminate/2,
-    code_change/3
-).
-
--export_type(time_unit/0, options/0).
-
--record(state, {pid :: pid(), port :: port()}).
-
--type time_unit() :: timestamp | microsecond.
-
-%% @doc start the epcap port process
--spec start() -> ignore | {error, _} | {ok, pid()}.
-start() -> start(self(), ).
-
-%% @doc start the epcap port process
--spec start(options()) -> ignore | {error, _} | {ok, pid()}.
-start(Options) -> start(self(), Options).
-
-%% @doc start the epcap port process
--spec start(pid(), options()) -> ignore | {error, _} | {ok, pid()}.
-start(Pid, Options) when is_pid(Pid), is_list(Options) ->
-    gen_server:start(?MODULE, Pid, Options, ).
-
-%% @doc start and link with the epcap port process
--spec start_link() -> ignore | {error, _} | {ok, pid()}.
-start_link() -> start_link(self(), ).
-
-%% @doc start and link with the epcap port process
--spec start_link(options()) -> ignore | {error, _} | {ok, pid()}.
-start_link(Options) -> start_link(self(), Options).
-
-%% @doc start and link with the epcap port process
-%%
-%% Packets are delivered as messages:
-%%
-%% ```
-%% {packet, DataLinkType, Time, Length, Packet}
-%% '''
-%%
-%% The DataLinkType is an integer representing the link layer,
-%% e.g., ethernet, Linux cooked socket.
-%%
-%% The Time can be either in microseconds or a timestamp in the same
-%% format as erlang:now/0 depending on the value of the time_unit
-%% option (default: timestamp):
-%%
-%% ```
-%% {MegaSecs, Secs, MicroSecs}
-%% '''
-%%
-%% The Length corresponds to the actual packet length on the
-%% wire. The captured packet may have been truncated. To get the
-%% captured packet length, use byte_size(Packet).
-%%
-%% The Packet is a binary holding the captured data.
-%%
-%% If the version of the pcap library supports it, the pcap buffer
-%% size can be set to avoid dropped packets by using the 'buffer'
-%% option. The buffer size must be larger than the snapshot
-%% length (default: 65535) plus some overhead for the pcap data
-%% structures. Using some multiple of the snapshot length is
-%% suggested.
--spec start_link(pid(), options()) -> ignore | {error, _} | {ok, pid()}.
-start_link(Pid, Options) -> gen_server:start_link(?MODULE, Pid, Options, ).
-
-%% @doc Inject a packet on the network interface.
-%%
-%% To enable sending packets, start_link/1 must be called with the
-%% `{inject, true}' option (default: `{inject, false}'). When disabled,
-%% any data sent to the epcap port is silently discarded. Packet injection
-%% failures are treated as fatal errors, terminating the epcap port. Partial
-%% writes are not considered to be errors and are ignored (an error message
-%% will be printed to stderr if the verbose option is used).
--spec send(pid(), iodata()) -> ok.
-send(Pid, Packet) when is_pid(Pid) ->
-    case iolist_size(Packet) < 65535 of
-        true -> gen_server:call(Pid, {send, Packet}, infinity);
-        false -> erlang:error(badarg)
-    end.
-
--spec stop(pid()) -> ok.
-stop(Pid) ->
-    catch gen_server:call(Pid, stop),
-    ok.
-
-init(Pid, Options0) ->
-    process_flag(trap_exit, true),
-    Options = setopts(
-        
-            {chroot, filename:join(basedir(), "tmp")},
-            {timeout, timeout()},
-            {direction, inout}
-        ,
-        Options0
-    ),
-    ok = filelib:ensure_dir(
-        filename:join(
-            proplists:get_value(chroot, Options),
-            "."
-        )
-    ),
-    Cmd | Argv = getopts(Options),
-    Port = open_port(
-        {spawn_executable, Cmd},
-        {args, Argv}, {packet, 2}, binary, exit_status
-    ),
-    % Block until the port has fully initialized
-    receive
-        {Port, {data, Data}} ->
-            {epcap, ready} = binary_to_term(Data),
-            {ok, #state{pid = Pid, port = Port}};
-        {'EXIT', Port, normal} ->
-            {stop, {error, port_init_failed}};
-        {'EXIT', Port, Reason} ->
-            {stop, {error, Reason}}
-    end.
-
-handle_call({send, Packet}, _From, #state{port = Port} = State) ->
-    Reply =
-        try erlang:port_command(Port, Packet) of
-            true -> ok
-        catch
-            error:badarg -> {error, closed}
-        end,
-    {reply, Reply, State};
-handle_call(stop, _From, State) ->
-    {stop, normal, ok, State}.
-
-handle_cast(_Msg, State) -> {noreply, State}.
-
-terminate(_Reason, #state{port = Port}) ->
-    catch erlang:port_close(Port),
-    ok.
-
-code_change(_OldVsn, State, _Extra) -> {ok, State}.
-
-%%--------------------------------------------------------------------
-%%% Port communication
-%%--------------------------------------------------------------------
-handle_info({Port, {data, Data}}, #state{port = Port, pid = Pid} = State) ->
-    Pid ! binary_to_term(Data),
-    {noreply, State};
-handle_info({'EXIT', Port, Reason}, #state{port = Port} = State) ->
-    {stop, {shutdown, Reason}, State};
-handle_info({Port, {exit_status, Status}}, #state{port = Port} = State) ->
-    case Status of
-        0 -> {stop, normal, State};
-        _ when 128 < Status -> {stop, {port_terminated, Status - 128}, State};
-        _ -> {stop, {port_terminated, Status}, State}
-    end;
-handle_info(
-    Info,
-    %% WTF
-    State
-) ->
-    error_logger:error_report({wtf, Info}),
-    {noreply, State}.
-
-%%--------------------------------------------------------------------
-%%% Internal functions
-%%--------------------------------------------------------------------
--type arg_num() :: string() | non_neg_integer().
-
--type options() :: 
-    inject
-    | monitor
-    | promiscuous
-    | verbose
-    | {buffer, arg_num()}
-    | {chroot, string()}
-    | {cluster_id, arg_num()}
-    | {direction, in | out | inout}
-    | {env, string()}
-    | {exec, string()}
-    | {file, string()}
-    | {filter, string()}
-    | {group, string()}
-    | {interface, string()}
-    | {progname, string()}
-    | {snaplen, arg_num()}
-    | {time_unit, time_unit()}
-    | {timeout, arg_num() | infinity | immediate}
-    | {user, string()}
-    | {verbose, arg_num()}
-.
-
--spec setopts(options(), options()) -> options().
-setopts(, Options) ->
-    proplists:compact(Options);
-setopts({Key, Val} | Rest, Options) ->
-    case proplists:get_value(Key, Options) of
-        undefined -> setopts(Rest, {Key, Val} | Options);
-        _ -> setopts(Rest, Options)
-    end.
-
--spec getopts(options()) -> string().
-getopts(Options) when is_list(Options) ->
-    Exec = exec(Options),
-    Progname = proplists:get_value(progname, Options, progname()),
-    Cpu_affinity = cpu_affinity(Options),
-    Filter = proplists:get_value(filter, Options, ""),
-    Switches0 = lists:append(optarg(Opt) || Opt <- Options),
-    Switches = Switches0 ++ Filter,
-    Cmd | Argv = 
-        N
-     || N <- string:tokens(Exec, " ") ++ Cpu_affinity, Progname | Switches,
-        N /= ""
-    ,
-    find_executable(Cmd) | Argv.
-
--spec optarg(atom() | tuple()) -> string().
-optarg({buffer, Arg}) -> switch("b", maybe_string(Arg));
-optarg({chroot, Arg}) -> switch("d", Arg);
-optarg({cluster_id, Arg}) -> switch("e", env("PCAP_PF_RING_CLUSTER_ID", Arg));
-optarg({env, Arg}) -> switch("e", Arg);
-optarg({file, Arg}) -> switch("f", Arg);
-optarg({group, Arg}) -> switch("g", Arg);
-optarg({interface, Arg}) -> switch("i", Arg);
-optarg(monitor) -> switch("M");
-optarg(promiscuous) -> switch("P");
-optarg({snaplen, Arg}) -> switch("s", maybe_string(Arg));
-optarg({time_unit, Arg}) -> switch("T", time_unit(Arg));
-optarg({timeout, immediate}) -> switch("t", "0");
-optarg({timeout, infinity}) -> switch("t", "-1");
-optarg({timeout, Arg}) -> switch("t", maybe_string(Arg));
-optarg({user, Arg}) -> switch("u", Arg);
-optarg(verbose) -> switch("v");
-optarg({verbose, 0}) -> "";
-optarg({verbose, Arg}) -> switch(string:copies("v", Arg));
-optarg(inject) -> switch("X");
-optarg({direction, Arg}) -> switch("Q", maybe_string(Arg));
-optarg(_) -> "".
-
-switch(Switch) -> lists:concat("-", Switch).
-
-switch(Switch, Arg) -> lists:concat("-", Switch), Arg.
-
-env(Key, Val) -> lists:concat(Key, "=", maybe_string(Val)).
-
--spec basedir() -> string().
-basedir() ->
-    case code:priv_dir(?MODULE) of
-        {error, bad_name} ->
-            filename:join(filename:dirname(code:which(?MODULE)), "..", "priv", ?MODULE);
-        Dir ->
-            Dir
-    end.
-
--spec progname() -> string().
-progname() -> filename:join(basedir(), ?MODULE).
-
--spec exec(proplists:proplist()) -> string().
-exec(Options) ->
-    Exec = proplists:get_value(exec, Options, "sudo"),
-    case proplists:is_defined(file, Options) of
-        true -> "";
-        false -> Exec
-    end.
-
--spec cpu_affinity(proplists:proplist()) -> string().
-cpu_affinity(Options) ->
-    case proplists:get_value(cpu_affinity, Options) of
-        undefined -> "";
-        CPUs -> "taskset -c " ++ CPUs
-    end.
-
--spec timeout() -> 0 | 500.
-timeout() ->
-    case os:type() of
-        {unix, linux} -> 0;
-        _ -> 500
-    end.
-
-%-spec time_unit(time_unit()) -> "0" | "1".
-time_unit(timestamp) -> "0";
-time_unit(microsecond) -> "1".
-
-find_executable(Exe) ->
-    case os:find_executable(Exe) of
-        false -> erlang:error(badarg, Exe);
-        N -> N
-    end.
-
-maybe_string(T) when is_list(T) -> T;
-maybe_string(T) when is_integer(T) -> integer_to_list(T);
-maybe_string(T) when is_atom(T) -> atom_to_list(T);
-maybe_string(T) when is_binary(T) -> binary_to_list(T).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap/test Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/epcap/test/epcap_SUITE.erl Deleted

@@ -1,471 +0,0 @@
-%% Copyright (c) 2013-2020, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(epcap_SUITE).
-
--include_lib("common_test/include/ct.hrl").
-
--include_lib("pkt/include/pkt.hrl").
-
--export(suite/0, all/0, init_per_testcase/2, end_per_testcase/2).
-
--export(
-    getopts/1,
-    filter/1,
-    filter_with_microsecond/1,
-    filter_with_outbound/1,
-    filter_with_inbound/1,
-    send/1,
-    timeout_immediate/1,
-    timeout_0/1,
-    timeout_3000/1,
-    timeout_infinity/1
-).
-
-all() ->
-    
-        getopts,
-        filter,
-        filter_with_microsecond,
-        filter_with_outbound,
-        filter_with_inbound,
-        send,
-        timeout_immediate,
-        timeout_0,
-        timeout_3000,
-        timeout_infinity
-    .
-
-suite() -> {timetrap, {seconds, 60}}.
-
-init_per_testcase(filter_with_microsecond, Config) ->
-    Dev =
-        case os:getenv("EPCAP_TEST_INTERFACE") of
-            false -> ;
-            N -> {interface, N}
-        end,
-    Verbose = list_to_integer(os:getenv("EPCAP_TEST_VERBOSE", "0")),
-    % Solaris pcap using DLPI requires the interface to be in promiscuous
-    % mode for outgoing packets to be captured
-    {ok, Drv} = epcap:start(
-        Dev ++
-            
-                {time_unit, microsecond},
-                {exec, os:getenv("EPCAP_TEST_EXEC", "sudo -n")},
-                inject,
-                {verbose, Verbose},
-                {filter, "tcp and ( port 29 or port 39 )"},
-                promiscuous
-            
-    ),
-    {drv, Drv} | Config;
-init_per_testcase(filter_with_outbound, Config) ->
-    Dev =
-        case os:getenv("EPCAP_TEST_INTERFACE") of
-            false -> ;
-            N -> {interface, N}
-        end,
-    Verbose = list_to_integer(os:getenv("EPCAP_TEST_VERBOSE", "0")),
-    % Solaris pcap using DLPI requires the interface to be in promiscuous
-    % mode for outgoing packets to be captured
-    {ok, Drv} = epcap:start(
-        Dev ++
-            
-                {time_unit, microsecond},
-                {exec, os:getenv("EPCAP_TEST_EXEC", "sudo -n")},
-                inject,
-                {verbose, Verbose},
-                {filter, "tcp and ( port 29 or port 39 )"},
-                {direction, out},
-                promiscuous
-            
-    ),
-    {drv, Drv} | Config;
-init_per_testcase(filter_with_inbound, Config) ->
-    Dev =
-        case os:getenv("EPCAP_TEST_INTERFACE") of
-            false -> ;
-            N -> {interface, N}
-        end,
-    Verbose = list_to_integer(os:getenv("EPCAP_TEST_VERBOSE", "0")),
-    % Solaris pcap using DLPI requires the interface to be in promiscuous
-    % mode for outgoing packets to be captured
-    {ok, Drv} = epcap:start(
-        Dev ++
-            
-                {time_unit, microsecond},
-                {exec, os:getenv("EPCAP_TEST_EXEC", "sudo -n")},
-                inject,
-                {verbose, Verbose},
-                {filter, "tcp and ( port 29 or port 39 )"},
-                {direction, in},
-                promiscuous
-            
-    ),
-    {drv, Drv} | Config;
-init_per_testcase(Test, Config) when Test > timeout_, Test < timeout_zzz ->
-    "timeout_" ++ TimeoutStr = atom_to_list(Test),
-    Timeout =
-        try
-            list_to_integer(TimeoutStr)
-        catch
-            _:_ -> list_to_atom(TimeoutStr)
-        end,
-    Dev =
-        case os:getenv("EPCAP_TEST_INTERFACE") of
-            false -> ;
-            N -> {interface, N}
-        end,
-    Verbose = list_to_integer(os:getenv("EPCAP_TEST_VERBOSE", "0")),
-    % Solaris pcap using DLPI requires the interface to be in promiscuous
-    % mode for outgoing packets to be captured
-    {ok, Drv} = epcap:start(
-        Dev ++
-            
-                {exec, os:getenv("EPCAP_TEST_EXEC", "sudo -n")},
-                inject,
-                {verbose, Verbose},
-                {filter, "tcp and ( port 29 or port 39 )"},
-                {timeout, Timeout},
-                promiscuous
-            
-    ),
-    {drv, Drv} | Config;
-init_per_testcase(send, Config) ->
-    Dev =
-        case os:getenv("EPCAP_TEST_INTERFACE") of
-            false -> ;
-            N -> {interface, N}
-        end,
-    Verbose = list_to_integer(os:getenv("EPCAP_TEST_VERBOSE", "0")),
-    {ok, Drv} = epcap:start(
-        Dev ++
-            
-                {exec, os:getenv("EPCAP_TEST_EXEC", "sudo -n")},
-                inject,
-                {verbose, Verbose},
-                {filter, "tcp and ( port 29 or port 39 )"},
-                promiscuous
-            
-    ),
-    {ok, Drv1} =
-        case os:type() of
-            {unix, linux} ->
-                % XXX Linux: injected packet is not seen by filter
-                epcap:start(
-                    Dev ++
-                        
-                            {exec, os:getenv("EPCAP_TEST_EXEC", "sudo -n")},
-                            {filter, "tcp and port 39"},
-                            promiscuous
-                        
-                );
-            _ ->
-                {ok, undefined}
-        end,
-    {drv, Drv}, {drv1, Drv1} | Config;
-init_per_testcase(getopts, Config) ->
-    Config;
-init_per_testcase(_Test, Config) ->
-    Dev =
-        case os:getenv("EPCAP_TEST_INTERFACE") of
-            false -> ;
-            N -> {interface, N}
-        end,
-    Verbose = list_to_integer(os:getenv("EPCAP_TEST_VERBOSE", "0")),
-    % Solaris pcap using DLPI requires the interface to be in promiscuous
-    % mode for outgoing packets to be captured
-    {ok, Drv} = epcap:start(
-        Dev ++
-            
-                {exec, os:getenv("EPCAP_TEST_EXEC", "sudo -n")},
-                inject,
-                {verbose, Verbose},
-                {filter, "tcp and ( port 29 or port 39 )"},
-                promiscuous
-            
-    ),
-    {drv, Drv} | Config.
-
-end_per_testcase(send, Config) ->
-    Drv = (?config(drv, Config)),
-    Drv1 = (?config(drv1, Config)),
-    epcap:stop(Drv),
-    epcap:stop(Drv1);
-end_per_testcase(getopts, _Config) ->
-    ok;
-end_per_testcase(_Test, Config) ->
-    Drv = (?config(drv, Config)),
-    epcap:stop(Drv).
-
-getopts(_Config) ->
-    
-        Sudo,
-        "-n",
-        Progname,
-        "-b",
-        "1024",
-        "-d",
-        "/tmp/",
-        "-e",
-        "PCAP_PF_RING_CLUSTER_ID=0",
-        "-g",
-        "nobody",
-        "-i",
-        "eth0",
-        "-M",
-        "-P",
-        "-s",
-        "256",
-        "-T",
-        "1",
-        "-u",
-        "nobody",
-        "-v",
-        "-vvv",
-        "-X",
-        "-Q",
-        "inout",
-        "-t",
-        "1",
-        "-t",
-        "-1",
-        "-t",
-        "0",
-        "-e",
-        "FOO=bar",
-        "tcp and port 80"
-     =
-        epcap:getopts(
-            {buffer, 1024},
-            {chroot, "/tmp/"},
-            {cluster_id, 0},
-            {group, "nobody"},
-            {interface, "eth0"},
-            monitor,
-            promiscuous,
-            {snaplen, 256},
-            {time_unit, microsecond},
-            {time_out, 60},
-            {user, "nobody"},
-            verbose,
-            {verbose, 3},
-            {verbose, 0},
-            inject,
-            {direction, inout},
-            {filter, "tcp and port 80"},
-            {timeout, 1},
-            {timeout, infinity},
-            {timeout, immediate},
-            {exec, "sudo -n"},
-            {env, "FOO=bar"}
-        ),
-    "sudo" = filename:basename(Sudo),
-    "epcap" = filename:basename(Progname),
-    Progname, "-f", "/tmp/foo" = epcap:getopts(
-        {file, "/tmp/foo"},
-        {exec, "sudo -n"}
-    ),
-    ok.
-
-filter(_Config) ->
-    {error, _Reason} = gen_tcp:connect({8, 8, 8, 8}, 29, binary, 2000),
-    receive
-        {packet, DataLinkType, {A, B, C} = Time, Length, Packet} when A > 0, B > 0, C > 0 ->
-            ct:pal(
-                io_lib:format(
-                    "~p",
-                    
-                        
-                            {dlt, DataLinkType},
-                            {time, Time},
-                            {length, Length},
-                            {packet, Packet}
-                        
-                    
-                )
-            ),
-            #ether{}, #ipv4{}, #tcp{dport = 29}, _Payload = pkt:decapsulate(Packet)
-    end.
-
-filter_with_microsecond(_Config) ->
-    {error, _} = gen_tcp:connect({8, 8, 8, 8}, 29, binary, 2000),
-    receive
-        {packet, DataLinkType, Time, Length, Packet} when Time > 0 ->
-            ct:pal(
-                io_lib:format(
-                    "~p",
-                    
-                        
-                            {dlt, DataLinkType},
-                            {time, Time},
-                            {length, Length},
-                            {packet, Packet}
-                        
-                    
-                )
-            ),
-            #ether{}, #ipv4{}, #tcp{dport = 29}, _Payload = pkt:decapsulate(Packet)
-    end.
-
-filter_with_outbound(_Config) ->
-    {error, _} = gen_tcp:connect({8, 8, 8, 8}, 29, binary, 2000),
-    receive
-        {packet, DataLinkType, Time, Length, Packet} when Time > 0 ->
-            ct:pal(
-                io_lib:format(
-                    "~p",
-                    
-                        
-                            {dlt, DataLinkType},
-                            {time, Time},
-                            {length, Length},
-                            {packet, Packet}
-                        
-                    
-                )
-            ),
-            #ether{}, #ipv4{}, #tcp{dport = 29}, _Payload = pkt:decapsulate(Packet)
-    end.
-
-filter_with_inbound(_Config) ->
-    {error, _} = gen_tcp:connect({8, 8, 8, 8}, 29, binary, 2000),
-    receive
-        fail_when_some_received -> ok
-    after 1000 -> ok
-    end.
-
-timeout_immediate(Config) ->
-    timeout(Config, 0).
-
-timeout_0(Config) ->
-    timeout(Config, 0).
-
-timeout_3000(Config) ->
-    timeout(Config, 3000).
-
-timeout(_Config, ExpDelay) ->
-    Start = erlang:monotonic_time(millisecond),
-    {error, _Reason} = gen_tcp:connect({8, 8, 8, 8}, 29, binary, 500),
-    receive
-        {packet, DataLinkType, {A, B, C} = Time, Length, Packet} when
-            A > 0, B > 0, C > 0
-        ->
-            Stop = erlang:monotonic_time(millisecond),
-            ct:pal(
-                io_lib:format(
-                    "~p",
-                    
-                        
-                            {dlt, DataLinkType},
-                            {time, Time},
-                            {length, Length},
-                            {packet, Packet},
-                            {delay, Stop - Start}
-                        
-                    
-                )
-            ),
-            true = (Stop - Start) < ExpDelay + 1000,
-            #ether{}, #ipv4{}, #tcp{dport = 29}, _Payload = pkt:decapsulate(Packet)
-    end.
-
-timeout_infinity(_Config) ->
-    Start = erlang:monotonic_time(millisecond),
-    {error, _Reason} = gen_tcp:connect({8, 8, 8, 8}, 29, binary, 500),
-    receive
-        {packet, DataLinkType, {A, B, C} = Time, Length, Packet} when
-            A > 0, B > 0, C > 0
-        ->
-            Stop = erlang:monotonic_time(millisecond),
-            ct:pal(
-                io_lib:format(
-                    "~p",
-                    
-                        
-                            {dlt, DataLinkType},
-                            {time, Time},
-                            {length, Length},
-                            {packet, Packet},
-                            {delay, Stop - Start}
-                        
-                    
-                )
-            ),
-            ct:fail("Unexpected packet (infinite timeout)")
-    after 5000 -> ok
-    end.
-
-send(Config) ->
-    Drv = (?config(drv, Config)),
-    {error, _} = gen_tcp:connect({8, 8, 8, 8}, 29, binary, 2000),
-    Frame =
-        receive
-            {packet, _DataLinkType, _Time, _Length, Packet} ->
-                #ether{} = Ether, #ipv4{} = IP, #tcp{} = TCP, Payload =
-                    pkt:decapsulate(Packet),
-                TCP1 = TCP#tcp{dport = 39, sport = 39, sum = 0},
-                Sum0 = pkt:makesum(IP#ipv4{sum = 0}),
-                Sum1 = pkt:makesum(IP, TCP1, Payload),
-                list_to_binary(
-                    pkt:ether(Ether),
-                    pkt:ipv4(IP#ipv4{sum = Sum0}),
-                    pkt:tcp(TCP1#tcp{sum = Sum1}),
-                    Payload
-                )
-        end,
-    ct:pal(io_lib:format("~p", {frame, Frame})),
-    ok = epcap:send(Drv, Frame),
-    send_1().
-
-send_1() ->
-    receive
-        {packet, DataLinkType, Time, Length, Packet} ->
-            case pkt:decapsulate(Packet) of
-                #ether{}, #ipv4{}, #tcp{dport = 39}, _Payload ->
-                    ct:pal(
-                        io_lib:format(
-                            "~p",
-                            
-                                
-                                    {dlt, DataLinkType},
-                                    {time, Time},
-                                    {length, Length},
-                                    {packet, Packet}
-                                
-                            
-                        )
-                    ),
-                    ok;
-                % TCP SYN retries
-                #ether{}, #ipv4{}, #tcp{dport = 29}, _Payload ->
-                    send_1()
-            end
-    end.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/goldrush Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/goldrush/LICENSE Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/goldrush/README.org Deleted

@@ -1,336 +0,0 @@
-# Goldrush #
-
-Goldrush is a small Erlang app that provides fast event stream processing
-
-# Features #
-* Event processing compiled to a query module
- - per module private event processing statistics
- - query module logic can be combined for any/all filters
- - query module logic can be reduced to efficiently match event processing
-
-* Complex event processing logic
- - match input events with greater than (gt) logic
- - match input events with less than (lt) logic
- - match input events with equal to (eq) logic
- - match input events with wildcard (wc) logic
- - match input events with notfound (nf) logic
- - match no input events (null blackhole) logic
- - match all input events (null passthrough) logic
-
-* Handle output events
- - Once a query has been composed the output action can be overriden
-   with one or more erlang functions. The functions will be applied to each
-   output event from the query.
-
-* Handle low latency retrieval of compile-time stored values.
-- Values stored are also provided to functions called on event output.
-- Handle job execution and timing which can also get values stored
-- create input events that include runtime on successful function executions.
-
-* Handle fastest lookups of stored values.
-- provide state storage option to compile, caching the values in query module.
-
-* Usage 
-  To use goldrush in your application, you need to define it as a rebar dep or
-  include it in erlang's path.
-
-
-Before composing modules, you'll need to define a query. The query syntax 
-matches any number of `{erlang, terms}' and is composed as follows:
-
-* Simple Logic 
- - Simple logic is defined as any logic matching a single event filter
-
-Select all events where 'a' exists and is greater than 0.
-#+BEGIN_EXAMPLE
-    glc:gt(a, 0).
-#+END_EXAMPLE
-
-Select all events where 'a' exists and is greater than or equal to 0.
-#+BEGIN_EXAMPLE
-    glc:gte(a, 0).
-#+END_EXAMPLE
-
-Select all events where 'a' exists and is equal to 0.
-#+BEGIN_EXAMPLE
-    glc:eq(a, 0).
-#+END_EXAMPLE
-
-Select all events where 'a' exists and is not equal to 0.
-#+BEGIN_EXAMPLE
-    glc:neq(a, 0).
-#+END_EXAMPLE
-
-Select all events where 'a' exists and is less than 0.
-#+BEGIN_EXAMPLE
-    glc:lt(a, 0).
-#+END_EXAMPLE
-
-Select all events where 'a' exists and is less than or equal to 0.
-#+BEGIN_EXAMPLE
-    glc:lte(a, 0).
-#+END_EXAMPLE
-
-Select all events where 'a' exists.
-#+BEGIN_EXAMPLE
-    glc:wc(a).
-#+END_EXAMPLE
-
-Select all events where 'a' does not exist.
-#+BEGIN_EXAMPLE
-    glc:nf(a).
-#+END_EXAMPLE
-
-Select no input events. User as a black hole query.
-#+BEGIN_EXAMPLE
-    glc:null(false).
-#+END_EXAMPLE
-
-Select all input events. Used as a passthrough query.
-#+BEGIN_EXAMPLE
-    glc:null(true).
-#+END_EXAMPLE
-
-
-* Combined Logic
- - Combined logic is defined as logic matching multiple event filters
-
-Select all events where both 'a' AND 'b' exists and are greater than 0.
-#+BEGIN_EXAMPLE
-    glc:all(glc:gt(a, 0), glc:gt(b, 0)).
-#+END_EXAMPLE
-
-Select all events where 'a' OR 'b' exists and are greater than 0.
-#+BEGIN_EXAMPLE
-    glc:any(glc:gt(a, 0), glc:gt(b, 0)).
-#+END_EXAMPLE
-
-Select all events where 'a' AND 'b' exists where 'a' is greater than 1 and 'b' is less than 2.
-#+BEGIN_EXAMPLE
-    glc:all(glc:gt(a, 1), glc:lt(b, 2)).
-#+END_EXAMPLE
-
-Select all events where 'a' OR 'b' exists where 'a' is greater than 1 and 'b' is less than 2.
-#+BEGIN_EXAMPLE
-    glc:any(glc:gt(a, 1), glc:lt(b, 2)).
-#+END_EXAMPLE
-
-
-* Reduced Logic
- - Reduced logic is defined as logic which can be simplified to improve efficiency.
-
-Select all events where 'a' is equal to 1, 'b' is equal to 2 and 'c' is equal to 3 and collapse any duplicate logic.
-#+BEGIN_EXAMPLE
-        glc_lib:reduce(
-            glc:all(
-                glc:any(glc:eq(a, 1), glc:eq(b, 2)),
-                glc:any(glc:eq(a, 1), glc:eq(c, 3)))).
-#+END_EXAMPLE
-
-The previous example will produce and is equivalent to:
-#+BEGIN_EXAMPLE
-    glc:all(glc:eq(a, 1), glc:eq(b, 2), glc:eq(c, 3)).
-#+END_EXAMPLE
-
-
-
-* Composing Modules 
-  - All query modules must be compiled before use
-
-To compose a module you will take your Query defined above and compile it. 
-#+BEGIN_EXAMPLE
-    glc:compile(Module, Query).
-    glc:compile(Module, Query, State).
-    glc:compile(Module, Query, State, ResetStatistics).
-#+END_EXAMPLE
-
-
-- At this point you will be able to handle an event using a compiled query. 
-
-Begin by constructing an event list.
-#+BEGIN_EXAMPLE
-    Event = gre:make({'a', 2}, list).
-#+END_EXAMPLE
-
-Now pass it to your query module to be handled.
-#+BEGIN_EXAMPLE
-    glc:handle(Module, Event).
-#+END_EXAMPLE
-
-* Handling output events
-  - You can override the output action with an erlang function.
-
-Write all input events as info reports to the error logger.
-#+BEGIN_EXAMPLE
-    glc:with(glc:null(true), fun(E) ->
-         error_logger:info_report(gre:pairs(E)) end).
-#+END_EXAMPLE
-
-Write all input events where `error_level' exists and is less than 5 as info reports to the error logger.
-#+BEGIN_EXAMPLE
-    glc:with(glc:lt(error_level, 5), fun(E) ->
-         error_logger:info_report(gre:pairs(E)) end).
-#+END_EXAMPLE
-
-Write all input events where `error_level' exists and is 3 or 5 as info reports to the error logger.
-#+BEGIN_EXAMPLE
-   glc:any(
-     glc:with(glc:lt(error_level, 3), fun(E) ->
-         error_logger:info_report(gre:pairs(E)) end),
-     glc:with(glc:lt(error_level, 5), fun(E) ->
-         error_logger:info_report(gre:pairs(E)) end)).
-
-#+END_EXAMPLE
-
-
-# Composing Modules with stored state #
-
-To compose a module with state data you will add a third argument (orddict).
-#+BEGIN_EXAMPLE
-    glc:compile(Module, Query, {stored, value}).
-#+END_EXAMPLE
-
-# Accessing stored state data #
-
-Return the stored value in this query module.
-#+BEGIN_EXAMPLE
-{ok, value} = glc:get(stored).
-#+END_EXAMPLE
-
-Return all stored values in this query module.
-#+BEGIN_EXAMPLE
-... = Module:get().
-#+END_EXAMPLE
-
-
-* Composing Modules with stored data
-  - You can create query modules with local state to compare to event data in `with' and `run'
-
-To compose a module with state data you will add a third argument (orddict).
-#+BEGIN_EXAMPLE
-    glc:compile(Module, Query, {stored, value}).
-#+END_EXAMPLE
-
-* Accessing stored data in constant time 
- - You can use query modules in a way similar to mochiglobal 
-
-Return the stored value in this query module.
-#+BEGIN_EXAMPLE
-{ok, value} = glc:get(stored).
-#+END_EXAMPLE
-
-
-* Job processing with composed modules 
-  - You can use query modules to execute jobs, if the job errors or not, process an event.
-  - `with' is similar to `run', the main difference is additional statistics and execution order
-  - when a job completes in error, the event data will contain an additional {error, _} item
-
-To execute a job through the query module, inputting an event on success.
-#+BEGIN_EXAMPLE
-    Event = gre:make({'a', 2}, list).
-    {ExecutionTime, Result}= glc:run(Module, fun(Event, State) ->
-        %% do not end with {error, _} or throw an exception 
-    end, Event).
-#+END_EXAMPLE
-
-* Event Processing Statistics 
-
-Return the number of input events for this query module.
-#+BEGIN_EXAMPLE
-glc:input(Module).
-#+END_EXAMPLE
-
-Return the number of output events for this query module.
-#+BEGIN_EXAMPLE
-glc:output(Module).
-#+END_EXAMPLE
-
-Return the number of filtered events for this query module.
-#+BEGIN_EXAMPLE
-glc:filter(Module).
-#+END_EXAMPLE
-
-
-* Job Processing Statistics 
-
-Return the number of job runs for this query module.
-#+BEGIN_EXAMPLE
-glc:job_run(Module).
-#+END_EXAMPLE
-
-Return the number of job errors for this query module.
-#+BEGIN_EXAMPLE
-glc:job_error(Module).
-#+END_EXAMPLE
-
-Return the number of job inputs for this query module.
-#+BEGIN_EXAMPLE
-glc:job_input(Module).
-#+END_EXAMPLE
-
-Return the amount of time jobs took for this query module.
-#+BEGIN_EXAMPLE
-glc:job_time(Module).
-#+END_EXAMPLE
-
-
-* Some Tips & Tricks 
-  - This is really just a drop in the bucket.
-
-Return the average time jobs took for this query module.
-#+BEGIN_EXAMPLE
-glc:job_time(Module) / glc:job_input(Module) / 1000000.
-#+END_EXAMPLE
-
-
-Return the query combining the conditional logic of multiple modules 
-#+BEGIN_EXAMPLE
-glc_lib:reduce(glc:all(Module1:info('query'), Module2:info('query')).
-#+END_EXAMPLE
-
-Return all statistics from this query module.
-#+BEGIN_EXAMPLE
-glc:info(Module).
-#+END_EXAMPLE
-
-* Build
-
-#+BEGIN_EXAMPLE
- $ ./rebar compile
-#+END_EXAMPLE
-
-or
-
-#+BEGIN_EXAMPLE
-    $ make
-#+END_EXAMPLE
-
-* CHANGELOG 
-0.1.9
-- Add support for running jobs
-
-0.1.8
-- Add support for not equal
-
-0.1.7
-- Support multiple functions specified using `with/2` 
-- Add support for greater than or less than operators
-- Add state storage option for output events or lookup
-
-0.1.7
-- Add job execution and timings
-- Add state storage option 
-
-0.1.7
-- Add job execution and timings
-- Add state storage option 
-
-0.1.6 
-- Add notfound event matching
-
-0.1.5 
-- Rewrite to make highly crash resilient
-  - per module supervision
-  - statistics data recovery 
-- Add wildcard event matching
-- Add reset counters

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/goldrush/hex_metadata.config Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/goldrush/priv Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/goldrush/priv/edoc.css Deleted

@@ -1,130 +0,0 @@
-/* Baseline rhythm */
-body {
-   font-size: 16px;
-   font-family: Helvetica, sans-serif;
-   margin: 8px;
-}
-
-p {
-   font-size: 1em; /* 16px */
-   line-height: 1.5em; /* 24px */
-   margin: 0 0 1.5em 0;
-}
-
-h1 {
-   font-size: 1.5em; /* 24px */
-   line-height: 1em; /* 24px */
-   margin-top: 1em;
-   margin-bottom: 0em;
-}
-
-h2 {
-   font-size: 1.375em; /* 22px */
-   line-height: 1.0909em; /* 24px */
-   margin-top: 1.0909em;
-   margin-bottom: 0em;
-}
-
-h3 {
-   font-size: 1.25em; /* 20px */
-   line-height: 1.2em; /* 24px */
-   margin-top: 1.2em;
-   margin-bottom: 0em;
-}
-
-h4 {
-   font-size: 1.125em; /* 18px */
-   line-height: 1.3333em; /* 24px */
-   margin-top: 1.3333em;
-   margin-bottom: 0em;
-}
-
-.class-for-16px {
-   font-size: 1em; /* 16px */
-   line-height: 1.5em; /* 24px */
-   margin-top: 1.5em;
-   margin-bottom: 0em;
-}
-
-.class-for-14px {
-   font-size: 0.875em; /* 14px */
-   line-height: 1.7143em; /* 24px */
-   margin-top: 1.7143em;
-   margin-bottom: 0em;
-}
-
-ul {
-   margin: 0 0 1.5em 0;
-}
-
-/* Customizations */
-body {
-   color: #333;
-}
-
-tt, code, pre {
-   font-family: "Andale Mono", "Inconsolata", "Monaco", "DejaVu Sans Mono", monospaced;
-}
-
-tt, code { font-size: 0.875em }
-
-pre {
-   font-size: 0.875em; /* 14px */
-   line-height: 1.7143em; /* 24px */
-   margin: 0 1em 1.7143em;
-   padding: 0 1em;
-   background: #eee;
-}
-
-.navbar img, hr { display: none }
-
-table {
-   border-collapse: collapse;
-}
-
-h1 {
-   border-left: 0.5em solid #fa0;
-   padding-left: 0.5em;
-}
-
-h2.indextitle {
-   font-size: 1.25em; /* 20px */
-   line-height: 1.2em; /* 24px */
-   margin: -8px -8px 0.6em;
-   background-color: #fa0;
-   color: white;
-   padding: 0.3em;
-}
-
-ul.index {
-   list-style: none;
-   margin-left: 0em;
-   padding-left: 0;
-}
-
-ul.index li {
-   display: inline;
-   padding-right: 0.75em
-}
-
-div.spec p {
-   margin-bottom: 0;
-   padding-left: 1.25em;
-   background-color: #eee;
-}
-
-h3.function {
-   border-left: 0.5em solid #fa0;
-   padding-left: 0.5em;
-   background: #fc9;
-}
-a, a:visited, a:hover, a:active { color: #C60 }
-h2 a, h3 a { color: #333 }
-
-i {
-   font-size: 0.875em; /* 14px */
-   line-height: 1.7143em; /* 24px */
-   margin-top: 1.7143em;
-   margin-bottom: 0em;
-   font-style: normal;
-}

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/goldrush/rebar.config Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/goldrush/rebar.lock Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/goldrush/src Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/goldrush/src/glc.erl Deleted

@@ -1,1034 +0,0 @@
-%% Copyright (c) 2012, Magnus Klaar <klaar@ninenines.eu>
-%%
-%% Permission to use, copy, modify, and/or distribute this software for any
-%% purpose with or without fee is hereby granted, provided that the above
-%% copyright notice and this permission notice appear in all copies.
-%%
-%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
-%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
-%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
-%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
-%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
-%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
-
-
-%% @doc Event filter implementation.
-%%
-%% An event query is constructed using the built in operators exported from
-%% this module. The filtering operators are used to specify which events
-%% should be included in the output of the query. The default output action
-%% is to copy all events matching the input filters associated with a query
-%% to the output. This makes it possible to construct and compose multiple
-%% queries at runtime.
-%%
-%% === Examples of built in filters ===
-%% ```
-%% %% Select all events where 'a' exists and is greater than 0.
-%% glc:gt(a, 0).
-%% %% Select all events where 'a' exists and is equal to 0.
-%% glc:eq(a, 0).
-%% %% Select all events where 'a' exists and is not equal to 0.
-%% glc:neq(a, 0).
-%% %% Select all events where 'a' exists and is less than 0.
-%% glc:lt(a, 0).
-%% %% Select all events where 'a' exists and is anything.
-%% glc:wc(a).
-%%
-%% %% Select no input events. Used as black hole query.
-%% glc:null(false).
-%% %% Select all input events. Used as passthrough query.
-%% glc:null(true).
-%% '''
-%%
-%% === Examples of combining filters ===
-%% ```
-%% %% Select all events where both 'a' and 'b' exists and are greater than 0.
-%% glc:all(glc:gt(a, 0), glc:gt(b, 0)).
-%% %% Select all events where 'a' or 'b' exists and are greater than 0.
-%% glc:any(glc:gt(a, 0), glc:gt(b, 0)).
-%% '''
-%%
-%% === Handling output events ===
-%%
-%% Once a query has been composed it is possible to override the output action
-%% with an erlang function. The function will be applied to each output event
-%% from the query. The return value from the function will be ignored.
-%%
-%% ```
-%% %% Write all input events as info reports to the error logger.
-%% glc:with(glc:null(true), fun(E) ->
-%%     error_logger:info_report(gre:pairs(E)) end).
-%% '''
-%%
--module(glc).
-
--export(
-    compile/2,
-    compile/3,
-    compile/4,
-    handle/2,
-    get/2,
-    delete/1,
-    reset_counters/1,
-    reset_counters/2,
-    start/0
-).
-
--export(
-    lt/2, lte/2,
-    eq/2, neq/2,
-    gt/2, gte/2,
-    wc/1,
-    nf/1
-).
-
--export(
-    all/1,
-    any/1,
-    null/1,
-    with/2,
-    run/3
-).
-
--export(
-    info/1,
-    input/1,
-    output/1,
-    job_input/1,
-    job_run/1,
-    job_error/1,
-    job_time/1,
-    filter/1,
-    union/1
-).
-
--record(module, {
-    'query' :: term(),
-    tables :: {atom(), atom()},
-    qtree :: term(),
-    store :: term()
-}).
-
--spec lt(atom(), term()) -> glc_ops:op().
-lt(Key, Term) ->
-    glc_ops:lt(Key, Term).
-
--spec lte(atom(), term()) -> glc_ops:op().
-lte(Key, Term) ->
-    glc_ops:lte(Key, Term).
-
--spec eq(atom(), term()) -> glc_ops:op().
-eq(Key, Term) ->
-    glc_ops:eq(Key, Term).
-
--spec neq(atom(), term()) -> glc_ops:op().
-neq(Key, Term) ->
-    glc_ops:neq(Key, Term).
-
--spec gt(atom(), term()) -> glc_ops:op().
-gt(Key, Term) ->
-    glc_ops:gt(Key, Term).
-
--spec gte(atom(), term()) -> glc_ops:op().
-gte(Key, Term) ->
-    glc_ops:gte(Key, Term).
-
--spec wc(atom()) -> glc_ops:op().
-wc(Key) ->
-    glc_ops:wc(Key).
-
--spec nf(atom()) -> glc_ops:op().
-nf(Key) ->
-    glc_ops:nf(Key).
-
-%% @doc Filter the input using multiple filters.
-%%
-%% For an input to be considered valid output the all filters specified
-%% in the list must hold for the input event. The list is expected to
-%% be a non-empty list. If the list of filters is an empty list a `badarg'
-%% error will be thrown.
--spec all(glc_ops:op()) -> glc_ops:op().
-all(Filters) ->
-    glc_ops:all(Filters).
-
-
-%% @doc Filter the input using one of multiple filters.
-%%
-%% For an input to be considered valid output on of the filters specified
-%% in the list must hold for the input event. The list is expected to be
-%% a non-empty list. If the list of filters is an empty list a `badarg'
-%% error will be thrown.
--spec any(glc_ops:op()) -> glc_ops:op().
-any(Filters) ->
-    glc_ops:any(Filters).
-
-
-%% @doc Always return `true' or `false'.
--spec null(boolean()) -> glc_ops:op().
-null(Result) ->
-    glc_ops:null(Result).
-
-
-%% @doc Apply a function to each output of a query.
-%%
-%% Updating the output action of a query finalizes it. Attempting
-%% to use a finalized query to construct a new query will result
-%% in a `badarg' error.
--spec with(glc_ops:op(), fun((gre:event()) -> term())) -> glc_ops:op().
-with(Query, Action) ->
-    glc_ops:with(Query, Action).
-
-
-%% @doc Return a union of multiple queries.
-%%
-%% The union of multiple queries is the equivalent of executing multiple
-%% queries separately on the same input event. The advantage is that filter
-%% conditions that are common to all or some of the queries only need to
-%% be tested once.
-%%
-%% All queries are expected to be valid and have an output action other
-%% than the default which is `output'. If these expectations don't hold
-%% a `badarg' error will be thrown.
--spec union(glc_ops:op()) -> glc_ops:op().
-union(Queries) ->
-    glc_ops:union(Queries).
-
-
-%% @doc Compile a query to a module.
-%%
-%% On success the module representing the query is returned. The module and
-%% data associated with the query must be released using the {@link delete/1}
-%% function. The name of the query module is expected to be unique.
-%% The counters are reset by default, unless Reset is set to false 
--spec compile(atom(), glc_ops:op() | glc_ops:op()) -> {ok, atom()}.
-compile(Module, Query) ->
-    compile(Module, Query, undefined, true).
-
--spec compile(atom(), glc_ops:op() | glc_ops:op(), boolean()) -> {ok, atom()}.
-compile(Module, Query, Reset) when is_boolean(Reset) ->
-    compile(Module, Query, undefined, Reset);
-compile(Module, Query, undefined) ->
-    compile(Module, Query, undefined, true);
-compile(Module, Query, Store) when is_list(Store) ->
-    compile(Module, Query, Store, true).
-
-compile(Module, Query, Store, Reset) ->
-    {ok, ModuleData} = module_data(Module, Query, Store),
-    case glc_code:compile(Module, ModuleData) of
-        {ok, Module} when Reset ->
-            reset_counters(Module),
-            {ok, Module};
-        {ok, Module} ->
-            {ok, Module}
-    end.
-
-
-%% @doc Handle an event using a compiled query.
-%%
-%% The input event is expected to have been returned from {@link gre:make/2}.
--spec handle(atom(), list({atom(), term()}) | gre:event()) -> ok.
-handle(Module, Event) when is_list(Event) ->
-    Module:handle(gre:make(Event, list));
-handle(Module, Event) ->
-    Module:handle(Event).
-
-get(Module, Key) ->
-    Module:get(Key).
-
-run(Module, Fun, Event) when is_list(Event) ->
-    Module:runjob(Fun, gre:make(Event, list));
-run(Module, Fun, Event) ->
-    Module:runjob(Fun, Event).
-
-
-info(Module) ->
-    Counters = input, filter, output, 
-                job_input, job_run, 
-                job_time, job_error,
-     {C, Module:info(C)} || C <- 'query' | Counters .
-
-%% @doc The number of input events for this query module.
--spec input(atom()) -> non_neg_integer().
-input(Module) ->
-    Module:info(input).
-
-%% @doc The number of output events for this query module.
--spec output(atom()) -> non_neg_integer().
-output(Module) ->
-    Module:info(output).
-
-%% @doc The number of filtered events for this query module.
--spec filter(atom()) -> non_neg_integer().
-filter(Module) ->
-    Module:info(filter).
-
-
-%% @doc The number of job runs for this query module.
--spec job_run(atom()) -> non_neg_integer().
-job_run(Module) ->
-    Module:info(job_run).
-
-%% @doc The number of job errors for this query module.
--spec job_error(atom()) -> non_neg_integer().
-job_error(Module) ->
-    Module:info(job_error).
-
-%% @doc The number of job inputs for this query module.
--spec job_input(atom()) -> non_neg_integer().
-job_input(Module) ->
-    Module:info(job_input).
-
-%% @doc The amount of time jobs took for this query module.
--spec job_time(atom()) -> non_neg_integer().
-job_time(Module) ->
-    Module:info(job_time).
-
-%% @doc Release a compiled query.
-%%
-%% This releases all resources allocated by a compiled query. The query name
-%% is expected to be associated with an existing query module. Calling this
-%% function will shutdown all relevant processes and purge/delete the module.
--spec delete(atom()) -> ok.
-delete(Module) ->
-    Params = params_name(Module),
-    Counts = counts_name(Module),
-    ManageParams = manage_params_name(Module),
-    ManageCounts = manage_counts_name(Module),
-
-    _ =  begin 
-        ok = supervisor:terminate_child(Sup, Name),
-        ok = supervisor:delete_child(Sup, Name)
-      end || {Sup, Name} <- 
-        {gr_manager_sup, ManageParams}, {gr_manager_sup, ManageCounts},
-         {gr_param_sup, Params}, {gr_counter_sup, Counts}
-    ,
-
-    code:soft_purge(Module),
-    code:delete(Module),
-    ok.
-
-%% @doc Reset all counters
-%%
-%% This resets all the counters associated with a module
--spec reset_counters(atom()) -> ok.
-reset_counters(Module) ->
-    Module:reset_counters(all).
-
-%% @doc Reset a specific counter
-%%
-%% This resets a specific counter associated with a module
--spec reset_counters(atom(), atom()) -> ok.
-reset_counters(Module, Counter) ->
-    Module:reset_counters(Counter).
-
-%% @private Map a query to a module data term.
--spec module_data(atom(), term(), term()) -> {ok, #module{}}.
-module_data(Module, Query, Store) ->
-    %% terms in the query which are not valid arguments to the
-    %% erl_syntax:abstract/1 functions are stored in ETS.
-    %% the terms are only looked up once they are necessary to
-    %% continue evaluation of the query.
-
-    %% query counters are stored in a shared ETS table. this should
-    %% be an optional feature. enabled by defaults to simplify tests.
-    %% the abstract_tables/1 function expects a list of name-atom pairs.
-    %% tables are referred to by name in the generated code. the table/1
-    %% function maps names to registered processes response for those tables.
-    Tables = module_tables(Module),
-    Query2 = glc_lib:reduce(Query),
-    {ok, #module{'query'=Query, tables=Tables, qtree=Query2, store=Store}}.
-
-%% @private Create a data managed supervised process for params, counter tables
-module_tables(Module) ->
-    Params = params_name(Module),
-    Counts = counts_name(Module),
-    ManageParams = manage_params_name(Module),
-    ManageCounts = manage_counts_name(Module),
-    Counters = {input,0}, {filter,0}, {output,0}, 
-                {job_input, 0}, {job_run,0},  {job_time, 0},
-                {job_error, 0},
-
-    _ = supervisor:start_child(gr_param_sup, 
-        {Params, {gr_param, start_link, Params}, 
-        transient, brutal_kill, worker, Params}),
-    _ = supervisor:start_child(gr_counter_sup, 
-        {Counts, {gr_counter, start_link, Counts}, 
-        transient, brutal_kill, worker, Counts}),
-    _ = supervisor:start_child(gr_manager_sup, 
-        {ManageParams, {gr_manager, start_link, ManageParams, Params, },
-        transient, brutal_kill, worker, ManageParams}),
-    _ = supervisor:start_child(gr_manager_sup, {ManageCounts, 
-        {gr_manager, start_link, ManageCounts, Counts, Counters},
-        transient, brutal_kill, worker, ManageCounts}),
-    {params,Params}, {counters, Counts}.
-
-reg_name(Module, Name) ->
-    list_to_atom("gr_" ++ atom_to_list(Module) ++ Name).
-
-params_name(Module) -> reg_name(Module, "_params").
-counts_name(Module) -> reg_name(Module, "_counters").
-manage_params_name(Module) -> reg_name(Module, "_params_mgr").
-manage_counts_name(Module) -> reg_name(Module, "_counters_mgr").
-
-
-start() ->
-    ok = application:start(syntax_tools),
-    ok = application:start(compiler),
-    ok = application:start(goldrush).
-
-%% @todo Move comment.
-%% @private Map a query to a simplified query tree term.
-%%
-%% The simplified query tree is used to combine multiple queries into one
-%% query module. The goal of this is to reduce the filtering and dispatch
-%% overhead when multiple concurrent queries are executed.
-%%
-%% A fixed selection condition may be used to specify a property that an event
-%% must have in order to be considered part of the input stream for a query.
-%%
-%% For the sake of simplicity it is only possible to define selection
-%% conditions using the fields present in the context and identifiers
-%% of an event. The fields in the context are bound to the reserved
-%% names:
-%%
-%% - '$n': node name
-%% - '$a': application name
-%% - '$p': process identifier
-%% - '$t': timestamp
-%% 
-%%
-%% If an event must be selected based on the runtime state of an event handler
-%% this must be done in the body of the handler.
-
-
--ifdef(TEST).
--include_lib("eunit/include/eunit.hrl").
-
-setup_query(Module, Query) ->
-    setup_query(Module, Query, undefined).
-
-setup_query(Module, Query, Store) ->
-    ?assertNot(erlang:module_loaded(Module)),
-    ?assertEqual({ok, Module}, case (catch compile(Module, Query, Store)) of
-        {'EXIT',_}=Error -> ?debugFmt("~p", Error), Error; Else -> Else end),
-    ?assert(erlang:function_exported(Module, table, 1)),
-    ?assert(erlang:function_exported(Module, handle, 1)),
-    {compiled, Module}.
-
-events_test_() ->
-    {foreach,
-        fun() ->
-                error_logger:tty(false),
-                application:start(syntax_tools),
-                application:start(compiler),
-                application:start(goldrush)
-        end,
-        fun(_) ->
-                application:stop(goldrush),
-                application:stop(compiler),
-                application:stop(syntax_tools),
-                error_logger:tty(true)
-        end,
-        
-            {"null query compiles",
-                fun() ->
-                    {compiled, Mod} = setup_query(testmod1, glc:null(false)),
-                    ?assertError(badarg, Mod:table(noexists))
-                end
-            },
-            {"params table exists",
-                fun() ->
-                    {compiled, Mod} = setup_query(testmod2, glc:null(false)),
-                    ?assert(is_atom(Mod:table(params))),
-                    ?assertMatch(_|_, gr_param:info(Mod:table(params)))
-                end
-            },
-            {"null query exists",
-                fun() ->
-                    {compiled, Mod} = setup_query(testmod3, glc:null(false)),
-                    ?assert(erlang:function_exported(Mod, info, 1)),
-                    ?assertError(badarg, Mod:info(invalid)),
-                    ?assertEqual({null, false}, Mod:info('query'))
-                end
-            },
-            {"init counters test",
-                fun() ->
-                    {compiled, Mod} = setup_query(testmod4, glc:null(false)),
-                    ?assertEqual(0, Mod:info(input)),
-                    ?assertEqual(0, Mod:info(filter)),
-                    ?assertEqual(0, Mod:info(output))
-                end
-            },
-            {"filtered events test",
-                fun() ->
-                    %% If no selection condition is specified no inputs can match.
-                    {compiled, Mod} = setup_query(testmod5, glc:null(false)),
-                    glc:handle(Mod, gre:make(, list)),
-                    ?assertEqual(1, Mod:info(input)),
-                    ?assertEqual(1, Mod:info(filter)),
-                    ?assertEqual(0, Mod:info(output))
-                end
-            },
-            {"nomatch event test",
-                fun() ->
-                    %% If a selection condition but no body is specified the event
-                    %% is expected to count as filtered out if the condition does
-                    %% not hold.
-                    {compiled, Mod} = setup_query(testmod6, glc:eq('$n', 'noexists@nohost')),
-                    glc:handle(Mod, gre:make({'$n', 'noexists2@nohost'}, list)),
-                    ?assertEqual(1, Mod:info(input)),
-                    ?assertEqual(1, Mod:info(filter)),
-                    ?assertEqual(0, Mod:info(output))
-                end
-            },
-            {"opfilter equal test",
-                fun() ->
-                    %% If a selection condition but no body is specified the event
-                    %% counts as input to the query, but not as filtered out.
-                    {compiled, Mod} = setup_query(testmod7a, glc:eq('$n', 'noexists@nohost')),
-                    glc:handle(Mod, gre:make({'$n', 'noexists@nohost'}, list)),
-                    ?assertEqual(1, Mod:info(input)),
-                    ?assertEqual(0, Mod:info(filter)),
-                    ?assertEqual(1, Mod:info(output))
-                end
-            },
-            {"opfilter not equal test",
-                fun() ->
-                    {compiled, Mod} = setup_query(testmod7b, glc:neq('$n', 'noexists@nohost')),
-                    glc:handle(Mod, gre:make({'$n', 'noexists@nohost'}, list)),
-                    glc:handle(Mod, gre:make({'$n', 'notexists@nohost'}, list)),
-                    ?assertEqual(2, Mod:info(input)),
-                    ?assertEqual(1, Mod:info(filter)),
-                    ?assertEqual(1, Mod:info(output))
-                end
-            },
-            {"opfilter wildcard test",
-                fun() ->
-                    {compiled, Mod} = setup_query(testmod8, glc:wc(a)),
-                    glc:handle(Mod, gre:make({b, 2}, list)),
-                    ?assertEqual(1, Mod:info(input)),
-                    ?assertEqual(1, Mod:info(filter)),
-                    ?assertEqual(0, Mod:info(output)),
-                    glc:handle(Mod, gre:make({a, 2}, list)),
-                    ?assertEqual(2, Mod:info(input)),
-                    ?assertEqual(1, Mod:info(filter)),
-                    ?assertEqual(1, Mod:info(output))
-                end
-            },
-            {"opfilter notfound test",
-                fun() ->
-                    {compiled, Mod} = setup_query(testmod9, glc:nf(a)),
-                    glc:handle(Mod, gre:make({a, 2}, list)),
-                    ?assertEqual(1, Mod:info(input)),
-                    ?assertEqual(1, Mod:info(filter)),
-                    ?assertEqual(0, Mod:info(output)),
-                    glc:handle(Mod, gre:make({b, 2}, list)),
-                    ?assertEqual(2, Mod:info(input)),
-                    ?assertEqual(1, Mod:info(filter)),
-                    ?assertEqual(1, Mod:info(output))
-                end
-            },
-            {"opfilter greater than test",
-                fun() ->
-                    {compiled, Mod} = setup_query(testmod10a, glc:gt(a, 1)),
-                    glc:handle(Mod, gre:make({'a', 2}, list)),
-                    ?assertEqual(1, Mod:info(input)),
-                    ?assertEqual(0, Mod:info(filter)),
-                    glc:handle(Mod, gre:make({'a', 0}, list)),
-                    ?assertEqual(2, Mod:info(input)),
-                    ?assertEqual(1, Mod:info(filter)),
-                    ?assertEqual(1, Mod:info(output))
-                end
-            },
-            {"opfilter greater than or equal to test",
-                fun() ->
-                    {compiled, Mod} = setup_query(testmod10b, glc:gte(a, 1)),
-                    glc:handle(Mod, gre:make({'a', 2}, list)),
-                    ?assertEqual(1, Mod:info(input)),
-                    ?assertEqual(0, Mod:info(filter)),
-                    glc:handle(Mod, gre:make({'a', 1}, list)),
-                    ?assertEqual(2, Mod:info(input)),
-                    ?assertEqual(0, Mod:info(filter)),
-                    glc:handle(Mod, gre:make({'a', 0}, list)),
-                    ?assertEqual(3, Mod:info(input)),
-                    ?assertEqual(1, Mod:info(filter)),
-                    ?assertEqual(2, Mod:info(output))
-                end
-            },
-            {"opfilter less than test",
-                fun() ->
-                    {compiled, Mod} = setup_query(testmod11a, glc:lt(a, 1)),
-                    glc:handle(Mod, gre:make({'a', 0}, list)),
-                    ?assertEqual(1, Mod:info(input)),
-                    ?assertEqual(0, Mod:info(filter)),
-                    ?assertEqual(1, Mod:info(output)),
-                    glc:handle(Mod, gre:make({'a', 2}, list)),
-                    ?assertEqual(2, Mod:info(input)),
-                    ?assertEqual(1, Mod:info(filter)),
-                    ?assertEqual(1, Mod:info(output))
-                end
-            },
-            {"opfilter less than or equal to test",
-                fun() ->
-                    {compiled, Mod} = setup_query(testmod11b, glc:lte(a, 1)),
-                    glc:handle(Mod, gre:make({'a', 0}, list)),
-                    ?assertEqual(1, Mod:info(input)),
-                    ?assertEqual(0, Mod:info(filter)),
-                    ?assertEqual(1, Mod:info(output)),
-                    glc:handle(Mod, gre:make({'a', 1}, list)),
-                    ?assertEqual(2, Mod:info(input)),
-                    ?assertEqual(0, Mod:info(filter)),
-                    ?assertEqual(2, Mod:info(output)),
-                    glc:handle(Mod, gre:make({'a', 2}, list)),
-                    ?assertEqual(3, Mod:info(input)),
-                    ?assertEqual(1, Mod:info(filter)),
-                    ?assertEqual(2, Mod:info(output))
-                end
-            },
-            {"allholds op test",
-                fun() ->
-                    {compiled, Mod} = setup_query(testmod12,
-                        glc:all(glc:eq(a, 1), glc:eq(b, 2))),
-                    glc:handle(Mod, gre:make({'a', 1}, list)),
-                    glc:handle(Mod, gre:make({'a', 2}, list)),
-                    ?assertEqual(2, Mod:info(input)),
-                    ?assertEqual(2, Mod:info(filter)),
-                    glc:handle(Mod, gre:make({'b', 1}, list)),
-                    glc:handle(Mod, gre:make({'b', 2}, list)),
-                    ?assertEqual(4, Mod:info(input)),
-                    ?assertEqual(4, Mod:info(filter)),
-                    glc:handle(Mod, gre:make({'a', 1},{'b', 2}, list)),
-                    ?assertEqual(5, Mod:info(input)),
-                    ?assertEqual(4, Mod:info(filter)),
-                    ?assertEqual(1, Mod:info(output))
-                end
-            },
-            {"anyholds op test",
-                fun() ->
-                    {compiled, Mod} = setup_query(testmod13,
-                        glc:any(glc:eq(a, 1), glc:eq(b, 2))),
-                    glc:handle(Mod, gre:make({'a', 2}, list)),
-                    glc:handle(Mod, gre:make({'b', 1}, list)),
-                    ?assertEqual(2, Mod:info(input)),
-                    ?assertEqual(2, Mod:info(filter)),
-                    glc:handle(Mod, gre:make({'a', 1}, list)),
-                    glc:handle(Mod, gre:make({'b', 2}, list)),
-                    ?assertEqual(4, Mod:info(input)),
-                    ?assertEqual(2, Mod:info(filter))
-                end
-            },
-            {"with function test",
-                fun() ->
-                    Self = self(),
-                    {compiled, Mod} = setup_query(testmod14,
-                        glc:with(glc:eq(a, 1), fun(Event) -> Self ! gre:fetch(a, Event) end)),
-                    glc:handle(Mod, gre:make({a,1}, list)),
-                    ?assertEqual(1, Mod:info(output)),
-                    ?assertEqual(1, receive Msg -> Msg after 0 -> notcalled end)
-                end
-            },
-            {"with function storage test",
-                fun() ->
-                    Self = self(),
-                    Store = {stored, value},
-                    {compiled, Mod} = setup_query(testmod15,
-                        glc:with(glc:eq(a, 1), fun(Event, EStore) -> 
-                           Self ! {gre:fetch(a, Event), EStore} end),
-                         Store),
-                    glc:handle(Mod, gre:make({a,1}, list)),
-                    ?assertEqual(1, Mod:info(output)),
-                    ?assertEqual(1, receive {Msg, Store} -> Msg after 0 -> notcalled end)
-                end
-            },
-            {"delete test",
-                fun() ->
-                    {compiled, Mod} = setup_query(testmod16, glc:null(false)),
-                    ?assert(is_atom(Mod:table(params))),
-                    ?assertMatch(_|_, gr_param:info(Mod:table(params))),
-                    ?assert(is_list(code:which(Mod))),
-                    ?assert(is_pid(whereis(params_name(Mod)))),
-                    ?assert(is_pid(whereis(counts_name(Mod)))),
-                    ?assert(is_pid(whereis(manage_params_name(Mod)))),
-                    ?assert(is_pid(whereis(manage_counts_name(Mod)))),
-
-                    glc:delete(Mod),
-                    
-                    ?assertEqual(non_existing, code:which(Mod)),
-                    ?assertEqual(undefined, whereis(params_name(Mod))),
-                    ?assertEqual(undefined, whereis(counts_name(Mod))),
-                    ?assertEqual(undefined, whereis(manage_params_name(Mod))),
-                    ?assertEqual(undefined, whereis(manage_counts_name(Mod)))
-                end
-            },
-            {"reset counters test",
-                fun() ->
-                    {compiled, Mod} = setup_query(testmod17,
-                        glc:any(glc:eq(a, 1), glc:eq(b, 2))),
-                    glc:handle(Mod, gre:make({'a', 2}, list)),
-                    glc:handle(Mod, gre:make({'b', 1}, list)),
-                    ?assertEqual(2, Mod:info(input)),
-                    ?assertEqual(2, Mod:info(filter)),
-                    glc:handle(Mod, gre:make({'a', 1}, list)),
-                    glc:handle(Mod, gre:make({'b', 2}, list)),
-                    ?assertEqual(4, Mod:info(input)),
-                    ?assertEqual(2, Mod:info(filter)),
-                    ?assertEqual(2, Mod:info(output)),
-
-                    glc:reset_counters(Mod, input),
-                    ?assertEqual(0, Mod:info(input)),
-                    ?assertEqual(2, Mod:info(filter)),
-                    ?assertEqual(2, Mod:info(output)),
-                    glc:reset_counters(Mod, filter),
-                    ?assertEqual(0, Mod:info(input)),
-                    ?assertEqual(0, Mod:info(filter)),
-                    ?assertEqual(2, Mod:info(output)),
-                    glc:reset_counters(Mod),
-                    ?assertEqual(0, Mod:info(input)),
-                    ?assertEqual(0, Mod:info(filter)),
-                    ?assertEqual(0, Mod:info(output))
-                end
-            },
-            {"ets data recovery test",
-                fun() ->
-                    Self = self(),
-                    {compiled, Mod} = setup_query(testmod18,
-                        glc:with(glc:eq(a, 1), fun(Event) -> Self ! gre:fetch(a, Event) end)),
-                    glc:handle(Mod, gre:make({a,1}, list)),
-                    ?assertEqual(1, Mod:info(output)),
-                    ?assertEqual(1, receive Msg -> Msg after 0 -> notcalled end),
-                    ?assertEqual(1, length(gr_param:list(Mod:table(params)))),
-                    ?assertEqual(7, length(gr_param:list(Mod:table(counters)))),
-                    true = exit(whereis(Mod:table(params)), kill),
-                    true = exit(whereis(Mod:table(counters)), kill),
-                    ?assertEqual(1, Mod:info(input)),
-                    glc:handle(Mod, gre:make({'a', 1}, list)),
-                    ?assertEqual(2, Mod:info(input)),
-                    ?assertEqual(2, Mod:info(output)),
-                    ?assertEqual(1, length(gr_param:list(Mod:table(params)))),
-                    ?assertEqual(7, length(gr_counter:list(Mod:table(counters))))
-                end
-            },
-            {"run timed job test",
-                fun() ->
-                    Self = self(),
-                    Store = {stored, value},
-                    Runtime = 0.15,
-                    {compiled, Mod} = setup_query(testmod19,
-                                                  glc:gt(runtime, Runtime),
-                                                  Store),
-                    glc:run(Mod, fun(Event, EStore) -> 
-                        timer:sleep(100),
-                        Self ! {gre:fetch(a, Event), EStore}
-                    end, gre:make({a,1}, list)),
-                    ?assertEqual(0, Mod:info(output)),
-                    ?assertEqual(1, Mod:info(filter)),
-                    ?assertEqual(1, receive {Msg, Store} -> Msg after 0 -> notcalled end),
-
-                    delete(testmod19),
-                    {compiled, Mod} = setup_query(testmod19,
-                                                  glc:gt(runtime, Runtime),
-                                                  Store),
-                    glc:handle(Mod, gre:make({'a', 1}, list)),
-                    glc:run(Mod, fun(Event, EStore) -> 
-                        timer:sleep(200),
-                        Self ! {gre:fetch(a, Event), EStore}
-                    end, gre:make({a,2}, list)),
-                    ?assertEqual(1, Mod:info(output)),
-                    ?assertEqual(1, Mod:info(filter)),
-                    ?assertEqual(2, receive {Msg, Store} -> Msg after 0 -> notcalled end)
-
-                end
-            },
-            {"reset job counters",
-                fun() ->
-                    {compiled, Mod} = setup_query(testmod20,
-                        glc:any(glc:eq(a, 1), glc:gt(runtime, 0.15))),
-                    glc:handle(Mod, gre:make({'a', 2}, list)),
-                    glc:handle(Mod, gre:make({'b', 1}, list)),
-                    ?assertEqual(2, Mod:info(input)),
-                    ?assertEqual(2, Mod:info(filter)),
-                    glc:handle(Mod, gre:make({'a', 1}, list)),
-                    glc:handle(Mod, gre:make({'b', 2}, list)),
-                    ?assertEqual(4, Mod:info(input)),
-                    ?assertEqual(3, Mod:info(filter)),
-                    ?assertEqual(1, Mod:info(output)),
-
-                    Self = self(),
-                    glc:run(Mod, fun(Event, EStore) -> 
-                        timer:sleep(100),
-                        Self ! {gre:fetch(a, Event), EStore}
-                    end, gre:make({a,1}, list)),
-                    ?assertEqual(2, Mod:info(output)),
-                    ?assertEqual(3, Mod:info(filter)),
-                    ?assertEqual(1, receive {Msg, undefined} -> Msg after 0 -> notcalled end),
-
-                    {_, Msg1} = glc:run(Mod, fun(_Event, _EStore) -> 
-                        timer:sleep(200),
-                        {error, badtest}
-                        
-                    end, gre:make({a,1}, list)),
-                    ?assertEqual(3, Mod:info(output)),
-                    ?assertEqual(3, Mod:info(filter)),
-                    ?assertEqual(2, Mod:info(job_input)),
-                    ?assertEqual(1, Mod:info(job_error)),
-                    ?assertEqual(1, Mod:info(job_run)),
-                    ?assertEqual({error, badtest}, Msg1),
-
-                    {_, Msg2} = glc:run(Mod, fun(_Event, _EStore) -> 
-                        timer:sleep(20),
-                        {ok, goodtest}
-                        
-                    end, gre:make({a,2}, list)),
-                    ?assertEqual(3, Mod:info(output)),
-                    ?assertEqual(4, Mod:info(filter)),
-                    ?assertEqual(3, Mod:info(job_input)),
-                    ?assertEqual(1, Mod:info(job_error)),
-                    ?assertEqual(2, Mod:info(job_run)),
-                    ?assertEqual({ok, goodtest}, Msg2),
-
-
-                    glc:reset_counters(Mod, input),
-                    ?assertEqual(0, Mod:info(input)),
-                    ?assertEqual(4, Mod:info(filter)),
-                    ?assertEqual(3, Mod:info(output)),
-                    ?assertEqual(3, Mod:info(job_input)),
-                    ?assertEqual(1, Mod:info(job_error)),
-                    ?assertEqual(2, Mod:info(job_run)),
-                    glc:reset_counters(Mod, filter),
-                    ?assertEqual(0, glc:input(Mod)),
-                    ?assertEqual(0, glc:filter(Mod)),
-                    ?assertEqual(3, glc:output(Mod)),
-                    ?assertEqual(3, glc:job_input(Mod)),
-                    ?assertEqual(1, glc:job_error(Mod)),
-                    ?assertEqual(2, glc:job_run(Mod)),
-                    glc:reset_counters(Mod, output),
-                    ?assertEqual(0, Mod:info(input)),
-                    ?assertEqual(0, Mod:info(filter)),
-                    ?assertEqual(0, Mod:info(output)),
-                    ?assertEqual(3, Mod:info(job_input)),
-                    ?assertEqual(1, Mod:info(job_error)),
-                    ?assertEqual(2, Mod:info(job_run)),
-                    glc:reset_counters(Mod, job_input),
-                    ?assertEqual(0, Mod:info(input)),
-                    ?assertEqual(0, Mod:info(filter)),
-                    ?assertEqual(0, Mod:info(output)),
-                    ?assertEqual(0, Mod:info(job_input)),
-                    ?assertEqual(1, Mod:info(job_error)),
-                    ?assertEqual(2, Mod:info(job_run)),
-                    glc:reset_counters(Mod, job_error),
-                    ?assertEqual(0, Mod:info(input)),
-                    ?assertEqual(0, Mod:info(filter)),
-                    ?assertEqual(0, Mod:info(output)),
-                    ?assertEqual(0, Mod:info(job_input)),
-                    ?assertEqual(0, Mod:info(job_error)),
-                    ?assertEqual(2, Mod:info(job_run)),
-                    glc:reset_counters(Mod, job_run),
-                    ?assertEqual(0, Mod:info(input)),
-                    ?assertEqual(0, Mod:info(filter)),
-                    ?assertEqual(0, Mod:info(output)),
-                    ?assertEqual(0, Mod:info(job_input)),
-                    ?assertEqual(0, Mod:info(job_error)),
-                    ?assertEqual(0, Mod:info(job_run))
-                end
-            },
-            {"variable storage test",
-                fun() ->
-                    {compiled, Mod} = setup_query(testmod20a,
-                        glc:eq(a, 2), {stream, time}),
-                    glc:handle(Mod, gre:make({'a', 2}, list)),
-                    glc:handle(Mod, gre:make({'b', 1}, list)),
-                    ?assertEqual(2, Mod:info(input)),
-                    ?assertEqual(1, Mod:info(filter)),
-                    glc:handle(Mod, gre:make({'b', 2}, list)),
-                    ?assertEqual(3, Mod:info(input)),
-                    ?assertEqual(2, Mod:info(filter)),
-                    ?assertEqual({ok, time}, glc:get(Mod, stream)),
-                    ?assertEqual({error, undefined}, glc:get(Mod, beam))
-                end
-            },
-            {"with multi function any test",
-                fun() ->
-                    Self = self(),
-                    Store = {stored, value},
-
-                    G1 = glc:with(glc:eq(a, 1), fun(_Event, EStore) -> 
-                       Self ! {a, EStore} end),
-                    G2 = glc:with(glc:eq(b, 2), fun(_Event, EStore) -> 
-                       Self ! {b, EStore} end),
-
-                    {compiled, Mod} = setup_query(testmod20b, any(G1, G2),
-                         Store),
-                    glc:handle(Mod, gre:make({a,1}, list)),
-                    ?assertEqual(1, Mod:info(output)),
-                    ?assertEqual(a, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
-                    ?assertEqual(b, receive {Msg, _Store} -> Msg after 0 -> notcalled end)
-                end
-            },
-            {"with multi function all test",
-                fun() ->
-                    Self = self(),
-                    Store = {stored, value},
-
-                    G1 = glc:with(glc:eq(a, 1), fun(_Event, EStore) -> 
-                       Self ! {a, EStore} end),
-                    G2 = glc:with(glc:eq(b, 2), fun(_Event, EStore) -> 
-                       Self ! {b, EStore} end),
-                    G3 = glc:with(glc:eq(c, 3), fun(_Event, EStore) -> 
-                       Self ! {c, EStore} end),
-
-                    {compiled, Mod} = setup_query(testmod21, all(G1, G2, G3),
-                         Store),
-                    glc:handle(Mod, gre:make({a,1}, list)),
-                    ?assertEqual(0, Mod:info(output)),
-                    ?assertEqual(1, Mod:info(filter)),
-                    glc:handle(Mod, gre:make({a,1}, {b, 2}, list)),
-                    ?assertEqual(0, Mod:info(output)),
-                    ?assertEqual(2, Mod:info(filter)),
-                    glc:handle(Mod, gre:make({a,1}, {b, 2}, {c, 3}, list)),
-                    ?assertEqual(1, Mod:info(output)),
-                    ?assertEqual(a, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
-                    ?assertEqual(b, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
-                    ?assertEqual(c, receive {Msg, _Store} -> Msg after 0 -> notcalled end)
-                end
-            },
-            {"with multi-function output match test",
-                fun() ->
-                    Self = self(),
-                    Store = {stored, value},
-
-                    {compiled, Mod} = setup_query(testmod22,
-                          glc:with(glc:eq(a, 1), fun(Event, _EStore) -> 
-                              Self ! {a, gre:fetch(a, Event)} end),
-                           glc:with(glc:gt(b, 1), fun(Event, _EStore) -> 
-                              Self ! {b, gre:fetch(b, Event)} end),
-                         Store),
-                    glc:handle(Mod, gre:make({a,1}, {b, 1}, list)),
-                    ?assertEqual(1, Mod:info(output)),
-                    ?assertEqual(a, receive {a=Msg, _Store} -> Msg after 0 -> notcalled end)
-
-                end
-            },
-            {"with multi-function output double-match test",
-                fun() ->
-                    Self = self(),
-                    Store = {stored, value},
-                    {compiled, Mod} = setup_query(testmod23,
-                          glc:with(glc:eq(a, 1), fun(Event, _EStore) -> 
-                              Self ! {a, gre:fetch(a, Event)} end),
-                           glc:with(glc:eq(b, 1), fun(Event, _EStore) -> 
-                              Self ! {b, gre:fetch(b, Event)} end),
-                         Store),
-                    glc:handle(Mod, gre:make({a,1}, {b, 1}, list)),
-                    ?assertEqual(2, Mod:info(output)),
-                    ?assertEqual(a, receive {a=Msg, _Store} -> Msg after 0 -> notcalled end),
-                    ?assertEqual(b, receive {b=Msg, _Store} -> Msg after 0 -> notcalled end)
-                end
-            },
-            {"with multi function complex match test",
-                fun() ->
-                    Self = self(),
-                    Store = {stored, value},
-
-                    G1 = glc:with(glc:gt(r, 0.1), fun(_Event, EStore) -> 
-                       Self ! {a, EStore} end),
-                    G2 = glc:with(glc:all(glc:eq(a, 1), glc:gt(r, 0.5)), fun(_Event, EStore) -> 
-                       Self ! {b, EStore} end),
-                    G3 = glc:with(glc:all(glc:eq(a, 1), glc:eq(b, 2), glc:gt(r, 0.6)), fun(_Event, EStore) -> 
-                       Self ! {c, EStore} end),
-
-                    {compiled, Mod} = setup_query(testmod24, G1, G2, G3,
-                         Store),
-                    glc:handle(Mod, gre:make({a,1}, {r, 0.7}, {b, 3}, list)),
-                    ?assertEqual(2, Mod:info(output)),
-                    ?assertEqual(1, Mod:info(input)),
-                    ?assertEqual(1, Mod:info(filter)),
-                    ?assertEqual(a, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
-                    ?assertEqual(b, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
-                    %
-                    glc:handle(Mod, gre:make({a,1}, {r, 0.6}, list)),
-                    ?assertEqual(4, Mod:info(output)),
-                    ?assertEqual(2, Mod:info(input)),
-                    ?assertEqual(2, Mod:info(filter)),
-                    ?assertEqual(a, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
-                    ?assertEqual(b, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
-                    %
-                    glc:handle(Mod, gre:make({a,2}, {r, 0.7}, {b, 3}, list)),
-                    ?assertEqual(5, Mod:info(output)),
-                    ?assertEqual(3, Mod:info(input)),
-                    ?assertEqual(4, Mod:info(filter)),
-                    ?assertEqual(a, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
-
-                    glc:handle(Mod, gre:make({a,1}, {r, 0.7}, {b, 2}, list)),
-                    ?assertEqual(8, Mod:info(output)),
-                    ?assertEqual(4, Mod:info(input)),
-                    ?assertEqual(4, Mod:info(filter)),
-                    ?assertEqual(a, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
-                    ?assertEqual(b, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
-                    ?assertEqual(c, receive {Msg, _Store} -> Msg after 0 -> notcalled end)
-                end
-            },
-            {"with single-function run test",
-                fun() ->
-                    Self = self(),
-                    Store = {stored, value},
-                    {compiled, Mod1} = setup_query(testmod25a,
-                        glc:with(glc:all(glc:gt(runtime, 0.15), glc:lt(a, 3)), fun(Event, EStore) -> 
-                           Self ! {gre:fetch(a, Event), EStore} end),
-                         Store),
-                    glc:run(Mod1, fun(_Event, _EStore) -> timer:sleep(200), ok end, gre:make({a, 2}, list)),
-                    ?assertEqual(1, Mod1:info(output)),
-                    ?assertEqual(2, receive {Msg, Store} -> Msg after 250 -> notcalled end),
-                    {compiled, Mod2} = setup_query(testmod25b,
-                        glc:with(glc:all(glc:gt(runtime, 0.15), glc:lt(a, 3)), fun(Event, EStore) -> 
-                           Self ! {gre:fetch(a, Event), EStore}
-                        end), Store),
-                    {_, {error, later}} = glc:run(Mod2, fun(_Event, _EStore) -> 
-                           timer:sleep(200), 
-                           erlang:exit(later)
-                    end, gre:make({a, 2}, list)),
-                    ?assertEqual(1, Mod2:info(output)),
-                    ?assertEqual(1, Mod2:info(job_error)),
-                    ?assertEqual(2, receive {Msg, Store} -> Msg after 250 -> notcalled end)
-                end
-            },
-            {"with multi-function output run error test",
-                fun() ->
-                    Self = self(),
-                    Store = {stored, value},
-                    {compiled, Mod} = setup_query(testmod26,
-                          glc:with(glc:gt(runtime, 0.15), fun(Event, _EStore) -> 
-                              Self ! {a, gre:fetch(b, Event)} 
-                           end),
-                           glc:with(glc:eq(c, 3), fun(Event, _EStore) -> 
-                              Self ! {a, gre:fetch(a, Event)} 
-                           end),
-                           glc:with(glc:eq(b, 3), fun(Event, _EStore) -> 
-                              Self ! {a, gre:fetch(a, Event)} 
-                           end),
-                           glc:with(glc:eq(a, 1), fun(Event, _EStore) -> 
-                              receive {a, _Store} -> 
-                                  Self ! {b, gre:fetch(b, Event)}
-                              after 10 -> notcalled end
-                           end)
-                           ,
-                         Store),
-                    Event = gre:make({a,1}, {b, 3}, {c, 4}, list),
-                    {_, {error, bye}} = glc:run(Mod, fun(_Event, _EStore) -> 
-                            timer:sleep(200),
-                            erlang:error(bye) 
-                    end, Event),
-                    ?assertEqual(3, Mod:info(output)),
-                    ?assertEqual(1, Mod:info(filter)),
-                    ?assertEqual(1, Mod:info(job_error)),
-                    ?assertEqual(b, receive {b=Msg, _Store} -> Msg after 0 -> notcalled end)
-                end
-            }
-        
-    }.
-
-union_error_test() ->
-    ?assertError(badarg, glc:union(glc:eq(a, 1))),
-    done.
-
--endif.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/goldrush/src/glc_code.erl Deleted

@@ -1,624 +0,0 @@
-%% @doc Code generation functions.
--module(glc_code).
--compile({nowarn_unused_function, {abstract_module,2}}).
--compile({nowarn_unused_function, {abstract_tables,1}}).
--compile({nowarn_unused_function, {abstract_reset,0}}).
--compile({nowarn_unused_function, {abstract_filter,3}}).
--compile({nowarn_unused_function, {abstract_filter_,4}}).
--compile({nowarn_unused_function, {abstract_opfilter,6}}).
--compile({nowarn_unused_function, {abstract_all,4}}).
--compile({nowarn_unused_function, {abstract_any,4}}).
--compile({nowarn_unused_function, {abstract_with,3}}).
--compile({nowarn_unused_function, {abstract_within,3}}).
--compile({nowarn_unused_function, {abstract_getkey,4}}).
--compile({nowarn_unused_function, {abstract_getkey_,4}}).
--compile({nowarn_unused_function, {abstract_getparam,3}}).
--compile({nowarn_unused_function, {param_variable,1}}).
--compile({nowarn_unused_function, {field_variable,1}}).
--compile({nowarn_unused_function, {field_variable_,1}}).
--compile({nowarn_unused_function, {compile_forms,2}}).
--compile({nowarn_unused_function, {load_binary,2}}).
-
-
--export(
-    compile/2
-).
-
--define(erl, erl_syntax).
-
--record(module, {
-    'query' :: term(),
-    tables :: {atom(), atom()},
-    qtree :: term(),
-    store :: term()
-}).
-
--type syntaxTree() :: erl_syntax:syntaxTree().
-
--record(state, {
-    event = undefined :: syntaxTree(),
-    fields =  :: {atom(), syntaxTree()},
-    fieldc = 0 :: non_neg_integer(),
-    paramvars =  :: {term(), syntaxTree()},
-    paramstab = undefined :: atom(),
-    countstab = undefined :: atom()
-}).
-
--type nextFun() :: fun((#state{}) -> syntaxTree()).
-
-compile(Module, ModuleData) ->
-    {ok, forms, Forms} = abstract_module(Module, ModuleData),
-    {ok, Module, Binary} = compile_forms(Forms, nowarn_unused_vars),
-    {ok, loaded, Module} = load_binary(Module, Binary),
-    {ok, Module}.
-
-%% abstract code generation functions
-
-%% @private Generate an abstract dispatch module.
--spec abstract_module(atom(), #module{}) -> {ok, forms, list()}.
-abstract_module(Module, Data) ->
-    Forms = ?erl:revert(E) || E <- abstract_module_(Module, Data),
-    case lists:keyfind(errors, 1, erl_syntax_lib:analyze_forms(Forms)) of
-        false -> {ok, forms, Forms};
-        {_, } -> {ok, forms, Forms};
-        {_, _|_}=Errors -> Errors
-    end.
-
-%% @private Generate an abstract dispatch module.
--spec abstract_module_(atom(), #module{}) -> ?erl:syntaxTree().
-abstract_module_(Module, #module{tables=Tables, 
-                                 qtree=Tree, store=Store}=Data) ->
-    {_, ParamsTable} = lists:keyfind(params, 1, Tables),
-    {_, CountsTable} = lists:keyfind(counters, 1, Tables),
-    AbstractMod = 
-     %% -module(Module)
-     ?erl:attribute(?erl:atom(module), ?erl:atom(Module)),
-     %% -export(
-     ?erl:attribute(
-       ?erl:atom(export),
-       ?erl:list(
-        %% get/1
-        ?erl:arity_qualifier(
-            ?erl:atom(get),
-            ?erl:integer(1)),
-        %% info/1
-        ?erl:arity_qualifier(
-            ?erl:atom(info),
-            ?erl:integer(1)),
-        %% reset_counters/1
-        ?erl:arity_qualifier(
-            ?erl:atom(reset_counters),
-            ?erl:integer(1)),
-        %% table/1
-        ?erl:arity_qualifier(
-            ?erl:atom(table),
-            ?erl:integer(1)),
-        ?erl:arity_qualifier(
-            ?erl:atom(runjob),
-            ?erl:integer(2)),
-        %% handle/1
-        ?erl:arity_qualifier(
-            ?erl:atom(handle),
-            ?erl:integer(1)))),
-     %% ).
-     %% get(Name) -> Term.
-     ?erl:function(
-        ?erl:atom(get),
-        abstract_get(Data) ++
-        ?erl:clause(
-            ?erl:underscore(), none,
-                ?erl:abstract({error, undefined}))),
-     %% info(Name) -> Term.
-     ?erl:function(
-        ?erl:atom(info),
-        abstract_info(Data) ++
-        ?erl:clause(
-            ?erl:underscore(), none,
-                abstract_apply(erlang, error, ?erl:atom(badarg)))),
-     %% reset_counters(Name) -> boolean().
-     ?erl:function(
-        ?erl:atom(reset_counters),
-        abstract_reset() ++
-        ?erl:clause(
-            ?erl:underscore(), none,
-                abstract_apply(erlang, error, ?erl:atom(badarg)))),
-     %% table(Name) -> atom().
-     ?erl:function(
-        ?erl:atom(table),
-        abstract_tables(Tables) ++
-        ?erl:clause(
-         ?erl:underscore(), none,
-            abstract_apply(erlang, error, ?erl:atom(badarg)))),
-     %% handle(Event) - entry function
-     ?erl:function(
-       ?erl:atom(handle),
-       ?erl:clause(?erl:variable("Event"), none,
-         abstract_count(input),
-          ?erl:application(none,
-            ?erl:atom(handle_), ?erl:variable("Event")))),
-     ?erl:function(
-       ?erl:atom(runjob),
-       ?erl:clause(?erl:variable("Fun"), ?erl:variable("Event"), none,
-         abstract_count(job_input),
-          ?erl:application(none,
-            ?erl:atom(job_), ?erl:variable("Fun"),
-                              ?erl:variable("Event")))),
-     %% input_(Node, App, Pid, Tags, Values) - filter roots
-     ?erl:function(
-        ?erl:atom(handle_),
-        ?erl:clause(?erl:variable("Event"), none,
-         abstract_filter(Tree, Data, #state{
-            event=?erl:variable("Event"),
-            paramstab=ParamsTable,
-            countstab=CountsTable}))),
-     ?erl:function(
-        ?erl:atom(job_),
-        ?erl:clause(?erl:variable("Fun"),
-                      ?erl:variable("Meta"), none,
-
-             ?erl:application(none,
-                        ?erl:atom(job_result), 
-                          ?erl:catch_expr(
-                            abstract_apply(glc_run, execute, 
-                                ?erl:variable("Fun"),
-                                ?erl:list(?erl:variable("Meta"), 
-                                           ?erl:abstract(Store))
-                            )),
-                            ?erl:variable("Meta"))
-              
-        )),
-     ?erl:function(
-        ?erl:atom(job_result),
-        abstract_runjob(Data)
-        )
-    ,
-    %% Transform Term -> Key to Key -> Term
-    gr_param:transform(ParamsTable),
-    AbstractMod.
-
-%% @private Return the clauses of the table/1 function.
-abstract_tables(Tables) ->
-    ?erl:clause(
-        ?erl:abstract(K), none,
-        ?erl:abstract(V))
-    || {K, V} <- Tables.
-
-abstract_query_find(K, Store) ->
-    case lists:keyfind(K, 1, Store) of
-        {_, Val} -> 
-            {ok, Val};
-        _ ->  
-            {error, notfound}
-    end.
-
-%% @private Return the original query as an expression.
-abstract_query({with, Query, _}) ->
-    ?erl:abstract(Query);
-abstract_query({with, _Query, _}|_ = I) ->
-    ?erl:abstract(Query || {with, Query, _} <- I);
-    %?erl:abstract(_Query);
-abstract_query({any, {with, _Q, _A}|_ = I}) ->
-    Queries = glc_lib:reduce(glc:any(Q || {with, Q, _} <- I)),
-    ?erl:abstract(Queries);
-abstract_query({all, {with, _Q, _A}|_ = I}) ->
-    Queries = glc_lib:reduce(glc:all(Q || {with, Q, _} <- I)),
-    ?erl:abstract(Queries);
-abstract_query(Query) ->
-    ?erl:abstract(Query).
-
-
-%% @private Return the clauses of the get/1 function.
-abstract_get(#module{'query'=_Query, store=undefined}) ->
-    ;
-abstract_get(#module{'query'=_Query, store=Store}) ->
-    ?erl:clause(?erl:abstract(K), none, 
-                 abstract_query(abstract_query_find(K, Store)))
-        || {K, _} <- Store.
-
-%% @private 
-abstract_runjob(#module{'query'=_Query, store=_Store}) ->
-    Time = abstract_apply(erlang, '/', ?erl:variable("Time"),
-                                        ?erl:abstract(1000000)),
-    ?erl:clause(?erl:variable("JobResult"),
-                  ?erl:variable("Meta"), none,
-      
-       ?erl:case_expr(?erl:variable("JobResult"),
-         
-          ?erl:clause(
-            ?erl:tuple(?erl:variable("Time"), ?erl:variable("Result")),
-            none,
-            ?erl:case_expr(?erl:variable("Result"),
-               
-                ?erl:clause(
-                  ?erl:tuple(?erl:atom(error),?erl:variable("Reason")),
-                  none,
-                  abstract_count(input), abstract_count(job_error),
-                   ?erl:application(none, ?erl:atom(handle_), 
-                        abstract_job(Time, ?erl:tuple(?erl:atom(error), 
-                                                        ?erl:variable("Reason")))),
-                   abstract_count(job_time, ?erl:variable("Time")),
-                   ?erl:tuple(?erl:variable("Time"), 
-                               ?erl:tuple(?erl:atom(error), 
-                                           ?erl:variable("Reason")))),
-
-                ?erl:clause(
-                  ?erl:variable("Result"),
-                  none,
-                  abstract_count(input), abstract_count(job_run),
-                   ?erl:application(none, ?erl:atom(handle_), 
-                        abstract_job(Time)),
-                   abstract_count(job_time, ?erl:variable("Time")),
-                   ?erl:tuple(?erl:variable("Time"), 
-                               ?erl:variable("Result")))
-               )
-            )
-         )
-      
-    ).
-
-abstract_job(Time) ->
-    abstract_job(Time, ).
-abstract_job(Time, Error) ->
-    Pairs = abstract_apply(gre, pairs, ?erl:variable("Meta")),
-    Runtime = ?erl:list(?erl:tuple(?erl:atom(runtime), Time)),
-    abstract_apply(gre, make, 
-              abstract_apply(erlang, '++', ?erl:list(Error), 
-                             abstract_apply(erlang, '++', Pairs, Runtime)),
-               ?erl:abstract(list)).
-
-%% @private Return the clauses of the info/1 function.
-abstract_info(#module{'query'=Query}) ->
-    ?erl:clause(?erl:abstract(K), none, V)
-        || {K, V} <- 
-        {'query', abstract_query(Query)},
-        {input, abstract_getcount(input)},
-        {filter, abstract_getcount(filter)},
-        {output, abstract_getcount(output)},
-        {job_input, abstract_getcount(job_input)},
-        {job_run, abstract_getcount(job_run)},
-        {job_time, abstract_getcount(job_time)},
-        {job_error, abstract_getcount(job_error)}
-    .
-
-
-abstract_reset() ->
-    ?erl:clause(?erl:abstract(K), none, V)
-        || {K, V} <- 
-        {all, abstract_resetcount(input, filter, output, 
-                                   job_input, job_run, 
-                                   job_time, job_error)},
-        {input, abstract_resetcount(input)},
-        {filter, abstract_resetcount(filter)},
-        {output, abstract_resetcount(output)},
-        {job_input, abstract_resetcount(job_input)},
-        {job_run, abstract_resetcount(job_run)},
-        {job_time, abstract_resetcount(job_time)},
-        {job_error, abstract_resetcount(job_error)}
-    .
-
-
-%% @private Return a list of expressions to apply a filter.
-%% @todo Allow mulitple functions to be specified using `with/2'.
--spec abstract_filter(glc_ops:op() | glc_ops:op(), #module{}, #state{}) -> syntaxTree().
-abstract_filter({Type, {with, _Cond, _Fun}|_ = I}, Data, State) when Type =:= all; Type =:= any ->
-    Cond = glc_lib:reduce(glc:Type(Q || {with, Q, _} <- I)),
-    abstract_filter_(Cond,
-        _OnMatch=fun(State2) ->
-            Funs =  F || {with, _, F} <- I ,
-            abstract_count(output) ++ 
-                abstract_with(Funs, Data, State2) end,
-        _OnNomatch=fun(_State2) -> abstract_count(filter) end, State);
-abstract_filter({with, _Cond, _Fun}|_ = I, Data, State) ->
-    OnNomatch = fun(_State2) -> abstract_count(filter, 0) end,
-    Funs = lists:foldr(fun({with, Cond, Fun}, Acc) -> 
-              {Cond, Fun, Data}|Acc
-      end, , I),
-    abstract_within(Funs, OnNomatch, State);
-abstract_filter({with, Cond, Fun}, Data, State) ->
-    abstract_filter_(Cond,
-        _OnMatch=fun(State2) ->
-            abstract_count(output) ++ 
-                abstract_with(Fun, Data, State2) end,
-        _OnNomatch=fun(_State2) -> abstract_count(filter) end, State);
-abstract_filter(Cond, _Data, State) ->
-    abstract_filter_(Cond,
-        _OnMatch=fun(_State2) -> abstract_count(output) end,
-        _OnNomatch=fun(_State2) -> abstract_count(filter) end, State).
-
-%% @private Return a list of expressions to apply a filter.
-%% A filter expects two continuation functions which generates the expressions
-%% to apply when the filter matches or fails to match. The state passed to the
-%% functions will contain all the variable bindings of previously accessed
-%% fields and parameters.
--spec abstract_filter_(glc_ops:op(), nextFun(), nextFun(), #state{}) ->
-        syntaxTree().
-abstract_filter_({null, true}, OnMatch, _OnNomatch, State) ->
-    OnMatch(State);
-abstract_filter_({null, false}, _OnMatch, OnNomatch, State) ->
-    OnNomatch(State);
-abstract_filter_({Key, '*'}, OnMatch, OnNomatch, State) ->
-    abstract_getkey(Key,
-        _OnMatch=fun(#state{}=State2) -> OnMatch(State2) end,
-        _OnNomatch=fun(State2) -> OnNomatch(State2) end, State);
-abstract_filter_({Key, '!'}, OnMatch, OnNomatch, State) ->
-    abstract_getkey(Key,
-        _OnNomatch=fun(State2) -> OnNomatch(State2) end, 
-        _OnMatch=fun(#state{}=State2) -> OnMatch(State2) end,
-                    State);
-abstract_filter_({Key, Op, Value}, OnMatch, OnNomatch, State)
-        when Op =:= '>'; Op =:= '='; Op =:= '!='; Op =:= '<';
-             Op =:= '>='; Op =:= '=<'; Op =:= '<=' ->
-    Op2 = case Op of 
-              '=' -> '=:=';  
-              '!=' -> '=/=';  
-              '<=' -> '=<';
-              Op -> Op 
-          end,
-    abstract_opfilter(Key, Op2, Value, OnMatch, OnNomatch, State);
-abstract_filter_({'any', Conds}, OnMatch, OnNomatch, State) ->
-    abstract_any(Conds, OnMatch, OnNomatch, State);
-abstract_filter_({'all', Conds}, OnMatch, OnNomatch, State) ->
-    abstract_all(Conds, OnMatch, OnNomatch, State).
-
-%% @private Return a branch based on a built in operator.
--spec abstract_opfilter(atom(), atom(), term(), nextFun(),
-        nextFun(), #state{}) -> syntaxTree().
-abstract_opfilter(Key, Opname, Value, OnMatch, OnNomatch, State) ->
-    abstract_getkey(Key,
-        _OnMatch=fun(#state{}=State2) ->
-            ?erl:case_expr(
-                abstract_apply(erlang, Opname, 
-                        ?erl:variable(field_variable(Key)),
-                        ?erl:abstract(Value)
-                ),
-                ?erl:clause(?erl:atom(true), none, 
-                    OnMatch(State2)),
-                 ?erl:clause(?erl:atom(false), none,
-                    OnNomatch(State2))) end,
-        _OnNomatch=fun(State2) -> OnNomatch(State2) end, State).
-
-%% @private Generate an `all' filter.
-%% An `all' filter is evaluated by testing all conditions that must hold. If
-%% any of the conditions does not hold the evaluation is short circuted at that
-%% point. This means that the `OnNomatch' branch is executed once for each
-%% condition. The `OnMatch' branch is only executed once.
--spec abstract_all(glc_ops:op(), nextFun(), nextFun(), #state{}) ->
-        syntaxTree().
-abstract_all(H|T, OnMatch, OnNomatch, State) ->
-    abstract_filter_(H,
-        _OnMatch=fun(State2) -> abstract_all(T, OnMatch, OnNomatch, State2)
-            end, OnNomatch, State);
-abstract_all(, OnMatch, _OnNomatch, State) ->
-    OnMatch(State).
-
-%% @private
--spec abstract_any(glc_ops:op(), nextFun(), nextFun(), #state{}) ->
-        syntaxTree().
-abstract_any(H|T, OnMatch, OnNomatch, State) ->
-    abstract_filter_(H, OnMatch,
-        _OnNomatch=fun(State2) -> abstract_any(T, OnMatch, OnNomatch, State2)
-        end, State);
-abstract_any(, _OnMatch, OnNomatch, State) ->
-    OnNomatch(State).
-
-%% @private
--spec abstract_with(fun((gre:event()) -> term()), 
-                    #module{}, #state{}) -> syntaxTree().
-abstract_with(Fun0|_ = Funs, Data, State) 
-  when is_function(Fun0, 1); is_function(Fun0, 2)  ->
-    abstract_getparam(Funs, fun(#state{event=Event, paramvars=Params}) ->
-           lists:map(fun(Fun) -> 
-                {_, Fun2} = lists:keyfind(Fun, 1, Params),
-                abstract_with_({Fun, Fun2}, Event, Data)
-           end, Funs)
-        end, State);
-abstract_with(Fun, Data, State) when is_function(Fun, 1); is_function(Fun, 2)  ->
-    abstract_getparam(Fun, fun(#state{event=Event, paramvars=Params}) ->
-            {_, Fun2} = lists:keyfind(Fun, 1, Params),
-            abstract_with_({Fun, Fun2}, Event, Data)
-        end, State).
-
-abstract_within({H, Fun, Data}|T, OnNomatch, State) ->
-    OnMatch = fun(State2) -> abstract_count(output) ++ 
-                              abstract_with(Fun, Data, State2) 
-                           ++ abstract_within(T, OnNomatch, State2)
-              end,
-    abstract_filter_(H, OnMatch,
-        _OnNomatch=fun(State2) -> 
-                           abstract_count(filter) ++ 
-                            abstract_within(T, OnNomatch, State2)
-        end, State);
-abstract_within(, OnNomatch, State) ->
-    OnNomatch(State).
-
-abstract_with_({Fun, Fun2}, Event, #module{store=Store}) ->
-    ?erl:application(none, Fun2, 
-                     case Fun of
-                         _ when is_function(Fun, 1) ->
-                             Event;
-                         _ when is_function(Fun, 2) ->
-                             Event, ?erl:abstract(Store)
-                     end).
-
-%% @private Bind the value of a field to a variable.
-%% If the value of a field has already been bound to a variable the previous
-%% binding is reused over re-accessing the value. The `OnMatch' function is
-%% expected to access the variable stored in the state record. The `OnNomatch'
-%% function must not attempt to access the variable.
--spec abstract_getkey(atom(), nextFun(), nextFun(), #state{}) ->
-        syntaxTree().
-abstract_getkey(Key, OnMatch, OnNomatch, #state{fields=Fields}=State) ->
-    case lists:keyfind(Key, 1, Fields) of
-        {Key, _Variable} -> OnMatch(State);
-        false -> abstract_getkey_(Key, OnMatch, OnNomatch, State)
-    end.
-
-
--spec abstract_getkey_(atom(), nextFun(), nextFun(), #state{}) ->
-        syntaxTree().
-abstract_getkey_(Key, OnMatch, OnNomatch, #state{
-        event=Event, fields=Fields}=State) ->
-    ?erl:case_expr(
-        abstract_apply(gre, find, ?erl:atom(Key), Event),
-        ?erl:clause(
-            ?erl:tuple(
-                ?erl:atom(true),
-                ?erl:variable(field_variable(Key))), none,
-             OnMatch(State#state{
-                fields={Key, ?erl:variable(field_variable(Key))}
-                    |Fields})),
-         ?erl:clause(
-            ?erl:atom(false), none,
-            OnNomatch(State))
-        
-    ).
-
-%% @private Bind the value of a parameter to a variable.
-%% During code generation the parameter value is used as the identity of the
-%% parameter. At runtime a unique integer is used as the identity.
--spec abstract_getparam(term(), nextFun(), #state{}) -> syntaxTree().
-abstract_getparam(_|_=Terms, OnBound, #state{paramvars=_Params, fields=_Fields,
-                                         paramstab=_ParamsTable}=State) 
-                                    when is_list(Terms) ->
-
-    {Keys, Bound} = lists:foldl(fun(Term, {Acc0, #state{paramvars=Params,
-                                         paramstab=ParamsTable}=State0}) ->
-        case lists:keyfind(Term, 1, Params) of
-            {_, _Variable} -> 
-                {Acc0, State0};
-
-            false ->
-                Key = abstract_getparam_key(Term, ParamsTable),
-                Lookup = abstract_apply(gr_param, lookup_element,
-                             abstract_apply(table, ?erl:atom(params)),
-                              ?erl:abstract(Key)),
-                Expr = ?erl:match_expr(param_variable(Key), Lookup),
-                State1 = State0#state{paramvars={Term, param_variable(Key)}|Params},
-                {Expr|Acc0, State1}
-
-        end
-    end, {, State}, Terms),
-    Keys ++ OnBound(Bound);
-abstract_getparam(Term, OnBound, #state{paramvars=Params}=State) ->
-    case lists:keyfind(Term, 1, Params) of
-        {_, _Variable} -> OnBound(State);
-        %% parameter not bound to variable in this scope.
-        false -> abstract_getparam(Term, OnBound, State)
-    end.
-
-abstract_getparam_key(Term, ParamsTable) ->
-    case gr_param:lookup(ParamsTable, Term) of
-        {_, Key2} ->
-            Key2;
-         ->
-            Key2 = gr_param:info_size(ParamsTable),
-            gr_param:insert(ParamsTable, {Term, Key2}),
-            Key2
-    end.
-
-%% @private Generate a variable name for the value of a field.
--spec field_variable(atom()) -> string().
-field_variable(Key) ->
-    "Field_" ++ field_variable_(atom_to_list(Key)).
-
-%% @private Escape non-alphanumeric values.
--spec field_variable_(string()) -> string().
-field_variable_(H|T) when H >= $0, H =< $9 ->
-    H|field_variable_(T);
-field_variable_(H|T) when H >= $A, H =< $Z ->
-    H|field_variable_(T);
-field_variable_(H|T) when H >= $a, H =< $z ->
-    H|field_variable_(T);
-field_variable_(H|T) ->
-    "_" ++ integer_to_list(H, 16) ++ "_" ++ field_variable_(T);
-field_variable_() ->
-    .
-
-%% @private Generate a variable name for the value of a parameter.
--spec param_variable(integer()) -> syntaxTree().
-param_variable(Key) ->
-    ?erl:variable("Param_" ++ integer_to_list(Key)).
-
-%% @ private Generate a list of field variable names.
-%% Walk the query tree and generate a safe variable name string for each field
-%% that is accessed by the conditions in the query. Only allow alpha-numeric.
-%%-spec field_variables(glc_ops:op()) -> {atom(), string()}.
-%%field_variables(Query) ->
-%%    lists:usort(field_variables_(Query)).
-
-%%-spec field_variables(glc_ops:op()) -> {atom(), string()}.
-%%field_variables_({Key, '=', _Term}) ->
-%%    {Key, field_variable(Key)}.
-
-
-
-%% @private Return an expression to increment a counter.
-%% @todo Pass state record. Only Generate code if `statistics' is enabled.
--spec abstract_count(atom()) -> syntaxTree().
-abstract_count(Counter) ->
-    abstract_count(Counter, 1).
-abstract_count(Counter, Value) when is_integer(Value) ->
-    abstract_apply(gr_counter, update_counter,
-        abstract_apply(table, ?erl:atom(counters)),
-         ?erl:abstract(Counter),
-         ?erl:abstract({2,Value}));
-abstract_count(Counter, Value) ->
-    abstract_apply(gr_counter, update_counter,
-        abstract_apply(table, ?erl:atom(counters)),
-         ?erl:abstract(Counter),
-         ?erl:tuple(?erl:abstract(2), Value)
-        ).
-
-
-%% @private Return an expression to get the value of a counter.
-%% @todo Pass state record. Only Generate code if `statistics' is enabled.
--spec abstract_getcount(atom()) -> syntaxTree().
-abstract_getcount(Counter) when is_atom(Counter) ->
-    abstract_getcount(?erl:abstract(Counter));
-abstract_getcount(Counter) ->
-    abstract_apply(gr_counter, lookup_element,
-        abstract_apply(table, ?erl:atom(counters)), Counter).
-
-%% @private Return an expression to reset a counter.
--spec abstract_resetcount(atom() | filter | input | output | 
-                                    job_input | job_run | job_time | job_error ) 
-                                                            -> syntaxTree().
-abstract_resetcount(Counter) ->
-    abstract_apply(gr_counter, reset_counters,
-        abstract_apply(table, ?erl:atom(counters)),
-         ?erl:abstract(Counter)).
-
-
-
-%% abstract code util functions
-
-
-%% @private Compile an abstract module.
--spec compile_forms(term(), term()) -> {ok, atom(), binary()}.
-compile_forms(Forms, Opts) ->
-    case compile:forms(Forms, Opts) of
-        {ok, Module, Binary} ->
-            {ok, Module, Binary};
-        {ok, Module, Binary, _Warnings} ->
-            {ok, Module, Binary};
-        Error ->
-            erlang:error({compile_forms, Error})
-    end.
-
-%% @private Load a module binary.
--spec load_binary(atom(), binary()) -> {ok, loaded, atom()}.
-load_binary(Module, Binary) ->
-    case code:load_binary(Module, "", Binary) of
-        {module, Module}  -> {ok, loaded, Module};
-        {error, Reason} -> exit({error_loading_module, Module, Reason})
-    end.
-
-%% @private Apply an exported function.
--spec abstract_apply(atom(), atom(), syntaxTree()) -> syntaxTree().
-abstract_apply(Module, Function, Arguments) ->
-    ?erl:application(?erl:atom(Module), ?erl:atom(Function), Arguments).
-
-%% @private Apply a module local function.
--spec abstract_apply(atom(), syntaxTree()) -> syntaxTree().
-abstract_apply(Function, Arguments) ->
-    ?erl:application(?erl:atom(Function), Arguments).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/goldrush/src/glc_lib.erl Deleted

@@ -1,451 +0,0 @@
-%% Copyright (c) 2012, Magnus Klaar <klaar@ninenines.eu>
-%%
-%% Permission to use, copy, modify, and/or distribute this software for any
-%% purpose with or without fee is hereby granted, provided that the above
-%% copyright notice and this permission notice appear in all copies.
-%%
-%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
-%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
-%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
-%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
-%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
-%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
-
-%% @doc Query processing functions.
--module(glc_lib).
-
--export(
-    reduce/1,
-    matches/2,
-    onoutput/1,
-    onoutput/2
-).
-
--ifdef(TEST).
--include_lib("eunit/include/eunit.hrl").
--undef(LET).
--ifdef(PROPER).
--include_lib("proper/include/proper.hrl").
--endif.
--endif.
-
-%% @doc Return a reduced version of a query.
-%% 
-%% The purpose of this function is to ensure that a query filter
-%% is in the simplest possible form. The query filter returned
-%% from this function is functionally equivalent to the original.
-reduce(Query) ->
-    repeat(Query, fun(Q0) ->
-        Q1 = repeat(Q0, fun flatten/1),
-        Q2 = required(Q1),
-        Q3 = repeat(Q2, fun flatten/1),
-        Q4 = common(Q3),
-        Q5 = repeat(Q4, fun flatten/1),
-        Q6 = constants(Q5),
-        Q6
-    end).
-
-
-%% @doc Test if an event matches a query.
-%% This function is only intended to be used for testing purposes.
-matches({any, Conds}, Event) ->
-    lists:any(fun(Cond) -> matches(Cond, Event) end, Conds);
-matches({all, Conds}, Event) ->
-    lists:all(fun(Cond) -> matches(Cond, Event) end, Conds);
-matches({null, Const}, _Event) ->
-    Const;
-matches({Key, '<', Term}, Event) ->
-    case gre:find(Key, Event) of
-        {true, Term2} -> Term2 < Term;
-        false -> false
-    end;
-matches({Key, '=<', Term}, Event) ->
-    case gre:find(Key, Event) of
-        {true, Term2} -> Term2 =< Term;
-        false -> false
-    end;
-matches({Key, '=', Term}, Event) ->
-    case gre:find(Key, Event) of
-        {true, Term2} -> Term2 =:= Term;
-        false -> false
-    end;
-matches({Key, '!=', Term}, Event) ->
-    case gre:find(Key, Event) of
-        {true, Term2} -> Term2 =/= Term;
-        false -> false
-    end;
-matches({Key, '>', Term}, Event) ->
-    case gre:find(Key, Event) of
-        {true, Term2} -> Term2 > Term;
-        false -> false
-    end;
-matches({Key, '>=', Term}, Event) ->
-    case gre:find(Key, Event) of
-        {true, Term2} -> Term2 >= Term;
-        false -> false
-    end;
-matches({Key, '*'}, Event) ->
-    case gre:find(Key, Event) of
-        {true, _} -> true;
-        false -> false
-    end;
-matches({Key, '!'}, Event) ->
-    not matches({Key, '*'}, Event).
-
-%% @private Repeatedly apply a function to a query.
-%% This is used for query transformation functions that must be applied
-%% multiple times to yield the simplest possible version of a query.
-repeat(Query, Fun) ->
-    case Fun(Query) of
-        Query -> Query;
-        Query2 -> repeat(Query2, Fun)
-    end.
-
-
-%% @doc Return the output action of a query.
--spec onoutput(glc_ops:op()) -> output | no_return().
-onoutput({_, '<', _}) ->
-    output;
-onoutput({_, '=<', _}) ->
-    output;
-onoutput({_, '=', _}) ->
-    output;
-onoutput({_, '>', _}) ->
-    output;
-onoutput({_, '>=', _}) ->
-    output;
-onoutput({_, '*'}) ->
-    output;
-onoutput({_, '!'}) ->
-    output;
-onoutput(Query) ->
-    erlang:error(badarg, Query).
-
-%% @doc Modify the output action of a query.
--spec onoutput(Action :: any(), Query :: glc_ops:op()) -> no_return().
-onoutput(Action, Query) ->
-    erlang:error(badarg, Action, Query).
-
-
-%% @private Flatten a condition tree.
-flatten({all, Cond}) ->
-    Cond;
-flatten({any, Cond}) ->
-    Cond;
-flatten({all, Conds}) ->
-    flatten_all(flatten(Cond) || Cond <- Conds);
-flatten({any, _|_=Conds}) ->
-    flatten_any(flatten(Cond) || Cond <- Conds);
-flatten({with, Cond, Action}) ->
-    {with, flatten(Cond), Action};
-flatten({with, _Cond, _Action}|_ = I) ->
-    {with, flatten(Cond), Action} || {with, Cond, Action} <- I;
-flatten(Other) ->
-    valid(Other).
-
-
-%% @private Flatten and remove duplicate members of an "all" filter.
-flatten_all(Conds) ->
-    {all, lists:usort(flatten_tag(all, Conds))}.
-
-%% @private Flatten and remove duplicate members of an "any" filter.
-flatten_any(Conds) ->
-    {any, lists:usort(flatten_tag(any, Conds))}.
-
-%% @private Common function for flattening "all" or "and" filters.
-flatten_tag(Tag, {Tag, Conds}|T) ->
-    Conds ++ flatten_tag(Tag, T);
-flatten_tag(Tag, H|T) ->
-    H|flatten_tag(Tag, T);
-flatten_tag(_Tag, ) ->
-    .
-
-%% @private Factor out required filters.
-%%
-%% Identical conditions may occur in all sub-filters of an "any" filter. These
-%% filters can be tested once before testing the conditions that are unique to
-%% each sub-filter.
-%%
-%% Assume that the input has been flattened first in order to eliminate all
-%% occurances of an "any" filters being "sub-filters" of "any" filters.
-required({any, H|_=Conds}) ->
-    Init = ordsets:from_list(case H of {all, Init2} -> Init2; H -> H end),
-    case required(Conds, Init) of
-        nonefound ->
-            Conds2 = required(Cond) || Cond <- Conds,
-            {any, Conds2};
-        {found, Req} ->
-            Conds2 = required(deleteall(Cond, Req)) || Cond <- Conds,
-            {all, {all, Req}, {any, Conds2}}
-    end;
-required({all, Conds}) ->
-    {all, required(Cond) || Cond <- Conds};
-required(Other) ->
-    Other.
-
-required({all, Conds}|T, Acc) ->
-    required(T, ordsets:intersection(ordsets:from_list(Conds), Acc));
-required({any, _}|_=Cond, Acc) ->
-    erlang:error(badarg, Cond, Acc);
-required(H|T, Acc) ->
-    required(T, ordsets:intersection(ordsets:from_list(H), Acc));
-required(, _|_=Req) ->
-    {found, Req};
-required(, ) ->
-    nonefound.
-
-%% @private Factor our common filters.
-%%
-%% Identical conditions may occur in some sub-filters of an "all" filter. These
-%% filters can be tested once before testing the conditions that are unique to
-%% each sub-filter. This is different from factoring out common sub-filters
-%% in an "any" filter where the only those sub-filters that exist in all
-%% members.
-%%
-%% Assume that the input has been flattened first in order to eliminate all
-%% occurances of an "any" filters being "sub-filters" of "any" filters.
-common({all, Conds}) ->
-    case common_(Conds, ) of
-        {found, Found} ->
-            {all, Found|delete(Cond, Found) || Cond <- Conds};
-        nonefound ->
-            {all, common(Cond) || Cond <- Conds}
-    end;
-common({any, Conds}) ->
-    {any, common(Cond) || Cond <- Conds};
-common(Other) ->
-    Other.
-    
-
-common_({any, Conds}|T, Seen) ->
-    Set = ordsets:from_list(Conds),
-    case ordsets:intersection(Set, Seen) of
-         -> common_(T, ordsets:union(Set, Seen));
-        H|_ -> {found, H}
-    end;
-common_(H|T, Seen) ->
-    case ordsets:is_element(H, Seen) of
-        false -> common_(T, ordsets:union(ordsets:from_list(H), Seen));
-        true -> {found, H}
-    end;
-common_(, _Seen) ->
-    nonefound.
-
-%% @private Delete all occurances of constants.
-%%
-%% An "all" or "any" filter may be reduced to a constant outcome when all
-%% sub-filters has been factored out from the filter. In these cases the
-%% filter can be removed from the query.
-constants(Query) ->
-    delete(Query, {null, true}).
-    
-
-
-%% @private Delete all occurances of a filter.
-%%
-%% Assume that the function is called because a filter is tested
-%% by a parent filter. It is therefore safe to replace occurances
-%% with a null filter that always returns true.
-delete({all, Conds}, Filter) ->
-    {all, delete(Cond, Filter) || Cond <- Conds, Cond =/= Filter};
-delete({any, Conds}, Filter) ->
-    {any, delete(Cond, Filter) || Cond <- Conds, Cond =/= Filter};
-delete(Filter, Filter) ->
-    {null, true};
-delete(Cond, _Filter) ->
-    Cond.
-
-%% @private Delete all occurances of multiple filters.
-deleteall(Filter, H|T) ->
-    deleteall(delete(Filter, H), T);
-deleteall(Filter, ) ->
-    Filter.
-
-
-
-%% @private Test if a term is a valid filter.
--spec is_valid(glc_ops:op()) -> boolean().
-is_valid({Field, '<', _Term}) when is_atom(Field) ->
-    true;
-is_valid({Field, '=<', _Term}) when is_atom(Field) ->
-    true;
-is_valid({Field, '=', _Term}) when is_atom(Field) ->
-    true;
-is_valid({Field, '!=', _Term}) when is_atom(Field) ->
-    true;
-is_valid({Field, '>=', _Term}) when is_atom(Field) ->
-    true;
-is_valid({Field, '>', _Term}) when is_atom(Field) ->
-    true;
-is_valid({Field, '*'}) when is_atom(Field) ->
-    true;
-is_valid({Field, '!'}) when is_atom(Field) ->
-    true;
-is_valid({null, true}) ->
-    true;
-is_valid({null, false}) ->
-    true;
-is_valid(_Other) ->
-    false.
-
-%% @private Assert that a term is a valid filter.
-%% If the term is a valid filter. The original term will be returned.
-%% If the term is not a valid filter. A `badarg' error is thrown.
-valid(Term) ->
-    is_valid(Term) orelse erlang:error(badarg, Term),
-    Term.
-
-
--ifdef(TEST).
--include_lib("eunit/include/eunit.hrl").
-
-all_one_test() ->
-    ?assertEqual(glc:eq(a, 1),
-        glc_lib:reduce(glc:all(glc:eq(a, 1)))
-    ).
-
-all_sort_test() ->
-    ?assertEqual(glc:all(glc:eq(a, 1), glc:eq(b, 2)),
-        glc_lib:reduce(glc:all(glc:eq(b, 2), glc:eq(a, 1)))
-    ).
-
-any_one_test() ->
-    ?assertEqual(glc:eq(a, 1),
-        glc_lib:reduce(glc:any(glc:eq(a, 1)))
-    ).
-
-all_two_test() ->
-    ?assertEqual(glc_lib:reduce(glc:all(glc:wc(a), glc:nf(b))),
-       glc_lib:reduce(glc:any(
-                    glc:all(glc:wc(a)), 
-                    glc:all(glc:wc(a), glc:nf(b))))
-    ).
-
-any_sort_test() ->
-    ?assertEqual(glc:any(glc:eq(a, 1), glc:eq(b, 2)),
-        glc_lib:reduce(glc:any(glc:eq(b, 2), glc:eq(a, 1)))
-    ).
-
-all_nest_test() ->
-    ?assertEqual(glc:all(glc:eq(a, 1), glc:eq(b, 2)),
-        glc_lib:reduce(glc:all(glc:eq(a, 1), glc:all(glc:eq(b, 2))))
-    ),
-    ?assertEqual(glc:all(glc:eq(a, 1), glc:eq(b, 2), glc:eq(c, 3)),
-        glc_lib:reduce(glc:all(glc:eq(c, 3),
-            glc:all(glc:eq(a, 1),
-                glc:all(glc:eq(b, 2)))))
-    ).
-
-any_nest_test() ->
-    ?assertEqual(glc:any(glc:eq(a, 1), glc:eq(b, 2)),
-        glc_lib:reduce(glc:any(glc:eq(a, 1), glc:any(glc:eq(b, 2))))
-    ),
-    ?assertEqual(glc:any(glc:eq(a, 1), glc:eq(b, 2), glc:eq(c, 3)),
-        glc_lib:reduce(glc:any(glc:eq(c, 3),
-            glc:any(glc:eq(a, 1),
-                glc:any(glc:eq(b, 2)))))
-    ).
-
-all_equiv_test() ->
-    ?assertEqual(glc:eq(a, 1),
-        glc_lib:reduce(glc:all(glc:eq(a, 1), glc:eq(a, 1)))
-    ).
-
-any_equiv_test() ->
-    ?assertEqual(glc:eq(a, 1),
-        glc_lib:reduce(glc:any(glc:eq(a, 1), glc:eq(a, 1)))
-    ).
-
-any_required_test() ->
-    ?assertEqual(
-        glc:all(
-            glc:any(glc:nf(d), glc:eq(b, 2), glc:eq(c, 3)),
-            glc:eq(a, 1)
-        ),
-        glc_lib:reduce(
-            glc:any(
-                glc:all(glc:eq(a, 1), glc:nf(d)),
-                glc:all(glc:eq(a, 1), glc:eq(b, 2)),
-                glc:all(glc:eq(a, 1), glc:eq(c, 3))))
-    ).
-        
-
-all_common_test() ->
-    ?assertEqual(
-        glc:all(glc:eq(a, 1), glc:eq(b, 2), glc:eq(c, 3)),
-        glc_lib:reduce(
-            glc:all(
-                glc:any(glc:eq(a, 1), glc:eq(b, 2)),
-                glc:any(glc:eq(a, 1), glc:eq(c, 3))))
-    ).
-
-delete_from_all_test() ->
-    ?assertEqual(
-        glc:all(glc:eq(b,2)),
-        deleteall(
-            glc:all(glc:eq(a, 1),glc:eq(b,2)), glc:eq(a, 1), glc:nf(a))
-    ).
-
-delete_from_any_test() ->
-    ?assertEqual(
-        glc:any(glc:eq(b,2)),
-        deleteall(
-            glc:any(glc:eq(a, 1),glc:eq(b,2)), glc:eq(a, 1), glc:wc(a))
-    ).
-
-default_is_output_test_() ->
-    ?_assertEqual(output, glc_lib:onoutput(glc:lt(a, 1))),
-     ?_assertEqual(output, glc_lib:onoutput(glc:lte(a, 1))),
-     ?_assertEqual(output, glc_lib:onoutput(glc:eq(a, 1))),
-     ?_assertEqual(output, glc_lib:onoutput(glc:gt(a, 1))),
-     ?_assertEqual(output, glc_lib:onoutput(glc:gte(a, 1))),
-     ?_assertEqual(output, glc_lib:onoutput(glc:wc(a))),
-     ?_assertEqual(output, glc_lib:onoutput(glc:nf(a)))
-    .
-
-matches_test_() ->
-    Event = gre:make({a, 2}, list),
-    ?_assertEqual(true, glc_lib:matches(glc:lt(a, 3), Event)),
-     ?_assertEqual(true, glc_lib:matches(glc:lte(a, 2), Event)),
-     ?_assertEqual(true, glc_lib:matches(glc:eq(a, 2), Event)),
-     ?_assertEqual(true, glc_lib:matches(glc:gt(a, 1), Event)),
-     ?_assertEqual(true, glc_lib:matches(glc:gte(a, 2), Event)),
-     ?_assertEqual(true, glc_lib:matches(glc:wc(a), Event)),
-     ?_assertEqual(true, glc_lib:matches(glc:nf(b), Event)),
-
-     ?_assertEqual(false, glc_lib:matches(glc:lt(a, 2), Event)),
-     ?_assertEqual(false, glc_lib:matches(glc:lte(a, 1), Event)),
-     ?_assertEqual(false, glc_lib:matches(glc:eq(a, 3), Event)),
-     ?_assertEqual(false, glc_lib:matches(glc:gt(a, 2), Event)),
-     ?_assertEqual(false, glc_lib:matches(glc:gte(a, 3), Event)),
-     ?_assertEqual(false, glc_lib:matches(glc:wc(b), Event)),
-     ?_assertEqual(false, glc_lib:matches(glc:nf(a), Event))
-    .
-
--ifdef(PROPER).
-
-
-prop_reduce_returns() ->
-    ?FORALL(Query, glc_ops:op(),
-        returns(fun() -> glc_lib:reduce(Query) end)).
-
-reduce_returns_test() ->
-    ?assert(proper:quickcheck(prop_reduce_returns())).
-
-prop_matches_returns_boolean() ->
-    ?FORALL({Query, Event}, {glc_ops:op(), {atom(), term()}},
-        is_boolean(glc_lib:matches(Query, gre:make(Event, list)))).
-
-matches_returns_boolean_test() ->
-    ?assert(proper:quickcheck(prop_matches_returns_boolean())).
-
-returns(Fun) ->
-    try Fun(),
-        true
-    catch _:_ ->
-        false
-    end.
-
--endif.
--endif.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/goldrush/src/glc_ops.erl Deleted

@@ -1,155 +0,0 @@
-%% @doc Built in operators.
--module(glc_ops).
-
--export(
-    lt/2, lte/2,
-    eq/2, neq/2,
-    gt/2, gte/2,
-    wc/1,
-    nf/1
-).
-
--export(
-    all/1,
-    any/1,
-    null/1,
-    with/2
-).
-
--export(
-    union/1
-).
-
--type op() ::
-    {atom(), '<', term()} |
-    {atom(), '=<', term()} |
-    {atom(), '=', term()} |
-    {atom(), '!=', term()} |
-    {atom(), '>', term()} |
-    {atom(), '>=', term()} |
-    {atom(), '*'} |
-    {atom(), '!'} |
-    {any, op(), ...} |
-    {all, op(), ...} |
-    {null, true|false}.
-
--export_type(op/0).
-
-%% @doc Test that a field value is less than a term.
--spec lt(atom(), term()) -> op().
-lt(Key, Term) when is_atom(Key) ->
-    {Key, '<', Term};
-lt(Key, Term) ->
-    erlang:error(badarg, Key, Term).
-
-
-%% @doc Test that a field value is less than or equal to a term.
--spec lte(atom(), term()) -> op().
-lte(Key, Term) when is_atom(Key) ->
-    {Key, '=<', Term};
-lte(Key, Term) ->
-    erlang:error(badarg, Key, Term).
-
-%% @doc Test that a field value is equal to a term.
--spec eq(atom(), term()) -> op().
-eq(Key, Term) when is_atom(Key) ->
-    {Key, '=', Term};
-eq(Key, Term) ->
-    erlang:error(badarg, Key, Term).
-
-%% @doc Test that a field value is not equal to a term.
--spec neq(atom(), term()) -> op().
-neq(Key, Term) when is_atom(Key) ->
-    {Key, '!=', Term};
-neq(Key, Term) ->
-    erlang:error(badarg, Key, Term).
-
-
-%% @doc Test that a field value is greater than a term.
--spec gt(atom(), term()) -> op().
-gt(Key, Term) when is_atom(Key) ->
-    {Key, '>', Term};
-gt(Key, Term) ->
-    erlang:error(badarg, Key, Term).
-
-%% @doc Test that a field value is greater than or equal to a term.
--spec gte(atom(), term()) -> op().
-gte(Key, Term) when is_atom(Key) ->
-    {Key, '>=', Term};
-gte(Key, Term) ->
-    erlang:error(badarg, Key, Term).
-
-%% @doc Test that a field exists.
--spec wc(atom()) -> op().
-wc(Key) when is_atom(Key) ->
-    {Key, '*'};
-wc(Key) ->
-    erlang:error(badarg, Key).
-
-%% @doc Test that a field is not found.
--spec nf(atom()) -> op().
-nf(Key) when is_atom(Key) ->
-    {Key, '!'};
-nf(Key) ->
-    erlang:error(badarg, Key).
-
-%% @doc Filter the input using multiple filters.
-%%
-%% For an input to be considered valid output the all filters specified
-%% in the list must hold for the input event. The list is expected to
-%% be a non-empty list. If the list of filters is an empty list a `badarg'
-%% error will be thrown.
--spec all(op()) -> op().
-all(_|_=Conds) ->
-    {all, Conds};
-all(Other) ->
-    erlang:error(badarg, Other).
-
-%% @doc Filter the input using one of multiple filters.
-%%
-%% For an input to be considered valid output on of the filters specified
-%% in the list must hold for the input event. The list is expected to be
-%% a non-empty list. If the list of filters is an empty list a `badarg'
-%% error will be thrown.
--spec any(op()) -> op().
-any(_|_=Conds) ->
-    {any, Conds};
-any(Other) ->
-    erlang:error(badarg, Other).
-
-
-%% @doc Always return `true' or `false'.
--spec null(boolean()) -> op().
-null(Result) when is_boolean(Result) ->
-    {null, Result};
-null(Result) ->
-    erlang:error(badarg, Result).
-
-%% @doc Apply a function to each output of a query.
-%%
-%% Updating the output action of a query finalizes it. Attempting
-%% to use a finalized query to construct a new query will result
-%% in a `badarg' error.
--spec with(op(), fun((gre:event()) -> term())) -> op().
-with(Query, Fun) when is_function(Fun, 1);
-                      is_function(Fun, 2) ->
-    {with, Query, Fun};
-with(Query, Fun) ->
-    erlang:error(badarg, Query, Fun).
-
-%% @doc Return a union of multiple queries.
-%%
-%% The union of multiple queries is the equivalent of executing multiple
-%% queries separately on the same input event. The advantage is that filter
-%% conditions that are common to all or some of the queries only need to
-%% be tested once.
-%%
-%% All queries are expected to be valid and have an output action other
-%% than the default which is `output'. If these expectations don't hold
-%% a `badarg' error will be thrown.
--spec union(op()) -> op().
-union(Queries) ->
-    case Query || Query <- Queries, glc_lib:onoutput(Query) =:= output of
-         -> {union, Queries};
-        _|_ -> erlang:error(badarg, Queries)
-    end.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/goldrush/src/glc_run.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/goldrush/src/goldrush.app.src Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/goldrush/src/gr_app.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/goldrush/src/gr_context.erl Deleted

@@ -1,71 +0,0 @@
-%% Copyright (c) 2012, Magnus Klaar <klaar@ninenines.eu>
-%%
-%% Permission to use, copy, modify, and/or distribute this software for any
-%% purpose with or without fee is hereby granted, provided that the above
-%% copyright notice and this permission notice appear in all copies.
-%%
-%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
-%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
-%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
-%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
-%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
-%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
-
-%% @doc Runtime context for events.
--module(gr_context).
-
--export(
-    make/1
-).
-
-make(Options) ->
-    make_(undefined, undefined, undefined, undefined, Options).
-
-make_(_Node, App, Pid, Time, {'$n', Node}|T) ->
-    make_(Node, App, Pid, Time, T);
-make_(Node, _App, Pid, Time, {'$a', App}|T) ->
-    make_(Node, App, Pid, Time, T);
-make_(Node, App, _Pid, Time, {'$p', Pid}|T) ->
-    make_(Node, App, Pid, Time, T);
-make_(Node, App, Pid, _Time, {'$t', Time}|T) ->
-    make_(Node, App, Pid, Time, T);
-make_(Node, App, Pid, Time, ) ->
-    Pid2 = case Pid of undefined -> self(); _ -> Pid end,
-    Node2 = case Node of undefined -> node(Pid2); _ -> Node end,
-    App2 = case App of undefined -> application(Pid2); _ -> App end,
-    Time2 = case Time of undefined -> os:timestamp(); _ -> Time end,
-    {Node2, App2, Pid2, Time2}.
-
-application(Pid) when Pid =:= self() ->
-    case application:get_application(group_leader()) of
-        {ok, App} -> App;
-        undefined -> undefined
-    end;
-application(Pid) ->
-    {_, GroupLeader} = erlang:process_info(Pid, group_leader),
-    case application:get_application(GroupLeader) of
-        {ok, App} -> App;
-        undefined -> undefined
-    end.
-
--ifdef(TEST).
--include_lib("eunit/include/eunit.hrl").
-
-make_defaults_test() ->
-    {Node, App, Pid, Time} = gr_context:make(),
-    ?assertEqual(Node, node()),
-    ?assertEqual(Pid, self()),
-    ?assert(is_atom(App)),
-    ?assertMatch({_,_,_}, Time).
-
-
-make_override_test() ->
-    Pid = spawn(fun() -> ok end),
-    {Node, App, Pid, Time} = gr_context:make(
-        {'$n', nodename}, {'$a', appname}, {'$p', Pid}, {'$t', timeval}),
-    ?assertEqual(nodename, Node),
-    ?assertEqual(appname, App),
-    ?assertEqual(timeval, Time).
-
--endif.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/goldrush/src/gr_counter.erl Deleted

@@ -1,268 +0,0 @@
-%% Copyright (c) 2013, Pedram Nimreezi <deadzen@deadzen.com>
-%%
-%% Permission to use, copy, modify, and/or distribute this software for any
-%% purpose with or without fee is hereby granted, provided that the above
-%% copyright notice and this permission notice appear in all copies.
-%%
-%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
-%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
-%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
-%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
-%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
-%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
-
--module(gr_counter).
-
--behaviour(gen_server).
-
-%% API
--export(start_link/1, 
-         list/1, lookup_element/2,
-         insert_counter/3,
-         update_counter/3, reset_counters/2).
-
-%% gen_server callbacks
--export(init/1,
-         handle_call/3,
-         handle_cast/2,
-         handle_info/2,
-         terminate/2,
-         code_change/3).
-
--record(state, {table_id, waiting=}).
-
-%%%===================================================================
-%%% API
-%%%===================================================================
-list(Server) ->
-    case (catch gen_server:call(Server, list)) of
-        {'EXIT', _Reason} ->
-            list(gr_manager:wait_for_pid(Server));
-        Else -> Else
-    end.
-
-lookup_element(Server, Term) ->
-    case (catch gen_server:call(Server, {lookup_element, Term})) of
-        {'EXIT', _Reason} ->
-            lookup_element(gr_manager:wait_for_pid(Server), Term);
-        Else -> Else
-    end.
-
-insert_counter(Server, Counter, Value) when is_atom(Server) ->
-    case whereis(Server) of
-        undefined -> 
-            insert_counter(gr_manager:wait_for_pid(Server), Counter, Value);
-        Pid -> 
-            case erlang:is_process_alive(Pid) of
-                true ->
-                    insert_counter(Pid, Counter, Value);
-                false ->
-                    ServerPid = gr_manager:wait_for_pid(Server),
-                    insert_counter(ServerPid, Counter, Value)
-            end
-    end;
-insert_counter(Server, Counter, Value) when is_pid(Server) ->
-    case (catch gen_server:call(Server, {insert_counter, Counter, Value})) of
-        {'EXIT', _Reason} ->
-            insert_counter(gr_manager:wait_for_pid(Server), Counter, Value);
-        Else -> Else
-    end.
-
-update_counter(Server, Counter, Value) when is_atom(Server) ->
-    case whereis(Server) of
-        undefined -> 
-            update_counter(gr_manager:wait_for_pid(Server), Counter, Value);
-        Pid -> 
-            case erlang:is_process_alive(Pid) of
-                true ->
-                    update_counter(Pid, Counter, Value);
-                false ->
-                    ServerPid = gr_manager:wait_for_pid(Server),
-                    update_counter(ServerPid, Counter, Value)
-            end
-    end;
-update_counter(Server, Counter, Value) when is_pid(Server) ->
-    gen_server:cast(Server, {update, Counter, Value}).
-
-reset_counters(Server, Counter) ->
-    case (catch gen_server:call(Server, {reset_counters, Counter})) of
-        {'EXIT', _Reason} ->
-            reset_counters(gr_manager:wait_for_pid(Server), Counter);
-        Else -> Else
-    end.
-
-%%--------------------------------------------------------------------
-%% @doc
-%% Starts the server
-%%
-%% @spec start_link(Name) -> {ok, Pid} | ignore | {error, Error}
-%% @end
-%%--------------------------------------------------------------------
-start_link(Name) ->
-    gen_server:start_link({local, Name}, ?MODULE, , ).
-
-%%%===================================================================
-%%% gen_server callbacks
-%%%===================================================================
-
-%%--------------------------------------------------------------------
-%% @private
-%% @doc
-%% Initializes the server
-%%
-%% @spec init(Args) -> {ok, State} |
-%%                     {ok, State, Timeout} |
-%%                     ignore |
-%%                     {stop, Reason}
-%% @end
-%%--------------------------------------------------------------------
-init() ->
-    {ok, #state{}}.
-
-%%--------------------------------------------------------------------
-%% @private
-%% @doc
-%% Handling call messages
-%%
-%% @spec handle_call(Request, From, State) ->
-%%                                   {reply, Reply, State} |
-%%                                   {reply, Reply, State, Timeout} |
-%%                                   {noreply, State} |
-%%                                   {noreply, State, Timeout} |
-%%                                   {stop, Reason, Reply, State} |
-%%                                   {stop, Reason, State}
-%% @end
-%%--------------------------------------------------------------------
-handle_call(list=Call, From, State) ->
-    TableId = State#state.table_id,
-    Waiting = State#state.waiting,
-    case TableId of
-        undefined -> {noreply, State#state{waiting={Call, From}|Waiting}};
-        _ -> {reply, lists:sort(handle_list(TableId)), State}
-    end;
-handle_call({lookup_element, Term}=Call, From, State) ->
-    TableId = State#state.table_id,
-    Waiting = State#state.waiting,
-    case TableId of
-        undefined -> {noreply, State#state{waiting={Call, From}|Waiting}};
-        _ -> {reply, handle_lookup_element(TableId, Term), State}
-    end;
-handle_call({insert_counter, Counter, Value}, From, State) ->
-    Term = {Counter, Value},
-    Call = {insert, Term},
-    TableId = State#state.table_id,
-    Waiting = State#state.waiting,
-    case TableId of
-        undefined -> {noreply, State#state{waiting={Call, From}|Waiting}};
-        _ -> {reply, handle_insert(TableId, Term), State}
-    end;
-handle_call({reset_counters, Counter}, From, State) ->
-    Term = case Counter of
-        _ when is_list(Counter) -> 
-            {Item, 0} || Item <- Counter;
-        _ when is_atom(Counter) -> 
-            {Counter, 0}
-    end,
-    Call = {insert, Term},
-    TableId = State#state.table_id,
-    Waiting = State#state.waiting,
-    case TableId of
-        undefined -> {noreply, State#state{waiting={Call, From}|Waiting}};
-        _ -> {reply, handle_insert(TableId, Term), State}
-    end;
-handle_call(_Request, _From, State) ->
-    Reply = {error, unhandled_message},
-    {reply, Reply, State}.
-
-%%--------------------------------------------------------------------
-%% @private
-%% @doc
-%% Handling cast messages
-%%
-%% @spec handle_cast(Msg, State) -> {noreply, State} |
-%%                                  {noreply, State, Timeout} |
-%%                                  {stop, Reason, State}
-%% @end
-%%--------------------------------------------------------------------
-handle_cast({update, Counter, Value}=Call, State) ->
-    TableId = State#state.table_id,
-    Waiting = State#state.waiting,
-    State2 = case TableId of
-        undefined -> State#state{waiting=Call|Waiting};
-        _ -> _ = handle_update_counter(TableId, Counter, Value), 
-             State
-    end,
-    {noreply, State2};
-handle_cast(_Msg, State) ->
-    {noreply, State}.
-
-%%--------------------------------------------------------------------
-%% @private
-%% @doc
-%% Handling all non call/cast messages
-%%
-%% @spec handle_info(Info, State) -> {noreply, State} |
-%%                                   {noreply, State, Timeout} |
-%%                                   {stop, Reason, State}
-%% @end
-%%--------------------------------------------------------------------
-handle_info({'ETS-TRANSFER', TableId, _Pid, _Data}, State) ->
-    _ =  gen_server:reply(From, perform_call(TableId, Call)) 
-      || {Call, From} <- State#state.waiting ,
-    _ =  handle_update_counter(TableId, Counter, Value) 
-      || {update, Counter, Value} <- State#state.waiting ,
-    {noreply, State#state{table_id=TableId, waiting=}};
-handle_info(_Info, State) ->
-    {noreply, State}.
-
-%%--------------------------------------------------------------------
-%% @private
-%% @doc
-%% This function is called by a gen_server when it is about to
-%% terminate. It should be the opposite of Module:init/1 and do any
-%% necessary cleaning up. When it returns, the gen_server terminates
-%% with Reason. The return value is ignored.
-%%
-%% @spec terminate(Reason, State) -> void()
-%% @end
-%%--------------------------------------------------------------------
-terminate(_Reason, _State) ->
-    ok.
-
-%%--------------------------------------------------------------------
-%% @private
-%% @doc
-%% Convert process state when code is changed
-%%
-%% @spec code_change(OldVsn, State, Extra) -> {ok, NewState}
-%% @end
-%%--------------------------------------------------------------------
-code_change(_OldVsn, State, _Extra) ->
-    {ok, State}.
-
-%%%===================================================================
-%%% Internal functions
-%%%===================================================================
-
-perform_call(TableId, Call) ->
-    case Call of
-        list ->
-            handle_list(TableId);
-        {insert, Term} ->
-            handle_insert(TableId, Term);
-        {lookup_element, Term} ->
-            handle_lookup_element(TableId, Term)
-    end.
-
-handle_list(TableId) ->
-    ets:tab2list(TableId).
-
-handle_update_counter(TableId, Counter, Value) ->
-    ets:update_counter(TableId, Counter, Value).
-
-handle_insert(TableId, Term) ->
-    ets:insert(TableId, Term).
-
-handle_lookup_element(TableId, Term) ->
-    ets:lookup_element(TableId, Term, 2).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/goldrush/src/gr_counter_sup.erl Deleted

@@ -1,42 +0,0 @@
-%% Copyright (c) 2013, Pedram Nimreezi <deadzen@deadzen.com>
-%%
-%% Permission to use, copy, modify, and/or distribute this software for any
-%% purpose with or without fee is hereby granted, provided that the above
-%% copyright notice and this permission notice appear in all copies.
-%%
-%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
-%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
-%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
-%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
-%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
-%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
-
--module(gr_counter_sup).
-
--behaviour(supervisor).
-
--type startlink_err() :: {'already_started', pid()} | 'shutdown' | term().
--type startlink_ret() :: {'ok', pid()} | 'ignore' | {'error', startlink_err()}.
-
-%% API
--export(start_link/0).
-
-%% Supervisor callbacks
--export(init/1).
-
-%% ===================================================================
-%% API functions
-%% ===================================================================
-%% @hidden
--spec start_link() -> startlink_ret().
-start_link() ->
-    supervisor:start_link({local, ?MODULE}, ?MODULE, ).
-
-%% ===================================================================
-%% Supervisor callbacks
-%% ===================================================================
-%% @hidden
--spec init() -> {ok, { {one_for_one, 50, 10}, supervisor:child_spec()} }.
-init(_Args) ->
-    {ok, { {one_for_one, 50, 10}, } }.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/goldrush/src/gr_manager.erl Deleted

@@ -1,185 +0,0 @@
-%% Copyright (c) 2013, Pedram Nimreezi <deadzen@deadzen.com>
-%%
-%% Permission to use, copy, modify, and/or distribute this software for any
-%% purpose with or without fee is hereby granted, provided that the above
-%% copyright notice and this permission notice appear in all copies.
-%%
-%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
-%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
-%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
-%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
-%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
-%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
-
-
-%% @doc Process table manager for goldrush.
-%%
-%% Manager responsible for the processes, which serve as heir of the 
-%% {@link gr_counter:start_link/0. <em>Counter</em>} and
-%% {@link gr_param:start_link/0. <em>Param</em>} ets table processes.
-%% This process creates the table and initial data then assigns itself
-%% to inherit the ets table if any process responsible for it is killed.
-%% It then waits to give it back while that process is recreated by its 
-%% supervisor.
--module(gr_manager).
--behaviour(gen_server).
-
-%% API
--export(start_link/3, wait_for_pid/1).
-
-%% gen_server callbacks
--export(init/1,
-         handle_call/3,
-         handle_cast/2,
-         handle_info/2,
-         terminate/2,
-         code_change/3).
-
--define(SERVER, ?MODULE).
-
--record(state, {table_id :: ets:tab(), managee :: atom()}).
-
-%%%===================================================================
-%%% API
-%%%===================================================================
-
-%% Setup the initial data for the ets table
--spec setup(atom() | pid(), term()) -> ok.
-setup(Name, Data) ->
-    gen_server:cast(Name, {setup, Data}).
-
-%%--------------------------------------------------------------------
-%% @doc
-%% Starts the server
-%%
-%% @spec start_link(Name, Managee, Data) -> {ok, Pid} | ignore | 
-%%                                          {error, Error}
-%% @end
-%%--------------------------------------------------------------------
-start_link(Name, Managee, Data) ->
-    gen_server:start_link({local, Name}, ?MODULE, Managee, Data, ).
-
-%%%===================================================================
-%%% gen_server callbacks
-%%%===================================================================
-
-%%--------------------------------------------------------------------
-%% @private
-%% @doc
-%% Initializes the server
-%%
-%% @spec init(Args) -> {ok, State} |
-%%                     {ok, State, Timeout} |
-%%                     ignore |
-%%                     {stop, Reason}
-%% @end
-%%--------------------------------------------------------------------
-init(Managee, Data) ->
-    process_flag(trap_exit, true),
-    setup(self(), Data),
-    {ok, #state{managee=Managee}}.
-
-%%--------------------------------------------------------------------
-%% @private
-%% @doc
-%% Handling call messages
-%%
-%% @spec handle_call(Request, From, State) ->
-%%                                   {reply, Reply, State} |
-%%                                   {reply, Reply, State, Timeout} |
-%%                                   {noreply, State} |
-%%                                   {noreply, State, Timeout} |
-%%                                   {stop, Reason, Reply, State} |
-%%                                   {stop, Reason, State}
-%% @end
-%%--------------------------------------------------------------------
-handle_call(_Request, _From, State) ->
-    Reply = {error, unhandled_message},
-    {reply, Reply, State}.
-
-%%--------------------------------------------------------------------
-%% @private
-%% @doc
-%% Handling cast messages
-%%
-%% @spec handle_cast(Msg, State) -> {noreply, State} |
-%%                                  {noreply, State, Timeout} |
-%%                                  {stop, Reason, State}
-%% @end
-%%--------------------------------------------------------------------
-handle_cast({setup, Data}, State = #state{managee=Managee}) ->
-    ManageePid = whereis(Managee),
-    link(ManageePid),
-    TableId = ets:new(?MODULE, set, private),
-    ets:insert(TableId, Data),
-    ets:setopts(TableId, {heir, self(), Data}),
-    ets:give_away(TableId, ManageePid, Data),
-    {noreply, State#state{table_id=TableId}};
-handle_cast(_Msg, State) ->
-    {noreply, State}.
-
-%%--------------------------------------------------------------------
-%% @private
-%% @doc
-%% Handling all non call/cast messages
-%%
-%% @spec handle_info(Info, State) -> {noreply, State} |
-%%                                   {noreply, State, Timeout} |
-%%                                   {stop, Reason, State}
-%% @end
-%%--------------------------------------------------------------------
-handle_info({'EXIT', _Pid, _Reason}, State) ->
-    {noreply, State};
-handle_info({'ETS-TRANSFER', TableId, _Pid, Data}, State = #state{managee=Managee}) ->
-    ManageePid = wait_for_pid(Managee),
-    link(ManageePid),
-    ets:give_away(TableId, ManageePid, Data),
-    {noreply, State#state{table_id=TableId}}.
-
-%% @doc Wait for a registered process to be associated to a process identifier.
-%% @spec wait_for_pid(Managee) -> ManageePid
--spec wait_for_pid(atom()) -> pid().
-wait_for_pid(Managee) when is_pid(Managee) -> 
-    Managee;
-wait_for_pid(Managee) when is_atom(Managee), Managee =/= undefined -> 
-    case whereis(Managee) of
-        undefined -> 
-            timer:sleep(1),
-            wait_for_pid(Managee);
-        ManageePid -> ManageePid
-    end.
-
-
-
-%%--------------------------------------------------------------------
-%% @private
-%% @doc
-%% This function is called by a gen_server when it is about to
-%% terminate. It should be the opposite of Module:init/1 and do any
-%% necessary cleaning up. When it returns, the gen_server terminates
-%% with Reason. The return value is ignored.
-%%
-%% @spec terminate(Reason, State) -> void()
-%% @end
-%%--------------------------------------------------------------------
-terminate(_Reason, _State) ->
-    ok.
-
-%%--------------------------------------------------------------------
-%% @private
-%% @doc
-%% Convert process state when code is changed
-%%
-%% @spec code_change(OldVsn, State, Extra) -> {ok, NewState}
-%% @end
-%%--------------------------------------------------------------------
-code_change(_OldVsn, State, _Extra) ->
-    {ok, State}.
-
-%%%===================================================================
-%%% Internal functions
-%%%===================================================================
-
-
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/goldrush/src/gr_manager_sup.erl Deleted

@@ -1,47 +0,0 @@
-%% Copyright (c) 2013, Pedram Nimreezi <deadzen@deadzen.com>
-%%
-%% Permission to use, copy, modify, and/or distribute this software for any
-%% purpose with or without fee is hereby granted, provided that the above
-%% copyright notice and this permission notice appear in all copies.
-%%
-%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
-%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
-%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
-%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
-%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
-%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
-
-%% @doc Table manager supervisor for all goldrush ets process tables.
-%%
-%% Manager supervisor responsible for the {@link gr_manager:start_link/3. 
-%% <em>Manager</em>} processes, which serve as heir of the 
-%% {@link gr_counter:start_link/0. <em>Counter</em>} and
-%% {@link gr_param:start_link/0. <em>Param</em>} ets table processes.
--module(gr_manager_sup).
--behaviour(supervisor).
-
--type startlink_err() :: {'already_started', pid()} | 'shutdown' | term().
--type startlink_ret() :: {'ok', pid()} | 'ignore' | {'error', startlink_err()}.
-
-%% API
--export(start_link/0).
-
-%% Supervisor callbacks
--export(init/1).
-
-%% ===================================================================
-%% API functions
-%% ===================================================================
-%% @hidden
--spec start_link() -> startlink_ret().
-start_link() ->
-    supervisor:start_link({local, ?MODULE}, ?MODULE, ).
-
-%% ===================================================================
-%% Supervisor callbacks
-%% ===================================================================
-%% @hidden
--spec init() -> {ok, { {one_for_one, 50, 10}, supervisor:child_spec()} }.
-init(_Args) ->
-    {ok, { {one_for_one, 50, 10}, } }.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/goldrush/src/gr_param.erl Deleted

@@ -1,269 +0,0 @@
-%% Copyright (c) 2013, Pedram Nimreezi <deadzen@deadzen.com>
-%%
-%% Permission to use, copy, modify, and/or distribute this software for any
-%% purpose with or without fee is hereby granted, provided that the above
-%% copyright notice and this permission notice appear in all copies.
-%%
-%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
-%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
-%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
-%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
-%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
-%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
-
--module(gr_param).
-
--behaviour(gen_server).
-
-%% API
--export(start_link/1, 
-         list/1, insert/2, 
-         lookup/2, lookup_element/2,
-         info/1, info_size/1, transform/1).
-
-%% gen_server callbacks
--export(init/1,
-         handle_call/3,
-         handle_cast/2,
-         handle_info/2,
-         terminate/2,
-         code_change/3).
-
--record(state, {table_id, waiting=}).
-
-%%%===================================================================
-%%% API
-%%%===================================================================
-list(Server) ->
-    case (catch gen_server:call(Server, list)) of
-        {'EXIT', _Reason} ->
-            list(gr_manager:wait_for_pid(Server));
-        Else -> Else
-    end.
-
-info_size(Server) ->
-    case (catch gen_server:call(Server, info_size)) of
-        {'EXIT', _Reason} ->
-            info_size(gr_manager:wait_for_pid(Server));
-        Else -> Else
-    end.
-
-insert(Server, Term) ->
-    case (catch gen_server:call(Server, {insert, Term})) of
-        {'EXIT', _Reason} ->
-            insert(gr_manager:wait_for_pid(Server), Term);
-        Else -> Else
-    end.
-
-lookup(Server, Term) ->
-    case (catch gen_server:call(Server, {lookup, Term})) of
-        {'EXIT', _Reason} ->
-            lookup(gr_manager:wait_for_pid(Server), Term);
-        Else -> Else
-    end.
-
-lookup_element(Server, Term) ->
-    case (catch gen_server:call(Server, {lookup_element, Term})) of
-        {'EXIT', _Reason} ->
-            lookup_element(gr_manager:wait_for_pid(Server), Term);
-        Else -> Else
-    end.
-
-info(Server) ->
-    case (catch gen_server:call(Server, info)) of
-        {'EXIT', _Reason} ->
-            info(gr_manager:wait_for_pid(Server));
-        Else -> Else
-    end.
-
-%% @doc Transform Term -> Key to Key -> Term
-transform(Server) ->
-    case (catch gen_server:call(Server, transform)) of
-        {'EXIT', _Reason} ->
-            transform(gr_manager:wait_for_pid(Server));
-        Else -> Else
-    end.
-
-%%--------------------------------------------------------------------
-%% @doc
-%% Starts the server
-%%
-%% @spec start_link(Name) -> {ok, Pid} | ignore | {error, Error}
-%% @end
-%%--------------------------------------------------------------------
-start_link(Name) ->
-    gen_server:start_link({local, Name}, ?MODULE, , ).
-
-%%%===================================================================
-%%% gen_server callbacks
-%%%===================================================================
-
-%%--------------------------------------------------------------------
-%% @private
-%% @doc
-%% Initializes the server
-%%
-%% @spec init(Args) -> {ok, State} |
-%%                     {ok, State, Timeout} |
-%%                     ignore |
-%%                     {stop, Reason}
-%% @end
-%%--------------------------------------------------------------------
-init() ->
-    {ok, #state{}}.
-
-%%--------------------------------------------------------------------
-%% @private
-%% @doc
-%% Handling call messages
-%%
-%% @spec handle_call(Request, From, State) ->
-%%                                   {reply, Reply, State} |
-%%                                   {reply, Reply, State, Timeout} |
-%%                                   {noreply, State} |
-%%                                   {noreply, State, Timeout} |
-%%                                   {stop, Reason, Reply, State} |
-%%                                   {stop, Reason, State}
-%% @end
-%%--------------------------------------------------------------------
-handle_call(Call, From, State) when is_atom(Call), Call =:= list; 
-                                     Call =:= info; Call =:= info_size;
-                                     Call =:= transform ->
-    TableId = State#state.table_id,
-    Waiting = State#state.waiting,
-    case TableId of
-        undefined -> {noreply, State#state{waiting={Call, From}|Waiting}};
-        _ when Call =:= list -> 
-            {reply, handle_list(TableId), State};
-        _ when Call =:= info -> 
-            {reply, handle_info(TableId), State};
-        _ when Call =:= info_size -> 
-            {reply, handle_info_size(TableId), State};
-        _ when Call =:= transform -> 
-            {reply, handle_transform(TableId), State}
-    end;
-
-handle_call({Call, Term}, From, State) when is_atom(Call), Call =:= insert; 
-                                              Call =:= lookup; 
-                                              Call =:= lookup_element ->
-    TableId = State#state.table_id,
-    Waiting = State#state.waiting,
-    case TableId of
-        undefined -> 
-            {noreply, State#state{waiting={{Call, Term}, From}|Waiting}};
-        _ when Call =:= insert -> 
-            {reply, handle_insert(TableId, Term), State};
-        _ when Call =:= lookup -> 
-            {reply, handle_lookup(TableId, Term), State};
-        _ when Call =:= lookup_element -> 
-            {reply, handle_lookup_element(TableId, Term), State}
-    end;
-
-handle_call(_Request, _From, State) ->
-    Reply = {error, unhandled_message},
-    {reply, Reply, State}.
-
-%%--------------------------------------------------------------------
-%% @private
-%% @doc
-%% Handling cast messages
-%%
-%% @spec handle_cast(Msg, State) -> {noreply, State} |
-%%                                  {noreply, State, Timeout} |
-%%                                  {stop, Reason, State}
-%% @end
-%%--------------------------------------------------------------------
-handle_cast(_Msg, State) ->
-    {noreply, State}.
-
-%%--------------------------------------------------------------------
-%% @private
-%% @doc
-%% Handling all non call/cast messages
-%%
-%% @spec handle_info(Info, State) -> {noreply, State} |
-%%                                   {noreply, State, Timeout} |
-%%                                   {stop, Reason, State}
-%% @end
-%%--------------------------------------------------------------------
-handle_info({'ETS-TRANSFER', TableId, _Pid, _Data}, State) ->
-    _ =  gen_server:reply(From, perform_call(TableId, Call)) 
-      || {Call, From} <- State#state.waiting ,
-    {noreply, State#state{table_id=TableId, waiting=}};
-handle_info(_Info, State) ->
-    {noreply, State}.
-
-
-
-%%--------------------------------------------------------------------
-%% @private
-%% @doc
-%% This function is called by a gen_server when it is about to
-%% terminate. It should be the opposite of Module:init/1 and do any
-%% necessary cleaning up. When it returns, the gen_server terminates
-%% with Reason. The return value is ignored.
-%%
-%% @spec terminate(Reason, State) -> void()
-%% @end
-%%--------------------------------------------------------------------
-terminate(_Reason, _State) ->
-    ok.
-
-%%--------------------------------------------------------------------
-%% @private
-%% @doc
-%% Convert process state when code is changed
-%%
-%% @spec code_change(OldVsn, State, Extra) -> {ok, NewState}
-%% @end
-%%--------------------------------------------------------------------
-code_change(_OldVsn, State, _Extra) ->
-    {ok, State}.
-
-%%%===================================================================
-%%% Internal functions
-%%%===================================================================
-
-perform_call(TableId, Call) ->
-    case Call of
-        list ->
-            handle_list(TableId);
-        info ->
-            handle_info(TableId);
-        info_size ->
-            handle_info_size(TableId);
-        transform ->
-            handle_transform(TableId);
-        {insert, Term} ->
-            handle_insert(TableId, Term);
-        {lookup, Term} ->
-            handle_lookup(TableId, Term);
-        {lookup_element, Term} ->
-            handle_lookup_element(TableId, Term)
-    end.
-
-
-handle_list(TableId) ->
-    ets:tab2list(TableId).
-
-handle_info(TableId) ->
-    ets:info(TableId).
-
-handle_info_size(TableId) ->
-    ets:info(TableId, size).
-
-handle_transform(TableId) ->
-    ParamsList = {K, V} || {V, K} <- ets:tab2list(TableId),
-    ets:delete_all_objects(TableId),
-    ets:insert(TableId, ParamsList).
-
-handle_insert(TableId, Term) ->
-    ets:insert(TableId, Term).
-
-handle_lookup(TableId, Term) ->
-    ets:lookup(TableId, Term).
-
-handle_lookup_element(TableId, Term) ->
-    ets:lookup_element(TableId, Term, 2).
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/goldrush/src/gr_param_sup.erl Deleted

@@ -1,48 +0,0 @@
-%% Copyright (c) 2013, Pedram Nimreezi <deadzen@deadzen.com>
-%%
-%% Permission to use, copy, modify, and/or distribute this software for any
-%% purpose with or without fee is hereby granted, provided that the above
-%% copyright notice and this permission notice appear in all copies.
-%%
-%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
-%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
-%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
-%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
-%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
-%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
-
-%% @doc Second level supervisor for goldrush.
-%%
-%% Supervisor for the {@link gr_param:start_link/0. 
-%% <em>Param</em>}, process table responsible for params
-%% {@link gr_param:start_link/0. <em>Counter</em>} and
-%% their {@link gr_counter:start_link/0. <em>Manager</em>} supervisors.
-
--module(gr_param_sup).
--behaviour(supervisor).
-
--type startlink_err() :: {'already_started', pid()} | 'shutdown' | term().
--type startlink_ret() :: {'ok', pid()} | 'ignore' | {'error', startlink_err()}.
-
-%% API
--export(start_link/0).
-
-%% Supervisor callbacks
--export(init/1).
-
-%% ===================================================================
-%% API functions
-%% ===================================================================
-%% @hidden
--spec start_link() -> startlink_ret().
-start_link() ->
-    supervisor:start_link({local, ?MODULE}, ?MODULE, ).
-
-%% ===================================================================
-%% Supervisor callbacks
-%% ===================================================================
-%% @hidden
--spec init() -> {ok, { {one_for_one, 50, 10}, supervisor:child_spec()} }.
-init(_Args) ->
-    {ok, { {one_for_one, 50, 10}, } }.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/goldrush/src/gr_sup.erl Deleted

@@ -1,42 +0,0 @@
-%% Copyright (c) 2012, Magnus Klaar <klaar@ninenines.eu>
-%% Copyright (c) 2013, Pedram Nimreezi <deadzen@deadzen.com>
-%%
-%% Permission to use, copy, modify, and/or distribute this software for any
-%% purpose with or without fee is hereby granted, provided that the above
-%% copyright notice and this permission notice appear in all copies.
-%%
-%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
-%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
-%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
-%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
-%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
-%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
-
-
-%% @doc Top level supervisor for goldrush.
-%%
-%% Main supervisor responsible for the {@link gr_counter_sup:start_link/0. 
-%% <em>Counter</em>}, {@link gr_param_sup:start_link/0. <em>Param</em>} and
-%% their {@link gr_manager_sup:start_link/0. <em>Manager</em>} supervisors.
--module(gr_sup).
--behaviour(supervisor).
-
--type startlink_err() :: {'already_started', pid()} | 'shutdown' | term().
--type startlink_ret() :: {'ok', pid()} | 'ignore' | {'error', startlink_err()}.
-
--export(start_link/0).
--export(init/1).
-
--define(CHILD(I, Type), {I, {I, start_link, }, permanent, 5000, Type, I}).
-
--spec start_link() -> startlink_ret().
-start_link() ->
-    supervisor:start_link({local, ?MODULE}, ?MODULE, ).
-
--spec init() -> {ok, { {one_for_one, 50, 10}, supervisor:child_spec()} }.
-init() ->
-    CounterSup = ?CHILD(gr_counter_sup, supervisor),
-    ParamSup = ?CHILD(gr_param_sup, supervisor),
-    MgrSup = ?CHILD(gr_manager_sup, supervisor),
-    {ok, {{one_for_one, 50, 10}, CounterSup, ParamSup, MgrSup}}.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/goldrush/src/gre.erl Deleted

@@ -1,104 +0,0 @@
-%% Copyright (c) 2012, Magnus Klaar <klaar@ninenines.eu>
-%%
-%% Permission to use, copy, modify, and/or distribute this software for any
-%% purpose with or without fee is hereby granted, provided that the above
-%% copyright notice and this permission notice appear in all copies.
-%%
-%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
-%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
-%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
-%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
-%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
-%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
-
-%% @doc Accessor function for goldrush event terms.
--module(gre).
-
--export(
-    make/2,
-    has/2,
-    fetch/2,
-    append/2,
-    merge/2,
-    find/2,
-    keys/1,
-    pairs/1
-).
-
--type event() :: {list, {atom(), term()}}.
--export_type(event/0).
-
-%% @doc Construct an event term.
--spec make(term(), list) -> event().
-make(Term, Type) ->
-    {Type, Term}.
-
-
-%% @doc Check if a field exists in an event.
--spec has(atom(), event()) -> boolean().
-has(Key, {list, List}) ->
-    lists:keymember(Key, 1, List).
-
--spec append(term(), event()) -> event().
-append(KeyVal, {list, List}) ->
-    {list, KeyVal|List}.
-
--spec merge(event(), event()) -> event().
-merge({list, AList}, {list, BList}) ->
-    {list, lists:merge(AList, BList)}.
-
-%% @doc Get the value of a field in an event.
-%% The field is expected to exist in the event.
--spec fetch(atom(), event()) -> term().
-fetch(Key, {list, List}=Event) ->
-    case lists:keyfind(Key, 1, List) of
-        {_, Value} -> Value;
-        false -> erlang:error(badarg, Key, Event)
-    end.
-
-
-%% @doc Find the value of a field in an event.
-%% This is equivalent to testing if a field exists using {@link has/2}
-%% before accessing the value of the field using {@link fetch/2}.
--spec find(atom(), event()) -> {true, term()} | false.
-find(Key, {list, List}) ->
-    case lists:keyfind(Key, 1, List) of
-        {_, Value} -> {true, Value};
-        false -> false
-    end.
-
-
-%% @doc Get the names of all fields in an event.
--spec keys(event()) -> atom().
-keys({list, List}) ->
-    kv_keys_(List).
-
-%% @private Get the names of all fields in a key-value list.
--spec kv_keys_({atom(), term()}) -> atom().
-kv_keys_({Key, _}|T) ->
-    Key|kv_keys_(T);
-kv_keys_() ->
-    .
-
-%% @doc Get the name and value of all fields in an event.
--spec pairs(event()) -> {atom(), term()}.
-pairs({list, List}) ->
-    lists:sort(List).
-
-
--ifdef(TEST).
--include_lib("eunit/include/eunit.hrl").
-
-gre_test_() ->
-    ?_assert(gre:has(a, gre:make({a,1}, list))),
-     ?_assertNot(gre:has(b, gre:make({a,1}, list))),
-     ?_assertEqual(1, gre:fetch(a, gre:make({a,1}, list))),
-     ?_assertError(badarg, gre:fetch(a, gre:make(, list))),
-     ?_assertEqual(, gre:keys(gre:make(, list))),
-     ?_assertEqual(a, gre:keys(gre:make({a,1}, list))),
-     ?_assertEqual(a,b, gre:keys(gre:make({a,1},{b,2}, list))),
-     ?_assertEqual({a,1},{b,2}, gre:pairs(gre:make({b,2},{a,1}, list)))
-    .
-
--endif.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/.github Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/.github/workflows Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/.github/workflows/ci.yml Deleted

@@ -1,45 +0,0 @@
----
-name: build
-on:
-  push:
-    branches:
-      - master
-  pull_request:
-    branches:
-      - master
-jobs:
-  ci:
-    name: >
-      Run Linux-based checks and tests over ${{matrix.otp_vsn}} and ${{matrix.os}}
-    runs-on: ${{matrix.os}}
-    container:
-      image: erlang:${{matrix.otp_vsn}}
-      options: --user 1001
-    strategy:
-      matrix:
-        otp_vsn: 21.3, 22.3, 23.2
-        os: ubuntu-latest
-    steps:
-      - uses: actions/checkout@v2
-      - run: rebar3 dialyzer
-      - run: rebar3 eunit
-  ci-windows:
-    name: >
-      Run Windows-based checks and tests over ${{matrix.otp_vsn}} and ${{matrix.os}}
-    runs-on: ${{matrix.os}}
-    strategy:
-      matrix:
-        otp_vsn: 23.2
-        os: windows-latest
-    steps:
-    - uses: actions/checkout@v2
-    - uses: gleam-lang/setup-erlang@v1.1.2
-      with:
-        otp-version: ${{matrix.otp_vsn}}
-      id: install_erlang
-    - run: wget https://s3.amazonaws.com/rebar3/rebar3 -OutFile rebar3
-      shell: powershell
-    - run: |
-        & "${{steps.install_erlang.outputs.erlpath}}\bin\escript.exe" rebar3 dialyzer
-    - run: |
-        & "${{steps.install_erlang.outputs.erlpath}}\bin\escript.exe" rebar3 eunit

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/LICENSE Deleted

@@ -1,178 +0,0 @@
-
-                                 Apache License
-                           Version 2.0, January 2004
-                        http://www.apache.org/licenses/
-
-   TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION
-
-   1. Definitions.
-
-      "License" shall mean the terms and conditions for use, reproduction,
-      and distribution as defined by Sections 1 through 9 of this document.
-
-      "Licensor" shall mean the copyright owner or entity authorized by
-      the copyright owner that is granting the License.
-
-      "Legal Entity" shall mean the union of the acting entity and all
-      other entities that control, are controlled by, or are under common
-      control with that entity. For the purposes of this definition,
-      "control" means (i) the power, direct or indirect, to cause the
-      direction or management of such entity, whether by contract or
-      otherwise, or (ii) ownership of fifty percent (50%) or more of the
-      outstanding shares, or (iii) beneficial ownership of such entity.
-
-      "You" (or "Your") shall mean an individual or Legal Entity
-      exercising permissions granted by this License.
-
-      "Source" form shall mean the preferred form for making modifications,
-      including but not limited to software source code, documentation
-      source, and configuration files.
-
-      "Object" form shall mean any form resulting from mechanical
-      transformation or translation of a Source form, including but
-      not limited to compiled object code, generated documentation,
-      and conversions to other media types.
-
-      "Work" shall mean the work of authorship, whether in Source or
-      Object form, made available under the License, as indicated by a
-      copyright notice that is included in or attached to the work
-      (an example is provided in the Appendix below).
-
-      "Derivative Works" shall mean any work, whether in Source or Object
-      form, that is based on (or derived from) the Work and for which the
-      editorial revisions, annotations, elaborations, or other modifications
-      represent, as a whole, an original work of authorship. For the purposes
-      of this License, Derivative Works shall not include works that remain
-      separable from, or merely link (or bind by name) to the interfaces of,
-      the Work and Derivative Works thereof.
-
-      "Contribution" shall mean any work of authorship, including
-      the original version of the Work and any modifications or additions
-      to that Work or Derivative Works thereof, that is intentionally
-      submitted to Licensor for inclusion in the Work by the copyright owner
-      or by an individual or Legal Entity authorized to submit on behalf of
-      the copyright owner. For the purposes of this definition, "submitted"
-      means any form of electronic, verbal, or written communication sent
-      to the Licensor or its representatives, including but not limited to
-      communication on electronic mailing lists, source code control systems,
-      and issue tracking systems that are managed by, or on behalf of, the
-      Licensor for the purpose of discussing and improving the Work, but
-      excluding communication that is conspicuously marked or otherwise
-      designated in writing by the copyright owner as "Not a Contribution."
-
-      "Contributor" shall mean Licensor and any individual or Legal Entity
-      on behalf of whom a Contribution has been received by Licensor and
-      subsequently incorporated within the Work.
-
-   2. Grant of Copyright License. Subject to the terms and conditions of
-      this License, each Contributor hereby grants to You a perpetual,
-      worldwide, non-exclusive, no-charge, royalty-free, irrevocable
-      copyright license to reproduce, prepare Derivative Works of,
-      publicly display, publicly perform, sublicense, and distribute the
-      Work and such Derivative Works in Source or Object form.
-
-   3. Grant of Patent License. Subject to the terms and conditions of
-      this License, each Contributor hereby grants to You a perpetual,
-      worldwide, non-exclusive, no-charge, royalty-free, irrevocable
-      (except as stated in this section) patent license to make, have made,
-      use, offer to sell, sell, import, and otherwise transfer the Work,
-      where such license applies only to those patent claims licensable
-      by such Contributor that are necessarily infringed by their
-      Contribution(s) alone or by combination of their Contribution(s)
-      with the Work to which such Contribution(s) was submitted. If You
-      institute patent litigation against any entity (including a
-      cross-claim or counterclaim in a lawsuit) alleging that the Work
-      or a Contribution incorporated within the Work constitutes direct
-      or contributory patent infringement, then any patent licenses
-      granted to You under this License for that Work shall terminate
-      as of the date such litigation is filed.
-
-   4. Redistribution. You may reproduce and distribute copies of the
-      Work or Derivative Works thereof in any medium, with or without
-      modifications, and in Source or Object form, provided that You
-      meet the following conditions:
-
-      (a) You must give any other recipients of the Work or
-          Derivative Works a copy of this License; and
-
-      (b) You must cause any modified files to carry prominent notices
-          stating that You changed the files; and
-
-      (c) You must retain, in the Source form of any Derivative Works
-          that You distribute, all copyright, patent, trademark, and
-          attribution notices from the Source form of the Work,
-          excluding those notices that do not pertain to any part of
-          the Derivative Works; and
-
-      (d) If the Work includes a "NOTICE" text file as part of its
-          distribution, then any Derivative Works that You distribute must
-          include a readable copy of the attribution notices contained
-          within such NOTICE file, excluding those notices that do not
-          pertain to any part of the Derivative Works, in at least one
-          of the following places: within a NOTICE text file distributed
-          as part of the Derivative Works; within the Source form or
-          documentation, if provided along with the Derivative Works; or,
-          within a display generated by the Derivative Works, if and
-          wherever such third-party notices normally appear. The contents
-          of the NOTICE file are for informational purposes only and
-          do not modify the License. You may add Your own attribution
-          notices within Derivative Works that You distribute, alongside
-          or as an addendum to the NOTICE text from the Work, provided
-          that such additional attribution notices cannot be construed
-          as modifying the License.
-
-      You may add Your own copyright statement to Your modifications and
-      may provide additional or different license terms and conditions
-      for use, reproduction, or distribution of Your modifications, or
-      for any such Derivative Works as a whole, provided Your use,
-      reproduction, and distribution of the Work otherwise complies with
-      the conditions stated in this License.
-
-   5. Submission of Contributions. Unless You explicitly state otherwise,
-      any Contribution intentionally submitted for inclusion in the Work
-      by You to the Licensor shall be under the terms and conditions of
-      this License, without any additional terms or conditions.
-      Notwithstanding the above, nothing herein shall supersede or modify
-      the terms of any separate license agreement you may have executed
-      with Licensor regarding such Contributions.
-
-   6. Trademarks. This License does not grant permission to use the trade
-      names, trademarks, service marks, or product names of the Licensor,
-      except as required for reasonable and customary use in describing the
-      origin of the Work and reproducing the content of the NOTICE file.
-
-   7. Disclaimer of Warranty. Unless required by applicable law or
-      agreed to in writing, Licensor provides the Work (and each
-      Contributor provides its Contributions) on an "AS IS" BASIS,
-      WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
-      implied, including, without limitation, any warranties or conditions
-      of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A
-      PARTICULAR PURPOSE. You are solely responsible for determining the
-      appropriateness of using or redistributing the Work and assume any
-      risks associated with Your exercise of permissions under this License.
-
-   8. Limitation of Liability. In no event and under no legal theory,
-      whether in tort (including negligence), contract, or otherwise,
-      unless required by applicable law (such as deliberate and grossly
-      negligent acts) or agreed to in writing, shall any Contributor be
-      liable to You for damages, including any direct, indirect, special,
-      incidental, or consequential damages of any character arising as a
-      result of this License or out of the use or inability to use the
-      Work (including but not limited to damages for loss of goodwill,
-      work stoppage, computer failure or malfunction, or any and all
-      other commercial damages or losses), even if such Contributor
-      has been advised of the possibility of such damages.
-
-   9. Accepting Warranty or Additional Liability. While redistributing
-      the Work or Derivative Works thereof, You may choose to offer,
-      and charge a fee for, acceptance of support, warranty, indemnity,
-      or other liability obligations and/or rights consistent with this
-      License. However, in accepting such obligations, You may act only
-      on Your own behalf and on Your sole responsibility, not on behalf
-      of any other Contributor, and only if You agree to indemnify,
-      defend, and hold each Contributor harmless for any liability
-      incurred by, or claims asserted against, such Contributor by reason
-      of your accepting any such warranty or additional liability.
-
-   END OF TERMS AND CONDITIONS
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/Makefile Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/README.md Deleted

@@ -1,1396 +0,0 @@
-Overview
---------
-Lager (as in the beer) is a logging framework for Erlang. Its purpose is
-to provide a more traditional way to perform logging in an erlang application
-that plays nicely with traditional UNIX logging tools like logrotate and
-syslog.
-
-!Build Status(https://github.com/erlang-lager/lager/workflows/build/badge.svg)(https://github.com/erlang-lager/lager)
-!Hex pm(https://img.shields.io/hexpm/v/lager)(https://hex.pm/packages/lager)
-
-Features
---------
-* Finer grained log levels (debug, info, notice, warning, error, critical,
-  alert, emergency)
-* Logger calls are transformed using a parse transform to allow capturing
-  Module/Function/Line/Pid information
-* When no handler is consuming a log level (eg. debug) no event is sent
-  to the log handler
-* Supports multiple backends, including console and file.
-* Supports multiple sinks
-* Rewrites common OTP error messages into more readable messages
-* Support for pretty printing records encountered at compile time
-* Tolerant in the face of large or many log messages, won't out of memory the node
-* Optional feature to bypass log size truncation ("unsafe")
-* Supports internal time and date based rotation, as well as external rotation tools
-* Syslog style log level comparison flags
-* Colored terminal output (requires R16+)
-* Map support (requires 17+)
-* Optional load shedding by setting a high water mark to kill (and reinstall)
-  a sink after a configurable cool down timer
-
-Contributing
-------------
-We welcome contributions from the community. We are always excited to get ideas
-for improving lager.
-
-If you are looking for an idea to help out, please take a look at our open
-issues - a number of them are tagged with Help Wanted(https://github.com/erlang-lager/lager/issues?q=is%3Aopen+is%3Aissue+label%3A%22Help+Wanted%22)
-and Easy(https://github.com/erlang-lager/lager/issues?q=is%3Aopen+is%3Aissue+label%3AEasy) - some
-of them are tagged as both! We are happy to mentor people get started with any
-of these issues, and they don't need prior discussion.
-
-That being said, before you send large changes please open an issue first to
-discuss the change you'd like to make along with an idea of your proposal to
-implement that change.
-
-### PR guidelines ###
-
-* Large changes without prior discussion are likely to be rejected.
-* Changes without test cases are likely to be rejected.
-* Please use the style of the existing codebase when submitting PRs.
-
-We review PRs and issues at least once a month as described below.
-
-OTP Support Policy
-------------------
-The lager maintainers intend to support the past three OTP releases from
-current on the main 3.x branch of the project. As of August 2019 that includes
-22, 21 20
-
-Lager may or may not run on older OTP releases but it will only be guaranteed
-tested on the previous three OTP releases. If you need a version of lager
-which runs on older OTP releases, we recommend you use either the 3.4.0 release
-or the 2.x branch.
-
-Monthly triage cadence
-----------------------
-We have (at least) monthly issue and PR triage for lager in the #lager room on the
-freenode(https://freenode.net) IRC network every third Thursday at 2 pm US/Pacific,
-10 pm UTC. You are welcome to join us there to ask questions about lager or
-participate in the triage.
-
-Usage
------
-To use lager in your application, you need to define it as a rebar dep or have
-some other way of including it in Erlang's path. You can then add the
-following option to the erlang compiler flags:
-
-```erlang
-{parse_transform, lager_transform}
-```
-
-Alternately, you can add it to the module you wish to compile with logging
-enabled:
-
-```erlang
--compile({parse_transform, lager_transform}).
-```
-
-Before logging any messages, you'll need to start the lager application. The
-lager module's `start` function takes care of loading and starting any dependencies
-lager requires.
-
-```erlang
-lager:start().
-```
-
-You can also start lager on startup with a switch to `erl`:
-
-```erlang
-erl -pa path/to/lager/ebin -s lager
-```
-
-Once you have built your code with lager and started the lager application,
-you can then generate log messages by doing the following:
-
-```erlang
-lager:error("Some message")
-```
-
-  Or:
-
-```erlang
-lager:warning("Some message with a term: ~p", Term)
-```
-
-The general form is `lager:Severity()` where `Severity` is one of the log levels
-mentioned above.
-
-Configuration
--------------
-To configure lager's backends, you use an application variable (probably in
-your app.config):
-
-```erlang
-{lager, 
-  {log_root, "/var/log/hello"},
-  {handlers, 
-    {lager_console_backend, {level, info}},
-    {lager_file_backend, {file, "error.log"}, {level, error}},
-    {lager_file_backend, {file, "console.log"}, {level, info}}
-  }
-}.
-```
-
-```log_root``` variable is optional, by default file paths are relative to CWD.
-
-The available configuration options for each backend are listed in their
-module's documentation.
-
-Sinks
------
-Lager has traditionally supported a single sink (implemented as a
-`gen_event` manager) named `lager_event` to which all backends were
-connected.
-
-Lager now supports extra sinks; each sink can have different
-sync/async message thresholds and different backends.
-
-### Sink configuration
-
-To use multiple sinks (beyond the built-in sink of lager and lager_event), you
-need to:
-
-1. Setup rebar.config
-2. Configure the backends in app.config
-
-#### Names
-
-Each sink has two names: one atom to be used like a module name for
-sending messages, and that atom with `_lager_event` appended for backend
-configuration.
-
-This reflects the legacy behavior: `lager:info` (or `critical`, or
-`debug`, etc) is a way of sending a message to a sink named
-`lager_event`. Now developers can invoke `audit:info` or
-`myCompanyName:debug` so long as the corresponding `audit_lager_event` or
-`myCompanyName_lager_event` sinks are configured.
-
-#### rebar.config
-
-In `rebar.config` for the project that requires lager, include a list
-of sink names (without the `_lager_event` suffix) in `erl_opts`:
-
-`{lager_extra_sinks, audit}`
-
-#### Runtime requirements
-
-To be useful, sinks must be configured at runtime with backends.
-
-In `app.config` for the project that requires lager, for example,
-extend the lager configuration to include an `extra_sinks` tuple with
-backends (aka "handlers") and optionally `async_threshold` and
-`async_threshold_window` values (see **Overload Protection**
-below). If async values are not configured, no overload protection
-will be applied on that sink.
-
-```erlang
-{lager, 
-          {log_root, "/tmp"},
-
-          %% Default handlers for lager/lager_event
-          {handlers, 
-                      {lager_console_backend, {level, info}},
-                      {lager_file_backend, {file, "error.log"}, {level, error}},
-                      {lager_file_backend, {file, "console.log"}, {level, info}}
-                     },
-
-          %% Any other sinks
-          {extra_sinks,
-           
-            {audit_lager_event,
-             {handlers,
-               {lager_file_backend,
-                 {file, "sink1.log"},
-                  {level, info}
-                 
-                }
-              },
-              {async_threshold, 500},
-              {async_threshold_window, 50}
-            }
-          }
-         
- }
-.
-```
-
-Custom Formatting
------------------
-All loggers have a default formatting that can be overriden.  A formatter is any module that
-exports `format(#lager_log_message{},Config#any())`.  It is specified as part of the configuration
-for the backend:
-
-```erlang
-{lager, 
-  {handlers, 
-    {lager_console_backend, {level, info}, {formatter, lager_default_formatter},
-      {formatter_config, time," ",severity," ", message, "\n"}},
-    {lager_file_backend, {file, "error.log"}, {level, error}, {formatter, lager_default_formatter},
-      {formatter_config, date, " ", time," ",severity," ",pid, " ", message, "\n"}},
-    {lager_file_backend, {file, "console.log"}, {level, info}}
-  }
-}.
-```
-
-Included is `lager_default_formatter`.  This provides a generic, default
-formatting for log messages using a structure similar to Erlang's
-iolist(http://learnyousomeerlang.com/buckets-of-sockets#io-lists) which we
-call "semi-iolist":
-
-* Any traditional iolist elements in the configuration are printed verbatim.
-* Atoms in the configuration are treated as placeholders for lager metadata and
-  extracted from the log message.
-    * The placeholders `date`, `time`, `message`, `sev` and `severity` will always exist.
-    * `sev` is an abbreviated severity which is interpreted as a capitalized
-      single letter encoding of the severity level (e.g. `'debug'` -> `$D`)
-    * The placeholders `pid`, `file`, `line`, `module`, `function`, and `node`
-      will always exist if the parse transform is used.
-    * The placeholder `application` may exist if the parse transform is used.
-      It is dependent on finding the applications `app.src` file.
-    * If the error logger integration is used, the placeholder `pid`
-      will always exist and the placeholder `name` may exist.
-    * Applications can define their own metadata placeholder.
-    * A tuple of `{atom(), semi-iolist()}` allows for a fallback for
-      the atom placeholder. If the value represented by the atom
-      cannot be found, the semi-iolist will be interpreted instead.
-    * A tuple of `{atom(), semi-iolist(), semi-iolist()}` represents a
-      conditional operator: if a value for the atom placeholder can be
-      found, the first semi-iolist will be output; otherwise, the
-      second will be used.
-    * A tuple of `{pterm, atom()}` will attempt to lookup
-      the value of the specified atom from the
-      persistent_term(http://erlang.org/doc/man/persistent_term.html)
-      feature added in OTP 21.2. The default value is `""`. The
-      default value will be used if the key cannot be found or
-      if this formatting term is specified on an OTP release before
-      OTP 21.
-    * A tuple of `{pterm, atom(), semi-iolist()}` will attempt to
-      lookup the value of the specified atom from the persistent_term
-      feature added in OTP 21.2. The default value is the specified
-      semi-iolist(). The default value will be used if the key cannot
-      be found or the if this formatting term is specified on an OTP
-      release before OTP 21.
-
-Examples:
-
-```
-"Foo" -> "Foo", regardless of message content.
-message -> The content of the logged message, alone.
-{pid,"Unknown Pid"} -> "<?.?.?>" if pid is in the metadata, "Unknown Pid" if not.
-{pid, "My pid is ", pid, "Unknown Pid"} -> if pid is in the metadata print "My pid is <?.?.?>", otherwise print "Unknown Pid"
-{server,{pid, "(", pid, ")", "(Unknown Server)"}} -> user provided server metadata, otherwise "(<?.?.?>)", otherwise "(Unknown Server)"
-{pterm, pterm_key, <<"undefined">>} -> if a value for 'pterm_key' is found in OTP 21 (or later) persistent_term storage it is used, otherwise "undefined"
-```
-
-Universal time
---------------
-By default, lager formats timestamps as local time for whatever computer
-generated the log message.
-
-To make lager use UTC timestamps, you can set the `sasl` application's
-`utc_log` configuration parameter to `true` in your application configuration
-file.
-
-Example:
-
-```
-%% format log timestamps as UTC
-{sasl, {utc_log, true}}.
-```
-
-Error logger integration
-------------------------
-Lager is also supplied with a `error_logger` handler module that translates
-traditional erlang error messages into a friendlier format and sends them into
-lager itself to be treated like a regular lager log call. To disable this, set
-the lager application variable `error_logger_redirect` to `false`.
-You can also disable reformatting for OTP and Cowboy messages by setting variable
-`error_logger_format_raw` to `true`.
-
-If you installed your own handler(s) into `error_logger`, you can tell
-lager to leave it alone by using the `error_logger_whitelist` environment
-variable with a list of handlers to allow.
-
-```
-{error_logger_whitelist, my_handler}
-```
-
-The `error_logger` handler will also log more complete error messages (protected
-with use of `trunc_io`) to a "crash log" which can be referred to for further
-information. The location of the crash log can be specified by the `crash_log`
-application variable. If set to `false` it is not written at all.
-
-Messages in the crash log are subject to a maximum message size which can be
-specified via the `crash_log_msg_size` application variable.
-
-Messages from `error_logger` will be redirected to `error_logger_lager_event` sink
-if it is defined so it can be redirected to another log file.
-
-For example:
-
-```
-{lager, 
-         {extra_sinks,
-          
-           {error_logger_lager_event, 
-            {handlers, 
-              {lager_file_backend, {file, "error_logger.log"}, {level, info}}
-              }
-           }
-           }
-}.
-```
-will send all `error_logger` messages to `error_logger.log` file.
-
-Overload Protection
--------------------
-
-### Asynchronous mode
-
-Prior to lager 2.0, the `gen_event` at the core of lager operated purely in
-synchronous mode. Asynchronous mode is faster, but has no protection against
-message queue overload. As of lager 2.0, the `gen_event` takes a hybrid
-approach. it polls its own mailbox size and toggles the messaging between
-synchronous and asynchronous depending on mailbox size.
-
-```erlang
-{async_threshold, 20},
-{async_threshold_window, 5}
-```
-
-This will use async messaging until the mailbox exceeds 20 messages, at which
-point synchronous messaging will be used, and switch back to asynchronous, when
-size reduces to `20 - 5 = 15`.
-
-If you wish to disable this behaviour, simply set `async_threshold` to `undefined`. It defaults
-to a low number to prevent the mailbox growing rapidly beyond the limit and causing
-problems. In general, lager should process messages as fast as they come in, so getting
-20 behind should be relatively exceptional anyway.
-
-If you want to limit the number of messages per second allowed from `error_logger`,
-which is a good idea if you want to weather a flood of messages when lots of
-related processes crash, you can set a limit:
-
-```erlang
-{error_logger_hwm, 50}
-```
-
-It is probably best to keep this number small.
-
-### Event queue flushing
-
-When the high-water mark is exceeded, lager can be configured to flush all
-event notifications in the message queue. This can have unintended consequences
-for other handlers in the same event manager (in e.g. the `error_logger`), as
-events they rely on may be wrongly discarded. By default, this behavior is enabled,
-but can be controlled, for the `error_logger` via:
-
-```erlang
-{error_logger_flush_queue, true | false}
-```
-
-or for a specific sink, using the option:
-
-```erlang
-{flush_queue, true | false}
-```
-
-If `flush_queue` is true, a message queue length threshold can be set, at which
-messages will start being discarded. The default threshold is `0`, meaning that
-if `flush_queue` is true, messages will be discarded if the high-water mark is
-exceeded, regardless of the length of the message queue. The option to control
-the threshold is, for `error_logger`:
-
-```erlang
-{error_logger_flush_threshold, 1000}
-```
-
-and for sinks:
-
-```erlang
-{flush_threshold, 1000}
-```
-
-### Sink Killer
-
-In some high volume situations, it may be preferable to drop all pending log
-messages instead of letting them drain over time.
-
-If you prefer, you may choose to use the sink killer to shed load. In this
-operational mode, if the `gen_event` mailbox exceeds a configurable
-high water mark, the sink will be killed and reinstalled after a
-configurable cool down time.
-
-You can configure this behavior by using these configuration directives:
-
-```erlang
-{killer_hwm, 1000},
-{killer_reinstall_after, 5000}
-```
-
-This means if the sink's mailbox size exceeds 1000 messages, kill the
-entire sink and reload it after 5000 milliseconds. This behavior can
-also be installed into alternative sinks if desired.
-
-By default, the manager killer *is not installed* into any sink. If
-the `killer_reinstall_after` cool down time is not specified it defaults
-to 5000.
-
-"Unsafe"
---------
-The unsafe code pathway bypasses the normal lager formatting code and uses the
-same code as error_logger in OTP. This provides a marginal speedup to your logging
-code (we measured between 0.5-1.3% improvement during our benchmarking; others have
-reported better improvements.)
-
-This is a **dangerous** feature. It *will not* protect you against
-large log messages - large messages can kill your application and even your
-Erlang VM dead due to memory exhaustion as large terms are copied over and
-over in a failure cascade.  We strongly recommend that this code pathway
-only be used by log messages with a well bounded upper size of around 500 bytes.
-
-If there's any possibility the log messages could exceed that limit, you should
-use the normal lager message formatting code which will provide the appropriate
-size limitations and protection against memory exhaustion.
-
-If you want to format an unsafe log message, you may use the severity level (as
-usual) followed by `_unsafe`. Here's an example:
-
-```erlang
-lager:info_unsafe("The quick brown ~s jumped over the lazy ~s", "fox", "dog").
-```
-
-Runtime loglevel changes
-------------------------
-You can change the log level of any lager backend at runtime by doing the
-following:
-
-```erlang
-lager:set_loglevel(lager_console_backend, debug).
-```
-
-  Or, for the backend with multiple handles (files, mainly):
-
-```erlang
-lager:set_loglevel(lager_file_backend, "console.log", debug).
-```
-
-Lager keeps track of the minimum log level being used by any backend and
-suppresses generation of messages lower than that level. This means that debug
-log messages, when no backend is consuming debug messages, are effectively
-free. A simple benchmark of doing 1 million debug log messages while the
-minimum threshold was above that takes less than half a second.
-
-Syslog style loglevel comparison flags
---------------------------------------
-In addition to the regular log level names, you can also do finer grained masking
-of what you want to log:
-
-```
-info - info and higher (>= is implicit)
-=debug - only the debug level
-!=info - everything but the info level
-<=notice - notice and below
-<warning - anything less than warning
-```
-
-These can be used anywhere a loglevel is supplied, although they need to be either
-a quoted atom or a string.
-
-Internal log rotation
----------------------
-Lager can rotate its own logs or have it done via an external process. To
-use internal rotation, use the `size`, `date` and `count` values in the file
-backend's config:
-
-```erlang
-{file, "error.log"}, {level, error}, {size, 10485760}, {date, "$D0"}, {count, 5}
-```
-
-This tells lager to log error and above messages to `error.log` and to
-rotate the file at midnight or when it reaches 10mb, whichever comes first,
-and to keep 5 rotated logs in addition to the current one. Setting the
-count to 0 does not disable rotation, it instead rotates the file and keeps
-no previous versions around. To disable rotation set the size to 0 and the
-date to "".
-
-The `$D0` syntax is taken from the syntax newsyslog uses in newsyslog.conf.
-The relevant extract follows:
-
-```
-Day, week and month time format: The lead-in character
-for day, week and month specification is a `$'-sign.
-The particular format of day, week and month
-specification is: Dhh, WwDhh and MddDhh,
-respectively.  Optional time fields default to
-midnight.  The ranges for day and hour specifications
-are:
-
-  hh      hours, range 0 ... 23
-  w       day of week, range 0 ... 6, 0 = Sunday
-  dd      day of month, range 1 ... 31, or the
-          letter L or l to specify the last day of
-          the month.
-
-Some examples:
-  $D0     rotate every night at midnight
-  $D23    rotate every day at 23:00 hr
-  $W0D23  rotate every week on Sunday at 23:00 hr
-  $W5D16  rotate every week on Friday at 16:00 hr
-  $M1D0   rotate on the first day of every month at
-          midnight (i.e., the start of the day)
-  $M5D6   rotate on every 5th day of the month at
-          6:00 hr
-```
-
-On top of the day, week and month time format from newsyslog,
-hour specification is added from PR #420(https://github.com/erlang-lager/lager/pull/420)
-
-```
-Format of hour specification is : Hmm
-The range for minute specification is:
-
-  mm      minutes, range 0 ... 59
-
-Some examples:
-
-  $H00    rotate every hour at HH:00
-  $D12H30 rotate every day at 12:30
-  $W0D0H0 rotate every week on Sunday at 00:00
-```
-
-To configure the crash log rotation, the following application variables are
-used:
-* `crash_log_size`
-* `crash_log_date`
-* `crash_log_count`
-* `crash_log_rotator`
-
-See the `.app.src` file for further details.
-
-Custom Log Rotation
--------------------
-Custom log rotator could be configured with option for `lager_file_backend`
-```erlang
-{rotator, lager_rotator_default}
-```
-
-The module should provide the following callbacks as `lager_rotator_behaviour`
-
-```erlang
-%% @doc Create a log file
--callback(create_logfile(Name::list(), Buffer::{integer(), integer()} | any()) ->
-    {ok, {FD::file:io_device(), Inode::integer(), Size::integer()}} | {error, any()}).
-
-%% @doc Open a log file
--callback(open_logfile(Name::list(), Buffer::{integer(), integer()} | any()) ->
-    {ok, {FD::file:io_device(), Inode::integer(), Size::integer()}} | {error, any()}).
-
-%% @doc Ensure reference to current target, could be rotated
--callback(ensure_logfile(Name::list(), FD::file:io_device(), Inode::integer(),
-                         Buffer::{integer(), integer()} | any()) ->
-    {ok, {FD::file:io_device(), Inode::integer(), Size::integer()}} | {error, any()}).
-
-%% @doc Rotate the log file
--callback(rotate_logfile(Name::list(), Count::integer()) ->
-    ok).
-```
-
-Syslog Support
---------------
-Lager syslog output is provided as a separate application:
-lager_syslog(https://github.com/erlang-lager/lager_syslog). It is packaged as a
-separate application so lager itself doesn't have an indirect dependency on a
-port driver. Please see the `lager_syslog` README for configuration information.
-
-Other Backends
---------------
-There are lots of them! Some connect log messages to AMQP, various logging
-analytic services (bunyan(https://github.com/Vagabond/lager_bunyan_formatter),
-loggly(https://github.com/kivra/lager_loggly), etc), and more. Looking on
-hex(https://hex.pm/packages?_utf8=✓&search=lager&sort=recent_downloads) or
-using "lager BACKEND" where "BACKEND" is your preferred log solution
-on your favorite search engine is a good starting point.
-
-Exception Pretty Printing
-----------------------
-Up to OTP 20:
-
-```erlang
-try
-    foo()
-catch
-    Class:Reason ->
-        lager:error(
-            "~nStacktrace:~s",
-            lager:pr_stacktrace(erlang:get_stacktrace(), {Class, Reason}))
-end.
-```
-
-On OTP 21+:
-
-```erlang
-try
-    foo()
-catch
-    Class:Reason:Stacktrace ->
-        lager:error(
-            "~nStacktrace:~s",
-            lager:pr_stacktrace(Stacktrace, {Class, Reason}))
-end.
-```
-
-Record Pretty Printing
-----------------------
-Lager's parse transform will keep track of any record definitions it encounters
-and store them in the module's attributes. You can then, at runtime, print any
-record a module compiled with the lager parse transform knows about by using the
-`lager:pr/2` function, which takes the record and the module that knows about the record:
-
-```erlang
-lager:info("My state is ~p", lager:pr(State, ?MODULE))
-```
-
-Often, `?MODULE` is sufficent, but you can obviously substitute that for a literal module name.
-`lager:pr` also works from the shell.
-
-Colored terminal output
------------------------
-If you have Erlang R16 or higher, you can tell lager's console backend to be colored. Simply
-add to lager's application environment config:
-
-```erlang
-{colored, true}
-```
-
-If you don't like the default colors, they are also configurable; see
-the `.app.src` file for more details.
-
-The output will be colored from the first occurrence of the atom color
-in the formatting configuration. For example:
-
-```erlang
-{lager_console_backend, {level, info}, {formatter, lager_default_formatter},
-  {formatter_config, time, color, " ",severity," ", message, "\e0m\r\n"}}
-```
-
-This will make the entire log message, except time, colored. The
-escape sequence before the line break is needed in order to reset the
-color after each log message.
-
-Tracing
--------
-Lager supports basic support for redirecting log messages based on log message
-attributes. Lager automatically captures the pid, module, function and line at the
-log message callsite. However, you can add any additional attributes you wish:
-
-```erlang
-lager:warning({request, RequestID},{vhost, Vhost}, "Permission denied to ~s", User)
-```
-
-Then, in addition to the default trace attributes, you'll be able to trace
-based on request or vhost:
-
-```erlang
-lager:trace_file("logs/example.com.error", {vhost, "example.com"}, error)
-```
-
-To persist metadata for the life of a process, you can use `lager:md/1` to store metadata
-in the process dictionary:
-
-```erlang
-lager:md({zone, forbidden})
-```
-
-Note that `lager:md` will *only* accept a list of key/value pairs keyed by atoms.
-
-You can also omit the final argument, and the loglevel will default to
-`debug`.
-
-Tracing to the console is similar:
-
-```erlang
-lager:trace_console({request, 117})
-```
-
-In the above example, the loglevel is omitted, but it can be specified as the
-second argument if desired.
-
-You can also specify multiple expressions in a filter, or use the `*` atom as
-a wildcard to match any message that has that attribute, regardless of its
-value. You may also use the special value `!` to mean, only select if this
-key is **not** present.
-
-Tracing to an existing logfile is also supported (but see **Multiple
-sink support** below):
-
-```erlang
-lager:trace_file("log/error.log", {module, mymodule}, {function, myfunction}, warning)
-```
-
-To view the active log backends and traces, you can use the `lager:status()`
-function. To clear all active traces, you can use `lager:clear_all_traces()`.
-
-To delete a specific trace, store a handle for the trace when you create it,
-that you later pass to `lager:stop_trace/1`:
-
-```erlang
-{ok, Trace} = lager:trace_file("log/error.log", {module, mymodule}),
-...
-lager:stop_trace(Trace)
-```
-
-Tracing to a pid is somewhat of a special case, since a pid is not a
-data-type that serializes well. To trace by pid, use the pid as a string:
-
-```erlang
-lager:trace_console({pid, "<0.410.0>"})
-```
-
-### Filter expressions
-As of lager 3.3.1, you can also use a 3 tuple while tracing where the second
-element is a comparison operator. The currently supported comparison operators
-are:
-
-* `<` - less than
-* `=<` - less than or equal
-* `=` - equal to
-* `!=` - not equal to
-* `>` - greater than
-* `>=` - greater than or equal
-
-```erlang
-lager:trace_console({request, '>', 117}, {request, '<', 120})
-```
-
-Using `=` is equivalent to the 2-tuple form.
-
-### Filter composition
-As of lager 3.3.1 you may also use the special filter composition keys of
-`all` or `any`. For example the filter example above could be
-expressed as:
-
-```erlang
-lager:trace_console({all, {request, '>', 117}, {request, '<', 120}})
-```
-
-`any` has the effect of "OR style" logical evaluation between filters; `all`
-means "AND style" logical evaluation between filters. These compositional filters
-expect a list of additional filter expressions as their values.
-
-### Null filters
-The `null` filter has a special meaning.  A filter of `{null, false}` acts as
-a black hole; nothing is passed through.  A filter of `{null, true}` means
-*everything* passes through. No other values for the null filter are valid and
-will be rejected.
-
-### Multiple sink support
-
-If using multiple sinks, there are limitations on tracing that you
-should be aware of.
-
-Traces are specific to a sink, which can be specified via trace
-filters:
-
-```erlang
-lager:trace_file("log/security.log", {sink, audit_event}, {function, myfunction}, warning)
-```
-
-If no sink is thus specified, the default lager sink will be used.
-
-This has two ramifications:
-
-* Traces cannot intercept messages sent to a different sink.
-* Tracing to a file already opened via `lager:trace_file` will only be
-  successful if the same sink is specified.
-
-The former can be ameliorated by opening multiple traces; the latter
-can be fixed by rearchitecting lager's file backend, but this has not
-been tackled.
-
-### Traces from configuration
-
-Lager supports starting traces from its configuration file. The keyword
-to define them is `traces`, followed by a proplist of tuples that define
-a backend handler and zero or more filters in a required list,
-followed by an optional message severity level.
-
-An example looks like this:
-
-```erlang
-{lager, 
-  {handlers, ...},
-  {traces, 
-    %% handler,                         filter,                message level (defaults to debug if not given)
-    {lager_console_backend,             {module, foo},       info },
-    {{lager_file_backend, "trace.log"}, {request, '>', 120}, error},
-    {{lager_file_backend, "event.log"}, {module, bar}             } %% implied debug level here
-  }
-}.
-```
-
-In this example, we have three traces. One using the console backend, and two
-using the file backend. If the message severity level is left out, it defaults
-to `debug` as in the last file backend example.
-
-The `traces` keyword works on alternative sinks too but the same limitations
-and caveats noted above apply.
-
-**IMPORTANT**: You **must** define a severity level in all lager releases
-up to and including 3.1.0 or previous. The 2-tuple form wasn't added until
-3.2.0.
-
-Setting dynamic metadata at compile-time
-----------------------------------------
-Lager supports supplying metadata from external sources by registering a 
-callback function. This metadata is also persistent across processes even if 
-the process dies.
-
-In general use you won't need to use this feature. However it is useful in 
-situations such as:
- * Tracing information provided by 
-   seq_trace(http://erlang.org/doc/man/seq_trace.html)
- * Contextual information about your application
- * Persistent information which isn't provided by the default placeholders
- * Situations where you would have to set the metadata before every logging call 
-
-You can add the callbacks by using the `{lager_parse_transform_functions, X}` 
-option.  It is only available when using `parse_transform`. In rebar, you can 
-add it to `erl_opts` as below:
-
-```erlang
-{erl_opts, {parse_transform, lager_transform}, 
-            {lager_function_transforms, 
-              
-                 %% Placeholder              Resolve type  Callback tuple
-                {metadata_placeholder,       on_emit,      {module_name, function_name}},
-                {other_metadata_placeholder, on_log,       {module_name, function_name}}
-              }}.
-```
-
-The first atom is the placeholder atom used for the substitution in your custom
- formatter. See Custom Formatting(#custom-formatting) for more information.
-
-The second atom is the resolve type. This specify the callback to resolve at 
-the time of the message being emitted or at the time of the logging call. You 
-have to specify either the atom `on_emit` or `on_log`. There is not a 'right' 
-resolve type to use, so please read the uses/caveats of each and pick the option 
-which fits your requirements best.
- 
-`on_emit`:
-  * The callback functions are not resolved until the message is emitted by the
-    backend.
-  * If the callback function cannot be resolved, not loaded or produces 
-    unhandled errors then `undefined` will be returned.
-  * Since the callback function is dependent on a process, there is the 
-    chance that message will be emitted after the dependent process has died 
-    resulting in `undefined` being returned. This process can also be your own
-    process
- 
-`on_log`:
-  * The callback functions are resolved regardless whether the message is  
-    emitted or not
-  * If the callback function cannot be resolved or not loaded the errors are 
-    not handled by lager itself.
-  * Any potential errors in callback should be handled in the callback function
-    itself.
-  * Because the function is resolved at log time there should be less chance
-    of the dependent process dying before you can resolve it, especially if
-    you are logging from the app which contains the callback.
-
-The third element is the callback to your function consisting of a tuple in the
-form `{Module Function}`. The callback should look like the following 
-regardless if using `on_emit` or `on_log`:  
-  * It should be exported
-  * It should takes no arguments e.g. has an arity of 0
-  * It should return any traditional iolist elements or the atom `undefined`
-  * For errors generated within your callback see the resolve type documentation
-    above.
-
-If the callback returns `undefined` then it will follow the same fallback and
-conditional operator rules as documented in the 
-Custom Formatting(#custom-formatting) section. 
-
-This example would work with `on_emit` but could be unsafe to use with 
-`on_log`. If the call failed in `on_emit` it would default to `undefined`, 
-however with `on_log` it would error.
-
-```erlang
--export(my_callback/0).
-
-my_callback() ->
-  my_app_serv:call('some options').
-```
-
-This example would be to safe to work with both `on_emit` and `on_log`
-
-```erlang
--export(my_callback/0).
-
-my_callback() ->
-  try my_app_serv:call('some options') of
-    Result ->
-      Result
-  catch
-    _ ->
-      %% You could define any traditional iolist elements you wanted here
-      undefined
-  end.
-```
-
-Note that the callback can be any Module:Function/0. It does not have be part 
-of your application. For example you could use `cpu_sup:avg1/0` as your  
-callback function like so `{cpu_avg1, on_emit, {cpu_sup, avg1}}`
-
-
-Examples:
-
-```erlang
--export(reductions/0).
-
-reductions() ->
-  proplists:get_value(reductions, erlang:process_info(self())).
-```
-
-```erlang
--export(seq_trace/0).
-
-seq_trace() ->
-  case seq_trace:get_token(label) of
-    {label, TraceLabel} ->
-      TraceLabel;
-    _ ->
-      undefined
-  end.
-```
-
-**IMPORTANT**: Since `on_emit` relies on function calls injected at the
-point where a log message is emitted, your logging performance (ops/sec)
-will be impacted by what the functions you call do and how much latency they
-may introduce. This impact will even greater with `on_log` since the calls
-are injected at the point a message is logged.
-
-Setting the truncation limit at compile-time
---------------------------------------------
-Lager defaults to truncating messages at 4096 bytes, you can alter this by
-using the `{lager_truncation_size, X}` option. In rebar, you can add it to
-`erl_opts`:
-
-```erlang
-{erl_opts, {parse_transform, lager_transform}, {lager_truncation_size, 1024}}.
-```
-
-You can also pass it to `erlc`, if you prefer:
-
-```
-erlc -pa lager/ebin +'{parse_transform, lager_transform}' +'{lager_truncation_size, 1024}' file.erl
-```
-
-Suppress applications and supervisors start/stop logs
------------------------------------------------------
-If you don't want to see supervisors and applications start/stop logs in debug
-level of your application, you can use these configs to turn it off:
-
-```erlang
-{lager, {suppress_application_start_stop, true},
-         {suppress_supervisor_start_stop, true}}
-```
-
-Sys debug functions
---------------------
-
-Lager provides an integrated way to use sys 'debug functions'. You can install a debug
-function in a target process by doing
-
-```erlang
-lager:install_trace(Pid, notice).
-```
-
-You can also customize the tracing somewhat:
-
-```erlang
-lager:install_trace(Pid, notice, {count, 100}, {timeout, 5000}, {format_string, "my trace event ~p ~p"}).
-```
-
-The trace options are currently:
-
-* timeout - how long the trace stays installed: `infinity` (the default) or a millisecond timeout
-* count - how many trace events to log: `infinity` (default) or a positive number
-* format_string - the format string to log the event with. *Must* have 2 format specifiers for the 2 parameters supplied.
-
-This will, on every 'system event' for an OTP process (usually inbound messages, replies
-and state changes) generate a lager message at the specified log level.
-
-You can remove the trace when you're done by doing:
-
-```erlang
-lager:remove_trace(Pid).
-```
-
-If you want to start an OTP process with tracing enabled from the very beginning, you can do something like this:
-
-```erlang
-gen_server:start_link(mymodule, , {debug, {install, {fun lager:trace_func/3, lager:trace_state(undefined, notice, )}}}).
-```
-
-The third argument to the trace_state function is the Option list documented above.
-
-Console output to another group leader process
-----------------------------------------------
-
-If you want to send your console output to another group_leader (typically on
-another node) you can provide a `{group_leader, Pid}` argument to the console
-backend. This can be combined with another console config option, `id` and
-gen_event's `{Module, ID}` to allow remote tracing of a node to standard out via
-nodetool:
-
-```erlang
-    GL = erlang:group_leader(),
-    Node = node(GL),
-    lager_app:start_handler(lager_event, {lager_console_backend, Node},
-         {group_leader, GL}, {level, none}, {id, {lager_console_backend, Node}}),
-    case lager:trace({lager_console_backend, Node}, Filter, Level) of
-         ...
-```
-
-In the above example, the code is assumed to be running via a `nodetool rpc`
-invocation so that the code is executing on the Erlang node, but the
-group_leader is that of the reltool node (eg. appname_maint_12345@127.0.0.1).
-
-If you intend to use tracing with this feature, make sure the second parameter
-to start_handler and the `id` parameter match. Thus when the custom group_leader
-process exits, lager will remove any associated traces for that handler.
-
-Elixir Support
---------------
-
-There are 2 ways in which Lager can be leveraged in an Elixir project:
-
-1. Lager Backend for Elixir Logger
-2. Directly
-
-### Lager Backend for Elixir Logger
-
-Elixir's Logger(https://hexdocs.pm/logger/Logger.html) is the idiomatic way
-to add logging into elixir code. Logger has a plug-in model,
-allowing for different logging Backends(https://hexdocs.pm/logger/Logger.html#module-backends)
-to be used without the need to change the logging code within your project.
-
-This approach will benefit from the fact that most elixir libs and frameworks
-are likely to use the elixir Logger and as such logging will all flow via the
-same logging mechanism.
-
-In elixir 1.5 support for parse transforms was deprecated(https://github.com/elixir-lang/elixir/issues/5762).
-Taking the "Lager as a Logger Backend" approach is likely bypass any related 
-regression issues that would be introduced into a project which is using lager 
-directly when updating to elixir 1.5.
-
-There are open source elixir Logger backends for Lager available:
-- LagerLogger(https://github.com/PSPDFKit-labs/lager_logger)
-- LoggerLagerBackend(https://github.com/jonathanperret/logger_lager_backend)
-
-### Directly
-
-It is fully possible prior to elixir 1.5 to use lager and all its features
-directly.
-
-After elixir 1.5 there is no support for parse transforms, and it is
-recommended to use an elixir wrapper for the lager api that provides compile time
-log level exclusion via elixir macros when opting for direct use of lager.
-
-Including Lager as a dependency:
-``` elixir
-# mix.exs
-def application do
-  
-    applications: :lager,
-    erl_opts: parse_transform: "lager_transform"
-  
-end
-
-defp deps do
-  {:lager, "~> 3.2"}
-end
-```
-
-Example Configuration:
-``` elixir
-# config.exs
-use Mix.Config
-
-# Stop lager writing a crash log
-config :lager, :crash_log, false
-
-config :lager,
-  log_root: '/var/log/hello',
-  handlers: 
-    lager_console_backend: :info,
-    lager_file_backend: file: "error.log", level: :error,
-    lager_file_backend: file: "console.log", level: :info
-  
-```
-
-There is a known issue where Elixir's Logger and Lager both contest for the
-Erlang `error_logger` handle if used side by side.
-
-If using both add the following to your `config.exs`:
-```elixir
-# config.exs
-use Mix.Config
-
-# Stop lager redirecting :error_logger messages
-config :lager, :error_logger_redirect, false
-
-# Stop lager removing Logger's :error_logger handler
-config :lager, :error_logger_whitelist, Logger.ErrorHandler
-```
-
-Example Usage:
-``` elixir
-:lager.error('Some message')
-:lager.warning('Some message with a term: ~p', term)
-```
-
-3.x Changelog
--------------
-
-3.9.1 - 2 March 2021
-
-   * Bugfix: More log_root fun (#543)
-   * Bugfix: Use GHA for all the CIs
-
-3.9.0 - 24 February 2021
-
-    * Bugfix: Try to make a log root of "log" more sensible (#540)
-    * Feature: Further adapt to OTP 24 (also remove pre OTP 21 code),
-               adopt Github Actions for tests
-
-3.8.2 - 4 February 2021
-
-    * Bugfix: Make directory expansion return an absolute path (#535)
-    * Feature: Write crash.log under the log_root location (#536)
-    * Bugfix: Handle line numbering correctly in forthcoming OTP 24 release (#537)
-
-3.8.1 - 28 August 2020
-
-    * Feature: Allow metadata fields to be whitelisted in log formatting (#514)
-    * Feature: Enable a persistent_term log formatter (#530) (#531)
-    * Bugfix: Handle gen_statem crashes in newer OTP releases correctly (#523)
-    * Cleanup: Add a hex badge (#525)
-    * Cleanup: Fix Travis CI badge link
-    * Policy: Officially ending support for OTP 20 (Support OTP 21, 22, 23)
-
-3.8.0 - 9 August 2019
-
-    * Breaking API change: Modify the `lager_rotator_behaviour` to pass in a
-      file's creation time to `ensure_logfile/5` to be used to determine if
-      file has changed on systems where inodes are not available (i.e.
-      `win32`). The return value from `create_logfile/2`, `open_logfile/2` and
-      `ensure_logfile/5` now requires ctime to be returned (#509)
-    * Bugfix: ensure log file rotation works on `win32` (#509)
-    * Bugfix: ensure test suite passes on `win32` (#509)
-    * Bugfix: ensure file paths with Unicode are formatted properly (#510)
-
-3.7.0 - 24 May 2019
-
-    * Policy: Officially ending support for OTP 19 (Support OTP 20, 21, 22)
-    * Cleanup: Fix all dialyzer errors
-    * Bugfix: Minor changes to FSM/statem exits in OTP 22.
-
-3.6.10 - 30 April 2019
-
-    * Documentation: Fix pr_stacktrace invocation example (#494)
-    * Bugfix: Do not count suppressed messages for message drop counts (#499)
-
-3.6.9 - 13 March 2019
-
-    * Bugfix: Fix file rotation on windows (#493)
-
-3.6.8 - 21 December 2018
-
-    * Documentation: Document the error_logger_whitelist environment variable. (#489)
-    * Bugfix: Remove the built in handler inside of OTP 21 `logger` system. (#488)
-    * Bugfix: Cleanup unneeded check for is_map (#486)
-    * Bugfix: Cleanup ranch errors treated as cowboy errors (#485)
-    * Testing: Remove OTP 18 from TravisCI testing matrix
-
-3.6.7 - 14 October 2018
-
-    * Bugfix: fix tracing to work with OTP21 #480
-
-3.6.6 - 24 September 2018
-
-    * Bugfix: When printing records, handle an improper list correctly. #478
-    * Bugfix: Fix various tests and make some rotation code more explicit. #476
-    * Bugfix: Make sure not to miscount messages during high-water mark check. #475
-
-3.6.5 - 3 September 2018
-
-    * Feature: Allow the console backend to redirect output to a remote node #469
-    * Feature: is_loggble - support for severity as atom #472
-    * Bugfix: Prevent silent dropping of messages when hwm is exceeded #467
-    * Bugfix: rotation - default log file not deleted #474
-    * Bugfix: Handle strange crash report from gen_statem #473
-    * Documentation: Various markup fixes: #468 #470
-
-3.6.4 - 11 July 2018
-
-    * Bugfix: Reinstall handlers after a sink is killed #459
-    * Bugfix: Fix platform_define matching not to break on OSX Mojave #461
-    * Feature: Add support for installing a sys trace function #462
-
-3.6.3 - 6 June 2018
-
-    * OTP 21 support
-
-3.6.2 - 26 April 2018
-
-    * Bugfix: flush_threshold not working (#449)
-    * Feature: Add `node` as a formatting option (#447)
-    * Documentation: Update Elixir section with information about parse_transform (#446)
-    * Bugfix: Correct default console configuation to use "{level,info}" instead (#445)
-    * Feature: Pretty print lists of records at top level and field values with lager:pr (#442)
-    * Bugfix: Ignore return value of lager:dispatch_log in lager.hrl (#441)
-
-3.6.1 - 1 February 2018
-
-    * Bugfix: Make a few corrections to the recent mailbox flushing changes (#436)
-    * Bugfix: add flush options to proplist validation (#439)
-    * Bugfix: Don't log when we dropped 0 messages (#440)
-
-3.6.0 - 16 January 2018
-
-    * Feature: Support logging with macros per level (#419)
-    * Feature: Support custom file rotation handler; support hourly file
-               rotation (#420)
-    * Feature: Optionally reverse pretty stacktraces (so errors are
-               at the top and the failed function call is at the bottom.)
-               (#424)
-    * Bugfix:  Handle OTP 20 gen_server failure where client pid
-               is dead. (#426)
-    * Feature: Optionally don't flush notify messages at
-               high water mark. (#427)
-    * Bugfix:  Handle another stacktrace format (#429)
-    * Bugfix:  Fix test failure using macros on OTP 18 (#430)
-    * Policy:  Remove all code which supports R15 (#432)
-
-3.5.2 - 19 October 2017
-
-    * Bugfix: Properly check for unicode characters in potentially deep
-              character list. (#417)
-
-3.5.1 - 15 June 2017
-
-    * Doc fix: Missed a curly brace in an example. (#412)
-    * Feature: Dynamic metadata functions (#392) - It is now possible to
-               dynamically add metadata to lager messages. See the "dynamic
-               metadata" section above for more information.
-    * Doc fix: Add information about the "application" placeholder. (#414)
-
-3.5.0 - 28 May 2017
-
-    * Bugfix: Support OTP 20 gen_event messages (#410)
-    * Feature: Enable console output to standard_error.
-               Convert to proplist configuration style (like file handler)
-               Deprecate previous configuration directives (#409)
-    * Bugfix: Enable the event shaper to filter messages before they're
-              counted; do not count application/supervisor start/stops
-              toward high water mark. (#411)
-    * Docs: Add PR guidelines; add info about the #lager chat room on freenode.
-
-3.4.2 - 26 April 2017
-
-    * Docs: Document how to make lager use UTC timestamps (#405)
-    * Docs: Add a note about our triage cadence.
-    * Docs: Update lager_syslog URL
-    * Docs: Document placeholders for error_logger integration (#404)
-    * Feature: Add hex.pm metadata and full rebar3 support.
-
-3.4.1 - 28 March 2017
-
-    * Docs: Added documentation around using lager in the context of elixir applications (#398)
-    * Bugfix: Properly expand paths when log_root is set. (#386)
-    * Policy: Removed R15 from Travis configuration
-
-3.4.0 - 16 March 2017
-
-    * Policy: Adopt official OTP support policy. (This is the **last** lager 3.x release
-      that will support R15.)
-    * Test: Fix timeouts, R15 missing functions on possibly long-running tests in Travis. (#394, #395)
-    * Feature: capture and log metadata from error_logger messages (#397)
-    * Feature: Expose new trace filters and enable filter composition (#389)
-    * Feature: Log crashes from gen_fsm and gen_statem correctly (#391)
-    * Docs: Typo in badge URL (#390)
-
-3.3.0 - 16 February 2017
-
-    * Docs: Fix documentation to make 'it' unambiguous when discussing asychronous
-      operation. (#387)
-    * Test: Fix test flappiness due to insufficient sanitation between test runs (#384, #385)
-    * Feature: Allow metadata only logging. (#380)
-    * Feature: Add an upper case severity formatter (#372)
-    * Feature: Add support for suppressing start/stop messages from supervisors (#368)
-    * Bugfix: Fix ranch crash messages (#366)
-    * Test: Update Travis config for 18.3 and 19.0 (#365)
-
-3.2.4 - 11 October 2016
-
-    * Test: Fix dialyzer warnings.
-
-3.2.3 - 29 September 2016
-
-    * Dependency: Update to goldrush 0.19
-
-3.2.2 - 22 September 2016
-
-    * Bugfix: Backwards-compatibility fix for `{crash_log, undefined}` (#371)
-    * Fix documentation/README to reflect the preference for using `false`
-      as the `crash_log` setting value rather than `undefined` to indicate
-      that the crash log should not be written (#364)
-    * Bugfix: Backwards-compatibility fix for `lager_file_backend` "legacy"
-      configuration format (#374)
-
-3.2.1 - 10 June 2016
-
-    * Bugfix: Recent `get_env` changes resulted in launch failure (#355)
-    * OTP: Support typed records for Erlang 19.0 (#361)
-
-3.2.0 - 08 April 2016
-
-    * Feature: Optional sink killer to shed load when mailbox size exceeds a
-      configurable high water mark (#346)
-    * Feature: Export `configure_sink/2` so users may dynamically configure
-      previously setup and parse transformed sinks from their own code. (#342)
-    * Feature: Re-enable Travis CI and update .travis.yml (#340)
-    * Bugfix: Fix test race conditions for Travis CI (#344)
-    * Bugfix: Add the atom 'none' to the log_level() type so downstream
-      users won't get dialyzer failures if they use the 'none' log level. (#343)
-    * Bugfix: Fix typo in documentation. (#341)
-    * Bugfix: Fix OTP 18 test failures due to `warning_map/0` response
-      change. (#337)
-    * Bugfix: Make sure traces that use the file backend work correctly
-      when specified in lager configuration. (#336)
-    * Bugfix: Use `lager_app:get_env/3` for R15 compatibility. (#335)
-    * Bugfix: Make sure lager uses `id` instead of `name` when reporting
-      supervisor children failures. (The atom changed in OTP in 2014.) (#334)
-    * Bugfix: Make lager handle improper iolists (#327)
-
-3.1.0 - 27 January 2016
-
-    * Feature: API calls to a rotate handler, sink or all.  This change
-      introduces a new `rotate` message for 3rd party lager backends; that's
-      why this is released as a new minor version number. (#311)
-
-3.0.3 - 27 January 2016
-
-    * Feature: Pretty printer for human readable stack traces (#298)
-    * Feature: Make error reformatting optional (#305)
-    * Feature: Optional and explicit sink for error_logger messages (#303)
-    * Bugfix: Always explicitly close a file after its been rotated (#316)
-    * Bugfix: If a relative path already contains the log root, do not add it again (#317)
-    * Bugfix: Configure and start extra sinks before traces are evaluated (#307)
-    * Bugfix: Stop and remove traces correctly (#306)
-    * Bugfix: A byte value of 255 is valid for Unicode (#300)
-    * Dependency: Bump to goldrush 0.1.8 (#313)

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/TODO Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/dialyzer.ignore-warnings Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/include Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/include/lager.hrl Deleted

@@ -1,178 +0,0 @@
-%% Copyright (c) 2011-2012 Basho Technologies, Inc.  All Rights Reserved.
-%%
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-
-
--define(DEFAULT_TRUNCATION, 4096).
--define(DEFAULT_TRACER, lager_default_tracer).
--define(DEFAULT_SINK, lager_event).
--define(ERROR_LOGGER_SINK, error_logger_lager_event).
-
--define(METADATA(Extras), {severity, info},
-                           {pid, self()},
-                           {node, node()},
-                           {module, ?MODULE},
-                           {function, ?FUNCTION_NAME},
-                           {function_arity, ?FUNCTION_ARITY},
-                           {file, ?FILE},
-                           {line, ?LINE} | Extras).
-
--define(lager_log(Severity, Format, Args, Safety),
-        ?lager_log(?DEFAULT_SINK, Severity, ?METADATA(lager:md()), Format, Args,
-                   ?DEFAULT_TRUNCATION, Safety)).
--define(lager_log(Severity, Metadata, Format, Args, Safety),
-        ?lager_log(?DEFAULT_SINK, Severity, ?METADATA(Metadata++lager:md()), Format, Args,
-                   ?DEFAULT_TRUNCATION, Safety)).
-
--define(lager_log(Sink, Severity, Metadata, Format, Args, Size, Safety),
-        _ = lager:dispatch_log(Sink, Severity, Metadata, Format, Args, Size, Safety)).
-
--define(lager_debug(Format, Args), ?lager_log(debug, Format, Args, safe)).
--define(lager_debug(Metadata, Format, Args), ?lager_log(debug, Metadata, Format, Args, safe)).
-
--define(lager_info(Format, Args), ?lager_log(info, Format, Args, safe)).
--define(lager_info(Metadata, Format, Args), ?lager_log(info, Metadata, Format, Args, safe)).
-
--define(lager_notice(Format, Args), ?lager_log(notice, Format, Args, safe)).
--define(lager_notice(Metadata, Format, Args), ?lager_log(notice, Metadata, Format, Args, safe)).
-
--define(lager_warning(Format, Args), ?lager_log(warning, Format, Args, safe)).
--define(lager_warning(Metadata, Format, Args), ?lager_log(warning, Metadata, Format, Args, safe)).
-
--define(lager_error(Format, Args), ?lager_log(error, Format, Args, safe)).
--define(lager_error(Metadata, Format, Args), ?lager_log(error, Metadata, Format, Args, safe)).
-
--define(lager_critical(Format, Args), ?lager_log(critical, Format, Args, safe)).
--define(lager_critical(Metadata, Format, Args), ?lager_log(critical, Metadata, Format, Args, safe)).
-
--define(lager_alert(Format, Args), ?lager_log(alert, Format, Args, safe)).
--define(lager_alert(Metadata, Format, Args), ?lager_log(alert, Metadata, Format, Args, safe)).
-
--define(lager_emergency(Format, Args), ?lager_log(emergency, Format, Args, safe)).
--define(lager_emergency(Metadata, Format, Args), ?lager_log(emergency, Metadata, Format, Args, safe)).
-
--define(lager_none(Format, Args), ?lager_log(none, Format, Args, safe)).
--define(lager_none(Metadata, Format, Args), ?lager_log(none, Metadata, Format, Args, safe)).
-
--define(LEVELS,
-    debug, info, notice, warning, error, critical, alert, emergency, none).
-
-%% Use of these "functions" means that the argument list will not be
-%% truncated for safety
--define(LEVELS_UNSAFE,
-    {debug_unsafe, debug}, {info_unsafe, info}, {notice_unsafe, notice}, {warning_unsafe, warning}, {error_unsafe, error}, {critical_unsafe, critical}, {alert_unsafe, alert}, {emergency_unsafe, emergency}).
-
--define(DEBUG, 128).
--define(INFO, 64).
--define(NOTICE, 32).
--define(WARNING, 16).
--define(ERROR, 8).
--define(CRITICAL, 4).
--define(ALERT, 2).
--define(EMERGENCY, 1).
--define(LOG_NONE, 0).
-
--define(LEVEL2NUM(Level),
-    case Level of
-        debug -> ?DEBUG;
-        info -> ?INFO;
-        notice -> ?NOTICE;
-        warning -> ?WARNING;
-        error -> ?ERROR;
-        critical -> ?CRITICAL;
-        alert -> ?ALERT;
-        emergency -> ?EMERGENCY
-    end).
-
--define(NUM2LEVEL(Num),
-    case Num of
-        ?DEBUG -> debug;
-        ?INFO -> info;
-        ?NOTICE -> notice;
-        ?WARNING -> warning;
-        ?ERROR -> error;
-        ?CRITICAL -> critical;
-        ?ALERT -> alert;
-        ?EMERGENCY -> emergency
-    end).
-
--define(SHOULD_LOG(Sink, Level),
-    (lager_util:level_to_num(Level) band element(1, lager_config:get({Sink, loglevel}, {?LOG_NONE, }))) /= 0).
-
--define(SHOULD_LOG(Level),
-    (lager_util:level_to_num(Level) band element(1, lager_config:get(loglevel, {?LOG_NONE, }))) /= 0).
-
--define(NOTIFY(Level, Pid, Format, Args),
-    gen_event:notify(lager_event, {log, lager_msg:new(io_lib:format(Format, Args),
-            Level,
-            {pid,Pid},{line,?LINE},{file,?FILE},{module,?MODULE},
-            )}
-        )).
-
-%% FOR INTERNAL USE ONLY
-%% internal non-blocking logging call
-%% there's some special handing for when we try to log (usually errors) while
-%% lager is still starting.
--ifdef(TEST).
--define(INT_LOG(Level, Format, Args),
-    case ?SHOULD_LOG(Level) of
-        true ->
-            ?NOTIFY(Level, self(), Format, Args);
-        _ ->
-            ok
-    end).
--else.
--define(INT_LOG(Level, Format, Args),
-    Self = self(),
-    %% do this in a spawn so we don't cause a deadlock calling gen_event:which_handlers
-    %% from a gen_event handler
-    spawn(fun() ->
-            case catch(gen_event:which_handlers(lager_event)) of
-                X when X == ; X == {'EXIT', noproc}; X == lager_backend_throttle ->
-                    %% there's no handlers yet or lager isn't running, try again
-                    %% in half a second.
-                    timer:sleep(500),
-                    ?NOTIFY(Level, Self, Format, Args);
-                _ ->
-                    case ?SHOULD_LOG(Level) of
-                        true ->
-                            ?NOTIFY(Level, Self, Format, Args);
-                        _ ->
-                            ok
-                    end
-            end
-    end)).
--endif.
-
--record(lager_shaper, {
-                  id :: any(),
-                  %% how many messages per second we try to deliver
-                  hwm = undefined :: 'undefined' | pos_integer(),
-                  %% how many messages we've received this second
-                  mps = 0 :: non_neg_integer(),
-                  %% the current second
-                  lasttime = os:timestamp() :: erlang:timestamp(),
-                  %% count of dropped messages this second
-                  dropped = 0 :: non_neg_integer(),
-                  %% If true, flush notify messages from msg queue at overload
-                  flush_queue = true :: boolean(),
-                  flush_threshold = 0 :: integer(),
-                  %% timer
-                  timer = make_ref() :: reference(),
-                  %% optional filter fun to avoid counting suppressed messages against HWM totals
-                  filter = fun(_) -> false end :: fun()
-                 }).
-
--type lager_shaper() :: #lager_shaper{}.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/priv Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/priv/edoc.css Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/rebar Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/rebar.config Deleted

@@ -1,59 +0,0 @@
-%% -*- erlang -*-
-%% -------------------------------------------------------------------
-%%
-%% Copyright (c) 2011-2015 Basho Technologies, Inc.
-%%
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-%%
-%% -------------------------------------------------------------------
-
-{erl_opts, 
-    {lager_extra_sinks, '__lager_test_sink'},
-    {platform_define, "^18", 'FUNCTION_NAME', unavailable},
-    {platform_define, "^18", 'FUNCTION_ARITY', 0},
-    debug_info,
-    report,
-    verbose,
-    warn_deprecated_function,
-    warn_deprecated_type,
-    warn_export_all,
-    warn_export_vars,
-    warn_obsolete_guard,
-    warn_untyped_record,
-    warn_unused_import
-    % do NOT include warnings_as_errors, as rebar includes these options
-    % when compiling for eunit, and at least one test module has code that
-    % is deliberatly broken and will generate an un-maskable warning
-}.
-
-{erl_first_files, "src/lager_util.erl"}.
-
-{eunit_opts, verbose}.
-{eunit_compile_opts, 
-    export_all,
-
-    nowarn_untyped_record,
-    nowarn_export_all
-}.
-
-{deps, 
-    {goldrush, "0.1.9"}
-}.
-
-{xref_checks, }.
-{xref_queries, {"(XC - UC) || (XU - X - B - lager_default_tracer : Mod - erlang:\"(is_map|map_size)\"/1 - maps:to_list/1)", }}.
-
-{cover_enabled, true}.
-{edoc_opts, {stylesheet_file, "./priv/edoc.css"}}.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/rebar.config.script Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/src Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/src/error_logger_lager_h.erl Deleted

@@ -1,794 +0,0 @@
-%% Copyright (c) 2011-2015 Basho Technologies, Inc.  All Rights Reserved.
-%%
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-
-%% @doc A error_logger backend for redirecting events into lager.
-%% Error messages and crash logs are also optionally written to a crash log.
-
-%% @see lager_crash_log
-
-%% @private
-
--module(error_logger_lager_h).
-
--include("lager.hrl").
-
--behaviour(gen_event).
-
--export(set_high_water/1).
--export(init/1, handle_call/2, handle_event/2, handle_info/2, terminate/2,
-        code_change/3).
-
--export(format_reason/1, format_mfa/1, format_args/3).
-
--record(state, {
-        sink :: atom(),
-        shaper :: lager_shaper(),
-        %% group leader strategy
-        groupleader_strategy :: handle | ignore | mirror,
-        raw :: boolean()
-    }).
-
--define(LOGMSG(Sink, Level, Pid, Msg),
-    case ?SHOULD_LOG(Sink, Level) of
-        true ->
-            _ =lager:log(Sink, Level, Pid, Msg, ),
-            logged;
-        _ -> no_log
-    end).
-
--define(LOGFMT(Sink, Level, Pid, Fmt, Args),
-    case ?SHOULD_LOG(Sink, Level) of
-        true ->
-            _ = lager:log(Sink, Level, Pid, Fmt, Args),
-            logged;
-        _ -> no_log
-    end).
-
--ifdef(TEST).
-%% Make CRASH synchronous when testing, to avoid timing headaches
--define(CRASH_LOG(Event),
-    catch(gen_server:call(lager_crash_log, {log, Event}))).
--else.
--define(CRASH_LOG(Event),
-    gen_server:cast(lager_crash_log, {log, Event})).
--endif.
-
-set_high_water(N) ->
-    gen_event:call(error_logger, ?MODULE, {set_high_water, N}, infinity).
-
--spec init(any()) -> {ok, #state{}}.
-init(HighWaterMark, GlStrategy) ->
-    Flush = application:get_env(lager, error_logger_flush_queue, true),
-    FlushThr = application:get_env(lager, error_logger_flush_threshold, 0),
-    Shaper = #lager_shaper{hwm=HighWaterMark, flush_queue = Flush, flush_threshold = FlushThr, filter=shaper_fun(), id=?MODULE},
-    Raw = application:get_env(lager, error_logger_format_raw, false),
-    Sink = configured_sink(),
-    {ok, #state{sink=Sink, shaper=Shaper, groupleader_strategy=GlStrategy, raw=Raw}}.
-
-handle_call({set_high_water, N}, #state{shaper=Shaper} = State) ->
-    NewShaper = Shaper#lager_shaper{hwm=N},
-    {ok, ok, State#state{shaper = NewShaper}};
-handle_call(_Request, State) ->
-    {ok, unknown_call, State}.
-
-shaper_fun() ->
-    case {application:get_env(lager, suppress_supervisor_start_stop, false), application:get_env(lager, suppress_application_start_stop, false)} of
-        {false, false} ->
-            fun(_) -> false end;
-        {true, true} ->
-            fun suppress_supervisor_start_and_application_start/1;
-        {false, true} ->
-            fun suppress_application_start/1;
-        {true, false} ->
-            fun suppress_supervisor_start/1
-    end.
-
-suppress_supervisor_start_and_application_start(E) ->
-    suppress_supervisor_start(E) orelse suppress_application_start(E).
-
-suppress_application_start({info_report, _GL, {_Pid, std_info, D}}) when is_list(D) ->
-    lists:member({exited, stopped}, D);
-suppress_application_start({info_report, _GL, {_P, progress, D}}) ->
-    lists:keymember(application, 1, D) andalso lists:keymember(started_at, 1, D);
-suppress_application_start(_) ->
-    false.
-
-suppress_supervisor_start({info_report, _GL, {_P, progress, D}}) ->
-    lists:keymember(started, 1, D) andalso lists:keymember(supervisor, 1, D);
-suppress_supervisor_start(_) ->
-    false.
-
-handle_event(Event, #state{sink=Sink, shaper=Shaper} = State) ->
-    case lager_util:check_hwm(Shaper, Event) of
-        {true, 0, NewShaper} ->
-            eval_gl(Event, State#state{shaper=NewShaper});
-        {true, Drop, #lager_shaper{hwm=Hwm} = NewShaper} when Drop > 0 ->
-            ?LOGFMT(Sink, warning, self(),
-                "lager_error_logger_h dropped ~p messages in the last second that exceeded the limit of ~p messages/sec",
-                Drop, Hwm),
-            eval_gl(Event, State#state{shaper=NewShaper});
-        {false, _, #lager_shaper{dropped=D} = NewShaper} ->
-            {ok, State#state{shaper=NewShaper#lager_shaper{dropped=D+1}}}
-    end.
-
-handle_info({shaper_expired, ?MODULE}, #state{sink=Sink, shaper=Shaper} = State) ->
-    case Shaper#lager_shaper.dropped of
-        0 ->
-            ok;
-        Dropped ->
-            ?LOGFMT(Sink, warning, self(),
-                    "lager_error_logger_h dropped ~p messages in the last second that exceeded the limit of ~p messages/sec",
-                    Dropped, Shaper#lager_shaper.hwm)
-    end,
-    {ok, State#state{shaper=Shaper#lager_shaper{dropped=0, mps=0, lasttime=os:timestamp()}}};
-handle_info(_Info, State) ->
-    {ok, State}.
-
-terminate(_Reason, _State) ->
-    ok.
-
-
-code_change(_OldVsn, {state, Shaper, GLStrategy}, _Extra) ->
-    Raw = application:get_env(lager, error_logger_format_raw, false),
-    {ok, #state{
-        sink=configured_sink(),
-        shaper=Shaper,
-        groupleader_strategy=GLStrategy,
-        raw=Raw
-        }};
-code_change(_OldVsn, {state, Sink, Shaper, GLS}, _Extra) ->
-    Raw = application:get_env(lager, error_logger_format_raw, false),
-    {ok, #state{sink=Sink, shaper=Shaper, groupleader_strategy=GLS, raw=Raw}};
-code_change(_OldVsn, State, _Extra) ->
-    {ok, State}.
-
-%% internal functions
-
-configured_sink() ->
-    case proplists:get_value(?ERROR_LOGGER_SINK, application:get_env(lager, extra_sinks, )) of
-        undefined -> ?DEFAULT_SINK;
-        _ -> ?ERROR_LOGGER_SINK
-    end.
-
-eval_gl(Event, #state{groupleader_strategy=GlStrategy0}=State) when is_pid(element(2, Event)) ->
-    case element(2, Event) of
-         GL when node(GL) =/= node(), GlStrategy0 =:= ignore ->
-            gen_event:notify({error_logger, node(GL)}, Event),
-            {ok, State};
-         GL when node(GL) =/= node(), GlStrategy0 =:= mirror ->
-            gen_event:notify({error_logger, node(GL)}, Event),
-            log_event(Event, State);
-         _ ->
-            log_event(Event, State)
-    end;
-eval_gl(Event, State) ->
-    log_event(Event, State).
-
-log_event(Event, #state{sink=Sink} = State) ->
-    DidLog = case Event of
-        {error, _GL, {Pid, Fmt, Args}} ->
-            FormatRaw = State#state.raw,
-            case {FormatRaw, Fmt} of
-                {false, "** Generic server "++_} ->
-                    %% gen_server terminate
-                    {Reason, Name} = case Args of
-                                         N, _Msg, _State, R ->
-                                             {R, N};
-                                         N, _Msg, _State, R, _Client ->
-                                             %% OTP 20 crash reports where the client pid is dead don't include the stacktrace
-                                             {R, N};
-                                         N, _Msg, _State, R, _Client, _Stacktrace ->
-                                             %% OTP 20 crash reports contain the pid of the client and stacktrace
-                                             %% TODO do something with them
-                                             {R, N}
-                                     end,
-                    ?CRASH_LOG(Event),
-                    {Md, Formatted} = format_reason_md(Reason),
-                    ?LOGFMT(Sink, error, {pid, Pid}, {name, Name} | Md, "gen_server ~w terminated with reason: ~s",
-                        Name, Formatted);
-                {false, "** State machine "++_} ->
-                    %% Check if the terminated process is gen_fsm or gen_statem
-                    %% since they generate the same exit message
-                    {Type, Name, StateName, Reason} = case Args of
-                        TName, _Msg, TStateName, _StateData, TReason ->
-                            {gen_fsm, TName, TStateName, TReason};
-                        %% Handle changed logging in gen_fsm stdlib-3.9 (TPid, ClientArgs)
-                        TName, _Msg, TPid, TStateName, _StateData, TReason | _ClientArgs when is_pid(TPid), is_atom(TStateName) ->
-                            {gen_fsm, TName, TStateName, TReason};
-                        %% Handle changed logging in gen_statem stdlib-3.9 (ClientArgs)
-                        TName, _Msg, {TStateName, _StateData}, _ExitType, TReason, _CallbackMode, Stacktrace | _ClientArgs ->
-                            {gen_statem, TName, TStateName, {TReason, Stacktrace}};
-                        %% Handle changed logging in gen_statem stdlib-3.9 (ClientArgs)
-                        TName, {TStateName, _StateData}, _ExitType, TReason, _CallbackMode, Stacktrace | _ClientArgs ->
-                            {gen_statem, TName, TStateName, {TReason, Stacktrace}};
-                        TName, _Msg, {TStateName, _StateData}, _ExitType, TReason, _CallbackMode, Stacktrace | _ClientArgs ->
-                            %% sometimes gen_statem wraps its statename/data in a list for some reason???
-                            {gen_statem, TName, TStateName, {TReason, Stacktrace}}
-                    end,
-                    {Md, Formatted} = format_reason_md(Reason),
-                    ?CRASH_LOG(Event),
-                    ?LOGFMT(Sink, error, {pid, Pid}, {name, Name} | Md, "~s ~w in state ~w terminated with reason: ~s",
-                        Type, Name, StateName, Formatted);
-                {false, "** gen_event handler"++_} ->
-                    %% gen_event handler terminate
-                    ID, Name, _Msg, _State, Reason = Args,
-                    {Md, Formatted} = format_reason_md(Reason),
-                    ?CRASH_LOG(Event),
-                    ?LOGFMT(Sink, error, {pid, Pid}, {name, Name} | Md, "gen_event ~w installed in ~w terminated with reason: ~s",
-                        ID, Name, Formatted);
-                {false, "** Cowboy handler"++_} ->
-                    %% Cowboy HTTP server error
-                    ?CRASH_LOG(Event),
-                    case Args of
-                        Module, Function, Arity, _Request, _State ->
-                            %% we only get the 5-element list when its a non-exported function
-                            ?LOGFMT(Sink, error, Pid,
-                                "Cowboy handler ~p terminated with reason: call to undefined function ~p:~p/~p",
-                                Module, Module, Function, Arity);
-                        Module, Function, Arity, _Class, Reason | Tail ->
-                            %% any other cowboy error_format list *always* ends with the stacktrace
-                            StackTrace = lists:last(Tail),
-                            {Md, Formatted} = format_reason_md({Reason, StackTrace}),
-                            ?LOGFMT(Sink, error, {pid, Pid} | Md,
-                                "Cowboy handler ~p terminated in ~p:~p/~p with reason: ~s",
-                                Module, Module, Function, Arity, Formatted)
-                    end;
-                {false, "Ranch listener "++_} ->
-                    %% Ranch errors
-                    ?CRASH_LOG(Event),
-                    case Args of
-                        %% Error logged by cowboy, which starts as ranch error
-                        Ref, ConnectionPid, StreamID, RequestPid, Reason, StackTrace ->
-                            {Md, Formatted} = format_reason_md({Reason, StackTrace}),
-                            ?LOGFMT(Sink, error, {pid, RequestPid} | Md,
-                                "Cowboy stream ~p with ranch listener ~p and connection process ~p "
-                                "had its request process exit with reason: ~s",
-                                StreamID, Ref, ConnectionPid, Formatted);
-                        Ref, _Protocol, Worker, {{reason, Reason}, {mfa, {Module, Function, Arity}}, {stacktrace, StackTrace} | _, _} ->
-                            {Md, Formatted} = format_reason_md({Reason, StackTrace}),
-                            ?LOGFMT(Sink, error, {pid, Worker} | Md,
-                                "Ranch listener ~p terminated in ~p:~p/~p with reason: ~s",
-                                Ref, Module, Function, Arity, Formatted);
-                        Ref, _Protocol, Worker, Reason ->
-                            {Md, Formatted} = format_reason_md(Reason),
-                            ?LOGFMT(Sink, error, {pid, Worker} | Md,
-                                "Ranch listener ~p terminated with reason: ~s",
-                                Ref, Formatted);
-                        Ref, Protocol, Ret ->
-                            %% ranch_conns_sup.erl module line 119-123 has three parameters error msg, log it.
-                            {Md, Formatted} = format_reason_md(Ret),
-                            ?LOGFMT(Sink, error, {pid, Protocol} | Md,
-                                "Ranch listener ~p terminated with result:~s",
-                                Ref, Formatted)
-                    end;
-                {false, "webmachine error"++_} ->
-                    %% Webmachine HTTP server error
-                    ?CRASH_LOG(Event),
-                    Path, Error = Args,
-                    %% webmachine likes to mangle the stack, for some reason
-                    StackTrace = case Error of
-                        {error, {error, Reason, Stack}} ->
-                            {Reason, Stack};
-                        _ ->
-                            Error
-                    end,
-                    {Md, Formatted} = format_reason_md(StackTrace),
-                    ?LOGFMT(Sink, error, {pid, Pid} | Md, "Webmachine error at path ~p : ~s", Path, Formatted);
-                _ ->
-                    ?CRASH_LOG(Event),
-                    ?LOGFMT(Sink, error, Pid, Fmt, Args)
-            end;
-        {error_report, _GL, {Pid, std_error, D}} ->
-            ?CRASH_LOG(Event),
-            ?LOGMSG(Sink, error, Pid, print_silly_list(D));
-        {error_report, _GL, {Pid, supervisor_report, D}} ->
-            ?CRASH_LOG(Event),
-            case lists:sort(D) of
-                {errorContext, Ctx}, {offender, Off}, {reason, Reason}, {supervisor, Name} ->
-                    Offender = format_offender(Off),
-                    {Md, Formatted} = format_reason_md(Reason),
-                    ?LOGFMT(Sink, error, {pid, Pid} | Md,
-                        "Supervisor ~w had child ~s exit with reason ~s in context ~w",
-                        supervisor_name(Name), Offender, Formatted, Ctx);
-                _ ->
-                    ?LOGMSG(Sink, error, Pid, "SUPERVISOR REPORT " ++ print_silly_list(D))
-            end;
-        {error_report, _GL, {Pid, crash_report, Self, Neighbours}} ->
-            ?CRASH_LOG(Event),
-            {Md, Formatted} = format_crash_report(Self, Neighbours),
-            ?LOGMSG(Sink, error, {pid, Pid} | Md, "CRASH REPORT " ++ Formatted);
-        {warning_msg, _GL, {Pid, Fmt, Args}} ->
-            ?LOGFMT(Sink, warning, Pid, Fmt, Args);
-        {warning_report, _GL, {Pid, std_warning, Report}} ->
-            ?LOGMSG(Sink, warning, Pid, print_silly_list(Report));
-        {info_msg, _GL, {Pid, Fmt, Args}} ->
-            ?LOGFMT(Sink, info, Pid, Fmt, Args);
-        {info_report, _GL, {Pid, std_info, D}} when is_list(D) ->
-            Details = lists:sort(D),
-            case Details of
-                {application, App}, {exited, Reason}, {type, _Type} ->
-                    case application:get_env(lager, suppress_application_start_stop, false) of
-                        true when Reason == stopped ->
-                            no_log;
-                        _ ->
-                            {Md, Formatted} = format_reason_md(Reason),
-                            ?LOGFMT(Sink, info, {pid, Pid} | Md, "Application ~w exited with reason: ~s",
-                                    App, Formatted)
-                    end;
-                _ ->
-                    ?LOGMSG(Sink, info, Pid, print_silly_list(D))
-            end;
-        {info_report, _GL, {Pid, std_info, D}} ->
-            ?LOGFMT(Sink, info, Pid, "~w", D);
-        {info_report, _GL, {P, progress, D}} ->
-            Details = lists:sort(D),
-            case Details of
-                {application, App}, {started_at, Node} ->
-                    case application:get_env(lager, suppress_application_start_stop, false) of
-                        true ->
-                            no_log;
-                        _ ->
-                            ?LOGFMT(Sink, info, P, "Application ~w started on node ~w",
-                                    App, Node)
-                    end;
-                {started, Started}, {supervisor, Name} ->
-                    case application:get_env(lager, suppress_supervisor_start_stop, false) of
-                        true ->
-                            no_log;
-                        _ ->
-                            MFA = format_mfa(get_value(mfargs, Started)),
-                            Pid = get_value(pid, Started),
-                            ?LOGFMT(Sink, debug, P, "Supervisor ~w started ~s at pid ~w",
-                                supervisor_name(Name), MFA, Pid)
-                    end;
-                _ ->
-                    ?LOGMSG(Sink, info, P, "PROGRESS REPORT " ++ print_silly_list(D))
-            end;
-        _ ->
-            ?LOGFMT(Sink, warning, self(), "Unexpected error_logger event ~w", Event)
-    end,
-    case DidLog of
-        logged ->
-            {ok, State};
-        no_log ->
-            Shaper = State#state.shaper,
-            {ok, State#state{
-                   shaper = Shaper#lager_shaper{
-                              mps = Shaper#lager_shaper.mps - 1
-                             }
-                  }
-            }
-    end.
-
-format_crash_report(Report, Neighbours) ->
-    Name = case get_value(registered_name, Report, ) of
-         ->
-            %% process_info(Pid, registered_name) returns  for unregistered processes
-            get_value(pid, Report);
-        Atom -> Atom
-    end,
-    Md0 = case get_value(dictionary, Report, ) of
-         ->
-            %% process_info(Pid, registered_name) returns  for unregistered processes
-            ;
-        Dict ->
-            %% pull the lager metadata out of the process dictionary, if we can
-            get_value('_lager_metadata', Dict, )
-    end,
-
-    {Class, Reason, Trace} = get_value(error_info, Report),
-    {Md, ReasonStr} = format_reason_md({Reason, Trace}),
-    Type = case Class of
-        exit -> "exited";
-        _ -> "crashed"
-    end,
-    {Md0 ++ Md, io_lib:format("Process ~w with ~w neighbours ~s with reason: ~s",
-        Name, length(Neighbours), Type, ReasonStr)}.
-
-format_offender(Off) ->
-    case get_value(mfargs, Off) of
-        undefined ->
-            %% supervisor_bridge
-            io_lib:format("at module ~w at ~w",
-                get_value(mod, Off), get_value(pid, Off));
-        MFArgs ->
-            %% regular supervisor
-            {_, MFA} = format_mfa_md(MFArgs),
-
-            %% In 2014 the error report changed from `name' to
-            %% `id', so try that first.
-            Name = case get_value(id, Off) of
-                       undefined ->
-                           get_value(name, Off);
-                       Id ->
-                           Id
-                   end,
-            io_lib:format("~p started with ~s at ~w",
-                Name, MFA, get_value(pid, Off))
-    end.
-
-%% backwards compatability shim
-format_reason(Reason) ->
-    element(2, format_reason_md(Reason)).
-
--spec format_reason_md(Stacktrace:: any()) -> {Metadata:: {atom(), any()}, String :: list()}.
-format_reason_md({'function not exported', {M, F, A},MFA|_}) ->
-    {Md, Formatted} = format_mfa_md(MFA),
-    {_, Formatted2} = format_mfa_md({M, F, length(A)}),
-    {{reason, 'function not exported'} | Md,
-     "call to undefined function ", Formatted2,
-         " from ", Formatted};
-format_reason_md({'function not exported', {M, F, A, _Props},MFA|_}) ->
-    %% R15 line numbers
-    {Md, Formatted} = format_mfa_md(MFA),
-    {_, Formatted2} = format_mfa_md({M, F, length(A)}),
-    {{reason, 'function not exported'} | Md,
-     "call to undefined function ", Formatted2,
-         " from ", Formatted};
-format_reason_md({undef, MFA|_}) ->
-    {Md, Formatted} = format_mfa_md(MFA),
-    {{reason, undef} | Md,
-     "call to undefined function ", Formatted};
-format_reason_md({bad_return, {_MFA, {'EXIT', Reason}}}) ->
-    format_reason_md(Reason);
-format_reason_md({bad_return, {MFA, Val}}) ->
-    {Md, Formatted} = format_mfa_md(MFA),
-    {{reason, bad_return} | Md,
-     "bad return value ", print_val(Val), " from ", Formatted};
-format_reason_md({bad_return_value, Val}) ->
-    {{reason, bad_return},
-     "bad return value: ", print_val(Val)};
-format_reason_md({{bad_return_value, Val}, MFA}) ->
-    {Md, Formatted} = format_mfa_md(MFA),
-    {{reason, bad_return_value} | Md,
-     "bad return value: ", print_val(Val), " in ", Formatted};
-format_reason_md({{badrecord, Record}, MFA|_}) ->
-    {Md, Formatted} = format_mfa_md(MFA),
-    {{reason, badrecord} | Md,
-     "bad record ", print_val(Record), " in ", Formatted};
-format_reason_md({{case_clause, Val}, MFA|_}) ->
-    {Md, Formatted} = format_mfa_md(MFA),
-    {{reason, case_clause} | Md,
-     "no case clause matching ", print_val(Val), " in ", Formatted};
-format_reason_md({function_clause, MFA|_}) ->
-    {Md, Formatted} = format_mfa_md(MFA),
-    {{reason, function_clause} | Md,
-     "no function clause matching ", Formatted};
-format_reason_md({if_clause, MFA|_}) ->
-    {Md, Formatted} = format_mfa_md(MFA),
-    {{reason, if_clause} | Md,
-     "no true branch found while evaluating if expression in ", Formatted};
-format_reason_md({{try_clause, Val}, MFA|_}) ->
-    {Md, Formatted} = format_mfa_md(MFA),
-    {{reason, try_clause} | Md,
-     "no try clause matching ", print_val(Val), " in ", Formatted};
-format_reason_md({badarith, MFA|_}) ->
-    {Md, Formatted} = format_mfa_md(MFA),
-    {{reason, badarith} | Md,
-     "bad arithmetic expression in ", Formatted};
-format_reason_md({{badmatch, Val}, MFA|_}) ->
-    {Md, Formatted} = format_mfa_md(MFA),
-    {{reason, badmatch} | Md,
-     "no match of right hand value ", print_val(Val), " in ", Formatted};
-format_reason_md({emfile, _Trace}) ->
-    {{reason, emfile},
-     "maximum number of file descriptors exhausted, check ulimit -n"};
-format_reason_md({system_limit, {M, F, _}|_ = Trace}) ->
-    Limit = case {M, F} of
-        {erlang, open_port} ->
-            "maximum number of ports exceeded";
-        {erlang, spawn} ->
-            "maximum number of processes exceeded";
-        {erlang, spawn_opt} ->
-            "maximum number of processes exceeded";
-        {erlang, list_to_atom} ->
-            "tried to create an atom larger than 255, or maximum atom count exceeded";
-        {ets, new} ->
-            "maximum number of ETS tables exceeded";
-        _ ->
-            {Str, _} = lager_trunc_io:print(Trace, 500),
-            Str
-    end,
-    {{reason, system_limit}, "system limit: ", Limit};
-format_reason_md({badarg, MFA,MFA2|_}) ->
-    case MFA of
-        {_M, _F, A, _Props} when is_list(A) ->
-            %% R15 line numbers
-            {Md, Formatted} = format_mfa_md(MFA2),
-            {_, Formatted2} = format_mfa_md(MFA),
-            {{reason, badarg} | Md,
-             "bad argument in call to ", Formatted2, " in ", Formatted};
-        {_M, _F, A} when is_list(A) ->
-            {Md, Formatted} = format_mfa_md(MFA2),
-            {_, Formatted2} = format_mfa_md(MFA),
-            {{reason, badarg} | Md,
-             "bad argument in call to ", Formatted2, " in ", Formatted};
-        _ ->
-            %% seems to be generated by a bad call to a BIF
-            {Md, Formatted} = format_mfa_md(MFA),
-            {{reason, badarg} | Md,
-             "bad argument in ", Formatted}
-    end;
-format_reason_md({{badarg, Stack}, _}) ->
-    format_reason_md({badarg, Stack});
-format_reason_md({{badarity, {Fun, Args}}, MFA|_}) ->
-    {arity, Arity} = lists:keyfind(arity, 1, erlang:fun_info(Fun)),
-    {Md, Formatted} = format_mfa_md(MFA),
-    {{reason, badarity} | Md,
-     io_lib:format("fun called with wrong arity of ~w instead of ~w in ",
-                    length(Args), Arity), Formatted};
-format_reason_md({noproc, MFA}) ->
-    {Md, Formatted} = format_mfa_md(MFA),
-    {{reason, noproc} | Md,
-     "no such process or port in call to ", Formatted};
-format_reason_md({{badfun, Term}, MFA|_}) ->
-    {Md, Formatted} = format_mfa_md(MFA),
-    {{reason, badfun} | Md,
-     "bad function ", print_val(Term), " in ", Formatted};
-format_reason_md({Reason, {M, F, A}|_}) when is_atom(M), is_atom(F), is_integer(A) ->
-    {Md, Formatted} = format_reason_md(Reason),
-    {_, Formatted2} = format_mfa_md({M, F, A}),
-    {Md, Formatted, " in ", Formatted2};
-format_reason_md({Reason, {M, F, A, Props}|_}) when is_atom(M), is_atom(F), is_integer(A), is_list(Props) ->
-    %% line numbers
-    {Md, Formatted} = format_reason_md(Reason),
-    {_, Formatted2} = format_mfa_md({M, F, A, Props}),
-    {Md, Formatted, " in ", Formatted2};
-format_reason_md(Reason) ->
-    {Str, _} = lager_trunc_io:print(Reason, 500),
-    {, Str}.
-
-%% backwards compatability shim
-format_mfa(MFA) ->
-    element(2, format_mfa_md(MFA)).
-
--spec format_mfa_md(any()) -> {{atom(), any()}, list()}.
-format_mfa_md({M, F, A}) when is_list(A) ->
-    {FmtStr, Args} = format_args(A, , ),
-    {{module, M}, {function, F}, io_lib:format("~w:~w("++FmtStr++")", M, F | Args)};
-format_mfa_md({M, F, A}) when is_integer(A) ->
-    {{module, M}, {function, F}, io_lib:format("~w:~w/~w", M, F, A)};
-format_mfa_md({M, F, A, Props}) when is_list(Props) ->
-    case get_value(line, Props) of
-        undefined ->
-            format_mfa_md({M, F, A});
-        Line ->
-            {Md, Formatted} = format_mfa_md({M, F, A}),
-            {{line, Line} | Md, Formatted, io_lib:format(" line ~w", Line)}
-    end;
-format_mfa_md({M, F, A}| _) ->
-   %% this kind of weird stacktrace can be generated by a uncaught throw in a gen_server
-   format_mfa_md({M, F, A});
-format_mfa_md({M, F, A, Props}| _) when is_list(Props) ->
-   %% this kind of weird stacktrace can be generated by a uncaught throw in a gen_server
-   %% TODO we might not always want to print the first MFA we see here, often it is more helpful
-   %% to print a lower one, but it is hard to programatically decide.
-   format_mfa_md({M, F, A, Props});
-format_mfa_md(Other) ->
-    {, io_lib:format("~w", Other)}.
-
-format_args(, FmtAcc, ArgsAcc) ->
-    {string:join(lists:reverse(FmtAcc), ", "), lists:reverse(ArgsAcc)};
-format_args(H|T, FmtAcc, ArgsAcc) ->
-    {Str, _} = lager_trunc_io:print(H, 100),
-    format_args(T, "~s"|FmtAcc, Str|ArgsAcc).
-
-print_silly_list(L) when is_list(L) ->
-    case lager_stdlib:string_p(L) of
-        true ->
-            lager_trunc_io:format("~s", L, ?DEFAULT_TRUNCATION);
-        _ ->
-            print_silly_list(L, , )
-    end;
-print_silly_list(L) ->
-    {Str, _} = lager_trunc_io:print(L, ?DEFAULT_TRUNCATION),
-    Str.
-
-print_silly_list(, Fmt, Acc) ->
-    lager_trunc_io:format(string:join(lists:reverse(Fmt), ", "),
-        lists:reverse(Acc), ?DEFAULT_TRUNCATION);
-print_silly_list({K,V}|T, Fmt, Acc) ->
-    print_silly_list(T, "~p: ~p" | Fmt, V, K | Acc);
-print_silly_list(H|T, Fmt, Acc) ->
-    print_silly_list(T, "~p" | Fmt, H | Acc).
-
-print_val(Val) ->
-    {Str, _} = lager_trunc_io:print(Val, 500),
-    Str.
-
-
-%% @doc Faster than proplists, but with the same API as long as you don't need to
-%% handle bare atom keys
-get_value(Key, Value) ->
-    get_value(Key, Value, undefined).
-
-get_value(Key, List, Default) ->
-    case lists:keyfind(Key, 1, List) of
-        false -> Default;
-        {Key, Value} -> Value
-    end.
-
-supervisor_name({local, Name}) -> Name;
-supervisor_name(Name) -> Name.
-
--ifdef(TEST).
--include_lib("eunit/include/eunit.hrl").
-
-no_silent_hwm_drops_test_() ->
-    {timeout, 10000,
-        
-            fun() ->
-                error_logger:tty(false),
-                application:load(lager),
-                application:set_env(lager, handlers, {lager_test_backend, warning}),
-                application:set_env(lager, error_logger_redirect, true),
-                application:set_env(lager, error_logger_hwm, 5),
-                application:set_env(lager, error_logger_flush_queue, false),
-                application:set_env(lager, suppress_supervisor_start_stop, true),
-                application:set_env(lager, suppress_application_start_stop, true),
-                application:unset_env(lager, crash_log),
-                lager:start(),
-                try
-                    {_, _, MS} = os:timestamp(),
-                    timer:sleep((1000000 - MS) div 1000 + 1),
-                    % start close to the beginning of a new second
-                    error_logger:error_msg("Foo ~p~n", K) || K <- lists:seq(1, 15),
-                    wait_for_message("lager_error_logger_h dropped 10 messages in the last second that exceeded the limit of 5 messages/sec", 100, 50),
-                    % and once again
-                    error_logger:error_msg("Foo1 ~p~n", K) || K <- lists:seq(1, 20),
-                    wait_for_message("lager_error_logger_h dropped 15 messages in the last second that exceeded the limit of 5 messages/sec", 100, 50)
-                after
-                    application:stop(lager),
-                    application:stop(goldrush),
-                    error_logger:tty(true)
-                end
-            end
-        
-    }.
-
-shaper_does_not_forward_sup_progress_messages_to_info_level_backend_test_() ->
-    {timeout, 10000,
-        fun() ->
-                error_logger:tty(false),
-                application:load(lager),
-                application:set_env(lager, handlers, {lager_test_backend, info}),
-                application:set_env(lager, error_logger_redirect, true),
-                application:set_env(lager, error_logger_hwm, 5),
-                application:set_env(lager, suppress_supervisor_start_stop, false),
-                application:set_env(lager, suppress_application_start_stop, false),
-                application:unset_env(lager, crash_log),
-                lager:start(),
-                try
-                    PidPlaceholder = self(),
-                    SupervisorMsg =
-                     {supervisor, {PidPlaceholder,rabbit_connection_sup}},
-                      {started,
-                          {pid, PidPlaceholder},
-                           {name,helper_sup},
-                           {mfargs,
-                               {rabbit_connection_helper_sup,start_link,}},
-                           {restart_type,intrinsic},
-                           {shutdown,infinity},
-                           {child_type,supervisor}},
-                    ApplicationExit =
-                        {application, error_logger_lager_h_test},
-                         {exited, stopped},
-                         {type, permanent},
-
-                    error_logger:info_report("This is not a progress message"),
-                    error_logger:info_report(ApplicationExit),
-                    error_logger:info_report(progress, SupervisorMsg) || _K <- lists:seq(0, 100),
-                    error_logger:info_report("This is not a progress message 2"),
-
-                    % Note: this gets logged in slow environments:
-                    % Application lager started on node nonode@nohost
-                    wait_for_count(fun lager_test_backend:count/0, 3, 4, 100, 50),
-                    % Note: this debug msg gets ignored in slow environments:
-                    % Lager installed handler lager_test_backend into lager_event
-                    wait_for_count(fun lager_test_backend:count_ignored/0, 0, 1, 100, 50)
-                after
-                    application:stop(lager),
-                    application:stop(goldrush),
-                    error_logger:tty(true)
-                end
-            end
-        
-    }.
-
-supressed_messages_are_not_counted_for_hwm_test_() ->
-    {timeout, 10000,
-        fun() ->
-                error_logger:tty(false),
-                application:load(lager),
-                application:set_env(lager, handlers, {lager_test_backend, debug}),
-                application:set_env(lager, error_logger_redirect, true),
-                application:set_env(lager, error_logger_hwm, 5),
-                application:set_env(lager, suppress_supervisor_start_stop, true),
-                application:set_env(lager, suppress_application_start_stop, true),
-                application:unset_env(lager, crash_log),
-                lager:start(),
-                try
-                    PidPlaceholder = self(),
-                    SupervisorMsg =
-                     {supervisor, {PidPlaceholder,rabbit_connection_sup}},
-                      {started,
-                          {pid, PidPlaceholder},
-                           {name,helper_sup},
-                           {mfargs,
-                               {rabbit_connection_helper_sup,start_link,}},
-                           {restart_type,intrinsic},
-                           {shutdown,infinity},
-                           {child_type,supervisor}},
-                    ApplicationExit =
-                        {application, error_logger_lager_h_test},
-                         {exited, stopped},
-                         {type, permanent},
-
-                    lager_test_backend:flush(),
-                    error_logger:info_report("This is not a progress message"),
-                    error_logger:info_report(ApplicationExit) || _K <- lists:seq(0, 100),
-                    error_logger:info_report(progress, SupervisorMsg) || _K <- lists:seq(0, 100),
-                    error_logger:info_report("This is not a progress message 2"),
-
-                    wait_for_count(fun lager_test_backend:count/0, 2, 100, 50),
-                    wait_for_count(fun lager_test_backend:count_ignored/0, 0, 100, 50)
-                after
-                    application:stop(lager),
-                    application:stop(goldrush),
-                    error_logger:tty(true)
-                end
-            end
-        
-    }.
-
-wait_for_message(Expected, Tries, Sleep) ->
-    maybe_find_expected_message(lager_test_backend:get_buffer(), Expected, Tries, Sleep).
-
-maybe_find_expected_message(_Buffer, Expected, 0, _Sleep) ->
-    throw({not_found, Expected});
-maybe_find_expected_message(, Expected, Tries, Sleep) ->
-    timer:sleep(Sleep),
-    maybe_find_expected_message(lager_test_backend:get_buffer(), Expected, Tries - 1, Sleep);
-maybe_find_expected_message({_Severity, _Date, Msg, _Metadata}|T, Expected, Tries, Sleep) ->
-    case lists:flatten(Msg) of
-        Expected ->
-            ok;
-        _ ->
-            maybe_find_expected_message(T, Expected, Tries, Sleep)
-    end.
-
-wait_for_count(Fun, _Expected, 0, _Sleep) ->
-    Actual = Fun(),
-    Msg = io_lib:format("wait_for_count: fun ~p final value: ~p~n", Fun, Actual),
-    throw({failed, Msg});
-wait_for_count(Fun, Expected, Tries, Sleep) when is_list(Expected) ->
-    Actual = Fun(),
-    case lists:member(Actual, Expected) of
-        true ->
-            ok;
-        false ->
-            timer:sleep(Sleep),
-            wait_for_count(Fun, Expected, Tries - 1, Sleep)
-    end;
-wait_for_count(Fun, Expected, Tries, Sleep) ->
-    case Fun() of
-        Expected ->
-            ok;
-        _ ->
-            timer:sleep(Sleep),
-            wait_for_count(Fun, Expected, Tries - 1, Sleep)
-    end.
--endif.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/src/lager.app.src Deleted

@@ -1,66 +0,0 @@
-%% -*- tab-width: 4;erlang-indent-level: 4;indent-tabs-mode: nil -*-
-%% ex: ts=4 sw=4 et
-{application, lager,
- 
-  {description, "Erlang logging framework"},
-  {vsn, "3.9.1"},
-  {modules, },
-  {applications, 
-                  kernel,
-                  stdlib,
-                  goldrush
-                 },
-  {registered, lager_sup, lager_event, lager_crash_log, lager_handler_watcher_sup},
-  {mod, {lager_app, }},
-  {env, 
-            %% Note: application:start(lager) overwrites previously defined environment variables
-            %%       thus declaration of default handlers is done at lager_app.erl
-
-            %% What colors to use with what log levels
-            {colored, false},
-            {colors, 
-              {debug,     "\e0;38m" },
-              {info,      "\e1;37m" },
-              {notice,    "\e1;36m" },
-              {warning,   "\e1;33m" },
-              {error,     "\e1;31m" },
-              {critical,  "\e1;35m" },
-              {alert,     "\e1;44m" },
-              {emergency, "\e1;41m" }
-
-            },
-
-            %% Where to write the logs
-            {log_root, "log"},
-            %% Whether to write a crash log, and where. False means no crash logger.
-            {crash_log, "crash.log"},
-            %% Maximum size in bytes of events in the crash log - defaults to 65536
-            {crash_log_msg_size, 65536},
-            %% Maximum size of the crash log in bytes, before its rotated, set
-            %% to 0 to disable rotation - default is 0
-            {crash_log_size, 10485760},
-            %% What time to rotate the crash log - default is no time
-            %% rotation. See the README for a description of this format.
-            {crash_log_date, "$D0"},
-            %% Number of rotated crash logs to keep, 0 means keep only the
-            %% current one - default is 0
-            {crash_log_count, 5},
-            %% Crash Log Rotator Module - default is lager_rotator_default
-            {crash_log_rotator, lager_rotator_default},
-            %% Whether to redirect error_logger messages into the default lager_event sink - defaults to true
-            {error_logger_redirect, true},
-            %% How many messages per second to allow from error_logger before we start dropping them
-            {error_logger_hwm, 50},
-            %% How big the gen_event mailbox can get before it is
-            %% switched into sync mode.  This value only applies to
-            %% the default sink; extra sinks can supply their own.
-            {async_threshold, 20},
-            %% Switch back to async mode, when gen_event mailbox size
-            %% decrease from `async_threshold' to async_threshold -
-            %% async_threshold_window. This value only applies to the
-            %% default sink; extra sinks can supply their own.
-            {async_threshold_window, 5}
-        },
-  {licenses, "Apache 2"},
-  {links, {"Github", "https://github.com/erlang-lager/lager"}}
- }.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/src/lager.erl Deleted

@@ -1,746 +0,0 @@
-%% Copyright (c) 2011-2012 Basho Technologies, Inc.  All Rights Reserved.
-%%
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-
-%% @doc The lager logging framework.
-
--module(lager).
-
--include("lager.hrl").
-
--define(LAGER_MD_KEY, '__lager_metadata').
--define(TRACE_SINK, '__trace_sink').
--define(ROTATE_TIMEOUT, 100000).
-
--ifdef(TEST).
--include_lib("eunit/include/eunit.hrl").
--endif.
-
-%% API
--export(start/0,
-        log/3, log/4, log/5,
-        log_unsafe/4,
-        md/0, md/1,
-        rotate_handler/1, rotate_handler/2, rotate_sink/1, rotate_all/0,
-        trace/2, trace/3, trace_file/2, trace_file/3, trace_file/4, trace_console/1, trace_console/2,
-        install_trace/2, install_trace/3, remove_trace/1, trace_state/3, trace_func/3,
-        list_all_sinks/0, clear_all_traces/0, clear_trace_by_destination/1, stop_trace/1, stop_trace/3, status/0,
-        get_loglevel/1, get_loglevel/2, set_loglevel/2, set_loglevel/3, set_loglevel/4, get_loglevels/1,
-        update_loglevel_config/1, posix_error/1, set_loghwm/2, set_loghwm/3, set_loghwm/4,
-        safe_format/3, safe_format_chop/3, unsafe_format/2, dispatch_log/5, dispatch_log/7, dispatch_log/9,
-        do_log/9, do_log/10, do_log_unsafe/10, pr/2, pr/3, pr_stacktrace/1, pr_stacktrace/2).
-
--type log_level() :: none | debug | info | notice | warning | error | critical | alert | emergency.
--type log_level_number() :: 0..7.
-
--export_type(log_level/0, log_level_number/0).
-
--record(trace_func_state_v1, {
-          pid :: undefined | pid(),
-          level :: log_level(),
-          count :: infinity | pos_integer(),
-          format_string :: string(),
-          timeout :: infinity | pos_integer(),
-          started = os:timestamp() :: erlang:timestamp() %% use os:timestamp for compatability
-         }).
-
-%% API
-
-%% @doc installs a lager trace handler into the target process (using sys:install) at the specified level.
--spec install_trace(pid(), log_level()) -> ok.
-install_trace(Pid, Level) ->
-    install_trace(Pid, Level, ).
-
--spec install_trace(pid(), log_level(), {count, infinity | pos_integer()} | {format_string, string()} | {timeout, timeout()}) -> ok.
-install_trace(Pid, Level, Options) ->
-    sys:install(Pid, {fun ?MODULE:trace_func/3, trace_state(Pid, Level, Options)}).
-
-%% @doc remove a previously installed lager trace handler from the target process.
--spec remove_trace(pid()) -> ok.
-remove_trace(Pid) ->
-    sys:remove(Pid, fun ?MODULE:trace_func/3).
-
-%% @doc Start the application. Mainly useful for using `-s lager' as a command
-%% line switch to the VM to make lager start on boot.
-start() -> start(lager).
-
-start(App) ->
-    start_ok(App, application:start(App, permanent)).
-
-start_ok(_App, ok) -> ok;
-start_ok(App, {error, {already_started, App}}) -> ok;
-start_ok(App, {error, {not_started, Dep}}) ->
-    ok = start(Dep),
-    start(App);
-start_ok(App, {error, Reason}) ->
-    erlang:error({app_start_failed, App, Reason}).
-
-%% @doc Get lager metadata for current process
--spec md() -> {atom(), any()}.
-md() ->
-    case erlang:get(?LAGER_MD_KEY) of
-        undefined -> ;
-        MD -> MD
-    end.
-
-%% @doc Set lager metadata for current process.
-%% Will badarg if you don't supply a list of {key, value} tuples keyed by atoms.
--spec md({atom(), any()},...) -> ok.
-md(NewMD) when is_list(NewMD) ->
-    %% make sure its actually a real proplist
-    case lists:all(
-            fun({Key, _Value}) when is_atom(Key) -> true;
-                (_) -> false
-            end, NewMD) of
-        true ->
-            erlang:put(?LAGER_MD_KEY, NewMD),
-            ok;
-        false ->
-            erlang:error(badarg)
-    end;
-md(_) ->
-    erlang:error(badarg).
-
-
--spec dispatch_log(atom(), log_level(), list(), string(), list() | none, pos_integer(), safe | unsafe) ->  ok | {error, lager_not_running} | {error, {sink_not_configured, atom()}}.
-%% this is the same check that the parse transform bakes into the module at compile time
-%% see lager_transform (lines 173-216)
-dispatch_log(Sink, Severity, Metadata, Format, Args, Size, Safety) when is_atom(Severity)->
-    SeverityAsInt=lager_util:level_to_num(Severity),
-    case {whereis(Sink), whereis(?DEFAULT_SINK), lager_config:get({Sink, loglevel}, {?LOG_NONE, })} of
-         {undefined, undefined, _} -> {error, lager_not_running};
-         {undefined, _LagerEventPid0, _} -> {error, {sink_not_configured, Sink}};
-         {SinkPid, _LagerEventPid1, {Level, Traces}} when Safety =:= safe andalso ( (Level band SeverityAsInt) /= 0 orelse Traces /=  ) ->
-            do_log(Severity, Metadata, Format, Args, Size, SeverityAsInt, Level, Traces, Sink, SinkPid);
-         {SinkPid, _LagerEventPid1, {Level, Traces}} when Safety =:= unsafe andalso ( (Level band SeverityAsInt) /= 0 orelse Traces /=  ) ->
-            do_log_unsafe(Severity, Metadata, Format, Args, Size, SeverityAsInt, Level, Traces, Sink, SinkPid);
-         _ -> ok
-    end.
-
-%% @private Should only be called externally from code generated from the parse transform
-do_log(Severity, Metadata, Format, Args, Size, SeverityAsInt, LevelThreshold, TraceFilters, Sink, SinkPid) when is_atom(Severity) ->
-    FormatFun = fun() -> safe_format_chop(Format, Args, Size) end,
-    do_log_impl(Severity, Metadata, Format, Args, SeverityAsInt, LevelThreshold, TraceFilters, Sink, SinkPid, FormatFun).
-
-do_log_impl(Severity, Metadata, Format, Args, SeverityAsInt, LevelThreshold, TraceFilters, Sink, SinkPid, FormatFun) ->
-    {Destinations, TraceSinkPid} = case TraceFilters of
-         ->
-            {, undefined};
-        _ ->
-            {lager_util:check_traces(Metadata,SeverityAsInt,TraceFilters,), whereis(?TRACE_SINK)}
-    end,
-    case (LevelThreshold band SeverityAsInt) /= 0 orelse Destinations /=  of
-        true ->
-            Msg = case Args of
-                A when is_list(A) ->
-                    FormatFun();
-                _ ->
-                    Format
-            end,
-            LagerMsg = lager_msg:new(Msg,
-                Severity, Metadata, Destinations),
-            case lager_config:get({Sink, async}, false) of
-                true ->
-                    gen_event:notify(SinkPid, {log, LagerMsg});
-                false ->
-                    gen_event:sync_notify(SinkPid, {log, LagerMsg})
-            end,
-            case TraceSinkPid /= undefined of
-                true ->
-                    gen_event:notify(TraceSinkPid, {log, LagerMsg});
-                false ->
-                    ok
-            end;
-        false ->
-            ok
-    end.
-
-%% @private Should only be called externally from code generated from the parse transform
-%% Specifically, it would be level ++ `_unsafe' as in `info_unsafe'.
-do_log_unsafe(Severity, Metadata, Format, Args, _Size, SeverityAsInt, LevelThreshold, TraceFilters, Sink, SinkPid) when is_atom(Severity) ->
-    FormatFun = fun() -> unsafe_format(Format, Args) end,
-    do_log_impl(Severity, Metadata, Format, Args, SeverityAsInt, LevelThreshold, TraceFilters, Sink, SinkPid, FormatFun).
-
-
-%% backwards compatible with beams compiled with lager 1.x
-dispatch_log(Severity, _Module, _Function, _Line, _Pid, Metadata, Format, Args, Size) ->
-    dispatch_log(Severity, Metadata, Format, Args, Size).
-
-%% backwards compatible with beams compiled with lager 2.x
-dispatch_log(Severity, Metadata, Format, Args, Size) ->
-    dispatch_log(?DEFAULT_SINK, Severity, Metadata, Format, Args, Size, safe).
-
-%% backwards compatible with beams compiled with lager 2.x
-do_log(Severity, Metadata, Format, Args, Size, SeverityAsInt, LevelThreshold, TraceFilters, SinkPid) ->
-    do_log(Severity, Metadata, Format, Args, Size, SeverityAsInt,
-           LevelThreshold, TraceFilters, ?DEFAULT_SINK, SinkPid).
-
-
-%% TODO:
-%% Consider making log2/4 that takes the Level, Pid and Message params of log/3
-%% along with a Sink param??
-
-%% @doc Manually log a message into lager without using the parse transform.
--spec log(log_level(), pid() | atom() | tuple(),..., list()) -> ok | {error, lager_not_running}.
-log(Level, Pid, Message) when is_pid(Pid); is_atom(Pid) ->
-    dispatch_log(Level, {pid,Pid}, Message, , ?DEFAULT_TRUNCATION);
-log(Level, Metadata, Message) when is_list(Metadata) ->
-    dispatch_log(Level, Metadata, Message, , ?DEFAULT_TRUNCATION).
-
-%% @doc Manually log a message into lager without using the parse transform.
--spec log(log_level(), pid() | atom() | tuple(),..., string(), list()) -> ok | {error, lager_not_running}.
-log(Level, Pid, Format, Args) when is_pid(Pid); is_atom(Pid) ->
-    dispatch_log(Level, {pid,Pid}, Format, Args, ?DEFAULT_TRUNCATION);
-log(Level, Metadata, Format, Args) when is_list(Metadata) ->
-    dispatch_log(Level, Metadata, Format, Args, ?DEFAULT_TRUNCATION).
-
-log_unsafe(Level, Metadata, Format, Args) when is_list(Metadata) ->
-    dispatch_log(?DEFAULT_SINK, Level, Metadata, Format, Args, ?DEFAULT_TRUNCATION, unsafe).
-
-
-%% @doc Manually log a message into lager without using the parse transform.
--spec log(atom(), log_level(), pid() | atom() | tuple(),..., string(), list()) -> ok | {error, lager_not_running}.
-log(Sink, Level, Pid, Format, Args) when is_pid(Pid); is_atom(Pid) ->
-    dispatch_log(Sink, Level, {pid,Pid}, Format, Args, ?DEFAULT_TRUNCATION, safe);
-log(Sink, Level, Metadata, Format, Args) when is_list(Metadata) ->
-    dispatch_log(Sink, Level, Metadata, Format, Args, ?DEFAULT_TRUNCATION, safe).
-
-validate_trace_filters(Filters, Level, Backend) ->
-    Sink = proplists:get_value(sink, Filters, ?DEFAULT_SINK),
-    {Sink,
-     lager_util:validate_trace({
-                                 proplists:delete(sink, Filters),
-                                 Level,
-                                 Backend
-                               })
-    }.
-
-trace_file(File, Filter) ->
-    trace_file(File, Filter, debug, ).
-
-trace_file(File, Filter, Level) when is_atom(Level) ->
-    trace_file(File, Filter, Level, );
-
-trace_file(File, Filter, Options) when is_list(Options) ->
-    trace_file(File, Filter, debug, Options).
-
-trace_file(File, Filter, Level, Options) ->
-    FileName = lager_util:expand_path(File),
-    case validate_trace_filters(Filter, Level, {lager_file_backend, FileName}) of
-        {Sink, {ok, Trace}} ->
-            Handlers = lager_config:global_get(handlers, ),
-            %% check if this file backend is already installed
-            Res = case lager_util:find_file(FileName, Handlers) of
-                      false ->
-                          %% install the handler
-                          LogFileConfig =
-                              lists:keystore(level, 1,
-                                             lists:keystore(file, 1,
-                                                            Options,
-                                                            {file, FileName}),
-                                             {level, none}),
-                          HandlerInfo =
-                              lager_app:start_handler(Sink, {lager_file_backend, FileName},
-                                                      LogFileConfig),
-                          lager_config:global_set(handlers, HandlerInfo|Handlers),
-                          {ok, installed};
-                      {_Watcher, _Handler, Sink} ->
-                          {ok, exists};
-                      {_Watcher, _Handler, _OtherSink} ->
-                          {error, file_in_use}
-            end,
-            case Res of
-              {ok, _} ->
-                add_trace_to_loglevel_config(Trace, Sink),
-                {ok, {{lager_file_backend, FileName}, Filter, Level}};
-              {error, _} = E ->
-                E
-            end;
-        {_Sink, Error} ->
-            Error
-    end.
-
-trace_console(Filter) ->
-    trace_console(Filter, debug).
-
-trace_console(Filter, Level) ->
-    trace(lager_console_backend, Filter, Level).
-
-trace(Backend, Filter) ->
-    trace(Backend, Filter, debug).
-
-trace({lager_file_backend, File}, Filter, Level) ->
-    trace_file(File, Filter, Level);
-
-trace(Backend, Filter, Level) ->
-    case validate_trace_filters(Filter, Level, Backend) of
-        {Sink, {ok, Trace}} ->
-            add_trace_to_loglevel_config(Trace, Sink),
-            {ok, {Backend, Filter, Level}};
-        {_Sink, Error} ->
-            Error
-    end.
-
-stop_trace(Backend, Filter, Level) ->
-    case validate_trace_filters(Filter, Level, Backend) of
-        {Sink, {ok, Trace}} ->
-            stop_trace_int(Trace, Sink);
-        {_Sink, Error} ->
-            Error
-    end.
-
-stop_trace({Backend, Filter, Level}) ->
-    stop_trace(Backend, Filter, Level).
-
-%% Important: validate_trace_filters orders the arguments of
-%% trace tuples differently than the way outside callers have
-%% the trace tuple.
-%%
-%% That is to say, outside they are represented as 
-%% `{Backend, Filter, Level}'
-%%
-%% and when they come back from validation, they're
-%% `{Filter, Level, Backend}'
-stop_trace_int({_Filter, _Level, Backend} = Trace, Sink) ->
-    {Level, Traces} = lager_config:get({Sink, loglevel}),
-    NewTraces =  lists:delete(Trace, Traces),
-    _ = lager_util:trace_filter( element(1, T) || T <- NewTraces ),
-    %MinLevel = minimum_loglevel(get_loglevels() ++ get_trace_levels(NewTraces)),
-    lager_config:set({Sink, loglevel}, {Level, NewTraces}),
-    case get_loglevel(Sink, Backend) of
-        none ->
-            %% check no other traces point here
-            case lists:keyfind(Backend, 3, NewTraces) of
-                false ->
-                    gen_event:delete_handler(Sink, Backend, ),
-                    lager_config:global_set(handlers,
-                                            lists:keydelete(Backend, 1,
-                                                            lager_config:global_get(handlers)));
-                _ ->
-                    ok
-            end;
-        _ ->
-            ok
-    end,
-    ok.
-
-list_all_sinks() ->
-    sets:to_list(
-      lists:foldl(fun({_Watcher, _Handler, Sink}, Set) ->
-                          sets:add_element(Sink, Set)
-                  end,
-                  sets:new(),
-                  lager_config:global_get(handlers, ))).
-
-clear_traces_by_sink(Sinks) ->
-    lists:foreach(fun(S) ->
-                          {Level, _Traces} =
-                              lager_config:get({S, loglevel}),
-                          lager_config:set({S, loglevel},
-                                           {Level, })
-                  end,
-                  Sinks).
-
-clear_trace_by_destination(ID) ->
-    Sinks = lists:sort(list_all_sinks()),
-    Traces = find_traces(Sinks),
-     stop_trace_int({Filter, Level, Destination}, Sink) || {Sink, {Filter, Level, Destination}} <- Traces, Destination == ID.
-
-
-clear_all_traces() ->
-    Handlers = lager_config:global_get(handlers, ),
-    clear_traces_by_sink(list_all_sinks()),
-    _ = lager_util:trace_filter(none),
-    lager_config:global_set(handlers,
-                            lists:filter(
-      fun({Handler, _Watcher, Sink}) ->
-              case get_loglevel(Sink, Handler) of
-                  none ->
-                      gen_event:delete_handler(Sink, Handler, ),
-                      false;
-                  _ ->
-                      true
-              end
-      end, Handlers)).
-
-find_traces(Sinks) ->
-    lists:foldl(fun(S, Acc) ->
-                        {_Level, Traces} = lager_config:get({S, loglevel}),
-                        Acc ++ lists:map(fun(T) -> {S, T} end, Traces)
-                end,
-                ,
-                Sinks).
-
-status() ->
-    Handlers = lager_config:global_get(handlers, ),
-    Sinks = lists:sort(list_all_sinks()),
-    Traces = find_traces(Sinks),
-    TraceCount = case length(Traces) of
-        0 -> 1;
-        N -> N
-    end,
-    Status = "Lager status:\n",
-        begin
-             Level = get_loglevel(Sink, Handler),
-             get_sink_handler_status(Sink, Handler, Level)
-         end || {Handler, _Watcher, Sink} <- lists:sort(fun({_, _, S1},
-                                                            {_, _, S2}) -> S1 =< S2 end,
-                                                        Handlers),
-        "Active Traces:\n",
-        begin
-             LevelName = case Level of
-                 {mask, Mask} ->
-                     case lager_util:mask_to_levels(Mask) of
-                          -> none;
-                         Levels -> hd(Levels)
-                     end;
-                 Num ->
-                     lager_util:num_to_level(Num)
-             end,
-             io_lib:format("Tracing messages matching ~p (sink ~s) at level ~p to ~p\n",
-                           Filter, Sink, LevelName, Destination)
-         end || {Sink, {Filter, Level, Destination}} <- Traces,
-         
-         "Tracing Reductions:\n",
-            case ?DEFAULT_TRACER:info('query') of
-                {null, false} -> "";
-                Query -> io_lib:format("~p~n", Query)
-            end
-         ,
-         
-          "Tracing Statistics:\n ",
-               begin
-                    " ", atom_to_list(Table), ": ",
-                     integer_to_list(?DEFAULT_TRACER:info(Table) div TraceCount),
-                     "\n"
-                end || Table <- input, output, filter 
-         ,
-    io:put_chars(Status).
-
-get_sink_handler_status(Sink, Handler, Level) ->
-    case Handler of
-        {lager_file_backend, File} ->
-            io_lib:format("File ~ts (~s) at level ~p\n", File, Sink, Level);
-        lager_console_backend ->
-            io_lib:format("Console (~s) at level ~p\n", Sink, Level);
-        _ ->
-            
-    end.
-
-%% @doc Set the loglevel for a particular backend.
-set_loglevel(Handler, Level) when is_atom(Level) ->
-    set_loglevel(?DEFAULT_SINK, Handler, undefined, Level).
-
-%% @doc Set the loglevel for a particular backend that has multiple identifiers
-%% (eg. the file backend).
-set_loglevel(Handler, Ident, Level) when is_atom(Level) ->
-    set_loglevel(?DEFAULT_SINK, Handler, Ident, Level).
-
-%% @doc Set the loglevel for a particular sink's backend that potentially has
-%% multiple identifiers. (Use `undefined' if it doesn't have any.)
-set_loglevel(Sink, Handler, Ident, Level) when is_atom(Level) ->
-    HandlerArg = case Ident of
-        undefined -> Handler;
-        _ -> {Handler, Ident}
-    end,
-    Reply = gen_event:call(Sink, HandlerArg, {set_loglevel, Level}, infinity),
-    update_loglevel_config(Sink),
-    Reply.
-
-
-%% @doc Get the loglevel for a particular backend on the default sink. In the case that the backend
-%% has multiple identifiers, the lowest is returned.
-get_loglevel(Handler) ->
-    get_loglevel(?DEFAULT_SINK, Handler).
-
-%% @doc Get the loglevel for a particular sink's backend. In the case that the backend
-%% has multiple identifiers, the lowest is returned.
-get_loglevel(Sink, Handler) ->
-    case gen_event:call(Sink, Handler, get_loglevel, infinity) of
-        {mask, Mask} ->
-            case lager_util:mask_to_levels(Mask) of
-                 -> none;
-                Levels -> hd(Levels)
-            end;
-        X when is_integer(X) ->
-            lager_util:num_to_level(X);
-        Y -> Y
-    end.
-
-%% @doc Try to convert an atom to a posix error, but fall back on printing the
-%% term if its not a valid posix error code.
-posix_error(Error) when is_atom(Error) ->
-    case erl_posix_msg:message(Error) of
-        "unknown POSIX error" -> atom_to_list(Error);
-        Message -> Message
-    end;
-posix_error(Error) ->
-    safe_format_chop("~p", Error, ?DEFAULT_TRUNCATION).
-
-%% @private
-get_loglevels(Sink) ->
-    gen_event:call(Sink, Handler, get_loglevel, infinity) ||
-        Handler <- gen_event:which_handlers(Sink).
-
-%% @doc Set the loghwm for the default sink.
-set_loghwm(Handler, Hwm) when is_integer(Hwm) ->
-    set_loghwm(?DEFAULT_SINK, Handler, Hwm).
-
-%% @doc Set the loghwm for a particular backend.
-set_loghwm(Sink, Handler, Hwm) when is_integer(Hwm) ->
-    gen_event:call(Sink, Handler, {set_loghwm, Hwm}, infinity).
-
-%% @doc Set the loghwm (log high water mark) for file backends with multiple identifiers
-set_loghwm(Sink, Handler, Ident, Hwm) when is_integer(Hwm) ->
-    gen_event:call(Sink, {Handler, Ident}, {set_loghwm, Hwm}, infinity).
-
-%% @private
-add_trace_to_loglevel_config(Trace, Sink) ->
-    {MinLevel, Traces} = lager_config:get({Sink, loglevel}),
-    case lists:member(Trace, Traces) of
-        false ->
-            NewTraces = Trace|Traces,
-            _ = lager_util:trace_filter( element(1, T) || T <- NewTraces),
-            lager_config:set({Sink, loglevel}, {MinLevel, Trace|Traces});
-        _ ->
-            ok
-    end.
-
-%% @doc recalculate min log level
-update_loglevel_config(error_logger) ->
-    %% Not a sink under our control, part of the Erlang logging
-    %% utility that error_logger_lager_h attaches to
-    true;
-update_loglevel_config(Sink) ->
-    {_, Traces} = lager_config:get({Sink, loglevel}, {ignore_me, }),
-    MinLog = minimum_loglevel(get_loglevels(Sink)),
-    lager_config:set({Sink, loglevel}, {MinLog, Traces}).
-
-%% @private
-minimum_loglevel(Levels) ->
-    lists:foldl(fun({mask, Mask}, Acc) ->
-                Mask bor Acc;
-            (Level, Acc) when is_integer(Level) ->
-                {mask, Mask} = lager_util:config_to_mask(lager_util:num_to_level(Level)),
-                Mask bor Acc;
-            (_, Acc) ->
-                Acc
-        end, 0, Levels).
-
-%% @doc Print the format string `Fmt' with `Args' safely with a size
-%% limit of `Limit'. If the format string is invalid, or not enough
-%% arguments are supplied 'FORMAT ERROR' is printed with the offending
-%% arguments. The caller is NOT crashed.
-
-safe_format(Fmt, Args, Limit) ->
-    safe_format(Fmt, Args, Limit, ).
-
-safe_format(Fmt, Args, Limit, Options) ->
-    try lager_trunc_io:format(Fmt, Args, Limit, Options)
-    catch
-        _:_ -> lager_trunc_io:format("FORMAT ERROR: ~p ~p", Fmt, Args, Limit)
-    end.
-
-%% @private
-safe_format_chop(Fmt, Args, Limit) ->
-    safe_format(Fmt, Args, Limit, {chomp, true}).
-
-%% @private Print the format string `Fmt' with `Args' without a size limit.
-%% This is unsafe because the output of this function is unbounded.
-%%
-%% Log messages with unbounded size will kill your application dead as
-%% OTP mechanisms stuggle to cope with them.  So this function is
-%% intended <b>only</b> for messages which have a reasonable bounded
-%% size before they're formatted.
-%%
-%% If the format string is invalid or not enough arguments are
-%% supplied a 'FORMAT ERROR' message is printed instead with the
-%% offending arguments. The caller is NOT crashed.
-unsafe_format(Fmt, Args) ->
-    try io_lib:format(Fmt, Args)
-    catch
-        _:_ -> io_lib:format("FORMAT ERROR: ~p ~p", Fmt, Args)
-    end.
-
-%% @doc Print a record or a list of records lager found during parse transform
-pr(Record, Module) when is_tuple(Record), is_atom(element(1, Record)) ->
-    pr(Record, Module, );
-pr(List, Module) when is_list(List) ->
-    pr(List, Module, );
-pr(Record, _) ->
-    Record.
-
-%% @doc Print a record or a list of records lager found during parse transform
-pr(Record, Module, Options) when is_tuple(Record), is_atom(element(1, Record)), is_list(Options) ->
-    try 
-        case is_record_known(Record, Module) of
-            false ->
-                Record;
-            {RecordName, RecordFields} ->
-                {'$lager_record', RecordName, 
-                    zip(RecordFields, tl(tuple_to_list(Record)), Module, Options, )}
-        end
-    catch
-        error:undef ->
-            Record
-    end;
-pr(Head|Tail, Module, Options) when is_list(Options) ->
-    pr(Head, Module, Options)|pr(Tail, Module, Options);
-pr(Record, _, _) ->
-    Record.
-
-zip(FieldName|RecordFields, FieldValue|Record, Module, Options, ToReturn) when is_list(FieldValue) ->
-    zip(RecordFields, Record, Module, Options,
-        {FieldName, pr(FieldValue, Module, Options)}|ToReturn);
-zip(FieldName|RecordFields, FieldValue|Record, Module, Options, ToReturn) ->
-    Compress = lists:member(compress, Options),
-    case   is_tuple(FieldValue) andalso
-           tuple_size(FieldValue) > 0 andalso
-           is_atom(element(1, FieldValue)) andalso
-           is_record_known(FieldValue, Module) of
-        false when Compress andalso FieldValue =:= undefined ->
-            zip(RecordFields, Record, Module, Options, ToReturn);
-        false ->
-            zip(RecordFields, Record, Module, Options, {FieldName, FieldValue}|ToReturn);
-        _Else ->
-            F = {FieldName, pr(FieldValue, Module, Options)},
-            zip(RecordFields, Record, Module, Options, F|ToReturn)
-    end;
-zip(, , _Module, _Compress, ToReturn) ->
-    lists:reverse(ToReturn).
-
-is_record_known(Record, Module) ->
-    Name = element(1, Record),
-    Attrs = Module:module_info(attributes),
-    case lists:keyfind(lager_records, 1, Attrs) of
-        false -> false;
-        {lager_records, Records} ->
-            case lists:keyfind(Name, 1, Records) of
-                false -> false;
-                {Name, RecordFields} ->
-                    case (tuple_size(Record) - 1) =:= length(RecordFields) of
-                        false -> false;
-                        true -> {Name, RecordFields}
-                    end
-            end
-    end.
-
-
-%% @doc Print stacktrace in human readable form
-pr_stacktrace(Stacktrace) ->
-    Stacktrace1 = case application:get_env(lager, reverse_pretty_stacktrace, true) of
-                      true ->
-                          lists:reverse(Stacktrace);
-                      _ ->
-                          Stacktrace
-                  end,
-    pr_stacktrace_(Stacktrace1).
-
-pr_stacktrace_(Stacktrace) ->
-    Indent = "\n    ",
-    lists:foldl(
-        fun(Entry, Acc) ->
-            Acc ++ Indent ++ error_logger_lager_h:format_mfa(Entry)
-        end,
-        ,
-        Stacktrace).
-
-pr_stacktrace(Stacktrace, {Class, Reason}) ->
-    case application:get_env(lager, reverse_pretty_stacktrace, true) of
-        true ->
-            lists:flatten(
-              pr_stacktrace_(lists:reverse(Stacktrace)) ++ "\n" ++ io_lib:format("~s:~p", Class, Reason));
-        _ ->
-            lists:flatten(
-              io_lib:format("~s:~p", Class, Reason) ++ pr_stacktrace_(Stacktrace))
-    end.
-
-rotate_sink(Sink) ->
-    Handlers = lager_config:global_get(handlers),
-    RotateHandlers = lists:filtermap(
-        fun({Handler,_,S}) when S == Sink -> {true, {Handler, Sink}};
-           (_)                            -> false 
-        end, 
-        Handlers),
-    rotate_handlers(RotateHandlers).
-
-rotate_all() -> 
-    rotate_handlers(lists:map(fun({H,_,S}) -> {H, S} end,
-                              lager_config:global_get(handlers))).
-
-
-rotate_handlers(Handlers) ->
-     rotate_handler(Handler, Sink) || {Handler, Sink} <- Handlers .
-
-
-rotate_handler(Handler) ->
-    Handlers = lager_config:global_get(handlers),
-    case lists:keyfind(Handler, 1, Handlers) of
-        {Handler, _, Sink} -> rotate_handler(Handler, Sink);
-        false              -> ok
-    end.
-
-rotate_handler(Handler, Sink) ->
-    gen_event:call(Sink, Handler, rotate, ?ROTATE_TIMEOUT).
-
-%% @private
-trace_func(#trace_func_state_v1{pid=Pid, level=Level, format_string=Fmt}=FuncState, Event, ProcState) ->
-    _ = lager:log(Level, Pid, Fmt, Event, ProcState),
-    check_timeout(decrement_count(FuncState)).
-
-%% @private
-trace_state(Pid, Level, Options) ->
-    #trace_func_state_v1{pid=Pid,
-                         level=Level,
-                         count=proplists:get_value(count, Options, infinity),
-                         timeout=proplists:get_value(timeout, Options, infinity),
-                         format_string=proplists:get_value(format_string, Options, "TRACE ~p ~p")}.
-
-decrement_count(#trace_func_state_v1{count=infinity} = FuncState) ->
-    FuncState;
-decrement_count(#trace_func_state_v1{count=1}) ->
-    %% hit the counter limit
-    done;
-decrement_count(#trace_func_state_v1{count=Count} = FuncState) ->
-    FuncState#trace_func_state_v1{count=Count - 1}.
-
-check_timeout(#trace_func_state_v1{timeout=infinity} = FuncState) ->
-    FuncState;
-check_timeout(#trace_func_state_v1{timeout=Timeout, started=Started} = FuncState) ->
-    case (timer:now_diff(os:timestamp(), Started) / 1000) > Timeout of
-        true ->
-            done;
-        false ->
-            FuncState
-    end.
-
--ifdef(TEST).
-get_sink_handler_status_ascii_test() ->
-    File = "C:\\ProgramData\\Directory With Spaces\\lager.log",
-    validate_status(File).
-
-get_sink_handler_status_latin_test() ->
-    File = "C:\\ProgramData\\Tést Directory\\lager.log",
-    validate_status(File).
-
-get_sink_handler_status_unicode_test() ->
-    File = "C:\\ProgramData\\찦차를 타고 온 펲시맨과 쑛다리 똠방각하 (Korean)\\lager.log",
-    validate_status(File).
-
-validate_status(File) ->
-    Handler = {lager_file_backend, File},
-    Status = get_sink_handler_status(?DEFAULT_SINK, Handler, debug),
-    ?assertNotEqual(nomatch, string:find(Status, File)).
--endif.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/src/lager_app.erl Deleted

@@ -1,426 +0,0 @@
-%% Copyright (c) 2011-2012 Basho Technologies, Inc.  All Rights Reserved.
-%%
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-
-%% @doc Lager's application module. Not a lot to see here.
-
-%% @private
-
--module(lager_app).
-
--behaviour(application).
--include("lager.hrl").
--ifdef(TEST).
--include_lib("eunit/include/eunit.hrl").
--endif.
--export(start/0,
-         start/2,
-         start_handler/3,
-         configure_sink/2,
-         stop/1,
-         boot/1).
-
-%% The `application:get_env/3` compatibility wrapper was useful
-%% for other modules in r15 and before
--export(get_env/3).
-
--define(FILENAMES, '__lager_file_backend_filenames').
--define(THROTTLE, lager_backend_throttle).
--define(DEFAULT_HANDLER_CONF,
-        {lager_console_backend, {level, info}},
-         {lager_file_backend,
-          {file, "error.log"}, {level, error},
-           {size, 10485760}, {date, "$D0"}, {count, 5}
-         },
-         {lager_file_backend,
-          {file, "console.log"}, {level, info},
-           {size, 10485760}, {date, "$D0"}, {count, 5}
-         }
-        ).
-
-start() ->
-    application:start(lager).
-
-start_throttle(Sink, Threshold, Window) ->
-    _ = supervisor:start_child(lager_handler_watcher_sup,
-                               Sink, ?THROTTLE, Threshold, Window),
-    ok.
-
-determine_async_behavior(_Sink, undefined, _Window) ->
-    ok;
-determine_async_behavior(_Sink, Threshold, _Window) when not is_integer(Threshold) orelse Threshold < 0 ->
-    error_logger:error_msg("Invalid value for 'async_threshold': ~p~n",
-                           Threshold),
-    throw({error, bad_config});
-determine_async_behavior(Sink, Threshold, undefined) ->
-    start_throttle(Sink, Threshold, erlang:trunc(Threshold * 0.2));
-determine_async_behavior(_Sink, Threshold, Window) when not is_integer(Window) orelse Window > Threshold orelse Window < 0 ->
-    error_logger:error_msg(
-      "Invalid value for 'async_threshold_window': ~p~n", Window),
-    throw({error, bad_config});
-determine_async_behavior(Sink, Threshold, Window) ->
-    start_throttle(Sink, Threshold, Window).
-
-start_handlers(_Sink, undefined) ->
-    ok;
-start_handlers(_Sink, Handlers) when not is_list(Handlers) ->
-    error_logger:error_msg(
-      "Invalid value for 'handlers' (must be list): ~p~n", Handlers),
-    throw({error, bad_config});
-start_handlers(Sink, Handlers) ->
-    %% handlers failing to start are handled in the handler_watcher
-    lager_config:global_set(handlers,
-                            lager_config:global_get(handlers, ) ++
-                            lists:map(fun({Module, Config}) ->
-                                              check_handler_config(Module, Config),
-                                              start_handler(Sink, Module, Config);
-                                          (_) ->
-                                              throw({error, bad_config})
-                                      end,
-                                      expand_handlers(Handlers))),
-    ok.
-
-start_handler(Sink, Module, Config) ->
-    {ok, Watcher} = supervisor:start_child(lager_handler_watcher_sup,
-                                           Sink, Module, Config),
-    {Module, Watcher, Sink}.
-
-check_handler_config({lager_file_backend, F}, Config) when is_list(Config); is_tuple(Config) ->
-    Fs = case get(?FILENAMES) of
-        undefined -> ordsets:new();
-        X -> X
-    end,
-    case ordsets:is_element(F, Fs) of
-        true ->
-            error_logger:error_msg(
-              "Cannot have same file (~p) in multiple file backends~n", F),
-            throw({error, bad_config});
-        false ->
-            put(?FILENAMES,
-                ordsets:add_element(F, Fs))
-    end,
-    ok;
-check_handler_config(_Handler, Config) when is_list(Config) orelse is_atom(Config) ->
-    ok;
-check_handler_config(Handler, _BadConfig) ->
-    throw({error, {bad_config, Handler}}).
-
-clean_up_config_checks() ->
-    erase(?FILENAMES).
-
-interpret_hwm(undefined) ->
-    undefined;
-interpret_hwm(HWM) when not is_integer(HWM) orelse HWM < 0 ->
-    _ = lager:log(warning, self(), "Invalid error_logger high water mark: ~p, disabling", HWM),
-    undefined;
-interpret_hwm(HWM) ->
-    HWM.
-
-maybe_install_sink_killer(_Sink, undefined, _ReinstallTimer) -> ok;
-maybe_install_sink_killer(Sink, HWM, undefined) -> maybe_install_sink_killer(Sink, HWM, 5000);
-maybe_install_sink_killer(Sink, HWM, ReinstallTimer) when is_integer(HWM) andalso is_integer(ReinstallTimer)
-                                                        andalso HWM >= 0 andalso ReinstallTimer >= 0 ->
-    _ = supervisor:start_child(lager_handler_watcher_sup, Sink, lager_manager_killer,
-                                                           HWM, ReinstallTimer);
-maybe_install_sink_killer(_Sink, HWM, ReinstallTimer) ->
-    error_logger:error_msg("Invalid value for 'killer_hwm': ~p or 'killer_reinstall_after': ~p", HWM, ReinstallTimer),
-    throw({error, bad_config}).
-
--spec start_error_logger_handler(boolean(), pos_integer(), list()) -> list().
-start_error_logger_handler(false, _HWM, _Whitelist) ->
-    ;
-start_error_logger_handler(true, HWM, WhiteList) ->
-    GlStrategy = case application:get_env(lager, error_logger_groupleader_strategy) of
-                    undefined ->
-                        handle;
-                    {ok, GlStrategy0} when
-                            GlStrategy0 =:= handle;
-                            GlStrategy0 =:= ignore;
-                            GlStrategy0 =:= mirror ->
-                        GlStrategy0;
-                    {ok, BadGlStrategy} ->
-                        error_logger:error_msg(
-                          "Invalid value for 'error_logger_groupleader_strategy': ~p~n",
-                          BadGlStrategy),
-                        throw({error, bad_config})
-                end,
-
-    case whereis(error_logger) of
-        undefined ->
-            %% On OTP 21 and above, error_logger is deprecated in favor of 'logger'
-            %% As a band-aid, boot up error_logger anyway and install it as a logger handler
-            %% we can't use error_logger:add_report_handler because we want supervision of the handler
-            %% so we have to manually add the logger handler
-            %%
-            %% Longer term we should be installing a logger handler instead, but this will bridge the gap
-            %% for now.
-            _ = error_logger:start(),
-            _ = logger:add_handler(error_logger,error_logger,#{level=>info,filter_default=>log}),
-            ok = maybe_remove_logger_handler();
-        _ ->
-            ok
-    end,
-
-    %% capture which handlers we removed from error_logger so we can restore them when lager stops
-    OldHandlers = case supervisor:start_child(lager_handler_watcher_sup, error_logger, error_logger_lager_h, HWM, GlStrategy) of
-        {ok, _} ->
-            begin error_logger:delete_report_handler(X), X end ||
-                X <- gen_event:which_handlers(error_logger) -- error_logger_lager_h | WhiteList;
-        {error, _} ->
-            
-    end,
-    OldHandlers.
-
-%% On OTP 21.1 and higher we need to remove the `default' handler.
-%% But it might not exist, so we will wrap this in a try-catch
-%% block
-maybe_remove_logger_handler() ->
-    try
-        ok = logger:remove_handler(default)
-    catch
-        error:undef -> ok;
-        Err:Reason ->
-            error_logger:error_msg("calling logger:remove_handler(default) failed: ~p ~p",
-                                   Err, Reason)
-    end.
-
-configure_sink(Sink, SinkDef) ->
-    lager_config:new_sink(Sink),
-    ChildId = lager_util:make_internal_sink_name(Sink),
-    _ = supervisor:start_child(lager_sup,
-                               {ChildId,
-                                {gen_event, start_link,
-                                 {local, Sink}},
-                                permanent, 5000, worker, dynamic}),
-    determine_async_behavior(Sink, proplists:get_value(async_threshold, SinkDef),
-                             proplists:get_value(async_threshold_window, SinkDef)
-                            ),
-    _ = maybe_install_sink_killer(Sink, proplists:get_value(killer_hwm, SinkDef),
-                              proplists:get_value(killer_reinstall_after, SinkDef)),
-    start_handlers(Sink,
-                   proplists:get_value(handlers, SinkDef, )),
-
-    lager:update_loglevel_config(Sink).
-
-
-configure_extra_sinks(Sinks) ->
-    lists:foreach(fun({Sink, Proplist}) -> configure_sink(Sink, Proplist) end,
-                  Sinks).
-
--spec get_env(atom(), atom(), term()) -> term().
-get_env(Application, Key, Default) ->
-    application:get_env(Application, Key, Default).
-
-start(_StartType, _StartArgs) ->
-    {ok, Pid} = lager_sup:start_link(),
-    SavedHandlers = boot(),
-    _ = boot('__all_extra'),
-    _ = boot('__traces'),
-    clean_up_config_checks(),
-    {ok, Pid, SavedHandlers}.
-
-boot() ->
-    %% Handle the default sink.
-    determine_async_behavior(?DEFAULT_SINK,
-                             application:get_env(lager, async_threshold, undefined),
-                             application:get_env(lager, async_threshold_window, undefined)),
-
-    _ = maybe_install_sink_killer(?DEFAULT_SINK, application:get_env(lager, killer_hwm, undefined),
-                                  application:get_env(lager, killer_reinstall_after, undefined)),
-
-    start_handlers(?DEFAULT_SINK,
-                   application:get_env(lager, handlers, ?DEFAULT_HANDLER_CONF)),
-
-    lager:update_loglevel_config(?DEFAULT_SINK),
-
-    SavedHandlers = start_error_logger_handler(
-                      application:get_env(lager, error_logger_redirect, true),
-                      interpret_hwm(application:get_env(lager, error_logger_hwm, 0)),
-                      application:get_env(lager, error_logger_whitelist, )
-                     ),
-
-    SavedHandlers.
-
-boot('__traces') ->
-    _ = lager_util:trace_filter(none),
-    ok = add_configured_traces();
-
-boot('__all_extra') ->
-    configure_extra_sinks(application:get_env(lager, extra_sinks, ));
-
-boot(?DEFAULT_SINK) -> boot();
-boot(Sink) ->
-    AllSinksDef = application:get_env(lager, extra_sinks, ),
-    boot_sink(Sink, lists:keyfind(Sink, 1, AllSinksDef)).
-
-boot_sink(Sink, {Sink, Def}) ->
-    configure_sink(Sink, Def);
-boot_sink(Sink, false) ->
-    configure_sink(Sink, ).
-
-stop(Handlers) ->
-    lists:foreach(fun(Handler) ->
-          error_logger:add_report_handler(Handler)
-      end, Handlers),
-    lager_config:cleanup().
-
-expand_handlers() ->
-    ;
-expand_handlers({lager_file_backend, {Key, _Value}|_=Config}|T) when is_atom(Key) ->
-    %% this is definitely a new-style config, no expansion needed
-    maybe_make_handler_id(lager_file_backend, Config) | expand_handlers(T);
-expand_handlers({lager_file_backend, Configs}|T) ->
-    ?INT_LOG(notice, "Deprecated lager_file_backend config detected, please consider updating it", ),
-     {lager_file_backend:config_to_id(Config), Config} || Config <- Configs ++
-      expand_handlers(T);
-expand_handlers({Mod, Config}|T) when is_atom(Mod) ->
-    maybe_make_handler_id(Mod, Config) | expand_handlers(T);
-expand_handlers(H|T) ->
-    H | expand_handlers(T).
-
-add_configured_traces() ->
-    Traces = case application:get_env(lager, traces) of
-        undefined ->
-            ;
-        {ok, TraceVal} ->
-            TraceVal
-    end,
-
-    lists:foreach(fun start_configured_trace/1, Traces),
-    ok.
-
-start_configured_trace({Handler, Filter}) ->
-    {ok, _} = lager:trace(Handler, Filter);
-start_configured_trace({Handler, Filter, Level}) when is_atom(Level) ->
-    {ok, _} = lager:trace(Handler, Filter, Level).
-
-maybe_make_handler_id(Mod, Config) ->
-    %% Allow the backend to generate a gen_event handler id, if it wants to.
-    %% We don't use erlang:function_exported here because that requires the module
-    %% already be loaded, which is unlikely at this phase of startup. Using code:load
-    %% caused undesirable side-effects with generating code-coverage reports.
-    try Mod:config_to_id(Config) of
-        Id ->
-            {Id, Config}
-    catch
-        error:undef ->
-            {Mod, Config}
-    end.
-
--ifdef(TEST).
-application_config_mangling_test_() ->
-    
-        {"Explode the file backend handlers",
-            ?_assertMatch(
-                {lager_console_backend, {level, info}},
-                    {{lager_file_backend,"error.log"},{"error.log",error,10485760, "$D0",5}},
-                    {{lager_file_backend,"console.log"},{"console.log",info,10485760, "$D0",5}}
-                ,
-                expand_handlers({lager_console_backend, {level, info}},
-                        {lager_file_backend, 
-                                {"error.log", error, 10485760, "$D0", 5},
-                                {"console.log", info, 10485760, "$D0", 5}
-                            }
-                ))
-        },
-        {"Explode the short form of backend file handlers",
-            ?_assertMatch(
-                {lager_console_backend, {level, info}},
-                    {{lager_file_backend,"error.log"},{"error.log",error}},
-                    {{lager_file_backend,"console.log"},{"console.log",info}}
-                ,
-                expand_handlers({lager_console_backend, {level, info}},
-                        {lager_file_backend, 
-                                {"error.log", error},
-                                {"console.log", info}
-                            }
-                ))
-        },
-        {"Explode with formatter info",
-            ?_assertMatch(
-                {{lager_file_backend,"test.log"},  {"test.log", debug, 10485760, "$D0", 5},{lager_default_formatter,"",severity," ", message, "\n"}},
-                    {{lager_file_backend,"test2.log"}, {"test2.log",debug, 10485760, "$D0", 5},{lager_default_formatter,"2>",severity," ", message, "\n"}},
-                expand_handlers({lager_file_backend, 
-                                {"test.log", debug, 10485760, "$D0", 5},{lager_default_formatter,"",severity," ", message, "\n"},
-                                {"test2.log",debug, 10485760, "$D0", 5},{lager_default_formatter,"2>",severity," ",message, "\n"}
-                            
-                        })
-            )
-        },
-        {"Explode short form with short formatter info",
-            ?_assertMatch(
-                {{lager_file_backend,"test.log"},  {"test.log", debug},{lager_default_formatter,"",severity," ", message, "\n"}},
-                    {{lager_file_backend,"test2.log"}, {"test2.log",debug},{lager_default_formatter}},
-                expand_handlers({lager_file_backend, 
-                                {"test.log", debug},{lager_default_formatter,"",severity," ", message, "\n"},
-                                {"test2.log",debug},{lager_default_formatter}
-                            
-                        })
-            )
-        },
-        {"New form needs no expansion",
-            ?_assertMatch(
-                    {{lager_file_backend,"test.log"},  {file, "test.log"}},
-                    {{lager_file_backend,"test2.log"}, {file, "test2.log"}, {level, info}, {sync_on, none}},
-                    {{lager_file_backend,"test3.log"}, {formatter, lager_default_formatter}, {file, "test3.log"}}
-                ,
-                expand_handlers(
-                        {lager_file_backend, {file, "test.log"}},
-                        {lager_file_backend, {file, "test2.log"}, {level, info}, {sync_on, none}},
-                        {lager_file_backend, {formatter, lager_default_formatter},{file, "test3.log"}}
-                    )
-            )
-        }
-    .
-
-check_handler_config_test_() ->
-    Good = expand_handlers(?DEFAULT_HANDLER_CONF),
-    Bad  = expand_handlers({lager_console_backend, {level, info}},
-            {lager_file_backend, {file, "same_file.log"}},
-            {lager_file_backend, {file, "same_file.log"}, {level, info}}),
-    AlsoBad = {lager_logstash_backend,
-                                    {level, info},
-                                    {output, {udp, "localhost", 5000}},
-                                    {format, json},
-                                    {json_encoder, jiffy}},
-    BadToo = {fail, {fail}},
-    OldSchoolLagerGood = expand_handlers({lager_console_backend, {level, info}},
-                                          {lager_file_backend, 
-                                              {"./log/error.log",error,10485760,"$D0",5},
-                                              {"./log/console.log",info,10485760,"$D0",5},
-                                              {"./log/debug.log",debug,10485760,"$D0",5}
-                                          }),
-    NewConfigMissingList = expand_handlers({foo_backend, {file, "same_file.log"}}),
-    
-        {"lager_file_backend_good",
-         ?_assertEqual(ok, ok, ok,  check_handler_config(M,C) || {M,C} <- Good )
-        },
-        {"lager_file_backend_bad",
-         ?_assertThrow({error, bad_config},  check_handler_config(M,C) || {M,C} <- Bad )
-        },
-        {"Invalid config dies",
-         ?_assertThrow({error, bad_config}, start_handlers(foo, AlsoBad))
-        },
-        {"Invalid config dies",
-         ?_assertThrow({error, {bad_config, _}}, start_handlers(foo, BadToo))
-        },
-        {"Old Lager config works",
-         ?_assertEqual(ok, ok, ok, ok,  check_handler_config(M, C) || {M, C} <- OldSchoolLagerGood)
-        },
-        {"New Config missing its list should fail",
-         ?_assertThrow({error, {bad_config, foo_backend}},  check_handler_config(M, C) || {M, C} <- NewConfigMissingList)
-        }
-    .
--endif.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/src/lager_backend_throttle.erl Deleted

@@ -1,105 +0,0 @@
-%% Copyright (c) 2011-2013 Basho Technologies, Inc.  All Rights Reserved.
-%%
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-
-%% @doc A simple gen_event backend used to monitor mailbox size and
-%% switch log messages between synchronous and asynchronous modes.
-%% A gen_event handler is used because a process getting its own mailbox
-%% size doesn't involve getting a lock, and gen_event handlers run in their
-%% parent's process.
-
--module(lager_backend_throttle).
-
--include("lager.hrl").
-
--behaviour(gen_event).
-
--export(init/1, handle_call/2, handle_event/2, handle_info/2, terminate/2,
-        code_change/3).
-
-%%
-%% Allow test code to verify that we're doing the needful.
--ifdef(TEST).
--define(ETS_TABLE, async_threshold_test).
--define(TOGGLE_SYNC(), test_increment(sync_toggled)).
--define(TOGGLE_ASYNC(), test_increment(async_toggled)).
--else.
--define(TOGGLE_SYNC(), true).
--define(TOGGLE_ASYNC(), true).
--endif.
-
--record(state, {
-        sink :: atom(),
-        hwm :: non_neg_integer(),
-        window_min :: non_neg_integer(),
-        async = true :: boolean()
-    }).
-
-init({sink, Sink}, Hwm, Window) ->
-    lager_config:set({Sink, async}, true),
-    {ok, #state{sink=Sink, hwm=Hwm, window_min=Hwm - Window}}.
-
-
-handle_call(get_loglevel, State) ->
-    {ok, {mask, ?LOG_NONE}, State};
-handle_call({set_loglevel, _Level}, State) ->
-    {ok, ok, State};
-handle_call(_Request, State) ->
-    {ok, ok, State}.
-
-handle_event({log, _Message},State) ->
-    {message_queue_len, Len} = erlang:process_info(self(), message_queue_len),
-    case {Len > State#state.hwm, Len < State#state.window_min, State#state.async} of
-        {true, _, true} ->
-            %% need to flip to sync mode
-            ?TOGGLE_SYNC(),
-            lager_config:set({State#state.sink, async}, false),
-            {ok, State#state{async=false}};
-        {_, true, false} ->
-            %% need to flip to async mode
-            ?TOGGLE_ASYNC(),
-            lager_config:set({State#state.sink, async}, true),
-            {ok, State#state{async=true}};
-        _ ->
-            %% nothing needs to change
-            {ok, State}
-    end;
-handle_event(_Event, State) ->
-    {ok, State}.
-
-handle_info(_Info, State) ->
-    {ok, State}.
-
-%% @private
-terminate(_Reason, _State) ->
-    ok.
-
-%% @private
-code_change(_OldVsn, State, _Extra) ->
-    {ok, State}.
-
--ifdef(TEST).
-test_get(Key) ->
-    get_default(ets:lookup(?ETS_TABLE, Key)).
-
-test_increment(Key) ->
-    ets:insert(?ETS_TABLE,
-               {Key, test_get(Key) + 1}).
-
-get_default() ->
-    0;
-get_default({_Key, Value}) ->
-    Value.
--endif.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/src/lager_common_test_backend.erl Deleted

@@ -1,121 +0,0 @@
--module(lager_common_test_backend).
-
--behavior(gen_event).
-
-%% gen_event callbacks
--export(init/1,
-         handle_call/2,
-         handle_event/2,
-         handle_info/2,
-         terminate/2,
-         code_change/3).
--export(get_logs/0,
-        bounce/0,
-        bounce/1).
-
-%% holds the log messages for retreival on terminate
--record(state, {level :: {mask, integer()},
-                formatter :: atom(),
-                format_config :: any(),
-                log =  :: list()}).
-
--include("lager.hrl").
--define(TERSE_FORMAT,time, " ", color, "", severity," ", message).
-
-%% @doc Before every test, just
-%% lager_common_test_backend:bounce(Level) with the log level of your
-%% choice. Every message will be passed along to ct:pal for your
-%% viewing in the common_test reports. Also, you can call
-%% lager_common_test_backend:get_logs/0 to get a list of all log
-%% messages this backend has received during your test. You can then
-%% search that list for expected log messages.
-
-
--spec get_logs() -> iolist() | {error, term()}.
-get_logs() ->
-    gen_event:call(lager_event, ?MODULE, get_logs, infinity).
-
-bounce() ->
-    bounce(error).
-
-bounce(Level) ->
-    _ = application:stop(lager),
-    application:set_env(lager, suppress_application_start_stop, true),
-    application:set_env(lager, handlers,
-                        
-                         {lager_common_test_backend, Level, false}
-                        ),
-    ok = lager:start(),
-    %% we care more about getting all of our messages here than being
-    %% careful with the amount of memory that we're using.
-    error_logger_lager_h:set_high_water(100000),
-    ok.
-
--spec(init(integer()|atom()|term()) -> {ok, #state{}} | {error, atom()}).
-%% @private
-%% @doc Initializes the event handler
-init(Level, true) -> % for backwards compatibility
-    init(Level,{lager_default_formatter,{eol, "\n"}});
-init(Level,false) -> % for backwards compatibility
-    init(Level,{lager_default_formatter,?TERSE_FORMAT ++ "\n"});
-init(Level,{Formatter,FormatterConfig}) when is_atom(Formatter) ->
-    case lists:member(Level, ?LEVELS) of
-        true ->
-            {ok, #state{level=lager_util:config_to_mask(Level),
-                    formatter=Formatter,
-                    format_config=FormatterConfig}};
-        _ ->
-            {error, bad_log_level}
-    end;
-init(Level) ->
-    init(Level,{lager_default_formatter,?TERSE_FORMAT ++ "\n"}).
-
--spec(handle_event(tuple(), #state{}) -> {ok, #state{}}).
-%% @private
-handle_event({log, Message},
-    #state{level=L,formatter=Formatter,format_config=FormatConfig,log=Logs} = State) ->
-    case lager_util:is_loggable(Message,L,?MODULE) of
-        true ->
-            Log = Formatter:format(Message,FormatConfig),
-            ct:pal(Log),
-            {ok, State#state{log=Log|Logs}};
-        false ->
-            {ok, State}
-    end;
-handle_event(Event, State) ->
-    ct:pal(Event),
-    {ok, State#state{log = Event|State#state.log}}.
-
--spec(handle_call(any(), #state{}) -> {ok, any(), #state{}}).
-%% @private
-%% @doc gets and sets loglevel. This is part of the lager backend api.
-handle_call(get_loglevel, #state{level=Level} = State) ->
-    {ok, Level, State};
-handle_call({set_loglevel, Level}, State) ->
-    case lists:member(Level, ?LEVELS) of
-        true ->
-            {ok, ok, State#state{level=lager_util:config_to_mask(Level)}};
-        _ ->
-            {ok, {error, bad_log_level}, State}
-    end;
-handle_call(get_logs, #state{log = Logs} = State) ->
-    {ok, lists:reverse(Logs), State};
-handle_call(_, State) ->
-    {ok, ok, State}.
-
--spec(handle_info(any(), #state{}) -> {ok, #state{}}).
-%% @private
-%% @doc gen_event callback, does nothing.
-handle_info(_, State) ->
-    {ok, State}.
-
--spec(code_change(any(), #state{}, any()) -> {ok, #state{}}).
-%% @private
-%% @doc gen_event callback, does nothing.
-code_change(_OldVsn, State, _Extra) ->
-    {ok, State}.
-
--spec(terminate(any(), #state{}) -> {ok, list()}).
-%% @doc gen_event callback, does nothing.
-terminate(_Reason, #state{log=Logs}) ->
-    {ok, lists:reverse(Logs)}.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/src/lager_config.erl Deleted

@@ -1,136 +0,0 @@
-%% Copyright (c) 2011-2012 Basho Technologies, Inc.  All Rights Reserved.
-%%
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-
-%% @doc Helper functions for working with lager's runtime config
-
--module(lager_config).
-
--include("lager.hrl").
-
--export(new/0, new_sink/1, get/1, get/2, set/2,
-         global_get/1, global_get/2, global_set/2, cleanup/0).
-
--define(TBL, lager_config).
--define(GLOBAL, '_global').
-
-%% For multiple sinks, the key is now the registered event name and the old key
-%% as a tuple.
-%%
-%% {{lager_event, loglevel}, Value} instead of {loglevel, Value}
-
-new() ->
-    init(),
-    new_sink(?DEFAULT_SINK),
-    %% Need to be able to find the `lager_handler_watcher' for all handlers
-    insert_new({?GLOBAL, handlers}, ),
-    ok.
-
-new_sink(Sink) ->
-    %% use insert_new here so that if we're in an appup we don't mess anything up
-    %%
-    %% until lager is completely started, allow all messages to go through
-    insert_new({Sink, loglevel}, {element(2, lager_util:config_to_mask(debug)), }).
-
-global_get(Key) ->
-    global_get(Key, undefined).
-
-global_get(Key, Default) ->
-    get({?GLOBAL, Key}, Default).
-
-global_set(Key, Value) ->
-    set({?GLOBAL, Key}, Value).
-
-
-get({_Sink, _Key}=FullKey) ->
-    get(FullKey, undefined);
-get(Key) ->
-    get({?DEFAULT_SINK, Key}, undefined).
-
-get({Sink, Key}, Default) ->
-    lookup({Sink, Key}, Default);
-get(Key, Default) ->
-    get({?DEFAULT_SINK, Key}, Default).
-
-set({Sink, Key}, Value) ->
-    insert({Sink, Key}, Value);
-set(Key, Value) ->
-    set({?DEFAULT_SINK, Key}, Value).
-
-%% check if we can use persistent_term for config
-%% persistent term was added in OTP 21.2 but we can't
-%% check minor versions with macros so we're stuck waiting
-%% for OTP 22
--ifdef(HAVE_PERSISTENT_TERM).
-init() ->
-    ok.
-
-insert(Key, Value) ->
-    persistent_term:put({?TBL, Key}, Value).
-
-insert_new(Key, Value) ->
-    try persistent_term:get({?TBL, Key}) of
-        _Value ->
-            false
-    catch error:badarg ->
-              insert(Key, Value),
-              true
-    end.
-
-lookup(Key, Default) ->
-    try persistent_term:get({?TBL, Key}) of
-        Value -> Value
-    catch
-        error:badarg ->
-            Default
-    end.
-
-cleanup() ->
-     persistent_term:erase(K) || {{?TBL, _} = K, _} <- persistent_term:get() .
-
--else.
-
-init() ->
-    %% set up the ETS configuration table
-    _ = try ets:new(?TBL, named_table, public, set, {keypos, 1}, {read_concurrency, true}) of
-            _Result ->
-                ok
-        catch
-            error:badarg ->
-                ?INT_LOG(warning, "Table ~p already exists", ?TBL)
-        end.
-
-insert(Key, Value) ->
-    ets:insert(?TBL, {Key, Value}).
-
-insert_new(Key, Value) ->
-    ets:insert_new(?TBL, {Key, Value}).
-
-lookup(Key, Default) ->
-    try
-        case ets:lookup(?TBL, Key) of
-             ->
-                Default;
-            {Key, Res} ->
-                Res
-        end
-    catch
-        _:_ ->
-            Default
-    end.
-
-cleanup() -> ok.
--endif.
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/src/lager_console_backend.erl Deleted

@@ -1,604 +0,0 @@
-%% Copyright (c) 2011-2012, 2014 Basho Technologies, Inc.  All Rights Reserved.
-%%
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-
-%% @doc Console backend for lager.
-%% Configuration is a proplist with the following keys:
-%% <ul>
-%%    <li>`level' - log level to use</li>
-%%    <li>`use_stderr' - either `true' or `false', defaults to false. If set to true,
-%%                       use standard error to output console log messages</li>
-%%    <li>`formatter' - the module to use when formatting log messages. Defaults to
-%%                      `lager_default_formatter'</li>
-%%    <li>`formatter_config' - the format configuration string. Defaults to
-%%                             `time  severity  message'</li>
-%% </ul>
-
--module(lager_console_backend).
-
--behaviour(gen_event).
-
--export(init/1, handle_call/2, handle_event/2, handle_info/2, terminate/2,
-        code_change/3).
-
--record(state, {level :: {'mask', integer()},
-                out = user :: user | standard_error | pid(),
-                id :: atom() | {atom(), any()},
-                formatter :: atom(),
-                format_config :: any(),
-                colors= :: list()}).
-
--ifdef(TEST).
--include_lib("eunit/include/eunit.hrl").
--compile({parse_transform, lager_transform}).
--endif.
-
-
--include("lager.hrl").
-
--define(TERSE_FORMAT,time, " ", color, "", severity," ", message).
--define(DEFAULT_FORMAT_CONFIG, ?TERSE_FORMAT ++ eol()).
--define(FORMAT_CONFIG_OFF, {eol, eol()}).
-
--ifdef(TEST).
--define(DEPRECATED(_Msg), ok).
--else.
--define(DEPRECATED(Msg),
-        io:format(user, "WARNING: This is a deprecated console configuration. Please use \"~w\" instead.~n", Msg)).
--endif.
-
-%% @private
-init(Level) when is_atom(Level) ->
-    ?DEPRECATED({level, Level}),
-    init({level, Level});
-init(Level, true) when is_atom(Level) -> % for backwards compatibility
-    ?DEPRECATED({level, Level}, {formatter_config, {eol, "\\r\\n\\"}}),
-    init({level, Level}, {formatter_config, ?FORMAT_CONFIG_OFF});
-init(Level, false) when is_atom(Level) -> % for backwards compatibility
-    ?DEPRECATED({level, Level}),
-    init({level, Level});
-
-init(Options) when is_list(Options) ->
-    true = validate_options(Options),
-    Colors = case application:get_env(lager, colored) of
-        {ok, true} ->
-            {ok, LagerColors} = application:get_env(lager, colors),
-            LagerColors;
-        _ -> 
-    end,
-
-    Level = get_option(level, Options, undefined),
-    try {is_new_style_console_available(), lager_util:config_to_mask(Level)} of
-        {false, _} ->
-            Msg = "Lager's console backend is incompatible with the 'old' shell, not enabling it",
-            %% be as noisy as possible, log to every possible place
-            try
-                alarm_handler:set_alarm({?MODULE, "WARNING: " ++ Msg})
-            catch
-                _:_ ->
-                    error_logger:warning_msg(Msg ++ "~n")
-            end,
-            io:format("WARNING: " ++ Msg ++ "~n"),
-            ?INT_LOG(warning, Msg, ),
-            {error, {fatal, old_shell}};
-        {true, L} ->
-            UseErr, GroupLeader, ID, Formatter, Config =  get_option(K, Options, Default) || {K, Default} <- 
-                                                                                   {use_stderr, false},
-                                                                                   {group_leader, false},
-                                                                                   {id, ?MODULE},
-                                                                                   {formatter, lager_default_formatter},
-                                                                                   {formatter_config, ?DEFAULT_FORMAT_CONFIG}
-                                                                                               
-                                          ,
-            Out = case UseErr of
-                     false ->
-                          case GroupLeader of
-                              false -> user;
-                              GLPid when is_pid(GLPid) ->
-                                  erlang:monitor(process, GLPid),
-                                  GLPid
-                          end;
-                     true -> standard_error
-                  end,
-            {ok, #state{level=L,
-                    id=ID,
-                    out=Out,
-                    formatter=Formatter,
-                    format_config=Config,
-                    colors=Colors}}
-    catch
-        _:_ ->
-            {error, {fatal, bad_log_level}}
-    end;
-init(Level) when is_atom(Level) ->
-    ?DEPRECATED({level, Level}),
-    init({level, Level});
-init(Other) ->
-    {error, {fatal, {bad_console_config, Other}}}.
-
-validate_options() -> true;
-validate_options({level, L}|T) when is_atom(L) ->
-    case lists:member(L, ?LEVELS) of
-        false ->
-            throw({error, {fatal, {bad_level, L}}});
-        true ->
-            validate_options(T)
-    end;
-validate_options({use_stderr, true}|T) ->
-    validate_options(T);
-validate_options({use_stderr, false}|T) ->
-    validate_options(T);
-validate_options({formatter, M}|T) when is_atom(M) ->
-    validate_options(T);
-validate_options({formatter_config, C}|T) when is_list(C) ->
-    validate_options(T);
-validate_options({group_leader, L}|T) when is_pid(L) ->
-    validate_options(T);
-validate_options({id, {?MODULE, _}}|T) ->
-    validate_options(T);
-validate_options(H|_) ->
-    throw({error, {fatal, {bad_console_config, H}}}).
-
-get_option(K, Options, Default) ->
-   case lists:keyfind(K, 1, Options) of
-       {K, V} -> V;
-       false -> Default
-   end.
-
-%% @private
-handle_call(get_loglevel, #state{level=Level} = State) ->
-    {ok, Level, State};
-handle_call({set_loglevel, Level}, State) ->
-    try lager_util:config_to_mask(Level) of
-        Levels ->
-            {ok, ok, State#state{level=Levels}}
-    catch
-        _:_ ->
-            {ok, {error, bad_log_level}, State}
-    end;
-handle_call(_Request, State) ->
-    {ok, ok, State}.
-
-%% @private
-handle_event({log, Message},
-    #state{level=L,out=Out,formatter=Formatter,format_config=FormatConfig,colors=Colors,id=ID} = State) ->
-    case lager_util:is_loggable(Message, L, ID) of
-        true ->
-            io:put_chars(Out, Formatter:format(Message,FormatConfig,Colors)),
-            {ok, State};
-        false ->
-            {ok, State}
-    end;
-handle_event(_Event, State) ->
-    {ok, State}.
-
-%% @private
-handle_info({'DOWN', _, process, Out, _}, #state{out=Out}) ->
-    remove_handler;
-handle_info(_Info, State) ->
-    {ok, State}.
-
-%% @private
-terminate(remove_handler, _State=#state{id=ID}) ->
-    %% have to do this asynchronously because we're in the event handlr
-    spawn(fun() -> lager:clear_trace_by_destination(ID) end),
-    ok;
-terminate(_Reason, _State) ->
-    ok.
-
-%% @private
-code_change(_OldVsn, State, _Extra) ->
-    {ok, State}.
-
-eol() ->
-    case application:get_env(lager, colored) of
-        {ok, true}  ->
-            "\e0m\r\n";
-        _ ->
-            "\r\n"
-    end.
-
--ifdef(TEST).
-is_new_style_console_available() ->
-    true.
--else.
-is_new_style_console_available() ->
-    %% Criteria:
-    %% 1. If the user has specified '-noshell' on the command line,
-    %%    then we will pretend that the new-style console is available.
-    %%    If there is no shell at all, then we don't have to worry
-    %%    about log events being blocked by the old-style shell.
-    %% 2. Windows doesn't support the new shell, so all windows users
-    %%    have is the oldshell.
-    %% 3. If the user_drv process is registered, all is OK.
-    %%    'user_drv' is a registered proc name used by the "new"
-    %%    console driver.
-    init:get_argument(noshell) /= error orelse
-        element(1, os:type()) /= win32 orelse
-        is_pid(whereis(user_drv)).
--endif.
-
--ifdef(TEST).
-console_config_validation_test_() ->
-    Good = {level, info}, {use_stderr, true},
-    Bad1 = {level, foo}, {use_stderr, flase},
-    Bad2 = {level, info}, {use_stderr, flase},
-    AllGood = {level, info}, {formatter, my_formatter},
-               {formatter_config, "blort", "garbage"},
-               {use_stderr, false},
-    
-     ?_assertEqual(true, validate_options(Good)),
-     ?_assertThrow({error, {fatal, {bad_level, foo}}}, validate_options(Bad1)),
-     ?_assertThrow({error, {fatal, {bad_console_config, {use_stderr, flase}}}}, validate_options(Bad2)),
-     ?_assertEqual(true, validate_options(AllGood))
-    .
-
-console_log_test_() ->
-    %% tiny recursive fun that pretends to be a group leader
-    F = fun(Self) ->
-            fun() ->
-                    YComb = fun(Fun) ->
-                            receive
-                                {io_request, From, ReplyAs, {put_chars, unicode, _Msg}} = Y ->
-                                    From ! {io_reply, ReplyAs, ok},
-                                    Self ! Y,
-                                    Fun(Fun);
-                                Other ->
-                                    ?debugFmt("unexpected message ~p~n", Other),
-                                    Self ! Other
-                            end
-                    end,
-                    YComb(YComb)
-            end
-    end,
-    {foreach,
-        fun() ->
-                error_logger:tty(false),
-                application:load(lager),
-                application:set_env(lager, handlers, ),
-                application:set_env(lager, error_logger_redirect, false),
-                lager:start(),
-                whereis(user)
-        end,
-        fun(User) ->
-                unregister(user),
-                register(user, User),
-                application:stop(lager),
-                application:stop(goldrush),
-                error_logger:tty(true)
-        end,
-        
-            {"regular console logging",
-                fun() ->
-                        Pid = spawn(F(self())),
-                        unregister(user),
-                        register(user, Pid),
-                        erlang:group_leader(Pid, whereis(lager_event)),
-                        gen_event:add_handler(lager_event, lager_console_backend, {level, info}),
-                        lager_config:set({lager_event, loglevel}, {element(2, lager_util:config_to_mask(info)), }),
-                        lager:log(info, self(), "Test message"),
-                        receive
-                            {io_request, From, ReplyAs, {put_chars, unicode, Msg}} ->
-                                From ! {io_reply, ReplyAs, ok},
-                                TestMsg = "Test message" ++ eol(),
-                                ?assertMatch(_, "info", TestMsg, re:split(Msg, " ", {return, list}, {parts, 3}))
-                        after
-                            500 ->
-                                ?assert(false)
-                        end
-                end
-            },
-            {"verbose console logging",
-                fun() ->
-                        Pid = spawn(F(self())),
-                        unregister(user),
-                        register(user, Pid),
-                        erlang:group_leader(Pid, whereis(lager_event)),
-                        gen_event:add_handler(lager_event, lager_console_backend, info, true),
-                        lager_config:set({lager_event, loglevel}, {element(2, lager_util:config_to_mask(info)), }),
-                        lager:info("Test message"),
-                        PidStr = pid_to_list(self()),
-                        receive
-                            {io_request, _, _, {put_chars, unicode, Msg}} ->
-                                TestMsg = "Test message" ++ eol(),
-                                ?assertMatch(_, _, "info", PidStr, _, TestMsg, re:split(Msg, " @", {return, list}, {parts, 6}))
-                        after
-                            500 ->
-                                ?assert(false)
-                        end
-                end
-            },
-            {"custom format console logging",
-                fun() ->
-                        Pid = spawn(F(self())),
-                        unregister(user),
-                        register(user, Pid),
-                        erlang:group_leader(Pid, whereis(lager_event)),
-                        gen_event:add_handler(lager_event, lager_console_backend,
-                          {level, info}, {formatter, lager_default_formatter}, {formatter_config, date,"#",time,"#",severity,"#",node,"#",pid,"#",
-                                                            module,"#",function,"#",file,"#",line,"#",message,"\r\n"}),
-                        lager_config:set({lager_event, loglevel}, {?INFO, }),
-                        lager:info("Test message"),
-                        PidStr = pid_to_list(self()),
-                        NodeStr = atom_to_list(node()),
-                        ModuleStr = atom_to_list(?MODULE),
-                        receive
-                            {io_request, _, _, {put_chars, unicode, Msg}} ->
-                                TestMsg = "Test message" ++ eol(),
-                                ?assertMatch(_, _, "info", NodeStr, PidStr, ModuleStr, _, _, _, TestMsg,
-                                             re:split(Msg, "#", {return, list}, {parts, 10}))
-                        after
-                            500 ->
-                                ?assert(false)
-                        end
-                end
-            },
-            {"tracing should work",
-                fun() ->
-                        Pid = spawn(F(self())),
-                        unregister(user),
-                        register(user, Pid),
-                        gen_event:add_handler(lager_event, lager_console_backend, {level, info}),
-                        erlang:group_leader(Pid, whereis(lager_event)),
-                        lager_config:set({lager_event, loglevel}, {element(2, lager_util:config_to_mask(info)), }),
-                        lager:debug("Test message"),
-                        receive
-                            {io_request, From, ReplyAs, {put_chars, unicode, _Msg}} ->
-                                From ! {io_reply, ReplyAs, ok},
-                                ?assert(false)
-                        after
-                            500 ->
-                                ?assert(true)
-                        end,
-                        {ok, _} = lager:trace_console({module, ?MODULE}),
-                        lager:debug("Test message"),
-                        receive
-                            {io_request, From1, ReplyAs1, {put_chars, unicode, Msg1}} ->
-                                From1 ! {io_reply, ReplyAs1, ok},
-                                TestMsg = "Test message" ++ eol(),
-                                ?assertMatch(_, "debug", TestMsg, re:split(Msg1, " ", {return, list}, {parts, 3}))
-                        after
-                            500 ->
-                                ?assert(false)
-                        end
-                end
-            },
-            {"tracing doesn't duplicate messages",
-                fun() ->
-                        Pid = spawn(F(self())),
-                        unregister(user),
-                        register(user, Pid),
-                        gen_event:add_handler(lager_event, lager_console_backend, {level, info}),
-                        lager_config:set({lager_event, loglevel}, {element(2, lager_util:config_to_mask(info)), }),
-                        erlang:group_leader(Pid, whereis(lager_event)),
-                        lager:debug("Test message"),
-                        receive
-                            {io_request, From, ReplyAs, {put_chars, unicode, _Msg}} ->
-                                From ! {io_reply, ReplyAs, ok},
-                                ?assert(false)
-                        after
-                            500 ->
-                                ?assert(true)
-                        end,
-                        {ok, _} = lager:trace_console({module, ?MODULE}),
-                        lager:error("Test message"),
-                        receive
-                            {io_request, From1, ReplyAs1, {put_chars, unicode, Msg1}} ->
-                                From1 ! {io_reply, ReplyAs1, ok},
-                                TestMsg = "Test message" ++ eol(),
-                                ?assertMatch(_, "error", TestMsg, re:split(Msg1, " ", {return, list}, {parts, 3}))
-                        after
-                            1000 ->
-                                ?assert(false)
-                        end,
-                        %% make sure this event wasn't duplicated
-                        receive
-                            {io_request, From2, ReplyAs2, {put_chars, unicode, _Msg2}} ->
-                                From2 ! {io_reply, ReplyAs2, ok},
-                                ?assert(false)
-                        after
-                            500 ->
-                                ?assert(true)
-                        end
-                end
-            },
-            {"blacklisting a loglevel works",
-                fun() ->
-                        Pid = spawn(F(self())),
-                        unregister(user),
-                        register(user, Pid),
-                        gen_event:add_handler(lager_event, lager_console_backend, {level, info}),
-                        lager_config:set({lager_event, loglevel}, {element(2, lager_util:config_to_mask(info)), }),
-                        lager:set_loglevel(lager_console_backend, '!=info'),
-                        erlang:group_leader(Pid, whereis(lager_event)),
-                        lager:debug("Test message"),
-                        receive
-                            {io_request, From1, ReplyAs1, {put_chars, unicode, Msg1}} ->
-                                From1 ! {io_reply, ReplyAs1, ok},
-                                TestMsg = "Test message" ++ eol(),
-                                ?assertMatch(_, "debug", TestMsg, re:split(Msg1, " ", {return, list}, {parts, 3}))
-                        after
-                            1000 ->
-                                ?assert(false)
-                        end,
-                        %% info is blacklisted
-                        lager:info("Test message"),
-                        receive
-                            {io_request, From2, ReplyAs2, {put_chars, unicode, _Msg2}} ->
-                                From2 ! {io_reply, ReplyAs2, ok},
-                                ?assert(false)
-                        after
-                            500 ->
-                                ?assert(true)
-                        end
-                end
-            },
-            {"whitelisting a loglevel works",
-                fun() ->
-                        Pid = spawn(F(self())),
-                        unregister(user),
-                        register(user, Pid),
-                        gen_event:add_handler(lager_event, lager_console_backend, {level, info}),
-                        lager_config:set({lager_event, loglevel}, {element(2, lager_util:config_to_mask(info)), }),
-                        lager:set_loglevel(lager_console_backend, '=debug'),
-                        erlang:group_leader(Pid, whereis(lager_event)),
-                        lager:debug("Test message"),
-                        receive
-                            {io_request, From1, ReplyAs1, {put_chars, unicode, Msg1}} ->
-                                From1 ! {io_reply, ReplyAs1, ok},
-                                TestMsg = "Test message" ++ eol(),
-                                ?assertMatch(_, "debug", TestMsg, re:split(Msg1, " ", {return, list}, {parts, 3}))
-                        after
-                            1000 ->
-                                ?assert(false)
-                        end,
-                        %% info is blacklisted
-                        lager:error("Test message"),
-                        receive
-                            {io_request, From2, ReplyAs2, {put_chars, unicode, _Msg2}} ->
-                                From2 ! {io_reply, ReplyAs2, ok},
-                                ?assert(false)
-                        after
-                            500 ->
-                                ?assert(true)
-                        end
-                end
-            },
-            {"console backend with custom group leader",
-                fun() ->
-                        Pid = spawn(F(self())),
-                        gen_event:add_handler(lager_event, lager_console_backend, {level, info}, {group_leader, Pid}),
-                        lager_config:set({lager_event, loglevel}, {element(2, lager_util:config_to_mask(info)), }),
-                        lager:info("Test message"),
-                        ?assertNotEqual({group_leader, Pid}, erlang:process_info(whereis(lager_event), group_leader)),
-                        receive
-                            {io_request, From1, ReplyAs1, {put_chars, unicode, Msg1}} ->
-                                From1 ! {io_reply, ReplyAs1, ok},
-                                TestMsg = "Test message" ++ eol(),
-                                ?assertMatch(_, "info", TestMsg, re:split(Msg1, " ", {return, list}, {parts, 3}))
-                        after
-                            1000 ->
-                                ?assert(false)
-                        end,
-                        %% killing the pid should prevent any new log messages (to prove we haven't accidentally redirected
-                        %% the group leader some other way
-                        exit(Pid, kill),
-                        timer:sleep(100),
-                        %% additionally, check the lager backend has been removed (because the group leader process died)
-                        ?assertNot(lists:member(lager_console_backend, gen_event:which_handlers(lager_event))),
-                        lager:error("Test message"),
-                        receive
-                            {io_request, From2, ReplyAs2, {put_chars, unicode, _Msg2}} ->
-                                From2 ! {io_reply, ReplyAs2, ok},
-                                ?assert(false)
-                        after
-                            500 ->
-                                ?assert(true)
-                        end
-                end
-            },
-            {"console backend with custom group leader using a trace and an ID",
-                fun() ->
-                        Pid = spawn(F(self())),
-                        ID = {?MODULE, trace_test},
-                        Handlers = lager_config:global_get(handlers, ),
-                        HandlerInfo = lager_app:start_handler(lager_event, ID,
-                                                              {level, none}, {group_leader, Pid},
-                                                               {id, ID}),
-                        lager_config:global_set(handlers, HandlerInfo|Handlers),
-                        lager:info("Test message"),
-                        ?assertNotEqual({group_leader, Pid}, erlang:process_info(whereis(lager_event), group_leader)),
-                        receive
-                            {io_request, From, ReplyAs, {put_chars, unicode, _Msg}} ->
-                                From ! {io_reply, ReplyAs, ok},
-                                ?assert(false)
-                        after
-                            500 ->
-                                ?assert(true)
-                        end,
-                        lager:trace(ID, {module, ?MODULE}, debug),
-                        lager:info("Test message"),
-                        receive
-                            {io_request, From1, ReplyAs1, {put_chars, unicode, Msg1}} ->
-                                From1 ! {io_reply, ReplyAs1, ok},
-                                TestMsg = "Test message" ++ eol(),
-                                ?assertMatch(_, "info", TestMsg, re:split(Msg1, " ", {return, list}, {parts, 3}))
-                        after
-                            500 ->
-                                ?assert(false)
-                        end,
-                        ?assertNotEqual({0, }, lager_config:get({lager_event, loglevel})),
-                        %% killing the pid should prevent any new log messages (to prove we haven't accidentally redirected
-                        %% the group leader some other way
-                        exit(Pid, kill),
-                        timer:sleep(100),
-                        %% additionally, check the lager backend has been removed (because the group leader process died)
-                        ?assertNot(lists:member(lager_console_backend, gen_event:which_handlers(lager_event))),
-                        %% finally, check the trace has been removed
-                        ?assertEqual({0, }, lager_config:get({lager_event, loglevel})),
-                        lager:error("Test message"),
-                        receive
-                            {io_request, From3, ReplyAs3, {put_chars, unicode, _Msg3}} ->
-                                From3 ! {io_reply, ReplyAs3, ok},
-                                ?assert(false)
-                        after
-                            500 ->
-                                ?assert(true)
-                        end
-                end
-            }
-        
-    }.
-
-set_loglevel_test_() ->
-    {foreach,
-        fun() ->
-                error_logger:tty(false),
-                application:load(lager),
-                application:set_env(lager, handlers, {lager_console_backend, {level, info}}),
-                application:set_env(lager, error_logger_redirect, false),
-                lager:start()
-        end,
-        fun(_) ->
-                application:stop(lager),
-                application:stop(goldrush),
-                error_logger:tty(true)
-        end,
-        
-            {"Get/set loglevel test",
-                fun() ->
-                        ?assertEqual(info, lager:get_loglevel(lager_console_backend)),
-                        lager:set_loglevel(lager_console_backend, debug),
-                        ?assertEqual(debug, lager:get_loglevel(lager_console_backend)),
-                        lager:set_loglevel(lager_console_backend, '!=debug'),
-                        ?assertEqual(info, lager:get_loglevel(lager_console_backend)),
-                        lager:set_loglevel(lager_console_backend, '!=info'),
-                        ?assertEqual(debug, lager:get_loglevel(lager_console_backend)),
-                        ok
-                end
-            },
-            {"Get/set invalid loglevel test",
-                fun() ->
-                        ?assertEqual(info, lager:get_loglevel(lager_console_backend)),
-                        ?assertEqual({error, bad_log_level},
-                            lager:set_loglevel(lager_console_backend, fatfinger)),
-                        ?assertEqual(info, lager:get_loglevel(lager_console_backend))
-                end
-            }
-
-        
-    }.
-
--endif.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/src/lager_crash_log.erl Deleted

@@ -1,382 +0,0 @@
-%% -------------------------------------------------------------------
-%%
-%% Copyright (c) 2011-2017 Basho Technologies, Inc.
-%%
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-%%
-%% -------------------------------------------------------------------
-
-%% @doc Lager crash log writer. This module implements a gen_server which writes
-%% error_logger error messages out to a file in their original format. The
-%% location to which it logs is configured by the application var `crash_log'.
-%% Omitting this variable disables crash logging. Crash logs are printed safely
-%% using trunc_io via code mostly lifted from riak_err.
-%%
-%% The `crash_log_msg_size' application var is used to specify the maximum
-%% size of any message to be logged. `crash_log_size' is used to specify the
-%% maximum size of the crash log before it will be rotated (0 will disable).
-%% Time based rotation is configurable via `crash_log_date', the syntax is
-%% documented in the README. To control the number of rotated files to be
-%% retained, use `crash_log_count'.
-
--module(lager_crash_log).
-
--include("lager.hrl").
-
--behaviour(gen_server).
-
--ifdef(TEST).
--include_lib("eunit/include/eunit.hrl").
--include_lib("kernel/include/file.hrl").
--endif.
-
-%% callbacks
--export(init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2,
-        code_change/3).
-
--export(start_link/6, start/6).
-
--record(state, {
-        name :: string(),
-        fd :: pid() | undefined,
-        inode :: integer() | undefined,
-        ctime :: file:date_time() | undefined,
-        fmtmaxbytes :: integer(),
-        size :: integer(),
-        date :: undefined | string(),
-        count :: integer(),
-        flap=false :: boolean(),
-        rotator :: atom()
-}).
-
-%% @private
-start_link(Filename, MaxBytes, Size, Date, Count, Rotator) ->
-    gen_server:start_link({local, ?MODULE}, ?MODULE, Filename, MaxBytes,
-            Size, Date, Count, Rotator, ).
-
-%% @private
-start(Filename, MaxBytes, Size, Date, Count, Rotator) ->
-    gen_server:start({local, ?MODULE}, ?MODULE, Filename, MaxBytes, Size,
-            Date, Count, Rotator, ).
-
-%% @private
-init(RelFilename, MaxBytes, Size, Date, Count, Rotator) ->
-    Filename = lager_util:expand_path(RelFilename),
-    case Rotator:open_logfile(Filename, false) of
-        {ok, {FD, Inode, Ctime, _Size}} ->
-            schedule_rotation(Date),
-            {ok, #state{name=Filename, fd=FD, inode=Inode, ctime=Ctime,
-                    fmtmaxbytes=MaxBytes, size=Size, count=Count, date=Date,
-                    rotator=Rotator}};
-        {error, Reason} ->
-            ?INT_LOG(error, "Failed to open crash log file ~ts with error: ~s",
-                Filename, file:format_error(Reason)),
-            {ok, #state{name=Filename, fmtmaxbytes=MaxBytes, flap=true,
-                    size=Size, count=Count, date=Date, rotator=Rotator}}
-    end.
-
-%% @private
-handle_call({log, _} = Log, _From, State) ->
-    {Reply, NewState} = do_log(Log, State),
-    {reply, Reply, NewState};
-handle_call(_Call, _From, State) ->
-    {reply, ok, State}.
-
-%% @private
-handle_cast({log, _} = Log, State) ->
-    {_, NewState} = do_log(Log, State),
-    {noreply, NewState};
-handle_cast(_Request, State) ->
-    {noreply, State}.
-
-%% @private
-handle_info(rotate, #state{name=Name, count=Count, date=Date, rotator=Rotator} = State) ->
-    _ = Rotator:rotate_logfile(Name, Count),
-    schedule_rotation(Date),
-    {noreply, State};
-handle_info(_Info, State) ->
-    {noreply, State}.
-
-%% @private
-terminate(_Reason, _State) ->
-    ok.
-
-%% @private
-code_change(_OldVsn, State, _Extra) ->
-    {ok, State}.
-
-schedule_rotation(undefined) ->
-    ok;
-schedule_rotation(Date) ->
-    erlang:send_after(lager_util:calculate_next_rotation(Date) * 1000, self(), rotate),
-    ok.
-
-%% ===== Begin code lifted from riak_err =====
-
--spec limited_fmt(string(), list(), integer()) -> iolist().
-%% @doc Format Fmt and Args similar to what io_lib:format/2 does but with
-%%      limits on how large the formatted string may be.
-%%
-%% If the Args list's size is larger than TermMaxSize, then the
-%% formatting is done by trunc_io:print/2, where FmtMaxBytes is used
-%% to limit the formatted string's size.
-
-limited_fmt(Fmt, Args, FmtMaxBytes) ->
-    lager:safe_format(Fmt, Args, FmtMaxBytes).
-
-limited_str(Term, FmtMaxBytes) ->
-    {Str, _} = lager_trunc_io:print(Term, FmtMaxBytes),
-    Str.
-
-other_node_suffix(Pid) when node(Pid) =/= node() ->
-    "** at node " ++ atom_to_list(node(Pid)) ++ " **\n";
-other_node_suffix(_) ->
-    "".
-
-perhaps_a_sasl_report(error_report, {Pid, Type, Report}, FmtMaxBytes) ->
-    case lager_stdlib:is_my_error_report(Type) of
-        true ->
-            {sasl_type_to_report_head(Type), Pid,
-                sasl_limited_str(Type, Report, FmtMaxBytes), true};
-        false ->
-            {ignore, ignore, ignore, false}
-    end;
-%perhaps_a_sasl_report(info_report, {Pid, Type, Report}, FmtMaxBytes) ->
-    %case lager_stdlib:is_my_info_report(Type) of
-        %true ->
-            %{sasl_type_to_report_head(Type), Pid,
-                %sasl_limited_str(Type, Report, FmtMaxBytes), false};
-        %false ->
-            %{ignore, ignore, ignore, false}
-    %end;
-perhaps_a_sasl_report(_, _, _) ->
-    {ignore, ignore, ignore, false}.
-
-sasl_type_to_report_head(supervisor_report) ->
-    "SUPERVISOR REPORT";
-sasl_type_to_report_head(crash_report) ->
-    "CRASH REPORT";
-sasl_type_to_report_head(progress) ->
-    "PROGRESS REPORT".
-
-sasl_limited_str(supervisor_report, Report, FmtMaxBytes) ->
-    Name = lager_stdlib:sup_get(supervisor, Report),
-    Context = lager_stdlib:sup_get(errorContext, Report),
-    Reason = lager_stdlib:sup_get(reason, Report),
-    Offender = lager_stdlib:sup_get(offender, Report),
-    FmtString = "     Supervisor: ~p~n     Context:    ~p~n     Reason:     "
-    "~s~n     Offender:   ~s~n~n",
-    {ReasonStr, _} = lager_trunc_io:print(Reason, FmtMaxBytes),
-    {OffenderStr, _} = lager_trunc_io:print(Offender, FmtMaxBytes),
-    io_lib:format(FmtString, Name, Context, ReasonStr, OffenderStr);
-sasl_limited_str(progress, Report, FmtMaxBytes) ->
-    begin
-                {Str, _} = lager_trunc_io:print(Data, FmtMaxBytes),
-                io_lib:format("    ~16w: ~s~n", Tag, Str)
-        end || {Tag, Data} <- Report;
-sasl_limited_str(crash_report, Report, FmtMaxBytes) ->
-    lager_stdlib:proc_lib_format(Report, FmtMaxBytes).
-
-do_log({log, Event}, #state{name=Name, fd=FD, inode=Inode, ctime=Ctime, flap=Flap,
-        fmtmaxbytes=FmtMaxBytes, size=RotSize, count=Count, rotator=Rotator} = State) ->
-    %% borrowed from riak_err
-    {ReportStr, Pid, MsgStr, _ErrorP} = case Event of
-        {error, _GL, {Pid1, Fmt, Args}} ->
-            {"ERROR REPORT", Pid1, limited_fmt(Fmt, Args, FmtMaxBytes), true};
-        {error_report, _GL, {Pid1, std_error, Rep}} ->
-            {"ERROR REPORT", Pid1, limited_str(Rep, FmtMaxBytes) ++ "\n", true};
-        {error_report, _GL, Other} ->
-            perhaps_a_sasl_report(error_report, Other, FmtMaxBytes);
-        _ ->
-            {ignore, ignore, ignore, false}
-    end,
-    if ReportStr == ignore ->
-            {ok, State};
-        true ->
-            case Rotator:ensure_logfile(Name, FD, Inode, Ctime, false) of
-                {ok, {_FD, _Inode, _Ctime, Size}} when RotSize /= 0, Size > RotSize ->
-                    _ = Rotator:rotate_logfile(Name, Count),
-                    handle_cast({log, Event}, State);
-                {ok, {NewFD, NewInode, NewCtime, _Size}} ->
-                    {Date, TS} = lager_util:format_time(
-                        lager_stdlib:maybe_utc(erlang:localtime())),
-                    Time = Date, " ", TS," =", ReportStr, "====\n",
-                    NodeSuffix = other_node_suffix(Pid),
-                    Msg = io_lib:format("~s~s~s", Time, MsgStr, NodeSuffix),
-                    case file:write(NewFD, unicode:characters_to_binary(Msg)) of
-                        {error, Reason} when Flap == false ->
-                            ?INT_LOG(error, "Failed to write log message to file ~ts: ~s",
-                                Name, file:format_error(Reason)),
-                            {ok, State#state{fd=NewFD, inode=NewInode, ctime=NewCtime, flap=true}};
-                        ok ->
-                            {ok, State#state{fd=NewFD, inode=NewInode, ctime=NewCtime, flap=false}};
-                        _ ->
-                            {ok, State#state{fd=NewFD, inode=NewInode, ctime=NewCtime}}
-                    end;
-                {error, Reason} ->
-                    case Flap of
-                        true ->
-                            {ok, State};
-                        _ ->
-                            ?INT_LOG(error, "Failed to reopen crash log ~ts with error: ~s",
-                                Name, file:format_error(Reason)),
-                            {ok, State#state{flap=true}}
-                    end
-            end
-    end.
-
-
--ifdef(TEST).
-
-filesystem_test_() ->
-    {foreach,
-        fun() ->
-            {ok, TestDir} = lager_util:create_test_dir(),
-            CrashLog = filename:join(TestDir, "crash_test.log"),
-            ok = lager_util:safe_write_file(CrashLog, ),
-            ok = error_logger:tty(false),
-            ok = lager_util:safe_application_load(lager),
-            ok = application:set_env(lager, handlers, {lager_test_backend, info}),
-            ok = application:set_env(lager, error_logger_redirect, true),
-            ok = application:unset_env(lager, crash_log),
-            ok = lager:start(),
-            ok = timer:sleep(1000),
-            ok = lager_test_backend:flush(),
-            CrashLog
-        end,
-        fun(_CrashLog) ->
-            case whereis(lager_crash_log) of
-                P when is_pid(P) ->
-                    gen_server:stop(P);
-                _ ->
-                    ok
-            end,
-            ok = application:stop(lager),
-            ok = application:stop(goldrush),
-            ok = lager_util:delete_test_dir(),
-            ok = error_logger:tty(true)
-        end, 
-        fun(CrashLog) ->
-            {"under normal circumstances, file should be opened",
-            fun() ->
-                {ok, _} = ?MODULE:start_link(CrashLog, 65535, 0, undefined, 0, lager_rotator_default),
-                _ = gen_event:which_handlers(error_logger),
-                sync_error_logger:error_msg("Test message\n"),
-                {ok, Bin} = file:read_file(CrashLog),
-                ?assertMatch(_, "Test message\n", re:split(Bin, "\n", {return, list}, {parts, 2}))
-            end}
-        end,
-        fun(CrashLog) ->
-            {"file can't be opened on startup triggers an error message",
-            fun() ->
-                {ok, FInfo0} = file:read_file_info(CrashLog, raw),
-                FInfo1 = FInfo0#file_info{mode = 0},
-                ?assertEqual(ok, file:write_file_info(CrashLog, FInfo1)),
-                {ok, _} = ?MODULE:start_link(CrashLog, 65535, 0, undefined, 0, lager_rotator_default),
-                % Note: required on win32, do this early to prevent subsequent failures
-                % from preventing cleanup
-                ?assertEqual(ok, file:write_file_info(CrashLog, FInfo0)),
-                ?assertEqual(1, lager_test_backend:count()),
-                {_Level, _Time, Message,_Metadata} = lager_test_backend:pop(),
-                ?assertEqual(
-                    "Failed to open crash log file " ++ CrashLog ++ " with error: permission denied",
-                    lists:flatten(Message))
-            end}
-        end,
-        fun(CrashLog) ->
-            {"file that becomes unavailable at runtime should trigger an error message",
-            fun() ->
-                case os:type() of
-                    {win32, _} ->
-                        % Note: test is skipped on win32 due to the fact that a file can't be deleted or renamed
-                        % while a process has an open file handle referencing it
-                        ok;
-                    _ ->
-                        {ok, _} = ?MODULE:start_link(CrashLog, 65535, 0, undefined, 0, lager_rotator_default),
-                        ?assertEqual(0, lager_test_backend:count()),
-                        sync_error_logger:error_msg("Test message\n"),
-                        _ = gen_event:which_handlers(error_logger),
-                        ?assertEqual(1, lager_test_backend:count()),
-                        ?assertEqual(ok, file:delete(CrashLog)),
-                        ?assertEqual(ok, lager_util:safe_write_file(CrashLog, "")),
-                        {ok, FInfo0} = file:read_file_info(CrashLog, raw),
-                        FInfo1 = FInfo0#file_info{mode = 0},
-                        ?assertEqual(ok, file:write_file_info(CrashLog, FInfo1)),
-                        sync_error_logger:error_msg("Test message\n"),
-                        _ = gen_event:which_handlers(error_logger),
-                        % Note: required on win32, do this early to prevent subsequent failures
-                        % from preventing cleanup
-                        ?assertEqual(ok, file:write_file_info(CrashLog, FInfo0)),
-                        ?assertEqual(3, lager_test_backend:count()),
-                        lager_test_backend:pop(),
-                        {_Level, _Time, Message,_Metadata} = lager_test_backend:pop(),
-                        ?assertEqual(
-                            "Failed to reopen crash log " ++ CrashLog ++ " with error: permission denied",
-                            lists:flatten(Message))
-                end
-            end}
-        end,
-        fun(CrashLog) ->
-            {"unavailable files that are fixed at runtime should start having log messages written",
-            fun() ->
-                {ok, FInfo} = file:read_file_info(CrashLog, raw),
-                OldPerms = FInfo#file_info.mode,
-                file:write_file_info(CrashLog, FInfo#file_info{mode = 0}),
-                {ok, _} = ?MODULE:start_link(CrashLog, 65535, 0, undefined, 0, lager_rotator_default),
-                ?assertEqual(1, lager_test_backend:count()),
-                {_Level, _Time, Message,_Metadata} = lager_test_backend:pop(),
-                ?assertEqual(
-                    "Failed to open crash log file " ++ CrashLog ++ " with error: permission denied",
-                    lists:flatten(Message)),
-                file:write_file_info(CrashLog, FInfo#file_info{mode = OldPerms}),
-                sync_error_logger:error_msg("Test message~n"),
-                _ = gen_event:which_handlers(error_logger),
-                {ok, Bin} = file:read_file(CrashLog),
-                ?assertMatch(_, "Test message\n", re:split(Bin, "\n", {return, list}, {parts, 2}))
-            end}
-        end,
-        fun(CrashLog) ->
-            {"external logfile rotation/deletion should be handled",
-            fun() ->
-                case os:type() of
-                    {win32, _} ->
-                        % Note: test is skipped on win32 due to the fact that a file can't be deleted or renamed
-                        % while a process has an open file handle referencing it
-                        ok;
-                    _ ->
-                        {ok, _} = ?MODULE:start_link(CrashLog, 65535, 0, undefined, 0, lager_rotator_default),
-                        ?assertEqual(0, lager_test_backend:count()),
-                        sync_error_logger:error_msg("Test message~n"),
-                        _ = gen_event:which_handlers(error_logger),
-                        {ok, Bin} = file:read_file(CrashLog),
-                        ?assertMatch(_, "Test message\n", re:split(Bin, "\n", {return, list}, {parts, 2})),
-                        ?assertEqual(ok, file:delete(CrashLog)),
-                        ?assertEqual(ok, lager_util:safe_write_file(CrashLog, "")),
-                        sync_error_logger:error_msg("Test message1~n"),
-                        _ = gen_event:which_handlers(error_logger),
-                        {ok, Bin1} = file:read_file(CrashLog),
-                        ?assertMatch(_, "Test message1\n", re:split(Bin1, "\n", {return, list}, {parts, 2})),
-                        file:rename(CrashLog, CrashLog ++ ".0"),
-                        sync_error_logger:error_msg("Test message2~n"),
-                        _ = gen_event:which_handlers(error_logger),
-                        {ok, Bin2} = file:read_file(CrashLog),
-                        ?assertMatch(_, "Test message2\n", re:split(Bin2, "\n", {return, list}, {parts, 2}))
-                end
-            end}
-        end
-    }.
-
--endif.
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/src/lager_default_formatter.erl Deleted

@@ -1,571 +0,0 @@
-%% Copyright (c) 2011-2012 Basho Technologies, Inc.  All Rights Reserved.
-%%
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-
--module(lager_default_formatter).
-
-%%
-%% Include files
-%%
--include("lager.hrl").
--ifdef(TEST).
--include_lib("eunit/include/eunit.hrl").
--endif.
-
-%%
-%% Exported Functions
-%%
--export(format/2, format/3).
-
-%%
-%% API Functions
-%%
-
-%% @doc Provides a generic, default formatting for log messages using a semi-iolist as configuration.  Any iolist allowed
-%% elements in the configuration are printed verbatim.  Atoms in the configuration are treated as metadata properties
-%% and extracted from the log message.  Optionally, a tuple of {atom(),semi-iolist()} can be used.  The atom will look
-%% up the property, but if not found it will use the semi-iolist() instead.  These fallbacks can be similarly nested
-%% or refer to other properties, if desired. You can also use a {atom, semi-iolist(), semi-iolist()} formatter, which
-%% acts like a ternary operator's true/false branches.
-%%
-%% The metadata properties date,time, message, severity, and sev will always exist.  
-%% The properties pid, file, line, module, and function will always exist if the parser transform is used.
-%%
-%% Example:
-%%
-%%    `"Foo"' -> "Foo", regardless of message content.
-%%
-%%    `message' -> The content of the logged message, alone.
-%%
-%%    `{pid,"Unknown Pid"}' -> "?.?.?" if pid is in the metadata, "Unknown Pid" if not.
-%%
-%%    `{pid, "My pid is ", pid, "Unknown Pid"}' -> if pid is in the metada print "My pid is ?.?.?", otherwise print "Unknown Pid"
-%% @end
--spec format(lager_msg:lager_msg(),list(),list()) -> any().
-format(Msg,, Colors) ->
-    format(Msg, {eol, "\n"}, Colors);
-format(Msg,{eol, EOL}, Colors) ->
-    Config = case application:get_env(lager, metadata_whitelist) of
-        undefined -> config(EOL, );
-        {ok, Whitelist} -> config(EOL, Whitelist)
-    end,
-    format(Msg, Config, Colors);
-format(Message,Config,Colors) ->
-     case V of
-        color -> output_color(Message,Colors);
-        _ -> output(V,Message) 
-      end || V <- Config .
-
--spec format(lager_msg:lager_msg(),list()) -> any().
-format(Msg, Config) ->
-    format(Msg, Config, ).
-
--spec output(term(),lager_msg:lager_msg()) -> iolist().
-output(message,Msg) -> lager_msg:message(Msg);
-output(date,Msg) ->
-    {D, _T} = lager_msg:datetime(Msg),
-    D;
-output(time,Msg) ->
-    {_D, T} = lager_msg:datetime(Msg),
-    T;
-output(severity,Msg) ->
-    atom_to_list(lager_msg:severity(Msg));
-output(severity_upper, Msg) ->
-    uppercase_severity(lager_msg:severity(Msg));
-output(blank,_Msg) ->
-    output({blank," "},_Msg);
-output(node, _Msg) ->
-    output({node, atom_to_list(node())},_Msg);
-output({blank,Fill},_Msg) ->
-    Fill;
-output(sev,Msg) ->
-    %% Write brief acronym for the severity level (e.g. debug -> $D)
-    lager_util:level_to_chr(lager_msg:severity(Msg));
-output(metadata, Msg) ->
-    output({metadata, "=", " "}, Msg);
-output({metadata, IntSep, FieldSep}, Msg) ->
-    MD = lists:keysort(1, lager_msg:metadata(Msg)),
-    string:join(io_lib:format("~s~s~p", K, IntSep, V) || {K, V} <- MD, FieldSep);
-output({pterm, Key}, Msg) ->
-    output({pterm, Key, ""}, Msg);
-output({pterm, Key, Default}, _Msg) ->
-    make_printable(maybe_get_persistent_term(Key, Default));
-output(Prop,Msg) when is_atom(Prop) ->
-    Metadata = lager_msg:metadata(Msg),
-    make_printable(get_metadata(Prop,Metadata,<<"Undefined">>));
-output({Prop,Default},Msg) when is_atom(Prop) ->
-    Metadata = lager_msg:metadata(Msg),
-    make_printable(get_metadata(Prop,Metadata,output(Default,Msg)));
-output({Prop, Present, Absent}, Msg) when is_atom(Prop) ->
-    %% sort of like a poor man's ternary operator
-    Metadata = lager_msg:metadata(Msg),
-    case get_metadata(Prop, Metadata) of
-        undefined ->
-             output(V, Msg) || V <- Absent;
-        _ ->
-             output(V, Msg) || V <- Present
-    end;
-output({Prop, Present, Absent, Width}, Msg) when is_atom(Prop) ->
-    %% sort of like a poor man's ternary operator
-    Metadata = lager_msg:metadata(Msg),
-    case get_metadata(Prop, Metadata) of
-        undefined ->
-             output(V, Msg, Width) || V <- Absent;
-        _ ->
-             output(V, Msg, Width) || V <- Present
-    end;
-output(Other,_) -> make_printable(Other).
-
-output(message, Msg, _Width) -> lager_msg:message(Msg);
-output(date,Msg, _Width) ->
-    {D, _T} = lager_msg:datetime(Msg),
-    D;
-output(time, Msg, _Width) ->
-    {_D, T} = lager_msg:datetime(Msg),
-    T;
-output(severity, Msg, Width) ->
-    make_printable(atom_to_list(lager_msg:severity(Msg)), Width);
-output(sev,Msg, _Width) ->
-    %% Write brief acronym for the severity level (e.g. debug -> $D)
-    lager_util:level_to_chr(lager_msg:severity(Msg));
-output(node, Msg, _Width) ->
-    output({node, atom_to_list(node())}, Msg, _Width);
-output(blank,_Msg, _Width) ->
-    output({blank, " "},_Msg, _Width);
-output({blank, Fill},_Msg, _Width) ->
-    Fill;
-output(metadata, Msg, _Width) ->
-    output({metadata, "=", " "}, Msg, _Width);
-output({metadata, IntSep, FieldSep}, Msg, _Width) ->
-    MD = lists:keysort(1, lager_msg:metadata(Msg)),
-    string:join(io_lib:format("~s~s~p", K, IntSep, V) || {K, V} <- MD, FieldSep);
-output({pterm, Key}, Msg, Width) ->
-    output({pterm, Key, ""}, Msg, Width);
-output({pterm, Key, Default}, _Msg, _Width) ->
-    make_printable(maybe_get_persistent_term(Key, Default));
-
-output(Prop, Msg, Width) when is_atom(Prop) ->
-    Metadata = lager_msg:metadata(Msg),
-    make_printable(get_metadata(Prop,Metadata,<<"Undefined">>), Width);
-output({Prop,Default},Msg, Width) when is_atom(Prop) ->
-    Metadata = lager_msg:metadata(Msg),
-    make_printable(get_metadata(Prop,Metadata,output(Default,Msg)), Width);
-output(Other,_, Width) -> make_printable(Other, Width).
-
-output_color(_Msg,) -> ;
-output_color(Msg,Colors) ->
-    Level = lager_msg:severity(Msg),
-    case lists:keyfind(Level, 1, Colors) of
-        {_, Color} -> Color;
-        _ -> 
-    end.
-
--spec make_printable(any()) -> iolist().
-make_printable(A) when is_atom(A) -> atom_to_list(A);
-make_printable(P) when is_pid(P) -> pid_to_list(P);
-make_printable(L) when is_list(L) orelse is_binary(L) -> L; 
-make_printable(Other) -> io_lib:format("~p",Other).
-
-make_printable(A,W) when is_integer(W)-> string:left(make_printable(A),W);
-make_printable(A,{Align,W}) when is_integer(W) ->
-    case Align of
-        left ->
-            string:left(make_printable(A),W);
-        centre ->
-            string:centre(make_printable(A),W);
-        right ->
-            string:right(make_printable(A),W);
-        _ ->
-            string:left(make_printable(A),W)
-    end;
-
-make_printable(A,_W) -> make_printable(A).
-
-%% persistent term was introduced in OTP 21.2, so
-%% if we're running on an older OTP, just return the
-%% default value.
--ifdef(OTP_RELEASE).
-maybe_get_persistent_term(Key, Default) ->
-    try
-        persistent_term:get(Key, Default)
-    catch
-        _:undef -> Default
-    end.
--else.
-maybe_get_persistent_term(_Key, Default) -> Default.
--endif.
-
-run_function(Function, Default) ->
-    try Function() of
-        Result ->
-            Result
-    catch
-        _:_ ->
-          Default
-    end.
-
-get_metadata(Key, Metadata) ->
-    get_metadata(Key, Metadata, undefined).
-
-get_metadata(Key, Metadata, Default) ->
-    case lists:keyfind(Key, 1, Metadata) of
-        false ->
-            Default;
-        {Key, Value} when is_function(Value) ->
-            run_function(Value, Default);
-        {Key, Value} ->
-            Value
-    end.
-
-config(EOL, ) ->
-    
-        date, " ", time, " ", color, "", severity, " ",
-        {pid, ""},
-        {module, 
-            {pid, "@", ""},
-            module,
-            {function, ":", function, ""},
-            {line, ":",line, ""}, ""},
-        " ", message, EOL
-    ;
-config(EOL, MetaWhitelist) ->
-    
-        date, " ", time, " ", color, "", severity, " ",
-        {pid, ""},
-        {module, 
-            {pid, "@", ""},
-            module,
-            {function, ":", function, ""},
-            {line, ":",line, ""}, ""},
-        " "
-     ++
-    {M, atom_to_list(M), "=", M, " ", ""}|| M <- MetaWhitelist ++
-    message, EOL.
-
-
-
-uppercase_severity(debug) -> "DEBUG";
-uppercase_severity(info) -> "INFO";
-uppercase_severity(notice) -> "NOTICE";
-uppercase_severity(warning) -> "WARNING";
-uppercase_severity(error) -> "ERROR";
-uppercase_severity(critical) -> "CRITICAL";
-uppercase_severity(alert) -> "ALERT";
-uppercase_severity(emergency) -> "EMERGENCY".
-
--ifdef(TEST).
-date_time_now() ->
-    Now = os:timestamp(),
-    {Date, Time} = lager_util:format_time(lager_util:maybe_utc(lager_util:localtime_ms(Now))),
-    {Date, Time, Now}.
-
-basic_test_() ->
-    {Date, Time, Now} = date_time_now(),
-    {"Default formatting test",
-            ?_assertEqual(iolist_to_binary(Date, " ", Time,  " error ", pid_to_list(self()), " Message\n"),
-                iolist_to_binary(format(lager_msg:new("Message",
-                            Now,
-                            error,
-                            {pid, self()},
-                            ),
-                        )))
-        },
-        {"Basic Formatting",
-            ?_assertEqual(<<"Simplist Format">>,
-                iolist_to_binary(format(lager_msg:new("Message",
-                            Now,
-                            error,
-                            {pid, self()},
-                            ),
-                        "Simplist Format")))
-        },
-        {"Default equivalent formatting test",
-            ?_assertEqual(iolist_to_binary(Date, " ", Time, " error ", pid_to_list(self()), " Message\n"),
-                iolist_to_binary(format(lager_msg:new("Message",
-                            Now,
-                            error,
-                            {pid, self()},
-                            ),
-                        date, " ", time," ",severity," ",pid, " ", message, "\n"
-                    )))
-        },
-        {"Non existent metadata can default to string",
-            ?_assertEqual(iolist_to_binary(Date, " ", Time, " error Fallback Message\n"),
-                iolist_to_binary(format(lager_msg:new("Message",
-                            Now,
-                            error,
-                            {pid, self()},
-                            ),
-                        date, " ", time," ",severity," ",{does_not_exist,"Fallback"}, " ", message, "\n"
-                    )))
-        },
-        {"Non existent metadata can default to other metadata",
-            ?_assertEqual(iolist_to_binary(Date, " ", Time, " error Fallback Message\n"),
-                iolist_to_binary(format(lager_msg:new("Message",
-                            Now,
-                            error,
-                            {pid, "Fallback"},
-                            ),
-                        date, " ", time," ",severity," ",{does_not_exist,pid}, " ", message, "\n"
-                    )))
-        },
-        {"Non existent metadata can default to a string2",
-            ?_assertEqual(iolist_to_binary("Unknown Pid"),
-                iolist_to_binary(format(lager_msg:new("Message",
-                            Now,
-                            error,
-                            ,
-                            ),
-                        {pid, "My pid is ", pid, "Unknown Pid"}
-                    )))
-        },
-        {"Metadata can have extra formatting",
-            ?_assertEqual(iolist_to_binary("My pid is hello"),
-                iolist_to_binary(format(lager_msg:new("Message",
-                            Now,
-                            error,
-                            {pid, hello},
-                            ),
-                        {pid, "My pid is ", pid, "Unknown Pid"}
-                    )))
-        },
-        {"Metadata can have extra formatting1",
-            ?_assertEqual(iolist_to_binary("servername"),
-                iolist_to_binary(format(lager_msg:new("Message",
-                            Now,
-                            error,
-                            {pid, hello}, {server, servername},
-                            ),
-                        {server,{pid, "(", pid, ")", "(Unknown Server)"}}
-                    )))
-        },
-        {"Metadata can have extra formatting2",
-            ?_assertEqual(iolist_to_binary("(hello)"),
-                iolist_to_binary(format(lager_msg:new("Message",
-                            Now,
-                            error,
-                            {pid, hello},
-                            ),
-                        {server,{pid, "(", pid, ")", "(Unknown Server)"}}
-                    )))
-        },
-        {"Metadata can have extra formatting3",
-            ?_assertEqual(iolist_to_binary("(Unknown Server)"),
-                iolist_to_binary(format(lager_msg:new("Message",
-                            Now,
-                            error,
-                            ,
-                            ),
-                        {server,{pid, "(", pid, ")", "(Unknown Server)"}}
-                    )))
-        },
-        {"Metadata can be printed in its enterity",
-            ?_assertEqual(iolist_to_binary("bar=2 baz=3 foo=1"),
-                iolist_to_binary(format(lager_msg:new("Message",
-                            Now,
-                            error,
-                            {foo, 1}, {bar, 2}, {baz, 3},
-                            ),
-                        metadata
-                    )))
-        },
-        {"Metadata can be printed in its enterity with custom seperators",
-            ?_assertEqual(iolist_to_binary("bar->2, baz->3, foo->1"),
-                iolist_to_binary(format(lager_msg:new("Message",
-                            Now,
-                            error,
-                            {foo, 1}, {bar, 2}, {baz, 3},
-                            ),
-                        {metadata, "->", ", "}
-                    )))
-        },
-        {"Metadata can have extra formatting with width 1",
-            ?_assertEqual(iolist_to_binary("(hello     )(hello     )(hello)(hello)(hello)"),
-                iolist_to_binary(format(lager_msg:new("Message",
-                    Now,
-                    error,
-                    {pid, hello},
-                    ),
-                    "(",{pid, pid, "", 10},")",
-                        "(",{pid, pid, "", {bad_align,10}},")",
-                        "(",{pid, pid, "", bad10},")",
-                        "(",{pid, pid, "", {right,bad20}},")",
-                        "(",{pid, pid, "", {bad_align,bad20}},")"
-                )))
-        },
-        {"Metadata can have extra formatting with width 2",
-            ?_assertEqual(iolist_to_binary("(hello     )"),
-                iolist_to_binary(format(lager_msg:new("Message",
-                    Now,
-                    error,
-                    {pid, hello},
-                    ),
-                    "(",{pid, pid, "", {left,10}},")"
-                )))
-        },
-        {"Metadata can have extra formatting with width 3",
-            ?_assertEqual(iolist_to_binary("(     hello)"),
-                iolist_to_binary(format(lager_msg:new("Message",
-                    Now,
-                    error,
-                    {pid, hello},
-                    ),
-                    "(",{pid, pid, "", {right,10}},")"
-                )))
-        },
-        {"Metadata can have extra formatting with width 4",
-            ?_assertEqual(iolist_to_binary("(  hello   )"),
-                iolist_to_binary(format(lager_msg:new("Message",
-                    Now,
-                    error,
-                    {pid, hello},
-                    ),
-                    "(",{pid, pid, "", {centre,10}},")"
-                )))
-        },
-        {"Metadata can have extra formatting with width 5",
-            ?_assertEqual(iolist_to_binary("error     |hello     ! (  hello   )"),
-                iolist_to_binary(format(lager_msg:new("Message",
-                    Now,
-                    error,
-                    {pid, hello},
-                    ),
-                    {x,"",severity,{blank,"|"},pid, 10},"!",blank,"(",{pid, pid, "", {centre,10}},")"
-                )))
-        },
-        {"Metadata can have extra formatting with width 6",
-            ?_assertEqual(iolist_to_binary(Time,Date," bar=2 baz=3 foo=1 pid=hello EMessage"),
-                iolist_to_binary(format(lager_msg:new("Message",
-                    Now,
-                    error,
-                    {pid, hello},{foo, 1}, {bar, 2}, {baz, 3},
-                    ),
-                    {x,"",time}, {x,"",date,20},blank,{x,"",metadata,30},blank,{x,"",sev,10},message, {message,message,"", {right,20}}
-                )))
-        },
-        {"Uppercase Severity Formatting - DEBUG",
-            ?_assertEqual(<<"DEBUG Simplist Format">>,
-                iolist_to_binary(format(lager_msg:new("Message",
-                            Now,
-                            debug,
-                            {pid, self()},
-                            ),
-                        severity_upper, " Simplist Format")))
-        },
-        {"Uppercase Severity Formatting - INFO",
-            ?_assertEqual(<<"INFO Simplist Format">>,
-                iolist_to_binary(format(lager_msg:new("Message",
-                            Now,
-                            info,
-                            {pid, self()},
-                            ),
-                        severity_upper, " Simplist Format")))
-        },
-        {"Uppercase Severity Formatting - NOTICE",
-            ?_assertEqual(<<"NOTICE Simplist Format">>,
-                iolist_to_binary(format(lager_msg:new("Message",
-                            Now,
-                            notice,
-                            {pid, self()},
-                            ),
-                        severity_upper, " Simplist Format")))
-        },
-        {"Uppercase Severity Formatting - WARNING",
-            ?_assertEqual(<<"WARNING Simplist Format">>,
-                iolist_to_binary(format(lager_msg:new("Message",
-                            Now,
-                            warning,
-                            {pid, self()},
-                            ),
-                        severity_upper, " Simplist Format")))
-        },
-        {"Uppercase Severity Formatting - ERROR",
-            ?_assertEqual(<<"ERROR Simplist Format">>,
-                iolist_to_binary(format(lager_msg:new("Message",
-                            Now,
-                            error,
-                            {pid, self()},
-                            ),
-                        severity_upper, " Simplist Format")))
-        },
-        {"Uppercase Severity Formatting - CRITICAL",
-            ?_assertEqual(<<"CRITICAL Simplist Format">>,
-                iolist_to_binary(format(lager_msg:new("Message",
-                            Now,
-                            critical,
-                            {pid, self()},
-                            ),
-                        severity_upper, " Simplist Format")))
-        },
-        {"Uppercase Severity Formatting - ALERT",
-            ?_assertEqual(<<"ALERT Simplist Format">>,
-                iolist_to_binary(format(lager_msg:new("Message",
-                            Now,
-                            alert,
-                            {pid, self()},
-                            ),
-                        severity_upper, " Simplist Format")))
-        },
-        {"Uppercase Severity Formatting - EMERGENCY",
-            ?_assertEqual(<<"EMERGENCY Simplist Format">>,
-                iolist_to_binary(format(lager_msg:new("Message",
-                            Now,
-                            emergency,
-                            {pid, self()},
-                            ),
-                        severity_upper, " Simplist Format")))
-        },
-        {"pterm presence test",
-            %% skip test on OTP < 21
-            case list_to_integer(erlang:system_info(otp_release)) >= 21 of
-                true ->
-                    ?_assertEqual(<<"Pterm is: something">>,
-                      begin
-                        persistent_term:put(thing, something),
-                        Ret = iolist_to_binary(format(lager_msg:new("Message",
-                                    Now,
-                                    emergency,
-                                    {pid, self()},
-                                    ),
-                                "Pterm is: ", {pterm, thing})),
-                        persistent_term:erase(thing),
-                        Ret
-                      end);
-                false -> ?_assert(true)
-            end
-        },
-        {"pterm absence test",
-            ?_assertEqual(<<"Pterm is: nothing">>,
-                iolist_to_binary(format(lager_msg:new("Message",
-                            Now,
-                            emergency,
-                            {pid, self()},
-                            ),
-                        "Pterm is: ", {pterm, thing, "nothing"})))
-        },
-        {"node formatting basic",
-            begin
-                N, "foo" = format(lager_msg:new("Message",
-                                                  Now,
-                                                  info,
-                                                  {pid, self()},
-                                                  ),
-                                    node, "foo"),
-                ?_assertNotMatch(nomatch, re:run(N, <<"@">>))
-            end
-        }
-    .
-
--endif.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/src/lager_file_backend.erl Deleted

@@ -1,1194 +0,0 @@
-%% -------------------------------------------------------------------
-%%
-%% Copyright (c) 2011-2017 Basho Technologies, Inc.
-%%
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-%%
-%% -------------------------------------------------------------------
-
-%% @doc File backend for lager, with multiple file support.
-%% Multiple files are supported, each with the path and the loglevel being
-%% configurable. The configuration paramter for this backend is a list of
-%% key-value 2-tuples. See the init() function for the available options.
-%% This backend supports external and internal log
-%% rotation and will re-open handles to files if the inode changes. It will
-%% also rotate the files itself if the size of the file exceeds the
-%% `size' and keep `count' rotated files. `date' is
-%% an alternate rotation trigger, based on time. See the README for
-%% documentation.
-%% For performance, the file backend does delayed writes, although it will
-%% sync at specific log levels, configured via the `sync_on' option. By default
-%% the error level or above will trigger a sync.
-
--module(lager_file_backend).
-
--include("lager.hrl").
--include_lib("kernel/include/file.hrl").
-
--behaviour(gen_event).
-
--ifdef(TEST).
--include_lib("eunit/include/eunit.hrl").
--compile({parse_transform, lager_transform}).
--endif.
-
--export(init/1, handle_call/2, handle_event/2, handle_info/2, terminate/2,
-        code_change/3).
-
--export(config_to_id/1).
-
--define(DEFAULT_LOG_LEVEL, info).
--define(DEFAULT_ROTATION_SIZE, 10485760). %% 10mb
--define(DEFAULT_ROTATION_DATE, "$D0"). %% midnight
--define(DEFAULT_ROTATION_COUNT, 5).
--define(DEFAULT_ROTATION_MOD, lager_rotator_default).
--define(DEFAULT_SYNC_LEVEL, error).
--define(DEFAULT_SYNC_INTERVAL, 1000).
--define(DEFAULT_SYNC_SIZE, 1024*64). %% 64kb
--define(DEFAULT_CHECK_INTERVAL, 1000).
-
--record(state, {
-        name :: string(),
-        level :: {'mask', integer()},
-        fd :: file:io_device() | undefined,
-        inode :: integer() | undefined,
-        ctime :: file:date_time() | undefined,
-        flap = false :: boolean(),
-        size = 0 :: integer(),
-        date :: undefined | string(),
-        count = 10 :: integer(),
-        rotator = lager_util :: atom(),
-        shaper :: lager_shaper(),
-        formatter :: atom(),
-        formatter_config :: any(),
-        sync_on :: {'mask', integer()},
-        check_interval = ?DEFAULT_CHECK_INTERVAL :: non_neg_integer(),
-        sync_interval = ?DEFAULT_SYNC_INTERVAL :: non_neg_integer(),
-        sync_size = ?DEFAULT_SYNC_SIZE :: non_neg_integer(),
-        last_check = os:timestamp() :: erlang:timestamp(),
-        os_type :: atom()
-    }).
-
--type option() :: {file, string()} | {level, lager:log_level()} |
-                  {size, non_neg_integer()} | {date, string()} |
-                  {count, non_neg_integer()} | {rotator, atom()} |
-                  {high_water_mark, non_neg_integer()} |
-                  {flush_queue, boolean()} |
-                  {flush_threshold, non_neg_integer()} |
-                  {sync_interval, non_neg_integer()} |
-                  {sync_size, non_neg_integer()} | {sync_on, lager:log_level()} |
-                  {check_interval, non_neg_integer()} | {formatter, atom()} |
-                  {formatter_config, term()}.
-
--spec init(option(),...) -> {ok, #state{}} | {error, {fatal,bad_config}}.
-init({FileName, LogLevel}) when is_list(FileName), is_atom(LogLevel) ->
-    %% backwards compatibility hack
-    init({file, FileName}, {level, LogLevel});
-init({FileName, LogLevel, Size, Date, Count}) when is_list(FileName), is_atom(LogLevel) ->
-    %% backwards compatibility hack
-    init({file, FileName}, {level, LogLevel}, {size, Size}, {date, Date}, {count, Count});
-init({FileName, LogLevel, Size, Date, Count}, {Formatter,FormatterConfig}) when is_list(FileName), is_atom(LogLevel), is_atom(Formatter) ->
-    %% backwards compatibility hack
-    init({file, FileName}, {level, LogLevel}, {size, Size}, {date, Date}, {count, Count}, {formatter, Formatter}, {formatter_config, FormatterConfig});
-init(LogFile,{Formatter}) ->
-    %% backwards compatibility hack
-    init(LogFile,{Formatter,});
-init({FileName, LogLevel}, {Formatter,FormatterConfig}) when is_list(FileName), is_atom(LogLevel), is_atom(Formatter) ->
-    %% backwards compatibility hack
-    init({file, FileName}, {level, LogLevel}, {formatter, Formatter}, {formatter_config, FormatterConfig});
-init(LogFileConfig) when is_list(LogFileConfig) ->
-    case validate_logfile_proplist(LogFileConfig) of
-        false ->
-            %% falied to validate config
-            {error, {fatal, bad_config}};
-        Config ->
-            %% probabably a better way to do this, but whatever
-            RelName, Level, Date, Size, Count, Rotator, HighWaterMark, Flush, SyncInterval, SyncSize, SyncOn, CheckInterval, Formatter, FormatterConfig =
-              proplists:get_value(Key, Config) || Key <- file, level, date, size, count, rotator, high_water_mark, flush_queue, sync_interval, sync_size, sync_on, check_interval, formatter, formatter_config,
-            FlushThr = proplists:get_value(flush_threshold, Config, 0),
-            Name = lager_util:expand_path(RelName),
-            schedule_rotation(Name, Date),
-            Shaper = lager_util:maybe_flush(Flush, #lager_shaper{hwm=HighWaterMark, flush_threshold = FlushThr, id=Name}),
-            State0 = #state{name=Name, level=Level, size=Size, date=Date, count=Count, rotator=Rotator,
-                shaper=Shaper, formatter=Formatter, formatter_config=FormatterConfig,
-                sync_on=SyncOn, sync_interval=SyncInterval, sync_size=SyncSize, check_interval=CheckInterval},
-            State = case Rotator:create_logfile(Name, {SyncSize, SyncInterval}) of
-                {ok, {FD, Inode, Ctime, _Size}} ->
-                    State0#state{fd=FD, inode=Inode, ctime=Ctime};
-                {error, Reason} ->
-                    ?INT_LOG(error, "Failed to open log file ~ts with error ~s", Name, file:format_error(Reason)),
-                    State0#state{flap=true}
-            end,
-            {ok, State}
-    end.
-
-%% @private
-handle_call({set_loglevel, Level}, #state{name=Ident} = State) ->
-    case validate_loglevel(Level) of
-        false ->
-            {ok, {error, bad_loglevel}, State};
-        Levels ->
-            ?INT_LOG(notice, "Changed loglevel of ~s to ~p", Ident, Level),
-            {ok, ok, State#state{level=Levels}}
-    end;
-handle_call(get_loglevel, #state{level=Level} = State) ->
-    {ok, Level, State};
-handle_call({set_loghwm, Hwm}, #state{shaper=Shaper, name=Name} = State) ->
-    case validate_logfile_proplist({file, Name}, {high_water_mark, Hwm}) of
-        false ->
-            {ok, {error, bad_log_hwm}, State};
-        _ ->
-            NewShaper = Shaper#lager_shaper{hwm=Hwm},
-            ?INT_LOG(notice, "Changed loghwm of ~ts to ~p", Name, Hwm),
-            {ok, {last_loghwm, Shaper#lager_shaper.hwm}, State#state{shaper=NewShaper}}
-    end;
-handle_call(rotate, State = #state{name=File}) ->
-    {ok, NewState} = handle_info({rotate, File}, State),
-    {ok, ok, NewState};
-handle_call(_Request, State) ->
-    {ok, ok, State}.
-
-%% @private
-handle_event({log, Message},
-    #state{name=Name, level=L, shaper=Shaper, formatter=Formatter,formatter_config=FormatConfig} = State) ->
-    case lager_util:is_loggable(Message,L,{lager_file_backend, Name}) of
-        true ->
-            case lager_util:check_hwm(Shaper) of
-                {true, Drop, #lager_shaper{hwm=Hwm} = NewShaper} ->
-                    NewState = case Drop > 0 of
-                        true ->
-                            Report = io_lib:format(
-                                "lager_file_backend dropped ~p messages in the last second that exceeded the limit of ~p messages/sec",
-                                Drop, Hwm),
-                            ReportMsg = lager_msg:new(Report, warning, , ),
-                            write(State, lager_msg:timestamp(ReportMsg),
-                                lager_msg:severity_as_int(ReportMsg), Formatter:format(ReportMsg, FormatConfig));
-                        false ->
-                            State
-                    end,
-                    {ok,write(NewState#state{shaper=NewShaper},
-                        lager_msg:timestamp(Message), lager_msg:severity_as_int(Message),
-                        Formatter:format(Message,FormatConfig))};
-                {false, _, #lager_shaper{dropped=D} = NewShaper} ->
-                    {ok, State#state{shaper=NewShaper#lager_shaper{dropped=D+1}}}
-            end;
-        false ->
-            {ok, State}
-    end;
-handle_event(_Event, State) ->
-    {ok, State}.
-
-%% @private
-handle_info({rotate, File}, #state{name=File, count=Count, date=Date, rotator=Rotator}=State0) ->
-    State1 = close_file(State0),
-    _ = Rotator:rotate_logfile(File, Count),
-    schedule_rotation(File, Date),
-    {ok, State1};
-handle_info({shaper_expired, Name}, #state{shaper=Shaper, name=Name, formatter=Formatter, formatter_config=FormatConfig} = State) ->
-    _ = case Shaper#lager_shaper.dropped of
-            0 ->
-                ok;
-            Dropped ->
-                Report = io_lib:format(
-                           "lager_file_backend dropped ~p messages in the last second that exceeded the limit of ~p messages/sec",
-                           Dropped, Shaper#lager_shaper.hwm),
-                ReportMsg = lager_msg:new(Report, warning, , ),
-                write(State, lager_msg:timestamp(ReportMsg),
-                      lager_msg:severity_as_int(ReportMsg), Formatter:format(ReportMsg, FormatConfig))
-        end,
-    {ok, State#state{shaper=Shaper#lager_shaper{dropped=0, mps=0, lasttime=os:timestamp()}}};
-handle_info(_Info, State) ->
-    {ok, State}.
-
-%% @private
-terminate(_Reason, State) ->
-    %% leaving this function call unmatched makes dialyzer cranky
-    _ = close_file(State),
-    ok.
-
-%% @private
-code_change(_OldVsn, State, _Extra) ->
-    {ok, State}.
-
-%% Convert the config into a gen_event handler ID
-config_to_id({Name,_Severity}) when is_list(Name) ->
-    {?MODULE, Name};
-config_to_id({Name,_Severity,_Size,_Rotation,_Count}) ->
-    {?MODULE, Name};
-config_to_id({Name,_Severity,_Size,_Rotation,_Count}, _Format) ->
-    {?MODULE, Name};
-config_to_id({Name,_Severity}, _Format) when is_list(Name) ->
-    {?MODULE, Name};
-config_to_id(Config) ->
-    case proplists:get_value(file, Config) of
-        undefined ->
-            erlang:error(no_file);
-        File ->
-            {?MODULE, File}
-    end.
-
-write(#state{name=Name, fd=FD,
-             inode=Inode, ctime=Ctime,
-             flap=Flap, size=RotSize,
-             count=Count, rotator=Rotator}=State0, Timestamp, Level, Msg) ->
-    case write_should_check(State0, Timestamp) of
-        true ->
-            %% need to check for rotation
-            Buffer = {State0#state.sync_size, State0#state.sync_interval},
-            case Rotator:ensure_logfile(Name, FD, Inode, Ctime, Buffer) of
-                {ok, {_FD, _Inode, _Ctime, Size}} when RotSize > 0, Size > RotSize ->
-                    State1 = close_file(State0),
-                    case Rotator:rotate_logfile(Name, Count) of
-                        ok ->
-                            %% go around the loop again, we'll do another rotation check and hit the next clause of ensure_logfile
-                            write(State1, Timestamp, Level, Msg);
-                        {error, Reason} ->
-                            case Flap of
-                                true ->
-                                    State1;
-                                _ ->
-                                    ?INT_LOG(error, "Failed to rotate log file ~ts with error ~s", Name, file:format_error(Reason)),
-                                    State1#state{flap=true}
-                            end
-                    end;
-                {ok, {NewFD, NewInode, NewCtime, _Size}} ->
-                    %% update our last check and try again
-                    State1 = State0#state{last_check=Timestamp, fd=NewFD, inode=NewInode, ctime=NewCtime},
-                    do_write(State1, Level, Msg);
-                {error, Reason} ->
-                    case Flap of
-                        true ->
-                            State0;
-                        _ ->
-                            ?INT_LOG(error, "Failed to reopen log file ~ts with error ~s", Name, file:format_error(Reason)),
-                            State0#state{flap=true}
-                    end
-            end;
-        false ->
-            do_write(State0, Level, Msg)
-    end.
-
-write_should_check(#state{fd=undefined}, _Timestamp) ->
-    true;
-write_should_check(#state{last_check=LastCheck0, check_interval=CheckInterval,
-                          name=Name, inode=Inode0, ctime=Ctime0}, Timestamp) ->
-    LastCheck1 = timer:now_diff(Timestamp, LastCheck0) div 1000,
-    case LastCheck1 >= CheckInterval of
-        true ->
-            true;
-        _ ->
-            % We need to know if the file has changed "out from under lager" so we don't
-            % write to an invalid FD
-            {Result, _FInfo} = lager_util:has_file_changed(Name, Inode0, Ctime0),
-            Result
-    end.
-
-do_write(#state{fd=FD, name=Name, flap=Flap} = State, Level, Msg) ->
-    %% delayed_write doesn't report errors
-    _ = file:write(FD, unicode:characters_to_binary(Msg)),
-    {mask, SyncLevel} = State#state.sync_on,
-    case (Level band SyncLevel) =/= 0 of
-        true ->
-            %% force a sync on any message that matches the 'sync_on' bitmask
-            Flap2 = case file:datasync(FD) of
-                {error, Reason2} when Flap == false ->
-                    ?INT_LOG(error, "Failed to write log message to file ~ts: ~s",
-                        Name, file:format_error(Reason2)),
-                    true;
-                ok ->
-                    false;
-                _ ->
-                    Flap
-            end,
-            State#state{flap=Flap2};
-        _ ->
-            State
-    end.
-
-validate_loglevel(Level) ->
-    try lager_util:config_to_mask(Level) of
-        Levels ->
-            Levels
-    catch
-        _:_ ->
-            false
-    end.
-
-validate_logfile_proplist(List) ->
-    try validate_logfile_proplist(List, ) of
-        Res ->
-            case proplists:get_value(file, Res) of
-                undefined ->
-                    ?INT_LOG(error, "Missing required file option", ),
-                    false;
-                _File ->
-                    %% merge with the default options
-                    {ok, DefaultRotationDate} = lager_util:parse_rotation_date_spec(?DEFAULT_ROTATION_DATE),
-                    lists:keymerge(1, lists:sort(Res), lists:sort(
-                            {level, validate_loglevel(?DEFAULT_LOG_LEVEL)}, {date, DefaultRotationDate},
-                            {size, ?DEFAULT_ROTATION_SIZE}, {count, ?DEFAULT_ROTATION_COUNT},
-                            {rotator, ?DEFAULT_ROTATION_MOD},
-                            {sync_on, validate_loglevel(?DEFAULT_SYNC_LEVEL)}, {sync_interval, ?DEFAULT_SYNC_INTERVAL},
-                            {sync_size, ?DEFAULT_SYNC_SIZE}, {check_interval, ?DEFAULT_CHECK_INTERVAL},
-                            {formatter, lager_default_formatter}, {formatter_config, }
-                        ))
-            end
-    catch
-        {bad_config, Msg, Value} ->
-            ?INT_LOG(error, "~s ~p for file ~tp",
-                Msg, Value, proplists:get_value(file, List)),
-            false
-    end.
-
-validate_logfile_proplist(, Acc) ->
-    Acc;
-validate_logfile_proplist({file, File}|Tail, Acc) ->
-    %% is there any reasonable validation we can do here?
-    validate_logfile_proplist(Tail, {file, File}|Acc);
-validate_logfile_proplist({level, Level}|Tail, Acc) ->
-    case validate_loglevel(Level) of
-        false ->
-            throw({bad_config, "Invalid loglevel", Level});
-        Res ->
-            validate_logfile_proplist(Tail, {level, Res}|Acc)
-    end;
-validate_logfile_proplist({size, Size}|Tail, Acc) ->
-    case Size of
-        S when is_integer(S), S >= 0 ->
-            validate_logfile_proplist(Tail, {size, Size}|Acc);
-        _ ->
-            throw({bad_config, "Invalid rotation size", Size})
-    end;
-validate_logfile_proplist({count, Count}|Tail, Acc) ->
-    case Count of
-        C when is_integer(C), C >= 0 ->
-            validate_logfile_proplist(Tail, {count, Count}|Acc);
-        _ ->
-            throw({bad_config, "Invalid rotation count", Count})
-    end;
-validate_logfile_proplist({rotator, Rotator}|Tail, Acc) ->
-    case is_atom(Rotator) of
-        true ->
-            validate_logfile_proplist(Tail, {rotator, Rotator}|Acc);
-        false ->
-            throw({bad_config, "Invalid rotation module", Rotator})
-    end;
-validate_logfile_proplist({high_water_mark, HighWaterMark}|Tail, Acc) ->
-    case HighWaterMark of
-        Hwm when is_integer(Hwm), Hwm >= 0 ->
-            validate_logfile_proplist(Tail, {high_water_mark, Hwm}|Acc);
-        _ ->
-            throw({bad_config, "Invalid high water mark", HighWaterMark})
-    end;
-validate_logfile_proplist({date, Date}|Tail, Acc) ->
-    case lager_util:parse_rotation_date_spec(Date) of
-        {ok, Spec} ->
-            validate_logfile_proplist(Tail, {date, Spec}|Acc);
-        {error, _} when Date == "" ->
-            %% legacy config allowed blanks
-            validate_logfile_proplist(Tail, {date, undefined}|Acc);
-        {error, _} ->
-            throw({bad_config, "Invalid rotation date", Date})
-    end;
-validate_logfile_proplist({sync_interval, SyncInt}|Tail, Acc) ->
-    case SyncInt of
-        Val when is_integer(Val), Val >= 0 ->
-            validate_logfile_proplist(Tail, {sync_interval, Val}|Acc);
-        _ ->
-            throw({bad_config, "Invalid sync interval", SyncInt})
-    end;
-validate_logfile_proplist({sync_size, SyncSize}|Tail, Acc) ->
-    case SyncSize of
-        Val when is_integer(Val), Val >= 0 ->
-            validate_logfile_proplist(Tail, {sync_size, Val}|Acc);
-        _ ->
-            throw({bad_config, "Invalid sync size", SyncSize})
-    end;
-validate_logfile_proplist({check_interval, CheckInt}|Tail, Acc) ->
-    case CheckInt of
-        Val when is_integer(Val), Val >= 0 ->
-            validate_logfile_proplist(Tail, {check_interval, Val}|Acc);
-        always ->
-            validate_logfile_proplist(Tail, {check_interval, 0}|Acc);
-        _ ->
-            throw({bad_config, "Invalid check interval", CheckInt})
-    end;
-validate_logfile_proplist({sync_on, Level}|Tail, Acc) ->
-    case validate_loglevel(Level) of
-        false ->
-            throw({bad_config, "Invalid sync on level", Level});
-        Res ->
-            validate_logfile_proplist(Tail, {sync_on, Res}|Acc)
-    end;
-validate_logfile_proplist({formatter, Fmt}|Tail, Acc) ->
-    case is_atom(Fmt) of
-        true ->
-            validate_logfile_proplist(Tail, {formatter, Fmt}|Acc);
-        false ->
-            throw({bad_config, "Invalid formatter module", Fmt})
-    end;
-validate_logfile_proplist({formatter_config, FmtCfg}|Tail, Acc) ->
-    case is_list(FmtCfg) of
-        true ->
-            validate_logfile_proplist(Tail, {formatter_config, FmtCfg}|Acc);
-        false ->
-            throw({bad_config, "Invalid formatter config", FmtCfg})
-    end;
-validate_logfile_proplist({flush_queue, FlushCfg}|Tail, Acc) ->
-    case is_boolean(FlushCfg) of
-        true ->
-            validate_logfile_proplist(Tail, {flush_queue, FlushCfg}|Acc);
-        false ->
-            throw({bad_config, "Invalid queue flush flag", FlushCfg})
-    end;
-validate_logfile_proplist({flush_threshold, Thr}|Tail, Acc) ->
-    case Thr of
-        _ when is_integer(Thr), Thr >= 0 ->
-            validate_logfile_proplist(Tail, {flush_threshold, Thr}|Acc);
-        _ ->
-            throw({bad_config, "Invalid queue flush threshold", Thr})
-    end;
-validate_logfile_proplist(Other|_Tail, _Acc) ->
-    throw({bad_config, "Invalid option", Other}).
-
-schedule_rotation(_, undefined) ->
-    ok;
-schedule_rotation(Name, Date) ->
-    erlang:send_after(lager_util:calculate_next_rotation(Date) * 1000, self(), {rotate, Name}),
-    ok.
-
-close_file(#state{fd=undefined} = State) ->
-    State;
-close_file(#state{fd=FD} = State) ->
-    %% Flush and close any file handles.
-    %% delayed write can cause file:close not to do a close
-    _ = file:datasync(FD),
-    _ = file:close(FD),
-    _ = file:close(FD),
-    State#state{fd=undefined}.
-
--ifdef(TEST).
-
-get_loglevel_test() ->
-    {ok, Level, _} = handle_call(get_loglevel,
-        #state{name="bar", level=lager_util:config_to_mask(info), fd=0, inode=0, ctime=undefined}),
-    ?assertEqual(Level, lager_util:config_to_mask(info)),
-    {ok, Level2, _} = handle_call(get_loglevel,
-        #state{name="foo", level=lager_util:config_to_mask(warning), fd=0, inode=0, ctime=undefined}),
-    ?assertEqual(Level2, lager_util:config_to_mask(warning)).
-
-rotation_test_() ->
-    {foreach,
-        fun() ->
-            SyncLevel = validate_loglevel(?DEFAULT_SYNC_LEVEL),
-            SyncSize = ?DEFAULT_SYNC_SIZE,
-            SyncInterval = ?DEFAULT_SYNC_INTERVAL,
-            Rotator = ?DEFAULT_ROTATION_MOD,
-            CheckInterval = 0, %% hard to test delayed mode
-            {ok, TestDir} = lager_util:create_test_dir(),
-            TestLog = filename:join(TestDir, "test.log"),
-            {OsType, _} = os:type(),
-            #state{name=TestLog,
-                   level=?DEBUG,
-                   sync_on=SyncLevel,
-                   sync_size=SyncSize,
-                   sync_interval=SyncInterval,
-                   check_interval=CheckInterval,
-                   rotator=Rotator,
-                   os_type=OsType}
-        end,
-        fun(#state{}) ->
-            ok = lager_util:delete_test_dir()
-        end, 
-        fun(DefaultState=#state{name=TestLog, os_type=OsType, sync_size=SyncSize, sync_interval=SyncInterval, rotator=Rotator}) ->
-            {"External rotation should work",
-            fun() ->
-                case OsType of
-                    win32 ->
-                        % Note: test is skipped on win32 due to the fact that a file can't be deleted or renamed
-                        % while a process has an open file handle referencing it
-                        ok;
-                    _ ->
-                        {ok, {FD, Inode, Ctime, _Size}} = Rotator:open_logfile(TestLog, {SyncSize, SyncInterval}),
-                        State0 = DefaultState#state{fd=FD, inode=Inode, ctime=Ctime},
-                        State1 = write(State0, os:timestamp(), ?DEBUG, "hello world"),
-                        ?assertMatch(#state{name=TestLog, level=?DEBUG, fd=FD, inode=Inode, ctime=Ctime}, State1),
-                        ?assertEqual(ok, file:delete(TestLog)),
-                        State2 = write(State0, os:timestamp(), ?DEBUG, "hello world"),
-                        %% assert file has changed
-                        ExpState1 = #state{name=TestLog, level=?DEBUG, fd=FD, inode=Inode, ctime=Ctime},
-                        ?assertNotEqual(ExpState1, State2),
-                        ?assertMatch(#state{name=TestLog, level=?DEBUG}, State2),
-                        ?assertEqual(ok, file:rename(TestLog, TestLog ++ ".1")),
-                        State3 = write(State2, os:timestamp(), ?DEBUG, "hello world"),
-                        %% assert file has changed
-                        ?assertNotEqual(State3, State2),
-                        ?assertMatch(#state{name=TestLog, level=?DEBUG}, State3),
-                        ok
-                end
-            end}
-        end,
-        fun(DefaultState = #state{name=TestLog, sync_size=SyncSize, sync_interval=SyncInterval, rotator=Rotator}) ->
-            {"Internal rotation and delayed write",
-            fun() ->
-                TestLog0 = TestLog ++ ".0",
-                CheckInterval = 3000, % 3 sec
-                RotationSize = 15,
-                PreviousCheck = os:timestamp(),
-
-                {ok, {FD, Inode, Ctime, _Size}} = Rotator:open_logfile(TestLog, {SyncSize, SyncInterval}),
-                State0 = DefaultState#state{
-                    fd=FD, inode=Inode, ctime=Ctime, size=RotationSize,
-                    check_interval=CheckInterval, last_check=PreviousCheck},
-
-                %% new message within check interval with sync_on level
-                Msg1Timestamp = add_secs(PreviousCheck, 1),
-                State1 = write(State0, Msg1Timestamp, ?ERROR, "big big message 1"),
-                ?assertEqual(State0, State1),
-
-                %% new message within check interval under sync_on level
-                %% not written to disk yet
-                Msg2Timestamp = add_secs(PreviousCheck, 2),
-                State2 = write(State1, Msg2Timestamp, ?DEBUG, "buffered message 2"),
-                ?assertEqual(State0, State2),
-
-                % Note: we must ensure at least one second (DEFAULT_SYNC_INTERVAL) has passed
-                % for message 1 and 2 to be written to disk
-                ElapsedMs = timer:now_diff(os:timestamp(), PreviousCheck) div 1000,
-                case ElapsedMs > SyncInterval of
-                    true ->
-                        ok;
-                    _ ->
-                        S = SyncInterval - ElapsedMs,
-                        timer:sleep(S)
-                end,
-
-                %% although file size is big enough...
-                {ok, FInfo} = file:read_file_info(TestLog, raw),
-                ?assert(RotationSize < FInfo#file_info.size),
-                %% ...no rotation yet
-                ?assertEqual(PreviousCheck, State2#state.last_check),
-                ?assertNot(filelib:is_regular(TestLog0)),
-
-                %% new message after check interval
-                Msg3Timestamp = add_secs(PreviousCheck, 4),
-                _State3 = write(State2, Msg3Timestamp, ?DEBUG, "message 3"),
-
-                %% rotation happened
-                ?assert(filelib:is_regular(TestLog0)),
-
-                {ok, Bin1} = file:read_file(TestLog0),
-                {ok, Bin2} = file:read_file(TestLog),
-                %% message 1-2 written to file
-                ?assertEqual(<<"big big message 1buffered message 2">>, Bin1),
-                %% message 3 buffered, not yet written to file
-                ?assertEqual(<<"">>, Bin2),
-                ok
-            end}
-        end
-    }.
-
-add_secs({Mega, Secs, Micro}, Add) ->
-    NewSecs = Secs + Add,
-    {Mega + NewSecs div 10000000, NewSecs rem 10000000, Micro}.
-
-filesystem_test_() ->
-    {foreach,
-        fun() ->
-            ok = error_logger:tty(false),
-            ok = lager_util:safe_application_load(lager),
-            ok = application:set_env(lager, handlers, {lager_test_backend, info}),
-            ok = application:set_env(lager, error_logger_redirect, false),
-            ok = application:set_env(lager, async_threshold, undefined),
-            {ok, _TestDir} = lager_util:create_test_dir(),
-            ok = lager:start(),
-            %% race condition where lager logs its own start up
-            %% makes several tests fail. See test/lager_test_backend
-            %% around line 800 for more information.
-            ok = timer:sleep(5),
-            ok = lager_test_backend:flush()
-        end,
-        fun(_) ->
-            ok = application:stop(lager),
-            ok = application:stop(goldrush),
-            ok = error_logger:tty(true),
-            ok = lager_util:delete_test_dir()
-        end, 
-        {"under normal circumstances, file should be opened",
-        fun() ->
-            {ok, TestDir} = lager_util:get_test_dir(),
-            TestLog = filename:join(TestDir, "test.log"),
-
-            gen_event:add_handler(lager_event, lager_file_backend,
-                {TestLog, info}, {lager_default_formatter}),
-            lager:log(error, self(), "Test message"),
-            {ok, Bin} = file:read_file(TestLog),
-            Pid = pid_to_list(self()),
-            ?assertMatch(_, _, "error", Pid, "Test message\n",
-                re:split(Bin, " ", {return, list}, {parts, 5}))
-        end},
-        {"don't choke on unicode",
-        fun() ->
-            {ok, TestDir} = lager_util:get_test_dir(),
-            TestLog = filename:join(TestDir, "test.log"),
-
-            gen_event:add_handler(lager_event, lager_file_backend,
-                {TestLog, info}, {lager_default_formatter}),
-            lager:log(error, self(),"~ts", 20013,25991,27979,35797),
-            {ok, Bin} = file:read_file(TestLog),
-            Pid = pid_to_list(self()),
-            ?assertMatch(_, _, "error", Pid,
-                228,184,173,230,150,135,230,181,139,232,175,149, $\n,
-                re:split(Bin, " ", {return, list}, {parts, 5}))
-        end},
-        {"don't choke on latin-1",
-        fun() ->
-            {ok, TestDir} = lager_util:get_test_dir(),
-            TestLog = filename:join(TestDir, "test.log"),
-
-            %% XXX if this test fails, check that this file is encoded latin-1, not utf-8!
-            gen_event:add_handler(lager_event, lager_file_backend,
-                {TestLog, info}, {lager_default_formatter}),
-            lager:log(error, self(),"~ts", 76, 198, 221, 206, 78, $-, 239),
-            {ok, Bin} = file:read_file(TestLog),
-            Pid = pid_to_list(self()),
-            Res = re:split(Bin, " ", {return, list}, {parts, 5}),
-            ?assertMatch(_, _, "error", Pid,
-                76,195,134,195,157,195,142,78,45,195,175,$\n, Res)
-        end},
-        {"file can't be opened on startup triggers an error message",
-        fun() ->
-            {ok, TestDir} = lager_util:get_test_dir(),
-            TestLog = filename:join(TestDir, "test.log"),
-            ?assertEqual(ok, lager_util:safe_write_file(TestLog, )),
-
-            {ok, FInfo0} = file:read_file_info(TestLog, raw),
-            FInfo1 = FInfo0#file_info{mode = 0},
-            ?assertEqual(ok, file:write_file_info(TestLog, FInfo1)),
-
-            gen_event:add_handler(lager_event, lager_file_backend,
-                {TestLog, info, 10*1024*1024, "$D0", 5}),
-
-            % Note: required on win32, do this early to prevent subsequent failures
-            % from preventing cleanup
-            ?assertEqual(ok, file:write_file_info(TestLog, FInfo0)),
-
-            ?assertEqual(1, lager_test_backend:count()),
-            {_Level, _Time, Message, _Metadata} = lager_test_backend:pop(),
-            MessageFlat = lists:flatten(Message),
-            ?assertEqual(
-                "Failed to open log file " ++ TestLog ++ " with error permission denied",
-                MessageFlat)
-        end},
-        {"file that becomes unavailable at runtime should trigger an error message",
-        fun() ->
-            case os:type() of
-                {win32, _} ->
-                    % Note: test is skipped on win32 due to the fact that a file can't be
-                    % deleted or renamed while a process has an open file handle referencing it
-                    ok;
-                _ ->
-                    {ok, TestDir} = lager_util:get_test_dir(),
-                    TestLog = filename:join(TestDir, "test.log"),
-
-                    gen_event:add_handler(lager_event, lager_file_backend,
-                        {file, TestLog}, {level, info}, {check_interval, 0}),
-                    ?assertEqual(0, lager_test_backend:count()),
-                    lager:log(error, self(), "Test message"),
-                    ?assertEqual(1, lager_test_backend:count()),
-                    ?assertEqual(ok, file:delete(TestLog)),
-                    ?assertEqual(ok, lager_util:safe_write_file(TestLog, "")),
-                    {ok, FInfo0} = file:read_file_info(TestLog, raw),
-                    FInfo1 = FInfo0#file_info{mode = 0},
-                    ?assertEqual(ok, file:write_file_info(TestLog, FInfo1)),
-                    lager:log(error, self(), "Test message"),
-                    lager_test_backend:pop(),
-                    lager_test_backend:pop(),
-                    {_Level, _Time, Message, _Metadata} = lager_test_backend:pop(),
-                    ?assertEqual(
-                        "Failed to reopen log file " ++ TestLog ++ " with error permission denied",
-                        lists:flatten(Message))
-            end
-        end},
-        {"unavailable files that are fixed at runtime should start having log messages written",
-        fun() ->
-            {ok, TestDir} = lager_util:get_test_dir(),
-            TestLog = filename:join(TestDir, "test.log"),
-            ?assertEqual(ok, lager_util:safe_write_file(TestLog, )),
-
-            {ok, FInfo} = file:read_file_info(TestLog, raw),
-            OldPerms = FInfo#file_info.mode,
-            ?assertEqual(ok, file:write_file_info(TestLog, FInfo#file_info{mode = 0})),
-            gen_event:add_handler(lager_event, lager_file_backend,
-                {file, TestLog},{check_interval, 0}),
-            ?assertEqual(1, lager_test_backend:count()),
-            {_Level, _Time, Message, _Metadata} = lager_test_backend:pop(),
-            ?assertEqual(
-                "Failed to open log file " ++ TestLog ++ " with error permission denied",
-                lists:flatten(Message)),
-            ?assertEqual(ok, file:write_file_info(TestLog, FInfo#file_info{mode = OldPerms})),
-            lager:log(error, self(), "Test message"),
-            {ok, Bin} = file:read_file(TestLog),
-            Pid = pid_to_list(self()),
-            ?assertMatch(_, _, "error", Pid, "Test message\n",
-                re:split(Bin, " ", {return, list}, {parts, 5}))
-        end},
-        {"external logfile rotation/deletion should be handled",
-        fun() ->
-            case os:type() of
-                {win32, _} ->
-                    % Note: test is skipped on win32 due to the fact that a file can't be deleted or renamed
-                    % while a process has an open file handle referencing it
-                    ok;
-                _ ->
-                    {ok, TestDir} = lager_util:get_test_dir(),
-                    TestLog = filename:join(TestDir, "test.log"),
-                    TestLog0 = TestLog ++ ".0",
-
-                    gen_event:add_handler(lager_event, lager_file_backend,
-                        {file, TestLog}, {level, info}, {check_interval, 0}),
-                    ?assertEqual(0, lager_test_backend:count()),
-                    lager:log(error, self(), "Test message1"),
-                    ?assertEqual(1, lager_test_backend:count()),
-                    ?assertEqual(ok, file:delete(TestLog)),
-                    ?assertEqual(ok, lager_util:safe_write_file(TestLog, "")),
-                    lager:log(error, self(), "Test message2"),
-                    ?assertEqual(2, lager_test_backend:count()),
-                    {ok, Bin} = file:read_file(TestLog),
-                    Pid = pid_to_list(self()),
-                    ?assertMatch(_, _, "error", Pid, "Test message2\n",
-                        re:split(Bin, " ", {return, list}, {parts, 5})),
-                    ?assertEqual(ok, file:rename(TestLog, TestLog0)),
-                    lager:log(error, self(), "Test message3"),
-                    ?assertEqual(3, lager_test_backend:count()),
-                    {ok, Bin2} = file:read_file(TestLog),
-                    ?assertMatch(_, _, "error", Pid, "Test message3\n",
-                        re:split(Bin2, " ", {return, list}, {parts, 5}))
-            end
-        end},
-        {"internal size rotation should work",
-        fun() ->
-            {ok, TestDir} = lager_util:get_test_dir(),
-            TestLog = filename:join(TestDir, "test.log"),
-            TestLog0 = TestLog ++ ".0",
-
-            gen_event:add_handler(lager_event, lager_file_backend,
-                {file, TestLog}, {level, info}, {check_interval, 0}, {size, 10}),
-            lager:log(error, self(), "Test message1"),
-            lager:log(error, self(), "Test message1"),
-            ?assert(filelib:is_regular(TestLog0))
-        end},
-        {"internal time rotation should work",
-        fun() ->
-            {ok, TestDir} = lager_util:get_test_dir(),
-            TestLog = filename:join(TestDir, "test.log"),
-            TestLog0 = TestLog ++ ".0",
-
-            gen_event:add_handler(lager_event, lager_file_backend,
-                {file, TestLog}, {level, info}, {check_interval, 1000}),
-            lager:log(error, self(), "Test message1"),
-            lager:log(error, self(), "Test message1"),
-            whereis(lager_event) ! {rotate, TestLog},
-            lager:log(error, self(), "Test message1"),
-            ?assert(filelib:is_regular(TestLog0))
-        end},
-        {"rotation call should work",
-        fun() ->
-            {ok, TestDir} = lager_util:get_test_dir(),
-            TestLog = filename:join(TestDir, "test.log"),
-            TestLog0 = TestLog ++ ".0",
-
-            gen_event:add_handler(lager_event, {lager_file_backend, TestLog},
-                {file, TestLog}, {level, info}, {check_interval, 1000}),
-            lager:log(error, self(), "Test message1"),
-            lager:log(error, self(), "Test message1"),
-            gen_event:call(lager_event, {lager_file_backend, TestLog}, rotate, infinity),
-            lager:log(error, self(), "Test message1"),
-            ?assert(filelib:is_regular(TestLog0))
-        end},
-        {"sync_on option should work",
-        fun() ->
-            {ok, TestDir} = lager_util:get_test_dir(),
-            TestLog = filename:join(TestDir, "test.log"),
-
-            gen_event:add_handler(lager_event, lager_file_backend, {file, TestLog},
-                {level, info}, {sync_on, "=info"}, {check_interval, 5000}, {sync_interval, 5000}),
-            lager:log(error, self(), "Test message1"),
-            lager:log(error, self(), "Test message1"),
-            ?assertEqual({ok, <<>>}, file:read_file(TestLog)),
-            lager:log(info, self(), "Test message1"),
-            {ok, Bin} = file:read_file(TestLog),
-            ?assert(<<>> /= Bin)
-        end},
-        {"sync_on none option should work (also tests sync_interval)",
-        fun() ->
-            {ok, TestDir} = lager_util:get_test_dir(),
-            TestLog = filename:join(TestDir, "test.log"),
-
-            gen_event:add_handler(lager_event, lager_file_backend, {file, TestLog},
-                {level, info}, {sync_on, "none"}, {check_interval, 5000}, {sync_interval, 1000}),
-            lager:log(error, self(), "Test message1"),
-            lager:log(error, self(), "Test message1"),
-            ?assertEqual({ok, <<>>}, file:read_file(TestLog)),
-            lager:log(info, self(), "Test message1"),
-            ?assertEqual({ok, <<>>}, file:read_file(TestLog)),
-            timer:sleep(2000),
-            {ok, Bin} = file:read_file(TestLog),
-            ?assert(<<>> /= Bin)
-        end},
-        {"sync_size option should work",
-        fun() ->
-            {ok, TestDir} = lager_util:get_test_dir(),
-            TestLog = filename:join(TestDir, "test.log"),
-
-            gen_event:add_handler(lager_event, lager_file_backend, {file, TestLog}, {level, info},
-                {sync_on, "none"}, {check_interval, 5001}, {sync_size, 640}, {sync_interval, 5001}),
-            lager:log(error, self(), "Test messageis64bytes"),
-            lager:log(error, self(), "Test messageis64bytes"),
-            lager:log(error, self(), "Test messageis64bytes"),
-            lager:log(error, self(), "Test messageis64bytes"),
-            lager:log(error, self(), "Test messageis64bytes"),
-            ?assertEqual({ok, <<>>}, file:read_file(TestLog)),
-            lager:log(error, self(), "Test messageis64bytes"),
-            lager:log(error, self(), "Test messageis64bytes"),
-            lager:log(error, self(), "Test messageis64bytes"),
-            lager:log(error, self(), "Test messageis64bytes"),
-            ?assertEqual({ok, <<>>}, file:read_file(TestLog)),
-            %% now we've written enough bytes
-            lager:log(error, self(), "Test messageis64bytes"),
-            {ok, Bin} = file:read_file(TestLog),
-            ?assert(<<>> /= Bin)
-        end},
-        {"runtime level changes",
-        fun() ->
-            {ok, TestDir} = lager_util:get_test_dir(),
-            TestLog = filename:join(TestDir, "test.log"),
-
-            gen_event:add_handler(lager_event, {lager_file_backend, TestLog}, {TestLog, info}),
-            ?assertEqual(0, lager_test_backend:count()),
-            lager:log(info, self(), "Test message1"),
-            lager:log(error, self(), "Test message2"),
-            {ok, Bin} = file:read_file(TestLog),
-            Lines = length(re:split(Bin, "\n", {return, list}, trim)),
-            ?assertEqual(Lines, 2),
-            ?assertEqual(ok, lager:set_loglevel(lager_file_backend, TestLog, warning)),
-            lager:log(info, self(), "Test message3"), %% this won't get logged
-            lager:log(error, self(), "Test message4"),
-            {ok, Bin2} = file:read_file(TestLog),
-            Lines2 = length(re:split(Bin2, "\n", {return, list}, trim)),
-            ?assertEqual(Lines2, 3)
-        end},
-        {"invalid runtime level changes",
-        fun() ->
-            {ok, TestDir} = lager_util:get_test_dir(),
-            TestLog = filename:join(TestDir, "test.log"),
-            TestLog3 = filename:join(TestDir, "test3.log"),
-
-            gen_event:add_handler(lager_event, lager_file_backend,
-                {TestLog, info, 10*1024*1024, "$D0", 5}, {lager_default_formatter}),
-            gen_event:add_handler(lager_event, lager_file_backend, {TestLog3, info}),
-            ?assertEqual({error, bad_module}, lager:set_loglevel(lager_file_backend, TestLog, warning))
-        end},
-        {"tracing should work",
-        fun() ->
-            {ok, TestDir} = lager_util:get_test_dir(),
-            TestLog = filename:join(TestDir, "test.log"),
-
-            gen_event:add_handler(lager_event, lager_file_backend, {TestLog, critical}),
-            lager:error("Test message"),
-            ?assertEqual({ok, <<>>}, file:read_file(TestLog)),
-            {Level, _} = lager_config:get({lager_event, loglevel}),
-            lager_config:set({lager_event, loglevel}, {Level,
-                {{module, ?MODULE}, ?DEBUG, {lager_file_backend, TestLog}}}),
-            lager:error("Test message"),
-            timer:sleep(1000),
-            {ok, Bin} = file:read_file(TestLog),
-            ?assertMatch(_, _, "error", _, "Test message\n",
-                re:split(Bin, " ", {return, list}, {parts, 5}))
-        end},
-        {"tracing should not duplicate messages",
-        fun() ->
-            case os:type() of
-                {win32, _} ->
-                    % Note: test is skipped on win32 due to the fact that a file can't be
-                    % deleted or renamed while a process has an open file handle referencing it
-                    ok;
-                _ ->
-                    {ok, TestDir} = lager_util:get_test_dir(),
-                    TestLog = filename:join(TestDir, "test.log"),
-
-                    gen_event:add_handler(lager_event, lager_file_backend,
-                        {file, TestLog}, {level, critical}, {check_interval, always}),
-                    timer:sleep(500),
-                    lager:critical("Test message"),
-                    {ok, Bin1} = file:read_file(TestLog),
-                    ?assertMatch(_, _, "critical", _, "Test message\n",
-                        re:split(Bin1, " ", {return, list}, {parts, 5})),
-                    ?assertEqual(ok, file:delete(TestLog)),
-                    {Level, _} = lager_config:get({lager_event, loglevel}),
-                    lager_config:set({lager_event, loglevel},
-                        {Level, {{module, ?MODULE}, ?DEBUG, {lager_file_backend, TestLog}}}),
-                    lager:critical("Test message"),
-                    {ok, Bin2} = file:read_file(TestLog),
-                    ?assertMatch(_, _, "critical", _, "Test message\n",
-                        re:split(Bin2, " ", {return, list}, {parts, 5})),
-                    ?assertEqual(ok, file:delete(TestLog)),
-                    lager:error("Test message"),
-                    {ok, Bin3} = file:read_file(TestLog),
-                    ?assertMatch(_, _, "error", _, "Test message\n",
-                        re:split(Bin3, " ", {return, list}, {parts, 5}))
-            end
-        end},
-        {"tracing to a dedicated file should work",
-        fun() ->
-            {ok, TestDir} = lager_util:get_test_dir(),
-            TestLog = filename:join(TestDir, "foo.log"),
-
-            {ok, _} = lager:trace_file(TestLog, {module, ?MODULE}),
-            lager:error("Test message"),
-            %% not eligible for trace
-            lager:log(error, self(), "Test message"),
-            {ok, Bin3} = file:read_file(TestLog),
-            ?assertMatch(_, _, "error", _, "Test message\n",
-                re:split(Bin3, " ", {return, list}, {parts, 5}))
-        end},
-        {"tracing to a dedicated file should work even if root_log is set",
-        fun() ->
-            {ok, TestDir} = lager_util:get_test_dir(),
-            LogName = "foo.log",
-            LogPath = filename:join(TestDir, LogName),
-
-            application:set_env(lager, log_root, TestDir),
-            {ok, _} = lager:trace_file(LogName, {module, ?MODULE}),
-            lager:error("Test message"),
-            %% not eligible for trace
-            lager:log(error, self(), "Test message"),
-            {ok, Bin3} = file:read_file(LogPath),
-            application:unset_env(lager, log_root),
-            ?assertMatch(_, _, "error", _, "Test message\n",
-                re:split(Bin3, " ", {return, list}, {parts, 5}))
-        end},
-        {"tracing with options should work",
-        fun() ->
-            {ok, TestDir} = lager_util:get_test_dir(),
-            TestLog = filename:join(TestDir, "foo.log"),
-            TestLog0 = TestLog ++ ".0",
-
-            {ok, _} = lager:trace_file(TestLog, {module, ?MODULE},
-                {size, 20}, {check_interval, 1}),
-            lager:error("Test message"),
-            ?assertNot(filelib:is_regular(TestLog0)),
-            %% rotation is sensitive to intervals between
-            %% writes so we sleep to exceed the 1
-            %% millisecond interval specified by
-            %% check_interval above
-            timer:sleep(2),
-            lager:error("Test message"),
-            timer:sleep(10),
-            ?assert(filelib:is_regular(TestLog0))
-        end},
-        {"no silent hwm drops",
-        fun() ->
-            MsgCount = 15,
-            {ok, TestDir} = lager_util:get_test_dir(),
-            TestLog = filename:join(TestDir, "test.log"),
-            gen_event:add_handler(lager_event, lager_file_backend, {file, TestLog}, {level, info},
-                {high_water_mark, 5}, {flush_queue, false}, {sync_on, "=warning"}),
-            {_, _, MS} = os:timestamp(),
-            % start close to the beginning of a new second
-            ?assertEqual(ok, timer:sleep((1000000 - MS) div 1000 + 1)),
-            lager:log(info, self(), "Foo ~p", K) || K <- lists:seq(1, MsgCount),
-            ?assertEqual(MsgCount, lager_test_backend:count()),
-            % Note: bumped from 1000 to 1250 to ensure delayed write flushes to disk
-            ?assertEqual(ok, timer:sleep(1250)),
-            {ok, Bin} = file:read_file(TestLog),
-            Last = lists:last(re:split(Bin, "\n", {return, list}, trim)),
-            ?assertMatch(_, _, _, _, "lager_file_backend dropped 10 messages in the last second that exceeded the limit of 5 messages/sec",
-                re:split(Last, " ", {return, list}, {parts, 5}))
-        end}
-    }.
-
-trace_files_test_() ->
-    {foreach,
-        fun() ->
-            {ok, TestDir} = lager_util:get_test_dir(),
-            Log     = filename:join(TestDir, "test.log"),
-            Debug   = filename:join(TestDir, "debug.log"),
-            Events  = filename:join(TestDir, "events.log"),
-
-            ok = error_logger:tty(false),
-            ok = lager_util:safe_application_load(lager),
-            ok = application:set_env(lager, handlers, 
-                     {lager_file_backend, 
-                         {file, Log},
-                         {level, error},
-                         {formatter, lager_default_formatter},
-                         {formatter_config, message, "\n"}
-                     }
-                 ),
-            ok = application:set_env(lager, traces, 
-                     { % get default level of debug
-                         {lager_file_backend, Debug}, {module, ?MODULE}
-                     },
-                     { % Handler                       Filters              Level
-                         {lager_file_backend, Events}, {module, ?MODULE}, notice
-                     }
-                 ),
-            ok = application:set_env(lager, async_threshold, undefined),
-            ok = lager:start(),
-            {Log, Debug, Events}
-        end,
-        fun({_, _, _}) ->
-            catch ets:delete(lager_config),
-            ok = application:unset_env(lager, traces),
-            ok = application:stop(lager),
-            ok = lager_util:delete_test_dir(),
-            ok = error_logger:tty(true)
-        end, 
-        fun({Log, Debug, Events}) ->
-            {"a trace using file backend set up in configuration should work",
-            fun() ->
-                lager:error("trace test error message"),
-                lager:info("info message"),
-                %% not eligible for trace
-                lager:log(error, self(), "Not trace test message"),
-                {ok, BinInfo} = file:read_file(Events),
-                ?assertMatch(_, _, "error", _, "trace test error message\n",
-                    re:split(BinInfo, " ", {return, list}, {parts, 5})),
-                ?assert(filelib:is_regular(Log)),
-                {ok, BinInfo2} = file:read_file(Log),
-                ?assertMatch("trace test error message", "Not trace test message\n",
-                    re:split(BinInfo2, "\n", {return, list}, {parts, 2})),
-                ?assert(filelib:is_regular(Debug)),
-                %% XXX Aughhhh, wish I could force this to flush somehow...
-                % should take about 1 second, try for 3 ...
-                ?assertEqual(2, count_lines_until(2, add_secs(os:timestamp(), 3), Debug, 0))
-            end}
-        end
-    }.
-
-count_lines_until(Lines, Timeout, File, Last) ->
-    case timer:now_diff(Timeout, os:timestamp()) > 0 of
-        true ->
-            timer:sleep(333),
-            {ok, Bin} = file:read_file(File),
-            case erlang:length(re:split(Bin, "\n", {return, list}, trim)) of
-                Count when Count < Lines ->
-                    count_lines_until(Lines, Timeout, File, Count);
-                Count ->
-                    Count
-            end;
-        _ ->
-            Last
-    end.
-
-formatting_test_() ->
-    {foreach,
-        fun() ->
-            {ok, TestDir} = lager_util:get_test_dir(),
-            Log1 = filename:join(TestDir, "test.log"),
-            Log2 = filename:join(TestDir, "test2.log"),
-            ?assertEqual(ok, lager_util:safe_write_file(Log1, )),
-            ?assertEqual(ok, lager_util:safe_write_file(Log2, )),
-            ok = error_logger:tty(false),
-            ok = lager_util:safe_application_load(lager),
-            ok = application:set_env(lager, handlers, {lager_test_backend, info}),
-            ok = application:set_env(lager, error_logger_redirect, false),
-            ok = lager:start(),
-            %% same race condition issue
-            ok = timer:sleep(5),
-            {ok, Log1, Log2}
-        end,
-        fun({ok, _, _}) ->
-            ok = application:stop(lager),
-            ok = application:stop(goldrush),
-            ok = lager_util:delete_test_dir(),
-            ok = error_logger:tty(true)
-        end, 
-        fun({ok, Log1, Log2}) ->
-            {"Should have two log files, the second prefixed with 2>",
-            fun() ->
-                gen_event:add_handler(lager_event, lager_file_backend,
-                    {Log1, debug}, {lager_default_formatter, "",severity," ", message, "\n"}),
-                gen_event:add_handler(lager_event, lager_file_backend,
-                    {Log2, debug}, {lager_default_formatter, "2> ",severity," ", message, "\n"}),
-                lager:log(error, self(), "Test message"),
-                ?assertMatch({ok, <<"error Test message\n">>},file:read_file(Log1)),
-                ?assertMatch({ok, <<"2> error Test message\n">>},file:read_file(Log2))
-            end}
-        end
-    }.
-
-config_validation_test_() ->
-    
-        {"missing file",
-            ?_assertEqual(false,
-                validate_logfile_proplist({level, info}, {size, 10}))
-        },
-        {"bad level",
-            ?_assertEqual(false,
-                validate_logfile_proplist({file, "test.log"}, {level, blah}, {size, 10}))
-        },
-        {"bad size",
-            ?_assertEqual(false,
-                validate_logfile_proplist({file, "test.log"}, {size, infinity}))
-        },
-        {"bad count",
-            ?_assertEqual(false,
-                validate_logfile_proplist({file, "test.log"}, {count, infinity}))
-        },
-        {"bad high water mark",
-            ?_assertEqual(false,
-                validate_logfile_proplist({file, "test.log"}, {high_water_mark, infinity}))
-        },
-        {"bad date",
-            ?_assertEqual(false,
-                validate_logfile_proplist({file, "test.log"}, {date, "midnight"}))
-        },
-        {"blank date is ok",
-            ?_assertMatch(_|_,
-                validate_logfile_proplist({file, "test.log"}, {date, ""}))
-        },
-        {"bad sync_interval",
-            ?_assertEqual(false,
-                validate_logfile_proplist({file, "test.log"}, {sync_interval, infinity}))
-        },
-        {"bad sync_size",
-            ?_assertEqual(false,
-                validate_logfile_proplist({file, "test.log"}, {sync_size, infinity}))
-        },
-        {"bad check_interval",
-            ?_assertEqual(false,
-                validate_logfile_proplist({file, "test.log"}, {check_interval, infinity}))
-        },
-        {"bad sync_on level",
-            ?_assertEqual(false,
-                validate_logfile_proplist({file, "test.log"}, {sync_on, infinity}))
-        },
-        {"bad formatter module",
-            ?_assertEqual(false,
-                validate_logfile_proplist({file, "test.log"}, {formatter, "io:format"}))
-        },
-        {"bad formatter config",
-            ?_assertEqual(false,
-                validate_logfile_proplist({file, "test.log"}, {formatter_config, blah}))
-        },
-        {"unknown option",
-            ?_assertEqual(false,
-                validate_logfile_proplist({file, "test.log"}, {rhubarb, spicy}))
-        }
-    .
-
--endif.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/src/lager_format.erl Deleted

@@ -1,544 +0,0 @@
-%%
-%% %CopyrightBegin%
-%% 
-%% Copyright Ericsson AB 1996-2011-2012. All Rights Reserved.
-%% 
-%% The contents of this file are subject to the Erlang Public License,
-%% Version 1.1, (the "License"); you may not use this file except in
-%% compliance with the License. You should have received a copy of the
-%% Erlang Public License along with this software. If not, it can be
-%% retrieved online at http://www.erlang.org/.
-%% 
-%% Software distributed under the License is distributed on an "AS IS"
-%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
-%% the License for the specific language governing rights and limitations
-%% under the License.
-%% 
-%% %CopyrightEnd%
-%%
--module(lager_format).
-
-%% fork of io_lib_format that uses trunc_io to protect against large terms
-
--export(format/3, format/4).
-
--record(options, {
-        chomp = false :: boolean()
-    }).
-
-format(FmtStr, Args, MaxLen) ->
-    format(FmtStr, Args, MaxLen, ).
-
-format(, , _, _) ->
-    "";
-format(FmtStr, Args, MaxLen, Opts) when is_atom(FmtStr) ->
-    format(atom_to_list(FmtStr), Args, MaxLen, Opts);
-format(FmtStr, Args, MaxLen, Opts) when is_binary(FmtStr) ->
-    format(binary_to_list(FmtStr), Args, MaxLen, Opts);
-format(FmtStr, Args, MaxLen, Opts) when is_list(FmtStr) ->
-    case io_lib:deep_char_list(FmtStr) of
-        true ->
-            Options = make_options(Opts, #options{}),
-            Cs = collect(FmtStr, Args),
-            {Cs2, MaxLen2} = build(Cs, , MaxLen, Options),
-            %% count how many terms remain
-            {Count, StrLen} = lists:foldl(
-                fun({_C, _As, _F, _Adj, _P, _Pad, _Enc}, {Terms, Chars}) ->
-                        {Terms + 1, Chars};
-                    (_, {Terms, Chars}) ->
-                        {Terms, Chars + 1}
-                end, {0, 0}, Cs2),
-            build2(Cs2, Count, MaxLen2 - StrLen);
-        false ->
-            erlang:error(badarg)
-    end;
-format(_FmtStr, _Args, _MaxLen, _Opts) ->
-    erlang:error(badarg).
-
-collect($~|Fmt0, Args0) ->
-    {C,Fmt1,Args1} = collect_cseq(Fmt0, Args0),
-    C|collect(Fmt1, Args1);
-collect(C|Fmt, Args) ->
-    C|collect(Fmt, Args);
-collect(, ) -> .
-
-collect_cseq(Fmt0, Args0) ->
-    {F,Ad,Fmt1,Args1} = field_width(Fmt0, Args0),
-    {P,Fmt2,Args2} = precision(Fmt1, Args1),
-    {Pad,Fmt3,Args3} = pad_char(Fmt2, Args2),
-    {Encoding,Fmt4,Args4} = encoding(Fmt3, Args3),
-    {C,As,Fmt5,Args5} = collect_cc(Fmt4, Args4),
-    {{C,As,F,Ad,P,Pad,Encoding},Fmt5,Args5}.
-
-encoding($t|Fmt,Args) ->
-    {unicode,Fmt,Args};
-encoding(Fmt,Args) ->
-    {latin1,Fmt,Args}.
-
-field_width($-|Fmt0, Args0) ->
-    {F,Fmt,Args} = field_value(Fmt0, Args0),
-    field_width(-F, Fmt, Args);
-field_width(Fmt0, Args0) ->
-    {F,Fmt,Args} = field_value(Fmt0, Args0),
-    field_width(F, Fmt, Args).
-
-field_width(F, Fmt, Args) when F < 0 ->
-    {-F,left,Fmt,Args};
-field_width(F, Fmt, Args) when F >= 0 ->
-    {F,right,Fmt,Args}.
-
-precision($.|Fmt, Args) ->
-    field_value(Fmt, Args);
-precision(Fmt, Args) ->
-    {none,Fmt,Args}.
-
-field_value($*|Fmt, A|Args) when is_integer(A) ->
-    {A,Fmt,Args};
-field_value(C|Fmt, Args) when is_integer(C), C >= $0, C =< $9 ->
-    field_value(C|Fmt, Args, 0);
-field_value(Fmt, Args) ->
-    {none,Fmt,Args}.
-
-field_value(C|Fmt, Args, F) when is_integer(C), C >= $0, C =< $9 ->
-    field_value(Fmt, Args, 10*F + (C - $0));
-field_value(Fmt, Args, F) -> %Default case
-    {F,Fmt,Args}.
-
-pad_char($.,$*|Fmt, Pad|Args) -> {Pad,Fmt,Args};
-pad_char($.,Pad|Fmt, Args) -> {Pad,Fmt,Args};
-pad_char(Fmt, Args) -> {$\s,Fmt,Args}.
-
-%% collect_cc(FormatChar, Argument) ->
-%%         {Control,ControlArg,FormatChar,Arg}.
-%%  Here we collect the argments for each control character.
-%%  Be explicit to cause failure early.
-
-collect_cc($w|Fmt, A|Args) -> {$w,A,Fmt,Args};
-collect_cc($p|Fmt, A|Args) -> {$p,A,Fmt,Args};
-collect_cc($W|Fmt, A,Depth|Args) -> {$W,A,Depth,Fmt,Args};
-collect_cc($P|Fmt, A,Depth|Args) -> {$P,A,Depth,Fmt,Args};
-collect_cc($s|Fmt, A|Args) -> {$s,A,Fmt,Args};
-collect_cc($e|Fmt, A|Args) -> {$e,A,Fmt,Args};
-collect_cc($f|Fmt, A|Args) -> {$f,A,Fmt,Args};
-collect_cc($g|Fmt, A|Args) -> {$g,A,Fmt,Args};
-collect_cc($b|Fmt, A|Args) -> {$b,A,Fmt,Args};
-collect_cc($B|Fmt, A|Args) -> {$B,A,Fmt,Args};
-collect_cc($x|Fmt, A,Prefix|Args) -> {$x,A,Prefix,Fmt,Args};
-collect_cc($X|Fmt, A,Prefix|Args) -> {$X,A,Prefix,Fmt,Args};
-collect_cc($+|Fmt, A|Args) -> {$+,A,Fmt,Args};
-collect_cc($#|Fmt, A|Args) -> {$#,A,Fmt,Args};
-collect_cc($c|Fmt, A|Args) -> {$c,A,Fmt,Args};
-collect_cc($~|Fmt, Args) when is_list(Args) -> {$~,,Fmt,Args};
-collect_cc($n|Fmt, Args) when is_list(Args) -> {$n,,Fmt,Args};
-collect_cc($i|Fmt, A|Args) -> {$i,A,Fmt,Args}.
-
-
-%% build(Control, Pc, Indentation) -> Char.
-%%  Interpret the control structures. Count the number of print
-%%  remaining and only calculate indentation when necessary. Must also
-%%  be smart when calculating indentation for characters in format.
-
-build({$n, _, _, _, _, _, _}, Acc, MaxLen, #options{chomp=true}) ->
-    %% trailing ~n, ignore
-    {lists:reverse(Acc), MaxLen};
-build({C,As,F,Ad,P,Pad,Enc}|Cs, Acc, MaxLen, O) ->
-    {S, MaxLen2} = control(C, As, F, Ad, P, Pad, Enc, MaxLen),
-    build(Cs, S|Acc, MaxLen2, O);
-build($\n, Acc, MaxLen, #options{chomp=true}) ->
-    %% trailing \n, ignore
-    {lists:reverse(Acc), MaxLen};
-build($\n|Cs, Acc, MaxLen, O) ->
-    build(Cs, $\n|Acc, MaxLen - 1, O);
-build($\t|Cs, Acc, MaxLen, O) ->
-    build(Cs, $\t|Acc, MaxLen - 1, O);
-build(C|Cs, Acc, MaxLen, O) ->
-    build(Cs, C|Acc, MaxLen - 1, O);
-build(, Acc, MaxLen, _O) ->
-    {lists:reverse(Acc), MaxLen}.
-
-build2({C,As,F,Ad,P,Pad,Enc}|Cs, Count, MaxLen) ->
-    {S, Len} = control2(C, As, F, Ad, P, Pad, Enc, MaxLen div Count),
-    S|build2(Cs, Count - 1, MaxLen - Len);
-build2(C|Cs, Count, MaxLen) ->
-    C|build2(Cs, Count, MaxLen);
-build2(, _, _) -> .
-
-%% control(FormatChar, Argument, FieldWidth, Adjust, Precision, PadChar,
-%%         Indentation) -> Char
-%%  This is the main dispatch function for the various formatting commands.
-%%  Field widths and precisions have already been calculated.
-
-control($e, A, F, Adj, P, Pad, _Enc, L) when is_float(A) ->
-    Res = fwrite_e(A, F, Adj, P, Pad),
-    {Res, L - lists:flatlength(Res)};
-control($f, A, F, Adj, P, Pad, _Enc, L) when is_float(A) ->
-    Res = fwrite_f(A, F, Adj, P, Pad),
-    {Res, L - lists:flatlength(Res)};
-control($g, A, F, Adj, P, Pad, _Enc, L) when is_float(A) ->
-    Res = fwrite_g(A, F, Adj, P, Pad),
-    {Res, L - lists:flatlength(Res)};
-control($b, A, F, Adj, P, Pad, _Enc, L) when is_integer(A) ->
-    Res = unprefixed_integer(A, F, Adj, base(P), Pad, true),
-    {Res, L - lists:flatlength(Res)};
-control($B, A, F, Adj, P, Pad, _Enc, L) when is_integer(A) ->
-    Res = unprefixed_integer(A, F, Adj, base(P), Pad, false),
-    {Res, L - lists:flatlength(Res)};
-control($x, A,Prefix, F, Adj, P, Pad, _Enc, L) when is_integer(A), 
-                                                 is_atom(Prefix) ->
-    Res = prefixed_integer(A, F, Adj, base(P), Pad, atom_to_list(Prefix), true),
-    {Res, L - lists:flatlength(Res)};
-control($x, A,Prefix, F, Adj, P, Pad, _Enc, L) when is_integer(A) ->
-    true = io_lib:deep_char_list(Prefix), %Check if Prefix a character list
-    Res = prefixed_integer(A, F, Adj, base(P), Pad, Prefix, true),
-    {Res, L - lists:flatlength(Res)};
-control($X, A,Prefix, F, Adj, P, Pad, _Enc, L) when is_integer(A), 
-                                                 is_atom(Prefix) ->
-    Res = prefixed_integer(A, F, Adj, base(P), Pad, atom_to_list(Prefix), false),
-    {Res, L - lists:flatlength(Res)};
-control($X, A,Prefix, F, Adj, P, Pad, _Enc, L) when is_integer(A) ->
-    true = io_lib:deep_char_list(Prefix), %Check if Prefix a character list
-    Res = prefixed_integer(A, F, Adj, base(P), Pad, Prefix, false),
-    {Res, L - lists:flatlength(Res)};
-control($+, A, F, Adj, P, Pad, _Enc, L) when is_integer(A) ->
-    Base = base(P),
-    Prefix = integer_to_list(Base), $#,
-    Res = prefixed_integer(A, F, Adj, Base, Pad, Prefix, true),
-    {Res, L - lists:flatlength(Res)};
-control($#, A, F, Adj, P, Pad, _Enc, L) when is_integer(A) ->
-    Base = base(P),
-    Prefix = integer_to_list(Base), $#,
-    Res = prefixed_integer(A, F, Adj, Base, Pad, Prefix, false),
-    {Res, L - lists:flatlength(Res)};
-control($c, A, F, Adj, P, Pad, unicode, L) when is_integer(A) ->
-    Res = char(A, F, Adj, P, Pad),
-    {Res, L - lists:flatlength(Res)};
-control($c, A, F, Adj, P, Pad, _Enc, L) when is_integer(A) ->
-    Res = char(A band 255, F, Adj, P, Pad),
-    {Res, L - lists:flatlength(Res)};
-control($~, , F, Adj, P, Pad, _Enc, L) ->
-    Res = char($~, F, Adj, P, Pad),
-    {Res, L - lists:flatlength(Res)};
-control($n, , F, Adj, P, Pad, _Enc, L) ->
-    Res = newline(F, Adj, P, Pad),
-    {Res, L - lists:flatlength(Res)};
-control($i, _A, _F, _Adj, _P, _Pad, _Enc, L) ->
-    {, L};
-control($s, A, F, Adj, P, Pad, _Enc, L) when is_atom(A) ->
-    Res = string(atom_to_list(A), F, Adj, P, Pad),
-    {Res, L - lists:flatlength(Res)};
-control(C, A, F, Adj, P, Pad, Enc, L) ->
-    %% save this for later - these are all the 'large' terms
-    {{C, A, F, Adj, P, Pad, Enc}, L}.
-
-control2($w, A, F, Adj, P, Pad, _Enc, L) ->
-    Term = lager_trunc_io:fprint(A, L, {lists_as_strings, false}),
-    Res = term(Term, F, Adj, P, Pad),
-    {Res, lists:flatlength(Res)};
-control2($p, A, _F, _Adj, _P, _Pad, _Enc, L) ->
-    Term = lager_trunc_io:fprint(A, L, {lists_as_strings, true}),
-    {Term, lists:flatlength(Term)};
-control2($W, A,Depth, F, Adj, P, Pad, _Enc, L) when is_integer(Depth) ->
-    Term = lager_trunc_io:fprint(A, L, {depth, Depth}, {lists_as_strings, false}),
-    Res = term(Term, F, Adj, P, Pad),
-    {Res, lists:flatlength(Res)};
-control2($P, A,Depth, _F, _Adj, _P, _Pad, _Enc, L) when is_integer(Depth) ->
-    Term = lager_trunc_io:fprint(A, L, {depth, Depth}, {lists_as_strings, true}),
-    {Term, lists:flatlength(Term)};
-control2($s, L0, F, Adj, P, Pad, latin1, L) ->
-    List = lager_trunc_io:fprint(iolist_to_chars(L0), L, {force_strings, true}),
-    Res = string(List, F, Adj, P, Pad),
-    {Res, lists:flatlength(Res)};
-control2($s, L0, F, Adj, P, Pad, unicode, L) ->
-    List = lager_trunc_io:fprint(cdata_to_chars(L0), L, {force_strings, true}),
-    Res = uniconv(string(List, F, Adj, P, Pad)),
-    {Res, lists:flatlength(Res)}.
-
-iolist_to_chars(C|Cs) when is_integer(C), C >= $\000, C =< $\377 ->
-    C | iolist_to_chars(Cs);
-iolist_to_chars(I|Cs) ->
-    iolist_to_chars(I) | iolist_to_chars(Cs);
-iolist_to_chars() ->
-    ;
-iolist_to_chars(B) when is_binary(B) ->
-    binary_to_list(B).
-
-cdata_to_chars(C|Cs) when is_integer(C), C >= $\000 ->
-    C | cdata_to_chars(Cs);
-cdata_to_chars(I|Cs) ->
-    cdata_to_chars(I) | cdata_to_chars(Cs);
-cdata_to_chars() ->
-    ;
-cdata_to_chars(B) when is_binary(B) ->
-    case catch unicode:characters_to_list(B) of
-        L when is_list(L) -> L;
-        _ -> binary_to_list(B)
-    end.
-
-make_options(, Options) ->
-    Options;
-make_options({chomp, Bool}|T, Options) when is_boolean(Bool) ->
-    make_options(T, Options#options{chomp=Bool}).
-
--ifdef(UNICODE_AS_BINARIES).
-uniconv(C) ->
-    unicode:characters_to_binary(C,unicode).
--else.
-uniconv(C) ->
-    C.
--endif.
-%% Default integer base
-base(none) ->
-    10;
-base(B) when is_integer(B) ->
-    B.
-
-%% term(TermList, Field, Adjust, Precision, PadChar)
-%%  Output the characters in a term.
-%%  Adjust the characters within the field if length less than Max padding
-%%  with PadChar.
-
-term(T, none, _Adj, none, _Pad) -> T;
-term(T, none, Adj, P, Pad) -> term(T, P, Adj, P, Pad);
-term(T, F, Adj, P0, Pad) ->
-    L = lists:flatlength(T),
-    P = case P0 of none -> erlang:min(L, F); _ -> P0 end,
-    if
-        L > P ->
-            adjust(chars($*, P), chars(Pad, F-P), Adj);
-        F >= P ->
-            adjust(T, chars(Pad, F-L), Adj)
-    end.
-
-%% fwrite_e(Float, Field, Adjust, Precision, PadChar)
-
-fwrite_e(Fl, none, Adj, none, Pad) -> %Default values
-    fwrite_e(Fl, none, Adj, 6, Pad);
-fwrite_e(Fl, none, _Adj, P, _Pad) when P >= 2 ->
-    float_e(Fl, float_data(Fl), P);
-fwrite_e(Fl, F, Adj, none, Pad) ->
-    fwrite_e(Fl, F, Adj, 6, Pad);
-fwrite_e(Fl, F, Adj, P, Pad) when P >= 2 ->
-    term(float_e(Fl, float_data(Fl), P), F, Adj, F, Pad).
-
-float_e(Fl, Fd, P) when Fl < 0.0 -> %Negative numbers
-    $-|float_e(-Fl, Fd, P);
-float_e(_Fl, {Ds,E}, P) ->
-    case float_man(Ds, 1, P-1) of
-        {$0|Fs,true} -> $1|Fs|float_exp(E);
-        {Fs,false} -> Fs|float_exp(E-1)
-    end.
-
-%% float_man(Digit, Icount, Dcount) -> {Chars,CarryFlag}.
-%%  Generate the characters in the mantissa from the digits with Icount
-%%  characters before the '.' and Dcount decimals. Handle carry and let
-%%  caller decide what to do at top.
-
-float_man(Ds, 0, Dc) ->
-    {Cs,C} = float_man(Ds, Dc),
-    {$.|Cs,C};
-float_man(D|Ds, I, Dc) ->
-    case float_man(Ds, I-1, Dc) of
-        {Cs,true} when D =:= $9 -> {$0|Cs,true};
-        {Cs,true} -> {D+1|Cs,false};
-        {Cs,false} -> {D|Cs,false}
-    end;
-float_man(, I, Dc) -> %Pad with 0's
-    {string:chars($0, I, $.|string:chars($0, Dc)),false}.
-
-float_man(D|_, 0) when D >= $5 -> {,true};
-float_man(_|_, 0) -> {,false};
-float_man(D|Ds, Dc) ->
-    case float_man(Ds, Dc-1) of
-        {Cs,true} when D =:= $9 -> {$0|Cs,true};
-        {Cs,true} -> {D+1|Cs,false}; 
-        {Cs,false} -> {D|Cs,false}
-    end;
-float_man(, Dc) -> {string:chars($0, Dc),false}. %Pad with 0's
-
-%% float_exp(Exponent) -> Char.
-%%  Generate the exponent of a floating point number. Always include sign.
-
-float_exp(E) when E >= 0 ->
-    $e,$+|integer_to_list(E);
-float_exp(E) ->
-    $e|integer_to_list(E).
-
-%% fwrite_f(FloatData, Field, Adjust, Precision, PadChar)
-
-fwrite_f(Fl, none, Adj, none, Pad) -> %Default values
-    fwrite_f(Fl, none, Adj, 6, Pad);
-fwrite_f(Fl, none, _Adj, P, _Pad) when P >= 1 ->
-    float_f(Fl, float_data(Fl), P);
-fwrite_f(Fl, F, Adj, none, Pad) ->
-    fwrite_f(Fl, F, Adj, 6, Pad);
-fwrite_f(Fl, F, Adj, P, Pad) when P >= 1 ->
-    term(float_f(Fl, float_data(Fl), P), F, Adj, F, Pad).
-
-float_f(Fl, Fd, P) when Fl < 0.0 ->
-    $-|float_f(-Fl, Fd, P);
-float_f(Fl, {Ds,E}, P) when E =< 0 ->
-    float_f(Fl, {string:chars($0, -E+1, Ds),1}, P); %Prepend enough 0's 
-float_f(_Fl, {Ds,E}, P) ->
-    case float_man(Ds, E, P) of
-        {Fs,true} -> "1" ++ Fs; %Handle carry
-        {Fs,false} -> Fs
-    end.
-
-%% float_data(FloatChar) -> {Digit,Exponent}
-
-float_data(Fl) ->
-    float_data(float_to_list(Fl), ).
-
-float_data($e|E, Ds) ->
-    {lists:reverse(Ds),list_to_integer(E)+1};
-float_data(D|Cs, Ds) when D >= $0, D =< $9 ->
-    float_data(Cs, D|Ds);
-float_data(_|Cs, Ds) ->
-    float_data(Cs, Ds).
-
-%% fwrite_g(Float, Field, Adjust, Precision, PadChar)
-%%  Use the f form if Float is >= 0.1 and < 1.0e4, 
-%%  and the prints correctly in the f form, else the e form.
-%%  Precision always means the # of significant digits.
-
-fwrite_g(Fl, F, Adj, none, Pad) ->
-    fwrite_g(Fl, F, Adj, 6, Pad);
-fwrite_g(Fl, F, Adj, P, Pad) when P >= 1 ->
-    A = abs(Fl),
-    E = if A < 1.0e-1 -> -2;
-        A < 1.0e0  -> -1;
-        A < 1.0e1  -> 0;
-        A < 1.0e2  -> 1;
-        A < 1.0e3  -> 2;
-        A < 1.0e4  -> 3;
-        true       -> fwrite_f
-    end,
-    if  P =< 1, E =:= -1;
-    P-1 > E, E >= -1 ->
-        fwrite_f(Fl, F, Adj, P-1-E, Pad);
-    P =< 1 ->
-        fwrite_e(Fl, F, Adj, 2, Pad);
-    true ->
-        fwrite_e(Fl, F, Adj, P, Pad)
-    end.
-
-
-%% string(String, Field, Adjust, Precision, PadChar)
-
-string(S, none, _Adj, none, _Pad) -> S;
-string(S, F, Adj, none, Pad) ->
-    string_field(S, F, Adj, lists:flatlength(S), Pad);
-string(S, none, _Adj, P, Pad) ->
-    string_field(S, P, left, lists:flatlength(S), Pad);
-string(S, F, Adj, P, Pad) when F >= P ->
-    N = lists:flatlength(S),
-    if F > P ->
-            if N > P ->
-                    adjust(flat_trunc(S, P), chars(Pad, F-P), Adj);
-                N < P ->
-                    adjust(S|chars(Pad, P-N), chars(Pad, F-P), Adj);
-                true -> % N == P
-                    adjust(S, chars(Pad, F-P), Adj)
-            end;
-       true -> % F == P
-        string_field(S, F, Adj, N, Pad)
-    end.
-
-string_field(S, F, _Adj, N, _Pad) when N > F ->
-    flat_trunc(S, F);
-string_field(S, F, Adj, N, Pad) when N < F ->
-    adjust(S, chars(Pad, F-N), Adj);
-string_field(S, _, _, _, _) -> % N == F
-    S.
-
-%% unprefixed_integer(Int, Field, Adjust, Base, PadChar, Lowercase)
-%% -> Char.
-
-unprefixed_integer(Int, F, Adj, Base, Pad, Lowercase)
-  when Base >= 2, Base =< 1+$Z-$A+10 ->
-    if Int < 0 ->
-            S = cond_lowercase(erlang:integer_to_list(-Int, Base), Lowercase),
-            term($-|S, F, Adj, none, Pad);
-       true ->
-        S = cond_lowercase(erlang:integer_to_list(Int, Base), Lowercase),
-        term(S, F, Adj, none, Pad)
-    end.
-
-%% prefixed_integer(Int, Field, Adjust, Base, PadChar, Prefix, Lowercase)
-%% -> Char.
-
-prefixed_integer(Int, F, Adj, Base, Pad, Prefix, Lowercase)
-  when Base >= 2, Base =< 1+$Z-$A+10 ->
-    if Int < 0 ->
-            S = cond_lowercase(erlang:integer_to_list(-Int, Base), Lowercase),
-            term($-,Prefix|S, F, Adj, none, Pad);
-       true ->
-        S = cond_lowercase(erlang:integer_to_list(Int, Base), Lowercase),
-        term(Prefix|S, F, Adj, none, Pad)
-    end.
-
-%% char(Char, Field, Adjust, Precision, PadChar) -> Char.
-
-char(C, none, _Adj, none, _Pad) -> C;
-char(C, F, _Adj, none, _Pad) -> chars(C, F);
-char(C, none, _Adj, P, _Pad) -> chars(C, P);
-char(C, F, Adj, P, Pad) when F >= P ->
-    adjust(chars(C, P), chars(Pad, F - P), Adj).
-
-%% newline(Field, Adjust, Precision, PadChar) -> Char.
-
-newline(none, _Adj, _P, _Pad) -> "\n";
-newline(F, right, _P, _Pad) -> chars($\n, F).
-
-%%
-%% Utilities
-%%
-
-adjust(Data, , _) -> Data;
-adjust(Data, Pad, left) -> Data|Pad;
-adjust(Data, Pad, right) -> Pad|Data.
-
-%% Flatten and truncate a deep list to at most N elements.
-flat_trunc(List, N) when is_integer(N), N >= 0 ->
-    flat_trunc(List, N, ).
-
-flat_trunc(L, 0, R) when is_list(L) ->
-    lists:reverse(R);
-flat_trunc(H|T, N, R) ->
-    flat_trunc(T, N-1, H|R);
-flat_trunc(, _, R) ->
-    lists:reverse(R).
-
-%% A deep version of string:chars/2,3
-
-chars(_C, 0) ->
-    ;
-chars(C, 1) ->
-    C;
-chars(C, 2) ->
-    C,C;
-chars(C, 3) ->
-    C,C,C;
-chars(C, N) when is_integer(N), (N band 1) =:= 0 ->
-    S = chars(C, N bsr 1),
-    S|S;
-chars(C, N) when is_integer(N) ->
-    S = chars(C, N bsr 1),
-    C,S|S.
-
-%chars(C, N, Tail) ->
-%    chars(C, N)|Tail.
-
-%% Lowercase conversion
-
-cond_lowercase(String, true) ->
-    lowercase(String);
-cond_lowercase(String,false) ->
-    String.
-
-lowercase(H|T) when is_integer(H), H >= $A, H =< $Z ->
-    (H-$A+$a)|lowercase(T);
-lowercase(H|T) ->
-    H|lowercase(T);
-lowercase() ->
-    .

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/src/lager_handler_watcher.erl Deleted

@@ -1,243 +0,0 @@
-%% Copyright (c) 2011-2012 Basho Technologies, Inc.  All Rights Reserved.
-%%
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-
-%% @doc A process that does a gen_event:add_sup_handler and attempts to re-add
-%% event handlers when they exit.
-
-%% @private
-
--module(lager_handler_watcher).
-
--behaviour(gen_server).
-
--include("lager.hrl").
-
--ifdef(TEST).
--include_lib("eunit/include/eunit.hrl").
--export(pop_until/2).
--endif.
-
-%% callbacks
--export(init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2,
-        code_change/3).
-
--export(start_link/3, start/3).
-
--record(state, {
-        module :: atom(),
-        config :: any(),
-        sink :: pid() | atom()
-    }).
-
-start_link(Sink, Module, Config) ->
-    gen_server:start_link(?MODULE, Sink, Module, Config, ).
-
-start(Sink, Module, Config) ->
-    gen_server:start(?MODULE, Sink, Module, Config, ).
-
-init(Sink, Module, Config) ->
-    process_flag(trap_exit, true),
-    install_handler(Sink, Module, Config),
-    {ok, #state{sink=Sink, module=Module, config=Config}}.
-
-handle_call(_Call, _From, State) ->
-    {reply, ok, State}.
-
-handle_cast(_Request, State) ->
-    {noreply, State}.
-
-handle_info({gen_event_EXIT, Module, normal}, #state{module=Module} = State) ->
-    {stop, normal, State};
-handle_info({gen_event_EXIT, Module, shutdown}, #state{module=Module} = State) ->
-    {stop, normal, State};
-handle_info({gen_event_EXIT, Module, {'EXIT', {kill_me, _KillerHWM, KillerReinstallAfter}}},
-        #state{module=Module, sink=Sink, config = Config} = State) ->
-    %% Brutally kill the manager but stay alive to restore settings.
-    %%
-    %% SinkPid here means the gen_event process. Handlers *all* live inside the
-    %% same gen_event process space, so when the Pid is killed, *all* of the 
-    %% pending log messages in its mailbox will die too.
-    SinkPid = whereis(Sink),
-    unlink(SinkPid),
-    {message_queue_len, Len} = process_info(SinkPid, message_queue_len),
-    error_logger:error_msg("Killing sink ~p, current message_queue_len:~p~n", Sink, Len),
-    exit(SinkPid, kill),
-    _ = timer:apply_after(KillerReinstallAfter, lager_app, start_handler, Sink, Module, Config),
-    {stop, normal, State};
-handle_info({gen_event_EXIT, Module, Reason}, #state{module=Module,
-        config=Config, sink=Sink} = State) ->
-    case lager:log(error, self(), "Lager event handler ~p exited with reason ~s",
-        Module, error_logger_lager_h:format_reason(Reason)) of
-      ok ->
-        install_handler(Sink, Module, Config);
-      {error, _} ->
-        %% lager is not working, so installing a handler won't work
-        ok
-    end,
-    {noreply, State};
-handle_info(reinstall_handler, #state{module=Module, config=Config, sink=Sink} = State) ->
-    install_handler(Sink, Module, Config),
-    {noreply, State};
-handle_info({reboot, Sink}, State) ->
-    _ = lager_app:boot(Sink),
-    {noreply, State};
-handle_info(stop, State) ->
-    {stop, normal, State};
-handle_info({'EXIT', _Pid, killed}, #state{module=Module, config=Config, sink=Sink} = State) ->
-    Tmr = application:get_env(lager, killer_reinstall_after, 5000),
-    _ = timer:apply_after(Tmr, lager_app, start_handler, Sink, Module, Config),
-    {stop, normal, State};
-handle_info(_Info, State) ->
-    {noreply, State}.
-
-terminate(_Reason, _State) ->
-    ok.
-
-code_change(_OldVsn, State, _Extra) ->
-    {ok, State}.
-
-%% internal
-install_handler(Sink, lager_backend_throttle, Config) ->
-    %% The lager_backend_throttle needs to know to which sink it is
-    %% attached, hence this admittedly ugly workaround. Handlers are
-    %% sensitive to the structure of the configuration sent to `init',
-    %% sadly, so it's not trivial to add a configuration item to be
-    %% ignored to backends without breaking 3rd party handlers.
-    install_handler2(Sink, lager_backend_throttle, {sink, Sink}|Config);
-install_handler(Sink, Module, Config) ->
-    install_handler2(Sink, Module, Config).
-
-%% private
-install_handler2(Sink, Module, Config) ->
-    case gen_event:add_sup_handler(Sink, Module, Config) of
-        ok ->
-            ?INT_LOG(debug, "Lager installed handler ~p into ~p", Module, Sink),
-            lager:update_loglevel_config(Sink),
-            ok;
-        {error, {fatal, Reason}} ->
-            ?INT_LOG(error, "Lager fatally failed to install handler ~p into"
-                " ~p, NOT retrying: ~p", Module, Sink, Reason),
-            %% tell ourselves to stop
-            self() ! stop,
-            ok;
-        Error ->
-            %% try to reinstall it later
-            ?INT_LOG(error, "Lager failed to install handler ~p into"
-               " ~p, retrying later : ~p", Module, Sink, Error),
-            erlang:send_after(5000, self(), reinstall_handler),
-            ok
-    end.
-
--ifdef(TEST).
-
-from_now(Seconds) ->
-    {Mega, Secs, Micro} = os:timestamp(),
-    {Mega, Secs + Seconds, Micro}.
-
-reinstall_on_initial_failure_test_() ->
-    {timeout, 60000,
-        
-            fun() ->
-                    error_logger:tty(false),
-                    application:load(lager),
-                    application:set_env(lager, handlers, {lager_test_backend, info}, {lager_crash_backend, from_now(2), undefined}),
-                    application:set_env(lager, error_logger_redirect, false),
-                    application:unset_env(lager, crash_log),
-                    lager:start(),
-                    try
-                      {_Level, _Time, Message, _Metadata} = lager_test_backend:pop(),
-                      ?assertMatch("Lager failed to install handler lager_crash_backend into lager_event, retrying later :"++_, lists:flatten(Message)),
-                      timer:sleep(6000),
-                      lager_test_backend:flush(),
-                      ?assertEqual(0, lager_test_backend:count()),
-                      ?assert(lists:member(lager_crash_backend, gen_event:which_handlers(lager_event)))
-                    after
-                      application:stop(lager),
-                      application:stop(goldrush),
-                      error_logger:tty(true)
-                    end
-            end
-        
-    }.
-
-reinstall_on_runtime_failure_test_() ->
-    {timeout, 60000,
-        
-            fun() ->
-                    error_logger:tty(false),
-                    application:load(lager),
-                    application:set_env(lager, handlers, {lager_test_backend, info}, {lager_crash_backend, undefined, from_now(5)}),
-                    application:set_env(lager, error_logger_redirect, false),
-                    application:unset_env(lager, crash_log),
-                    lager:start(),
-                    try
-                        ?assert(lists:member(lager_crash_backend, gen_event:which_handlers(lager_event))),
-                        timer:sleep(6000),
-
-                        pop_until("Lager event handler lager_crash_backend exited with reason crash", fun lists:flatten/1),
-                        pop_until("Lager failed to install handler lager_crash_backend into lager_event, retrying later",
-                                  fun(Msg) -> string:substr(lists:flatten(Msg), 1, 84) end),
-                        ?assertEqual(false, lists:member(lager_crash_backend, gen_event:which_handlers(lager_event)))
-                    after
-                       application:stop(lager),
-                       application:stop(goldrush),
-                       error_logger:tty(true)
-                   end
-            end
-        
-    }.
-
-reinstall_handlers_after_killer_hwm_test_() ->
-    {timeout, 60000,
-        
-            fun() ->
-                error_logger:tty(false),
-                application:load(lager),
-                application:set_env(lager, handlers, {lager_manager_killer, 1000, 5000}),
-                application:set_env(lager, error_logger_redirect, false),
-                application:set_env(lager, killer_reinstall_after, 5000),
-                application:unset_env(lager, crash_log),
-                lager:start(),
-                lager:trace_file("foo", {foo, "bar"}, error),
-                L = length(gen_event:which_handlers(lager_event)),
-                try
-                    lager_manager_killer:kill_me(),
-                    timer:sleep(6000),
-                    ?assertEqual(L, length(gen_event:which_handlers(lager_event))),
-                    file:delete("foo")
-                after
-                    application:stop(lager),
-                    application:stop(goldrush),
-                    error_logger:tty(true)
-                end
-            end
-        
-    }.
-
-pop_until(String, Fun) ->
-    try_backend_pop(lager_test_backend:pop(), String, Fun).
-
-try_backend_pop(undefined, String, _Fun) ->
-    throw("Not found: " ++ String);
-try_backend_pop({_Severity, _Date, Msg, _Metadata}, String, Fun) ->
-    case Fun(Msg) of
-        String ->
-            ok;
-        _ ->
-            try_backend_pop(lager_test_backend:pop(), String, Fun)
-    end.
-
--endif.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/src/lager_handler_watcher_sup.erl Deleted

@@ -1,39 +0,0 @@
-%% Copyright (c) 2011-2012 Basho Technologies, Inc.  All Rights Reserved.
-%%
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-
-%% @doc A supervisor for monitoring lager_handler_watcher processes.
-
-%% @private
-
--module(lager_handler_watcher_sup).
-
--behaviour(supervisor).
-
-%% API
--export(start_link/0).
-
-%% Callbacks
--export(init/1).
-
-start_link() ->
-    supervisor:start_link({local, ?MODULE}, ?MODULE, ).
-
-init() ->
-    {ok, {{simple_one_for_one, 10, 60},
-            
-                {lager_handler_watcher, {lager_handler_watcher, start_link, },
-                        temporary, 5000, worker, lager_handler_watcher}
-                }}.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/src/lager_manager_killer.erl Deleted

@@ -1,53 +0,0 @@
--module(lager_manager_killer).
--author("Sungjin Park <jinni.park@gmail.com>").
--behavior(gen_event).
-
--export(init/1, handle_event/2, handle_call/2, handle_info/2, terminate/2, code_change/3).
-
--export(kill_me/0).
-
--include("lager.hrl").
-
--record(state, {
-          killer_hwm :: non_neg_integer(),
-          killer_reinstall_after :: non_neg_integer()
-         }).
-
-kill_me() ->
-    gen_event:call(lager_event, ?MODULE, kill_self).
-
-init(KillerHWM, KillerReinstallAfter) ->
-    {ok, #state{killer_hwm=KillerHWM, killer_reinstall_after=KillerReinstallAfter}}.
-
-handle_call(get_loglevel, State) ->
-    {ok, {mask, ?LOG_NONE}, State};
-handle_call({set_loglevel, _Level}, State) ->
-    {ok, ok, State};
-handle_call(get_settings, State = #state{killer_hwm=KillerHWM, killer_reinstall_after=KillerReinstallAfter}) ->
-    {ok, KillerHWM, KillerReinstallAfter, State};
-handle_call(kill_self, #state{killer_hwm=KillerHWM, killer_reinstall_after=KillerReinstallAfter}) ->
-    exit({kill_me, KillerHWM, KillerReinstallAfter});
-handle_call(_Request, State) ->
-    {ok, ok, State}.
-%% It's not the best idea in the world to check the queue length for every
-%% log message.  We can make this operation work on a poll timer in the
-%% future.
-handle_event({log, _Message}, State = #state{killer_hwm=KillerHWM, killer_reinstall_after=KillerReinstallAfter}) ->
-    {message_queue_len, Len} = process_info(self(), message_queue_len),
-    case Len > KillerHWM of
-        true ->
-            exit({kill_me, KillerHWM, KillerReinstallAfter});
-        _ ->
-            {ok, State}
-    end;
-handle_event(_Event, State) ->
-    {ok, State}.
-
-handle_info(_Info, State) ->
-    {ok, State}.
-
-terminate(_Reason, _State) ->
-    ok.
-
-code_change(_OldVsn, State, _Extra) ->
-    {ok, State}.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/src/lager_msg.erl Deleted

@@ -1,64 +0,0 @@
--module(lager_msg).
-
--export(new/4, new/5).
--export(message/1).
--export(timestamp/1).
--export(datetime/1).
--export(severity/1).
--export(severity_as_int/1).
--export(metadata/1).
--export(destinations/1).
-
--record(lager_msg,{
-        destinations :: list(),
-        metadata :: tuple(),
-        severity :: lager:log_level(),
-        datetime :: {string(), string()},
-        timestamp :: erlang:timestamp(),
-        message :: list()
-    }).
-
--opaque lager_msg() :: #lager_msg{}.
--export_type(lager_msg/0).
-
-%% create with provided timestamp, handy for testing mostly
--spec new(list(), erlang:timestamp(), lager:log_level(), tuple(), list()) -> lager_msg().
-new(Msg, Timestamp, Severity, Metadata, Destinations) ->
-    {Date, Time} = lager_util:format_time(lager_util:maybe_utc(lager_util:localtime_ms(Timestamp))),
-    #lager_msg{message=Msg, datetime={Date, Time}, timestamp=Timestamp, severity=Severity,
-        metadata=Metadata, destinations=Destinations}.
-
--spec new(list(), lager:log_level(), tuple(), list()) -> lager_msg().
-new(Msg, Severity, Metadata, Destinations) ->
-    Now = os:timestamp(),
-    new(Msg, Now, Severity, Metadata, Destinations).
-
--spec message(lager_msg()) -> list().
-message(Msg) ->
-    Msg#lager_msg.message.
-
--spec timestamp(lager_msg()) -> erlang:timestamp().
-timestamp(Msg) ->
-    Msg#lager_msg.timestamp.
-
--spec datetime(lager_msg()) -> {string(), string()}.
-datetime(Msg) ->
-    Msg#lager_msg.datetime.
-
--spec severity(lager_msg()) -> lager:log_level().
-severity(Msg) ->
-    Msg#lager_msg.severity.
-
--spec severity_as_int(lager_msg()) -> lager:log_level_number().
-severity_as_int(Msg) ->
-    lager_util:level_to_num(Msg#lager_msg.severity).
-
--spec metadata(lager_msg()) -> tuple().
-metadata(Msg) ->
-    Msg#lager_msg.metadata.
-
--spec destinations(lager_msg()) -> list().
-destinations(Msg) ->
-    Msg#lager_msg.destinations.
-
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/src/lager_rotator_behaviour.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/src/lager_rotator_default.erl Deleted

@@ -1,197 +0,0 @@
--module(lager_rotator_default).
-
--include_lib("kernel/include/file.hrl").
-
--behaviour(lager_rotator_behaviour).
-
--export(
-    create_logfile/2, open_logfile/2, ensure_logfile/5, rotate_logfile/2
-).
-
--ifdef(TEST).
--include_lib("eunit/include/eunit.hrl").
--endif.
-
-create_logfile(Name, Buffer) ->
-    open_logfile(Name, Buffer).
-
-open_logfile(Name, Buffer) ->
-    case filelib:ensure_dir(Name) of
-        ok ->
-            Options = append, raw ++
-            case Buffer of
-                {Size0, Interval} when is_integer(Interval), Interval >= 0, is_integer(Size0), Size0 >= 0 ->
-                    {delayed_write, Size0, Interval};
-                _ -> 
-            end,
-            case file:open(Name, Options) of
-                {ok, FD} ->
-                    case file:read_file_info(Name, raw) of
-                        {ok, FInfo0} ->
-                            Inode = FInfo0#file_info.inode,
-                            {ok, Ctime} = maybe_update_ctime(Name, FInfo0),
-                            Size1 = FInfo0#file_info.size,
-                            {ok, {FD, Inode, Ctime, Size1}};
-                        X -> X
-                    end;
-                Y -> Y
-            end;
-        Z -> Z
-    end.
-
-ensure_logfile(Name, undefined, _Inode, _Ctime, Buffer) ->
-    open_logfile(Name, Buffer);
-ensure_logfile(Name, FD, Inode0, Ctime0, Buffer) ->
-    case lager_util:has_file_changed(Name, Inode0, Ctime0) of
-        {true, _FInfo} ->
-            reopen_logfile(Name, FD, Buffer);
-        {_, FInfo} ->
-            {ok, {FD, Inode0, Ctime0, FInfo#file_info.size}}
-    end.
-
-reopen_logfile(Name, FD0, Buffer) ->
-    %% Flush and close any file handles.
-    %% delayed write can cause file:close not to do a close
-    _ = file:datasync(FD0),
-    _ = file:close(FD0),
-    _ = file:close(FD0),
-    case open_logfile(Name, Buffer) of
-        {ok, {_FD1, _Inode, _Size, _Ctime}=FileInfo} ->
-            %% inode changed, file was probably moved and
-            %% recreated
-            {ok, FileInfo};
-        Error ->
-            Error
-    end.
-
-%% renames failing are OK
-rotate_logfile(File, 0) ->
-    %% open the file in write-only mode to truncate/create it
-    case file:open(File, write) of
-        {ok, FD} ->
-            _ = file:close(FD),
-            _ = file:close(FD),
-            {ok, _Ctime} = maybe_update_ctime(File),
-            ok;
-        Error ->
-            Error
-    end;
-rotate_logfile(File0, 1) ->
-    File1 = File0 ++ ".0",
-    _ = file:rename(File0, File1),
-    rotate_logfile(File0, 0);
-rotate_logfile(File0, Count) ->
-    File1 = File0 ++ "." ++ integer_to_list(Count - 2),
-    File2 = File0 ++ "." ++ integer_to_list(Count - 1),
-    _ = file:rename(File1, File2),
-    rotate_logfile(File0, Count - 1).
-
-maybe_update_ctime(Name) ->
-    case file:read_file_info(Name, raw) of
-        {ok, FInfo} ->
-            maybe_update_ctime(Name, FInfo);
-        _ ->
-            {ok, calendar:local_time()}
-    end.
-
-maybe_update_ctime(Name, FInfo) ->
-    {OsType, _} = os:type(),
-    do_update_ctime(OsType, Name, FInfo).
-
-do_update_ctime(win32, Name, FInfo0) ->
-    % Note: we force the creation time to be the current time.
-    % On win32 this may prevent the ctime from being updated:
-    % https://stackoverflow.com/q/8804342/1466825
-    NewCtime = calendar:local_time(),
-    FInfo1 = FInfo0#file_info{ctime = NewCtime},
-    ok = file:write_file_info(Name, FInfo1, raw),
-    {ok, NewCtime};
-do_update_ctime(_, _Name, FInfo) ->
-    {ok, FInfo#file_info.ctime}.
-
--ifdef(TEST).
-
-rotate_file_test() ->
-    RotCount = 10,
-    {ok, TestDir} = lager_util:create_test_dir(),
-    TestLog = filename:join(TestDir, "rotation.log"),
-    Outer = fun(N) ->
-        ?assertEqual(ok, lager_util:safe_write_file(TestLog, erlang:integer_to_list(N))),
-        Inner = fun(M) ->
-            File = lists:flatten(TestLog, $., erlang:integer_to_list(M)),
-            ?assert(filelib:is_regular(File)),
-            %% check the expected value is in the file
-            Number = erlang:list_to_binary(integer_to_list(N - M - 1)),
-            ?assertEqual({ok, Number}, file:read_file(File))
-        end,
-        Count = erlang:min(N, RotCount),
-        % The first time through, Count == 0, so the sequence is empty,
-        % effectively skipping the inner loop so a rotation can occur that
-        % creates the file that Inner looks for.
-        % Don't shoot the messenger, it was worse before this refactoring.
-        lists:foreach(Inner, lists:seq(0, Count-1)),
-        rotate_logfile(TestLog, RotCount)
-    end,
-    lists:foreach(Outer, lists:seq(0, (RotCount * 2))),
-    lager_util:delete_test_dir(TestDir).
-
-rotate_file_zero_count_test() ->
-    %% Test that a rotation count of 0 simply truncates the file
-    {ok, TestDir} = lager_util:create_test_dir(),
-    TestLog = filename:join(TestDir, "rotation.log"),
-    ?assertMatch(ok, rotate_logfile(TestLog, 0)),
-    ?assertNot(filelib:is_regular(TestLog ++ ".0")),
-    ?assertEqual(true, filelib:is_regular(TestLog)),
-    ?assertEqual(1, length(filelib:wildcard(TestLog++"*"))),
-    %% assert the new file is 0 size:
-    case file:read_file_info(TestLog, raw) of
-        {ok, FInfo} ->
-            ?assertEqual(0, FInfo#file_info.size);
-        _ ->
-            ?assert(false)
-    end,
-    lager_util:delete_test_dir(TestDir).
-
-rotate_file_fail_test() ->
-    {ok, TestDir} = lager_util:create_test_dir(),
-    TestLog = filename:join(TestDir, "rotation.log"),
-
-    %% set known permissions on it
-    ok = lager_util:set_dir_permissions("u+rwx", TestDir),
-
-    %% write a file
-    ?assertEqual(ok, lager_util:safe_write_file(TestLog, "hello")),
-
-    case os:type() of
-        {win32, _} -> ok;
-        _ ->
-            %% hose up the permissions
-            ok = lager_util:set_dir_permissions("u-w", TestDir),
-            ?assertMatch({error, _}, rotate_logfile(TestLog, 10))
-    end,
-
-    %% check we still only have one file, rotation.log
-    ?assertEqual(TestLog, filelib:wildcard(TestLog++"*")),
-    ?assert(filelib:is_regular(TestLog)),
-
-    %% fix the permissions
-    ok = lager_util:set_dir_permissions("u+w", TestDir),
-
-    ?assertMatch(ok, rotate_logfile(TestLog, 10)),
-    ?assert(filelib:is_regular(TestLog ++ ".0")),
-    ?assertEqual(true, filelib:is_regular(TestLog)),
-    ?assertEqual(2, length(filelib:wildcard(TestLog++"*"))),
-
-    %% assert the new file is 0 size:
-    case file:read_file_info(TestLog, raw) of
-        {ok, FInfo} ->
-            ?assertEqual(0, FInfo#file_info.size);
-        _ ->
-            ?assert(false)
-    end,
-
-    %% check that the .0 file now has the contents "hello"
-    ?assertEqual({ok, <<"hello">>}, file:read_file(TestLog++".0")),
-    lager_util:delete_test_dir(TestDir).
-
--endif.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/src/lager_stdlib.erl Deleted

@@ -1,502 +0,0 @@
-%%
-%% %CopyrightBegin%
-%% 
-%% Copyright Ericsson AB 1996-2009. All Rights Reserved.
-%% 
-%% The contents of this file are subject to the Erlang Public License,
-%% Version 1.1, (the "License"); you may not use this file except in
-%% compliance with the License. You should have received a copy of the
-%% Erlang Public License along with this software. If not, it can be
-%% retrieved online at http://www.erlang.org/.
-%% 
-%% Software distributed under the License is distributed on an "AS IS"
-%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
-%% the License for the specific language governing rights and limitations
-%% under the License.
-%% 
-%% %CopyrightEnd%
-%%
-
-%% @doc Functions from Erlang OTP distribution that are really useful
-%% but aren't exported.
-%%
-%% All functions in this module are covered by the Erlang/OTP source
-%% distribution's license, the Erlang Public License.  See
-%% http://www.erlang.org/ for full details.
-
--module(lager_stdlib).
-
--export(string_p/1).
--export(write_time/2, maybe_utc/1).
--export(is_my_error_report/1, is_my_info_report/1).
--export(sup_get/2).
--export(proc_lib_format/2).
-
-
-%% from error_logger_file_h
-string_p() ->
-    false;
-string_p(Term) ->
-    string_p1(Term).
-
-string_p1(H|T) when is_integer(H), H >= $\s, H < 256 ->
-    string_p1(T);
-string_p1($\n|T) -> string_p1(T);
-string_p1($\r|T) -> string_p1(T);
-string_p1($\t|T) -> string_p1(T);
-string_p1($\v|T) -> string_p1(T);
-string_p1($\b|T) -> string_p1(T);
-string_p1($\f|T) -> string_p1(T);
-string_p1($\e|T) -> string_p1(T);
-string_p1(H|T) when is_list(H) ->
-    case string_p1(H) of
-        true -> string_p1(T);
-        _    -> false
-    end;
-string_p1() -> true;
-string_p1(_) ->  false.
-
-%% From calendar
--type year1970() :: 1970..10000.  % should probably be 1970..
--type month()    :: 1..12.
--type day()      :: 1..31.
--type hour()     :: 0..23.
--type minute()   :: 0..59.
--type second()   :: 0..59.
--type t_time()         :: {hour(),minute(),second()}.
--type t_datetime1970() :: {{year1970(),month(),day()},t_time()}.
-
-%% From OTP stdlib's error_logger_tty_h.erl ... These functions aren't
-%% exported.
--spec write_time({utc, t_datetime1970()} | t_datetime1970(), string()) -> string().
-write_time({utc,{{Y,Mo,D},{H,Mi,S}}},Type) ->
-    io_lib:format("~n=~s==== ~p-~s-~p::~s:~s:~s UTC ===~n",
-                  Type,D,month(Mo),Y,t(H),t(Mi),t(S));
-write_time({{Y,Mo,D},{H,Mi,S}},Type) ->
-    io_lib:format("~n=~s==== ~p-~s-~p::~s:~s:~s ===~n",
-                  Type,D,month(Mo),Y,t(H),t(Mi),t(S)).
-
--spec maybe_utc(t_datetime1970()) -> {utc, t_datetime1970()} | t_datetime1970().
-maybe_utc(Time) ->
-    UTC = case application:get_env(sasl, utc_log) of
-        {ok, Val} ->
-            Val;
-        undefined ->
-            %% Backwards compatible:
-            application:get_env(stdlib, utc_log, false)
-    end,
-    if
-        UTC =:= true ->
-            UTCTime = case calendar:local_time_to_universal_time_dst(Time) of
-                     -> calendar:local_time();
-                T0|_ -> T0
-            end,
-            {utc, UTCTime};
-        true -> 
-            Time
-    end.
-
-t(X) when is_integer(X) ->
-    t1(integer_to_list(X));
-t(_) ->
-    "".
-t1(X) -> $0,X;
-t1(X)   -> X.
-
-month(1) -> "Jan";
-month(2) -> "Feb";
-month(3) -> "Mar";
-month(4) -> "Apr";
-month(5) -> "May";
-month(6) -> "Jun";
-month(7) -> "Jul";
-month(8) -> "Aug";
-month(9) -> "Sep";
-month(10) -> "Oct";
-month(11) -> "Nov";
-month(12) -> "Dec".
-
-%% From OTP sasl's sasl_report.erl ... These functions aren't
-%% exported.
--spec is_my_error_report(atom()) -> boolean().
-is_my_error_report(supervisor_report)   -> true;
-is_my_error_report(crash_report)        -> true;
-is_my_error_report(_)                   -> false.
-
--spec is_my_info_report(atom()) -> boolean().
-is_my_info_report(progress)  -> true;
-is_my_info_report(_)         -> false.
-
--spec sup_get(term(), proplists:property()) -> term().
-sup_get(Tag, Report) ->
-    case lists:keysearch(Tag, 1, Report) of
-        {value, {_, Value}} ->
-            Value;
-        _ ->
-            ""
-    end.
-
-%% From OTP stdlib's proc_lib.erl ... These functions aren't exported.
--spec proc_lib_format(term(), pos_integer()) -> string().
-proc_lib_format(OwnReport,LinkReport, FmtMaxBytes) ->
-    OwnFormat = format_report(OwnReport, FmtMaxBytes),
-    LinkFormat = format_report(LinkReport, FmtMaxBytes),
-    %% io_lib:format here is OK because we're limiting max length elsewhere.
-    Str = io_lib:format("  crasher:~n~s  neighbours:~n~s",OwnFormat,LinkFormat),
-    lists:flatten(Str).
-
-format_report(Rep, FmtMaxBytes) when is_list(Rep) ->
-    format_rep(Rep, FmtMaxBytes);
-format_report(Rep, FmtMaxBytes) ->
-    {Str, _} = lager_trunc_io:print(Rep, FmtMaxBytes),
-    io_lib:format("~p~n", Str).
-
-format_rep({initial_call,InitialCall}|Rep, FmtMaxBytes) ->
-    format_mfa(InitialCall, FmtMaxBytes)|format_rep(Rep, FmtMaxBytes);
-format_rep({error_info,{Class,Reason,StackTrace}}|Rep, FmtMaxBytes) ->
-    format_exception(Class, Reason, StackTrace, FmtMaxBytes)|format_rep(Rep, FmtMaxBytes);
-format_rep({Tag,Data}|Rep, FmtMaxBytes) ->
-    format_tag(Tag, Data, FmtMaxBytes)|format_rep(Rep, FmtMaxBytes);
-format_rep(_, _S) ->
-    .
-
-format_exception(Class, Reason, StackTrace, FmtMaxBytes) ->
-    PF = pp_fun(FmtMaxBytes),
-    StackFun = fun(M, _F, _A) -> (M =:= erl_eval) or (M =:= ?MODULE) end,
-    %% EI = "    exception: ",
-    EI = "    ",
-    EI, lib_format_exception(1+length(EI), Class, Reason, 
-                              StackTrace, StackFun, PF), "\n".
-
-format_mfa({M,F,Args}=StartF, FmtMaxBytes) ->
-    try
-        A = length(Args),
-        "    initial call: ",atom_to_list(M),$:,atom_to_list(F),$/,
-         integer_to_list(A),"\n"
-    catch
-        error:_ ->
-            format_tag(initial_call, StartF, FmtMaxBytes)
-    end.
-
-pp_fun(FmtMaxBytes) ->
-    fun(Term, _I) -> 
-            {Str, _} = lager_trunc_io:print(Term, FmtMaxBytes),
-            io_lib:format("~s", Str) 
-    end.
-
-format_tag(Tag, Data, FmtMaxBytes) ->
-    {Str, _} = lager_trunc_io:print(Data, FmtMaxBytes),
-    io_lib:format("    ~p: ~s~n", Tag, Str).
-
-%% From OTP stdlib's lib.erl ... These functions aren't exported.
-
-lib_format_exception(I, Class, Reason, StackTrace, StackFun, FormatFun) 
-            when is_integer(I), I >= 1, is_function(StackFun, 3), 
-                 is_function(FormatFun, 2) ->
-    Str = n_spaces(I-1),
-    {Term,Trace1,Trace} = analyze_exception(Class, Reason, StackTrace),
-    Expl0 = explain_reason(Term, Class, Trace1, FormatFun, Str),
-    Expl = io_lib:fwrite(<<"~s~s">>, exited(Class), Expl0),
-    case format_stacktrace1(Str, Trace, FormatFun, StackFun) of
-         -> Expl;
-        Stack -> Expl, $\n, Stack
-    end.
-
-analyze_exception(error, Term, Stack) ->
-    case {is_stacktrace(Stack), Stack, Term} of
-        {true, {_M,_F,As}=MFA|MFAs, function_clause} when is_list(As) -> 
-            {Term,MFA,MFAs};
-        {true, {shell,F,A}, function_clause} when is_integer(A) ->
-            {Term, {F,A}, };
-        {true, {_M,_F,_AorAs}=MFA|MFAs, undef} ->
-            {Term,MFA,MFAs};
-        {true, _, _} ->
-            {Term,,Stack};
-        {false, _, _} ->
-            {{Term,Stack},,}
-    end;
-analyze_exception(_Class, Term, Stack) ->
-    case is_stacktrace(Stack) of
-        true ->
-            {Term,,Stack};
-        false ->
-            {{Term,Stack},,}
-    end.
-
-is_stacktrace() ->
-    true;
-is_stacktrace({M,F,A}|Fs) when is_atom(M), is_atom(F), is_integer(A) ->
-    is_stacktrace(Fs);
-is_stacktrace({M,F,As}|Fs) when is_atom(M), is_atom(F), length(As) >= 0 ->
-    is_stacktrace(Fs);
-is_stacktrace(_) ->
-    false.
-
-%% ERTS exit codes (some of them are also returned by erl_eval):
-explain_reason(badarg, error, , _PF, _Str) ->
-    <<"bad argument">>;
-explain_reason({badarg,V}, error=Cl, , PF, Str) -> % orelse, andalso
-    format_value(V, <<"bad argument: ">>, Cl, PF, Str);
-explain_reason(badarith, error, , _PF, _Str) ->
-    <<"bad argument in an arithmetic expression">>;
-explain_reason({badarity,{Fun,As}}, error, , _PF, _Str) 
-                                      when is_function(Fun) ->
-    %% Only the arity is displayed, not the arguments As.
-    io_lib:fwrite(<<"~s called with ~s">>, 
-                  format_fun(Fun), argss(length(As)));
-explain_reason({badfun,Term}, error=Cl, , PF, Str) ->
-    format_value(Term, <<"bad function ">>, Cl, PF, Str);
-explain_reason({badmatch,Term}, error=Cl, , PF, Str) ->
-    format_value(Term, <<"no match of right hand side value ">>, Cl, PF, Str);
-explain_reason({case_clause,V}, error=Cl, , PF, Str) ->
-    %% "there is no case clause with a true guard sequence and a
-    %% pattern matching..."
-    format_value(V, <<"no case clause matching ">>, Cl, PF, Str);
-explain_reason(function_clause, error, {F,A}, _PF, _Str) ->
-    %% Shell commands
-    FAs = io_lib:fwrite(<<"~w/~w">>, F, A),
-    <<"no function clause matching call to ">> | FAs;
-explain_reason(function_clause, error=Cl, {M,F,As}, PF, Str) ->
-    String = <<"no function clause matching ">>,
-    format_errstr_call(String, Cl, {M,F}, As, PF, Str);
-explain_reason(if_clause, error, , _PF, _Str) ->
-    <<"no true branch found when evaluating an if expression">>;
-explain_reason(noproc, error, , _PF, _Str) ->
-    <<"no such process or port">>;
-explain_reason(notalive, error, , _PF, _Str) ->
-    <<"the node cannot be part of a distributed system">>;
-explain_reason(system_limit, error, , _PF, _Str) ->
-    <<"a system limit has been reached">>;
-explain_reason(timeout_value, error, , _PF, _Str) ->
-    <<"bad receive timeout value">>;
-explain_reason({try_clause,V}, error=Cl, , PF, Str) ->
-    %% "there is no try clause with a true guard sequence and a
-    %% pattern matching..."
-    format_value(V, <<"no try clause matching ">>, Cl, PF, Str);
-explain_reason(undef, error, {M,F,A}, _PF, _Str) ->
-    %% Only the arity is displayed, not the arguments, if there are any.
-    io_lib:fwrite(<<"undefined function ~s">>, 
-                  mfa_to_string(M, F, n_args(A)));
-explain_reason({shell_undef,F,A}, error, , _PF, _Str) ->
-    %% Give nicer reports for undefined shell functions
-    %% (but not when the user actively calls shell_default:F(...)).
-    io_lib:fwrite(<<"undefined shell command ~s/~w">>, F, n_args(A));
-%% Exit codes returned by erl_eval only:
-explain_reason({argument_limit,_Fun}, error, , _PF, _Str) ->
-    io_lib:fwrite(<<"limit of number of arguments to interpreted function"
-                    " exceeded">>, );
-explain_reason({bad_filter,V}, error=Cl, , PF, Str) ->
-    format_value(V, <<"bad filter ">>, Cl, PF, Str);
-explain_reason({bad_generator,V}, error=Cl, , PF, Str) ->
-    format_value(V, <<"bad generator ">>, Cl, PF, Str);
-explain_reason({unbound,V}, error, , _PF, _Str) ->
-    io_lib:fwrite(<<"variable ~w is unbound">>, V);
-%% Exit codes local to the shell module (restricted shell):
-explain_reason({restricted_shell_bad_return, V}, exit=Cl, , PF, Str) ->
-    String = <<"restricted shell module returned bad value ">>,
-    format_value(V, String, Cl, PF, Str);
-explain_reason({restricted_shell_disallowed,{ForMF,As}}, 
-               exit=Cl, , PF, Str) ->
-    %% ForMF can be a fun, but not a shell fun.
-    String = <<"restricted shell does not allow ">>,
-    format_errstr_call(String, Cl, ForMF, As, PF, Str);
-explain_reason(restricted_shell_started, exit, , _PF, _Str) ->
-    <<"restricted shell starts now">>;
-explain_reason(restricted_shell_stopped, exit, , _PF, _Str) ->
-    <<"restricted shell stopped">>;
-%% Other exit code:
-explain_reason(Reason, Class, , PF, Str) ->
-    PF(Reason, (iolist_size(Str)+1) + exited_size(Class)).
-
-n_spaces(N) ->
-    lists:duplicate(N, $\s).
-
-exited_size(Class) ->
-    iolist_size(exited(Class)).
-
-exited(error) ->
-    <<"exception error: ">>;
-exited(exit) ->
-    <<"exception exit: ">>;
-exited(throw) ->
-    <<"exception throw: ">>.
-
-format_stacktrace1(S0, Stack0, PF, SF) ->
-    Stack1 = lists:dropwhile(fun({M,F,A}) -> SF(M, F, A)
-                             end, lists:reverse(Stack0)),
-    S = "  " | S0,
-    Stack = lists:reverse(Stack1),
-    format_stacktrace2(S, Stack, 1, PF).
-
-format_stacktrace2(S, {M,F,A}|Fs, N, PF) when is_integer(A) ->
-    io_lib:fwrite(<<"~s~s ~s">>, 
-                   sep(N, S), origin(N, M, F, A), mfa_to_string(M, F, A))
-     | format_stacktrace2(S, Fs, N + 1, PF);
-format_stacktrace2(S, {M,F,As}|Fs, N, PF) when is_list(As) ->
-    A = length(As),
-    CalledAs = S,<<"   called as ">>,
-    C = format_call("", CalledAs, {M,F}, As, PF),
-    io_lib:fwrite(<<"~s~s ~s\n~s~s">>,
-                   sep(N, S), origin(N, M, F, A), mfa_to_string(M, F, A),
-                    CalledAs, C)
-     | format_stacktrace2(S, Fs, N + 1, PF);
-format_stacktrace2(_S, , _N, _PF) ->
-    "".
-
-argss(0) ->
-    <<"no arguments">>;
-argss(1) ->
-    <<"one argument">>;
-argss(2) ->
-    <<"two arguments">>;
-argss(I) ->
-    io_lib:fwrite(<<"~w arguments">>, I).
-
-format_value(V, ErrStr, Class, PF, Str) ->
-    Pre1Sz = exited_size(Class),
-    Str1 = PF(V, Pre1Sz + iolist_size(Str, ErrStr)+1),
-    ErrStr | case count_nl(Str1) of
-                  N1 when N1 > 1 ->
-                      Str2 = PF(V, iolist_size(Str) + 1 + Pre1Sz),
-                      case count_nl(Str2) < N1 of
-                          true ->
-                              $\n, Str, n_spaces(Pre1Sz) | Str2;
-                          false ->
-                              Str1
-                      end;
-                  _ ->
-                      Str1
-              end.
-
-format_fun(Fun) when is_function(Fun) ->
-    {module, M} = erlang:fun_info(Fun, module),
-    {name, F} = erlang:fun_info(Fun, name),
-    {arity, A} = erlang:fun_info(Fun, arity),
-    case erlang:fun_info(Fun, type) of
-        {type, local} when F =:= "" ->
-            io_lib:fwrite(<<"~w">>, Fun);
-        {type, local} when M =:= erl_eval ->
-            io_lib:fwrite(<<"interpreted function with arity ~w">>, A);
-        {type, local} ->
-            mfa_to_string(M, F, A);
-        {type, external} ->
-            mfa_to_string(M, F, A)
-    end.
-
-format_errstr_call(ErrStr, Class, ForMForFun, As, PF, Pre0) ->
-    Pre1 = Pre0 | n_spaces(exited_size(Class)),
-    format_call(ErrStr, Pre1, ForMForFun, As, PF).
-
-format_call(ErrStr, Pre1, ForMForFun, As, PF) ->
-    Arity = length(As),
-    ErrStr |
-     case is_op(ForMForFun, Arity) of
-         {yes,Op} -> 
-             format_op(ErrStr, Pre1, Op, As, PF);
-         no ->
-             MFs = mf_to_string(ForMForFun, Arity),
-             I1 = iolist_size(Pre1,ErrStr|MFs),
-             S1 = pp_arguments(PF, As, I1),
-             S2 = pp_arguments(PF, As, iolist_size(Pre1|MFs)),
-             Long = count_nl(pp_arguments(PF, a2345,b2345, I1)) > 0,
-             case Long or (count_nl(S2) < count_nl(S1)) of
-                 true ->
-                     $\n, Pre1, MFs, S2;
-                 false ->
-                     MFs, S1
-             end
-    end.
-
-mfa_to_string(M, F, A) ->
-    io_lib:fwrite(<<"~s/~w">>, mf_to_string({M, F}, A), A).
-
-mf_to_string({M, F}, A) ->
-    case erl_internal:bif(M, F, A) of
-        true ->
-            io_lib:fwrite(<<"~w">>, F);
-        false ->
-            case is_op({M, F}, A) of
-                {yes, '/'} ->
-                    io_lib:fwrite(<<"~w">>, F);
-                {yes, F} ->
-                    atom_to_list(F);
-                no ->
-                    io_lib:fwrite(<<"~w:~w">>, M, F)
-            end
-    end;
-mf_to_string(Fun, _A) when is_function(Fun) ->
-    format_fun(Fun);
-mf_to_string(F, _A) ->
-    io_lib:fwrite(<<"~w">>, F).
-
-n_args(A) when is_integer(A) ->
-    A;
-n_args(As) when is_list(As) ->
-    length(As).
-
-origin(1, M, F, A) ->
-    case is_op({M, F}, n_args(A)) of
-        {yes, F} -> <<"in operator ">>;
-        no -> <<"in function ">>
-    end;
-origin(_N, _M, _F, _A) ->
-    <<"in call from">>.
-
-sep(1, S) -> S;
-sep(_, S) -> $\n | S.
-
-count_nl(E | Es) ->
-    count_nl(E) + count_nl(Es);
-count_nl($\n) ->
-    1;
-count_nl(Bin) when is_binary(Bin) ->
-    count_nl(binary_to_list(Bin));
-count_nl(_) ->
-    0.
-
-is_op(ForMForFun, A) ->
-    try 
-        {erlang,F} = ForMForFun,
-        _ = erl_internal:op_type(F, A), 
-        {yes,F}
-    catch error:_ -> no
-    end.
-
-format_op(ErrStr, Pre, Op, A1, A2, PF) ->
-    I1 = iolist_size(ErrStr,Pre),
-    S1 = PF(A1, I1+1),
-    S2 = PF(A2, I1+1),
-    OpS = atom_to_list(Op),
-    Pre1 = $\n | n_spaces(I1),
-    case count_nl(S1) > 0 of
-        true -> 
-            S1,Pre1,OpS,Pre1|S2;
-        false ->
-            OpS2 = io_lib:fwrite(<<" ~s ">>, Op),
-            S2_2 = PF(A2, iolist_size(ErrStr,Pre,S1|OpS2)+1),
-            case count_nl(S2) < count_nl(S2_2) of
-                true ->
-                    S1,Pre1,OpS,Pre1|S2;
-                false ->
-                    S1,OpS2|S2_2
-            end
-    end.
-
-pp_arguments(PF, As, I) ->
-    case {As, io_lib:printable_list(As)} of
-        {Int | T, true} ->
-            L = integer_to_list(Int),
-            Ll = length(L),
-            A = list_to_atom(lists:duplicate(Ll, $a)),
-            S0 = binary_to_list(iolist_to_binary(PF(A | T, I+1))),
-            brackets_to_parens($,L,string:sub_string(S0, 2+Ll));
-        _ -> 
-            brackets_to_parens(PF(As, I+1))
-    end.
-
-brackets_to_parens(S) ->
-    B = iolist_to_binary(S),
-    Sz = byte_size(B) - 2,
-    <<$,R:Sz/binary,$>> = B,
-    $(,R,$).
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/src/lager_sup.erl Deleted

@@ -1,92 +0,0 @@
-%% Copyright (c) 2011-2012 Basho Technologies, Inc.  All Rights Reserved.
-%%
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-
-%% @doc Lager's top level supervisor.
-
-%% @private
-
--module(lager_sup).
-
--behaviour(supervisor).
-
-%% API
--export(start_link/0).
-
-%% Callbacks
--export(init/1).
-
-start_link() ->
-    supervisor:start_link({local, ?MODULE}, ?MODULE, ).
-
-init() ->
-    %% set up the config, is safe even during relups
-    lager_config:new(),
-    %% TODO:
-    %% Always start lager_event as the default and make sure that
-    %% other gen_event stuff can start up as needed
-    %%
-    %% Maybe a new API to handle the sink and its policy?
-    Children = 
-        {lager, {gen_event, start_link, {local, lager_event}},
-            permanent, 5000, worker, dynamic},
-        {lager_handler_watcher_sup, {lager_handler_watcher_sup, start_link, },
-            permanent, 5000, supervisor, lager_handler_watcher_sup},
-
-    CrashLog = decide_crash_log(application:get_env(lager, crash_log, false)),
-
-    {ok, {{one_for_one, 10, 60},
-          Children ++ CrashLog
-         }}.
-
-validate_positive({ok, Val}, _Default) when is_integer(Val) andalso Val >= 0 ->
-    Val;
-validate_positive(_Val, Default) ->
-    Default.
-
-determine_rotation_date({ok, ""}) ->
-    undefined;
-determine_rotation_date({ok, Val3}) ->
-    case lager_util:parse_rotation_date_spec(Val3) of
-        {ok, Spec} -> Spec;
-        {error, _} ->
-            error_logger:error_msg("Invalid date spec for "
-                                   "crash log ~p~n", Val3),
-            undefined
-    end;
-determine_rotation_date(_) ->
-    undefined.
-
-determine_rotator_mod({ok, Mod}, _Default) when is_atom(Mod) ->
-    Mod;
-determine_rotator_mod(_, Default) ->
-    Default.
-
-decide_crash_log(undefined) ->
-    ;
-decide_crash_log(false) ->
-    ;
-decide_crash_log(File) ->
-    MaxBytes = validate_positive(application:get_env(lager, crash_log_msg_size), 65536),
-    RotationSize = validate_positive(application:get_env(lager, crash_log_size), 0),
-    RotationCount = validate_positive(application:get_env(lager, crash_log_count), 0),
-
-    RotationDate = determine_rotation_date(application:get_env(lager, crash_log_date)),
-    RotationMod = determine_rotator_mod(application:get_env(lager, crash_log_rotator), lager_rotator_default),
-
-
-    {lager_crash_log, {lager_crash_log, start_link, File, MaxBytes,
-                                                      RotationSize, RotationDate, RotationCount, RotationMod},
-      permanent, 5000, worker, lager_crash_log}.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/src/lager_transform.erl Deleted

@@ -1,339 +0,0 @@
-%% Copyright (c) 2011-2012 Basho Technologies, Inc.  All Rights Reserved.
-%%
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-
-%% @doc The parse transform used for lager messages.
-%% This parse transform rewrites functions calls to lager:Severity/1,2 into
-%% a more complicated function that captures module, function, line, pid and
-%% time as well. The entire function call is then wrapped in a case that
-%% checks the lager_config 'loglevel' value, so the code isn't executed if
-%% nothing wishes to consume the message.
-
--module(lager_transform).
-
--include("lager.hrl").
-
--export(parse_transform/2).
-
-%% @private
-parse_transform(AST, Options) ->
-    TruncSize = proplists:get_value(lager_truncation_size, Options, ?DEFAULT_TRUNCATION),
-    Enable = proplists:get_value(lager_print_records_flag, Options, true),
-    Sinks = lager ++ proplists:get_value(lager_extra_sinks, Options, ),
-    Functions = proplists:get_value(lager_function_transforms, Options, ),
-    put(print_records_flag, Enable),
-    put(truncation_size, TruncSize),
-    put(sinks, Sinks),
-    put(functions, lists:keysort(1, Functions)),
-    erlang:put(records, ),
-    %% .app file should either be in the outdir, or the same dir as the source file
-    guess_application(proplists:get_value(outdir, Options), hd(AST)),
-    walk_ast(, AST).
-
-walk_ast(Acc, ) ->
-    case get(print_records_flag) of
-        true ->
-            insert_record_attribute(Acc);
-        false ->
-            lists:reverse(Acc)
-    end;
-walk_ast(Acc, {attribute, _, module, {Module, _PmodArgs}}=H|T) ->
-    %% A wild parameterized module appears!
-    put(module, Module),
-    walk_ast(H|Acc, T);
-walk_ast(Acc, {attribute, _, module, Module}=H|T) ->
-    put(module, Module),
-    walk_ast(H|Acc, T);
-walk_ast(Acc, {attribute, _, lager_function_transforms, FromModule }=H|T) ->
-    %% Merge transform options from the module over the compile options
-    FromOptions = get(functions),
-    put(functions, orddict:merge(fun(_Key, _V1, V2) -> V2 end, FromOptions, lists:keysort(1, FromModule))),
-    walk_ast(H|Acc, T);
-walk_ast(Acc, {function, Line, Name, Arity, Clauses}|T) ->
-    put(function, Name),
-    walk_ast({function, Line, Name, Arity,
-                walk_clauses(, Clauses)}|Acc, T);
-walk_ast(Acc, {attribute, _, record, {Name, Fields}}=H|T) ->
-    FieldNames = lists:map(fun record_field_name/1, Fields),
-    stash_record({Name, FieldNames}),
-    walk_ast(H|Acc, T);
-walk_ast(Acc, H|T) ->
-    walk_ast(H|Acc, T).
-
-record_field_name({record_field, _, {atom, _, FieldName}}) ->
-    FieldName;
-record_field_name({record_field, _, {atom, _, FieldName}, _Default}) ->
-    FieldName;
-record_field_name({typed_record_field, Field, _Type}) ->
-    record_field_name(Field).
-
-walk_clauses(Acc, ) ->
-    lists:reverse(Acc);
-walk_clauses(Acc, {clause, Line, Arguments, Guards, Body}|T) ->
-    walk_clauses({clause, Line, Arguments, Guards, walk_body(, Body)}|Acc, T).
-
-walk_body(Acc, ) ->
-    lists:reverse(Acc);
-walk_body(Acc, H|T) ->
-    walk_body(transform_statement(H, get(sinks))|Acc, T).
-
-transform_statement({call, Line, {remote, _Line1, {atom, _Line2, Module},
-                                  {atom, _Line3, Function}}, Arguments0} = Stmt,
-                    Sinks) ->
-    case lists:member(Module, Sinks) of
-        true ->
-            case lists:member(Function, ?LEVELS) of
-                true ->
-                    SinkName = lager_util:make_internal_sink_name(Module),
-                    do_transform(Line, SinkName, Function, Arguments0);
-                false ->
-                    case lists:keyfind(Function, 1, ?LEVELS_UNSAFE) of
-                        {Function, Severity} ->
-                            SinkName = lager_util:make_internal_sink_name(Module),
-                            do_transform(Line, SinkName, Severity, Arguments0, unsafe);
-                        false ->
-                            Stmt
-                    end
-            end;
-        false ->
-            list_to_tuple(transform_statement(tuple_to_list(Stmt), Sinks))
-    end;
-transform_statement(Stmt, Sinks) when is_tuple(Stmt) ->
-    list_to_tuple(transform_statement(tuple_to_list(Stmt), Sinks));
-transform_statement(Stmt, Sinks) when is_list(Stmt) ->
-    transform_statement(S, Sinks) || S <- Stmt;
-transform_statement(Stmt, _Sinks) ->
-    Stmt.
-
-
-add_function_transforms(_Line, DefaultAttrs, ) ->
-    DefaultAttrs;
-add_function_transforms(Line, DefaultAttrs, {Atom, on_emit, {Module, Function}}|Remainder) ->
-    NewFunction = {tuple, Line, 
-                            {atom, Line, Atom},
-                            {'fun', Line, {
-                              function, {atom, Line, Module}, {atom, Line, Function}, {integer, Line, 0}
-                            }}
-                          },
-    add_function_transforms(Line, {cons, Line, NewFunction, DefaultAttrs}, Remainder);
-add_function_transforms(Line, DefaultAttrs, {Atom, on_log, {Module, Function}}|Remainder) ->
-    NewFunction = {tuple, Line, 
-                            {atom, Line, Atom},
-                            {call, Line, {remote, Line, {atom, Line, Module}, {atom, Line, Function}}, }
-                          },
-    add_function_transforms(Line, {cons, Line, NewFunction, DefaultAttrs}, Remainder).
-
-
-do_transform(Line, SinkName, Severity, Arguments0) ->
-    do_transform(Line, SinkName, Severity, Arguments0, safe).
-
-do_transform(Line, SinkName, Severity, Arguments0, Safety) ->
-    SeverityAsInt=lager_util:level_to_num(Severity),
-    DefaultAttrs0 = {cons, Line, {tuple, Line, 
-                                                {atom, Line, module}, {atom, Line, get(module)}},
-                     {cons, Line, {tuple, Line, 
-                                                 {atom, Line, function}, {atom, Line, get(function)}},
-                      {cons, Line, {tuple, Line, 
-                                                  {atom, Line, line},
-                                                  {integer, Line, Line}},
-                       {cons, Line, {tuple, Line, 
-                                                   {atom, Line, pid},
-                                                   {call, Line, {atom, Line, pid_to_list}, 
-                                                                                            {call, Line, {atom, Line ,self}, }}},
-                        {cons, Line, {tuple, Line, 
-                                                    {atom, Line, node},
-                                                    {call, Line, {atom, Line, node}, }},
-                         %% get the metadata with lager:md(), this will always return a list so we can use it as the tail here
-                         {call, Line, {remote, Line, {atom, Line, lager}, {atom, Line, md}}, }}}}}},
-                                                %{nil, Line}}}}}}},
-    Functions = get(functions),
-    DefaultAttrs1 = add_function_transforms(Line, DefaultAttrs0, Functions),
-    DefaultAttrs = case erlang:get(application) of
-                       undefined ->
-                           DefaultAttrs1;
-                       App ->
-                           %% stick the application in the attribute list
-                           concat_lists({cons, Line, {tuple, Line, 
-                                                                    {atom, Line, application},
-                                                                    {atom, Line, App}},
-                                         {nil, Line}}, DefaultAttrs1)
-                   end,
-    {Meta, Message, Arguments} = handle_args(DefaultAttrs, Line, Arguments0),
-    %% Generate some unique variable names so we don't accidentally export from case clauses.
-    %% Note that these are not actual atoms, but the AST treats variable names as atoms.
-    LevelVar = make_varname("__Level", Line),
-    TracesVar = make_varname("__Traces", Line),
-    PidVar = make_varname("__Pid", Line),
-    LogFun = case Safety of
-                 safe ->
-                     do_log;
-                 unsafe ->
-                     do_log_unsafe
-             end,
-    %% Wrap the call to lager:dispatch_log/6 in case that will avoid doing any work if this message is not elegible for logging
-    %% See lager.erl (lines 89-100) for lager:dispatch_log/6
-    %% case {whereis(Sink), whereis(?DEFAULT_SINK), lager_config:get({Sink, loglevel}, {?LOG_NONE, })} of
-    {'case',Line,
-         {tuple,Line,
-                {call,Line,{atom,Line,whereis},{atom,Line,SinkName}},
-                 {call,Line,{atom,Line,whereis},{atom,Line,?DEFAULT_SINK}}, 
-                 {call,Line,
-                       {remote,Line,{atom,Line,lager_config},{atom,Line,get}},
-                       {tuple,Line,{atom,Line,SinkName},{atom,Line,loglevel}},
-                        {tuple,Line,{integer,Line,0},{nil,Line}}}},
-         %% {undefined, undefined, _} -> {error, lager_not_running};
-         {clause,Line,
-                  {tuple,Line,
-                          {atom,Line,undefined},{atom,Line,undefined},{var,Line,'_'}},
-                  ,
-                  %% trick the linter into avoiding a 'term constructed but not used' error:
-                  %% (fun() -> {error, lager_not_running} end)()
-                  {call, Line, {'fun', Line, {clauses, {clause, Line, ,, {tuple, Line, {atom, Line, error},{atom, Line, lager_not_running}}}}}, }
-          },
-          %% {undefined, _, _} -> {error, {sink_not_configured, Sink}};
-          {clause,Line,
-                  {tuple,Line,
-                          {atom,Line,undefined},{var,Line,'_'},{var,Line,'_'}},
-                  ,
-                  %% same trick as above to avoid linter error
-                  {call, Line, {'fun', Line, {clauses, {clause, Line, ,, {tuple,Line, {atom,Line,error}, {tuple,Line,{atom,Line,sink_not_configured},{atom,Line,SinkName}}}}}}, } 
-          },
-          %% {SinkPid, _, {Level, Traces}} when ... -> lager:do_log/9;
-          {clause,Line,
-                  {tuple,Line,
-                          {var,Line,PidVar},
-                           {var,Line,'_'},
-                           {tuple,Line,{var,Line,LevelVar},{var,Line,TracesVar}}},
-                  {op, Line, 'orelse',
-                    {op, Line, '/=', {op, Line, 'band', {var, Line, LevelVar}, {integer, Line, SeverityAsInt}}, {integer, Line, 0}},
-                    {op, Line, '/=', {var, Line, TracesVar}, {nil, Line}}},
-                  {call,Line,{remote, Line, {atom, Line, lager}, {atom, Line, LogFun}},
-                         {atom,Line,Severity},
-                          Meta,
-                          Message,
-                          Arguments,
-                          {integer, Line, get(truncation_size)},
-                          {integer, Line, SeverityAsInt},
-                          {var, Line, LevelVar},
-                          {var, Line, TracesVar},
-                          {atom, Line, SinkName},
-                          {var, Line, PidVar}}},
-          %% _ -> ok
-          {clause,Line,{var,Line,'_'},,{atom,Line,ok}}}.
- 
-handle_args(DefaultAttrs, Line, {cons, LineNum, {tuple, _, _}, _} = Attrs) ->
-    {concat_lists(DefaultAttrs, Attrs), {string, LineNum, ""}, {atom, Line, none}};
-handle_args(DefaultAttrs, Line, Format) ->
-    {DefaultAttrs, Format, {atom, Line, none}};
-handle_args(DefaultAttrs, Line, Arg1, Arg2) ->
-    %% some ambiguity here, figure out if these arguments are
-    %% Format, Args or Attr, Format.
-    %% The trace attributes will be a list of tuples, so check
-    %% for that.
-    case {element(1, Arg1), Arg1} of
-        {_, {cons, _, {tuple, _, _}, _}} ->
-            {concat_lists(Arg1, DefaultAttrs),
-             Arg2, {atom, Line, none}};
-        {Type, _} when Type == var;
-                       Type == lc;
-                       Type == call;
-                       Type == record_field ->
-            %% crap, its not a literal. look at the second
-            %% argument to see if it is a string
-            case Arg2 of
-                {string, _, _} ->
-                    {concat_lists(Arg1, DefaultAttrs),
-                     Arg2, {atom, Line, none}};
-                _ ->
-                    %% not a string, going to have to guess
-                    %% it's the argument list
-                    {DefaultAttrs, Arg1, Arg2}
-            end;
-        _ ->
-            {DefaultAttrs, Arg1, Arg2}
-    end;
-handle_args(DefaultAttrs, _Line, Attrs, Format, Args) ->
-    {concat_lists(Attrs, DefaultAttrs), Format, Args}.
-
-make_varname(Prefix, CallAnno) ->
-    list_to_atom(Prefix ++ atom_to_list(get(module)) ++ integer_to_list(erl_anno:line(CallAnno))).
-
-%% concat 2 list ASTs by replacing the terminating  in A with the contents of B
-concat_lists({var, Line, _Name}=Var, B) ->
-    %% concatenating a var with a cons
-    {call, Line, {remote, Line, {atom, Line, lists},{atom, Line, flatten}},
-        {cons, Line, Var, B}};
-concat_lists({lc, Line, _Body, _Generator} = LC, B) ->
-    %% concatenating a LC with a cons
-    {call, Line, {remote, Line, {atom, Line, lists},{atom, Line, flatten}},
-        {cons, Line, LC, B}};
-concat_lists({call, Line, _Function, _Args} = Call, B) ->
-    %% concatenating a call with a cons
-    {call, Line, {remote, Line, {atom, Line, lists},{atom, Line, flatten}},
-        {cons, Line, Call, B}};
-concat_lists({record_field, Line, _Var, _Record, _Field} = Rec, B) ->
-    %% concatenating a record_field with a cons
-    {call, Line, {remote, Line, {atom, Line, lists},{atom, Line, flatten}},
-        {cons, Line, Rec, B}};
-concat_lists({nil, _Line}, B) ->
-    B;
-concat_lists({cons, Line, Element, Tail}, B) ->
-    {cons, Line, Element, concat_lists(Tail, B)}.
-
-stash_record(Record) ->
-    Records = case erlang:get(records) of
-        undefined ->
-            ;
-        R ->
-            R
-    end,
-    erlang:put(records, Record|Records).
-
-insert_record_attribute(AST) ->
-    lists:foldl(fun({attribute, Line, module, _}=E, Acc) ->
-                E, {attribute, Line, lager_records, erlang:get(records)}|Acc;
-            (E, Acc) ->
-                E|Acc
-        end, , AST).
-
-guess_application(Dirname, Attr) when Dirname /= undefined ->
-    case find_app_file(Dirname) of
-        no_idea ->
-            %% try it based on source file directory (app.src most likely)
-            guess_application(undefined, Attr);
-        _ ->
-            ok
-    end;
-guess_application(undefined, {attribute, _, file, {Filename, _}}) ->
-    Dir = filename:dirname(Filename),
-    find_app_file(Dir);
-guess_application(_, _) ->
-    ok.
-
-find_app_file(Dir) ->
-    case filelib:wildcard(Dir++"/*.{app,app.src}") of
-         ->
-            no_idea;
-        File ->
-            case file:consult(File) of
-                {ok, {application, Appname, _Attributes}|_} ->
-                    erlang:put(application, Appname);
-                _ ->
-                    no_idea
-            end;
-        _ ->
-            %% multiple files, uh oh
-            no_idea
-    end.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/src/lager_trunc_io.erl Deleted

@@ -1,878 +0,0 @@
-%% ``The contents of this file are subject to the Erlang Public License,
-%% Version 1.1, (the "License"); you may not use this file except in
-%% compliance with the License. You should have received a copy of the
-%% Erlang Public License along with your Erlang distribution. If not, it can be
-%% retrieved via the world wide web at http://www.erlang.org/.
-%%
-%% Software distributed under the License is distributed on an "AS IS"
-%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
-%% the License for the specific language governing rights and limitations
-%% under the License.
-%%
-%% The Initial Developer of the Original Code is Corelatus AB.
-%% Portions created by Corelatus are Copyright 2003, Corelatus
-%% AB. All Rights Reserved.''
-%%
-%% @doc Module to print out terms for logging. Limits by length rather than depth.
-%%
-%% The resulting string may be slightly larger than the limit; the intention
-%% is to provide predictable CPU and memory consumption for formatting
-%% terms, not produce precise string lengths.
-%%
-%% Typical use:
-%%
-%%   trunc_io:print(Term, 500).
-%%
-%% Source license: Erlang Public License.
-%% Original author: Matthias Lang, <tt>matthias@corelatus.se</tt>
-%%
-%% Various changes to this module, most notably the format/3 implementation
-%% were added by Andrew Thompson `<andrew@basho.com>'. The module has been renamed
-%% to avoid conflicts with the vanilla module.
-
--module(lager_trunc_io).
--author('matthias@corelatus.se').
-%% And thanks to Chris Newcombe for a bug fix
--export(format/3, format/4, print/2, print/3, fprint/2, fprint/3, safe/2). % interface functions
--version("$Id: trunc_io.erl,v 1.11 2009-02-23 12:01:06 matthias Exp $").
-
--ifdef(TEST).
--export(perf/0, perf/3, perf1/0, test/0, test/2). % testing functions
--include_lib("eunit/include/eunit.hrl").
--endif.
-
--type option() :: {'depth', integer()}
-    | {'lists_as_strings', boolean()}
-    | {'force_strings', boolean()}.
--type options() :: option().
-
--record(print_options, {
-        %% negative depth means no depth limiting
-        depth = -1 :: integer(),
-        %% whether to print lists as strings, if possible
-        lists_as_strings = true :: boolean(),
-        %% force strings, or binaries to be printed as a string,
-        %% even if they're not printable
-        force_strings = false :: boolean()
-    }).
-
-format(Fmt, Args, Max) ->
-    format(Fmt, Args, Max, ).
-
-format(Fmt, Args, Max, Options) ->
-    try lager_format:format(Fmt, Args, Max, Options)
-    catch
-        _What:_Why ->
-            erlang:error(badarg, Fmt, Args)
-    end.
-
-%% @doc Returns an flattened list containing the ASCII representation of the given
-%% term.
--spec fprint(term(), pos_integer()) -> string().
-fprint(Term, Max) ->
-    fprint(Term, Max, ).
-
-
-%% @doc Returns an flattened list containing the ASCII representation of the given
-%% term.
--spec fprint(term(), pos_integer(), options()) -> string().
-fprint(T, Max, Options) ->
-    {L, _} = print(T, Max, prepare_options(Options, #print_options{})),
-    lists:flatten(L).
-
-%% @doc Same as print, but never crashes.
-%%
-%% This is a tradeoff. Print might conceivably crash if it's asked to
-%% print something it doesn't understand, for example some new data
-%% type in a future version of Erlang. If print crashes, we fall back
-%% to io_lib to format the term, but then the formatting is
-%% depth-limited instead of length limited, so you might run out
-%% memory printing it. Out of the frying pan and into the fire.
-%%
--spec safe(term(), pos_integer()) -> {string(), pos_integer()} | {string()}.
-safe(What, Len) ->
-    case catch print(What, Len) of
-        {L, Used} when is_list(L) -> {L, Used};
-        _ -> {"unable to print" ++ io_lib:write(What, 99)}
-    end.
-
-%% @doc Returns {List, Length}
--spec print(term(), pos_integer()) -> {iolist(), pos_integer()}.
-print(Term, Max) ->
-    print(Term, Max, ).
-
-%% @doc Returns {List, Length}
--spec print(term(), pos_integer(), options() | #print_options{}) -> {iolist(), pos_integer()}.
-print(Term, Max, Options) when is_list(Options) ->
-    %% need to convert the proplist to a record
-    print(Term, Max, prepare_options(Options, #print_options{}));
-
-print(Term, _Max, #print_options{force_strings=true}) when not is_list(Term), not is_binary(Term), not is_atom(Term) ->
-    erlang:error(badarg);
-
-print(_, Max, _Options) when Max < 0 -> {"...", 3};
-print(_, _, #print_options{depth=0}) -> {"...", 3};
-
-
-%% @doc We assume atoms, floats, funs, integers, PIDs, ports and refs never need
-%% to be truncated. This isn't strictly true, someone could make an
-%% arbitrarily long bignum. Let's assume that won't happen unless someone
-%% is being malicious.
-%%
-print(Atom, _Max, #print_options{force_strings=NoQuote}) when is_atom(Atom) ->
-    L = atom_to_list(Atom),
-    R = case atom_needs_quoting_start(L) andalso not NoQuote of
-        true -> lists:flatten($', L, $');
-        false -> L
-    end,
-    {R, length(R)};
-
-print(<<>>, _Max, #print_options{depth=1}) ->
-    {"<<>>", 4};
-print(Bin, _Max, #print_options{depth=1}) when is_binary(Bin) ->
-    {"<<...>>", 7};
-print(<<>>, _Max, Options) ->
-    case Options#print_options.force_strings of
-        true ->
-            {"", 0};
-        false ->
-            {"<<>>", 4}
-    end;
-
-print(Binary, 0, _Options) when is_bitstring(Binary) ->
-    {"<<..>>", 6};
-
-print(Bin, Max, _Options) when is_binary(Bin), Max < 2 ->
-    {"<<...>>", 7};
-print(Binary, Max, Options) when is_binary(Binary) ->
-    B = binary_to_list(Binary, 1, lists:min(Max, byte_size(Binary))),
-    {Res, Length} = case Options#print_options.lists_as_strings orelse
-        Options#print_options.force_strings of
-        true ->
-            Depth = Options#print_options.depth,
-            MaxSize = (Depth - 1) * 4,
-            %% check if we need to truncate based on depth
-            In = case Depth > -1 andalso MaxSize < length(B) andalso
-                not Options#print_options.force_strings of
-                true ->
-                    string:substr(B, 1, MaxSize);
-                false -> B
-            end,
-            MaxLen = case Options#print_options.force_strings of
-                true ->
-                    Max;
-                false ->
-                    %% make room for the leading doublequote
-                    Max - 1
-            end,
-            try alist(In, MaxLen, Options) of
-                {L0, Len0} ->
-                    case Options#print_options.force_strings of
-                        false ->
-                            case B /= In of
-                                true ->
-                                    {$", L0, "...", Len0+4};
-                                false ->
-                                    {$"|L0, Len0+1}
-                            end;
-                        true ->
-                            {L0, Len0}
-                    end
-            catch
-                throw:{unprintable, C} ->
-                    Index = string:chr(In, C),
-                    case Index > 1 andalso Options#print_options.depth =< Index andalso
-                        Options#print_options.depth > -1 andalso
-                          not Options#print_options.force_strings of
-                        true ->
-                            %% print first Index-1 characters followed by ...
-                            {L0, Len0} = alist_start(string:substr(In, 1, Index - 1), Max - 1, Options),
-                            {L0++"...", Len0+3};
-                        false ->
-                            list_body(In, Max-4, dec_depth(Options), true)
-                    end
-            end;
-        _ ->
-            list_body(B, Max-4, dec_depth(Options), true)
-    end,
-    case Options#print_options.force_strings of
-        true ->
-            {Res, Length};
-        _ ->
-            {"<<", Res, ">>", Length+4}
-    end;
-
-%% bitstrings are binary's evil brother who doesn't end on an 8 bit boundary.
-%% This makes printing them extremely annoying, so list_body/list_bodyc has
-%% some magic for dealing with the output of bitstring_to_list, which returns
-%% a list of integers (as expected) but with a trailing binary that represents
-%% the remaining bits.
-print({inline_bitstring, B}, _Max, _Options) when is_bitstring(B) ->
-    Size = bit_size(B),
-    <<Value:Size>> = B,
-    ValueStr = integer_to_list(Value),
-    SizeStr = integer_to_list(Size),
-    {ValueStr, $:, SizeStr, length(ValueStr) + length(SizeStr) +1};
-print(BitString, Max, Options) when is_bitstring(BitString) ->
-    BL = case byte_size(BitString) > Max of
-        true ->
-            binary_to_list(BitString, 1, Max);
-        _ ->
-            R = erlang:bitstring_to_list(BitString),
-            {Bytes, Bits} = lists:splitwith(fun erlang:is_integer/1, R),
-            %% tag the trailing bits with a special tuple we catch when
-            %% list_body calls print again
-            Bytes ++ {inline_bitstring, Bits}
-    end,
-    {X, Len0} = list_body(BL, Max - 4, dec_depth(Options), true),
-    {"<<", X, ">>", Len0 + 4};
-
-print(Float, _Max, _Options) when is_float(Float) ->
-    %% use the same function io_lib:format uses to print floats
-    %% float_to_list is way too verbose.
-    L = io_lib_format:fwrite_g(Float),
-    {L, length(L)};
-
-print(Fun, Max, _Options) when is_function(Fun) ->
-    L = erlang:fun_to_list(Fun),
-    case length(L) > Max of
-        true ->
-            S = erlang:max(5, Max),
-            Res = string:substr(L, 1, S) ++ "..>",
-            {Res, length(Res)};
-        _ ->
-            {L, length(L)}
-    end;
-
-print(Integer, _Max, _Options) when is_integer(Integer) ->
-    L = integer_to_list(Integer),
-    {L, length(L)};
-
-print(Pid, _Max, _Options) when is_pid(Pid) ->
-    L = pid_to_list(Pid),
-    {L, length(L)};
-
-print(Ref, _Max, _Options) when is_reference(Ref) ->
-    L = erlang:ref_to_list(Ref),
-    {L, length(L)};
-
-print(Port, _Max, _Options) when is_port(Port) ->
-    L = erlang:port_to_list(Port),
-    {L, length(L)};
-
-print({'$lager_record', Name, Fields}, Max, Options) ->
-    Leader = "#" ++ atom_to_list(Name) ++ "{",
-    {RC, Len} = record_fields(Fields, Max - length(Leader) + 1, dec_depth(Options)),
-    {Leader, RC, "}", Len + length(Leader) + 1};
-
-print(Tuple, Max, Options) when is_tuple(Tuple) ->
-    {TC, Len} = tuple_contents(Tuple, Max-2, Options),
-    {${, TC, $}, Len + 2};
-
-print(List, Max, Options) when is_list(List) ->
-    case Options#print_options.lists_as_strings orelse
-        Options#print_options.force_strings of
-        true ->
-            alist_start(List, Max, dec_depth(Options));
-        _ ->
-            {R, Len} = list_body(List, Max - 2, dec_depth(Options), false),
-            {$, R, $, Len + 2}
-    end;
-
-print(Map, Max, Options) when is_map(Map) ->
-    {MapBody, Len} = map_body(Map, Max - 3, dec_depth(Options)),
-    {$#, ${, MapBody, $}, Len + 3};
-
-print(Term, Max, Options) ->
-    error(badarg, Term, Max, Options).
-
-%% Returns {List, Length}
-tuple_contents(Tuple, Max, Options) ->
-    L = tuple_to_list(Tuple),
-    list_body(L, Max, dec_depth(Options), true).
-
-%% Format the inside of a list, i.e. do not add a leading  or trailing .
-%% Returns {List, Length}
-list_body(, _Max, _Options, _Tuple) -> {, 0};
-list_body(_, Max, _Options, _Tuple) when Max < 4 -> {"...", 3};
-list_body(_, _Max, #print_options{depth=0}, _Tuple) -> {"...", 3};
-list_body(H, Max, Options=#print_options{depth=1}, _Tuple) ->
-    print(H, Max, Options);
-list_body(H|_, Max, Options=#print_options{depth=1}, Tuple) ->
-    {List, Len} = print(H, Max-4, Options),
-    Sep = case Tuple of
-        true -> $,;
-        false -> $|
-    end,
-    {List ++ Sep | "...", Len + 4};
-list_body(H|T, Max, Options, Tuple) ->
-    {List, Len} = print(H, Max, Options),
-    {Final, FLen} = list_bodyc(T, Max - Len, Options, Tuple),
-    {List|Final, FLen + Len};
-list_body(X, Max, Options, _Tuple) ->  %% improper list
-    {List, Len} = print(X, Max - 1, Options),
-    {$|,List, Len + 1}.
-
-list_bodyc(, _Max, _Options, _Tuple) -> {, 0};
-list_bodyc(_, Max, _Options, _Tuple) when Max < 5 -> {",...", 4};
-list_bodyc(_, _Max, #print_options{depth=1}, true) -> {",...", 4};
-list_bodyc(_, _Max, #print_options{depth=1}, false) -> {"|...", 4};
-list_bodyc(H|T, Max, #print_options{depth=Depth} = Options, Tuple) ->
-    {List, Len} = print(H, Max, dec_depth(Options)),
-    {Final, FLen} = list_bodyc(T, Max - Len - 1, dec_depth(Options), Tuple),
-    Sep = case Depth == 1 andalso not Tuple of
-        true -> $|;
-        _ -> $,
-    end,
-    {Sep, List|Final, FLen + Len + 1};
-list_bodyc(X, Max, Options, _Tuple) ->  %% improper list
-    {List, Len} = print(X, Max - 1, Options),
-    {$|,List, Len + 1}.
-
-map_body(Map, Max, #print_options{depth=Depth}) when Max < 4; Depth =:= 0 ->
-    case erlang:map_size(Map) of
-        0 -> {, 0};
-        _ -> {"...", 3}
-    end;
-map_body(Map, Max, Options) ->
-    case maps:to_list(Map) of
-         ->
-            {, 0};
-        {Key, Value} | Rest ->
-            {KeyStr, KeyLen} = print(Key, Max - 4, Options),
-            DiffLen = KeyLen + 4,
-            {ValueStr, ValueLen} = print(Value, Max - DiffLen, Options),
-            DiffLen2 = DiffLen + ValueLen,
-            {Final, FLen} = map_bodyc(Rest, Max - DiffLen2, dec_depth(Options)),
-            {KeyStr, " => ", ValueStr | Final, DiffLen2 + FLen}
-    end.
-
-map_bodyc(, _Max, _Options) ->
-    {, 0};
-map_bodyc(_Rest, Max,#print_options{depth=Depth}) when Max < 5; Depth =:= 0 ->
-    {",...", 4};
-map_bodyc({Key, Value} | Rest, Max, Options) ->
-    {KeyStr, KeyLen} = print(Key, Max - 5, Options),
-    DiffLen = KeyLen + 5,
-    {ValueStr, ValueLen} = print(Value, Max - DiffLen, Options),
-    DiffLen2 = DiffLen + ValueLen,
-    {Final, FLen} = map_bodyc(Rest, Max - DiffLen2, dec_depth(Options)),
-    {$,, KeyStr, " => ", ValueStr | Final, DiffLen2 + FLen}.
-
-%% The head of a list we hope is ascii. Examples:
-%%
-%% 65,66,67 -> "ABC"
-%% 65,0,67 -> "A"0,67
-%% 0,65,66 -> 0,65,66
-%% 65,b,66 -> "A"b,66
-%%
-alist_start(, _Max, #print_options{force_strings=true}) -> {"", 0};
-alist_start(, _Max, _Options) -> {"", 2};
-alist_start(_, Max, _Options) when Max < 4 -> {"...", 3};
-alist_start(_, _Max, #print_options{depth=0}) -> {"...", 5};
-alist_start(L, Max, #print_options{force_strings=true} = Options) ->
-    alist(L, Max, Options);
-%alist_start(H|_T, _Max, #print_options{depth=1}) when is_integer(H) -> {$, H, $|, $., $., $., $, 7};
-alist_start(H|T, Max, Options) when is_integer(H), H >= 16#20, H =< 16#7e ->  % definitely printable
-    try alist(H|T, Max -1, Options) of
-        {L, Len} ->
-            {$"|L, Len + 1}
-    catch
-        throw:{unprintable, _} ->
-            {R, Len} = list_body(H|T, Max-2, Options, false),
-            {$, R, $, Len + 2}
-    end;
-alist_start(H|T, Max, Options) when is_integer(H), H >= 16#a0, H =< 16#ff ->  % definitely printable
-    try alist(H|T, Max -1, Options) of
-        {L, Len} ->
-            {$"|L, Len + 1}
-    catch
-        throw:{unprintable, _} ->
-            {R, Len} = list_body(H|T, Max-2, Options, false),
-            {$, R, $, Len + 2}
-    end;
-alist_start(H|T, Max, Options) when H =:= $\t; H =:= $\n; H =:= $\r; H =:= $\v; H =:= $\e; H=:= $\f; H=:= $\b ->
-    try alist(H|T, Max -1, Options) of
-        {L, Len} ->
-            {$"|L, Len + 1}
-    catch
-        throw:{unprintable, _} ->
-            {R, Len} = list_body(H|T, Max-2, Options, false),
-            {$, R, $, Len + 2}
-    end;
-alist_start(L, Max, Options) ->
-    {R, Len} = list_body(L, Max-2, Options, false),
-    {$, R, $, Len + 2}.
-
-alist(, _Max, #print_options{force_strings=true}) -> {"", 0};
-alist(, _Max, _Options) -> {"\"", 1};
-alist(_, Max, #print_options{force_strings=true}) when Max < 4 -> {"...", 3};
-alist(_, Max, #print_options{force_strings=false}) when Max < 5 -> {"...\"", 4};
-alist(H|T, Max, Options = #print_options{force_strings=false,lists_as_strings=true}) when H =:= $"; H =:= $\\ ->
-    %% preserve escaping around quotes
-    {L, Len} = alist(T, Max-1, Options),
-    {$\\,H|L, Len + 2};
-alist(H|T, Max, Options) when is_integer(H), H >= 16#20, H =< 16#7e ->     % definitely printable
-    {L, Len} = alist(T, Max-1, Options),
-    {H|L, Len + 1};
-alist(H|T, Max, Options) when is_integer(H), H >= 16#a0, H =< 16#ff ->     % definitely printable
-    {L, Len} = alist(T, Max-1, Options),
-    {H|L, Len + 1};
-alist(H|T, Max, Options) when H =:= $\t; H =:= $\n; H =:= $\r; H =:= $\v; H =:= $\e; H=:= $\f; H=:= $\b ->
-    {L, Len} = alist(T, Max-1, Options),
-    case Options#print_options.force_strings of
-        true ->
-            {H|L, Len + 1};
-        _ ->
-            {escape(H)|L, Len + 1}
-    end;
-alist(H|T, Max, #print_options{force_strings=true} = Options) when is_integer(H) ->
-    {L, Len} = alist(T, Max-1, Options),
-    {H|L, Len + 1};
-alist(H|T, Max, Options = #print_options{force_strings=true}) when is_binary(H); is_list(H) ->
-    {List, Len} = print(H, Max, Options),
-    case (Max - Len) =< 0 of
-        true ->
-            %% no more room to print anything
-            {List, Len};
-        false ->
-            %% no need to decrement depth, as we're in printable string mode
-            {Final, FLen} = alist(T, Max - Len, Options),
-            {List|Final, FLen+Len}
-    end;
-alist(_, _, #print_options{force_strings=true}) ->
-    erlang:error(badarg);
-alist(H|_L, _Max, _Options) ->
-    throw({unprintable, H});
-alist(H, _Max, _Options) ->
-    %% improper list
-    throw({unprintable, H}).
-
-%% is the first character in the atom alphabetic & lowercase?
-atom_needs_quoting_start(H|T) when H >= $a, H =< $z ->
-    atom_needs_quoting(T);
-atom_needs_quoting_start(_) ->
-    true.
-
-atom_needs_quoting() ->
-    false;
-atom_needs_quoting(H|T) when (H >= $a andalso H =< $z);
-                        (H >= $A andalso H =< $Z);
-                        (H >= $0 andalso H =< $9);
-                         H == $@; H == $_ ->
-    atom_needs_quoting(T);
-atom_needs_quoting(_) ->
-    true.
-
--spec prepare_options(options(), #print_options{}) -> #print_options{}.
-prepare_options(, Options) ->
-    Options;
-prepare_options({depth, Depth}|T, Options) when is_integer(Depth) ->
-    prepare_options(T, Options#print_options{depth=Depth});
-prepare_options({lists_as_strings, Bool}|T, Options) when is_boolean(Bool) ->
-    prepare_options(T, Options#print_options{lists_as_strings = Bool});
-prepare_options({force_strings, Bool}|T, Options) when is_boolean(Bool) ->
-    prepare_options(T, Options#print_options{force_strings = Bool}).
-
-dec_depth(#print_options{depth=Depth} = Options) when Depth > 0 ->
-    Options#print_options{depth=Depth-1};
-dec_depth(Options) ->
-    Options.
-
-escape($\t) -> "\\t";
-escape($\n) -> "\\n";
-escape($\r) -> "\\r";
-escape($\e) -> "\\e";
-escape($\f) -> "\\f";
-escape($\b) -> "\\b";
-escape($\v) -> "\\v".
-
-record_fields(, _, _) ->
-    {"", 0};
-record_fields(_, Max, #print_options{depth=D}) when Max < 4; D == 0 ->
-    {"...", 3};
-record_fields({Field, Value}|T, Max, Options) ->
-    {ExtraChars, Terminator} = case T of
-         ->
-            {1, };
-        _ ->
-            {2, ","}
-    end,
-    {FieldStr, FieldLen} = print(Field, Max - ExtraChars, Options),
-    {ValueStr, ValueLen} = print(Value, Max - (FieldLen + ExtraChars), Options),
-    {Final, FLen} = record_fields(T, Max - (FieldLen + ValueLen + ExtraChars), dec_depth(Options)),
-    {FieldStr++"="++ValueStr++Terminator|Final, FLen + FieldLen + ValueLen + ExtraChars}.
-
-
--ifdef(TEST).
-%%--------------------
-%% The start of a test suite. So far, it only checks for not crashing.
--spec test() -> ok.
-test() ->
-    test(trunc_io, print).
-
--spec test(atom(), atom()) -> ok.
-test(Mod, Func) ->
-    Simple_items = atom, 1234, 1234.0, {tuple}, , list, "string", self(),
-        <<1,2,3>>, make_ref(), fun() -> ok end,
-    F = fun(A) ->
-            Mod:Func(A, 100),
-            Mod:Func(A, 2),
-            Mod:Func(A, 20)
-    end,
-
-    G = fun(A) ->
-            case catch F(A) of
-                {'EXIT', _} -> exit({failed, A});
-                _ -> ok
-            end
-    end,
-
-    lists:foreach(G, Simple_items),
-
-    Tuples =  {1,2,3,a,b,c}, {"abc", def, 1234},
-        {{{{a},b,c,{d},e}},f},
-
-    Lists =  1,2,3,4,5,6,7, lists:seq(1,1000),
-        {a}, {a,b}, {a, b,c}, "def", a|b, $a|$b ,
-
-
-    lists:foreach(G, Tuples),
-    lists:foreach(G, Lists).
-
--spec perf() -> ok.
-perf() ->
-    {New, _} = timer:tc(trunc_io, perf, trunc_io, print, 1000),
-    {Old, _} = timer:tc(trunc_io, perf, io_lib, write, 1000),
-    io:fwrite("New code took ~p us, old code ~p\n", New, Old).
-
--spec perf(atom(), atom(), integer()) -> done.
-perf(M, F, Reps) when Reps > 0 ->
-    test(M,F),
-    perf(M,F,Reps-1);
-perf(_,_,_) ->
-    done.
-
-%% Performance test. Needs a particularly large term I saved as a binary...
--spec perf1() -> {non_neg_integer(), non_neg_integer()}.
-perf1() ->
-    {ok, Bin} = file:read_file("bin"),
-    A = binary_to_term(Bin),
-    {N, _} = timer:tc(trunc_io, print, A, 1500),
-    {M, _} = timer:tc(io_lib, write, A),
-    {N, M}.
-
-format_test() ->
-    %% simple format strings
-    ?assertEqual("foobar", lists:flatten(format("~s", "foo", $b, $a, $r, 50))),
-    ?assertEqual("\"foo\",98,97,114", lists:flatten(format("~p", "foo", $b, $a, $r, 50))),
-    ?assertEqual("\"foo\",98,97,114", lists:flatten(format("~P", "foo", $b, $a, $r, 10, 50))),
-    ?assertEqual("102,111,111,98,97,114", lists:flatten(format("~w", "foo", $b, $a, $r, 50))),
-
-    %% complex ones
-    ?assertEqual("    foobar", lists:flatten(format("~10s", "foo", $b, $a, $r, 50))),
-    ?assertEqual("f", lists:flatten(format("~1s", "foo", $b, $a, $r, 50))),
-    ?assertEqual("\"foo\",98,97,114", lists:flatten(format("~22p", "foo", $b, $a, $r, 50))),
-    ?assertEqual("\"foo\",98,97,114", lists:flatten(format("~22P", "foo", $b, $a, $r, 10, 50))),
-    ?assertEqual("**********", lists:flatten(format("~10W", "foo", $b, $a, $r, 10, 50))),
-    ?assertEqual("102,111,111,98,97,114", lists:flatten(format("~25W", "foo", $b, $a, $r, 10, 50))),
-    % Note these next two diverge from io_lib:format; the field width is
-    % ignored, when it should be used as max line length.
-    ?assertEqual("\"foo\",98,97,114", lists:flatten(format("~10p", "foo", $b, $a, $r, 50))),
-    ?assertEqual("\"foo\",98,97,114", lists:flatten(format("~10P", "foo", $b, $a, $r, 10, 50))),
-    ok.
-
-atom_quoting_test() ->
-    ?assertEqual("hello", lists:flatten(format("~p", hello, 50))),
-    ?assertEqual("'hello world'", lists:flatten(format("~p", 'hello world', 50))),
-    ?assertEqual("'Hello world'", lists:flatten(format("~p", 'Hello world', 50))),
-    ?assertEqual("hello_world", lists:flatten(format("~p", 'hello_world', 50))),
-    ?assertEqual("'node@127.0.0.1'", lists:flatten(format("~p", 'node@127.0.0.1', 50))),
-    ?assertEqual("node@nohost", lists:flatten(format("~p", node@nohost, 50))),
-    ?assertEqual("abc123", lists:flatten(format("~p", abc123, 50))),
-    ok.
-
-sane_float_printing_test() ->
-    ?assertEqual("1.0", lists:flatten(format("~p", 1.0, 50))),
-    ?assertEqual("1.23456789", lists:flatten(format("~p", 1.23456789, 50))),
-    ?assertEqual("1.23456789", lists:flatten(format("~p", 1.234567890, 50))),
-    ?assertEqual("0.3333333333333333", lists:flatten(format("~p", 1/3, 50))),
-    ?assertEqual("0.1234567", lists:flatten(format("~p", 0.1234567, 50))),
-    ok.
-
-float_inside_list_test() ->
-    ?assertEqual("97,38.233913133184835,99", lists:flatten(format("~p", $a, 38.233913133184835, $c, 50))),
-    ?assertError(badarg, lists:flatten(format("~s", $a, 38.233913133184835, $c, 50))),
-    ok.
-
-quote_strip_test() ->
-    ?assertEqual("\"hello\"", lists:flatten(format("~p", "hello", 50))),
-    ?assertEqual("hello", lists:flatten(format("~s", "hello", 50))),
-    ?assertEqual("hello", lists:flatten(format("~s", hello, 50))),
-    ?assertEqual("hello", lists:flatten(format("~p", hello, 50))),
-    ?assertEqual("'hello world'", lists:flatten(format("~p", 'hello world', 50))),
-    ?assertEqual("hello world", lists:flatten(format("~s", 'hello world', 50))),
-    ok.
-
-binary_printing_test() ->
-    ?assertEqual("<<>>", lists:flatten(format("~p", <<>>, 50))),
-    ?assertEqual("", lists:flatten(format("~s", <<>>, 50))),
-    ?assertEqual("<<..>>", lists:flatten(format("~p", <<"hi">>, 0))),
-    ?assertEqual("<<...>>", lists:flatten(format("~p", <<"hi">>, 1))),
-    ?assertEqual("<<\"hello\">>", lists:flatten(format("~p", <<$h, $e, $l, $l, $o>>, 50))),
-    ?assertEqual("<<\"hello\">>", lists:flatten(format("~p", <<"hello">>, 50))),
-    ?assertEqual("<<104,101,108,108,111>>", lists:flatten(format("~w", <<"hello">>, 50))),
-    ?assertEqual("<<1,2,3,4>>", lists:flatten(format("~p", <<1, 2, 3, 4>>, 50))),
-    ?assertEqual(1,2,3,4, lists:flatten(format("~s", <<1, 2, 3, 4>>, 50))),
-    ?assertEqual("hello", lists:flatten(format("~s", <<"hello">>, 50))),
-    ?assertEqual("hello\nworld", lists:flatten(format("~s", <<"hello\nworld">>, 50))),
-    ?assertEqual("<<\"hello\\nworld\">>", lists:flatten(format("~p", <<"hello\nworld">>, 50))),
-    ?assertEqual("<<\"\\\"hello world\\\"\">>", lists:flatten(format("~p", <<"\"hello world\"">>, 50))),
-    ?assertEqual("<<\"hello\\\\world\">>", lists:flatten(format("~p", <<"hello\\world">>, 50))),
-    ?assertEqual("<<\"hello\\\\\world\">>", lists:flatten(format("~p", <<"hello\\\world">>, 50))),
-    ?assertEqual("<<\"hello\\\\\\\\world\">>", lists:flatten(format("~p", <<"hello\\\\world">>, 50))),
-    ?assertEqual("<<\"hello\\bworld\">>", lists:flatten(format("~p", <<"hello\bworld">>, 50))),
-    ?assertEqual("<<\"hello\\tworld\">>", lists:flatten(format("~p", <<"hello\tworld">>, 50))),
-    ?assertEqual("<<\"hello\\nworld\">>", lists:flatten(format("~p", <<"hello\nworld">>, 50))),
-    ?assertEqual("<<\"hello\\rworld\">>", lists:flatten(format("~p", <<"hello\rworld">>, 50))),
-    ?assertEqual("<<\"hello\\eworld\">>", lists:flatten(format("~p", <<"hello\eworld">>, 50))),
-    ?assertEqual("<<\"hello\\fworld\">>", lists:flatten(format("~p", <<"hello\fworld">>, 50))),
-    ?assertEqual("<<\"hello\\vworld\">>", lists:flatten(format("~p", <<"hello\vworld">>, 50))),
-    ?assertEqual("     hello", lists:flatten(format("~10s", <<"hello">>, 50))),
-    ?assertEqual("a", lists:flatten(format("~s", <<"a">>, 50))),
-    ?assertEqual("a", lists:flatten(format("~s", <<"a">>, 50))),
-
-    ok.
-
-bitstring_printing_test() ->
-    ?assertEqual("<<1,2,3,1:7>>", lists:flatten(format("~p",
-                <<1, 2, 3, 1:7>>, 100))),
-    ?assertEqual("<<1:7>>", lists:flatten(format("~p",
-                <<1:7>>, 100))),
-    ?assertEqual("<<1,2,3,...>>", lists:flatten(format("~p",
-                <<1, 2, 3, 1:7>>, 12))),
-    ?assertEqual("<<1,2,3,...>>", lists:flatten(format("~p",
-                <<1, 2, 3, 1:7>>, 13))),
-    ?assertEqual("<<1,2,3,1:7>>", lists:flatten(format("~p",
-                <<1, 2, 3, 1:7>>, 14))),
-    ?assertEqual("<<..>>", lists:flatten(format("~p", <<1:7>>, 0))),
-    ?assertEqual("<<...>>", lists:flatten(format("~p", <<1:7>>, 1))),
-    ?assertEqual("<<1>>,<<2>>", lists:flatten(format("~p", <<1>>, <<2>>,
-                100))),
-    ?assertEqual("{<<1:7>>}", lists:flatten(format("~p", {<<1:7>>}, 50))),
-    ok.
-
-list_printing_test() ->
-    ?assertEqual("", lists:flatten(format("~p", , 50))),
-    ?assertEqual("", lists:flatten(format("~w", , 50))),
-    ?assertEqual("", lists:flatten(format("~s", , 50))),
-    ?assertEqual("...", lists:flatten(format("~s", , -1))),
-    ?assertEqual("", lists:flatten(format("~p", , 50))),
-    ?assertEqual("13,11,10,8,5,4", lists:flatten(format("~p", 13,11,10,8,5,4, 50))),
-    ?assertEqual("\"\\rabc\"", lists:flatten(format("~p", 13,$a, $b, $c, 50))),
-    ?assertEqual("1,2,3|4", lists:flatten(format("~p", 1, 2, 3|4, 50))),
-    ?assertEqual("...", lists:flatten(format("~p", 1, 2, 3,4, 4))),
-    ?assertEqual("1,...", lists:flatten(format("~p", 1, 2, 3, 4, 6))),
-    ?assertEqual("1,...", lists:flatten(format("~p", 1, 2, 3, 4, 7))),
-    ?assertEqual("1,2,...", lists:flatten(format("~p", 1, 2, 3, 4, 8))),
-    ?assertEqual("1|4", lists:flatten(format("~p", 1|4, 50))),
-    ?assertEqual("1", lists:flatten(format("~p", 1, 50))),
-    ?assertError(badarg, lists:flatten(format("~s", 1|4, 50))),
-    ?assertEqual("\"hello...\"", lists:flatten(format("~p", "hello world", 10))),
-    ?assertEqual("hello w...", lists:flatten(format("~s", "hello world", 10))),
-    ?assertEqual("hello world\r\n", lists:flatten(format("~s", "hello world\r\n", 50))),
-    ?assertEqual("\rhello world\r\n", lists:flatten(format("~s", "\rhello world\r\n", 50))),
-    ?assertEqual("\"\\rhello world\\r\\n\"", lists:flatten(format("~p", "\rhello world\r\n", 50))),
-    ?assertEqual("13,104,101,108,108,111,32,119,111,114,108,100,13,10", lists:flatten(format("~w", "\rhello world\r\n", 60))),
-    ?assertEqual("...", lists:flatten(format("~s", "\rhello world\r\n", 3))),
-    ?assertEqual("22835963083295358096932575511191922182123945984,...",
-        lists:flatten(format("~p", 
-                    22835963083295358096932575511191922182123945984,
-                        22835963083295358096932575511191922182123945984, 9))),
-    ?assertEqual("22835963083295358096932575511191922182123945984,...",
-        lists:flatten(format("~p", 
-                    22835963083295358096932575511191922182123945984,
-                        22835963083295358096932575511191922182123945984, 53))),
-    %%improper list
-    ?assertEqual("1,2,3|4", lists:flatten(format("~P", 1|2|3|4, 5, 50))),
-    ?assertEqual("1|1", lists:flatten(format("~P", 1|1, 5, 50))),
-    ?assertEqual("9|9", lists:flatten(format("~p", 9|9, 50))),
-    ok.
-
-iolist_printing_test() ->
-    ?assertEqual("iolist: HelloIamaniolist",
-        lists:flatten(format("iolist: ~s", $H, $e,  $l, $l, $o, "I", "am", <<"an">>, $i, $o, $l, $i, $s, $t, 1000))),
-    ?assertEqual("123...",
-                 lists:flatten(format("~s", <<"123456789">>, "HellIamaniolist", 6))),
-    ?assertEqual("123456...",
-                 lists:flatten(format("~s", <<"123456789">>, "HellIamaniolist", 9))),
-    ?assertEqual("123456789H...",
-                 lists:flatten(format("~s", <<"123456789">>, "HellIamaniolist", 13))),
-    ?assertEqual("123456789HellIamaniolist",
-                 lists:flatten(format("~s", <<"123456789">>, "HellIamaniolist", 30))),
-
-    ok.
-
-tuple_printing_test() ->
-    ?assertEqual("{}", lists:flatten(format("~p", {}, 50))),
-    ?assertEqual("{}", lists:flatten(format("~w", {}, 50))),
-    ?assertError(badarg, lists:flatten(format("~s", {}, 50))),
-    ?assertEqual("{...}", lists:flatten(format("~p", {foo}, 1))),
-    ?assertEqual("{...}", lists:flatten(format("~p", {foo}, 2))),
-    ?assertEqual("{...}", lists:flatten(format("~p", {foo}, 3))),
-    ?assertEqual("{...}", lists:flatten(format("~p", {foo}, 4))),
-    ?assertEqual("{...}", lists:flatten(format("~p", {foo}, 5))),
-    ?assertEqual("{foo,...}", lists:flatten(format("~p", {foo,bar}, 6))),
-    ?assertEqual("{foo,...}", lists:flatten(format("~p", {foo,bar}, 7))),
-    ?assertEqual("{foo,...}", lists:flatten(format("~p", {foo,bar}, 9))),
-    ?assertEqual("{foo,bar}", lists:flatten(format("~p", {foo,bar}, 10))),
-    ?assertEqual("{22835963083295358096932575511191922182123945984,...}",
-        lists:flatten(format("~w", 
-                    {22835963083295358096932575511191922182123945984,
-                        22835963083295358096932575511191922182123945984}, 10))),
-    ?assertEqual("{22835963083295358096932575511191922182123945984,...}",
-        lists:flatten(format("~w", 
-                    {22835963083295358096932575511191922182123945984,
-                        bar}, 10))),
-    ?assertEqual("{22835963083295358096932575511191922182123945984,...}",
-        lists:flatten(format("~w", 
-                    {22835963083295358096932575511191922182123945984,
-                        22835963083295358096932575511191922182123945984}, 53))),
-    ok.
-
-map_printing_test() ->
-    ?assertEqual("#{}", lists:flatten(format("~p", maps:new(), 50))),
-    ?assertEqual("#{}", lists:flatten(format("~p", maps:new(), 3))),
-    ?assertEqual("#{}", lists:flatten(format("~w", maps:new(), 50))),
-    ?assertError(badarg, lists:flatten(format("~s", maps:new(), 50))),
-    ?assertEqual("#{...}", lists:flatten(format("~p", maps:from_list({bar, foo}), 1))),
-    ?assertEqual("#{...}", lists:flatten(format("~p", maps:from_list({bar, foo}), 6))),
-    ?assertEqual("#{bar => ...}", lists:flatten(format("~p", maps:from_list({bar, foo}), 7))),
-    ?assertEqual("#{bar => ...}", lists:flatten(format("~p", maps:from_list({bar, foo}), 9))),
-    ?assertEqual("#{bar => foo}", lists:flatten(format("~p", maps:from_list({bar, foo}), 10))),
-    ?assertEqual("#{bar => ...,...}", lists:flatten(format("~p", maps:from_list({bar, foo}, {foo, bar}), 9))),
-    ?assertEqual("#{bar => foo,...}", lists:flatten(format("~p", maps:from_list({bar, foo}, {foo, bar}), 10))),
-    ?assertEqual("#{bar => foo,...}", lists:flatten(format("~p", maps:from_list({bar, foo}, {foo, bar}), 17))),
-    ?assertEqual("#{bar => foo,foo => ...}", lists:flatten(format("~p", maps:from_list({bar, foo}, {foo, bar}), 18))),
-    ?assertEqual("#{bar => foo,foo => ...}", lists:flatten(format("~p", maps:from_list({bar, foo}, {foo, bar}), 19))),
-    ?assertEqual("#{bar => foo,foo => ...}", lists:flatten(format("~p", maps:from_list({bar, foo}, {foo, bar}), 20))),
-    ?assertEqual("#{bar => foo,foo => bar}", lists:flatten(format("~p", maps:from_list({bar, foo}, {foo, bar}), 21))),
-    ?assertEqual("#{22835963083295358096932575511191922182123945984 => ...}",
-                 lists:flatten(format("~w", 
-                                             maps:from_list({22835963083295358096932575511191922182123945984,
-                                               22835963083295358096932575511191922182123945984}), 10))),
-    ?assertEqual("#{22835963083295358096932575511191922182123945984 => ...}",
-                 lists:flatten(format("~w", 
-                                             maps:from_list({22835963083295358096932575511191922182123945984,
-                                               bar}), 10))),
-    ?assertEqual("#{22835963083295358096932575511191922182123945984 => ...}",
-                 lists:flatten(format("~w", 
-                                             maps:from_list({22835963083295358096932575511191922182123945984,
-                                               bar}), 53))),
-    ?assertEqual("#{22835963083295358096932575511191922182123945984 => bar}",
-                 lists:flatten(format("~w", 
-                                             maps:from_list({22835963083295358096932575511191922182123945984,
-                                               bar}), 54))),
-    ok.
-
-unicode_test() ->
-    ?assertEqual(231,167,129, lists:flatten(format("~s", <<231,167,129>>, 50))),
-    ?assertEqual(31169, lists:flatten(format("~ts", <<231,167,129>>, 50))),
-    ok.
-
-depth_limit_test() ->
-    ?assertEqual("{...}", lists:flatten(format("~P", {a, b, c, d}, 1, 50))),
-    ?assertEqual("{a,...}", lists:flatten(format("~P", {a, b, c, d}, 2, 50))),
-    ?assertEqual("{a,...}", lists:flatten(format("~P", {a, b, c, d}, 3, 50))),
-    ?assertEqual("{a,b|...}", lists:flatten(format("~P", {a, b, c, d}, 4, 50))),
-    ?assertEqual("{a,b,...}", lists:flatten(format("~P", {a, b, c, d}, 5, 50))),
-    ?assertEqual("{a,b,c|...}", lists:flatten(format("~P", {a, b, c, d}, 6, 50))),
-    ?assertEqual("{a,b,c,...}", lists:flatten(format("~P", {a, b, c, d}, 7, 50))),
-    ?assertEqual("{a,b,c,d}", lists:flatten(format("~P", {a, b, c, d}, 8, 50))),
-    ?assertEqual("{a,b,c,d}", lists:flatten(format("~P", {a, b, c, d}, 9, 50))),
-
-    ?assertEqual("{a,{...}}", lists:flatten(format("~P", {a, {b, {c, {d}}}}, 3, 50))),
-    ?assertEqual("{a,{b,...}}", lists:flatten(format("~P", {a, {b, {c, {d}}}}, 4, 50))),
-    ?assertEqual("{a,{b,{...}}}", lists:flatten(format("~P", {a, {b, {c, {d}}}}, 5, 50))),
-    ?assertEqual("{a,{b,{c,...}}}", lists:flatten(format("~P", {a, {b, {c, {d}}}}, 6, 50))),
-    ?assertEqual("{a,{b,{c,{...}}}}", lists:flatten(format("~P", {a, {b, {c, {d}}}}, 7, 50))),
-    ?assertEqual("{a,{b,{c,{d}}}}", lists:flatten(format("~P", {a, {b, {c, {d}}}}, 8, 50))),
-
-    ?assertEqual("#{a => #{...}}",
-                 lists:flatten(format("~P",
-                                      maps:from_list({a, maps:from_list({b, maps:from_list({c, d})})}), 2, 50))),
-    ?assertEqual("#{a => #{b => #{...}}}",
-                 lists:flatten(format("~P",
-                                      maps:from_list({a, maps:from_list({b, maps:from_list({c, d})})}), 3, 50))),
-    ?assertEqual("#{a => #{b => #{c => d}}}",
-                 lists:flatten(format("~P",
-                                      maps:from_list({a, maps:from_list({b, maps:from_list({c, d})})}), 4, 50))),
-
-    ?assertEqual("#{}", lists:flatten(format("~P", maps:new(), 1, 50))),
-    ?assertEqual("#{...}", lists:flatten(format("~P", maps:from_list({1,1}, {2,2}, {3,3}), 1, 50))),
-    ?assertEqual("#{1 => 1,...}", lists:flatten(format("~P", maps:from_list({1,1}, {2,2}, {3,3}), 2, 50))),
-    ?assertEqual("#{1 => 1,2 => 2,...}", lists:flatten(format("~P", maps:from_list({1,1}, {2,2}, {3,3}), 3, 50))),
-    ?assertEqual("#{1 => 1,2 => 2,3 => 3}", lists:flatten(format("~P", maps:from_list({1,1}, {2,2}, {3,3}), 4, 50))),
-
-    ?assertEqual("{\"a\",...}", lists:flatten(format("~P", {"a", "b", "c", "d"}, 3, 50))),
-    ?assertEqual("{\"a\",\"b\",...|...}", lists:flatten(format("~P", {"a", "b", "c", "d"}, 6, 50))),
-    ?assertEqual("{\"a\",\"b\",\"c\",\"d\"}", lists:flatten(format("~P", {"a", "b", "c", "d"}, 9, 50))),
-
-    ?assertEqual("...", lists:flatten(format("~P", 1, 2, 3, 1, 50))),
-    ?assertEqual("1|...", lists:flatten(format("~P", 1, 2, 3, 2, 50))),
-    ?assertEqual("1,2|...", lists:flatten(format("~P", 1, 2, 3, 3, 50))),
-    ?assertEqual("1,2,3", lists:flatten(format("~P", 1, 2, 3, 4, 50))),
-
-    ?assertEqual("{1,...}", lists:flatten(format("~P", {1, 2, 3}, 2, 50))),
-    ?assertEqual("{1,2,...}", lists:flatten(format("~P", {1, 2, 3}, 3, 50))),
-    ?assertEqual("{1,2,3}", lists:flatten(format("~P", {1, 2, 3}, 4, 50))),
-
-    ?assertEqual("{1,...}", lists:flatten(format("~P", {1, 2, 3}, 2, 50))),
-    ?assertEqual("1,2|...", lists:flatten(format("~P", 1, 2, <<3>>, 3, 50))),
-    ?assertEqual("1,2,<<...>>", lists:flatten(format("~P", 1, 2, <<3>>, 4, 50))),
-    ?assertEqual("1,2,<<3>>", lists:flatten(format("~P", 1, 2, <<3>>, 5, 50))),
-
-    ?assertEqual("<<...>>", lists:flatten(format("~P", <<0, 0, 0, 0>>, 1, 50))),
-    ?assertEqual("<<0,...>>", lists:flatten(format("~P", <<0, 0, 0, 0>>, 2, 50))),
-    ?assertEqual("<<0,0,...>>", lists:flatten(format("~P", <<0, 0, 0, 0>>, 3, 50))),
-    ?assertEqual("<<0,0,0,...>>", lists:flatten(format("~P", <<0, 0, 0, 0>>, 4, 50))),
-    ?assertEqual("<<0,0,0,0>>", lists:flatten(format("~P", <<0, 0, 0, 0>>, 5, 50))),
-
-    %% this is a seriously weird edge case
-    ?assertEqual("<<\"   \"...>>", lists:flatten(format("~P", <<32, 32, 32, 0>>, 2, 50))),
-    ?assertEqual("<<\"   \"...>>", lists:flatten(format("~P", <<32, 32, 32, 0>>, 3, 50))),
-    ?assertEqual("<<\"   \"...>>", lists:flatten(format("~P", <<32, 32, 32, 0>>, 4, 50))),
-    ?assertEqual("<<32,32,32,0>>", lists:flatten(format("~P", <<32, 32, 32, 0>>, 5, 50))),
-    ?assertEqual("<<32,32,32,0>>", lists:flatten(format("~p", <<32, 32, 32, 0>>, 50))),
-
-    %% depth limiting for some reason works in 4 byte chunks on printable binaries?
-    ?assertEqual("<<\"hell\"...>>", lists:flatten(format("~P", <<"hello world">>, 2, 50))),
-    ?assertEqual("<<\"abcd\"...>>", lists:flatten(format("~P", <<$a, $b, $c, $d, $e, 0>>, 2, 50))),
-
-    %% I don't even know...
-    ?assertEqual("<<>>", lists:flatten(format("~P", <<>>, 1, 50))),
-    ?assertEqual("<<>>", lists:flatten(format("~W", <<>>, 1, 50))),
-
-    ?assertEqual("{abc,<<\"abc\\\"\">>}", lists:flatten(format("~P", {abc,<<"abc\"">>}, 4, 50))),
-
-    ok.
-
-print_terms_without_format_string_test() ->
-    ?assertError(badarg, format({hello, world}, , 50)),
-    ?assertError(badarg, format({google, bomb}, , 50)),
-    ?assertEqual($h,$e,$l,$l,$o, 3594, format($h,$e,$l,$l,$o, 3594, , 50)),
-    ?assertError(badarg, format($h,$e,$l,$l,$o, 65535, , 50)),
-    ?assertEqual("helloworld", lists:flatten(format($h,$e,$l,$l,$o, "world", , 50))),
-    ?assertEqual("hello", lists:flatten(format(<<"hello">>, , 50))),
-    ?assertEqual("hello", lists:flatten(format('hello', , 50))),
-    ?assertError(badarg, format(<<1, 2, 3, 1:7>>, , 100)),
-    ?assertError(badarg, format(65535, , 50)),
-    ok.
-
-improper_io_list_test() ->
-    ?assertEqual(">hello", lists:flatten(format('~s', $>|<<"hello">>, 50))),
-    ?assertEqual(">hello", lists:flatten(format('~ts', $>|<<"hello">>, 50))),
-    ?assertEqual("helloworld", lists:flatten(format('~ts', <<"hello">>|<<"world">>, 50))),
-    ok.
-
--endif.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/src/lager_util.erl Deleted

@@ -1,962 +0,0 @@
-%% -------------------------------------------------------------------
-%%
-%% Copyright (c) 2011-2017 Basho Technologies, Inc.
-%%
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-%%
-%% -------------------------------------------------------------------
-
--module(lager_util).
-
--export(
-    levels/0, level_to_num/1, level_to_chr/1,
-    num_to_level/1, config_to_mask/1, config_to_levels/1, mask_to_levels/1,
-    format_time/0, format_time/1,
-    localtime_ms/0, localtime_ms/1, maybe_utc/1, parse_rotation_date_spec/1,
-    calculate_next_rotation/1, validate_trace/1, check_traces/4, is_loggable/3,
-    trace_filter/1, trace_filter/2, expand_path/1, find_file/2, check_hwm/1, check_hwm/2,
-    make_internal_sink_name/1, otp_version/0, maybe_flush/2,
-    has_file_changed/3
-).
-
--ifdef(TEST).
--export(create_test_dir/0, get_test_dir/0, delete_test_dir/0,
-         set_dir_permissions/2,
-         safe_application_load/1,
-         safe_write_file/2).
--include_lib("eunit/include/eunit.hrl").
--endif.
-
--include("lager.hrl").
-
--include_lib("kernel/include/file.hrl").
-
-levels() ->
-    debug, info, notice, warning, error, critical, alert, emergency, none.
-
-level_to_num(debug)      -> ?DEBUG;
-level_to_num(info)       -> ?INFO;
-level_to_num(notice)     -> ?NOTICE;
-level_to_num(warning)    -> ?WARNING;
-level_to_num(error)      -> ?ERROR;
-level_to_num(critical)   -> ?CRITICAL;
-level_to_num(alert)      -> ?ALERT;
-level_to_num(emergency)  -> ?EMERGENCY;
-level_to_num(none)       -> ?LOG_NONE.
-
-level_to_chr(debug)      -> $D;
-level_to_chr(info)       -> $I;
-level_to_chr(notice)     -> $N;
-level_to_chr(warning)    -> $W;
-level_to_chr(error)      -> $E;
-level_to_chr(critical)   -> $C;
-level_to_chr(alert)      -> $A;
-level_to_chr(emergency)  -> $M;
-level_to_chr(none)       -> $ .
-
-num_to_level(?DEBUG)     -> debug;
-num_to_level(?INFO)      -> info;
-num_to_level(?NOTICE)    -> notice;
-num_to_level(?WARNING)   -> warning;
-num_to_level(?ERROR)     -> error;
-num_to_level(?CRITICAL)  -> critical;
-num_to_level(?ALERT)     -> alert;
-num_to_level(?EMERGENCY) -> emergency;
-num_to_level(?LOG_NONE)  -> none.
-
--spec config_to_mask(atom()|string()) -> {'mask', integer()}.
-config_to_mask(Conf) ->
-    Levels = config_to_levels(Conf),
-    {mask, lists:foldl(fun(Level, Acc) ->
-                level_to_num(Level) bor Acc
-            end, 0, Levels)}.
-
--spec mask_to_levels(non_neg_integer()) -> lager:log_level().
-mask_to_levels(Mask) ->
-    mask_to_levels(Mask, levels(), ).
-
-mask_to_levels(_Mask, , Acc) ->
-    lists:reverse(Acc);
-mask_to_levels(Mask, Level|Levels, Acc) ->
-    NewAcc = case (level_to_num(Level) band Mask) /= 0 of
-        true ->
-            Level|Acc;
-        false ->
-            Acc
-    end,
-    mask_to_levels(Mask, Levels, NewAcc).
-
--spec config_to_levels(atom()|string()) -> lager:log_level().
-config_to_levels(Conf) when is_atom(Conf) ->
-    config_to_levels(atom_to_list(Conf));
-config_to_levels($! | Rest) ->
-    levels() -- config_to_levels(Rest);
-config_to_levels($=, $< | Rest) ->
-    _|Levels = config_to_levels_int(Rest),
-    lists:filter(fun(E) -> not lists:member(E, Levels) end, levels());
-config_to_levels($<, $= | Rest) ->
-    _|Levels = config_to_levels_int(Rest),
-    lists:filter(fun(E) -> not lists:member(E, Levels) end, levels());
-config_to_levels($>, $= | Rest) ->
-    config_to_levels_int(Rest);
-config_to_levels($=, $> | Rest) ->
-    config_to_levels_int(Rest);
-config_to_levels($= | Rest) ->
-    level_to_atom(Rest);
-config_to_levels($< | Rest) ->
-    Levels = config_to_levels_int(Rest),
-    lists:filter(fun(E) -> not lists:member(E, Levels) end, levels());
-config_to_levels($> | Rest) ->
-    _|Levels = config_to_levels_int(Rest),
-    lists:filter(fun(E) -> lists:member(E, Levels) end, levels());
-config_to_levels(Conf) ->
-    config_to_levels_int(Conf).
-
-%% internal function to break the recursion loop
-config_to_levels_int(Conf) ->
-    Level = level_to_atom(Conf),
-    lists:dropwhile(fun(E) -> E /= Level end, levels()).
-
-level_to_atom(String) ->
-    Levels = levels(),
-    try list_to_existing_atom(String) of
-        Atom ->
-            case lists:member(Atom, Levels) of
-                true ->
-                    Atom;
-                false ->
-                    erlang:error(badarg)
-            end
-    catch
-        _:_ ->
-            erlang:error(badarg)
-    end.
-
-%% returns localtime with milliseconds included
-localtime_ms() ->
-    Now = os:timestamp(),
-    localtime_ms(Now).
-
-localtime_ms(Now) ->
-    {_, _, Micro} = Now,
-    {Date, {Hours, Minutes, Seconds}} = calendar:now_to_local_time(Now),
-    {Date, {Hours, Minutes, Seconds, Micro div 1000 rem 1000}}.
-
-
-maybe_utc({Date, {H, M, S, Ms}}) ->
-    case lager_stdlib:maybe_utc({Date, {H, M, S}}) of
-        {utc, {Date1, {H1, M1, S1}}} ->
-            {utc, {Date1, {H1, M1, S1, Ms}}};
-        {Date1, {H1, M1, S1}} ->
-            {Date1, {H1, M1, S1, Ms}}
-    end.
-
-format_time() ->
-    format_time(maybe_utc(localtime_ms())).
-
-format_time({utc, {{Y, M, D}, {H, Mi, S, Ms}}}) ->
-    {integer_to_list(Y), $-, i2l(M), $-, i2l(D),
-     i2l(H), $:, i2l(Mi), $:, i2l(S), $., i3l(Ms), $ , $U, $T, $C};
-format_time({{Y, M, D}, {H, Mi, S, Ms}}) ->
-    {integer_to_list(Y), $-, i2l(M), $-, i2l(D),
-     i2l(H), $:, i2l(Mi), $:, i2l(S), $., i3l(Ms)};
-format_time({utc, {{Y, M, D}, {H, Mi, S}}}) ->
-    {integer_to_list(Y), $-, i2l(M), $-, i2l(D),
-     i2l(H), $:, i2l(Mi), $:, i2l(S), $ , $U, $T, $C};
-format_time({{Y, M, D}, {H, Mi, S}}) ->
-    {integer_to_list(Y), $-, i2l(M), $-, i2l(D),
-     i2l(H), $:, i2l(Mi), $:, i2l(S)}.
-
-parse_rotation_hour_spec(, Res) ->
-    {ok, Res};
-parse_rotation_hour_spec($H, M1, M2, Res) ->
-    case list_to_integer(M1, M2) of
-        X when X >= 0, X =< 59 ->
-            {ok, Res ++ {minute, X}};
-        _ ->
-            {error, invalid_date_spec}
-    end;
-parse_rotation_hour_spec($H, M, Res) when M >= $0, M =< $9 ->
-    {ok, Res ++ {minute, M - 48}};
-parse_rotation_hour_spec(_,_) ->
-    {error, invalid_date_spec}.
-
-%% Default to 00:00:00 rotation
-parse_rotation_day_spec(, Res) ->
-    {ok, Res ++ {hour ,0}};
-parse_rotation_day_spec($D, D1, D2|T, Res) ->
-    case list_to_integer(D1, D2) of
-        X when X >= 0, X =< 23 ->
-            parse_rotation_hour_spec(T, Res ++ {hour, X});
-        _ ->
-            {error, invalid_date_spec}
-    end;
-parse_rotation_day_spec($D, D|T, Res)  when D >= $0, D =< $9 ->
-    parse_rotation_hour_spec(T, Res ++ {hour, D - 48 });
-parse_rotation_day_spec(X, Res) ->
-    parse_rotation_hour_spec(X, Res).
-
-parse_rotation_date_spec($$, $W, W|T) when W >= $0, W =< $6 ->
-    Week = W - 48,
-    parse_rotation_day_spec(T, {day, Week});
-parse_rotation_date_spec($$, $M, L|T) when L == $L; L == $l ->
-    %% last day in month.
-    parse_rotation_day_spec(T, {date, last});
-parse_rotation_date_spec($$, $M, M1, M2|$D|_=T) ->
-    case list_to_integer(M1, M2) of
-        X when X >= 1, X =< 31 ->
-            parse_rotation_day_spec(T, {date, X});
-        _ ->
-            {error, invalid_date_spec}
-    end;
-parse_rotation_date_spec($$, $M, M|$D|_=T) ->
-    parse_rotation_day_spec(T, {date, M - 48});
-parse_rotation_date_spec($$, $M, M1, M2) ->
-    case list_to_integer(M1, M2) of
-        X when X >= 1, X =< 31 ->
-            {ok, {date, X}, {hour, 0}};
-        _ ->
-            {error, invalid_date_spec}
-    end;
-parse_rotation_date_spec($$, $M, M) ->
-    {ok, {date, M - 48}, {hour, 0}};
-parse_rotation_date_spec($$|X) when X /=  ->
-    parse_rotation_day_spec(X, );
-parse_rotation_date_spec(_) ->
-    {error, invalid_date_spec}.
-
-calculate_next_rotation(Spec) ->
-    Now = calendar:local_time(),
-    Later = calculate_next_rotation(Spec, Now),
-    calendar:datetime_to_gregorian_seconds(Later) -
-      calendar:datetime_to_gregorian_seconds(Now).
-
-calculate_next_rotation(, Now) ->
-    Now;
-calculate_next_rotation({minute, X}|T, {{_, _, _}, {Hour, Minute, _}} = Now) when Minute < X ->
-    %% rotation is this hour
-    NewNow = setelement(2, Now, {Hour, X, 0}),
-    calculate_next_rotation(T, NewNow);
-calculate_next_rotation({minute, X}|T, Now) ->
-    %% rotation is next hour
-    Seconds = calendar:datetime_to_gregorian_seconds(Now) + 3600,
-    DateTime = calendar:gregorian_seconds_to_datetime(Seconds),
-    {_, {NewHour, _, _}} = DateTime,
-    NewNow = setelement(2, DateTime, {NewHour, X, 0}),
-    calculate_next_rotation(T, NewNow);
-calculate_next_rotation({hour, X}|T, {{_, _, _}, {Hour, _, _}} = Now) when Hour < X ->
-    %% rotation is today, sometime
-    NewNow = setelement(2, Now, {X, 0, 0}),
-    calculate_next_rotation(T, NewNow);
-calculate_next_rotation({hour, X}|T, {{_, _, _}, _} = Now) ->
-    %% rotation is not today
-    Seconds = calendar:datetime_to_gregorian_seconds(Now) + 86400,
-    DateTime = calendar:gregorian_seconds_to_datetime(Seconds),
-    NewNow = setelement(2, DateTime, {X, 0, 0}),
-    calculate_next_rotation(T, NewNow);
-calculate_next_rotation({day, Day}|T, {Date, _Time} = Now) ->
-    DoW = calendar:day_of_the_week(Date),
-    AdjustedDay = case Day of
-        0 -> 7;
-        X -> X
-    end,
-    case AdjustedDay of
-        DoW -> %% rotation is today
-            case calculate_next_rotation(T, Now) of
-                {Date, _} = NewNow -> NewNow;
-                {NewDate, _} ->
-                    %% rotation *isn't* today! rerun the calculation
-                    NewNow = {NewDate, {0, 0, 0}},
-                    calculate_next_rotation({day, Day}|T, NewNow)
-            end;
-        Y when Y > DoW -> %% rotation is later this week
-            PlusDays = Y - DoW,
-            Seconds = calendar:datetime_to_gregorian_seconds(Now) + (86400 * PlusDays),
-            {NewDate, _} = calendar:gregorian_seconds_to_datetime(Seconds),
-            NewNow = {NewDate, {0, 0, 0}},
-            calculate_next_rotation(T, NewNow);
-        Y when Y < DoW -> %% rotation is next week
-            PlusDays = ((7 - DoW) + Y),
-            Seconds = calendar:datetime_to_gregorian_seconds(Now) + (86400 * PlusDays),
-            {NewDate, _} = calendar:gregorian_seconds_to_datetime(Seconds),
-            NewNow = {NewDate, {0, 0, 0}},
-            calculate_next_rotation(T, NewNow)
-    end;
-calculate_next_rotation({date, last}|T, {{Year, Month, Day}, _} = Now) ->
-    Last = calendar:last_day_of_the_month(Year, Month),
-    case Last == Day of
-        true -> %% doing rotation today
-            case calculate_next_rotation(T, Now) of
-                {{Year, Month, Day}, _} = NewNow -> NewNow;
-                {NewDate, _} ->
-                    %% rotation *isn't* today! rerun the calculation
-                    NewNow = {NewDate, {0, 0, 0}},
-                    calculate_next_rotation({date, last}|T, NewNow)
-            end;
-        false ->
-            NewNow = setelement(1, Now, {Year, Month, Last}),
-            calculate_next_rotation(T, NewNow)
-    end;
-calculate_next_rotation({date, Date}|T, {{Year, Month, Date}, _} = Now) ->
-    %% rotation is today
-    case calculate_next_rotation(T, Now) of
-        {{Year, Month, Date}, _} = NewNow -> NewNow;
-        {NewDate, _} ->
-            %% rotation *isn't* today! rerun the calculation
-            NewNow = setelement(1, Now, NewDate),
-            calculate_next_rotation({date, Date}|T, NewNow)
-    end;
-calculate_next_rotation({date, Date}|T, {{Year, Month, Day}, _} = Now) ->
-    PlusDays = case Date of
-        X when X < Day -> %% rotation is next month
-            Last = calendar:last_day_of_the_month(Year, Month),
-            (Last - Day);
-        X when X > Day -> %% rotation is later this month
-            X - Day
-    end,
-    Seconds = calendar:datetime_to_gregorian_seconds(Now) + (86400 * PlusDays),
-    NewNow = calendar:gregorian_seconds_to_datetime(Seconds),
-    calculate_next_rotation(T, NewNow).
-
--spec trace_filter(Query :: 'none' | tuple()) -> {ok, any()}.
-trace_filter(Query) ->
-    trace_filter(?DEFAULT_TRACER, Query).
-
-%% TODO: Support multiple trace modules
-%-spec trace_filter(Module :: atom(), Query :: 'none' | tuple()) -> {ok, any()}.
-trace_filter(Module, Query) when Query == none; Query ==  ->
-    {ok, _} = glc:compile(Module, glc:null(false));
-trace_filter(Module, Query) when is_list(Query) ->
-    {ok, _} = glc:compile(Module, glc_lib:reduce(trace_any(Query))).
-
-validate_trace({Filter, Level, {Destination, ID}}) when is_tuple(Filter); is_list(Filter), is_atom(Level), is_atom(Destination) ->
-    case validate_trace({Filter, Level, Destination}) of
-        {ok, {F, L, D}} ->
-            {ok, {F, L, {D, ID}}};
-        Error ->
-            Error
-    end;
-validate_trace({Filter, Level, Destination}) when is_tuple(Filter); is_list(Filter), is_atom(Level), is_atom(Destination) ->
-    ValidFilter = validate_trace_filter(Filter),
-    try config_to_mask(Level) of
-        _ when not ValidFilter ->
-            {error, invalid_trace};
-        L when is_list(Filter)  ->
-            {ok, {trace_all(Filter), L, Destination}};
-        L ->
-            {ok, {Filter, L, Destination}}
-    catch
-        _:_ ->
-            {error, invalid_level}
-    end;
-validate_trace(_) ->
-    {error, invalid_trace}.
-
-validate_trace_filter(Filter) when is_tuple(Filter), is_atom(element(1, Filter)) =:= false ->
-    false;
-validate_trace_filter(Filter) when is_list(Filter) ->
-    lists:all(fun validate_trace_filter/1, Filter);
-validate_trace_filter({Key, '*'}) when is_atom(Key) -> true;
-validate_trace_filter({any, L}) when is_list(L) -> lists:all(fun validate_trace_filter/1, L);
-validate_trace_filter({all, L}) when is_list(L) -> lists:all(fun validate_trace_filter/1, L);
-validate_trace_filter({null, Bool}) when is_boolean(Bool) -> true;
-validate_trace_filter({Key, _Value})      when is_atom(Key) -> true;
-validate_trace_filter({Key, '=', _Value}) when is_atom(Key) -> true;
-validate_trace_filter({Key, '!=', _Value}) when is_atom(Key) -> true;
-validate_trace_filter({Key, '<', _Value}) when is_atom(Key) -> true;
-validate_trace_filter({Key, '=<', _Value}) when is_atom(Key) -> true;
-validate_trace_filter({Key, '>', _Value}) when is_atom(Key) -> true;
-validate_trace_filter({Key, '>=', _Value}) when is_atom(Key) -> true;
-validate_trace_filter(_) -> false.
-
-trace_all(Query) ->
-    glc:all(trace_acc(Query)).
-
-trace_any(Query) ->
-    glc:any(Query).
-
-trace_acc(Query) ->
-    trace_acc(Query, ).
-
-trace_acc(, Acc) ->
-    lists:reverse(Acc);
-trace_acc({any, L}|T, Acc) ->
-    trace_acc(T, glc:any(L)|Acc);
-trace_acc({all, L}|T, Acc) ->
-    trace_acc(T, glc:all(L)|Acc);
-trace_acc({null, Bool}|T, Acc) ->
-    trace_acc(T, glc:null(Bool)|Acc);
-trace_acc({Key, '*'}|T, Acc) ->
-    trace_acc(T, glc:wc(Key)|Acc);
-trace_acc({Key, '!'}|T, Acc) ->
-    trace_acc(T, glc:nf(Key)|Acc);
-trace_acc({Key, Val}|T, Acc) ->
-    trace_acc(T, glc:eq(Key, Val)|Acc);
-trace_acc({Key, '=', Val}|T, Acc) ->
-    trace_acc(T, glc:eq(Key, Val)|Acc);
-trace_acc({Key, '!=', Val}|T, Acc) ->
-    trace_acc(T, glc:neq(Key, Val)|Acc);
-trace_acc({Key, '>', Val}|T, Acc) ->
-    trace_acc(T, glc:gt(Key, Val)|Acc);
-trace_acc({Key, '>=', Val}|T, Acc) ->
-    trace_acc(T, glc:gte(Key, Val)|Acc);
-trace_acc({Key, '=<', Val}|T, Acc) ->
-    trace_acc(T, glc:lte(Key, Val)|Acc);
-trace_acc({Key, '<', Val}|T, Acc) ->
-    trace_acc(T, glc:lt(Key, Val)|Acc).
-
-check_traces(_, _,  , Acc) ->
-    lists:flatten(Acc);
-check_traces(Attrs, Level, {_, {mask, FilterLevel}, _}|Flows, Acc) when (Level band FilterLevel) == 0 ->
-    check_traces(Attrs, Level, Flows, Acc);
-check_traces(Attrs, Level, {Filter, _, _}|Flows, Acc) when length(Attrs) < length(Filter) ->
-    check_traces(Attrs, Level, Flows, Acc);
-check_traces(Attrs, Level, Flow|Flows, Acc) ->
-    check_traces(Attrs, Level, Flows, check_trace(Attrs, Flow)|Acc).
-
-check_trace(Attrs, {Filter, _Level, Dest}) when is_list(Filter) ->
-    check_trace(Attrs, {trace_all(Filter), _Level, Dest});
-
-check_trace(Attrs, {Filter, _Level, Dest}) when is_tuple(Filter) ->
-    Made = gre:make(Attrs, list),
-    glc:handle(?DEFAULT_TRACER, Made),
-    Match = glc_lib:matches(Filter, Made),
-    case Match of
-        true ->
-            Dest;
-        false ->
-            
-    end.
-
--spec is_loggable(lager_msg:lager_msg(), non_neg_integer()|{'mask', non_neg_integer()}, term()) -> boolean().
-is_loggable(Msg, {mask, Mask}, MyName) ->
-    %% using syslog style comparison flags
-    %S = lager_msg:severity_as_int(Msg),
-    %?debugFmt("comparing masks ~.2B and ~.2B -> ~p~n", S, Mask, S band Mask),
-    (lager_msg:severity_as_int(Msg) band Mask) /= 0 orelse
-    lists:member(MyName, lager_msg:destinations(Msg));
-is_loggable(Msg, SeverityThreshold, MyName) when is_atom(SeverityThreshold) ->
-    is_loggable(Msg, level_to_num(SeverityThreshold), MyName);
-is_loggable(Msg, SeverityThreshold, MyName) when is_integer(SeverityThreshold) ->
-    lager_msg:severity_as_int(Msg) =< SeverityThreshold orelse
-    lists:member(MyName, lager_msg:destinations(Msg)).
-
-i2l(I) when I < 10  -> $0, $0+I;
-i2l(I)              -> integer_to_list(I).
-i3l(I) when I < 100 -> $0 | i2l(I);
-i3l(I)              -> integer_to_list(I).
-
-%% When log_root option is provided, get the real path to a file
-expand_path(LogPath) ->
-    LogRoot = application:get_env(lager, log_root, undefined),
-    RealPath = case filename:absname(LogPath) =:= LogPath of
-                   false when LogRoot =/= undefined ->
-                       filename:join(LogRoot, LogPath);
-                   _ ->
-                       LogPath
-               end,
-    %% see #534 make sure c:cd can't change file path, trans filename to abs name
-    filename:absname(RealPath).
-
-%% Find a file among the already installed handlers.
-%%
-%% The file is already expanded (i.e. lager_util:expand_path already added the
-%% "log_root"), but the file paths inside Handlers are not.
-find_file(_File1, _Handlers = ) ->
-    false;
-find_file(File1, {{lager_file_backend, File2}, _Handler, _Sink} = HandlerInfo | Handlers) ->
-    File1Abs = File1,
-    File2Abs = lager_util:expand_path(File2),
-    case File1Abs =:= File2Abs of
-        true ->
-            % The file inside HandlerInfo is the same as the file we are looking
-            % for, so we are done.
-            HandlerInfo;
-        false ->
-            find_file(File1, Handlers)
-    end;
-find_file(File1, _HandlerInfo | Handlers) ->
-    find_file(File1, Handlers).
-
-%% conditionally check the HWM if the event would not have been filtered
-check_hwm(Shaper = #lager_shaper{filter = Filter}, Event) ->
-    case Filter(Event) of
-        true ->
-            {true, 0, Shaper};
-        false ->
-            check_hwm(Shaper)
-    end.
-
-%% Log rate limit, i.e. high water mark for incoming messages
-
-check_hwm(Shaper = #lager_shaper{hwm = undefined}) ->
-    {true, 0, Shaper};
-check_hwm(Shaper = #lager_shaper{mps = Mps, hwm = Hwm, lasttime = Last}) when Mps < Hwm ->
-    {M, S, _} = Now = os:timestamp(),
-    case Last of
-        {M, S, _} ->
-            {true, 0, Shaper#lager_shaper{mps=Mps+1}};
-        _ ->
-            %different second - reset mps
-            {true, 0, Shaper#lager_shaper{mps=1, lasttime = Now}}
-    end;
-check_hwm(Shaper = #lager_shaper{lasttime = Last, dropped = Drop}) ->
-    %% are we still in the same second?
-    {M, S, _} = Now = os:timestamp(),
-    case Last of
-        {M, S, N} ->
-            %% still in same second, but have exceeded the high water mark
-            NewDrops = case should_flush(Shaper) of
-                           true ->
-                               discard_messages(Now, Shaper#lager_shaper.filter, 0);
-                           false ->
-                               0
-                       end,
-            Timer = case erlang:read_timer(Shaper#lager_shaper.timer) of
-                        false ->
-                            erlang:send_after(trunc((1000000 - N)/1000), self(), {shaper_expired, Shaper#lager_shaper.id});
-                        _ ->
-                            Shaper#lager_shaper.timer
-                    end,
-            {false, 0, Shaper#lager_shaper{dropped=Drop+NewDrops, timer=Timer}};
-        _ ->
-            _ = erlang:cancel_timer(Shaper#lager_shaper.timer),
-            %% different second, reset all counters and allow it
-            {true, Drop, Shaper#lager_shaper{dropped = 0, mps=0, lasttime = Now}}
-    end.
-
-should_flush(#lager_shaper{flush_queue = true, flush_threshold = 0}) ->
-    true;
-should_flush(#lager_shaper{flush_queue = true, flush_threshold = T}) ->
-    {_, L} = process_info(self(), message_queue_len),
-    L > T;
-should_flush(_) ->
-    false.
-
-discard_messages(Second, Filter, Count) ->
-    {M, S, _} = os:timestamp(),
-    case Second of
-        {M, S, _} ->
-            receive
-                %% we only discard gen_event notifications, because
-                %% otherwise we might discard gen_event internal
-                %% messages, such as trapped EXITs
-                {notify, Event} ->
-                    NewCount = case Filter(Event) of
-                                   false -> Count+1;
-                                   true -> Count
-                               end,
-                    discard_messages(Second, Filter, NewCount)
-            after 0 ->
-                    Count
-            end;
-        _ ->
-            Count
-    end.
-
-%% @private Build an atom for the gen_event process based on a sink name.
-%% For historical reasons, the default gen_event process for lager itself is named
-%% `lager_event'. For all other sinks, it is SinkName++`_lager_event'
-make_internal_sink_name(lager) ->
-    ?DEFAULT_SINK;
-make_internal_sink_name(Sink) ->
-    list_to_atom(atom_to_list(Sink) ++ "_lager_event").
-
--spec otp_version() -> pos_integer().
-%% @doc Return the major version of the current Erlang/OTP runtime as an integer.
-otp_version() ->
-    {Vsn, _} = string:to_integer(
-        case erlang:system_info(otp_release) of
-            $R | Rel ->
-                Rel;
-            Rel ->
-                Rel
-        end),
-    Vsn.
-
-maybe_flush(undefined, #lager_shaper{} = S) ->
-    S;
-maybe_flush(Flag, #lager_shaper{} = S) when is_boolean(Flag) ->
-    S#lager_shaper{flush_queue = Flag}.
-
--spec has_file_changed(Name :: file:name_all(),
-                       Inode0 :: pos_integer(),
-                       Ctime0 :: file:date_time()) -> {boolean(), file:file_info() | undefined}.
-has_file_changed(Name, Inode0, Ctime0) ->
-    {OsType, _} = os:type(),
-    F = file:read_file_info(Name, raw),
-    case {OsType, F} of
-        {win32, {ok, #file_info{ctime=Ctime1}=FInfo}} ->
-            % Note: on win32, Inode is always zero
-            % So check the file's ctime to see if it
-            % needs to be re-opened
-            Changed = Ctime0 =/= Ctime1,
-            {Changed, FInfo};
-        {_, {ok, #file_info{inode=Inode1}=FInfo}} ->
-            Changed = Inode0 =/= Inode1,
-            {Changed, FInfo};
-        {_, _} ->
-            {true, undefined}
-    end.
-
--ifdef(TEST).
-
-parse_test() ->
-    ?assertEqual({ok, {minute, 0}}, parse_rotation_date_spec("$H0")),
-    ?assertEqual({ok, {minute, 59}}, parse_rotation_date_spec("$H59")),
-    ?assertEqual({ok, {hour, 0}}, parse_rotation_date_spec("$D0")),
-    ?assertEqual({ok, {hour, 23}}, parse_rotation_date_spec("$D23")),
-    ?assertEqual({ok, {day, 0}, {hour, 23}}, parse_rotation_date_spec("$W0D23")),
-    ?assertEqual({ok, {day, 5}, {hour, 16}}, parse_rotation_date_spec("$W5D16")),
-    ?assertEqual({ok, {day, 0}, {hour, 12}, {minute, 30}}, parse_rotation_date_spec("$W0D12H30")),
-    ?assertEqual({ok, {date, 1}, {hour, 0}}, parse_rotation_date_spec("$M1D0")),
-    ?assertEqual({ok, {date, 5}, {hour, 6}}, parse_rotation_date_spec("$M5D6")),
-    ?assertEqual({ok, {date, 5}, {hour, 0}}, parse_rotation_date_spec("$M5")),
-    ?assertEqual({ok, {date, 31}, {hour, 0}}, parse_rotation_date_spec("$M31")),
-    ?assertEqual({ok, {date, 31}, {hour, 1}}, parse_rotation_date_spec("$M31D1")),
-    ?assertEqual({ok, {date, last}, {hour, 0}}, parse_rotation_date_spec("$ML")),
-    ?assertEqual({ok, {date, last}, {hour, 0}}, parse_rotation_date_spec("$Ml")),
-    ?assertEqual({ok, {day, 5}, {hour, 0}}, parse_rotation_date_spec("$W5")),
-    ok.
-
-parse_fail_test() ->
-    ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$H")),
-    ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$H60")),
-    ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$D")),
-    ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$D24")),
-    ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$W7")),
-    ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$W7D1")),
-    ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$M32")),
-    ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$M32D1")),
-    ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$")),
-    ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("")),
-    ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$D15M5")),
-    ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$M5W5")),
-    ok.
-
-rotation_calculation_test() ->
-    ?assertMatch({{2000, 1, 1}, {13, 0, 0}},
-        calculate_next_rotation({minute, 0}, {{2000, 1, 1}, {12, 34, 43}})),
-    ?assertMatch({{2000, 1, 1}, {12, 45, 0}},
-        calculate_next_rotation({minute, 45}, {{2000, 1, 1}, {12, 34, 43}})),
-    ?assertMatch({{2000, 1, 2}, {0, 0, 0}},
-        calculate_next_rotation({minute, 0}, {{2000, 1, 1}, {23, 45, 43}})),
-    ?assertMatch({{2000, 1, 2}, {0, 0, 0}},
-        calculate_next_rotation({hour, 0}, {{2000, 1, 1}, {12, 34, 43}})),
-    ?assertMatch({{2000, 1, 1}, {16, 0, 0}},
-        calculate_next_rotation({hour, 16}, {{2000, 1, 1}, {12, 34, 43}})),
-    ?assertMatch({{2000, 1, 2}, {12, 0, 0}},
-        calculate_next_rotation({hour, 12}, {{2000, 1, 1}, {12, 34, 43}})),
-    ?assertMatch({{2000, 2, 1}, {12, 0, 0}},
-        calculate_next_rotation({date, 1}, {hour, 12}, {{2000, 1, 1}, {12, 34, 43}})),
-    ?assertMatch({{2000, 2, 1}, {12, 0, 0}},
-        calculate_next_rotation({date, 1}, {hour, 12}, {{2000, 1, 15}, {12, 34, 43}})),
-    ?assertMatch({{2000, 2, 1}, {12, 0, 0}},
-        calculate_next_rotation({date, 1}, {hour, 12}, {{2000, 1, 2}, {12, 34, 43}})),
-    ?assertMatch({{2000, 2, 1}, {12, 0, 0}},
-        calculate_next_rotation({date, 1}, {hour, 12}, {{2000, 1, 31}, {12, 34, 43}})),
-    ?assertMatch({{2000, 1, 1}, {16, 0, 0}},
-        calculate_next_rotation({date, 1}, {hour, 16}, {{2000, 1, 1}, {12, 34, 43}})),
-    ?assertMatch({{2000, 1, 15}, {16, 0, 0}},
-        calculate_next_rotation({date, 15}, {hour, 16}, {{2000, 1, 1}, {12, 34, 43}})),
-    ?assertMatch({{2000, 1, 31}, {16, 0, 0}},
-        calculate_next_rotation({date, last}, {hour, 16}, {{2000, 1, 1}, {12, 34, 43}})),
-    ?assertMatch({{2000, 1, 31}, {16, 0, 0}},
-        calculate_next_rotation({date, last}, {hour, 16}, {{2000, 1, 31}, {12, 34, 43}})),
-    ?assertMatch({{2000, 2, 29}, {16, 0, 0}},
-        calculate_next_rotation({date, last}, {hour, 16}, {{2000, 1, 31}, {17, 34, 43}})),
-    ?assertMatch({{2001, 2, 28}, {16, 0, 0}},
-        calculate_next_rotation({date, last}, {hour, 16}, {{2001, 1, 31}, {17, 34, 43}})),
-
-    ?assertMatch({{2000, 1, 1}, {16, 0, 0}},
-        calculate_next_rotation({day, 6}, {hour, 16}, {{2000, 1, 1}, {12, 34, 43}})),
-    ?assertMatch({{2000, 1, 8}, {16, 0, 0}},
-        calculate_next_rotation({day, 6}, {hour, 16}, {{2000, 1, 1}, {17, 34, 43}})),
-    ?assertMatch({{2000, 1, 7}, {16, 0, 0}},
-        calculate_next_rotation({day, 5}, {hour, 16}, {{2000, 1, 1}, {17, 34, 43}})),
-    ?assertMatch({{2000, 1, 3}, {16, 0, 0}},
-        calculate_next_rotation({day, 1}, {hour, 16}, {{2000, 1, 1}, {17, 34, 43}})),
-    ?assertMatch({{2000, 1, 2}, {16, 0, 0}},
-        calculate_next_rotation({day, 0}, {hour, 16}, {{2000, 1, 1}, {17, 34, 43}})),
-    ?assertMatch({{2000, 1, 9}, {16, 0, 0}},
-        calculate_next_rotation({day, 0}, {hour, 16}, {{2000, 1, 2}, {17, 34, 43}})),
-    ?assertMatch({{2000, 2, 3}, {16, 0, 0}},
-        calculate_next_rotation({day, 4}, {hour, 16}, {{2000, 1, 29}, {17, 34, 43}})),
-
-    ?assertMatch({{2000, 1, 7}, {16, 0, 0}},
-        calculate_next_rotation({day, 5}, {hour, 16}, {{2000, 1, 3}, {17, 34, 43}})),
-
-    ?assertMatch({{2000, 1, 3}, {16, 0, 0}},
-        calculate_next_rotation({day, 1}, {hour, 16}, {{1999, 12, 28}, {17, 34, 43}})),
-    ok.
-
-check_trace_test() ->
-    lager:start(),
-    trace_filter(none),
-    %% match by module
-    ?assertEqual(foo, check_traces({module, ?MODULE}, ?EMERGENCY, 
-                {{module, ?MODULE}, config_to_mask(emergency), foo},
-                {{module, test}, config_to_mask(emergency), bar}, )),
-    %% match by module, but other unsatisfyable attribute
-    ?assertEqual(, check_traces({module, ?MODULE}, ?EMERGENCY, 
-                {{module, ?MODULE}, {foo, bar}, config_to_mask(emergency), foo},
-                {{module, test}, config_to_mask(emergency), bar}, )),
-    %% match by wildcard module
-    ?assertEqual(bar, check_traces({module, ?MODULE}, ?EMERGENCY, 
-                {{module, ?MODULE}, {foo, bar}, config_to_mask(emergency), foo},
-                {{module, '*'}, config_to_mask(emergency), bar}, )),
-    %% wildcard module, one trace with unsatisfyable attribute
-    ?assertEqual(bar, check_traces({module, ?MODULE}, ?EMERGENCY, 
-                {{module, '*'}, {foo, bar}, config_to_mask(emergency), foo},
-                {{module, '*'}, config_to_mask(emergency), bar}, )),
-    %% wildcard but not present custom trace attribute
-    ?assertEqual(bar, check_traces({module, ?MODULE}, ?EMERGENCY, 
-                {{module, '*'}, {foo, '*'}, config_to_mask(emergency), foo},
-                {{module, '*'}, config_to_mask(emergency), bar}, )),
-    %% wildcarding a custom attribute works when it is present
-    ?assertEqual(bar, foo, check_traces({module, ?MODULE}, {foo, bar}, ?EMERGENCY, 
-                {{module, '*'}, {foo, '*'}, config_to_mask(emergency), foo},
-                {{module, '*'}, config_to_mask(emergency), bar}, )),
-    %% denied by level
-    ?assertEqual(, check_traces({module, ?MODULE}, {foo, bar}, ?INFO, 
-                {{module, '*'}, {foo, '*'}, config_to_mask(emergency), foo},
-                {{module, '*'}, config_to_mask(emergency), bar}, )),
-    %% allowed by level
-    ?assertEqual(foo, check_traces({module, ?MODULE}, {foo, bar}, ?INFO, 
-                {{module, '*'}, {foo, '*'}, config_to_mask(debug), foo},
-                {{module, '*'}, config_to_mask(emergency), bar}, )),
-    ?assertEqual(anythingbutnotice, infoandbelow, infoonly, check_traces({module, ?MODULE}, ?INFO, 
-                {{module, '*'}, config_to_mask('=debug'), debugonly},
-                {{module, '*'}, config_to_mask('=info'), infoonly},
-                {{module, '*'}, config_to_mask('<=info'), infoandbelow},
-                {{module, '*'}, config_to_mask('!=info'), anythingbutinfo},
-                {{module, '*'}, config_to_mask('!=notice'), anythingbutnotice}
-                , )),
-    application:stop(lager),
-    application:stop(goldrush),
-    ok.
-
-is_loggable_test_() ->
-    
-        {"Loggable by severity only", ?_assert(is_loggable(lager_msg:new("", alert, , ),2,me))},
-        {"Not loggable by severity only", ?_assertNot(is_loggable(lager_msg:new("", critical, , ),1,me))},
-        {"Loggable by severity with destination", ?_assert(is_loggable(lager_msg:new("", alert, , you),2,me))},
-        {"Not loggable by severity with destination", ?_assertNot(is_loggable(lager_msg:new("", critical, , you),1,me))},
-        {"Loggable by destination overriding severity", ?_assert(is_loggable(lager_msg:new("", critical, , me),1,me))}
-    .
-
-format_time_test_() ->
-    
-        ?_assertEqual("2012-10-04 11:16:23.002",
-            begin
-                {D, T} = format_time({{2012,10,04},{11,16,23,2}}),
-                lists:flatten(D,$ ,T)
-            end),
-        ?_assertEqual("2012-10-04 11:16:23.999",
-            begin
-                {D, T} = format_time({{2012,10,04},{11,16,23,999}}),
-                lists:flatten(D,$ ,T)
-            end),
-        ?_assertEqual("2012-10-04 11:16:23",
-            begin
-                {D, T} = format_time({{2012,10,04},{11,16,23}}),
-                lists:flatten(D,$ ,T)
-            end),
-        ?_assertEqual("2012-10-04 00:16:23.092 UTC",
-            begin
-                {D, T} = format_time({utc, {{2012,10,04},{0,16,23,92}}}),
-                lists:flatten(D,$ ,T)
-            end),
-        ?_assertEqual("2012-10-04 11:16:23 UTC",
-            begin
-                {D, T} = format_time({utc, {{2012,10,04},{11,16,23}}}),
-                lists:flatten(D,$ ,T)
-            end)
-    .
-
-config_to_levels_test() ->
-    ?assertEqual(none, config_to_levels('none')),
-    ?assertEqual({mask, 0}, config_to_mask('none')),
-    ?assertEqual(debug, config_to_levels('=debug')),
-    ?assertEqual(debug, config_to_levels('<info')),
-    ?assertEqual(levels() -- debug, config_to_levels('!=debug')),
-    ?assertEqual(levels() -- debug, config_to_levels('>debug')),
-    ?assertEqual(levels() -- debug, config_to_levels('>=info')),
-    ?assertEqual(levels() -- debug, config_to_levels('=>info')),
-    ?assertEqual(debug, info, notice, config_to_levels('<=notice')),
-    ?assertEqual(debug, info, notice, config_to_levels('=<notice')),
-    ?assertEqual(debug, config_to_levels('<info')),
-    ?assertEqual(debug, config_to_levels('!info')),
-    ?assertError(badarg, config_to_levels(ok)),
-    ?assertError(badarg, config_to_levels('<=>info')),
-    ?assertError(badarg, config_to_levels('=<=info')),
-    ?assertError(badarg, config_to_levels('<==>=<=>info')),
-    %% double negatives DO work, however
-    ?assertEqual(debug, config_to_levels('!!=debug')),
-    ?assertEqual(levels() -- debug, config_to_levels('!!!=debug')),
-    ok.
-
-config_to_mask_test() ->
-    ?assertEqual({mask, 0}, config_to_mask('none')),
-    ?assertEqual({mask, ?DEBUG bor ?INFO bor ?NOTICE bor ?WARNING bor ?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY}, config_to_mask('debug')),
-    ?assertEqual({mask, ?WARNING bor ?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY}, config_to_mask('warning')),
-    ?assertEqual({mask, ?DEBUG bor ?NOTICE bor ?WARNING bor ?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY}, config_to_mask('!=info')),
-    ok.
-
-mask_to_levels_test() ->
-    ?assertEqual(, mask_to_levels(0)),
-    ?assertEqual(debug, mask_to_levels(2#10000000)),
-    ?assertEqual(debug, info, mask_to_levels(2#11000000)),
-    ?assertEqual(debug, info, emergency, mask_to_levels(2#11000001)),
-    ?assertEqual(debug, notice, error, mask_to_levels(?DEBUG bor ?NOTICE bor ?ERROR)),
-    ok.
-
-expand_path_test() ->
-    OldRootVal = application:get_env(lager, log_root),
-
-    ok = application:unset_env(lager, log_root),
-    ?assertEqual(filename:absname("/foo/bar"), expand_path("/foo/bar")),
-    ?assertEqual(filename:absname("foo/bar"), expand_path("foo/bar")),
-
-    ok = application:set_env(lager, log_root, "log/dir"),
-    ?assertEqual(filename:absname("/foo/bar"), expand_path("/foo/bar")), % Absolute path should not be changed
-    ?assertEqual(filename:absname("log/dir/foo/bar"), expand_path("foo/bar")),
-
-    case OldRootVal of
-        undefined -> application:unset_env(lager, log_root);
-        {ok, Root} -> application:set_env(lager, log_root, Root)
-    end,
-    ok.
-
-sink_name_test_() ->
-    
-        ?_assertEqual(lager_event, make_internal_sink_name(lager)),
-        ?_assertEqual(audit_lager_event, make_internal_sink_name(audit))
-    .
-
-create_test_dir() ->
-    {ok, Tmp} = get_temp_dir(),
-    Dir = filename:join(Tmp, "lager_test",
-        erlang:integer_to_list(erlang:phash2(os:timestamp()))),
-    ?assertEqual(ok, filelib:ensure_dir(Dir)),
-    TestDir = case file:make_dir(Dir) of
-                  ok ->
-                      Dir;
-                  Err ->
-                      ?assertEqual({error, eexist}, Err),
-                      create_test_dir()
-                  end,
-    ok = application:set_env(lager, test_dir, TestDir),
-    {ok, TestDir}.
-
-get_test_dir() ->
-    case application:get_env(lager, test_dir) of
-        undefined ->
-            create_test_dir();
-        {ok, _}=Res ->
-            Res
-    end.
-
-get_temp_dir() ->
-    Tmp = case os:getenv("TEMP") of
-              false ->
-                  case os:getenv("TMP") of
-                      false -> "/tmp";
-                      Dir1 -> Dir1
-                  end;
-               Dir0 -> Dir0
-          end,
-    ?assertEqual(true, filelib:is_dir(Tmp)),
-    {ok, Tmp}.
-
-delete_test_dir() ->
-    {ok, TestDir} = get_test_dir(),
-    ok = delete_test_dir(TestDir).
-
-delete_test_dir(TestDir) ->
-    ok = application:unset_env(lager, test_dir),
-    {OsType, _} = os:type(),
-    ok = case {OsType, otp_version()} of
-             {win32, _} ->
-                 application:stop(lager),
-                 do_delete_test_dir(TestDir);
-             {unix, 15} ->
-                 os:cmd("rm -rf " ++ TestDir);
-             {unix, _} ->
-                 do_delete_test_dir(TestDir)
-         end.
-
-do_delete_test_dir(Dir) ->
-    ListRet = file:list_dir_all(Dir),
-    ?assertMatch({ok, _}, ListRet),
-    {_, Entries} = ListRet,
-    lists:foreach(
-        fun(Entry) ->
-            FsElem = filename:join(Dir, Entry),
-            case filelib:is_dir(FsElem) of
-                true ->
-                    delete_test_dir(FsElem);
-                _ ->
-                    case file:delete(FsElem) of
-                        ok -> ok;
-                        Error ->
-                            io:format(standard_error, "ERROR: error deleting file ~p~n", FsElem),
-                            ?assertEqual(ok, Error)
-                    end
-            end
-        end, Entries),
-    ?assertEqual(ok, file:del_dir(Dir)).
-
-do_delete_file(_FsElem, 0) ->
-    ?assert(false);
-do_delete_file(FsElem, Attempts) ->
-    case file:delete(FsElem) of
-        ok -> ok;
-        _Error ->
-            do_delete_file(FsElem, Attempts - 1)
-    end.
-
-set_dir_permissions(Perms, Dir) ->
-    do_set_dir_permissions(os:type(), Perms, Dir).
-
-do_set_dir_permissions({win32, _}, _Perms, _Dir) ->
-    ok;
-do_set_dir_permissions({unix, _}, Perms, Dir) ->
-    os:cmd("chmod -R " ++ Perms ++ " " ++ Dir),
-    ok.
-
-safe_application_load(App) ->
-    case application:load(App) of
-        ok ->
-            ok;
-        {error, {already_loaded, App}} ->
-            ok;
-        Error ->
-            ?assertEqual(ok, Error)
-    end.
-
-safe_write_file(File, Content) ->
-    % Note: ensures that the new creation time is at least one second
-    % in the future
-    ?assertEqual(ok, file:write_file(File, Content)),
-    Ctime0 = calendar:local_time(),
-    Ctime0Sec = calendar:datetime_to_gregorian_seconds(Ctime0),
-    Ctime1Sec = Ctime0Sec + 1,
-    Ctime1 = calendar:gregorian_seconds_to_datetime(Ctime1Sec),
-    {ok, FInfo0} = file:read_file_info(File, raw),
-    FInfo1 = FInfo0#file_info{ctime = Ctime1},
-    ?assertEqual(ok, file:write_file_info(File, FInfo1, raw)).
-
--endif.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/test Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/test/compress_pr_record_test.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/test/crash.erl Deleted

@@ -1,109 +0,0 @@
-
-%% a module that crashes in just about every way possible
-
--module(crash).
-
--behaviour(gen_server).
-
--export(init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3).
-
--export(start/0).
-
--record(state, {
-        host :: term(),
-        port :: term()
-    }).
-
-start() ->
-    gen_server:start({local, ?MODULE}, ?MODULE, , ).
-
-init(_) ->
-    {ok, {}}.
-
-handle_call(undef, _, State) ->
-    {reply, ?MODULE:booger(), State};
-handle_call(badfun, _, State) ->
-    M = booger,
-    {reply, M(), State};
-handle_call(bad_return, _, _) ->
-    bleh;
-handle_call(bad_return_string, _, _) ->
-    {tuple, {tuple, "string"}};
-handle_call(case_clause, _, State) ->
-    case State of
-        goober ->
-            {reply, ok, State}
-    end;
-handle_call(case_clause_string, _, State) ->
-    Foo = atom_to_list(?MODULE),
-    case Foo of
-        State ->
-            {reply, ok, State}
-    end;
-handle_call(if_clause, _, State) ->
-    if State == 1 ->
-            {reply, ok, State}
-    end;
-handle_call(try_clause, _, State) ->
-    Res = try tuple_to_list(State) of
-        _A, _B -> ok
-    catch
-        _:_ -> ok
-    end,
-    {reply, Res, State};
-handle_call(badmatch, _, State) ->
-    {A, B, C} = State,
-    {reply, A, B, C, State};
-handle_call(badrecord, _, State) ->
-    Host = State#state.host,
-    {reply, Host, State};
-handle_call(function_clause, _, State) ->
-    {reply, function(State), State};
-handle_call(badarith, _, State) ->
-    Res = 1 / length(tuple_to_list(State)),
-    {reply, Res, State};
-handle_call(badarg1, _, State) ->
-    Res = list_to_binary("foo", bar),
-    {reply, Res, State};
-handle_call(badarg2, _, State) ->
-    Res = erlang:iolist_to_binary("foo", bar),
-    {reply, Res, State};
-handle_call(system_limit, _, State) ->
-    Res = list_to_atom(lists:flatten(lists:duplicate(256, "a"))),
-    {reply, Res, State};
-handle_call(process_limit, _, State) ->
-    %% run with +P 300 to make this crash
-    erlang:spawn(fun() -> timer:sleep(5000) end) || _ <- lists:seq(0, 500),
-    {reply, ok, State};
-handle_call(port_limit, _, State) ->
-    erlang:open_port({spawn, "ls"}, ) || _ <- lists:seq(0, 1024),
-    {reply, ok, State};
-handle_call(noproc, _, State) ->
-    Res = gen_event:call(foo, bar, baz),
-    {reply, Res, State};
-handle_call(noproc_proc_lib, _, State) ->
-    Res = proc_lib:stop(foo),
-    {reply, Res, State};
-handle_call(badarity, _, State) ->
-    F = fun(A, B, C) -> A + B + C end,
-    Res = F(State),
-    {reply, Res, State};
-handle_call(throw, _, _State) ->
-    throw(a_ball);
-handle_call(_Call, _From, State) ->
-    {reply, ok, State}.
-
-handle_cast(_Cast, State) ->
-    {noreply, State}.
-
-handle_info(_Info, State) ->
-    {noreply, State}.
-
-terminate(_, _) ->
-    ok.
-
-code_change(_, State, _) ->
-    {ok, State}.
-
-function(X) when is_list(X) ->
-    ok.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/test/crash_fsm.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/test/crash_statem.erl Deleted

@@ -1,46 +0,0 @@
--module(crash_statem).
-%% we're only going to compile this on OTP 19+
--behaviour(gen_statem).
-
--export(
-         start/0,
-         crash/0,
-         stop/1,
-         timeout/0,
-         handle_event/4
-).
-
--export(terminate/3,code_change/4,init/1,callback_mode/0).
-
-start() ->
-    gen_statem:start({local,?MODULE}, ?MODULE, , ).
-
-crash() ->
-    gen_statem:call(?MODULE, boom).
-
-stop(Reason) ->
-    gen_statem:call(?MODULE, {stop, Reason}).
-
-timeout() ->
-    gen_statem:call(?MODULE, timeout).
-
-%% Mandatory callback functions
-terminate(_Reason, _State, _Data) -> ok.
-code_change(_Vsn, State, Data, _Extra) -> {ok,State,Data}.
-init() ->
-    %% insert rant here about breaking changes in minor versions...
-    case erlang:system_info(version) of
-        "8.0" -> {callback_mode(),state1,undefined};
-        _ -> {ok, state1, undefined}
-    end.
-
-callback_mode() -> handle_event_function.
-
-%%% state callback(s)
-
-handle_event(state_timeout, timeout, state1, _) ->
-    {stop, timeout};
-handle_event({call, _From}, timeout, _Arg, _Data) ->
-    {keep_state_and_data, {state_timeout, 0, timeout}};
-handle_event({call, _From}, {stop, Reason}, state1, _Data) ->
-    {stop, Reason}.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/test/lager_app_tests.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/test/lager_crash_backend.erl Deleted

@@ -1,68 +0,0 @@
-%% Copyright (c) 2011-2012 Basho Technologies, Inc.  All Rights Reserved.
-%%
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-
--module(lager_crash_backend).
-
--include("lager.hrl").
-
--behaviour(gen_event).
-
--export(init/1, handle_call/2, handle_event/2, handle_info/2, terminate/2,
-        code_change/3).
-
--ifdef(TEST).
--include_lib("eunit/include/eunit.hrl").
--endif.
-
-init(CrashBefore, CrashAfter) ->
-    case is_tuple(CrashBefore) andalso (timer:now_diff(CrashBefore, os:timestamp()) > 0) of
-        true ->
-            %?debugFmt("crashing!~n", ),
-            {error, crashed};
-        _ ->
-            %?debugFmt("Not crashing!~n", ),
-            case is_tuple(CrashAfter) of
-                true ->
-                    CrashTime = timer:now_diff(CrashAfter, os:timestamp()) div 1000,
-                    case CrashTime > 0 of
-                        true ->
-                            %?debugFmt("crashing in ~p~n", CrashTime),
-                            erlang:send_after(CrashTime, self(), crash),
-                            {ok, {}};
-                        _ -> {error, crashed}
-                    end;
-                _ ->
-                    {ok, {}}
-            end
-    end.
-
-handle_call(_Request, State) ->
-    {ok, ok, State}.
-
-handle_event(_Event, State) ->
-    {ok, State}.
-
-handle_info(crash, _State) ->
-    %?debugFmt("Time to crash!~n", ),
-    crash;
-handle_info(_Info, State) ->
-    {ok, State}.
-
-terminate(_Reason, _State) ->
-    ok.
-
-code_change(_OldVsn, State, _Extra) ->
-    {ok, State}.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/test/lager_manager_killer_test.erl Deleted

@@ -1,125 +0,0 @@
--module(lager_manager_killer_test).
--author("Sungjin Park <jinni.park@gmail.com>").
-
--compile({parse_transform, lager_transform}).
-
--ifdef(TEST).
--include_lib("eunit/include/eunit.hrl").
-
--define(TEST_SINK_NAME, '__lager_test_sink').              %% <-- used by parse transform
--define(TEST_SINK_EVENT, '__lager_test_sink_lager_event'). %% <-- used by lager API calls and internals for gen_event
-
-overload_test_() ->
-    {timeout, 60,
-     fun() ->
-             application:stop(lager),
-             application:load(lager),
-             Delay = 1000, % sleep 1 sec on every log
-             KillerHWM = 10, % kill the manager if there are more than 10 pending logs
-             KillerReinstallAfter = 1000, % reinstall killer after 1 sec
-             application:set_env(lager, handlers, {lager_slow_backend, {delay, Delay}}),
-             application:set_env(lager, async_threshold, undefined),
-             application:set_env(lager, error_logger_redirect, true),
-             application:set_env(lager, killer_hwm, KillerHWM),
-             application:set_env(lager, killer_reinstall_after, KillerReinstallAfter),
-             ensure_started(lager),
-             lager_config:set(async, true),
-             Manager = whereis(lager_event),
-             erlang:trace(all, true, procs),
-             lager:info("~p'th message", N) || N <- lists:seq(1,KillerHWM+2),
-             Margin = 100,
-             ok = confirm_manager_exit(Manager, Delay+Margin),
-             ok = confirm_sink_reregister(lager_event, Margin),
-             erlang:trace(all, false, procs),
-             wait_until(fun() ->
-                                case proplists:get_value(lager_manager_killer, gen_event:which_handlers(lager_event)) of
-                                     -> false;
-                                    _ -> true
-                                end
-                        end, Margin, 15),
-             wait_until(fun() ->
-                                case gen_event:call(lager_event, lager_manager_killer, get_settings) of
-                                    KillerHWM, KillerReinstallAfter -> true;
-                                    _Other -> false
-                                end
-                        end, Margin, 15),
-             application:stop(lager)
-     end}.
-
-overload_alternate_sink_test_() ->
-    {timeout, 60,
-     fun() ->
-             application:stop(lager),
-             application:load(lager),
-             Delay = 1000, % sleep 1 sec on every log
-             KillerHWM = 10, % kill the manager if there are more than 10 pending logs
-             KillerReinstallAfter = 1000, % reinstall killer after 1 sec
-             application:set_env(lager, handlers, ),
-             application:set_env(lager, extra_sinks, {?TEST_SINK_EVENT, 
-                                                                          {handlers, {lager_slow_backend, {delay, Delay}}},
-                                                                          {killer_hwm, KillerHWM},
-                                                                          {killer_reinstall_after, KillerReinstallAfter},
-                                                                          {async_threshold, undefined}
-                                                                         }),
-             application:set_env(lager, error_logger_redirect, true),
-             ensure_started(lager),
-             lager_config:set({?TEST_SINK_EVENT, async}, true),
-             Manager = whereis(?TEST_SINK_EVENT),
-             erlang:trace(all, true, procs),
-             ?TEST_SINK_NAME:info("~p'th message", N) || N <- lists:seq(1,KillerHWM+2),
-             Margin = 100,
-             ok = confirm_manager_exit(Manager, Delay+Margin),
-             ok = confirm_sink_reregister(?TEST_SINK_EVENT, Margin),
-             erlang:trace(all, false, procs),
-             wait_until(fun() ->
-                                case proplists:get_value(lager_manager_killer, gen_event:which_handlers(?TEST_SINK_EVENT)) of
-                                     -> false;
-                                    _ -> true
-                                end
-                        end, Margin, 15),
-             wait_until(fun() ->
-                                case gen_event:call(?TEST_SINK_EVENT, lager_manager_killer, get_settings) of
-                                    KillerHWM, KillerReinstallAfter -> true;
-                                    _Other -> false
-                                end
-                        end, Margin, 15),
-             application:stop(lager)
-     end}.
-
-ensure_started(App) ->
-    case application:start(App) of
-        ok ->
-            ok;
-        {error, {not_started, Dep}} ->
-            ensure_started(Dep),
-            ensure_started(App)
-    end.
-
-confirm_manager_exit(Manager, Delay) ->
-    receive
-        {trace, Manager, exit, killed} ->
-            ?debugFmt("Manager ~p killed", Manager);
-        Other ->
-            ?debugFmt("OTHER MSG: ~p", Other),
-            confirm_manager_exit(Manager, Delay)
-    after Delay ->
-            ?assert(false)
-    end.
-
-confirm_sink_reregister(Sink, Delay) ->
-    receive
-        {trace, _Pid, register, Sink} ->
-            ?assertNot(lists:member(lager_manager_killer, gen_event:which_handlers(Sink)))
-    after Delay ->
-            ?assert(false)
-    end.
-
-wait_until(_Fun, _Delay, 0) ->
-    {error, too_many_retries};
-wait_until(Fun, Delay, Retries) ->
-    case Fun() of
-        true -> ok;
-        false -> timer:sleep(Delay), wait_until(Fun, Delay, Retries-1)
-    end.
-
--endif.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/test/lager_metadata_whitelist_test.erl Deleted

@@ -1,72 +0,0 @@
-
--module(lager_metadata_whitelist_test).
-
-
--ifdef(TEST).
--include_lib("eunit/include/eunit.hrl").
-
-setup() ->
-    ok = error_logger:tty(false),
-    ok = lager_util:safe_application_load(lager),
-    ok = application:set_env(lager, handlers, {lager_common_test_backend, info}),
-    ok = application:set_env(lager, error_logger_redirect, false),
-    ok = application:unset_env(lager, traces),
-    ok = lager:start(),
-    ok = timer:sleep(250),
-    ok.
-
-cleanup(_) ->
-    ok = application:unset_env(lager, metadata_whitelist),
-    catch ets:delete(lager_config), %% kill the ets config table with fire
-    ok = application:stop(lager),
-    ok = application:stop(goldrush),
-    ok = error_logger:tty(true).
-
-date_time_now() ->
-    Now = os:timestamp(),
-    {Date, Time} = lager_util:format_time(lager_util:maybe_utc(lager_util:localtime_ms(Now))),
-    {Date, Time, Now}.
-
-basic_test_() ->
-    {Date, Time, Now} = date_time_now(),
-    {
-        foreach,
-        fun setup/0,
-        fun cleanup/1,
-        {"Meta", fun() ->
-             Whitelist = meta0,
-            ok = application:set_env(lager, metadata_whitelist, Whitelist),
-            Msg = lager_msg:new("Message", Now, error, , ),
-            Expected = iolist_to_binary(Date, " ", Time,  " error  Message\n"),
-            Got = iolist_to_binary(lager_default_formatter:format(Msg, )),
-            ?assertEqual(Expected, Got)
-         end},
-            {"Meta1", fun() ->
-            Whitelist = meta1,
-            ok = application:set_env(lager, metadata_whitelist, Whitelist),
-            Msg = lager_msg:new("Message", Now, error, {meta1, "value1"}, ),
-            Expected = iolist_to_binary(Date, " ", Time,  " error  meta1=value1 Message\n"),
-            Got = iolist_to_binary(lager_default_formatter:format(Msg, )),
-            ?assertEqual(Expected, Got)
-         end},
-         {"Meta2", fun() ->
-            Whitelist = meta1, meta2,
-            ok = application:set_env(lager, metadata_whitelist, Whitelist),
-            Msg = lager_msg:new("Message", Now, error, {meta1, "value1"}, {meta2, 2}, ),
-            Expected = iolist_to_binary(Date, " ", Time,  " error  meta1=value1 meta2=2 Message\n"),
-            Got = iolist_to_binary(lager_default_formatter:format(Msg, )),
-            ?assertEqual(Expected, Got)
-         end},
-         {"Meta3", fun() ->
-            Whitelist = meta1, meta2,
-            ok = application:set_env(lager, metadata_whitelist, Whitelist),
-            Msg = lager_msg:new("Message", Now, error, {meta1, "value1"}, {meta3, 3}, ),
-            Expected = iolist_to_binary(Date, " ", Time,  " error  meta1=value1 Message\n"),
-            Got = iolist_to_binary(lager_default_formatter:format(Msg, )),
-            ?assertEqual(Expected, Got)
-         end}
-        
-    }.
-
-
--endif.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/test/lager_rotate.erl Deleted

@@ -1,185 +0,0 @@
-%% -------------------------------------------------------------------
-%%
-%% Copyright (c) 2016-2017 Basho Technologies, Inc.
-%%
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-%%
-%% -------------------------------------------------------------------
-
--module(lager_rotate).
-
--ifdef(TEST).
--include_lib("eunit/include/eunit.hrl").
--endif.
-
--record(state, {
-    dir     :: string(),
-    log1    :: string(),
-    log1r   :: string(),
-    log2    :: string(),
-    log2r   :: string(),
-    sink    :: string(),
-    sinkr   :: string()
-}).
-
-rotate_test_() ->
-    {foreach,
-        fun() ->
-            {ok, Dir} = lager_util:create_test_dir(),
-            Log1 = filename:join(Dir, "test1.log"),
-            Log2 = filename:join(Dir, "test2.log"),
-            Sink = filename:join(Dir, "sink.log"),
-            State = #state{
-                dir     = Dir,
-                log1    = Log1,
-                log1r   = Log1 ++ ".0",
-                log2    = Log2,
-                log2r   = Log2 ++ ".0",
-                sink    = Sink,
-                sinkr   = Sink ++ ".0"
-            },
-            file:write_file(Log1, ),
-            file:write_file(Log2, ),
-            file:write_file(Sink, ),
-
-            error_logger:tty(false),
-            application:load(lager),
-            application:set_env(lager, handlers, 
-                {lager_file_backend, {file, Log1}, {level, info}},
-                {lager_file_backend, {file, Log2}, {level, info}} ),
-            application:set_env(lager, extra_sinks, 
-                {sink_event,
-                    {handlers,
-                        {lager_file_backend, {file, Sink}, {level, info}}}
-                    }),
-            application:set_env(lager, error_logger_redirect, false),
-            application:set_env(lager, async_threshold, undefined),
-            lager:start(),
-            timer:sleep(1000),
-            State
-        end,
-        fun(#state{}) ->
-            ok = application:stop(lager),
-            ok = application:stop(goldrush),
-            ok = lager_util:delete_test_dir(),
-            ok = error_logger:tty(true)
-        end, 
-        fun(State) ->
-            {"Rotate single file",
-            fun() ->
-                lager:log(error, self(), "Test message 1"),
-                lager:log(sink_event, error, self(), "Sink test message 1", ),
-                lager:rotate_handler({lager_file_backend, State#state.log1}),
-                ok = wait_until(fun() -> filelib:is_regular(State#state.log1r) end, 10),
-                lager:log(error, self(), "Test message 2"),
-                lager:log(sink_event, error, self(), "Sink test message 2", ),
-
-                {ok, File1} = file:read_file(State#state.log1),
-                {ok, File2} = file:read_file(State#state.log2),
-                {ok, SinkFile} = file:read_file(State#state.sink),
-                {ok, File1Old} = file:read_file(State#state.log1r),
-
-                have_no_log(File1, <<"Test message 1">>),
-                have_log(File1, <<"Test message 2">>),
-
-                have_log(File2, <<"Test message 1">>),
-                have_log(File2, <<"Test message 2">>),
-
-                have_log(File1Old, <<"Test message 1">>),
-                have_no_log(File1Old, <<"Test message 2">>),
-
-                have_log(SinkFile, <<"Sink test message 1">>),
-                have_log(SinkFile, <<"Sink test message 2">>)
-            end}
-        end,
-        fun(State) ->
-            {"Rotate sink",
-            fun() ->
-                lager:log(error, self(), "Test message 1"),
-                lager:log(sink_event, error, self(), "Sink test message 1", ),
-                lager:rotate_sink(sink_event),
-                ok = wait_until(fun() -> filelib:is_regular(State#state.sinkr) end, 10),
-                lager:log(error, self(), "Test message 2"),
-                lager:log(sink_event, error, self(), "Sink test message 2", ),
-                {ok, File1} = file:read_file(State#state.log1),
-                {ok, File2} = file:read_file(State#state.log2),
-                {ok, SinkFile} = file:read_file(State#state.sink),
-                {ok, SinkFileOld} = file:read_file(State#state.sinkr),
-
-                have_log(File1, <<"Test message 1">>),
-                have_log(File1, <<"Test message 2">>),
-
-                have_log(File2, <<"Test message 1">>),
-                have_log(File2, <<"Test message 2">>),
-
-                have_log(SinkFileOld, <<"Sink test message 1">>),
-                have_no_log(SinkFileOld, <<"Sink test message 2">>),
-
-                have_no_log(SinkFile, <<"Sink test message 1">>),
-                have_log(SinkFile, <<"Sink test message 2">>)
-            end}
-        end,
-        fun(State) ->
-            {"Rotate all",
-            fun() ->
-                lager:log(error, self(), "Test message 1"),
-                lager:log(sink_event, error, self(), "Sink test message 1", ),
-                lager:rotate_all(),
-                ok = wait_until(fun() -> filelib:is_regular(State#state.sinkr) end, 10),
-                lager:log(error, self(), "Test message 2"),
-                lager:log(sink_event, error, self(), "Sink test message 2", ),
-                {ok, File1} = file:read_file(State#state.log1),
-                {ok, File2} = file:read_file(State#state.log2),
-                {ok, SinkFile} = file:read_file(State#state.sink),
-                {ok, File1Old} = file:read_file(State#state.log1r),
-                {ok, File2Old} = file:read_file(State#state.log2r),
-                {ok, SinkFileOld} = file:read_file(State#state.sinkr),
-
-                have_no_log(File1, <<"Test message 1">>),
-                have_log(File1, <<"Test message 2">>),
-
-                have_no_log(File2, <<"Test message 1">>),
-                have_log(File2, <<"Test message 2">>),
-
-                have_no_log(SinkFile, <<"Sink test message 1">>),
-                have_log(SinkFile, <<"Sink test message 2">>),
-
-                have_log(SinkFileOld, <<"Sink test message 1">>),
-                have_no_log(SinkFileOld, <<"Sink test message 2">>),
-
-                have_log(File1Old, <<"Test message 1">>),
-                have_no_log(File1Old, <<"Test message 2">>),
-
-                have_log(File2Old, <<"Test message 1">>),
-                have_no_log(File2Old, <<"Test message 2">>)
-
-            end}
-        end
-    }.
-
-have_log(Data, Log) ->
-    {_,_} = binary:match(Data, Log).
-
-have_no_log(Data, Log) ->
-    nomatch = binary:match(Data, Log).
-
-wait_until(_Fun, 0) -> {error, too_many_retries};
-wait_until(Fun, Retry) ->
-    case Fun() of
-        true -> ok;
-        false ->
-            timer:sleep(500),
-            wait_until(Fun, Retry-1)
-    end.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/test/lager_slow_backend.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/test/lager_test_backend.erl Deleted

@@ -1,1927 +0,0 @@
-%% -------------------------------------------------------------------
-%%
-%% Copyright (c) 2011-2017 Basho Technologies, Inc.
-%%
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-%%
-%% -------------------------------------------------------------------
-
--module(lager_test_backend).
-
--behaviour(gen_event).
-
--export(init/1, handle_call/2, handle_event/2, handle_info/2, terminate/2,
-        code_change/3).
-
--include("lager.hrl").
-
--define(TEST_SINK_NAME, '__lager_test_sink').              %% <-- used by parse transform
--define(TEST_SINK_EVENT, '__lager_test_sink_lager_event'). %% <-- used by lager API calls and internals for gen_event
-
--record(state, {
-    level   :: list(),
-    buffer  :: list(),
-    ignored :: term()
-}).
--compile({parse_transform, lager_transform}).
-
--ifdef(TEST).
--include_lib("eunit/include/eunit.hrl").
--record(test, {
-    attrs   :: list(),
-    format  :: list(),
-    args    :: list()
-}).
--export(
-    count/0,
-    count_ignored/0,
-    flush/0,
-    message_stuffer/3,
-    pop/0,
-    pop_ignored/0,
-    print_state/0,
-    get_buffer/0
-).
--endif.
-
-init(Level) ->
-    {ok, #state{level=lager_util:config_to_mask(Level), buffer=, ignored=}}.
-
-handle_call(count, #state{buffer=Buffer} = State) ->
-    {ok, length(Buffer), State};
-handle_call(count_ignored, #state{ignored=Ignored} = State) ->
-    {ok, length(Ignored), State};
-handle_call(flush, State) ->
-    {ok, ok, State#state{buffer=, ignored=}};
-handle_call(pop, #state{buffer=Buffer} = State) ->
-    case Buffer of
-         ->
-            {ok, undefined, State};
-        H|T ->
-            {ok, H, State#state{buffer=T}}
-    end;
-handle_call(pop_ignored, #state{ignored=Ignored} = State) ->
-    case Ignored of
-         ->
-            {ok, undefined, State};
-        H|T ->
-            {ok, H, State#state{ignored=T}}
-    end;
-handle_call(get_buffer, #state{buffer=Buffer} = State) ->
-    {ok, Buffer, State};
-handle_call(get_loglevel, #state{level=Level} = State) ->
-    {ok, Level, State};
-handle_call({set_loglevel, Level}, State) ->
-    {ok, ok, State#state{level=lager_util:config_to_mask(Level)}};
-handle_call(print_state, State) ->
-    spawn(fun() -> lager:info("State ~p", lager:pr(State, ?MODULE)) end),
-    timer:sleep(100),
-    {ok, ok, State};
-handle_call(print_bad_state, State) ->
-    spawn(fun() -> lager:info("State ~p", lager:pr({state, 1}, ?MODULE)) end),
-    timer:sleep(100),
-    {ok, ok, State};
-handle_call(_Request, State) ->
-    {ok, ok, State}.
-
-handle_event({log, Msg},
-             #state{level=LogLevel,buffer=Buffer,ignored=Ignored} = State) ->
-    case lager_util:is_loggable(Msg, LogLevel, ?MODULE) of
-        true ->
-            {ok, State#state{buffer=Buffer ++
-                             {lager_msg:severity_as_int(Msg),
-                               lager_msg:datetime(Msg),
-                               lager_msg:message(Msg), lager_msg:metadata(Msg)}}};
-        _ ->
-            {ok, State#state{ignored=Ignored ++ Msg}}
-    end;
-handle_event(_Event, State) ->
-    {ok, State}.
-
-handle_info(_Info, State) ->
-    {ok, State}.
-
-terminate(_Reason, _State) ->
-    ok.
-
-code_change(_OldVsn, State, _Extra) ->
-    {ok, State}.
-
--ifdef(TEST).
-
-pop() ->
-    pop(lager_event).
-
-pop_ignored() ->
-    pop_ignored(lager_event).
-
-get_buffer() ->
-    get_buffer(lager_event).
-
-count() ->
-    count(lager_event).
-
-count_ignored() ->
-    count_ignored(lager_event).
-
-flush() ->
-    flush(lager_event).
-
-print_state() ->
-    print_state(lager_event).
-
-print_bad_state() ->
-    print_bad_state(lager_event).
-
-pop(Sink) ->
-    gen_event:call(Sink, ?MODULE, pop).
-
-pop_ignored(Sink) ->
-    gen_event:call(Sink, ?MODULE, pop_ignored).
-
-get_buffer(Sink) ->
-    gen_event:call(Sink, ?MODULE, get_buffer).
-
-count(Sink) ->
-    gen_event:call(Sink, ?MODULE, count).
-
-count_ignored(Sink) ->
-    gen_event:call(Sink, ?MODULE, count_ignored).
-
-flush(Sink) ->
-    gen_event:call(Sink, ?MODULE, flush).
-
-print_state(Sink) ->
-    gen_event:call(Sink, ?MODULE, print_state).
-
-print_bad_state(Sink) ->
-    gen_event:call(Sink, ?MODULE, print_bad_state).
-
-not_running_test() ->
-    ?assertEqual({error, lager_not_running}, lager:log(info, self(), "not running")).
-
-lager_test_() ->
-    {foreach,
-        fun setup/0,
-        fun cleanup/1,
-        
-            {"observe that there is nothing up my sleeve",
-                fun() ->
-                        ?assertEqual(undefined, pop()),
-                        ?assertEqual(0, count())
-                end
-            },
-            {"test sink not running",
-                fun() ->
-                         ?assertEqual({error, {sink_not_configured, test}}, lager:log(test, info, self(), "~p", "not running"))
-                end
-            },
-            {"logging works",
-                fun() ->
-                        lager:warning("test message"),
-                        ?assertEqual(1, count()),
-                        {Level, _Time, Message, _Metadata}  = pop(),
-                        ?assertMatch(Level, lager_util:level_to_num(warning)),
-                        ?assertEqual("test message", Message),
-                        ok
-                end
-            },
-            {"logging with macro works",
-                fun() ->
-                        ?lager_warning("test message", ),
-                        ?assertEqual(1, count()),
-                        {Level, _Time, Message, _Metadata}  = pop(),
-                        ?assertMatch(Level, lager_util:level_to_num(warning)),
-                        ?assertEqual("test message", Message),
-                        ok
-                end
-            },
-            {"unsafe logging works",
-                fun() ->
-                        lager:warning_unsafe("test message"),
-                        ?assertEqual(1, count()),
-                        {Level, _Time, Message, _Metadata}  = pop(),
-                        ?assertMatch(Level, lager_util:level_to_num(warning)),
-                        ?assertEqual("test message", Message),
-                        ok
-                end
-            },
-            {"logging with arguments works",
-                fun() ->
-                        lager:warning("test message ~p", self()),
-                        ?assertEqual(1, count()),
-                        {Level, _Time, Message,_Metadata}  = pop(),
-                        ?assertMatch(Level, lager_util:level_to_num(warning)),
-                        ?assertEqual(lists:flatten(io_lib:format("test message ~p", self())), lists:flatten(Message)),
-                        ok
-                end
-            },
-            {"logging with macro and arguments works",
-                fun() ->
-                        ?lager_warning("test message ~p", self()),
-                        ?assertEqual(1, count()),
-                        {Level, _Time, Message,_Metadata}  = pop(),
-                        ?assertMatch(Level, lager_util:level_to_num(warning)),
-                        ?assertEqual(lists:flatten(io_lib:format("test message ~p", self())), lists:flatten(Message)),
-                        ok
-                end
-            },
-            {"unsafe logging with args works",
-                fun() ->
-                        lager:warning_unsafe("test message ~p", self()),
-                        ?assertEqual(1, count()),
-                        {Level, _Time, Message,_Metadata}  = pop(),
-                        ?assertMatch(Level, lager_util:level_to_num(warning)),
-                        ?assertEqual(lists:flatten(io_lib:format("test message ~p", self())), lists:flatten(Message)),
-                        ok
-                end
-            },
-            {"logging works from inside a begin/end block",
-                fun() ->
-                        ?assertEqual(0, count()),
-                        begin
-                                lager:warning("test message 2")
-                        end,
-                        ?assertEqual(1, count()),
-                        ok
-                end
-            },
-            {"logging works from inside a list comprehension",
-                fun() ->
-                        ?assertEqual(0, count()),
-                        lager:warning("test message") || _N <- lists:seq(1, 10),
-                        ?assertEqual(10, count()),
-                        ok
-                end
-            },
-            {"logging works from a begin/end block inside a list comprehension",
-                fun() ->
-                        ?assertEqual(0, count()),
-                         begin lager:warning("test message") end || _N <- lists:seq(1, 10),
-                        ?assertEqual(10, count()),
-                        ok
-                end
-            },
-            {"logging works from a nested list comprehension",
-                fun() ->
-                        ?assertEqual(0, count()),
-                         lager:warning("test message") || _N <- lists:seq(1, 10) ||
-                            _I <- lists:seq(1, 10),
-                        ?assertEqual(100, count()),
-                        ok
-                end
-            },
-            {"logging with only metadata works",
-                fun() ->
-                        ?assertEqual(0, count()),
-                        lager:warning({just, metadata}),
-                        lager:warning({just, metadata}, {foo, bar}),
-                        ?assertEqual(2, count()),
-                        ok
-                end
-            },
-            {"variables inplace of literals in logging statements work",
-                fun() ->
-                        ?assertEqual(0, count()),
-                        Attr = {a, alpha}, {b, beta},
-                        Fmt = "format ~p",
-                        Args = world,
-                        lager:info(Attr, "hello"),
-                        lager:info(Attr, "hello ~p", world),
-                        lager:info(Fmt, world),
-                        lager:info("hello ~p", Args),
-                        lager:info(Attr, "hello ~p", Args),
-                        lager:info({d, delta}, {g, gamma}, Fmt, Args),
-                        ?assertEqual(6, count()),
-                        {Level, _Time, Message, Metadata}  = pop(),
-                        ?assertMatch({a, alpha}, {b, beta}|_, Metadata),
-                        ?assertEqual("hello", lists:flatten(Message)),
-                        {Level, _Time2, Message2, _Metadata2}  = pop(),
-                        ?assertEqual("hello world", lists:flatten(Message2)),
-                        {Level, _Time3, Message3, _Metadata3}  = pop(),
-                        ?assertEqual("format world", lists:flatten(Message3)),
-                        {Level, _Time4, Message4, _Metadata4}  = pop(),
-                        ?assertEqual("hello world", lists:flatten(Message4)),
-                        {Level, _Time5, Message5, _Metadata5}  = pop(),
-                        ?assertEqual("hello world", lists:flatten(Message5)),
-                        {Level, _Time6, Message6, Metadata6}  = pop(),
-                        ?assertMatch({d, delta}, {g, gamma}|_, Metadata6),
-                        ?assertEqual("format world", lists:flatten(Message6)),
-                        ok
-                end
-            },
-            {"list comprehension inplace of literals in logging statements work",
-                fun() ->
-                        ?assertEqual(0, count()),
-                        Attr = {a, alpha}, {b, beta},
-                        Fmt = "format ~p",
-                        Args = world,
-                        lager:info({K, atom_to_list(V)} || {K, V} <- Attr, "hello"),
-                        lager:info({K, atom_to_list(V)} || {K, V} <- Attr, "hello ~p", {atom, X} || X <- Args),
-                        lager:info(X || X <- Fmt, world),
-                        lager:info("hello ~p", {atom, X} || X <- Args),
-                        lager:info({K, atom_to_list(V)} || {K, V} <- Attr, "hello ~p", {atom, X} || X <- Args),
-                        lager:info({d, delta}, {g, gamma}, Fmt, {atom, X} || X <- Args),
-                        ?assertEqual(6, count()),
-                        {Level, _Time, Message, Metadata}  = pop(),
-                        ?assertMatch({a, "alpha"}, {b, "beta"}|_, Metadata),
-                        ?assertEqual("hello", lists:flatten(Message)),
-                        {Level, _Time2, Message2, _Metadata2}  = pop(),
-                        ?assertEqual("hello {atom,world}", lists:flatten(Message2)),
-                        {Level, _Time3, Message3, _Metadata3}  = pop(),
-                        ?assertEqual("format world", lists:flatten(Message3)),
-                        {Level, _Time4, Message4, _Metadata4}  = pop(),
-                        ?assertEqual("hello {atom,world}", lists:flatten(Message4)),
-                        {Level, _Time5, Message5, _Metadata5}  = pop(),
-                        ?assertEqual("hello {atom,world}", lists:flatten(Message5)),
-                        {Level, _Time6, Message6, Metadata6}  = pop(),
-                        ?assertMatch({d, delta}, {g, gamma}|_, Metadata6),
-                        ?assertEqual("format {atom,world}", lists:flatten(Message6)),
-                        ok
-                end
-            },
-            {"function calls inplace of literals in logging statements work",
-                fun() ->
-                        ?assertEqual(0, count()),
-                        put(attrs, {a, alpha}, {b, beta}),
-                        put(format, "format ~p"),
-                        put(args, world),
-                        lager:info(get(attrs), "hello"),
-                        lager:info(get(attrs), "hello ~p", get(args)),
-                        lager:info(get(format), world),
-                        lager:info("hello ~p", erlang:get(args)),
-                        lager:info(fun() -> get(attrs) end(), "hello ~p", get(args)),
-                        lager:info({d, delta}, {g, gamma}, get(format), get(args)),
-                        ?assertEqual(6, count()),
-                        {Level, _Time, Message, Metadata}  = pop(),
-                        ?assertMatch({a, alpha}, {b, beta}|_, Metadata),
-                        ?assertEqual("hello", lists:flatten(Message)),
-                        {Level, _Time2, Message2, _Metadata2}  = pop(),
-                        ?assertEqual("hello world", lists:flatten(Message2)),
-                        {Level, _Time3, Message3, _Metadata3}  = pop(),
-                        ?assertEqual("format world", lists:flatten(Message3)),
-                        {Level, _Time4, Message4, _Metadata4}  = pop(),
-                        ?assertEqual("hello world", lists:flatten(Message4)),
-                        {Level, _Time5, Message5, _Metadata5}  = pop(),
-                        ?assertEqual("hello world", lists:flatten(Message5)),
-                        {Level, _Time6, Message6, Metadata6}  = pop(),
-                        ?assertMatch({d, delta}, {g, gamma}|_, Metadata6),
-                        ?assertEqual("format world", lists:flatten(Message6)),
-                        ok
-                end
-            },
-            {"record fields inplace of literals in logging statements work",
-                fun() ->
-                        ?assertEqual(0, count()),
-                        Test = #test{attrs={a, alpha}, {b, beta}, format="format ~p", args=world},
-                        lager:info(Test#test.attrs, "hello"),
-                        lager:info(Test#test.attrs, "hello ~p", Test#test.args),
-                        lager:info(Test#test.format, world),
-                        lager:info("hello ~p", Test#test.args),
-                        lager:info(Test#test.attrs, "hello ~p", Test#test.args),
-                        lager:info({d, delta}, {g, gamma}, Test#test.format, Test#test.args),
-                        ?assertEqual(6, count()),
-                        {Level, _Time, Message, Metadata}  = pop(),
-                        ?assertMatch({a, alpha}, {b, beta}|_, Metadata),
-                        ?assertEqual("hello", lists:flatten(Message)),
-                        {Level, _Time2, Message2, _Metadata2}  = pop(),
-                        ?assertEqual("hello world", lists:flatten(Message2)),
-                        {Level, _Time3, Message3, _Metadata3}  = pop(),
-                        ?assertEqual("format world", lists:flatten(Message3)),
-                        {Level, _Time4, Message4, _Metadata4}  = pop(),
-                        ?assertEqual("hello world", lists:flatten(Message4)),
-                        {Level, _Time5, Message5, _Metadata5}  = pop(),
-                        ?assertEqual("hello world", lists:flatten(Message5)),
-                        {Level, _Time6, Message6, Metadata6}  = pop(),
-                        ?assertMatch({d, delta}, {g, gamma}|_, Metadata6),
-                        ?assertEqual("format world", lists:flatten(Message6)),
-                        ok
-                end
-            },
-
-            {"log messages below the threshold are ignored",
-                fun() ->
-                        ?assertEqual(0, count()),
-                        lager:debug("this message will be ignored"),
-                        ?assertEqual(0, count()),
-                        ?assertEqual(0, count_ignored()),
-                        lager_config:set(loglevel, {element(2, lager_util:config_to_mask(debug)), }),
-                        lager:debug("this message should be ignored"),
-                        ?assertEqual(0, count()),
-                        ?assertEqual(1, count_ignored()),
-                        lager:set_loglevel(?MODULE, debug),
-                        ?assertEqual({?DEBUG bor ?INFO bor ?NOTICE bor ?WARNING bor ?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, }, lager_config:get(loglevel)),
-                        lager:debug("this message should be logged"),
-                        ?assertEqual(1, count()),
-                        ?assertEqual(1, count_ignored()),
-                        ?assertEqual(debug, lager:get_loglevel(?MODULE)),
-                        ok
-                end
-            },
-            {"tracing works",
-                fun() ->
-                        lager_config:set(loglevel, {element(2, lager_util:config_to_mask(error)), }),
-                        ok = lager:info("hello world"),
-                        ?assertEqual(0, count()),
-                        lager:trace(?MODULE, {module, ?MODULE}, debug),
-                        ?assertMatch({?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, _}, lager_config:get(loglevel)),
-                        %% elegible for tracing
-                        ok = lager:info("hello world"),
-                        %% NOT elegible for tracing
-                        ok = lager:log(info, {pid, self()}, "hello world"),
-                        ?assertEqual(1, count()),
-                        ok
-                end
-            },
-            {"tracing works with custom attributes",
-                fun() ->
-                        lager:set_loglevel(?MODULE, error),
-                        ?assertEqual({?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, }, lager_config:get(loglevel)),
-                        lager_config:set(loglevel, {element(2, lager_util:config_to_mask(error)), }),
-                        lager:info({requestid, 6}, "hello world"),
-                        ?assertEqual(0, count()),
-                        lager:trace(?MODULE, {requestid, 6}, {foo, bar}, debug),
-                        lager:info({requestid, 6}, {foo, bar}, "hello world"),
-                        ?assertEqual(1, count()),
-                        lager:trace(?MODULE, {requestid, '*'}, debug),
-                        lager:info({requestid, 6}, "hello world"),
-                        ?assertEqual(2, count()),
-                        lager:clear_all_traces(),
-                        lager:info({requestid, 6}, "hello world"),
-                        ?assertEqual(2, count()),
-                        ok
-                end
-            },
-            {"tracing works with custom attributes and event stream processing",
-                fun() ->
-                        lager:set_loglevel(?MODULE, error),
-                        ?assertEqual({?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, }, lager_config:get(loglevel)),
-                        lager_config:set(loglevel, {element(2, lager_util:config_to_mask(error)), }),
-                        lager:info({requestid, 6}, "hello world"),
-                        ?assertEqual(0, count()),
-                        lager:trace(?MODULE, {requestid, '>', 5}, {requestid, '<', 7}, {foo, bar}, debug),
-                        lager:info({requestid, 5}, {foo, bar}, "hello world"),
-                        lager:info({requestid, 6}, {foo, bar}, "hello world"),
-                        ?assertEqual(1, count()),
-                        lager:clear_all_traces(),
-                        lager:trace(?MODULE, {requestid, '>', 8}, {foo, bar}),
-                        lager:info({foo, bar}, "hello world"),
-                        lager:info({requestid, 6}, "hello world"),
-                        lager:info({requestid, 7}, "hello world"),
-                        lager:info({requestid, 8}, "hello world"),
-                        lager:info({requestid, 9}, {foo, bar}, "hello world"),
-                        lager:info({requestid, 10}, "hello world"),
-                        ?assertEqual(2, count()),
-                        lager:trace(?MODULE, {requestid, '>', 8}),
-                        lager:info({foo, bar}, "hello world"),
-                        lager:info({requestid, 6}, "hello world"),
-                        lager:info({requestid, 7}, "hello world"),
-                        lager:info({requestid, 8}, "hello world"),
-                        lager:info({requestid, 9}, {foo, bar}, "hello world"),
-                        lager:info({requestid, 10}, "hello world"),
-                        ?assertEqual(4, count()),
-                        lager:trace(?MODULE, {foo, '=', bar}),
-                        lager:info({foo, bar}, "hello world"),
-                        lager:info({requestid, 6}, "hello world"),
-                        lager:info({requestid, 7}, "hello world"),
-                        lager:info({requestid, 8}, "hello world"),
-                        lager:info({requestid, 9}, {foo, bar}, "hello world"),
-                        lager:info({requestid, 10}, "hello world"),
-                        lager:trace(?MODULE, {fu, '!'}),
-                        lager:info({foo, bar}, "hello world"),
-                        lager:info({ooh, car}, "hello world"),
-                        lager:info({fu, bar}, "hello world"),
-                        lager:trace(?MODULE, {fu, '*'}),
-                        lager:info({fu, bar}, "hello world"),
-                        ?assertEqual(10, count()),
-                        lager:clear_all_traces(),
-                        lager:info({requestid, 6}, "hello world"),
-                        ?assertEqual(10, count()),
-                        lager:clear_all_traces(),
-                        lager:trace(?MODULE, {requestid, '>=', 5}, {requestid, '=<', 7}, debug),
-                        lager:info({requestid, 4}, "nope!"),
-                        lager:info({requestid, 5}, "hello world"),
-                        lager:info({requestid, 7}, "hello world again"),
-                        ?assertEqual(12, count()),
-                        lager:clear_all_traces(),
-                        lager:trace(?MODULE, {foo, '!=', bar}),
-                        lager:info({foo, bar}, "hello world"),
-                        ?assertEqual(12, count()),
-                        lager:info({foo, baz}, "blarg"),
-                        ?assertEqual(13, count()),
-                        lager:clear_all_traces(),
-                        lager:trace(?MODULE, {all, {foo, '=', bar}, {null, false}}),
-                        lager:info({foo, bar}, "should not be logged"),
-                        ?assertEqual(13, count()),
-                        lager:clear_all_traces(),
-                        lager:trace(?MODULE, {any, {foo, '=', bar}, {null, true}}),
-                        lager:info({foo, qux}, "should be logged"),
-                        ?assertEqual(14, count()),
-                        ok
-                end
-            },
-            {"tracing custom attributes works with event stream processing statistics and reductions",
-                fun() ->
-                        lager:set_loglevel(?MODULE, error),
-                        ?assertEqual({?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, }, lager_config:get(loglevel)),
-                        lager_config:set(loglevel, {element(2, lager_util:config_to_mask(error)), }),
-                        lager:info({requestid, 6}, "hello world"),
-                        ?assertEqual(0, count()),
-                        lager:trace(?MODULE, {beta, '*'}),
-                        lager:trace(?MODULE, {meta, "data"}),
-                        lager:info({meta, "data"}, "hello world"),
-                        lager:info({beta, 2}, "hello world"),
-                        lager:info({beta, 2.1}, {foo, bar}, "hello world"),
-                        lager:info({meta, <<"data">>}, "hello world"),
-                        ?assertEqual(8, ?DEFAULT_TRACER:info(input)),
-                        ?assertEqual(6, ?DEFAULT_TRACER:info(output)),
-                        ?assertEqual(2, ?DEFAULT_TRACER:info(filter)),
-                        lager:clear_all_traces(),
-                        lager:trace(?MODULE, {meta, "data"}),
-                        lager:trace(?MODULE, {beta, '>', 2}, {beta, '<', 2.12}),
-                        lager:info({meta, "data"}, "hello world"),
-                        lager:info({beta, 2}, "hello world"),
-                        lager:info({beta, 2.1}, {foo, bar}, "hello world"),
-                        lager:info({meta, <<"data">>}, "hello world"),
-                        ?assertEqual(8, ?DEFAULT_TRACER:info(input)),
-                        ?assertEqual(4, ?DEFAULT_TRACER:info(output)),
-                        ?assertEqual(4, ?DEFAULT_TRACER:info(filter)),
-                        lager:clear_all_traces(),
-                        lager:trace_console({beta, '>', 2}, {meta, "data"}),
-                        lager:trace_console({beta, '>', 2}, {beta, '<', 2.12}),
-                        Reduced = {all,{any,{beta,'<',2.12},{meta,'=',"data"}},
-                                              {beta,'>',2}},
-                        ?assertEqual(Reduced, ?DEFAULT_TRACER:info('query')),
-
-                        lager:clear_all_traces(),
-                        lager:info({requestid, 6}, "hello world"),
-                        ?assertEqual(5, count()),
-                        ok
-                end
-            },
-            {"persistent traces work",
-                fun() ->
-                        ?assertEqual(0, count()),
-                        lager:debug({foo, bar}, "hello world"),
-                        ?assertEqual(0, count()),
-                        application:stop(lager),
-                        application:set_env(lager, traces, {lager_test_backend, {foo, bar}, debug}),
-                        lager:start(),
-                        timer:sleep(5),
-                        flush(),
-                        lager:debug({foo, bar}, "hello world"),
-                        ?assertEqual(1, count()),
-                        application:unset_env(lager, traces),
-                        ok
-                end
-            },
-            {"tracing honors loglevel",
-                fun() ->
-                        lager:set_loglevel(?MODULE, error),
-                        ?assertEqual({?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, }, lager_config:get(loglevel)),
-                        {ok, T} = lager:trace(?MODULE, {module, ?MODULE}, notice),
-                        ok = lager:info("hello world"),
-                        ?assertEqual(0, count()),
-                        ok = lager:notice("hello world"),
-                        ?assertEqual(1, count()),
-                        lager:stop_trace(T),
-                        ok = lager:notice("hello world"),
-                        ?assertEqual(1, count()),
-                        ok
-                end
-            },
-            {"stopped trace stops and removes its event handler - default sink (gh#267)",
-             {timeout, 10,
-                fun() ->
-                        Sink = ?DEFAULT_SINK,
-                        StartHandlers = gen_event:which_handlers(Sink),
-                        {_, T0} = lager_config:get({Sink, loglevel}),
-                        StartGlobal = lager_config:global_get(handlers),
-                        ?assertEqual(, T0),
-                        {ok, TestTrace1} = lager:trace_file("/tmp/test", {a,b}),
-                        MidHandlers = gen_event:which_handlers(Sink),
-                        {ok, TestTrace2} = lager:trace_file("/tmp/test", {c,d}),
-                        MidHandlers = gen_event:which_handlers(Sink),
-                        ?assertEqual(length(StartHandlers)+1, length(MidHandlers)),
-                        MidGlobal = lager_config:global_get(handlers),
-                        ?assertEqual(length(StartGlobal)+1, length(MidGlobal)),
-                        {_, T1} = lager_config:get({Sink, loglevel}),
-                        ?assertEqual(2, length(T1)),
-                        ok = lager:stop_trace(TestTrace1),
-                        {_, T2} = lager_config:get({Sink, loglevel}),
-                        ?assertEqual(1, length(T2)),
-                        ?assertEqual(length(StartHandlers)+1, length(
-                                                                gen_event:which_handlers(Sink))),
-
-                        ?assertEqual(length(StartGlobal)+1, length(lager_config:global_get(handlers))),
-                        ok = lager:stop_trace(TestTrace2),
-                        EndHandlers = gen_event:which_handlers(Sink),
-                        EndGlobal = lager_config:global_get(handlers),
-                        {_, T3} = lager_config:get({Sink, loglevel}),
-                        ?assertEqual(, T3),
-                        ?assertEqual(StartHandlers, EndHandlers),
-                        ?assertEqual(StartGlobal, EndGlobal),
-                        ok
-                end}
-            },
-            {"record printing works",
-                fun() ->
-                        print_state(),
-                        {Level, _Time, Message, _Metadata}  = pop(),
-                        ?assertMatch(Level, lager_util:level_to_num(info)),
-                        {mask, Mask} = lager_util:config_to_mask(info),
-                        ?assertEqual("State #state{level={mask,"++integer_to_list(Mask)++"},buffer=,ignored=}", lists:flatten(Message)),
-                        ok
-                end
-            },
-            {"record printing fails gracefully",
-                fun() ->
-                        print_bad_state(),
-                        {Level, _Time, Message, _Metadata}  = pop(),
-                        ?assertMatch(Level, lager_util:level_to_num(info)),
-                        ?assertEqual("State {state,1}", lists:flatten(Message)),
-                        ok
-                end
-            },
-            {"record printing fails gracefully when no lager_record attribute",
-                fun() ->
-                        spawn(fun() -> lager:info("State ~p", lager:pr({state, 1}, lager)) end),
-                        timer:sleep(100),
-                        {Level, _Time, Message, _Metadata}  = pop(),
-                        ?assertMatch(Level, lager_util:level_to_num(info)),
-                        ?assertEqual("State {state,1}", lists:flatten(Message)),
-                        ok
-                end
-            },
-            {"record printing fails gracefully when input is not a tuple",
-                fun() ->
-                        spawn(fun() -> lager:info("State ~p", lager:pr(ok, lager)) end),
-                        timer:sleep(100),
-                        {Level, _Time, Message, _Metadata}  = pop(),
-                        ?assertMatch(Level, lager_util:level_to_num(info)),
-                        ?assertEqual("State ok", lists:flatten(Message)),
-                        ok
-                end
-            },
-            {"record printing fails gracefully when module is invalid",
-                fun() ->
-                        spawn(fun() -> lager:info("State ~p", lager:pr({state, 1}, not_a_module)) end),
-                        timer:sleep(1000),
-                        {Level, _Time, Message, _Metadata}  = pop(),
-                        ?assertMatch(Level, lager_util:level_to_num(info)),
-                        ?assertEqual("State {state,1}", lists:flatten(Message)),
-                        ok
-                end
-            },
-            {"installing a new handler adjusts the global loglevel if necessary",
-                fun() ->
-                        ?assertEqual({?INFO bor ?NOTICE bor ?WARNING bor ?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, }, lager_config:get(loglevel)),
-                        supervisor:start_child(lager_handler_watcher_sup, lager_event, {?MODULE, foo}, debug),
-                        ?assertEqual({?DEBUG bor ?INFO bor ?NOTICE bor ?WARNING bor ?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, }, lager_config:get(loglevel)),
-                        ok
-                end
-            },
-            {"metadata in the process dictionary works",
-                fun() ->
-                        lager:md({platypus, gravid}, {sloth, hirsute}, {duck, erroneous}),
-                        lager:info("I sing the animal kingdom electric!"),
-                        {_Level, _Time, _Message, Metadata}  = pop(),
-                        ?assertEqual(gravid, proplists:get_value(platypus, Metadata)),
-                        ?assertEqual(hirsute, proplists:get_value(sloth, Metadata)),
-                        ?assertEqual(erroneous, proplists:get_value(duck, Metadata)),
-                        ?assertEqual(undefined, proplists:get_value(eagle, Metadata)),
-                        lager:md({platypus, gravid}, {sloth, hirsute}, {eagle, superincumbent}),
-                        lager:info("I sing the animal kingdom dielectric!"),
-                        {_Level2, _Time2, _Message2, Metadata2}  = pop(),
-                        ?assertEqual(gravid, proplists:get_value(platypus, Metadata2)),
-                        ?assertEqual(hirsute, proplists:get_value(sloth, Metadata2)),
-                        ?assertEqual(undefined, proplists:get_value(duck, Metadata2)),
-                        ?assertEqual(superincumbent, proplists:get_value(eagle, Metadata2)),
-                        ok
-                end
-            },
-            {"unsafe messages really are not truncated",
-                fun() ->
-                        lager:info_unsafe("doom, doom has come upon you all ~p", string:copies("doom", 1500)),
-                        {_, _, Msg,_Metadata} = pop(),
-                        ?assert(length(lists:flatten(Msg)) == 6035)
-                end
-            },
-            {"can't store invalid metadata",
-                fun() ->
-                        ?assertEqual(ok, lager:md({platypus, gravid}, {sloth, hirsute}, {duck, erroneous})),
-                        ?assertError(badarg, lager:md({flamboyant, flamingo})),
-                        ?assertError(badarg, lager:md("zookeeper zephyr")),
-                        ok
-                end
-            },
-            {"dates should be local by default",
-                fun() ->
-                        lager:warning("so long, and thanks for all the fish"),
-                        ?assertEqual(1, count()),
-                        {_Level, {_Date, Time}, _Message, _Metadata}  = pop(),
-                        ?assertEqual(nomatch, binary:match(iolist_to_binary(Time), <<"UTC">>)),
-                        ok
-                end
-            },
-            {"dates should be UTC if SASL is configured as UTC",
-                fun() ->
-                        application:set_env(sasl, utc_log, true),
-                        lager:warning("so long, and thanks for all the fish"),
-                        application:set_env(sasl, utc_log, false),
-                        ?assertEqual(1, count()),
-                        {_Level, {_Date, Time}, _Message, _Metadata}  = pop(),
-                        ?assertNotEqual(nomatch, binary:match(iolist_to_binary(Time), <<"UTC">>)),
-                        ok
-                end
-            }
-        
-    }.
-
-extra_sinks_test_() ->
-    {foreach,
-        fun setup_sink/0,
-        fun cleanup/1,
-        
-            {"observe that there is nothing up my sleeve",
-                fun() ->
-                        ?assertEqual(undefined, pop(?TEST_SINK_EVENT)),
-                        ?assertEqual(0, count(?TEST_SINK_EVENT))
-                end
-            },
-            {"logging works",
-                fun() ->
-                        ?TEST_SINK_NAME:warning("test message"),
-                        ?assertEqual(1, count(?TEST_SINK_EVENT)),
-                        {Level, _Time, Message, _Metadata}  = pop(?TEST_SINK_EVENT),
-                        ?assertMatch(Level, lager_util:level_to_num(warning)),
-                        ?assertEqual("test message", Message),
-                        ok
-                end
-            },
-            {"logging with arguments works",
-                fun() ->
-                        ?TEST_SINK_NAME:warning("test message ~p", self()),
-                        ?assertEqual(1, count(?TEST_SINK_EVENT)),
-                        {Level, _Time, Message,_Metadata}  = pop(?TEST_SINK_EVENT),
-                        ?assertMatch(Level, lager_util:level_to_num(warning)),
-                        ?assertEqual(lists:flatten(io_lib:format("test message ~p", self())), lists:flatten(Message)),
-                        ok
-                end
-            },
-            {"variables inplace of literals in logging statements work",
-                fun() ->
-                        ?assertEqual(0, count(?TEST_SINK_EVENT)),
-                        Attr = {a, alpha}, {b, beta},
-                        Fmt = "format ~p",
-                        Args = world,
-                        ?TEST_SINK_NAME:info(Attr, "hello"),
-                        ?TEST_SINK_NAME:info(Attr, "hello ~p", world),
-                        ?TEST_SINK_NAME:info(Fmt, world),
-                        ?TEST_SINK_NAME:info("hello ~p", Args),
-                        ?TEST_SINK_NAME:info(Attr, "hello ~p", Args),
-                        ?TEST_SINK_NAME:info({d, delta}, {g, gamma}, Fmt, Args),
-                        ?assertEqual(6, count(?TEST_SINK_EVENT)),
-                        {Level, _Time, Message, Metadata}  = pop(?TEST_SINK_EVENT),
-                        ?assertMatch({a, alpha}, {b, beta}|_, Metadata),
-                        ?assertEqual("hello", lists:flatten(Message)),
-                        {Level, _Time2, Message2, _Metadata2}  = pop(?TEST_SINK_EVENT),
-                        ?assertEqual("hello world", lists:flatten(Message2)),
-                        {Level, _Time3, Message3, _Metadata3}  = pop(?TEST_SINK_EVENT),
-                        ?assertEqual("format world", lists:flatten(Message3)),
-                        {Level, _Time4, Message4, _Metadata4}  = pop(?TEST_SINK_EVENT),
-                        ?assertEqual("hello world", lists:flatten(Message4)),
-                        {Level, _Time5, Message5, _Metadata5}  = pop(?TEST_SINK_EVENT),
-                        ?assertEqual("hello world", lists:flatten(Message5)),
-                        {Level, _Time6, Message6, Metadata6}  = pop(?TEST_SINK_EVENT),
-                        ?assertMatch({d, delta}, {g, gamma}|_, Metadata6),
-                        ?assertEqual("format world", lists:flatten(Message6)),
-                        ok
-                end
-            },
-            {"stopped trace stops and removes its event handler - test sink (gh#267)",
-                fun() ->
-                        Sink = ?TEST_SINK_EVENT,
-                        StartHandlers = gen_event:which_handlers(Sink),
-                        {_, T0} = lager_config:get({Sink, loglevel}),
-                        StartGlobal = lager_config:global_get(handlers),
-                        ?assertEqual(, T0),
-                        {ok, TestTrace1} = lager:trace_file("/tmp/test", {sink, Sink}, {a,b}),
-                        MidHandlers = gen_event:which_handlers(Sink),
-                        {ok, TestTrace2} = lager:trace_file("/tmp/test", {sink, Sink}, {c,d}),
-                        MidHandlers = gen_event:which_handlers(Sink),
-                        ?assertEqual(length(StartHandlers)+1, length(MidHandlers)),
-                        MidGlobal = lager_config:global_get(handlers),
-                        ?assertEqual(length(StartGlobal)+1, length(MidGlobal)),
-                        {_, T1} = lager_config:get({Sink, loglevel}),
-                        ?assertEqual(2, length(T1)),
-                        ok = lager:stop_trace(TestTrace1),
-                        {_, T2} = lager_config:get({Sink, loglevel}),
-                        ?assertEqual(1, length(T2)),
-                        ?assertEqual(length(StartHandlers)+1, length(
-                                                                gen_event:which_handlers(Sink))),
-
-                        ?assertEqual(length(StartGlobal)+1, length(lager_config:global_get(handlers))),
-                        ok = lager:stop_trace(TestTrace2),
-                        EndHandlers = gen_event:which_handlers(Sink),
-                        EndGlobal = lager_config:global_get(handlers),
-                        {_, T3} = lager_config:get({Sink, loglevel}),
-                        ?assertEqual(, T3),
-                        ?assertEqual(StartHandlers, EndHandlers),
-                        ?assertEqual(StartGlobal, EndGlobal),
-                        ok
-                end
-            },
-            {"log messages below the threshold are ignored",
-                fun() ->
-                        ?assertEqual(0, count(?TEST_SINK_EVENT)),
-                        ?TEST_SINK_NAME:debug("this message will be ignored"),
-                        ?assertEqual(0, count(?TEST_SINK_EVENT)),
-                        ?assertEqual(0, count_ignored(?TEST_SINK_EVENT)),
-                        lager_config:set({?TEST_SINK_EVENT, loglevel}, {element(2, lager_util:config_to_mask(debug)), }),
-                        ?TEST_SINK_NAME:debug("this message should be ignored"),
-                        ?assertEqual(0, count(?TEST_SINK_EVENT)),
-                        ?assertEqual(1, count_ignored(?TEST_SINK_EVENT)),
-                        lager:set_loglevel(?TEST_SINK_EVENT, ?MODULE, undefined, debug),
-                        ?assertEqual({?DEBUG bor ?INFO bor ?NOTICE bor ?WARNING bor ?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, }, lager_config:get({?TEST_SINK_EVENT, loglevel})),
-                        ?TEST_SINK_NAME:debug("this message should be logged"),
-                        ?assertEqual(1, count(?TEST_SINK_EVENT)),
-                        ?assertEqual(1, count_ignored(?TEST_SINK_EVENT)),
-                        ?assertEqual(debug, lager:get_loglevel(?TEST_SINK_EVENT, ?MODULE)),
-                        ok
-                end
-            }
-    
-    }.
-
-setup_sink() ->
-    error_logger:tty(false),
-    application:load(lager),
-    application:set_env(lager, handlers, ),
-    application:set_env(lager, error_logger_redirect, false),
-    application:set_env(lager, extra_sinks, {?TEST_SINK_EVENT, {handlers, {?MODULE, info}}}),
-    lager:start(),
-    gen_event:call(lager_event, ?MODULE, flush),
-    gen_event:call(?TEST_SINK_EVENT, ?MODULE, flush).
-
-setup() ->
-    error_logger:tty(false),
-    application:load(lager),
-    application:set_env(lager, handlers, {?MODULE, info}),
-    application:set_env(lager, error_logger_redirect, false),
-    application:unset_env(lager, traces),
-    lager:start(),
-    %% There is a race condition between the application start up, lager logging its own
-    %% start up condition and several tests that count messages or parse the output of
-    %% tests.  When the lager start up message wins the race, it causes these tests
-    %% which parse output or count message arrivals to fail.
-    %%
-    %% We introduce a sleep here to allow `flush' to arrive *after* the start up
-    %% message has been received and processed.
-    %%
-    %% This race condition was first exposed during the work on
-    %% 4b5260c4524688b545cc12da6baa2dfa4f2afec9 which introduced the lager
-    %% manager killer PR.
-    application:set_env(lager, suppress_supervisor_start_stop, true),
-    application:set_env(lager, suppress_application_start_stop, true),
-    timer:sleep(1000),
-    gen_event:call(lager_event, ?MODULE, flush).
-
-cleanup(_) ->
-    catch ets:delete(lager_config), %% kill the ets config table with fire
-    application:stop(lager),
-    application:stop(goldrush),
-    error_logger:tty(true).
-
-
-crash(Type) ->
-    spawn(fun() -> gen_server:call(crash, Type) end),
-    timer:sleep(100),
-    _ = gen_event:which_handlers(error_logger),
-    ok.
-
-test_body({slice, Expected}, Actual) ->
-    SlicedActual = string:slice(Actual, 0, length(Expected)),
-    ?assertEqual(Expected, SlicedActual, {Actual, sliced_to, SlicedActual, is_not_a_member_of, Expected});
-test_body(Expected, Actual) ->
-    ExLen = length(Expected),
-    {Body, Rest} = case length(Actual) > ExLen of
-        true ->
-            {string:substr(Actual, 1, ExLen),
-                string:substr(Actual, (ExLen + 1))};
-        _ ->
-            {Actual, }
-    end,
-    ?assertEqual(Expected, Body),
-    % OTP-17 (and maybe later releases) may tack on additional info
-    % about the failure, so if Actual starts with Expected (already
-    % confirmed by having gotten past assertEqual above) and ends
-    % with " line NNN" we can ignore what's in-between. By extension,
-    % since there may not be line information appended at all, any
-    % text we DO find is reportable, but not a test failure.
-    case Rest of
-         ->
-            ok;
-        _ ->
-            % isolate the extra data and report it if it's not just
-            % a line number indicator
-            case re:run(Rest, "^.*( line \\d+)$", {capture, 1}) of
-                nomatch ->
-                    ?debugFmt(
-                       "Trailing data \"~s\" following \"~s\"",
-                       Rest, Expected);
-                {match, {0, _}} ->
-                    % the whole sting is " line NNN"
-                    ok;
-                {match, {Off, _}} ->
-                    ?debugFmt(
-                       "Trailing data \"~s\" following \"~s\"",
-                       string:substr(Rest, 1, Off), Expected)
-            end
-    end.
-
-error_logger_redirect_crash_setup() ->
-    error_logger:tty(false),
-    application:load(lager),
-    application:set_env(lager, error_logger_redirect, true),
-    application:set_env(lager, handlers, {?MODULE, error}),
-    lager:start(),
-    crash:start(),
-    lager_event.
-
-error_logger_redirect_crash_setup_sink() ->
-    error_logger:tty(false),
-    application:load(lager),
-    application:set_env(lager, error_logger_redirect, true),
-    application:unset_env(lager, handlers),
-    application:set_env(lager, extra_sinks, 
-        {error_logger_lager_event, 
-            {handlers, {?MODULE, error}}}),
-    lager:start(),
-    crash:start(),
-    error_logger_lager_event.
-
-error_logger_redirect_crash_cleanup(_Sink) ->
-    application:stop(lager),
-    application:stop(goldrush),
-    application:unset_env(lager, extra_sinks),
-    case whereis(crash) of
-        undefined -> ok;
-        Pid -> exit(Pid, kill)
-    end,
-    error_logger:tty(true).
-
-crash_fsm_setup() ->
-    error_logger:tty(false),
-    application:load(lager),
-    application:set_env(lager, error_logger_redirect, true),
-    application:set_env(lager, handlers, {?MODULE, error}),
-    lager:start(),
-    crash_fsm:start(),
-    crash_statem:start(),
-    lager:log(error, self(), "flush flush"),
-    timer:sleep(100),
-    gen_event:call(lager_event, ?MODULE, flush),
-    lager_event.
-
-crash_fsm_sink_setup() ->
-    ErrorSink = error_logger_lager_event,
-    error_logger:tty(false),
-    application:load(lager),
-    application:set_env(lager, error_logger_redirect, true),
-    application:set_env(lager, handlers, ),
-    application:set_env(lager, extra_sinks, {ErrorSink, {handlers, {?MODULE, error}}}),
-    lager:start(),
-    crash_fsm:start(),
-    crash_statem:start(),
-    lager:log(ErrorSink, error, self(), "flush flush", ),
-    timer:sleep(100),
-    flush(ErrorSink),
-    ErrorSink.
-
-crash_fsm_cleanup(_Sink) ->
-    application:stop(lager),
-    application:stop(goldrush),
-    application:unset_env(lager, extra_sinks),
-    lists:foreach(fun(N) -> kill_crasher(N) end, crash_fsm, crash_statem),
-    error_logger:tty(true).
-
-kill_crasher(RegName) ->
-    case whereis(RegName) of
-        undefined -> ok;
-        Pid -> exit(Pid, kill)
-    end.
-
-spawn_fsm_crash(Module, Function, Args) ->
-    spawn(fun() -> erlang:apply(Module, Function, Args) end),
-    timer:sleep(100),
-    _ = gen_event:which_handlers(error_logger),
-    ok.
-
-crash_fsm_test_() ->
-    TestBody = fun(Name, FsmModule, FSMFunc, FSMArgs, Expected) ->
-                   fun(Sink) ->
-                      {Name,
-                       fun() ->
-                            case {FsmModule =:= crash_statem, lager_util:otp_version() < 19} of
-                                {true, true} -> ok;
-                                _ ->
-                                    Pid = whereis(FsmModule),
-                                    spawn_fsm_crash(FsmModule, FSMFunc, FSMArgs),
-                                    {Level, _, Msg, Metadata} = pop(Sink),
-                                    test_body(Expected, lists:flatten(Msg)),
-                                    ?assertEqual(Pid, proplists:get_value(pid, Metadata)),
-                                    ?assertEqual(lager_util:level_to_num(error), Level)
-                            end
-                       end
-                      }
-                   end
-               end,
-    Tests = 
-        fun(Sink) ->
-            {"again, there is nothing up my sleeve",
-                fun() ->
-                        ?assertEqual(undefined, pop(Sink)),
-                        ?assertEqual(0, count(Sink))
-                end
-            }
-        end,
-
-        TestBody("gen_statem crash", crash_statem, crash, , {slice, "gen_statem crash_statem in state state1 terminated with reason"}),
-        TestBody("gen_statem stop", crash_statem, stop, explode, {slice, "gen_statem crash_statem in state state1 terminated with reason"}),
-        TestBody("gen_statem timeout", crash_statem, timeout, , {slice, "gen_statem crash_statem in state state1 terminated with reason"})
-     ++ test_body_gen_fsm_crash(TestBody),
-
-    {"FSM crash output tests", 
-        {"Default sink",
-         {foreach,
-            fun crash_fsm_setup/0,
-            fun crash_fsm_cleanup/1,
-            Tests}},
-        {"Error logger sink",
-         {foreach,
-            fun crash_fsm_sink_setup/0,
-            fun crash_fsm_cleanup/1,
-            Tests}}
-    }.
-
--if(?OTP_RELEASE < 23).
-test_body_gen_fsm_crash(TestBody) ->
-    TestBody("gen_fsm crash", crash_fsm, crash, , "gen_fsm crash_fsm in state state1 terminated with reason: call to undefined function crash_fsm:state1/3 from gen_fsm:handle_msg/").
--else.
-test_body_gen_fsm_crash(_TestBody) ->
-    .
--endif.
-
-error_logger_redirect_crash_test_() ->
-    TestBody=fun(Name,CrashReason,Expected) ->
-        fun(Sink) ->
-            {Name,
-                fun() ->
-                        Pid = whereis(crash),
-                        crash(CrashReason),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        test_body(Expected, lists:flatten(Msg)),
-                        ?assertEqual(Pid,proplists:get_value(pid,Metadata)),
-                        ?assertEqual(lager_util:level_to_num(error),Level)
-                end
-            }
-        end
-    end,
-    Tests = 
-        fun(Sink) ->
-            {"again, there is nothing up my sleeve",
-                fun() ->
-                        ?assertEqual(undefined, pop(Sink)),
-                        ?assertEqual(0, count(Sink))
-                end
-            }
-        end,
-
-        TestBody("bad return value",bad_return,"gen_server crash terminated with reason: bad return value: bleh"),
-        TestBody("bad return value with string",bad_return_string,"gen_server crash terminated with reason: bad return value: {tuple,{tuple,\"string\"}}"),
-        TestBody("bad return uncaught throw",throw,"gen_server crash terminated with reason: bad return value: a_ball"),
-        TestBody("case clause",case_clause,"gen_server crash terminated with reason: no case clause matching {} in crash:handle_call/3"),
-        TestBody("case clause string",case_clause_string,"gen_server crash terminated with reason: no case clause matching \"crash\" in crash:handle_call/3"),
-        TestBody("function clause",function_clause,"gen_server crash terminated with reason: no function clause matching crash:function({})"),
-        TestBody("if clause",if_clause,"gen_server crash terminated with reason: no true branch found while evaluating if expression in crash:handle_call/3"),
-        TestBody("try clause",try_clause,"gen_server crash terminated with reason: no try clause matching  in crash:handle_call/3"),
-        TestBody("undefined function",undef,"gen_server crash terminated with reason: call to undefined function crash:booger/0 from crash:handle_call/3"),
-        TestBody("bad math",badarith,"gen_server crash terminated with reason: bad arithmetic expression in crash:handle_call/3"),
-        TestBody("bad match",badmatch,"gen_server crash terminated with reason: no match of right hand value {} in crash:handle_call/3"),
-        TestBody("bad arity",badarity,"gen_server crash terminated with reason: fun called with wrong arity of 1 instead of 3 in crash:handle_call/3"),
-        TestBody("bad arg1",badarg1,"gen_server crash terminated with reason: bad argument in crash:handle_call/3"),
-        TestBody("bad arg2",badarg2,"gen_server crash terminated with reason: bad argument in call to erlang:iolist_to_binary(\"foo\",bar) in crash:handle_call/3"),
-        TestBody("bad record",badrecord,"gen_server crash terminated with reason: bad record state in crash:handle_call/3"),
-        TestBody("noproc",noproc,"gen_server crash terminated with reason: no such process or port in call to gen_event:call(foo, bar, baz)"),
-        TestBody("noproc_proc_lib",noproc_proc_lib,"gen_server crash terminated with reason: no such process or port in call to proc_lib:stop/3"),
-        TestBody("badfun",badfun,"gen_server crash terminated with reason: bad function booger in crash:handle_call/3")
-    ,
-    {"Error logger redirect crash", 
-        {"Redirect to default sink",
-            {foreach,
-            fun error_logger_redirect_crash_setup/0,
-            fun error_logger_redirect_crash_cleanup/1,
-            Tests}},
-        {"Redirect to error_logger_lager_event sink",
-            {foreach,
-            fun error_logger_redirect_crash_setup_sink/0,
-            fun error_logger_redirect_crash_cleanup/1,
-            Tests}}
-    }.
-
-
-error_logger_redirect_setup() ->
-    error_logger:tty(false),
-    application:load(lager),
-    application:set_env(lager, error_logger_redirect, true),
-    application:set_env(lager, handlers, {?MODULE, info}),
-    application:set_env(lager, suppress_supervisor_start_stop, false),
-    application:set_env(lager, suppress_application_start_stop, false),
-    lager:start(),
-    lager:log(error, self(), "flush flush"),
-    timer:sleep(1000),
-    gen_event:call(lager_event, ?MODULE, flush),
-    lager_event.
-
-error_logger_redirect_setup_sink() ->
-    error_logger:tty(false),
-    application:load(lager),
-    application:set_env(lager, error_logger_redirect, true),
-    application:unset_env(lager, handlers),
-    application:set_env(lager, extra_sinks, 
-        {error_logger_lager_event, 
-            {handlers, {?MODULE, info}}}),
-    application:set_env(lager, suppress_supervisor_start_stop, false),
-    application:set_env(lager, suppress_application_start_stop, false),
-    lager:start(),
-    lager:log(error_logger_lager_event, error, self(), "flush flush", ),
-    timer:sleep(1000),
-    gen_event:call(error_logger_lager_event, ?MODULE, flush),
-    error_logger_lager_event.
-
-error_logger_redirect_cleanup(_) ->
-    application:stop(lager),
-    application:stop(goldrush),
-    application:unset_env(lager, extra_sinks),
-    error_logger:tty(true).
-
-error_logger_redirect_test_() ->
-    Tests = 
-            {"error reports are printed",
-                fun(Sink) ->
-                        sync_error_logger:error_report({this, is}, a, {silly, format}),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(error),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        Expected = "this: is, a, silly: format",
-                        ?assertEqual(Expected, lists:flatten(Msg))
-
-                end
-            },
-            {"string error reports are printed",
-                fun(Sink) ->
-                        sync_error_logger:error_report("this is less silly"),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(error),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        Expected = "this is less silly",
-                        ?assertEqual(Expected, lists:flatten(Msg))
-                end
-            },
-            {"error messages are printed",
-                fun(Sink) ->
-                        sync_error_logger:error_msg("doom, doom has come upon you all"),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(error),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        Expected = "doom, doom has come upon you all",
-                        ?assertEqual(Expected, lists:flatten(Msg))
-                end
-            },
-            {"error messages with unicode characters in Args are printed",
-                fun(Sink) ->
-                        sync_error_logger:error_msg("~ts", "Привет!"),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(error),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        ?assertEqual("Привет!", lists:flatten(Msg))
-                end
-            },
-            {"error messages are truncated at 4096 characters",
-                fun(Sink) ->
-                        sync_error_logger:error_msg("doom, doom has come upon you all ~p", string:copies("doom", 10000)),
-                        _ = gen_event:which_handlers(error_logger),
-                        {_, _, Msg,_Metadata} = pop(Sink),
-                        ?assert(length(lists:flatten(Msg)) < 5100)
-                end
-            },
-
-            {"info reports are printed",
-                fun(Sink) ->
-                        sync_error_logger:info_report({this, is}, a, {silly, format}),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(info),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        Expected = "this: is, a, silly: format",
-                        ?assertEqual(Expected, lists:flatten(Msg))
-                end
-            },
-            {"info reports are truncated at 4096 characters",
-                fun(Sink) ->
-                        sync_error_logger:info_report({this, is}, a, {silly, format} || _ <- lists:seq(0, 600)),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(info),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        ?assert(length(lists:flatten(Msg)) < 5000)
-                end
-            },
-            {"single term info reports are printed",
-                fun(Sink) ->
-                        sync_error_logger:info_report({foolish, bees}),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(info),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        ?assertEqual("{foolish,bees}", lists:flatten(Msg))
-                end
-            },
-            {"single term error reports are printed",
-                fun(Sink) ->
-                        sync_error_logger:error_report({foolish, bees}),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(error),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        ?assertEqual("{foolish,bees}", lists:flatten(Msg))
-                end
-            },
-            {"string info reports are printed",
-                fun(Sink) ->
-                        sync_error_logger:info_report("this is less silly"),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(info),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        ?assertEqual("this is less silly", lists:flatten(Msg))
-                end
-            },
-            {"string info reports are truncated at 4096 characters",
-                fun(Sink) ->
-                        sync_error_logger:info_report(string:copies("this is less silly", 1000)),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(info),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        ?assert(length(lists:flatten(Msg)) < 5100)
-                end
-            },
-            {"strings in a mixed report are printed as strings",
-                fun(Sink) ->
-                        sync_error_logger:info_report("this is less silly", {than, "this"}),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(info),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        ?assertEqual("\"this is less silly\", than: \"this\"", lists:flatten(Msg))
-                end
-            },
-            {"info messages are printed",
-                fun(Sink) ->
-                        sync_error_logger:info_msg("doom, doom has come upon you all"),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(info),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        ?assertEqual("doom, doom has come upon you all", lists:flatten(Msg))
-                end
-            },
-            {"info messages are truncated at 4096 characters",
-                fun(Sink) ->
-                        sync_error_logger:info_msg("doom, doom has come upon you all ~p", string:copies("doom", 10000)),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(info),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        ?assert(length(lists:flatten(Msg)) < 5100)
-                end
-            },
-            {"info messages with unicode characters in Args are printed",
-                fun(Sink) ->
-                        sync_error_logger:info_msg("~ts", "Привет!"),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(info),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        ?assertEqual("Привет!", lists:flatten(Msg))
-                end
-            },
-            {"warning messages with unicode characters in Args are printed",
-             %% The next 4 tests need to store the current value of
-             %% `error_logger:warning_map/0' into a process dictionary
-             %% key `warning_map' so that the error message level used
-             %% to process the log messages will match what lager
-             %% expects.
-             %%
-             %% The atom returned by `error_logger:warning_map/0'
-             %% changed between OTP 17 and 18 (and later releases)
-             %%
-             %% `warning_map' is consumed in the `test/sync_error_logger.erl'
-             %% module. The default message level used in sync_error_logger
-             %% was fine for OTP releases through 17 and then broke
-             %% when 18 was released. By storing the expected value
-             %% in the process dictionary, sync_error_logger will
-             %% use the correct message level to process the
-             %% messages and these tests will no longer
-             %% break.
-                fun(Sink) ->
-                        Lvl = error_logger:warning_map(),
-                        put(warning_map, Lvl),
-                        sync_error_logger:warning_msg("~ts", "Привет!"),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(Lvl),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        ?assertEqual("Привет!", lists:flatten(Msg))
-                end
-            },
-            {"warning messages are printed at the correct level",
-                fun(Sink) ->
-                        Lvl = error_logger:warning_map(),
-                        put(warning_map, Lvl),
-                        sync_error_logger:warning_msg("doom, doom has come upon you all"),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(Lvl),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        ?assertEqual("doom, doom has come upon you all", lists:flatten(Msg))
-                end
-            },
-            {"warning reports are printed at the correct level",
-                fun(Sink) ->
-                        Lvl = error_logger:warning_map(),
-                        put(warning_map, Lvl),
-                        sync_error_logger:warning_report({i, like}, pie),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(Lvl),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        ?assertEqual("i: like, pie", lists:flatten(Msg))
-                end
-            },
-            {"single term warning reports are printed at the correct level",
-                fun(Sink) ->
-                        Lvl = error_logger:warning_map(),
-                        put(warning_map, Lvl),
-                        sync_error_logger:warning_report({foolish, bees}),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(Lvl),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        ?assertEqual("{foolish,bees}", lists:flatten(Msg))
-                end
-            },
-            {"application stop reports",
-                fun(Sink) ->
-                        sync_error_logger:info_report({application, foo}, {exited, quittin_time}, {type, lazy}),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(info),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        ?assertEqual("Application foo exited with reason: quittin_time", lists:flatten(Msg))
-                end
-            },
-            {"supervisor reports",
-                fun(Sink) ->
-                        sync_error_logger:error_report(supervisor_report, {errorContext, france}, {offender, {name, mini_steve}, {mfargs, {a, b, c}}, {pid, bleh}}, {reason, fired}, {supervisor, {local, steve}}),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(error),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        ?assertEqual("Supervisor steve had child mini_steve started with a:b(c) at bleh exit with reason fired in context france", lists:flatten(Msg))
-                end
-            },
-            {"supervisor reports with real error",
-                fun(Sink) ->
-                        sync_error_logger:error_report(supervisor_report, {errorContext, france}, {offender, {name, mini_steve}, {mfargs, {a, b, c}}, {pid, bleh}}, {reason, {function_clause,{crash,handle_info,foo}}}, {supervisor, {local, steve}}),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(error),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        ?assertEqual("Supervisor steve had child mini_steve started with a:b(c) at bleh exit with reason no function clause matching crash:handle_info(foo) in context france", lists:flatten(Msg))
-                end
-            },
-
-            {"supervisor reports with real error and pid",
-                fun(Sink) ->
-                        sync_error_logger:error_report(supervisor_report, {errorContext, france}, {offender, {name, mini_steve}, {mfargs, {a, b, c}}, {pid, bleh}}, {reason, {function_clause,{crash,handle_info,foo}}}, {supervisor, somepid}),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(error),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        ?assertEqual("Supervisor somepid had child mini_steve started with a:b(c) at bleh exit with reason no function clause matching crash:handle_info(foo) in context france", lists:flatten(Msg))
-                end
-            },
-
-            {"supervisor_bridge reports",
-                fun(Sink) ->
-                        sync_error_logger:error_report(supervisor_report, {errorContext, france}, {offender, {mod, mini_steve}, {pid, bleh}}, {reason, fired}, {supervisor, {local, steve}}),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(error),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        ?assertEqual("Supervisor steve had child at module mini_steve at bleh exit with reason fired in context france", lists:flatten(Msg))
-                end
-            },
-            {"application progress report",
-                fun(Sink) ->
-                        sync_error_logger:info_report(progress, {application, foo}, {started_at, node()}),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(info),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        Expected = lists:flatten(io_lib:format("Application foo started on node ~w", node())),
-                        ?assertEqual(Expected, lists:flatten(Msg))
-                end
-            },
-            {"supervisor progress report",
-                fun(Sink) ->
-                        lager:set_loglevel(Sink, ?MODULE, undefined, debug),
-                        ?assertEqual({?DEBUG bor ?INFO bor ?NOTICE bor ?WARNING bor ?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, }, lager_config:get({Sink, loglevel})),
-                        sync_error_logger:info_report(progress, {supervisor, {local, foo}}, {started, {mfargs, {foo, bar, 1}}, {pid, baz}}),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(debug),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        ?assertEqual("Supervisor foo started foo:bar/1 at pid baz", lists:flatten(Msg))
-                end
-            },
-            {"supervisor progress report with pid",
-                fun(Sink) ->
-                        lager:set_loglevel(Sink, ?MODULE, undefined, debug),
-                        ?assertEqual({?DEBUG bor ?INFO bor ?NOTICE bor ?WARNING bor ?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, }, lager_config:get({Sink, loglevel})),
-                        sync_error_logger:info_report(progress, {supervisor, somepid}, {started, {mfargs, {foo, bar, 1}}, {pid, baz}}),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(debug),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        ?assertEqual("Supervisor somepid started foo:bar/1 at pid baz", lists:flatten(Msg))
-                end
-            },
-            {"crash report for emfile",
-                fun(Sink) ->
-                        sync_error_logger:error_report(crash_report, {pid, self()}, {registered_name, }, {error_info, {error, emfile, {stack, trace, 1}}}, ),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(error),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        Expected = lists:flatten(io_lib:format("CRASH REPORT Process ~w with 0 neighbours crashed with reason: maximum number of file descriptors exhausted, check ulimit -n", self())),
-                        ?assertEqual(Expected, lists:flatten(Msg))
-                end
-            },
-            {"crash report for system process limit",
-                fun(Sink) ->
-                        sync_error_logger:error_report(crash_report, {pid, self()}, {registered_name, }, {error_info, {error, system_limit, {erlang, spawn, 1}}}, ),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(error),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        Expected = lists:flatten(io_lib:format("CRASH REPORT Process ~w with 0 neighbours crashed with reason: system limit: maximum number of processes exceeded", self())),
-                        ?assertEqual(Expected, lists:flatten(Msg))
-                end
-            },
-            {"crash report for system process limit2",
-                fun(Sink) ->
-                        sync_error_logger:error_report(crash_report, {pid, self()}, {registered_name, }, {error_info, {error, system_limit, {erlang, spawn_opt, 1}}}, ),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(error),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        Expected = lists:flatten(io_lib:format("CRASH REPORT Process ~w with 0 neighbours crashed with reason: system limit: maximum number of processes exceeded", self())),
-                        ?assertEqual(Expected, lists:flatten(Msg))
-                end
-            },
-            {"crash report for system port limit",
-                fun(Sink) ->
-                        sync_error_logger:error_report(crash_report, {pid, self()}, {registered_name, }, {error_info, {error, system_limit, {erlang, open_port, 1}}}, ),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(error),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        Expected = lists:flatten(io_lib:format("CRASH REPORT Process ~w with 0 neighbours crashed with reason: system limit: maximum number of ports exceeded", self())),
-                        ?assertEqual(Expected, lists:flatten(Msg))
-                end
-            },
-            {"crash report for system port limit",
-                fun(Sink) ->
-                        sync_error_logger:error_report(crash_report, {pid, self()}, {registered_name, }, {error_info, {error, system_limit, {erlang, list_to_atom, 1}}}, ),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(error),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        Expected = lists:flatten(io_lib:format("CRASH REPORT Process ~w with 0 neighbours crashed with reason: system limit: tried to create an atom larger than 255, or maximum atom count exceeded", self())),
-                        ?assertEqual(Expected, lists:flatten(Msg))
-                end
-            },
-            {"crash report for system ets table limit",
-                fun(Sink) ->
-                        sync_error_logger:error_report(crash_report, {pid, self()}, {registered_name, test}, {error_info, {error, system_limit, {ets,new,segment_offsets,ordered_set,public},{mi_segment,open_write,1},{mi_buffer_converter,handle_cast,2},{gen_server,handle_msg,5},{proc_lib,init_p_do_apply,3}}}, ),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(error),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        Expected = lists:flatten(io_lib:format("CRASH REPORT Process ~w with 0 neighbours crashed with reason: system limit: maximum number of ETS tables exceeded", test)),
-                        ?assertEqual(Expected, lists:flatten(Msg))
-                end
-            },
-            {"crash report for unknown system limit should be truncated at 500 characters",
-                fun(Sink) ->
-                        sync_error_logger:error_report(crash_report, {pid, self()}, {error_info, {error, system_limit, {wtf,boom,string:copies("aaaa", 4096)}}}, ),
-                        _ = gen_event:which_handlers(error_logger),
-                        {_, _, Msg,_Metadata} = pop(Sink),
-                        ?assert(length(lists:flatten(Msg)) > 550),
-                        ?assert(length(lists:flatten(Msg)) < 600)
-                end
-            },
-            {"crash reports for 'special processes' should be handled right - function_clause",
-                fun(Sink) ->
-                        {ok, Pid} = special_process:start(),
-                        unlink(Pid),
-                        Pid ! function_clause,
-                        timer:sleep(500),
-                        _ = gen_event:which_handlers(error_logger),
-                        {_, _, Msg, _Metadata} = pop(Sink),
-                        Expected = lists:flatten(io_lib:format("CRASH REPORT Process ~p with 0 neighbours crashed with reason: no function clause matching special_process:foo(bar)",
-                                Pid)),
-                        test_body(Expected, lists:flatten(Msg))
-                end
-            },
-            {"crash reports for 'special processes' should be handled right - case_clause",
-                fun(Sink) ->
-                        {ok, Pid} = special_process:start(),
-                        unlink(Pid),
-                        Pid ! {case_clause, wtf},
-                        timer:sleep(500),
-                        _ = gen_event:which_handlers(error_logger),
-                        {_, _, Msg, _Metadata} = pop(Sink),
-                        Expected = lists:flatten(io_lib:format("CRASH REPORT Process ~p with 0 neighbours crashed with reason: no case clause matching wtf in special_process:loop/0",
-                                Pid)),
-                        test_body(Expected, lists:flatten(Msg))
-                end
-            },
-            {"crash reports for 'special processes' should be handled right - exit",
-                fun(Sink) ->
-                        {ok, Pid} = special_process:start(),
-                        unlink(Pid),
-                        Pid ! exit,
-                        timer:sleep(500),
-                        _ = gen_event:which_handlers(error_logger),
-                        {_, _, Msg, _Metadata} = pop(Sink),
-                        Expected = lists:flatten(io_lib:format("CRASH REPORT Process ~p with 0 neighbours exited with reason: byebye in special_process:loop/0",
-                                Pid)),
-                        test_body(Expected, lists:flatten(Msg))
-                end
-            },
-            {"crash reports for 'special processes' should be handled right - error",
-                fun(Sink) ->
-                        {ok, Pid} = special_process:start(),
-                        unlink(Pid),
-                        Pid ! error,
-                        timer:sleep(500),
-                        _ = gen_event:which_handlers(error_logger),
-                        {_, _, Msg, _Metadata} = pop(Sink),
-                        Expected = lists:flatten(io_lib:format("CRASH REPORT Process ~p with 0 neighbours crashed with reason: mybad in special_process:loop/0",
-                                Pid)),
-                        test_body(Expected, lists:flatten(Msg))
-                end
-            },
-            {"webmachine error reports",
-                fun(Sink) ->
-                        Path = "/cgi-bin/phpmyadmin",
-                        Reason = {error,{error,{badmatch,{error,timeout}},
-                                        {myapp,dostuff,2,{file,"src/myapp.erl"},{line,123}},
-                                         {webmachine_resource,resource_call,3,{file,"src/webmachine_resource.erl"},{line,169}}}},
-                        sync_error_logger:error_msg("webmachine error: path=~p~n~p~n", Path, Reason),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(error),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        ?assertEqual("Webmachine error at path \"/cgi-bin/phpmyadmin\" : no match of right hand value {error,timeout} in myapp:dostuff/2 line 123", lists:flatten(Msg))
-
-                end
-            },
-            {"Cowboy error reports, 8 arg version",
-             fun(Sink) ->
-                        Stack = {my_handler,init, 3,{file,"src/my_handler.erl"},{line,123}},
-                                 {cowboy_handler,handler_init,4,{file,"src/cowboy_handler.erl"},{line,169}},
-
-                        sync_error_logger:error_msg(
-                            "** Cowboy handler ~p terminating in ~p/~p~n"
-                            "   for the reason ~p:~p~n"
-                            "** Options were ~p~n"
-                            "** Request was ~p~n"
-                            "** Stacktrace: ~p~n~n",
-                            my_handler, init, 3, error, {badmatch, {error, timeout}}, ,
-                             "Request", Stack),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(error),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        ?assertEqual("Cowboy handler my_handler terminated in my_handler:init/3 with reason: no match of right hand value {error,timeout} in my_handler:init/3 line 123", lists:flatten(Msg))
-                end
-            },
-            {"Cowboy error reports, 10 arg version",
-             fun(Sink) ->
-                        Stack = {my_handler,somecallback, 3,{file,"src/my_handler.erl"},{line,123}},
-                                 {cowboy_handler,handler_init,4,{file,"src/cowboy_handler.erl"},{line,169}},
-                        sync_error_logger:error_msg(
-                            "** Cowboy handler ~p terminating in ~p/~p~n"
-                            "   for the reason ~p:~p~n** Message was ~p~n"
-                            "** Options were ~p~n** Handler state was ~p~n"
-                            "** Request was ~p~n** Stacktrace: ~p~n~n",
-                            my_handler, somecallback, 3, error, {badmatch, {error, timeout}}, hello, ,
-                             {}, "Request", Stack),
-
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(error),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        ?assertEqual("Cowboy handler my_handler terminated in my_handler:somecallback/3 with reason: no match of right hand value {error,timeout} in my_handler:somecallback/3 line 123", lists:flatten(Msg))
-                end
-            },
-            {"Cowboy error reports, 5 arg version",
-             fun(Sink) ->
-                        sync_error_logger:error_msg(
-                            "** Cowboy handler ~p terminating; "
-                            "function ~p/~p was not exported~n"
-                            "** Request was ~p~n** State was ~p~n~n",
-                            my_handler, to_json, 2, "Request", {}),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg,Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(error),Level),
-                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
-                        ?assertEqual("Cowboy handler my_handler terminated with reason: call to undefined function my_handler:to_json/2", lists:flatten(Msg))
-                end
-            },
-            {"Cowboy error reports, 6 arg version",
-             fun(Sink) ->
-                        Stack = {app_http, init, 2, {file, "app_http.erl"}, {line,9}},
-                                 {cowboy_handler, execute, 2, {file, "cowboy_handler.erl"}, {line, 41}},
-                        ConnectionPid = list_to_pid("<0.82.0>"),
-                        sync_error_logger:error_msg(
-                            "Ranch listener ~p, connection process ~p, stream ~p "
-                            "had its request process ~p exit with reason "
-                            "~999999p and stacktrace ~999999p~n",
-                            my_listner, ConnectionPid, 1, self(), {badmatch, 2}, Stack),
-                        _ = gen_event:which_handlers(error_logger),
-                        {Level, _, Msg, Metadata} = pop(Sink),
-                        ?assertEqual(lager_util:level_to_num(error), Level),
-                        ?assertEqual(self(), proplists:get_value(pid, Metadata)),
-                        ?assertEqual("Cowboy stream 1 with ranch listener my_listner and "
-                                     "connection process <0.82.0> had its request process exit "
-                                     "with reason: no match of right hand value 2 "
-                                     "in app_http:init/2 line 9", lists:flatten(Msg))
-                end
-            },
-            {"messages should not be generated if they don't satisfy the threshold",
-                fun(Sink) ->
-                        lager:set_loglevel(Sink, ?MODULE, undefined, error),
-                        ?assertEqual({?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, }, lager_config:get({Sink, loglevel})),
-                        sync_error_logger:info_report(hello, world),
-                        _ = gen_event:which_handlers(error_logger),
-                        ?assertEqual(0, count(Sink)),
-                        ?assertEqual(0, count_ignored(Sink)),
-                        lager:set_loglevel(Sink, ?MODULE, undefined, info),
-                        ?assertEqual({?INFO bor ?NOTICE bor ?WARNING bor ?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, }, lager_config:get({Sink, loglevel})),
-                        sync_error_logger:info_report(hello, world),
-                        _ = gen_event:which_handlers(error_logger),
-                        ?assertEqual(1, count(Sink)),
-                        ?assertEqual(0, count_ignored(Sink)),
-                        lager:set_loglevel(Sink, ?MODULE, undefined, error),
-                        ?assertEqual({?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, }, lager_config:get({Sink, loglevel})),
-                        lager_config:set({Sink, loglevel}, {element(2, lager_util:config_to_mask(debug)), }),
-                        sync_error_logger:info_report(hello, world),
-                        _ = gen_event:which_handlers(error_logger),
-                        ?assertEqual(1, count(Sink)),
-                        ?assertEqual(1, count_ignored(Sink))
-                end
-            }
-        ,
-    SinkTests = lists:map(
-        fun({Name, F}) ->
-            fun(Sink) -> {Name, fun() -> F(Sink) end} end
-        end,
-        Tests),
-    {"Error logger redirect", 
-        {"Redirect to default sink",
-            {foreach,
-            fun error_logger_redirect_setup/0,
-            fun error_logger_redirect_cleanup/1,
-            SinkTests}},
-        {"Redirect to error_logger_lager_event sink",
-            {foreach,
-            fun error_logger_redirect_setup_sink/0,
-            fun error_logger_redirect_cleanup/1,
-            SinkTests}}
-    }.
-
-safe_format_test() ->
-    ?assertEqual("foo bar", lists:flatten(lager:safe_format("~p ~p", foo, bar, 1024))),
-    ?assertEqual("FORMAT ERROR: \"~p ~p ~p\" foo,bar", lists:flatten(lager:safe_format("~p ~p ~p", foo, bar, 1024))),
-    ok.
-
-unsafe_format_test() ->
-    ?assertEqual("foo bar", lists:flatten(lager:unsafe_format("~p ~p", foo, bar))),
-    ?assertEqual("FORMAT ERROR: \"~p ~p ~p\" foo,bar", lists:flatten(lager:unsafe_format("~p ~p ~p", foo, bar))),
-    ok.
-
-async_threshold_test_() ->
-    Cleanup = fun(Reset) ->
-        _ = error_logger:tty(false),
-        _ = application:stop(lager),
-        _ = application:stop(goldrush),
-        _ = application:unset_env(lager, async_threshold),
-        if
-            Reset ->
-                true = ets:delete(async_threshold_test),
-                error_logger:tty(true);
-            true ->
-                _ = (catch ets:delete(async_threshold_test)),
-                ok
-        end
-    end,
-    Setup = fun() ->
-        % Evidence suggests that previous tests somewhere are leaving some of this stuff
-        % loaded, and cleaning it out forcefully to allows the test to succeed.
-        _ = Cleanup(false),
-        _ = ets:new(async_threshold_test, set, named_table, public),
-        ?assertEqual(true, ets:insert_new(async_threshold_test, {sync_toggled, 0})),
-        ?assertEqual(true, ets:insert_new(async_threshold_test, {async_toggled, 0})),
-        _ = application:load(lager),
-        ok = application:set_env(lager, error_logger_redirect, false),
-        ok = application:set_env(lager, async_threshold, 2),
-        ok = application:set_env(lager, async_threshold_window, 1),
-        ok = application:set_env(lager, handlers, {?MODULE, info}),
-        ok = lager:start(),
-        true
-    end,
-    {foreach, Setup, Cleanup, 
-        {"async threshold works",
-         {timeout, 30, fun() ->
-            Sleep = get_long_sleep_value(),
-
-            %% we start out async
-            ?assertEqual(true, lager_config:get(async)),
-            ?assertEqual({sync_toggled, 0},
-                ets:lookup(async_threshold_test, sync_toggled)),
-
-            %% put a ton of things in the queue
-            WorkCnt = erlang:max(10, (erlang:system_info(schedulers) * 2)),
-            OtpVsn  = lager_util:otp_version(),
-            % newer OTPs *may* handle the messages faster, so we'll send more
-            MsgCnt  = ((OtpVsn * OtpVsn) div 2),
-            Workers = spawn_stuffers(WorkCnt, MsgCnt, info, "hello world", ),
-
-            %% serialize on mailbox
-            _ = gen_event:which_handlers(lager_event),
-            timer:sleep(Sleep),
-
-            %% By now the flood of messages should have forced the backend throttle
-            %% to turn off async mode, but it's possible all outstanding requests
-            %% have been processed, so checking the current status (sync or async)
-            %% is an exercise in race control.
-            %% Instead, we'll see whether the backend throttle has toggled into sync
-            %% mode at any point in the past.
-            ?assertMatch({sync_toggled, N} when N > 0,
-                ets:lookup(async_threshold_test, sync_toggled)),
-
-            %% Wait for all the workers to return, meaning that all the messages have
-            %% been logged (since we're definitely in sync mode at the end of the run).
-            collect_workers(Workers),
-
-            %% serialize on the mailbox again
-            _ = gen_event:which_handlers(lager_event),
-            timer:sleep(Sleep),
-
-            lager:info("hello world"),
-
-            _ = gen_event:which_handlers(lager_event),
-            timer:sleep(Sleep),
-
-            %% async is true again now that the mailbox has drained
-            ?assertEqual(true, lager_config:get(async)),
-            ok
-        end}}
-    }.
-
-% Fire off the stuffers with minimal resource overhead - speed is of the essence.
-spawn_stuffers(0, _, Refs) ->
-    % Attempt to return them in about the order that they'll finish.
-    lists:reverse(Refs);
-spawn_stuffers(N, Args, Refs) ->
-    {_Pid, Ref} = erlang:spawn_monitor(?MODULE, message_stuffer, Args),
-    spawn_stuffers((N - 1), Args, Ref | Refs).
-
-% Spawned process to stuff N copies of Message into lager's message queue as fast as possible.
-% Skip using a list function for speed and low memory footprint - don't want to take the
-% resources to create a sequence (or pass one in).
-message_stuffer(N, Level, Message) ->
-    message_stuffer_(N, Level, {pid, erlang:self()}, Message).
-
-message_stuffer_(0, _, _, _) ->
-    ok;
-message_stuffer_(N, Level, Meta, Message) ->
-    lager:log(Level, Meta, Message),
-    message_stuffer_((N - 1), Level, Meta, Message).
-
-collect_workers() ->
-    ok;
-collect_workers(Ref | Refs) ->
-    receive
-        {'DOWN', Ref, _, _, _} ->
-            collect_workers(Refs)
-    end.
-
-produce_n_error_logger_msgs(N) ->
-    lists:foreach(fun (K) ->
-            error_logger:error_msg("Foo ~p!", K)
-        end,
-        lists:seq(0, N-1)
-    ).
-
-high_watermark_test_() ->
-    {foreach,
-        fun() ->
-            error_logger:tty(false),
-            application:load(lager),
-            application:set_env(lager, error_logger_redirect, true),
-            application:set_env(lager, handlers, {lager_test_backend, info}),
-            application:set_env(lager, async_threshold, undefined),
-            lager:start()
-        end,
-        fun(_) ->
-            application:stop(lager),
-            error_logger:tty(true)
-        end,
-        
-            {"Nothing dropped when error_logger high watermark is undefined",
-                fun () ->
-                    ok = error_logger_lager_h:set_high_water(undefined),
-                    timer:sleep(100),
-                    produce_n_error_logger_msgs(10),
-                    timer:sleep(500),
-                    ?assert(count() >= 10)
-                end
-            },
-            {"Mostly dropped according to error_logger high watermark",
-                fun () ->
-                    ok = error_logger_lager_h:set_high_water(5),
-                    timer:sleep(100),
-                    produce_n_error_logger_msgs(50),
-                    timer:sleep(1000),
-                    ?assert(count() < 20)
-                end
-            },
-            {"Non-notifications are not dropped",
-                fun () ->
-                    ok = error_logger_lager_h:set_high_water(2),
-                    timer:sleep(100),
-                    spawn(fun () -> produce_n_error_logger_msgs(300) end),
-                    timer:sleep(50),
-                    %% if everything were dropped, this call would be dropped
-                    %% too, so lets hope it's not
-                    ?assert(is_integer(count())),
-                    timer:sleep(1000),
-                    ?assert(count() < 10)
-                end
-            }
-        
-    }.
-
-get_long_sleep_value() ->
-    case os:getenv("CI") of
-        false ->
-            500;
-        _ ->
-            5000
-    end.
-
--endif.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/test/lager_test_function_transform.erl Deleted

@@ -1,198 +0,0 @@
-%% -------------------------------------------------------------------
-%%
-%% Copyright (c) 2011-2017 Basho Technologies, Inc.
-%%
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-%%
-%% -------------------------------------------------------------------
-
--module(lager_test_function_transform).
-
--include("lager.hrl").
-
--compile({nowarn_deprecated_function, {erlang, now, 0}}).
-
--lager_function_transforms(
-    {returns_static_emit, on_emit, {lager_test_function_transform, transform_static}},
-    {returns_dynamic_emit, on_emit, {lager_test_function_transform, transform_dynamic}},
-    {returns_undefined_emit, on_emit, {not_real_module_fake, fake_not_real_function}},
-
-    {returns_static_log, on_log, {lager_test_function_transform, transform_static}},
-    {returns_dynamic_log, on_log, {lager_test_function_transform, transform_dynamic}}
-).
-
--compile({parse_transform, lager_transform}).
-
--ifdef(TEST).
--include_lib("eunit/include/eunit.hrl").
--export(
-    transform_static/0,
-    transform_dynamic/0
-).
--endif.
-
--ifdef(TEST).
-
-transform_static() ->
-    static_result.
-
-transform_dynamic() ->
-    case lager_util:otp_version() >= 18 of
-        true ->
-            erlang:monotonic_time();
-        false ->
-            erlang:now()
-    end.
-
-not_running_test() ->
-    ?assertEqual({error, lager_not_running}, lager:log(info, self(), "not running")).
-
-setup() ->
-    ok = error_logger:tty(false),
-    ok = lager_util:safe_application_load(lager),
-    ok = application:set_env(lager, handlers, {lager_test_backend, info}),
-    ok = application:set_env(lager, error_logger_redirect, false),
-    ok = application:unset_env(lager, traces),
-    ok = lager:start(),
-    %% There is a race condition between the application start up, lager logging its own
-    %% start up condition and several tests that count messages or parse the output of
-    %% tests.  When the lager start up message wins the race, it causes these tests
-    %% which parse output or count message arrivals to fail.
-    %%
-    %% We introduce a sleep here to allow `flush' to arrive *after* the start up
-    %% message has been received and processed.
-    %%
-    %% This race condition was first exposed during the work on
-    %% 4b5260c4524688b545cc12da6baa2dfa4f2afec9 which introduced the lager
-    %% manager killer PR.
-    ok = timer:sleep(250),
-    ok = gen_event:call(lager_event, lager_test_backend, flush).
-
-cleanup(_) ->
-    catch ets:delete(lager_config), %% kill the ets config table with fire
-    ok = application:stop(lager),
-    ok = application:stop(goldrush),
-    ok = error_logger:tty(true).
-
-transform_function_test_() ->
-    {foreach,
-        fun setup/0,
-        fun cleanup/1,
-        
-            {"observe that there is nothing up my sleeve",
-                fun() ->
-                    ?assertEqual(undefined, lager_test_backend:pop()),
-                    ?assertEqual(0, lager_test_backend:count())
-                end
-            },
-            {"logging works",
-                fun() ->
-                    lager:warning("test message"),
-                    ?assertEqual(1, lager_test_backend:count()),
-                    {Level, _Time, Message, _Metadata}  = lager_test_backend:pop(),
-                    ?assertMatch(Level, lager_util:level_to_num(warning)),
-                    ?assertEqual("test message", Message),
-                    ok
-                end
-            },
-            {"Testing calling a function returns the same content on emit",
-                fun() ->
-                    lager:warning("static message"),
-                    ?assertEqual(1, lager_test_backend:count()),
-                    {_Level, _Time, _Message, Metadata} = lager_test_backend:pop(),
-                    Function = proplists:get_value(returns_static_emit, Metadata),
-                    ?assertEqual(transform_static(), Function()),
-                    ok
-                end
-            },
-            {"Testing calling a function which returns content which can change on emit",
-                fun() ->
-                    lager:warning("dynamic message"),
-                    ?assertEqual(1, lager_test_backend:count()),
-                    {_Level, _Time, _Message, Metadata} = lager_test_backend:pop(),
-                    Function = proplists:get_value(returns_dynamic_emit, Metadata),
-                    ?assert(Function() =< Function()),
-                    ?assert(Function() =< Function()),
-                    ?assert(Function() =< Function()),
-                    ?assert(Function() =< Function()),
-                    ok
-                end
-            },
-            {"Testing a undefined function returns undefined on emit",
-                fun() ->
-                    lager:warning("Undefined error"),
-                    ?assertEqual(1, lager_test_backend:count()),
-                    {_Level, _Time, _Message, Metadata} = lager_test_backend:pop(),
-                    Function = proplists:get_value(returns_undefined_emit, Metadata),
-                    {module, Module}, {name, Name}|_ = erlang:fun_info(Function),
-                    ?assertNot(erlang:function_exported(Module, Name, 0)),
-                    ok
-                end
-            },
-            {"Testing calling a function returns the same content on log",
-                fun() ->
-                    lager:warning("static message"),
-                    ?assertEqual(1, lager_test_backend:count()),
-                    {_Level, _Time, _Message, Metadata} = lager_test_backend:pop(),
-                    ?assertEqual(transform_static(), proplists:get_value(returns_static_log, Metadata)),
-                    ok
-                end
-            },
-            {"Testing calling a dynamic function on log which returns the same value",
-                fun() ->
-                    lager:warning("dynamic message"),
-                    ?assertEqual(1, lager_test_backend:count()),
-                    {_Level, _Time, _Message, Metadata} = lager_test_backend:pop(),
-                    Value = proplists:get_value(returns_dynamic_log, Metadata),
-                    ?assert(Value =< transform_dynamic()),
-                    ?assert(Value =< transform_dynamic()),
-                    ?assert(Value =< transform_dynamic()),
-                    ?assert(Value =< transform_dynamic()),
-                    ?assert(Value =< transform_dynamic()),
-                    ok
-                end
-            },
-            {"Testing differences in results for on_log vs on emit from dynamic function",
-                fun() ->
-                    lager:warning("on_log vs on emit"),
-                    ?assertEqual(1, lager_test_backend:count()),
-                    {_Level, _Time, _Message, Metadata} = lager_test_backend:pop(),
-                    Value = proplists:get_value(returns_dynamic_log, Metadata),
-                    Function = proplists:get_value(returns_dynamic_emit, Metadata),
-                    FunctionResult = Function(),
-                    ?assert(Value =< FunctionResult),
-                    ?assert(Value =< Function()),
-                    ?assert(FunctionResult =< Function()),
-                    ok
-                end
-            },
-            {"Testing a function provided via metadata",
-                fun()->
-                    Provided = fun() ->
-                        provided_metadata
-                    end,
-                    lager:md({provided, Provided}),
-                    lager:warning("Provided metadata"),
-                    ?assertEqual(1, lager_test_backend:count()),
-                    {_Level, _Time, _Message, Metadata} = lager_test_backend:pop(),
-                    Function = proplists:get_value(provided, Metadata),
-                    ?assertEqual(Provided(), Function()),
-                    ok
-                end
-            }
-        
-    }.
-
--endif.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/test/lager_trace_test.erl Deleted

@@ -1,103 +0,0 @@
--module(lager_trace_test).
-
--compile({parse_transform, lager_transform}).
-
--ifdef(TEST).
--include_lib("eunit/include/eunit.hrl").
-
-% Our expectation is that the first log entry will appear so we won't actually
-% wait out ?FIRST_LOG_ENTRY_TIMEOUT. On the other hand, the second log entry is
-% expected never to arrive, so the test will wait out ?SECOND_LOG_ENTRY_TIMEOUT;
-% that's why it is shorter.
--define(FIRST_LOG_ENTRY_TIMEOUT, (10 * 1000)). % 10 seconds
--define(SECOND_LOG_ENTRY_TIMEOUT, 1000). % 1 second
-
--define(FNAME, "test/test1.log").
-
-trace_test_() ->
-    {timeout,
-     10,
-     {foreach,
-         fun() ->
-                 file:write_file(?FNAME, ""),
-                 error_logger:tty(false),
-                 application:load(lager),
-                 application:set_env(lager, log_root, "test"),
-                 application:set_env(lager, handlers,
-                                     {lager_file_backend,
-                                       {file, "test1.log"},
-                                        {level, none},
-                                        {formatter, lager_default_formatter},
-                                        {formatter_config, message, "\n"}
-                                       }),
-                 application:set_env(lager, traces,
-                                     {{lager_file_backend, "test1.log"},
-                                       {tag, mytag}, info}),
-                 application:set_env(lager, error_logger_redirect, false),
-                 application:set_env(lager, async_threshold, undefined),
-                 lager:start()
-         end,
-         fun(_) ->
-                 file:delete(?FNAME),
-                 application:stop(lager),
-                 application:stop(goldrush),
-                 application:unset_env(lager, log_root),
-                 application:unset_env(lager, handlers),
-                 application:unset_env(lager, traces),
-                 application:unset_env(lager, error_logger_redirect),
-                 application:unset_env(lager, async_threshold),
-                 error_logger:tty(true)
-         end,
-         {"Trace combined with log_root",
-             fun() ->
-                 lager:info({tag, mytag}, "Test message"),
-
-                 % Wait until we have the expected log entry in the log file.
-                 case wait_until(fun() ->
-                                         count_lines(?FNAME) >= 1
-                                 end, ?FIRST_LOG_ENTRY_TIMEOUT) of
-                     ok ->
-                         ok;
-                     {error, timeout} ->
-                         throw({file_empty, file:read_file(?FNAME)})
-                 end,
-
-                 % Let's wait a little to see that we don't get a duplicate log
-                 % entry.
-                 case wait_until(fun() ->
-                                         count_lines(?FNAME) >= 2
-                                 end, ?SECOND_LOG_ENTRY_TIMEOUT) of
-                     ok ->
-                         throw({too_many_entries, file:read_file(?FNAME)});
-                     {error, timeout} ->
-                         ok
-                 end
-             end}
-          }}.
-
-% Wait until Fun() returns true.
-wait_until(Fun, Timeout) ->
-    wait_until(Fun, Timeout, {8, 13}).
-
-wait_until(_Fun, Timeout, {T1, _}) when T1 > Timeout ->
-    {error, timeout};
-wait_until(Fun, Timeout, {T1, T2}) ->
-    case Fun() of
-        true ->
-            ok;
-        false ->
-            timer:sleep(T1),
-            wait_until(Fun, Timeout, {T2, T1 + T2})
-    end.
-
-% Return the number of lines in a file. Return 0 for a non-existent file.
-count_lines(Filename) ->
-    case file:read_file(Filename) of
-        {ok, Content} ->
-            Lines = binary:split(Content, <<"\n">>, global, trim),
-            length(Lines);
-        {error, _} ->
-            0
-    end.
-
--endif.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/test/pr_composite_test.erl Deleted

@@ -1,47 +0,0 @@
--module(pr_composite_test).
-
--compile({parse_transform, lager_transform}).
-
--record(a, {field1 :: term(), field2 :: term()}).
--record(b, {field1 :: term() , field2 :: term()}).
-
-
--include_lib("eunit/include/eunit.hrl").
-
-nested_record_test() ->
-    A = #a{field1 = x, field2 = y}, 
-    B = #b{field1 = A, field2 = {}},
-    Pr_B = lager:pr(B, ?MODULE),
-    ?assertEqual({'$lager_record', b,
-                    {field1, {'$lager_record', a,
-                                    {field1, x},{field2, y}}},
-                     {field2, {}}}, 
-                   Pr_B).
-
-list_field_test() ->
-    As = #a{field1 = 1, field2 = a2},
-          #a{field1 = 2, field2 = a2},
-    B = #b{field1 = As, field2 = b2},
-    Pr_B = lager:pr(B, ?MODULE),
-    ?assertEqual({'$lager_record', b,
-                  {field1, {'$lager_record', a,
-                              {field1, 1},{field2, a2}},
-                             {'$lager_record', a,
-                              {field1, 2},{field2, a2}}},
-                   {field2, b2}},
-                 Pr_B).
-
-list_of_records_test() ->
-    As = #a{field1 = 1, field2 = a2},
-          #a{field1 = 2, field2 = a2},
-    Pr_As = lager:pr(As, ?MODULE),
-    ?assertEqual({'$lager_record', a, {field1, 1},{field2, a2}},
-                  {'$lager_record', a, {field1, 2},{field2, a2}},
-                 Pr_As).
-
-improper_list_test() ->
-    A = #a{field1 = 1|2, field2 = a2},
-    Pr_A = lager:pr(A, ?MODULE),
-    ?assertEqual({'$lager_record',a,
-                  {field1,1|2},{field2,a2}},
-                 Pr_A).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/test/pr_stacktrace_test.erl Deleted

@@ -1,55 +0,0 @@
--module(pr_stacktrace_test).
-
--compile({parse_transform, lager_transform}).
-
--include_lib("eunit/include/eunit.hrl").
-
-make_throw() ->
-    throw({test, exception}).
-
-bad_arity() ->
-    lists:concat(, ).
-
-bad_arg() ->
-    integer_to_list(1.0).
-
-pr_stacktrace_throw_test() ->
-    Got = try
-        make_throw()
-    catch
-        Class:Reason:Stacktrace ->
-            lager:pr_stacktrace(Stacktrace, {Class, Reason})
-    end,
-    Want = "pr_stacktrace_test:pr_stacktrace_throw_test/0 line 18\n    pr_stacktrace_test:make_throw/0 line 8\nthrow:{test,exception}",
-    ?assertNotEqual(nomatch, string:find(Got, Want)).
-
-pr_stacktrace_bad_arg_test() ->
-    Got = try
-        bad_arg()
-    catch
-        Class:Reason:Stacktrace ->
-            lager:pr_stacktrace(Stacktrace, {Class, Reason})
-    end,
-    Want = "pr_stacktrace_test:pr_stacktrace_bad_arg_test/0 line 28\n    pr_stacktrace_test:bad_arg/0 line 14\nerror:badarg",
-    ?assertNotEqual(nomatch, string:find(Got, Want)).
-
-pr_stacktrace_bad_arity_test() ->
-    Got = try
-        bad_arity()
-    catch
-        Class:Reason:Stacktrace ->
-            lager:pr_stacktrace(Stacktrace, {Class, Reason})
-    end,
-    Want = "pr_stacktrace_test:pr_stacktrace_bad_arity_test/0 line 38\n    lists:concat(, )\nerror:undef",
-    ?assertNotEqual(nomatch, string:find(Got, Want)).
-
-pr_stacktrace_no_reverse_test() ->
-    application:set_env(lager, reverse_pretty_stacktrace, false),
-    Got = try
-        bad_arity()
-    catch
-        Class:Reason:Stacktrace ->
-            lager:pr_stacktrace(Stacktrace, {Class, Reason})
-    end,
-    Want = "error:undef\n    lists:concat(, )\n    pr_stacktrace_test:pr_stacktrace_bad_arity_test/0 line 57",
-    ?assertEqual(nomatch, string:find(Got, Want)).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/test/special_process.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/test/sync_error_logger.erl Deleted

@@ -1,89 +0,0 @@
-%%
-%% %CopyrightBegin%
-%% 
-%% Copyright Ericsson AB 1996-2009. All Rights Reserved.
-%% 
-%% The contents of this file are subject to the Erlang Public License,
-%% Version 1.1, (the "License"); you may not use this file except in
-%% compliance with the License. You should have received a copy of the
-%% Erlang Public License along with this software. If not, it can be
-%% retrieved online at http://www.erlang.org/.
-%% 
-%% Software distributed under the License is distributed on an "AS IS"
-%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
-%% the License for the specific language governing rights and limitations
-%% under the License.
-%% 
-%% %CopyrightEnd%
-%%
--module(sync_error_logger).
-
-%% The error_logger API, but synchronous!
-%% This is helpful for tests, otherwise you need lots of nasty timer:sleep.
-%% Additionally, the warning map can be set on a per-process level, for
-%% convienience, via the process dictionary value `warning_map'.
-
--export(
-        info_msg/1, info_msg/2,
-        warning_msg/1, warning_msg/2,
-        error_msg/1,error_msg/2
-    ).
-
--export(
-        info_report/1, info_report/2,
-        warning_report/1, warning_report/2,
-        error_report/1, error_report/2
-    ).
-
-info_msg(Format) ->
-    info_msg(Format, ).
-
-info_msg(Format, Args) ->
-    gen_event:sync_notify(error_logger, {info_msg, group_leader(), {self(), Format, Args}}).
-
-warning_msg(Format) ->
-    warning_msg(Format, ).
-
-warning_msg(Format, Args) ->
-    gen_event:sync_notify(error_logger, {warning_msg_tag(), group_leader(), {self(), Format, Args}}).
-
-error_msg(Format) ->
-    error_msg(Format, ).
-
-error_msg(Format, Args) ->
-    gen_event:sync_notify(error_logger, {error, group_leader(), {self(), Format, Args}}).
-
-info_report(Report) ->
-    info_report(std_info, Report).
-
-info_report(Type, Report) ->
-    gen_event:sync_notify(error_logger, {info_report, group_leader(), {self(), Type, Report}}).
-
-warning_report(Report) ->
-    warning_report(std_warning, Report).
-
-warning_report(Type, Report) ->
-    {Tag, NType} = warning_report_tag(Type),
-    gen_event:sync_notify(error_logger, {Tag, group_leader(), {self(), NType, Report}}).
-
-error_report(Report) ->
-    error_report(std_error, Report).
-
-error_report(Type, Report) ->
-    gen_event:sync_notify(error_logger, {error_report, group_leader(), {self(), Type, Report}}).
-
-warning_msg_tag() ->
-    case get(warning_map) of
-        warning -> warning_msg;
-        info -> info_msg;
-        _ -> error
-    end.
-
-warning_report_tag(Type) ->
-    case {get(warning_map), Type == std_warning} of
-        {warning, _} -> {warning_report, Type};
-        {info, true} -> {info_report, std_info};
-        {info, false} -> {info_report, Type};
-        {_, true} -> {error_report, std_error};
-        {_, false} -> {error_report, Type}
-    end.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/test/trunc_io_eqc.erl Deleted

@@ -1,244 +0,0 @@
-%% -------------------------------------------------------------------
-%%
-%% trunc_io_eqc: QuickCheck test for trunc_io:format with maxlen
-%%
-%% Copyright (c) 2011-2012 Basho Technologies, Inc.  All Rights Reserved.
-%%
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-%%
-%% -------------------------------------------------------------------
--module(trunc_io_eqc).
-
--ifdef(TEST).
--ifdef(EQC).
--export(test/0, test/1, check/0, prop_format/0, prop_equivalence/0).
-
--include_lib("eqc/include/eqc.hrl").
--include_lib("eunit/include/eunit.hrl").
-
--define(QC_OUT(P),
-        eqc:on_output(fun(Str, Args) -> io:format(user, Str, Args) end, P)).
-
-%%====================================================================
-%% eunit test 
-%%====================================================================
-
-eqc_test_() ->
-    {timeout, 60,
-     {spawn, 
-      
-                {timeout, 30, ?_assertEqual(true, eqc:quickcheck(eqc:testing_time(14, ?QC_OUT(prop_format()))))},
-                {timeout, 30, ?_assertEqual(true, eqc:quickcheck(eqc:testing_time(14, ?QC_OUT(prop_equivalence()))))}
-                
-     }}.
-
-%%====================================================================
-%% Shell helpers 
-%%====================================================================
-    
-test() ->
-    test(100).
-
-test(N) ->
-    quickcheck(numtests(N, prop_format())).
-
-check() ->
-    check(prop_format(), current_counterexample()).
-
-%%====================================================================
-%% Generators
-%%====================================================================
-
-gen_fmt_args() ->
-    list(oneof(gen_print_str(),
-                "~~",
-                {"~10000000.p", gen_any(5)},
-                {"~w", gen_any(5)},
-                {"~s", oneof(gen_print_str(), gen_atom(), gen_quoted_atom(), gen_print_bin(), gen_iolist(5))},
-                {"~1000000.P", gen_any(5), 4},
-                {"~W", gen_any(5), 4},
-                {"~i", gen_any(5)},
-                {"~B", nat()},
-                {"~b", nat()},
-                {"~X", nat(), "0x"},
-                {"~x", nat(), "0x"},
-                {"~.10#", nat()},
-                {"~.10+", nat()},
-                {"~.36B", nat()},
-                {"~1000000.62P", gen_any(5), 4},
-                {"~c", gen_char()},
-                {"~tc", gen_char()},
-                {"~f", real()},
-                {"~10.f", real()},
-                {"~g", real()},
-                {"~10.g", real()},
-                {"~e", real()},
-                {"~10.e", real()}
-               )).
-             
-
-%% Generates a printable string
-gen_print_str() ->
-    ?LET(Xs, list(char()), X || X <- Xs, io_lib:printable_list(X), X /= $~, X < 256).
-
-gen_print_bin() ->
-    ?LET(Xs, gen_print_str(), list_to_binary(Xs)).
-
-gen_any(MaxDepth) ->
-    oneof(largeint(),
-           gen_atom(),
-           gen_quoted_atom(),
-           nat(),
-           %real(),
-           binary(),
-           gen_bitstring(),
-           gen_pid(),
-           gen_port(),
-           gen_ref(),
-           gen_fun() ++
-           ?LAZY(list(gen_any(MaxDepth - 1))) || MaxDepth /= 0 ++
-           ?LAZY(gen_tuple(gen_any(MaxDepth - 1))) || MaxDepth /= 0).
-
-gen_iolist(0) ->
-    ;
-gen_iolist(Depth) ->
-    list(oneof(gen_char(), gen_print_str(), gen_print_bin(), gen_iolist(Depth-1))).
-
-gen_atom() ->
-    elements(abc, def, ghi).
-
-gen_quoted_atom() ->
-    elements('abc@bar', '@bar', '10gen').
-
-gen_bitstring() ->
-    ?LET(XS, binary(), <<XS/binary, 1:7>>).
-
-gen_tuple(Gen) ->
-    ?LET(Xs, list(Gen), list_to_tuple(Xs)). 
-
-gen_max_len() -> %% Generate length from 3 to whatever.  Needs space for ... in output
-    ?LET(Xs, int(), 3 + abs(Xs)).
-
-gen_pid() ->
-    ?LAZY(spawn(fun() -> ok end)).
-
-gen_port() ->
-    ?LAZY(begin
-              Port = erlang:open_port({spawn, "true"}, ),
-              catch(erlang:port_close(Port)),
-              Port
-          end).
-
-gen_ref() ->
-    ?LAZY(make_ref()).
-
-gen_fun() ->
-    ?LAZY(fun() -> ok end).
-
-gen_char() ->
-    oneof(lists:seq($A, $z)).
-               
-%%====================================================================
-%% Property
-%%====================================================================
-    
-%% Checks that trunc_io:format produces output less than or equal to MaxLen
-prop_format() ->
-    ?FORALL({FmtArgs, MaxLen}, {gen_fmt_args(), gen_max_len()},
-            begin
-                %% Because trunc_io will print '...' when its running out of
-                %% space, even if the remaining space is less than 3, it
-                %% doesn't *exactly* stick to the specified limit.
-
-                %% Also, since we don't truncate terms not printed with
-                %% ~p/~P/~w/~W/~s, we also need to calculate the wiggle room
-                %% for those. Hence the fudge factor calculated below.
-                FudgeLen = calculate_fudge(FmtArgs, 50),
-                {FmtStr, Args} = build_fmt_args(FmtArgs),
-                try
-                    Str = lists:flatten(lager_trunc_io:format(FmtStr, Args, MaxLen)),
-                    ?WHENFAIL(begin
-                                  io:format(user, "FmtStr:   ~p\n", FmtStr),
-                                  io:format(user, "Args:     ~p\n", Args),
-                                  io:format(user, "FudgeLen: ~p\n", FudgeLen),
-                                  io:format(user, "MaxLen:   ~p\n", MaxLen),
-                                  io:format(user, "ActLen:   ~p\n", length(Str)),
-                                  io:format(user, "Str:      ~p\n", Str)
-                              end,
-                              %% Make sure the result is a printable list
-                              %% and if the format string is less than the length, 
-                              %% the result string is less than the length.
-                              conjunction({printable, Str == "" orelse 
-                                                       io_lib:printable_list(Str)},
-                                           {length, length(FmtStr) > MaxLen orelse 
-                                                    length(Str) =< MaxLen + FudgeLen}))
-                catch
-                    _:Err ->
-                        io:format(user, "\nException: ~p\n", Err),
-                        io:format(user, "FmtStr: ~p\n", FmtStr),
-                        io:format(user, "Args:   ~p\n", Args),
-                        false
-                end
-            end).
-
-%% Checks for equivalent formatting to io_lib
-prop_equivalence() ->
-    ?FORALL(FmtArgs, gen_fmt_args(),
-            begin
-            {FmtStr, Args} = build_fmt_args(FmtArgs),
-            Expected = lists:flatten(io_lib:format(FmtStr, Args)),
-            Actual = lists:flatten(lager_trunc_io:format(FmtStr, Args, 10485760)),
-            ?WHENFAIL(begin
-                io:format(user, "FmtStr:   ~p\n", FmtStr),
-                io:format(user, "Args:     ~p\n", Args),
-                io:format(user, "Expected: ~p\n", Expected),
-                io:format(user, "Actual:   ~p\n", Actual)
-            end,
-                      Expected == Actual)
-        end).
-
-
-%%====================================================================
-%% Internal helpers 
-%%====================================================================
-
-%% Build a tuple of {Fmt, Args} from a gen_fmt_args() return
-build_fmt_args(FmtArgs) ->
-    F = fun({Fmt, Arg}, {FmtStr0, Args0}) ->
-                {FmtStr0 ++ Fmt, Args0 ++ Arg};
-           ({Fmt, Arg1, Arg2}, {FmtStr0, Args0}) ->
-                {FmtStr0 ++ Fmt, Args0 ++ Arg1, Arg2};
-           (Str, {FmtStr0, Args0}) ->
-                {FmtStr0 ++ Str, Args0}
-        end,
-    lists:foldl(F, {"", }, FmtArgs).
-
-calculate_fudge(, Acc) ->
-    Acc;
-calculate_fudge({"~62P", _Arg, _Depth}|T, Acc) ->
-    calculate_fudge(T, Acc+62);
-calculate_fudge({Fmt, Arg}|T, Acc) when
-        Fmt == "~f"; Fmt == "~10.f";
-        Fmt == "~g"; Fmt == "~10.g";
-        Fmt == "~e"; Fmt == "~10.e";
-        Fmt == "~x"; Fmt == "~X";
-        Fmt == "~B"; Fmt == "~b"; Fmt == "~36B";
-        Fmt == "~.10#"; Fmt == "~10+" ->
-    calculate_fudge(T, Acc + length(lists:flatten(io_lib:format(Fmt, Arg))));
-calculate_fudge(_|T, Acc) ->
-    calculate_fudge(T, Acc).
-
--endif. % (EQC).
--endif. % (TEST).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/test/zzzz_gh280_crash.erl Deleted

@@ -1,35 +0,0 @@
-%% @doc This test is named zzzz_gh280_crash because it has to be run first and tests are run in 
-%% reverse alphabetical order.
-%%
-%% The problem we are attempting to detect here is when log_mf_h is installed as a handler for error_logger
-%% and lager starts up to replace the current handlers with its own.  This causes a start up crash because
-%% OTP error logging modules do not have any notion of a lager-style log level.
--module(zzzz_gh280_crash).
-
--include_lib("eunit/include/eunit.hrl").
-
-gh280_crash_test() ->
-    {timeout, 30, fun() -> gh280_impl() end}.
-
-gh280_impl() ->
-    application:stop(lager),
-    application:stop(goldrush),
-
-    error_logger:tty(false),
-    %% see https://github.com/erlang/otp/blob/maint/lib/stdlib/src/log_mf_h.erl#L81
-    %% for an explanation of the init arguments to log_mf_h
-    ok = gen_event:add_sup_handler(error_logger, log_mf_h, log_mf_h:init("/tmp", 10000, 5)),
-    lager:start(),
-    Result = receive
-        {gen_event_EXIT,log_mf_h,normal} -> 
-            true;
-        {gen_event_EXIT,Handler,Reason} ->
-            {Handler,Reason};
-        X -> 
-            X
-    after 10000 ->
-        timeout
-    end,
-    ?assert(Result),
-    application:stop(lager),
-    application:stop(goldrush).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/lager/tools.mk Deleted

@@ -1,149 +0,0 @@
-#  -------------------------------------------------------------------
-#
-#  Copyright (c) 2014 Basho Technologies, Inc.
-#
-#  This file is provided to you under the Apache License,
-#  Version 2.0 (the "License"); you may not use this file
-#  except in compliance with the License.  You may obtain
-#  a copy of the License at
-#
-#    http://www.apache.org/licenses/LICENSE-2.0
-#
-#  Unless required by applicable law or agreed to in writing,
-#  software distributed under the License is distributed on an
-#  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-#  KIND, either express or implied.  See the License for the
-#  specific language governing permissions and limitations
-#  under the License.
-#
-#  -------------------------------------------------------------------
-
-#  -------------------------------------------------------------------
-#  NOTE: This file is is from https://github.com/basho/tools.mk.
-#  It should not be edited in a project. It should simply be updated
-#  wholesale when a new version of tools.mk is released.
-#  -------------------------------------------------------------------
-
-REBAR ?= ./rebar
-REVISION ?= $(shell git rev-parse --short HEAD)
-PROJECT ?= $(shell basename `find src -name "*.app.src"` .app.src)
-
-.PHONY: compile-no-deps test docs xref dialyzer-run dialyzer-quick dialyzer \
-		cleanplt upload-docs
-
-compile-no-deps:
-	${REBAR} compile skip_deps=true
-
-test: compile
-	${REBAR} eunit skip_deps=true
-
-upload-docs: docs
-	@if  -z "${BUCKET}" -o -z "${PROJECT}" -o -z "${REVISION}" ; then \
-		echo "Set BUCKET, PROJECT, and REVISION env vars to upload docs"; \
-	        exit 1; fi
-	@cd doc; s3cmd put -P * "s3://${BUCKET}/${PROJECT}/${REVISION}/" > /dev/null
-	@echo "Docs built at: http://${BUCKET}.s3-website-us-east-1.amazonaws.com/${PROJECT}/${REVISION}"
-
-docs:
-	${REBAR} doc skip_deps=true
-
-xref: compile
-	${REBAR} xref skip_deps=true
-
-PLT ?= $(HOME)/.combo_dialyzer_plt
-LOCAL_PLT = .local_dialyzer_plt
-DIALYZER_FLAGS ?= -Wunmatched_returns
-
-${PLT}: compile
-	@if  -f $(PLT) ; then \
-		dialyzer --check_plt --plt $(PLT) --apps $(DIALYZER_APPS) && \
-		dialyzer --add_to_plt --plt $(PLT) --output_plt $(PLT) --apps $(DIALYZER_APPS) ; test $$? -ne 1; \
-	else \
-		dialyzer --build_plt --output_plt $(PLT) --apps $(DIALYZER_APPS); test $$? -ne 1; \
-	fi
-
-${LOCAL_PLT}: compile
-	@if  -d deps ; then \
-		if  -f $(LOCAL_PLT) ; then \
-			dialyzer --check_plt --plt $(LOCAL_PLT) deps/*/ebin  && \
-			dialyzer --add_to_plt --plt $(LOCAL_PLT) --output_plt $(LOCAL_PLT) deps/*/ebin ; test $$? -ne 1; \
-		else \
-			dialyzer --build_plt --output_plt $(LOCAL_PLT) deps/*/ebin ; test $$? -ne 1; \
-		fi \
-	fi
-
-dialyzer-run:
-	@echo "==> $(shell basename $(shell pwd)) (dialyzer)"
-# The bulk of the code below deals with the dialyzer.ignore-warnings file
-# which contains strings to ignore if output by dialyzer.
-# Typically the strings include line numbers. Using them exactly is hard
-# to maintain as the code changes. This approach instead ignores the line
-# numbers, but takes into account the number of times a string is listed
-# for a given file. So if one string is listed once, for example, and it
-# appears twice in the warnings, the user is alerted. It is possible but
-# unlikely that this approach could mask a warning if one ignored warning
-# is removed and two warnings of the same kind appear in the file, for
-# example. But it is a trade-off that seems worth it.
-# Details of the cryptic commands:
-#   - Remove line numbers from dialyzer.ignore-warnings
-#   - Pre-pend duplicate count to each warning with sort | uniq -c
-#   - Remove annoying white space around duplicate count
-#   - Save in dialyer.ignore-warnings.tmp
-#   - Do the same to dialyzer_warnings
-#   - Remove matches from dialyzer.ignore-warnings.tmp from output
-#   - Remove duplicate count
-#   - Escape regex special chars to use lines as regex patterns
-#   - Add pattern to match any line number (file.erl:\d+:)
-#   - Anchor to match the entire line (^entire line$)
-#   - Save in dialyzer_unhandled_warnings
-#   - Output matches for those patterns found in the original warnings
-	@if  -f $(LOCAL_PLT) ; then \
-		PLTS="$(PLT) $(LOCAL_PLT)"; \
-	else \
-		PLTS=$(PLT); \
-	fi; \
-	if  -f dialyzer.ignore-warnings ; then \
-		if  $$(grep -cvE '^:space:' dialyzer.ignore-warnings) -ne 0 ; then \
-			echo "ERROR: dialyzer.ignore-warnings contains a blank/empty line, this will match all messages!"; \
-			exit 1; \
-		fi; \
-		dialyzer $(DIALYZER_FLAGS) --plts $${PLTS} -c ebin > dialyzer_warnings ; \
-		cat dialyzer.ignore-warnings \
-		| sed -E 's/^(^:+:)^:+:/\1/' \
-		| sort \
-		| uniq -c \
-		| sed -E '/.*\.erl: /!s/^:space:*0-9+:space:*//' \
-		> dialyzer.ignore-warnings.tmp ; \
-		egrep -v "^:space:*(done|Checking|Proceeding|Compiling)" dialyzer_warnings \
-		| sed -E 's/^(^:+:)^:+:/\1/' \
-		| sort \
-		| uniq -c \
-		| sed -E '/.*\.erl: /!s/^:space:*0-9+:space:*//' \
-		| grep -F -f dialyzer.ignore-warnings.tmp -v \
-		| sed -E 's/^:space:*0-9+:space:*//' \
-		| sed -E 's/(\^:+?|()*.$${}\)/\\\1/g' \
-		| sed -E 's/(\\\.erl\\\:)/\1\\d+:/g' \
-		| sed -E 's/^(.*)$$/^\1$$/g' \
-		> dialyzer_unhandled_warnings ; \
-		rm dialyzer.ignore-warnings.tmp; \
-		if  $$(cat dialyzer_unhandled_warnings | wc -l) -gt 0 ; then \
-		    egrep -f dialyzer_unhandled_warnings dialyzer_warnings ; \
-			found_warnings=1; \
-	    fi; \
-		 "$$found_warnings" != 1  ; \
-	else \
-		dialyzer $(DIALYZER_FLAGS) --plts $${PLTS} -c ebin; \
-	fi
-
-dialyzer-quick: compile-no-deps dialyzer-run
-
-dialyzer: ${PLT} ${LOCAL_PLT} dialyzer-run
-
-cleanplt:
-	@echo
-	@echo "Are you sure?  It takes several minutes to re-build."
-	@echo Deleting $(PLT) and $(LOCAL_PLT) in 5 seconds.
-	@echo
-	sleep 5
-	rm $(PLT)
-	rm $(LOCAL_PLT)

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_gsup Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_gsup/LICENSE Deleted

@@ -1,373 +0,0 @@
-Mozilla Public License Version 2.0
-==================================
-
-1. Definitions
---------------
-
-1.1. "Contributor"
-    means each individual or legal entity that creates, contributes to
-    the creation of, or owns Covered Software.
-
-1.2. "Contributor Version"
-    means the combination of the Contributions of others (if any) used
-    by a Contributor and that particular Contributor's Contribution.
-
-1.3. "Contribution"
-    means Covered Software of a particular Contributor.
-
-1.4. "Covered Software"
-    means Source Code Form to which the initial Contributor has attached
-    the notice in Exhibit A, the Executable Form of such Source Code
-    Form, and Modifications of such Source Code Form, in each case
-    including portions thereof.
-
-1.5. "Incompatible With Secondary Licenses"
-    means
-
-    (a) that the initial Contributor has attached the notice described
-        in Exhibit B to the Covered Software; or
-
-    (b) that the Covered Software was made available under the terms of
-        version 1.1 or earlier of the License, but not also under the
-        terms of a Secondary License.
-
-1.6. "Executable Form"
-    means any form of the work other than Source Code Form.
-
-1.7. "Larger Work"
-    means a work that combines Covered Software with other material, in 
-    a separate file or files, that is not Covered Software.
-
-1.8. "License"
-    means this document.
-
-1.9. "Licensable"
-    means having the right to grant, to the maximum extent possible,
-    whether at the time of the initial grant or subsequently, any and
-    all of the rights conveyed by this License.
-
-1.10. "Modifications"
-    means any of the following:
-
-    (a) any file in Source Code Form that results from an addition to,
-        deletion from, or modification of the contents of Covered
-        Software; or
-
-    (b) any new file in Source Code Form that contains any Covered
-        Software.
-
-1.11. "Patent Claims" of a Contributor
-    means any patent claim(s), including without limitation, method,
-    process, and apparatus claims, in any patent Licensable by such
-    Contributor that would be infringed, but for the grant of the
-    License, by the making, using, selling, offering for sale, having
-    made, import, or transfer of either its Contributions or its
-    Contributor Version.
-
-1.12. "Secondary License"
-    means either the GNU General Public License, Version 2.0, the GNU
-    Lesser General Public License, Version 2.1, the GNU Affero General
-    Public License, Version 3.0, or any later versions of those
-    licenses.
-
-1.13. "Source Code Form"
-    means the form of the work preferred for making modifications.
-
-1.14. "You" (or "Your")
-    means an individual or a legal entity exercising rights under this
-    License. For legal entities, "You" includes any entity that
-    controls, is controlled by, or is under common control with You. For
-    purposes of this definition, "control" means (a) the power, direct
-    or indirect, to cause the direction or management of such entity,
-    whether by contract or otherwise, or (b) ownership of more than
-    fifty percent (50%) of the outstanding shares or beneficial
-    ownership of such entity.
-
-2. License Grants and Conditions
---------------------------------
-
-2.1. Grants
-
-Each Contributor hereby grants You a world-wide, royalty-free,
-non-exclusive license:
-
-(a) under intellectual property rights (other than patent or trademark)
-    Licensable by such Contributor to use, reproduce, make available,
-    modify, display, perform, distribute, and otherwise exploit its
-    Contributions, either on an unmodified basis, with Modifications, or
-    as part of a Larger Work; and
-
-(b) under Patent Claims of such Contributor to make, use, sell, offer
-    for sale, have made, import, and otherwise transfer either its
-    Contributions or its Contributor Version.
-
-2.2. Effective Date
-
-The licenses granted in Section 2.1 with respect to any Contribution
-become effective for each Contribution on the date the Contributor first
-distributes such Contribution.
-
-2.3. Limitations on Grant Scope
-
-The licenses granted in this Section 2 are the only rights granted under
-this License. No additional rights or licenses will be implied from the
-distribution or licensing of Covered Software under this License.
-Notwithstanding Section 2.1(b) above, no patent license is granted by a
-Contributor:
-
-(a) for any code that a Contributor has removed from Covered Software;
-    or
-
-(b) for infringements caused by: (i) Your and any other third party's
-    modifications of Covered Software, or (ii) the combination of its
-    Contributions with other software (except as part of its Contributor
-    Version); or
-
-(c) under Patent Claims infringed by Covered Software in the absence of
-    its Contributions.
-
-This License does not grant any rights in the trademarks, service marks,
-or logos of any Contributor (except as may be necessary to comply with
-the notice requirements in Section 3.4).
-
-2.4. Subsequent Licenses
-
-No Contributor makes additional grants as a result of Your choice to
-distribute the Covered Software under a subsequent version of this
-License (see Section 10.2) or under the terms of a Secondary License (if
-permitted under the terms of Section 3.3).
-
-2.5. Representation
-
-Each Contributor represents that the Contributor believes its
-Contributions are its original creation(s) or it has sufficient rights
-to grant the rights to its Contributions conveyed by this License.
-
-2.6. Fair Use
-
-This License is not intended to limit any rights You have under
-applicable copyright doctrines of fair use, fair dealing, or other
-equivalents.
-
-2.7. Conditions
-
-Sections 3.1, 3.2, 3.3, and 3.4 are conditions of the licenses granted
-in Section 2.1.
-
-3. Responsibilities
--------------------
-
-3.1. Distribution of Source Form
-
-All distribution of Covered Software in Source Code Form, including any
-Modifications that You create or to which You contribute, must be under
-the terms of this License. You must inform recipients that the Source
-Code Form of the Covered Software is governed by the terms of this
-License, and how they can obtain a copy of this License. You may not
-attempt to alter or restrict the recipients' rights in the Source Code
-Form.
-
-3.2. Distribution of Executable Form
-
-If You distribute Covered Software in Executable Form then:
-
-(a) such Covered Software must also be made available in Source Code
-    Form, as described in Section 3.1, and You must inform recipients of
-    the Executable Form how they can obtain a copy of such Source Code
-    Form by reasonable means in a timely manner, at a charge no more
-    than the cost of distribution to the recipient; and
-
-(b) You may distribute such Executable Form under the terms of this
-    License, or sublicense it under different terms, provided that the
-    license for the Executable Form does not attempt to limit or alter
-    the recipients' rights in the Source Code Form under this License.
-
-3.3. Distribution of a Larger Work
-
-You may create and distribute a Larger Work under terms of Your choice,
-provided that You also comply with the requirements of this License for
-the Covered Software. If the Larger Work is a combination of Covered
-Software with a work governed by one or more Secondary Licenses, and the
-Covered Software is not Incompatible With Secondary Licenses, this
-License permits You to additionally distribute such Covered Software
-under the terms of such Secondary License(s), so that the recipient of
-the Larger Work may, at their option, further distribute the Covered
-Software under the terms of either this License or such Secondary
-License(s).
-
-3.4. Notices
-
-You may not remove or alter the substance of any license notices
-(including copyright notices, patent notices, disclaimers of warranty,
-or limitations of liability) contained within the Source Code Form of
-the Covered Software, except that You may alter any license notices to
-the extent required to remedy known factual inaccuracies.
-
-3.5. Application of Additional Terms
-
-You may choose to offer, and to charge a fee for, warranty, support,
-indemnity or liability obligations to one or more recipients of Covered
-Software. However, You may do so only on Your own behalf, and not on
-behalf of any Contributor. You must make it absolutely clear that any
-such warranty, support, indemnity, or liability obligation is offered by
-You alone, and You hereby agree to indemnify every Contributor for any
-liability incurred by such Contributor as a result of warranty, support,
-indemnity or liability terms You offer. You may include additional
-disclaimers of warranty and limitations of liability specific to any
-jurisdiction.
-
-4. Inability to Comply Due to Statute or Regulation
----------------------------------------------------
-
-If it is impossible for You to comply with any of the terms of this
-License with respect to some or all of the Covered Software due to
-statute, judicial order, or regulation then You must: (a) comply with
-the terms of this License to the maximum extent possible; and (b)
-describe the limitations and the code they affect. Such description must
-be placed in a text file included with all distributions of the Covered
-Software under this License. Except to the extent prohibited by statute
-or regulation, such description must be sufficiently detailed for a
-recipient of ordinary skill to be able to understand it.
-
-5. Termination
---------------
-
-5.1. The rights granted under this License will terminate automatically
-if You fail to comply with any of its terms. However, if You become
-compliant, then the rights granted under this License from a particular
-Contributor are reinstated (a) provisionally, unless and until such
-Contributor explicitly and finally terminates Your grants, and (b) on an
-ongoing basis, if such Contributor fails to notify You of the
-non-compliance by some reasonable means prior to 60 days after You have
-come back into compliance. Moreover, Your grants from a particular
-Contributor are reinstated on an ongoing basis if such Contributor
-notifies You of the non-compliance by some reasonable means, this is the
-first time You have received notice of non-compliance with this License
-from such Contributor, and You become compliant prior to 30 days after
-Your receipt of the notice.
-
-5.2. If You initiate litigation against any entity by asserting a patent
-infringement claim (excluding declaratory judgment actions,
-counter-claims, and cross-claims) alleging that a Contributor Version
-directly or indirectly infringes any patent, then the rights granted to
-You by any and all Contributors for the Covered Software under Section
-2.1 of this License shall terminate.
-
-5.3. In the event of termination under Sections 5.1 or 5.2 above, all
-end user license agreements (excluding distributors and resellers) which
-have been validly granted by You or Your distributors under this License
-prior to termination shall survive termination.
-
-************************************************************************
-*                                                                      *
-*  6. Disclaimer of Warranty                                           *
-*  -------------------------                                           *
-*                                                                      *
-*  Covered Software is provided under this License on an "as is"       *
-*  basis, without warranty of any kind, either expressed, implied, or  *
-*  statutory, including, without limitation, warranties that the       *
-*  Covered Software is free of defects, merchantable, fit for a        *
-*  particular purpose or non-infringing. The entire risk as to the     *
-*  quality and performance of the Covered Software is with You.        *
-*  Should any Covered Software prove defective in any respect, You     *
-*  (not any Contributor) assume the cost of any necessary servicing,   *
-*  repair, or correction. This disclaimer of warranty constitutes an   *
-*  essential part of this License. No use of any Covered Software is   *
-*  authorized under this License except under this disclaimer.         *
-*                                                                      *
-************************************************************************
-
-************************************************************************
-*                                                                      *
-*  7. Limitation of Liability                                          *
-*  --------------------------                                          *
-*                                                                      *
-*  Under no circumstances and under no legal theory, whether tort      *
-*  (including negligence), contract, or otherwise, shall any           *
-*  Contributor, or anyone who distributes Covered Software as          *
-*  permitted above, be liable to You for any direct, indirect,         *
-*  special, incidental, or consequential damages of any character      *
-*  including, without limitation, damages for lost profits, loss of    *
-*  goodwill, work stoppage, computer failure or malfunction, or any    *
-*  and all other commercial damages or losses, even if such party      *
-*  shall have been informed of the possibility of such damages. This   *
-*  limitation of liability shall not apply to liability for death or   *
-*  personal injury resulting from such party's negligence to the       *
-*  extent applicable law prohibits such limitation. Some               *
-*  jurisdictions do not allow the exclusion or limitation of           *
-*  incidental or consequential damages, so this exclusion and          *
-*  limitation may not apply to You.                                    *
-*                                                                      *
-************************************************************************
-
-8. Litigation
--------------
-
-Any litigation relating to this License may be brought only in the
-courts of a jurisdiction where the defendant maintains its principal
-place of business and such litigation shall be governed by laws of that
-jurisdiction, without reference to its conflict-of-law provisions.
-Nothing in this Section shall prevent a party's ability to bring
-cross-claims or counter-claims.
-
-9. Miscellaneous
-----------------
-
-This License represents the complete agreement concerning the subject
-matter hereof. If any provision of this License is held to be
-unenforceable, such provision shall be reformed only to the extent
-necessary to make it enforceable. Any law or regulation which provides
-that the language of a contract shall be construed against the drafter
-shall not be used to construe this License against a Contributor.
-
-10. Versions of the License
----------------------------
-
-10.1. New Versions
-
-Mozilla Foundation is the license steward. Except as provided in Section
-10.3, no one other than the license steward has the right to modify or
-publish new versions of this License. Each version will be given a
-distinguishing version number.
-
-10.2. Effect of New Versions
-
-You may distribute the Covered Software under the terms of the version
-of the License under which You originally received the Covered Software,
-or under the terms of any subsequent version published by the license
-steward.
-
-10.3. Modified Versions
-
-If you create software not governed by this License, and you want to
-create a new license for such software, you may create and use a
-modified version of this License if you rename the license and remove
-any references to the name of the license steward (except to note that
-such modified license differs from this License).
-
-10.4. Distributing Source Code Form that is Incompatible With Secondary
-Licenses
-
-If You choose to distribute Source Code Form that is Incompatible With
-Secondary Licenses under the terms of this version of the License, the
-notice described in Exhibit B of this License must be attached.
-
-Exhibit A - Source Code Form License Notice
--------------------------------------------
-
-  This Source Code Form is subject to the terms of the Mozilla Public
-  License, v. 2.0. If a copy of the MPL was not distributed with this
-  file, You can obtain one at http://mozilla.org/MPL/2.0/.
-
-If it is not possible or desirable to put the notice in a particular
-file, then You may include the notice in a location (such as a LICENSE
-file in a relevant directory) where a recipient would be likely to look
-for such a notice.
-
-You may add additional accurate notices of copyright ownership.
-
-Exhibit B - "Incompatible With Secondary Licenses" Notice
----------------------------------------------------------
-
-  This Source Code Form is "Incompatible With Secondary Licenses", as
-  defined by the Mozilla Public License, v. 2.0.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_gsup/README Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_gsup/contrib Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_gsup/contrib/jenkins.sh Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_gsup/include Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_gsup/include/gsup_protocol.hrl Deleted

@@ -1,230 +0,0 @@
-% This Source Code Form is subject to the terms of the Mozilla Public
-% License, v. 2.0. If a copy of the MPL was not distributed with this
-% file, You can obtain one at https://mozilla.org/MPL/2.0/.
-% (C) 2019 Andrey Velikiy <agreat22@gmail.com>
-% (C) 2019 Fairwaves (edited) 
-% (C) 2019 Harald Welte <laforge@gnumonks.org>
-
--ifndef(GSUP_PROTOCOL).
--define(GSUP_PROTOCOL, true).
-
--type 'GSUPMessageType'() :: location_upd_req
-                  | location_upd_err
-                  | location_upd_res
-                  | send_auth_info_req
-                  | send_auth_info_err
-                  | send_auth_info_res
-                  | auth_failure_report
-                  | purge_ms_req
-                  | purge_ms_err
-                  | purge_ms_res
-                  | insert_sub_data_req
-                  | insert_sub_data_err
-                  | insert_sub_data_res
-                  | delete_sub_data_req
-                  | delete_sub_data_err
-                  | delete_sub_data_res
-                  | location_cancellation_req
-                  | location_cancellation_err
-                  | location_cancellation_res
-                  | ss_req
-                  | ss_err
-                  | ss_res
-                  | mo_forward_sm_req
-                  | mo_forward_sm_err
-                  | mo_forward_sm_res
-                  | mt_forward_sm_req
-                  | mt_forward_sm_err
-                  | mt_forward_sm_res
-                  | ready_for_sm_req
-                  | ready_for_sm_err
-                  | ready_for_sm_res
-                  | check_imei_req
-                  | check_imei_err
-                  | check_imei_res
-                  | e_prepare_handover_req
-                  | e_prepare_handover_err
-                  | e_prepare_handover_res
-                  | e_prepare_subseq_handover_req
-                  | e_prepare_subseq_handover_err
-                  | e_prepare_subseq_handover_res
-                  | e_send_end_signal_req
-                  | e_send_end_signal_err
-                  | e_send_end_signal_res
-                  | e_process_access_signalling_req
-                  | e_forward_access_signalling_req
-                  | e_close
-                  | e_abort
-                  | e_routing_err.
-
--type 'GSUPRatType'() :: rat_unknown | rat_geran_a | rat_utran_iu | rat_eutran_sgs.
-
--type 'GSUPAuthTuple'() :: #{
-  rand := binary(),
-  sres := binary(),
-  kc := binary(),
-  ik => binary(),
-  ck => binary(),
-  autn => binary(),
-  res => binary()
-}.
-
--type 'GSUPPdpInfo'() :: #{
-  pdp_context_id => integer(),
-  pdp_type => integer(),
-  access_point_name => binary(),
-  quality_of_service => binary(),
-  pdp_charging => integer()
-}.
-
--type 'GSUPMessage'() :: #{
-  message_type := 'GSUPMessageType'(),
-  imsi := binary(),
-  cause => integer(),
-  auth_tuples => 'GSUPAuthTuple'(),
-  pdp_info_complete => true,
-  pdp_info_list => 'GSUPPdpInfo'(),
-  cancellation_type => integer(),
-  freeze_p_tmsi => true,  
-  msisdn => binary(),
-  hlr_number => binary(),
-  pdp_context_id => integer(),
-  pdp_charging => integer(),
-  rand => binary(),
-  auts => binary(),
-  cn_domain => integer(),
-  supported_rat_types => 'GSUPRatType'(),
-  current_rat_type => 'GSUPRatType'(),
-  session_id => integer(),
-  session_state => integer(),
-  ss_info => binary(),
-  sm_rp_mr => integer(),
-  sm_rp_da => binary(),
-  sm_rp_oa => binary(),
-  sm_rp_ui => binary(),
-  sm_rp_cause => integer(),
-  sm_rp_mms => integer(),
-  sm_alert_reason => integer(),
-  imei => binary(),
-  imei_check_result => integer(),
-  num_vectors_req => integer(),
-  message_class => integer(),
-  source_name => binary(),
-  destination_name => binary(),
-  an_apdu => binary(),
-  rr_cause => integer(),
-  session_management_cause => integer(),
-  bssap_cause => integer()
-}.
-
--define(SESSION_STATE_BEGIN, 1).
--define(SESSION_STATE_CONTINUE, 2).
--define(SESSION_STATE_END, 3).
-
--define(IMSI, 16#01).
--define(CAUSE, 16#02).
--define(AUTH_TUPLE, 16#03).
--define(PDP_INFO_COMPLETE, 16#04).
--define(PDP_INFO, 16#05).
--define(CANCELLATION_TYPE, 16#06).
--define(FREEZE_P_TMSI, 16#07).
--define(MSISDN, 16#08).
--define(HLR_NUMBER, 16#09).
--define(MESSAGE_CLASS, 16#0a).
--define(PDP_CONTEXT_ID, 16#10).
--define(PDP_TYPE, 16#11).
--define(ACCESS_POINT_NAME, 16#12).
--define(QUALITY_OF_SERVICE, 16#13).
--define(PDP_CHARGING, 16#14).
--define(RAND, 16#20).
--define(SRES, 16#21).
--define(KC, 16#22).
--define(IK, 16#23).
--define(CK, 16#24).
--define(AUTN, 16#25).
--define(AUTS, 16#26).
--define(RES, 16#27).
--define(CN_DOMAIN, 16#28).
--define(SUPPORTED_RAT_TYPES, 16#29).
--define(CURRENT_RAT_TYPE, 16#2a).
--define(SESSION_ID, 16#30).
--define(SESSION_STATE, 16#31).
--define(SS_INFO, 16#35).
--define(SM_RP_MR, 16#40).
--define(SM_RP_DA, 16#41).
--define(SM_RP_OA, 16#42).
--define(SM_RP_UI, 16#43).
--define(SM_RP_CAUSE, 16#44).
--define(SM_RP_MMS, 16#45).
--define(SM_ALERT_REASON, 16#46).
--define(IMEI, 16#50).
--define(IMEI_CHECK_RESULT, 16#51).
--define(NUM_VECTORS_REQ, 16#52).
--define(SOURCE_NAME, 16#60).
--define(DESTINATION_NAME, 16#61).
--define(AN_APDU, 16#62).
--define(RR_CAUSE, 16#63).
--define(BSSAP_CAUSE, 16#64).
--define(SESSION_MANAGEMENT_CAUSE, 16#65).
-
--define(MANDATORY_DEFAULT, imsi, message_type).
-
--define(OPTIONAL_DEFAULT, message_class, source_name, destination_name).
-
--define (GSUP_MESSAGES(), #{
-  16#04 => #{message_type => location_upd_req, mandatory => , optional => cn_domain},
-  16#05 => #{message_type => location_upd_err, mandatory => cause},
-  16#06 => #{message_type => location_upd_res, mandatory => , optional => msisdn, hlr_number, pdp_info_complete, pdp_info_list, pdp_charging},
-  16#08 => #{message_type => send_auth_info_req, mandatory => , optional => cn_domain, auts, rand, supported_rat_types, current_rat_type, num_vectors_req},
-  16#09 => #{message_type => send_auth_info_err, mandatory => cause},
-  16#0a => #{message_type => send_auth_info_res, mandatory => , optional => auth_tuples, auts, rand},
-  16#0b => #{message_type => auth_failure_report, mandatory => , optional => cn_domain},
-  16#0c => #{message_type => purge_ms_req, mandatory => , optional => cn_domain, hlr_number},
-  16#0d => #{message_type => purge_ms_err, mandatory => cause},
-  16#0e => #{message_type => purge_ms_res, mandatory => freeze_p_tmsi},
-  16#10 => #{message_type => insert_sub_data_req, mandatory => , optional => cn_domain, msisdn, hlr_number, pdp_info_complete, pdp_info_list, pdp_charging},
-  16#11 => #{message_type => insert_sub_data_err, mandatory => cause},
-  16#12 => #{message_type => insert_sub_data_res, mandatory => },
-  16#14 => #{message_type => delete_sub_data_req, mandatory => , optional => cn_domain, pdp_context_id},
-  16#15 => #{message_type => delete_sub_data_err, mandatory => cause},
-  16#16 => #{message_type => delete_sub_data_res, mandatory => },
-  16#1c => #{message_type => location_cancellation_req, mandatory => , optional => cn_domain, cancellation_type},
-  16#1d => #{message_type => location_cancellation_err, mandatory => cause},
-  16#1e => #{message_type => location_cancellation_res, mandatory => , optional => cn_domain},
-  16#20 => #{message_type => ss_req, mandatory => session_id, session_state, optional => ss_info},
-  16#21 => #{message_type => ss_err, mandatory => session_id, session_state, cause},
-  16#22 => #{message_type => ss_res, mandatory => session_id, session_state, optional => ss_info},
-  16#24 => #{message_type => mo_forward_sm_req, mandatory => sm_rp_mr, sm_rp_da, sm_rp_oa, sm_rp_ui},
-  16#25 => #{message_type => mo_forward_sm_err, mandatory => sm_rp_mr, sm_rp_cause, optional => sm_rp_ui},
-  16#26 => #{message_type => mo_forward_sm_res, mandatory => sm_rp_mr, optional => sm_rp_ui},
-  16#28 => #{message_type => mt_forward_sm_req, mandatory => sm_rp_mr, sm_rp_da, sm_rp_oa, sm_rp_ui, optional => sm_rp_mms},
-  16#29 => #{message_type => mt_forward_sm_err, mandatory => sm_rp_mr, sm_rp_cause, optional => sm_rp_ui},
-  16#2a => #{message_type => mt_forward_sm_res, mandatory => sm_rp_mr, optional => sm_rp_ui},
-  16#2c => #{message_type => ready_for_sm_req, mandatory => sm_rp_mr, sm_alert_reason},
-  16#2d => #{message_type => ready_for_sm_err, mandatory => sm_rp_mr, sm_rp_cause, optional => sm_rp_ui},
-  16#2e => #{message_type => ready_for_sm_res, mandatory => sm_rp_mr},
-  16#30 => #{message_type => check_imei_req, mandatory => imei},
-  16#31 => #{message_type => check_imei_err, mandatory => cause},
-  16#32 => #{message_type => check_imei_res, mandatory => imei_check_result},
-  16#34 => #{message_type => e_prepare_handover_req, mandatory => message_class, source_name, destination_name, an_apdu, session_id, session_state},
-  16#35 => #{message_type => e_prepare_handover_err, mandatory => message_class, source_name, destination_name, an_apdu, session_id, session_state, bssap_cause},
-  16#36 => #{message_type => e_prepare_handover_res, mandatory => message_class, source_name, destination_name, an_apdu, session_id, session_state},
-  16#38 => #{message_type => e_prepare_subseq_handover_req, mandatory => message_class, source_name, destination_name, an_apdu, session_id, session_state},
-  16#39 => #{message_type => e_prepare_subseq_handover_err, mandatory => message_class, source_name, destination_name, an_apdu, session_id, session_state, bssap_cause},
-  16#3a => #{message_type => e_prepare_subseq_handover_res, mandatory => message_class, source_name, destination_name, an_apdu, session_id, session_state},
-  16#3c => #{message_type => e_send_end_signal_req, mandatory => message_class, source_name, destination_name, an_apdu, session_id, session_state},
-  16#3d => #{message_type => e_send_end_signal_err, mandatory => message_class, source_name, destination_name, an_apdu, session_id, session_state, bssap_cause},
-  16#3e => #{message_type => e_send_end_signal_res, mandatory => message_class, source_name, destination_name, an_apdu, session_id, session_state},
-  16#40 => #{message_type => e_process_access_signalling_req, mandatory => message_class, source_name, destination_name, an_apdu, session_id, session_state},
-  16#44 => #{message_type => e_forward_access_signalling_req, mandatory => message_class, source_name, destination_name, an_apdu, session_id, session_state},
-  16#47 => #{message_type => e_close, mandatory => message_class, source_name, destination_name, session_id, session_state},
-  16#4b => #{message_type => e_abort, mandatory => message_class, session_id, session_state, bssap_cause},
-  16#4e => #{message_type => e_routing_err, mandatory => message_class, source_name, destination_name, optional => session_id, session_state}
-}).
-
--define(AUTH_TUPLE_MANDATORY, rand, sres, kc).
--define(AUTH_TUPLE_OPTIONAL, ik, ck, autn, res).
--define(PDP_INFO_MANDATORY, ).
--define(PDP_INFO_OPTIONAL, pdp_context_id, pdp_type, access_point_name, quality_of_service, pdp_charging).
-
--endif.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_gsup/include/ipa.hrl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_gsup/rebar.config Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_gsup/rebar.lock Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_gsup/src Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_gsup/src/gsup_protocol.erl Deleted

@@ -1,628 +0,0 @@
-% This Source Code Form is subject to the terms of the Mozilla Public
-% License, v. 2.0. If a copy of the MPL was not distributed with this
-% file, You can obtain one at https://mozilla.org/MPL/2.0/.
-% (C) 2019 Andrey Velikiy <agreat22@gmail.com>
-% (C) 2019 Fairwaves (edited) 
-
--module(gsup_protocol).
-
--include ("gsup_protocol.hrl").
--include ("ipa.hrl").
-
--export(decode/1, encode/1, decode_bcd/1, encode_bcd/1).
--export_type('GSUPMessage'/0, 'GSUPMessageType'/0).
-
--define (CHECK_SIZE(IE, Len, Value),
-  Value >= 0 andalso Value < (1 bsl (Len * 8)) orelse error({ie_value_length_mismatch, IE, Value})
-  ).
-
--define (CHECK_LEN(IE, Len, Min, Max),
-  Len >= Min andalso Len =< Max orelse error({ie_length_mismatch, IE, Len})
-  ).
-
--ifdef (TEST).
--export (encode_ie/2, decode_ie/2).
--endif.
-
--spec decode(binary()) -> 'GSUPMessage'() | no_return().
-decode(<<MsgType, Tail/binary>>) ->
-  case ?GSUP_MESSAGES() of
-    #{MsgType := #{message_type := MsgTypeAtom, mandatory := Mandatory0}} ->
-      GSUPMessage = decode_ie(Tail, #{message_type => MsgTypeAtom}),
-      Mandatory = Mandatory0 ++ ?MANDATORY_DEFAULT,
-      case maps:size(maps:with(Mandatory, GSUPMessage)) == length(Mandatory) of
-        true -> GSUPMessage;
-        false -> error({mandatory_ie_missing, MsgTypeAtom, Mandatory -- maps:keys(GSUPMessage)})
-      end;
-    _ -> 
-      error({unknown_gsup_msg_type, MsgType})
-  end.
-
-decode_ie(<<>>, Map) -> Map;
-
-decode_ie(<<?IMSI, Len, IMSI:Len/binary, Tail/binary>>, Map) ->
-  ?CHECK_LEN(imsi, Len, 0, 8),
-  decode_ie(Tail, Map#{imsi => decode_bcd(IMSI, <<>>)});
-
-decode_ie(<<?CAUSE, Len, Cause:Len/unit:8, Tail/binary>>, Map) ->
-  ?CHECK_LEN(cause, Len, 1, 1),
-  decode_ie(Tail, Map#{cause => Cause});
-
-decode_ie(<<?AUTH_TUPLE, Len, AuthTuple0:Len/binary, Tail/binary>>, Map) ->
-  List = maps:get(auth_tuples, Map, ),
-  ?CHECK_LEN(auth_tuples, length(List) + 1, 1, 5),
-  AuthTuple = decode_auth_tuple(AuthTuple0, #{}),
-  check_auth_tuple(AuthTuple) orelse error({bad_auth_tuple, AuthTuple}),
-  decode_ie(Tail, Map#{auth_tuples => List ++ AuthTuple});
-
-decode_ie(<<?PDP_INFO_COMPLETE, Len, _:Len/binary, Tail/binary>>, Map) ->
-  ?CHECK_LEN(pdp_info_complete, Len, 0, 0),
-  decode_ie(Tail, Map#{pdp_info_complete => true});
-
-decode_ie(<<?PDP_INFO, Len, PDPInfo0:Len/binary, Tail/binary>>, Map) ->
-  List = maps:get(pdp_info_list, Map, ),
-  ?CHECK_LEN(pdp_info_list, length(List) + 1, 1, 10),
-  PDPInfo = decode_pdp_info(PDPInfo0, #{}),
-  check_pdp_info(PDPInfo) orelse error({bad_pdp_info, PDPInfo}),
-  decode_ie(Tail, Map#{pdp_info_list => List ++ PDPInfo});
-
-decode_ie(<<?CANCELLATION_TYPE, Len, CancellationType:Len/unit:8, Tail/binary>>, Map) ->
-  ?CHECK_LEN(cancellation_type, Len, 1, 1),
-  decode_ie(Tail, Map#{cancellation_type => CancellationType});
-
-decode_ie(<<?FREEZE_P_TMSI, Len, _:Len/binary, Tail/binary>>, Map) ->
-  ?CHECK_LEN(freeze_p_tmsi, Len, 0, 0),
-  decode_ie(Tail, Map#{freeze_p_tmsi => true});
-
-decode_ie(<<?MSISDN, Len, MSISDN:Len/binary, Tail/binary>>, Map) ->
-  ?CHECK_LEN(msisdn, Len, 0, 8),
-  decode_ie(Tail, Map#{msisdn => MSISDN});
-
-decode_ie(<<?HLR_NUMBER, Len, HLRNumber:Len/binary, Tail/binary>>, Map) ->
-  ?CHECK_LEN(hlr_number, Len, 0, 8),
-  decode_ie(Tail, Map#{hlr_number => HLRNumber});
-
-decode_ie(<<?MESSAGE_CLASS, Len, MessageClass:Len/unit:8, Tail/binary>>, Map) ->
-  ?CHECK_LEN(message_class, Len, 1, 1),
-  decode_ie(Tail, Map#{message_class => MessageClass});
-
-decode_ie(<<?PDP_CONTEXT_ID, Len, PDPContextId:Len/unit:8, Tail/binary>>, Map) ->
-  ?CHECK_LEN(pdp_context_id, Len, 1, 1),
-  List = maps:get(pdp_context_id, Map, ),
-  ?CHECK_LEN(pdp_context_id_list, length(List) + 1, 1, 10),
-  decode_ie(Tail, Map#{pdp_context_id => List ++ PDPContextId});
-
-decode_ie(<<?PDP_CHARGING, Len, PDPCharging:Len/unit:8, Tail/binary>>, Map) ->
-  ?CHECK_LEN(pdp_charging, Len, 2, 2),
-  decode_ie(Tail, Map#{pdp_charging => PDPCharging});
-
-decode_ie(<<?RAND, Len, Rand:Len/binary, Tail/binary>>, Map) ->
-  ?CHECK_LEN(rand, Len, 16, 16),
-  decode_ie(Tail, Map#{rand => Rand});
-
-decode_ie(<<?AUTS, Len, AUTS:Len/binary, Tail/binary>>, Map) ->
-  ?CHECK_LEN(auts, Len, 14, 14),
-  decode_ie(Tail, Map#{auts => AUTS});
-
-decode_ie(<<?CN_DOMAIN, Len, CN_Domain:Len/unit:8, Tail/binary>>, Map) ->
-  ?CHECK_LEN(cn_domain, Len, 1, 1),
-  decode_ie(Tail, Map#{cn_domain => CN_Domain});
-
-decode_ie(<<?SUPPORTED_RAT_TYPES, Len, Rat_Type:Len/binary, Tail/binary>>, Map) ->
-  ?CHECK_LEN(supported_rat_types, Len, 1, 8),
-  decode_ie(Tail, Map#{supported_rat_types => decode_rat_types(binary_to_list(Rat_Type))});
-
-decode_ie(<<?CURRENT_RAT_TYPE, Len, Rat_Type:Len/unit:8, Tail/binary>>, Map) ->
-  ?CHECK_LEN(current_rat_type, Len, 1, 1),
-  decode_ie(Tail, Map#{current_rat_type => decode_rat_type(Rat_Type)});
-
-decode_ie(<<?SESSION_ID, Len, SesID:Len/unit:8, Tail/binary>>, Map) ->
-  ?CHECK_LEN(session_id, Len, 4, 4),
-  decode_ie(Tail, Map#{session_id => SesID});
-
-decode_ie(<<?SESSION_STATE, Len, SesState:Len/unit:8, Tail/binary>>, Map) ->
-  ?CHECK_LEN(session_state, Len, 1, 1),
-  decode_ie(Tail, Map#{session_state => SesState});
-
-decode_ie(<<?SS_INFO, Len, SesInfo:Len/binary, Tail/binary>>, Map) ->
-  decode_ie(Tail, Map#{ss_info => SesInfo});
-
-decode_ie(<<?SM_RP_MR, Len, MsgRef:Len/unit:8, Tail/binary>>, Map) ->
-  ?CHECK_LEN(sm_rp_mr, Len, 1, 1),
-  decode_ie(Tail, Map#{sm_rp_mr => MsgRef});
-
-decode_ie(<<?SM_RP_DA, Len, DA:Len/binary, Tail/binary>>, Map) ->
-  decode_ie(Tail, Map#{sm_rp_da => DA});
-
-decode_ie(<<?SM_RP_OA, Len, OA:Len/binary, Tail/binary>>, Map) ->
-  decode_ie(Tail, Map#{sm_rp_oa => OA});
-
-decode_ie(<<?SM_RP_UI, Len, MessageBody:Len/binary, Tail/binary>>, Map) ->
-  decode_ie(Tail, Map#{sm_rp_ui => MessageBody});
-
-decode_ie(<<?SM_RP_CAUSE, Len, RPCause:Len/unit:8, Tail/binary>>, Map) ->
-  ?CHECK_LEN(sm_rp_cause, Len, 1, 1),
-  decode_ie(Tail, Map#{sm_rp_cause => RPCause});
-
-decode_ie(<<?SM_RP_MMS, Len, RPMMS:Len/unit:8, Tail/binary>>, Map) ->
-  ?CHECK_LEN(sm_rp_mms, Len, 1, 1),
-  decode_ie(Tail, Map#{sm_rp_mms => RPMMS});
-
-decode_ie(<<?SM_ALERT_REASON, Len, AlertReason:Len/unit:8, Tail/binary>>, Map) ->
-  decode_ie(Tail, Map#{sm_alert_reason => AlertReason});
-
-decode_ie(<<?IMEI, Len, IMEI:Len/binary, Tail/binary>>, Map) ->
-  ?CHECK_LEN(imei, Len, 9, 9),
-  decode_ie(Tail, Map#{imei => IMEI});
-
-decode_ie(<<?IMEI_CHECK_RESULT, Len, IMEIResult:Len/unit:8, Tail/binary>>, Map) ->
-  ?CHECK_LEN(imei_check_result, Len, 1, 1),
-  decode_ie(Tail, Map#{imei_check_result => IMEIResult});
-
-decode_ie(<<?NUM_VECTORS_REQ, Len, NumVectorsRequest:Len/unit:8, Tail/binary>>, Map) ->
-  ?CHECK_LEN(num_vectors_req, Len, 1, 1),
-  decode_ie(Tail, Map#{num_vectors_req => NumVectorsRequest});
-
-decode_ie(<<?SOURCE_NAME, Len, SourceName:Len/binary, Tail/binary>>, Map) ->
-  decode_ie(Tail, Map#{source_name => SourceName});
-
-decode_ie(<<?DESTINATION_NAME, Len, DestName:Len/binary, Tail/binary>>, Map) ->
-  decode_ie(Tail, Map#{destination_name => DestName});
-
-decode_ie(<<?AN_APDU, Len, AN_APDU:Len/binary, Tail/binary>>, Map) ->
-  decode_ie(Tail, Map#{an_apdu => AN_APDU});
-
-decode_ie(<<?RR_CAUSE, Len, RRCause:Len/unit:8, Tail/binary>>, Map) ->
-  ?CHECK_LEN(rr_cause, Len, 1, 1),
-  decode_ie(Tail, Map#{rr_cause => RRCause});
-
-decode_ie(<<?BSSAP_CAUSE, Len, BSSAPCause:Len/unit:8, Tail/binary>>, Map) ->
-  ?CHECK_LEN(bssap_cause, Len, 1, 1),
-  decode_ie(Tail, Map#{bssap_cause => BSSAPCause});
-
-decode_ie(<<?SESSION_MANAGEMENT_CAUSE, Len, SMCause:Len/unit:8, Tail/binary>>, Map) ->
-  ?CHECK_LEN(session_management_cause, Len, 1, 1),
-  decode_ie(Tail, Map#{session_management_cause => SMCause});
-
-decode_ie(<<_, Len, _:Len/binary, Tail/binary>>, Map) -> %% skip unknown IE
-  decode_ie(Tail, Map);
-
-decode_ie(X, Map) ->
-  error({cannot_decode_ie, X, Map}).
-
--spec decode_bcd(binary()) -> binary().
-decode_bcd(BCDNumber) -> decode_bcd(BCDNumber, <<>>).
-
-decode_bcd(<<>>, Number) -> Number;
-
-decode_bcd(<<A:4, B:4, Tail/binary>>, Number) when A < 15, B < 15 ->
-  decode_bcd(Tail, <<Number/binary, (decode_nibble(B)), (decode_nibble(A))>>);
-
-decode_bcd(<<_:4, B:4, _Tail/binary>>, Number) when B < 15 ->
-  <<Number/binary, (decode_nibble(B))>>.
-
-decode_nibble(0) -> $0;
-decode_nibble(1) -> $1;
-decode_nibble(2) -> $2;
-decode_nibble(3) -> $3;
-decode_nibble(4) -> $4;
-decode_nibble(5) -> $5;
-decode_nibble(6) -> $6;
-decode_nibble(7) -> $7;
-decode_nibble(8) -> $8;
-decode_nibble(9) -> $9;
-decode_nibble(10) -> $*;
-decode_nibble(11) -> $#;
-decode_nibble(12) -> $a;
-decode_nibble(13) -> $b;
-decode_nibble(14) -> $c.
-
-decode_auth_tuple(<<?RAND, Len, Rand:Len/binary, Tail/binary>>, Map) ->
-  ?CHECK_LEN(rand, Len, 16, 16),
-  decode_auth_tuple(Tail, Map#{rand => Rand});
-
-decode_auth_tuple(<<?SRES, Len, SRES:Len/binary, Tail/binary>>, Map) ->
-  ?CHECK_LEN(sres, Len, 4, 4),
-  decode_auth_tuple(Tail, Map#{sres => SRES});
-
-decode_auth_tuple(<<?KC, Len, KC:Len/binary, Tail/binary>>, Map) ->
-  ?CHECK_LEN(kc, Len, 8, 8),
-  decode_auth_tuple(Tail, Map#{kc => KC});
-
-decode_auth_tuple(<<?IK, Len, IK:Len/binary, Tail/binary>>, Map) ->
-  ?CHECK_LEN(ik, Len, 16, 16),
-  decode_auth_tuple(Tail, Map#{ik => IK});
-
-decode_auth_tuple(<<?CK, Len, CK:Len/binary, Tail/binary>>, Map) ->
-  ?CHECK_LEN(ck, Len, 16, 16),
-  decode_auth_tuple(Tail, Map#{ck => CK});
-
-decode_auth_tuple(<<?AUTN, Len, AUTN:Len/binary, Tail/binary>>, Map) ->
-  ?CHECK_LEN(autn, Len, 16, 16),
-  decode_auth_tuple(Tail, Map#{autn => AUTN});
-
-decode_auth_tuple(<<?RES, Len, Res:Len/binary, Tail/binary>>, Map) ->
-  ?CHECK_LEN(res, Len, 0, 16),
-  decode_auth_tuple(Tail, Map#{res => Res});
-
-decode_auth_tuple(<<>>, Map) -> Map.
-
-decode_pdp_info(<<?PDP_CONTEXT_ID, Len, PDPContextId:Len/unit:8, Tail/binary>>, Map) ->
-  ?CHECK_LEN(pdp_context_id, Len, 1, 1),
-  decode_pdp_info(Tail, Map#{pdp_context_id => PDPContextId});
-
-decode_pdp_info(<<?PDP_TYPE, Len, PDPType:Len/unit:8, Tail/binary>>, Map) ->
-  ?CHECK_LEN(pdp_type, Len, 2, 2),
-  decode_pdp_info(Tail, Map#{pdp_type => PDPType});
-
-decode_pdp_info(<<?ACCESS_POINT_NAME, Len, APN:Len/binary, Tail/binary>>, Map) ->
-  ?CHECK_LEN(access_point_name, Len, 1, 100),
-  decode_pdp_info(Tail, Map#{access_point_name => APN});
-
-decode_pdp_info(<<?QUALITY_OF_SERVICE, Len, QOS:Len/binary, Tail/binary>>, Map) ->
-  ?CHECK_LEN(quality_of_service, Len, 1, 20),
-  decode_pdp_info(Tail, Map#{quality_of_service => QOS});
-
-decode_pdp_info(<<?PDP_CHARGING, Len, PDPCharging:Len/unit:8, Tail/binary>>, Map) ->
-  ?CHECK_LEN(pdp_charging, Len, 2, 2),
-  decode_pdp_info(Tail, Map#{pdp_charging => PDPCharging});
-
-decode_pdp_info(<<>>, Map) -> Map.
-
-decode_rat_type(0) -> rat_unknown;
-decode_rat_type(1) -> rat_geran_a;
-decode_rat_type(2) -> rat_utran_iu;
-decode_rat_type(3) -> rat_eutran_sgs.
-
-decode_rat_types(, Acc) -> lists:reverse(Acc);
-decode_rat_types(Head|Tail, Acc) ->
-	T = decode_rat_type(Head),
-	decode_rat_types(Tail, T|Acc).
-decode_rat_types(List) -> decode_rat_types(List, ).
-
--spec encode('GSUPMessage'()) -> binary() | no_return().
-encode(GSUPMessage = #{message_type := MsgTypeAtom}) when is_atom(MsgTypeAtom) ->
-  F = fun
-    (MsgType_, #{message_type := MsgTypeAtom_}, undefined) when MsgTypeAtom_ == MsgTypeAtom -> MsgType_;
-    (_, _, Acc) -> Acc
-  end,
-  case maps:fold(F, undefined, ?GSUP_MESSAGES()) of
-    undefined -> error({unknown_message_type, MsgTypeAtom}), MsgType = undefined;
-    MsgType when is_integer(MsgType) -> ok
-  end,
-  encode(MsgType, GSUPMessage).
-
-encode(MsgType, GSUPMessage) when is_integer(MsgType), is_map(GSUPMessage), MsgType >=0, MsgType =< 255 ->
-  case ?GSUP_MESSAGES() of
-    #{MsgType := #{message_type := MsgTypeAtom, mandatory := Mandatory0} = Map} ->
-      Mandatory = Mandatory0 ++ ?MANDATORY_DEFAULT,
-      Possible = Mandatory ++ maps:get(optional, Map, ) ++ ?OPTIONAL_DEFAULT,
-      case {maps:size(maps:with(Mandatory, GSUPMessage)) == length(Mandatory),
-            maps:size(maps:without(Possible, GSUPMessage)) == 0} of
-        {true, true} -> 
-          Tail = encode_ie(GSUPMessage, <<>>),
-          <<MsgType, Tail/binary>>;
-        {false, _} -> error({mandatory_ie_missing, MsgTypeAtom, Mandatory -- maps:keys(GSUPMessage)});
-        {_, false} -> error({ie_not_expected, MsgTypeAtom, maps:keys(GSUPMessage) -- Possible})
-      end;
-    _ -> 
-      error({unknown_gsup_msg_type, MsgType})
-  end.
-
-encode_ie(#{imsi := Value0} = GSUPMessage, Head) ->
-  Value = encode_bcd(Value0, <<>>),
-  Len = size(Value),
-  ?CHECK_LEN(imsi, Len, 0, 8),
-  encode_ie(maps:without(imsi, GSUPMessage), <<Head/binary, ?IMSI, Len, Value/binary>>);
-
-encode_ie(#{cause := Value} = GSUPMessage, Head) ->
-  Len = 1,
-  ?CHECK_SIZE(cause, Len, Value),
-  encode_ie(maps:without(cause, GSUPMessage), <<Head/binary, ?CAUSE, Len, Value:Len/unit:8>>);
-
-encode_ie(#{auth_tuples := Tuples0} = GSUPMessage, Head) ->
-  ?CHECK_LEN(auth_tuples, length(Tuples0), 0, 5),
-  Tuples = <<
-    begin
-      check_auth_tuple(Tuple) orelse error({bad_auth_tuple, Tuple}),
-      Value = encode_auth_tuple(Tuple, <<>>),
-      Len = size(Value),
-      <<?AUTH_TUPLE, Len, Value/binary>>
-    end || Tuple <- Tuples0>>,
-  encode_ie(maps:without(auth_tuples, GSUPMessage), <<Head/binary, Tuples/binary>>);
-
-encode_ie(#{msisdn := Value} = GSUPMessage, Head) ->
-  Len = size(Value),
-  ?CHECK_LEN(msisdn, Len, 0, 8),
-  encode_ie(maps:without(msisdn, GSUPMessage), <<Head/binary, ?MSISDN, Len, Value/binary>>);
-
-encode_ie(#{hlr_number := Value} = GSUPMessage, Head) ->
-  Len = size(Value),
-  ?CHECK_LEN(hlr_number, Len, 0, 8),
-  encode_ie(maps:without(hlr_number, GSUPMessage), <<Head/binary, ?HLR_NUMBER, Len, Value/binary>>);
-
-encode_ie(#{pdp_info_complete := true} = GSUPMessage, Head) ->
-  encode_ie(maps:without(pdp_info_complete, GSUPMessage), <<Head/binary, ?PDP_INFO_COMPLETE, 0>>);
-
-encode_ie(#{pdp_info_complete := _} = _GSUPMessage, _Head) ->
-  error(pdp_info_complete_must_be_true);
-
-encode_ie(#{pdp_info_list := PDPInfoList0} = GSUPMessage, Head) -> %% PDPInfo
-  ?CHECK_LEN(pdp_info_list, length(PDPInfoList0), 0, 10),
-  PDPInfoList = <<
-    begin
-      check_pdp_info(PDPInfo) orelse error({bad_pdp_info, PDPInfo}),
-      Value = encode_pdp_info(PDPInfo, <<>>),
-      Len = size(Value),
-      <<?PDP_INFO, Len, Value/binary>>
-    end || PDPInfo <- PDPInfoList0>>,
-  encode_ie(maps:without(pdp_info_list, GSUPMessage), <<Head/binary, PDPInfoList/binary>>);
-
-encode_ie(#{cancellation_type := Value} = GSUPMessage, Head) ->
-  Len = 1,
-  ?CHECK_SIZE(cancellation_type, Len, Value),
-  encode_ie(maps:without(cancellation_type, GSUPMessage), <<Head/binary, ?CANCELLATION_TYPE, Len, Value:Len/unit:8>>);
-
-encode_ie(#{freeze_p_tmsi := true} = GSUPMessage, Head) ->
-  encode_ie(maps:without(freeze_p_tmsi, GSUPMessage), <<Head/binary, ?FREEZE_P_TMSI, 0>>);
-
-encode_ie(#{freeze_p_tmsi := _} = _GSUPMessage, _Head) ->
-  error(freeze_p_tmsi_must_be_true);
-
-encode_ie(#{session_id := Value} = GSUPMessage, Head) ->
-  Len = 4,
-  ?CHECK_SIZE(session_id, Len, Value),
-  encode_ie(maps:without(session_id, GSUPMessage), <<Head/binary, ?SESSION_ID, Len, Value:Len/unit:8>>);
-
-encode_ie(#{session_state := Value} = GSUPMessage, Head) ->
-  Len = 1,
-  ?CHECK_SIZE(session_state, Len, Value),
-  encode_ie(maps:without(session_state, GSUPMessage), <<Head/binary, ?SESSION_STATE, Len, Value:Len/unit:8>>);
-
-encode_ie(#{message_class := Value} = GSUPMessage, Head) ->
-  Len = 1,
-  ?CHECK_SIZE(message_class, Len, Value),
-  encode_ie(maps:without(message_class, GSUPMessage), <<Head/binary, ?MESSAGE_CLASS, Len, Value:Len/unit:8>>);
-
-encode_ie(#{pdp_context_id := PDPCIdList0} = GSUPMessage, Head) ->
-  Len = 1,
-  PDPCIdList = <<
-    begin
-      ?CHECK_SIZE(pdp_context_id, Len, Value),
-      <<?PDP_CONTEXT_ID, Len, Value:Len/unit:8>>
-    end || Value <- PDPCIdList0>>,
-  encode_ie(maps:without(pdp_context_id, GSUPMessage), <<Head/binary, PDPCIdList/binary>>);
-
-encode_ie(#{pdp_charging := Value} = GSUPMessage, Head) ->
-  Len = 2,
-  ?CHECK_SIZE(pdp_charging, Len, Value),
-  encode_ie(maps:without(pdp_charging, GSUPMessage), <<Head/binary, ?PDP_CHARGING, Len, Value:Len/unit:8>>);
-
-encode_ie(#{auts := Value} = GSUPMessage, Head) ->
-  Len = 14,
-  ?CHECK_LEN(auts, size(Value), Len, Len),
-  encode_ie(maps:without(auts, GSUPMessage), <<Head/binary, ?AUTS, Len, Value:Len/binary>>);
-
-encode_ie(#{rand := Value} = GSUPMessage, Head) ->
-  Len = 16,
-  ?CHECK_LEN(rand, size(Value), Len, Len),
-  encode_ie(maps:without(rand, GSUPMessage), <<Head/binary, ?RAND, Len, Value:Len/binary>>);
-
-encode_ie(#{cn_domain := Value} = GSUPMessage, Head) ->
-  Len = 1,
-  ?CHECK_SIZE(cn_domain, Len, Value),
-  encode_ie(maps:without(cn_domain, GSUPMessage), <<Head/binary, ?CN_DOMAIN, Len, Value:Len/unit:8>>);
-
-encode_ie(#{supported_rat_types := Value} = GSUPMessage, Head) when is_list(Value) ->
-  Len = length(Value),
-  ?CHECK_LEN(supported_rat_types, Len, 1, 8),
-  RatList = encode_rat_types(Value),
-  encode_ie(maps:without(supported_rat_types, GSUPMessage), <<Head/binary, ?SUPPORTED_RAT_TYPES, Len, RatList/binary>>);
-
-encode_ie(#{current_rat_type := Value} = GSUPMessage, Head) ->
-  Len = 1,
-  ?CHECK_LEN(current_rat_type, Len, 1, 1),
-  Rat = encode_rat_type(Value),
-  encode_ie(maps:without(current_rat_type, GSUPMessage), <<Head/binary, ?CURRENT_RAT_TYPE, Len, Rat:Len/unit:8>>);
-
-encode_ie(#{ss_info := Value} = GSUPMessage, Head) ->
-  Len = size(Value),
-  encode_ie(maps:without(ss_info, GSUPMessage), <<Head/binary, ?SS_INFO, Len, Value/binary>>);
-
-encode_ie(#{sm_rp_mr := Value} = GSUPMessage, Head) ->
-  Len = 1,
-  ?CHECK_SIZE(sm_rp_mr, Len, Value),
-  encode_ie(maps:without(sm_rp_mr, GSUPMessage), <<Head/binary, ?SM_RP_MR, Len, Value:Len/unit:8>>);
-
-encode_ie(#{sm_rp_da := Value} = GSUPMessage, Head) ->
-  Len = size(Value),
-  encode_ie(maps:without(sm_rp_da, GSUPMessage), <<Head/binary, ?SM_RP_DA, Len, Value/binary>>);
-
-encode_ie(#{sm_rp_oa := Value} = GSUPMessage, Head) ->
-  Len = size(Value),
-  encode_ie(maps:without(sm_rp_oa, GSUPMessage), <<Head/binary, ?SM_RP_OA, Len, Value/binary>>);
-
-encode_ie(#{sm_rp_ui := Value} = GSUPMessage, Head) ->
-  Len = size(Value),
-  encode_ie(maps:without(sm_rp_ui, GSUPMessage), <<Head/binary, ?SM_RP_UI, Len, Value/binary>>);
-
-encode_ie(#{sm_rp_cause := Value} = GSUPMessage, Head) ->
-  Len = 1,
-  ?CHECK_SIZE(sm_rp_cause, Len, Value),
-  encode_ie(maps:without(sm_rp_cause, GSUPMessage), <<Head/binary, ?SM_RP_CAUSE, Len, Value:Len/unit:8>>);
-
-encode_ie(#{sm_rp_mms := Value} = GSUPMessage, Head) ->
-  Len = 1,
-  ?CHECK_SIZE(sm_rp_mms, Len, Value),
-  encode_ie(maps:without(sm_rp_mms, GSUPMessage), <<Head/binary, ?SM_RP_MMS, Len, Value:Len/unit:8>>);
-
-encode_ie(#{sm_alert_reason := Value} = GSUPMessage, Head) ->
-  Len = 1,
-  ?CHECK_SIZE(sm_alert_reason, Len, Value),
-  encode_ie(maps:without(sm_alert_reason, GSUPMessage), <<Head/binary, ?SM_ALERT_REASON, Len, Value:Len/unit:8>>);
-
-encode_ie(#{imei := Value} = GSUPMessage, Head) ->
-  Len = size(Value),
-  ?CHECK_LEN(imei, Len, 9, 9),
-  encode_ie(maps:without(imei, GSUPMessage), <<Head/binary, ?IMEI, Len, Value/binary>>);
-
-encode_ie(#{imei_check_result := Value} = GSUPMessage, Head) ->
-  Len = 1,
-  ?CHECK_SIZE(imei_check_result, Len, Value),
-  encode_ie(maps:without(imei_check_result, GSUPMessage), <<Head/binary, ?IMEI_CHECK_RESULT, Len, Value:Len/unit:8>>);
-
-encode_ie(#{num_vectors_req := Value} = GSUPMessage, Head) ->
-  Len = 1,
-  ?CHECK_SIZE(num_vectors_req, Len, Value),
-  encode_ie(maps:without(num_vectors_req, GSUPMessage), <<Head/binary, ?NUM_VECTORS_REQ, Len, Value:Len/unit:8>>);
-
-encode_ie(#{source_name := Value} = GSUPMessage, Head) ->
-  Len = size(Value),
-  encode_ie(maps:without(source_name, GSUPMessage), <<Head/binary, ?SOURCE_NAME, Len, Value/binary>>);
-
-encode_ie(#{destination_name := Value} = GSUPMessage, Head) ->
-  Len = size(Value),
-  encode_ie(maps:without(destination_name, GSUPMessage), <<Head/binary, ?DESTINATION_NAME, Len, Value/binary>>);
-
-encode_ie(#{an_apdu := Value} = GSUPMessage, Head) ->
-  Len = size(Value),
-  encode_ie(maps:without(an_apdu, GSUPMessage), <<Head/binary, ?AN_APDU, Len, Value/binary>>);
-
-encode_ie(#{rr_cause := Value} = GSUPMessage, Head) ->
-  Len = 1,
-  ?CHECK_SIZE(rr_cause, Len, Value),
-  encode_ie(maps:without(rr_cause, GSUPMessage), <<Head/binary, ?RR_CAUSE, Len, Value:Len/unit:8>>);
-
-encode_ie(#{bssap_cause := Value} = GSUPMessage, Head) ->
-  Len = 1,
-  ?CHECK_SIZE(bssap_cause, Len, Value),
-  encode_ie(maps:without(bssap_cause, GSUPMessage), <<Head/binary, ?BSSAP_CAUSE, Len, Value:Len/unit:8>>);
-
-encode_ie(#{session_management_cause := Value} = GSUPMessage, Head) ->
-  Len = 1,
-  ?CHECK_SIZE(session_management_cause, Len, Value),
-  encode_ie(maps:without(session_management_cause, GSUPMessage), <<Head/binary, ?SESSION_MANAGEMENT_CAUSE, Len, Value:Len/unit:8>>);
-
-encode_ie(_, Head) -> Head.
-
-encode_bcd(BCDNumber) -> encode_bcd(BCDNumber, <<>>).
-
-encode_bcd(<<A, B, Tail/binary>>, BCDNumber) ->
-  encode_bcd(Tail, <<BCDNumber/binary, (encode_nibble(B)):4, (encode_nibble(A)):4>>);
-
-encode_bcd(<<A>>, BCDNumber) ->
-  <<BCDNumber/binary, 16#f:4, (encode_nibble(A)):4>>;
-
-encode_bcd(<<>>, BCDNumber) ->
-  BCDNumber.
-
-encode_nibble($0) -> 0;
-encode_nibble($1) -> 1;
-encode_nibble($2) -> 2;
-encode_nibble($3) -> 3;
-encode_nibble($4) -> 4;
-encode_nibble($5) -> 5;
-encode_nibble($6) -> 6;
-encode_nibble($7) -> 7;
-encode_nibble($8) -> 8;
-encode_nibble($9) -> 9;
-encode_nibble($*) -> 10;
-encode_nibble($#) -> 11;
-encode_nibble($a) -> 12;
-encode_nibble($b) -> 13;
-encode_nibble($c) -> 14;
-encode_nibble($A) -> 12;
-encode_nibble($B) -> 13;
-encode_nibble($C) -> 14;
-encode_nibble(X) -> error({bad_bcd_character, X}).
-
-check_auth_tuple(AuthTuple) ->
-  Mandatory = ?AUTH_TUPLE_MANDATORY,
-  Possible = Mandatory ++ ?AUTH_TUPLE_OPTIONAL,
-  (maps:size(maps:with(Mandatory, AuthTuple)) == length(Mandatory))
-    orelse error({mandatory_ie_missing, auth_tuples, Mandatory -- maps:keys(AuthTuple)}),
-  (maps:size(maps:without(Possible, AuthTuple)) == 0)
-    orelse error({ie_not_expected, auth_tuples, maps:keys(AuthTuple) -- Possible}).
-
-check_pdp_info(PDPInfo) ->
-  Mandatory = ?PDP_INFO_MANDATORY,
-  Possible = Mandatory ++ ?PDP_INFO_OPTIONAL,
-  (maps:size(maps:with(Mandatory, PDPInfo)) == length(Mandatory))
-    orelse error({mandatory_ie_missing, pdp_info_list, Mandatory -- maps:keys(PDPInfo)}),
-  (maps:size(maps:without(Possible, PDPInfo)) == 0)
-    orelse error({ie_not_expected, pdp_info_list, maps:keys(PDPInfo) -- Possible}).
-
-encode_auth_tuple(#{rand := Value} = Map, Head) ->
-  Len = 16,
-  ?CHECK_LEN(rand, size(Value), Len, Len),
-  encode_auth_tuple(maps:without(rand, Map), <<Head/binary, ?RAND, Len, Value:Len/binary>>);
-
-encode_auth_tuple(#{sres := Value} = Map, Head) ->
-  Len = 4,
-  ?CHECK_LEN(sres, size(Value), Len, Len),
-  encode_auth_tuple(maps:without(sres, Map), <<Head/binary, ?SRES, Len, Value:Len/binary>>);
-
-encode_auth_tuple(#{kc := Value} = Map, Head) ->
-  Len = 8,
-  ?CHECK_LEN(kc, size(Value), Len, Len),
-  encode_auth_tuple(maps:without(kc, Map), <<Head/binary, ?KC, Len, Value:Len/binary>>);
-
-encode_auth_tuple(#{ik := Value} = Map, Head) ->
-  Len = 16,
-  ?CHECK_LEN(ik, size(Value), Len, Len),
-  encode_auth_tuple(maps:without(ik, Map), <<Head/binary, ?IK, Len, Value:Len/binary>>);
-
-encode_auth_tuple(#{ck := Value} = Map, Head) ->
-  Len = 16,
-  ?CHECK_LEN(ck, size(Value), Len, Len),
-  encode_auth_tuple(maps:without(ck, Map), <<Head/binary, ?CK, Len, Value:Len/binary>>);
-
-encode_auth_tuple(#{autn := Value} = Map, Head) ->
-  Len = 16,
-  ?CHECK_LEN(autn, size(Value), Len, Len),
-  encode_auth_tuple(maps:without(autn, Map), <<Head/binary, ?AUTN, Len, Value:Len/binary>>);
-
-encode_auth_tuple(#{res := Value} = Map, Head) ->
-  Len = size(Value),
-  ?CHECK_LEN(res, size(Value), Len, Len),
-  encode_auth_tuple(maps:without(res, Map), <<Head/binary, ?RES, Len, Value/binary>>);
-
-encode_auth_tuple(#{}, Head) -> Head.
-
-encode_pdp_info(#{pdp_context_id := Value} = Map, Head) ->
-  Len = 1,
-  ?CHECK_SIZE(pdp_context_id, Len, Value),
-  encode_pdp_info(maps:without(pdp_context_id, Map), <<Head/binary, ?PDP_CONTEXT_ID, Len, Value:Len/unit:8>>);
-
-encode_pdp_info(#{pdp_type := Value} = Map, Head) ->
-  Len = 2,
-  ?CHECK_SIZE(pdp_type, Len, Value),
-  encode_pdp_info(maps:without(pdp_type, Map), <<Head/binary, ?PDP_TYPE, Len, Value:Len/unit:8>>);
-
-encode_pdp_info(#{access_point_name := Value} = Map, Head) ->
-  Len = size(Value),
-  ?CHECK_LEN(access_point_name, Len, 1, 100),
-  encode_pdp_info(maps:without(access_point_name, Map), <<Head/binary, ?ACCESS_POINT_NAME, Len, Value/binary>>);
-
-encode_pdp_info(#{quality_of_service := Value} = Map, Head) ->
-  Len = size(Value),
-  ?CHECK_LEN(quality_of_service, Len, 1, 20),
-  encode_pdp_info(maps:without(quality_of_service, Map), <<Head/binary, ?QUALITY_OF_SERVICE, Len, Value/binary>>);
-
-encode_pdp_info(#{pdp_charging := Value} = Map, Head) ->
-  Len = 2,
-  ?CHECK_SIZE(pdp_charging, Len, Value),
-  encode_pdp_info(maps:without(pdp_charging, Map), <<Head/binary, ?PDP_CHARGING, Len, Value:Len/unit:8>>);
-
-encode_pdp_info(#{}, Head) -> Head.
-
-encode_rat_type(rat_unknown) -> 0;
-encode_rat_type(rat_geran_a) -> 1;
-encode_rat_type(rat_utran_iu) -> 2;
-encode_rat_type(rat_eutran_sgs) -> 3.
-
-encode_rat_types(, Acc) -> list_to_binary(lists:reverse(Acc));
-encode_rat_types(Head|Tail, Acc) ->
-	T = encode_rat_type(Head),
-	encode_rat_types(Tail, T|Acc).
-encode_rat_types(List) -> encode_rat_types(List, ).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_gsup/src/ipa.erl Deleted

@@ -1,40 +0,0 @@
-% This Source Code Form is subject to the terms of the Mozilla Public
-% License, v. 2.0. If a copy of the MPL was not distributed with this
-% file, You can obtain one at https://mozilla.org/MPL/2.0/.
-% (C) 2019 Andrey Velikiy <agreat22@gmail.com>
-% (C) 2019 Fairwaves (edited) 
-
--module(ipa).
-
--include ("ipa.hrl").
-
--export (decode/1, encode/1).
-
--spec decode(binary()) -> {ok, {binary(), binary()}} | {reply, ping | resp | ack, binary(), binary()} | {more_data, binary()} | {error, term()}.
-decode(<<1:16, ?IPAC_PROTO_IPACCESS, ?IPAC_MSGT_PING, Rest/binary>>) ->
-  {reply, ping, <<1:16, ?IPAC_PROTO_IPACCESS, ?IPAC_MSGT_PONG>>, Rest};
-
-decode(<<1:16, ?IPAC_PROTO_IPACCESS, ?IPAC_MSGT_ID_RESP, Rest/binary>>) ->
-  {reply, resp, <<1:16, ?IPAC_PROTO_IPACCESS, ?IPAC_MSGT_ID_ACK>>, Rest};
-
-decode(<<1:16, ?IPAC_PROTO_IPACCESS, ?IPAC_MSGT_ID_ACK, Rest/binary>>) ->
-  {reply, ack, <<1:16, ?IPAC_PROTO_IPACCESS, ?IPAC_MSGT_ID_GET>>, Rest};
-
-decode(<<PSize:16, ?IPAC_PROTO_OSMO, Packet:PSize/binary, Rest/binary>>) ->
-  case Packet of
-    <<?IPAC_PROTO_EXT_GSUP, Packet1/binary>> ->
-      {ok, {Packet1, Rest}};
-    <<X, _/binary>> ->
-      {error, {bad_protocol_extension, X}}
-  end;
-
-decode(<<_PSize:16, X, _, _/binary>>) when X /= ?IPAC_PROTO_OSMO ->
-  {error, {bad_stream_id, X}};
-
-decode(Rest) ->
-  {more_data, Rest}.
-
--spec encode(binary()) -> binary().
-encode(Packet) ->
-  Len = size(Packet) + 1,
-  <<Len:16, ?IPAC_PROTO_OSMO, ?IPAC_PROTO_EXT_GSUP, Packet/binary>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_gsup/src/osmo_gsup.app.src Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_gsup/test Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_gsup/test/gsup_encode_decode_test.erl Deleted

@@ -1,707 +0,0 @@
-% This Source Code Form is subject to the terms of the Mozilla Public
-% License, v. 2.0. If a copy of the MPL was not distributed with this
-% file, You can obtain one at https://mozilla.org/MPL/2.0/.
-% (C) 2019 Andrey Velikiy <agreat22@gmail.com>
-% (C) 2019 Fairwaves (edited) 
-
--module (gsup_encode_decode_test).
-
--include_lib("eunit/include/eunit.hrl").
-
--define(TEST_IMSI_IE, 16#01, 16#08, 16#21, 16#43, 16#65, 16#87, 16#09, 16#21, 16#43, 16#f5).
--define(TEST_MSISDN_IE, 16#08, 16#07, 16#91, 16#94, 16#61, 16#46, 16#32, 16#24, 16#43).
--define(TEST_CLASS_SUBSCR_IE, 16#0a, 16#01, 16#01).
--define(TEST_CLASS_INTER_MSC_IE, 16#0a, 16#01, 16#04).
--define(TEST_AN_APDU_IE, 16#62, 16#05, 16#01, 16#42, 16#42, 16#42, 16#42).
--define(TEST_SOURCE_NAME_IE, 16#60, 16#05, "MSC-A").
--define(TEST_DESTINATION_NAME_IE, 16#61, 16#05, "MSC-B").
--define(TEST_SUPP_RAT_TYPES_IE, 16#29, 16#02, 16#01, 16#03).
--define(TEST_CURR_RAT_TYPE_LTE_IE, 16#2a, 16#01, 16#03).
-
-
-missing_params_test() ->
-  ?assertError({mandatory_ie_missing,location_cancellation_err,cause}, gsup_protocol:decode(<<16#1d, ?TEST_IMSI_IE>>)),
-  ?assertError({mandatory_ie_missing,mo_forward_sm_req,sm_rp_mr,sm_rp_da,sm_rp_oa,sm_rp_ui}, gsup_protocol:encode(#{message_type => mo_forward_sm_req, imsi => <<"123456">>})).
-
-excess_params_test() ->
-  ?assertError({ie_not_expected,location_upd_err,pdp_info_complete}, gsup_protocol:encode(#{message_type => location_upd_err,imsi => <<"1234">>,cause => 1,pdp_info_complete => <<>>})).
-
-ie_size_test() ->
-  ?assertEqual(#{cause => 255}, gsup_protocol:decode_ie(<<2,1,255>>, #{})),
-  ?assertError({ie_length_mismatch,cause,2}, gsup_protocol:decode_ie(<<2,2,0,0>>, #{})),
-
-  ?assertError({ie_value_length_mismatch,cause,-1}, gsup_protocol:encode_ie(#{cause => -1}, <<>>)),
-  ?assertEqual(<<2,1,255>>, gsup_protocol:encode_ie(#{cause => 255}, <<>>)),
-  ?assertError({ie_value_length_mismatch,cause,256}, gsup_protocol:encode_ie(#{cause => 256}, <<>>)),
-  ?assertEqual(<<20,2,255,255>>, gsup_protocol:encode_ie(#{pdp_charging => 16#ffff}, <<>>)),
-  ?assertError({ie_value_length_mismatch,pdp_charging,16#10000}, gsup_protocol:encode_ie(#{pdp_charging => 16#10000}, <<>>)),
-  ?assertEqual(<<48,4,255,255,255,255>>, gsup_protocol:encode_ie(#{session_id => 16#ffffffff}, <<>>)),
-  ?assertError({ie_value_length_mismatch,session_id,16#100000000}, gsup_protocol:encode_ie(#{session_id => 16#100000000}, <<>>)).
-
-sai_req_test() ->
-  Bin = <<16#08, ?TEST_IMSI_IE, ?TEST_CLASS_SUBSCR_IE>>,
-  Map = #{imsi => <<"123456789012345">>, message_class => 1, message_type => send_auth_info_req},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-sai_req_num_test() ->
-  Bin = <<16#08, ?TEST_IMSI_IE, ?TEST_CLASS_SUBSCR_IE, 16#52, 16#01, 16#02>>,
-  Map = #{imsi => <<"123456789012345">>,
-          message_class => 1,
-          message_type => send_auth_info_req,
-          num_vectors_req => 2},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-sai_req_eps_test() ->
-  Bin = <<16#08, ?TEST_IMSI_IE, ?TEST_CLASS_SUBSCR_IE, ?TEST_SUPP_RAT_TYPES_IE, ?TEST_CURR_RAT_TYPE_LTE_IE>>,
-  Map = #{imsi => <<"123456789012345">>, message_class => 1, message_type => send_auth_info_req,
-	  supported_rat_types => rat_geran_a, rat_eutran_sgs, current_rat_type => rat_eutran_sgs},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-sai_err_test() ->
-  Bin = <<16#09, ?TEST_IMSI_IE, 16#02, 16#01, 16#07>>,
-  Map = #{imsi => <<"123456789012345">>, message_type => send_auth_info_err, cause=>7},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-sai_res_test() ->
-  Bin = <<16#0a, ?TEST_IMSI_IE, 
-    16#03, 16#22, %% Auth tuple
-      16#20, 16#10,
-        16#01, 16#02, 16#03, 16#04, 16#05, 16#06, 16#07, 16#08,
-        16#09, 16#0a, 16#0b, 16#0c, 16#0d, 16#0e, 16#0f, 16#10,
-      16#21, 16#04,
-        16#21, 16#22, 16#23, 16#24,
-      16#22, 16#08,
-        16#31, 16#32, 16#33, 16#34, 16#35, 16#36, 16#37, 16#38,
-    16#03, 16#22, %% Auth tuple
-      16#20, 16#10,
-        16#81, 16#82, 16#83, 16#84, 16#85, 16#86, 16#87, 16#88,
-        16#89, 16#8a, 16#8b, 16#8c, 16#8d, 16#8e, 16#8f, 16#90,
-      16#21, 16#04,
-        16#a1, 16#a2, 16#a3, 16#a4,
-      16#22, 16#08,
-        16#b1, 16#b2, 16#b3, 16#b4, 16#b5, 16#b6, 16#b7, 16#b8
-  >>,
-  Map = #{auth_tuples =>
-                       #{kc => <<16#31, 16#32, 16#33, 16#34, 16#35, 16#36, 16#37, 16#38>>,
-                          rand => <<1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16>>,
-                          sres => <<16#21, 16#22, 16#23, 16#24>>},
-                        #{kc => <<16#b1, 16#b2, 16#b3, 16#b4, 16#b5, 16#b6, 16#b7, 16#b8>>,
-                          rand =>
-                              <<129,130,131,132,133,134,135,136,137,138,139,
-                                140,141,142,143,144>>,
-                          sres => <<16#a1, 16#a2, 16#a3, 16#a4>>},
-                   imsi => <<"123456789012345">>,
-                   message_type => send_auth_info_res},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-sai_res_umts_test() ->
-  Bin = <<16#0a, ?TEST_IMSI_IE, 
-    16#03, 16#62, %% Auth tuple
-      16#20, 16#10, %% rand
-        16#01, 16#02, 16#03, 16#04, 16#05, 16#06, 16#07, 16#08,
-        16#09, 16#0a, 16#0b, 16#0c, 16#0d, 16#0e, 16#0f, 16#10,
-      16#21, 16#04, %% sres
-        16#21, 16#22, 16#23, 16#24,
-      16#22, 16#08, %% kc
-        16#31, 16#32, 16#33, 16#34, 16#35, 16#36, 16#37, 16#38,
-      16#23, 16#10, %% IK (UMTS)
-        16#01, 16#02, 16#03, 16#04, 16#05, 16#06, 16#07, 16#08,
-        16#09, 16#0a, 16#0b, 16#0c, 16#0d, 16#0e, 16#0f, 16#10,
-      16#24, 16#10, %% CK (UMTS)
-        16#01, 16#02, 16#03, 16#04, 16#05, 16#06, 16#07, 16#08,
-        16#09, 16#0a, 16#0b, 16#0c, 16#0d, 16#0e, 16#0f, 16#10,
-      16#25, 16#10, %% AUTN (UMTS)
-        16#01, 16#02, 16#03, 16#04, 16#05, 16#06, 16#07, 16#08,
-        16#09, 16#0a, 16#0b, 16#0c, 16#0d, 16#0e, 16#0f, 16#10,
-      16#27, 16#08, %% RES (UMTS)
-        16#01, 16#02, 16#03, 16#04, 16#05, 16#06, 16#07, 16#08,
-    16#03, 16#62, %% Auth tuple
-      16#20, 16#10, %% rand
-        16#a1, 16#a2, 16#a3, 16#a4, 16#a5, 16#a6, 16#a7, 16#a8,
-        16#a9, 16#aa, 16#ab, 16#ac, 16#ad, 16#ae, 16#af, 16#10,
-      16#21, 16#04, %% sres
-        16#b1, 16#b2, 16#b3, 16#b4,
-      16#22, 16#08, %% kc
-        16#c1, 16#c2, 16#c3, 16#c4, 16#c5, 16#c6, 16#c7, 16#c8,
-      16#23, 16#10, %% IK (UMTS)
-        16#d1, 16#d2, 16#d3, 16#d4, 16#d5, 16#d6, 16#d7, 16#d8,
-        16#d9, 16#da, 16#db, 16#dc, 16#dd, 16#de, 16#df, 16#d0,
-      16#24, 16#10, %% CK (UMTS)
-        16#e1, 16#e2, 16#e3, 16#e4, 16#e5, 16#e6, 16#e7, 16#e8,
-        16#e9, 16#ea, 16#eb, 16#ec, 16#ed, 16#ee, 16#ef, 16#e0,
-      16#25, 16#10, %%AUTN (UMTS)
-        16#f1, 16#f2, 16#f3, 16#f4, 16#f5, 16#f6, 16#f7, 16#f8,
-        16#f9, 16#fa, 16#fb, 16#fc, 16#fd, 16#fe, 16#ff, 16#f0,
-      16#27, 16#08,  %%RES (UMTS)
-        16#91, 16#92, 16#93, 16#94, 16#95, 16#96, 16#97, 16#98
-  >>,
-  Map = #{auth_tuples =>
-                       #{autn => <<1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16>>,
-                          ck => <<1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16>>,
-                          ik => <<1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16>>,
-                          kc => <<"12345678">>,
-                          rand => <<1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16>>,
-                          res => <<1,2,3,4,5,6,7,8>>,
-                          sres => <<16#21, 16#22, 16#23, 16#24>>},
-                        #{autn => <<16#f1, 16#f2, 16#f3, 16#f4, 16#f5, 16#f6, 16#f7, 16#f8,
-                                  16#f9, 16#fa, 16#fb, 16#fc, 16#fd, 16#fe, 16#ff, 16#f0>>,
-                          ck => <<16#e1, 16#e2, 16#e3, 16#e4, 16#e5, 16#e6, 16#e7, 16#e8,
-                                  16#e9, 16#ea, 16#eb, 16#ec, 16#ed, 16#ee, 16#ef, 16#e0>>,
-                          ik => <<16#d1, 16#d2, 16#d3, 16#d4, 16#d5, 16#d6, 16#d7, 16#d8,
-                                  16#d9, 16#da, 16#db, 16#dc, 16#dd, 16#de, 16#df, 16#d0>>,
-                          kc => <<16#c1, 16#c2, 16#c3, 16#c4, 16#c5, 16#c6, 16#c7, 16#c8>>,
-                          rand =>
-                              <<161,162,163,164,165,166,167,168,169,170,171,
-                                172,173,174,175,16>>,
-                          res => <<145,146,147,148,149,150,151,152>>,
-                          sres => <<16#b1, 16#b2, 16#b3, 16#b4>>},
-                   imsi => <<"123456789012345">>,
-                   message_type => send_auth_info_res},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-sai_res_auts_test() ->
-  Bin = <<16#0a, ?TEST_IMSI_IE, 
-    16#26, 16#0e, %% AUTS (UMTS)
-      16#01, 16#02, 16#03, 16#04, 16#05, 16#06, 16#07, 16#08,
-      16#09, 16#0a, 16#0b, 16#0c, 16#0d, 16#0e,
-    16#20, 16#10, %% rand
-      16#01, 16#02, 16#03, 16#04, 16#05, 16#06, 16#07, 16#08,
-      16#09, 16#0a, 16#0b, 16#0c, 16#0d, 16#0e, 16#0f, 16#10
-  >>,
-  Map = #{auts => <<1,2,3,4,5,6,7,8,9,10,11,12,13,14>>,
-                   imsi => <<"123456789012345">>,
-                   message_type => send_auth_info_res,
-                   rand => <<1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16>>},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-lu_req_test() ->
-  Bin = <<16#04, ?TEST_IMSI_IE>>,
-  Map = #{imsi => <<"123456789012345">>, message_type => location_upd_req},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-lu_err_test() ->
-  Bin = <<16#05, ?TEST_IMSI_IE, 16#02, 16#01, 16#07>>,
-  Map = #{imsi => <<"123456789012345">>, message_type => location_upd_err, cause=>7},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-lu_res_test() ->
-  Bin = <<16#06, ?TEST_IMSI_IE, ?TEST_MSISDN_IE,
-    16#09, 16#07, %% HLR-Number of the subscriber
-      16#91, 16#83, 16#52, 16#38, 16#48, 16#83, 16#93,
-    16#04, 16#00, %% PDP info complete
-    16#05, 16#19,
-      16#10, 16#01, 16#01,
-      16#11, 16#02, 16#f1, 16#21, %% IPv4
-      16#12, 16#09, 16#04, "test", 16#03, "apn",
-      16#13, 16#01, 16#02,
-      16#14, 16#02, 16#FF, 16#23,
-    16#05, 16#11,
-      16#10, 16#01, 16#02,
-      16#11, 16#02, 16#f1, 16#21, %% IPv4
-      16#12, 16#08, 16#03, "foo", 16#03, "apn",
-    16#14, 16#02,
-      16#AE, 16#FF
-  >>,
-  Map = #{hlr_number => <<145,131,82,56,72,131,147>>,
-                   imsi => <<"123456789012345">>,
-                   message_type => location_upd_res,
-                   msisdn => <<145,148,97,70,50,36,67>>,
-                   pdp_charging => 44799,pdp_info_complete => true,
-                   pdp_info_list =>
-                       #{access_point_name =>
-                              <<4,116,101,115,116,3,97,112,110>>,
-                          pdp_charging => 65315,pdp_context_id => 1,
-                          pdp_type => 61729,
-                          quality_of_service => <<2>>},
-                        #{access_point_name => <<3,102,111,111,3,97,112,110>>,
-                          pdp_context_id => 2,pdp_type => 61729}},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-lc_req_test() ->
-  Bin = <<16#1c, ?TEST_IMSI_IE, 16#06, 16#01, 16#00>>,
-  Map = #{imsi => <<"123456789012345">>, message_type => location_cancellation_req, cancellation_type => 0},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-lc_err_test() ->
-  Bin = <<16#1d, ?TEST_IMSI_IE, 16#02, 16#01, 16#03>>,
-  Map = #{imsi => <<"123456789012345">>, message_type => location_cancellation_err, cause=>3},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-lc_res_test() ->
-  Bin = <<16#1e, ?TEST_IMSI_IE>>,
-  Map = #{imsi => <<"123456789012345">>, message_type => location_cancellation_res},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-purge_ms_req_test() ->
-  Bin = <<16#0c, ?TEST_IMSI_IE>>,
-  Map = #{imsi => <<"123456789012345">>, message_type => purge_ms_req},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-purge_ms_err_test() ->
-  Bin = <<16#0d, ?TEST_IMSI_IE, 16#02, 16#01, 16#03>>,
-  Map = #{imsi => <<"123456789012345">>, message_type => purge_ms_err, cause=>3},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-purge_ms_res_test() ->
-  Bin = <<16#0e, ?TEST_IMSI_IE, 16#07, 16#00>>,
-  Map = #{imsi => <<"123456789012345">>, message_type => purge_ms_res, freeze_p_tmsi => true},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-% dummy_session_test() ->
-%   Bin = <<16#2b, ?TEST_IMSI_IE, %% Session ID and state
-%     16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
-%     16#31, 16#01, 16#01
-%   >>,
-%   Map = #{imsi => <<"123456789012345">>},
-%   ?assertEqual(Map, gsup_protocol:decode(Bin)),
-%   ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-ussd_req_test() ->
-  Bin = <<16#20, ?TEST_IMSI_IE, %% Session ID and state
-    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
-    16#31, 16#01, 16#01,
-
-    %% SS/USSD information IE
-    16#35, 16#14,
-      %% ASN.1 encoded MAP payload
-      16#a1, 16#12,
-        16#02, 16#01, %% Component: invoke
-        16#01, %% invokeID = 1
-        %% opCode: processUnstructuredSS-Request
-        16#02, 16#01, 16#3b, 16#30, 16#0a, 16#04, 16#01, 16#0f,
-        16#04, 16#05, 16#aa, 16#18, 16#0c, 16#36, 16#02
-  >>,
-  Map = #{imsi => <<"123456789012345">>,message_type => ss_req,
-                   session_id => 3735928559,session_state => 1,
-                   ss_info =>
-                       <<161,18,2,1,1,2,1,59,48,10,4,1,15,4,5,170,24,12,54,2>>},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-ussd_res_test() ->
-  Bin = <<16#22, ?TEST_IMSI_IE, %% Session ID and state
-    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
-    16#31, 16#01, 16#03,
-
-    %% SS/USSD information IE
-    16#35, 16#08,
-      %% ASN.1 encoded MAP payload
-      16#a3, 16#06,
-        16#02, 16#01, %% Component: returnError
-        16#01, %% invokeID = 1
-        %% localValue: unknownAlphabet
-        16#02, 16#01, 16#47
-  >>,
-  Map = #{imsi => <<"123456789012345">>,message_type => ss_res,
-                   session_id => 3735928559,session_state => 3,
-                   ss_info => <<163,6,2,1,1,2,1,71>>},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-mo_forward_sm_req_test() ->
-  Bin = <<16#24, ?TEST_IMSI_IE, %% SM related IEs
-    16#40, 16#01, %% SM-RP-MR (Message Reference)
-      16#fa,
-    16#41, 16#08, %% SM-RP-DA (Destination Address)
-      16#03, %% SMSC address
-        16#91, 16#52, 16#75, 16#47, 16#99, 16#09, 16#82,
-    16#42, 16#01, %% SM-RP-OA (Originating Address)
-      16#ff, %% Special case: noSM-RP-OA
-    16#43, 16#04, %% SM-RP-UI (TPDU)
-      16#de, 16#ad, 16#be, 16#ef
-  >>,
-  Map = #{imsi => <<"123456789012345">>,
-                   message_type => mo_forward_sm_req,
-                   sm_rp_da => <<3,145,82,117,71,153,9,130>>,
-                   sm_rp_mr => 250,sm_rp_oa => <<16#ff>>,sm_rp_ui => <<16#de, 16#ad, 16#be, 16#ef>>},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-mt_forward_sm_req_test() ->
-  Bin = <<16#28, ?TEST_IMSI_IE, %% SM related IEs
-    16#40, 16#01, %% SM-RP-MR (Message Reference)
-      16#fa,
-    16#41, 16#09, %% SM-RP-DA (Destination Address)
-      16#01, %% IMSI
-        16#21, 16#43, 16#65, 16#87, 16#09, 16#21, 16#43, 16#f5,
-    16#42, 16#08, %% SM-RP-OA (Originating Address)
-      16#03, %% SMSC address
-        16#91, 16#52, 16#75, 16#47, 16#99, 16#09, 16#82,
-    16#43, 16#04, %% SM-RP-UI (TPDU)
-      16#de, 16#ad, 16#be, 16#ef,
-    16#45, 16#01, %% SM-RP-MMS (More Messages to Send)
-      16#01
-  >>,
-  Map = #{imsi => <<"123456789012345">>,
-                   message_type => mt_forward_sm_req,
-                   sm_rp_da => <<1,33,67,101,135,9,33,67,245>>,
-                   sm_rp_mms => 1,sm_rp_mr => 250,
-                   sm_rp_oa => <<3,145,82,117,71,153,9,130>>,
-                   sm_rp_ui => <<16#de, 16#ad, 16#be, 16#ef>>},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-mo_forward_sm_err_test() ->
-  Bin = <<16#25, ?TEST_IMSI_IE, %% SM related IEs
-    16#40, 16#01, %% SM-RP-MR (Message Reference)
-      16#fa,
-    16#44, 16#01, %% SM-RP-Cause value
-      16#af
-  >>,
-  Map = #{imsi => <<"123456789012345">>,
-                   message_type => mo_forward_sm_err,sm_rp_cause => 175,
-                   sm_rp_mr => 250},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-mt_forward_sm_res_test() ->
-  Bin = <<16#2a, ?TEST_IMSI_IE, %% SM related IEs
-    16#40, 16#01, %% SM-RP-MR (Message Reference)
-      16#fa,
-    16#43, 16#04, %% SM-RP-UI (TPDU)
-      16#de, 16#ad, 16#be, 16#ef
-  >>,
-  Map = #{imsi => <<"123456789012345">>,
-                   message_type => mt_forward_sm_res,sm_rp_mr => 250,
-                   sm_rp_ui => <<16#de, 16#ad, 16#be, 16#ef>>},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-ready_for_sm_req_test() ->
-  Bin = <<16#2c, ?TEST_IMSI_IE,
-    16#40, 16#01, %% SM-RP-MR
-      16#41,
-    16#46, 16#01, %% Alert reason
-      16#02
-  >>,
-  Map = #{imsi => <<"123456789012345">>,
-                   message_type => ready_for_sm_req,
-                   sm_rp_mr => 65,
-                   sm_alert_reason => 2},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-check_imei_req_test() ->
-  Bin = <<16#30, ?TEST_IMSI_IE,
-    16#50, 16#09, %% IMEI
-      16#42, 16#42, 16#42, 16#42, 16#42, 16#42, 16#42, 16#42, 16#42
-  >>,
-  Map = #{imei => <<16#42, 16#42, 16#42, 16#42, 16#42, 16#42, 16#42, 16#42, 16#42>>,imsi => <<"123456789012345">>,
-                   message_type => check_imei_req},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-check_imei_err_test() ->
-  Bin = <<16#31, ?TEST_IMSI_IE, 16#02, 16#01, 16#60>>,
-  Map = #{cause => 96,imsi => <<"123456789012345">>,
-                   message_type => check_imei_err},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-check_imei_res_test() ->
-  Bin = <<16#32, ?TEST_IMSI_IE,
-    16#51, 16#01,
-      16#00 %% OSMO_GSUP_IMEI_RESULT_ACK
-  >>,
-  Map = #{imei_check_result => 0,imsi => <<"123456789012345">>,
-                   message_type => check_imei_res},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-e_prepare_handover_req_test() ->
-  Bin = <<16#34, ?TEST_IMSI_IE,
-    %% Session ID and state (begin)
-    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
-    16#31, 16#01, 16#01,
-
-    ?TEST_CLASS_INTER_MSC_IE,
-    ?TEST_SOURCE_NAME_IE,
-    ?TEST_DESTINATION_NAME_IE,
-    ?TEST_AN_APDU_IE %% (Handover Request)
-  >>,
-  Map = #{an_apdu => <<1,66,66,66,66>>,
-                   destination_name => <<"MSC-B">>,
-                   imsi => <<"123456789012345">>,message_class => 4,
-                   message_type => e_prepare_handover_req,
-                   session_id => 3735928559,session_state => 1,
-                   source_name => <<"MSC-A">>},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-e_prepare_handover_err_test() ->
-  Bin = <<16#35, ?TEST_IMSI_IE,
-    %% Session ID and state (continue)
-    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
-    16#31, 16#01, 16#02,
-
-    ?TEST_CLASS_INTER_MSC_IE,
-    ?TEST_SOURCE_NAME_IE,
-    ?TEST_DESTINATION_NAME_IE,
-    ?TEST_AN_APDU_IE, %% (Handover Request) ??? unknown IE
-    %% cause bssap
-    16#64, 16#01, 16#51
-  >>,
-  Map = #{an_apdu => <<1,66,66,66,66>>,
-                   bssap_cause => 81,destination_name => <<"MSC-B">>,
-                   imsi => <<"123456789012345">>,message_class => 4,
-                   message_type => e_prepare_handover_err,
-                   session_id => 3735928559,session_state => 2,
-                   source_name => <<"MSC-A">>},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-e_prepare_handover_res_test() ->
-  Bin = <<16#36, ?TEST_IMSI_IE,
-    %% Session ID and state (continue)
-    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
-    16#31, 16#01, 16#02,
-
-    ?TEST_CLASS_INTER_MSC_IE,
-    ?TEST_SOURCE_NAME_IE,
-    ?TEST_DESTINATION_NAME_IE,
-    ?TEST_AN_APDU_IE %% (Handover Request)
-  >>,
-  Map = #{an_apdu => <<1,66,66,66,66>>,
-                   destination_name => <<"MSC-B">>,
-                   imsi => <<"123456789012345">>,message_class => 4,
-                   message_type => e_prepare_handover_res,
-                   session_id => 3735928559,session_state => 2,
-                   source_name => <<"MSC-A">>},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-e_prepare_subseq_handover_req_test() ->
-  Bin = <<16#38, ?TEST_IMSI_IE,
-    %% Session ID and state (begin)
-    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
-    16#31, 16#01, 16#01,
-
-    ?TEST_CLASS_INTER_MSC_IE,
-    ?TEST_SOURCE_NAME_IE,
-    ?TEST_DESTINATION_NAME_IE,
-    ?TEST_AN_APDU_IE %% (Handover Request)
-  >>,
-  Map = #{an_apdu => <<1,66,66,66,66>>,
-                   destination_name => <<"MSC-B">>,
-                   imsi => <<"123456789012345">>,message_class => 4,
-                   message_type => e_prepare_subseq_handover_req,
-                   session_id => 3735928559,session_state => 1,
-                   source_name => <<"MSC-A">>},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-e_prepare_subseq_handover_err_test() ->
-  Bin = <<16#39, ?TEST_IMSI_IE,
-    %% Session ID and state (continue)
-    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
-    16#31, 16#01, 16#02,
-
-    ?TEST_CLASS_INTER_MSC_IE,
-    ?TEST_SOURCE_NAME_IE,
-    ?TEST_DESTINATION_NAME_IE,
-    ?TEST_AN_APDU_IE, %% (Handover Request) ??? unknown IE
-    %% cause bssap
-    16#64, 16#01, 16#51
-  >>,
-  Map = #{an_apdu => <<1,66,66,66,66>>,
-                   bssap_cause => 81,destination_name => <<"MSC-B">>,
-                   imsi => <<"123456789012345">>,message_class => 4,
-                   message_type => e_prepare_subseq_handover_err,
-                   session_id => 3735928559,session_state => 2,
-                   source_name => <<"MSC-A">>},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-e_prepare_subseq_handover_res_test() ->
-  Bin = <<16#3a, ?TEST_IMSI_IE,
-    %% Session ID and state (continue)
-    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
-    16#31, 16#01, 16#02,
-
-    ?TEST_CLASS_INTER_MSC_IE,
-    ?TEST_SOURCE_NAME_IE,
-    ?TEST_DESTINATION_NAME_IE,
-    ?TEST_AN_APDU_IE %% (Handover Request)
-  >>,
-  Map = #{an_apdu => <<1,66,66,66,66>>,
-                   destination_name => <<"MSC-B">>,
-                   imsi => <<"123456789012345">>,message_class => 4,
-                   message_type => e_prepare_subseq_handover_res,
-                   session_id => 3735928559,session_state => 2,
-                   source_name => <<"MSC-A">>},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-e_send_end_signal_req_test() ->
-  Bin = <<16#3c, ?TEST_IMSI_IE,
-    %% Session ID and state (end)
-    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
-    16#31, 16#01, 16#03,
-
-    ?TEST_CLASS_INTER_MSC_IE,
-    ?TEST_SOURCE_NAME_IE,
-    ?TEST_DESTINATION_NAME_IE,
-    ?TEST_AN_APDU_IE %% (Handover Request)
-  >>,
-  Map = #{an_apdu => <<1,66,66,66,66>>,
-                   destination_name => <<"MSC-B">>,
-                   imsi => <<"123456789012345">>,message_class => 4,
-                   message_type => e_send_end_signal_req,
-                   session_id => 3735928559,session_state => 3,
-                   source_name => <<"MSC-A">>},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-e_send_end_signal_err_test() ->
-  Bin = <<16#3d, ?TEST_IMSI_IE,
-    %% Session ID and state (end)
-    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
-    16#31, 16#01, 16#03,
-
-    ?TEST_CLASS_INTER_MSC_IE,
-    ?TEST_SOURCE_NAME_IE,
-    ?TEST_DESTINATION_NAME_IE,
-    ?TEST_AN_APDU_IE, %% (Handover Request) ??? unknown IE
-    %% cause bssap
-    16#64, 16#01, 16#51
-  >>,
-  Map = #{an_apdu => <<1,66,66,66,66>>,
-                   bssap_cause => 81,destination_name => <<"MSC-B">>,
-                   imsi => <<"123456789012345">>,message_class => 4,
-                   message_type => e_send_end_signal_err,
-                   session_id => 3735928559,session_state => 3,
-                   source_name => <<"MSC-A">>},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-e_send_end_signal_res_test() ->
-  Bin = <<16#3e, ?TEST_IMSI_IE,
-    %% Session ID and state (end)
-    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
-    16#31, 16#01, 16#03,
-
-    ?TEST_CLASS_INTER_MSC_IE,
-    ?TEST_SOURCE_NAME_IE,
-    ?TEST_DESTINATION_NAME_IE,
-    ?TEST_AN_APDU_IE %% (Handover Request)
-  >>,
-  Map = #{an_apdu => <<1,66,66,66,66>>,
-                   destination_name => <<"MSC-B">>,
-                   imsi => <<"123456789012345">>,message_class => 4,
-                   message_type => e_send_end_signal_res,
-                   session_id => 3735928559,session_state => 3,
-                   source_name => <<"MSC-A">>},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-e_process_access_signalling_req_test() ->
-  Bin = <<16#40, ?TEST_IMSI_IE,
-    %% Session ID and state (continue)
-    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
-    16#31, 16#01, 16#02,
-
-    ?TEST_CLASS_INTER_MSC_IE,
-    ?TEST_SOURCE_NAME_IE,
-    ?TEST_DESTINATION_NAME_IE,
-    ?TEST_AN_APDU_IE %% (Handover Request)
-  >>,
-  Map = #{an_apdu => <<1,66,66,66,66>>,
-                   destination_name => <<"MSC-B">>,
-                   imsi => <<"123456789012345">>,message_class => 4,
-                   message_type => e_process_access_signalling_req,
-                   session_id => 3735928559,session_state => 2,
-                   source_name => <<"MSC-A">>},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-e_forward_access_signalling_req_test() ->
-  Bin = <<16#44, ?TEST_IMSI_IE,
-    %% Session ID and state (continue)
-    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
-    16#31, 16#01, 16#02,
-
-    ?TEST_CLASS_INTER_MSC_IE,
-    ?TEST_SOURCE_NAME_IE,
-    ?TEST_DESTINATION_NAME_IE,
-    ?TEST_AN_APDU_IE %% (Handover Request)
-  >>,
-  Map = #{an_apdu => <<1,66,66,66,66>>,
-                   destination_name => <<"MSC-B">>,
-                   imsi => <<"123456789012345">>,message_class => 4,
-                   message_type => e_forward_access_signalling_req,
-                   session_id => 3735928559,session_state => 2,
-                   source_name => <<"MSC-A">>},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-e_close_test() ->
-  Bin = <<16#47, ?TEST_IMSI_IE,
-    %% Session ID and state (end)
-    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
-    16#31, 16#01, 16#03,
-
-    ?TEST_CLASS_INTER_MSC_IE,
-    ?TEST_SOURCE_NAME_IE,
-    ?TEST_DESTINATION_NAME_IE
-  >>,
-  Map = #{
-                   destination_name => <<"MSC-B">>,
-                   imsi => <<"123456789012345">>,message_class => 4,
-                   message_type => e_close,
-                   session_id => 3735928559,session_state => 3,
-                   source_name => <<"MSC-A">>},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-e_abort_test() ->
-  Bin = <<16#4b, ?TEST_IMSI_IE,
-    %% Session ID and state (end)
-    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
-    16#31, 16#01, 16#03,
-
-    ?TEST_CLASS_INTER_MSC_IE,
-     %% cause bssap
-    16#64, 16#01, 16#51
- >>,
-  Map = #{
-                   imsi => <<"123456789012345">>,message_class => 4,
-                   bssap_cause => 81,message_type => e_abort,
-                   session_id => 3735928559,session_state => 3},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-
-e_routing_error_test() ->
-  Bin = <<16#4e, ?TEST_IMSI_IE,
-    %% Session ID and state (end)
-    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
-    16#31, 16#01, 16#03,
-
-    ?TEST_CLASS_INTER_MSC_IE,
-    ?TEST_SOURCE_NAME_IE,
-    ?TEST_DESTINATION_NAME_IE
-  >>,
-  Map = #{
-                   destination_name => <<"MSC-B">>,
-                   imsi => <<"123456789012345">>,message_class => 4,
-                   message_type => e_routing_err,
-                   session_id => 3735928559,session_state => 3,
-                   source_name => <<"MSC-A">>},
-  ?assertEqual(Map, gsup_protocol:decode(Bin)),
-  ?assertEqual(Bin, gsup_protocol:encode(Map)).
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_gsup/test/ipa_encode_decode_test.erl Deleted

@@ -1,25 +0,0 @@
-% This Source Code Form is subject to the terms of the Mozilla Public
-% License, v. 2.0. If a copy of the MPL was not distributed with this
-% file, You can obtain one at https://mozilla.org/MPL/2.0/.
-% (C) 2019 Andrey Velikiy <agreat22@gmail.com>
-% (C) 2019 Fairwaves (edited) 
-
--module (ipa_encode_decode_test).
-
--include_lib("eunit/include/eunit.hrl").
-
-ping_test() ->
-  ?assertEqual({reply, ping, <<00,01,16#fe,01>>,<<>>}, ipa:decode(<<00,01,16#fe,00>>)),
-  ?assertEqual({reply, ack, <<00,01,16#fe,04>>,<<>>}, ipa:decode(<<00,01,16#fe,06>>)),
-  ?assertEqual({reply, resp, <<00,01,16#fe,06>>,<<>>}, ipa:decode(<<00,01,16#fe,05>>)).
-
-more_data_test() ->
-  ?assertEqual({more_data, <<00,01,16#fe>>}, ipa:decode(<<00,01,16#fe>>)),
-  ?assertEqual({more_data, <<00,06,16#ee,5,1,2>>}, ipa:decode(<<00,06,16#ee,5,1,2>>)).
-
-error_test() ->
-  ?assertEqual({error, {bad_stream_id, 255}}, ipa:decode(<<00,01,16#ff,1>>)),
-  ?assertEqual({error, {bad_protocol_extension, 1}}, ipa:decode(<<00,01,16#ee,1>>)).
-
-ok_test() ->
-  ?assertEqual({ok,{<<1,2,3,4,5>>, <<6,7>>}}, ipa:decode(<<00,06,16#ee,5,1,2,3,4,5,6,7>>)).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7 Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/COPYING Deleted

@@ -1,661 +0,0 @@
-                    GNU AFFERO GENERAL PUBLIC LICENSE
-                       Version 3, 19 November 2007
-
- Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/>
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
-                            Preamble
-
-  The GNU Affero General Public License is a free, copyleft license for
-software and other kinds of works, specifically designed to ensure
-cooperation with the community in the case of network server software.
-
-  The licenses for most software and other practical works are designed
-to take away your freedom to share and change the works.  By contrast,
-our General Public Licenses are intended to guarantee your freedom to
-share and change all versions of a program--to make sure it remains free
-software for all its users.
-
-  When we speak of free software, we are referring to freedom, not
-price.  Our General Public Licenses are designed to make sure that you
-have the freedom to distribute copies of free software (and charge for
-them if you wish), that you receive source code or can get it if you
-want it, that you can change the software or use pieces of it in new
-free programs, and that you know you can do these things.
-
-  Developers that use our General Public Licenses protect your rights
-with two steps: (1) assert copyright on the software, and (2) offer
-you this License which gives you legal permission to copy, distribute
-and/or modify the software.
-
-  A secondary benefit of defending all users' freedom is that
-improvements made in alternate versions of the program, if they
-receive widespread use, become available for other developers to
-incorporate.  Many developers of free software are heartened and
-encouraged by the resulting cooperation.  However, in the case of
-software used on network servers, this result may fail to come about.
-The GNU General Public License permits making a modified version and
-letting the public access it on a server without ever releasing its
-source code to the public.
-
-  The GNU Affero General Public License is designed specifically to
-ensure that, in such cases, the modified source code becomes available
-to the community.  It requires the operator of a network server to
-provide the source code of the modified version running there to the
-users of that server.  Therefore, public use of a modified version, on
-a publicly accessible server, gives the public access to the source
-code of the modified version.
-
-  An older license, called the Affero General Public License and
-published by Affero, was designed to accomplish similar goals.  This is
-a different license, not a version of the Affero GPL, but Affero has
-released a new version of the Affero GPL which permits relicensing under
-this license.
-
-  The precise terms and conditions for copying, distribution and
-modification follow.
-
-                       TERMS AND CONDITIONS
-
-  0. Definitions.
-
-  "This License" refers to version 3 of the GNU Affero General Public License.
-
-  "Copyright" also means copyright-like laws that apply to other kinds of
-works, such as semiconductor masks.
-
-  "The Program" refers to any copyrightable work licensed under this
-License.  Each licensee is addressed as "you".  "Licensees" and
-"recipients" may be individuals or organizations.
-
-  To "modify" a work means to copy from or adapt all or part of the work
-in a fashion requiring copyright permission, other than the making of an
-exact copy.  The resulting work is called a "modified version" of the
-earlier work or a work "based on" the earlier work.
-
-  A "covered work" means either the unmodified Program or a work based
-on the Program.
-
-  To "propagate" a work means to do anything with it that, without
-permission, would make you directly or secondarily liable for
-infringement under applicable copyright law, except executing it on a
-computer or modifying a private copy.  Propagation includes copying,
-distribution (with or without modification), making available to the
-public, and in some countries other activities as well.
-
-  To "convey" a work means any kind of propagation that enables other
-parties to make or receive copies.  Mere interaction with a user through
-a computer network, with no transfer of a copy, is not conveying.
-
-  An interactive user interface displays "Appropriate Legal Notices"
-to the extent that it includes a convenient and prominently visible
-feature that (1) displays an appropriate copyright notice, and (2)
-tells the user that there is no warranty for the work (except to the
-extent that warranties are provided), that licensees may convey the
-work under this License, and how to view a copy of this License.  If
-the interface presents a list of user commands or options, such as a
-menu, a prominent item in the list meets this criterion.
-
-  1. Source Code.
-
-  The "source code" for a work means the preferred form of the work
-for making modifications to it.  "Object code" means any non-source
-form of a work.
-
-  A "Standard Interface" means an interface that either is an official
-standard defined by a recognized standards body, or, in the case of
-interfaces specified for a particular programming language, one that
-is widely used among developers working in that language.
-
-  The "System Libraries" of an executable work include anything, other
-than the work as a whole, that (a) is included in the normal form of
-packaging a Major Component, but which is not part of that Major
-Component, and (b) serves only to enable use of the work with that
-Major Component, or to implement a Standard Interface for which an
-implementation is available to the public in source code form.  A
-"Major Component", in this context, means a major essential component
-(kernel, window system, and so on) of the specific operating system
-(if any) on which the executable work runs, or a compiler used to
-produce the work, or an object code interpreter used to run it.
-
-  The "Corresponding Source" for a work in object code form means all
-the source code needed to generate, install, and (for an executable
-work) run the object code and to modify the work, including scripts to
-control those activities.  However, it does not include the work's
-System Libraries, or general-purpose tools or generally available free
-programs which are used unmodified in performing those activities but
-which are not part of the work.  For example, Corresponding Source
-includes interface definition files associated with source files for
-the work, and the source code for shared libraries and dynamically
-linked subprograms that the work is specifically designed to require,
-such as by intimate data communication or control flow between those
-subprograms and other parts of the work.
-
-  The Corresponding Source need not include anything that users
-can regenerate automatically from other parts of the Corresponding
-Source.
-
-  The Corresponding Source for a work in source code form is that
-same work.
-
-  2. Basic Permissions.
-
-  All rights granted under this License are granted for the term of
-copyright on the Program, and are irrevocable provided the stated
-conditions are met.  This License explicitly affirms your unlimited
-permission to run the unmodified Program.  The output from running a
-covered work is covered by this License only if the output, given its
-content, constitutes a covered work.  This License acknowledges your
-rights of fair use or other equivalent, as provided by copyright law.
-
-  You may make, run and propagate covered works that you do not
-convey, without conditions so long as your license otherwise remains
-in force.  You may convey covered works to others for the sole purpose
-of having them make modifications exclusively for you, or provide you
-with facilities for running those works, provided that you comply with
-the terms of this License in conveying all material for which you do
-not control copyright.  Those thus making or running the covered works
-for you must do so exclusively on your behalf, under your direction
-and control, on terms that prohibit them from making any copies of
-your copyrighted material outside their relationship with you.
-
-  Conveying under any other circumstances is permitted solely under
-the conditions stated below.  Sublicensing is not allowed; section 10
-makes it unnecessary.
-
-  3. Protecting Users' Legal Rights From Anti-Circumvention Law.
-
-  No covered work shall be deemed part of an effective technological
-measure under any applicable law fulfilling obligations under article
-11 of the WIPO copyright treaty adopted on 20 December 1996, or
-similar laws prohibiting or restricting circumvention of such
-measures.
-
-  When you convey a covered work, you waive any legal power to forbid
-circumvention of technological measures to the extent such circumvention
-is effected by exercising rights under this License with respect to
-the covered work, and you disclaim any intention to limit operation or
-modification of the work as a means of enforcing, against the work's
-users, your or third parties' legal rights to forbid circumvention of
-technological measures.
-
-  4. Conveying Verbatim Copies.
-
-  You may convey verbatim copies of the Program's source code as you
-receive it, in any medium, provided that you conspicuously and
-appropriately publish on each copy an appropriate copyright notice;
-keep intact all notices stating that this License and any
-non-permissive terms added in accord with section 7 apply to the code;
-keep intact all notices of the absence of any warranty; and give all
-recipients a copy of this License along with the Program.
-
-  You may charge any price or no price for each copy that you convey,
-and you may offer support or warranty protection for a fee.
-
-  5. Conveying Modified Source Versions.
-
-  You may convey a work based on the Program, or the modifications to
-produce it from the Program, in the form of source code under the
-terms of section 4, provided that you also meet all of these conditions:
-
-    a) The work must carry prominent notices stating that you modified
-    it, and giving a relevant date.
-
-    b) The work must carry prominent notices stating that it is
-    released under this License and any conditions added under section
-    7.  This requirement modifies the requirement in section 4 to
-    "keep intact all notices".
-
-    c) You must license the entire work, as a whole, under this
-    License to anyone who comes into possession of a copy.  This
-    License will therefore apply, along with any applicable section 7
-    additional terms, to the whole of the work, and all its parts,
-    regardless of how they are packaged.  This License gives no
-    permission to license the work in any other way, but it does not
-    invalidate such permission if you have separately received it.
-
-    d) If the work has interactive user interfaces, each must display
-    Appropriate Legal Notices; however, if the Program has interactive
-    interfaces that do not display Appropriate Legal Notices, your
-    work need not make them do so.
-
-  A compilation of a covered work with other separate and independent
-works, which are not by their nature extensions of the covered work,
-and which are not combined with it such as to form a larger program,
-in or on a volume of a storage or distribution medium, is called an
-"aggregate" if the compilation and its resulting copyright are not
-used to limit the access or legal rights of the compilation's users
-beyond what the individual works permit.  Inclusion of a covered work
-in an aggregate does not cause this License to apply to the other
-parts of the aggregate.
-
-  6. Conveying Non-Source Forms.
-
-  You may convey a covered work in object code form under the terms
-of sections 4 and 5, provided that you also convey the
-machine-readable Corresponding Source under the terms of this License,
-in one of these ways:
-
-    a) Convey the object code in, or embodied in, a physical product
-    (including a physical distribution medium), accompanied by the
-    Corresponding Source fixed on a durable physical medium
-    customarily used for software interchange.
-
-    b) Convey the object code in, or embodied in, a physical product
-    (including a physical distribution medium), accompanied by a
-    written offer, valid for at least three years and valid for as
-    long as you offer spare parts or customer support for that product
-    model, to give anyone who possesses the object code either (1) a
-    copy of the Corresponding Source for all the software in the
-    product that is covered by this License, on a durable physical
-    medium customarily used for software interchange, for a price no
-    more than your reasonable cost of physically performing this
-    conveying of source, or (2) access to copy the
-    Corresponding Source from a network server at no charge.
-
-    c) Convey individual copies of the object code with a copy of the
-    written offer to provide the Corresponding Source.  This
-    alternative is allowed only occasionally and noncommercially, and
-    only if you received the object code with such an offer, in accord
-    with subsection 6b.
-
-    d) Convey the object code by offering access from a designated
-    place (gratis or for a charge), and offer equivalent access to the
-    Corresponding Source in the same way through the same place at no
-    further charge.  You need not require recipients to copy the
-    Corresponding Source along with the object code.  If the place to
-    copy the object code is a network server, the Corresponding Source
-    may be on a different server (operated by you or a third party)
-    that supports equivalent copying facilities, provided you maintain
-    clear directions next to the object code saying where to find the
-    Corresponding Source.  Regardless of what server hosts the
-    Corresponding Source, you remain obligated to ensure that it is
-    available for as long as needed to satisfy these requirements.
-
-    e) Convey the object code using peer-to-peer transmission, provided
-    you inform other peers where the object code and Corresponding
-    Source of the work are being offered to the general public at no
-    charge under subsection 6d.
-
-  A separable portion of the object code, whose source code is excluded
-from the Corresponding Source as a System Library, need not be
-included in conveying the object code work.
-
-  A "User Product" is either (1) a "consumer product", which means any
-tangible personal property which is normally used for personal, family,
-or household purposes, or (2) anything designed or sold for incorporation
-into a dwelling.  In determining whether a product is a consumer product,
-doubtful cases shall be resolved in favor of coverage.  For a particular
-product received by a particular user, "normally used" refers to a
-typical or common use of that class of product, regardless of the status
-of the particular user or of the way in which the particular user
-actually uses, or expects or is expected to use, the product.  A product
-is a consumer product regardless of whether the product has substantial
-commercial, industrial or non-consumer uses, unless such uses represent
-the only significant mode of use of the product.
-
-  "Installation Information" for a User Product means any methods,
-procedures, authorization keys, or other information required to install
-and execute modified versions of a covered work in that User Product from
-a modified version of its Corresponding Source.  The information must
-suffice to ensure that the continued functioning of the modified object
-code is in no case prevented or interfered with solely because
-modification has been made.
-
-  If you convey an object code work under this section in, or with, or
-specifically for use in, a User Product, and the conveying occurs as
-part of a transaction in which the right of possession and use of the
-User Product is transferred to the recipient in perpetuity or for a
-fixed term (regardless of how the transaction is characterized), the
-Corresponding Source conveyed under this section must be accompanied
-by the Installation Information.  But this requirement does not apply
-if neither you nor any third party retains the ability to install
-modified object code on the User Product (for example, the work has
-been installed in ROM).
-
-  The requirement to provide Installation Information does not include a
-requirement to continue to provide support service, warranty, or updates
-for a work that has been modified or installed by the recipient, or for
-the User Product in which it has been modified or installed.  Access to a
-network may be denied when the modification itself materially and
-adversely affects the operation of the network or violates the rules and
-protocols for communication across the network.
-
-  Corresponding Source conveyed, and Installation Information provided,
-in accord with this section must be in a format that is publicly
-documented (and with an implementation available to the public in
-source code form), and must require no special password or key for
-unpacking, reading or copying.
-
-  7. Additional Terms.
-
-  "Additional permissions" are terms that supplement the terms of this
-License by making exceptions from one or more of its conditions.
-Additional permissions that are applicable to the entire Program shall
-be treated as though they were included in this License, to the extent
-that they are valid under applicable law.  If additional permissions
-apply only to part of the Program, that part may be used separately
-under those permissions, but the entire Program remains governed by
-this License without regard to the additional permissions.
-
-  When you convey a copy of a covered work, you may at your option
-remove any additional permissions from that copy, or from any part of
-it.  (Additional permissions may be written to require their own
-removal in certain cases when you modify the work.)  You may place
-additional permissions on material, added by you to a covered work,
-for which you have or can give appropriate copyright permission.
-
-  Notwithstanding any other provision of this License, for material you
-add to a covered work, you may (if authorized by the copyright holders of
-that material) supplement the terms of this License with terms:
-
-    a) Disclaiming warranty or limiting liability differently from the
-    terms of sections 15 and 16 of this License; or
-
-    b) Requiring preservation of specified reasonable legal notices or
-    author attributions in that material or in the Appropriate Legal
-    Notices displayed by works containing it; or
-
-    c) Prohibiting misrepresentation of the origin of that material, or
-    requiring that modified versions of such material be marked in
-    reasonable ways as different from the original version; or
-
-    d) Limiting the use for publicity purposes of names of licensors or
-    authors of the material; or
-
-    e) Declining to grant rights under trademark law for use of some
-    trade names, trademarks, or service marks; or
-
-    f) Requiring indemnification of licensors and authors of that
-    material by anyone who conveys the material (or modified versions of
-    it) with contractual assumptions of liability to the recipient, for
-    any liability that these contractual assumptions directly impose on
-    those licensors and authors.
-
-  All other non-permissive additional terms are considered "further
-restrictions" within the meaning of section 10.  If the Program as you
-received it, or any part of it, contains a notice stating that it is
-governed by this License along with a term that is a further
-restriction, you may remove that term.  If a license document contains
-a further restriction but permits relicensing or conveying under this
-License, you may add to a covered work material governed by the terms
-of that license document, provided that the further restriction does
-not survive such relicensing or conveying.
-
-  If you add terms to a covered work in accord with this section, you
-must place, in the relevant source files, a statement of the
-additional terms that apply to those files, or a notice indicating
-where to find the applicable terms.
-
-  Additional terms, permissive or non-permissive, may be stated in the
-form of a separately written license, or stated as exceptions;
-the above requirements apply either way.
-
-  8. Termination.
-
-  You may not propagate or modify a covered work except as expressly
-provided under this License.  Any attempt otherwise to propagate or
-modify it is void, and will automatically terminate your rights under
-this License (including any patent licenses granted under the third
-paragraph of section 11).
-
-  However, if you cease all violation of this License, then your
-license from a particular copyright holder is reinstated (a)
-provisionally, unless and until the copyright holder explicitly and
-finally terminates your license, and (b) permanently, if the copyright
-holder fails to notify you of the violation by some reasonable means
-prior to 60 days after the cessation.
-
-  Moreover, your license from a particular copyright holder is
-reinstated permanently if the copyright holder notifies you of the
-violation by some reasonable means, this is the first time you have
-received notice of violation of this License (for any work) from that
-copyright holder, and you cure the violation prior to 30 days after
-your receipt of the notice.
-
-  Termination of your rights under this section does not terminate the
-licenses of parties who have received copies or rights from you under
-this License.  If your rights have been terminated and not permanently
-reinstated, you do not qualify to receive new licenses for the same
-material under section 10.
-
-  9. Acceptance Not Required for Having Copies.
-
-  You are not required to accept this License in order to receive or
-run a copy of the Program.  Ancillary propagation of a covered work
-occurring solely as a consequence of using peer-to-peer transmission
-to receive a copy likewise does not require acceptance.  However,
-nothing other than this License grants you permission to propagate or
-modify any covered work.  These actions infringe copyright if you do
-not accept this License.  Therefore, by modifying or propagating a
-covered work, you indicate your acceptance of this License to do so.
-
-  10. Automatic Licensing of Downstream Recipients.
-
-  Each time you convey a covered work, the recipient automatically
-receives a license from the original licensors, to run, modify and
-propagate that work, subject to this License.  You are not responsible
-for enforcing compliance by third parties with this License.
-
-  An "entity transaction" is a transaction transferring control of an
-organization, or substantially all assets of one, or subdividing an
-organization, or merging organizations.  If propagation of a covered
-work results from an entity transaction, each party to that
-transaction who receives a copy of the work also receives whatever
-licenses to the work the party's predecessor in interest had or could
-give under the previous paragraph, plus a right to possession of the
-Corresponding Source of the work from the predecessor in interest, if
-the predecessor has it or can get it with reasonable efforts.
-
-  You may not impose any further restrictions on the exercise of the
-rights granted or affirmed under this License.  For example, you may
-not impose a license fee, royalty, or other charge for exercise of
-rights granted under this License, and you may not initiate litigation
-(including a cross-claim or counterclaim in a lawsuit) alleging that
-any patent claim is infringed by making, using, selling, offering for
-sale, or importing the Program or any portion of it.
-
-  11. Patents.
-
-  A "contributor" is a copyright holder who authorizes use under this
-License of the Program or a work on which the Program is based.  The
-work thus licensed is called the contributor's "contributor version".
-
-  A contributor's "essential patent claims" are all patent claims
-owned or controlled by the contributor, whether already acquired or
-hereafter acquired, that would be infringed by some manner, permitted
-by this License, of making, using, or selling its contributor version,
-but do not include claims that would be infringed only as a
-consequence of further modification of the contributor version.  For
-purposes of this definition, "control" includes the right to grant
-patent sublicenses in a manner consistent with the requirements of
-this License.
-
-  Each contributor grants you a non-exclusive, worldwide, royalty-free
-patent license under the contributor's essential patent claims, to
-make, use, sell, offer for sale, import and otherwise run, modify and
-propagate the contents of its contributor version.
-
-  In the following three paragraphs, a "patent license" is any express
-agreement or commitment, however denominated, not to enforce a patent
-(such as an express permission to practice a patent or covenant not to
-sue for patent infringement).  To "grant" such a patent license to a
-party means to make such an agreement or commitment not to enforce a
-patent against the party.
-
-  If you convey a covered work, knowingly relying on a patent license,
-and the Corresponding Source of the work is not available for anyone
-to copy, free of charge and under the terms of this License, through a
-publicly available network server or other readily accessible means,
-then you must either (1) cause the Corresponding Source to be so
-available, or (2) arrange to deprive yourself of the benefit of the
-patent license for this particular work, or (3) arrange, in a manner
-consistent with the requirements of this License, to extend the patent
-license to downstream recipients.  "Knowingly relying" means you have
-actual knowledge that, but for the patent license, your conveying the
-covered work in a country, or your recipient's use of the covered work
-in a country, would infringe one or more identifiable patents in that
-country that you have reason to believe are valid.
-
-  If, pursuant to or in connection with a single transaction or
-arrangement, you convey, or propagate by procuring conveyance of, a
-covered work, and grant a patent license to some of the parties
-receiving the covered work authorizing them to use, propagate, modify
-or convey a specific copy of the covered work, then the patent license
-you grant is automatically extended to all recipients of the covered
-work and works based on it.
-
-  A patent license is "discriminatory" if it does not include within
-the scope of its coverage, prohibits the exercise of, or is
-conditioned on the non-exercise of one or more of the rights that are
-specifically granted under this License.  You may not convey a covered
-work if you are a party to an arrangement with a third party that is
-in the business of distributing software, under which you make payment
-to the third party based on the extent of your activity of conveying
-the work, and under which the third party grants, to any of the
-parties who would receive the covered work from you, a discriminatory
-patent license (a) in connection with copies of the covered work
-conveyed by you (or copies made from those copies), or (b) primarily
-for and in connection with specific products or compilations that
-contain the covered work, unless you entered into that arrangement,
-or that patent license was granted, prior to 28 March 2007.
-
-  Nothing in this License shall be construed as excluding or limiting
-any implied license or other defenses to infringement that may
-otherwise be available to you under applicable patent law.
-
-  12. No Surrender of Others' Freedom.
-
-  If conditions are imposed on you (whether by court order, agreement or
-otherwise) that contradict the conditions of this License, they do not
-excuse you from the conditions of this License.  If you cannot convey a
-covered work so as to satisfy simultaneously your obligations under this
-License and any other pertinent obligations, then as a consequence you may
-not convey it at all.  For example, if you agree to terms that obligate you
-to collect a royalty for further conveying from those to whom you convey
-the Program, the only way you could satisfy both those terms and this
-License would be to refrain entirely from conveying the Program.
-
-  13. Remote Network Interaction; Use with the GNU General Public License.
-
-  Notwithstanding any other provision of this License, if you modify the
-Program, your modified version must prominently offer all users
-interacting with it remotely through a computer network (if your version
-supports such interaction) an opportunity to receive the Corresponding
-Source of your version by providing access to the Corresponding Source
-from a network server at no charge, through some standard or customary
-means of facilitating copying of software.  This Corresponding Source
-shall include the Corresponding Source for any work covered by version 3
-of the GNU General Public License that is incorporated pursuant to the
-following paragraph.
-
-  Notwithstanding any other provision of this License, you have
-permission to link or combine any covered work with a work licensed
-under version 3 of the GNU General Public License into a single
-combined work, and to convey the resulting work.  The terms of this
-License will continue to apply to the part which is the covered work,
-but the work with which it is combined will remain governed by version
-3 of the GNU General Public License.
-
-  14. Revised Versions of this License.
-
-  The Free Software Foundation may publish revised and/or new versions of
-the GNU Affero General Public License from time to time.  Such new versions
-will be similar in spirit to the present version, but may differ in detail to
-address new problems or concerns.
-
-  Each version is given a distinguishing version number.  If the
-Program specifies that a certain numbered version of the GNU Affero General
-Public License "or any later version" applies to it, you have the
-option of following the terms and conditions either of that numbered
-version or of any later version published by the Free Software
-Foundation.  If the Program does not specify a version number of the
-GNU Affero General Public License, you may choose any version ever published
-by the Free Software Foundation.
-
-  If the Program specifies that a proxy can decide which future
-versions of the GNU Affero General Public License can be used, that proxy's
-public statement of acceptance of a version permanently authorizes you
-to choose that version for the Program.
-
-  Later license versions may give you additional or different
-permissions.  However, no additional obligations are imposed on any
-author or copyright holder as a result of your choosing to follow a
-later version.
-
-  15. Disclaimer of Warranty.
-
-  THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
-APPLICABLE LAW.  EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
-HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY
-OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,
-THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
-PURPOSE.  THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM
-IS WITH YOU.  SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
-ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
-
-  16. Limitation of Liability.
-
-  IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
-WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
-THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
-GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
-USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF
-DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
-PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
-EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
-SUCH DAMAGES.
-
-  17. Interpretation of Sections 15 and 16.
-
-  If the disclaimer of warranty and limitation of liability provided
-above cannot be given local legal effect according to their terms,
-reviewing courts shall apply local law that most closely approximates
-an absolute waiver of all civil liability in connection with the
-Program, unless a warranty or assumption of liability accompanies a
-copy of the Program in return for a fee.
-
-                     END OF TERMS AND CONDITIONS
-
-            How to Apply These Terms to Your New Programs
-
-  If you develop a new program, and you want it to be of the greatest
-possible use to the public, the best way to achieve this is to make it
-free software which everyone can redistribute and change under these terms.
-
-  To do so, attach the following notices to the program.  It is safest
-to attach them to the start of each source file to most effectively
-state the exclusion of warranty; and each file should have at least
-the "copyright" line and a pointer to where the full notice is found.
-
-    <one line to give the program's name and a brief idea of what it does.>
-    Copyright (C) <year>  <name of author>
-
-    This program is free software: you can redistribute it and/or modify
-    it under the terms of the GNU Affero General Public License as published by
-    the Free Software Foundation, either version 3 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU Affero General Public License for more details.
-
-    You should have received a copy of the GNU Affero General Public License
-    along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
-Also add information on how to contact you by electronic and paper mail.
-
-  If your software can interact with users remotely through a computer
-network, you should also make sure that it provides a way for users to
-get its source.  For example, if your program is a web application, its
-interface could display a "Source" link that leads users to an archive
-of the code.  There are many ways you could offer source, and different
-solutions will be better for different programs; see section 13 for the
-specific requirements.
-
-  You should also get your employer (if you work as a programmer) or school,
-if any, to sign a "copyright disclaimer" for the program, if necessary.
-For more information on this, and how to apply and follow the GNU AGPL, see
-<http://www.gnu.org/licenses/>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/Emakefile Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/contrib Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/contrib/jenkins.sh Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/ebin Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/ebin/.empty Changed

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/ebin/osmo_ss7.app Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/ebin/osmo_ss7.rel Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/include Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/include/bssmap.hrl Deleted

@@ -1,263 +0,0 @@
-% From libosmocore gsm_08_08.h
-
-% this is from GSM 03.03 CGI but is copied in GSM 08.08
-% in § 3.2.2.27 for Cell Identifier List
--define(CELL_ID_WHOLE_GLOBAL, 0).
--define(CELL_ID_LAC_AND_CI, 1).
--define(CELL_ID_CI, 2).
--define(CELL_ID_NO_CELL, 3).
--define(CELL_ID_LAI_AND_LAC, 4).
--define(CELL_ID_LAC, 5).
--define(CELL_ID_BSS, 6).
--define(CELL_ID_UTRAN_PLMN_LAC_RNC, 8).
--define(CELL_ID_UTRAN_RNC, 9).
--define(CELL_ID_UTRAN_LAC_RNC, 10).
-
-% GSM 08.06 § 6.3 
--define(BSSAP_MSG_BSS_MANAGEMENT, 16#0).
--define(BSSAP_MSG_DTAP, 16#1).
-
-% enum BSSMAP_MSG_TYPE {
--define(BSSMAP_MSG_RESERVED_0, 0).
-% ASSIGNMENT MESSAGES
--define(BSSMAP_MSG_ASS_RQST, 1).
--define(BSSMAP_MSG_ASS_COMPL, 2).
--define(BSSMAP_MSG_ASS_FAILURE, 3).
-% HANDOVER MESSAGES
--define(BSSMAP_MSG_HO_REQ, 16).
--define(BSSMAP_MSG_HO_REQUIRED, 17).
--define(BSSMAP_MSG_HO_REQ_ACK, 18).
--define(BSSMAP_MSG_HO_CMD, 19).
--define(BSSMAP_MSG_HO_COMPL, 20).
--define(BSSMAP_MSG_HO_SUCCEEDED, 21).
--define(BSSMAP_MSG_HO_FAILURE, 22).
--define(BSSMAP_MSG_HO_PERFORMED, 23).
--define(BSSMAP_MSG_HO_CAND_ENQ, 24).
--define(BSSMAP_MSG_HO_CAND_RESP, 25).
--define(BSSMAP_MSG_HO_REQUIRED_REJ, 26).
--define(BSSMAP_MSG_HO_DETECT, 27).
-% RELEASE MESSAGES 
--define(BSSMAP_MSG_CLEAR_CMD, 32).
--define(BSSMAP_MSG_CLEAR_COMPL, 33).
--define(BSSMAP_MSG_CLEAR_RQST, 34).
--define(BSSMAP_MSG_RESERVED_1, 35).
--define(BSSMAP_MSG_RESERVED_2, 36).
--define(BSSMAP_MSG_SAPI_N_REJ, 37).
--define(BSSMAP_MSG_CONFUSION, 38).
-% OTHER CONNECTION RELATED MESSAGES
--define(BSSMAP_MSG_SUSPEND, 40).
--define(BSSMAP_MSG_RESUME, 41).
--define(BSSMAP_MSG_CONN_ORIENT_INFO, 42).
--define(BSSMAP_MSG_PERFORM_LOC_RQST, 43).
--define(BSSMAP_MSG_LSA_INFORMATION, 44).
--define(BSSMAP_MSG_PERFORM_LOC_RESPONSE, 45).
--define(BSSMAP_MSG_PERFORM_LOC_ABORT, 46).
--define(BSSMAP_MSG_COMMON_ID, 47).
-% GENERAL MESSAGES
--define(BSSMAP_MSG_RESET, 48).
--define(BSSMAP_MSG_RESET_ACK, 49).
--define(BSSMAP_MSG_OVERLOAD, 50).
--define(BSSMAP_MSG_RESERVED_3, 51).
--define(BSSMAP_MSG_RESET_CIRC, 52).
--define(BSSMAP_MSG_RESET_CIRC_ACK, 53).
--define(BSSMAP_MSG_MSC_INVOKE_TRACE, 54).
--define(BSSMAP_MSG_BSS_INVOKE_TRACE, 55).
--define(BSSMAP_MSG_CONN_LESS_INFO, 58).
-% TERRESTRIAL RESOURCE MESSAGES
--define(BSSMAP_MSG_BLOCK, 64).
--define(BSSMAP_MSG_BLOCKING_ACK, 65).
--define(BSSMAP_MSG_UNBLOCK, 66).
--define(BSSMAP_MSG_UNBLOCKING_ACK, 67).
--define(BSSMAP_MSG_CIRC_GROUP_BLOCK, 68).
--define(BSSMAP_MSG_CIRC_GROUP_BLOCKING_ACK, 69).
--define(BSSMAP_MSG_CIRC_GROUP_UNBLOCK, 70).
--define(BSSMAP_MSG_CIRC_GROUP_UNBLOCKING_ACK, 71).
--define(BSSMAP_MSG_UNEQUIPPED_CIRCUIT, 72).
--define(BSSMAP_MSG_CHANGE_CIRCUIT, 78).
--define(BSSMAP_MSG_CHANGE_CIRCUIT_ACK, 79).
-% RADIO RESOURCE MESSAGES
--define(BSSMAP_MSG_RESOURCE_RQST, 80).
--define(BSSMAP_MSG_RESOURCE_INDICATION, 81).
--define(BSSMAP_MSG_PAGING, 82).
--define(BSSMAP_MSG_CIPHER_MODE_CMD, 83).
--define(BSSMAP_MSG_CLASSMARK_UPDATE, 84).
--define(BSSMAP_MSG_CIPHER_MODE_COMPL, 85).
--define(BSSMAP_MSG_QUEUING_INDICATION, 86).
--define(BSSMAP_MSG_COMPL_LAYER_3, 87).
--define(BSSMAP_MSG_CLASSMARK_RQST, 88).
--define(BSSMAP_MSG_CIPHER_MODE_REJ, 89).
--define(BSSMAP_MSG_LOAD_INDICATION, 90).
-% VGCS/VBS
--define(BSSMAP_MSG_VGCS_VBS_SETUP, 4).
--define(BSSMAP_MSG_VGCS_VBS_SETUP_ACK, 5).
--define(BSSMAP_MSG_VGCS_VBS_SETUP_REFUSE, 6).
--define(BSSMAP_MSG_VGCS_VBS_ASS_RQST, 7).
--define(BSSMAP_MSG_VGCS_VBS_ASS_RESULT, 28).
--define(BSSMAP_MSG_VGCS_VBS_ASS_FAILURE, 29).
--define(BSSMAP_MSG_VGCS_VBS_QUEUING_INDICATION, 30).
--define(BSSMAP_MSG_UPLINK_RQST, 31).
--define(BSSMAP_MSG_UPLINK_RQST_ACK, 39).
--define(BSSMAP_MSG_UPLINK_RQST_CONFIRMATION, 73).
--define(BSSMAP_MSG_UPLINK_RELEASE_INDICATION, 74).
--define(BSSMAP_MSG_UPLINK_REJ_CMD, 75).
--define(BSSMAP_MSG_UPLINK_RELEASE_CMD, 76).
--define(BSSMAP_MSG_UPLINK_SEIZED_CMD, 77).
-
-% enum BSSMAP_IE_CODING {
--define(BSSMAP_IE_CIRC_ID_CODE, 1).		% TV16
-%-define(BSSMAP_IE_RESERVED_0, 2).
--define(BSSMAP_IE_RES_AVAIL, 3).		% TVf
--define(BSSMAP_IE_CAUSE, 4).			% TLV
--define(BSSMAP_IE_CELL_ID, 5).			% TLV
--define(BSSMAP_IE_PRIORITY, 6).			% TLV
--define(BSSMAP_IE_L3_HDR_INFO, 7).		% TLV
--define(BSSMAP_IE_IMSI, 8).			% TLV
--define(BSSMAP_IE_TMSI, 9).			% TLV
--define(BSSMAP_IE_ENCR_INFO, 10).		% TLV
--define(BSSMAP_IE_CHANNEL_TYPE, 11).		% TLV
--define(BSSMAP_IE_PERIODICITY, 12).		% TV
--define(BSSMAP_IE_EXTD_RES_IND, 13).		% TV
--define(BSSMAP_IE_NUMBER_OF_MSS, 14).		% TV
-%-define(BSSMAP_IE_RESERVED_1, 15).
-%-define(BSSMAP_IE_RESERVED_2, 16).
-%-define(BSSMAP_IE_RESERVED_3, 17).
--define(BSSMAP_IE_CM_INFO_T2, 18).		% TLV
--define(BSSMAP_IE_CM_INFO_T3, 19).		% TLV
--define(BSSMAP_IE_INTERF_BAND_TO_USE, 20).	% TV
--define(BSSMAP_IE_RR_CAUSE, 21).		% TV
-%-define(BSSMAP_IE_RESERVED_4, 22).
--define(BSSMAP_IE_L3_INFO, 23).			% TLV
--define(BSSMAP_IE_DLCI, 24).			% TV
--define(BSSMAP_IE_DOWNLINK_DTX_FLAG, 25).	% TV
--define(BSSMAP_IE_CELL_ID_LIST, 	26).	% TLV
--define(BSSMAP_IE_RESPONSE_RQST, 27).		% TV
--define(BSSMAP_IE_RES_IND_METHOD, 28).		% TV
--define(BSSMAP_IE_CM_INFO_T1, 29).		% TV
--define(BSSMAP_IE_CIRC_ID_CODE_LIST, 30).	% TLV
--define(BSSMAP_IE_DIAGNOSTIC, 31).		% TLV
--define(BSSMAP_IE_L3_MSG_CONTENTS, 32).		% TLV
--define(BSSMAP_IE_CHOSEN_CHANNEL, 33).		% TV
--define(BSSMAP_IE_TOT_RES_ACCESS, 34).		% TVf
--define(BSSMAP_IE_CIPH_RESP_MODE, 35).		% TV
--define(BSSMAP_IE_CHANNEL_NEEDED, 36).		% TV
--define(BSSMAP_IE_TRACE_TYPE, 37).		% TV
--define(BSSMAP_IE_TRIGGERID, 38).		% TLV
--define(BSSMAP_IE_TRACE_REFERENCE, 39).		% TV
--define(BSSMAP_IE_TRANSACTIONID, 40).		% TLV
--define(BSSMAP_IE_MOBILE_IDENTITY, 41).		% TLV
--define(BSSMAP_IE_OMCID, 42).			% TLV
--define(BSSMAP_IE_FORWARD_INDICATOR, 43).	% TV
--define(BSSMAP_IE_CHOSEN_ENCR_ALG, 44).		% TV
--define(BSSMAP_IE_CIRCUIT_POOL, 45).		% TV
--define(BSSMAP_IE_CIRCUIT_POOL_LIST, 46).	% TLV
--define(BSSMAP_IE_TIME_INDICATION, 47).		% TV
--define(BSSMAP_IE_RESOURCE_SITUATION, 48).	% TLV
--define(BSSMAP_IE_CUR_CHAN_TYPE_1, 49).		% TV
--define(BSSMAP_IE_QUEUEING_IND, 50).		% TV
--define(BSSMAP_IE_SPEECH_VERSION, 64).		% TV
--define(BSSMAP_IE_ASS_REQUIREMENT, 51).		% TV
--define(BSSMAP_IE_TALKER_FLAG, 53).		% T
--define(BSSMAP_IE_CONN_REL_RQSTED, 54).		% T
--define(BSSMAP_IE_GROUP_CALL_REFERENCE, 55).	% TLV
--define(BSSMAP_IE_EMLPP_PRIORITY, 56).		% TV
--define(BSSMAP_IE_CONFIG_EVO_INDI, 57).		% TV
--define(BSSMAP_IE_OLD_TO_NEW_BSS_INFO, 58).	% TLV
--define(BSSMAP_IE_LSA_IDENTIFIER, 59).		% TLV
--define(BSSMAP_IE_LSA_IDENTIFIER_LIST, 60).	% TLV
--define(BSSMAP_IE_LSA_INFORMATION, 61).		% TLV
--define(BSSMAP_IE_LCS_QOS, 62).			% TLV
--define(BSSMAP_IE_LSA_ACCESS_CTRL_SUPPR, 63).	% TV
--define(BSSMAP_IE_LCS_PRIORITY, 67).		% TLV
--define(BSSMAP_IE_LOCATION_TYPE, 68).		% TLV
--define(BSSMAP_IE_LOCATION_ESTIMATE, 69).	% TLV
--define(BSSMAP_IE_POSITIONING_DATA, 70).	% TLV
--define(BSSMAP_IE_LCS_CAUSE, 71).		% TLV
--define(BSSMAP_IE_LCS_CLIENT_TYPE, 72).		% TLV
--define(BSSMAP_IE_APDU, 73).			% TLV
--define(BSSMAP_IE_NETWORK_ELEMENT_ID, 74).	% TLV
--define(BSSMAP_IE_GPS_ASSISTANCE_DATA, 75).	% TLV
--define(BSSMAP_IE_DECIPHERING_KEYS, 76).	% TLV
--define(BSSMAP_IE_RETURN_ERROR_RQST, 77).	% TLV
--define(BSSMAP_IE_RETURN_ERROR_CAUSE, 78).	% TLV
--define(BSSMAP_IE_SEGMENTATION, 79).		% TLV
--define(BSSMAP_IE_SERVICE_HANDOVER, 80).	% TLV
--define(BSSMAP_IE_SRC_TGT_RNC_TRANSP_UMTS, 81).	% TLV
--define(BSSMAP_IE_SRC_TGT_RNC_TRANSP_CDMA2K, 82). % TLV
-%-define(BSSMAP_IE_RESERVED_5, 65).
-%-define(BSSMAP_IE_RESERVED_6, 66).
-
-% enum gsm0808_cause {
--define(BSSMAP_CAUSE_RIF_MSG_FAILURE, 0).
--define(BSSMAP_CAUSE_RIF_FAILURE, 1).
--define(BSSMAP_CAUSE_UPLINK_QUALITY, 2).
--define(BSSMAP_CAUSE_UPLINK_STRENGTH, 3).
--define(BSSMAP_CAUSE_DOWNLINK_QUALITY, 4).
--define(BSSMAP_CAUSE_DOWNLINK_STRENGTH, 5).
--define(BSSMAP_CAUSE_DISTANCE, 6).
--define(BSSMAP_CAUSE_O_AND_M_INTERVENTION, 7).
--define(BSSMAP_CAUSE_RESPONSE_TO_MSC_INVOCATION, 8).
--define(BSSMAP_CAUSE_CALL_CONTROL, 9).
--define(BSSMAP_CAUSE_RIF_FAILURE_REVERSION, 10).
--define(BSSMAP_CAUSE_HO_SUCCESSFUL, 11).
--define(BSSMAP_CAUSE_BETTER_CELL, 12).
--define(BSSMAP_CAUSE_DIRECTED_RETRY, 13).
--define(BSSMAP_CAUSE_JOINED_GROUP_CALL_CHANNEL, 14).
--define(BSSMAP_CAUSE_TRAFFIC, 15).
--define(BSSMAP_CAUSE_EQUIPMENT_FAILURE, 32).
--define(BSSMAP_CAUSE_NO_RR_AVAILABLE, 33).
--define(BSSMAP_CAUSE_RQSTED_TERR_RES_UNAVAIL, 34).
--define(BSSMAP_CAUSE_CCCH_OVERLOAD, 35).
--define(BSSMAP_CAUSE_PROCESSOR_OVERLOAD, 36).
--define(BSSMAP_CAUSE_BSS_NOT_EQUIPPED, 37).
--define(BSSMAP_CAUSE_MS_NOT_EQUIPPED, 38).
--define(BSSMAP_CAUSE_INVALID_CELL, 39).
--define(BSSMAP_CAUSE_TRAFFIC_LOAD, 40).
--define(BSSMAP_CAUSE_PREEMPTION, 41).
--define(BSSMAP_CAUSE_RQSTED_TRANSC_RA_UNAVAIL, 48).
--define(BSSMAP_CAUSE_CIRCUIT_POOL_MISMATCH, 49).
--define(BSSMAP_CAUSE_SWITCH_CIRCUIT_POOL, 50).
--define(BSSMAP_CAUSE_RQSTED_SPEECH_V_UNAVAIL, 51).
--define(BSSMAP_CAUSE_LSA_NOT_ALLOWED, 52).
--define(BSSMAP_CAUSE_CIPH_ALG_NOT_SUPPORTED, 64).
--define(BSSMAP_CAUSE_TERR_CIRC_ALLOCATED, 80).
--define(BSSMAP_CAUSE_INV_MSG_CONTENTS, 81).
--define(BSSMAP_CAUSE_IE_OR_FIELD_MISSING, 82).
--define(BSSMAP_CAUSE_INCORRECT_VALUE, 83).
--define(BSSMAP_CAUSE_UNKNOWN_MSG_TYPE, 84).
--define(BSSMAP_CAUSE_UNKNOWN_IE, 85).
--define(BSSMAP_CAUSE_PROT_ERR_BSS_AND_MSC, 96).
-
-% GSM 08.08 3.2.2.11 Channel Type
-% enum gsm0808_chan_indicator {
--define(BSSMAP_CHAN_SPEECH, 1).
--define(BSSMAP_CHAN_DATA, 2).
--define(BSSMAP_CHAN_SIGN, 3).
-
-% enum gsm0808_chan_rate_type_data {
--define(BSSMAP_DATA_FULL_BM, 16#8).
--define(BSSMAP_DATA_HALF_LM, 16#9).
--define(BSSMAP_DATA_FULL_RPREF, 16#a).
--define(BSSMAP_DATA_HALF_PREF, 16#b).
--define(BSSMAP_DATA_FULL_PREF_NO_CHANGE, 16#1a).
--define(BSSMAP_DATA_HALF_PREF_NO_CHANGE, 16#1b).
--define(BSSMAP_DATA_MULTI_MASK, 16#20).
--define(BSSMAP_DATA_MULTI_MASK_NO_CHANGE, 16#30).
-
-% enum gsm0808_chan_rate_type_speech {
--define(BSSMAP_SPEECH_FULL_BM, 16#8).
--define(BSSMAP_SPEECH_HALF_LM, 16#9).
--define(BSSMAP_SPEECH_FULL_PREF, 16#a).
--define(BSSMAP_SPEECH_HALF_PREF, 16#b).
--define(BSSMAP_SPEECH_FULL_PREF_NO_CHANGE, 16#1a).
--define(BSSMAP_SPEECH_HALF_PREF_NO_CHANGE, 16#1b).
--define(BSSMAP_SPEECH_PERM, 16#f).
--define(BSSMAP_SPEECH_PERM_NO_CHANGE, 16#1f).
-
-% enum gsm0808_permitted_speech {
--define(BSSMAP_PERM_FR1, 16#01).
--define(BSSMAP_PERM_FR2, 16#11).
--define(BSSMAP_PERM_FR3, 16#21).
-%	BSSMAP_PERM_HR1	= BSSMAP_PERM_FR1 | 16#4,
-%	BSSMAP_PERM_HR2	= BSSMAP_PERM_FR2 | 16#4,
-%	BSSMAP_PERM_HR3	= BSSMAP_PERM_FR3 | 16#4,
-%};

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/include/gtt.hrl Deleted

@@ -1,34 +0,0 @@
-
--type digit()		:: 0..9.
--type global_title()	:: non_neg_integer().
--type digit_list()	:: digit().
--type nature_of_addr()	:: 1..256.	% FIXME
--type numbering_plan()	:: 1..256.	% FIXME
-
-% Record describing a GTT match
--record(gtt_match, {
-	 gt_range_from	:: global_title(),	% integer(), GT range lower boundary, included
-	 gt_range_to	:: global_title(),	% integer(), GT range upper boundary, included
-	 numbering_plan :: numbering_plan(),
-	 nature_of_addr_ind :: nature_of_addr(),
-	 dpc		:: non_neg_integer(),
-	 ssn		:: non_neg_integer()
- 	}).
-
-% GTT action for replacing some digits
--record(gtt_act_repl_digits, {
-	 replace_digit_start	:: non_neg_integer(),	% digit from which we should replace
-	 replace_digit_end	:: non_neg_integer(),
-	 new_digits		:: digit_list()
-	}).
-
-% GTT action for replacing the numbering plan
--record(gtt_act_repl_num_plan, {
-	numbering_plan		:: numbering_plan()
-	}).
-
-% GTT action for a generic apply/3 call
--record(gtt_act_apply, {
-	 funct,
-	 args			:: list()
-	}).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/include/ipa.hrl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/include/isup.hrl Deleted

@@ -1,114 +0,0 @@
-% Table 1 / Q.762 - ISDN user part message acronyms
-% Table C-3 / Q.762
--define(ISUP_MSGT_ACM, 2#00000110).	%  Address complete
--define(ISUP_MSGT_ANM, 2#00001001).	%  Answer
-%-define(ISUP_MSGT_APM).	%  Application transport
--define(ISUP_MSGT_BLA, 2#00010101).	%  Blocking acknowledgement
--define(ISUP_MSGT_BLO, 2#00010011).	%  Blocking
--define(ISUP_MSGT_CCR, 2#00010001).	%  Continuity check request
--define(ISUP_MSGT_CFN, 2#00101111).	%  Confusion
--define(ISUP_MSGT_CGB, 2#00011000).	%  Circuit group blocking
--define(ISUP_MSGT_CGBA,2#00011010).%  Circuit group blocking acknowledgement
--define(ISUP_MSGT_CGU, 2#00011001).	%  Circuit group unblocking
--define(ISUP_MSGT_CGUA,2#00011011).%  Circuit group unblocking acknowledgement
--define(ISUP_MSGT_CON, 2#00000111).	%  Connect
--define(ISUP_MSGT_COT, 2#00000101).	%  Continuity
--define(ISUP_MSGT_CPG, 2#00101100).	%  Call progress
--define(ISUP_MSGT_CRG, 2#00110001).	%  Charge information
--define(ISUP_MSGT_CQM, 2#00101010).	%  Circuit group query
--define(ISUP_MSGT_CQR, 2#00101011).	%  Circuit group query response
--define(ISUP_MSGT_DRS, 2#00100111).	%  Delayed release (reserved – used in 1988 version)
--define(ISUP_MSGT_FAA, 2#00100000).	%  Facility accepted
-%-define(ISUP_MSGT_FAC).	%  Facility
--define(ISUP_MSGT_FAR, 2#00011111).	%  Facility request
--define(ISUP_MSGT_FOT, 2#00001000).	%  Forward transfer
--define(ISUP_MSGT_FRJ, 2#00100001).	%  Facility reject
--define(ISUP_MSGT_GRA, 2#00101001).	%  Circuit group reset acknowledgement
--define(ISUP_MSGT_GRS, 2#00010111).	%  Circuit group reset
--define(ISUP_MSGT_IAM, 2#00000001).	%  Initial address
-%-define(ISUP_MSGT_IDR).	%  Identification request
-%-define(ISUP_MSGT_IRS).	%  Identification response
--define(ISUP_MSGT_INF, 2#00000100).	%  Information
--define(ISUP_MSGT_INR, 2#00000011).	%  Information request
--define(ISUP_MSGT_LPA, 2#00100100).	%  Loop back acknowledgement
-%-define(ISUP_MSGT_LOP).	%  Loop prevention
-%-define(ISUP_MSGT_NRM).	%  Network resource management
--define(ISUP_MSGT_OLM, 2#00110000).	%  Overload
--define(ISUP_MSGT_PAM, 2#00101000).	%  Pass-along
-%-define(ISUP_MSGT_PRI).	%  Pre-release information
--define(ISUP_MSGT_REL, 2#00001100).	%  Release
--define(ISUP_MSGT_RES, 2#00001110).	%  Resume
--define(ISUP_MSGT_RLC, 2#00010000).	%  Release complete
--define(ISUP_MSGT_RSC, 2#00010010).	%  Reset circuit
--define(ISUP_MSGT_SAM, 2#00000010).	%  Subsequent address
-%-define(ISUP_MSGT_SDM).	%  Subsequent directory number
-%-define(ISUP_MSGT_SGM).	%  Segmentation
--define(ISUP_MSGT_SUS, 2#00001101).	%  Suspend
--define(ISUP_MSGT_UBL, 2#00010100).	%  Unblocking
--define(ISUP_MSGT_UBA, 2#00010110).	%  Unblocking acknowledgement
--define(ISUP_MSGT_UCIC,2#00101110).%  Unequipped circuit identification code
-%-define(ISUP_MSGT_UPA).	%  User part available
-%-define(ISUP_MSGT_UPT).	%  User part test
--define(ISUP_MSGT_USR, 2#00101101).	%  User-to-user information
-
-
-% TABLE C-4/Q.767
--define(ISUP_PAR_ACC_TRANSP,		2#00000011).	% Access transport
--define(ISUP_PAR_AUT_CONG_LVL,		2#00100111).	% Automatic congestion level
--define(ISUP_PAR_BACKW_CALL_IND,	2#00010001).	% Backward call indicators
--define(ISUP_PAR_CALL_MOD_IND,		2#00010111).	% Call modification indicators
--define(ISUP_PAR_CALL_REF,		2#00000001).	% Call reference
--define(ISUP_PAR_CALLED_P_NUM,		2#00000100).	% Called party number
--define(ISUP_PAR_CALLING_P_NUM,		2#00001010).	% Calling party number
--define(ISUP_PAR_CALLING_P_CAT,		2#00001001).	% Calling party category
--define(ISUP_PAR_CAUSE_IND,		2#00010010).	% Cause indicators
--define(ISUP_PAR_CG_SUB_MSGT_IND,	2#00010101).	% Circuit group supervision message type indicator
--define(ISUP_PAR_CIRC_STATE_IND,	2#00100110).	% Circuit state indicator
--define(ISUP_PAR_CLSD_U_INTERL_CODE,	2#00011010).	% Closed user interlock code
--define(ISUP_PAR_CONNECTED_NUM,		2#00100001).	% Connected number
--define(ISUP_PAR_CONN_REQ,		2#00001101).	% Connection request
--define(ISUP_PAR_CONTINUITY_IND,	2#00010000).	% Continuity idnicators
--define(ISUP_PAR_END_OF_OPT,		2#00000000).	% End of optional parameters
--define(ISUP_PAR_EVENT_INFO,		2#00100100).	% Event information
--define(ISUP_PAR_FACILITY_IND,		2#00011000).	% Facility indicators
--define(ISUP_PAR_FW_CALL_IND,		2#00000111).	% Forward call indicators
--define(ISUP_PAR_INFO_IND,		2#00001111).	% Information indicators
--define(ISUP_PAR_INFO_REQ_IND,		2#00001110).	% Information request indicatos
--define(ISUP_PAR_NAT_OF_CONN_IND,	2#00000110).	% Nature of connection indicators
--define(ISUP_PAR_OPT_BW_CALL_IND,	2#00101001).	% Optional backward call indicators
--define(ISUP_PAR_OPT_FW_CALL_IND,	2#00001000).	% Optional forward call indicators
--define(ISUP_PAR_ORIG_CALLED_NUM,	2#00101000).	% Original called number
--define(ISUP_PAR_RANGE_AND_STATUS,	2#00010110).	% Range and status
--define(ISUP_PAR_REDIR_NUM,		2#00001011).	% Redirecting number
--define(ISUP_PAR_REDIR_INFO,		2#00010011).	% Redirection information
--define(ISUP_PAR_REDIRECTION_NUM,	2#00001100).	% Redirection number
--define(ISUP_PAR_SIGN_POINT_CODE,	2#00011110).	% Signalling point code
--define(ISUP_PAR_SUBSEQ_NUM,		2#00000101).	% Subsequent number
--define(ISUP_PAR_SUSP_RES_IND,		2#00100010).	% Suspend/resume indicators
--define(ISUP_PAR_XMIT_NET_SEL,		2#00100011).	% Transmit network selection
--define(ISUP_PAR_TRANSM_MED_REQ,	2#00000010).	% Transmission medium requirement
--define(ISUP_PAR_USER_SERV_INFO,	2#00011101).	% User service information
--define(ISUP_PAR_USER_USER_IND,		2#00101010).	% User-to-user indicators
--define(ISUP_PAR_USER_USER_INFO,	2#00100000).	% User-to-user information
-
--define(ISUP_ADDR_NAT_SUBSCRIBER,	2#0000001).	% Subscriber number
--define(ISUP_ADDR_NAT_NATIONAL,		2#0000011).	% National (significant) number
--define(ISUP_ADDR_NAT_INTERNATIONAL,	2#0000100).	% International number
-
--record(party_number, {
-	nature_of_addr_ind,
-	internal_net_num,	% only in called party
-	number_incompl_ind,	% only in calling party
-	numbering_plan,
-	present_restrict,	% only in calling party
-	screening_ind,		% only in calling party
-	phone_number}
-	).
-
--type isup_cic()	::	0..65535.
-
--record(isup_msg, {
-	msg_type		:: non_neg_integer(),
-	cic			:: isup_cic(),
-	parameters		:: list()
-	}).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/include/m2pa.hrl Deleted

@@ -1,52 +0,0 @@
-% RFC 4165 MTP2 P2P Adaption Layer coding / decoding
-
-% (C) 2012 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
--define(M2PA_PPID,		5).
--define(M2PA_PORT,		3565).
-
-% Section 2.1.3
--define(M2PA_CLASS_M2PA,	11).
-
-% Section 2.1.4
--define(M2PA_TYPE_USER,		1).
--define(M2PA_TYPE_LINK,		2).
-
-% Section 2.3.2
--define(M2PA_LS_ALIGNMENT,	1).
--define(M2PA_LS_PROVING_NORMAL,	2).
--define(M2PA_LS_PROVING_EMERG,	3).
--define(M2PA_LS_READY,		4).
--define(M2PA_LS_PROC_OUTAGE,	5).
--define(M2PA_LS_PROC_RECOVERED,	6).
--define(M2PA_LS_BUSY,		7).
--define(M2PA_LS_BUSY_ENDED,	8).
--define(M2PA_LS_OOS,		9).
-
-% SCTP stream IDs
--define(M2PA_STREAM_STATUS,	0).
--define(M2PA_STREAM_USER,	1).
-
--record(m2pa_msg, {
-		msg_class,
-		msg_type,
-		fwd_seq_nr,
-		back_seq_nr,
-		mtp3,
-		parameters
-	}).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/include/m2ua.hrl Deleted

@@ -1,110 +0,0 @@
-
--define(M2UA_PPID,	2).
--define(M2UA_PORT,	2904).
-
-% RFC 3331 Section 3.1.3 Message Class
--define(M2UA_MSGC_MGMT,		0).	% Management Messages IUA/M2UA/M3UA/SUA
--define(M2UA_MSGC_TRANSFER,	1).	% Transfer Messages M3UA
--define(M2UA_MSGC_SSNM,		2).	% SS7 Signalling Network Management M3UA/SUA
--define(M2UA_MSGC_ASPSM,	3).	% ASP State Maintenance IUA/M2UA/M3UA/SUA
--define(M2UA_MSGC_ASPTM,	4).	% ASP Traffic Maintenance IUA/M2UA/M3UA/SUA
--define(M2UA_MSGC_QPTM,		5).	% Q.921/Q.931 Boundary Primitives Transport IUA
--define(M2UA_MSGC_MAUP,		6).	% MTP2 User Adaption M2UA
--define(M2UA_MSGC_CONNLESS,	7).	% Connectionless Messages SUA
--define(M2UA_MSGC_CONN,		8).	% Connection oriented messages SUA
--define(M2UA_MSGC_RKM,		9).	% Routing Key Management M3UA
--define(M2UA_MSGC_IIM,		10).	% Interface Identifier Management (M2UA)
-
-% RFC 3331 Section 3.1.4 Message Type
--define(M2UA_MAUP_MSGT_RESERVED,	0).
--define(M2UA_MAUP_MSGT_DATA,		1).
--define(M2UA_MAUP_MSGT_EST_REQ,		2).
--define(M2UA_MAUP_MSGT_EST_CONF,	3).
--define(M2UA_MAUP_MSGT_REL_REQ,		4).
--define(M2UA_MAUP_MSGT_REL_CONF,	5).
--define(M2UA_MAUP_MSGT_REL_IND,		6).
--define(M2UA_MAUP_MSGT_STATE_REQ,	7).
--define(M2UA_MAUP_MSGT_STATE_CONF,	8).
--define(M2UA_MAUP_MSGT_STATE_IND,	9).
--define(M2UA_MAUP_MSGT_DATA_RETR_REQ,	10).
--define(M2UA_MAUP_MSGT_DATA_RETR_CONF,	11).
--define(M2UA_MAUP_MSGT_DATA_RETR_IND,	12).
--define(M2UA_MAUP_MSGT_DATA_RETR_COMPL_IND,	13).
--define(M2UA_MAUP_MSGT_CONG_IND,	14).
--define(M2UA_MAUP_MSGT_DATA_ACK,	15).
-
--define(M2UA_ASPSM_MSGT_UP,		0).
--define(M2UA_ASPSM_MSGT_DOWN,		1).
--define(M2UA_ASPSM_MSGT_BEAT,		2).
--define(M2UA_ASPSM_MSGT_UP_ACK,		3).
--define(M2UA_ASPSM_MSGT_DOWN_ACK,	5).
--define(M2UA_ASPSM_MSGT_BEAT_ACK,	6).
-
--define(M2UA_ASPTM_MSGT_ACTIVE,		1).
--define(M2UA_ASPTM_MSGT_INACTIVE,	2).
--define(M2UA_ASPTM_MSGT_ACTIVE_ACK,	3).
--define(M2UA_ASPTM_MSGT_INACTIVE_ACK,	4).
-
--define(M2UA_MGMT_MSGT_ERROR,		0).
--define(M2UA_MGMT_MSGT_NOTIFY,		1).
-
--define(M2UA_MGMT_IIM_REG_REQ,		1).
--define(M2UA_MGMT_IIM_REG_RSP,		2).
--define(M2UA_MGMT_IIM_DEREG_REQ,	3).
--define(M2UA_MGMT_IIM_DEREG_RSP,	4).
-
-% RFC 3331 Section 3.1.6 Common Parameter Tags
-% 0: reserved
--define(M2UA_P_COM_INTF_ID_INT,		1).
-% 2: unused
--define(M2UA_P_COM_INTF_ID_TEXT,	3).
--define(M2UA_P_COM_INFO_STRING,		4).
-% 5: unused
-% 6: unused
--define(M2UA_P_COM_DIAG_INFO,		7).
--define(M2UA_P_COM_INTF_ID_INT_RANGE,	8).
--define(M2UA_P_COM_HEARTB_DATA,		9).
-% 10: unused
--define(M2UA_P_COM_TRAF_MODE_T,		11).
--define(M2UA_P_COM_ERR_CODE,		12).
--define(M2UA_P_COM_STATUS_T,		13).
-% 14: unused
-% 15: unused
-% 16: unused
--define(M2UA_P_COM_ASP_ID,		17).
-% 18: unused
--define(M2UA_P_COM_CORREL_ID,		19).
-
--define(M2UA_P_M2UA_DATA1,		16#300).
--define(M2UA_P_M2UA_DATA2,		16#301).
-
--define(M2UA_P_MAUP_STATE,		16#302).
--define(M2UA_P_MAUP_ACTION,		16#306).
--define(M2UA_P_MAUP_SEQN,		16#307).
--define(M2UA_P_MAUP_RESULT,		16#308).
-
-% Section 3.3.1.5
--define(M2UA_MAUP_S_LPO_SET,		0).
--define(M2UA_MAUP_S_LPO_CLEAR,		1).
--define(M2UA_MAUP_S_EMER_SET,		2).
--define(M2UA_MAUP_S_EMER_CLEAR,		3).
--define(M2UA_MAUP_S_FLUSH_BUFFERS,	4).
-
-% Section 3.3.1.7 State Indication
--define(M2UA_MAUP_SI_RPO_ENTER,		1).
--define(M2UA_MAUP_SI_RPO_EXIT,		2).
--define(M2UA_MAUP_SI_LPO_ENTER,		3).
--define(M2UA_MAUP_SI_LPO_EXIT,		4).
-
-
-% Section 3.3.1.9 Retrieval Request
--define(M2UA_MAUP_ACT_RTRV_BSN,		1).
--define(M2UA_MAUP_ACT_RTRV_MSGS,	2).
-
-
--record(m2ua_msg, {
-	msg_class	:: 0..255,
-	msg_type	:: 0..255,
-	parameters
-	}).
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/include/m3ua.hrl Deleted

@@ -1,75 +0,0 @@
-% M3UA in accordance with RFC4666 (http://tools.ietf.org/html/rfc4666)
-
--define(M3UA_PPID,	3).
--define(M3UA_PORT,	2905).
-
--define(M3UA_MSGC_MGMT,			0).	% Management
--define(M3UA_MSGC_TRANSFER,		1).	% Transfer
--define(M3UA_MSGC_SSNM,			2).	% SS7 Signalling Network Management
--define(M3UA_MSGC_ASPSM,		3).	% ASP State Management
--define(M3UA_MSGC_ASPTM,		4).	% ASP Traffic Maintenance
--define(M3UA_MSGC_RKM,			9).	% Routing Key Management
-
--define(M3UA_MSGT_MGMT_ERR,		0).
--define(M3UA_MSGT_MGMT_NTFY,		1).
-
--define(M3UA_MSGT_XFR_DATA,		1).
-
--define(M3UA_MSGT_SSNM_DUNA,		1).	% Destination Unavailable
--define(M3UA_MSGT_SSNM_DAVA,		2).	% Destination Available
--define(M3UA_MSGT_SSNM_DAUD,		3).	% Destination State Audit
--define(M3UA_MSGT_SSNM_SCON,		4).	% Signalling Congestion
--define(M3UA_MSGT_SSNM_DUPU,		5).	% Destination User Part Unavailable
--define(M3UA_MSGT_SSNM_DRST,		6).	% Destination Restricted
-
--define(M3UA_MSGT_ASPSM_ASPUP,		1).	% ASP Up
--define(M3UA_MSGT_ASPSM_ASPDN,		2).	% ASP Down
--define(M3UA_MSGT_ASPSM_BEAT,		3).	% Heartbeat
--define(M3UA_MSGT_ASPSM_ASPUP_ACK,	4).	% ASP Up Acknowledgement
--define(M3UA_MSGT_ASPSM_ASPDN_ACK,	5).	% ASP Down Acknowledgement
--define(M3UA_MSGT_ASPSM_BEAT_ACK,	6).	% Heartbeat Acknowledgement
-
--define(M3UA_MSGT_ASPTM_ASPAC,		1).	% ASP Active
--define(M3UA_MSGT_ASPTM_ASPIA,		2).	% ASP Inactive
--define(M3UA_MSGT_ASPTM_ASPAC_ACK,	3).	% ASP Active Acknowledgement
--define(M3UA_MSGT_ASPTM_ASPIA_ACK,	4).	% ASP Inactive Acknowledgement
-
--define(M3UA_MSGT_RKM_REG_REQ,		1).	% Registration Request
--define(M3UA_MSGT_RKM_REG_RSP,		2).	% Registration Response
--define(M3UA_MSGT_RKM_DEREG_REQ,	3).	% Deregistration Request
--define(M3UA_MSGT_RKM_DEREG_RSP,	4).	% Deregistration Response
-
--define(M3UA_IEI_INFO_STRING,		16#0004).
--define(M3UA_IEI_ROUTE_CTX,		16#0006).
--define(M3UA_IEI_DIAG_INFO,		16#0007).
--define(M3UA_IEI_HEARTB_DATA,		16#0009).
--define(M3UA_IEI_TRAF_MODE_TYPE,	16#000b).
--define(M3UA_IEI_ERR_CODE,		16#000c).
--define(M3UA_IEI_STATUS,		16#000d).
--define(M3UA_IEI_ASP_ID,		16#0011).
--define(M3UA_IEI_AFFECTED_PC,		16#0012).
--define(M3UA_IEI_CORR_ID,		16#0013).
-% M3UA-Specific parameters
--define(M3UA_IEI_NET_APPEARANCE,	16#0200).
--define(M3UA_IEI_USER_CAUSE,		16#0204).
--define(M3UA_IEI_CONGESTION_IND,	16#0205).
--define(M3UA_IEI_CONCERNED_IND,		16#0206).
--define(M3UA_IEI_ROUTING_KEY,		16#0207).
--define(M3UA_IEI_REG_RESULT,		16#0208).
--define(M3UA_IEI_DEREG_RESULT,		16#0209).
--define(M3UA_IEI_LOCAL_RKEY_ID,		16#020a).
--define(M3UA_IEI_DEST_PC,		16#020b).
--define(M3UA_IEI_SERVICE_IND,		16#020c).
--define(M3UA_IEI_ORIG_PC_LIST,		16#020e).
--define(M3UA_IEI_PROTOCOL_DATA,		16#0210).
--define(M3UA_IEI_REG_STATUS,		16#0212).
--define(M3UA_IEI_DEREG_STATUS,		16#0213).
-
--record(m3ua_msg, {
-	 version	:: 0..255,
-	 msg_class	:: 0..255,
-	 msg_type	:: 0..255,
-	 msg_length	:: non_neg_integer(),
-	 payload
-	}).
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/include/mtp3.hrl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/include/osmo_ss7.hrl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/include/osmo_util.hrl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/include/sccp.hrl Deleted

@@ -1,185 +0,0 @@
-
-% Table 1 / Q.713 - SCCP Message Types
--define(SCCP_MSGT_CR,		1).	% Connection request
--define(SCCP_MSGT_CC,		2).	% Connection confirm
--define(SCCP_MSGT_CREF,		3).	% Connection refused
--define(SCCP_MSGT_RLSD,		4).	% Released
--define(SCCP_MSGT_RLC,		5).	% Release complete
--define(SCCP_MSGT_DT1,		6).	% Data form 1
--define(SCCP_MSGT_DT2,		7).	% Data form 2
--define(SCCP_MSGT_AK,		8).	% Data acknowledgement
--define(SCCP_MSGT_UDT,		9).	% Unitdata
--define(SCCP_MSGT_UDTS,		10).	% Unitdata service
--define(SCCP_MSGT_ED,		11).	% Expedited data
--define(SCCP_MSGT_EA,		12).	% Expedited data ack
--define(SCCP_MSGT_RSR,		13).	% Reset Request
--define(SCCP_MSGT_RSC,		14).	% Reset Confirmation
--define(SCCP_MSGT_ERR,		15).	% Protocol data unit error
--define(SCCP_MSGT_IT,		16).	% Inactivity test
--define(SCCP_MSGT_XUDT,		17).	% Extended unitdata
--define(SCCP_MSGT_XUDTS,	18).	% Extended unitdata service
--define(SCCP_MSGT_LUDT,		19).	% Long unitdata
--define(SCCP_MSGT_LUDTS,	20).	% Long unitdata service
-
-% Table 2 / Q.713 - SCCP parameter name codes
--define(SCCP_PNC_END_OF_OPTIONAL,		0).
--define(SCCP_PNC_DESTINATION_LOCAL_REFERENCE,	1).
--define(SCCP_PNC_SOURCE_LOCAL_REFERENCE,	2).
--define(SCCP_PNC_CALLED_PARTY_ADDRESS,		3).
--define(SCCP_PNC_CALLING_PARTY_ADDRESS,		4).
--define(SCCP_PNC_PROTOCOL_CLASS,		5).
--define(SCCP_PNC_SEGMENTING,			6).
--define(SCCP_PNC_RECEIVE_SEQ_NUMBER,		7).
--define(SCCP_PNC_SEQUENCING,			8).
--define(SCCP_PNC_CREDIT,			9).
--define(SCCP_PNC_RELEASE_CAUSE,			10).
--define(SCCP_PNC_RETURN_CAUSE,			11).
--define(SCCP_PNC_RESET_CAUSE,			12).
--define(SCCP_PNC_ERROR_CAUSE,			13).
--define(SCCP_PNC_REFUSAL_CAUSE,			14).
--define(SCCP_PNC_DATA,				15).
--define(SCCP_PNC_SEGMENTATION,			16).
--define(SCCP_PNC_HOP_COUNTER,			17).
--define(SCCP_PNC_IMPORTANCE,			18).
--define(SCCP_PNC_LONG_DATA,			19).
-
-% According to Q.713 Section 3.4.1
--define(SCCP_GTI_NO_GT,		2#0000).
--define(SCCP_GTI_NAT_ONLY,	2#0001).
--define(SCCP_GTI_TT_ONLY,	2#0010).
--define(SCCP_GTI_TT_NP_ENC,	2#0011).
--define(SCCP_GTI_TT_NP_ENC_NAT,	2#0100).
-
-% According to Q.731 Section 3.4.2.2
--define(SCCP_SSN_UNKNOWN,	2#000000000).
--define(SCCP_SSN_SCCP_MGMT,	2#000000001).
--define(SCCP_SSN_ITU_T,		2#000000010).
--define(SCCP_SSN_ISUP,		2#000000011).
--define(SCCP_SSN_OAM,		2#000000100).
--define(SCCP_SSN_MAP,		2#000000101).
--define(SCCP_SSN_HLR,		2#000000110).
--define(SCCP_SSN_VLR,		2#000000111).
--define(SCCP_SSN_MSC,		2#000001000).
--define(SCCP_SSN_EIR,		2#000001001).
--define(SCCP_SSN_AUC,		2#000001010).
--define(SCCP_SSN_ISDN_SS,	2#000001011).
--define(SCCP_SSN_RES_NAT,	2#000001100).
--define(SCCP_SSN_BISDN,		2#000001101).
--define(SCCP_SSN_TC_TEST,	2#000001110).
-
-% According to Q.731 Section 3.4.2.3.1
--define(SCCP_NAI_SUBSCRIBER,	2#00000001).
--define(SCCP_NAI_NATIONA_SIGN,	2#00000011).
--define(SCCP_NAI_INTERNATIONAL,	2#00000100).
-
-% According to Q.713 Section 3.11 - Release Cause
--define(SCCP_CAUSE_REL_USER_ORIG,	2#00000000).
--define(SCCP_CAUSE_REL_USER_CONG,	2#00000001).
--define(SCCP_CAUSE_REL_USER_FAILURE,	2#00000010).
--define(SCCP_CAUSE_REL_SCCP_USER_ORIG,	2#00000011).
--define(SCCP_CAUSE_REL_REM_PROC_ERR,	2#00000100).
--define(SCCP_CAUSE_REL_INCONS_CONN_DAT,	2#00000101).
--define(SCCP_CAUSE_REL_ACCESS_FAIL,	2#00000110).
--define(SCCP_CAUSE_REL_ACCESS_CONG,	2#00000111).
--define(SCCP_CAUSE_REL_SUBSYS_FAILURE,	2#00001000).
--define(SCCP_CAUSE_REL_SUBSYS_CONG,	2#00001001).
--define(SCCP_CAUSE_REL_MTP_FAILURE,	2#00001010).
--define(SCCP_CAUSE_REL_NET_CONG,	2#00001011).
--define(SCCP_CAUSE_REL_EXP_T_RES,	2#00001100).
--define(SCCP_CAUSE_REL_EXP_T_IAR,	2#00001101).
--define(SCCP_CAUSE_REL_UNQUALIFIED,	2#00001111).
--define(SCCP_CAUSE_REL_SCCP_FAILURE,	2#00010000).
-
-% According to Q.713 Section 3.12 - Return Cause
--define(SCCP_CAUSE_RET_NOTRANS_NATURE,	2#00000000).
--define(SCCP_CAUSE_RET_NOTRANS_ADDR,	2#00000001).
--define(SCCP_CAUSE_RET_SUBSYS_CONG,	2#00000010).
--define(SCCP_CAUSE_RET_SUBSYS_FAILURE,	2#00000011).
--define(SCCP_CAUSE_RET_UNEQUIP_USER,	2#00000100).
--define(SCCP_CAUSE_RET_MTP_FAILURE,	2#00000101).
--define(SCCP_CAUSE_RET_NET_CONG,	2#00000110).
--define(SCCP_CAUSE_RET_UNQUALIFIED,	2#00000111).
--define(SCCP_CAUSE_RET_ERR_MSG_TRANSP,	2#00001000).
--define(SCCP_CAUSE_RET_ERR_LOCAL_PROC,	2#00001001).
--define(SCCP_CAUSE_RET_DEST_NO_REASS,	2#00001010).
--define(SCCP_CAUSE_RET_SCCP_FAILURE,	2#00001011).
--define(SCCP_CAUSE_RET_HOP_CTR_FAIL,	2#00001100).
--define(SCCP_CAUSE_RET_SEG_NOT_SUPP,	2#00001101).
--define(SCCP_CAUSE_RET_SEG_FAILURE,	2#00001110).
-
-% According to Q.713 Section 3.13 - Reset Cause
--define(SCCP_CAUSE_RES_ENDU_ORIGINATED,	2#00000000).
--define(SCCP_CAUSE_RES_SCCP_USER_ORIG,	2#00000001).
--define(SCCP_CAUSE_RES_MSGO_OOO_PS,	2#00000010).
--define(SCCP_CAUSE_RES_MSGO_OOO_PR,	2#00000011).
--define(SCCP_CAUSE_RES_MSGO_OO_WIND,	2#00000100).
--define(SCCP_CAUSE_RES_INC_PS_REINIT,	2#00000101).
--define(SCCP_CAUSE_RES_REM_GENERAL,	2#00000110).
--define(SCCP_CAUSE_RES_REM_OPERATIONAL,	2#00000111).
--define(SCCP_CAUSE_RES_NET_OPERATIONAL,	2#00001000).
--define(SCCP_CAUSE_RES_ACC_OPERATIONAL,	2#00001001).
--define(SCCP_CAUSE_RES_NET_CONG,	2#00001010).
--define(SCCP_CAUSE_RES_UNQUALIFIED,	2#00001100).
-
-% According to Q.713 Section 3.14 - Error Cause
--define(SCCP_CAUSE_ERR_LRN_UNASSIGNED,	2#00000000).
--define(SCCP_CAUSE_ERR_LRN_MISMATCH,	2#00000001).
--define(SCCP_CAUSE_ERR_PC_MISMATCH,	2#00000010).
--define(SCCP_CAUSE_ERR_SCLASS_MISMATCH,	2#00000011).
--define(SCCP_CAUSE_ERR_UNQUALIFIED,	2#00000100).
-
-% According to Q.713 Section 3.15 - Refusal Cause
--define(SCCP_CAUSE_REF_ENDU_ORIGINATED,		2#00000000).
--define(SCCP_CAUSE_REF_ENDU_CONGESTION,		2#00000001).
--define(SCCP_CAUSE_REF_ENDU_FAILURE,		2#00000010).
--define(SCCP_CAUSE_REF_USER_ORIGINATED,		2#00000011).
--define(SCCP_CAUSE_REF_DEST_UNKNOWN,		2#00000100).
--define(SCCP_CAUSE_REF_DEST_INACCESS,		2#00000101).
--define(SCCP_CAUSE_REF_QOS_UNAVAIL_TRANS,	2#00000110).
--define(SCCP_CAUSE_REF_QOS_UNAVAIL_NTRANS,	2#00000111).
--define(SCCP_CAUSE_REF_ACCESS_FAIL,		2#00001000).
--define(SCCP_CAUSE_REF_ACCES_CONGESTION,	2#00001001).
--define(SCCP_CAUSE_REF_SUBSYS_FAILURE,		2#00001010).
--define(SCCP_CAUSE_REF_SUBSYS_CONGESTION,	2#00001011).
--define(SCCP_CAUSE_REF_EXP_CONN_EST_TMR,	2#00001100).
--define(SCCP_CAUSE_REF_INCOMP_USER_DATA,	2#00001101).
--define(SCCP_CAUSE_REF_HOP_COUNTER_VIOL,	2#00010000).
--define(SCCP_CAUSE_REF_NO_GTT_FOR_NATURE,	2#00010010).
--define(SCCP_CAUSE_REF_UNEQUIPPED_USER,		2#00010011).
-
-% SCCP sub-system numbers
--define(SCCP_SSN_MAP_HLR,	6).
--define(SCCP_SSN_MAP_VLR,	7).
--define(SCCP_SSN_MAP_MSC,	8).
--define(SCCP_SSN_MAP_EIR,	9).
--define(SCCP_SSN_MAP_GMLC,	145).
--define(SCCP_SSN_MAP_gsmSCF,	147).
--define(SCCP_SSN_MAP_SGSN,	149).
--define(SCCP_SSN_MAP_GGSN,	150).
-
--type sccp_msg_type()		:: 0..255.
--type sccp_proto_class()	:: 0..3.
-
-% a single parsed SCCP message
--record(sccp_msg, {
-	msg_type	:: sccp_msg_type(),
-	parameters
-	}).
-
-
--record(global_title, {
-	  gti :: 0..15,
-	  nature_of_addr_ind :: 0..127,
-	  trans_type,
-	  encoding	:: 0..15,
-	  numbering_plan:: 0..15,
-	  phone_number
-	}).
-
--record(sccp_addr, {
-	  res_nat_use,
-	  route_on_ssn,
-	  point_code,		% optional
-	  ssn,			% optional
-	  global_title		% optional
-	}).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/include/sua.hrl Deleted

@@ -1,116 +0,0 @@
-% RFC 3868 SUA SCCP User Adaption
-
-% (C) 2012 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
--define(SUA_PPID,	4).
--define(SUA_PORT, 	14001).
-
-% 3.1.2 Message Classes
--define(SUA_MSGC_MGMT,	0).
--define(SUA_MSGC_SNM,	2).
--define(SUA_MSGC_ASPSM,	3).
--define(SUA_MSGC_ASPTM,	4).
--define(SUA_MSGC_CL,	7).
--define(SUA_MSGC_CO,	8).
--define(SUA_MSGC_RKM,	9).
-
-% 3.1.3 Message Types
--define(SUA_MGMT_ERR,	0).
--define(SUA_MGMT_NTFY,	1).
-
--define(SUA_SNM_DUNA,	1).
--define(SUA_SNM_DAVA,	2).
--define(SUA_SNM_DAUD,	3).
--define(SUA_SNM_SCON,	4).
--define(SUA_SNM_DUPU,	5).
--define(SUA_SNM_DRST,	6).
-
--define(SUA_ASPSM_UP,	1).
--define(SUA_ASPSM_DOWN,	2).
--define(SUA_ASPSM_BEAT,	3).
--define(SUA_ASPSM_UP_ACK, 	4).
--define(SUA_ASPSM_DOWN_ACK,	5).
--define(SUA_ASPSM_BEAT_ACK,	6).
-
--define(SUA_ASPTM_ACTIVE,	1).
--define(SUA_ASPTM_INACTIVE,	2).
--define(SUA_ASPTM_ACTIVE_ACK,	3).
--define(SUA_ASPTM_INACTIVE_ACK,	4).
-
--define(SUA_RKM_REG_REQ,	1).
--define(SUA_RKM_REG_RSP,	2).
--define(SUA_RKM_DEREG_REQ,	3).
--define(SUA_RKM_DEREG_RSP,	4).
-
--define(SUA_CL_CLDT,	 1).
--define(SUA_CL_CLDR,	 2).
-
--define(SUA_CO_CORE,	1).
--define(SUA_CO_COAK,	2).
--define(SUA_CO_COREF,	3).
--define(SUA_CO_RELRE,	4).
--define(SUA_CO_RELCO,	5).
--define(SUA_CO_RESCO,	6).
--define(SUA_CO_RESRE,	7).
--define(SUA_CO_CODT,	8).
--define(SUA_CO_CODA,	9).
--define(SUA_CO_COERR,	10).
--define(SUA_CO_COIT,	11).
-
--define(SUA_IEI_ROUTE_CTX,	16#0006).
--define(SUA_IEI_CORR_ID,	16#0013).
--define(SUA_IEI_REG_RESULT,	16#0014).
--define(SUA_IEI_DEREG_RESULT,	16#0015).
-
-% 3.10 SUA specific parameters
-
--define(SUA_IEI_S7_HOP_CTR,	16#0101).
--define(SUA_IEI_SRC_ADDR,	16#0102).
--define(SUA_IEI_DEST_ADDR,	16#0103).
--define(SUA_IEI_SRC_REF,	16#0104).
--define(SUA_IEI_DEST_REF,	16#0105).
--define(SUA_IEI_CAUSE,		16#0106).
--define(SUA_IEI_SEQ_NR,		16#0107).
--define(SUA_IEI_RX_SEQ_NR,	16#0108).
--define(SUA_IEI_ASP_CAPA,	16#0109).
--define(SUA_IEI_CREDIT,		16#010A).
--define(SUA_IEI_DATA,		16#010B).
--define(SUA_IEI_USER_CAUSE,	16#010C).
--define(SUA_IEI_NET_APPEARANCE,	16#010D).
--define(SUA_IEI_ROUTING_KEY,	16#010E).
--define(SUA_IEI_DRN,		16#010F).
--define(SUA_IEI_TID,		16#0110).
--define(SUA_IEI_SMI,		16#0112).
--define(SUA_IEI_IMPORTANCE,	16#0113).
--define(SUA_IEI_MSG_PRIO,	16#0114).
--define(SUA_IEI_PROTO_CLASS,	16#0115).
--define(SUA_IEI_SEQ_CTRL,	16#0116).
--define(SUA_IEI_SEGMENTATION,	16#0117).
--define(SUA_IEI_CONG_LEVEL,	16#0118).
-
--define(SUA_IEI_GT,	16#8001).
--define(SUA_IEI_PC,	16#8002).
--define(SUA_IEI_SSN,	16#8003).
--define(SUA_IEI_IPv4,	16#8004).
--define(SUA_IEI_HOST,	16#8005).
--define(SUA_IEI_IPv6,	16#8006).
-
--define(SUA_RI_GT,	1).
--define(SUA_RI_SSN_PC,	2).
--define(SUA_RI_HOST,	3).
--define(SUA_RI_SSN_IP,	4).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/include/xua.hrl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/priv Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/priv/.empty Changed

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/rebar.config Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/rel Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/rel/files Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/rel/files/app.config Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/rel/files/erl Deleted

@@ -1,34 +0,0 @@
-#!/bin/bash
-
-## This script replaces the default "erl" in erts-VSN/bin. This is necessary
-## as escript depends on erl and in turn, erl depends on having access to a
-## bootscript (start.boot). Note that this script is ONLY invoked as a side-effect
-## of running escript -- the embedded node bypasses erl and uses erlexec directly
-## (as it should). 
-##
-## Note that this script makes the assumption that there is a start_clean.boot
-## file available in $ROOTDIR/release/VSN.
-
-# Determine the abspath of where this script is executing from.
-ERTS_BIN_DIR=$(cd ${0%/*} && pwd)
-
-# Now determine the root directory -- this script runs from erts-VSN/bin,
-# so we simply need to strip off two dirs from the end of the ERTS_BIN_DIR
-# path.
-ROOTDIR=${ERTS_BIN_DIR%/*/*}
-
-# Parse out release and erts info
-START_ERL=`cat $ROOTDIR/releases/start_erl.data`
-ERTS_VSN=${START_ERL% *}
-APP_VSN=${START_ERL#* }
-
-BINDIR=$ROOTDIR/erts-$ERTS_VSN/bin
-EMU=beam
-PROGNAME=`echo $0 | sed 's/.*\\///'`
-CMD="$BINDIR/erlexec"
-export EMU
-export ROOTDIR
-export BINDIR
-export PROGNAME
-
-exec $CMD -boot $ROOTDIR/releases/$APP_VSN/start_clean ${1+"$@"}
\ No newline at end of file

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/rel/files/nodetool Deleted

@@ -1,80 +0,0 @@
-%% -*- erlang -*-
-%% -------------------------------------------------------------------
-%%
-%% nodetool: Helper Script for interacting with live nodes
-%%
-%% -------------------------------------------------------------------
-
-main(Args) ->
-    %% Extract the args
-    {RestArgs, TargetNode} = process_args(Args, , undefined),
-
-    %% See if the node is currently running  -- if it's not, we'll bail
-    case {net_kernel:hidden_connect_node(TargetNode), net_adm:ping(TargetNode)} of
-        {true, pong} ->
-            ok;
-        {_, pang} ->
-            io:format("Node ~p not responding to pings.\n", TargetNode),
-            halt(1)
-    end,
-
-    case RestArgs of
-        "ping" ->
-            %% If we got this far, the node already responsed to a ping, so just dump
-            %% a "pong"
-            io:format("pong\n");
-        "stop" ->
-            io:format("~p\n", rpc:call(TargetNode, init, stop, , 60000));
-        "restart" ->
-            io:format("~p\n", rpc:call(TargetNode, init, restart, , 60000));
-        "reboot" ->
-            io:format("~p\n", rpc:call(TargetNode, init, reboot, , 60000));
-        "rpc", Module, Function | RpcArgs ->
-            case rpc:call(TargetNode, list_to_atom(Module), list_to_atom(Function), RpcArgs, 60000) of
-                ok ->
-                    ok;
-                {badrpc, Reason} ->
-                    io:format("RPC to ~p failed: ~p\n", TargetNode, Reason),
-                    halt(1);
-                _ ->
-                    halt(1)
-            end;
-        Other ->
-            io:format("Other: ~p\n", Other),
-            io:format("Usage: nodetool {ping|stop|restart|reboot}\n")
-    end,
-    net_kernel:stop().
-
-process_args(, Acc, TargetNode) ->
-    {lists:reverse(Acc), TargetNode};
-process_args("-setcookie", Cookie | Rest, Acc, TargetNode) ->
-    erlang:set_cookie(node(), list_to_atom(Cookie)),
-    process_args(Rest, Acc, TargetNode);
-process_args("-name", TargetName | Rest, Acc, _) ->
-    ThisNode = append_node_suffix(TargetName, "_maint_"),
-    {ok, _} = net_kernel:start(ThisNode, longnames),
-    process_args(Rest, Acc, nodename(TargetName));
-process_args("-sname", TargetName | Rest, Acc, _) ->
-    ThisNode = append_node_suffix(TargetName, "_maint_"),
-    {ok, _} = net_kernel:start(ThisNode, shortnames),
-    process_args(Rest, Acc, nodename(TargetName));
-process_args(Arg | Rest, Acc, Opts) ->
-    process_args(Rest, Arg | Acc, Opts).
-
-
-nodename(Name) ->
-    case string:tokens(Name, "@") of
-        _Node, _Host ->
-            list_to_atom(Name);
-        Node ->
-            _, Host = string:tokens(atom_to_list(node()), "@"),
-            list_to_atom(lists:concat(Node, "@", Host))
-    end.
-
-append_node_suffix(Name, Suffix) ->
-    case string:tokens(Name, "@") of
-        Node, Host ->
-            list_to_atom(lists:concat(Node, Suffix, os:getpid(), "@", Host));
-        Node ->
-            list_to_atom(lists:concat(Node, Suffix, os:getpid()))
-    end.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/rel/files/osmo Deleted

@@ -1,149 +0,0 @@
-#!/bin/bash
-# -*- tab-width:4;indent-tabs-mode:nil -*-
-# ex: ts=4 sw=4 et
-
-RUNNER_SCRIPT_DIR=$(cd ${0%/*} && pwd)
-
-RUNNER_BASE_DIR=${RUNNER_SCRIPT_DIR%/*}
-RUNNER_ETC_DIR=$RUNNER_BASE_DIR/etc
-RUNNER_LOG_DIR=$RUNNER_BASE_DIR/log
-PIPE_DIR=/tmp/$RUNNER_BASE_DIR/
-RUNNER_USER=
-
-# Make sure this script is running as the appropriate user
-if  ! -z "$RUNNER_USER"  &&  `whoami` != "$RUNNER_USER" ; then
-    exec sudo -u $RUNNER_USER -i $0 $@
-fi
-
-# Make sure CWD is set to runner base dir
-cd $RUNNER_BASE_DIR
-
-# Make sure log directory exists
-mkdir -p $RUNNER_LOG_DIR
-
-# Extract the target node name from node.args
-NAME_ARG=`grep -e '-s*name' $RUNNER_ETC_DIR/vm.args`
-if  -z "$NAME_ARG" ; then
-    echo "vm.args needs to have either -name or -sname parameter."
-    exit 1
-fi
-
-# Extract the target cookie
-COOKIE_ARG=`grep -e '-setcookie' $RUNNER_ETC_DIR/vm.args`
-if  -z "$COOKIE_ARG" ; then
-    echo "vm.args needs to have a -setcookie parameter."
-    exit 1
-fi
-
-# Identify the script name
-SCRIPT=`basename $0`
-
-# Parse out release and erts info
-START_ERL=`cat $RUNNER_BASE_DIR/releases/start_erl.data`
-ERTS_VSN=${START_ERL% *}
-APP_VSN=${START_ERL#* }
-
-# Add ERTS bin dir to our path
-ERTS_PATH=$RUNNER_BASE_DIR/erts-$ERTS_VSN/bin
-
-# Setup command to control the node
-NODETOOL="$ERTS_PATH/escript $ERTS_PATH/nodetool $NAME_ARG $COOKIE_ARG"
-
-# Check the first argument for instructions
-case "$1" in
-    start)
-        # Make sure there is not already a node running
-        RES=`$NODETOOL ping`
-        if  "$RES" = "pong" ; then
-            echo "Node is already running!"
-            exit 1
-        fi
-        HEART_COMMAND="$RUNNER_BASE_DIR/bin/$SCRIPT start"
-        export HEART_COMMAND
-        mkdir -p $PIPE_DIR
-        # Note the trailing slash on $PIPE_DIR/
-        $ERTS_PATH/run_erl -daemon $PIPE_DIR/ $RUNNER_LOG_DIR "exec $RUNNER_BASE_DIR/bin/$SCRIPT console" 2>&1
-        ;;
-
-    stop)
-        # Wait for the node to completely stop...
-        case `uname -s` in
-            Linux|Darwin|FreeBSD|DragonFly|NetBSD|OpenBSD)
-                # PID COMMAND
-                PID=`ps ax -o pid= -o command=|\
-                    grep "$RUNNER_BASE_DIR/.*/beam"|awk '{print $1}'`
-                ;;
-            SunOS)
-                # PID COMMAND
-                PID=`ps -ef -o pid= -o args=|\
-                    grep "$RUNNER_BASE_DIR/.*/beam"|awk '{print $1}'`
-                ;;
-            CYGWIN*)
-                # UID PID PPID TTY STIME COMMAND
-                PID=`ps -efW|grep "$RUNNER_BASE_DIR/.*/beam"|awk '{print $2}'`
-                ;;
-        esac
-        $NODETOOL stop
-        while `kill -0 $PID 2>/dev/null`;
-        do
-            sleep 1
-        done
-        ;;
-
-    restart)
-        ## Restart the VM without exiting the process
-        $NODETOOL restart
-        ;;
-
-    reboot)
-        ## Restart the VM completely (uses heart to restart it)
-        $NODETOOL reboot
-        ;;
-
-    ping)
-        ## See if the VM is alive
-        $NODETOOL ping
-        ;;
-
-    attach)
-        # Make sure a node IS running
-        RES=`$NODETOOL ping`
-        if  "$RES" != "pong" ; then
-            echo "Node is not running!"
-            exit 1
-        fi
-
-        shift
-        $ERTS_PATH/to_erl $PIPE_DIR
-        ;;
-
-    console)
-        # Setup beam-required vars
-        ROOTDIR=$RUNNER_BASE_DIR
-        BINDIR=$ROOTDIR/erts-$ERTS_VSN/bin
-        EMU=beam
-        PROGNAME=`echo $0 | sed 's/.*\\///'`
-        CMD="$BINDIR/erlexec -boot $RUNNER_BASE_DIR/releases/$APP_VSN/$SCRIPT -embedded -config $RUNNER_ETC_DIR/app.config -args_file $RUNNER_ETC_DIR/vm.args -- ${1+"$@"}"
-        export EMU
-        export ROOTDIR
-        export BINDIR
-        export PROGNAME
-
-        # Dump environment info for logging purposes
-        echo "Exec: $CMD"
-        echo "Root: $ROOTDIR"
-
-        # Log the startup
-        logger -t "$SCRIPT$$" "Starting up"
-
-        # Start the VM
-        exec $CMD
-        ;;
-
-    *)
-        echo "Usage: $SCRIPT {start|stop|restart|reboot|ping|console|attach}"
-        exit 1
-        ;;
-esac
-
-exit 0

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/rel/files/vm.args Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/rel/reltool.config Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/bssmap_codec.erl Deleted

@@ -1,211 +0,0 @@
-% GSM TS 08.08 / 3GPP TS 48.008 BSSMAP
-
-% (C) 2010 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(bssmap_codec).
--author('Harald Welte <laforge@gnumonks.org>').
--include("bssmap.hrl").
-
--export(parse_bssmap_msg/1, encode_bssmap_msg/1).
-
-parse_bssmap_msg(<<MsgType:8, Remain/binary>>) ->
-	parse_bssmap_msgt(MsgType, Remain).
-
-parse_bssmap_msgt(MsgType, Msg) when is_integer(MsgType), is_binary(Msg) ->
-	IeList = parse_ies(Msg, ),
-	{bssmap_msg, MsgType, IeList}.
-
-parse_ies(<<>>, ParsedIeList) ->
-	ParsedIeList;
-parse_ies(Msg, ParsedIeList) when is_binary(Msg) ->
-	CurIe = binary:first(Msg),
-	% Parse current IE and append it to list of Parsed IEs
-	case is_tv_ie(CurIe) of
-		true ->
-			Res = parse_ie_tv(CurIe, Msg);
-		false ->
-			Res = parse_ie(CurIe, Msg)
-	end,
-	{ok, BytesConsumed, ParsedIe} = Res,
-	{CurIe, Payload} = ParsedIe,
-	DecodedIe = decode_ie(CurIe, Payload),
-	ParsedIeList1 = ParsedIeList ++ DecodedIe,
-	%ParsedIeList1 = ParsedIeList ++ ParsedIe,
-	RemainMsg = binary:part(Msg, BytesConsumed, byte_size(Msg)-BytesConsumed),
-	parse_ies(RemainMsg, ParsedIeList1).
-
-% check if this element is of TV type
-is_tv_ie(T) when 
-	T == ?BSSMAP_IE_NUMBER_OF_MSS;
-	T == ?BSSMAP_IE_PERIODICITY;
-	T == ?BSSMAP_IE_EXTD_RES_IND;
-	T == ?BSSMAP_IE_INTERF_BAND_TO_USE;
-	T == ?BSSMAP_IE_RR_CAUSE;
-	T == ?BSSMAP_IE_DLCI;
-	T == ?BSSMAP_IE_DOWNLINK_DTX_FLAG;
-	T == ?BSSMAP_IE_RESPONSE_RQST;
-	T == ?BSSMAP_IE_RES_IND_METHOD;
-	T == ?BSSMAP_IE_CM_INFO_T1;
-	T == ?BSSMAP_IE_CHOSEN_CHANNEL;
-	T == ?BSSMAP_IE_CIPH_RESP_MODE;
-	T == ?BSSMAP_IE_TRACE_TYPE;
-	T == ?BSSMAP_IE_TRACE_REFERENCE;
-	T == ?BSSMAP_IE_FORWARD_INDICATOR;
-	T == ?BSSMAP_IE_CHOSEN_ENCR_ALG;
-	T == ?BSSMAP_IE_CIRCUIT_POOL;
-	T == ?BSSMAP_IE_TIME_INDICATION;
-	T == ?BSSMAP_IE_CUR_CHAN_TYPE_1;
-	T == ?BSSMAP_IE_QUEUEING_IND;
-	T == ?BSSMAP_IE_SPEECH_VERSION;
-	T == ?BSSMAP_IE_ASS_REQUIREMENT;
-	T == ?BSSMAP_IE_EMLPP_PRIORITY;
-	T == ?BSSMAP_IE_CONFIG_EVO_INDI;
-	T == ?BSSMAP_IE_LSA_ACCESS_CTRL_SUPPR ->
-		true;
-is_tv_ie(_T) ->
-		false.
-
-% Parser for any non-TLV and non-TV IEs
-parse_ie(?BSSMAP_IE_CIRC_ID_CODE, Msg) ->
-	<<?BSSMAP_IE_CIRC_ID_CODE:8, Cic:16/big>> = Msg,
-	{ok, 3, {?BSSMAP_IE_CIRC_ID_CODE, Cic}};
-parse_ie(?BSSMAP_IE_CONN_REL_RQSTED, Msg) ->
-	<<?BSSMAP_IE_CONN_REL_RQSTED:8>> = Msg,
-	{ok, 1, {?BSSMAP_IE_CONN_REL_RQSTED, 1}};
-parse_ie(?BSSMAP_IE_RES_AVAIL, Msg) ->
-	<<?BSSMAP_IE_RES_AVAIL:8, ResAvail:8/binary>> = Msg,
-	{ok, 9, {?BSSMAP_IE_RES_AVAIL, ResAvail}};
-parse_ie(?BSSMAP_IE_TOT_RES_ACCESS, Msg) ->
-	<<?BSSMAP_IE_TOT_RES_ACCESS:8, ResAvail:4/binary>> = Msg,
-	{ok, 5, {?BSSMAP_IE_TOT_RES_ACCESS, ResAvail}};
-parse_ie(?BSSMAP_IE_TALKER_FLAG, Msg) ->
-	<<?BSSMAP_IE_TALKER_FLAG:8>> = Msg,
-	{ok, 1, {?BSSMAP_IE_TALKER_FLAG, 1}};
-% Default: Parser for TLV IE
-parse_ie(MsgType, Msg) ->
-	<<MsgType:8, Length:8, Value:Length/binary, _/binary>> = Msg,
-	{ok, 2+Length, {MsgType, Value}}.
-
-% Parser for simple Tag-Value IE
-parse_ie_tv(IeType, Msg) ->
-	<<IeType:8, Par:8>> = Msg,
-	{ok, 2, {IeType, Par}}.
-
-
-% FIXME
-encode_bssmap_msg(_) ->
-	ok.
-
-
-
-
-
-decode_ie(?BSSMAP_IE_CIRC_ID_CODE, <<Pcm:11, Ts:5>>) ->
-	{circuit_id, Pcm, Ts};
-decode_ie(?BSSMAP_IE_IMSI, Remain) ->
-	{imsi, bin_bcd2str(Remain)};
-decode_ie(?BSSMAP_IE_TMSI, <<Tmsi:32>>) ->
-	{tmsi, Tmsi};
-decode_ie(?BSSMAP_IE_L3_HDR_INFO, <<Pdisc:8, Tid:8>>) ->
-	{l3_hdr_info, Pdisc, Tid};
-decode_ie(?BSSMAP_IE_ENCR_INFO, <<Algos:8, Key/binary>>) ->
-	{encr_info, Algos, Key};
-decode_ie(?BSSMAP_IE_CHANNEL_TYPE, <<_:4, Spdi:4, RateType:8, Remain/binary>>) ->
-	{chan_type, Spdi, RateType, Remain};
-decode_ie(?BSSMAP_IE_EXTD_RES_IND, Ri) ->
-	<<_:6, Sm:1, Tarr:1>> = <<Ri>>,
-	{extended_ri, Sm, Tarr};
-decode_ie(?BSSMAP_IE_TOT_RES_ACCESS, <<NumFr:16/big, NumHr:16/big>>) ->
-	{tot_res_access, NumFr, NumHr};
-decode_ie(?BSSMAP_IE_CELL_ID, <<_Spare:4, Discr:4, Remain/binary>>) ->
-	{cell_id, decode_cid_ie(Discr, Remain)};
-decode_ie(?BSSMAP_IE_PRIORITY, <<_:1, Pci:1, Prio:4, Qa:1, Pvi:1>>) ->
-	{priority, Pci, Prio, Qa, Pvi};
-decode_ie(?BSSMAP_IE_CELL_ID_LIST, <<_Spare:4, Discr:4, Remain/binary>>) ->
-	{cell_id_list, decode_cid_list(Discr, Remain, )};
-decode_ie(?BSSMAP_IE_DIAGNOSTIC, <<ErrPtr:8, _:4, BitPtr:4, MsgRecv/binary>>) ->
-	{diagnostic, ErrPtr, BitPtr, MsgRecv};
-decode_ie(?BSSMAP_IE_CHOSEN_CHANNEL, Int) ->
-	<<Mode:4, Chan:4>> = <<Int:8>>,
-	{chosen_channel, Mode, Chan};
-decode_ie(?BSSMAP_IE_MOBILE_IDENTITY, Data) ->
-	% FIXME
-	fixme;
-% Default: don't decode
-decode_ie(IeI, Data) ->
-	{IeI, Data}.
-
-decode_cid_ie(?CELL_ID_WHOLE_GLOBAL, Remain) ->
-	<<Mcc2:4, Mcc1:4, Mnc3:4, Mcc3:4, Mnc2:4, Mnc1:4, Lac:16/big, Ci:16/big>> = Remain,
-	{mcc, Mcc1, Mcc2, Mcc3}, {mnc, Mnc1, Mnc2, Mnc3}, {lac, Lac}, {cid, Ci};
-decode_cid_ie(?CELL_ID_LAC_AND_CI, Remain) ->
-	<<Lac:16/big, Ci:16/big>> = Remain,
-	{lac, Lac}, {cid, Ci};
-decode_cid_ie(?CELL_ID_CI, Remain) ->
-	<<Ci:16/big>> = Remain,
-	{cid, Ci};
-decode_cid_ie(?CELL_ID_NO_CELL, _Remain) ->
-	;
-decode_cid_ie(?CELL_ID_UTRAN_PLMN_LAC_RNC, Remain) ->
-	<<Mcc2:4, Mcc1:4, Mnc3:4, Mcc3:4, Mnc2:4, Mnc1:4, Lac:16/big, Rnc:16/big>> = Remain,
-	{mcc, Mcc1, Mcc2, Mcc3}, {mnc, Mnc1, Mnc2, Mnc3}, {lac, Lac}, {rnc_id, Rnc};
-decode_cid_ie(?CELL_ID_UTRAN_RNC, Remain) ->
-	<<Rnc:16/big>> = Remain,
-	{rnc_id, Rnc};
-decode_cid_ie(?CELL_ID_UTRAN_LAC_RNC, Remain) ->
-	<<Lac:16/big, Rnc:16/big>> = Remain,
-	{lac, Lac}, {rnc_id, Rnc}.
-
-decode_cid_list(Discr, Data, List) ->
-	case Discr of
-		?CELL_ID_WHOLE_GLOBAL -> Len = 7;
-		?CELL_ID_LAC_AND_CI ->	 Len = 4;
-		?CELL_ID_CI ->		 Len = 2;
-		?CELL_ID_NO_CELL ->	 Len = 0;
-		?CELL_ID_UTRAN_PLMN_LAC_RNC -> Len = 7;
-		?CELL_ID_UTRAN_RNC ->	Len = 2;
-		?CELL_ID_UTRAN_LAC_RNC -> Len = 4
-	end,
-	<<Subset:Len/binary, Remain/binary>> = Data,
-	Elem = {cell_id, decode_cid_ie(Discr, Subset)},
-	decode_cid_list(Discr, Remain, List ++ Elem).
-
-
-
-bin_bcd2str(BcdBin) when is_binary(BcdBin) ->
-	bin_bcd2str(BcdBin, ).
-bin_bcd2str(<<>>, List) ->
-	List;
-bin_bcd2str(BcdBin, List) ->
-	<<Nibble:4, Remain/bitstring>> = BcdBin,
-	Char = $0 + Nibble,
-	bin_bcd2str(Remain, List ++ Char).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/ipa_proto.erl Deleted

@@ -1,392 +0,0 @@
-% ip.access IPA multiplex protocol 
-
-% (C) 2010,2012,2019 by Harald Welte <laforge@gnumonks.org>
-% (C) 2010 by On-Waves
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation; either version 2 of the License, or
-% (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-
--module(ipa_proto).
--author('Harald Welte <laforge@gnumonks.org>').
--compile(export_all).
-
--include("ipa.hrl").
-
--define(TIMEOUT, 1000).
--define(IPA_SOCKOPTS, binary, {packet, 0}, {reuseaddr, true}, {active, false}).
-
--define(IPAC_MSGT_PING,		0).
--define(IPAC_MSGT_PONG, 	1).
--define(IPAC_MSGT_ID_GET, 	4).
--define(IPAC_MSGT_ID_RESP, 	5).
--define(IPAC_MSGT_ID_ACK, 	6).
-
--define(IPAC_PROTO_OSMO,	238).
--define(IPAC_PROTO_CCM,		254).
-
--export(register_socket/1, register_stream/3, unregister_stream/2,
-	 send/3, connect/3, connect/4, listen_accept_handle/2,
-	 start_listen/3, controlling_process/3, register_codec/3).
-
--type stream_id() :: integer() | {osmo, integer()}.
-
--record(ipa_socket, {socket, ipaPid, streamTbl, listenType}).
-
--record(ipa_codec, {streamId :: stream_id(),
-		    encodeFn :: fun(),
-		    decodeFn :: fun()
-	}).
-
-% register a TCP socket with this IPA protocol implementation
-register_socket(Socket) ->
-	IpaPid = spawn(?MODULE, init_sock, Socket, self()),
-	% synchronously wait for init_sock to be done
-	receive 
-		{ipa_init_sock_done, Socket} ->
-			% assign ownership of the socket to the new IPA handler process
-			gen_tcp:controlling_process(Socket, IpaPid),
-			{ok, IpaPid}
-	after 
-		?TIMEOUT ->
-			{error, timeout}
-	end.
-
-% call_sync() preceeded by a Socket -> Pid lookup
-call_sync_sock(Socket, Request) ->
-	% resolve PID responsible for this socket
-	case ets:lookup(ipa_sockets, Socket) of
-		IpaSock ->
-			call_sync(IpaSock#ipa_socket.ipaPid, Request);
-		_ ->
-			io:format("No Process for Socket ~p~n", Socket),
-			{error, no_sock_for_pid}
-	end.
-
-% a user process wants to register itself for a given Socket/StreamID tuple
-register_stream(Socket, StreamID, Pid) ->
-	call_sync_sock(Socket, {ipa_reg_stream, Socket, StreamID, Pid}).
-
-register_streams(_S, ) ->
-	ok;
-register_streams(S, {StreamID, Pid}|SList) ->
-	ipa_proto:register_stream(S, StreamID, Pid),
-	register_streams(S, SList).
-
-% unregister for a given stream
-unregister_stream(Socket, StreamID) ->
-	call_sync_sock(Socket, {ipa_unreg_stream, Socket, StreamID}).
-
-% change the controlling process for a given {Socket, StreamID}
-controlling_process(Socket, StreamID, NewPid) ->
-	call_sync_sock(Socket, {ipa_ctrl_proc, Socket, StreamID, NewPid}).
-
-% Set the metadata required for the ipa CCM sub-protocol.
-set_ccm_options(Socket, CcmOptions) ->
-	call_sync_sock(Socket, {ipa_set_ccm_options, Socket, CcmOptions}).
-
-% unblock the socket from further processing
-unblock(Socket) ->
-	call_sync_sock(Socket, {ipa_unblock, Socket}).
-
-% server-side handler for unregister_stream()
-request({ipa_reg_stream, Socket, StreamID, Pid}, _) ->
-	io:format("Registering handler ~p for socket ~p Stream ~p~n", Pid, Socket, StreamID),
-	IpaSock = ets:lookup(ipa_sockets, Socket),
-	ets:insert_new(IpaSock#ipa_socket.streamTbl, {{Socket, StreamID}, Pid});
-% server-side handler for unregister_stream()
-request({ipa_unreg_stream, Socket, StreamID}, _) ->
-	io:format("Unregistering handler for Socket ~p Stream ~p~n", Socket, StreamID),
-	IpaSock = ets:lookup(ipa_sockets, Socket),
-	ets:delete(IpaSock#ipa_socket.streamTbl, {Socket, StreamID});
-% server-side handler for controlling_process()
-request({ipa_ctrl_proc, Socket, StreamID, NewPid}, _) ->
-	io:format("Changing handler for socket ~p Stream ~p~n", Socket, StreamID),
-	IpaSock = ets:lookup(ipa_sockets, Socket),
-	ets:delete(IpaSock#ipa_socket.streamTbl, {Socket, StreamID}),
-	ets:insert_new(IpaSock#ipa_socket.streamTbl, {{Socket, StreamID}, NewPid});
-% server-side handler for set_ccm_options()
-% set ccm protocol metadata options reported with connection setup.
-request({ipa_set_ccm_options, Socket, CcmOptions}, _) ->
-	io:format("Setting ccm options for socket ~p to ~p~n", Socket, CcmOptions),
-	{ccm_options, CcmOptions};
-% server-side handler for unblock()
-request({ipa_unblock, Socket}, CcmOptions) ->
-	if
-		CcmOptions#ipa_ccm_options.initiate_ack -> send_ccm_id_ack(Socket);
-		true -> send_ccm_id_get(Socket)
-	end,
-	io:format("Unblocking socket ~p~n", Socket),
-	%IpaSock = ets:lookup(ipa_sockets, Socket),
-	Ret = inet:setopts(Socket, {active, once}),
-	io:format("Unblocking socket ~p:~p~n", Socket, Ret).
-
-% split an incoming IPA message and split it into Length/StreamID/Payload
-split_ipa_msg(DataBin) ->
-	% FIXME: This will throw an exception if DataBin doesn't contain all payload
-	<<Length:16/big-unsigned-integer, StreamID:8, Payload:Length/binary, Trailer/binary>> = DataBin,
-	io:format("Stream ~p, ~p bytes~n", StreamID, Length),
-	{StreamID, Payload, Trailer}.
-
-% deliver an incoming message to the process that is registered for the socket/stream_id
-deliver_rx_ipa_msg(Socket, StreamID, StreamMap, DataBin) ->
-	DataDec = try_decode(StreamID, DataBin),
-	case ets:lookup(StreamMap, {Socket, StreamID}) of
-		{_,{process_id, Pid}} ->
-			Pid ! {ipa, Socket, StreamID, DataDec};
-		{_,{callback_fn, Fn, Args}} ->
-			Fn(Socket, StreamID, DataDec, Args);
-		 ->
-			io:format("No Pid registered for Socket ~p Stream ~p~n", Socket, StreamID)
-	end.
-
-% register a Codec with this IPA protocol implementation
--spec register_codec(stream_id(), fun(), fun()) -> boolean().
-register_codec(StreamID, EncodeFn, DecodeFn) ->
-	ets:insert(ipa_codecs, #ipa_codec{streamId=StreamID, encodeFn=EncodeFn, decodeFn=DecodeFn}).
-
--spec try_decode(stream_id(), binary()) -> any().
-try_decode(StreamID, Data) ->
-	case ets:lookup(ipa_codecs, StreamID) of
-		IpaCodec ->
-			Fun = IpaCodec#ipa_codec.decodeFn,
-			Fun(Data);
-		 ->
-			Data
-	end.
-
--spec try_encode(stream_id(), any()) -> binary().
-try_encode(_StreamID, Data) when is_binary(Data) ->
-	Data;
-try_encode(StreamID, Data) ->
-	case ets:lookup(ipa_codecs, StreamID) of
-		IpaCodec ->
-			Fun = IpaCodec#ipa_codec.encodeFn,
-			Fun(Data);
-		 ->
-			Data
-	end.
-
-% process (split + deliver) an incoming IPA message
-process_rx_ipa_msg(_S, _StreamMap, _, <<>>) ->
-	ok;
-process_rx_ipa_msg(S, StreamMap, CcmOptions, Data) ->
-	{StreamID, PayloadBin, Trailer} = split_ipa_msg(Data),
-	case StreamID of
-		?IPAC_PROTO_CCM ->
-			process_rx_ccm_msg(S, StreamID, CcmOptions, PayloadBin);
-		?IPAC_PROTO_OSMO ->
-			<<ExtStreamID:8, PayloadExt/binary>> = PayloadBin,
-			deliver_rx_ipa_msg(S, {osmo, ExtStreamID}, StreamMap, PayloadExt);
-		_ ->
-			deliver_rx_ipa_msg(S, StreamID, StreamMap, PayloadBin)
-	end,
-	process_rx_ipa_msg(S, StreamMap, CcmOptions, Trailer).
-
-send_close_signal() ->
-	ok;
-send_close_signal(StreamSpec|Tail) ->
-	io:format("send_close_signal ~p ~p~n", StreamSpec, Tail),
-	case StreamSpec of
-		{{Socket, StreamID}, {process_id, Pid}} ->
-			Pid ! {ipa_closed, {Socket, StreamID}};
-		{{Socket, StreamID}, {callback_fn, Fn, Args}} ->
-			Fn(Socket, StreamID, ipa_closed, Args)
-	end,
-	send_close_signal(Tail).
-
-process_tcp_closed(S, StreamMap) ->
-	% signal the closed socket to the user
-	StreamList = ets:match(StreamMap, '$1'),
-	send_close_signal(StreamList),
-	% remove the stream map for this socket
-	ets:delete(StreamMap),
-	% remove any entry regarding 'S' from ipa_sockets
-	ets:delete(ipa_sockets, S),
-	ok.
-
-% send a binary message through a given Socket / StreamID
-send(Socket, {osmo, StreamIdExt}, DataBin) ->
-	DataEnc = try_encode({osmo, StreamIdExt}, DataBin),
-	send(Socket, ?IPAC_PROTO_OSMO, StreamIdExt, DataEnc);
-send(Socket, StreamID, DataBin) ->
-	DataEnc = try_encode(StreamID, DataBin),
-	Size = iolist_size(DataEnc),
-	gen_tcp:send(Socket, iolist_to_binary(<<Size:2/big-unsigned-integer-unit:8>>, StreamID, DataEnc)).
-
-
-call_sync(Pid, Request) ->
-	Ref = make_ref(),
-	Pid ! {request, {self(), Ref}, Request},
-	receive
-		{reply, Ref, Reply} -> Reply
-	after
-		?TIMEOUT -> {error, timeout}
-	end.
-
-reply({From, Ref}, Reply) ->
-	From ! {reply, Ref, Reply}.
-
-
-% global module initialization
-init() ->
-	ipa_sockets = ets:new(ipa_sockets, named_table, set, public, {keypos, #ipa_socket.socket}),
-	ipa_codecs = ets:new(ipa_codecs, named_table, set, public, {keypos, #ipa_codec.streamId}).
-
-% initialize a signle socket, create its handle process
-init_sock(Socket, CallingPid) ->
-	StreamMap = ets:new(stream_map, set),
-	ets:insert(ipa_sockets, #ipa_socket{socket=Socket, ipaPid=self(), streamTbl=StreamMap}),
-	CallingPid ! {ipa_init_sock_done, Socket},
-	loop(Socket, StreamMap, #ipa_ccm_options{}).
-
-loop(S, StreamMap, CcmOptions) ->
-	receive
-		{request, From, Request} ->
-			case ipa_proto:request(Request, CcmOptions) of
-				{ccm_options, NewCcmOptions} ->
-					NextCcmOptions = NewCcmOptions,
-					Reply = ok;
-				EmbeddedReply ->
-					NextCcmOptions = CcmOptions,
-					Reply = EmbeddedReply
-			end,
-			ipa_proto:reply(From, Reply),
-			ipa_proto:loop(S, StreamMap, NextCcmOptions);
-		{ipa_send, S, StreamId, Data} ->
-			send(S, StreamId, Data),
-			ipa_proto:loop(S, StreamMap, CcmOptions);
-		{tcp, S, Data} ->
-			% process incoming IPA message and mark socket active once more
-			ipa_proto:process_rx_ipa_msg(S, StreamMap, CcmOptions, Data),
-			inet:setopts(S, {active, once}),
-			ipa_proto:loop(S, StreamMap, CcmOptions);
-		{tcp_closed, S} ->
-			io:format("Socket ~w closed ~w~n", S,self()),
-			ipa_proto:process_tcp_closed(S, StreamMap),
-			% terminate the process by not looping further
-			ok
-	end.
-
-% Respond with PONG to PING
-process_ccm_msg(Socket, StreamID, _, ping, _) ->
-	io:format("Socket ~p Stream ~p: PING -> PONG~n", Socket, StreamID),
-	send(Socket, StreamID, <<?IPAC_MSGT_PONG>>);
-% Respond to ID_ACK with ID_ACK if this instance did not initiate
-process_ccm_msg(Socket, StreamID, CcmOptions, id_ack, _) ->
-	if
-		CcmOptions#ipa_ccm_options.initiate_ack /= true ->
-			% Only respond to an ack if this instance did
-			% not initiate to prevent an infinite ack loop.
-			io:format("Socket ~p Stream ~p: ID_ACK -> ID_ACK~n", Socket, StreamID),
-			send(Socket, StreamID, <<?IPAC_MSGT_ID_ACK>>);
-		true ->
-			io:format("Socket ~p Stream ~p: ID_ACK -> None~n", Socket, StreamID)
-	end;
-% Simply respond to ID_RESP with ID_ACK
-process_ccm_msg(Socket, StreamID, _, id_resp, _) ->
-	io:format("Socket ~p Stream ~p: ID_RESP -> ID_ACK~n", Socket, StreamID),
-	send(Socket, StreamID, <<?IPAC_MSGT_ID_ACK>>);
-% Simply respond to ID_GET with ID_RESP
-process_ccm_msg(Socket, StreamID, CcmOptions, id_req, _) ->
-	io:format("Socket ~p Stream ~p: ID_GET -> ID_RESP~n", Socket, StreamID),
-	CcmBin = ipa_proto_ccm:encode(
-		{id_resp,
-		 {string,serial_nr,CcmOptions#ipa_ccm_options.serial_number},
-		  {string,unit_id,CcmOptions#ipa_ccm_options.unit_id},
-		  {string,mac_address,CcmOptions#ipa_ccm_options.mac_address},
-		  {string,location,CcmOptions#ipa_ccm_options.location},
-		  {string,unit_type,CcmOptions#ipa_ccm_options.unit_type},
-		  {string,equip_vers,CcmOptions#ipa_ccm_options.equipment_version},
-		  {string,sw_version,CcmOptions#ipa_ccm_options.sw_version},
-		  {string,unit_name,CcmOptions#ipa_ccm_options.unit_name}
-		 }),
-	send(Socket, StreamID, CcmBin);
-
-% Default message handler for unknown messages
-process_ccm_msg(Socket, StreamID, _, MsgType, Opts) ->
-	io:format("Socket ~p Stream ~p: Unknown CCM message type ~p Opts ~p~n",
-		  Socket, StreamID, MsgType, Opts).
-
-% process an incoming CCM message (Stream ID 254)
-process_rx_ccm_msg(Socket, StreamID, CcmOptions, PayloadBin) ->
-	{MsgType, Opts} = ipa_proto_ccm:decode(PayloadBin),
-	process_ccm_msg(Socket, StreamID, CcmOptions, MsgType, Opts).
-
-send_ccm_id_get(Socket) ->
-	send(Socket, ?IPAC_PROTO_CCM, <<?IPAC_MSGT_ID_GET>>).
-
-send_ccm_id_ack(Socket) ->
-	send(Socket, ?IPAC_PROTO_CCM, <<?IPAC_MSGT_ID_ACK>>).
-
-% convenience wrapper for interactive use / debugging from the shell
-listen_accept_handle(LPort, Opts) ->
-	case gen_tcp:listen(LPort, ?IPA_SOCKOPTS ++ Opts) of
-		{ok, ListenSock} ->
-			{ok, Port} = inet:port(ListenSock),
-			{ok, Sock} = gen_tcp:accept(ListenSock),
-			{ok, IpaPid} = ipa_proto:register_socket(Sock),
-			ipa_proto:register_stream(Sock, 0, self()),
-			ipa_proto:register_stream(Sock, 255, self()),
-			gen_tcp:controlling_process(Sock, IpaPid),
-			{ok, Port};
-		{error, Reason} ->
-			{error, Reason}
-	end.
-
-% gen_tcp:connect() convenience wrappers
-connect(Address, Port, Options) ->
-	connect(Address, Port, Options, infinity).
-
-connect(Address, Port, Options, Timeout) ->
-	case gen_tcp:connect(Address, Port, ?IPA_SOCKOPTS ++ Options, Timeout) of
-		{ok, Socket} ->
-			case ipa_proto:register_socket(Socket) of
-				{ok, IpaPid} ->
-					{ok, {Socket, IpaPid}};
-				{error, Reason} ->
-					gen_tcp:close(Socket),
-					{error, Reason}
-			end;
-		{error, Reason} ->
-			{error, Reason}
-	end.
-
-% Utility function to continuously server incomming IPA connections on a
-% listening TCP socket
-start_listen(LPort, NumServers, Opts) ->
-	case gen_tcp:listen(LPort, ?IPA_SOCKOPTS ++ Opts) of
-		{ok, ListenSock} ->
-			start_servers(NumServers, ListenSock, self()),
-			{ok, Port} = inet:port(ListenSock),
-			Port;
-		{error, Reason} ->
-			{error, Reason}
-	end.
-
-start_servers(0, _, _) ->
-	ok;
-start_servers(Num, LS, CtrlPid) ->
-	spawn(?MODULE, listen_server, LS, CtrlPid),
-	start_servers(Num-1, LS, CtrlPid).
-
-listen_server(LS, CtrlPid) ->
-	case gen_tcp:accept(LS) of
-		{ok, S} ->
-			io:format("Accepted TCP connection from ~p~n", inet:peername(S)),
-			% assign the socket to the Controlling process
-			gen_tcp:controlling_process(S, CtrlPid),
-			CtrlPid ! {ipa_tcp_accept, S},
-			listen_server(LS, CtrlPid);
-		Other ->
-			io:format("accept returned ~w - goodbye!~n", Other),
-			ok
-	end.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/ipa_proto_ccm.erl Deleted

@@ -1,115 +0,0 @@
-% ip.access IPA CCM protocol 
-
-% (C) 2019 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation; either version 2 of the License, or
-% (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-
--module(ipa_proto_ccm).
--author('Harald Welte <laforge@gnumonks.org>').
-
--export(decode/1, encode/1).
-
--define(TESTMSG, <<5,0,7,8,48,47,48,47,48,0,0,19,7,48,48,58,48,48,58,48,48,58,48,48,58,48,48,58,
-  48,48,0,0,19,2,48,48,58,48,48,58,48,48,58,48,48,58,48,48,58,48,48,0,0,19,3,
-  48,48,58,48,48,58,48,48,58,48,48,58,48,48,58,48,48,0,0,19,4,48,48,58,48,48,
-  58,48,48,58,48,48,58,48,48,58,48,48,0,0,24,5,111,115,109,111,45,109,115,99,
-  45,49,46,51,46,49,46,49,49,45,52,50,55,50,0,0,23,1,77,83,67,45,48,48,45,48,
-  48,45,48,48,45,48,48,45,48,48,45,48,48,0,0,23,0,77,83,67,45,48,48,45,48,48,
-  45,48,48,45,48,48,45,48,48,45,48,48,0>>).
-
-decode_msgt(0) -> ping;
-decode_msgt(1) -> pong;
-decode_msgt(4) -> id_req;
-decode_msgt(5) -> id_resp;
-decode_msgt(6) -> id_ack;
-decode_msgt(7) -> id_nack;
-decode_msgt(8) -> proxy_req;
-decode_msgt(9) -> proxy_ack;
-decode_msgt(10) -> proxy_nack;
-decode_msgt(Int) when is_integer(Int) -> Int.
-
-encode_msgt(ping) -> 0;
-encode_msgt(pong) -> 1;
-encode_msgt(id_req) -> 4;
-encode_msgt(id_resp) -> 5;
-encode_msgt(id_ack) -> 6;
-encode_msgt(id_nack) -> 7;
-encode_msgt(proxy_req) -> 8;
-encode_msgt(proxy_ack) -> 9;
-encode_msgt(proxy_nack) -> 10;
-encode_msgt(Int) when is_integer(Int) -> Int.
-
-decode_idtag(0) -> serial_nr;
-decode_idtag(1) -> unit_name;
-decode_idtag(2) -> location;
-decode_idtag(3) -> unit_type;
-decode_idtag(4) -> equip_vers;
-decode_idtag(5) -> sw_version;
-decode_idtag(6) -> ip_address;
-decode_idtag(7) -> mac_address;
-decode_idtag(8) -> unit_id;
-decode_idtag(Int) when is_integer(Int) -> Int.
-
-encode_idtag(serial_nr) -> 0;
-encode_idtag(unit_name) -> 1;
-encode_idtag(location) -> 2;
-encode_idtag(unit_type) -> 3;
-encode_idtag(equip_vers) -> 4;
-encode_idtag(sw_version) -> 5;
-encode_idtag(ip_address) -> 6;
-encode_idtag(mac_address) -> 7;
-encode_idtag(unit_id) -> 8;
-encode_idtag(Int) when is_integer(Int) -> Int.
-
-decode(Bin) when is_binary(Bin) ->
-	<<MsgType:8, IeList/binary>> = Bin,
-	{decode_msgt(MsgType), decode_ies(IeList, )}.
-
-decode_ies(<<>>, IeList) when is_list(IeList) ->
-	IeList;
-decode_ies(<<1:8, IdTag:8, Remain/binary>>, IeList) when is_list(IeList) ->
-	decode_ies(Remain, IeList ++ {id, IdTag});
-decode_ies(<<0:8, Len:8, TypeValue:Len/binary, Remain/binary>>, IeList) when is_list(IeList) ->
-	<<Type:8, Value/binary>> = TypeValue,
-	ValueList = binary_to_list(Value),
-	case lists:last(ValueList) of
-		0 -> ValueStripped = lists:droplast(ValueList);
-		_ -> ValueStripped = ValueList
-	end,
-	decode_ies(Remain, IeList ++ {string, decode_idtag(Type), ValueStripped}).
-
-
-encode_ie({id, IdTag}) ->
-	<<1:8, IdTag:8>>;
-encode_ie({string, Type, Value}) ->
-	case lists:last(Value) of
-		0 -> ValueTerminated = Value;
-		_ -> ValueTerminated = lists:append(Value, 0)
-	end,
-	ValueBin = list_to_binary(ValueTerminated),
-	Type2 = encode_idtag(Type),
-	TypeValue = <<Type2:8, ValueBin/binary>>,
-	Len = byte_size(TypeValue),
-	<<0:8, Len:8, TypeValue/binary>>.
-
-encode_ies(IeList) when is_list(IeList) ->
-	encode_ies(IeList, <<>>).
-encode_ies(, Bin) -> Bin;
-encode_ies(Head|Tail, Bin) ->
-	IeBin = encode_ie(Head),
-	encode_ies(Tail, <<Bin/binary, IeBin/binary>>).
-
-encode({MsgType, IeList}) ->
-	MsgtInt = encode_msgt(MsgType),
-	IesBin = encode_ies(IeList),
-	<<MsgtInt:8, IesBin/binary>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/isup_codec.erl Deleted

@@ -1,519 +0,0 @@
-% ITU-T Q.76x ISUPcoding / decoding
-
-% (C) 2011 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(isup_codec).
--author('Harald Welte <laforge@gnumonks.org>').
--include("isup.hrl").
-
--export(parse_isup_msg/1, encode_isup_msg/1, parse_isup_party/2,
-	 encode_isup_party/1, gen_party_number/3).
-
--compile(export_all).
-
--compile({parse_transform, exprecs}).
--export_records(party_number, isup_msg).
-
-parse_isup_party(<<>>, OddEven, DigitList) ->
-	% in case of odd number of digits, we need to cut the last
-	case OddEven of
-		1 ->
-			lists:sublist(DigitList, length(DigitList)-1);
-		0 ->
-			DigitList
-	end;
-parse_isup_party(BcdBin, OddEven, DigitList) ->
-	<<Second:4, First:4, Remain/binary>> = BcdBin,
-	NewDigits = First, Second,
-	parse_isup_party(Remain, OddEven, DigitList ++ NewDigits).
-
-parse_isup_party(BinBcd, OddEven) when is_binary(BinBcd) ->
-	parse_isup_party(BinBcd, OddEven, ).
-
-
-% parse a single option
-parse_isup_opt(OptType = ?ISUP_PAR_CALLED_P_NUM, _OptLen, Content) ->
-	% C.3.7 Called Party Number
-	<<OddEven:1, Nature:7, Inn:1, NumPlan:3, 0:4, Remain/binary>> = Content,
-	PhoneNum = parse_isup_party(Remain, OddEven),
-	{OptType, #party_number{nature_of_addr_ind = Nature,
-				internal_net_num = Inn,
-				numbering_plan = NumPlan,
-				phone_number = PhoneNum}};
-parse_isup_opt(OptType = ?ISUP_PAR_CALLING_P_NUM, _OptLen, Content) ->
-	% C.3.8 Calling Party Number
-	<<OddEven:1, Nature:7, Ni:1, NumPlan:3, PresRestr:2, Screen:2, Remain/binary>> = Content,
-	PhoneNum = parse_isup_party(Remain, OddEven),
-	{OptType, #party_number{nature_of_addr_ind = Nature,
-				number_incompl_ind = Ni,
-				numbering_plan = NumPlan,
-				present_restrict = PresRestr,
-				screening_ind = Screen,
-				phone_number = PhoneNum}};
-parse_isup_opt(OptType = ?ISUP_PAR_CONNECTED_NUM, _OptLen, Content) ->
-	% C.3.14 Connected Number
-	<<OddEven:1, Nature:7, 0:1, NumPlan:3, PresRestr:2, Screen:2, Remain/binary>> = Content,
-	PhoneNum = parse_isup_party(Remain, OddEven),
-	{OptType, #party_number{nature_of_addr_ind = Nature,
-				numbering_plan = NumPlan,
-				present_restrict = PresRestr,
-				screening_ind = Screen,
-				phone_number = PhoneNum}};
-parse_isup_opt(OptType = ?ISUP_PAR_SUBSEQ_NUM, _OptLen, Content) ->
-	% C.3.32 Subsequent Number
-	<<OddEven:1, 0:7, Remain/binary>> = Content,
-	PhoneNum = parse_isup_party(Remain, OddEven),
-	{OptType, #party_number{phone_number = PhoneNum}};
-parse_isup_opt(OptType, OptLen, Content) ->
-	{OptType, {OptLen, Content}}.
-
-% parse a Binary into a list of options
-parse_isup_opts(<<>>, OptList) ->
-	% empty list
-	OptList;
-parse_isup_opts(<<0>>, OptList) ->
-	% end of options
-	OptList;
-parse_isup_opts(OptBin, OptList) when is_binary(OptBin) ->
-	<<OptType:8, OptLen:8, Content:OptLen/binary, Remain/binary>> = OptBin,
-	NewOpt = parse_isup_opt(OptType, OptLen, Content),
-	parse_isup_opts(Remain, OptList ++ NewOpt).
-parse_isup_opts(OptBin) ->
-	parse_isup_opts(OptBin, ).
-
-% Parse options preceeded by 1 byte OptPtr
-parse_isup_opts_ptr(OptBinPtr) ->
-	OptPtr = binary:at(OptBinPtr, 0),
-	case OptPtr of
-		0 ->
-			;
-		_ ->
-			OptBin = binary:part(OptBinPtr, OptPtr, byte_size(OptBinPtr)-OptPtr),
-			parse_isup_opts(OptBin, )
-	end.
-
-% References to 'Tabe C-xxx' are to Annex C of Q.767
-
-% Default case: no fixed and no variable parts, only options
-% ANM, RLC, FOT
-parse_isup_msgt(M, Bin) when
-	M == ?ISUP_MSGT_ANM;
-	M == ?ISUP_MSGT_RLC;
-	M == ?ISUP_MSGT_FOT ->
-		parse_isup_opts_ptr(Bin);
-% Table C-5	Address complete
-parse_isup_msgt(?ISUP_MSGT_ACM, Bin) ->
-	<<BackCallInd:16, Remain/binary>> = Bin,
-	BciOpt = {backward_call_ind, BackCallInd},
-	Opts = parse_isup_opts_ptr(Remain),
-	BciOpt|Opts;
-% Table C-7	Call progress
-parse_isup_msgt(?ISUP_MSGT_CPG, Bin) ->
-	<<EventInf:8, Remain/binary>> = Bin,
-	BciOpt = {event_info, EventInf},
-	Opts = parse_isup_opts_ptr(Remain),
-	BciOpt|Opts;
-% Table C-9	Circuit group reset acknowledgement
-parse_isup_msgt(?ISUP_MSGT_GRA, Bin) ->
-	% V: Range and status
-	<<PtrVar:8, _Remain/binary>> = Bin,
-	RangStsLen = binary:at(Bin, PtrVar),
-	RangeStatus = binary:part(Bin, PtrVar+1, RangStsLen),
-	RangeStsTuple = {?ISUP_PAR_RANGE_AND_STATUS, {RangStsLen, RangeStatus}},
-	RangeStsTuple;
-% Table C-11	Connect
-parse_isup_msgt(?ISUP_MSGT_CON, Bin) ->
-	<<BackCallInd:16, Remain/binary>> = Bin,
-	BciOpt = {backward_call_ind, BackCallInd},
-	Opts = parse_isup_opts_ptr(Remain),
-	BciOpt|Opts;
-% Table C-12	Continuity
-parse_isup_msgt(?ISUP_MSGT_COT, Bin) ->
-	<<ContInd:8>> = Bin,
-	{continuity_ind, ContInd};
-% Table C-16	Initial address
-parse_isup_msgt(?ISUP_MSGT_IAM, Bin) ->
-	<<CINat:8, FwCallInd:16/big, CallingCat:8, TransmReq:8, VarAndOpt/binary>> = Bin,
-	FixedOpts = {conn_ind_nature, CINat}, {fw_call_ind, FwCallInd}, {calling_cat, CallingCat},
-		     {transm_medium_req, TransmReq},
-	<<PtrVar:8, PtrOpt:8, _/binary>> = VarAndOpt,
-	% V: Called Party Number
-	CalledPartyLen = binary:at(VarAndOpt, PtrVar),
-	CalledParty = binary:part(VarAndOpt, PtrVar+1, CalledPartyLen),
-	VarOpts = parse_isup_opt(?ISUP_PAR_CALLED_P_NUM, CalledPartyLen, CalledParty),
-	% Optional part
-	case PtrOpt of
-		0 ->
-			Opts = ;
-		_ ->
-			Remain = binary:part(VarAndOpt, 1 + PtrOpt, byte_size(VarAndOpt)-(1+PtrOpt)),
-			Opts = parse_isup_opts(Remain)
-	end,
-	FixedOpts ++ VarOpts ++ Opts;
-% Table C-17	Release
-% Table 26/Q.763: Confusion
-parse_isup_msgt(M, VarAndOpt) when
-		M == ?ISUP_MSGT_REL;
-		M == ?ISUP_MSGT_CFN ->
-	<<PtrVar:8, PtrOpt:8, _/binary>> = VarAndOpt,
-	% V: Cause indicators
-	CauseIndLen = binary:at(VarAndOpt, PtrVar),
-	CauseInd = binary:part(VarAndOpt, PtrVar+1, CauseIndLen),
-	VarOpts = {?ISUP_PAR_CAUSE_IND, {CauseIndLen, CauseInd}},
-	case PtrOpt of
-		0 ->
-			Opts = ;
-		_ ->
-			Remain = binary:part(VarAndOpt, 1 + PtrOpt, byte_size(VarAndOpt)-(1+PtrOpt)),
-			Opts = parse_isup_opts(Remain)
-	end,
-	VarOpts ++ Opts;
-% Table C-19	Subsequent address
-parse_isup_msgt(?ISUP_MSGT_SAM, VarAndOpt) ->
-	<<PtrVar:8, PtrOpt:8, _/binary>> = VarAndOpt,
-	% V: Subsequent number
-	SubseqNumLen = binary:at(VarAndOpt, PtrVar),
-	SubsetNum = binary:part(VarAndOpt, PtrVar+1, SubseqNumLen),
-	VarOpts = {?ISUP_PAR_SUBSEQ_NUM, {SubseqNumLen, SubsetNum}},
-	Remain = binary:part(VarAndOpt, 1 + PtrOpt, byte_size(VarAndOpt)-(1+PtrOpt)),
-	Opts = parse_isup_opts(Remain),
-	VarOpts ++ Opts;
-% Table C-21	Suspend, Resume
-parse_isup_msgt(Msgt, Bin) when Msgt == ?ISUP_MSGT_RES; Msgt == ?ISUP_MSGT_SUS ->
-	<<SuspResInd:8, Remain/binary>> = Bin,
-	FixedOpts = {susp_res_ind, SuspResInd},
-	Opts = parse_isup_opts_ptr(Remain),
-	FixedOpts ++ Opts;
-% Table C-23
-parse_isup_msgt(M, <<>>) when
-	M == ?ISUP_MSGT_BLO;
-	M == ?ISUP_MSGT_BLA;
-	M == ?ISUP_MSGT_CCR;
-	M == ?ISUP_MSGT_RSC;
-	M == ?ISUP_MSGT_UBL;
-	M == ?ISUP_MSGT_UBA ->
-		;
-% Table 39/Q.763 messages for national use, fixed length 1 byte msgtype
-parse_isup_msgt(M, <<>>) when
-	M == ?ISUP_MSGT_LPA;
-	M == ?ISUP_MSGT_OLM;
-	M == ?ISUP_MSGT_UCIC ->
-		;
-% Table C-25
-parse_isup_msgt(M, Bin) when
-	M == ?ISUP_MSGT_CGB;
-	M == ?ISUP_MSGT_CGBA;
-	M == ?ISUP_MSGT_CGU;
-	M == ?ISUP_MSGT_CGUA ->
-		<<CGMsgt:8, PtrVar:8, VarBin/binary>> = Bin,
-		FixedOpts = {cg_supv_msgt, CGMsgt},
-		% V: Range and status
-		RangStsLen = binary:at(VarBin, PtrVar-1),
-		RangeStatus = binary:part(VarBin, PtrVar, RangStsLen),
-		VarOpts = {?ISUP_PAR_RANGE_AND_STATUS, {RangStsLen, RangeStatus}},
-		FixedOpts ++ VarOpts;
-% Table C-26	Circuit group reset
-parse_isup_msgt(?ISUP_MSGT_GRS, Bin) ->
-	<<PtrVar:8, _VarBin/binary>> = Bin,
-	% V: Range without status
-	RangeLen = binary:at(Bin, PtrVar),
-	Range = binary:part(Bin, PtrVar+1, RangeLen),
-	{?ISUP_PAR_RANGE_AND_STATUS, {RangeLen, Range}}.
-
-
-parse_isup_msg(DataBin) when is_binary(DataBin) ->
-	<<Cic:12/little, 0:4, MsgType:8, Remain/binary>> = DataBin,
-	Opts = parse_isup_msgt(MsgType, Remain),
-	#isup_msg{cic = Cic, msg_type = MsgType, parameters = Opts}.
-
-
-% encode a phone number from a list of digits into the BCD binary sequence
-encode_isup_party(BcdInt) when is_integer(BcdInt) ->
-	BcdList = osmo_util:int2digit_list(BcdInt),
-	encode_isup_party(BcdList);
-encode_isup_party(BcdList) when is_list(BcdList) ->
-	encode_isup_party(BcdList, <<>>, length(BcdList)).
-encode_isup_party(, Bin, NumDigits) ->
-	case NumDigits rem 2 of
-		1 ->
-			{Bin, 1};
-		0 ->
-			{Bin, 0}
-	end;
-encode_isup_party(First,Second|BcdList, Bin, NumDigits) ->
-	encode_isup_party(BcdList, <<Bin/binary, Second:4, First:4>>, NumDigits);
-encode_isup_party(Last, Bin, NumDigits) ->
-	encode_isup_party(, <<Bin/binary, 0:4, Last:4>>, NumDigits).
-
-% encode a single option
-encode_isup_par(?ISUP_PAR_CALLED_P_NUM,
-		#party_number{nature_of_addr_ind = Nature,
-			      internal_net_num = Inn,
-			      numbering_plan = NumPlan,
-			      phone_number=  PhoneNum}) ->
-	% C.3.7 Called Party Number
-	{PhoneBin, OddEven} = encode_isup_party(PhoneNum),
-	<<OddEven:1, Nature:7, Inn:1, NumPlan:3, 0:4, PhoneBin/binary>>;
-encode_isup_par(?ISUP_PAR_CALLING_P_NUM,
-		#party_number{nature_of_addr_ind = Nature,
-			      number_incompl_ind = Ni,
-			      numbering_plan = NumPlan,
-			      present_restrict = PresRestr,
-			      screening_ind = Screen,
-			      phone_number=  PhoneNum}) ->
-	% C.3.8 Calling Party Number
-	{PhoneBin, OddEven} = encode_isup_party(PhoneNum),
-	<<OddEven:1, Nature:7, Ni:1, NumPlan:3, PresRestr:2, Screen:2, PhoneBin/binary>>;
-encode_isup_par(?ISUP_PAR_CONNECTED_NUM,
-		#party_number{nature_of_addr_ind = Nature,
-			      numbering_plan = NumPlan,
-			      present_restrict = PresRestr,
-			      screening_ind = Screen,
-			      phone_number = PhoneNum}) ->
-	% C.3.14 Connected Number
-	{PhoneBin, OddEven} = encode_isup_party(PhoneNum),
-	<<OddEven:1, Nature:7, 0:1, NumPlan:3, PresRestr:2, Screen:2, PhoneBin/binary>>;
-encode_isup_par(?ISUP_PAR_SUBSEQ_NUM,
-		#party_number{phone_number = PhoneNum}) ->
-	% C.3.32 Subsequent Number
-	{PhoneBin, OddEven} = encode_isup_party(PhoneNum),
-	<<OddEven:1, 0:7, PhoneBin/binary>>;
-encode_isup_par(Atom, _More) when is_atom(Atom) ->
-	<<>>;
-encode_isup_par(OptNum, {OptLen, Binary}) when is_binary(Binary), is_integer(OptNum), is_integer(OptLen) ->
-	Binary.
-
-% encode a single OPTIONAL parameter (TLV type), skip all others
-encode_isup_optpar(ParNum, _ParBody) when is_atom(ParNum) ->
-	<<>>;
-encode_isup_optpar(ParNum, ParBody) ->
-	ParBin = encode_isup_par(ParNum, ParBody),
-	ParLen = byte_size(ParBin),
-	<<ParNum:8, ParLen:8, ParBin/binary>>.
-
-% recursive function to encode all optional parameters
-encode_isup_opts(, OutBin) ->
-	% terminate with end-of-options, but only if we have options
-	case OutBin of
-		<<>> ->
-			OutBin;
-		_ ->
-			<<OutBin/binary, 0:8>>
-	end;
-encode_isup_opts(Opt|OptPropList, OutBin) ->
-	{OptType, OptBody} = Opt,
-	OptBin = encode_isup_optpar(OptType, OptBody),
-	encode_isup_opts(OptPropList, <<OutBin/binary, OptBin/binary>>).
-encode_isup_opts(OptPropList) ->
-	encode_isup_opts(OptPropList, <<>>).
-
-encode_isup_hdr(#isup_msg{msg_type = MsgType, cic = Cic}) ->
-	<<Cic:12/little, 0:4, MsgType:8>>.
-
-% Default case: no fixed and no variable parts, only options
-% ANM, RLC, FOT
-encode_isup_msgt(M, #isup_msg{parameters = Params}) when
-	M == ?ISUP_MSGT_ANM;
-	M == ?ISUP_MSGT_RLC;
-	M == ?ISUP_MSGT_FOT ->
-		OptBin = encode_isup_opts(Params),
-		case OptBin of
-			<<>> ->	PtrOpt = 0;
-			_    -> PtrOpt = 1
-		end,
-		<<PtrOpt:8, OptBin/binary>>;
-% Table C-5	Address complete
-encode_isup_msgt(?ISUP_MSGT_ACM, #isup_msg{parameters = Params}) ->
-	BackCallInd = proplists:get_value(backward_call_ind, Params),
-	OptBin = encode_isup_opts(Params),
-	case OptBin of
-		<<>> -> 	PtrOpt = 0;
-		_    ->		PtrOpt = 1
-	end,
-	<<BackCallInd:16, PtrOpt:8, OptBin/binary>>;
-% Table C-7	Call progress
-encode_isup_msgt(?ISUP_MSGT_CPG, #isup_msg{parameters = Params}) ->
-	EventInf = proplists:get_value(event_info, Params),
-	OptBin = encode_isup_opts(Params),
-	case OptBin of
-		<<>> -> 	PtrOpt = 0;
-		_    ->		PtrOpt = 1
-	end,
-	<<EventInf:8, PtrOpt:8, OptBin/binary>>;
-% Table C-9	Circuit group reset acknowledgement
-encode_isup_msgt(?ISUP_MSGT_GRA, #isup_msg{parameters = Params}) ->
-	% V: Range and status
-	{RangStsLen, RangeStatus} = proplists:get_value(?ISUP_PAR_RANGE_AND_STATUS, Params),
-	<<1:8, RangStsLen:8, RangeStatus/binary>>;
-% Table C-11	Connect
-encode_isup_msgt(?ISUP_MSGT_CON, #isup_msg{parameters = Params}) ->
-	BackCallInd = proplists:get_value(backward_call_ind, Params),
-	OptBin = encode_isup_opts(Params),
-	case OptBin of
-		<<>> -> 	PtrOpt = 0;
-		_    ->		PtrOpt = 1
-	end,
-	<<BackCallInd:16, PtrOpt:8, OptBin/binary>>;
-% Table C-12	Continuity
-encode_isup_msgt(?ISUP_MSGT_COT, #isup_msg{parameters = Params}) ->
-	ContInd = proplists:get_value(continuity_ind, Params),
-	<<ContInd:8>>;
-% Table C-16	Initial address
-encode_isup_msgt(?ISUP_MSGT_IAM, #isup_msg{parameters = Params}) ->
-	% Fixed part
-	CINat = proplists:get_value(conn_ind_nature, Params),
-	FwCallInd = proplists:get_value(fw_call_ind, Params),
-	CallingCat = proplists:get_value(calling_cat, Params),
-	TransmReq = proplists:get_value(transm_medium_req, Params),
-	PtrVar = 2, % one byte behind the PtrOpt
-	FixedBin = <<CINat:8, FwCallInd:16/big, CallingCat:8, TransmReq:8>>,
-	% V: Called Party Number
-	CalledParty = encode_isup_par(?ISUP_PAR_CALLED_P_NUM,
-					proplists:get_value(?ISUP_PAR_CALLED_P_NUM, Params)),
-	CalledPartyLen = byte_size(CalledParty),
-	% Optional part
-	Params2 = proplists:delete(?ISUP_PAR_CALLED_P_NUM, Params),
-	OptBin = encode_isup_opts(Params2),
-	case OptBin of
-		<<>>	-> PtrOpt = 0;
-		_	-> PtrOpt = CalledPartyLen + 1 + 1 % 1 byte length, 1 byte start offset
-	end,
-	<<FixedBin/binary, PtrVar:8, PtrOpt:8, CalledPartyLen:8, CalledParty/binary, OptBin/binary>>;
-% Table C-17	Release
-encode_isup_msgt(Msgt, #isup_msg{parameters = Params}) when
-						Msgt == ?ISUP_MSGT_REL;
-						Msgt == ?ISUP_MSGT_CFN ->
-	PtrVar = 2, % one byte behind the PtrOpt
-	% V: Cause indicators
-	CauseInd = encode_isup_par(?ISUP_PAR_CAUSE_IND,
-					proplists:get_value(?ISUP_PAR_CAUSE_IND, Params)),
-	CauseIndLen = byte_size(CauseInd),
-	% Optional Part
-	Params2 = proplists:delete(?ISUP_PAR_CAUSE_IND, Params),
-	OptBin = encode_isup_opts(Params2),
-	case OptBin of
-		<<>>	-> PtrOpt = 0;
-		_	-> PtrOpt = CauseIndLen + 1 + 1	% 1 byte length, 1 byte start offset
-	end,
-	<<PtrVar:8, PtrOpt:8, CauseIndLen:8, CauseInd/binary, OptBin/binary>>;
-% Table C-19	Subsequent address
-encode_isup_msgt(?ISUP_MSGT_SAM, #isup_msg{parameters = Params}) ->
-	PtrVar = 2, % one byte behind the PtrOpt
-	% V: Subsequent number
-	SubseqNum = encode_isup_par(?ISUP_PAR_SUBSEQ_NUM,
-					proplists:get_value(?ISUP_PAR_SUBSEQ_NUM, Params)),
-	SubseqNumLen = byte_size(SubseqNum),
-	% Optional Part
-	Params2 = proplists:delete(?ISUP_PAR_SUBSEQ_NUM, Params),
-	OptBin = encode_isup_opts(Params2),
-	case OptBin of
-		<<>>	-> PtrOpt = 0;
-		_	-> PtrOpt = SubseqNumLen + 1 + 1 % 1 byte length, 1 byte start offset
-	end,
-	<<PtrVar:8, PtrOpt:8, SubseqNumLen:8, SubseqNum/binary, OptBin/binary>>;
-% Table C-21	Suspend, Resume
-encode_isup_msgt(Msgt, #isup_msg{parameters = Params}) when Msgt == ?ISUP_MSGT_RES; Msgt == ?ISUP_MSGT_SUS ->
-	SuspResInd = proplists:get_value(susp_res_ind, Params),
-	OptBin = encode_isup_opts(Params),
-	case OptBin of
-		<<>>	-> PtrOpt = 0;
-		_	-> PtrOpt = 1
-	end,
-	<<SuspResInd:8, PtrOpt:8, OptBin/binary>>;
-% Table C-23
-encode_isup_msgt(M, #isup_msg{}) when
-	M == ?ISUP_MSGT_BLO;
-	M == ?ISUP_MSGT_BLA;
-	M == ?ISUP_MSGT_CCR;
-	M == ?ISUP_MSGT_RSC;
-	M == ?ISUP_MSGT_UBL;
-	M == ?ISUP_MSGT_UBA ->
-		<<>>;
-% Table 39/Q.763 (national use)
-encode_isup_msgt(M, #isup_msg{}) when
-	M == ?ISUP_MSGT_LPA;
-	M == ?ISUP_MSGT_OLM;
-	M == ?ISUP_MSGT_UCIC ->
-		<<>>;
-% Table C-25
-encode_isup_msgt(M, #isup_msg{parameters = Params}) when
-	M == ?ISUP_MSGT_CGB;
-	M == ?ISUP_MSGT_CGBA;
-	M == ?ISUP_MSGT_CGU;
-	M == ?ISUP_MSGT_CGUA ->
-		PtrVar = 1, % one byte behind the PtrVar
-		CGMsgt = proplists:get_value(cg_supv_msgt, Params),
-		% V: Range and status
-		{RangStsLen, RangeStatus} = proplists:get_value(?ISUP_PAR_RANGE_AND_STATUS, Params),
-		<<CGMsgt:8, PtrVar:8, RangStsLen:8, RangeStatus/binary>>;
-% Table C-26	Circuit group reset
-encode_isup_msgt(?ISUP_MSGT_GRS, #isup_msg{parameters = Params}) ->
-	PtrVar = 1, % one byte behind the PtrVar
-	{RangeLen, Range} = proplists:get_value(?ISUP_PAR_RANGE_AND_STATUS, Params),
-	% V: Range without status
-	<<PtrVar:8, RangeLen:8, Range/binary>>.
-
-encode_isup_msg(Msg = #isup_msg{msg_type = MsgType}) ->
-	HdrBin = encode_isup_hdr(Msg),
-	Remain = encode_isup_msgt(MsgType, Msg),
-	<<HdrBin/binary, Remain/binary>>.
-
-
-listify(L) when is_list(L) ->
-	L;
-listify(L) when is_integer(L) ->
-	osmo_util:int2digit_list(L).
-
-encode_nature(international) ->
-	?ISUP_ADDR_NAT_INTERNATIONAL;
-encode_nature(national) ->
-	?ISUP_ADDR_NAT_NATIONAL;
-encode_nature(subscriber) ->
-	?ISUP_ADDR_NAT_SUBSCRIBER;
-encode_nature(Int) when is_integer(Int) ->
-	Int.
-
-encode_numplan(isdn) ->
-	1;
-encode_numplan(telephony) ->
-	1;
-encode_numplan(data) ->
-	3;
-encode_numplan(telex) ->
-	4;
-encode_numplan(Int) when is_integer(Int) ->
-	Int.
-
-gen_party_number(NAI, NumPlan, Number) ->
-	#party_number{nature_of_addr_ind = encode_nature(NAI),
-		      numbering_plan = encode_numplan(NumPlan),
-		      phone_number = listify(Number)}.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/m2pa_codec.erl Deleted

@@ -1,87 +0,0 @@
-% RFC 4165 MTP2 P2P Adaption Layer coding / decoding
-
-% (C) 2012 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(m2pa_codec).
--author('Harald Welte <laforge@gnumonks.org>').
--include("m2pa.hrl").
--include("mtp3.hrl").
-
--export(parse_msg/1, encode_msg/1).
-
--compile({parse_transform, exprecs}).
--export_records(m2pa_msg).
-
-parse_m2pa_msgt(?M2PA_CLASS_M2PA, ?M2PA_TYPE_LINK, Len, Remain) ->
-	<<State:32/big, Filler/binary>> = Remain,
-	Ret = {link_state, State},
-	if
-		byte_size(Filler) > 0 ->
-			{undefined, {filler, Filler}|Ret};
-		true ->
-			{undefined, Ret}
-	end;
-parse_m2pa_msgt(?M2PA_CLASS_M2PA, ?M2PA_TYPE_USER, 16, <<>>) ->
-	{undefined, };
-parse_m2pa_msgt(?M2PA_CLASS_M2PA, ?M2PA_TYPE_USER, Len, RemainIn) ->
-	<<Pri:1, _:7, Mtp3Bin/binary>> = RemainIn,
-	Mtp3 = mtp3_codec:parse_mtp3_msg(Mtp3Bin),
-	{Mtp3, }.
-
-parse_msg(DataBin) when is_binary(DataBin) ->
-	<<1:8, 0:8, MsgClass:8, MsgType:8, MsgLen:32/big, AllRemain/binary>> = DataBin,
-	<<_:8, BSN:24/big, _:8, FSN:24/big, Remain/binary>> = AllRemain,
-	{Mtp3, Params} = parse_m2pa_msgt(MsgClass, MsgType, MsgLen, Remain),
-	{ok, #m2pa_msg{msg_class = MsgClass, msg_type = MsgType,
-			fwd_seq_nr = FSN, back_seq_nr = BSN,
-			mtp3 = Mtp3, parameters = Params}}.
-
-encode_m2pa_msgt(?M2PA_CLASS_M2PA, ?M2PA_TYPE_USER, undefined, _Params) ->
-	<<>>;
-encode_m2pa_msgt(?M2PA_CLASS_M2PA, ?M2PA_TYPE_USER, Mtp3, _Params) when is_binary(Mtp3) ->
-	<<0:1, 0:7, Mtp3/binary>>;
-encode_m2pa_msgt(?M2PA_CLASS_M2PA, ?M2PA_TYPE_USER, Mtp3, Params) when is_record(Mtp3, mtp3_msg) ->
-	Mtp3bin = mtp3_codec:encode_mtp3_msg(Mtp3),
-	encode_m2pa_msgt(?M2PA_CLASS_M2PA, ?M2PA_TYPE_USER, Mtp3bin, Params);
-encode_m2pa_msgt(?M2PA_CLASS_M2PA, ?M2PA_TYPE_LINK, _, Params) ->
-	State = proplists:get_value(link_state, Params),
-	% FIXME: filler
-	Filler = <<>>,
-	<<State:32/big, Filler/binary>>.
-
-
-encode_msg(Msg) when is_record(Msg, m2pa_msg) ->
-	#m2pa_msg{msg_class = MsgClass, msg_type = MsgType, fwd_seq_nr = FSN,
-			back_seq_nr = BSN, mtp3 = Mtp3, parameters = Params} = Msg,
-	Payload = encode_m2pa_msgt(MsgClass, MsgType, Mtp3, Params),
-	MsgLen = byte_size(Payload) + 16,
-	<<1:8, 0:8, MsgClass:8, MsgType:8, MsgLen:32/big, 0:8, BSN:24/big, 0:8, FSN:24/big, Payload/binary>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/m2ua_codec.erl Deleted

@@ -1,33 +0,0 @@
-% RFC 3331 MTP2 User Adaption Layer coding / decoding
-
-% (C) 2011 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
--module(m2ua_codec).
--author('Harald Welte <laforge@gnumonks.org>').
--include("xua.hrl").
--include("m2ua.hrl").
-
--export(parse_m2ua_msg/1, encode_m2ua_msg/1).
-
-% parse a M2UA message binary into a record
-parse_m2ua_msg(DataBin) when is_binary(DataBin) ->
-	xua_codec:parse_msg(DataBin).
-
-% encode a message from record to binary
-encode_m2ua_msg(Msg) when is_record(Msg, xua_msg) ->
-	xua_codec:encode_msg(Msg).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/m3ua_asp.erl Deleted

@@ -1,111 +0,0 @@
-% M3UA ASP xua_asp_fsm callback
-
-% (C) 2011-2012 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(m3ua_asp).
--author('Harald Welte <laforge@gnumonks.org>').
--behaviour(xua_asp_fsm).
-
--include("osmo_util.hrl").
--include("m3ua.hrl").
-
--export(init/1).
-
--export(gen_xua_msg/3, asp_down/3, asp_inactive/3, asp_active/3).
-
-init() ->
-	{ok, we_have_no_state}.
-
-gen_xua_msg(MsgClass, MsgType, Params) ->
-	#m3ua_msg{version = 1, msg_class = MsgClass, msg_type = MsgType, payload = Params}.
-
-asp_down(#m3ua_msg{version = 1, msg_class = MsgClass, msg_type = MsgType},
-	 LoopDat, Mld) when MsgClass == ?M3UA_MSGC_ASPSM; MsgClass == ?M3UA_MSGC_ASPTM ->
-	% convert from M3UA to xua_msg and call into master module
-	xua_asp_fsm:asp_down({xua_msg, MsgClass, MsgType}, Mld);
-asp_down(M3uaMsg, LoopDat, Mld) when is_record(M3uaMsg, m3ua_msg) ->
-	rx_m3ua(M3uaMsg, asp_down, Mld).
-
-asp_inactive(#m3ua_msg{version = 1, msg_class = MsgClass, msg_type = MsgType},
-	     LoopDat, Mld) when MsgClass == ?M3UA_MSGC_ASPSM; MsgClass == ?M3UA_MSGC_ASPTM ->
-	% convert from M3UA to xua_msg and call into master module
-	xua_asp_fsm:asp_inactive({xua_msg, MsgClass, MsgType}, Mld);
-asp_inactive(M3uaMsg, LoopDat, Mld) when is_record(M3uaMsg, m3ua_msg) ->
-	rx_m3ua(M3uaMsg, asp_inactive, Mld).
-
-asp_active(#m3ua_msg{version = 1, msg_class = MsgClass, msg_type = MsgType},
-	   LoopDat, Mld) when MsgClass == ?M3UA_MSGC_ASPSM; MsgClass == ?M3UA_MSGC_ASPTM ->
-	% convert from M3UA to xua_msg and call into master module
-	xua_asp_fsm:asp_active({xua_msg, MsgClass, MsgType}, Mld);
-asp_active(M3uaMsg, LoopDat, Mld) when is_record(M3uaMsg, m3ua_msg) ->
-	rx_m3ua(M3uaMsg, asp_active, Mld).
-
-
-
-
-
-rx_m3ua(Msg = #m3ua_msg{version = 1, msg_class = ?M3UA_MSGC_MGMT,
-			msg_type = ?M3UA_MSGT_MGMT_NTFY}, State, LoopDat) ->
-	xua_asp_fsm:send_prim_to_user(LoopDat, osmo_util:make_prim('M','NOTIFY',indication,Msg)),
-	{next_state, State, LoopDat};
-
-rx_m3ua(Msg = #m3ua_msg{version = 1, msg_class = ?M3UA_MSGC_ASPSM,
-			msg_type = ?M3UA_MSGT_ASPSM_BEAT}, State, LoopDat) ->
-	% Send BEAT_ACK using the same payload as the BEAT msg
-	xua_asp_fsm:send_sctp_to_peer(LoopDat, Msg#m3ua_msg{msg_type = ?M3UA_MSGT_ASPSM_BEAT_ACK}),
-	{next_state, State, LoopDat};
-
-rx_m3ua(Msg = #m3ua_msg{version = 1, msg_class = ?M3UA_MSGC_MGMT,
-			msg_type = ?M3UA_MSGT_MGMT_ERR}, State, LoopDat) ->
-	xua_asp_fsm:send_prim_to_user(LoopDat, osmo_util:make_prim('M','ERROR',indication,Msg)),
-	{next_state, State, LoopDat};
-
-rx_m3ua(Msg = #m3ua_msg{version = 1, msg_class = ?M3UA_MSGC_SSNM,
-		        msg_type = MsgType, payload = Params}, State, LoopDat) ->
-	% transform to classic MTP primitive and send up to the user
-	Mtp = map_ssnm_to_mtp_prim(MsgType),
-	xua_asp_fsm:send_prim_to_user(LoopDat, Mtp),
-	{next_state, State, LoopDat};
-
-rx_m3ua(Msg = #m3ua_msg{}, State, LoopDat) ->
-	io:format("M3UA Unknown messge ~p in state ~p~n", Msg, State),
-	{next_state, State, LoopDat}.
-
-% Transform the M3UA SSNM messages into classic MTP primitives
-map_ssnm_to_mtp_prim(MsgType) ->
-	Mtp = #primitive{subsystem = 'MTP', spec_name = indication},
-	case MsgType of
-	    ?M3UA_MSGT_SSNM_DUNA -> Mtp#primitive{gen_name = 'PAUSE'};
-	    ?M3UA_MSGT_SSNM_DAVA -> Mtp#primitive{gen_name = 'RESUME'};
-	    ?M3UA_MSGT_SSNM_SCON -> Mtp#primitive{gen_name = 'STATUS'};
-	    ?M3UA_MSGT_SSNM_DUPU -> Mtp#primitive{gen_name = 'STATUS'}
-	end.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/m3ua_codec.erl Deleted

@@ -1,120 +0,0 @@
-% M3UA in accordance with RFC4666 (http://tools.ietf.org/html/rfc4666)
-
-% (C) 2011 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(m3ua_codec).
--author('Harald Welte <laforge@gnumonks.org>').
--include("m3ua.hrl").
--include("mtp3.hrl").
-
--export(parse_m3ua_msg/1, encode_m3ua_msg/1).
-
-%-compile(export_all).
-
--compile({parse_transform, exprecs}).
--export_records(m3ua_msg).
-
-% compute the number of pad bits required after a binary parameter
-get_num_pad_bytes(BinLenBytes) ->
-	case BinLenBytes rem 4 of
-		0 ->    0;
-		Val ->  4 - Val
-	end.
-
-parse_m3ua_msg(DataBin) when is_binary(DataBin) ->
-	<<Version:8, _Reserved:8, MsgClass:8, MsgType:8, MsgLen:32/big, Remain/binary>> = DataBin,
-	OptList = parse_m3ua_opts(Remain),
-	#m3ua_msg{version = Version, msg_class = MsgClass, msg_type = MsgType,
-		  msg_length = MsgLen-4, payload = OptList};
-parse_m3ua_msg(Data) when is_list(Data) ->
-	parse_m3ua_msg(list_to_binary(Data)).
-
-parse_m3ua_opts(OptBin) when is_binary(OptBin) ->
-	parse_m3ua_opts(OptBin, ).
-
-parse_m3ua_opts(<<>>, OptList) when is_list(OptList) ->
-	OptList;
-parse_m3ua_opts(OptBin, OptList) when is_binary(OptBin), is_list(OptList) ->
-	<<Tag:16/big, Length:16/big, Remain/binary>> = OptBin,
-	PadLen = get_num_pad_bytes(Length),
-	LengthNet = Length - 4,
-	<<CurOpt:LengthNet/binary, 0:PadLen/integer-unit:8, Remain2/binary>> = Remain,
-	NewOpt = parse_m3ua_opt(Tag, CurOpt),
-	parse_m3ua_opts(Remain2, OptList ++ NewOpt).
-
-parse_m3ua_opt(Opt = ?M3UA_IEI_PROTOCOL_DATA, MsgBin) when is_binary(MsgBin) ->
-	<<Opc:32/big, Dpc:32/big, Si:8, Ni:8, Mp:8, Sls:8, Payload/binary>> = MsgBin,
-	% The idea is to hand back a #mtp3_msg{} to make upper layers beyond
-	% MTP-TRANSFR.{ind,req} unaware of a MTP3 or M3UA lower layer
-	{Opt, #mtp3_msg{network_ind = Ni, service_ind = Si,
-			routing_label = #mtp3_routing_label{sig_link_sel = Sls,
-							    origin_pc = Opc,
-							    dest_pc = Dpc},
-			payload = Payload, m3ua_mp = Mp}};
-parse_m3ua_opt(Opt, Msg) ->
-	{Opt, Msg}.
-
-
-
-encode_m3ua_msg(#m3ua_msg{version = Version, msg_class = MsgClass,
-			  msg_type = MsgType, payload = OptList}) ->
-	OptBin = encode_m3ua_opts(OptList),
-	MsgLen = byte_size(OptBin) + 8,
-	<<Version:8, 0:8, MsgClass:8, MsgType:8, MsgLen:32/big, OptBin/binary>>.
-
-encode_m3ua_opts(OptList) when is_list(OptList) ->
-	encode_m3ua_opts(OptList, <<>>).
-
-encode_m3ua_opts(, Bin) ->
-	Bin;
-encode_m3ua_opts({Iei, Attr}|Tail, Bin) ->
-	OptBin = encode_m3ua_opt(Iei, Attr),
-	encode_m3ua_opts(Tail, <<Bin/binary, OptBin/binary>>).
-
-encode_m3ua_opt(?M3UA_IEI_PROTOCOL_DATA, Mtp3) when is_record(Mtp3, mtp3_msg) ->
-	#mtp3_msg{network_ind = Ni, service_ind = Si,
-		  routing_label = #mtp3_routing_label{sig_link_sel = Sls,
-						      origin_pc = OpcIn,
-						      dest_pc = DpcIn},
-		  payload = Payload, m3ua_mp = Mp} = Mtp3,
-	Opc = osmo_util:pointcode2int(OpcIn),
-	Dpc = osmo_util:pointcode2int(DpcIn),
-	case Mp of
-		undefined -> MpD = 0;
-		_ -> MpD = Mp
-	end,
-	PayBin = <<Opc:32/big, Dpc:32/big, Si:8, Ni:8, MpD:8, Sls:8, Payload/binary>>,
-	encode_m3ua_opt(?M3UA_IEI_PROTOCOL_DATA, PayBin);
-encode_m3ua_opt(Iei, Data) when is_integer(Iei), is_binary(Data) ->
-	Length = byte_size(Data) + 4,
-	PadLen = get_num_pad_bytes(Length),
-	<<Iei:16/big, Length:16/big, Data/binary, 0:PadLen/integer-unit:8>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/m3ua_core.erl Deleted

@@ -1,378 +0,0 @@
-% M3UA in accordance with RFC4666 (http://tools.ietf.org/html/rfc4666)
-
-% (C) 2011 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(m3ua_core).
--author('Harald Welte <laforge@gnumonks.org>').
--behaviour(gen_fsm).
-
--include_lib("kernel/include/inet_sctp.hrl").
--include("osmo_util.hrl").
--include("sccp.hrl").
--include("m3ua.hrl").
-
--export(start_link/1).
-
--export(init/1, terminate/3, code_change/4, handle_event/3, handle_info/3).
-
-% FSM states:
--export(asp_down/2, asp_inactive/2, asp_active/2).
-
--define(T_ACK_TIMEOUT, 2*60*100).
-
-% Loop Data
--record(m3ua_state, {
-	  role,		% asp | sgp
-	  asp_state,	% down, inactive, active
-	  t_ack,
-	  user_fun,
-	  user_args,
-	  sctp_remote_ip,
-	  sctp_remote_port,
-	  sctp_sock,
-	  sctp_assoc_id
-	}).
-
-start_link(InitOpts) ->
-	gen_fsm:start_link(?MODULE, InitOpts, {debug, trace}).
-
-reconnect_sctp(L = #m3ua_state{sctp_remote_ip = Ip, sctp_remote_port = Port, sctp_sock = Sock}) ->
-	timer:sleep(1*1000),
-	io:format("SCTP Reconnect ~p:~p~n", Ip, Port),
-	InitMsg = #sctp_initmsg{num_ostreams = 2, max_instreams = 2},
-	case gen_sctp:connect(Sock, Ip, Port, {active, once}, {reuseaddr, true},
-					       {sctp_initmsg, InitMsg}) of
-		{ok, Assoc} ->
-			send_prim_to_user(L, osmo_util:make_prim('M','SCTP_ESTABLISH',confirm)),
-			L#m3ua_state{sctp_assoc_id = Assoc#sctp_assoc_change.assoc_id};
-		{error, Error } ->
-			io:format("SCTP Error ~p, reconnecting~n", Error),
-			reconnect_sctp(L)
-	end.
-
-build_openopt({sctp_local_port, Port}) ->
-	{port, Port};
-build_openopt({sctp_local_ip, undefined}) ->
-	;
-build_openopt({sctp_local_ip, Ip}) ->
-	{ip, Ip};
-build_openopt(_) ->
-	.
-build_openopts(PropList) ->
-	{active, once}, {reuseaddr, true} ++
-	lists:flatten(lists:map(fun build_openopt/1, PropList)).
-
-init(InitOpts) ->
-	{ok, SctpSock} = gen_sctp:open(build_openopts(InitOpts)),
-	LoopDat = #m3ua_state{role = asp, sctp_sock = SctpSock,
-				user_fun = proplists:get_value(user_fun, InitOpts),
-				user_args = proplists:get_value(user_args, InitOpts),
-				sctp_remote_ip = proplists:get_value(sctp_remote_ip, InitOpts),
-				sctp_remote_port = proplists:get_value(sctp_remote_port, InitOpts)},
-	LoopDat2 = reconnect_sctp(LoopDat),
-	{ok, asp_down, LoopDat2}.
-
-terminate(Reason, _State, LoopDat) ->
-	io:format("Terminating ~p (Reason: ~p)~n", ?MODULE, Reason),
-	gen_sctp:close(LoopDat#m3ua_state.sctp_sock).
-
-code_change(_OldVsn, StateName, StateData, _Extra) ->
-	{ok, StateName, StateData}.
-
-% Helper function to send data to the SCTP peer
-send_sctp_to_peer(LoopDat, PktData, StreamId) when is_binary(PktData) ->
-	#m3ua_state{sctp_sock = Sock, sctp_assoc_id = Assoc} = LoopDat,
-	SndRcvInfo = #sctp_sndrcvinfo{assoc_id = Assoc, ppid = 3, stream = StreamId},
-	gen_sctp:send(Sock, SndRcvInfo, PktData).
-
-% same as above, but for un-encoded #m3ua_msg{}
-send_sctp_to_peer(LoopDat, M3uaMsg) when is_record(M3uaMsg, m3ua_msg) ->
-	MsgBin = m3ua_codec:encode_m3ua_msg(M3uaMsg),
-	StreamId = sctp_stream_for_m3ua(M3uaMsg),
-	send_sctp_to_peer(LoopDat, MsgBin, StreamId).
-
-% resolve the Stream ID depending on the m3ua_msg: 0 == management, 1 == trafic
-sctp_stream_for_m3ua(#m3ua_msg{msg_class = Class}) when
-				Class == ?M3UA_MSGC_TRANSFER ->
-	1;
-sctp_stream_for_m3ua(#m3ua_msg{}) ->
-	0.
-
-
-send_prim_to_user(LoopDat, Prim) when is_record(LoopDat, m3ua_state), is_record(Prim, primitive) ->
-	#m3ua_state{user_fun = Fun, user_args = Args} = LoopDat,
-	Fun(Prim, Args).
-
-% helper to send one of the up/down/act/inact management messages + start timer
-send_msg_start_tack(LoopDat, State, MsgClass, MsgType, Params) ->
-	% generate and send the respective message
-	Msg = #m3ua_msg{version = 1, msg_class = MsgClass, msg_type = MsgType, payload = Params},
-	send_sctp_to_peer(LoopDat, Msg),
-	% start T(ack) timer and wait for ASP_UP_ACK
-	timer:cancel(LoopDat#m3ua_state.t_ack),
-	{ok, Tack} = timer:apply_after(?T_ACK_TIMEOUT, gen_fsm, send_event,
-				 self(), {timer_expired, t_ack, {MsgClass, MsgType, Params}}),
-	{next_state, State, LoopDat#m3ua_state{t_ack = Tack}}.
-
-
-
-handle_event(Event, State, LoopDat) ->
-	io:format("Unknown Event ~p in state ~p~n", Event, State),
-	{next_state, State, LoopDat}.
-
-
-
-handle_info({sctp, Socket, _RemoteIp, _RemotePort, {ANC, SAC}},
-	     _State, LoopDat) when is_record(SAC, sctp_assoc_change) ->
-	io:format("SCTP Assoc Change ~p ~p~n", ANC, SAC),
-	#sctp_assoc_change{state = SacState, outbound_streams = _OutStreams,
-			   inbound_streams = _InStreams, assoc_id = _AssocId} = SAC,
-	case SacState of 
-		comm_up ->
-			% primmitive to the user
-			send_prim_to_user(LoopDat, osmo_util:make_prim('M','SCTP_ESTABLISH',confirm)),
-			LoopDat2 = LoopDat;
-		comm_lost ->
-			send_prim_to_user(LoopDat, osmo_util:make_prim('M','SCTP_RELEASE',indication)),
-			LoopDat2 = reconnect_sctp(LoopDat);
-		shutdown_comp ->
-			send_prim_to_user(LoopDat, osmo_util:make_prim('M','SCTP_RELEASE',indication)),
-			LoopDat2 = reconnect_sctp(LoopDat);
-		addr_unreachable ->
-			LoopDat2 = reconnect_sctp(LoopDat)
-	end,
-	inet:setopts(Socket, {active, once}),
-	{next_state, asp_down, LoopDat2};
-
-handle_info({sctp, Socket, _RemoteIp, _RemotePort, {ANC, SPC}},
-	     State, LoopDat) when is_record(SPC, sctp_paddr_change) ->
-	io:format("SCTP Peer address change ~p ~p~n", ANC, SPC),
-	{NewState, LoopDat2} = case SPC#sctp_paddr_change.state of
-		addr_available ->
-			% we don't care
-			{State, LoopDat};
-		addr_unreachable ->
-			send_prim_to_user(LoopDat, osmo_util:make_prim('M','SCTP_RELEASE',indication)),
-			{asp_down, reconnect_sctp(LoopDat)};
-		addr_removed ->
-			% FIXME: what if the last one is removed
-			{State, LoopDat};
-		addr_added ->
-			% we don't care
-			{State, LoopDat};
-		addr_made_prim ->
-			% FIXME: do we need to change remote_ip in our LoopDat?
-			{State, LoopDat}
-	end,
-	inet:setopts(Socket, {active, once}),
-	{next_state, NewState, LoopDat2};
-
-handle_info({sctp, Socket, RemoteIp, RemotePort, {Anc, Data}}, State, LoopDat) ->
-	io:format("SCTP rx data: ~p ~p~n", Anc, Data),
-	% process incoming SCTP data 
-	if Socket == LoopDat#m3ua_state.sctp_sock,
-	   RemoteIp == LoopDat#m3ua_state.sctp_remote_ip,
-	   RemotePort == LoopDat#m3ua_state.sctp_remote_port,
-	   3 == Anc#sctp_sndrcvinfo.ppid ->
-		Ret = rx_sctp(Anc, Data, State, LoopDat);
-	   true ->
-		io:format("unknown SCTP: ~p ~p~n", Anc, Data),
-		Ret = {next_state, State, LoopDat}
-	end,
-	inet:setopts(Socket, {active, once}),
-	Ret;
-
-handle_info({sctp, Socket, RemoteIp, RemotePort, {_Anc, Data}}, _State, LoopDat)
-					when is_record(Data, sctp_shutdown_event) ->
-	io:format("SCTP remote ~p:~p shutdown~n", RemoteIp, RemotePort),
-	inet:setopts(Socket, {active, once}),
-	{next_state, asp_down, LoopDat}.
-
-
-
-asp_down(#primitive{subsystem = 'M', gen_name = 'ASP_UP',
-		    spec_name = request, parameters = _Params}, LoopDat) ->
-	% M-ASP_UP.req from user, generate message and send to remote peer
-	send_msg_start_tack(LoopDat, asp_down, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPUP, );
-asp_down({timer_expired, t_ack, {?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPUP, Params}}, LoopDat) ->
-	send_msg_start_tack(LoopDat, asp_down, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPUP, Params);
-
-asp_down(#m3ua_msg{msg_class = ?M3UA_MSGC_ASPSM,
-		   msg_type = ?M3UA_MSGT_ASPSM_ASPUP_ACK}, LoopDat) ->
-	timer:cancel(LoopDat#m3ua_state.t_ack),
-	% transition into ASP_INACTIVE
-	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_UP',confirm)),
-	{next_state, asp_inactive, LoopDat};
-
-asp_down(M3uaMsg, LoopDat) when is_record(M3uaMsg, m3ua_msg) ->
-	rx_m3ua(M3uaMsg, asp_down, LoopDat).
-
-
-asp_inactive(#primitive{subsystem = 'M', gen_name = 'ASP_ACTIVE',
-			spec_name = request, parameters = _Params}, LoopDat) ->
-	% M-ASP_ACTIVE.req from user, generate message and send to remote peer
-	send_msg_start_tack(LoopDat, asp_inactive, ?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPAC,
-			   {?M3UA_IEI_TRAF_MODE_TYPE, <<0,0,0,1>>});
-
-asp_inactive({timer_expired, t_ack, {?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPAC, Params}}, LoopDat) ->
-	send_msg_start_tack(LoopDat, asp_inactive, ?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPAC, Params);
-
-asp_inactive(#primitive{subsystem = 'M', gen_name = 'ASP_DOWN',
-		      spec_name = request, parameters = _Params}, LoopDat) ->
-	% M-ASP_DOWN.req from user, generate message and send to remote peer
-	send_msg_start_tack(LoopDat, asp_inactive, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN, );
-
-asp_inactive({timer_expired, t_ack, {?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN, Params}}, LoopDat) ->
-	send_msg_start_tack(LoopDat, asp_inactive, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN, Params);
-
-asp_inactive(#m3ua_msg{msg_class = ?M3UA_MSGC_ASPTM,
-		       msg_type = ?M3UA_MSGT_ASPTM_ASPAC_ACK}, LoopDat) ->
-	timer:cancel(LoopDat#m3ua_state.t_ack),
-	% transition into ASP_ACTIVE
-	% signal this to the user
-	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_ACTIVE',confirm)),
-	{next_state, asp_active, LoopDat};
-
-asp_inactive(#m3ua_msg{msg_class = ?M3UA_MSGC_ASPSM,
-		       msg_type = ?M3UA_MSGT_ASPSM_ASPDN_ACK}, LoopDat) ->
-	timer:cancel(LoopDat#m3ua_state.t_ack),
-	% transition into ASP_DOWN
-	% signal this to the user
-	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_DOWN',confirm)),
-	{next_state, asp_down, LoopDat};
-
-asp_inactive(M3uaMsg, LoopDat) when is_record(M3uaMsg, m3ua_msg) ->
-	rx_m3ua(M3uaMsg, asp_inactive, LoopDat).
-
-
-
-asp_active(#m3ua_msg{msg_class = ?M3UA_MSGC_ASPSM,
-		     msg_type = ?M3UA_MSGT_ASPSM_ASPDN_ACK}, LoopDat) ->
-	timer:cancel(LoopDat#m3ua_state.t_ack),
-	% transition into ASP_DOWN
-	% signal this to the user
-	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_DOWN',confirm)),
-	{next_state, asp_down, LoopDat};
-
-asp_active(#m3ua_msg{msg_class = ?M3UA_MSGC_ASPTM,
-		     msg_type = ?M3UA_MSGT_ASPTM_ASPIA_ACK}, LoopDat) ->
-	timer:cancel(LoopDat#m3ua_state.t_ack),
-	% transition into ASP_INACTIVE
-	% signal this to the user
-	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_INACTIVE',confirm)),
-	{next_state, asp_inactive, LoopDat};
-
-asp_active(#primitive{subsystem = 'M', gen_name = 'ASP_DOWN',
-		      spec_name = request, parameters = _Params}, LoopDat) ->
-	% M-ASP_DOWN.req from user, generate message and send to remote peer
-	send_msg_start_tack(LoopDat, asp_active, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN, );
-
-asp_active({timer_expired, t_ack, {?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN, Params}}, LoopDat) ->
-	send_msg_start_tack(LoopDat, asp_active, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN, Params);
-
-asp_active(#primitive{subsystem = 'M', gen_name = 'ASP_INACTIVE',
-		      spec_name = request, parameters = _Params}, LoopDat) ->
-	% M-ASP_INACTIVE.req from user, generate message and send to remote peer
-	send_msg_start_tack(LoopDat, asp_active, ?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPIA, );
-
-asp_active({timer_expired, t_ack, {?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPIA, Params}}, LoopDat) ->
-	send_msg_start_tack(LoopDat, asp_active, ?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPIA, Params);
-
-asp_active(#primitive{subsystem = 'MTP', gen_name = 'TRANSFER',
-		      spec_name = request, parameters = Params}, LoopDat) ->
-	% MTP-TRANSFER.req from user app: Send message to remote peer
-	OptList = {?M3UA_IEI_PROTOCOL_DATA, Params},
-	Msg = #m3ua_msg{version = 1, msg_class = ?M3UA_MSGC_TRANSFER,
-			msg_type = ?M3UA_MSGT_XFR_DATA,
-			payload = OptList},
-	send_sctp_to_peer(LoopDat, Msg),
-	{next_state, asp_active, LoopDat};
-asp_active(#m3ua_msg{version = 1, msg_class = ?M3UA_MSGC_TRANSFER,
-		     msg_type = ?M3UA_MSGT_XFR_DATA, payload = Params}, LoopDat) ->
-	% Data transfer from remote entity: Send MTP-TRANSFER.ind primitive to the user
-	Mtp3 = proplists:get_value(?M3UA_IEI_PROTOCOL_DATA, Params),
-	send_prim_to_user(LoopDat, osmo_util:make_prim('MTP','TRANSFER',indication,Mtp3)),
-	{next_state, asp_active, LoopDat};
-asp_active(#m3ua_msg{msg_class = ?M3UA_MSGC_ASPTM,
-		     msg_type = ?M3UA_MSGT_ASPTM_ASPIA_ACK}, LoopDat) ->
-	timer:cancel(LoopDat#m3ua_state.t_ack),
-	% transition to ASP_INACTIVE
-        {next_state, asp_inactive, LoopDat};
-
-asp_active(M3uaMsg, LoopDat) when is_record(M3uaMsg, m3ua_msg) ->
-	rx_m3ua(M3uaMsg, asp_active, LoopDat).
-
-
-
-rx_sctp(_Anc, Data, State, LoopDat) ->
-	M3uaMsg = m3ua_codec:parse_m3ua_msg(Data),
-	gen_fsm:send_event(self(), M3uaMsg),
-	{next_state, State, LoopDat}.
-
-
-
-rx_m3ua(Msg = #m3ua_msg{version = 1, msg_class = ?M3UA_MSGC_MGMT,
-			msg_type = ?M3UA_MSGT_MGMT_NTFY}, State, LoopDat) ->
-	send_prim_to_user(LoopDat, osmo_util:make_prim('M','NOTIFY',indication,Msg)),
-	{next_state, State, LoopDat};
-
-rx_m3ua(Msg = #m3ua_msg{version = 1, msg_class = ?M3UA_MSGC_ASPSM,
-			msg_type = ?M3UA_MSGT_ASPSM_BEAT}, State, LoopDat) ->
-	% Send BEAT_ACK using the same payload as the BEAT msg
-	send_sctp_to_peer(LoopDat, Msg#m3ua_msg{msg_type = ?M3UA_MSGT_ASPSM_BEAT_ACK}),
-	{next_state, State, LoopDat};
-
-rx_m3ua(Msg = #m3ua_msg{version = 1, msg_class = ?M3UA_MSGC_MGMT,
-			msg_type = ?M3UA_MSGT_MGMT_ERR}, State, LoopDat) ->
-	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ERROR',indication,Msg)),
-	{next_state, State, LoopDat};
-
-rx_m3ua(Msg = #m3ua_msg{version = 1, msg_class = ?M3UA_MSGC_SSNM,
-		        msg_type = MsgType, payload = Params}, State, LoopDat) ->
-	% transform to classic MTP primitive and send up to the user
-	Mtp = map_ssnm_to_mtp_prim(MsgType),
-	send_prim_to_user(LoopDat, Mtp),
-	{next_state, State, LoopDat};
-
-rx_m3ua(Msg = #m3ua_msg{}, State, LoopDat) ->
-	io:format("M3UA Unknown messge ~p in state ~p~n", Msg, State),
-	{next_state, State, LoopDat}.
-
-% Transform the M3UA SSNM messages into classic MTP primitives
-map_ssnm_to_mtp_prim(MsgType) ->
-	Mtp = #primitive{subsystem = 'MTP', spec_name = indication},
-	case MsgType of
-	    ?M3UA_MSGT_SSNM_DUNA -> Mtp#primitive{gen_name = 'PAUSE'};
-	    ?M3UA_MSGT_SSNM_DAVA -> Mtp#primitive{gen_name = 'RESUME'};
-	    ?M3UA_MSGT_SSNM_SCON -> Mtp#primitive{gen_name = 'STATUS'};
-	    ?M3UA_MSGT_SSNM_DUPU -> Mtp#primitive{gen_name = 'STATUS'}
-	end.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/m3ua_example.erl Deleted

@@ -1,68 +0,0 @@
--module(m3ua_example).
-
--include("osmo_util.hrl").
--include("m3ua.hrl").
--include("sccp.hrl").
-
--export(init/0).
-
--record(loop_dat, {
-	 scrc_pid,
-	 m3ua_pid
-	}).
-
-init() ->
-	% start the M3UA link to the SG
-	Opts = {user_pid, self()}, {sctp_remote_ip, {192,168,104,2}}, {sctp_remote_port, 2905},
-		{sctp_local_port, 60180}, {user_fun, fun m3ua_tx_to_user/2}, {user_args, self()},
-	{ok, M3uaPid} = m3ua_core:start_link(Opts),
-	% instantiate SCCP routing instance
-	{ok, ScrcPid} = sccp_scrc:start_link({mtp_tx_action, {callback_fn, fun scrc_tx_to_mtp/2, M3uaPid}}),
-	loop(#loop_dat{m3ua_pid = M3uaPid, scrc_pid = ScrcPid}).
-
-loop(L) ->
-	io:format("Example: Entering main loop~n"),
-	receive
-		{m3ua_prim, Prim} ->
-			io:format("Example: Rx M3UA Prim ~p~n", Prim),
-			rx_m3ua_prim(Prim, L);
-		Stop ->
-			io:format("Example: Received ~p~n", Stop),
-			exit(stop_received)
-	end,
-	loop(L).
-	
-
-scrc_tx_to_mtp(Prim, Args) ->
-	M3uaPid = Args,
-	gen_fsm:send_event(M3uaPid, Prim).
-
-m3ua_tx_to_user(Prim, Args) ->
-	UserPid = Args,
-	UserPid ! {m3ua_prim, Prim}.
-
-
-rx_m3ua_prim(#primitive{subsystem = 'M', gen_name = 'SCTP_ESTABLISH', spec_name = confirm}, L) ->
-	gen_fsm:send_event(L#loop_dat.m3ua_pid, osmo_util:make_prim('M','ASP_UP',request));
-
-rx_m3ua_prim(#primitive{subsystem = 'M', gen_name = 'ASP_UP', spec_name = confirm}, L) ->
-	gen_fsm:send_event(L#loop_dat.m3ua_pid, osmo_util:make_prim('M','ASP_ACTIVE',request));
-
-rx_m3ua_prim(#primitive{subsystem = 'M', gen_name = 'ASP_ACTIVE', spec_name = confirm}, L) ->
-	io:format("Example: M3UA now active and ready~n"),
-	tx_sccp_udt(L#loop_dat.scrc_pid);
-
-rx_m3ua_prim(P, _L) ->
-	io:format("Example: Ignoring M3UA prim ~p~n", P),
-	ok.
-
-
-tx_sccp_udt(ScrcPid) ->
-	CallingP = #sccp_addr{ssn = ?SCCP_SSN_MSC, point_code = osmo_util:pointcode2int(itu, {1,2,2})},
-	CalledP = #sccp_addr{ssn = ?SCCP_SSN_HLR, point_code = osmo_util:pointcode2int(itu, {1,1,1})},
-	Data = <<1,2,3,4>>,
-	Opts = {protocol_class, 0}, {called_party_addr, CalledP},
-		{calling_party_addr, CallingP}, {user_data, Data},
-	io:format("Example: Sending N-UNITDATA.req to SCRC~n"),
-	gen_fsm:send_event(ScrcPid, osmo_util:make_prim('N','UNITDATA',request,Opts)).
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/mtp2_iac.erl Deleted

@@ -1,341 +0,0 @@
-% MTP2 Initial Alignment Control according to Q.703 Figure 4 / Figure 9
-
-% (C) 2011-2012 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(mtp2_iac).
--author('Harald Welte <laforge@gnumonks.org>').
--behaviour(gen_fsm).
-
-% gen_fsm exports 
--export(init/1, terminate/3, code_change/4, handle_event/3, handle_info/3).
-
-% states in this FSM
--export(idle/2, not_aligned/2, aligned/2, proving/2).
-
-% Timeouts in milliseconds According to Q.703 / Section 12.3
--define(M2PA_T1_DEF,	 50000).
--define(M2PA_T2_DEF,	150000).
--define(M2PA_T3_DEF,	  2000).
--define(M2PA_T4N_DEF,	  8200).
--define(M2PA_T4E_DEF,	   500).
-
--record(iac_state, {
-		t2_timeout,
-		t3_timeout,
-		t4_timeout,
-		t4_timeout_pn,
-		t4_timeout_pe,
-		t2, t3, t4,
-		emergency,
-		cp,
-		further_prov,
-		lsc_pid,
-		aerm_pid,
-		txc_pid
-	}).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% gen_fsm callbacks
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-init(Lsc, Aerm, Txc) ->
-	IacState = #iac_state{t2_timeout = ?M2PA_T2_DEF,
-			      t3_timeout = ?M2PA_T3_DEF,
-			      t4_timeout_pn = ?M2PA_T4N_DEF,
-			      t4_timeout_pe = ?M2PA_T4E_DEF,
-			      emergency = 0,
-			      cp = 0,
-			      further_prov = 1,
-			      lsc_pid = Lsc,
-			      aerm_pid = Aerm,
-			      txc_pid = Txc},
-	{ok, idle, IacState}.
-
-terminate(Reason, State, _LoopDat) ->
-	io:format("Terminating ~p in State ~p (Reason: ~p)~n",
-		  ?MODULE, State, Reason),
-	ok.
-
-code_change(_OldVsn, StateName, LoopDat, _Extra) ->
-	{ok, StateName, LoopDat}.
-
-handle_event(Event, State, LoopDat) ->
-	io:format("Unknown Event ~p in state ~p~n", Event, State),
-	{next_state, State, LoopDat}.
-
-
-handle_info(Info, State, LoopDat) ->
-	io:format("Unknown Info ~p in state ~p~n", Info, State),
-	{next_state, State, LoopDat}.
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% STATE "idle"
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-idle(start, LoopDat) ->
-	% send sio
-	send_to_txc(si_o, LoopDat),
-	% start timer
-	T2tout = LoopDat#iac_state.t2_timeout,
-	{ok, T2} = timer:apply_after(T2tout, gen_fsm, send_event,
-			  	     self(), {timer_expired, t2}),
-	{next_state, not_aligned, LoopDat#iac_state{t2 = T2}};
-idle(emergency, LoopDat) ->
-	% mark emergency
-	{next_state, idle, LoopDat#iac_state{emergency = 1}}.
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% STATE "not aligned"
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-not_aligned(stop, LoopDat) ->
-	% stop T2
-	timer:cancel(LoopDat#iac_state.t2),
-	% cancel emergency
-	{next_state, idle, LoopDat#iac_state{emergency=0}};
-not_aligned(si_e, LoopDat) ->
-	% stop T2
-	timer:cancel(LoopDat#iac_state.t2),
-	T4tout = LoopDat#iac_state.t4_timeout_pe,
-	% send SIE or SIN
-	case LoopDat#iac_state.emergency of
-		0 ->
-			Send = si_n;
-		_ ->
-			Send = si_e
-	end,
-	send_to_txc(Send, LoopDat),
-	% start T3
-	T3tout = LoopDat#iac_state.t3_timeout,
-	{ok, T3} = timer:apply_after(T3tout, gen_fsm, send_event,
-				     self(), {timer_expired, t3}),
-	{next_state, aligned, LoopDat#iac_state{t3 = T3, t2 = undefined, t4_timeout = T4tout}};
-not_aligned(What, LoopDat) when What == si_o; What == si_n ->
-	% stop T2
-	timer:cancel(LoopDat#iac_state.t2),
-	% send SIE or SIN
-	case LoopDat#iac_state.emergency of
-		0 ->
-			T4tout = LoopDat#iac_state.t4_timeout_pn,
-			Send = si_n;
-		_ ->
-			T4tout = LoopDat#iac_state.t4_timeout_pe,
-			Send = si_e
-	end,
-	send_to_txc(Send, LoopDat),
-	T3tout = LoopDat#iac_state.t3_timeout,
-	{ok, T3} = timer:apply_after(T3tout, gen_fsm, send_event,
-				     self(), {timer_expired, t3}),
-	{next_state, aligned, LoopDat#iac_state{t3 = T3, t2 = undefined, t4_timeout = T4tout}};
-not_aligned(emergency, LoopDat) ->
-	% mark emergency
-	{next_state, not_aligned, LoopDat#iac_state{emergency=1}};
-not_aligned(si_os, LoopDat) ->
-	% ignore SIOS in this state, as some implementations (notably
-	% yate) seem to send it in violation of the spec
-	{next_state, not_aligned, LoopDat};
-not_aligned({timer_expired, t2}, LoopDat) ->
-	% send 'alignment not possible' to LSC
-	send_to_lsc(alignment_not_possible, LoopDat),
-	% stop emergency
-	{next_state, idle, LoopDat#iac_state{emergency=0}}.
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% STATE "aligned"
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-aligned(What, LoopDat) when What == si_n; What == si_e ->
-	case What of
-		si_e ->
-			% set T4 to Pe
-			T4tout = LoopDat#iac_state.t4_timeout_pe;
-		_ ->
-			T4tout = LoopDat#iac_state.t4_timeout_pn
-	end,
-	% stop T3
-	timer:cancel(LoopDat#iac_state.t3),
-	ToutPE = LoopDat#iac_state.t4_timeout_pe,
-	case T4tout of
-		ToutPE ->
-			% set i to ie IAC->AERM
-			send_to_aerm(set_i_to_ie, LoopDat);
-		_ ->
-			ok
-	end,
-	% send Start to AERM
-	send_to_aerm(start, LoopDat),
-	% start T4
-	{ok, T4} = timer:apply_after(T4tout, gen_fsm, send_event,
-				     self(), {timer_expired, t4}),
-	% Cp := 0
-	% cancel further proving?
-	LoopDat2 = LoopDat#iac_state{t4 = T4, t4_timeout = T4tout,
-				     cp = 0, further_prov = 0},
-	{next_state, proving, LoopDat2};
-aligned(emergency, LoopDat) ->
-	% Send SIE
-	send_to_txc(si_e, LoopDat),
-	T4tout = LoopDat#iac_state.t4_timeout_pe,
-	{next_State, aligned, LoopDat#iac_state{t4_timeout = T4tout}};
-aligned(si_os, LoopDat) ->
-	% Send alignment not possible
-	send_to_lsc(alignment_not_possible, LoopDat),
-	% stop T3
-	timer:cancel(LoopDat#iac_state.t3),
-	{next_state, idle, LoopDat#iac_state{emergency=0, t3=undefined}};
-aligned(stop, LoopDat) ->
-	% Stop T3
-	timer:cancel(LoopDat#iac_state.t3),
-	% cancel Emergency
-	{next_state, idle, LoopDat#iac_state{emergency=0, t3=undefined}};
-aligned({timer_expired, t3}, LoopDat) ->
-	% Send alignment not possible
-	send_to_lsc(alignment_not_possible, LoopDat),
-	% cancel emergency
-	{next_state, idle, LoopDat#iac_state{emergency=0}}.
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% STATE "proving"
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-fig9_4(LoopDat) ->
-	% send Stop to AERM
-	send_to_aerm(stop, LoopDat),
-	% cancel emergency
-	{next_state, idle, LoopDat#iac_state{emergency=0}}.
-
-fig9_5(LoopDat) ->
-	% send Start to AERM
-	send_to_aerm(start, LoopDat),
-	% cancel further proving
-	% start T4
-	T4tout = LoopDat#iac_state.t4_timeout,
-	{ok, T4} = timer:apply_after(T4tout, gen_fsm, send_event,
-				     self(), {timer_expired, t4}),
-	{next_state, proving, LoopDat#iac_state{t4=T4, further_prov=0}}.
-
-prov_emerg_or_sie(LoopDat) ->
-	% stop T4
-	timer:cancel(LoopDat#iac_state.t4),
-	% Set T4 to Pe
-	T4tout = LoopDat#iac_state.t4_timeout_pe,
-	% Send stop to AERM
-	send_to_aerm(stop, LoopDat),
-	% Send 'set ti to tie' to AERM
-	send_to_aerm(set_ti_to_tie, LoopDat),
-	fig9_5(LoopDat#iac_state{t4_timeout=T4tout, t4=undefined}).
-
-
-proving(expires, LoopDat) ->
-	% alignment complete
-	{next_state, idle, LoopDat};
-proving(si_e, LoopDat) ->
-	ToutPE = LoopDat#iac_state.t4_timeout_pe,
-	case LoopDat#iac_state.t4_timeout of
-		ToutPE ->
-			{next_state, proving, LoopDat};
-		_ ->
-			prov_emerg_or_sie(LoopDat)
-	end;
-proving(emergency, LoopDat) ->
-	prov_emerg_or_sie(LoopDat);
-proving(stop, LoopDat) ->
-	% stop T4
-	timer:cancel(LoopDat#iac_state.t4),
-	fig9_4(LoopDat);
-proving(si_os, LoopDat) ->
-	% stop T4
-	timer:cancel(LoopDat#iac_state.t4),
-	% Send alignment not possible to LSC
-	send_to_lsc(alignment_not_possible, LoopDat),
-	fig9_4(LoopDat);
-proving(high_err_rate, LoopDat) ->
-	% alignment not possible
-	{next_state, idle, LoopDat};
-proving(sio, LoopDat) ->
-	% stop T4
-	timer:cancel(LoopDat#iac_state.t4),
-	% send Stop to AERM
-	send_to_aerm(stop, LoopDat),
-	% start T3
-	T3tout = LoopDat#iac_state.t3_timeout,
-	{ok, T3} = timer:apply_after(T3tout, gen_fsm, send_event,
-				     self(), {timer_expired, t3}),
-	{next_state, aligned, LoopDat#iac_state{t3=T3, t4=undefined}};
-proving(What, LoopDat) when What == correct_su; What == si_n ->
-	case LoopDat#iac_state.further_prov of
-		1 ->
-			% stop T4
-			timer:cancel(LoopDat#iac_state.t4),
-			fig9_5(LoopDat);
-		_ ->
-			{next_state, proving, LoopDat}
-	end;
-proving({timer_expired, t4}, LoopDat) ->
-	% check if we are further proving, if yes, call fig9_5
-	case LoopDat#iac_state.further_prov of
-		1 ->
-			fig9_5(LoopDat);
-		_ ->
-			% send 'aligment complete' to LSC
-			send_to_lsc(alignment_complete, LoopDat),
-			fig9_4(LoopDat)
-	end;
-proving(abort_proving, LoopDat) ->
-	% Cp := Cp + 1
-	Cp = LoopDat#iac_state.cp,
-	LoopDat2 = LoopDat#iac_state{cp = Cp + 1},
-	case Cp + 1 of
-		5 ->
-			% send 'alignment not possible' to LSC
-			send_to_lsc(alignment_not_possible, LoopDat),
-			% stop T4
-			timer:cancel(LoopDat#iac_state.t4),
-			fig9_4(LoopDat2);
-		_ ->
-			% mark further proving
-			{next_state, proving, LoopDat2#iac_state{further_prov=1}}
-	end.
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% helper functions
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-send_to_lsc(What, #iac_state{lsc_pid = Lsc}) ->
-	gen_fsm:send_event(Lsc, What).
-
-send_to_aerm(What, #iac_state{aerm_pid = Aerm}) ->
-	Aerm ! {iac_aerm, What}.
-
-send_to_txc(What, #iac_state{txc_pid = Txc}) ->
-	Txc ! {iac_txc, What}.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/mtp2_lsc.erl Deleted

@@ -1,430 +0,0 @@
-% MTP2 Link State Control according to Q.703 Figure 3 / Figure 8
-
-% (C) 2011-2012 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(mtp2_lsc).
--author('Harald Welte <laforge@gnumonks.org>').
--behaviour(gen_fsm).
-
-% gen_fsm exports 
--export(init/1, terminate/3, code_change/4, handle_event/3, handle_info/3).
-
-% individual FSM states
--export(power_off/2, out_of_service/2, initial_alignment/2,
-	 aligned_not_ready/2, aligned_ready/2, in_service/2,
-	 processor_outage/2).
-
-% sync event handlers
--export(power_off/3).
-
--record(lsc_state, {
-		t1_timeout,
-		t1,
-		iac_pid,
-		aerm_pid,
-		l3_pid,
-		poc_pid,
-		txc_pid,
-		rc_pid,
-		local_proc_out,
-		proc_out,
-		emergency
-	}).
-
--define(M2PA_T1_DEF,	300000).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% gen_fsm callbacks
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-init(Aerm, Rc, Txc, L3, Poc) ->
-	{ok, Iac} = gen_fsm:start_link(mtp2_iac, self(), Aerm, Txc, {debug, trace}),
-	LscState = #lsc_state{t1_timeout = ?M2PA_T1_DEF,
-			      iac_pid = Iac,
-			      aerm_pid = Aerm,
-			      l3_pid = L3,
-			      poc_pid = L3,
-			      txc_pid = Txc,
-			      rc_pid = Rc,
-		      	      local_proc_out = 0,
-		      	      proc_out = 0,
-		      	      emergency = 0},
-	{ok, power_off, LscState}.
-
-terminate(Reason, State, _LoopDat) ->
-	io:format("Terminating ~p in State ~p (Reason: ~p)~n",
-		  ?MODULE, State, Reason),
-	ok.
-
-code_change(_OldVsn, StateName, LoopDat, _Extra) ->
-	{ok, StateName, LoopDat}.
-
-handle_event(Event, State, LoopDat) ->
-	io:format("Unknown Event ~p in state ~p~n", Event, State),
-	{next_state, State, LoopDat}.
-
-
-handle_info(Info, State, LoopDat) ->
-	io:format("Unknown Info ~p in state ~p~n", Info, State),
-	{next_state, State, LoopDat}.
-
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% STATE: power_off
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-power_off(power_on, LoopDat) ->
-	% Power On from MGMT
-	send_to(txc, start, LoopDat),
-	send_to(txc, si_os, LoopDat),
-	send_to(aerm, set_ti_to_tin, LoopDat),
-	% Cancel local processor outage, cancel emergency
-	{next_state, out_of_service, LoopDat#lsc_state{local_proc_out=0, emergency=0}}.
-
-power_off(get_iac_pid, From, LoopDat) ->
-	Iac = LoopDat#lsc_state.iac_pid,
-	{reply, {ok, Iac}, power_off, LoopDat}.
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% STATE: out_of_service
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-out_of_service(start, LoopDat) ->
-	% Start from L3
-	send_to(rc, start, LoopDat),
-	send_to(txc, start, LoopDat),
-	case LoopDat#lsc_state.emergency of
-		1 ->
-			send_to(iac, emergency, LoopDat);
-		_ ->
-			ok
-	end,
-	send_to(iac, start, LoopDat),
-	{next_state, initial_alignment, LoopDat};
-
-out_of_service(retrieve_bsnt, LoopDat) ->
-	send_to(rc, retrieve_bsnt, LoopDat),
-	{next_state, out_of_service, LoopDat};
-
-out_of_service(retrieval_request_and_fsnc, LoopDat) ->
-	send_to(txc, retrieval_request_and_fsnc, LoopDat),
-	{next_state, out_of_service, LoopDat};
-
-out_of_service(emergency, LoopDat) ->
-	{next_state, out_of_service, LoopDat#lsc_state{emergency=1}};
-
-out_of_service(emergency_ceases, LoopDat) ->
-	{next_state, out_of_service, LoopDat#lsc_state{emergency=0}};
-
-out_of_service(What, LoopDat) when	What == local_processor_outage;
-					What == level3_failure ->
-	{next_state, out_of_service, LoopDat#lsc_state{local_proc_out=1}};
-
-out_of_service(si_os, LoopDat) ->
-	% this transition is not specified in Q.703, but it makes
-	% quite a bit of sense.  yate M2PA requires it, too.
-	{next_state, out_of_service, LoopDat};
-
-out_of_service(local_processor_recovered, LoopDat) ->
-	{next_state, out_of_service, LoopDat#lsc_state{local_proc_out=0}}.
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% STATE: initial_alignment
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-initial_alignment(What, LoopDat) when	What == local_processor_outage;
-					What == level3_failure ->
-	{next_state, initial_alignment, LoopDat#lsc_state{local_proc_out=1}};
-
-initial_alignment(local_processor_recovered, LoopDat) ->
-	{next_state, initial_alignment, LoopDat#lsc_state{local_proc_out=0}};
-
-initial_alignment(emergency, LoopDat) ->
-	send_to(iac, emergency, LoopDat),
-	{next_state, initial_alignment, LoopDat#lsc_state{emergency=1}};
-
-initial_alignment(alignment_complete, LoopDat) ->
-	send_to(suerm, start, LoopDat),
-	{ok, T1} = timer:apply_after(LoopDat#lsc_state.t1_timeout,
-				     gen_fsm, send_event,
-				     self(), {timer_expired, t1}),
-	case LoopDat#lsc_state.local_proc_out of
-		1 ->
-			send_to(poc, local_processor_outage, LoopDat),
-			send_to(txc, si_po, LoopDat),
-			send_to(rc, reject_msu_fisu, LoopDat),
-			NextState = aligned_not_ready;
-		_ ->
-			send_to(txc, fisu, LoopDat),
-			send_to(rc, accept_msu_fisu, LoopDat),
-			NextState = aligned_ready
-	end,
-	{next_state, NextState, LoopDat#lsc_state{t1=T1}};
-
-initial_alignment(stop, LoopDat) ->
-	send_to(iac, stop, LoopDat),
-	send_to(rc, stop, LoopDat),
-	send_to(txc, si_os, LoopDat),
-	{next_state, out_of_service, LoopDat#lsc_state{local_proc_out=0, emergency=0}};
-
-initial_alignment(link_failure, LoopDat) ->
-	send_to(l3, out_of_service, LoopDat),
-	send_to(iac, stop, LoopDat),
-	send_to(rc, stop, LoopDat),
-	send_to(txc, si_os, LoopDat),
-	{next_state, out_of_service, LoopDat#lsc_state{local_proc_out=0, emergency=0}};
-
-initial_alignment(alignment_not_possible, LoopDat) ->
-	send_to(rc, stop, LoopDat),
-	send_to(txc, si_os, LoopDat),
-	{next_state, out_of_service, LoopDat#lsc_state{local_proc_out=0, emergency=0}};
-
-% forward into IAC sub-state-machine
-initial_alignment(What, LoopDat) when
-		What == si_n; What == si_e; What == si_o; What == si_os;
-		What == fisu_msu_received ->
-	Iac = LoopDat#lsc_state.iac_pid,
-	gen_fsm:send_event(Iac, What),
-	{next_state, initial_alignment, LoopDat}.
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% STATE: aligned_ready
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-aligned_ready(SioOrSios, LoopDat) when SioOrSios == si_o;
-					SioOrSios == si_os;
-			       		SioOrSios == link_failure ->
-	timer:cancel(LoopDat#lsc_state.t1),
-	send_to(l3, out_of_service, LoopDat),
-	send_to(rc, stop, LoopDat),
-	send_to(suerm, stop, LoopDat),
-	send_to(txc, si_os, LoopDat),
-	{next_state, out_of_service, LoopDat};
-
-aligned_ready(stop, LoopDat) ->
-	timer:cancel(LoopDat#lsc_state.t1),
-	send_to(rc, stop, LoopDat),
-	send_to(suerm, stop, LoopDat),
-	send_to(txc, si_os, LoopDat),
-	{next_state, out_of_service, LoopDat};
-
-aligned_ready({timer_expired, t1}, LoopDat) ->
-	send_to(l3, out_of_service, LoopDat),
-	send_to(rc, stop, LoopDat),
-	send_to(suerm, stop, LoopDat),
-	send_to(txc, si_os, LoopDat),
-	{next_state, out_of_service, LoopDat};
-
-aligned_ready(si_po, LoopDat) ->
-	timer:cancel(LoopDat#lsc_state.t1),
-	send_to(l3, remote_processor_outage, LoopDat),
-	send_to(poc, remote_processor_outage, LoopDat),
-	{next_state, processor_outage, LoopDat};
-
-aligned_ready(fisu_msu_received, LoopDat) ->
-	send_to(l3, in_service, LoopDat),
-	timer:cancel(LoopDat#lsc_state.t1),
-	send_to(txc, msu, LoopDat),
-	{next_state, in_service, LoopDat};
-aligned_ready(What, LoopDat) when	What == local_processor_outage;
-					What == level3_failure ->
-	send_to(poc, local_processor_outage, LoopDat),
-	send_to(txc, si_po, LoopDat),
-	send_to(rc, reject_msu_fisu, LoopDat),
-	{next_state, aligned_not_ready, LoopDat}.
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% STATE: aligned_not_ready
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-aligned_not_ready(Err, LoopDat) when 	Err == link_failure;
-					Err == si_o;
-					Err == si_os ->
-	timer:cancel(LoopDat#lsc_state.t1),
-	send_to(l3, out_of_service, LoopDat),
-	send_to(l3, stop, LoopDat),
-	send_to(suerm, stop, LoopDat),
-	send_to(txc, si_os, LoopDat),
-	send_to(poc, stop, LoopDat),
-	{next_state, out_of_service, LoopDat#lsc_state{local_proc_out=0, emergency=0}};
-
-aligned_not_ready(stop, LoopDat) ->
-	timer:cancel(LoopDat#lsc_state.t1),
-	send_to(l3, stop, LoopDat),
-	send_to(suerm, stop, LoopDat),
-	send_to(txc, si_os, LoopDat),
-	send_to(poc, stop, LoopDat),
-	{next_state, out_of_service, LoopDat#lsc_state{local_proc_out=0, emergency=0}};
-
-aligned_not_ready({timer_expired, t1}, LoopDat) ->
-	send_to(l3, stop, LoopDat),
-	send_to(suerm, stop, LoopDat),
-	send_to(txc, si_os, LoopDat),
-	send_to(poc, stop, LoopDat),
-	{next_state, out_of_service, LoopDat#lsc_state{local_proc_out=0, emergency=0}};
-
-aligned_not_ready(local_processor_recovered, LoopDat) ->
-	send_to(poc, local_processor_recovered, LoopDat),
-	send_to(txc, fisu, LoopDat),
-	send_to(rc, accept_msu_fisu, LoopDat),
-	{next_state, aligned_ready, LoopDat#lsc_state{local_proc_out=0}};
-
-aligned_not_ready(fisu_msu_received, LoopDat) ->
-	send_to(l3, in_service, LoopDat),
-	timer:cancel(LoopDat#lsc_state.t1),
-	{next_state, processor_outage, LoopDat};
-
-aligned_not_ready(si_po, LoopDat) ->
-	send_to(l3, remote_processor_outage, LoopDat),
-	send_to(poc, remote_processor_outage, LoopDat),
-	timer:cancel(LoopDat#lsc_state.t1),
-	{next_state, processor_outage, LoopDat}.
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% STATE: in_service
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-in_service(What, LoopDat) when	What == link_failure;
-				What == si_o;
-				What == si_n;
-				What == si_e;
-				What == si_os ->
-	send_to(l3, out_of_service, LoopDat),
-	send_to(suerm, stop, LoopDat),
-	send_to(rc, stop, LoopDat),
-	send_to(txc, si_os, LoopDat),
-	{next_state, out_of_service, LoopDat#lsc_state{emergency=0}};
-
-in_service(stop, LoopDat) ->
-	send_to(suerm, stop, LoopDat),
-	send_to(rc, stop, LoopDat),
-	send_to(txc, si_os, LoopDat),
-	{next_state, out_of_service, LoopDat#lsc_state{emergency=0}};
-
-in_service(What, LoopDat) when	What == local_processor_outage;
-				What == level3_failure ->
-	send_to(poc, local_processor_outage, LoopDat),
-	send_to(txc, si_po, LoopDat),
-	send_to(rc, reject_msu_fisu, LoopDat),
-	{next_state, aligned_not_ready, LoopDat#lsc_state{local_proc_out=1}};
-
-in_service(si_po, LoopDat) ->
-	send_to(txc, fisu, LoopDat),
-	send_to(l3, remote_processor_outage, LoopDat),
-	send_to(poc, remote_processor_outage, LoopDat),
-	{next_state, processor_outage, LoopDat#lsc_state{proc_out=1}}.
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% STATE: processor_outage
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-processor_outage(retrieval_request_and_fsnc, LoopDat) ->
-	send_to(txc, retrieval_request_and_fsnc, LoopDat),
-	{next_state, processor_outage, LoopDat};
-
-processor_outage(fisu_msu_received, LoopDat) ->
-	send_to(poc, remote_processor_recovered, LoopDat),
-	send_to(l3, remote_processor_recovered, LoopDat),
-	{next_state, processor_outage, LoopDat};
-
-processor_outage(retrieve_bsnt, LoopDat) ->
-	send_to(rc, retrieve_bsnt, LoopDat),
-	{next_state, processor_outage, LoopDat};
-
-processor_outage(What, LoopDat) when	What == local_processor_outage;
-					What == level3_failure ->
-	send_to(poc, local_processor_outage, LoopDat),
-	send_to(txc, si_po, LoopDat),
-	{next_state, processor_outage, LoopDat#lsc_state{local_proc_out=1}};
-
-processor_outage(si_po, LoopDat) ->
-	send_to(l3, remote_processor_outage, LoopDat),
-	send_to(poc, remote_processor_outage, LoopDat),
-	{next_state, processor_outage, LoopDat#lsc_state{proc_out=1}};
-
-processor_outage(local_processor_recovered, LoopDat) ->
-	send_to(poc, local_processor_recovered, LoopDat),
-	send_to(rc, retrieve_fsnx, LoopDat),
-	send_to(txc, fisu, LoopDat),
-	{next_state, processor_outage, LoopDat};
-
-processor_outage(flush_buffers, LoopDat) ->
-	send_to(txc, flush_buffers, LoopDat),
-	% FIXME: mark L3 ind recv
-	{next_state, processor_outage, LoopDat};
-
-processor_outage(no_processor_outage, LoopDat) ->
-	% FIXME: check L3 ind
-	send_to(txc, msu, LoopDat),
-	send_to(rc, accept_msu_fisu, LoopDat),
-	{next_state, in_service, LoopDat#lsc_state{local_proc_out=0, proc_out=0}};
-
-processor_outage(What, LoopDat) when	What == link_failure;
-					What == si_o;
-					What == si_n;
-					What == si_e;
-					What == si_os ->
-	send_to(l3, out_of_service, LoopDat),
-	send_to(suerm, stop, LoopDat),
-	send_to(rc, stop, LoopDat),
-	send_to(poc, stop, LoopDat),
-	send_to(txc, si_os, LoopDat),
-	{next_state, out_of_service, LoopDat#lsc_state{emergency=0, local_proc_out=0}};
-
-processor_outage(stop, LoopDat) ->
-	send_to(suerm, stop, LoopDat),
-	send_to(rc, stop, LoopDat),
-	send_to(poc, stop, LoopDat),
-	send_to(txc, si_os, LoopDat),
-	{next_state, out_of_service, LoopDat#lsc_state{emergency=0, local_proc_out=0}}.
-
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% helper functions
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-send_to(txc, What, #lsc_state{txc_pid = Txc}) ->
-	Txc ! {lsc_txc, What};
-send_to(iac, What, #lsc_state{iac_pid = Iac}) ->
-	gen_fsm:send_event(Iac, What);
-send_to(rc, What, #lsc_state{rc_pid = Rc}) ->
-	Rc ! {lsc_rc, What};
-send_to(Who, What, _LoopDat) ->
-	io:format("Not sending LSC -> ~p: ~p~n", Who, What).
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/mtp3_codec.erl Deleted

@@ -1,93 +0,0 @@
-% ITU-T Q.704 (MTP Level 3) coding / decoding
-
-% (C) 2011 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(mtp3_codec).
--author('Harald Welte <laforge@gnumonks.org>').
--include("mtp3.hrl").
-
--export(parse_mtp3_msg/1, encode_mtp3_msg/1, invert_rout_lbl/1).
-
--compile({parse_transform, exprecs}).
--export_records(mtp3_routing_label, mtp3_msg).
-
-% Parse standard routing label according to Section 2.2 of ITU-T Q.704
-parse_mtp3_routing_label(_, LabelBin) when is_binary(LabelBin) ->
-	% we need to swap the four bytes and then parse the fields
-	<<Label32:32/little, Remain/binary>> = LabelBin,
-	LabelRev = <<Label32:32/big>>,
-	<<Sls:4/big, Opc:14/big, Dpc:14/big>> = LabelRev,
-	{ok, #mtp3_routing_label{sig_link_sel = Sls, origin_pc = Opc, dest_pc = Dpc}, Remain}.
-
-parse_mtp3_msg(DataBin) when is_binary(DataBin) ->
-	<<NetInd:2, 0:2, ServiceInd:4, Remain/binary>> = DataBin,
-	{ok, RoutLbl, Payload} = parse_mtp3_routing_label(ServiceInd, Remain),
-	PayloadDec = decode_payload(ServiceInd, Payload),
-	#mtp3_msg{network_ind = NetInd, service_ind = ServiceInd, routing_label = RoutLbl,
-		  payload = PayloadDec}.
-
-
-encode_mtp3_routing_label(#mtp3_routing_label{sig_link_sel = Sls, origin_pc = OpcIn,
-					      dest_pc = DpcIn}) ->
-	Opc = osmo_util:pointcode2int(OpcIn),
-	Dpc = osmo_util:pointcode2int(DpcIn),
-	% we need to swap the four bytes after encoding the fields
-	<<Label32:32/little>> = <<Sls:4/big, Opc:14/big, Dpc:14/big>>,
-	<<Label32:32/big>>.
-
-encode_mtp3_msg(#mtp3_msg{network_ind = NetInd, service_ind = ServiceInd,
-			  routing_label = RoutLbl, payload = Payload}) ->
-	RoutLblBin = encode_mtp3_routing_label(RoutLbl),
-	PayloadBin = payload_to_binary(ServiceInd, Payload),
-	<<NetInd:2, 0:2, ServiceInd:4, RoutLblBin/binary, PayloadBin/binary>>.
-
-
-decode_payload(?MTP3_SERV_MTN, Payload) ->
-	<<H1:4, H0:4, Len:4, 0:4, TP/binary>> = Payload,
-	#mtp3mg_msg{h0 = H0, h1 = H1, payload = TP};
-decode_payload(?MTP3_SERV_MGMT, Payload) ->
-	<<H1:4, H0:4, Remain/binary>> = Payload,
-	#mtp3mg_msg{h0 = H0, h1 = H1, payload = Remain};
-decode_payload(_, Payload) ->
-	Payload.
-
-payload_to_binary(?MTP3_SERV_MTN, #mtp3mg_msg{h0=H0, h1=H1, payload=TP}) ->
-	Len = byte_size(TP),
-	<<H1:4, H0:4, Len:4, 0:4, TP/binary>>;
-payload_to_binary(?MTP3_SERV_MGMT, #mtp3mg_msg{h0=H0, h1=H1, payload=Payload}) ->
-	<<H1:4, H0:4, Payload/binary>>;
-payload_to_binary(_, Whatever) ->
-	Whatever.
-
-
-invert_rout_lbl(L = #mtp3_routing_label{origin_pc = Opc, dest_pc = Dpc}) ->
-	L#mtp3_routing_label{origin_pc = Dpc, dest_pc = Opc}.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/mtp3_hmdt.erl Deleted

@@ -1,116 +0,0 @@
-% MTP3 Message handling; message distribution (HMDT) according to Q.704
-
-% (C) 2011-2012 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(mtp3_hmdt).
--author('Harald Welte <laforge@gnumonks.org>').
--behaviour(gen_fsm).
-
--include("mtp3.hrl").
-
-% gen_fsm exports 
--export(init/1, terminate/3, code_change/4, handle_event/3, handle_info/3).
-
-% individual FSM states
--export(idle/2, own_sp_restart/2).
-
--record(hmdt_state, {
-		sltc_pid
-	}).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% gen_fsm callbacks
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-init(Sltc) when is_pid(Sltc) ->
-	HmdtState = #hmdt_state{sltc_pid = Sltc},
-	{ok, idle, HmdtState}.
-
-terminate(Reason, State, _LoopDat) ->
-	io:format("Terminating ~p in State ~p (Reason: ~p)~n",
-		  ?MODULE, State, Reason),
-	ok.
-
-code_change(_OldVsn, StateName, LoopDat, _Extra) ->
-	{ok, StateName, LoopDat}.
-
-handle_event(Event, State, LoopDat) ->
-	io:format("Unknown Event ~p in state ~p~n", Event, State),
-	{next_state, State, LoopDat}.
-
-handle_info(Info, State, LoopDat) ->
-	io:format("Unknown Info ~p in state ~p~n", Info, State),
-	{next_state, State, LoopDat}.
-
-% See Figure 2 of Q.707
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% STATE: idle
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-idle(M=#mtp3_msg{service_ind=Sio}, LoopDat) ->
-	handle_mtp3(Sio, M, LoopDat),
-	{next_state, idle, LoopDat};
-
-idle(restart_begins, LoopDat) ->
-	{next_state, own_sp_restart, LoopDat}.
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% STATE: own_sp_restart
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-own_sp_restart(M=#mtp3_msg{service_ind=Sio}, LoopDat) when
-			Sio == ?MTP3_SERV_MGMT; Sio == ?MTP3_SERV_MTN ->
-	handle_mtp3(Sio, M, LoopDat),
-	{next_state, own_sp_restart, LoopDat};
-
-own_sp_restart(restart_ends, LoopDat) ->
-	{next_state, idle, LoopDat}.
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% helper functions
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-handle_mtp3(?MTP3_SERV_MTN, Mtp3, LoopDat) ->
-	io:format("SIO ~p HMDT -> SLTC~n", ?MTP3_SERV_MTN),
-	gen_fsm:send_event(LoopDat#hmdt_state.sltc_pid, Mtp3);
-handle_mtp3(?MTP3_SERV_MGMT, Mtp3, LoopDat) ->
-	io:format("SIO ~p HMDT -> NULL~n", ?MTP3_SERV_MGMT),
-	% FIXME: distinguish between SRM, SLM and STM
-	ok;
-handle_mtp3(Sio, Mtp3, LoopDat) ->
-	io:format("SIO ~p HMDT -> ss7_links~n", Sio),
-	% deliver to subsystem
-	ss7_links:mtp3_rx(Mtp3),
-	% FIXME: Send UPU! ?
-	ok.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/mtp3_sltc.erl Deleted

@@ -1,220 +0,0 @@
-% MTP3 Signalling Link Test Control (SLTC) according to Q.707
-
-% (C) 2011-2012 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(mtp3_sltc).
--author('Harald Welte <laforge@gnumonks.org>').
--behaviour(gen_fsm).
-
--include("mtp3.hrl").
-
-% gen_fsm exports 
--export(init/1, terminate/3, code_change/4, handle_event/3, handle_info/3).
-
-% individual FSM states
--export(idle/2, first_attempt/2, second_attempt/2).
-
--record(sltc_state, {
-		hmrt_pid,
-		mgmt_pid,
-		lsac_pid,
-		sls,
-		opc,
-		adj_dpc,
-		t1,
-		t1_timeout,
-		x
-	}).
-
--define(SLTC_T1_DEF,	10000).
--define(SLTC_T2_DEF,	60000).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% gen_fsm callbacks
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-init(Hmrt, Mgmt, Lsac, Sls, AdjDpc, Opc) when
-		is_pid(Hmrt), is_pid(Mgmt), is_pid(Lsac), is_integer(Sls) ->
-	SltState = #sltc_state{hmrt_pid = Hmrt,
-			       mgmt_pid = Mgmt,
-			       lsac_pid = Lsac,
-			       sls = Sls,
-			       adj_dpc = AdjDpc,
-			       opc = Opc,
-			       t1_timeout = ?SLTC_T1_DEF,
-			       x = 16#2342},
-	{ok, idle, SltState}.
-
-terminate(Reason, State, _LoopDat) ->
-	io:format("Terminating ~p in State ~p (Reason: ~p)~n",
-		  ?MODULE, State, Reason),
-	ok.
-
-code_change(_OldVsn, StateName, LoopDat, _Extra) ->
-	{ok, StateName, LoopDat}.
-
-handle_event(Event, State, LoopDat) ->
-	io:format("Unknown Event ~p in state ~p~n", Event, State),
-	{next_state, State, LoopDat}.
-
-handle_info(Info, State, LoopDat) ->
-	io:format("Unknown Info ~p in state ~p~n", Info, State),
-	{next_state, State, LoopDat}.
-
-% See Figure 2 of Q.707
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% STATE: idle
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-idle(M=#mtp3_msg{service_ind = ?MTP3_SERV_MTN,
-		 payload = #mtp3mg_msg{h0 = ?MTP3MG_H0_TEST,
-			 		h1 = ?MTP3MG_H1_SLTM}}, LoopDat) ->
-	Slta = slta_from_sltm(M),
-	send_to(hmrt, Slta, LoopDat),
-	{next_state, idle, LoopDat};
-
-idle(start, LoopDat) ->
-	Sltm = generate_sltm(LoopDat),
-	send_to(hmrt, Sltm, LoopDat),
-	{ok, T1} = timer:apply_after(gen_fsm, send_event,
-				     self(), {timer_expired, t1}),
-	{next_state, first_attempt, LoopDat#sltc_state{t1 = T1}}.
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% STATE: first_attempt
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-first_attempt(M=#mtp3_msg{service_ind = ?MTP3_SERV_MTN,
-			  payload = #mtp3mg_msg{h0 = ?MTP3MG_H0_TEST,
-						h1 = ?MTP3MG_H1_SLTM}}, LoopDat) ->
-	Slta = slta_from_sltm(M),
-	send_to(hmrt, Slta, LoopDat),
-	{next_state, first_attempt, LoopDat};
-
-first_attempt(M = #mtp3_msg{service_ind = ?MTP3_SERV_MTN,
-			    payload = #mtp3mg_msg{h0 = ?MTP3MG_H0_TEST,
-						  h1 = ?MTP3MG_H1_SLTA}}, LoopDat) ->
-	timer:cancel(LoopDat#sltc_state.t1),
-	case slt_matches(M, LoopDat) of
-	    true ->
-		send_to(lsac, slt_successful, LoopDat),
-		{next_state, idle, LoopDat};
-	    false ->
-		Sltm = generate_sltm(LoopDat),
-		send_to(hmrt, Sltm, LoopDat),
-		{ok, T1} = timer:apply_after(gen_fsm, send_event,
-					     self(), {timer_expired, t1}),
-		{next_state, second_attempt, LoopDat#sltc_state{t1 = T1}}
-	end.
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% STATE: second_attempt
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-second_attempt(M=#mtp3_msg{service_ind = ?MTP3_SERV_MTN,
-			  payload = #mtp3mg_msg{h0 = ?MTP3MG_H0_TEST,
-						h1 = ?MTP3MG_H1_SLTM}}, LoopDat) ->
-	Slta = slta_from_sltm(M),
-	send_to(hmrt, Slta, LoopDat),
-	{next_state, second_attempt, LoopDat};
-
-second_attempt(M = #mtp3_msg{service_ind = ?MTP3_SERV_MTN,
-			     payload = #mtp3mg_msg{h0 = ?MTP3MG_H0_TEST,
-						   h1 = ?MTP3MG_H1_SLTA}}, LoopDat) ->
-	timer:cancel(LoopDat#sltc_state.t1),
-	case slt_matches(M, LoopDat) of
-	    true ->
-		send_to(lsac, slt_successful, LoopDat);
-	    false ->
-		send_to(mgmt, slt_failed, LoopDat),
-		send_to(lsac, slt_failed, LoopDat)
-	end,
-	{next_state, idle, LoopDat};
-
-second_attempt({timer_expired, t1}, LoopDat) ->
-	send_to(mgmt, slt_failed, LoopDat),
-	send_to(lsac, slt_failed, LoopDat),
-	{next_state, idle, LoopDat}.
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% helper functions
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-send_to(hmrt, What, #sltc_state{hmrt_pid = Txc}) ->
-	Txc ! {sltc_hmrt, What};
-send_to(mgmt, What, #sltc_state{mgmt_pid = Txc}) ->
-	Txc ! {sltc_mgmt, What};
-send_to(lsac, What, #sltc_state{lsac_pid = Txc}) ->
-	Txc ! {sltc_lsac, What}.
-
-slta_from_sltm(M = #mtp3_msg{service_ind = ?MTP3_SERV_MTN,
-			     routing_label = RoutLbl,
-			     payload = #mtp3mg_msg{h0 = ?MTP3MG_H0_TEST,
-						   h1 = ?MTP3MG_H1_SLTM,
-					   	   payload = TP}}) ->
-	InvRoutLbl = mtp3_codec:invert_rout_lbl(RoutLbl),
-	M#mtp3_msg{routing_label = InvRoutLbl,
-		   payload = #mtp3mg_msg{h0 = ?MTP3MG_H0_TEST,
-			   		 h1 = ?MTP3MG_H1_SLTA,
-					 payload = TP}}.
-
-generate_sltm(LoopDat) ->
-	Mg = #mtp3mg_msg{h0 = ?MTP3MG_H0_TEST, h1 = ?MTP3MG_H1_SLTM,
-			 payload = LoopDat#sltc_state.x},
-	Lbl = #mtp3_routing_label{sig_link_sel = LoopDat#sltc_state.sls,
-				  origin_pc = LoopDat#sltc_state.opc,
-				  dest_pc = LoopDat#sltc_state.adj_dpc},
-
-	#mtp3_msg{network_ind = ?MTP3_NETIND_INTERNATIONAL,
-		  service_ind = ?MTP3_SERV_MTN,
-		  routing_label = Lbl, payload = Mg}.
-
-rout_lbl_matches(#mtp3_routing_label{sig_link_sel = SlsLocal,
-				     origin_pc = OPC}, LoopDat) ->
-	#sltc_state{adj_dpc = AdjDpc, sls = SLS} = LoopDat,
-	if SLS == SlsLocal, OPC == AdjDpc ->
-		true;
-	   true ->
-		false
-	end.
-
-slt_matches(#mtp3_msg{routing_label = RoutLbl,
-		      payload = #mtp3mg_msg{payload = TP}}, LoopDat) ->
-	case LoopDat#sltc_state.x of
-	    TP ->
-		rout_lbl_matches(RoutLbl, LoopDat);
-	    _ ->
-		false
-	end.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/osmo_ss7_app.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/osmo_ss7_gtt.erl Deleted

@@ -1,187 +0,0 @@
-% Osmocom Global Title Translation
-
-% (C) 2011 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(osmo_ss7_gtt).
--author('Harald Welte <laforge@gnumonks.org>').
-
--include("sccp.hrl").
--include("gtt.hrl").
-
--export(global_title_match/2, apply_gtt_actions/2, execute_gtt/2).
-
--compile({parse_transform, exprecs}).
--export_records(gtt_match, gtt_act_repl_digits, gtt_act_repl_num_plan).
-
-% Match a given GT against an ordered list of {match, action} tuples
-global_title_match(, _Gt) ->
-	false;
-global_title_match({Match, Action}|Tail, Gt) when is_record(Gt, global_title) ->
-	PhoneNumInt = osmo_util:digit_list2int(Gt#global_title.phone_number),
-	if Match#gtt_match.gt_range_from >= PhoneNumInt ->
-		% in an ordered list, we can assume that no trailing rules will
-		% match
-		false;
-	   true ->
-		case single_gt_match(Match, Gt) of
-		    true ->
-			Action;
-		    _ ->
-			% iterate further over the list of GTT rules
-			global_title_match(Tail, Gt)
-		end
-	end;
-% Same as above, but for SCCP Address (i.e. GT + point code and SSN)
-global_title_match({Match, Action}|Tail, SccpAddr) when
-					is_record(SccpAddr, sccp_addr) ->
-	Gt = SccpAddr#sccp_addr.global_title,
-	PhoneNumInt = osmo_util:digit_list2int(Gt#global_title.phone_number),
-	if Match#gtt_match.gt_range_from >= PhoneNumInt ->
-		% in an ordered list, we can assume that no trailing rules will
-		% match
-		false;
-	   true ->
-		case single_gt_match(Match, SccpAddr) of
-		    true ->
-			Action;
-		    _ ->
-			% iterate further over the list of GTT rules
-			global_title_match(Tail, SccpAddr)
-		end
-	end.
-
-
-% perform matching of a given global title against a single match
-single_gt_match(Match, Gt) when is_record(Match, gtt_match),
-				is_record(Gt, global_title) ->
-	#gtt_match{gt_range_from = RangeFrom, gt_range_to = RangeTo,
-		   numbering_plan = NumPlan,
-		   nature_of_addr_ind = NatureInd} = Match,
-	#global_title{phone_number = GtPhoneNum,
-		      numbering_plan = GtNumPlan,
-		      nature_of_addr_ind = GtNature} = Gt,
-	% build a list of the individual criteria that all have to match
-	SubMatchList = {digits, {RangeFrom, RangeTo}, GtPhoneNum},
-			{numbering_plan, NumPlan, GtNumPlan},
-			{nature_of_addr_ind, NatureInd, GtNature},
-	gt_sub_match_list(SubMatchList);
-% Same as above, but for SCCP Address (i.e. GT + point code and SSN)
-single_gt_match(Match, SccpAddr) when is_record(Match, gtt_match),
-				      is_record(SccpAddr, sccp_addr) ->
-	#gtt_match{dpc = Dpc, ssn = Ssn} = Match,
-	Gt = SccpAddr#sccp_addr.global_title,
-	% First match the GT part
-	case single_gt_match(Match, Gt) of
-	    false ->
-		false;
-	    true ->
-		% build a list of the individual criteria that all have to match
-		SubMatchList = {dpc, Dpc, SccpAddr#sccp_addr.point_code},
-				{ssn, Ssn, SccpAddr#sccp_addr.ssn},
-		gt_sub_match_list(SubMatchList)
-	end.
-
-% iterate over the list of individual match criteria and call the match function
-gt_sub_match_list() ->
-	true;
-gt_sub_match_list({What, MatchPart, GtPart}|SubMatchList) ->
-	case gt_sub_match(What, MatchPart, GtPart) of
-		false ->
-			false;
-		true ->
-			gt_sub_match_list(SubMatchList)
-	end.
-
-% matching of the actual phone number digits
-gt_sub_match(digits, {DigitsFrom, DigitsTo}, GtPart) ->
-	PhoneNumInt = osmo_util:digit_list2int(GtPart),
-	if
-		PhoneNumInt >= DigitsFrom, PhoneNumInt =< DigitsTo -> true;
-		true -> false
-	end;
-% any match that is not qualified will always match
-gt_sub_match(_What, undefined, _GtPart) ->
-	true;
-% remaining default match for all other fields
-gt_sub_match(_What, MatchPart, GtPart) ->
-	if
-		MatchPart == GtPart -> true;
-		true -> false
-	end.
-
-
-% Execute a single action: Replac some digits in the GT
-gtt_action(Gt, Action) when is_record(Gt, global_title),
-			    is_record(Action, gtt_act_repl_digits) ->
-	#gtt_act_repl_digits{replace_digit_start = ReplDigStart,
-			   replace_digit_end = ReplDigEnd,
-			   new_digits = NewDigits} = Action,
-	GtDigitList = Gt#global_title.phone_number,
-	Header = lists:sublist(GtDigitList, 1, ReplDigStart-1),
-	Trailer = lists:sublist(GtDigitList, ReplDigEnd+1, length(GtDigitList)),
-	Gt#global_title{phone_number = Header ++ NewDigits ++ Trailer};
-
-% Execute a single action: Replac the numbering plan in the GT
-gtt_action(Gt, #gtt_act_repl_num_plan{numbering_plan = NewNumPlan})
-					when is_record(Gt, global_title) ->
-	Gt#global_title{numbering_plan = NewNumPlan};
-
-% Execute a single 'generic purpose' action that will call apply/2
-gtt_action(Gt, #gtt_act_apply{funct = Funct, args = Args}) when
-					is_record(Gt, global_title) ->
-	apply(Funct, Args).
-
-
-% appliy a list of GTT actions to a Global Title
-apply_gtt_actions(Gt, ) when is_record(Gt, global_title) ->
-	Gt;
-apply_gtt_actions(Gt, Head|List) when is_record(Gt, global_title) ->
-	NewGt = gtt_action(Gt, Head),
-	apply_gtt_actions(NewGt, List);
-apply_gtt_actions(Gt, Action) when is_record(Gt, global_title) ->
-	gtt_action(Gt, Action).
-
-% Execute a complete GTT operation: matching + executing the action
-execute_gtt(Gt, RulesList) when is_record(Gt, global_title),
-				is_list(RulesList) ->
-	case global_title_match(RulesList, Gt) of
-	    false ->
-		Gt;
-	    Action ->
-		apply_gtt_actions(Gt, Action)
-	end;
-% Same as above, but for SCCP Address (i.e. GT + point code and SSN)
-execute_gtt(SccpAddr, RulesList) when is_record(SccpAddr, sccp_addr),
-				      is_list(RulesList) ->
-	Gt = SccpAddr#sccp_addr.global_title,
-	NewGt = execute_gtt(Gt, RulesList),
-	SccpAddr#sccp_addr{global_title = NewGt}.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/osmo_ss7_pcap.erl Deleted

@@ -1,101 +0,0 @@
-% MGW Nat testing code
-
-% (C) 2011 by Harald Welte <laforge@gnumonks.org>
-% (C) 2011 OnWaves
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(osmo_ss7_pcap).
--author("Harald Welte <laforge@gnumonks.org>").
--export(pcap_apply/3).
-
--define(NODEBUG, 1).
-
--include_lib("eunit/include/eunit.hrl").
--include_lib("pkt/include/pkt.hrl").
-
--record(loop_data, {
-		args,
-		pkt_nr
-	}).
-
-pcap_apply(File, Filter, Args) ->
-	epcap:start({file, File}, {filter, Filter}),
-	loop(#loop_data{args = Args, pkt_nr = 1}).
-
-loop(L = #loop_data{args=Args, pkt_nr = PktNr}) ->
-	receive
-		{pkthdr, {_,_,_,{datalink,Datalink}}}, {packet, Packet} ->
-			Decaps = epcap_net:decapsulate_dlt(Datalink, Packet),
-			handle_pkt_cb(PktNr, Decaps, Args),
-			loop(L#loop_data{pkt_nr = PktNr+1});
-		{epcap, eof} ->
-			?debugFmt("EOF from PCAP~n", ),
-			epcap:stop(),
-			{ok, PktNr-1};
-		Default ->
-			?debugFmt("Unknown ~p from PCAP~n", Default)
-	end.
-
-handle_pkt_cb(PktNr, Ether, IP, Hdr, Payload, Args) ->
-	?debugFmt("~p:~n  ~p/~p~n", IP, Hdr, Payload),
-	case Hdr of
-		#sctp{chunks = Chunks} ->
-			Path = {epcap_pkt_nr, PktNr}, Ether, IP, Hdr,
-			handle_sctp_chunks(Chunks, Path, Args);
-		_ ->
-			ok
-	end.
-
-handle_sctp_chunks(, _Path, _Args) ->
-	ok;
-handle_sctp_chunks(Head|Tail, Path, Args) ->
-	RewriteFn = proplists:get_value(rewrite_fn, Args),
-	case Head of
-		#sctp_chunk{type = 0, payload=#sctp_chunk_data{ppi=Ppi, data=Data}} ->
-			%mgw_nat:mangle_rx_data(l, from_stp, Data, fun handle_rewrite_cb/5);
-			put(rewrite_cb, RewriteFn),
-			shim_rw_actor(sctp, from_msc, Path, Ppi, Data);
-		_ ->
-			ok
-	end,
-	handle_sctp_chunks(Tail, Path, Args).
-
-shim_rw_actor(Proto, From, Path, MsgType, Msg) ->
-	?debugFmt(" IN:~p:~p:~p~n", Proto, From, Msg),
-	Fn = get(rewrite_cb),
-	MsgOut = Fn(Proto, From, Path, MsgType, Msg),
-	case MsgOut of
-		Msg ->
-			MsgOut;
-		_ ->
-			%io:format("OUT:~p:~p:~p~n", Proto, From, MsgOut),
-			MsgOut
-	end.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/osmo_ss7_sup.erl Deleted

@@ -1,76 +0,0 @@
-% OTP Supervisor for Osmocom SCCP
-
-% (C) 2011 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(osmo_ss7_sup).
--behavior(supervisor).
-
--export(start_link/0, add_mtp_link/1).
--export(init/1).
-
--include_lib("osmo_ss7/include/osmo_ss7.hrl").
-
-start_link() ->
-	supervisor:start_link({local, ?MODULE}, ?MODULE, {debug, trace}).
-
-init(Args) ->
-	LinksChild = {ss7_links, {ss7_links, start_link, },
-		     permanent, 2000, worker, ss7_links},
-	RouteChild = {ss7_routes, {ss7_routes, start_link, },
-		     permanent, 2000, worker, ss7_routes},
-	{ok,{{one_for_one,60,600}, LinksChild, RouteChild}}.
-
-% Add a m3ua link to this supervisor
-add_mtp_link(L=#sigtran_link{type = m3ua, name = Name,
-			   local = Local, remote = Remote}) ->
-	ChildName = list_to_atom("ss7_link_m3ua_" ++ Name),
-	ChildSpec = {ChildName, {ss7_link_m3ua, start_link, L},
-		     permanent, 2000, worker, ss7_link_m3ua},
-	supervisor:start_child(?MODULE, ChildSpec);
-add_mtp_link(L=#sigtran_link{type = m2ua, name = Name,
-			   local = Local, remote = Remote}) ->
-	ChildName = list_to_atom("ss7_link_m2ua_" ++ Name),
-	ChildSpec = {ChildName, {ss7_link_m2ua, start_link, L},
-		     permanent, 2000, worker, ss7_link_m2ua},
-	supervisor:start_child(?MODULE, ChildSpec);
-add_mtp_link(L=#sigtran_link{type = ipa_client, name = Name}) ->
-	ChildName = list_to_atom("ss7_link_ipa_client_" ++ Name),
-	ChildSpec = {ChildName, {ss7_link_ipa_client, start_link, L},
-		     permanent, 2000, worker, ss7_link_ipa_client},
-	supervisor:start_child(?MODULE, ChildSpec);
-add_mtp_link() ->
-	ok;
-add_mtp_link(Head|Tail) ->
-	add_mtp_link(Head, Tail).
-add_mtp_link(Head, Tail) ->
-	{ok, _Child} = add_mtp_link(Head),
-	add_mtp_link(Tail).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/osmo_util.erl Deleted

@@ -1,222 +0,0 @@
-% Osmocom Erlang utility functions
-
-% (C) 2011 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(osmo_util).
--author('Harald Welte <laforge@gnumonks.org>').
-
--export(digit_list2int/1, int2digit_list/1).
--export(reload_config/0).
--export(tuple_walk/3, tuple_walk_print_cb/3).
--export(make_prim/4, make_prim/3).
--export(pointcode2int/1, pointcode2int/2, pointcode_fmt/2).
--export(asn_val/1).
--export(get_env/2, get_env/3).
-
--include("osmo_util.hrl").
-
--compile({parse_transform, exprecs}).
--export_records(primitive).
-
-% Convert a list of digits to an integer value
-digit_list2int(Int, ) ->
-	Int;
-digit_list2int(Int, Digit|Tail) ->
-	digit_list2int(Int*10 + Digit, Tail).
-digit_list2int(Digits) when is_list(Digits) ->
-	digit_list2int(0, Digits).
-
-% Convert an integer value into a list of decimal digits
-int2digit_list(0, Digits) when is_list(Digits) ->
-	Digits;
-int2digit_list(Int, Digits) when is_integer(Int), is_list(Digits) ->
-	Digit = Int rem 10,
-	int2digit_list(Int div 10, Digit|Digits).
-int2digit_list(Int) when is_integer(Int) ->
-	int2digit_list(Int, ).
-
-% reload configuration of an application
-reload_config() ->
-	case init:get_argument(config) of
-	{ok,  Files } ->
-		ConfFiles = begin
-				S = filename:basename(F,".config"),
-				filename:join(filename:dirname(F),
-				S ++ ".config")
-			     end || F <- Files,
-		% Move sys.config to the head of the list
-		Config = lists:sort(fun("sys.config", _) -> true;
-					(_, _) -> false end, ConfFiles),
-
-		OldEnv = application_controller:prep_config_change(),
-
-		Apps = {application, A, make_appl(A)}
-		|| {A,_,_} <- application:which_applications(),
-		application_controller:change_application_data(Apps, Config),
-		application_controller:config_change(OldEnv);
-	_ ->
-		{ok, }
-	end.
-
-make_appl(App) when is_atom(App) ->
-	AppList  = element(2,application:get_all_key(App)),
-	FullName = code:where_is_file(atom_to_list(App) ++ ".app"),
-	case file:consult(FullName) of
-	{ok, {application, _, Opts}} ->
-		Env = proplists:get_value(env, Opts, ),
-		lists:keyreplace(env, 1, AppList, {env, Env});
-	{error, _Reason} ->
-		lists:keyreplace(env, 1, AppList, {env, })
-	end.
-
-
-% Walk a named tuple and (recursively) all its fields, call user-supplied
-% callback for each of them
-tuple_walk(Tpl, TupleCb, Args) when is_tuple(Tpl), is_function(TupleCb),
-				    is_list(Args) ->
-	tuple_walk(, Tpl, TupleCb, Args).
-
-tuple_walk(Path, Tpl, TupleCb, Args) when is_list(Path), is_tuple(Tpl),
-					  is_list(Args) ->
-	% call Callback
-	RetVal = TupleCb(Path, Tpl, Args),
-	if
-		is_tuple(RetVal) ->
-                	TplName|TplList = tuple_to_list(RetVal),
-                	NewTplList = tuple_fieldlist_walk(Path, TplName, TplList, TupleCb, Args),
-                	list_to_tuple(TplName|NewTplList);
-        	true ->
-                	RetVal
-        end;
-tuple_walk(Path, TplL, TupleCb, Args) when is_list(Path), is_list(TplL),
-					   is_list(Args) ->
-	tuple_walk_list(Path, TplL, TupleCb, Args, ).
-
-tuple_walk_list(_Path, , _TupleCb, _Args, OutList) ->
-	OutList;
-tuple_walk_list(Path, Head|Tail, TupleCb, Args, OutList) ->
-	if
-		is_tuple(Head) ->
-			NewHead = tuple_walk(Path, Head, TupleCb, Args);
-		is_list(Head) ->
-			NewHead = tuple_walk(Path, Head, TupleCb, Args);
-		true ->
-			NewHead = Head
-	end,
-	tuple_walk_list(Path, Tail, TupleCb, Args, OutList++NewHead).
-
-
-tuple_fieldlist_walk(Path, TplName, FieldList, TupleCb, Args) ->
-	tuple_fieldlist_walk(Path, TplName, FieldList, TupleCb, Args, ).
-
-tuple_fieldlist_walk(_Path, _TplName, , _TplCb, _Args, OutList) ->
-	OutList;
-tuple_fieldlist_walk(Path, TplName, Head|List, TupleCb, Args, OutList) ->
-	if
-		is_tuple(Head) ->
-			NewHead = tuple_walk(Path++TplName, Head, TupleCb, Args);
-		is_list(Head) ->
-			NewHead = tuple_walk(Path++TplName, Head, TupleCb, Args);
-		true ->
-			NewHead = Head
-	end,
-	tuple_fieldlist_walk(Path, TplName, List, TupleCb, Args, OutList++NewHead).
-
-
-tuple_walk_print_cb(Path, Tpl, _Args) when is_list(Path), is_tuple(Tpl) ->
-	io:format("~p:~p~n", Path, Tpl),
-	Tpl.
-
-% helper function to create a #primitive record
-make_prim(Subsys, GenName, SpecName) ->
-	make_prim(Subsys, GenName, SpecName, ).
-make_prim(Subsys, GenName, SpecName, Param) ->
-	#primitive{subsystem = Subsys, gen_name = GenName,
-		   spec_name = SpecName, parameters = Param}.
-
-% parse a 3-tuple pointcode into a raw integer
-pointcode2int(Int) when is_integer(Int) ->
-	Int;
-pointcode2int(undefined) ->
-	undefined;
-pointcode2int(#pointcode{repr=Type, value=Value}) ->
-	pointcode2int(Type, Value);
-pointcode2int({Std, Param}) ->
-	pointcode2int(Std, Param).
-
-pointcode2int(itu, {A, B, C}) ->
-	<<PcInt:14/big>> = <<A:3, B:8, C:3>>,
-	PcInt;
-pointcode2int(ansi, {A, B, C}) ->
-	<<PcInt:24/big>> = <<A:8, B:8, C:8>>,
-	PcInt;
-pointcode2int(ttc, {A, B, C}) ->
-	<<PcInt:16/big>> = <<A:5, B:4, C:7>>,
-	PcInt.
-
-% format a point-code into a 3-tuple according to the standard used
-pointcode_fmt(Std, P) when is_binary(P) ->
-	<<PcInt/integer>> = P,
-	pointcode_fmt(Std, PcInt);
-pointcode_fmt(itu, PcInt) when is_integer(PcInt) ->
-	<<A:3, B:8, C:3>> = <<PcInt:14/big>>,
-	{pointcode, itu, {A, B, C}};
-pointcode_fmt(ansi, PcInt) ->
-	<<A:8, B:8, C:8>> = <<PcInt:24/big>>,
-	{pointcode, ansi, {A, B, C}};
-pointcode_fmt(ttc, PcInt) ->
-	<<A:5, B:4, C:7>> = <<PcInt:16/big>>,
-	{pointcode, ttc, {A, B, C}}.
-
-asn_val(undefined) ->
-	asn1_NOVALUE;
-asn_val() ->
-	asn1_NOVALUE;
-asn_val(Foo) ->
-	Foo.
-
-% wrapper around application:get_env() thwowing exception on undef
-get_env(App, Var) when is_atom(App), is_atom(Var) ->
-	case application:get_env(App, Var) of
-		undefined ->
-			throw(undefined);
-		{ok, Value} ->
-			Value
-	end.
-
-get_env(App, Var, Default) ->
-	case application:get_env(App, Var) of
-		undefined ->
-			Default;
-		{ok, Value} ->
-			Value
-	end.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/sccp_codec.erl Deleted

@@ -1,558 +0,0 @@
-% ITU-T Q.71x SCCP Message coding / decoding
-
-% (C) 2010 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(sccp_codec).
--author('Harald Welte <laforge@gnumonks.org>').
--include("sccp.hrl").
-
--export(parse_sccp_msg/1, encode_sccp_msg/1, encode_sccp_msgt/2,
-	 is_connectionless/1).
-
--export(gen_gt_helper/1, gen_addr_helper/2, gen_addr_helper/3).
-
--compile(export_all).
-
--compile({parse_transform, exprecs}).
--export_records(global_title, sccp_addr, sccp_msg).
-
-binarify(In) when is_binary(In) ->
-	In;
-binarify(In) when is_list(In) ->
-	list_to_binary(In).
-
-parse_point_code(BinPC, PCind) when is_binary(BinPC) ->
-	case PCind of
-		1 ->
-			<<PointCode:16/little, Remain/binary>> = BinPC;
-		_ ->
-			Remain = BinPC,
-			PointCode = undefined
-	end,
-	{Remain, PointCode}.
-
-parse_ssn(BinSSN, SSNind) ->
-	case SSNind of
-		1 ->
-			<<SSN:8, Remain/binary>> = BinSSN;
-		_ ->
-			Remain = BinSSN,
-			SSN = undefined
-	end,
-	{Remain, SSN}.
-
-enc_is_odd(Enc) ->
-	case Enc of
-		1 -> 1;
-		_ -> 0
-	end.
-
-parse_gt(BinGT, GTind) ->
-	case GTind of
-		?SCCP_GTI_NO_GT ->
-			undefined;
-		?SCCP_GTI_NAT_ONLY ->
-			% Figure 7/Q.713
-			<<Odd:1, Nature:7, Digits/binary>> = BinGT,
-			PhoneNum = isup_codec:parse_isup_party(Digits, Odd),
-			#global_title{gti = GTind,
-				      nature_of_addr_ind = Nature,
-				      phone_number = PhoneNum};
-		?SCCP_GTI_TT_ONLY ->
-			% Figure 9/Q.913
-			<<TransType:8, Digits/binary>> = BinGT,
-			% Used in national interfaces only, we cannot parse Digits
-			#global_title{gti = GTind,
-				      trans_type = TransType,
-				      phone_number = Digits};
-		?SCCP_GTI_TT_NP_ENC ->
-			% Figure 10/Q.713
-			<<TransType:8, NumPlan:4, Enc:4, Digits/binary>> = BinGT,
-			PhoneNum = isup_codec:parse_isup_party(Digits, enc_is_odd(Enc)),
-			#global_title{gti = GTind,
-				      trans_type = TransType,
-				      numbering_plan = NumPlan,
-				      phone_number = PhoneNum};
-		?SCCP_GTI_TT_NP_ENC_NAT ->
-			% Figure 11/Q.713
-			<<TransType:8, NumPlan:4, Enc:4, 0:1, Nature:7, Digits/binary>> = BinGT,
-			PhoneNum = isup_codec:parse_isup_party(Digits, enc_is_odd(Enc)),
-			#global_title{gti = GTind,
-				      trans_type = TransType,
-				      numbering_plan = NumPlan,
-				      nature_of_addr_ind = Nature,
-				      phone_number = PhoneNum};
-		_ ->
-			BinGT
-	end.
-
-% parse SCCP Address
-parse_sccp_addr(BinAddr) when is_binary(BinAddr) ->
-	<<ResNatUse:1, RoutInd:1, GTind:4, SSNind:1, PCind:1, Remain/binary>> = BinAddr,
-	{RemainPC, OptPC} = parse_point_code(Remain, PCind),
-	{RemainSSN, OptSSN} = parse_ssn(RemainPC, SSNind),
-	OptGT = parse_gt(RemainSSN, GTind),
-	#sccp_addr{res_nat_use = ResNatUse, route_on_ssn = RoutInd,
-		   point_code = OptPC, ssn = OptSSN, global_title = OptGT}.
-
-% parse SCCP Optional Part
-parse_sccp_opt(OptType, _OptLen, Content) ->
-	OptAtom = opt_to_atom(OptType),
-	{OptAtom, Content}.
-
-parse_sccp_opts(<<>>, OptList) ->
-	% empty list
-	OptList;
-parse_sccp_opts(<<0>>, OptList) ->
-	% end of options
-	OptList;
-parse_sccp_opts(OptBin, OptList) ->
-	<<OptType, OptLen, Content:OptLen/binary, Remain/binary>> = OptBin,
-	NewOpt = parse_sccp_opt(OptType, OptLen, Content),
-	parse_sccp_opts(Remain, NewOpt|OptList).
-
-
-% Parse incoming SCCP message, one function for every message type
-parse_sccp_msgt(?SCCP_MSGT_CR, DataBin) ->
-	% first get the fixed part
-	<<_:8, SrcLocalRef:24/big, PCOpt:4, ProtoClass:4, RemainVar/binary >> = DataBin,
-	% variable length fixed part
-	<<PtrVar:8, PtrOpt:8, _/binary>> = RemainVar,
-	CalledPartyLen = binary:at(RemainVar, PtrVar),
-	CalledParty = binary:part(RemainVar, PtrVar+1, CalledPartyLen),
-	CalledPartyDec = parse_sccp_addr(CalledParty),
-	% optional part
-	OptBin = binary:part(RemainVar, 1 + PtrOpt, byte_size(RemainVar)-(1+PtrOpt)),
-	OptList = parse_sccp_opts(OptBin, ),
-	%OptList = ,
-	% build parsed list of message
-	{src_local_ref, SrcLocalRef},{protocol_class, {ProtoClass, PCOpt}},
-	 {called_party_addr, CalledPartyDec} | OptList;
-parse_sccp_msgt(?SCCP_MSGT_CC, DataBin) ->
-	% first get the fixed part
-	<<_:8, DstLocalRef:24/big, SrcLocalRef:24/big, PCOpt:4, ProtoClass:4, PtrOpt:8, Remain/binary >> = DataBin,
-	% optional part
-	OptBin = binary:part(Remain, PtrOpt-1, byte_size(Remain)-(PtrOpt-1)),
-	OptList = parse_sccp_opts(OptBin, ),
-	% build parsed list of message
-	{dst_local_ref, DstLocalRef},{src_local_ref, SrcLocalRef},
-	 {protocol_class, {ProtoClass, PCOpt}} | OptList;
-parse_sccp_msgt(?SCCP_MSGT_CREF, DataBin) ->
-	% first get the fixed part
-	<<_:8, DstLocalRef:24/big, RefusalCause:8, Remain/binary >> = DataBin,
-	% optional part
-	OptList = parse_sccp_opts(Remain, ),
-	% build parsed list of message
-	{dst_local_ref, DstLocalRef},{refusal_cause, RefusalCause}|OptList;
-parse_sccp_msgt(?SCCP_MSGT_RLSD, DataBin) ->
-	<<_:8, DstLocalRef:24/big, SrcLocalRef:24/big, ReleaseCause:8, Remain/binary >> = DataBin,
-	% optional part
-	OptList = parse_sccp_opts(Remain, ),
-	% build parsed list of message
-	{dst_local_ref, DstLocalRef},{src_local_ref, SrcLocalRef},{release_cause, ReleaseCause}|OptList;
-parse_sccp_msgt(?SCCP_MSGT_RLC, DataBin) ->
-	<<_:8, DstLocalRef:24/big, SrcLocalRef:24/big>> = DataBin,
-	% build parsed list of message
-	{dst_local_ref, DstLocalRef},{src_local_ref, SrcLocalRef};
-parse_sccp_msgt(?SCCP_MSGT_DT1, DataBin) ->
-	<<_:8, DstLocalRef:24/big, SegmReass:8, DataPtr:8, Remain/binary >> = DataBin,
-	DataLen = binary:at(Remain, DataPtr-1),
-	UserData = binary:part(Remain, DataPtr-1+1, DataLen),
-	% build parsed list of message
-	{dst_local_ref, DstLocalRef},{segm_reass, SegmReass},{user_data, UserData};
-parse_sccp_msgt(?SCCP_MSGT_DT2, DataBin) ->
-	<<_:8, DstLocalRef:24/big, SeqSegm:16, DataPtr:8, Remain/binary >> = DataBin,
-	DataLen = binary:at(Remain, DataPtr-1),
-	UserData = binary:part(Remain, DataPtr-1+1, DataLen),
-	% build parsed list of message
-	{dst_local_ref, DstLocalRef},{seq_segm, SeqSegm},{user_data, UserData};
-parse_sccp_msgt(?SCCP_MSGT_AK, DataBin) ->
-	<<_:8, DstLocalRef:24/big, RxSeqnr:8, Credit:8>> = DataBin,
-	{dst_local_ref, DstLocalRef},{rx_seq_nr, RxSeqnr},{credit, Credit};
-parse_sccp_msgt(?SCCP_MSGT_UDT, DataBin) ->
-	<<_:8, PCOpt:4, ProtoClass:4, CalledPartyPtr:8, CallingPartyPtr:8, DataPtr:8, Remain/binary >> = DataBin,
-	% variable part
-	CalledPartyLen = binary:at(Remain, CalledPartyPtr-3),
-	CalledParty = binary:part(Remain, CalledPartyPtr-3+1, CalledPartyLen),
-	CalledPartyDec = parse_sccp_addr(CalledParty),
-	CallingPartyLen = binary:at(Remain, CallingPartyPtr-2),
-	CallingParty = binary:part(Remain, CallingPartyPtr-2+1, CallingPartyLen),
-	CallingPartyDec = parse_sccp_addr(CallingParty),
-	DataLen = binary:at(Remain, DataPtr-1),
-	UserData = binary:part(Remain, DataPtr-1+1, DataLen),
-	{protocol_class, {ProtoClass, PCOpt}},{called_party_addr, CalledPartyDec},
-	 {calling_party_addr, CallingPartyDec},{user_data, UserData};
-parse_sccp_msgt(?SCCP_MSGT_UDTS, DataBin) ->
-	<<_:8, ReturnCause:8, CalledPartyPtr:8, CallingPartyPtr:8, DataPtr:8, Remain/binary >> = DataBin,
-	% variable part
-	CalledPartyLen = binary:at(Remain, CalledPartyPtr-3),
-	CalledParty = binary:part(Remain, CalledPartyPtr-3+1, CalledPartyLen),
-	CalledPartyDec = parse_sccp_addr(CalledParty),
-	CallingPartyLen = binary:at(Remain, CallingPartyPtr-2),
-	CallingParty = binary:part(Remain, CallingPartyPtr-2+1, CallingPartyLen),
-	CallingPartyDec = parse_sccp_addr(CallingParty),
-	DataLen = binary:at(Remain, DataPtr-1),
-	UserData = binary:part(Remain, DataPtr-1+1, DataLen),
-	{return_cause, ReturnCause},{called_party_addr, CalledPartyDec},
-	 {calling_party_addr, CallingPartyDec},{user_data, UserData};
-parse_sccp_msgt(?SCCP_MSGT_ED, DataBin) ->
-	<<_:8, DstLocalRef:24/big, DataPtr:8, Remain/binary>> = DataBin,
-	DataLen = binary:at(Remain, DataPtr-1),
-	UserData = binary:part(Remain, DataPtr-1+1, DataLen),
-	{dst_local_ref, DstLocalRef}, {user_data, UserData};
-parse_sccp_msgt(?SCCP_MSGT_EA, DataBin) ->
-	<<_:8, DstLocalRef:24/big>> = DataBin,
-	{dst_local_ref, DstLocalRef};
-parse_sccp_msgt(?SCCP_MSGT_RSR, DataBin) ->
-	<<_:8, DstLocalRef:24/big, SrcLocalRef:24/big, ResetCause:8>> = DataBin,
-	{dst_local_ref, DstLocalRef},{src_local_ref, SrcLocalRef},{reset_cause, ResetCause};
-parse_sccp_msgt(?SCCP_MSGT_RSC, DataBin) ->
-	<<_:8, DstLocalRef:24/big, SrcLocalRef:24/big>> = DataBin,
-	{dst_local_ref, DstLocalRef},{src_local_ref, SrcLocalRef};
-parse_sccp_msgt(?SCCP_MSGT_ERR, DataBin) ->
-	<<_:8, DstLocalRef:24/big, ErrCause:8>> = DataBin,
-	{dst_local_ref, DstLocalRef},{error_cause, ErrCause};
-parse_sccp_msgt(?SCCP_MSGT_IT, DataBin) ->
-	<<_:8, DstLocalRef:24/big, SrcLocalRef:24/big, PCOpt: 4, ProtoClass:4, SegmSeq:16, Credit:8>> = DataBin,
-	{dst_local_ref, DstLocalRef},{src_local_ref, SrcLocalRef},
-         {protocol_class, {ProtoClass, PCOpt}},{seq_segm, SegmSeq},{credit, Credit}.
-% FIXME: XUDT/XUDTS, LUDT/LUDTS
-
-% process one incoming SCCP message
-parse_sccp_msg(DataBin) ->
-	MsgType = binary:first(DataBin),
-	Parsed = parse_sccp_msgt(MsgType, DataBin),
-	{ok, #sccp_msg{msg_type = MsgType, parameters = Parsed}}.
-
-% Encoding Part
-
-gt_enc_by_odd(Odd) ->
-	if Odd == 1 ->
-		1;
-	   true ->
-		2
-	end.
-
-encode_gt(undefined) ->
-	{?SCCP_GTI_NO_GT, <<>>};
-encode_gt(#global_title{gti = GTind, phone_number = PhoneNum,
-			nature_of_addr_ind = Nature,
-			trans_type = TransType,
-			numbering_plan = NumPlan}) ->
-	case GTind of
-		?SCCP_GTI_NO_GT ->
-			{GTind, <<>>};
-		?SCCP_GTI_NAT_ONLY ->
-			% Figure 7/Q.713
-			{PhoneBin, OddEven} = isup_codec:encode_isup_party(PhoneNum),
-			{GTind, <<OddEven:1, Nature:7, PhoneBin/binary>>};
-		?SCCP_GTI_TT_ONLY ->
-			% Figure 9/Q.913
-			% Used in national interfaces only, we cannot parse Digits
-			{GTind, <<TransType:8, PhoneNum/binary>>};
-		?SCCP_GTI_TT_NP_ENC ->
-			% Figure 10/Q.713
-			{PhoneBin, OddEven} = isup_codec:encode_isup_party(PhoneNum),
-			Enc = gt_enc_by_odd(OddEven),
-			{GTind, <<TransType:8, NumPlan:4, Enc:4, PhoneBin/binary>>};
-		?SCCP_GTI_TT_NP_ENC_NAT ->
-			% Figure 11/Q.713
-			{PhoneBin, OddEven} = isup_codec:encode_isup_party(PhoneNum),
-			Enc = gt_enc_by_odd(OddEven),
-			{GTind, <<TransType:8, NumPlan:4, Enc:4, 0:1, Nature:7, PhoneBin/binary>>}
-	end.
-
-encode_pc(undefined) ->
-	{0, <<>>};
-encode_pc(PointCode) when is_integer(PointCode) ->
-	{1, <<PointCode:16/little>>};
-encode_pc(PcRec) ->
-	PcInt = osmo_util:pointcode2int(PcRec),
-	encode_pc(PcInt).
-
-encode_ssn(SSN) ->
-	case SSN of
-		undefined ->
-			{0, <<>>};
-		_ ->
-			{1, <<SSN:8>>}
-	end.
-
-undef_or_true(Foo) ->
-	case Foo of
-		undefined -> 0;
-		0 -> 0;
-		_ -> 1
-	end.
-
-
-encode_sccp_addr(#sccp_addr{res_nat_use = ResNatUse,
-			    route_on_ssn = RoutInd,
-			    point_code = PointCode,
-			    ssn = SSN,
-			    global_title = GT}) ->
-
-	{GTind, GTbin} = encode_gt(GT),
-	{SSNind, SSNbin} = encode_ssn(SSN),
-	{PCind, PCbin} = encode_pc(PointCode),
-	ResNatOut = undef_or_true(ResNatUse),
-	RoutIndOut = undef_or_true(RoutInd),
-	<<ResNatOut:1, RoutIndOut:1, GTind:4, SSNind:1, PCind:1, PCbin/binary, SSNbin/binary, GTbin/binary>>.
-
-
-encode_sccp_opt({AddrTag, AddrVal}) when AddrTag == ?SCCP_PNC_CALLED_PARTY_ADDRESS;
-					 AddrTag == ?SCCP_PNC_CALLING_PARTY_ADDRESS ->
-	AddrEnc = encode_sccp_addr(AddrVal),
-	AddrLen = byte_size(AddrEnc),
-	<<AddrTag:8, AddrLen:8, AddrEnc/binary>>;
-encode_sccp_opt({OptInt, DataBin}) when is_binary(DataBin), is_integer(OptInt) ->
-	DataBinLen = byte_size(DataBin),
-	<<OptInt:8, DataBinLen:8, DataBin/binary>>;
-encode_sccp_opt({Opt, DataBin}) when is_atom(Opt) ->
-	OptNum = atom_to_opt(Opt),
-	encode_sccp_opt({OptNum, DataBin});
-encode_sccp_opt({Opt, DataInt}) when is_integer(DataInt), DataInt =< 255 ->
-	encode_sccp_opt({Opt, <<DataInt:8>>});
-encode_sccp_opt({Opt, DataList}) when is_list(DataList) ->
-	encode_sccp_opt({Opt, list_to_binary(DataList)}).
-
-encode_sccp_opts(OptList, Filter) ->
-	FilteredList = lists:filter(fun({Tag, _Val}) -> proplists:is_defined(opt_to_atom(Tag), Filter) end, OptList),
-	e_sccp_opts(FilteredList, ).
-
-e_sccp_opts(, OptEnc) ->
-	% end of options + convert to binary
-	list_to_binary(OptEnc, ?SCCP_PNC_END_OF_OPTIONAL);
-e_sccp_opts(CurOpt|OptPropList, OptEnc) ->
-	CurOptEnc = encode_sccp_opt(CurOpt),
-	e_sccp_opts(OptPropList, list_to_binary(OptEnc,CurOptEnc)).
-
-
-encode_sccp_msgt(?SCCP_MSGT_CR, Params) ->
-	SrcLocalRef = proplists:get_value(src_local_ref, Params),
-	{ProtoClass, PCOpt} = proplists:get_value(protocol_class, Params),
-	CalledParty = proplists:get_value(called_party_addr, Params),
-	CalledPartyEnc = encode_sccp_addr(CalledParty),
-	CalledPartyLen = byte_size(CalledPartyEnc),
-	PtrOpt = CalledPartyLen+1+1,
-	OptBin = encode_sccp_opts(Params, credit, calling_party_addr, user_data, hop_counter, importance),
-	<<?SCCP_MSGT_CR:8, SrcLocalRef:24/big, PCOpt:4, ProtoClass:4, 2:8, PtrOpt:8, CalledPartyLen:8, CalledPartyEnc/binary, OptBin/binary>>;
-encode_sccp_msgt(?SCCP_MSGT_CC, Params) ->
-	SrcLocalRef = proplists:get_value(src_local_ref, Params),
-	DstLocalRef = proplists:get_value(dst_local_ref, Params),
-	{ProtoClass, PCOpt} = proplists:get_value(protocol_class, Params),
-	OptBin = encode_sccp_opts(Params, credit, called_party_addr, user_data, importance),
-	<<?SCCP_MSGT_CC:8, DstLocalRef:24/big, SrcLocalRef:24/big, PCOpt:4, ProtoClass:4, OptBin/binary>>;
-encode_sccp_msgt(?SCCP_MSGT_CREF, Params) ->
-	DstLocalRef = proplists:get_value(dst_local_ref, Params),
-	RefusalCause = proplists:get_value(refusal_cause, Params),
-	OptBin = encode_sccp_opts(Params, called_party_addr, user_data, importance),
-	<<?SCCP_MSGT_CREF:8, DstLocalRef:24/big, RefusalCause:8, OptBin/binary>>;
-encode_sccp_msgt(?SCCP_MSGT_RLSD, Params) ->
-	SrcLocalRef = proplists:get_value(src_local_ref, Params),
-	DstLocalRef = proplists:get_value(dst_local_ref, Params),
-	ReleaseCause = proplists:get_value(release_cause, Params),
-	OptBin = encode_sccp_opts(Params, user_data, importance),
-	<<?SCCP_MSGT_RLSD:8, DstLocalRef:24/big, SrcLocalRef:24/big, ReleaseCause:8, OptBin/binary>>;
-encode_sccp_msgt(?SCCP_MSGT_RLC, Params) ->
-	SrcLocalRef = proplists:get_value(src_local_ref, Params),
-	DstLocalRef = proplists:get_value(dst_local_ref, Params),
-	<<?SCCP_MSGT_RLC:8, DstLocalRef:24/big, SrcLocalRef:24/big>>;
-encode_sccp_msgt(?SCCP_MSGT_DT1, Params) ->
-	DstLocalRef = proplists:get_value(dst_local_ref, Params),
-	SegmReass = proplists:get_value(segm_reass, Params),
-	UserData = binarify(proplists:get_value(user_data, Params)),
-	UserDataLen = byte_size(UserData),
-	<<?SCCP_MSGT_DT1:8, DstLocalRef:24/big, SegmReass:8, 1:8, UserDataLen:8, UserData/binary>>;
-encode_sccp_msgt(?SCCP_MSGT_DT2, Params) ->
-	DstLocalRef = proplists:get_value(dst_local_ref, Params),
-	SeqSegm = proplists:get_value(seq_segm, Params),
-	UserData = binarify(proplists:get_value(user_data, Params)),
-	UserDataLen = byte_size(UserData),
-	<<?SCCP_MSGT_DT2:8, DstLocalRef:24/big, SeqSegm:16, 1:8, UserDataLen:8, UserData/binary>>;
-encode_sccp_msgt(?SCCP_MSGT_AK, Params) ->
-	DstLocalRef = proplists:get_value(dst_local_ref, Params),
-	RxSeqnr = proplists:get_value(rx_seqnr, Params),
-	Credit = proplists:get_value(credit, Params),
-	<<?SCCP_MSGT_AK:8, DstLocalRef:24/big, RxSeqnr:8, Credit:8>>;
-encode_sccp_msgt(?SCCP_MSGT_UDT, Params) ->
-	{ProtoClass, PCOpt} = proplists:get_value(protocol_class, Params),
-	CalledParty = proplists:get_value(called_party_addr, Params),
-	CalledPartyEnc = encode_sccp_addr(CalledParty),
-	CalledPartyLen = byte_size(CalledPartyEnc),
-	CallingParty = proplists:get_value(calling_party_addr, Params),
-	CallingPartyEnc = encode_sccp_addr(CallingParty),
-	CallingPartyLen = byte_size(CallingPartyEnc),
-	UserData = binarify(proplists:get_value(user_data, Params)),
-	UserDataLen = byte_size(UserData),
-	% variable part
-	CalledPartyPtr = 3,
-	CallingPartyPtr = 2 + (1 + CalledPartyLen),
-	DataPtr = 1 + (1 + CalledPartyLen) + (1 + CallingPartyLen),
-	Remain = <<CalledPartyLen:8, CalledPartyEnc/binary,
-		   CallingPartyLen:8, CallingPartyEnc/binary,
-		   UserDataLen:8, UserData/binary>>,
-	<<?SCCP_MSGT_UDT:8, PCOpt:4, ProtoClass:4, CalledPartyPtr:8, CallingPartyPtr:8, DataPtr:8, Remain/binary>>;
-encode_sccp_msgt(?SCCP_MSGT_UDTS, Params) ->
-	ReturnCause = proplists:get_value(return_cause, Params),
-	CalledParty = proplists:get_value(called_party_addr, Params),
-	CalledPartyEnc = encode_sccp_addr(CalledParty),
-	CalledPartyLen = byte_size(CalledPartyEnc),
-	CallingParty = proplists:get_value(calling_party_addr, Params),
-	CallingPartyEnc = encode_sccp_addr(CallingParty),
-	CallingPartyLen = byte_size(CallingPartyEnc),
-	UserData = binarify(proplists:get_value(user_data, Params)),
-	UserDataLen = byte_size(UserData),
-	% variable part
-	CalledPartyPtr = 3,
-	CallingPartyPtr = 2 + (1 + CalledPartyLen),
-	DataPtr = 1 + (1 + CalledPartyLen) + (1 + CallingPartyLen),
-	Remain = <<CalledPartyLen:8, CalledPartyEnc/binary,
-		   CallingPartyLen:8, CallingPartyEnc/binary,
-		   UserDataLen:8, UserData/binary>>,
-	<<?SCCP_MSGT_UDTS:8, ReturnCause:8, CalledPartyPtr:8, CallingPartyPtr:8, DataPtr:8, Remain/binary>>;
-encode_sccp_msgt(?SCCP_MSGT_ED, Params) ->
-	DstLocalRef = proplists:get_value(dst_local_ref, Params),
-	UserData = binarify(proplists:get_value(user_data, Params)),
-	UserDataLen = byte_size(UserData),
-	DataPtr = 1,
-	<<?SCCP_MSGT_ED:8, DstLocalRef:24/big, DataPtr:8, UserDataLen:8, UserData/binary>>;
-encode_sccp_msgt(?SCCP_MSGT_EA, Params) ->
-	DstLocalRef = proplists:get_value(dst_local_ref, Params),
-	<<?SCCP_MSGT_EA:8, DstLocalRef:24/big>>;
-encode_sccp_msgt(?SCCP_MSGT_RSR, Params) ->
-	DstLocalRef = proplists:get_value(dst_local_ref, Params),
-	SrcLocalRef = proplists:get_value(src_local_ref, Params),
-	ResetCause = proplists:get_value(reset_cause, Params),
-	<<?SCCP_MSGT_RSR:8, DstLocalRef:24/big, SrcLocalRef:24/big, ResetCause:8>>;
-encode_sccp_msgt(?SCCP_MSGT_RSC, Params) ->
-	DstLocalRef = proplists:get_value(dst_local_ref, Params),
-	SrcLocalRef = proplists:get_value(src_local_ref, Params),
-	<<?SCCP_MSGT_RSC:8, DstLocalRef:24/big, SrcLocalRef:24/big>>;
-encode_sccp_msgt(?SCCP_MSGT_ERR, Params) ->
-	DstLocalRef = proplists:get_value(dst_local_ref, Params),
-	ErrCause = proplists:get_value(error_cause, Params),
-	<<?SCCP_MSGT_ERR:8, DstLocalRef:24/big, ErrCause:8>>;
-encode_sccp_msgt(?SCCP_MSGT_IT, Params) ->
-	DstLocalRef = proplists:get_value(dst_local_ref, Params),
-	SrcLocalRef = proplists:get_value(src_local_ref, Params),
-	{ProtoClass, PCOpt} = proplists:get_value(protocol_class, Params),
-	SegmSeq = proplists:get_value(seq_segm, Params),
-	Credit = proplists:get_value(credit, Params),
-	<<?SCCP_MSGT_IT:8, DstLocalRef:24/big, SrcLocalRef:24/big, PCOpt:4, ProtoClass:4, SegmSeq:16, Credit:8>>.
-% FIXME: XUDT/XUDTS, LUDT/LUDTS
-
-
-% encode one sccp message data structure into the on-wire format
-encode_sccp_msg(#sccp_msg{msg_type = MsgType, parameters = Params}) ->
-	encode_sccp_msgt(MsgType, Params).
-
-% is the supplied message type a connectionless message?
-is_connectionless(#sccp_msg{msg_type = MsgType}) ->
-	is_connectionless(MsgType);
-is_connectionless(MsgType) ->
-	case MsgType of
-		?SCCP_MSGT_UDT -> true;
-		?SCCP_MSGT_UDTS -> true;
-		?SCCP_MSGT_XUDT -> true;
-		?SCCP_MSGT_XUDTS -> true;
-		?SCCP_MSGT_LUDT -> true;
-		?SCCP_MSGT_LUDTS -> true;
-		_ -> false
-	end.
-
-
-gen_gt_helper(Number) when is_list(Number) ->
-	#global_title{gti=?SCCP_GTI_NAT_ONLY,
-		      nature_of_addr_ind=?SCCP_NAI_INTERNATIONAL,
-		      phone_number = Number}.
-
-gen_addr_helper(Gt, Pc, Ssn) when is_record(Gt, global_title) ->
-	#sccp_addr{point_code=Pc, ssn=Ssn, global_title=Gt};
-gen_addr_helper(Number, Pc, Ssn) when is_list(Number) ->
-	Gt = gen_gt_helper(Number),
-	gen_addr_helper(Gt, Pc, Ssn).
-
-
-gen_addr_helper(Gt, Pc) when is_record(Gt, global_title) ->
-	#sccp_addr{point_code=Pc, global_title=Gt};
-gen_addr_helper(Number, Pc) when is_list(Number) ->
-	Gt = gen_gt_helper(Number),
-	gen_addr_helper(Gt, Pc).
-
-opt_to_atom(Num) ->
-	case Num of
-		?SCCP_PNC_DESTINATION_LOCAL_REFERENCE -> dst_local_ref;
-		?SCCP_PNC_SOURCE_LOCAL_REFERENCE ->	src_local_ref;
-		?SCCP_PNC_CALLED_PARTY_ADDRESS ->	called_party_addr;
-		?SCCP_PNC_CALLING_PARTY_ADDRESS ->	calling_party_addr;
-		?SCCP_PNC_PROTOCOL_CLASS ->		protocol_class;
-		?SCCP_PNC_SEGMENTING ->			segmenting;
-		?SCCP_PNC_RECEIVE_SEQ_NUMBER ->		rx_seq_number;
-		?SCCP_PNC_SEQUENCING ->			seq_segm;
-		?SCCP_PNC_CREDIT ->			credit;
-		?SCCP_PNC_RELEASE_CAUSE ->		release_cause;
-		?SCCP_PNC_RETURN_CAUSE ->		return_cause;
-		?SCCP_PNC_RESET_CAUSE ->		reset_cause;
-		?SCCP_PNC_ERROR_CAUSE ->		error_cause;
-		?SCCP_PNC_REFUSAL_CAUSE ->		refusal_cause;
-		?SCCP_PNC_DATA ->			user_data;
-		?SCCP_PNC_SEGMENTATION ->		segmentation;
-		?SCCP_PNC_HOP_COUNTER ->		hop_counter;
-		?SCCP_PNC_IMPORTANCE ->			importance;
-		?SCCP_PNC_LONG_DATA ->			long_data;
-		Foo -> Foo
-	end.
-
-atom_to_opt(Atom) ->
-	case Atom of
-		dst_local_ref	-> ?SCCP_PNC_DESTINATION_LOCAL_REFERENCE;
-		src_local_ref	-> ?SCCP_PNC_SOURCE_LOCAL_REFERENCE;
-		called_party_addr  -> ?SCCP_PNC_CALLED_PARTY_ADDRESS;
-		calling_party_addr -> ?SCCP_PNC_CALLING_PARTY_ADDRESS;
-		protocol_class	-> ?SCCP_PNC_PROTOCOL_CLASS;
-		segmenting	-> ?SCCP_PNC_SEGMENTING;
-		rx_seq_number	-> ?SCCP_PNC_RECEIVE_SEQ_NUMBER;
-		seq_segm	-> ?SCCP_PNC_SEQUENCING;
-		credit		-> ?SCCP_PNC_CREDIT;
-		release_cause	-> ?SCCP_PNC_RELEASE_CAUSE;
-		return_cause	-> ?SCCP_PNC_RETURN_CAUSE;
-		reset_cause	-> ?SCCP_PNC_RESET_CAUSE;
-		error_cause	-> ?SCCP_PNC_ERROR_CAUSE;
-		refusal_cause	-> ?SCCP_PNC_REFUSAL_CAUSE;
-		user_data	-> ?SCCP_PNC_DATA;
-		segmentation	-> ?SCCP_PNC_SEGMENTATION;
-		hop_counter	-> ?SCCP_PNC_HOP_COUNTER;
-		importance	-> ?SCCP_PNC_IMPORTANCE;
-		long_data	-> ?SCCP_PNC_LONG_DATA;
-		Foo		-> Foo
-	end.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/sctp_core.erl Deleted

@@ -1,319 +0,0 @@
-% SCTP wrapper behavior, used by M2PA/M2UA/M3UA/SUA 
-
-% (C) 2011-2012 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(sctp_core).
--author('Harald Welte <laforge@gnumonks.org>').
--behaviour(gen_fsm).
-
--include_lib("kernel/include/inet_sctp.hrl").
--include("osmo_util.hrl").
-
--export(start_link/1).
-
--export(init/1, terminate/3, code_change/4, handle_event/3, handle_info/3).
-
--export(behaviour_info/1).
-
-% FSM states:
--export(idle/2, associating/2, established/2).
-
-behaviour_info(callbacks) ->
-	gen_fsm:behaviour_info(callbacks) ++ 
-	{rx_sctp, 4}, {mtp_xfer, 2}, {state_change, 2}, {prim_up, 3};
-behaviour_info(Other) ->
-	gen_fsm:behaviour_info(Other).
-
-% Loop Data
--record(sctp_state, {
-	  role,		% passive | active
-	  state,	% idle | associating | established
-	  user_pid,
-	  sctp_remote_ip,
-	  sctp_remote_port,
-	  sctp_sock,
-	  sctp_assoc_id,
-	  module,	% callback module
-	  ext_state	% state of the callback module
-	}).
-
-start_link(InitOpts) ->
-	LocalPort = proplists:get_value(sctp_local_port, InitOpts),
-	Name = list_to_atom("sctp_core_" ++ integer_to_list(LocalPort)),
-	gen_fsm:start_link({local, Name}, ?MODULE, InitOpts, {debug, trace}).
-
-reconnect_sctp(L = #sctp_state{sctp_remote_ip = Ip, sctp_remote_port = Port, sctp_sock = Sock}) ->
-	io:format("SCTP Reconnect ~p:~p~n", Ip, Port),
-	timer:sleep(1*1000),
-	InitMsg = #sctp_initmsg{num_ostreams = 2, max_instreams = 2},
-	case gen_sctp:connect_init(Sock, Ip, Port, {active, once}, {reuseaddr, true},
-						    {sctp_initmsg, InitMsg}) of
-		ok ->
-			ok;
-		{error, Error } ->
-			io:format("SCTP Error ~p, reconnecting~n", Error),
-			reconnect_sctp(L)
-	end.
-
-build_openopt({sctp_local_port, Port}) ->
-	{port, Port};
-build_openopt({sctp_local_ip, undefined}) ->
-	;
-build_openopt({sctp_local_ip, Ip}) ->
-	{ip, Ip};
-build_openopt(_) ->
-	.
-build_openopts(PropList) ->
-	{active, once}, {reuseaddr, true} ++ 
-	lists:flatten(lists:map(fun build_openopt/1, PropList)).
-
-init(InitOpts) ->
-	Module = proplists:get_value(module, InitOpts),
-	ModuleArgs = proplists:get_value(module_args, InitOpts),
-	Role = proplists:get_value(sctp_role, InitOpts),
-	{ok, SctpSock} = gen_sctp:open(build_openopts(InitOpts)),
-	case Module:init(ModuleArgs) of
-		{ok, ExtState} ->
-			LoopDat = #sctp_state{role = Role, sctp_sock = SctpSock,
-					user_pid = proplists:get_value(user_pid, InitOpts),
-					ext_state = ExtState, module = Module,
-					sctp_remote_ip = proplists:get_value(sctp_remote_ip, InitOpts),
-					sctp_remote_port = proplists:get_value(sctp_remote_port, InitOpts)},
-			case Role of
-				active ->
-					gen_fsm:send_event(self(), osmo_util:make_prim('M','SCTP_ESTABLISH',request));
-				_ ->
-					ok = gen_sctp:listen(SctpSock, true)
-			end,
-			{ok, idle, LoopDat};
-		Default ->
-			{error, {module_returned, Default}}
-	end.
-
-terminate(Reason, State, LoopDat) ->
-	io:format("Terminating ~p (Reason: ~p)~n", ?MODULE, Reason),
-	Module = LoopDat#sctp_state.module,
-	gen_sctp:close(LoopDat#sctp_state.sctp_sock),
-	Module:terminate(Reason, State, LoopDat#sctp_state.ext_state).
-
-code_change(OldVsn, StateName, LoopDat, Extra) ->
-	Module = LoopDat#sctp_state.module,
-	case Module:code_change(OldVsn, StateName, LoopDat#sctp_state.ext_state, Extra) of
-		{ok, ExtState} ->
-			{ok, StateName, LoopDat#sctp_state{ext_state = ExtState}};
-		Other ->
-			Other
-	end.
-
-% Helper function to send data to the SCTP peer
-send_sctp_to_peer(LoopDat, PktData, StreamId, Ppid) when is_binary(PktData) ->
-	#sctp_state{sctp_sock = Sock, sctp_assoc_id = Assoc} = LoopDat,
-	SndRcvInfo = #sctp_sndrcvinfo{assoc_id = Assoc, ppid = Ppid, stream = StreamId},
-	gen_sctp:send(Sock, SndRcvInfo, PktData).
-
-send_prim_to_user(LoopDat, Prim) when is_record(LoopDat, sctp_state), is_record(Prim, primitive) ->
-	UserPid = LoopDat#sctp_state.user_pid,
-	UserPid ! Prim.
-
-prim_up_to_callback(Prim, State, LoopDat) ->
-	Module = LoopDat#sctp_state.module,
-	case Module:prim_up(Prim, State, LoopDat#sctp_state.ext_state) of
-		{ok, Prim, ExtNew} ->
-			send_prim_to_user(LoopDat, Prim);
-		{ignore, ExtNew} ->
-			ok
-	end,
-	LoopDat#sctp_state{ext_state = ExtNew}.
-
-
-handle_event(Event, State, LoopDat) ->
-	Module = LoopDat#sctp_state.module,
-	io:format("Unknown Event ~p in state ~p~n", Event, State),
-	case Module:handle_event(Event, State, LoopDat#sctp_state.ext_state) of
-		{next_state, State, ExtState} ->
-			{next_state, State, LoopDat#sctp_state{ext_state = ExtState}}
-	end.
-
-
-handle_info({sctp, Socket, _RemoteIp, _RemotePort, {ANC, SAC}},
-	     State, LoopDat) when is_record(SAC, sctp_assoc_change) ->
-	io:format("SCTP Assoc Change ~p ~p~n", ANC, SAC),
-	#sctp_assoc_change{state = SacState, outbound_streams = _OutStreams,
-			   inbound_streams = _InStreams, assoc_id = AssocId} = SAC,
-	if
-		SacState == comm_up;
-		SacState == restart ->
-			case State of
-				associating ->
-					NewState = established,
-					Spec = confirm;
-				idle ->
-					NewState = established,
-					Spec = indication;
-				_ ->
-					NewState = State,
-					Spec = indication
-			end,
-			% primitive to the user
-			LoopDat2 = prim_up_to_callback(osmo_util:make_prim('M','SCTP_ESTABLISH',Spec),
-						       State, LoopDat);
-		SacState == comm_lost ->
-			case State of
-				releasing ->
-					Spec = confirm;
-				_ ->
-					Spec = indication
-			end,
-			LoopDat2 = prim_up_to_callback(osmo_util:make_prim('M','SCTP_RELEASE',Spec),
-							State, LoopDat),
-			case LoopDat#sctp_state.role of
-				active ->
-					NewState = associating,
-					reconnect_sctp(LoopDat2);
-				_ ->
-					NewState = idle
-			end;
-		SacState == addr_unreachable;
-		SacState == cant_assoc	->
-			case LoopDat#sctp_state.role of
-				active ->
-					NewState = associating,
-					reconnect_sctp(LoopDat);
-				_ ->
-					NewState = idle
-			end,
-			LoopDat2 = LoopDat;
-		SacState == shutdown_comp ->
-			% we already started reconnect in shutdown_event
-			NewState = State,
-			LoopDat2 = LoopDat
-	end,
-	inet:setopts(Socket, {active, once}),
-	next_state(State, NewState, LoopDat2#sctp_state{sctp_assoc_id = AssocId});
-
-handle_info({sctp, Socket, RemoteIp, RemotePort, {Anc, Data}}, State, LoopDat) ->
-	Module = LoopDat#sctp_state.module,
-	io:format("SCTP rx data: ~p ~p~n", Anc, Data),
-	% process incoming SCTP data
-	if Socket == LoopDat#sctp_state.sctp_sock,
-	   RemoteIp == LoopDat#sctp_state.sctp_remote_ip,
-	   RemotePort == LoopDat#sctp_state.sctp_remote_port ->
-		Ret = Module:rx_sctp(Anc, Data, State, LoopDat#sctp_state.ext_state),
-		case Ret of
-			{ok, Prim, ExtState} ->
-				send_prim_to_user(LoopDat, Prim);
-			{ignore, ExtState} ->
-				ok
-		end;
-	   true ->
-		io:format("unknown SCTP: ~p ~p~n", Anc, Data),
-		ExtState = LoopDat#sctp_state.ext_state
-	end,
-	inet:setopts(Socket, {active, once}),
-	next_state(State, State, LoopDat#sctp_state{ext_state = ExtState});
-
-handle_info({sctp, Socket, RemoteIp, RemotePort, {_Anc, Data}}, State, LoopDat)
-					when is_record(Data, sctp_shutdown_event) ->
-	io:format("SCTP remote ~p:~p shutdown~n", RemoteIp, RemotePort),
-	% FIXME: send SCTP_RELEASE.ind ?
-	inet:setopts(Socket, {active, once}),
-	case LoopDat#sctp_state.role of
-		active ->
-			reconnect_sctp(LoopDat);
-		_ ->
-			ok
-	end,
-	next_state(State, associating, LoopDat);
-
-handle_info(Info, State, LoopDat) ->
-	Module = LoopDat#sctp_state.module,
-	case Module:handle_info(Info, State, LoopDat#sctp_state.ext_state) of
-		{next_state, State, ExtState} ->
-			{next_state, State, LoopDat#sctp_state{ext_state = ExtState}}
-	end.
-
-
-idle(#primitive{subsystem = 'M', gen_name = 'SCTP_ESTABLISH', spec_name = request}, LoopDat) ->
-	% M-SCTP_ESTABLISH.req from User
-	case LoopDat#sctp_state.role of
-		active ->
-			reconnect_sctp(LoopDat);
-		_ ->
-			ok
-	end,
-	next_state(idle, associating, LoopDat);
-idle(Prim, LoopDat) when is_record(Prim, primitive) ->
-	LoopDat2 = prim_up_to_callback(Prim, idle, LoopDat),
-	next_state(idle, idle, LoopDat2).
-
-
-
-associating(#primitive{subsystem = 'M', gen_name = 'SCTP_RELEASE',
-			spec_name = request}, LoopDat) ->
-	% M-SCTP_RELEASE.req from User
-	% directly send RELEASE.conf ?!?
-	next_state(associating, idle, LoopDat);
-associating(Prim, LoopDat) when is_record(Prim, primitive) ->
-	LoopDat2 = prim_up_to_callback(Prim, associating, LoopDat),
-	next_state(associating, associating, LoopDat2).
-
-
-
-established(#primitive{subsystem = 'M', gen_name = 'SCTP_RELEASE',
-			spec_name = request}, LoopDat) ->
-	% M-SCTP_RELEASE.req from User
-	next_state(established, releasing, LoopDat);
-established(#primitive{subsystem = 'MTP', gen_name = 'TRANSFER',
-		       spec_name = request, parameters = Params}, LoopDat) ->
-	% MTP-TRANSFER.req from user app; Send message to remote peer
-	Module = LoopDat#sctp_state.module,
-	ExtState = Module:mtp_xfer(Params, LoopDat#sctp_state.ext_state),
-	next_state(established, established, LoopDat#sctp_state{ext_state = ExtState});
-established(#primitive{subsystem = 'SCTP', gen_name = 'TRANSFER',
-		spec_name = request, parameters = {Stream, Ppid, Data}}, LoopDat) ->
-	io:format("SCTP-TRANSFER.req~n",),
-	% somebody (typically callback module) requests us to send SCTP data
-	send_sctp_to_peer(LoopDat, Data, Stream, Ppid),
-	next_state(established, established, LoopDat);
-established(Prim, LoopDat) when is_record(Prim, primitive) ->
-	LoopDat2 = prim_up_to_callback(Prim, established, LoopDat),
-	next_state(established, established, LoopDat2).
-
-next_state(State, NewState, LoopDat) when is_record(LoopDat, sctp_state) ->
-	Module = LoopDat#sctp_state.module,
-	case NewState of
-		State ->
-			{next_state, NewState, LoopDat};
-		_ ->
-			ExtState = Module:state_change(State, NewState, LoopDat#sctp_state.ext_state),
-			{next_state, NewState, LoopDat#sctp_state{ext_state = ExtState}}
-	end.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/sctp_m2pa.erl Deleted

@@ -1,250 +0,0 @@
-% M2PA in accordance with RFC4165 (http://tools.ietf.org/html/rfc4665)
-
-% (C) 2011-2012 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(sctp_m2pa).
--author('Harald Welte <laforge@gnumonks.org>').
--behaviour(sctp_core).
-
--include_lib("kernel/include/inet_sctp.hrl").
--include("osmo_util.hrl").
--include("m2pa.hrl").
-
--export(init/1, terminate/3, code_change/4, handle_event/3, handle_info/3).
-
--export(rx_sctp/4, mtp_xfer/2, state_change/3, prim_up/3).
-
--record(m2pa_state, {
-		last_bsn_received,
-		last_fsn_sent,
-		lsc_pid,
-		iac_pid,
-		msu_fisu_accepted
-	}).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% gen_fsm callbacks
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-init(_InitOpts) ->
-	% start MTP2 IAC FSM pointing LSC, AERM and TXC to us
-	{ok, Lsc} = gen_fsm:start_link(mtp2_lsc, self(), self(), self(), self(),self(), {debug, trace}),
-	{ok, Iac} = gen_fsm:sync_send_event(Lsc, get_iac_pid),
-	gen_fsm:send_event(Lsc, power_on),
-	{ok, #m2pa_state{last_bsn_received=16#ffffff, last_fsn_sent=16#ffffff,
-			 lsc_pid=Lsc, iac_pid=Iac,
-		 	 msu_fisu_accepted = 0}}.
-
-terminate(Reason, _State, _LoopDat) ->
-	io:format("Terminating ~p (Reason ~p)~n", ?MODULE, Reason),
-	ok.
-
-code_change(_OldVsn, _State, LoopDat, _Extra) ->
-	{ok, LoopDat}.
-
-handle_event(_Event, State, LoopDat) ->
-	{next_state, State, LoopDat}.
-
-handle_info({lsc_txc, What}, State, LoopDat) when
-			What == start; What == retrieval_request_and_fsnc ->
-	{next_state, State, LoopDat};
-handle_info({lsc_rc, accept_msu_fisu}, State, LoopDat) ->
-	{next_state, State, LoopDat#m2pa_state{msu_fisu_accepted = 1}};
-handle_info({lsc_rc, reject_msu_fisu}, State, LoopDat) ->
-	{next_state, State, LoopDat#m2pa_state{msu_fisu_accepted = 0}};
-handle_info({Who, What}, established, LoopDat) when Who == iac_txc; Who == lsc_txc ->
-	Ls = iac_to_ls(What),
-	send_linkstate(Ls, LoopDat),
-	{next_state, established, LoopDat};
-handle_info(_Info, State, LoopDat) ->
-	{next_state, State, LoopDat}.
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% sctp_core callbacks
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-prim_up(Prim, State, LoopDat) ->
-	% default: forward all primitives to the user 
-	{ok, Prim, LoopDat}.
-
-
-% sctp_core indicates that we have received some data...
-rx_sctp(#sctp_sndrcvinfo{ppid = ?M2PA_PPID}, Data, State, LoopDat) ->
-	{ok, M2pa} = m2pa_codec:parse_msg(Data),
-	FsnRecv = M2pa#m2pa_msg.fwd_seq_nr,
-	% FIXME: check sequenc number linearity
-	case M2pa of
-		#m2pa_msg{msg_class = ?M2PA_CLASS_M2PA,
-			  msg_type = ?M2PA_TYPE_USER} ->
-			Mtp3 = M2pa#m2pa_msg.mtp3,
-			case LoopDat#m2pa_state.msu_fisu_accepted of
-				1 ->
-					LoopDat2 = LoopDat#m2pa_state{last_bsn_received = FsnRecv},
-					case Mtp3 of
-						undefined ->
-							ok;
-						_ ->
-							send_userdata_ack(LoopDat2)
-					end,
-					gen_fsm:send_event(LoopDat#m2pa_state.lsc_pid, fisu_msu_received),
-					Prim = osmo_util:make_prim('MTP','TRANSFER',indication, Mtp3),
-					{ok, Prim, LoopDat2};
-				_ ->
-					{ignore, LoopDat}
-			end;
-		#m2pa_msg{msg_type = ?M2PA_TYPE_LINK} ->
-			handle_linkstate(M2pa, LoopDat),
-			{ignore, LoopDat};
-		_ ->
-			% do something with link related msgs
-			io:format("M2PA Unknown message ~p in state ~p~n", M2pa, State),
-			{ignore, State, LoopDat}
-	end.
-
-% MTP-TRANSFER.req has arrived at sctp_core, encapsulate+tx it
-mtp_xfer(Mtp3, LoopDat) ->
-	Fsn = inc_seq_nr(LoopDat#m2pa_state.last_fsn_sent),
-	M2pa = #m2pa_msg{msg_class = ?M2PA_CLASS_M2PA,
-			 msg_type = ?M2PA_TYPE_USER,
-			 fwd_seq_nr = Fsn,
-			 back_seq_nr = LoopDat#m2pa_state.last_bsn_received,
-			 mtp3 = Mtp3},
-	M2paBin = m2pa_codec:encode_msg(M2pa),
-	LoopDat2 = LoopDat#m2pa_state{last_fsn_sent = Fsn},
-	tx_sctp(?M2PA_STREAM_USER, M2paBin),
-	LoopDat2.
-
-state_change(_, established, LoopDat) ->
-	% emulate a 'start' from LSC
-	gen_fsm:send_event(LoopDat#m2pa_state.lsc_pid, start),
-	LoopDat;
-state_change(established, _, LoopDat) ->
-	gen_fsm:send_event(LoopDat#m2pa_state.lsc_pid, link_failure),
-	LoopDat;
-state_change(_, _, LoopDat) ->
-	LoopDat.
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% helper functions
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-inc_seq_nr(SeqNr) when is_integer(SeqNr) ->
-	SeqNr + 1 rem 16#FFFFFF.
-
-handle_linkstate(M2pa, LoopDat) when is_record(M2pa, m2pa_msg) ->
-	Linkstate = proplists:get_value(link_state, M2pa#m2pa_msg.parameters),
-	LsMtp2 = ls_to_iac(Linkstate),
-	if LsMtp2 == fisu ->
-		case LoopDat#m2pa_state.msu_fisu_accepted of
-			1 ->
-				gen_fsm:send_event(LoopDat#m2pa_state.lsc_pid,
-						   fisu_msu_received);
-			0 -> ok
-		end;
-	   LsMtp2 == si_po ->
-		gen_fsm:send_event(LoopDat#m2pa_state.lsc_pid, LsMtp2);
-	   LsMtp2 == si_n; LsMtp2 == si_e; LsMtp2 == si_o; LsMtp2 == si_os ->
-		gen_fsm:send_event(LoopDat#m2pa_state.lsc_pid, LsMtp2)
-		% IAC will receive the event as pass-through from LSC
-		%gen_fsm:send_event(LoopDat#m2pa_state.iac_pid, LsMtp2)
-	end.
-
-% convert M2PA link state to MTP2
-ls_to_iac(?M2PA_LS_OOS) ->
-	si_os;
-ls_to_iac(?M2PA_LS_ALIGNMENT) ->
-	si_o;
-ls_to_iac(?M2PA_LS_PROVING_NORMAL) ->
-	si_n;
-ls_to_iac(?M2PA_LS_PROVING_EMERG) ->
-	si_e;
-ls_to_iac(?M2PA_LS_READY) ->
-	fisu;
-ls_to_iac(?M2PA_LS_PROC_OUTAGE) ->
-	si_po;
-ls_to_iac(?M2PA_LS_PROC_RECOVERED) ->
-	fisu;
-ls_to_iac(?M2PA_LS_BUSY) ->
-	si_b.
-% FIXME: what about BUSY_ENDED?
-
-
-% convert MTP2 link state to M2PA
-iac_to_ls(si_os) ->
-	?M2PA_LS_OOS;
-iac_to_ls(si_o) ->
-	?M2PA_LS_ALIGNMENT;
-iac_to_ls(si_n) ->
-	?M2PA_LS_PROVING_NORMAL;
-iac_to_ls(si_e) ->
-	?M2PA_LS_PROVING_EMERG;
-iac_to_ls(fisu) ->
-	?M2PA_LS_READY;
-iac_to_ls(msu) ->
-	?M2PA_LS_READY;
-iac_to_ls(si_po) ->
-	?M2PA_LS_PROC_OUTAGE;
-iac_to_ls(si_b) ->
-	?M2PA_LS_BUSY.
-
-% Chapter 4.1.2 of RFC4165
-ls_stream(?M2PA_LS_PROC_OUTAGE) ->
-	1;
-ls_stream(?M2PA_LS_PROC_RECOVERED) ->
-	1;
-ls_stream(Foo) when is_integer(Foo) ->
-	0.
-
-send_linkstate(Ls, LoopDat) when is_integer(Ls) ->
-	Stream = ls_stream(Ls),
-	M2pa = #m2pa_msg{msg_class = ?M2PA_CLASS_M2PA,
-			 msg_type = ?M2PA_TYPE_LINK,
-			 fwd_seq_nr = LoopDat#m2pa_state.last_fsn_sent,
-			 back_seq_nr = LoopDat#m2pa_state.last_bsn_received,
-			 parameters = {link_state, Ls}},
-	M2paBin = m2pa_codec:encode_msg(M2pa),
-	tx_sctp(Stream, M2paBin),
-	LoopDat.
-
-send_userdata_ack(LoopDat) ->
-	M2pa = #m2pa_msg{msg_class = ?M2PA_CLASS_M2PA,
-			 msg_type = ?M2PA_TYPE_USER,
-			 fwd_seq_nr = LoopDat#m2pa_state.last_fsn_sent,
-			 back_seq_nr = LoopDat#m2pa_state.last_bsn_received},
-	M2paBin = m2pa_codec:encode_msg(M2pa),
-	tx_sctp(0, M2paBin).
-
-tx_sctp(Stream, Payload) when is_integer(Stream), is_binary(Payload) ->
-	Param = {Stream, ?M2PA_PPID, Payload},
-	% sent to 'ourselves' (behaviour master module)
-	gen_fsm:send_event(self(), osmo_util:make_prim('SCTP','TRANSFER',request,Param)).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/sctp_m2ua.erl Deleted

@@ -1,227 +0,0 @@
-% M2UA in accordance with RFC3331 (http://tools.ietf.org/html/rfc3331)
-
-% (C) 2011-2013 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
--module(sctp_m2ua).
--author('Harald Welte <laforge@gnumonks.org>').
--behaviour(sctp_core).
-
--include_lib("kernel/include/inet_sctp.hrl").
--include("osmo_util.hrl").
--include("xua.hrl").
--include("m2ua.hrl").
--include("mtp3.hrl").
-
--define(M2UA_STREAM_USER,	1).
-
--export(init/1, terminate/3, code_change/4, handle_event/3, handle_info/3).
-
--export(rx_sctp/4, mtp_xfer/2, state_change/3, prim_up/3).
-
--record(m2ua_state, {
-		asp_pid,
-		last_bsn_received,
-		last_fsn_sent,
-		role
-	}).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% gen_fsm callbacks
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-init(Role) ->
-	Fun = fun(Prim, Args) -> asp_prim_to_user(Prim, Args) end,
-	AsPid = undefined, % FIXME
-	% we use sua_asp module, as m2ua has no difference here
-	{ok, Asp} = gen_fsm:start_link(xua_asp_fsm, AsPid, sua_asp, , Fun, self(), self(), Role, {debug, trace}),
-	{ok, #m2ua_state{last_bsn_received=16#ffffff,
-			last_fsn_sent=16#ffffff, asp_pid=Asp, role=Role}}.
-
-terminate(Reason, _State, _LoopDat) ->
-	io:format("Terminating ~p (Reason ~p)~n", ?MODULE, Reason),
-	ok.
-
-code_change(_OldVsn, _State, LoopDat, _Extra) ->
-	{ok, LoopDat}.
-
-handle_event(_Event, State, LoopDat) ->
-	{next_state, State, LoopDat}.
-
-handle_info(_Info, State, LoopDat) ->
-	{next_state, State, LoopDat}.
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% sctp_core callbacks
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-prim_up(#primitive{subsystem='M', gen_name = 'SCTP_ESTABLISH', spec_name = confirm}, State, LoopDat) ->
-	% confirmation in case of active/connect mode
-	Asp = LoopDat#m2ua_state.asp_pid,
-	gen_fsm:send_event(Asp, osmo_util:make_prim('M','ASP_UP',request)),
-	{ignore, LoopDat};
-prim_up(#primitive{subsystem='M', gen_name = 'SCTP_ESTABLISH', spec_name = indication}, State, LoopDat) ->
-	% indication in case of passive/listen mode
-	{ignore, LoopDat};
-prim_up(#primitive{subsystem='M', gen_name = 'ASP_UP', spec_name = confirm}, State, LoopDat) ->
-	% confirmation in case of active/connect mode
-	Asp = LoopDat#m2ua_state.asp_pid,
-	% override mode, interface ID  1. FIXME: user-specify interface ID(s)
-	Pars = {?M2UA_P_COM_TRAF_MODE_T, {4, 1}}, {?M2UA_P_COM_INTF_ID_INT, {4, 0}},
-	gen_fsm:send_event(Asp, osmo_util:make_prim('M','ASP_ACTIVE',request,Pars)),
-	{ignore, LoopDat};
-prim_up(#primitive{subsystem='M', gen_name = 'ASP_ACTIVE', spec_name = confirm}, State, LoopDat) ->
-	% FIXME: start a timer or have a separate FSM about it!
-	M = #xua_msg{version = 1, msg_class = ?M2UA_MSGC_MAUP,
-		     msg_type = ?M2UA_MAUP_MSGT_EST_REQ,
-		     payload = {?M2UA_P_COM_INTF_ID_INT, {4, 0}}},
-	LoopDat2 = mtp_xfer(M, LoopDat),
-	{ignore, LoopDat2};
-
-
-
-prim_up(Prim, State, LoopDat) ->
-	% default: forward all primitives to the user
-	{ok, Prim, LoopDat}.
-
-
-% sctp_core indicates that we have received some data...
-rx_sctp(#sctp_sndrcvinfo{ppid = ?M2UA_PPID}, Data, State, LoopDat) ->
-	Asp = LoopDat#m2ua_state.asp_pid,
-	M2ua = xua_codec:parse_msg(Data),
-	% FIXME: check sequenc number linearity
-	case M2ua of
-		#xua_msg{msg_class = ?M2UA_MSGC_ASPSM} ->
-			gen_fsm:send_event(Asp, M2ua),
-			{ignore, LoopDat};
-		#xua_msg{msg_class = ?M2UA_MSGC_ASPTM} ->
-			gen_fsm:send_event(Asp, M2ua),
-			{ignore, LoopDat};
-		#xua_msg{msg_class = ?M2UA_MSGC_MAUP,
-			 msg_type = ?M2UA_MAUP_MSGT_CONG_IND} ->
-			% FIXME
-			error_logger:error_report("unimplemented message",
-						   {msg_type, "CONG_IND"}),
-			{ignore, LoopDat};
-		#xua_msg{msg_class = ?M2UA_MSGC_MAUP,
-			 msg_type = ?M2UA_MAUP_MSGT_DATA_RETR_REQ} ->
-			% FIXME
-			error_logger:error_report("unimplemented message",
-						   {msg_type, "RETR_REQ"}),
-			{ignore, LoopDat};
-		#xua_msg{msg_class = ?M2UA_MSGC_MAUP,
-			  msg_type = ?M2UA_MAUP_MSGT_DATA} ->
-			{_Len, M3bin} = proplists:get_value(?M2UA_P_M2UA_DATA1, M2ua#xua_msg.payload),
-			Mtp3 = mtp3_codec:parse_mtp3_msg(M3bin),
-			Prim = osmo_util:make_prim('MTP','TRANSFER',indication, Mtp3),
-			{ok, Prim, LoopDat};
-		_ ->
-			rx_sctp(M2ua, State, LoopDat)
-	end.
-
-% SG side
-rx_sctp(#xua_msg{msg_class = ?M2UA_MSGC_MAUP,
-		 msg_type = ?M2UA_MAUP_MSGT_EST_REQ}, State,
-	LoopDat = #m2ua_state{role=sg}) ->
-	% FIXME: respond with M2UA_MAUP_MSGT_EST_CONF
-	error_logger:error_report("unimplemented message",
-				   {msg_type, "EST_REQ"}),
-	{ignore, LoopDat};
-rx_sctp(#xua_msg{msg_class = ?M2UA_MSGC_MAUP,
-		 msg_type = ?M2UA_MAUP_MSGT_REL_REQ}, State,
-	LoopDat = #m2ua_state{role=sg}) ->
-	% FIXME: respond with M2UA_MAUP_MSGT_REL_CONF
-	error_logger:error_report("unimplemented message",
-				   {msg_type, "REL_REQ"}),
-	{ignore, LoopDat};
-
-rx_sctp(M2ua = #xua_msg{msg_class = ?M2UA_MSGC_MAUP,
-		 msg_type = ?M2UA_MAUP_MSGT_STATE_REQ}, State,
-        LoopDat = #m2ua_state{role=sg})	->
-	handle_m2ua_state_req(M2ua),
-	{ignore, LoopDat};
-
-% ASP side
-rx_sctp(#xua_msg{msg_class = ?M2UA_MSGC_MAUP,
-		 msg_type = ?M2UA_MAUP_MSGT_REL_CONF}, State,
-	LoopDat = #m2ua_state{role=asp}) ->
-	error_logger:error_report("unimplemented message",
-				   {msg_type, "REL_CONF"}),
-	{ignore, LoopDat};
-
-rx_sctp(#xua_msg{msg_class = ?M2UA_MSGC_MAUP,
-		msg_type = ?M2UA_MAUP_MSGT_EST_CONF}, State,
-	LoopDat = #m2ua_state{role=asp}) ->
-	error_logger:error_report("unimplemented message",
-				   {msg_type, "EST_CONF"}),
-	{ignore, LoopDat};
-
-rx_sctp(M2ua = #xua_msg{}, State, LoopDat) ->
-	% do something with link rel msgs
-	io:format("M2UA Unknown message ~p in state ~p~n", M2ua, State),
-	{ignore, LoopDat}.
-
-
-% MTP-TRANSFER.req has arrived at sctp_core, encapsulate+tx it
-mtp_xfer(M2ua, LoopDat) when is_record(M2ua, xua_msg) ->
-	M2uaBin = xua_codec:encode_msg(M2ua),
-	tx_sctp(?M2UA_STREAM_USER, M2uaBin),
-	LoopDat;
-
-mtp_xfer(Mtp3, LoopDat) when is_record(Mtp3, mtp3_msg) ->
-	MsgBin = mtp3_codec:encode_mtp3_msg(Mtp3),
-	mtp_xfer(MsgBin, LoopDat);
-
-mtp_xfer(Mtp3bin, LoopDat) when is_binary(Mtp3bin) ->
-	M2ua = #xua_msg{version = 1,
-			 msg_class = ?M2UA_MSGC_MAUP,
-			 msg_type = ?M2UA_MAUP_MSGT_DATA,
-			 payload = {?M2UA_P_COM_INTF_ID_INT, {4, 0}},
-				    {?M2UA_P_M2UA_DATA1, {byte_size(Mtp3bin), Mtp3bin}}},
-	mtp_xfer(M2ua, LoopDat).
-
-state_change(_, established, LoopDat) ->
-	% emulate a 'start' from LSC
-	%gen_fsm:send_event(LoopDat#m2pa_state.lsc_pid, start),
-	LoopDat;
-state_change(established, _, LoopDat) ->
-	%gen_fsm:send_event(LoopDat#m2pa_state.lsc_pid, link_failure),
-	LoopDat;
-state_change(_, _, LoopDat) ->
-	LoopDat.
-
-handle_m2ua_state_req(M2ua = #xua_msg{payload = Payload}) ->
-	{?M2UA_P_MAUP_STATE, State} = lists:keyfind(?M2UA_P_MAUP_STATE, 1, Payload),
-	% FIXME handle_m2ua_state_req(State).
-	% LOP_SET/CLEAR, EMER_SET/CLEAR, FLUSH_BUFFERSm CONTINUE, CLEAR_RTB, AUDIT, CONG*
-	% FIXME: respond with M2UA_MAUP_MSGT_STATE_CONF
-	error_logger:error_report("unimplemented message",
-				   {msg_type, "STATE_REQ"}),
-	true.
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% helper functions
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-tx_sctp(Stream, Payload) when is_integer(Stream), is_binary(Payload) ->
-	Param = {Stream, ?M2UA_PPID, Payload},
-	% sent to 'ourselves' (behaviour master module)
-	gen_fsm:send_event(self(), osmo_util:make_prim('SCTP','TRANSFER',request,Param)).
-
-% callback fun for ASP FMS
-asp_prim_to_user(Prim, SctpPid) ->
-	gen_fsm:send_event(SctpPid, Prim).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/sctp_sua.erl Deleted

@@ -1,158 +0,0 @@
-% SUA behaviour call-back for sctp_core
-
-% (C) 2011-2012 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(sctp_sua).
--author('Harald Welte <laforge@gnumonks.org>').
--behaviour(sctp_core).
-
--include_lib("kernel/include/inet_sctp.hrl").
--include("osmo_util.hrl").
--include("xua.hrl").
--include("sua.hrl").
--include("m3ua.hrl").
-
--export(init/1, terminate/3, code_change/4, handle_event/3, handle_info/3).
-
--export(rx_sctp/4, mtp_xfer/2, state_change/3, prim_up/3).
-
--record(sua_state, {
-		asp_pid
-	}).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% gen_fsm callbacks
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-init(Role) ->
-	% start SUA ASP
-	Fun = fun(Prim, Args) -> asp_prim_to_user(Prim, Args) end,
-	AsPid = undefined,
-	{ok, Asp} = gen_fsm:start_link(xua_asp_fsm, AsPid, sua_asp, , Fun, self(), self(), Role, {debug, trace}),
-	{ok, #sua_state{asp_pid=Asp}}.
-
-terminate(Reason, _State, _LoopDat) ->
-	io:format("Terminating ~p (Reason ~p)~n", ?MODULE, Reason),
-	ok.
-
-code_change(_OldVsn, _State, LoopDat, _Extra) ->
-	{ok, LoopDat}.
-
-handle_event(_Event, State, LoopDat) ->
-	{next_state, State, LoopDat}.
-
-handle_info(_Info, State, LoopDat) ->
-	{next_state, State, LoopDat}.
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% sctp_core callbacks
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-prim_up(#primitive{subsystem='M', gen_name = 'SCTP_ESTABLISH', spec_name = confirm}, State, LoopDat) ->
-	Asp = LoopDat#sua_state.asp_pid,
-	gen_fsm:send_event(Asp, osmo_util:make_prim('M','ASP_UP',request)),
-	{ignore, LoopDat};
-prim_up(#primitive{subsystem='M', gen_name = 'ASP_UP', spec_name = confirm}, State, LoopDat) ->
-	Asp = LoopDat#sua_state.asp_pid,
-	gen_fsm:send_event(Asp, osmo_util:make_prim('M','ASP_ACTIVE',request)),
-	{ignore, LoopDat};
-prim_up(Prim, State, LoopDat) ->
-	% default: forward all primitives to the user 
-	{ok, Prim, LoopDat}.
-
-
-% sctp_core indicates that ew have received some data...
-rx_sctp(#sctp_sndrcvinfo{ppid = ?SUA_PPID}, Data, State, LoopDat) ->
-	Asp = LoopDat#sua_state.asp_pid,
-	Sua = xua_codec:parse_msg(Data),
-	case Sua of
-		#xua_msg{msg_class = ?M3UA_MSGC_MGMT,
-			 msg_type = ?M3UA_MSGT_MGMT_NTFY} ->
-			Prim = osmo_util:make_prim('M','NOTIFY',indication,Sua),
-			{ok, Prim, LoopDat};
-		#xua_msg{msg_class = ?M3UA_MSGC_MGMT,
-			 msg_type = ?M3UA_MSGT_MGMT_ERR} ->
-			Prim = osmo_util:make_prim('M','ERROR',indication,Sua),
-			{ok, Prim, LoopDat};
-		#xua_msg{msg_class = ?M3UA_MSGC_SSNM} ->
-			% FIXME
-			{ignore, LoopDat};
-		#xua_msg{msg_class = ?M3UA_MSGC_ASPSM} ->
-			gen_fsm:send_event(Asp, Sua),
-			{ignore, LoopDat};
-		#xua_msg{msg_class = ?M3UA_MSGC_ASPTM} ->
-			gen_fsm:send_event(Asp, Sua),
-			{ignore, LoopDat};
-		#xua_msg{msg_class = ?SUA_MSGC_CL} ->
-			Prim = sua_to_prim(Sua, LoopDat),
-			{ok, Prim, LoopDat};
-		%#xua_msg{msg_class = ?SUA_MSGC_C0} ->
-		_ ->
-			% do something with link related msgs
-			io:format("SUA Unknown message ~p in state ~p~n", Sua, State),
-			{ignore, State, LoopDat}
-	end.
-
-% MTP-TRANSFER.req has arrived at sctp_core, encapsulate+tx it
-mtp_xfer(Sua, LoopDat) when is_record(Sua, xua_msg) ->
-	SuaBin = xua_codec:encode_msg(Sua),
-	tx_sctp(1, SuaBin),
-	LoopDat.
-
-state_change(_, established, LoopDat) ->
-	% emulate a 'start' from LSC
-	%gen_fsm:send_event(LoopDat#sua_state.lsc_pid, start),
-	LoopDat;
-state_change(established, _, LoopDat) ->
-	%gen_fsm:send_event(LoopDat#sua_state.lsc_pid, link_failure),
-	LoopDat;
-state_change(_, _, LoopDat) ->
-	LoopDat.
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% helper functions
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-tx_sctp(Stream, Payload) when is_integer(Stream), is_binary(Payload) ->
-	Param = {Stream, ?SUA_PPID, Payload},
-	% sent to 'ourselves' (behaviour master module)
-	gen_fsm:send_event(self(), osmo_util:make_prim('SCTP','TRANSFER',request,Param)).
-
-% callback fun for ASP FMS
-asp_prim_to_user(Prim, SctpPid) ->
-	gen_fsm:send_event(SctpPid, Prim).
-
-
-sua_to_prim(Sua, LoopDat) when is_record(Sua, xua_msg) ->
-	Sccp = sua_sccp_conv:sua_to_sccp(Sua),
-	osmo_util:make_prim('N','UNITADATA',indication, Sccp).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/sg_as_sup.erl Deleted

@@ -1,57 +0,0 @@
-% SIGTRAN SGW AS supervisor
-
-% (C) 2012 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(sg_as_sup).
--author('Harald Welte <laforge@gnumonks.org>').
--behaviour(supervisor).
-
--export(init/1, start_link/2).
-
--export(get_as_fsm_name/1).
-
-init(Name, Options) ->
-	AsName = get_as_fsm_name(Name),
-	StartArgs = {local, AsName}, xua_as_fsm, self(), Options,
-	StartFunc = {gen_fsm, start_link, StartArgs},
-	ChildSpec = {as_fsm, StartFunc, permanent, 4000, worker, xua_as_fsm},
-
-	AspsName = list_to_atom("sg_asp_" ++ Name ++ "_sup"),
-	StartFuncASPS = {supervisor, start_link, {local, AspsName}, sg_asp_sup, Name, self()},
-	ChildSpecASPS = {asp_sup, StartFuncASPS, permanent, 4000, worker, asp_sup},
-	{ok, {{one_for_all, 1, 1}, ChildSpec, ChildSpecASPS}}.
-
-start_link(Name, Options) ->
-	supervisor:start_link(?MODULE, Name, Options).
-
-get_as_fsm_name(Name) ->
-	list_to_atom("sg_as_" ++ Name ++ "_fsm").

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/sg_asp_sup.erl Deleted

@@ -1,49 +0,0 @@
-% SIGTRAN SGW ASP supervisor
-
-% (C) 2012 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(sg_asp_sup).
--author('Harald Welte <laforge@gnumonks.org>').
--behaviour(supervisor).
-
--export(init/1, start_link/2).
-
-init(Name, AsSupPid) ->
-	%AsName = list_to_atom("sg_as_" ++ Name ++ "_fsm"),
-	% supervisor:start_child/2 will append to this list of arguments
-	StartFunc = {xua_asp_fsm, start_link, },
-	ChildSpec = {xua_asp_fsm, StartFunc, permanent, infinity, worker, xua_asp_fsm},
-	% simple_one_for_one will not start any children!
-	{ok, {{simple_one_for_one, 10, 60}, ChildSpec}}.
-
-start_link(Name, Options) ->
-	supervisor:start_link(?MODULE, Name, Options).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/ss7_link_ipa_client.erl Deleted

@@ -1,100 +0,0 @@
-% Osmocom adaptor to interface the IPA core with osmo_ss7
-
-% (C) 2011 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(ss7_link_ipa_client).
--author('Harald Welte <laforge@gnumonks.org>').
--behavior(gen_server).
-
--include_lib("osmo_ss7/include/osmo_util.hrl").
-%-include_lib("osmo_ss7/include/ipa.hrl").
--include_lib("osmo_ss7/include/sccp.hrl").
--include_lib("osmo_ss7/include/osmo_ss7.hrl").
--include_lib("osmo_ss7/include/mtp3.hrl").
-
--export(start_link/1, init/1).
-
--export(handle_cast/2, handle_info/2).
-
--record(loop_dat, {
-	 ipa_pid,
-	 socket,
-	 link
-	}).
-
-start_link(Args) ->
-	gen_server:start_link(?MODULE, Args, ).
-
-init(L = #sigtran_link{type = ipa_client, name = Name, linkset_name = LinksetName,
-			sls = Sls}) ->
-	% start the IPA link to the SG
-	ok = ss7_links:register_link(LinksetName, Sls, Name),
-	{ok, LoopDat2} = reconnect(#loop_dat{link = L}),
-	{ok, LoopDat2}.
-
-handle_info({ipa_closed, {_Sock, _Stream}}, LoopDat) ->
-	set_link_state(LoopDat, down),
-	{ok, LoopDat2} = reconnect(LoopDat),
-	{noreply, LoopDat2}.
-
-handle_cast(#primitive{subsystem='MTP', gen_name='TRANSFER', spec_name=request,
-		       parameters = #mtp3_msg{service_ind = ?MTP3_SERV_SCCP,
-		       			    payload = Data}}, LoopDat) ->
-	#loop_dat{socket = Socket, ipa_pid = Pid} = LoopDat,
-	Pid ! {ipa_send, Socket, 253, Data},
-	{noreply, LoopDat}.
-
-reconnect(LoopDat = #loop_dat{link=Link}) ->
-	#sigtran_link{local = Local, remote = Remote} = Link,
-	#sigtran_peer{ip = LocalIp, port = LocalPort, point_code = LocalPc} = Local,
-	#sigtran_peer{ip = RemoteIp, port = RemotePort, point_code = RemotePc} = Remote,
-	case ipa_proto:connect(RemoteIp, RemotePort, , 10000) of
-		{ok, {Socket, IpaPid}} ->
-			set_link_state(LoopDat, up),
-			Mtp3Label = #mtp3_routing_label{sig_link_sel=0, origin_pc = RemotePc, dest_pc = LocalPc},
-			ipa_proto:register_stream(Socket, 253, {callback_fn, fun ipa_tx_to_sccp/4, Mtp3Label}),
-			set_link_state(LoopDat, active),
-			ipa_proto:unblock(Socket),
-			{ok, LoopDat#loop_dat{ipa_pid=IpaPid, socket=Socket}};
-		{error, Reason} ->
-			io:format("Reconnecting TCP (~w)~n", Reason),
-			reconnect(LoopDat)
-	end.
-
-set_link_state(#loop_dat{link = #sigtran_link{linkset_name = LinksetName, sls = Sls}}, State) ->
-	ss7_links:set_link_state(LinksetName, Sls, State).
-
-% Callback that we pass to the ipa_proto, which it will call when it wants to
-% send a primitive up the stack to SCCP
-ipa_tx_to_sccp(_Socket, 253, Data, Mtp3Label) ->
-	ss7_links:mtp3_rx(#mtp3_msg{service_ind=?MTP3_SERV_SCCP,
-				    routing_label=Mtp3Label, payload=Data}).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/ss7_link_m2ua.erl Deleted

@@ -1,116 +0,0 @@
-% Osmocom adaptor to interface the M2UA core with osmo_sccp
-
-% (C) 2013 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(ss7_link_m2ua).
--author('Harald Welte <laforge@gnumonks.org>').
--behavior(gen_server).
-
--include_lib("osmo_ss7/include/osmo_util.hrl").
--include_lib("osmo_ss7/include/m2ua.hrl").
--include_lib("osmo_ss7/include/sccp.hrl").
--include_lib("osmo_ss7/include/osmo_ss7.hrl").
-
--export(start_link/1, init/1).
-
--export(handle_info/2, terminate/2).
-
--record(loop_dat, {
-	 m2ua_pid,
-	 link
-	}).
-
-start_link(Args = #sigtran_link{name=LinkName}) ->
-	Name = list_to_atom("ss7_link_m2ua_" ++ LinkName),
-	gen_server:start_link({local, Name}, ?MODULE, Args, {debug, trace}).
-
-init(L = #sigtran_link{type = m2ua, name = Name, linkset_name = LinksetName,
-		       sls = Sls, local = Local, remote = Remote, role = Role}) ->
-	#sigtran_peer{ip = LocalIp, port = LocalPort} = Local,
-	#sigtran_peer{ip = RemoteIp, port = RemotePort} = Remote,
-	% start the M2UA link to the SG
-	Opts = {module, sctp_m2ua}, {module_args, Role},
-		{sctp_role, ss7_links:role2sctp_role(Role)},
-		{user_pid, self()}, {sctp_remote_ip, RemoteIp},
-		{sctp_remote_port, RemotePort}, {sctp_local_port, LocalPort},
-		{sctp_local_ip, LocalIp},
-	{ok, M2uaPid} = sctp_core:start_link(Opts),
-	% FIXME: register this link with SCCP_SCRC
-	ok = ss7_links:register_link(LinksetName, Sls, Name),
-	{ok, #loop_dat{m2ua_pid = M2uaPid, link = L}}.
-
-%	% instantiate SCCP routing instance
-%	{ok, ScrcPid} = sccp_scrc:start_link({mtp_tx_action, {callback_fn, fun scrc_tx_to_mtp/2, M3uaPid}}),
-%	loop(#loop_dat{m2ua_pid = M3uaPid, scrc_pid = ScrcPid}).
-
-
-set_link_state(#sigtran_link{linkset_name = LinksetName, sls = Sls}, State) ->
-	ok = ss7_links:set_link_state(LinksetName, Sls, State).
-
-scrc_tx_to_mtp(Prim, Args) ->
-	M2uaPid = Args,
-	gen_fsm:send_event(M2uaPid, Prim).
-
-handle_info(P = #primitive{subsystem = 'MTP', gen_name = 'TRANSFER', spec_name = request}, L) ->
-	scrc_tx_to_mtp(P, L#loop_dat.m2ua_pid),
-	{noreply, L};
-
-handle_info(#primitive{subsystem = 'M', gen_name = 'ASP_UP'}, L) ->
-	set_link_state(L#loop_dat.link, up),
-	{noreply, L};
-handle_info(#primitive{subsystem = 'M', gen_name = 'ASP_ACTIVE'}, L) ->
-	set_link_state(L#loop_dat.link, active),
-	{noreply, L};
-handle_info(#primitive{subsystem = 'M', gen_name = 'ASP_DOWN'}, L) ->
-	set_link_state(L#loop_dat.link, down),
-	{noreply, L};
-handle_info(#primitive{subsystem = 'M', gen_name = 'ASP_INACTIVE'}, L) ->
-	set_link_state(L#loop_dat.link, up),
-	{noreply, L};
-
-handle_info(P, L) ->
-	io:format("~p: Ignoring M2UA cast ~p~n", ?MODULE, P),
-	{noreply, L}.
-
-terminate(Reason, _S) ->
-	io:format("terminating ~p with reason ~p", ?MODULE, Reason),
-	ok.
-
-tx_sccp_udt(ScrcPid) ->
-	CallingP = #sccp_addr{ssn = ?SCCP_SSN_MSC, point_code = osmo_util:pointcode2int(itu, {1,2,2})},
-	CalledP = #sccp_addr{ssn = ?SCCP_SSN_HLR, point_code = osmo_util:pointcode2int(itu, {1,1,1})},
-	Data = <<1,2,3,4>>,
-	Opts = {protocol_class, 0}, {called_party_addr, CalledP},
-		{calling_party_addr, CallingP}, {user_data, Data},
-	io:format("~p: Sending N-UNITDATA.req to SCRC~n", ?MODULE),
-	gen_fsm:send_event(ScrcPid, osmo_util:make_prim('N','UNITDATA',request,Opts)).
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/ss7_link_m3ua.erl Deleted

@@ -1,133 +0,0 @@
-% Osmocom adaptor to interface the M3UA core with osmo_sccp
-
-% (C) 2011 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(ss7_link_m3ua).
--author('Harald Welte <laforge@gnumonks.org>').
--behavior(gen_server).
-
--include_lib("osmo_ss7/include/osmo_util.hrl").
--include_lib("osmo_ss7/include/m3ua.hrl").
--include_lib("osmo_ss7/include/sccp.hrl").
--include_lib("osmo_ss7/include/osmo_ss7.hrl").
-
--export(start_link/1, init/1).
-
--export(handle_cast/2).
-
--record(loop_dat, {
-	 m3ua_pid,
-	 link
-	}).
-
-start_link(Args) ->
-	gen_server:start_link(?MODULE, Args, {debug, trace}).
-
-init(L = #sigtran_link{type = m3ua, name = Name, linkset_name = LinksetName,
-		       sls = Sls, local = Local, remote = Remote}) ->
-	#sigtran_peer{ip = LocalIp, port = LocalPort} = Local,
-	#sigtran_peer{ip = RemoteIp, port = RemotePort} = Remote,
-	% start the M3UA link to the SG
-	Opts = {user_pid, self()},
-		{sctp_remote_ip, RemoteIp}, {sctp_remote_port, RemotePort},
-		{sctp_local_ip, LocalIp}, {sctp_local_port, LocalPort},
-		{user_fun, fun m3ua_tx_to_user/2}, {user_args, self()},
-	{ok, M3uaPid} = m3ua_core:start_link(Opts),
-	% FIXME: register this link with SCCP_SCRC
-	ok = ss7_links:register_link(LinksetName, Sls, Name),
-	{ok, #loop_dat{m3ua_pid = M3uaPid, link = L}}.
-
-%	% instantiate SCCP routing instance
-%	{ok, ScrcPid} = sccp_scrc:start_link({mtp_tx_action, {callback_fn, fun scrc_tx_to_mtp/2, M3uaPid}}),
-%	loop(#loop_dat{m3ua_pid = M3uaPid, scrc_pid = ScrcPid}).
-
-
-set_link_state(#sigtran_link{linkset_name = LinksetName, sls = Sls}, State) ->
-	ok = ss7_links:set_link_state(LinksetName, Sls, State).
-
-scrc_tx_to_mtp(Prim, Args) ->
-	M3uaPid = Args,
-	gen_fsm:send_event(M3uaPid, Prim).
-
-% Callback that we pass to the m3ua_core, which it will call when it wants to
-% send a primitive up the stack to SCCP
-m3ua_tx_to_user(P=#primitive{subsystem = 'MTP'}, Args) ->
-	% send it directly to the 'service' that has bound
-	ss7_links:mtp3_rx(P);
-m3ua_tx_to_user(P=#primitive{subsystem = 'M'}, Args) ->
-	% send management primitives into the m3ua_link process
-	UserPid = Args,
-	gen_server:cast(UserPid, P).
-
-handle_cast(P = #primitive{subsystem = 'MTP', gen_name = 'TRANSFER', spec_name = request}, L) ->
-	scrc_tx_to_mtp(P, L#loop_dat.m3ua_pid),
-	{noreply, L};
-% This is what we receive from m3ua_tx_to_user/2
-handle_cast(#primitive{subsystem = 'M', gen_name = 'SCTP_ESTABLISH', spec_name = confirm}, L) ->
-	io:format("~p: SCTP_ESTABLISH.ind -> ASP_UP.req~n", ?MODULE),
-	gen_fsm:send_event(L#loop_dat.m3ua_pid, osmo_util:make_prim('M','ASP_UP',request)),
-	{noreply, L};
-handle_cast(#primitive{subsystem = 'M', gen_name = 'ASP_UP', spec_name = confirm}, L) ->
-	io:format("~p: ASP_UP.ind -> ASP_ACTIVE.req~n", ?MODULE),
-	set_link_state(L#loop_dat.link, up),
-	gen_fsm:send_event(L#loop_dat.m3ua_pid, osmo_util:make_prim('M','ASP_ACTIVE',request)),
-	{noreply, L};
-handle_cast(#primitive{subsystem = 'M', gen_name = 'ASP_ACTIVE', spec_name = confirm}, L) ->
-	io:format("~p: ASP_ACTIVE.ind - M3UA now active and ready~n", ?MODULE),
-	set_link_state(L#loop_dat.link, active),
-	%tx_sccp_udt(L#loop_dat.scrc_pid),
-	{noreply, L};
-handle_cast(#primitive{subsystem = 'M', gen_name = 'ASP_DOWN'}, L) ->
-	io:format("~p: ASP_DOWN.ind~n", ?MODULE),
-	set_link_state(L#loop_dat.link, down),
-	{noreply, L};
-handle_cast(#primitive{subsystem = 'M', gen_name = 'ASP_INACTIVE'}, L) ->
-	io:format("~p: ASP_INACTIVE.ind~n", ?MODULE),
-	set_link_state(L#loop_dat.link, up),
-	{noreply, L};
-handle_cast(P, L) ->
-	io:format("~p: Ignoring M3UA prim ~p~n", ?MODULE, P),
-	{noreply, L}.
-
-terminate(Reason, _S) ->
-	io:format("terminating ~p with reason ~p", ?MODULE, Reason),
-	ok.
-
-tx_sccp_udt(ScrcPid) ->
-	CallingP = #sccp_addr{ssn = ?SCCP_SSN_MSC, point_code = osmo_util:pointcode2int(itu, {1,2,2})},
-	CalledP = #sccp_addr{ssn = ?SCCP_SSN_HLR, point_code = osmo_util:pointcode2int(itu, {1,1,1})},
-	Data = <<1,2,3,4>>,
-	Opts = {protocol_class, 0}, {called_party_addr, CalledP},
-		{calling_party_addr, CallingP}, {user_data, Data},
-	io:format("~p: Sending N-UNITDATA.req to SCRC~n", ?MODULE),
-	gen_fsm:send_event(ScrcPid, osmo_util:make_prim('N','UNITDATA',request,Opts)).
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/ss7_links.erl Deleted

@@ -1,503 +0,0 @@
-% Internal SS7 link database keeping
-
-% (C) 2011-2013 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(ss7_links).
--behaviour(gen_server).
-
--include_lib("osmo_ss7/include/mtp3.hrl").
--include_lib("osmo_ss7/include/osmo_util.hrl").
--include_lib("osmo_ss7/include/osmo_ss7.hrl").
-
-% gen_fsm callbacks
--export(init/1, handle_call/3, handle_cast/2, handle_info/2,
-	 terminate/2, code_change/3).
-
-% our published API
--export(start_link/0, reload_config/0).
-
-% client functions, may internally talk to our sccp_user server
--export(register_linkset/3, unregister_linkset/1).
--export(register_link/3, unregister_link/2, set_link_state/3).
--export(bind_service/2, unbind_service/1).
-
--export(get_pid_for_link/2, get_pid_for_dpc_sls/2,
-	 mtp3_tx/1, mtp3_tx/2,
-	 get_linkset_for_dpc/1, get_opc_for_linkset/1, is_pc_local/1,
-	 get_user_pid_for_service/1, mtp3_rx/1, dump/0,
-	 role2sctp_role/1).
-
--type link_state() :: down | up_inactive | active.
--opaque tid()      :: integer().
--type error()	   :: { error, term() }.
--type osmo_point_code() :: non_neg_integer().
-
--record(slink, {
-	key,		% {linkset_name, sls}
-	name,		% name of the link
-	linkset_name,	% name of the linkset to which we belong
-	sls,
-	user_pid :: pid(), % Pid handling MTP-TRANSFER primitives
-	state :: link_state()
-}).
-
--record(slinkset, {
-	name :: string(),		% name of the linkset
-	local_pc :: non_neg_integer(),	% local point code
-	remote_pc :: non_neg_integer(),	% remote point code
-	user_pid :: pid(),
-	state :: link_state(),
-	active_sls :: list()	% list of Sls of currently active links
-}).
-
--record(service, {
-	name :: string(),
-	service_nr :: non_neg_integer(),
-	user_pid :: pid()
-}).
-
--record(su_state, {
-	linkset_tbl :: tid(),
-	link_tbl :: tid(),
-	service_tbl :: tid()
-}).
-
-
-% initialization code
-
-start_link() ->
-	gen_server:start_link({local, ?MODULE}, ?MODULE, , {debug, trace}).
-
-init(_Arg) ->
-	LinksetTbl = ets:new(ss7_linksets, ordered_set, named_table,
-					     {keypos, #slinkset.name}),
-	ServiceTbl = ets:new(mtp3_services, ordered_set, named_table,
-				{keypos, #service.service_nr}),
-
-	% create a named table so we can query without reference directly
-	% within client/caller process
-	LinkTbl = ets:new(ss7_link_table, ordered_set, named_table,
-					    {keypos, #slink.key}),
-	process_flag(trap_exit, true),
-	{ok, #su_state{linkset_tbl = LinksetTbl, link_tbl = LinkTbl,
-			service_tbl = ServiceTbl}}.
-
-% client side API
-
-% all write operations go through gen_server:call(), as only the ?MODULE
-% process has permission to modify the table content
-
--spec register_linkset(non_neg_integer(), non_neg_integer(), string())
-						-> ok | error().
-
-register_linkset(LocalPc, RemotePc, Name) ->
-	gen_server:call(?MODULE, {register_linkset, {LocalPc, RemotePc, Name}}).
-
--spec unregister_linkset(string()) -> ok | error().
-
-unregister_linkset(Name) ->
-	gen_server:call(?MODULE, {unregister_linkset, {Name}}).
-
--spec register_link(string(), non_neg_integer(), string()) ->
-					ok | error().
-
-register_link(LinksetName, Sls, Name) ->
-	gen_server:call(?MODULE, {register_link, {LinksetName, Sls, Name}}).
-
--spec unregister_link(string(), non_neg_integer()) ->
-					ok | error().
-
-unregister_link(LinksetName, Sls) ->
-	gen_server:call(?MODULE, {unregister_link, {LinksetName, Sls}}).
-
--spec set_link_state(string(), non_neg_integer(), link_state()) ->
-					ok | error().
-
-set_link_state(LinksetName, Sls, State) ->
-	gen_server:call(?MODULE, {set_link_state, {LinksetName, Sls, State}}).
-
--spec bind_service(non_neg_integer(), string()) ->
-					ok | error().
-
-% bind a service (such as ISUP, SCCP) to the MTP3 link manager
-bind_service(ServiceNum, ServiceName) ->
-	gen_server:call(?MODULE, {bind_service, {ServiceNum, ServiceName}}).
-
--spec unbind_service(non_neg_integer()) ->
-					ok | error().
-
-% unbind a service (such as ISUP, SCCP) from the MTP3 link manager
-unbind_service(ServiceNum) ->
-	gen_server:call(?MODULE, {unbind_service, {ServiceNum}}).
-
-% the lookup functions can directly use the ets named_table from within
-% the client process, no need to go through a synchronous IPC
-
--spec get_user_pid_for_service(non_neg_integer()) ->
-	{ok, pid()} | error().
-
-get_user_pid_for_service(Service) when is_integer(Service) ->
-	case ets:lookup(mtp3_services, Service) of
-	    #service{user_pid=Pid} ->
-		{ok, Pid};
-	     ->
-		{error, no_such_service}
-	end.
-
--spec get_pid_for_link(string(), non_neg_integer()) ->
-	{ok, pid()} | error().
-
-get_pid_for_link(LinksetName, Sls) when is_list(LinksetName), is_integer(Sls) ->
-	case ets:lookup(ss7_link_table, {LinksetName, Sls}) of
-	    #slink{user_pid = Pid} ->	
-		% FIXME: check the link state 
-		{ok, Pid};
-	    _ ->
-		{error, no_such_link}
-	end.
-
--spec get_linkset_for_dpc(osmo_point_code()) ->
-	{ok, string()} | error().
-
-% Resolve linkset name directly connected to given point code
-get_linkset_for_dpc(DpcIn) ->
-	Dpc = osmo_util:pointcode2int(DpcIn),
-	Ret = ets:match_object(ss7_linksets,
-			       #slinkset{remote_pc = Dpc, _ = '_'}),
-	case Ret of
-	     ->
-		{error, undefined};
-	    #slinkset{name=Name}|_Tail ->
-		{ok, Name}
-	end.
-
--spec get_pid_for_dpc_sls(osmo_point_code(), non_neg_integer()) ->
-	{ok, string()} | error().
-
-% resolve link-handler Pid for given (directly connected) point code/sls
-get_pid_for_dpc_sls(DpcIn, Sls) when is_integer(Sls) ->
-	Dpc = osmo_util:pointcode2int(DpcIn),
-	case get_linkset_for_dpc(Dpc) of
-	    {error, Err} ->
-		{error, Err};
-	    {ok, LinksetName} ->
-		get_pid_for_link(LinksetName, Sls)
-	end.
-
--spec get_opc_for_linkset(string()) -> non_neg_integer() | undefined.
-
-% the the local point code for a given linkset
-get_opc_for_linkset(LsName) when is_list(LsName) ->
-	case ets:lookup(ss7_linksets, LsName) of
-	    #slinkset{local_pc = Opc}|_Tail ->
-		Opc;
-	    _ ->
-		undefined
-	end.
-
-% determine if a given point code is local
-is_pc_local(Pc) when is_integer(Pc) ->
-	Ret = ets:match_object(ss7_linksets,
-			       #slinkset{local_pc = Pc, _ = '_'}),
-	case Ret of
-	    #slinkset{} ->
-		true;
-	    _ ->
-		false
-	end.
-
-% process a received message on an underlying link
-mtp3_rx(Mtp3) when is_record(Mtp3, mtp3_msg) ->
-	mtp3_rx(osmo_util:make_prim('MTP', 'TRANSFER', indication, Mtp3));
-% FIXME: PAUSE/RESUME/STATUS handling
-mtp3_rx(#primitive{subsystem='MTP', gen_name='PAUSE', spec_name=indication}) ->
-	ok;
-mtp3_rx(#primitive{subsystem='MTP', gen_name='RESUME', spec_name=indication}) ->
-	ok;
-mtp3_rx(#primitive{subsystem='MTP', gen_name='STATUS', spec_name=indication}) ->
-	ok;
-mtp3_rx(P = #primitive{parameters=#mtp3_msg{service_ind=Serv}}) ->
-	case ets:lookup(mtp3_services, Serv) of
-	     #service{user_pid = Pid} ->
-		gen_server:cast(Pid, P);
-	    _ ->
-		% FIXME: send back some error message on MTP level
-		ok
-	end.
-
-
-% transmit a MTP3 message via any of the avaliable links for the DPC
-mtp3_tx(Mtp3 = #mtp3_msg{routing_label = RoutLbl}, Link) ->
-	#mtp3_routing_label{sig_link_sel = Sls} = RoutLbl,
-	% discover the link through which we shall send
-	case get_pid_for_link(Link, Sls) of
-	    {error, Error} ->
-		{error, Error};
-	    {ok, Pid} ->
-		    gen_server:cast(Pid,
-				osmo_util:make_prim('MTP', 'TRANSFER',
-						    request, Mtp3))
-	end.
-
-
-% transmit a MTP3 message via any of the avaliable links for the DPC
-mtp3_tx(Mtp3 = #mtp3_msg{routing_label = RoutLbl}) ->
-	#mtp3_routing_label{dest_pc = Dpc, sig_link_sel = Sls} = RoutLbl,
-	% discover the link through which we shall send
-	case ss7_routes:route_dpc(Dpc) of
-	    {error, Error} ->
-		{error, Error};
-	    {ok, Linkset} ->
-		{ok, Pid} = get_pid_for_link(Linkset, Sls),
-		gen_server:cast(Pid,
-				osmo_util:make_prim('MTP', 'TRANSFER',
-						    request, Mtp3))
-	end.
-
-dump() ->
-	List = ets:tab2list(ss7_linksets),
-	dump_linksets(List),
-	SList = ets:tab2list(mtp3_services),
-	dump_services(SList).
-
-dump_linksets() ->
-	ok;
-dump_linksets(Head|Tail) when is_record(Head, slinkset) ->
-	dump_single_linkset(Head),
-	dump_linksets(Tail).
-
-dump_single_linkset(Sls) when is_record(Sls, slinkset) ->
-	#slinkset{name = Name, local_pc = Lpc, remote_pc = Rpc,
-		  user_pid = Pid, state = State} = Sls,
-	io:format("Linkset ~p, Local PC: ~p, Remote PC: ~p, Pid: ~p, State: ~p~n",
-		  Name, Lpc, Rpc, Pid, State),
-	dump_linkset_links(Name).
-
-dump_linkset_links(Name) ->
-	List = ets:match_object(ss7_link_table,
-				#slink{key={Name,'_'}, _='_'}),
-	dump_links(List).
-
-dump_links() ->
-	ok;
-dump_links(Head|Tail) when is_record(Head, slink) ->
-	#slink{name = Name, sls = Sls, state = State, user_pid = Pid} = Head,
-	io:format("  Link ~p, SLS: ~p, Pid: ~p, State: ~p~n",
-		  Name, Sls, Pid, State),
-	dump_links(Tail).
-
-dump_services() ->
-	ok;
-dump_services(Head|Tail) when is_record(Head, service) ->
-	#service{name = Name, user_pid = Pid, service_nr = Nr} = Head,
-	io:format("Service ~p bound to ~p (Pid ~p)~n", Nr, Name, Pid),
-	dump_services(Tail).
-
-% server side code
-
-handle_call({register_linkset, {LocalPc, RemotePc, Name}},
-				{FromPid, _FromRef}, S) ->
-	#su_state{linkset_tbl = Tbl} = S,
-	Ls = #slinkset{local_pc = LocalPc, remote_pc = RemotePc,
-		       name = Name, user_pid = FromPid,
-		       state = down, active_sls=},
-	case ets:insert_new(Tbl, Ls) of
-	    false ->
-		{reply, {error, ets_insert}, S};
-	    _ ->
-		% We need to trap the user Pid for EXIT
-		% in order to automatically remove any links/linksets if
-		% the user process dies
-		%
-		% we decided to keep Linksets as something like global
-		% configuration around and not kill them in case the user who
-		% created them has died.
-		%link(FromPid),
-		{reply, ok, S}
-	end;
-
-handle_call({unregister_linkset, {Name}}, {FromPid, _FromRef}, S) ->
-	#su_state{linkset_tbl = Tbl} = S,
-	ets:delete(Tbl, Name),
-	{reply, ok, S};
-
-handle_call({register_link, {LsName, Sls, Name}},
-				{FromPid, _FromRef}, S) ->
-	#su_state{linkset_tbl = LinksetTbl, link_tbl = LinkTbl} = S,
-	% check if linkset actually exists
-	case ets:lookup(LinksetTbl, LsName) of
-	    #slinkset{} ->
-		Link = #slink{name = Name, sls = Sls, state = down,
-			      user_pid = FromPid, key = {LsName, Sls}},
-		case ets:insert_new(LinkTbl, Link) of
-		    false ->
-			{reply, {error, link_exists}, S};
-		    _ ->
-			% We need to trap the user Pid for EXIT
-			% in order to automatically remove any links if
-			% the user process dies
-			link(FromPid),
-			{reply, ok, S}
-		end;
-	    _ ->
-		{reply, {error, no_such_linkset}, S}
-	end;
-
-handle_call({unregister_link, {LsName, Sls}}, {FromPid, _FromRef}, S) ->
-	#su_state{link_tbl = LinkTbl} = S,
-	ets:delete(LinkTbl, {LsName, Sls}),
-	{reply, ok, S};
-
-handle_call({set_link_state, {LsName, Sls, State}}, {FromPid, _}, S) ->
-	#su_state{link_tbl = LinkTbl} = S,
-	case ets:lookup(LinkTbl, {LsName, Sls}) of
-	     ->
-		{reply, {error, no_such_link}, S};
-	    Link ->
-		NewLink = Link#slink{state = State},
-		ets:insert(LinkTbl, NewLink),
-		propagate_linkstate_to_linkset(LsName, Sls, State),
-		{reply, ok, S}
-	end;
-
-handle_call({bind_service, {SNum, SName}}, {FromPid, _},
-	    #su_state{service_tbl = ServTbl} = S) ->
-	NewServ = #service{name = SName, service_nr = SNum,
-			   user_pid = FromPid},
-	case ets:insert_new(ServTbl, NewServ) of
-	    false ->
-		{reply, {error, ets_insert}, S};
-	    _ ->
-		% We need to trap the user Pid for EXIT
-		% in order to automatically remove any links if
-		% the user process dies
-		link(FromPid),
-		{reply, ok, S}
-	end;
-handle_call({unbind_service, {SNum}}, {FromPid, _},
-	    #su_state{service_tbl = ServTbl} = S) ->
-	ets:delete(ServTbl, SNum),
-	{reply, ok, S}.
-
-handle_cast(Info, S) ->
-	error_logger:error_report("unknown handle_cast",
-				  {module, ?MODULE},
-				  {info, Info}, {state, S}),
-	{noreply, S}.
-
-handle_info({'EXIT', Pid, Reason}, S) ->
-	io:format("EXIT from Process ~p (~p), cleaning up tables~n",
-		  Pid, Reason),
-	#su_state{linkset_tbl = LinksetTbl, link_tbl = LinkTbl,
-		  service_tbl = ServiceTbl} = S,
-	% we decided to keep Linksets as something like global
-	% configuration around and not kill them in case the user who
-	% created them has died.
-	%ets:match_delete(LinksetTbl, #slinkset{user_pid = Pid, _='_'}),
-	ets:match_delete(LinkTbl, #slink{user_pid = Pid, _='_'}),
-	ets:match_delete(ServiceTbl, #service{user_pid = Pid, _='_'}),
-	{noreply, S};
-handle_info(Info, S) ->
-	error_logger:error_report("unknown handle_info",
-				  {module, ?MODULE},
-				  {info, Info}, {state, S}),
-	{noreply, S}.
-
-terminate(Reason, _S) ->
-	io:format("terminating ~p with reason ~p", ?MODULE, Reason),
-	ok.
-
-code_change(_OldVsn, State, _Extra) ->
-	{ok, State}.
-
-% update the active_sls state in a linkset after a link state chg
-propagate_linkstate_to_linkset(LsName, Sls, State) ->
-	case ets:lookup(ss7_linksets, LsName) of
-	     Ls = #slinkset{} ->
-	       #slinkset{active_sls = ActSls, remote_pc = Dpc} = Ls,
-		case State of
-		    active ->
-			% add Sls to list (unique)
-			ActSls2 = lists:usort(Sls|ActSls);
-		    _ ->
-			% del Sls from list
-			ActSls2 = lists:delete(Sls, ActSls)
-		end,
-		% compute the linkstate state
-		case ActSls2 of
-		     ->
-			LsState = up_inactive,
-			ss7_routes:delete_route(Dpc, 16#ffff, LsName);
-		    _ ->
-			LsState = active,
-			ss7_routes:create_route(Dpc, 16#ffff, LsName)
-		end,
-		ets:insert(ss7_linksets,
-			   Ls#slinkset{active_sls = ActSls2,
-					state = LsState});
-	    _ ->
-		{error, ets_lookup}
-	end.
-
-role2sctp_role(asp) ->
-	active;
-role2sctp_role(sg) ->
-	passive.
-
-
-to_peer({Ip, Port, Pointcode}) ->
-	{ok, ParsedIp} = inet:parse_address(Ip),
-	#sigtran_peer{ip=ParsedIp, port=Port, point_code=Pointcode}.
-
-reconfig_linkset({Name, LocalPC, RemotePC}) ->
-	unregister_linkset(Name),
-	case register_linkset(LocalPC, RemotePC, Name) of
-		ok -> true;
-		_ -> false
-	end.
-
-reconfig_link({Name, {Lset, Sls}, Type, Local, Remote}) ->
-	% FIXME: not relaod safe!!
-	L = #sigtran_link{type=Type, name=Name, linkset_name=Lset,
-			  sls=Sls, local=to_peer(Local), remote=to_peer(Remote)},
-	case osmo_ss7_sup:add_mtp_link(L) of
-		{ok, _, _} -> true;
-		{ok, _} -> true;
-		{error, _} -> false
-	end.
-
-reload_config() ->
-	Linksets = osmo_util:get_env(osmo_ss7, linksets, ),
-	LinksetsRes =  lists:all(fun reconfig_linkset/1, Linksets),
-	Links = osmo_util:get_env(osmo_ss7, links, ),
-	LinksRes = lists:all(fun reconfig_link/1, Links),
-	LinksetsRes and LinksRes.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/ss7_routes.erl Deleted

@@ -1,179 +0,0 @@
-% Internal SS7 route database keeping
-
-% (C) 2011-2013 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
-
-% this module is keeping the point code routing table for the MTP3 layer
-% of the Omsocom SS7 protocol stack.  Routes are created and deleted
-% with create_route() and delete_route(), the arguments are
-% 	* destination point code
-% 	* point code mask
-% 	* name of the linkset
-%
-% there is one function to actually make a routing decision: route_dpc/1
-% with a single argument: the destination point code.
-
--module(ss7_routes).
--behaviour(gen_server).
-
--include_lib("osmo_ss7/include/mtp3.hrl").
-
-% gen_fsm callbacks
--export(init/1, handle_call/3, handle_info/2, terminate/2, code_change/3).
-
-% our published API
--export(start_link/0).
-
-% client functions, may internally talk to our sccp_user server
--export(create_route/3, delete_route/3, flush_routes/0).
--export(dump/0).
--export(route_dpc/1).
--export(reload_config/0).
-
--record(ss7route, {
-	remote_pc_mask,		% {remote_pc, remote_pc_mask}
-	linkset_name
-}).
-
--record(sr_state, {
-	route_tbl
-}).
-
-% initialization code
-
-start_link() ->
-	gen_server:start_link({local, ?MODULE}, ?MODULE, , {debug, trace}).
-
-init(_Arg) ->
-	RouteTbl = ets:new(ss7_routes, ordered_set, named_table,
-			     {keypos, #ss7route.remote_pc_mask}),
-	process_flag(trap_exit, true),
-	{ok, #sr_state{route_tbl = RouteTbl}}.
-
-% client side API
-
-% all write operations go through gen_server:call(), as only the ?MODULE
-% process has permission to modify the table content
-
-create_route(RemotePcIn, RemoteMask, LinksetName) ->
-	RemotePc = osmo_util:pointcode2int(RemotePcIn),
-	gen_server:call(?MODULE, {create_route, {RemotePc, RemoteMask, LinksetName}}).
-
-delete_route(RemotePcIn, RemoteMask, LinksetName) ->
-	RemotePc = osmo_util:pointcode2int(RemotePcIn),
-	gen_server:call(?MODULE, {delete_route, {RemotePc, RemoteMask, LinksetName}}).
-
-flush_routes() ->
-	gen_server:call(?MODULE, flush_routes).
-
-% the lookup functions can directly use the ets named_table from within
-% the client process, no need to go through a synchronous IPC
-
-route_dpc(DpcIn) ->
-	Dpc = osmo_util:pointcode2int(DpcIn),
-	% this was generated by ets:fun2ms() on the shell
-	Match = {#ss7route{remote_pc_mask={'$1','$2'},linkset_name='$3'},
-			  {'==',{'band',Dpc,'$2'},'$1'},
-			    '$3'},
-	case ets:select(ss7_routes, Match) of
-	    Name|_ ->
-		{ok, Name};
-	    _ ->
-		{error, no_route}
-	end.
-
-dump() ->
-	List = ets:tab2list(ss7_routes),
-	dump_routes(List).
-
-dump_routes() ->
-	ok;
-dump_routes(Head|Tail) when is_record(Head, ss7route) ->
-	dump_single_route(Head),
-	dump_routes(Tail).
-
-dump_single_route(#ss7route{remote_pc_mask = {Pc, Mask},
-			    linkset_name = Name}) ->
-	PcTuple = osmo_util:pointcode_fmt(itu, Pc),
-	MaskTuple = osmo_util:pointcode_fmt(itu, Mask),
-	io:format("Dest PC ~p/~p -> Linkset ~p~n",
-		  PcTuple, MaskTuple, Name).
-
-% server side code
-
-handle_call({create_route, {RemotePc, RemoteMask, Name}},
-				{_FromPid, _FromRef}, S) ->
-	#sr_state{route_tbl = Tbl} = S,
-	R = #ss7route{remote_pc_mask = {RemotePc, RemoteMask},
-		      linkset_name = Name},
-	case ets:insert_new(Tbl, R) of
-	    false ->
-		{reply, {error, ets_insert}, S};
-	    _ ->
-		{reply, ok, S}
-	end;
-
-handle_call(flush_routes, {_FromPid, _FromRef}, S) ->
-	#sr_state{route_tbl = Tbl} = S,
-	ets:delete_all_objects(Tbl),
-	{reply, ok, S};
-
-handle_call({delete_route, {RemotePc, RemoteMask, _Name}},
-				{_FromPid, _FromRef}, S) ->
-	#sr_state{route_tbl = Tbl} = S,
-	ets:delete(Tbl, {RemotePc, RemoteMask}),
-	{reply, ok, S}.
-
-handle_info(Info, S) ->
-	error_logger:error_report("unknown handle_info",
-				  {module, ?MODULE},
-				  {info, Info}, {state, S}),
-	{noreply, S}.
-
-terminate(Reason, _S) ->
-	io:format("terminating ~p with reason ~p", ?MODULE, Reason),
-	ok.
-
-
-code_change(_OldVsn, State, _Extra) ->
-	{ok, State}.
-
-reconfig_route({Dpc, Mask, Dest}) ->
-	case create_route(Dpc, Mask, Dest) of
-		ok -> true;
-		_ -> false
-	end.
-
-reload_config() ->
-	flush_routes(),
-	Routes = osmo_util:get_env(osmo_ss7, routes, ),
-	lists:all(fun reconfig_route/1, Routes).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/ss7_service_dump.erl Deleted

@@ -1,78 +0,0 @@
-% SS7 service handler for dumping MTP3 payload (testing)
-
-% (C) 2010-2011 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
-
--module(ss7_service_dump).
--behaviour(gen_fsm).
--export(start_link/1, init/1, idle/2).
-
--include_lib("osmo_ss7/include/osmo_util.hrl").
--include_lib("osmo_ss7/include/mtp3.hrl").
--include_lib("osmo_ss7/include/isup.hrl").
--include_lib("osmo_ss7/include/sccp.hrl").
-
--record(loop_dat, {
-	ssns
-}).
-
-start_link(Ssns) ->
-	gen_fsm:start_link(ss7_service_dump, Ssns, ).
-
-init(Ssn) when is_integer(Ssn) ->
-	init(Ssn);
-init(Ssns) when is_list(Ssns) ->
-	bind_services(Ssns),
-	{ok, idle, #loop_dat{ssns = Ssns}}.
-
-bind_services() ->
-	ok;
-bind_services(Head|Tail) ->
-	ok = ss7_links:bind_service(Head, "ss7_service_dump"),
-	bind_services(Tail).
-
-parse_mtp3(#mtp3_msg{service_ind = ?MTP3_SERV_SCCP, payload = Payload}) ->
-	sccp_codec:parse_sccp_msg(Payload);
-parse_mtp3(#mtp3_msg{service_ind = ?MTP3_SERV_ISUP, payload = Payload}) ->
-	isup_codec:parse_isup_msg(Payload).
-
-idle(#primitive{subsystem = 'MTP', gen_name = 'TRANSFER',
-		spec_name = indication, parameters = Mtp3Msg}, LoopDat) ->
-	io:format("ss7_service_dump in: ~p~n", Mtp3Msg),
-	try parse_mtp3(Mtp3Msg) of
-		Parsed ->
-			io:format("ss7_service_dump out: ~p~n", Parsed)
-	catch
-		_ ->
-			io:format("ss7_service_dump parser error~n")
-	end,
-	{next_state, idle, LoopDat}.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/sua_asp.erl Deleted

@@ -1,91 +0,0 @@
-% SCCP SUA ASP xua_asp_fsm callback according to RFC3868 4.3.1
-
-% (C) 2011-2012 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(sua_asp).
--author('Harald Welte <laforge@gnumonks.org>').
--behaviour(xua_asp_fsm).
-
--include("osmo_util.hrl").
--include("m3ua.hrl").
--include("sua.hrl").
--include("xua.hrl").
-
--export(init/1).
-
--export(gen_xua_msg/3, asp_down/3, asp_inactive/3, asp_active/3).
-
-init() ->
-	{ok, we_have_no_state}.
-
-gen_xua_msg(MsgClass, MsgType, Params) ->
-	#xua_msg{version = 1, msg_class = MsgClass, msg_type = MsgType, payload = Params}.
-
-asp_down(#xua_msg{version = 1, msg_class = MsgClass, msg_type = MsgType},
-	 LoopDat, Mld) when MsgClass == ?M3UA_MSGC_ASPSM; MsgClass == ?M3UA_MSGC_ASPTM ->
-	% convert from SUA to xua_msg and call into master module
-	xua_asp_fsm:asp_down({xua_msg, MsgClass, MsgType}, Mld);
-asp_down(SuaMsg, LoopDat, Mld) when is_record(SuaMsg, xua_msg) ->
-	rx_sua(SuaMsg, asp_down, Mld).
-
-asp_inactive(#xua_msg{version = 1, msg_class = MsgClass, msg_type = MsgType},
-	     LoopDat, Mld) when MsgClass == ?M3UA_MSGC_ASPSM; MsgClass == ?M3UA_MSGC_ASPTM ->
-	% convert from SUA to xua_msg and call into master module
-	xua_asp_fsm:asp_inactive({xua_msg, MsgClass, MsgType}, Mld);
-asp_inactive(SuaMsg, LoopDat, Mld) when is_record(SuaMsg, xua_msg) ->
-	rx_sua(SuaMsg, asp_inactive, Mld).
-
-asp_active(#xua_msg{version = 1, msg_class = MsgClass, msg_type = MsgType},
-	   LoopDat, Mld) when MsgClass == ?M3UA_MSGC_ASPSM; MsgClass == ?M3UA_MSGC_ASPTM ->
-	% convert from SUA to xua_msg and call into master module
-	xua_asp_fsm:asp_active({xua_msg, MsgClass, MsgType}, Mld);
-asp_active(SuaMsg, LoopDat, Mld) when is_record(SuaMsg, xua_msg) ->
-	rx_sua(SuaMsg, asp_active, Mld).
-
-
-
-rx_sua(Msg = #xua_msg{version = 1, msg_class = ?M3UA_MSGC_ASPSM,
-		      msg_type = ?M3UA_MSGT_ASPSM_BEAT}, State, LoopDat) ->
-	% Send BEAT_ACK using the same payload as the BEAT msg
-	xua_asp_fsm:send_sctp_to_peer(LoopDat, Msg#xua_msg{msg_type = ?M3UA_MSGT_ASPSM_BEAT_ACK}),
-	{next_state, State, LoopDat};
-
-%rx_sua(Msg = #xua_msg{version = 1, msg_class = ?M3UA_MSGC_SSNM,
-		       %msg_type = MsgType, payload = Params}, State, LoopDat) ->
-	% transform to classic MTP primitive and send up to the user
-	%Mtp = map_ssnm_to_mtp_prim(MsgType),
-	%send_prim_to_user(LoopDat, Mtp),
-	%{next_state, State, LoopDat};
-
-rx_sua(Msg = #xua_msg{}, State, LoopDat) ->
-	io:format("SUA Unknown messge ~p in state ~p~n", Msg, State),
-	{next_state, State, LoopDat}.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/sua_sccp_conv.erl Deleted

@@ -1,257 +0,0 @@
-% Conversion between SUA messages and #sccp_msg{}
-
-% (C) 2011 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
-% FIXME: this currently only supports connection-less SCCP
-
--module(sua_sccp_conv).
--author('Harald Welte <laforge@gnumonks.org>').
-
--include("sua.hrl").
--include("xua.hrl").
--include("sccp.hrl").
-
--export(sua_to_sccp/1, sccp_to_sua/1).
-
-sua_to_sccp(M=#xua_msg{msg_class = Class, msg_type = Type}) ->
-	sua_to_sccp(Class, Type, M).
-sua_to_sccp(?SUA_MSGC_CL, ?SUA_CL_CLDT, Sua) ->
-	Params = sua_to_sccp_params(Sua),
-	#sccp_msg{msg_type = ?SCCP_MSGT_UDT,
-		parameters = Params};
-sua_to_sccp(?SUA_MSGC_CL, ?SUA_CL_CLDR, Sua) ->
-	Params = sua_to_sccp_params(Sua),
-	#sccp_msg{msg_type = ?SCCP_MSGT_UDTS,
-		parameters = Params}.
-
-sccp_to_sua(#sccp_msg{msg_type = Type, parameters = Params}) ->
-	sccp_to_sua(Type, Params).
-sccp_to_sua(Type, Params) when	Type == ?SCCP_MSGT_UDT;
-				Type == ?SCCP_MSGT_XUDT;
-				Type == ?SCCP_MSGT_LUDT ->
-	Opts = sccp_to_sua_params(Type, Params),
-	#xua_msg{version = 1, msg_class = ?SUA_MSGC_CL,
-		 msg_type = ?SUA_CL_CLDT, payload = Opts};
-sccp_to_sua(Type, Params) when 	Type == ?SCCP_MSGT_UDTS;
-				Type == ?SCCP_MSGT_XUDTS;
-				Type == ?SCCP_MSGT_LUDTS ->
-	Opts = sccp_to_sua_params(Params),
-	#xua_msg{version=1, msg_class = ?SUA_MSGC_CL,
-		 msg_type = ?SUA_CL_CLDR, payload = Opts}.
-
-
-% CLDT parameters:
-% 	?SUA_IEI_ROUTE_CTX, ?SUA_IEI_PROTO_CLASS, ?SUA_IEI_SRC_ADDR,
-% 	?SUA_IEI_DEST_ADDR, ?SUA_IEI_SEQ_CTRL, ?SUA_IEI_S7_HOP_CTR,
-% 	?SUA_IEI_IMPORTANCE, ?SUA_IEI_MSG_PRIO, ?SUA_IEI_CORR_ID,
-% 	?SUA_IEI_SEGMENTATION, ?SUA_IEI_DATA
-
-sua_to_sccp_params(#xua_msg{msg_class=Class, msg_type=Type, payload=Payload}) ->
-	sua_to_sccp_params(Class, Type, Payload).
-sua_to_sccp_params(Class, Type, Payload) ->
-	sua_to_sccp_params(Class, Type, Payload, ).
-sua_to_sccp_params(_Class, _Type, , List) ->
-	List;
-sua_to_sccp_params(Class, Type, {ParTag, {_Len, ParVal}}|Remain, List) ->
-	NewPars = sua_to_sccp_param(Class, Type, ParTag, ParVal),
-	sua_to_sccp_params(Class, Type, Remain, List ++ NewPars).
-
-% convert an individual SUA parameter to a SCCP option
-sua_to_sccp_param(_, _, ?SUA_IEI_PROTO_CLASS, Remain) ->
-	<<_:24, PCOpt:4, _:2, Class:2>> = Remain,
-	{protocol_class, {Class, PCOpt}};
-sua_to_sccp_param(_, _, ?SUA_IEI_SRC_ADDR, Remain) ->
-	Addr = sua_to_sccp_addr(Remain),
-	{calling_party_addr, Addr};
-sua_to_sccp_param(_, _, ?SUA_IEI_DEST_ADDR, Remain) ->
-	Addr = sua_to_sccp_addr(Remain),
-	{called_party_addr, Addr};
-sua_to_sccp_param(_, _, ?SUA_IEI_SEQ_CTRL, _Remain) ->
-	% If we were to translate to a N-UNITDATA.req, we could map
-	% this, but there is no mapping to a SCCP message...
-	;
-sua_to_sccp_param(_, _, ?SUA_IEI_S7_HOP_CTR, Remain) ->
-	<<_:24, HopCtr:8>> = Remain,
-	{?SCCP_PNC_HOP_COUNTER, HopCtr};
-sua_to_sccp_param(_, _, ?SUA_IEI_IMPORTANCE, Remain) ->
-	<<_:24, Imp:8>> = Remain,
-	{?SCCP_PNC_IMPORTANCE, Imp};
-sua_to_sccp_param(_, _, ?SUA_IEI_DATA, Remain) ->
-	{user_data, Remain};
-sua_to_sccp_param(_, _, ?SUA_IEI_ROUTE_CTX, _Remain) ->
-	%FIXME: what to do with routing context?
-	.
-
-sccp_to_sua_params(#sccp_msg{msg_type=Type, parameters=Params}) ->
-	sccp_to_sua_params(Type, Params).
-sccp_to_sua_params(Type, Params) when is_list(Params) ->
-	sccp_to_sua_params(Type, Params, ).
-sccp_to_sua_params(_Type, , List) ->
-	List;
-sccp_to_sua_params(Type, {ParTag, ParVal}|Tail, List) ->
-	NewPars = sccp_to_sua_param(Type, ParTag, ParVal),
-	sccp_to_sua_params(Type, Tail, List ++ NewPars).
-
-sccp_to_sua_param(_, protocol_class, {Opt, Class}) ->
-	{?SUA_IEI_PROTO_CLASS, <<0:24, Opt:4, 0:2, Class:2>>};
-sccp_to_sua_param(_, calling_party_addr, Addr) ->
-	AddrSua = sccp_to_sua_addr(Addr),
-	{?SUA_IEI_SRC_ADDR, AddrSua};
-sccp_to_sua_param(_, called_party_addr, Addr) ->
-	AddrSua = sccp_to_sua_addr(Addr),
-	{?SUA_IEI_DEST_ADDR, AddrSua};
-sccp_to_sua_param(_, ?SCCP_PNC_HOP_COUNTER, Hop) ->
-	{?SUA_IEI_S7_HOP_CTR, <<0:24, Hop:8>>};
-sccp_to_sua_param(_, ?SCCP_PNC_IMPORTANCE, Imp) ->
-	{?SUA_IEI_IMPORTANCE, <<0:24, Imp:8>>};
-sccp_to_sua_param(_, user_data, Data) ->
-	{?SUA_IEI_DATA, Data}.
-
-sua_to_sccp_addr(SuaBin) ->
-	<<RoutInd:16, _:13, GTinc:1, PCinc:1, SSNinc:1, Remain/binary>> = SuaBin,
-	ParList = addr_pars_to_list(Remain),
-	case GTinc of
-		1 ->
-			{_, GTopt} = proplists:get_value(?SUA_IEI_GT, ParList),
-			GT = parse_sua_gt(GTopt);
-		0 ->
-			GT = undefined
-	end,
-	case PCinc of
-		1 ->
-			{_, PCopt} = proplists:get_value(?SUA_IEI_PC, ParList),
-			PC = parse_sua_pc(PCopt);
-		0 ->
-			PC = undefined
-	end,
-	case SSNinc of
-		1 ->
-			{_, SSNopt} = proplists:get_value(?SUA_IEI_SSN, ParList),
-			SSN = parse_sua_ssn(SSNopt);
-		0 ->
-			SSN = undefined
-	end,
-	case RoutInd of
-		?SUA_RI_GT ->
-			RoutSSN = 0;
-		?SUA_RI_SSN_PC ->
-			RoutSSN = 1
-	end,
-	#sccp_addr{route_on_ssn = RoutSSN, point_code = PC, ssn = SSN, global_title = GT}.
-
-addr_pars_to_list(Bin) ->
-	xua_codec:parse_xua_opts(Bin).
-
-sccp_to_sua_addr(Addr) when is_record(Addr, sccp_addr) ->
-	#sccp_addr{route_on_ssn = RoutOnSsn, point_code = PC, ssn = SSN,
-		   global_title = GT} = Addr,
-	case GT of
-		#global_title{} ->
-			GTopt = {?SUA_IEI_GT, encode_sua_gt(GT)},
-			GTinc = 1;
-		_ ->
-			GTopt = ,
-			GTinc = 0
-	end,
-	case PC of
-		Int when is_integer(Int) ->
-			PCopt = {?SUA_IEI_PC, encode_sua_pc(PC)},
-			PCinc = 1;
-		_ ->
-			PCopt = ,
-			PCinc = 0
-	end,
-	case SSN of
-		Int2 when is_integer(Int2) ->
-			SSNopt = {?SUA_IEI_SSN, encode_sua_ssn(SSN)},
-			SSNinc = 1;
-		_ ->
-			SSNopt = ,
-			SSNinc = 0
-	end,
-	case RoutOnSsn of
-		0 ->
-			RoutInd = ?SUA_RI_GT;
-		1 ->
-			RoutInd = ?SUA_RI_SSN_PC
-	end,
-	Tail = xua_codec:encode_xua_opts(GTopt ++ PCopt ++ SSNopt),
-	<<RoutInd:16, 0:13, GTinc:1, PCinc:1, SSNinc:1, Tail/binary>>.
-
-parse_sua_gt(Bin) ->
-	<<_:24, GTI:8, NoDigits:8, TransType:8, NumPlan:8, NAI:8, Remain/binary>> = Bin,
-	Number = parse_sua_gt_digits(NoDigits, Remain),
-	#global_title{gti = GTI, nature_of_addr_ind = NAI,
-		      trans_type = TransType,
-		      numbering_plan = NumPlan,
-		      phone_number = Number}.
-encode_sua_gt(Gt) when is_record(Gt, global_title) ->
-	#global_title{gti = GTI, nature_of_addr_ind = NAI,
-		      trans_type = TransType,
-		      numbering_plan = NumPlan,
-		      phone_number = Number} = Gt,
-	NoDigits = count_digits(Number),
-	DigitBin = encode_sua_gt_digits(Number),
-	<<0:24, GTI:8, NoDigits:8, TransType:8, NumPlan:8, NAI:8, DigitBin/binary>>.
-
-count_digits(Number) when is_integer(Number) ->
-	BcdList = osmo_util:int2digit_list(Number),
-	count_digits(BcdList);
-count_digits(Number) when is_list(Number) ->
-	length(Number).
-
-
-parse_sua_gt_digits(NoDigits, Remain) ->
-	% as opposed to ISUP/SCCP, we can have more than one nibble padding,
-	OddEven = NoDigits rem 1,
-	case OddEven of
-		0 ->
-			ByteLen = NoDigits div 2;
-		1 ->
-			ByteLen = NoDigits div 2 + 1
-	end,
-	<<Bin:ByteLen/binary, _/binary>> = Remain,
-	isup_codec:parse_isup_party(Bin, OddEven).
-encode_sua_gt_digits(Digits) when is_list(Digits); is_integer(Digits) ->
-	% Assume that overall option encoder will do the padding...
-	{Enc, _OddEven} = isup_codec:encode_isup_party(Digits),
-	Enc.
-
-parse_sua_pc(<<PC:32/big>>) ->
-	PC.
-encode_sua_pc(Pc) when is_integer(Pc) ->
-	<<Pc:32/big>>.
-
-parse_sua_ssn(<<_:24, SSN:8>>) ->
-	SSN.
-encode_sua_ssn(Ssn) when is_integer(Ssn) ->
-	<<0:24, Ssn:8>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/xua_as_fsm.erl Deleted

@@ -1,246 +0,0 @@
-% M2UA / M3UA / SUA AS gsn_fsm according to RFC3868 4.3.1
-
-% (C) 2011-2012 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(xua_as_fsm).
--author('Harald Welte <laforge@gnumonks.org>').
--behaviour(gen_fsm).
-
--include("osmo_util.hrl").
--include("m3ua.hrl").
-
-% gen_fsm exports
--export(init/1, terminate/3, code_change/4, handle_event/3, handle_sync_event/4, handle_info/3).
-
-% states in this FSM
--export(as_down/2, as_inactive/2, as_active/2, as_pending/2).
-
-% exported API
--export(create_asp/2).
-
-% Timeouts in milliseconds
--define(T_R_TIMEOUT, 2*60*100).
-
--record(as_state, {
-		as_sup_pid,
-		role,
-		t_r,
-		asp_list
-	}).
-
-create_asp(Name, AspFsmArgs) ->
-	AsFsmName = sg_as_sup:get_as_fsm_name(Name),
-	gen_fsm:sync_send_all_state_event(AsFsmName, {create_asp, AspFsmArgs}).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% gen_fsm callbacks
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-init(AsSupPid) when is_pid(AsSupPid) ->
-	AsState = #as_state{asp_list = ,
-			    as_sup_pid = AsSupPid,
-			    role = sg},
-	{ok, as_down, AsState}.
-
-terminate(Reason, State, _LoopDat) ->
-	io:format("Terminating ~p in State ~p (Reason: ~p)~n",
-		  ?MODULE, State, Reason),
-	ok.
-
-code_change(_OldVsn, StateName, LoopDat, _Extra) ->
-	{ok, StateName, LoopDat}.
-
-handle_sync_event({create_asp, Args}, From, State, LoopDat) ->
-	% resolve the ASP supervisor PID
-	AsSupPid = LoopDat#as_state.as_sup_pid,
-	AsChildList = supervisor:which_children(AsSupPid),
-	io:format("AsSupPid ~p, ChildList ~p~n", AsSupPid, AsChildList),
-	{asp_sup, AspSupPid, _, _} = lists:keyfind(asp_sup, 1, AsChildList),
-	% actually tell it to start a new ASP, prepend our own Pid
-	Ret = supervisor:start_child(AspSupPid, self()|Args),
-	LoopDatOut = case Ret of
-		{ok, AspPid} ->
-			link(AspPid),
-			LoopDat#as_state{asp_list = AspPid|LoopDat#as_state.asp_list};
-		{ok, AspPid, _} ->
-			link(AspPid),
-			LoopDat#as_state{asp_list = AspPid|LoopDat#as_state.asp_list};
-		_ ->
-			LoopDat
-	end,
-	{reply, Ret, State, LoopDatOut}.
-
-handle_event(Event, State, LoopDat) ->
-	io:format("Unknown Event ~p in state ~p~n", Event, State),
-	{next_state, State, LoopDat}.
-
-handle_info({'EXIT', Pid, Reason}, State, LoopDat) ->
-	io:format("EXIT from Process ~p (~p), cleaning up ASP list~n",
-		  Pid, Reason),
-	% FIXME: send fake ASP-DOWN event about ASP to self
-	NewAspList = lists:delete(Pid, LoopDat#as_state.asp_list),
-	{next_state, State, LoopDat#as_state{asp_list = NewAspList}};
-
-handle_info(Info, State, LoopDat) ->
-	io:format("Unknown Info ~p in state ~p~n", Info, State),
-	{next_state, State, LoopDat}.
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% STATE "as_down"
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-as_down(#primitive{subsystem = 'ASPAS', gen_name = 'ASP_INACTIVE',
-		   spec_name = indication, parameters = _Params}, LoopDat) ->
-	% One ASP transitions into ASP-INACTIVE
-	next_state(as_inactive, LoopDat);
-
-as_down(#primitive{subsystem = 'ASPAS', gen_name = 'ASP_DOWN',
-		   spec_name = indication, parameters = _Params}, LoopDat) ->
-	% ignore
-	next_state(as_down, LoopDat).
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% STATE "as_inactive"
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-as_inactive(#primitive{subsystem = 'ASPAS', gen_name = 'ASP_DOWN',
-			spec_name = indication, parameters = AsPid}, LoopDat) ->
-	% One ASP transitions into ASP-DOWN
-	% FIXME: check if there are any other ASP != DOWN, if yes -> as_inactive
-	case check_any_other_asp_not_down(LoopDat, AsPid) of
-		true ->
-			next_state(as_inactive, LoopDat);
-		false ->
-			next_state(as_down, LoopDat)
-	end;
-
-as_inactive(#primitive{subsystem = 'ASPAS', gen_name = 'ASP_ACTIVE',
-			spec_name = indication, parameters = Params}, LoopDat) ->
-	% One ASP transitions to ASP-ACTIVE
-	next_state(as_active, LoopDat);
-
-as_inactive(#primitive{subsystem = 'ASPAS', gen_name = 'ASP_INACTIVE',
-		       spec_name = indication, parameters = _Params}, LoopDat) ->
-	% ignore
-	next_state(as_inactive, LoopDat).
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% STATE "as_active"
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-as_active(#primitive{subsystem = 'ASPAS', gen_name = InactDown,
-		     spec_name = indication, parameters = AspPid}, LoopDat) when
-		InactDown == 'ASP_DOWN'; InactDown == 'ASP_INACTIVE' ->
-	% One ASP transitions to ASP-INACTIVE
-	% check if there are other ASP in active, if yes -> as_active
-	case check_any_other_asp_in_active(LoopDat, AspPid) of
-		true ->
-			next_state(as_active, LoopDat);
-		false ->
-			{ok, Tr} = timer:apply_after(?T_R_TIMEOUT, gen_fsm, send_event,
-						 self(), {timer_expired, t_r}),
-			next_state(as_pending, LoopDat#as_state{t_r = Tr})
-	end;
-
-as_active(#primitive{subsystem = 'ASPAS', gen_name = 'ASP_ACTIVE',
-		     spec_name = indication, parameters = _Params}, LoopDat) ->
-	% ignore
-	next_state(as_active, LoopDat).
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% STATE "as_pending"
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-as_pending(#primitive{subsystem = 'ASPAS', gen_name = 'ASP_ACTIVE',
-		      spec_name = indication}, LoopDat) ->
-	% One ASP transitions into ASP-ACTIVE
-	timer:cancel(LoopDat#as_state.t_r),
-	next_state(as_active, LoopDat);
-
-as_pending(#primitive{subsystem = 'ASPAS', gen_name = 'ASP_INACTIVE',
-		      spec_name = indication, parameters = _Params}, LoopDat) ->
-	% ignore
-	next_state(as_pending, LoopDat);
-
-% FIXME: do we need to re-check as_pending state if we get ASP_DOWN of the last
-% inactive ASP ?
-as_pending(#primitive{subsystem = 'ASPAS', gen_name = 'ASP_DOWN',
-		      spec_name = indication, parameters = _Params}, LoopDat) ->
-	next_state(as_pending, LoopDat);
-
-as_pending({timer_expired, t_r}, LoopDat) ->
-	% check if there is at least one ASP in ASP-INACTIVE -> AS-INACTIVE
-	case check_any_other_asp_in_inactive(LoopDat, undefined) of
-		true ->
-			next_state(as_inactive, LoopDat);
-		false ->
-			next_state(as_down, LoopDat)
-	end.
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% helper functions
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-next_state(NewState, LoopDat) ->
-	%FIXME Module:as_state_change(NewState, LoopDat#as_state.ext_state),
-	{next_state, NewState, LoopDat}.
-
-%create_asp(LoopDatIn = #as_state{asp_module = {AspModule, AspModuleArgs},
-%				 asp_list = AspListIn}) ->
-%	Args = AspModule, AspModuleArgs, UserFun, UserFunArgs, SctpPid,
-%	{ok, AspPid} = gen_fsm:start_link(xua_asp_fsm, Args, {debug, trace}),
-%	{AspPid, LoopDatIn#{asp_list = AspPid|AspListIn}}.
-
-
-
-check_any_other_asp_in_inactive(LoopDat, AspPid) ->
-	check_any_other_asp_in_state('ASP_INACTIVE', LoopDat, AspPid).
-
-check_any_other_asp_in_active(LoopDat, AspPid) ->
-	check_any_other_asp_in_state('ASP_ACTIVE', LoopDat, AspPid).
-
-check_any_other_asp_not_down(LoopDat, AspPid) ->
-	ListWithoutMe = lists:delete(AspPid, LoopDat#as_state.asp_list),
-	StateList = build_asp_state_list(ListWithoutMe),
-	not lists:all(fun(E) -> E == 'ASP_DOWN' end, StateList).
-
-check_any_other_asp_in_state(State, LoopDat, AspPid) ->
-	ListWithoutMe = lists:delete(AspPid, LoopDat#as_state.asp_list),
-	StateList = build_asp_state_list(ListWithoutMe),
-	lists:member(State, StateList).
-
-build_asp_state_list(ListOfPids) ->
-	xua_asp_fsm:get_state(X) || X <- ListOfPids.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/xua_asp_fsm.erl Deleted

@@ -1,328 +0,0 @@
-% SCCP M3UA / SUA ASP gsn_fsm according to RFC3868 4.3.1
-
-% (C) 2011-2012 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(xua_asp_fsm).
--author('Harald Welte <laforge@gnumonks.org>').
--behaviour(gen_fsm).
-
--include("osmo_util.hrl").
--include("m3ua.hrl").
-
-% gen_fsm exports
--export(init/1, terminate/3, code_change/4, handle_event/3, handle_info/3,
-	 handle_sync_event/4).
-
-% states in this FSM
--export(asp_down/2, asp_inactive/2, asp_active/2).
-
-% helper functions exporte to callback modules
--export(send_sctp_to_peer/2, send_prim_to_user/2).
-
-% global exports
--export(get_state/1, start_link/7).
-
--export(behaviour_info/1).
-
-behaviour_info(callbacks) ->
-	{gen_xua_msg, 3}, {asp_down, 3}, {asp_inactive, 3}, {asp_active, 3}.
-
-% Timeouts in milliseconds
--define(T_ACK_TIMEOUT, 2*60*100).
-
--record(asp_state, {
-		module,
-		role,	% asp, sg
-		t_ack,
-		ext_state,
-		user_fun,
-		user_args,
-		as_pid,
-		sctp_pid
-	}).
-
-start_link(AsPid, Module, ModuleArgs, UserFun, UserArgs, SctpPid, Role) ->
-	gen_fsm:start_link(?MODULE, AsPid, Module, ModuleArgs, UserFun, UserArgs, SctpPid, Role, {debug, trace}).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% gen_fsm callbacks
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-init(AsPid, Module, ModuleArgs, UserFun, UserArgs, SctpPid, Role) ->
-	{ok, ExtState} = Module:init(ModuleArgs),
-	AspState = #asp_state{module = Module,
-			      user_fun = UserFun,
-			      user_args = UserArgs,
-			      ext_state = ExtState,
-			      as_pid = AsPid,
-			      sctp_pid = SctpPid,
-			      role = Role},
-	{ok, asp_down, AspState}.
-
-terminate(Reason, State, _LoopDat) ->
-	io:format("Terminating ~p in State ~p (Reason: ~p)~n",
-		  ?MODULE, State, Reason),
-	ok.
-
-code_change(_OldVsn, StateName, LoopDat, _Extra) ->
-	{ok, StateName, LoopDat}.
-
-handle_event(Event, State, LoopDat) ->
-	io:format("Unknown Event ~p in state ~p~n", Event, State),
-	{next_state, State, LoopDat}.
-
-
-handle_info(Info, State, LoopDat) ->
-	io:format("Unknown Info ~p in state ~p~n", Info, State),
-	{next_state, State, LoopDat}.
-
-handle_sync_event(get_state, _From, StateName, LoopDat) ->
-	{reply, state2aspas(StateName), StateName, LoopDat}.
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% exports
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-get_state(Pid) ->
-	gen_fsm:sync_send_all_state_event(Pid, get_state).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% STATE "asp_down"
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-asp_down(#primitive{subsystem = 'M', gen_name = 'ASP_UP',
-		    spec_name = request, parameters = _Params},
-	 LoopDat = #asp_state{role=asp}) ->
-	% M-ASP_UP.req from user, generate message and send to remote peer
-	send_msg_start_tack(LoopDat, asp_down, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPUP, );
-asp_down({timer_expired, t_ack, {?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPUP, Params}}, LoopDat) ->
-	send_msg_start_tack(LoopDat, asp_down, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPUP, Params);
-
-asp_down({xua_msg, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPUP_ACK},
-	 LoopDat = #asp_state{role=asp}) ->
-	timer:cancel(LoopDat#asp_state.t_ack),
-	% transition into ASP_INACTIVE
-	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_UP',confirm)),
-	next_state(asp_inactive, LoopDat);
-
-asp_down({xua_msg, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPUP},
-	 LoopDat = #asp_state{role=sg}) ->
-	% transition into ASP_INACTIVE
-	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_UP',indication)),
-	send_msg(LoopDat, asp_inactive, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPUP_ACK, );
-
-asp_down(WhateverElse, LoopDat = #asp_state{module = Module, ext_state = ExtState}) ->
-	{next_state, State, LDnew} = Module:asp_down(WhateverElse, ExtState, LoopDat),
-	next_state(State, LDnew).
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% STATE "asp_inactive"
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-asp_inactive(#primitive{subsystem = 'M', gen_name = 'ASP_ACTIVE',
-			spec_name = request, parameters = Params},
-	     LoopDat = #asp_state{role=asp}) ->
-	% M-ASP_ACTIVE.req from user, generate message and send to remote peer
-	send_msg_start_tack(LoopDat, asp_inactive, ?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPAC,
-			   Params);
-
-asp_inactive({timer_expired, t_ack, {?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPAC, Params}}, LoopDat) ->
-	send_msg_start_tack(LoopDat, asp_inactive, ?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPAC, Params);
-
-asp_inactive(#primitive{subsystem = 'M', gen_name = 'ASP_DOWN',
-		      spec_name = request, parameters = _Params},
-	     LoopDat = #asp_state{role=asp}) ->
-	% M-ASP_DOWN.req from user, generate message and send to remote peer
-	send_msg_start_tack(LoopDat, asp_inactive, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN, );
-
-asp_inactive({timer_expired, t_ack, {?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN, Params}}, LoopDat) ->
-	send_msg_start_tack(LoopDat, asp_inactive, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN, Params);
-
-asp_inactive({xua_msg,?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPAC_ACK},
-	     LoopDat = #asp_state{role=asp}) ->
-	timer:cancel(LoopDat#asp_state.t_ack),
-	% transition into ASP_ACTIVE
-	% signal this to the user
-	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_ACTIVE',confirm)),
-	next_state(asp_active, LoopDat);
-
-asp_inactive({xua_msg, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN_ACK},
-	     LoopDat = #asp_state{role=asp}) ->
-	timer:cancel(LoopDat#asp_state.t_ack),
-	% transition into ASP_DOWN
-	% signal this to the user
-	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_DOWN',confirm)),
-	next_state(asp_down, LoopDat);
-
-
-asp_inactive({xua_msg,?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPAC},
-	     LoopDat = #asp_state{role=sg}) ->
-	% transition into ASP_ACTIVE
-	% signal this to the user
-	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_ACTIVE',indication)),
-	send_msg(LoopDat, asp_active, ?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPAC_ACK, );
-
-asp_inactive({xua_msg, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN},
-	     LoopDat = #asp_state{role=asp}) ->
-	% transition into ASP_DOWN
-	% signal this to the user
-	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_DOWN',indication)),
-	send_msg(LoopDat, asp_active, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN_ACK, );
-
-asp_inactive(WhateverElse, LoopDat = #asp_state{module = Module, ext_state = ExtState}) ->
-	{next_state, State, LDnew} = Module:asp_inactive(WhateverElse, ExtState, LoopDat),
-	next_state(State, LDnew).
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% STATE "asp_active"
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-asp_active({xua_msg, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN_ACK},
-	   LoopDat = #asp_state{role=asp}) ->
-	timer:cancel(LoopDat#asp_state.t_ack),
-	% transition into ASP_DOWN
-	% signal this to the user
-	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_DOWN',confirm)),
-	next_state(asp_down, LoopDat);
-
-asp_active({xua_msg, ?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPIA_ACK},
-	   LoopDat = #asp_state{role=asp}) ->
-	timer:cancel(LoopDat#asp_state.t_ack),
-	% transition into ASP_INACTIVE
-	% signal this to the user
-	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_INACTIVE',confirm)),
-	next_state(asp_inactive, LoopDat);
-
-asp_active(#primitive{subsystem = 'M', gen_name = 'ASP_DOWN',
-		      spec_name = request, parameters = _Params},
-	   LoopDat = #asp_state{role=asp}) ->
-	% M-ASP_DOWN.req from user, generate message and send to remote peer
-	send_msg_start_tack(LoopDat, asp_active, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN, );
-
-asp_active({timer_expired, t_ack, {?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN, Params}}, LoopDat) ->
-	send_msg_start_tack(LoopDat, asp_active, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN, Params);
-
-asp_active(#primitive{subsystem = 'M', gen_name = 'ASP_INACTIVE',
-		      spec_name = request, parameters = _Params},
-	   LoopDat = #asp_state{role=asp}) ->
-	% M-ASP_INACTIVE.req from user, generate message and send to remote peer
-	send_msg_start_tack(LoopDat, asp_active, ?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPIA, );
-
-asp_active({timer_expired, t_ack, {?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPIA, Params}}, LoopDat) ->
-	send_msg_start_tack(LoopDat, asp_active, ?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPIA, Params);
-
-asp_active({xua_msg, ?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPIA},
-	   LoopDat = #asp_state{role=sg}) ->
-	% transition into ASP_INACTIVE
-	% signal this to user
-	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_INACTIVE',indication)),
-	send_msg(LoopDat, asp_inactive, ?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPIA_ACK, );
-
-asp_active({xua_msg, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN},
-	   LoopDat = #asp_state{role=sg}) ->
-	% transition into ASP_INACTIVE
-	% signal this to user
-	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_DOWN',indication)),
-	send_msg(LoopDat, asp_down, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN_ACK, );
-
-
-asp_active(#primitive{subsystem = 'MTP', gen_name = 'TRANSFER',
-		      spec_name = request, parameters = Params}, LoopDat) ->
-	% MTP-TRANSFER.req from user app: Send message to remote peer
-	OptList = {?M3UA_IEI_PROTOCOL_DATA, Params},
-	Msg = #m3ua_msg{version = 1, msg_class = ?M3UA_MSGC_TRANSFER,
-			msg_type = ?M3UA_MSGT_XFR_DATA,
-			payload = OptList},
-	send_sctp_to_peer(LoopDat, Msg),
-	next_state(asp_active, LoopDat);
-asp_active(#m3ua_msg{version = 1, msg_class = ?M3UA_MSGC_TRANSFER,
-		     msg_type = ?M3UA_MSGT_XFR_DATA, payload = Params}, LoopDat) ->
-	% Data transfer from remote entity: Send MTP-TRANSFER.ind primitive to the user
-	Mtp3 = proplists:get_value(?M3UA_IEI_PROTOCOL_DATA, Params),
-	send_prim_to_user(LoopDat, osmo_util:make_prim('MTP','TRANSFER',indication,Mtp3)),
-	next_state(asp_active, LoopDat);
-
-asp_active(WhateverElse, LoopDat = #asp_state{module = Module, ext_state = ExtState}) ->
-	{next_state, State, LDnew} = Module:asp_active(WhateverElse, ExtState, LoopDat),
-	next_state(State, LDnew).
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% helper functions
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-% helper to send one of the up/down/act/inact management messages + start timer
-send_msg_start_tack(LoopDat, State, MsgClass, MsgType, Params) ->
-	Module = LoopDat#asp_state.module,
-	% generate and send the respective message
-	%Msg = #m3ua_msg{version = 1, msg_class = MsgClass, msg_type = MsgType, payload = Params},
-	Msg = Module:gen_xua_msg(MsgClass, MsgType, Params),
-	send_sctp_to_peer(LoopDat, Msg),
-	% start T(ack) timer and wait for ASP_UP_ACK
-	timer:cancel(LoopDat#asp_state.t_ack),
-	{ok, Tack} = timer:apply_after(?T_ACK_TIMEOUT, gen_fsm, send_event,
-				 self(), {timer_expired, t_ack, {MsgClass, MsgType, Params}}),
-	next_state(State, LoopDat#asp_state{t_ack = Tack}).
-
-send_msg(LoopDat, State, MsgClass, MsgType, Params) ->
-	Module = LoopDat#asp_state.module,
-	% generate and send the respective message
-	Msg = Module:gen_xua_msg(MsgClass, MsgType, Params),
-	send_sctp_to_peer(LoopDat, Msg),
-	next_state(State, LoopDat).
-
-send_prim_to_user(LoopDat, Prim) when is_record(LoopDat, asp_state),
-				      is_record(Prim, primitive) ->
-	#asp_state{user_fun = Fun, user_args = Args} = LoopDat,
-	Fun(Prim, Args).
-
-state2aspas(asp_down) -> 'ASP_DOWN';
-state2aspas(asp_inactive) -> 'ASP_INACTIVE';
-state2aspas(asp_active) -> 'ASP_ACTIVE'.
-
-% propagate an ASP state transition as ASPAS primitive to AS
-next_state(State, LoopDat = #asp_state{as_pid = AsPid}) ->
-	Prim = osmo_util:make_prim('ASPAS', state2aspas(State), indication),
-	case AsPid of
-		undefined ->
-			ok;
-		_ ->
-			gen_fsm:send_event(AsPid, Prim)
-	end,
-	{next_state, State, LoopDat}.
-
-% Helper function to send data to the SCTP peer
-send_sctp_to_peer(LoopDat, Msg) ->
-	Prim = osmo_util:make_prim('MTP','TRANSFER',request, Msg),
-	gen_fsm:send_event(LoopDat#asp_state.sctp_pid, Prim).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/xua_asp_test.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/src/xua_codec.erl Deleted

@@ -1,110 +0,0 @@
-% RFC 3868 SUA SCCP Adaption Layer coding / decoding
-
-% (C) 2012 by Harald Welte <laforge@gnumonks.org>
-%
-% All Rights Reserved
-%
-% This program is free software; you can redistribute it and/or modify
-% it under the terms of the GNU Affero General Public License as
-% published by the Free Software Foundation; either version 3 of the
-% License, or (at your option) any later version.
-%
-% This program is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% Additional Permission under GNU AGPL version 3 section 7:
-%
-% If you modify this Program, or any covered work, by linking or
-% combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
-% libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
-% Program grant you additional permission to convey the resulting work
-% without the need to license the runtime libraries of Erlang/OTP under
-% the GNU Affero General Public License. Corresponding Source for a
-% non-source form of such a combination shall include the source code
-% for the parts of the runtime libraries of Erlang/OTP used as well as
-% that of the covered work.
-
--module(xua_codec).
--author('Harald Welte <laforge@gnumonks.org>').
--include("xua.hrl").
-
--export(parse_msg/1, encode_msg/1, parse_xua_opts/1, encode_xua_opts/1).
-
-parse_msg(DataBin) when is_binary(DataBin) ->
-	<<Version:8, _Reserved:8, MsgClass:8, MsgType:8, MsgLen:32/big, Remain/binary>> = DataBin,
-	RemainLen = MsgLen - 4,
-	OptList = parse_xua_opts(Remain),
-	#xua_msg{version = Version, msg_class = MsgClass, msg_type = MsgType,
-		 payload = OptList};
-parse_msg(Data) when is_list(Data) ->
-	parse_msg(list_to_binary(Data)).
-
-parse_xua_opts(OptBin) when is_binary(OptBin) ->
-	parse_xua_opts(OptBin, ).
-
-parse_xua_opts(<<>>, OptList) when is_list(OptList) ->
-	OptList;
-parse_xua_opts(OptBin, OptList) when is_binary(OptBin), is_list(OptList) ->
-	<<Tag:16/big, LengthIncHdr:16/big, Remain/binary>> = OptBin,
-	Length = LengthIncHdr - 4,
-	PadLength = get_num_pad_bytes(Length),
-	%io:format("Tag ~w, LenInHdr ~w, Len ~w, PadLen ~w, Remain ~w(~p)~n",
-	%	  Tag, LengthIncHdr, Length, PadLength, byte_size(Remain), Remain),
-	<<Value:Length/binary, PadNextOpts/binary>> = Remain,
-	% this is ridiculous, we cannot use "<<Value:Length/binary,
-	% 0:PadLength, Remain/binary>>" as the last part would not match an
-	% empty binary <<>> anymore.  Without the "0:PadLengh" this works
-	% perfectly fine.  Now we need some complicated construct and check if
-	% the resulting list would be empty :((
-	if
-		byte_size(PadNextOpts) > PadLength ->
-			<<0:PadLength/integer-unit:8, NextOpts/binary>> = PadNextOpts;
-		true ->
-			NextOpts = <<>>
-	end,
-	NewOpt = {Tag, {Length, Value}},
-	parse_xua_opts(NextOpts, OptList ++ NewOpt).
-
-
-
-encode_msg(#xua_msg{version = Version, msg_class = MsgClass,
-		    msg_type = MsgType, payload = OptList}) ->
-	OptBin = encode_xua_opts(OptList),
-	MsgLen = byte_size(OptBin) + 8,
-	<<Version:8, 0:8, MsgClass:8, MsgType:8, MsgLen:32/big, OptBin/binary>>.
-
-encode_xua_opts(OptList) when is_list(OptList) ->
-	encode_xua_opts(OptList, <<>>).
-
-encode_xua_opts(, Bin) ->
-	Bin;
-encode_xua_opts({Iei, Attr}|Tail, Bin) ->
-	OptBin = encode_xua_opt(Iei, Attr),
-	encode_xua_opts(Tail, <<Bin/binary, OptBin/binary>>).
-
-% convert integer parameters to binary before continuing
-encode_xua_opt(Iei, {LenIn, Data}) when is_integer(Iei), is_integer(Data) ->
-	encode_xua_opt(Iei, {LenIn, <<Data:LenIn/big-integer-unit:8>>});
-
-encode_xua_opt(Iei, {LenIn, Data}) when is_integer(Iei), is_binary(Data) ->
-	Length = LenIn + 4,
-	PadLen = get_num_pad_bytes(Length),
-	<<Iei:16/big, Length:16/big, Data:LenIn/binary, 0:PadLen/integer-unit:8>>;
-encode_xua_opt(Iei, Data) when is_integer(Iei), is_binary(Data) ->
-	Length = byte_size(Data) + 4,
-	PadLen = get_num_pad_bytes(Length),
-	<<Iei:16/big, Length:16/big, Data/binary, 0:PadLen/integer-unit:8>>.
-
-% compute the number of pad bits required after a binary parameter
-get_num_pad_bytes(BinLenBytes) ->
-	case BinLenBytes rem 4 of
-		0 ->    0;
-		Val ->  4 - Val
-	end.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/test Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/test/isup_codec_tests.erl Deleted

@@ -1,66 +0,0 @@
--module(isup_codec_tests).
--author('Harald Welte <laforge@gnumonks.org>').
-
--include_lib("eunit/include/eunit.hrl").
-
--include("isup.hrl").
--include("xua.hrl").
--include("m2ua.hrl").
--include("mtp3.hrl").
-
-
-% individual message encode/decode tests
-
--define(ISUP_GRS_BIN, <<1,0,23,1,1,14>>).
--define(ISUP_GRS_DEC, #isup_msg{msg_type = 23,cic = 1, parameters = {22,{1,<<14>>}}}).
-
-grs_dec_test() ->
-	?assertEqual(?ISUP_GRS_DEC, isup_codec:parse_isup_msg(?ISUP_GRS_BIN)).
-grs_enc_test() ->
-	?assertEqual(?ISUP_GRS_BIN, isup_codec:encode_isup_msg(?ISUP_GRS_DEC)).
-
--define(ISUP_IAM_BIN, <<9,0,1,16,72,0,10,3,2,10,8,131,16,41,153,36,0,128,15,10,8,3,19,148,3,
-			66,48,147,32,242,21,54,25,8,0,0,21,255,255,255,255,255,255,255,255,
-			255,255,29,69,56,203,32,0>>).
-
--define(ISUP_IAM_DEC, {isup_msg,1,9,{conn_ind_nature,16},{fw_call_ind,18432},{calling_cat,10},{transm_medium_req,3},{4,{party_number,3,0,undefined,1,undefined,undefined,9,2,9,9,4,2,0,0,0,8,15}},{10,{party_number,3,undefined,0,1,0,3,4,9,3,0,2,4,0,3,3,9,0,2}},{242,{21,<<54,25,8,0,0,21,255,255,255,255,255,255,255,255,255,255,29,69,56,203,32>>}}}).
-
-iam_dec_test() ->
-	?assertEqual(?ISUP_IAM_DEC, isup_codec:parse_isup_msg(?ISUP_IAM_BIN)).
-iam_enc_test() ->
-	?assertEqual(?ISUP_IAM_BIN, isup_codec:encode_isup_msg(?ISUP_IAM_DEC)).
-
-
-% parser test for real-world ISUP data
-pcap_parse_test() ->
-	Args = {rewrite_fn, fun pcap_cb/5},
-	File = "../priv/isup.pcap",
-	case file:read_file_info(File) of
-		{ok, _Info} ->
-			{ok, NrPkts} = osmo_ss7_pcap:pcap_apply("../priv/isup.pcap", "", Args),
-			?debugFmt("Parsed ~p PCAP packets~n", NrPkts);
-		{error, _Reason} ->
-			?debugFmt("Skipping PCAP based tests as no ~p could be found~n",
-				  File)
-	end.
-
-pcap_cb(sctp, _From, _Path, 2, DataBin) ->
-	M2ua = m2ua_codec:parse_m2ua_msg(DataBin),
-	handle_m2ua(M2ua).
-
-handle_m2ua(#xua_msg{msg_class = ?M2UA_MSGC_MAUP,
-		     msg_type = ?M2UA_MAUP_MSGT_DATA,
-		     payload = Params}) ->
-	{_Len, M2uaPayload} = proplists:get_value(16#300, Params),
-	Mtp3 = mtp3_codec:parse_mtp3_msg(M2uaPayload),
-	handle_mtp3(Mtp3);
-handle_m2ua(#m2ua_msg{}) ->
-	ok.
-
-handle_mtp3(#mtp3_msg{service_ind = ?MTP3_SERV_ISUP,
-		      payload = Payload}) ->
-	#isup_msg{} = IsupDec = isup_codec:parse_isup_msg(Payload),
-	IsupEnc = isup_codec:encode_isup_msg(IsupDec),
-	?assertEqual(Payload, IsupEnc);
-handle_mtp3(#mtp3_msg{}) ->
-	ok.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/test/m2ua_codec_tests.erl Deleted

@@ -1,22 +0,0 @@
--module(m2ua_codec_tests).
--author('Harald Welte <laforge@gnumonks.org>').
-
--include_lib("eunit/include/eunit.hrl").
-
--include("xua.hrl").
--include("m2ua.hrl").
-
--define(M2UA_MSG_BIN, <<1,0,6,1,0,0,0,124,0,1,0,8,0,0,0,0,3,0,0,105,131,92,
-			 64,0,192,9,0,3,13,24,10,18,7,0,18,4,83,132,9,0,23,
-			 11,18,6,0,18,4,68,119,88,16,70,35,67,100,65,73,4,
-			 81,1,2,200,107,42,40,40,6,7,0,17,134,5,1,1,1,160,
-			 29,97,27,128,2,7,128,161,9,6,7,4,0,0,1,0,1,3,162,
-			 3,2,1,0,163,5,161,3,2,1,0,108,13,163,11,2,1,64,2,1,8,48,3,10,1,0,0,0,0>>).
--define(M2UA_MSG_DEC, {xua_msg,1,6,1,{1,{4,<<0,0,0,0>>}},{768,{101,<<131,92,64,0,192,9,0,3,13,24,10,18,7,0,18,4,83,132,9,0,23,11,18,6,0,18,4,68,119,88,16,70,35,67,100,65,73,4,81,1,2,200,107,42,40,40,6,7,0,17,134,5,1,1,1,160,29,97,27,128,2,7,128,161,9,6,7,4,0,0,1,0,1,3,162,3,2,1,0,163,5,161,3,2,1,0,108,13,163,11,2,1,64,2,1,8,48,3,10,1,0>>}}}).
-
-parse_test() ->
-	?assertEqual(?M2UA_MSG_DEC, m2ua_codec:parse_m2ua_msg(?M2UA_MSG_BIN)),
-	?assertEqual(?M2UA_MSG_DEC, xua_codec:parse_msg(?M2UA_MSG_BIN)).
-encode_test() ->
-	?assertEqual(?M2UA_MSG_BIN, m2ua_codec:encode_m2ua_msg(?M2UA_MSG_DEC)),
-	?assertEqual(?M2UA_MSG_BIN, xua_codec:encode_msg(?M2UA_MSG_DEC)).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/test/m3ua_codec_tests.erl Deleted

@@ -1,54 +0,0 @@
--module(m3ua_codec_tests).
--author('Harald Welte <laforge@gnumonks.org>').
-
--include_lib("eunit/include/eunit.hrl").
-
--include("m3ua.hrl").
--include("mtp3.hrl").
-
-
-% individual message encode/decode tests
-
--define(MSG_ENC, <<1,0,1,1,0,0,0,168,2,0,0,8,1,171,205,239,0,6,0,8,17,34,51,68,2,16,0,136, 0,1,3,5,0,1,1,1,3,2,8,14,9,1,3,14,25,11,146,6,0,18,4,25,153,150,118,57, 152,11,18,8,0,18,4,25,137,150,146,153,41,90,98,88,72,4,134,18,5,114,107, 26,40,24,6,7,0,17,134,5,1,1,1,160,13,96,11,161,9,6,7,4,0,0,1,0,5,3,108, 52,161,50,2,1,128,2,1,22,48,42,128,7,145,25,153,150,118,57,152,131,1,0, 133,1,1,134,7,145,25,137,150,146,153,41,135,8,155,172,3,185,8,16,174, 125,171,6,3,2,6,192,5,0,0,19,0,8,252,220,18,152>>).
--define(MSG_DEC, {m3ua_msg,1,1,1,164,{512,<<1,171,205,239>>},{6,<<17,34,51,68>>},{528,{mtp3_msg,2,3,{mtp3_routing_label,14,65793,66309},8,<<9,1,3,14,25,11,146,6,0,18,4,25,153,150,118,57,152,11,18,8,0,18,4,25,137,150,146,153,41,90,98,88,72,4,134,18,5,114,107,26,40,24,6,7,0,17,134,5,1,1,1,160,13,96,11,161,9,6,7,4,0,0,1,0,5,3,108,52,161,50,2,1,128,2,1,22,48,42,128,7,145,25,153,150,118,57,152,131,1,0,133,1,1,134,7,145,25,137,150,146,153,41,135,8,155,172,3,185,8,16,174,125,171,6,3,2,6,192,5,0>>}},{19,<<252,220,18,152>>}}).
-
-%dec_test() ->
-%	?assertEqual(?MSG_DEC, m3ua_codec:parse_m3ua_msg(?MSG_ENC)).
-%enc_test() ->
-%	?assertEqual(?MSG_ENC, m3ua_codec:encode_m3ua_msg(?MSG_DEC)).
-
-
-% parser test for real-world ISUP data
-pcap_parse_test() ->
-	Args = {rewrite_fn, fun pcap_cb/5},
-	File = "../priv/m3ua.pcap",
-	case file:read_file_info(File) of
-		{ok, _Info} ->
-			{ok, NrPkts} = osmo_ss7_pcap:pcap_apply(File, "", Args),
-			?debugFmt("Parsed ~p PCAP packets~n", NrPkts);
-		{error, _Reason} ->
-			?debugFmt("Skipping PCAP based tests as no ~p could be found~n",
-				  File)
-	end.
-
-pcap_cb(sctp, _From, _Path, 3, DataBin) ->
-	%?debugFmt("PCAP ~p~n", DataBin),
-	M3ua = m3ua_codec:parse_m3ua_msg(DataBin),
-	NewBin = m3ua_codec:encode_m3ua_msg(M3ua),
-	handle_m3ua(M3ua),
-	?assertEqual(DataBin, NewBin).
-
-handle_m3ua(#m3ua_msg{msg_class = ?M3UA_MSGC_TRANSFER, msg_type = ?M3UA_MSGT_XFR_DATA,
-			payload = OptList}) ->
-	%?debugFmt("TRANSFER OptList ~p~n", OptList),
-	Mtp3 = proplists:get_value(?M3UA_IEI_PROTOCOL_DATA, OptList),
-	handle_mtp3(Mtp3);
-handle_m3ua(#m3ua_msg{}) ->
-	ok.
-
-handle_mtp3(Mtp3 = #mtp3_msg{service_ind = ?MTP3_SERV_SCCP, payload = Payload}) ->
-	{ok, SccpDec} = sccp_codec:parse_sccp_msg(Payload),
-	SccpEnc = sccp_codec:encode_sccp_msg(SccpDec),
-	?assertEqual(Payload, SccpEnc);
-handle_mtp3(#mtp3_msg{}) ->
-	ok.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/test/mtp3_codec_tests.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/test/osmo_ss7_gtt_tests.erl Deleted

@@ -1,79 +0,0 @@
--module(osmo_ss7_gtt_tests).
--author('Harald Welte <laforge@gnumonks.org>').
-
--include_lib("eunit/include/eunit.hrl").
--include("sccp.hrl").
--include("gtt.hrl").
-
-match_inrange_test() ->
-	Gt = #global_title{phone_number = 1,2,3,4,0,0,0,1},
-	Match = #gtt_match{gt_range_from = 12340000, gt_range_to = 12350000},
-	?assertEqual(foobar, osmo_ss7_gtt:global_title_match({Match, foobar}, Gt)).
-
-nomatch_outrange_test() ->
-	Gt = #global_title{phone_number = 1,2,3,5,0,0,0,1},
-	Match = #gtt_match{gt_range_from = 12340000, gt_range_to = 12350000},
-	?assertEqual(false, osmo_ss7_gtt:global_title_match({Match, foobar}, Gt)).
-
-nomatch_inrange_othercrit_test() ->
-	Gt = #global_title{phone_number = 1,2,3,4,0,0,0,1},
-	Match = #gtt_match{gt_range_from = 12340000, gt_range_to = 12350000, nature_of_addr_ind = 4},
-	?assertEqual(false, osmo_ss7_gtt:global_title_match({Match, foobar}, Gt)).
-
-match_inrange_othercrit_test() ->
-	Gt = #global_title{phone_number = 1,2,3,4,0,0,0,1, nature_of_addr_ind = 4},
-	Match = #gtt_match{gt_range_from = 12340000, gt_range_to = 12350000, nature_of_addr_ind = 4},
-	?assertEqual(foobar, osmo_ss7_gtt:global_title_match({Match, foobar}, Gt)).
-
-
-repl_digit_test() ->
-	Gt = #global_title{phone_number = 1,2,3,4,0,0,0,1, nature_of_addr_ind = 4},
-	Act = #gtt_act_repl_digits{replace_digit_start = 1, replace_digit_end = 4, new_digits = 5,6,7,8},
-	ReplGt = osmo_ss7_gtt:apply_gtt_actions(Gt, Act),
-	?assertEqual(ReplGt, Gt#global_title{phone_number = 5,6,7,8,0,0,0,1}).
-
-repl_numplan_test() ->
-	Gt = #global_title{phone_number = 1,2,3,4,0,0,0,1, numbering_plan = 4},
-	Act = #gtt_act_repl_num_plan{numbering_plan = 3},
-	ReplGt = osmo_ss7_gtt:apply_gtt_actions(Gt, Act),
-	?assertEqual(ReplGt, Gt#global_title{numbering_plan = 3}).
-
-apply_cb(Arg) ->
-	Arg.
-
-apply_test() ->
-	Gt = #global_title{phone_number = 1,2,3,4,0,0,0,1, numbering_plan = 4},
-	Act = #gtt_act_apply{funct = fun apply_cb/1, args = rtfm},
-	ReplGt = osmo_ss7_gtt:apply_gtt_actions(Gt, Act),
-	?assertEqual(rtfm, ReplGt).
-
-actlist_test() ->
-	Gt = #global_title{phone_number = 1,2,3,4,0,0,0,1, numbering_plan = 4},
-	Act1 = #gtt_act_repl_digits{replace_digit_start = 1, replace_digit_end = 4, new_digits = 5,6,7,8},
-	Act2 = #gtt_act_repl_num_plan{numbering_plan = 3},
-	ReplGt = osmo_ss7_gtt:apply_gtt_actions(Gt, Act1, Act2),
-	?assertEqual(ReplGt, Gt#global_title{phone_number = 5,6,7,8,0,0,0,1, numbering_plan = 3}).
-
-execute_gtt_test() ->
-	Gt = #global_title{phone_number = 1,2,3,4,0,0,0,1, numbering_plan = 4},
-	Match = #gtt_match{gt_range_from = 12340000, gt_range_to = 12350000},
-	Act1 = #gtt_act_repl_digits{replace_digit_start = 1, replace_digit_end = 4, new_digits = 5,6,7,8},
-	Act2 = #gtt_act_repl_num_plan{numbering_plan = 3},
-	Rules = {Match, Act1, Act2},
-	ReplGt = osmo_ss7_gtt:execute_gtt(Gt, Rules),
-	?assertEqual(ReplGt, Gt#global_title{phone_number = 5,6,7,8,0,0,0,1, numbering_plan = 3}).
-
-
-execute_gtts_test() ->
-	Gt = #global_title{phone_number = 1,2,3,4,0,0,0,1, numbering_plan = 4},
-	SccpAddr = #sccp_addr{point_code = 23, ssn = 42, global_title = Gt},
-	Match = #gtt_match{gt_range_from = 12340000, gt_range_to = 12350000, dpc = 23},
-	% build list of two actions to perform
-	Act1 = #gtt_act_repl_digits{replace_digit_start = 1, replace_digit_end = 4, new_digits = 5,6,7,8},
-	Act2 = #gtt_act_repl_num_plan{numbering_plan = 3},
-	Rules = {Match, Act1, Act2},
-	% compute the expected result
-	ExpGt = Gt#global_title{phone_number = 5,6,7,8,0,0,0,1, numbering_plan = 3},
-	ExpSccp = SccpAddr#sccp_addr{global_title = ExpGt},
-	ReplSccp = osmo_ss7_gtt:execute_gtt(SccpAddr, Rules),
-	?assertEqual(ExpSccp, ReplSccp).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/test/osmo_util_tests.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/test/sccp_codec_tests.erl Deleted

@@ -1,15 +0,0 @@
--module(sccp_codec_tests).
--author('Harald Welte <laforge@gnumonks.org>').
-
--include_lib("eunit/include/eunit.hrl").
-
--include("sccp.hrl").
-
--define(SCCP_MSG_BIN, <<9,0,3,13,24,10,18,7,0,18,4,83,132,9,0,23,11,18,6,0,18,4,68,119,88,16,70,35,67,100,65,73,4,81,1,2,200,107,42,40,40,6,7,0,17,134,5,1,1,1,160,29,97,27,128,2,7,128,161,9,6,7,4,0,0,1,0,1,3,162,3,2,1,0,163,5,161,3,2,1,0,108,13,163,11,2,1,64,2,1,8,48,3,10,1,0>>).
-
--define(SCCP_MSG_DEC, {sccp_msg,9,{protocol_class,{0,0}},{called_party_addr,{sccp_addr,0,0,undefined,7,{global_title,4,4,0,undefined,1,3,5,4,8,9,0,0,0,7,1}}},{calling_party_addr,{sccp_addr,0,0,undefined,6,{global_title,4,4,0,undefined,1,4,4,7,7,8,5,0,1,6,4,3,2}}},{user_data,<<100,65,73,4,81,1,2,200,107,42,40,40,6,7,0,17,134,5,1,1,1,160,29,97,27,128,2,7,128,161,9,6,7,4,0,0,1,0,1,3,162,3,2,1,0,163,5,161,3,2,1,0,108,13,163,11,2,1,64,2,1,8,48,3,10,1,0>>}}).
-
-parse_test() ->
-	?assertEqual({ok, ?SCCP_MSG_DEC}, sccp_codec:parse_sccp_msg(?SCCP_MSG_BIN)).
-encode_test() ->
-	?assertEqual(?SCCP_MSG_BIN, sccp_codec:encode_sccp_msg(?SCCP_MSG_DEC)).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/osmo_ss7/test/sua_codec_tests.erl Deleted

@@ -1,17 +0,0 @@
--module(sua_codec_tests).
--author('Harald Welte <laforge@gnumonks.org>').
-
--include_lib("eunit/include/eunit.hrl").
-
--include("xua.hrl").
--include("sua.hrl").
-
-
--define(MSG_ENC, <<1,0,7,1,0,0,0,208,0,6,0,8,0,0,0,3,1,21,0,8,0,0,0,1,1,2,0,44,0,1,0,7,128,1,0,20,0,0,0,4,12,0,1,4,68,119,121,7,22,0,0,0,128,2,0,8,0,0,8,21,128,3,0,8,0,0,0,7,1,3,0,44,0,1,0,7,128,1,0,20,0,0,0,4,15,0,7,4,8,18,17,9,97,16,81,1,128,2,0,8,0,0,8,22,128,3,0,8,0,0,0,6,1,22,0,8,0,0,0,0,1,11,0,86,98,80,72,4,0,0,32,64,107,26,40,24,6,7,0,17,134,5,1,1,1,160,13,96,11,161,9,6,7,4,0,0,1,0,1,3,108,44,161,42,2,1,0,2,1,2,48,34,4,8,0,1,17,9,97,16,81,241,129,7,145,8,18,1,0,0,242,4,7,145,68,119,121,7,22,0,166,4,128,2,6,192,0,0>>).
--define(MSG_DEC, {xua_msg,1,7,1,{6,{4,<<0,0,0,3>>}},{277,{4,<<0,0,0,1>>}},{258,{40,<<0,1,0,7,128,1,0,20,0,0,0,4,12,0,1,4,68,119,121,7,22,0,0,0,128,2,0,8,0,0,8,21,128,3,0,8,0,0,0,7>>}},{259,{40,<<0,1,0,7,128,1,0,20,0,0,0,4,15,0,7,4,8,18,17,9,97,16,81,1,128,2,0,8,0,0,8,22,128,3,0,8,0,0,0,6>>}},{278,{4,<<0,0,0,0>>}},{267,{82,<<98,80,72,4,0,0,32,64,107,26,40,24,6,7,0,17,134,5,1,1,1,160,13,96,11,161,9,6,7,4,0,0,1,0,1,3,108,44,161,42,2,1,0,2,1,2,48,34,4,8,0,1,17,9,97,16,81,241,129,7,145,8,18,1,0,0,242,4,7,145,68,119,121,7,22,0,166,4,128,2,6,192>>}}}).
-
-
-dec_test() ->
-	?assertEqual(?MSG_DEC, xua_codec:parse_msg(?MSG_ENC)).
-enc_test() ->
-	?assertEqual(?MSG_ENC, xua_codec:encode_msg(?MSG_DEC)).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/.github Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/.github/FUNDING.yml Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/.travis.yml Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/LICENSE Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/Makefile Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/README.md Deleted

@@ -1,41 +0,0 @@
-
-
-# The parse_trans application #
-
-__Authors:__ Ulf Wiger (`ulf@wiger.net`(mailto:ulf@wiger.net)).
-
-Parse_transform utilities
-
-!Build Status(https://travis-ci.org/uwiger/parse_trans.svg)(https://travis-ci.com/github/uwiger/parse_trans)
-!Hex pm(http://img.shields.io/hexpm/v/parse_trans.svg?style=flat)(https://hex.pm/packages/parse_trans)
-
-
-## Introduction ##
-
-Parse_trans was written in order to capture some useful patterns in parse transformation
-and code generation for Erlang.
-
-Most notably, perhaps, the module `exprecs`(http://github.com/uwiger/parse_trans/blob/master/doc/exprecs.md) generates standardized accessor
-functions for records, and `ct_expand`(http://github.com/uwiger/parse_trans/blob/master/doc/ct_expand.md) makes it possible to evaluate an
-expression at compile-time and substitute the result as a compile-time constant.
-
-Less known modules, perhaps:
-* `parse_trans_pp`(http://github.com/uwiger/parse_trans/blob/master/doc/parse_trans_pp.md) can be called with escript to pretty-print source from
-  debug-compiled .beam files.
-* `parse_trans_codegen`(http://github.com/uwiger/parse_trans/blob/master/doc/parse_trans_codegen.md) provides pseudo-functions that can be used for
-  simple code generation.
-* `parse_trans`(http://github.com/uwiger/parse_trans/blob/master/doc/parse_trans.md) provides various helper functions for traversing code and
-  managing complex parse transforms
-
-
-## Modules ##
-
-
-<table width="100%" border="0" summary="list of modules">
-<tr><td><a href="http://github.com/uwiger/parse_trans/blob/master/doc/ct_expand.md" class="module">ct_expand</a></td></tr>
-<tr><td><a href="http://github.com/uwiger/parse_trans/blob/master/doc/exprecs.md" class="module">exprecs</a></td></tr>
-<tr><td><a href="http://github.com/uwiger/parse_trans/blob/master/doc/parse_trans.md" class="module">parse_trans</a></td></tr>
-<tr><td><a href="http://github.com/uwiger/parse_trans/blob/master/doc/parse_trans_codegen.md" class="module">parse_trans_codegen</a></td></tr>
-<tr><td><a href="http://github.com/uwiger/parse_trans/blob/master/doc/parse_trans_mod.md" class="module">parse_trans_mod</a></td></tr>
-<tr><td><a href="http://github.com/uwiger/parse_trans/blob/master/doc/parse_trans_pp.md" class="module">parse_trans_pp</a></td></tr></table>
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/doc Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/doc/README.md Deleted

@@ -1,41 +0,0 @@
-
-
-# The parse_trans application #
-
-__Authors:__ Ulf Wiger (`ulf@wiger.net`(mailto:ulf@wiger.net)).
-
-Parse_transform utilities
-
-!Build Status(https://travis-ci.org/uwiger/parse_trans.svg)
-!Hex pm(http://img.shields.io/hexpm/v/parse_trans.svg?style=flat)(https://hex.pm/packages/parse_trans)
-
-
-## Introduction ##
-
-Parse_trans was written in order to capture some useful patterns in parse transformation
-and code generation for Erlang.
-
-Most notably, perhaps, the module `exprecs`(exprecs.md) generates standardized accessor
-functions for records, and `ct_expand`(ct_expand.md) makes it possible to evaluate an
-expression at compile-time and substitute the result as a compile-time constant.
-
-Less known modules, perhaps:
-* `parse_trans_pp`(parse_trans_pp.md) can be called with escript to pretty-print source from
-  debug-compiled .beam files.
-* `parse_trans_codegen`(parse_trans_codegen.md) provides pseudo-functions that can be used for
-  simple code generation.
-* `parse_trans`(parse_trans.md) provides various helper functions for traversing code and
-  managing complex parse transforms
-
-
-## Modules ##
-
-
-<table width="100%" border="0" summary="list of modules">
-<tr><td><a href="ct_expand.md" class="module">ct_expand</a></td></tr>
-<tr><td><a href="exprecs.md" class="module">exprecs</a></td></tr>
-<tr><td><a href="parse_trans.md" class="module">parse_trans</a></td></tr>
-<tr><td><a href="parse_trans_codegen.md" class="module">parse_trans_codegen</a></td></tr>
-<tr><td><a href="parse_trans_mod.md" class="module">parse_trans_mod</a></td></tr>
-<tr><td><a href="parse_trans_pp.md" class="module">parse_trans_pp</a></td></tr></table>
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/doc/ct_expand.md Deleted

@@ -1,104 +0,0 @@
-
-
-# Module ct_expand #
-* Description(#description)
-* Data Types(#types)
-* Function Index(#index)
-* Function Details(#functions)
-
-Compile-time expansion utility.
-
-__Authors:__ : Ulf Wiger (`ulf@wiger.net`(mailto:ulf@wiger.net)).
-
-<a name="description"></a>
-
-## Description ##
-
-This module serves as an example of parse_trans-based transforms,
-but might also be a useful utility in its own right.
-The transform searches for calls to the pseudo-function
-`ct_expand:term(Expr)`, and then replaces the call site with the
-result of evaluating `Expr` at compile-time.
-
-For example, the line
-
-`ct_expand:term(lists:sort(3,5,2,1,4))`
-
-would be expanded at compile-time to `1,2,3,4,5`.
-
-ct_expand has now been extended to also evaluate calls to local functions.
-See examples/ct_expand_test.erl for some examples.
-
-A debugging facility exists: passing the option {ct_expand_trace, Flags} as an option,
-or adding a compiler attribute -ct_expand_trace(Flags) will enable a form of call trace.
-
-`Flags` can be `` (no trace) or `F`, where `F` is `c` (call trace),
-`r` (return trace), or `x` (exception trace)'.
-
-<a name="types"></a>
-
-## Data Types ##
-
-
-
-
-### <a name="type-form">form()</a> ###
-
-
-<pre><code>
-form() = any()
-</code></pre>
-
-
-
-
-### <a name="type-forms">forms()</a> ###
-
-
-<pre><code>
-forms() = <a href="#type-form">form()</a>
-</code></pre>
-
-
-
-
-### <a name="type-options">options()</a> ###
-
-
-<pre><code>
-options() = {atom(), any()}
-</code></pre>
-
-<a name="index"></a>
-
-## Function Index ##
-
-
-<table width="100%" border="1" cellspacing="0" cellpadding="2" summary="function index"><tr><td valign="top"><a href="#extract_fun-3">extract_fun/3</a></td><td></td></tr><tr><td valign="top"><a href="#lfun_rewrite-2">lfun_rewrite/2</a></td><td></td></tr><tr><td valign="top"><a href="#parse_transform-2">parse_transform/2</a></td><td></td></tr></table>
-
-
-<a name="functions"></a>
-
-## Function Details ##
-
-<a name="extract_fun-3"></a>
-
-### extract_fun/3 ###
-
-`extract_fun(Name, Arity, Forms) -> any()`
-
-<a name="lfun_rewrite-2"></a>
-
-### lfun_rewrite/2 ###
-
-`lfun_rewrite(Exprs, Forms) -> any()`
-
-<a name="parse_transform-2"></a>
-
-### parse_transform/2 ###
-
-<pre><code>
-parse_transform(Forms::<a href="#type-forms">forms()</a>, Options::<a href="#type-options">options()</a>) -&gt; <a href="#type-forms">forms()</a>
-</code></pre>
-<br />
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/doc/edoc-info Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/doc/erlang.png Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/doc/exprecs.md Deleted

@@ -1,662 +0,0 @@
-
-
-# Module exprecs #
-* Description(#description)
-* Data Types(#types)
-* Function Index(#index)
-* Function Details(#functions)
-
-Parse transform for generating record access functions.
-
-__Authors:__ : Ulf Wiger (`ulf@wiger.net`(mailto:ulf@wiger.net)).
-
-<a name="description"></a>
-
-## Description ##
-
-This parse transform can be used to reduce compile-time
-dependencies in large systems.
-
-In the old days, before records, Erlang programmers often wrote
-access functions for tuple data. This was tedious and error-prone.
-The record syntax made this easier, but since records were implemented
-fully in the pre-processor, a nasty compile-time dependency was
-introduced.
-
-This module automates the generation of access functions for
-records. While this method cannot fully replace the utility of
-pattern matching, it does allow a fair bit of functionality on
-records without the need for compile-time dependencies.
-
-Whenever record definitions need to be exported from a module,
-inserting a compiler attribute,
-`export_records(RecName|...)` causes this transform
-to lay out access functions for the exported records:
-
-As an example, consider the following module:
-
-```erlang
-
-  -module(test_exprecs).
-  -record(r,{a = 0 :: integer(),b = 0 :: integer(),c = 0 :: integer()}).
-  -record(s,{a}).
-  -record(t,{}).
-  -export_records(r,s,t).
-  -export_type('#prop-r'/0,
-                '#attr-r'/0,
-                '#prop-s'/0,
-                '#attr-s'/0,
-                '#prop-t'/0,
-                '#attr-t'/0).
-  -type '#prop-s'() :: {a, any()}.
-  -type '#attr-s'() :: a.
-  -type '#prop-r'() :: {a, any()} | {b, any()} | {c, any()}.
-  -type '#attr-r'() :: a | b | c.
-  -type '#prop-t'() :: any().
-  -type '#attr-t'() :: any().
-  -spec '#exported_records-'() -> r | s | t.
-  -spec '#new-'(r) -> #r{};
-               (s) -> #s{};
-               (t) -> #t{}.
-  -spec '#info-'(r) -> '#attr-r'();
-                (s) -> '#attr-s'();
-                (t) -> '#attr-t'().
-  -spec '#info-'(r, size) -> 4;
-                (r, fields) -> '#attr-r'();
-                (s, size) -> 2;
-                (s, fields) -> '#attr-s'();
-                (t, size) -> 1;
-                (t, fields) -> '#attr-t'().
-  -spec '#pos-'(r, a) -> 1;
-               (r, b) -> 2;
-               (r, c) -> 3;
-               (s, a) -> 1.
-  -spec '#is_record-'(any()) -> boolean().
-  -spec '#is_record-'(any(), any()) -> boolean().
-  -spec '#get-'(a, #s{}) -> any();
-               (a, #r{}) -> any();
-               (b, #r{}) -> any();
-               (c, #r{}) -> any();
-               ('#attr-t'(), #t{}) -> ;
-               ('#attr-s'(), #s{}) -> any();
-               ('#attr-r'(), #r{}) -> any().
-  -spec '#set-'('#prop-r'(), #r{}) -> #r{};
-               ('#prop-s'(), #s{}) -> #s{};
-               ('#prop-t'(), #t{}) -> #t{}.
-  -spec '#fromlist-'('#prop-r'(), #r{}) -> #r{};
-                    ('#prop-s'(), #s{}) -> #s{};
-                    ('#prop-t'(), #t{}) -> #t{}.
-  -spec '#frommap-'(#{a => any(), b => any(), c => any()}, #r{}) -> #r{};
-                   (#{a => any()}, #s{}) -> #s{};
-                   (#{}, #t{}) -> #t{}.
-  -spec '#lens-'('#attr-r'(), r) ->
-                    {fun((#r{}) -> any()), fun((any(), #r{}) -> #r{})};
-                ('#attr-s'(), s) ->
-                    {fun((#s{}) -> any()), fun((any(), #s{}) -> #s{})};
-                ('#attr-t'(), t) ->
-                    {fun((#t{}) -> any()), fun((any(), #t{}) -> #t{})}.
-  -spec '#new-r'() -> #r{}.
-  -spec '#new-r'('#prop-r'()) -> #r{}.
-  -spec '#get-r'(a, #r{}) -> any();
-                (b, #r{}) -> any();
-                (c, #r{}) -> any();
-                ('#attr-r'(), #r{}) -> any().
-  -spec '#set-r'('#prop-r'(), #r{}) -> #r{}.
-  -spec '#fromlist-r'('#prop-r'()) -> #r{}.
-  -spec '#fromlist-r'('#prop-r'(), #r{}) -> #r{}.
-  -spec '#frommap-r'(#{a => any(), b => any(), c => any()}) -> #r{}.
-  -spec '#frommap-r'(#{a => any(), b => any(), c => any()}, #r{}) -> #r{}.
-  -spec '#pos-r'('#attr-r'() | atom()) -> integer().
-  -spec '#info-r'(fields) -> a | b | c;
-                 (size) -> 4.
-  -spec '#lens-r'('#attr-r'()) ->
-                     {fun((#r{}) -> any()), fun((any(), #r{}) -> #r{})}.
-  -spec '#new-s'() -> #s{}.
-  -spec '#new-s'('#prop-s'()) -> #s{}.
-  -spec '#get-s'(a, #s{}) -> any();
-                ('#attr-s'(), #s{}) -> any().
-  -spec '#set-s'('#prop-s'(), #s{}) -> #s{}.
-  -spec '#fromlist-s'('#prop-s'()) -> #s{}.
-  -spec '#fromlist-s'('#prop-s'(), #s{}) -> #s{}.
-  -spec '#frommap-s'(#{a => any()}) -> #s{}.
-  -spec '#frommap-s'(#{a => any()}, #s{}) -> #s{}.
-  -spec '#pos-s'('#attr-s'() | atom()) -> integer().
-  -spec '#info-s'(fields) -> a;
-                 (size) -> 2.
-  -spec '#lens-s'('#attr-s'()) ->
-                     {fun((#s{}) -> any()), fun((any(), #s{}) -> #s{})}.
-  -spec '#new-t'() -> #t{}.
-  -spec '#new-t'('#prop-t'()) -> #t{}.
-  -spec '#get-t'('#attr-t'(), #t{}) -> any().
-  -spec '#set-t'('#prop-t'(), #t{}) -> #t{}.
-  -spec '#fromlist-t'('#prop-t'()) -> #t{}.
-  -spec '#fromlist-t'('#prop-t'(), #t{}) -> #t{}.
-  -spec '#frommap-t'(#{}) -> #t{}.
-  -spec '#frommap-t'(#{}, #t{}) -> #t{}.
-  -spec '#pos-t'('#attr-t'() | atom()) -> integer().
-  -spec '#info-t'(fields) -> ;
-                 (size) -> 1.
-  -spec '#lens-t'('#attr-t'()) ->
-                     {fun((#t{}) -> any()), fun((any(), #t{}) -> #t{})}.
-  -file("c:/git/etp/_checkouts/parse_trans/examples/test_exprecs.erl", 1).
-  '#exported_records-'() ->
-      r,s,t.
-  '#new-'(r) ->
-      '#new-r'();
-  '#new-'(s) ->
-      '#new-s'();
-  '#new-'(t) ->
-      '#new-t'().
-  '#info-'(RecName) ->
-      '#info-'(RecName, fields).
-  '#info-'(r, Info) ->
-      '#info-r'(Info);
-  '#info-'(s, Info) ->
-      '#info-s'(Info);
-  '#info-'(t, Info) ->
-      '#info-t'(Info).
-  '#pos-'(r, Attr) ->
-      '#pos-r'(Attr);
-  '#pos-'(s, Attr) ->
-      '#pos-s'(Attr);
-  '#pos-'(t, Attr) ->
-      '#pos-t'(Attr).
-  '#is_record-'(X) ->
-      if
-          is_record(X, r, 4) ->
-              true;
-          is_record(X, s, 2) ->
-              true;
-          is_record(X, t, 1) ->
-              true;
-          true ->
-              false
-      end.
-  '#is_record-'(t, Rec) when tuple_size(Rec) == 1, element(1, Rec) == t ->
-      true;
-  '#is_record-'(s, Rec) when tuple_size(Rec) == 2, element(1, Rec) == s ->
-      true;
-  '#is_record-'(r, Rec) when tuple_size(Rec) == 4, element(1, Rec) == r ->
-      true;
-  '#is_record-'(_, _) ->
-      false.
-  '#get-'(Attrs, {r,_,_,_} = Rec) when true ->
-      '#get-r'(Attrs, Rec);
-  '#get-'(Attrs, {s,_} = Rec) when true ->
-      '#get-s'(Attrs, Rec);
-  '#get-'(Attrs, {t} = Rec) when true ->
-      '#get-t'(Attrs, Rec).
-  '#set-'(Vals, {r,_,_,_} = Rec) when true ->
-      '#set-r'(Vals, Rec);
-  '#set-'(Vals, {s,_} = Rec) when true ->
-      '#set-s'(Vals, Rec);
-  '#set-'(Vals, {t} = Rec) when true ->
-      '#set-t'(Vals, Rec).
-  '#fromlist-'(Vals, {r,_,_,_} = Rec) when true ->
-      '#fromlist-r'(Vals, Rec);
-  '#fromlist-'(Vals, {s,_} = Rec) when true ->
-      '#fromlist-s'(Vals, Rec);
-  '#fromlist-'(Vals, {t} = Rec) when true ->
-      '#fromlist-t'(Vals, Rec).
-  '#frommap-'(Vals, {r,_,_,_} = Rec) when true ->
-      '#frommap-r'(Vals, Rec);
-  '#frommap-'(Vals, {s,_} = Rec) when true ->
-      '#frommap-s'(Vals, Rec);
-  '#frommap-'(Vals, {t} = Rec) when true ->
-      '#frommap-t'(Vals, Rec).
-  '#lens-'(Attr, r) ->
-      '#lens-r'(Attr);
-  '#lens-'(Attr, s) ->
-      '#lens-s'(Attr);
-  '#lens-'(Attr, t) ->
-      '#lens-t'(Attr).
-  '#new-r'() ->
-      {r,0,0,0}.
-  '#new-r'(Vals) ->
-      '#set-r'(Vals, {r,0,0,0}).
-  '#get-r'(Attrs, R) when is_list(Attrs) ->
-      
-       '#get-r'(A, R) ||
-           A <- Attrs
-      ;
-  '#get-r'(a, R) ->
-      case R of
-          {r,rec0,_,_} ->
-              rec0;
-          _ ->
-              error({badrecord,r})
-      end;
-  '#get-r'(b, R) ->
-      case R of
-          {r,_,rec1,_} ->
-              rec1;
-          _ ->
-              error({badrecord,r})
-      end;
-  '#get-r'(c, R) ->
-      case R of
-          {r,_,_,rec2} ->
-              rec2;
-          _ ->
-              error({badrecord,r})
-      end;
-  '#get-r'(Attr, R) ->
-      error(bad_record_op, '#get-r',Attr,R).
-  '#set-r'(Vals, Rec) ->
-      F = % fun-info: {0,0,'-#set-r/2-fun-0-'}
-          fun(, R, _F1) ->
-                 R;
-             ({a,V}|T, R, F1) when is_list(T) ->
-                 F1(T,
-                    begin
-                        rec3 = R,
-                        case rec3 of
-                            {r,_,_,_} ->
-                                setelement(2, rec3, V);
-                            _ ->
-                                error({badrecord,r})
-                        end
-                    end,
-                    F1);
-             ({b,V}|T, R, F1) when is_list(T) ->
-                 F1(T,
-                    begin
-                        rec4 = R,
-                        case rec4 of
-                            {r,_,_,_} ->
-                                setelement(3, rec4, V);
-                            _ ->
-                                error({badrecord,r})
-                        end
-                    end,
-                    F1);
-             ({c,V}|T, R, F1) when is_list(T) ->
-                 F1(T,
-                    begin
-                        rec5 = R,
-                        case rec5 of
-                            {r,_,_,_} ->
-                                setelement(4, rec5, V);
-                            _ ->
-                                error({badrecord,r})
-                        end
-                    end,
-                    F1);
-             (Vs, R, _) ->
-                 error(bad_record_op, '#set-r',Vs,R)
-          end,
-      F(Vals, Rec, F).
-  '#fromlist-r'(Vals) when is_list(Vals) ->
-      '#fromlist-r'(Vals, '#new-r'()).
-  '#fromlist-r'(Vals, Rec) ->
-      AttrNames = {a,2},{b,3},{c,4},
-      F = % fun-info: {0,0,'-#fromlist-r/2-fun-0-'}
-          fun(, R, _F1) ->
-                 R;
-             ({H,Pos}|T, R, F1) when is_list(T) ->
-                 case lists:keyfind(H, 1, Vals) of
-                     false ->
-                         F1(T, R, F1);
-                     {_,Val} ->
-                         F1(T, setelement(Pos, R, Val), F1)
-                 end
-          end,
-      F(AttrNames, Rec, F).
-  '#frommap-r'(Vals) when is_map(Vals) ->
-      '#frommap-r'(Vals, '#new-r'()).
-  '#frommap-r'(Vals, Rec) ->
-      List = maps:to_list(Vals),
-      '#fromlist-r'(List, Rec).
-  '#pos-r'(a) ->
-      2;
-  '#pos-r'(b) ->
-      3;
-  '#pos-r'(c) ->
-      4;
-  '#pos-r'(A) when is_atom(A) ->
-      0.
-  '#info-r'(fields) ->
-      a,b,c;
-  '#info-r'(size) ->
-      4.
-  '#lens-r'(a) ->
-      {% fun-info: {0,0,'-#lens-r/1-fun-0-'}
-       fun(R) ->
-              '#get-r'(a, R)
-       end,
-       % fun-info: {0,0,'-#lens-r/1-fun-1-'}
-       fun(X, R) ->
-              '#set-r'({a,X}, R)
-       end};
-  '#lens-r'(b) ->
-      {% fun-info: {0,0,'-#lens-r/1-fun-2-'}
-       fun(R) ->
-              '#get-r'(b, R)
-       end,
-       % fun-info: {0,0,'-#lens-r/1-fun-3-'}
-       fun(X, R) ->
-              '#set-r'({b,X}, R)
-       end};
-  '#lens-r'(c) ->
-      {% fun-info: {0,0,'-#lens-r/1-fun-4-'}
-       fun(R) ->
-              '#get-r'(c, R)
-       end,
-       % fun-info: {0,0,'-#lens-r/1-fun-5-'}
-       fun(X, R) ->
-              '#set-r'({c,X}, R)
-       end};
-  '#lens-r'(Attr) ->
-      error(bad_record_op, '#lens-r',Attr).
-  '#new-s'() ->
-      {s,undefined}.
-  '#new-s'(Vals) ->
-      '#set-s'(Vals, {s,undefined}).
-  '#get-s'(Attrs, R) when is_list(Attrs) ->
-      
-       '#get-s'(A, R) ||
-           A <- Attrs
-      ;
-  '#get-s'(a, R) ->
-      case R of
-          {s,rec6} ->
-              rec6;
-          _ ->
-              error({badrecord,s})
-      end;
-  '#get-s'(Attr, R) ->
-      error(bad_record_op, '#get-s',Attr,R).
-  '#set-s'(Vals, Rec) ->
-      F = % fun-info: {0,0,'-#set-s/2-fun-0-'}
-          fun(, R, _F1) ->
-                 R;
-             ({a,V}|T, R, F1) when is_list(T) ->
-                 F1(T,
-                    begin
-                        rec7 = R,
-                        case rec7 of
-                            {s,rec8} ->
-                                {s,V};
-                            _ ->
-                                error({badrecord,s})
-                        end
-                    end,
-                    F1);
-             (Vs, R, _) ->
-                 error(bad_record_op, '#set-s',Vs,R)
-          end,
-      F(Vals, Rec, F).
-  '#fromlist-s'(Vals) when is_list(Vals) ->
-      '#fromlist-s'(Vals, '#new-s'()).
-  '#fromlist-s'(Vals, Rec) ->
-      AttrNames = {a,2},
-      F = % fun-info: {0,0,'-#fromlist-s/2-fun-0-'}
-          fun(, R, _F1) ->
-                 R;
-             ({H,Pos}|T, R, F1) when is_list(T) ->
-                 case lists:keyfind(H, 1, Vals) of
-                     false ->
-                         F1(T, R, F1);
-                     {_,Val} ->
-                         F1(T, setelement(Pos, R, Val), F1)
-                 end
-          end,
-      F(AttrNames, Rec, F).
-  '#frommap-s'(Vals) when is_map(Vals) ->
-      '#frommap-s'(Vals, '#new-s'()).
-  '#frommap-s'(Vals, Rec) ->
-      List = maps:to_list(Vals),
-      '#fromlist-s'(List, Rec).
-  '#pos-s'(a) ->
-      2;
-  '#pos-s'(A) when is_atom(A) ->
-      0.
-  '#info-s'(fields) ->
-      a;
-  '#info-s'(size) ->
-      2.
-  '#lens-s'(a) ->
-      {% fun-info: {0,0,'-#lens-s/1-fun-0-'}
-       fun(R) ->
-              '#get-s'(a, R)
-       end,
-       % fun-info: {0,0,'-#lens-s/1-fun-1-'}
-       fun(X, R) ->
-              '#set-s'({a,X}, R)
-       end};
-  '#lens-s'(Attr) ->
-      error(bad_record_op, '#lens-s',Attr).
-  '#new-t'() ->
-      {t}.
-  '#new-t'(Vals) ->
-      '#set-t'(Vals, {t}).
-  '#get-t'(Attrs, R) when is_list(Attrs) ->
-      
-       '#get-t'(A, R) ||
-           A <- Attrs
-      ;
-  '#get-t'(Attr, R) ->
-      error(bad_record_op, '#get-t',Attr,R).
-  '#set-t'(Vals, Rec) ->
-      F = % fun-info: {0,0,'-#set-t/2-fun-0-'}
-          fun(, R, _F1) ->
-                 R;
-             (Vs, R, _) ->
-                 error(bad_record_op, '#set-t',Vs,R)
-          end,
-      F(Vals, Rec, F).
-  '#fromlist-t'(Vals) when is_list(Vals) ->
-      '#fromlist-t'(Vals, '#new-t'()).
-  '#fromlist-t'(Vals, Rec) ->
-      AttrNames = ,
-      F = % fun-info: {0,0,'-#fromlist-t/2-fun-0-'}
-          fun(, R, _F1) ->
-                 R;
-             ({H,Pos}|T, R, F1) when is_list(T) ->
-                 case lists:keyfind(H, 1, Vals) of
-                     false ->
-                         F1(T, R, F1);
-                     {_,Val} ->
-                         F1(T, setelement(Pos, R, Val), F1)
-                 end
-          end,
-      F(AttrNames, Rec, F).
-  '#frommap-t'(Vals) when is_map(Vals) ->
-      '#frommap-t'(Vals, '#new-t'()).
-  '#frommap-t'(Vals, Rec) ->
-      List = maps:to_list(Vals),
-      '#fromlist-t'(List, Rec).
-  '#pos-t'(A) when is_atom(A) ->
-      0.
-  '#info-t'(fields) ->
-      ;
-  '#info-t'(size) ->
-      1.
-  '#lens-t'(Attr) ->
-      error(bad_record_op, '#lens-t',Attr).
-  f() ->
-      foo.
-```
-
-It is possible to modify the naming rules of exprecs, through the use
-of the following attributes (example reflecting the current rules):
-
-```
-
-  -exprecs_prefix("#", operation, "-").
-  -exprecs_fname(prefix, record).
-  -exprecs_vfname(fname, "__", version).
-```
-
-The lists must contain strings or any of the following control atoms:
-
-* in `exprecs_prefix`: `operation`
-
-* in `exprecs_fname`: `operation`, `record`, `prefix`
-
-* in `exprecs_vfname`: `operation`, `record`, `prefix`, `fname`, `version`
-
-
-Exprecs will substitute the control atoms with the string values of the
-corresponding items. The result will then be flattened and converted to an
-atom (a valid function or type name).
-
-`operation` is one of:
-
-
-
-<dt><code>new</code></dt>
-
- 
-
-<dd>Creates a new record</dd>
-
-
-
-
-<dt><code>get</code></dt>
-
- 
-
-<dd>Retrieves given attribute values from a record</dd>
-
-
-
-
-<dt><code>set</code></dt>
-
- 
-
-<dd>Sets given attribute values in a record</dd>
-
-
-
-
-<dt><code>fromlist</code></dt>
-
- 
-
-<dd>Creates a record from a key-value list</dd>
-
-
-
-
-<dt><code>info</code></dt>
-
- 
-
-<dd>Equivalent to record_info/2</dd>
-
-
-
-
-<dt><code>pos</code></dt>
-
- 
-
-<dd>Returns the position of a given attribute</dd>
-
-
-
-
-<dt><code>is_record</code></dt>
-
- 
-
-<dd>Tests if a value is a specific record</dd>
-
-
-
-
-<dt><code>convert</code></dt>
-
- 
-
-<dd>Converts an old record to the current version</dd>
-
-
-
-
-<dt><code>prop</code></dt>
-
- 
-
-<dd>Used only in type specs</dd>
-
-
-
-
-<dt><code>attr</code></dt>
-
- 
-
-<dd>Used only in type specs</dd>
-
-
-
-
-<dt><code>lens</code></dt>
-
- 
-
-<dd>Returns a 'lens' (an accessor pair) as described in
-<a href="http://github.com/jlouis/erl-lenses" target="_top"><tt>http://github.com/jlouis/erl-lenses</tt></a></dd>
-
-
-
-
-<a name="types"></a>
-
-## Data Types ##
-
-
-
-
-### <a name="type-form">form()</a> ###
-
-
-<pre><code>
-form() = any()
-</code></pre>
-
-
-
-
-### <a name="type-forms">forms()</a> ###
-
-
-<pre><code>
-forms() = <a href="#type-form">form()</a>
-</code></pre>
-
-
-
-
-### <a name="type-options">options()</a> ###
-
-
-<pre><code>
-options() = {atom(), any()}
-</code></pre>
-
-<a name="index"></a>
-
-## Function Index ##
-
-
-<table width="100%" border="1" cellspacing="0" cellpadding="2" summary="function index"><tr><td valign="top"><a href="#parse_transform-2">parse_transform/2</a></td><td></td></tr></table>
-
-
-<a name="functions"></a>
-
-## Function Details ##
-
-<a name="parse_transform-2"></a>
-
-### parse_transform/2 ###
-
-<pre><code>
-parse_transform(Forms::<a href="#type-forms">forms()</a>, Options::<a href="#type-options">options()</a>) -&gt; <a href="#type-forms">forms()</a>
-</code></pre>
-<br />
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/doc/overview.edoc Deleted

@@ -1,25 +0,0 @@
-@author Ulf Wiger <ulf@wiger.net>
-
-@doc Parse_transform utilities
-
-!Build Status(https://travis-ci.org/uwiger/parse_trans.svg)
-!Hex pm(http://img.shields.io/hexpm/v/parse_trans.svg?style=flat)(https://hex.pm/packages/parse_trans)
-
-<h2>Introduction</h2>
-
-Parse_trans was written in order to capture some useful patterns in parse transformation
-and code generation for Erlang.
-
-Most notably, perhaps, the module {@link exprecs} generates standardized accessor
-functions for records, and {@link ct_expand} makes it possible to evaluate an
-expression at compile-time and substitute the result as a compile-time constant.
-
-Less known modules, perhaps:
-* {@link parse_trans_pp} can be called with escript to pretty-print source from
-  debug-compiled .beam files.
-* {@link parse_trans_codegen} provides pseudo-functions that can be used for
-  simple code generation.
-* {@link parse_trans} provides various helper functions for traversing code and
-  managing complex parse transforms
-
-@end
\ No newline at end of file

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/doc/parse_trans.md Deleted

@@ -1,536 +0,0 @@
-
-
-# Module parse_trans #
-* Description(#description)
-* Data Types(#types)
-* Function Index(#index)
-* Function Details(#functions)
-
-Generic parse transform library for Erlang.
-
-__Authors:__ : Ulf Wiger (`ulf@wiger.net`(mailto:ulf@wiger.net)).
-
-<a name="description"></a>
-
-## Description ##
-
-...
-
-
-<a name="types"></a>
-
-## Data Types ##
-
-
-
-
-### <a name="type-form">form()</a> ###
-
-
-<pre><code>
-form() = any()
-</code></pre>
-
-
-
-
-### <a name="type-forms">forms()</a> ###
-
-
-<pre><code>
-forms() = <a href="#type-form">form()</a>
-</code></pre>
-
-
-
-
-### <a name="type-insp_f">insp_f()</a> ###
-
-
-<pre><code>
-insp_f() = fun((<a href="#type-type">type()</a>, <a href="#type-form">form()</a>, #context{}, A) -&gt; {boolean(), A})
-</code></pre>
-
-
-
-
-### <a name="type-options">options()</a> ###
-
-
-<pre><code>
-options() = {atom(), any()}
-</code></pre>
-
-
-
-
-### <a name="type-type">type()</a> ###
-
-
-<pre><code>
-type() = atom()
-</code></pre>
-
-
-
-
-### <a name="type-xform_f_df">xform_f_df()</a> ###
-
-
-<pre><code>
-xform_f_df() = fun((<a href="#type-type">type()</a>, <a href="#type-form">form()</a>, #context{}, Acc) -&gt; {<a href="#type-form">form()</a>, Acc} | {<a href="#type-forms">forms()</a>, <a href="#type-form">form()</a>, <a href="#type-forms">forms()</a>, Acc})
-</code></pre>
-
-
-
-
-### <a name="type-xform_f_rec">xform_f_rec()</a> ###
-
-
-<pre><code>
-xform_f_rec() = fun((<a href="#type-type">type()</a>, <a href="#type-form">form()</a>, #context{}, Acc) -&gt; {<a href="#type-form">form()</a>, boolean(), Acc} | {<a href="#type-forms">forms()</a>, <a href="#type-form">form()</a>, <a href="#type-forms">forms()</a>, boolean(), Acc})
-</code></pre>
-
-<a name="index"></a>
-
-## Function Index ##
-
-
-<table width="100%" border="1" cellspacing="0" cellpadding="2" summary="function index"><tr><td valign="top"><a href="#context-2">context/2</a></td><td>
-Accessor function for the Context record.</td></tr><tr><td valign="top"><a href="#depth_first-4">depth_first/4</a></td><td></td></tr><tr><td valign="top"><a href="#do_depth_first-4">do_depth_first/4</a></td><td></td></tr><tr><td valign="top"><a href="#do_insert_forms-4">do_insert_forms/4</a></td><td></td></tr><tr><td valign="top"><a href="#do_inspect-4">do_inspect/4</a></td><td></td></tr><tr><td valign="top"><a href="#do_transform-4">do_transform/4</a></td><td></td></tr><tr><td valign="top"><a href="#error-3">error/3</a></td><td>.</td></tr><tr><td valign="top"><a href="#export_function-3">export_function/3</a></td><td></td></tr><tr><td valign="top"><a href="#format_error-1">format_error/1</a></td><td></td></tr><tr><td valign="top"><a href="#format_exception-2">format_exception/2</a></td><td>Equivalent to <a href="#format_exception-3"><tt>format_exception(Class, Reason, 4)</tt></a>.</td></tr><tr><td valign="top"><a href="#format_exception-3">format_exception/3</a></td><td>Produces a few lines of user-friendly formatting of exception info.</td></tr><tr><td valign="top"><a href="#function_exists-3">function_exists/3</a></td><td>
-Checks whether the given function is defined in Forms.</td></tr><tr><td valign="top"><a href="#get_attribute-2">get_attribute/2</a></td><td>
-Returns the value of the first occurrence of attribute A.</td></tr><tr><td valign="top"><a href="#get_attribute-3">get_attribute/3</a></td><td></td></tr><tr><td valign="top"><a href="#get_file-1">get_file/1</a></td><td>
-Returns the name of the file being compiled.</td></tr><tr><td valign="top"><a href="#get_module-1">get_module/1</a></td><td>
-Returns the name of the module being compiled.</td></tr><tr><td valign="top"><a href="#get_orig_syntax_tree-1">get_orig_syntax_tree/1</a></td><td>.</td></tr><tr><td valign="top"><a href="#get_pos-1">get_pos/1</a></td><td>
-Tries to retrieve the line number from an erl_syntax form.</td></tr><tr><td valign="top"><a href="#initial_context-2">initial_context/2</a></td><td>
-Initializes a context record.</td></tr><tr><td valign="top"><a href="#inspect-4">inspect/4</a></td><td>
-Equivalent to do_inspect(Fun,Acc,Forms,initial_context(Forms,Options)).</td></tr><tr><td valign="top"><a href="#optionally_pretty_print-3">optionally_pretty_print/3</a></td><td></td></tr><tr><td valign="top"><a href="#plain_transform-2">plain_transform/2</a></td><td>
-Performs a transform of <code>Forms</code> using the fun <code>Fun(Form)</code>.</td></tr><tr><td valign="top"><a href="#pp_beam-1">pp_beam/1</a></td><td>
-Reads debug_info from the beam file Beam and returns a string containing
-the pretty-printed corresponding erlang source code.</td></tr><tr><td valign="top"><a href="#pp_beam-2">pp_beam/2</a></td><td>
-Reads debug_info from the beam file Beam and pretty-prints it as
-Erlang source code, storing it in the file Out.</td></tr><tr><td valign="top"><a href="#pp_src-2">pp_src/2</a></td><td>Pretty-prints the erlang source code corresponding to Forms into Out.</td></tr><tr><td valign="top"><a href="#replace_function-4">replace_function/4</a></td><td></td></tr><tr><td valign="top"><a href="#replace_function-5">replace_function/5</a></td><td></td></tr><tr><td valign="top"><a href="#return-2">return/2</a></td><td>Checks the transformed result for errors and warnings.</td></tr><tr><td valign="top"><a href="#revert-1">revert/1</a></td><td>Reverts back from Syntax Tools format to Erlang forms.</td></tr><tr><td valign="top"><a href="#revert_form-1">revert_form/1</a></td><td>Reverts a single form back from Syntax Tools format to Erlang forms.</td></tr><tr><td valign="top"><a href="#top-3">top/3</a></td><td></td></tr><tr><td valign="top"><a href="#transform-4">transform/4</a></td><td>
-Makes one pass.</td></tr></table>
-
-
-<a name="functions"></a>
-
-## Function Details ##
-
-<a name="context-2"></a>
-
-### context/2 ###
-
-<pre><code>
-context(X1::Attr, Context) -&gt; any()
-</code></pre>
-
-<ul class="definitions"><li><code>Attr = module | function | arity | options</code></li></ul>
-
-Accessor function for the Context record.
-
-<a name="depth_first-4"></a>
-
-### depth_first/4 ###
-
-<pre><code>
-depth_first(Fun::<a href="#type-xform_f_df">xform_f_df()</a>, Acc, Forms::<a href="#type-forms">forms()</a>, Options::<a href="#type-options">options()</a>) -&gt; {<a href="#type-forms">forms()</a>, Acc} | {error, list()}
-</code></pre>
-<br />
-
-<a name="do_depth_first-4"></a>
-
-### do_depth_first/4 ###
-
-<pre><code>
-do_depth_first(F::<a href="#type-xform_f_df">xform_f_df()</a>, Acc::term(), Forms::<a href="#type-forms">forms()</a>, Context::#context{}) -&gt; {<a href="#type-forms">forms()</a>, term()}
-</code></pre>
-<br />
-
-<a name="do_insert_forms-4"></a>
-
-### do_insert_forms/4 ###
-
-<pre><code>
-do_insert_forms(X1::above | below, Insert::<a href="#type-forms">forms()</a>, Forms::<a href="#type-forms">forms()</a>, Context::#context{}) -&gt; <a href="#type-forms">forms()</a>
-</code></pre>
-<br />
-
-<a name="do_inspect-4"></a>
-
-### do_inspect/4 ###
-
-<pre><code>
-do_inspect(F::<a href="#type-insp_f">insp_f()</a>, Acc::term(), Forms::<a href="#type-forms">forms()</a>, Context::#context{}) -&gt; term()
-</code></pre>
-<br />
-
-<a name="do_transform-4"></a>
-
-### do_transform/4 ###
-
-<pre><code>
-do_transform(F::<a href="#type-xform_f_rec">xform_f_rec()</a>, Acc::term(), Forms::<a href="#type-forms">forms()</a>, Context::#context{}) -&gt; {<a href="#type-forms">forms()</a>, term()}
-</code></pre>
-<br />
-
-<a name="error-3"></a>
-
-### error/3 ###
-
-<pre><code>
-error(R::Reason, F::Form, I::Info) -&gt; <a href="#type-throw">throw()</a>
-</code></pre>
-
-<ul class="definitions"><li><code>Info = {Key, Value}</code></li></ul>
-
-Used to report errors detected during the parse transform.
-
-<a name="export_function-3"></a>
-
-### export_function/3 ###
-
-`export_function(F, Arity, Forms) -> any()`
-
-<a name="format_error-1"></a>
-
-### format_error/1 ###
-
-<pre><code>
-format_error(Error::{atom(), term()}) -&gt; iolist()
-</code></pre>
-<br />
-
-<a name="format_exception-2"></a>
-
-### format_exception/2 ###
-
-<pre><code>
-format_exception(Class, Reason) -&gt; String
-</code></pre>
-<br />
-
-Equivalent to `format_exception(Class, Reason, 4)`(#format_exception-3).
-
-<a name="format_exception-3"></a>
-
-### format_exception/3 ###
-
-<pre><code>
-format_exception(Class, Reason, Lines) -&gt; String
-</code></pre>
-
-<ul class="definitions"><li><code>Class = error | throw | exit</code></li><li><code>Reason = term()</code></li><li><code>Lines = integer() | infinity</code></li></ul>
-
-Produces a few lines of user-friendly formatting of exception info
-
-This function is very similar to the exception pretty-printing in the shell,
-but returns a string that can be used as error info e.g. by error forms
-handled by `return/2`(#return-2). By default, the first 4 lines of the
-pretty-printed exception info are returned, but this can be controlled
-with the `Lines` parameter.
-
-Note that a stacktrace is generated inside this function.
-
-<a name="function_exists-3"></a>
-
-### function_exists/3 ###
-
-<pre><code>
-function_exists(Fname::atom(), Arity::integer(), Forms) -&gt; boolean()
-</code></pre>
-<br />
-
-Checks whether the given function is defined in Forms.
-
-<a name="get_attribute-2"></a>
-
-### get_attribute/2 ###
-
-<pre><code>
-get_attribute(A, Forms) -&gt; any()
-</code></pre>
-
-<ul class="definitions"><li><code>A = atom()</code></li></ul>
-
-Returns the value of the first occurrence of attribute A.
-
-<a name="get_attribute-3"></a>
-
-### get_attribute/3 ###
-
-`get_attribute(A, Forms, Undef) -> any()`
-
-<a name="get_file-1"></a>
-
-### get_file/1 ###
-
-<pre><code>
-get_file(Forms) -&gt; string()
-</code></pre>
-<br />
-
-Returns the name of the file being compiled.
-
-<a name="get_module-1"></a>
-
-### get_module/1 ###
-
-<pre><code>
-get_module(Forms) -&gt; atom()
-</code></pre>
-<br />
-
-Returns the name of the module being compiled.
-
-<a name="get_orig_syntax_tree-1"></a>
-
-### get_orig_syntax_tree/1 ###
-
-<pre><code>
-get_orig_syntax_tree(File) -&gt; Forms
-</code></pre>
-<br />
-
-Fetches a Syntax Tree representing the code before pre-processing,
-that is, including record and macro definitions. Note that macro
-definitions must be syntactically complete forms (this function
-uses epp_dodger).
-
-<a name="get_pos-1"></a>
-
-### get_pos/1 ###
-
-<pre><code>
-get_pos(I::list()) -&gt; integer()
-</code></pre>
-<br />
-
-Tries to retrieve the line number from an erl_syntax form. Returns a
-(very high) dummy number if not successful.
-
-<a name="initial_context-2"></a>
-
-### initial_context/2 ###
-
-<pre><code>
-initial_context(Forms, Options) -&gt; #context{}
-</code></pre>
-<br />
-
-Initializes a context record. When traversing through the form
-list, the context is updated to reflect the current function and
-arity. Static elements in the context are the file name, the module
-name and the options passed to the transform function.
-
-<a name="inspect-4"></a>
-
-### inspect/4 ###
-
-<pre><code>
-inspect(F::Fun, Acc::Forms, Forms::Acc, Options) -&gt; NewAcc
-</code></pre>
-
-<ul class="definitions"><li><code>Fun = function()</code></li></ul>
-
-Equivalent to do_inspect(Fun,Acc,Forms,initial_context(Forms,Options)).
-
-<a name="optionally_pretty_print-3"></a>
-
-### optionally_pretty_print/3 ###
-
-<pre><code>
-optionally_pretty_print(Result::<a href="#type-forms">forms()</a>, Options::<a href="#type-options">options()</a>, Context::#context{}) -&gt; ok
-</code></pre>
-<br />
-
-<a name="plain_transform-2"></a>
-
-### plain_transform/2 ###
-
-<pre><code>
-plain_transform(Fun, Forms) -&gt; <a href="#type-forms">forms()</a>
-</code></pre>
-
-<ul class="definitions"><li><code>Fun = function()</code></li><li><code>Forms = <a href="#type-forms">forms()</a></code></li></ul>
-
-Performs a transform of `Forms` using the fun `Fun(Form)`. `Form` is always
-an Erlang abstract form, i.e. it is not converted to syntax_tools
-representation. The intention of this transform is for the fun to have a
-catch-all clause returning `continue`. This will ensure that it stays robust
-against additions to the language.
-
-`Fun(Form)` must return either of the following:
-
-* `NewForm` - any valid form
-* `continue` - dig into the sub-expressions of the form
-* `{done, NewForm}` - Replace `Form` with `NewForm`; return all following
-forms unchanged
-* `{error, Reason}` - Abort transformation with an error message.
-
-Example - This transform fun would convert all instances of `P ! Msg` to
-`gproc:send(P, Msg)`:
-
-```
-
-  parse_transform(Forms, _Options) ->
-      parse_trans:plain_transform(fun do_transform/1, Forms).
-  do_transform({'op', L, '!', Lhs, Rhs}) ->
-       NewLhs = parse_trans:plain_transform(fun do_transform/1, Lhs),
-       NewRhs = parse_trans:plain_transform(fun do_transform/1, Rhs),
-      {call, L, {remote, L, {atom, L, gproc}, {atom, L, send}},
-       NewLhs, NewRhs};
-  do_transform(_) ->
-      continue.
-```
-
-<a name="pp_beam-1"></a>
-
-### pp_beam/1 ###
-
-<pre><code>
-pp_beam(Beam::<a href="file.md#type-filename">file:filename()</a>) -&gt; string() | {error, Reason}
-</code></pre>
-<br />
-
-Reads debug_info from the beam file Beam and returns a string containing
-the pretty-printed corresponding erlang source code.
-
-<a name="pp_beam-2"></a>
-
-### pp_beam/2 ###
-
-<pre><code>
-pp_beam(Beam::<a href="#type-filename">filename()</a>, Out::<a href="#type-filename">filename()</a>) -&gt; ok | {error, Reason}
-</code></pre>
-<br />
-
-Reads debug_info from the beam file Beam and pretty-prints it as
-Erlang source code, storing it in the file Out.
-
-<a name="pp_src-2"></a>
-
-### pp_src/2 ###
-
-<pre><code>
-pp_src(Res::Forms, Out::<a href="#type-filename">filename()</a>) -&gt; ok
-</code></pre>
-<br />
-
-Pretty-prints the erlang source code corresponding to Forms into Out
-
-<a name="replace_function-4"></a>
-
-### replace_function/4 ###
-
-`replace_function(F, Arity, NewForm, Forms) -> any()`
-
-<a name="replace_function-5"></a>
-
-### replace_function/5 ###
-
-`replace_function(F, Arity, NewForm, Forms, Opts) -> any()`
-
-<a name="return-2"></a>
-
-### return/2 ###
-
-<pre><code>
-return(Forms, Context) -&gt; Forms | {error, Es, Ws} | {warnings, Forms, Ws}
-</code></pre>
-<br />
-
-Checks the transformed result for errors and warnings
-
-Errors and warnings can be produced from inside a parse transform, with
-a bit of care. The easiest way is to simply produce an `{error, Err}` or
-`{warning, Warn}` form in place. This function finds such forms, and
-removes them from the form list (otherwise, the linter will crash), and
-produces a return value that the compiler can work with.
-
-The format of the `error` and `warning` "forms" must be
-`{Tag, {Pos, Module, Info}}`, where:
-
-* `Tag :: error | warning`
-
-* `Pos :: LineNumber | {LineNumber, ColumnNumber}`
-
-* `Module` is a module that exports a corresponding
-`Module:format_error(Info)`
-
-* `Info :: term()`
-
-
-
-If the error is in the form of a caught exception, `Info` may be produced
-using the function `format_exception/2`(#format_exception-2).
-
-<a name="revert-1"></a>
-
-### revert/1 ###
-
-<pre><code>
-revert(Tree) -&gt; Forms
-</code></pre>
-<br />
-
-Reverts back from Syntax Tools format to Erlang forms.
-
-Note that the Erlang forms are a subset of the Syntax Tools
-syntax tree, so this function is safe to call even on a list of
-regular Erlang forms.
-
-Note2: R16B03 introduced a bug, where forms produced by
-`erl_syntax:revert/1` (specifically, implicit funs) could crash the linter.
-This function works around that limitation, after first verifying that it's
-necessary to do so. Use of the workaround can be forced with the help of
-the `parse_trans` environment variable {revert_workaround, true}. This
-variable will be removed when R16B03 is no longer 'supported'.
-
-<a name="revert_form-1"></a>
-
-### revert_form/1 ###
-
-<pre><code>
-revert_form(F::Tree) -&gt; Form
-</code></pre>
-<br />
-
-Reverts a single form back from Syntax Tools format to Erlang forms.
-
-`erl_syntax:revert/1` has had a long-standing bug where it doesn't
-completely revert attribute forms. This function deals properly with those
-cases.
-
-Note that the Erlang forms are a subset of the Syntax Tools
-syntax tree, so this function is safe to call even on a regular Erlang
-form.
-
-Note2: R16B03 introduced a bug, where forms produced by
-`erl_syntax:revert/1` (specifically, implicit funs) could crash the linter.
-This function works around that limitation, after first verifying that it's
-necessary to do so. Use of the workaround can be forced with the help of
-the `parse_trans` environment variable {revert_workaround, true}. This
-variable will be removed when R16B03 is no longer 'supported'.
-
-<a name="top-3"></a>
-
-### top/3 ###
-
-<pre><code>
-top(F::function(), Forms::<a href="#type-forms">forms()</a>, Options::list()) -&gt; <a href="#type-forms">forms()</a> | {error, term()}
-</code></pre>
-<br />
-
-<a name="transform-4"></a>
-
-### transform/4 ###
-
-<pre><code>
-transform(Fun, Acc, Forms, Options) -&gt; {TransformedForms, NewAcc}
-</code></pre>
-
-<ul class="definitions"><li><code>Fun = function()</code></li><li><code>Options = {Key, Value}</code></li></ul>
-
-Makes one pass
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/doc/parse_trans_codegen.md Deleted

@@ -1,175 +0,0 @@
-
-
-# Module parse_trans_codegen #
-* Description(#description)
-* Function Index(#index)
-* Function Details(#functions)
-
-Parse transform for code generation pseduo functions.
-
-__Authors:__ : Ulf Wiger (`ulf@wiger.net`(mailto:ulf@wiger.net)).
-
-<a name="description"></a>
-
-## Description ##
-
-...
-
-<a name="index"></a>
-
-## Function Index ##
-
-
-<table width="100%" border="1" cellspacing="0" cellpadding="2" summary="function index"><tr><td valign="top"><a href="#format_error-1">format_error/1</a></td><td></td></tr><tr><td valign="top"><a href="#parse_transform-2">parse_transform/2</a></td><td>
-Searches for calls to pseudo functions in the module <code>codegen</code>,
-and converts the corresponding erlang code to a data structure
-representing the abstract form of that code.</td></tr></table>
-
-
-<a name="functions"></a>
-
-## Function Details ##
-
-<a name="format_error-1"></a>
-
-### format_error/1 ###
-
-`format_error(E) -> any()`
-
-<a name="parse_transform-2"></a>
-
-### parse_transform/2 ###
-
-<pre><code>
-parse_transform(Forms, Options) -&gt; NewForms
-</code></pre>
-<br />
-
-Searches for calls to pseudo functions in the module `codegen`,
-and converts the corresponding erlang code to a data structure
-representing the abstract form of that code.
-
-The purpose of these functions is to let the programmer write
-the actual code that is to be generated, rather than manually
-writing abstract forms, which is more error prone and cannot be
-checked by the compiler until the generated module is compiled.
-
-Supported functions:
-
-
-## gen_function/2 ##
-
-Usage: `codegen:gen_function(Name, Fun)`
-
-Substitutes the abstract code for a function with name `Name`
-and the same behaviour as `Fun`.
-
-`Fun` can either be a anonymous `fun`, which is then converted to
-a named function, or it can be an `implicit fun`, e.g.
-`fun is_member/2`. In the latter case, the referenced function is fetched
-and converted to an abstract form representation. It is also renamed
-so that the generated function has the name `Name`.
-
-Another alternative is to wrap a fun inside a list comprehension, e.g.
-
-```
-
-  f(Name, L) ->
-      codegen:gen_function(
-          Name,
-           fun({'$var',X}) ->
-               {'$var', Y}
-            end || {X, Y} &lt;- L ).
-```
-
-
-Calling the above with `f(foo, {1,a},{2,b},{3,c})` will result in
-generated code corresponding to:
-
-```
-
-  foo(1) -> a;
-  foo(2) -> b;
-  foo(3) -> c.
-```
-
-
-## gen_functions/1 ##
-
-Takes a list of `{Name, Fun}` tuples and produces a list of abstract
-data objects, just as if one had written
-`codegen:gen_function(N1,F1),codegen:gen_function(N2,F2),...`.
-
-
-## exprs/1 ##
-
-Usage: `codegen:exprs(Fun)`
-
-`Fun` is either an anonymous function, or an implicit fun with only one
-function clause. This "function" takes the body of the fun and produces
-a data type representing the abstract form of the list of expressions in
-the body. The arguments of the function clause are ignored, but can be
-used to ensure that all necessary variables are known to the compiler.
-
-
-## gen_module/3 ##
-
-Generates abstract forms for a complete module definition.
-
-Usage: `codegen:gen_module(ModuleName, Exports, Functions)`
-
-`ModuleName` is either an atom or a `{'$var', V}` reference.
-
-`Exports` is a list of `{Function, Arity}` tuples.
-
-`Functions` is a list of `{Name, Fun}` tuples analogous to that for
-`gen_functions/1`.
-
-
-## Variable substitution ##
-
-It is possible to do some limited expansion (importing a value
-bound at compile-time), using the construct `{'$var', V}`, where
-`V` is a bound variable in the scope of the call to `gen_function/2`.
-
-Example:
-
-```
-
-  gen(Name, X) ->
-     codegen:gen_function(Name, fun(L) -> lists:member({'$var',X}, L) end).
-```
-
-After transformation, calling `gen(contains_17, 17)` will yield the
-abstract form corresponding to:
-
-```
-
-  contains_17(L) ->
-     lists:member(17, L).
-```
-
-
-## Form substitution ##
-
-It is possible to inject abstract forms, using the construct
-`{'$form', F}`, where `F` is bound to a parsed form in
-the scope of the call to `gen_function/2`.
-
-Example:
-
-```
-
-  gen(Name, F) ->
-     codegen:gen_function(Name, fun(X) -> X =:= {'$form',F} end).
-```
-
-After transformation, calling `gen(is_foo, {atom,0,foo})` will yield the
-abstract form corresponding to:
-
-```
-
-  is_foo(X) ->
-     X =:= foo.
-```
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/doc/parse_trans_mod.md Deleted

@@ -1,103 +0,0 @@
-
-
-# Module parse_trans_mod #
-* Data Types(#types)
-* Function Index(#index)
-* Function Details(#functions)
-
-<a name="types"></a>
-
-## Data Types ##
-
-
-
-
-### <a name="type-compile_options">compile_options()</a> ###
-
-
-<pre><code>
-compile_options() = term()
-</code></pre>
-
-
-
-
-### <a name="type-erlang_form">erlang_form()</a> ###
-
-
-<pre><code>
-erlang_form() = term()
-</code></pre>
-
-<a name="index"></a>
-
-## Function Index ##
-
-
-<table width="100%" border="1" cellspacing="0" cellpadding="2" summary="function index"><tr><td valign="top"><a href="#abstract_code-1">abstract_code/1</a></td><td></td></tr><tr><td valign="top"><a href="#beam_file-1">beam_file/1</a></td><td></td></tr><tr><td valign="top"><a href="#compile_and_load_forms-1">compile_and_load_forms/1</a></td><td></td></tr><tr><td valign="top"><a href="#compile_and_load_forms-2">compile_and_load_forms/2</a></td><td></td></tr><tr><td valign="top"><a href="#compile_options-1">compile_options/1</a></td><td></td></tr><tr><td valign="top"><a href="#rename_module-2">rename_module/2</a></td><td></td></tr><tr><td valign="top"><a href="#transform_module-3">transform_module/3</a></td><td></td></tr></table>
-
-
-<a name="functions"></a>
-
-## Function Details ##
-
-<a name="abstract_code-1"></a>
-
-### abstract_code/1 ###
-
-<pre><code>
-abstract_code(BeamFile::binary()) -&gt; <a href="#type-erlang_form">erlang_form()</a>
-</code></pre>
-<br />
-
-<a name="beam_file-1"></a>
-
-### beam_file/1 ###
-
-<pre><code>
-beam_file(Module::module()) -&gt; binary()
-</code></pre>
-<br />
-
-<a name="compile_and_load_forms-1"></a>
-
-### compile_and_load_forms/1 ###
-
-<pre><code>
-compile_and_load_forms(AbsCode::<a href="#type-erlang_form">erlang_form()</a>) -&gt; ok
-</code></pre>
-<br />
-
-<a name="compile_and_load_forms-2"></a>
-
-### compile_and_load_forms/2 ###
-
-<pre><code>
-compile_and_load_forms(AbsCode::<a href="#type-erlang_form">erlang_form()</a>, Opts::<a href="#type-compile_options">compile_options()</a>) -&gt; ok
-</code></pre>
-<br />
-
-<a name="compile_options-1"></a>
-
-### compile_options/1 ###
-
-<pre><code>
-compile_options(BeamFile::binary() | module()) -&gt; <a href="#type-compile_options">compile_options()</a>
-</code></pre>
-<br />
-
-<a name="rename_module-2"></a>
-
-### rename_module/2 ###
-
-<pre><code>
-rename_module(T::<a href="#type-erlang_form">erlang_form()</a>, NewName::module()) -&gt; <a href="#type-erlang_form">erlang_form()</a>
-</code></pre>
-<br />
-
-<a name="transform_module-3"></a>
-
-### transform_module/3 ###
-
-`transform_module(Mod, PT, Options) -> any()`
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/doc/parse_trans_pp.md Deleted

@@ -1,89 +0,0 @@
-
-
-# Module parse_trans_pp #
-* Description(#description)
-* Function Index(#index)
-* Function Details(#functions)
-
-Generic parse transform library for Erlang.
-
-__Authors:__ : Ulf Wiger (`ulf@wiger.net`(mailto:ulf@wiger.net)).
-
-<a name="description"></a>
-
-## Description ##
-
-This module contains some useful utility functions for inspecting
-the results of parse transforms or code generation.
-The function `main/1` is called from escript, and can be used to
-pretty-print debug info in a .beam file from a Linux shell.
-
-Using e.g. the following bash alias:
-
-```
-
-  alias pp='escript $PARSE_TRANS_ROOT/ebin/parse_trans_pp.beam'
-```
-
-a file could be pretty-printed using the following command:
-
-`$ pp ex_codegen.beam | less`<a name="index"></a>
-
-## Function Index ##
-
-
-<table width="100%" border="1" cellspacing="0" cellpadding="2" summary="function index"><tr><td valign="top"><a href="#main-1">main/1</a></td><td></td></tr><tr><td valign="top"><a href="#pp_beam-1">pp_beam/1</a></td><td>
-Reads debug_info from the beam file Beam and returns a string containing
-the pretty-printed corresponding erlang source code.</td></tr><tr><td valign="top"><a href="#pp_beam-2">pp_beam/2</a></td><td>
-Reads debug_info from the beam file Beam and pretty-prints it as
-Erlang source code, storing it in the file Out.</td></tr><tr><td valign="top"><a href="#pp_src-2">pp_src/2</a></td><td>Pretty-prints the erlang source code corresponding to Forms into Out.</td></tr></table>
-
-
-<a name="functions"></a>
-
-## Function Details ##
-
-<a name="main-1"></a>
-
-### main/1 ###
-
-<pre><code>
-main(X1::string()) -&gt; any()
-</code></pre>
-<br />
-
-<a name="pp_beam-1"></a>
-
-### pp_beam/1 ###
-
-<pre><code>
-pp_beam(Beam::<a href="#type-filename">filename()</a>) -&gt; string() | {error, Reason}
-</code></pre>
-<br />
-
-Reads debug_info from the beam file Beam and returns a string containing
-the pretty-printed corresponding erlang source code.
-
-<a name="pp_beam-2"></a>
-
-### pp_beam/2 ###
-
-<pre><code>
-pp_beam(Beam::<a href="#type-filename">filename()</a>, Out::<a href="#type-filename">filename()</a>) -&gt; ok | {error, Reason}
-</code></pre>
-<br />
-
-Reads debug_info from the beam file Beam and pretty-prints it as
-Erlang source code, storing it in the file Out.
-
-<a name="pp_src-2"></a>
-
-### pp_src/2 ###
-
-<pre><code>
-pp_src(Forms0::Forms, Out::<a href="#type-filename">filename()</a>) -&gt; ok
-</code></pre>
-<br />
-
-Pretty-prints the erlang source code corresponding to Forms into Out
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/doc/stylesheet.css Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/examples Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/examples/ct_expand_test.erl Deleted

@@ -1,50 +0,0 @@
--module(ct_expand_test).
-
--export(f/0, g/0, h/0, i/0, fixture/0).
-
--compile({parse_transform, ct_expand}).
--compile({ct_expand_trace, x}).
--pt_pp_src(true).
-
-f() ->
-    ct_expand:term(
-      {a, 1},
-       {b, ct_expand:term(
-             {ba, 1},
-              {bb, ct_expand:term(2)})}).
-
-%% expand a term which calls a local function - even one which uses a fun reference.
-g() ->
-    ct_expand:term(zip(1,2, a,b)).
-
-h() ->
-    ct_expand:term(wrap(my_fun())).
-
-i() ->
-    ct_expand:term(gb_trees:insert(a_fun, my_fun2(), gb_trees:empty())).
-
-%% expand a call to a function that reads and decodes a fixture
-fixture() ->
-    ct_expand:term(jsx_consult("my_file.json", return_maps)).
-%% Note: function is mocked only to not depend on https://hex.pm/packages/jsx
-jsx_consult("my_file.json", _) ->
-    M0 = maps:from_list(),
-    M0#{<<"k">> => 42
-       , 1 => a
-       ,#{2=>2, 1=>1} => {"s", 4.2}
-       }.
-
-zip(H1|T1, H2|T2) ->
-    F = my_fun2(),
-    {F(H1),F(H2)} | zip(T1, T2);
-zip(, ) ->
-    .
-
-wrap(X) ->
-    {X}.
-
-my_fun() ->
-    fun() -> foo end.
-
-my_fun2() ->
-    fun wrap/1.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/examples/ex1.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/examples/ex_codegen.erl Deleted

@@ -1,83 +0,0 @@
--module(ex_codegen).
-
--compile({parse_transform, parse_trans_codegen}).
-
--export(f/1, g/2, h/0, i/0, j/2, k/0, k/1, gen/2, fs/0).
-
-%%-pt_pp_forms(true).
--pt_pp_src(true).
-
-f(Name) ->
-    codegen:gen_function(
-      Name,
-      fun(1,2,3) ->
-	      foo;
-	  (A,B,C) ->
-	      {A,B,C}
-      end).
-
-
-
-g(Name, V) ->
-    codegen:gen_function(
-      Name,
-      fun(L) ->
-	      member({'$var',V}, L)
-      end).
-
-h() ->
-    codegen:gen_function(
-      funny,
-      fun() ->
-	      fun gen/2
-      end).
-
-i() ->
-    codegen:exprs(fun(X) ->
-			  case X of 1 ->
-				  is_1;
-			      Other ->
-				  {is_other,Other}
-			  end
-		  end).
-
-j(Name, Form) ->
-    codegen:gen_function(
-      Name,
-      fun(L) ->
-	      member({'$form',Form}, L)
-      end).
-
-x() ->
-    (fun(X) ->
-	      X
-      end)(X1) || X1 <- 1,2.
-
-k() ->
-    codegen:gen_function(
-      lcf,
-      fun({'$var',X}) ->
-	       {'$var',Y}
-       end || {X, Y}  <- {1,a},{2,b},{3,c}).
-
-k(L) ->
-    codegen:gen_function(
-      lcf,
-      fun({'$var',X}) ->
-	       {'$var',Y}
-       end || {X, Y}  <- L).
-
-gen(Name, X) ->
-    codegen:gen_function(Name, fun(L) -> lists:member({'$var',X}, L) end).
-
-fs() ->
-    V = local_V,
-    codegen:gen_functions(
-      {foo, fun() ->
-		     foo
-	     end},
-       {h1, fun h/0},
-       {g1, fun g/2},
-       {bar, fun() ->
-		     bar
-	     end}).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/examples/ex_gen_module.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/examples/ex_gproc_send_xform.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/examples/ex_pmod.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/examples/exprecs_eunit.erl Deleted

@@ -1,34 +0,0 @@
--module(exprecs_eunit).
--include_lib("eunit/include/eunit.hrl").
-
--export(module_test/0).
-
-
-module_test() ->
-    M = test_exprecs,
-    RecNames = lists:concat(
-		 Rs || {export_records, Rs} <- M:module_info(attributes)),
-    io:fwrite("RecNames = ~p~n", RecNames),
-    false = M:'#is_record-'(),
-    false = M:'#is_record-'(, ),
-    test_record(R, M) || R <- RecNames.
-
-test_record(R, M) ->
-    Rec = M:'#new-'(R),
-    Fields = M:'#info-'(R),
-    FieldCount = length(Fields),
-    InfoF = list_to_existing_atom("#info-" ++ atom_to_list(R)),
-    ?assertEqual(FieldCount+1, M:InfoF(size)),
-    ?assertEqual(true, M:'#is_record-'(Rec)),
-    ?assertMatch({R,true}, {R, M:'#is_record-'(R, Rec)}),
-    NewF = list_to_existing_atom("#new-" ++ atom_to_list(R)),
-    L = lists:seq(1, FieldCount),
-    Vals = lists:zip(Fields, L),
-    Rec1 = M:NewF(Vals),
-    Rec1 = M:'#set-'(Vals, Rec),
-    Rec1 = M:'#fromlist-'(Vals, M:'#new-'(R)),
-    L = M:'#get-'(Fields, Rec1),
-    ?assertError(bad_record_op, M:'#get-'(17,Rec1)),
-    PosL = lists:seq(2, FieldCount + 1),
-    PosL = M:'#pos-'(R, A) || A <- Fields,
-    ?assertEqual(0, M:'#pos-'(R, bad_attr_name)).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/examples/lc.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/examples/pmod.erl Deleted

@@ -1,113 +0,0 @@
--module(pmod).
-
--export(parse_transform/2).
-
--import(erl_syntax, attribute_name/1, attribute_arguments/1,
-		     list_elements/1,
-		     atom_value/1, tuple_elements/1, integer_value/1).
-
--record(st, {vars = ,
-	     funs = ordsets:new()}).
-
-parse_transform(Forms, Opts) ->
-    case proplists:get_bool(trace, Opts) of
-	true ->
-	    dbg:tracer(),
-	    dbg:tpl(?MODULE,x),
-	    dbg:p(all,c);
-	false ->
-	    ok
-    end,
-    C = parse_trans:initial_context(Forms, Opts),
-    St = parse_trans:do_inspect(fun inspect/4, #st{}, Forms, C),
-    Res = parse_trans:revert(
-	    export_funs(wrap_funs(create_new_f(Forms, St, C), St, C), St, C)),
-    parse_trans:optionally_pretty_print(Res, Opts, C),
-    Res.
-
-inspect(attribute, Form, _C, Acc) ->
-    case attr_name(Form) of
-	pmod_vars ->
-	     = Acc#st.vars,  %% assertion - should be a proper check
-	    VarNames = atom_value(V) ||
-			   V <- list_elements(hd(attribute_arguments(Form))),
-	    {false, Acc#st{vars = VarNames}};
-	pmod_funs ->
-	    Fs = lists:foldl(fun(E, Acc1) ->
-				     Fun,Ay = tuple_elements(E),
-				     ordsets:add_element(
-				       {atom_value(Fun), integer_value(Ay)},
-				       Acc1)
-			     end, Acc#st.funs,
-			     list_elements(hd(attribute_arguments(Form)))),
-	    {false, Acc#st{funs = Fs}};
-	_ ->
-	    {false, Acc}
-    end;
-inspect(_, _, _, Acc) ->
-    {false, Acc}.
-
-attr_name(F) ->
-    atom_value(attribute_name(F)).
-
-create_new_f(Forms, #st{vars = Vs}, C) ->
-    Arity = length(Vs),
-    Anno1 = erl_anno:new(1),
-    Form = {function, Anno1, new, Arity,
-	    {clause, Anno1,
-	      {var,Anno1,V} || V <- Vs,
-	      ,
-	      {tuple, Anno1, {atom, Anno1, parse_trans:context(module, C)},
-                               {tuple, Anno1, {var,Anno1,V} || V <- Vs}}
-	      }
-	    },
-    parse_trans:do_insert_forms(above, Form, Forms, C).
-
-wrap_funs(Forms, #st{vars = Vs, funs = Fs}, C) ->
-    Mod = parse_trans:context(module, C),
-    lists:foldl(
-      fun({F,A}, Acc) ->
-	      {NewForms, _} =
-		  parse_trans:do_transform(
-		    fun(T,Form,C1,Acc1) ->
-			    wrap_fun(T,Form,C1,Acc1,F,A,Vs,Mod)
-		    end, false, Acc, C),
-	      NewForms
-      end, Forms, Fs).
-
-wrap_fun(function, Form, _, Acc, F, A, Vs,Mod) ->
-    Anno1 = erl_anno:new(1),
-    case erl_syntax:revert(Form) of
-	{function, Anno, F, A, Cs} ->
-	    {{function, Anno, F, A + 1,
-	      {clause, AnnoLc,
-		Args ++ {tuple,Anno1,{atom,Anno1,Mod},
-                                       {tuple,Anno1,
-                                        fix_vars(Vs, F, A, Clause)}}, Gs, B}
-	       || {clause, AnnoLc, Args, Gs, B} = Clause <- Cs},
-	     false, Acc};
-	_ ->
-	    {Form, false, Acc}
-    end;
-wrap_fun(_, Form, _, Acc, _, _, _, _) ->
-    {Form, false, Acc}.
-
-fix_vars(Vars, F, A, Clause) ->
-    %% erl_syntax_lib:variables/1 doesn't seem to work with just a clause...
-    Anno1 = erl_anno:new(1),
-    Used = sets:to_list(erl_syntax_lib:variables({function,Anno1,F,A,Clause})),
-    {var, Anno1, fix_var(V, Used)} || V <- Vars.
-
-fix_var(V, Used) ->
-    case lists:member(V, Used) of
-	true -> V;
-	false ->
-	    list_to_atom("_" ++ atom_to_list(V))
-    end.
-
-
-export_funs(Forms, #st{vars = Vs, funs = Fs}, C) ->
-    Anno1 = erl_anno:new(1),
-    New = {attribute,Anno1,export,{new,length(Vs)}},
-	   {attribute,Anno1,export,{F,A+1} || {F,A} <- Fs},
-    parse_trans:do_insert_forms(above, New, Forms, C).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/examples/t.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/examples/t_ex.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/examples/test.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/examples/test_exprecs.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/examples/test_exprecs_vsns.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/examples/test_pt.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/examples/test_transform_mod.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/include Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/include/codegen.hrl Deleted

@@ -1,24 +0,0 @@
-%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*-
-%% --------------------------------------------------
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-%% --------------------------------------------------
-%% File    : codegen.hrl
-%% @author  : Ulf Wiger <ulf@wiger.net>
-%% @end
-%% Description :
-%%
-%% Created : 25 Feb 2010 by Ulf Wiger <ulf@wiger.net>
-%%-------------------------------------------------------------------
--compile({parse_transform, parse_trans_codegen}).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/include/exprecs.hrl Deleted

@@ -1,24 +0,0 @@
-%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*-
-%% --------------------------------------------------
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-%% --------------------------------------------------
-%% File    : exprecs.hrl
-%% @author  : Ulf Wiger <ulf@wiger.net>
-%% @end
-%% Description :
-%%
-%% Created : 25 Feb 2010 by Ulf Wiger <ulf@wiger.net>
-%%-------------------------------------------------------------------
--compile({parse_transform, exprecs}).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/rebar.config Deleted

@@ -1,43 +0,0 @@
-%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*-
-%% --------------------------------------------------
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-%% --------------------------------------------------
-
-{minimum_otp_vsn, "21.0"}.
-
-{erl_first_files, "src/parse_trans.erl",
-                   "src/parse_trans_pp.erl",
-                   "src/parse_trans_codegen.erl"}.
-
-{erl_opts, debug_info
-           }.
-{xref_checks, undefined_function_calls}.
-
-{profiles,
- {docs,
-   
-    {deps, {edown, "0.8.1"}},
-    {edoc_opts, {doclet, edown_doclet},
-                 {top_level_readme,
-                  {"./README.md",
-                   "http://github.com/uwiger/parse_trans",
-                   "master"}}}
-   },
-  {test,
-   
-    {extra_src_dirs, "examples"}
-   
-  }
- }.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/rebar.lock Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/rebar3 Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/src Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/src/ct_expand.erl Deleted

@@ -1,249 +0,0 @@
-%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*-
-%% --------------------------------------------------
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-%% --------------------------------------------------
-%% File    : ct_expand.erl
-%% @author  : Ulf Wiger <ulf@wiger.net>
-%% @end
-%% Created : 7 Apr 2010 by Ulf Wiger <ulf@wiger.net>
-%%-------------------------------------------------------------------
-
-%% @doc Compile-time expansion utility
-%%
-%% This module serves as an example of parse_trans-based transforms,
-%% but might also be a useful utility in its own right.
-%% The transform searches for calls to the pseudo-function
-%% `ct_expand:term(Expr)', and then replaces the call site with the
-%% result of evaluating `Expr' at compile-time.
-%%
-%% For example, the line
-%%
-%% `ct_expand:term(lists:sort(3,5,2,1,4))'
-%%
-%% would be expanded at compile-time to `1,2,3,4,5'.
-%%
-%% ct_expand has now been extended to also evaluate calls to local functions.
-%% See examples/ct_expand_test.erl for some examples.
-%%
-%% A debugging facility exists: passing the option {ct_expand_trace, Flags} as an option,
-%% or adding a compiler attribute -ct_expand_trace(Flags) will enable a form of call trace.
-%%
-%% `Flags' can be `' (no trace) or `F', where `F' is `c' (call trace),
-%% `r' (return trace), or `x' (exception trace)'.
-%%
-%% @end
--module(ct_expand).
--export(parse_transform/2).
-
--export(extract_fun/3,
-         lfun_rewrite/2).
-
--type form()    :: any().
--type forms()   :: form().
--type options() :: {atom(), any()}.
-
-
--spec parse_transform(forms(), options()) ->
-    forms().
-parse_transform(Forms, Options) ->
-    Trace = ct_trace_opt(Options, Forms),
-    case parse_trans:depth_first(fun(T,F,C,A) ->
-                                         xform_fun(T,F,C,A,Forms, Trace)
-                                 end, , Forms, Options) of
-        {error, Es} ->
-            Es ++ Forms;
-        {NewForms, _} ->
-            parse_trans:revert(NewForms)
-    end.
-
-ct_trace_opt(Options, Forms) ->
-    case proplists:get_value(ct_expand_trace, Options) of
-        undefined ->
-            case Opt || {attribute,_,compile,{ct_expand_trace,Opt}} <- Forms of
-                 ->
-                    ;
-                _|_ = L ->
-                    lists:last(L)
-            end;
-        Flags when is_list(Flags) ->
-            Flags
-    end.
-
-xform_fun(application, Form, _Ctxt, Acc, Forms, Trace) ->
-    MFA = erl_syntax_lib:analyze_application(Form),
-    case MFA of
-        {?MODULE, {term, 1}} ->
-            LFH = fun(Name, Args, Bs) ->
-                          eval_lfun(
-                            extract_fun(Name, length(Args), Forms),
-                            Args, Bs, Forms, Trace)
-                  end,
-            Args = erl_syntax:application_arguments(Form),
-            RevArgs = parse_trans:revert(Args),
-            case erl_eval:exprs(RevArgs, , {eval, LFH}) of
-                {value, Value,} ->
-                    {abstract(Value), Acc};
-                Other ->
-                    parse_trans:error(cannot_evaluate,?LINE,
-                                      {expr, RevArgs},
-                                       {error, Other})
-            end;
-        _ ->
-            {Form, Acc}
-    end;
-xform_fun(_, Form, _Ctxt, Acc, _, _) ->
-    {Form, Acc}.
-
-extract_fun(Name, Arity, Forms) ->
-    case F_ || {function,_,N_,A_,_Cs} = F_ <- Forms,
-                N_ == Name, A_ == Arity of
-         ->
-            erlang:error({undef, {Name, Arity}});
-        FForm ->
-            FForm
-    end.
-
-eval_lfun({function,L,F,_,Clauses}, Args, Bs, Forms, Trace) ->
-    Line = erl_anno:line(L),
-    try
-        {ArgsV, Bs1} = lists:mapfoldl(
-                         fun(A, Bs_) ->
-                                 {value,AV,Bs1_} =
-                                     erl_eval:expr(A, Bs_, lfh(Forms, Trace)),
-                                 {abstract(AV), Bs1_}
-                         end, Bs, Args),
-        Expr = {call, L, {'fun', L, {clauses, lfun_rewrite(Clauses, Forms)}}, ArgsV},
-        call_trace(Trace =/= , Line, F, ArgsV),
-        {value, Ret, _} =
-            erl_eval:expr(Expr, erl_eval:new_bindings(), lfh(Forms, Trace)),
-        ret_trace(lists:member(r, Trace) orelse lists:member(x, Trace),
-                  Line, F, Args, Ret),
-        %% restore bindings
-        {value, Ret, Bs1}
-    catch
-        error:Err ->
-            exception_trace(lists:member(x, Trace), Line, F, Args, Err),
-            error(Err)
-    end.
-
-lfh(Forms, Trace) ->
-    {eval, fun(Name, As, Bs1) ->
-                   eval_lfun(
-                     extract_fun(Name, length(As), Forms),
-                     As, Bs1, Forms, Trace)
-           end}.
-
-call_trace(false, _, _, _) -> ok;
-call_trace(true, L, F, As) ->
-    io:fwrite("ct_expand (~w): call ~s~n", L, pp_function(F, As)).
-
-pp_function(F, ) ->
-    atom_to_list(F) ++ "()";
-pp_function(F, A|As) ->
-    lists:flatten(atom_to_list(F), "(",
-                   pp_term(A) |
-                    ",", pp_term(A_) || A_ <- As,
-                   ")").
-
-pp_term({'fun',_, {clauses,_}} = F) ->
-    %% erl_parse:normalise/1 doesn't handle this
-    io_lib:fwrite("~s", erl_prettypr:format(F));
-pp_term(F) ->
-    io_lib:fwrite("~p", erl_parse:normalise(F)).
-
-ret_trace(false, _, _, _, _) -> ok;
-ret_trace(true, L, F, Args, Res) ->
-    io:fwrite("ct_expand (~w): returned from ~w/~w: ~w~n",
-              L, F, length(Args), Res).
-
-exception_trace(false, _, _, _, _) -> ok;
-exception_trace(true, L, F, Args, Err) ->
-    io:fwrite("ct_expand (~w): exception from ~w/~w: ~p~n", L, F, length(Args), Err).
-
-
-lfun_rewrite(Exprs, Forms) ->
-    parse_trans:plain_transform(
-      fun({'fun',L,{function,F,A}}) ->
-              {function,_,_,_,Cs} = extract_fun(F, A, Forms),
-              {'fun',L,{clauses, Cs}};
-         (_) ->
-              continue
-      end, Exprs).
-
-
-%% abstract/1 - modified from erl_eval:abstract/1:
--type abstract_expr() :: term().
--spec abstract(Data) -> AbsTerm when
-      Data :: term(),
-      AbsTerm :: abstract_expr().
-abstract(T) ->
-    abstract(T, erl_anno:new(0)).
-
-abstract(T, A) when is_function(T) ->
-    case erlang:fun_info(T, module) of
-        {module, erl_eval} ->
-            case erl_eval:fun_data(T) of
-                {fun_data, _Imports, Clauses} ->
-                    {'fun', A, {clauses, Clauses}};
-                false ->
-                    erlang:error(function_clause)  % mimicking erl_parse:abstract(T)
-            end;
-        _ ->
-            erlang:error(function_clause)
-    end;
-abstract(T, A) when is_integer(T) -> {integer,A,T};
-abstract(T, A) when is_float(T) -> {float,A,T};
-abstract(T, A) when is_atom(T) -> {atom,A,T};
-abstract(, A) -> {nil,A};
-abstract(B, A) when is_bitstring(B) ->
-    {bin, A, abstract_byte(Byte, A) || Byte <- bitstring_to_list(B)};
-abstract(C|T, A) when is_integer(C), 0 =< C, C < 256 ->
-    abstract_string(T, C, A);
-abstract(H|T, A) ->
-    {cons,A,abstract(H, A),abstract(T, A)};
-abstract(Map, A) when is_map(Map) ->
-    {map,A,abstract_map(Map, A)};
-abstract(Tuple, A) when is_tuple(Tuple) ->
-    {tuple,A,abstract_list(tuple_to_list(Tuple), A)}.
-
-abstract_string(C|T, String, A) when is_integer(C), 0 =< C, C < 256 ->
-    abstract_string(T, C|String, A);
-abstract_string(, String, A) ->
-    {string, A, lists:reverse(String)};
-abstract_string(T, String, A) ->
-    not_string(String, abstract(T, A), A).
-
-not_string(C|T, Result, A) ->
-    not_string(T, {cons, A, {integer, A, C}, Result}, A);
-not_string(, Result, _A) ->
-    Result.
-
-abstract_list(H|T, A) ->
-    abstract(H, A)|abstract_list(T, A);
-abstract_list(, _A) ->
-    .
-
-abstract_map(Map, A) ->
-    {map_field_assoc,A,abstract(K, A),abstract(V, A)}
-     || {K,V} <- lists:sort(maps:to_list(Map))
-    .
-
-abstract_byte(Byte, Line) when is_integer(Byte) ->
-    {bin_element, Line, {integer, Line, Byte}, default, default};
-abstract_byte(Bits, Line) ->
-    Sz = bit_size(Bits),
-    <<Val:Sz>> = Bits,
-    {bin_element, Line, {integer, Line, Val}, {integer, Line, Sz}, default}.
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/src/exprecs.erl Deleted

@@ -1,1626 +0,0 @@
-%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*-
-%% --------------------------------------------------
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-%% --------------------------------------------------
-%% File    : exprecs.erl
-%% @author  : Ulf Wiger <ulf@wiger.net>
-%% @end
-%% Description :
-%%
-%% Created : 13 Feb 2006 by Ulf Wiger <ulf@wiger.net>
-%% Rewritten: Jan-Feb 2010 by Ulf Wiger <ulf@wiger.net>
-%%-------------------------------------------------------------------
-
-%% @doc Parse transform for generating record access functions.
-%% <p>This parse transform can be used to reduce compile-time
-%% dependencies in large systems.</p>
-%% <p>In the old days, before records, Erlang programmers often wrote
-%% access functions for tuple data. This was tedious and error-prone.
-%% The record syntax made this easier, but since records were implemented
-%% fully in the pre-processor, a nasty compile-time dependency was
-%% introduced.</p>
-%% <p>This module automates the generation of access functions for
-%% records. While this method cannot fully replace the utility of
-%% pattern matching, it does allow a fair bit of functionality on
-%% records without the need for compile-time dependencies.</p>
-%% <p>Whenever record definitions need to be exported from a module,
-%% inserting a compiler attribute,
-%% <code>export_records(RecName|...)</code> causes this transform
-%% to lay out access functions for the exported records:</p>
-%%
-%% As an example, consider the following module:
-%% <pre lang="erlang">
-%% -module(test_exprecs).
-%%
-%% -record(r,{a = 0 :: integer(),b = 0 :: integer(),c = 0 :: integer()}).
-%% -record(s,{a}).
-%% -record(t,{}).
-%%
-%% -export_records(r,s,t).
-%%
-%% -export_type('#prop-r'/0,
-%%               '#attr-r'/0,
-%%               '#prop-s'/0,
-%%               '#attr-s'/0,
-%%               '#prop-t'/0,
-%%               '#attr-t'/0).
-%%
-%% -type '#prop-s'() :: {a, any()}.
-%%
-%% -type '#attr-s'() :: a.
-%%
-%% -type '#prop-r'() :: {a, any()} | {b, any()} | {c, any()}.
-%%
-%% -type '#attr-r'() :: a | b | c.
-%%
-%% -type '#prop-t'() :: any().
-%%
-%% -type '#attr-t'() :: any().
-%%
-%% -spec '#exported_records-'() -&gt; r | s | t.
-%%
-%% -spec '#new-'(r) -&gt; #r{};
-%%              (s) -&gt; #s{};
-%%              (t) -&gt; #t{}.
-%%
-%% -spec '#info-'(r) -&gt; '#attr-r'();
-%%               (s) -&gt; '#attr-s'();
-%%               (t) -&gt; '#attr-t'().
-%%
-%% -spec '#info-'(r, size) -&gt; 4;
-%%               (r, fields) -&gt; '#attr-r'();
-%%               (s, size) -&gt; 2;
-%%               (s, fields) -&gt; '#attr-s'();
-%%               (t, size) -&gt; 1;
-%%               (t, fields) -&gt; '#attr-t'().
-%%
-%% -spec '#pos-'(r, a) -&gt; 1;
-%%              (r, b) -&gt; 2;
-%%              (r, c) -&gt; 3;
-%%              (s, a) -&gt; 1.
-%%
-%% -spec '#is_record-'(any()) -&gt; boolean().
-%%
-%% -spec '#is_record-'(any(), any()) -&gt; boolean().
-%%
-%% -spec '#get-'(a, #s{}) -&gt; any();
-%%              (a, #r{}) -&gt; any();
-%%              (b, #r{}) -&gt; any();
-%%              (c, #r{}) -&gt; any();
-%%              ('#attr-t'(), #t{}) -&gt; ;
-%%              ('#attr-s'(), #s{}) -&gt; any();
-%%              ('#attr-r'(), #r{}) -&gt; any().
-%%
-%% -spec '#set-'('#prop-r'(), #r{}) -&gt; #r{};
-%%              ('#prop-s'(), #s{}) -&gt; #s{};
-%%              ('#prop-t'(), #t{}) -&gt; #t{}.
-%%
-%% -spec '#fromlist-'('#prop-r'(), #r{}) -&gt; #r{};
-%%                   ('#prop-s'(), #s{}) -&gt; #s{};
-%%                   ('#prop-t'(), #t{}) -&gt; #t{}.
-%%
-%% -spec '#frommap-'(#{a =&gt; any(), b =&gt; any(), c =&gt; any()}, #r{}) -&gt; #r{};
-%%                  (#{a =&gt; any()}, #s{}) -&gt; #s{};
-%%                  (#{}, #t{}) -&gt; #t{}.
-%%
-%% -spec '#lens-'('#attr-r'(), r) -&gt;
-%%                   {fun((#r{}) -&gt; any()), fun((any(), #r{}) -&gt; #r{})};
-%%               ('#attr-s'(), s) -&gt;
-%%                   {fun((#s{}) -&gt; any()), fun((any(), #s{}) -&gt; #s{})};
-%%               ('#attr-t'(), t) -&gt;
-%%                   {fun((#t{}) -&gt; any()), fun((any(), #t{}) -&gt; #t{})}.
-%%
-%% -spec '#new-r'() -&gt; #r{}.
-%%
-%% -spec '#new-r'('#prop-r'()) -&gt; #r{}.
-%%
-%% -spec '#get-r'(a, #r{}) -&gt; any();
-%%               (b, #r{}) -&gt; any();
-%%               (c, #r{}) -&gt; any();
-%%               ('#attr-r'(), #r{}) -&gt; any().
-%%
-%% -spec '#set-r'('#prop-r'(), #r{}) -&gt; #r{}.
-%%
-%% -spec '#fromlist-r'('#prop-r'()) -&gt; #r{}.
-%%
-%% -spec '#fromlist-r'('#prop-r'(), #r{}) -&gt; #r{}.
-%%
-%% -spec '#frommap-r'(#{a =&gt; any(), b =&gt; any(), c =&gt; any()}) -&gt; #r{}.
-%%
-%% -spec '#frommap-r'(#{a =&gt; any(), b =&gt; any(), c =&gt; any()}, #r{}) -&gt; #r{}.
-%%
-%% -spec '#pos-r'('#attr-r'() | atom()) -&gt; integer().
-%%
-%% -spec '#info-r'(fields) -&gt; a | b | c;
-%%                (size) -&gt; 4.
-%%
-%% -spec '#lens-r'('#attr-r'()) -&gt;
-%%                    {fun((#r{}) -&gt; any()), fun((any(), #r{}) -&gt; #r{})}.
-%%
-%% -spec '#new-s'() -&gt; #s{}.
-%%
-%% -spec '#new-s'('#prop-s'()) -&gt; #s{}.
-%%
-%% -spec '#get-s'(a, #s{}) -&gt; any();
-%%               ('#attr-s'(), #s{}) -&gt; any().
-%%
-%% -spec '#set-s'('#prop-s'(), #s{}) -&gt; #s{}.
-%%
-%% -spec '#fromlist-s'('#prop-s'()) -&gt; #s{}.
-%%
-%% -spec '#fromlist-s'('#prop-s'(), #s{}) -&gt; #s{}.
-%%
-%% -spec '#frommap-s'(#{a =&gt; any()}) -&gt; #s{}.
-%%
-%% -spec '#frommap-s'(#{a =&gt; any()}, #s{}) -&gt; #s{}.
-%%
-%% -spec '#pos-s'('#attr-s'() | atom()) -&gt; integer().
-%%
-%% -spec '#info-s'(fields) -&gt; a;
-%%                (size) -&gt; 2.
-%%
-%% -spec '#lens-s'('#attr-s'()) -&gt;
-%%                    {fun((#s{}) -&gt; any()), fun((any(), #s{}) -&gt; #s{})}.
-%%
-%% -spec '#new-t'() -&gt; #t{}.
-%%
-%% -spec '#new-t'('#prop-t'()) -&gt; #t{}.
-%%
-%% -spec '#get-t'('#attr-t'(), #t{}) -&gt; any().
-%%
-%% -spec '#set-t'('#prop-t'(), #t{}) -&gt; #t{}.
-%%
-%% -spec '#fromlist-t'('#prop-t'()) -&gt; #t{}.
-%%
-%% -spec '#fromlist-t'('#prop-t'(), #t{}) -&gt; #t{}.
-%%
-%% -spec '#frommap-t'(#{}) -&gt; #t{}.
-%%
-%% -spec '#frommap-t'(#{}, #t{}) -&gt; #t{}.
-%%
-%% -spec '#pos-t'('#attr-t'() | atom()) -&gt; integer().
-%%
-%% -spec '#info-t'(fields) -&gt; ;
-%%                (size) -&gt; 1.
-%%
-%% -spec '#lens-t'('#attr-t'()) -&gt;
-%%                    {fun((#t{}) -&gt; any()), fun((any(), #t{}) -&gt; #t{})}.
-%%
-%% -file("c:/git/etp/_checkouts/parse_trans/examples/test_exprecs.erl", 1).
-%%
-%% '#exported_records-'() -&gt;
-%%     r,s,t.
-%%
-%% '#new-'(r) -&gt;
-%%     '#new-r'();
-%% '#new-'(s) -&gt;
-%%     '#new-s'();
-%% '#new-'(t) -&gt;
-%%     '#new-t'().
-%%
-%% '#info-'(RecName) -&gt;
-%%     '#info-'(RecName, fields).
-%%
-%% '#info-'(r, Info) -&gt;
-%%     '#info-r'(Info);
-%% '#info-'(s, Info) -&gt;
-%%     '#info-s'(Info);
-%% '#info-'(t, Info) -&gt;
-%%     '#info-t'(Info).
-%%
-%% '#pos-'(r, Attr) -&gt;
-%%     '#pos-r'(Attr);
-%% '#pos-'(s, Attr) -&gt;
-%%     '#pos-s'(Attr);
-%% '#pos-'(t, Attr) -&gt;
-%%     '#pos-t'(Attr).
-%%
-%% '#is_record-'(X) -&gt;
-%%     if
-%%         is_record(X, r, 4) -&gt;
-%%             true;
-%%         is_record(X, s, 2) -&gt;
-%%             true;
-%%         is_record(X, t, 1) -&gt;
-%%             true;
-%%         true -&gt;
-%%             false
-%%     end.
-%%
-%% '#is_record-'(t, Rec) when tuple_size(Rec) == 1, element(1, Rec) == t -&gt;
-%%     true;
-%% '#is_record-'(s, Rec) when tuple_size(Rec) == 2, element(1, Rec) == s -&gt;
-%%     true;
-%% '#is_record-'(r, Rec) when tuple_size(Rec) == 4, element(1, Rec) == r -&gt;
-%%     true;
-%% '#is_record-'(_, _) -&gt;
-%%     false.
-%%
-%% '#get-'(Attrs, {r,_,_,_} = Rec) when true -&gt;
-%%     '#get-r'(Attrs, Rec);
-%% '#get-'(Attrs, {s,_} = Rec) when true -&gt;
-%%     '#get-s'(Attrs, Rec);
-%% '#get-'(Attrs, {t} = Rec) when true -&gt;
-%%     '#get-t'(Attrs, Rec).
-%%
-%% '#set-'(Vals, {r,_,_,_} = Rec) when true -&gt;
-%%     '#set-r'(Vals, Rec);
-%% '#set-'(Vals, {s,_} = Rec) when true -&gt;
-%%     '#set-s'(Vals, Rec);
-%% '#set-'(Vals, {t} = Rec) when true -&gt;
-%%     '#set-t'(Vals, Rec).
-%%
-%% '#fromlist-'(Vals, {r,_,_,_} = Rec) when true -&gt;
-%%     '#fromlist-r'(Vals, Rec);
-%% '#fromlist-'(Vals, {s,_} = Rec) when true -&gt;
-%%     '#fromlist-s'(Vals, Rec);
-%% '#fromlist-'(Vals, {t} = Rec) when true -&gt;
-%%     '#fromlist-t'(Vals, Rec).
-%%
-%% '#frommap-'(Vals, {r,_,_,_} = Rec) when true -&gt;
-%%     '#frommap-r'(Vals, Rec);
-%% '#frommap-'(Vals, {s,_} = Rec) when true -&gt;
-%%     '#frommap-s'(Vals, Rec);
-%% '#frommap-'(Vals, {t} = Rec) when true -&gt;
-%%     '#frommap-t'(Vals, Rec).
-%%
-%% '#lens-'(Attr, r) -&gt;
-%%     '#lens-r'(Attr);
-%% '#lens-'(Attr, s) -&gt;
-%%     '#lens-s'(Attr);
-%% '#lens-'(Attr, t) -&gt;
-%%     '#lens-t'(Attr).
-%%
-%% '#new-r'() -&gt;
-%%     {r,0,0,0}.
-%%
-%% '#new-r'(Vals) -&gt;
-%%     '#set-r'(Vals, {r,0,0,0}).
-%%
-%% '#get-r'(Attrs, R) when is_list(Attrs) -&gt;
-%%     
-%%      '#get-r'(A, R) ||
-%%          A &lt;- Attrs
-%%     ;
-%% '#get-r'(a, R) -&gt;
-%%     case R of
-%%         {r,rec0,_,_} -&gt;
-%%             rec0;
-%%         _ -&gt;
-%%             error({badrecord,r})
-%%     end;
-%% '#get-r'(b, R) -&gt;
-%%     case R of
-%%         {r,_,rec1,_} -&gt;
-%%             rec1;
-%%         _ -&gt;
-%%             error({badrecord,r})
-%%     end;
-%% '#get-r'(c, R) -&gt;
-%%     case R of
-%%         {r,_,_,rec2} -&gt;
-%%             rec2;
-%%         _ -&gt;
-%%             error({badrecord,r})
-%%     end;
-%% '#get-r'(Attr, R) -&gt;
-%%     error(bad_record_op, '#get-r',Attr,R).
-%%
-%% '#set-r'(Vals, Rec) -&gt;
-%%     F = % fun-info: {0,0,'-#set-r/2-fun-0-'}
-%%         fun(, R, _F1) -&gt;
-%%                R;
-%%            ({a,V}|T, R, F1) when is_list(T) -&gt;
-%%                F1(T,
-%%                   begin
-%%                       rec3 = R,
-%%                       case rec3 of
-%%                           {r,_,_,_} -&gt;
-%%                               setelement(2, rec3, V);
-%%                           _ -&gt;
-%%                               error({badrecord,r})
-%%                       end
-%%                   end,
-%%                   F1);
-%%            ({b,V}|T, R, F1) when is_list(T) -&gt;
-%%                F1(T,
-%%                   begin
-%%                       rec4 = R,
-%%                       case rec4 of
-%%                           {r,_,_,_} -&gt;
-%%                               setelement(3, rec4, V);
-%%                           _ -&gt;
-%%                               error({badrecord,r})
-%%                       end
-%%                   end,
-%%                   F1);
-%%            ({c,V}|T, R, F1) when is_list(T) -&gt;
-%%                F1(T,
-%%                   begin
-%%                       rec5 = R,
-%%                       case rec5 of
-%%                           {r,_,_,_} -&gt;
-%%                               setelement(4, rec5, V);
-%%                           _ -&gt;
-%%                               error({badrecord,r})
-%%                       end
-%%                   end,
-%%                   F1);
-%%            (Vs, R, _) -&gt;
-%%                error(bad_record_op, '#set-r',Vs,R)
-%%         end,
-%%     F(Vals, Rec, F).
-%%
-%% '#fromlist-r'(Vals) when is_list(Vals) -&gt;
-%%     '#fromlist-r'(Vals, '#new-r'()).
-%%
-%% '#fromlist-r'(Vals, Rec) -&gt;
-%%     AttrNames = {a,2},{b,3},{c,4},
-%%     F = % fun-info: {0,0,'-#fromlist-r/2-fun-0-'}
-%%         fun(, R, _F1) -&gt;
-%%                R;
-%%            ({H,Pos}|T, R, F1) when is_list(T) -&gt;
-%%                case lists:keyfind(H, 1, Vals) of
-%%                    false -&gt;
-%%                        F1(T, R, F1);
-%%                    {_,Val} -&gt;
-%%                        F1(T, setelement(Pos, R, Val), F1)
-%%                end
-%%         end,
-%%     F(AttrNames, Rec, F).
-%%
-%% '#frommap-r'(Vals) when is_map(Vals) -&gt;
-%%     '#frommap-r'(Vals, '#new-r'()).
-%%
-%% '#frommap-r'(Vals, Rec) -&gt;
-%%     List = maps:to_list(Vals),
-%%     '#fromlist-r'(List, Rec).
-%%
-%% '#pos-r'(a) -&gt;
-%%     2;
-%% '#pos-r'(b) -&gt;
-%%     3;
-%% '#pos-r'(c) -&gt;
-%%     4;
-%% '#pos-r'(A) when is_atom(A) -&gt;
-%%     0.
-%%
-%% '#info-r'(fields) -&gt;
-%%     a,b,c;
-%% '#info-r'(size) -&gt;
-%%     4.
-%%
-%% '#lens-r'(a) -&gt;
-%%     {% fun-info: {0,0,'-#lens-r/1-fun-0-'}
-%%      fun(R) -&gt;
-%%             '#get-r'(a, R)
-%%      end,
-%%      % fun-info: {0,0,'-#lens-r/1-fun-1-'}
-%%      fun(X, R) -&gt;
-%%             '#set-r'({a,X}, R)
-%%      end};
-%% '#lens-r'(b) -&gt;
-%%     {% fun-info: {0,0,'-#lens-r/1-fun-2-'}
-%%      fun(R) -&gt;
-%%             '#get-r'(b, R)
-%%      end,
-%%      % fun-info: {0,0,'-#lens-r/1-fun-3-'}
-%%      fun(X, R) -&gt;
-%%             '#set-r'({b,X}, R)
-%%      end};
-%% '#lens-r'(c) -&gt;
-%%     {% fun-info: {0,0,'-#lens-r/1-fun-4-'}
-%%      fun(R) -&gt;
-%%             '#get-r'(c, R)
-%%      end,
-%%      % fun-info: {0,0,'-#lens-r/1-fun-5-'}
-%%      fun(X, R) -&gt;
-%%             '#set-r'({c,X}, R)
-%%      end};
-%% '#lens-r'(Attr) -&gt;
-%%     error(bad_record_op, '#lens-r',Attr).
-%%
-%% '#new-s'() -&gt;
-%%     {s,undefined}.
-%%
-%% '#new-s'(Vals) -&gt;
-%%     '#set-s'(Vals, {s,undefined}).
-%%
-%% '#get-s'(Attrs, R) when is_list(Attrs) -&gt;
-%%     
-%%      '#get-s'(A, R) ||
-%%          A &lt;- Attrs
-%%     ;
-%% '#get-s'(a, R) -&gt;
-%%     case R of
-%%         {s,rec6} -&gt;
-%%             rec6;
-%%         _ -&gt;
-%%             error({badrecord,s})
-%%     end;
-%% '#get-s'(Attr, R) -&gt;
-%%     error(bad_record_op, '#get-s',Attr,R).
-%%
-%% '#set-s'(Vals, Rec) -&gt;
-%%     F = % fun-info: {0,0,'-#set-s/2-fun-0-'}
-%%         fun(, R, _F1) -&gt;
-%%                R;
-%%            ({a,V}|T, R, F1) when is_list(T) -&gt;
-%%                F1(T,
-%%                   begin
-%%                       rec7 = R,
-%%                       case rec7 of
-%%                           {s,rec8} -&gt;
-%%                               {s,V};
-%%                           _ -&gt;
-%%                               error({badrecord,s})
-%%                       end
-%%                   end,
-%%                   F1);
-%%            (Vs, R, _) -&gt;
-%%                error(bad_record_op, '#set-s',Vs,R)
-%%         end,
-%%     F(Vals, Rec, F).
-%%
-%% '#fromlist-s'(Vals) when is_list(Vals) -&gt;
-%%     '#fromlist-s'(Vals, '#new-s'()).
-%%
-%% '#fromlist-s'(Vals, Rec) -&gt;
-%%     AttrNames = {a,2},
-%%     F = % fun-info: {0,0,'-#fromlist-s/2-fun-0-'}
-%%         fun(, R, _F1) -&gt;
-%%                R;
-%%            ({H,Pos}|T, R, F1) when is_list(T) -&gt;
-%%                case lists:keyfind(H, 1, Vals) of
-%%                    false -&gt;
-%%                        F1(T, R, F1);
-%%                    {_,Val} -&gt;
-%%                        F1(T, setelement(Pos, R, Val), F1)
-%%                end
-%%         end,
-%%     F(AttrNames, Rec, F).
-%%
-%% '#frommap-s'(Vals) when is_map(Vals) -&gt;
-%%     '#frommap-s'(Vals, '#new-s'()).
-%%
-%% '#frommap-s'(Vals, Rec) -&gt;
-%%     List = maps:to_list(Vals),
-%%     '#fromlist-s'(List, Rec).
-%%
-%% '#pos-s'(a) -&gt;
-%%     2;
-%% '#pos-s'(A) when is_atom(A) -&gt;
-%%     0.
-%%
-%% '#info-s'(fields) -&gt;
-%%     a;
-%% '#info-s'(size) -&gt;
-%%     2.
-%%
-%% '#lens-s'(a) -&gt;
-%%     {% fun-info: {0,0,'-#lens-s/1-fun-0-'}
-%%      fun(R) -&gt;
-%%             '#get-s'(a, R)
-%%      end,
-%%      % fun-info: {0,0,'-#lens-s/1-fun-1-'}
-%%      fun(X, R) -&gt;
-%%             '#set-s'({a,X}, R)
-%%      end};
-%% '#lens-s'(Attr) -&gt;
-%%     error(bad_record_op, '#lens-s',Attr).
-%%
-%% '#new-t'() -&gt;
-%%     {t}.
-%%
-%% '#new-t'(Vals) -&gt;
-%%     '#set-t'(Vals, {t}).
-%%
-%% '#get-t'(Attrs, R) when is_list(Attrs) -&gt;
-%%     
-%%      '#get-t'(A, R) ||
-%%          A &lt;- Attrs
-%%     ;
-%% '#get-t'(Attr, R) -&gt;
-%%     error(bad_record_op, '#get-t',Attr,R).
-%%
-%% '#set-t'(Vals, Rec) -&gt;
-%%     F = % fun-info: {0,0,'-#set-t/2-fun-0-'}
-%%         fun(, R, _F1) -&gt;
-%%                R;
-%%            (Vs, R, _) -&gt;
-%%                error(bad_record_op, '#set-t',Vs,R)
-%%         end,
-%%     F(Vals, Rec, F).
-%%
-%% '#fromlist-t'(Vals) when is_list(Vals) -&gt;
-%%     '#fromlist-t'(Vals, '#new-t'()).
-%%
-%% '#fromlist-t'(Vals, Rec) -&gt;
-%%     AttrNames = ,
-%%     F = % fun-info: {0,0,'-#fromlist-t/2-fun-0-'}
-%%         fun(, R, _F1) -&gt;
-%%                R;
-%%            ({H,Pos}|T, R, F1) when is_list(T) -&gt;
-%%                case lists:keyfind(H, 1, Vals) of
-%%                    false -&gt;
-%%                        F1(T, R, F1);
-%%                    {_,Val} -&gt;
-%%                        F1(T, setelement(Pos, R, Val), F1)
-%%                end
-%%         end,
-%%     F(AttrNames, Rec, F).
-%%
-%% '#frommap-t'(Vals) when is_map(Vals) -&gt;
-%%     '#frommap-t'(Vals, '#new-t'()).
-%%
-%% '#frommap-t'(Vals, Rec) -&gt;
-%%     List = maps:to_list(Vals),
-%%     '#fromlist-t'(List, Rec).
-%%
-%% '#pos-t'(A) when is_atom(A) -&gt;
-%%     0.
-%%
-%% '#info-t'(fields) -&gt;
-%%     ;
-%% '#info-t'(size) -&gt;
-%%     1.
-%%
-%% '#lens-t'(Attr) -&gt;
-%%     error(bad_record_op, '#lens-t',Attr).
-%%
-%% f() -&gt;
-%%     foo.
-%% </pre>
-%%
-%% It is possible to modify the naming rules of exprecs, through the use
-%% of the following attributes (example reflecting the current rules):
-%%
-%% <pre>
-%% -exprecs_prefix("#", operation, "-").
-%% -exprecs_fname(prefix, record).
-%% -exprecs_vfname(fname, "__", version).
-%% </pre>
-%%
-%% The lists must contain strings or any of the following control atoms:
-%% <ul>
-%% <li>in `exprecs_prefix': `operation'</li>
-%% <li>in `exprecs_fname': `operation', `record', `prefix'</li>
-%% <li>in `exprecs_vfname': `operation', `record', `prefix', `fname', `version'
-%% </li>
-%% </ul>
-%%
-%% Exprecs will substitute the control atoms with the string values of the
-%% corresponding items. The result will then be flattened and converted to an
-%% atom (a valid function or type name).
-%%
-%% `operation' is one of:
-%% <dl>
-%% <dt>`new'</dt> <dd>Creates a new record</dd>
-%% <dt>`get'</dt> <dd>Retrieves given attribute values from a record</dd>
-%% <dt>`set'</dt> <dd>Sets given attribute values in a record</dd>
-%% <dt>`fromlist'</dt> <dd>Creates a record from a key-value list</dd>
-%% <dt>`info'</dt> <dd>Equivalent to record_info/2</dd>
-%% <dt>`pos'</dt> <dd>Returns the position of a given attribute</dd>
-%% <dt>`is_record'</dt> <dd>Tests if a value is a specific record</dd>
-%% <dt>`convert'</dt> <dd>Converts an old record to the current version</dd>
-%% <dt>`prop'</dt> <dd>Used only in type specs</dd>
-%% <dt>`attr'</dt> <dd>Used only in type specs</dd>
-%% <dt>`lens'</dt> <dd>Returns a 'lens' (an accessor pair) as described in
-%%              http://github.com/jlouis/erl-lenses</dd>
-%% </dl>
-%%
-%% @end
-
--module(exprecs).
-
--export(parse_transform/2,
-         format_error/1,
-%        transform/3,
-         context/2).
-
--record(context, {module,
-                  function,
-                  arity}).
-
--record(pass1, {exports = ,
-                generated = false,
-                records = ,
-                record_types = ,
-                versions = orddict:new(),
-                inserted = false,
-                prefix = "#", operation, "-",
-                fname = prefix, record,
-                vfname = fname, "__", version}).
-
--include("../include/codegen.hrl").
-
--define(HERE, {?MODULE, ?LINE}).
-
--define(ERROR(R, F, I),
-        begin
-            rpt_error(R, F, I),
-            throw({error,get_pos(I),{unknown,R}})
-        end).
-
--type form()    :: any().
--type forms()   :: form().
--type options() :: {atom(), any()}.
-
-
-get_pos(I) ->
-    case proplists:get_value(form, I) of
-        undefined ->
-            0;
-        Form ->
-            Anno = erl_syntax:get_pos(Form),
-            erl_anno:location(Anno)
-    end.
-
--spec parse_transform(forms(), options()) ->
-    forms().
-parse_transform(Forms, Options) ->
-    parse_trans:top(fun do_transform/2, Forms, Options).
-
-do_transform(Forms, Context) ->
-    Acc1 = versioned_records(
-             add_untyped_recs(
-               parse_trans:do_inspect(fun inspect_f/4, #pass1{},
-                                      Forms, Context))),
-    {Forms2, Acc2} =
-        parse_trans:do_transform(fun generate_f/4, Acc1, Forms, Context),
-    parse_trans:revert(verify_generated(Forms2, Acc2, Context)).
-
-add_untyped_recs(#pass1{records = Rs,
-                        record_types = RTypes,
-                        exports = Es} = Acc) ->
-    Untyped =
-        {R, Def} || {R, Def} <- Rs,
-                     lists:member(R, Es),
-                     not lists:keymember(R, 1, RTypes),
-    RTypes1 = {R, lists:map(
-                     fun({record_field,L,{atom,_,A}}) -> {A, t_any(L)};
-                        ({record_field,L,{atom,_,A},_}) -> {A, t_any(L)};
-                        ({typed_record_field,
-                          {record_field,L,{atom,_,A}},_}) -> {A, t_any(L)};
-                        ({typed_record_field,
-                          {record_field,L,{atom,_,A},_},_}) -> {A, t_any(L)}
-                     end, Def)} || {R, Def} <- Untyped,
-    Acc#pass1{record_types = RTypes ++ RTypes1}.
-
-inspect_f(attribute, {attribute,_L,exprecs_prefix,Pattern}, _Ctxt, Acc) ->
-    {false, Acc#pass1{prefix = Pattern}};
-inspect_f(attribute, {attribute,_L,exprecs_fname,Pattern}, _Ctxt, Acc) ->
-    {false, Acc#pass1{fname = Pattern}};
-inspect_f(attribute, {attribute,_L,exprecs_vfname,Pattern}, _Ctxt, Acc) ->
-    {false, Acc#pass1{vfname = Pattern}};
-inspect_f(attribute, {attribute,_L,record,RecDef}, _Ctxt, Acc) ->
-    Recs0 = Acc#pass1.records,
-    {false, Acc#pass1{records = RecDef|Recs0}};
-inspect_f(attribute, {attribute,_L,export_records, E}, _Ctxt, Acc) ->
-    Exports0 = Acc#pass1.exports,
-    NewExports = Exports0 ++ E,
-    {false, Acc#pass1{exports = NewExports}};
-inspect_f(attribute, {attribute, _L, type,
-                      {{record, R}, RType,_}}, _Ctxt, Acc) ->
-    Type = lists:map(
-             fun({typed_record_field, {record_field,_,{atom,_,A}}, T}) ->
-                     {A, T};
-                ({typed_record_field, {record_field,_,{atom,_,A},_}, T}) ->
-                     {A, T};
-                ({record_field, _, {atom,L,A}, _}) ->
-                     {A, t_any(L)};
-                ({record_field, _, {atom,L,A}}) ->
-                     {A, t_any(L)}
-             end, RType),
-    {false, Acc#pass1{record_types = {R, Type}|Acc#pass1.record_types}};
-inspect_f(_Type, _Form, _Context, Acc) ->
-    {false, Acc}.
-
-generate_f(attribute, {attribute,L,export_records,_} = Form, _Ctxt,
-            #pass1{exports = _|_ = Es, versions = Vsns,
-                   inserted = false} = Acc) ->
-    case check_record_names(Es, L, Acc) of
-        ok -> continue;
-        {error, Bad} ->
-            ?ERROR(invalid_record_exports, ?HERE, Bad)
-    end,
-    Exports = {fname(exported_records, Acc), 0},
-               {fname(new, Acc), 1},
-               {fname(info, Acc), 1},
-               {fname(info, Acc), 2},
-               {fname(pos, Acc), 2},
-               {fname(is_record, Acc), 1},
-               {fname(is_record, Acc), 2},
-               {fname(get, Acc), 2},
-               {fname(set, Acc), 2},
-               {fname(fromlist, Acc), 2},
-               {fname(frommap, Acc), 2},
-               {fname(lens, Acc), 2} |
-               lists:flatmap(
-                 fun(Rec) ->
-                         RecS = atom_to_list(Rec),
-                         FNew = fname(new, RecS, Acc),
-                         {FNew, 0}, {FNew,1},
-                          {fname(get, RecS, Acc), 2},
-                          {fname(set, RecS, Acc), 2},
-                          {fname(pos, RecS, Acc), 1},
-                          {fname(fromlist, RecS, Acc), 1},
-                          {fname(frommap, RecS, Acc), 1},
-                          {fname(fromlist, RecS, Acc), 2},
-                          {fname(frommap, RecS, Acc), 2},
-                          {fname(info, RecS, Acc), 1},
-                          {fname(lens, RecS, Acc), 1}
-                 end, Es) ++ version_exports(Vsns, Acc),
-    TypeExports =
-        lists:flatmap(
-          fun(Rec) ->
-                  {fname(prop, Rec, Acc), 0},
-                   {fname(attr, Rec, Acc), 0}
-          end, Es),
-    {, Form,
-     {attribute,L,export,Exports},
-      {attribute,L,ignore_xref,Exports},
-      {attribute,L,export_type, TypeExports},
-     false, Acc#pass1{inserted = true}};
-generate_f(function, Form, _Context, #pass1{generated = false} = Acc) ->
-    % Layout record funs before first function
-    Anno = erl_syntax:get_pos(Form),
-    L = erl_anno:location(Anno),
-    Forms = generate_specs_and_accessors(L, Acc),
-    {Forms, Form, , false, Acc#pass1{generated = true}};
-generate_f(_Type, Form, _Ctxt, Acc) ->
-    {Form, false, Acc}.
-
-generate_specs_and_accessors(L, #pass1{exports = _|_ = Es,
-                                       record_types = Ts} = Acc) ->
-    Specs = generate_specs(L, {R,T} || {R,T} <- Ts, lists:member(R, Es), Acc),
-    Funs = generate_accessors(L, Acc),
-    Specs ++ Funs;
-generate_specs_and_accessors(_, _) ->
-    .
-
-verify_generated(Forms, #pass1{} = Acc, _Context) ->
-    case (Acc#pass1.generated == true) orelse (Acc#pass1.exports == ) of
-        true ->
-            Forms;
-        false ->
-            % should be re-written to use the parse_trans helper...?
-            {eof,Last}|RevForms = lists:reverse(Forms),
-            Anno = erl_anno:new(Last),
-            {function, NewLast, _, _, _}|_ = RevAs =
-                lists:reverse(generate_specs_and_accessors(Anno, Acc)),
-            Loc = erl_anno:location(NewLast),
-            lists:reverse({eof, increment_line(Loc)} | RevAs ++ RevForms)
-    end.
-
-increment_line(L) when is_integer(L) ->
-    L + 1;
-increment_line({L, C}) when is_integer(L), is_integer(C) ->
-    {L + 1, C}.
-
-check_record_names(Es, L, #pass1{records = Rs}) ->
-    case E || E <- Es,
-               not(lists:keymember(E, 1, Rs)) of
-         ->
-            ok;
-        Bad ->
-            {error, {L,E} || E <- Bad}
-    end.
-
-versioned_records(#pass1{exports = Es, records = Rs} = Pass1) ->
-    case split_recnames(Rs) of
-         ->
-            Pass1#pass1{versions = };
-        _|_ = Versions ->
-            Exp_vsns =
-                lists:foldl(
-                  fun(Re, Acc) ->
-                          case orddict:find(atom_to_list(Re), Versions) of
-                              {ok, Vs} ->
-                                  orddict:store(Re, Vs, Acc);
-                              error ->
-                                  Acc
-                          end
-                  end, orddict:new(), Es),
-            Pass1#pass1{versions = Exp_vsns}
-    end.
-
-version_exports(, _Acc) ->
-    ;
-version_exports(_|_ = _Vsns, Acc) ->
-    {list_to_atom(fname_prefix(info, Acc)), 3},
-     {list_to_atom(fname_prefix(convert, Acc)), 2}.
-
-
-version_accessors(_L, #pass1{versions = }) ->
-    ;
-version_accessors(L, #pass1{versions = Vsns} = Acc) ->
-    Flat_vsns = flat_versions(Vsns),
-    f_convert(Vsns, L, Acc),
-     f_info_3(Vsns, L, Acc)
-        ++ f_info_1(Rname, Acc, L, V) || {Rname,V} <- Flat_vsns.
-
-flat_versions(Vsns) ->
-    lists:flatmap(fun({R,Vs}) ->
-                          {R,V} || V <- Vs
-                  end, Vsns).
-
-split_recnames(Rs) ->
-    lists:foldl(
-      fun({R,_As}, Acc) ->
-              case re:split(atom_to_list(R), "__", {return, list}) of
-                  Base, V ->
-                      orddict:append(Base,V,Acc);
-                  _ ->
-                      Acc
-              end
-      end, orddict:new(), Rs).
-
-generate_specs(L, Specs, Acc) ->
-    
-      {attribute, L, type,
-      {fname(prop, R, Acc),
-       {type, L, union,
-        {type, L, tuple, {atom,L,A},T} || {A,T} <- Attrs}, }},
-      {attribute, L, type,
-       {fname(attr, R, Acc),
-        {type, L, union,
-         {atom, L, A} || {A,_} <- Attrs}, }}
-      || {R, Attrs} <- Specs, Attrs =/=  ++
-        {attribute, L, type,
-           {fname(prop, R, Acc),
-            {type, L, any, }, }},
-          {attribute, L, type,
-           {fname(attr, R, Acc),
-            {type, L, any, }, }} || {R, } <- Specs.
-
-
-generate_accessors(L, Acc) ->
-    lists:flatten(
-      f_exported_recs(Acc, L),
-       f_new_(Acc, L),
-       f_info(Acc, L),
-       f_info_2(Acc, L),
-       f_pos_2(Acc, L),
-       f_isrec_1(Acc, L),
-       f_isrec_2(Acc, L),
-       f_get(Acc, L),
-       f_set(Acc, L),
-       f_fromlist(Acc, L),
-       f_frommap(Acc, L),
-       f_lens_(Acc, L)|
-       lists:append(
-         lists:map(
-           fun(Rname) ->
-                   Fields = get_flds(Rname, Acc),
-                   f_new_0(Rname, L, Acc),
-                    f_new_1(Rname, L, Acc),
-                    f_get_2(Rname, Fields, L, Acc),
-                    f_set_2(Rname, Fields, L, Acc),
-                    f_fromlist_1(Rname, L, Acc),
-                    f_fromlist_2(Rname, Fields, L, Acc),
-                    f_frommap_1(Rname, L, Acc),
-                    f_frommap_2(Rname, L, Acc),
-                    f_pos_1(Rname, Fields, L, Acc),
-                    f_info_1(Rname, Acc, L),
-                    f_lens_1(Rname, Fields, L, Acc)
-           end, Acc#pass1.exports)) ++ version_accessors(L, Acc)).
-
-get_flds(Rname, #pass1{records = Rs}) ->
-    {_, Flds} = lists:keyfind(Rname, 1, Rs),
-    lists:map(
-      fun({record_field,_, {atom,_,N}}) -> N;
-         ({record_field,_, {atom,_,N}, _}) -> N;
-         ({typed_record_field,{record_field,_,{atom,_,N}},_}) -> N;
-         ({typed_record_field,{record_field,_,{atom,_,N},_},_}) -> N
-      end, Flds).
-
-
-fname_prefix(Op, #pass1{prefix = Pat}) ->
-    lists:flatten(
-      lists:map(fun(operation) -> str(Op);
-                   (X) -> str(X)
-                end, Pat)).
-%% fname_prefix(Op, #pass1{} = Acc) ->
-%%     case Op of
-%%      new -> "#new-";
-%%      get -> "#get-";
-%%      set -> "#set-";
-%%      fromlist -> "#fromlist-";
-%%      info     -> "#info-";
-%%         pos      -> "#pos-";
-%%      is_record   -> "#is_record-";
-%%         convert  -> "#convert-";
-%%      prop     -> "#prop-";
-%%      attr     -> "#attr-"
-%%     end.
-
-%% fname_prefix(Op, Rname, Acc) ->
-%%     fname_prefix(Op, Acc) ++ str(Rname).
-
-str(A) when is_atom(A) ->
-    atom_to_list(A);
-str(S) when is_list(S) ->
-    S.
-
-fname(Op, #pass1{} = Acc) ->
-    list_to_atom(fname_prefix(Op, Acc)).
-    %% list_to_atom(fname_prefix(Op, Acc)).
-
-fname(Op, Rname, #pass1{fname = FPat} = Acc) ->
-    Prefix = fname_prefix(Op, Acc),
-    list_to_atom(
-      lists:flatten(
-        lists:map(fun(prefix) -> str(Prefix);
-                     (record) -> str(Rname);
-                     (operation) -> str(Op);
-                     (X) -> str(X)
-                  end, FPat))).
-    %% list_to_atom(fname_prefix(Op, Rname, Acc)).
-
-fname(Op, Rname, V, #pass1{vfname = VPat} = Acc) ->
-    list_to_atom(
-      lists:flatten(
-        lists:map(fun(prefix) -> fname_prefix(Op, Acc);
-                     (operation) -> str(Op);
-                     (record) -> str(Rname);
-                     (version) -> str(V);
-                     (fname) -> str(fname(Op, Rname, Acc));
-                     (X) -> str(X)
-                  end, VPat))).
-    %% list_to_atom(fname_prefix(Op, Rname, Acc) ++ "__" ++ V).
-
-
-%%% Meta functions
-
-f_exported_recs(#pass1{exports = Es} = Acc, L) ->
-    Fname = fname(exported_records, Acc),
-    funspec(L, Fname, ,
-             t_list(L, t_union(L, t_atom(L, E) || E <- Es))),
-     {function, L, Fname, 0,
-      {clause, L, , ,
-        erl_parse:abstract(Es, L)}}
-    .
-
-%%% Accessor functions
-%%%
-f_new_(#pass1{exports = Es} = Acc, L) ->
-    Fname = fname(new, Acc),
-    funspec(L, Fname,  {t_atom(L, E), t_record(L, E)} ||
-                           E <- Es ),
-     {function, L, fname(new, Acc), 1,
-      {clause, L, {atom, L, Re}, ,
-        {call, L, {atom, L, fname(new, Re, Acc)}, }}
-       || Re <- Es}
-    .
-
-f_new_0(Rname, L, Acc) ->
-    Fname = fname(new, Rname, Acc),
-    funspec(L, Fname, , t_record(L, Rname)),
-     {function, L, fname(new, Rname, Acc), 0,
-      {clause, L, , ,
-        {record, L, Rname, }}}
-    .
-
-
-f_new_1(Rname, L, Acc) ->
-    Fname = fname(new, Rname, Acc),
-    funspec(L, Fname, t_list(L, t_prop(L, Rname, Acc)),
-             t_record(L, Rname)),
-    {function, L, Fname, 1,
-     {clause, L, {var, L, 'Vals'}, ,
-       {call, L, {atom, L, fname(set, Rname, Acc)},
-         {var, L, 'Vals'},
-          {record, L, Rname, }
-         }
-       }}.
-
-funspec(L, Fname, {H,_} | _ = Alts) ->
-    Arity = length(H),
-    {attribute, L, spec,
-     {{Fname, Arity},
-      {type, L, 'fun', {type, L, product, Head}, Ret} ||
-          {Head, Ret} <- Alts,
-          no_empty_union(Head)}}.
-
-no_empty_union({type,_,union,}) ->
-    false;
-no_empty_union(T) when is_tuple(T) ->
-    no_empty_union(tuple_to_list(T));
-no_empty_union(H|T) ->
-    no_empty_union(H) andalso no_empty_union(T);
-no_empty_union(_) ->
-    true.
-
-
-
-
-funspec(L, Fname, Head, Returns) ->
-    Arity = length(Head),
-    {attribute, L, spec,
-     {{Fname, Arity},
-      {type, L, 'fun',
-        {type, L, product, Head}, Returns}}}.
-
-
-t_prop(L, Rname, Acc) -> {user_type, L, fname(prop, Rname, Acc), }.
-t_attr(L, Rname, Acc) -> {user_type, L, fname(attr, Rname, Acc), }.
-t_union(L, Alt)   -> {type, L, union, lists:usort(Alt)}.
-t_any(L)          -> {type, L, any, }.
-t_atom(L)         -> {type, L, atom, }.
-t_atom(L, A)      -> {atom, L, A}.
-t_integer(L)      -> {type, L, integer, }.
-t_integer(L, I)   -> {integer, L, I}.
-t_list(L, Es)     -> {type, L, list, Es}.
-t_fun(L, As, Res) -> {type, L, 'fun', {type, L, product, As}, Res}.
-t_tuple(L, Es)    -> {type, L, tuple, Es}.
-t_boolean(L)     -> {type, L, boolean, }.
-t_record(L, A)   -> {type, L, record, {atom, L, A}}.
-t_map(L, Rname, Acc) -> {type, L, map,
-                         {type, L, map_field_assoc, t_atom(L, F), t_any(L)}
-                          || F <- get_flds(Rname, Acc)
-                         
-                        }.
-
-f_set_2(Rname, Flds, L, Acc) ->
-    Fname = fname(set, Rname, Acc),
-    TRec = t_record(L, Rname),
-    funspec(L, Fname, t_list(L, t_prop(L, Rname, Acc)), TRec, TRec),
-     {function, L, Fname, 2,
-      {clause, L, {var, L, 'Vals'}, {var, L, 'Rec'}, ,
-        {match, L, {var, L, 'F'},
-          {'fun', L,
-           {clauses,
-            {clause, L, {nil,L},
-                          {var,L,'R'},
-                          {var,L,'_F1'},
-              ,
-              {var, L, 'R'}} |
-             {clause, L,
-               {cons, L, {tuple, L, {atom, L, Attr},
-                                      {var,  L, 'V'}},
-                 {var, L, 'T'}},
-                {var, L, 'R'},
-                {var, L, 'F1'},
-               {call, L, {atom, L, is_list}, {var, L, 'T'}},
-               {call, L, {var, L, 'F1'},
-                 {var,L,'T'},
-                  {record, L, {var,L,'R'}, Rname,
-                   {record_field, L,
-                     {atom, L, Attr},
-                     {var, L, 'V'}}},
-                  {var, L, 'F1'}}} || Attr <- Flds
-             ++ {clause, L, {var, L, 'Vs'}, {var,L,'R'},{var,L,'_'},
-                  ,
-                  bad_record_op(L, Fname, 'Vs', 'R')}
-            }}},
-         {call, L, {var, L, 'F'}, {var, L, 'Vals'},
-                                   {var, L, 'Rec'},
-                                   {var, L, 'F'}}}}.
-
-bad_record_op(L, Fname, Val) ->
-    {call, L, {remote, L, {atom,L,erlang}, {atom,L,error}},
-     {atom,L,bad_record_op}, {cons, L, {atom, L, Fname},
-                               {cons, L, {var, L, Val},
-                                {nil, L}}}}.
-
-bad_record_op(L, Fname, Val, R) ->
-    {call, L, {remote, L, {atom,L,erlang}, {atom,L,error}},
-     {atom,L,bad_record_op}, {cons, L, {atom, L, Fname},
-                               {cons, L, {var, L, Val},
-                                {cons, L, {var, L, R},
-                                 {nil, L}}}}}.
-
-
-f_pos_1(Rname, Flds, L, Acc) ->
-    Fname = fname(pos, Rname, Acc),
-    FieldList = lists:zip(Flds, lists:seq(2, length(Flds)+1)),
-    
-     funspec(L, Fname, t_union(L, t_attr(L, Rname, Acc),
-                                    t_atom(L)),
-             t_integer(L)),
-     {function, L, Fname, 1,
-      {clause, L,
-        {atom, L, FldName},
-        ,
-        {integer, L, Pos}} || {FldName, Pos} <- FieldList ++
-          {clause, L,
-            {var, L, 'A'},
-            {call, L, {atom, L, is_atom}, {var, L, 'A'}},
-            {integer, L, 0}}
-     }.
-
-f_frommap_1(Rname, L, Acc) ->
-    Fname = fname(frommap, Rname, Acc),
-    
-     funspec(L, Fname, t_map(L, Rname, Acc),
-             t_record(L, Rname)),
-     {function, L, Fname, 1,
-      {clause, L, {var, L, 'Vals'},
-         {call, L, {atom, L, is_map}, {var, L, 'Vals'}} ,
-        {call, L, {atom, L, Fname},
-          {var, L, 'Vals'},
-           {call, L, {atom, L, fname(new, Rname, Acc)}, }}
-        }
-      }.
-
-f_fromlist_1(Rname, L, Acc) ->
-    Fname = fname(fromlist, Rname, Acc),
-    
-     funspec(L, Fname, t_list(L, t_prop(L, Rname, Acc)),
-             t_record(L, Rname)),
-     {function, L, Fname, 1,
-      {clause, L, {var, L, 'Vals'},
-         {call, L, {atom, L, is_list}, {var, L, 'Vals'}} ,
-        {call, L, {atom, L, Fname},
-          {var, L, 'Vals'},
-           {call, L, {atom, L, fname(new, Rname, Acc)}, }}
-        }
-      }.
-
-f_frommap_2(Rname, L, Acc) ->
-    Fname = fname(frommap, Rname, Acc),
-    TRec = t_record(L, Rname),
-    
-     funspec(L, Fname, t_map(L, Rname, Acc), TRec,
-             TRec),
-     {function, L, Fname, 2,
-      {clause, L, {var, L, 'Vals'}, {var, L, 'Rec'}, ,
-        {match, L, {var, L, 'List'},
-          {call, L, {remote, L, {atom, L, maps}, {atom, L, to_list}},
-           {var, L, 'Vals'}
-          }
-         },
-         {call, L, {atom, L, fname(fromlist, Rname, Acc)},
-          {var, L, 'List'}, {var, L, 'Rec'}
-         }
-        }
-      }.
-
-f_fromlist_2(Rname, Flds, L, Acc) ->
-    Fname = fname(fromlist, Rname, Acc),
-    FldList = field_list(Flds),
-    TRec = t_record(L, Rname),
-    
-     funspec(L, Fname, t_list(L, t_prop(L, Rname, Acc)), TRec,
-             TRec),
-     {function, L, Fname, 2,
-      {clause, L, {var, L, 'Vals'}, {var, L, 'Rec'}, ,
-        {match, L, {var, L, 'AttrNames'}, FldList},
-         {match, L, {var, L, 'F'},
-          {'fun', L,
-           {clauses,
-            {clause, L, {nil, L},
-                          {var, L,'R'},
-                          {var, L,'_F1'},
-              ,
-              {var, L, 'R'}},
-             {clause, L, {cons, L,
-                           {tuple, L, {var, L, 'H'},
-                                       {var, L, 'Pos'}},
-                           {var, L, 'T'}},
-                          {var, L, 'R'}, {var, L, 'F1'},
-              {call, L, {atom, L, is_list}, {var, L, 'T'}},
-              {'case', L, {call, L, {remote, L,
-                                      {atom,L,lists},{atom,L,keyfind}},
-                            {var,L,'H'},{integer,L,1},{var,L,'Vals'}},
-                {clause, L, {atom,L,false}, ,
-                  {call, L, {var, L, 'F1'}, {var, L, 'T'},
-                                              {var, L, 'R'},
-                                              {var, L, 'F1'}}},
-                 {clause, L, {tuple, L, {var,L,'_'},{var,L,'Val'}},
-                  ,
-                  {call, L, {var, L, 'F1'},
-                    {var, L, 'T'},
-                     {call, L, {atom, L, 'setelement'},
-                      {var, L, 'Pos'}, {var, L, 'R'}, {var, L, 'Val'}},
-                     {var, L, 'F1'}}}
-                }
-              }
-            }}},
-         {call, L, {var, L, 'F'}, {var, L, 'AttrNames'},
-                                   {var, L, 'Rec'},
-                                   {var, L, 'F'}}
-        }
-      }.
-
-field_list(Flds) ->
-    erl_parse:abstract(
-      lists:zip(Flds, lists:seq(2, length(Flds)+1))).
-
-
-
-f_get_2(R, Flds, L, Acc) ->
-    FName = fname(get, R, Acc),
-    {_, Types} = lists:keyfind(R, 1, Acc#pass1.record_types),
-    funspec(L, FName,
-             {t_atom(L, A), t_record(L, R), T}
-                 || {A, T} <- Types
-             ++ {t_list(L, t_attr(L, R, Acc)), t_record(L, R),
-                  t_list(L, t_any(L))}
-            ),
-    {function, L, FName, 2,
-     {clause, L, {var, L, 'Attrs'}, {var, L, 'R'},
-       {call, L, {atom, L, is_list}, {var, L, 'Attrs'}},
-       {lc, L, {call, L, {atom, L, FName}, {var, L, 'A'}, {var, L, 'R'}},
-         {generate, L, {var, L, 'A'}, {var, L, 'Attrs'}}}
-       } |
-      {clause, L, {atom, L, Attr}, {var, L, 'R'}, ,
-        {record_field, L, {var, L, 'R'}, R, {atom, L, Attr}}} ||
-          Attr <- Flds ++
-     {clause, L, {var, L, 'Attr'}, {var, L, 'R'}, ,
-       bad_record_op(L, FName, 'Attr', 'R')}
-    }.
-
-
-f_info(Acc, L) ->
-    Fname = list_to_atom(fname_prefix(info, Acc)),
-    funspec(L, Fname,
-             {t_atom(L, R),
-               t_list(L, t_attr(L, R, Acc))}
-              || R <- Acc#pass1.exports),
-     {function, L, Fname, 1,
-      {clause, L,
-        {var, L, 'RecName'}, ,
-        {call, L, {atom, L, Fname}, {var, L, 'RecName'}, {atom, L, fields}}
-       }}
-    .
-
-f_isrec_2(#pass1{records = Rs, exports = Es} = Acc, L) ->
-    Fname = list_to_atom(fname_prefix(is_record, Acc)),
-    Info = {R,length(As) + 1} || {R,As} <- Rs, lists:member(R, Es),
-    %% This contract is correct, but is ignored by Dialyzer because it
-     %% has overlapping domains:
-     %% funspec(L, Fname,
-     %%              {t_atom(L, R), t_record(L, R), t_atom(L, true)}
-     %%               || R <- Es ++
-     %%                  {t_any(L), t_any(L), t_atom(L, false)}),
-     %% This is less specific, but more useful to Dialyzer:
-     funspec(L, Fname, {t_any(L), t_any(L), t_boolean(L)}),
-     {function, L, Fname, 2,
-      lists:map(
-        fun({R, Ln}) ->
-                {clause, L,
-                 {atom, L, R}, {var, L, 'Rec'},
-                 {op,L,'==',
-                    {call, L, {atom,L,tuple_size},{var,L,'Rec'}},
-                    {integer, L, Ln}},
-                   {op,L,'==',
-                    {call,L,{atom,L,element},{integer,L,1},
-                                              {var,L,'Rec'}},
-                    {atom, L, R}},
-                 {atom, L, true}}
-        end, Info) ++
-          {clause, L, {var,L,'_'}, {var,L,'_'}, ,
-            {atom, L, false}}}
-    .
-
-
-f_info_2(Acc, L) ->
-    Fname = list_to_atom(fname_prefix(info, Acc)),
-    funspec(L, Fname,
-             lists:flatmap(
-               fun(Rname) ->
-                       Flds = get_flds(Rname, Acc),
-                       TRec = t_atom(L, Rname),
-                       {TRec, t_atom(L, size), t_integer(L, length(Flds)+1)},
-                        {TRec, t_atom(L, fields),
-                         t_list(L, t_attr(L, Rname, Acc))}
-               end, Acc#pass1.exports)),
-     {function, L, Fname, 2,
-      {clause, L,
-        {atom, L, R},
-         {var, L, 'Info'},
-        ,
-        {call, L, {atom, L, fname(info, R, Acc)}, {var, L, 'Info'}}} ||
-          R <- Acc#pass1.exports}
-    .
-
-f_info_3(Versions, L, Acc) ->
-    Fname = list_to_atom(fname_prefix(info, Acc)),
-    
-    {function, L, Fname, 3,
-     {clause, L,
-       {atom, L, R},
-        {var, L, 'Info'},
-        {string, L, V},
-       ,
-       {call, L, {atom, L, fname(info,R,V,Acc)}, {var, L, 'Info'}}} ||
-         {R,V} <- flat_versions(Versions)}
-    .
-
-f_pos_2(#pass1{exports = Es} = Acc, L) ->
-    Fname = list_to_atom(fname_prefix(pos, Acc)),
-    
-     funspec(L, Fname, lists:flatmap(
-                         fun(R) ->
-                                 Flds = get_flds(R, Acc),
-                                 %% PFlds = lists:zip(
-                                 %%           lists:seq(2, length(Flds)+1), Flds),
-                                 Ps = lists:seq(2, length(Flds)+1),
-                                 {t_atom(L, R), t_union(
-                                                    L, (t_atom(L, F)
-                                                         || F <- Flds
-                                                        ++ t_atom(L))),
-                                   t_union(L, (t_integer(L, P) || P <- Ps
-                                               ++ t_integer(L, 0)))}
-                                 %% {t_atom(L, R), t_atom(L, A),
-                                 %%   t_integer(L, P)} || {P,A} <- PFlds
-                                 %%     ++ {t_atom(L, R), t_any(L),
-                                 %%          t_integer(L, 0)}
-                         end, Es)),
-     {function, L, Fname, 2,
-      {clause, L,
-        {atom, L, R},
-         {var, L, 'Attr'},
-        ,
-        {call, L, {atom, L, fname(pos, R, Acc)}, {var, L, 'Attr'}}} ||
-          R <- Acc#pass1.exports}
-    .
-
-f_isrec_1(Acc, L) ->
-    Fname = list_to_atom(fname_prefix(is_record, Acc)),
-    %% This contract is correct, but is ignored by Dialyzer because it
-     %% has overlapping domains:
-     %% funspec(L, Fname,
-     %%              {t_record(L, R), t_atom(L, true)}
-     %%               || R <- Acc#pass1.exports
-     %%              ++ {t_any(L), t_atom(L, false)}),
-     %% This is less specific, but more useful to Dialyzer:
-     funspec(L, Fname, {t_any(L), t_boolean(L)}),
-     {function, L, Fname, 1,
-      {clause, L,
-        {var, L, 'X'},
-        ,
-        {'if',L,
-          {clause, L, , {call, L, {atom,L,is_record},
-                              {var,L,'X'},{atom,L,R}},
-            {atom,L,true}} || R <- Acc#pass1.exports ++
-              {clause,L, , {atom,L,true},
-                {atom, L, false}}}}
-      }
-    .
-
-
-
-f_get(#pass1{record_types = RTypes, exports = Es} = Acc, L) ->
-    Fname = list_to_atom(fname_prefix(get, Acc)),
-    funspec(L, Fname,
-             lists:append(
-               {t_atom(L, A), t_record(L, R), T}
-                 || {A, T} <- Types
-                || {R, Types} <- RTypes, lists:member(R, Es))
-             ++ {t_list(L, t_attr(L, R, Acc)), t_record(L, R),
-                  t_list(L, t_union(L, Ts || {_, Ts} <- Types))}
-                 || {R, Types} <- RTypes, lists:member(R, Es)
-            ),
-     {function, L, Fname, 2,
-      {clause, L,
-        {var, L, 'Attrs'},
-         {var, L, 'Rec'},
-        {call, L,
-           {atom, L, is_record},
-           {var, L, 'Rec'}, {atom, L, R}},
-        {call, L, {atom, L, fname(get, R, Acc)}, {var, L, 'Attrs'},
-                                                   {var, L, 'Rec'}}} ||
-          R <- Es}
-    .
-
-
-f_set(Acc, L) ->
-    Fname = list_to_atom(fname_prefix(set, Acc)),
-    funspec(L, Fname,
-             lists:map(
-               fun(Rname) ->
-                       TRec = t_record(L, Rname),
-                       {t_list(L, t_prop(L, Rname, Acc)), TRec, TRec}
-               end, Acc#pass1.exports)),
-     {function, L, Fname, 2,
-      {clause, L,
-        {var, L, 'Vals'},
-         {var, L, 'Rec'},
-        {call, L,
-           {atom, L, is_record},
-           {var, L, 'Rec'}, {atom, L, R}},
-        {call, L, {atom, L, fname(set, R, Acc)}, {var, L, 'Vals'},
-                                                   {var, L, 'Rec'}}} ||
-          R <- Acc#pass1.exports}
-    .
-
-f_fromlist(Acc, L) ->
-    Fname = list_to_atom(fname_prefix(fromlist, Acc)),
-    funspec(L, Fname,
-             lists:map(
-               fun(Rname) ->
-                       TRec = t_record(L, Rname),
-                       {t_list(L, t_prop(L, Rname, Acc)), TRec, TRec}
-               end, Acc#pass1.exports)),
-     {function, L, Fname, 2,
-      {clause, L,
-        {var, L, 'Vals'},
-         {var, L, 'Rec'},
-        {call, L,
-           {atom, L, is_record},
-           {var, L, 'Rec'}, {atom, L, R}},
-        {call, L, {atom, L, fname(fromlist, R, Acc)}, {var, L, 'Vals'},
-                                                        {var, L, 'Rec'}}} ||
-          R <- Acc#pass1.exports}
-    .
-
-f_frommap(Acc, L) ->
-    Fname = list_to_atom(fname_prefix(frommap, Acc)),
-    funspec(L, Fname,
-             lists:map(
-               fun(Rname) ->
-                       TRec = t_record(L, Rname),
-                       {t_map(L, Rname, Acc), TRec, TRec}
-               end, Acc#pass1.exports)),
-     {function, L, Fname, 2,
-      {clause, L,
-        {var, L, 'Vals'},
-         {var, L, 'Rec'},
-        {call, L,
-           {atom, L, is_record},
-           {var, L, 'Rec'}, {atom, L, R}},
-        {call, L, {atom, L, fname(frommap, R, Acc)}, {var, L, 'Vals'},
-                                                        {var, L, 'Rec'}}} ||
-          R <- Acc#pass1.exports}
-    .
-
-f_info_1(Rname, Acc, L) ->
-    Fname = fname(info, Rname, Acc),
-    Flds = get_flds(Rname, Acc),
-    funspec(L, Fname, {t_atom(L, fields),
-                         t_list(L, t_union(L, t_atom(L,F) || F <- Flds))},
-                        {t_atom(L, size), t_integer(L, length(Flds)+1)}),
-     {function, L, Fname, 1,
-      {clause, L, {atom, L, fields}, ,
-        {call, L, {atom, L, record_info},
-          {atom, L, fields}, {atom, L, Rname}}
-       },
-       {clause, L, {atom, L, size}, ,
-        {call, L, {atom, L, record_info},
-          {atom, L, size}, {atom, L, Rname}}
-       }}
-    .
-
-f_info_1(Rname, Acc, L, V) ->
-    f_info_1(recname(Rname, V), Acc, L).
-
-recname(Rname, V) ->
-    list_to_atom(lists:concat(Rname,"__",V)).
-
-f_convert(_Vsns, L, Acc) ->
-    {function, L, fname(convert, Acc), 2,
-     {clause, L,
-       {var, L, 'FromVsn'},
-        {var, L, 'Rec'},
-       {call,L,{atom, L, is_tuple},
-         {var, L, 'Rec'}},
-       {match, L, {var, L, 'Rname'},
-         {call, L, {atom, L, element},
-          {integer, L, 1}, {var, L, 'Rec'}}},
-        {match,L,{var,L,'Size'},
-         {call, L, {atom, L, fname(info, Acc)},
-          {var,L,'Rname'}, {atom, L, size}, {var,L,'FromVsn'}}},
-        {match, L, {var, L, 'Size'},
-         {call, L, {atom, L, size},
-          {var, L, 'Rec'}}},
-        %%
-        %% {match, L, {var, L, 'Old_fields'},
-        %%  {call, L, {atom,L,fname(info, Acc)},
-        %%     {var,L,'Rname'},{atom,L,fields},{var,L,'FromVsn'}}},
-        {match, L, {var, L, 'New_fields'},
-         {call, L, {atom,L,fname(info, Acc)},
-            {var,L,'Rname'},{atom,L,fields}}},
-
-        {match, L, {var, L, 'Values'},
-         {call, L, {remote, L, {atom, L, lists}, {atom, L, zip}},
-          {call, L, {atom,L,fname(info, Acc)},
-            {var,L,'Rname'},{atom,L,fields},{var,L,'FromVsn'}},
-           {call, L, {atom, L, 'tl'},
-            {call, L, {atom, L, tuple_to_list},
-              {var, L, 'Rec'}}}}},
-        {match, L, {tuple, L, {var, L, 'Matching'},
-                               {var, L, 'Discarded'}},
-         {call, L, {remote, L, {atom, L, lists}, {atom, L, partition}},
-          {'fun',L,
-            {clauses,
-             {clause,L,
-               {tuple,L,{var,L,'F'},{var,L,'_'}},
-               ,
-               {call,L,
-                 {remote,L,{atom,L,lists},{atom,L,member}},
-                 {var, L, 'F'}, {var,L,'New_fields'}}}}},
-           {var, L, 'Values'}}},
-        {tuple, L, {call, L, {atom, L, fname(set, Acc)},
-                     {var, L, 'Matching'},
-                      {call, L, {atom, L, fname(new, Acc)},
-                       {var, L, 'Rname'}}},
-                    {var, L, 'Discarded'}}
-      }}.
-
-f_lens_(#pass1{exports = Es} = Acc, L) ->
-    Fname = fname(lens, Acc),
-    
-     funspec(L, Fname,  {t_attr(L, Rname, Acc), t_atom(L, Rname),
-                          t_tuple(L, t_fun(L, t_record(L, Rname), t_any(L)),
-                                      t_fun(L, t_any(L),
-                                                t_record(L, Rname),
-                                            t_record(L, Rname)))}
-                         || Rname <- Es),
-     {function, L, Fname, 2,
-      {clause, L, {var, L, 'Attr'}, {atom, L, Re}, ,
-        {call, L, {atom, L, fname(lens, Re, Acc)}, {var, L, 'Attr'}}}
-         || Re <- Es}
-    .
-
-f_lens_1(Rname, Flds, L, Acc) ->
-    Fname = fname(lens, Rname, Acc),
-    funspec(L, Fname,  {t_attr(L, Rname, Acc),
-                          t_tuple(L, t_fun(L, t_record(L, Rname), t_any(L)),
-                                      t_fun(L, t_any(L),
-                                                t_record(L, Rname),
-                                            t_record(L, Rname)))} ),
-     {function, L, Fname, 1,
-      {clause, L, {atom, L, Attr}, ,
-        {tuple, L, {'fun', L,
-                      {clauses,
-                       {clause, L, {var, L, 'R'}, ,
-                         {call, L, {atom, L, fname(get, Rname, Acc)},
-                           {atom, L, Attr}, {var, L, 'R'}}}
-                       }},
-                     {'fun', L,
-                      {clauses,
-                       {clause, L, {var, L, 'X'}, {var, L, 'R'}, ,
-                         {call, L, {atom, L, fname(set, Rname, Acc)},
-                           {cons,L, {tuple, L, {atom, L, Attr},
-                                                 {var, L, 'X'}}, {nil,L}},
-                            {var, L, 'R'}}
-                        }}}
-                    }} || Attr <- Flds ++
-          {clause, L, {var, L, 'Attr'}, ,
-           bad_record_op(L, Fname, 'Attr')}
-     }.
-
-%%% ========== generic parse_transform stuff ==============
-
--spec context(atom(), #context{}) ->
-    term().
-%% @hidden
-context(module,   #context{module = M}  ) -> M;
-context(function, #context{function = F}) -> F;
-context(arity,    #context{arity = A}   ) -> A.
-
-
-
-rpt_error(Reason, Fun, Info) ->
-    Fmt = lists:flatten(
-            "*** ERROR in parse_transform function:~n"
-             "*** Reason     = ~p~n",
-             "*** Location: ~p~n",
-             "*** ~10w = ~p~n" || _ <- Info),
-    Args = Reason, Fun |
-            lists:foldr(
-              fun({K,V}, Acc) ->
-                      K, V | Acc
-              end, , Info),
-    io:format(Fmt, Args).
-
--spec format_error({atom(), term()}) ->
-    iolist().
-%% @hidden
-format_error({_Cat, Error}) ->
-    Error.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/src/parse_trans.app.src Deleted

@@ -1,32 +0,0 @@
-%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*-
-%% --------------------------------------------------
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-%% --------------------------------------------------
-%%
-%% @author Ulf Wiger <ulf@wiger.net>
-%% @doc Parse transform library.
-%% @end
-{application, parse_trans,
-    {description, "Parse transform library"},
-        {vsn, git},
-        {registered, },
-        {applications, kernel, stdlib, syntax_tools},
-  {env, },
-
-  {maintainers, "Ulf Wiger"},
-  {licenses, "Apache 2.0"},
-  {links, {"Github", "https://github.com/uwiger/parse_trans"}}
- }.
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/src/parse_trans.erl Deleted

@@ -1,968 +0,0 @@
-%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*-
-%% --------------------------------------------------
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-%% --------------------------------------------------
-%% File    : parse_trans.erl
-%% @author  : Ulf Wiger <ulf@wiger.net>
-%% @end
-%% Description :
-%%
-%% Created : 13 Feb 2006 by Ulf Wiger <ulf@wiger.net> (then Ericsson)
-%%%-------------------------------------------------------------------
-
-%% @doc Generic parse transform library for Erlang.
-%%
-%% <p>...</p>
-%%
-%% @end
-
--module(parse_trans).
-
--compile({no_auto_import,error/3}).
-
--export(plain_transform/2).
-
--export(
-         inspect/4,
-         transform/4,
-         depth_first/4,
-         revert/1,
-         revert_form/1,
-         format_exception/2, format_exception/3,
-         return/2
-        ).
-
--export(
-         error/3,
-         format_error/1
-        ).
-
--export(
-         initial_context/2,
-         do_inspect/4,
-         do_transform/4,
-         do_depth_first/4,
-         top/3
-        ).
-
--export(do_insert_forms/4,
-         replace_function/4,
-         replace_function/5,
-         export_function/3).
-
--export(
-         context/2,
-         get_pos/1,
-         get_file/1,
-         get_module/1,
-         get_attribute/2,
-         get_attribute/3,
-         get_orig_syntax_tree/1,
-         function_exists/3,
-         optionally_pretty_print/3,
-         pp_src/2,
-         pp_beam/1, pp_beam/2
-        ).
-
--import(erl_syntax, atom_value/1,
-                     attribute_name/1,
-                     attribute_arguments/1,
-                     string_value/1,
-                     type/1
-                    ).
-
--ifdef(TEST).
--include_lib("eunit/include/eunit.hrl").
--endif.
-
--record(context, {module,
-                  function,
-                  arity,
-                  file,
-                  options}).
-
-%% Useful macros for debugging and error reporting
--define(HERE, {?MODULE, ?LINE}).
-
--define(DUMMY_LINE, 9999).
-
--define(ERROR(R, F, I, Trace),
-        begin
-            rpt_error(R, F, I, Trace),
-            throw({error,get_pos(I),{R, Trace}})
-        end).
-
--export_type(forms/0).
-
-%% Typedefs
--type form()    :: any().
--type forms()   :: form().
--type options() :: {atom(), any()}.
--type type()    :: atom().
--type xform_f_rec() :: fun((type(), form(), #context{}, Acc) ->
-                                  {form(), boolean(), Acc}
-                                      | {forms(), form(), forms(), boolean(), Acc}).
--type xform_f_df() :: fun((type(), form(), #context{}, Acc) ->
-                                 {form(), Acc}
-                                     | {forms(), form(), forms(), Acc}).
--type insp_f()  :: fun((type(), form(), #context{}, A) -> {boolean(), A}).
-
-
-%%% @spec (Reason, Form, Info) -> throw()
-%%% Info = {Key,Value}
-%%%
-%%% @doc
-%%% <p>Used to report errors detected during the parse transform.</p>
-%%% @end
-%%%
--spec error(string(), any(), {any(),any()}) ->
-    none().
-error(R, _F, I) ->
-    ST = erlang:process_info(self(), current_stacktrace),
-    % rpt_error(R, F, I, ST),
-    throw({error,get_pos(I),{R, ST}}).
-
-%% @spec plain_transform(Fun, Forms) -> forms()
-%% Fun = function()
-%% Forms = forms()
-%%
-%% @doc
-%% Performs a transform of `Forms' using the fun `Fun(Form)'. `Form' is always
-%% an Erlang abstract form, i.e. it is not converted to syntax_tools
-%% representation. The intention of this transform is for the fun to have a
-%% catch-all clause returning `continue'. This will ensure that it stays robust
-%% against additions to the language.
-%%
-%% `Fun(Form)' must return either of the following:
-%%
-%% * `NewForm' - any valid form
-%% * `continue' - dig into the sub-expressions of the form
-%% * `{done, NewForm}' - Replace `Form' with `NewForm'; return all following
-%%   forms unchanged
-%% * `{error, Reason}' - Abort transformation with an error message.
-%%
-%% Example - This transform fun would convert all instances of `P ! Msg' to
-%% `gproc:send(P, Msg)':
-%% <pre>
-%% parse_transform(Forms, _Options) -&gt;
-%%     parse_trans:plain_transform(fun do_transform/1, Forms).
-%%
-%% do_transform({'op', L, '!', Lhs, Rhs}) -&gt;
-%%      NewLhs = parse_trans:plain_transform(fun do_transform/1, Lhs),
-%%      NewRhs = parse_trans:plain_transform(fun do_transform/1, Rhs),
-%%     {call, L, {remote, L, {atom, L, gproc}, {atom, L, send}},
-%%      NewLhs, NewRhs};
-%% do_transform(_) -&gt;
-%%     continue.
-%% </pre>
-%% @end
-%%
-plain_transform(Fun, Forms) when is_function(Fun, 1), is_list(Forms) ->
-    plain_transform1(Fun, Forms).
-
-plain_transform1(_, ) ->
-    ;
-plain_transform1(Fun, F|Fs) when is_atom(element(1,F)) ->
-    case Fun(F) of
-        skip ->
-            plain_transform1(Fun, Fs);
-        continue ->
-            list_to_tuple(plain_transform1(Fun, tuple_to_list(F))) |
-             plain_transform1(Fun, Fs);
-        {done, NewF} ->
-            NewF | Fs;
-        {error, Reason} ->
-            erlang:error(Reason, F, {form, F});
-        NewF when is_tuple(NewF) ->
-            NewF | plain_transform1(Fun, Fs)
-    end;
-plain_transform1(Fun, L|Fs) when is_list(L) ->
-    plain_transform1(Fun, L) | plain_transform1(Fun, Fs);
-plain_transform1(Fun, F|Fs) ->
-    F | plain_transform1(Fun, Fs);
-plain_transform1(_, F) ->
-    F.
-
-
-%% @spec (list()) -> integer()
-%%
-%% @doc
-%% Tries to retrieve the line number from an erl_syntax form. Returns a
-%% (very high) dummy number if not successful.
-%% @end
-%%
--spec get_pos(list()) ->
-    erl_anno:location().
-get_pos(I) when is_list(I) ->
-    case proplists:get_value(form, I) of
-        undefined ->
-            ?DUMMY_LINE;
-        Form ->
-            Anno = erl_syntax:get_pos(Form),
-            erl_anno:location(Anno)
-    end.
-
-
-%%% @spec (Forms) -> string()
-%%% @doc
-%%% Returns the name of the file being compiled.
-%%% @end
-%%%
--spec get_file(forms()) ->
-    string().
-get_file(Forms) ->
-    string_value(hd(get_attribute(file, Forms, erl_syntax:string("undefined")))).
-
-
-
-%%% @spec (Forms) -> atom()
-%%% @doc
-%%% Returns the name of the module being compiled.
-%%% @end
-%%%
--spec get_module(any()) ->
-    atom().
-get_module(Forms) ->
-    atom_value(hd(get_attribute(module, Forms, erl_syntax:atom(undefined)))).
-
-
-
-%%% @spec (A, Forms) -> any()
-%%% A = atom()
-%%%
-%%% @doc
-%%% Returns the value of the first occurrence of attribute A.
-%%% @end
-%%%
--spec get_attribute(atom(), any()) ->
-                           'none' | erl_syntax:syntaxTree().
-%%
-get_attribute(A, Forms) -> get_attribute(A,Forms,erl_syntax:atom(undefined)).
-get_attribute(A, Forms, Undef) ->
-    case find_attribute(A, Forms) of
-        false ->
-            Undef;
-        Other ->
-            Other
-    end.
-
-find_attribute(A, F|Forms) ->
-    case type(F) == attribute
-        andalso atom_value(attribute_name(F)) == A of
-        true ->
-            attribute_arguments(F);
-        false ->
-            find_attribute(A, Forms)
-    end;
-find_attribute(_, ) ->
-    false.
-
-%% @spec (Fname::atom(), Arity::integer(), Forms) -> boolean()
-%%
-%% @doc
-%% Checks whether the given function is defined in Forms.
-%% @end
-%%
--spec function_exists(atom(), integer(), forms()) ->
-    boolean().
-function_exists(Fname, Arity, Forms) ->
-    Fns = proplists:get_value(
-            functions, erl_syntax_lib:analyze_forms(Forms), ),
-    lists:member({Fname,Arity}, Fns).
-
-
-%%% @spec (Forms, Options) -> #context{}
-%%%
-%%% @doc
-%%% Initializes a context record. When traversing through the form
-%%% list, the context is updated to reflect the current function and
-%%% arity. Static elements in the context are the file name, the module
-%%% name and the options passed to the transform function.
-%%% @end
-%%%
--spec initial_context(forms(), options()) ->
-    #context{}.
-initial_context(Forms, Options) ->
-    File = get_file(Forms),
-    Module = get_module(Forms),
-    #context{file = File,
-             module = Module,
-             options = Options}.
-
-%%% @spec (Fun, Acc, Forms, Options) -> {TransformedForms, NewAcc}
-%%% Fun = function()
-%%% Options = {Key,Value}
-%%%
-%%% @doc
-%%% Makes one pass
-%%% @end
--spec transform(xform_f_rec(), Acc, forms(), options()) ->
-    {forms(), Acc} | {error, list()}.
-transform(Fun, Acc, Forms, Options) when is_function(Fun, 4) ->
-    do(fun do_transform/4, Fun, Acc, Forms, Options).
-
--spec depth_first(xform_f_df(), Acc, forms(), options()) ->
-    {forms(), Acc} | {error, list()}.
-depth_first(Fun, Acc, Forms, Options) when is_function(Fun, 4) ->
-    do(fun do_depth_first/4, Fun, Acc, Forms, Options).
-
-do(Transform, Fun, Acc, Forms, Options) ->
-    Context = initial_context(Forms, Options),
-    File = Context#context.file,
-    try Transform(Fun, Acc, Forms, Context) of
-        {NewForms, Acc1} when is_list(NewForms) ->
-            NewForms1 = optionally_renumber(NewForms, Options),
-            optionally_pretty_print(NewForms1, Options, Context),
-            {NewForms1, Acc1}
-    catch
-        error:Reason:ST ->
-            {error,
-             {File, {?DUMMY_LINE, ?MODULE,
-                       {Reason, ST}}}};
-        throw:{error, Ln, What} ->
-            {error, {error, {Ln, ?MODULE, What}}}
-    end.
-
--spec top(function(), forms(), list()) ->
-    forms() | {error, term()}.
-top(F, Forms, Options) ->
-    Context = initial_context(Forms, Options),
-    File = Context#context.file,
-    try F(Forms, Context) of
-        {error, Reason} -> {error, Reason};
-        NewForms when is_list(NewForms) ->
-            NewForms1 = optionally_renumber(NewForms, Options),
-            optionally_pretty_print(NewForms1, Options, Context),
-            NewForms1
-    catch
-        error:Reason:ST ->
-            {error,
-             {File, {?DUMMY_LINE, ?MODULE,
-                       {Reason, ST}}}};
-        throw:{error, Ln, What} ->
-            {error, {File, {Ln, ?MODULE, What}}, }
-    end.
-
-replace_function(F, Arity, NewForm, Forms) ->
-    replace_function(F, Arity, NewForm, Forms, ).
-
-replace_function(F, Arity, NewForm, Forms, Opts) ->
-    {NewForms, _} =
-        do_transform(
-          fun(function, Form, _Ctxt, Acc) ->
-                  case erl_syntax:revert(Form) of
-                      {function, _, F, Arity, _} = RevForm ->
-                          {, NewForm, with_original_f(RevForm, Opts),
-                           false, Acc};
-                      _ ->
-                          {Form, false, Acc}
-                  end;
-             (_, Form, _Ctxt, Acc) ->
-                  {Form, false, Acc}
-          end, false, Forms, initial_context(Forms, )),
-    revert(maybe_export_renamed(NewForms, Arity, Opts)).
-
-with_original_f({function,_,_,_,_} = Form, Opts) ->
-    case lists:keyfind(rename_original, 1, Opts) of
-        {_, NewName} when is_atom(NewName) ->
-            setelement(3, Form, NewName);
-        _ ->
-            
-    end.
-
-maybe_export_renamed(Forms, Arity, Opts) ->
-    case lists:keyfind(rename_original, 1, Opts) of
-        {_, NewName} when is_atom(NewName) ->
-            export_function(NewName, Arity, Forms);
-        _ ->
-            Forms
-    end.
-
-export_function(F, Arity, Forms) ->
-    do_insert_forms(above, {attribute, 1, export, {F, Arity}}, Forms,
-                    initial_context(Forms, )).
-
--spec do_insert_forms(above | below, forms(), forms(), #context{}) ->
-    forms().
-do_insert_forms(above, Insert, Forms, Context) when is_list(Insert) ->
-    {NewForms, _} =
-        do_transform(
-          fun(function, F, _Ctxt, false) ->
-                  {Insert, F, , _Recurse = false, true};
-             (_, F, _Ctxt, Acc) ->
-                  {F, _Recurse = false, Acc}
-          end, false, Forms, Context),
-    NewForms;
-do_insert_forms(below, Insert, Forms, _Context) when is_list(Insert) ->
-    insert_below(Forms, Insert).
-
-
-insert_below(F|Rest, Insert) ->
-    case type(F) of
-        eof_marker ->
-            %% In the unlikely case someone misused eof_marker
-            Insert ++ F | Rest;
-        _ ->
-            F|insert_below(Rest, Insert)
-    end.
-
--spec optionally_pretty_print(forms(), options(), #context{}) ->
-    ok.
-optionally_pretty_print(Result, Options, Context) ->
-    DoPP = option_value(pt_pp_src, Options, Result),
-    DoLFs = option_value(pt_log_forms, Options, Result),
-    File = Context#context.file,
-    if DoLFs ->
-            Out1 = outfile(File, forms),
-            {ok,Fd} = file:open(Out1, write),
-            try lists:foreach(fun(F) -> io:fwrite(Fd, "~p.~n", F) end, Result)
-            after
-                ok = file:close(Fd)
-            end;
-       true -> ok
-    end,
-    if DoPP ->
-            Out2 = outfile(File, pp),
-            pp_src(Result, Out2),
-            io:fwrite("Pretty-printed in ~p~n", Out2);
-       true -> ok
-    end.
-
-optionally_renumber(Result, Options) ->
-    case option_value(pt_renumber, Options, Result) of
-        true ->
-            io:fwrite("renumbering...~n", ),
-            Rev = revert(Result),
-            renumber_(Rev);
-        false ->
-            Result
-    end.
-
-renumber_(L) when is_list(L) ->
-    {Result, _} = renumber_(L, 1),
-    Result.
-
-renumber_(L, Acc) when is_list(L) ->
-    lists:mapfoldl(fun renumber_/2, Acc, L);
-renumber_(T, Prev) when is_tuple(T) ->
-    case is_form(T) of
-        true ->
-            New = Prev+1,
-            NewE2 = update_line(element(2, T), New),
-            T1 = setelement(2, T, NewE2),
-            {Res, NewAcc} = renumber_(tuple_to_list(T1), New),
-            {list_to_tuple(Res), NewAcc};
-        false ->
-            L = tuple_to_list(T),
-            {Res, NewAcc} = renumber_(L, Prev),
-            {list_to_tuple(Res), NewAcc}
-    end;
-renumber_(X, Prev) ->
-    {X, Prev}.
-
-is_form(T) when element(1,T)==type -> true;
-is_form(T) ->
-    try erl_syntax:type(T),
-         true
-    catch
-        error:_ ->
-            false
-    end.
-
-update_line(Element2, Line) ->
-    case erl_anno:is_anno(Element2) of
-        true ->
-            erl_anno:set_line(Line, Element2);
-        false -> % location
-            A = erl_anno:new(Element2),
-            NewA = erl_anno:set_line(Line, A),
-            erl_anno:location(NewA)
-    end.
-
-option_value(Key, Options, Result) ->
-    case proplists:get_value(Key, Options) of
-        undefined ->
-            case find_attribute(Key,Result) of
-                Expr ->
-                    type(Expr) == atom andalso
-                        atom_value(Expr) == true;
-                _ ->
-                    false
-            end;
-        V when is_boolean(V) ->
-            V
-    end.
-
-
-%%% @spec (Fun, Forms, Acc, Options) -> NewAcc
-%%% Fun = function()
-%%% @doc
-%%% Equivalent to do_inspect(Fun,Acc,Forms,initial_context(Forms,Options)).
-%%% @end
-%%%
--spec inspect(insp_f(), A, forms(), options()) ->
-    A.
-inspect(F, Acc, Forms, Options) ->
-    Context = initial_context(Forms, Options),
-    do_inspect(F, Acc, Forms, Context).
-
-
-
-outfile(File, Type) ->
-    "lre." ++ RevF = lists:reverse(File),
-    lists:reverse(RevF) ++ ext(Type).
-
-ext(pp)    -> ".xfm";
-ext(forms) -> ".xforms".
-
-%% @spec (Forms, Out::filename()) -> ok
-%%
-%% @doc Pretty-prints the erlang source code corresponding to Forms into Out
-%%
--spec pp_src(forms(), string()) ->
-    ok.
-pp_src(Res, F) ->
-    parse_trans_pp:pp_src(Res, F).
-%%     Str = io_lib:fwrite("~s~n",
-%%                          lists:flatten(erl_pp:form(Fm) ||
-%%                                             Fm <- revert(Res))),
-%%     file:write_file(F, list_to_binary(Str)).
-
-%% @spec (Beam::file:filename()) -> string() | {error, Reason}
-%%
-%% @doc
-%% Reads debug_info from the beam file Beam and returns a string containing
-%% the pretty-printed corresponding erlang source code.
-%% @end
--spec pp_beam(file:filename()) -> ok.
-pp_beam(Beam) ->
-    parse_trans_pp:pp_beam(Beam).
-
-%% @spec (Beam::filename(), Out::filename()) -> ok | {error, Reason}
-%%
-%% @doc
-%% Reads debug_info from the beam file Beam and pretty-prints it as
-%% Erlang source code, storing it in the file Out.
-%% @end
-%%
--spec pp_beam(file:filename(), file:filename()) -> ok.
-pp_beam(F, Out) ->
-    parse_trans_pp:pp_beam(F, Out).
-
-
-%%% @spec (File) -> Forms
-%%%
-%%% @doc
-%%% <p>Fetches a Syntax Tree representing the code before pre-processing,
-%%% that is, including record and macro definitions. Note that macro
-%%% definitions must be syntactically complete forms (this function
-%%% uses epp_dodger).</p>
-%%% @end
-%%%
--spec get_orig_syntax_tree(string()) ->
-    forms().
-get_orig_syntax_tree(File) ->
-    case epp_dodger:parse_file(File) of
-        {ok, Forms} ->
-            Forms;
-        Err ->
-            erlang:error(error_reading_file, ?HERE, {File,Err})
-    end.
-
-%%% @spec (Tree) -> Forms
-%%%
-%%% @doc Reverts back from Syntax Tools format to Erlang forms.
-%%% <p>Note that the Erlang forms are a subset of the Syntax Tools
-%%% syntax tree, so this function is safe to call even on a list of
-%%% regular Erlang forms.</p>
-%%% <p>Note2: R16B03 introduced a bug, where forms produced by
-%%% `erl_syntax:revert/1' (specifically, implicit funs) could crash the linter.
-%%% This function works around that limitation, after first verifying that it's
-%%% necessary to do so. Use of the workaround can be forced with the help of
-%%% the `parse_trans' environment variable {revert_workaround, true}. This
-%%% variable will be removed when R16B03 is no longer 'supported'.</p>
-%%% @end
-%%%
--spec revert(forms()) ->
-    forms().
-revert(Tree) when is_list(Tree) ->
-    WorkAround = needs_revert_workaround(),
-    revert_form(T, WorkAround) || T <- lists:flatten(Tree).
-
-%%% @spec (Tree) -> Form
-%%%
-%%% @doc Reverts a single form back from Syntax Tools format to Erlang forms.
-%%% <p>`erl_syntax:revert/1' has had a long-standing bug where it doesn't
-%%% completely revert attribute forms. This function deals properly with those
-%%% cases.</p>
-%%% <p>Note that the Erlang forms are a subset of the Syntax Tools
-%%% syntax tree, so this function is safe to call even on a regular Erlang
-%%% form.</p>
-%%% <p>Note2: R16B03 introduced a bug, where forms produced by
-%%% `erl_syntax:revert/1' (specifically, implicit funs) could crash the linter.
-%%% This function works around that limitation, after first verifying that it's
-%%% necessary to do so. Use of the workaround can be forced with the help of
-%%% the `parse_trans' environment variable {revert_workaround, true}. This
-%%% variable will be removed when R16B03 is no longer 'supported'.</p>
-%%% @end
-revert_form(F) ->
-    revert_form(F, needs_revert_workaround()).
-
-revert_form(F, W) ->
-    case erl_syntax:revert(F) of
-        {attribute,L,A,Tree} when element(1,Tree) == tree ->
-            {attribute,L,A,erl_syntax:revert(Tree)};
-        Result ->
-            if W -> fix_impl_fun(Result);
-               true -> Result
-            end
-    end.
-
-fix_impl_fun({'fun',L,{function,{atom,_,Fn},{integer,_,Ay}}}) ->
-    {'fun',L,{function,Fn,Ay}};
-fix_impl_fun({'fun',L,{function,{atom,_,M},{atom,_,Fn},{integer,_,Ay}}}) ->
-    {'fun',L,{function,M,Fn,Ay}};
-fix_impl_fun(T) when is_tuple(T) ->
-    list_to_tuple(fix_impl_fun(F) || F <- tuple_to_list(T));
-fix_impl_fun(H|T) ->
-    fix_impl_fun(H) | fix_impl_fun(T);
-fix_impl_fun(X) ->
-    X.
-
-needs_revert_workaround() ->
-    case application:get_env(parse_trans,revert_workaround) of
-        {ok, Bool} when is_boolean(Bool) -> Bool;
-        _ ->
-            Res = try lint_reverted()
-                  catch
-                      error:_ ->
-                          true
-                  end,
-            application:set_env(parse_trans,revert_workaround,Res),
-            Res
-    end.
-
-lint_reverted() ->
-    Ts = {attribute,1,module,m},
-          {attribute,2,export,{f,0}},
-          erl_syntax:function(erl_syntax:atom(f),
-                              erl_syntax:clause(
-                                 ,
-                                 erl_syntax:implicit_fun(
-                                    erl_syntax:atom(f),
-                                    erl_syntax:integer(0)))),
-    Rev = erl_syntax:revert_forms(Ts),
-    erl_lint:module(Rev),
-    false.
-
-
-%%% @spec (Forms, Context) -> Forms | {error,Es,Ws} | {warnings,Forms,Ws}
-%%%
-%%% @doc Checks the transformed result for errors and warnings
-%%% <p>Errors and warnings can be produced from inside a parse transform, with
-%%% a bit of care. The easiest way is to simply produce an `{error, Err}' or
-%%% `{warning, Warn}' form in place. This function finds such forms, and
-%%% removes them from the form list (otherwise, the linter will crash), and
-%%% produces a return value that the compiler can work with.</p>
-%%%
-%%% The format of the `error' and `warning' "forms" must be
-%%% `{Tag, {Pos, Module, Info}}', where:
-%%% <ul>
-%%% <li>`Tag :: error | warning'</li>
-%%% <li>`Pos :: LineNumber | {LineNumber, ColumnNumber}'</li>
-%%% <li>`Module' is a module that exports a corresponding
-%%%    `Module:format_error(Info)'</li>
-%%% <li>`Info :: term()'</li>
-%%% </ul>
-%%% <p>If the error is in the form of a caught exception, `Info' may be produced
-%%% using the function {@link format_exception/2}.</p>
-%%% @end
-return(Forms, Context) ->
-    JustForms = plain_transform(
-                  fun({error,_}) -> skip;
-                     ({warning,_}) -> skip;
-                     (_) -> continue
-                  end, Forms),
-    File = case Context of
-               #context{file = F} -> F;
-               _ -> "parse_transform"
-           end,
-    case {find_forms(Forms, error), find_forms(Forms, warning)} of
-        {, } ->
-            JustForms;
-        {, Ws} ->
-            {warnings, JustForms, {File, W || {warning,W} <- Ws}};
-        {Es, Ws} ->
-            {error,
-             {File, E || {error,E} <- Es},
-             {File, W || {warning,W} <- Ws}}
-    end.
-
-find_forms(H|T, Tag) when element(1, H) == Tag ->
-    H|find_forms(T, Tag);
-find_forms(H|T, Tag) when is_tuple(H) ->
-    find_forms(tuple_to_list(H), Tag) ++ find_forms(T, Tag);
-find_forms(H|T, Tag) when is_list(H) ->
-    find_forms(H, Tag) ++ find_forms(T, Tag);
-find_forms(_|T, Tag) ->
-    find_forms(T, Tag);
-find_forms(, _) ->
-    .
-
-
--define(LINEMAX, 5).
--define(CHAR_MAX, 60).
-
-%%% @spec (Class, Reason) -> String
-%%% @equiv format_exception(Class, Reason, 4)
-format_exception(Class, Reason) ->
-    format_exception(Class, Reason, 4).
-
-%%% @spec (Class, Reason, Lines) -> String
-%%% Class = error | throw | exit
-%%% Reason = term()
-%%% Lines = integer() | infinity
-%%%
-%%% @doc Produces a few lines of user-friendly formatting of exception info
-%%%
-%%% This function is very similar to the exception pretty-printing in the shell,
-%%% but returns a string that can be used as error info e.g. by error forms
-%%% handled by {@link return/2}. By default, the first 4 lines of the
-%%% pretty-printed exception info are returned, but this can be controlled
-%%% with the `Lines' parameter.
-%%%
-%%% Note that a stacktrace is generated inside this function.
-%%% @end
-format_exception(Class, Reason, Lines) ->
-    {current_stacktrace, ST} = erlang:process_info(self(), current_stacktrace),
-    PrintF = fun(Term, I) ->
-                     io_lib_pretty:print(
-                       Term, I, columns(), ?LINEMAX, ?CHAR_MAX,
-                       record_print_fun())
-             end,
-    StackF = fun(_, _, _) -> false end,
-    lines(Lines, erl_error:format_exception(
-                   1, Class, Reason, ST, StackF, PrintF)).
-
-columns() ->
-    case io:columns() of
-        {ok, N} -> N;
-        _-> 80
-    end.
-
-lines(infinity, S) -> S;
-lines(N, S) ->
-    L1|Ls = re:split(iolist_to_binary(S), <<"\n">>, {return,list}),
-    L1|"\n" ++ L || L <- lists:sublist(Ls, 1, N-1).
-
-record_print_fun() ->
-    fun(_,_) -> no end.
-
-%%% @spec (Attr, Context) -> any()
-%%% Attr = module | function | arity | options
-%%%
-%%% @doc
-%%% Accessor function for the Context record.
-%%% @end
--spec context(atom(), #context{}) ->
-    term().
-context(module,   #context{module = M}  ) -> M;
-context(function, #context{function = F}) -> F;
-context(arity,    #context{arity = A}   ) -> A;
-context(file,     #context{file = F}    ) -> F;
-context(options,  #context{options = O} ) -> O.
-
-
--spec do_inspect(insp_f(), term(), forms(), #context{}) ->
-    term().
-do_inspect(F, Acc, Forms, Context) ->
-    F1 =
-        fun(Form, Acc0) ->
-                Type = type(Form),
-                {Recurse, Acc1} = apply_F(F, Type, Form, Context, Acc0),
-                if_recurse(
-                  Recurse, Form, _Else = Acc1,
-                  fun(ListOfLists) ->
-                          lists:foldl(
-                            fun(L, AccX) ->
-                                    do_inspect(
-                                      F, AccX, L,
-                                      update_context(Form, Context))
-                            end, Acc1, ListOfLists)
-                  end)
-        end,
-    lists:foldl(F1, Acc, Forms).
-
-if_recurse(true, Form, Else, F) -> recurse(Form, Else, F);
-if_recurse(false, _, Else, _)   -> Else.
-
-recurse(Form, Else, F) ->
-    case erl_syntax:subtrees(Form) of
-         ->
-            Else;
-        _|_ = ListOfLists ->
-            F(ListOfLists)
-    end.
-
--spec do_transform(xform_f_rec(), term(), forms(), #context{}) ->
-    {forms(), term()}.
-do_transform(F, Acc, Forms, Context) ->
-    Rec = fun do_transform/4, % this function
-    F1 =
-        fun(Form, Acc0) ->
-                {Before1, Form1, After1, Recurse, Acc1} =
-                    this_form_rec(F, Form, Context, Acc0),
-                if Recurse ->
-                        {NewForm, NewAcc} =
-                            enter_subtrees(Form1, F,
-                                update_context(Form1, Context), Acc1, Rec),
-                        {Before1, NewForm, After1, NewAcc};
-                   true ->
-                        {Before1, Form1, After1, Acc1}
-                end
-        end,
-    mapfoldl(F1, Acc, Forms).
-
--spec do_depth_first(xform_f_df(), term(), forms(), #context{}) ->
-    {forms(), term()}.
-do_depth_first(F, Acc, Forms, Context) ->
-    Rec = fun do_depth_first/4,  % this function
-    F1 =
-        fun(Form, Acc0) ->
-                {NewForm, NewAcc} =
-                    enter_subtrees(Form, F, Context, Acc0, Rec),
-                this_form_df(F, NewForm, Context, NewAcc)
-        end,
-    mapfoldl(F1, Acc, Forms).
-
-enter_subtrees(Form, F, Context, Acc, Recurse) ->
-    case erl_syntax:subtrees(Form) of
-         ->
-            {Form, Acc};
-        _|_ = ListOfLists ->
-            {NewListOfLists, NewAcc} =
-                mapfoldl(
-                  fun(L, AccX) ->
-                          Recurse(F, AccX, L, Context)
-                  end, Acc, ListOfLists),
-            NewForm =
-                erl_syntax:update_tree(
-                  Form, NewListOfLists),
-            {NewForm, NewAcc}
-    end.
-
-
-this_form_rec(F, Form, Context, Acc) ->
-    Type = type(Form),
-    case apply_F(F, Type, Form, Context, Acc) of
-        {Form1x, Rec1x, A1x} ->
-            {, Form1x, , Rec1x, A1x};
-        {_Be1, _F1, _Af1, _Rec1, _Ac1} = Res1 ->
-            Res1
-    end.
-this_form_df(F, Form, Context, Acc) ->
-    Type = type(Form),
-    case apply_F(F, Type, Form, Context, Acc) of
-        {Form1x, A1x} ->
-            {, Form1x, , A1x};
-        {_Be1, _F1, _Af1, _Ac1} = Res1 ->
-            Res1
-    end.
-
-apply_F(F, Type, Form, Context, Acc) ->
-    try F(Type, Form, Context, Acc)
-    catch
-        error:Reason:ST ->
-            ?ERROR(Reason,
-                   ?HERE,
-                   {type, Type},
-                    {context, Context},
-                    {acc, Acc},
-                    {apply_f, F},
-                    {form, Form},
-                    {stack, ST},
-                   ST)
-    end.
-
-
-update_context(Form, Context0) ->
-    case type(Form) of
-        function ->
-            {Fun, Arity} =
-                erl_syntax_lib:analyze_function(Form),
-            Context0#context{function = Fun,
-                             arity = Arity};
-        _ ->
-            Context0
-    end.
-
-
-
-
-%%% Slightly modified version of lists:mapfoldl/3
-%%% Here, F/2 is able to insert forms before and after the form
-%%% in question. The inserted forms are not transformed afterwards.
-mapfoldl(F, Accu0, Hd|Tail) ->
-    {Before, Res, After, Accu1} =
-        case F(Hd, Accu0) of
-            {Be, _, Af, _} = Result when is_list(Be), is_list(Af) ->
-                Result;
-            {R1, A1} ->
-                {, R1, , A1}
-        end,
-    {Rs, Accu2} = mapfoldl(F, Accu1, Tail),
-    {Before ++ Res| After ++ Rs, Accu2};
-mapfoldl(F, Accu, ) when is_function(F, 2) -> {, Accu}.
-
-
-rpt_error(_Reason, _Fun, _Info, _Trace) ->
-    %% Fmt = lists:flatten(
-    %%      "*** ERROR in parse_transform function:~n"
-    %%       "*** Reason     = ~p~n",
-    %%          "*** Location: ~p~n",
-    %%       "*** Trace: ~p~n",
-    %%       "*** ~10w = ~p~n" || _ <- Info),
-    %% Args = Reason, Fun, Trace |
-    %%      lists:foldr(
-    %%        fun({K,V}, Acc) ->
-    %%                K, V | Acc
-    %%        end, , Info),
-    %%io:format(Fmt, Args),
-    ok.
-
--spec format_error({atom(), term()}) ->
-    iolist().
-format_error({E, {M,F,A}|_} = Error) ->
-    try lists:flatten(io_lib:fwrite("~p in ~s:~s/~s", E, atom_to_list(M),
-                                                       atom_to_list(F), integer_to_list(A)))
-    catch
-        error:_ ->
-            format_error_(Error)
-    end;
-format_error(Error) ->
-    format_error_(Error).
-
-format_error_(Error) ->
-    lists:flatten(io_lib:fwrite("~p", Error)).
-
-
-%% EUnit
--ifdef(TEST).
-
-format_exeption_test() ->
-    _,_,_ = format_exception(error, {error, foo}, 3),
-    ok.
-
--endif.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/src/parse_trans_codegen.erl Deleted

@@ -1,431 +0,0 @@
-%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*-
-%% --------------------------------------------------
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-%% --------------------------------------------------
-%% File    : parse_trans_codegen.erl
-%% @author  : Ulf Wiger <ulf@wiger.net>
-%% @end
-%%-------------------------------------------------------------------
-
-%% @doc Parse transform for code generation pseduo functions
-%%
-%% <p>...</p>
-%%
-%% @end
-
--module(parse_trans_codegen).
-
--export(parse_transform/2).
--export(format_error/1).
-
-%% @spec (Forms, Options) -> NewForms
-%%
-%% @doc
-%% Searches for calls to pseudo functions in the module `codegen',
-%% and converts the corresponding erlang code to a data structure
-%% representing the abstract form of that code.
-%%
-%% The purpose of these functions is to let the programmer write
-%% the actual code that is to be generated, rather than manually
-%% writing abstract forms, which is more error prone and cannot be
-%% checked by the compiler until the generated module is compiled.
-%%
-%% Supported functions:
-%%
-%% <h2>gen_function/2</h2>
-%%
-%% Usage: `codegen:gen_function(Name, Fun)'
-%%
-%% Substitutes the abstract code for a function with name `Name'
-%% and the same behaviour as `Fun'.
-%%
-%% `Fun' can either be a anonymous `fun', which is then converted to
-%% a named function, or it can be an `implicit fun', e.g.
-%% `fun is_member/2'. In the latter case, the referenced function is fetched
-%% and converted to an abstract form representation. It is also renamed
-%% so that the generated function has the name `Name'.
-%% <p/>
-%% Another alternative is to wrap a fun inside a list comprehension, e.g.
-%% <pre>
-%% f(Name, L) -&gt;
-%%     codegen:gen_function(
-%%         Name,
-%%          fun({'$var',X}) -&gt;
-%%              {'$var', Y}
-%%           end || {X, Y} &amp;lt;- L ).
-%% </pre>
-%% <p/>
-%% Calling the above with `f(foo, {1,a},{2,b},{3,c})' will result in
-%% generated code corresponding to:
-%% <pre>
-%% foo(1) -&gt; a;
-%% foo(2) -&gt; b;
-%% foo(3) -&gt; c.
-%% </pre>
-%%
-%% <h2>gen_functions/1</h2>
-%%
-%% Takes a list of `{Name, Fun}' tuples and produces a list of abstract
-%% data objects, just as if one had written
-%% `codegen:gen_function(N1,F1),codegen:gen_function(N2,F2),...'.
-%%
-%% <h2>exprs/1</h2>
-%%
-%% Usage: `codegen:exprs(Fun)'
-%%
-%% `Fun' is either an anonymous function, or an implicit fun with only one
-%% function clause. This "function" takes the body of the fun and produces
-%% a data type representing the abstract form of the list of expressions in
-%% the body. The arguments of the function clause are ignored, but can be
-%% used to ensure that all necessary variables are known to the compiler.
-%%
-%% <h2>gen_module/3</h2>
-%%
-%% Generates abstract forms for a complete module definition.
-%%
-%% Usage: `codegen:gen_module(ModuleName, Exports, Functions)'
-%%
-%% `ModuleName' is either an atom or a <code>{'$var', V}</code> reference.
-%%
-%% `Exports' is a list of `{Function, Arity}' tuples.
-%%
-%% `Functions' is a list of `{Name, Fun}' tuples analogous to that for
-%% `gen_functions/1'.
-%%
-%% <h2>Variable substitution</h2>
-%%
-%% It is possible to do some limited expansion (importing a value
-%% bound at compile-time), using the construct <code>{'$var', V}</code>, where
-%% `V' is a bound variable in the scope of the call to `gen_function/2'.
-%%
-%% Example:
-%% <pre>
-%% gen(Name, X) ->
-%%    codegen:gen_function(Name, fun(L) -> lists:member({'$var',X}, L) end).
-%% </pre>
-%%
-%% After transformation, calling `gen(contains_17, 17)' will yield the
-%% abstract form corresponding to:
-%% <pre>
-%% contains_17(L) ->
-%%    lists:member(17, L).
-%% </pre>
-%%
-%% <h2>Form substitution</h2>
-%%
-%% It is possible to inject abstract forms, using the construct
-%% <code>{'$form', F}</code>, where `F' is bound to a parsed form in
-%% the scope of the call to `gen_function/2'.
-%%
-%% Example:
-%% <pre>
-%% gen(Name, F) ->
-%%    codegen:gen_function(Name, fun(X) -> X =:= {'$form',F} end).
-%% </pre>
-%%
-%% After transformation, calling `gen(is_foo, {atom,0,foo})' will yield the
-%% abstract form corresponding to:
-%% <pre>
-%% is_foo(X) ->
-%%    X =:= foo.
-%% </pre>
-%% @end
-%%
-parse_transform(Forms, Options) ->
-    Context = parse_trans:initial_context(Forms, Options),
-    {NewForms, _} =
-        parse_trans:do_depth_first(
-          fun xform_fun/4, _Acc = Forms, Forms, Context),
-    parse_trans:return(parse_trans:revert(NewForms), Context).
-
-xform_fun(application, Form, _Ctxt, Acc) ->
-    MFA = erl_syntax_lib:analyze_application(Form),
-    Anno = erl_syntax:get_pos(Form),
-    L = erl_anno:line(Anno),
-    case MFA of
-        {codegen, {gen_module, 3}} ->
-            NameF, ExportsF, FunsF =
-                erl_syntax:application_arguments(Form),
-            NewForms = gen_module(NameF, ExportsF, FunsF, L, Acc),
-            {NewForms, Acc};
-        {codegen, {gen_function, 2}} ->
-            NameF, FunF =
-                erl_syntax:application_arguments(Form),
-            NewForm = gen_function(NameF, FunF, L, L, Acc),
-            {NewForm, Acc};
-        {codegen, {gen_function, 3}} ->
-            NameF, FunF, LineF =
-                erl_syntax:application_arguments(Form),
-            NewForm = gen_function(
-                        NameF, FunF, L, erl_syntax:integer_value(LineF), Acc),
-            {NewForm, Acc};
-        {codegen, {gen_function_alt, 3}} ->
-            NameF, FunF, AltF =
-                erl_syntax:application_arguments(Form),
-            NewForm = gen_function_alt(NameF, FunF, AltF, L, L, Acc),
-            {NewForm, Acc};
-        {codegen, {gen_functions, 1}} ->
-            List = erl_syntax:application_arguments(Form),
-            Elems = erl_syntax:list_elements(List),
-            NewForms = lists:map(
-                         fun(E) ->
-                                 NameF, FunF = erl_syntax:tuple_elements(E),
-                                 gen_function(NameF, FunF, L, L, Acc)
-                         end, Elems),
-            {erl_syntax:list(NewForms), Acc};
-        {codegen, {exprs, 1}} ->
-            FunF = erl_syntax:application_arguments(Form),
-            Clause = erl_syntax:fun_expr_clauses(FunF),
-            {clause,_,_,_,Body} = parse_trans:revert(Clause),
-            NewForm = substitute(erl_parse:abstract(Body)),
-            {NewForm, Acc};
-        _ ->
-            {Form, Acc}
-    end;
-xform_fun(_, Form, _Ctxt, Acc) ->
-    {Form, Acc}.
-
-gen_module(NameF, ExportsF, FunsF, L, Acc) ->
-    case erl_syntax:type(FunsF) of
-        list ->
-            try gen_module_(NameF, ExportsF, FunsF, L, Acc)
-            catch
-                error:E ->
-                    ErrStr = parse_trans:format_exception(error, E),
-                    {error, {L, ?MODULE, ErrStr}}
-            end;
-        _ ->
-            ErrStr = parse_trans:format_exception(
-                       error, "Argument must be a list"),
-            {error, {L, ?MODULE, ErrStr}}
-    end.
-
-gen_module_(NameF, ExportsF, FunsF, L0, Acc) ->
-    P = erl_syntax:get_pos(NameF),
-    ModF = case parse_trans:revert_form(NameF) of
-               {atom,_,_} = Am -> Am;
-               {tuple,_,{atom,_,'$var'},
-                         {var,_,V}} ->
-                   {var,P,V}
-           end,
-    cons(
-      {cons,P,
-       {tuple,P,
-        {atom,P,attribute},
-         {integer,P,1},
-         {atom,P,module},
-         ModF},
-       substitute(
-         abstract(
-           {attribute,P,export,
-             lists:map(
-               fun(TupleF) ->
-                       F,A = erl_syntax:tuple_elements(TupleF),
-                       {erl_syntax:atom_value(F), erl_syntax:integer_value(A)}
-               end, erl_syntax:list_elements(ExportsF))}))},
-      lists:map(
-        fun(FTupleF) ->
-                Pos = erl_syntax:get_pos(FTupleF),
-                FName, FFunF = erl_syntax:tuple_elements(FTupleF),
-                gen_function(FName, FFunF, L0, Pos, Acc)
-        end, erl_syntax:list_elements(FunsF))).
-
-cons({cons,L,H,T}, L2) ->
-    {cons,L,H,cons(T, L2)};
-cons({nil,L}, H|T) ->
-    Pos = erl_syntax:get_pos(H),
-    {cons,L,H,cons({nil,Pos}, T)};
-cons({nil,L}, ) ->
-    {nil,L}.
-
-
-
-gen_function(NameF, FunF, L0, L, Acc) ->
-    try gen_function_(NameF, FunF, , L, Acc)
-    catch
-        error:E ->
-            ErrStr = parse_trans:format_exception(error, E),
-            {error, {L0, ?MODULE, ErrStr}}
-    end.
-
-gen_function_alt(NameF, FunF, AltF, L0, L, Acc) ->
-    try gen_function_(NameF, FunF, AltF, L, Acc)
-    catch
-        error:E ->
-            ErrStr = parse_trans:format_exception(error, E),
-            {error, {L0, ?MODULE, ErrStr}}
-    end.
-
-gen_function_(NameF, FunF, AltF, L, Acc) ->
-    case erl_syntax:type(FunF) of
-        T when T==implicit_fun; T==fun_expr ->
-            {Arity, Clauses} = gen_function_clauses(T, NameF, FunF, L, Acc),
-            A1 = erl_anno:new(1),
-            {tuple, A1, {atom, A1, function},
-                         {integer, A1, L},
-                         NameF,
-                         {integer, A1, Arity},
-                         substitute(abstract(Clauses))};
-        list_comp ->
-            %% Extract the fun from the LC
-            Template = parse_trans:revert(
-                           erl_syntax:list_comp_template(FunF)),
-            %% Process fun in the normal fashion (as above)
-            {Arity, Clauses} = gen_function_clauses(erl_syntax:type(Template),
-                                                    NameF, Template, L, Acc),
-            Body = erl_syntax:list_comp_body(FunF),
-            %% Collect all variables from the LC generator(s)
-            %% We want to produce an abstract representation of something like:
-            %% {function,1,Name,Arity,
-            %%  lists:flatten(
-            %%     (fun(V1,V2,...) ->
-            %%           ...
-            %%       end)(__V1,__V2,...) || {__V1,__V2,...} <- L)}
-            %% where the __Vn vars are our renamed versions of the LC generator
-            %% vars. This allows us to instantiate the clauses at run-time.
-            Vars = lists:flatten(
-                     sets:to_list(erl_syntax_lib:variables(
-                                     erl_syntax:generator_pattern(G)))
-                      || G <- Body),
-            Vars1 = list_to_atom("__" ++ atom_to_list(V)) || V <- Vars,
-            VarMap = lists:zip(Vars, Vars1),
-            Body1 =
-                erl_syntax:generator(
-                   rename_vars(VarMap, gen_pattern(G)),
-                   gen_body(G)) || G <- Body,
-            A1 = erl_anno:new(1),
-            RevLC = parse_trans:revert(
-                        erl_syntax:list_comp(
-                           {call, A1,
-                            {'fun',A1,
-                             {clauses,
-                              {clause,A1,{var,A1,V} || V <- Vars,,
-                                substitute(
-                                   abstract(Clauses))
-                               }}
-                            }, {var,A1,V} || V <- Vars1}, Body1)),
-            AltC = case AltF of
-                        -> {nil,A1};
-                       _ ->
-                           {Arity, AltC1} = gen_function_clauses(
-                                              erl_syntax:type(AltF),
-                                              NameF, AltF, L, Acc),
-                           substitute(abstract(AltC1))
-                   end,
-            {tuple,A1,{atom,A1,function},
-                       {integer, A1, L},
-                       NameF,
-                       {integer, A1, Arity},
-                       {call, A1, {remote, A1, {atom, A1, lists},
-                                  {atom,A1,flatten}},
-                        {op, A1, '++', RevLC, AltC}}}
-    end.
-
-gen_pattern(G) ->
-    erl_syntax:generator_pattern(G).
-
-gen_body(G) ->
-    erl_syntax:generator_body(G).
-
-rename_vars(Vars, Tree) ->
-    erl_syntax_lib:map(
-      fun(T) ->
-              case erl_syntax:type(T) of
-                  variable ->
-                      V = erl_syntax:variable_name(T),
-                      {_,V1} = lists:keyfind(V,1,Vars),
-                      erl_syntax:variable(V1);
-                  _ ->
-                      T
-              end
-      end, Tree).
-
-gen_function_clauses(implicit_fun, _NameF, FunF, _L, Acc) ->
-    AQ = erl_syntax:implicit_fun_name(FunF),
-    Name = erl_syntax:atom_value(erl_syntax:arity_qualifier_body(AQ)),
-    Arity = erl_syntax:integer_value(
-              erl_syntax:arity_qualifier_argument(AQ)),
-    NewForm = find_function(Name, Arity, Acc),
-    ClauseForms = erl_syntax:function_clauses(NewForm),
-    {Arity, ClauseForms};
-gen_function_clauses(fun_expr, _NameF, FunF, _L, _Acc) ->
-    ClauseForms = erl_syntax:fun_expr_clauses(FunF),
-    Arity = get_arity(ClauseForms),
-    {Arity, ClauseForms}.
-
-find_function(Name, Arity, Forms) ->
-    Form = F || {function,_,N,A,_} = F <- Forms,
-                   N == Name,
-                   A == Arity,
-    Form.
-
-abstract(ClauseForms) ->
-    erl_parse:abstract(parse_trans:revert(ClauseForms)).
-
-substitute({tuple,L0,
-            {atom,_,tuple},
-             Loc,
-             {cons,_,
-              {tuple,_,{atom,_,atom},_LocA,{atom,_,'$var'}},
-              {cons,_,
-               {tuple,_,{atom,_,var},_LocB,{atom,_,V}},
-               {nil,_}}}}) when element(1, Loc) == tuple; % Erlang 24+
-                                 element(1, Loc) == integer ->
-    AbstConcreteLoc =
-        case Loc of
-            {integer, _, L} ->
-                {integer, L0, L};
-            {tuple, _, {integer, _, L}, {integer, _, C}} ->
-                {tuple, L0, {integer, L0, L}, {integer, L0, C}}
-        end,
-    {call, L0, {remote,L0,{atom,L0,erl_parse},
-                {atom,L0,abstract}},
-     {var, L0, V}, AbstConcreteLoc};
-substitute({tuple,L0, % Erlang 24: {Line,Col}
-            {atom,_,tuple},
-             Loc,
-             {cons,_,
-              {tuple,_,{atom,_,atom},_LocA,{atom,_,'$form'}},
-              {cons,_,
-               {tuple,_,{atom,_,var},_LocB,{atom,_,F}},
-               {nil,_}}}}) when element(1, Loc) == tuple; % Erlang 24+
-                                 element(1, Loc) == integer ->
-    {var, L0, F};
-substitute() ->
-    ;
-substitute(H|T) ->
-    substitute(H) | substitute(T);
-substitute(T) when is_tuple(T) ->
-    list_to_tuple(substitute(tuple_to_list(T)));
-substitute(X) ->
-    X.
-
-get_arity(Clauses) ->
-    Ays = length(erl_syntax:clause_patterns(C)) || C <- Clauses,
-    case lists:usort(Ays) of
-        Ay ->
-            Ay;
-        Other ->
-            erlang:error(ambiguous, Other)
-    end.
-
-
-format_error(E) ->
-    case io_lib:deep_char_list(E) of
-        true ->
-            E;
-        _ ->
-            io_lib:write(E)
-    end.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/src/parse_trans_mod.erl Deleted

@@ -1,128 +0,0 @@
-%%============================================================================
-%% Copyright 2014 Ulf Wiger
-%%
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%% http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%%============================================================================
-%%
-%% Based on meck_mod.erl from http://github.com/eproxus/meck.git
-%% Original author: Adam Lindberg
-%%
--module(parse_trans_mod).
-%% Interface exports
--export(transform_module/3).
-
--export(abstract_code/1).
--export(beam_file/1).
--export(compile_and_load_forms/1).
--export(compile_and_load_forms/2).
--export(compile_options/1).
--export(rename_module/2).
-
-%% Types
--type erlang_form() :: term().
--type compile_options() :: term().
-
-%%============================================================================
-%% Interface exports
-%%============================================================================
-
-transform_module(Mod, PT, Options) ->
-    File = beam_file(Mod),
-    Forms = abstract_code(File),
-    Context = parse_trans:initial_context(Forms, Options),
-    PTMods = if is_atom(PT) -> PT;
-                is_function(PT, 2) -> PT;
-                is_list(PT) -> PT
-             end,
-    Transformed = lists:foldl(fun(PTx, Fs) when is_function(PTx, 2) ->
-                                      PTx(Fs, Options);
-                                 (PTMod, Fs) ->
-                                      PTMod:parse_transform(Fs, Options)
-                              end, Forms, PTMods),
-    parse_trans:optionally_pretty_print(Transformed, Options, Context),
-    compile_and_load_forms(Transformed, get_compile_options(Options)).
-
-
--spec abstract_code(binary()) -> erlang_form().
-abstract_code(BeamFile) ->
-    case beam_lib:chunks(BeamFile, abstract_code) of
-        {ok, {_, {abstract_code, {raw_abstract_v1, Forms}}}} ->
-            Forms;
-        {ok, {_, {abstract_code, no_abstract_code}}} ->
-            erlang:error(no_abstract_code)
-    end.
-
--spec beam_file(module()) -> binary().
-beam_file(Module) ->
-    % code:which/1 cannot be used for cover_compiled modules
-    case code:get_object_code(Module) of
-        {_, Binary, _Filename} -> Binary;
-        error                  -> throw({object_code_not_found, Module})
-    end.
-
--spec compile_and_load_forms(erlang_form()) -> ok.
-compile_and_load_forms(AbsCode) -> compile_and_load_forms(AbsCode, ).
-
--spec compile_and_load_forms(erlang_form(), compile_options()) -> ok.
-compile_and_load_forms(AbsCode, Opts) ->
-    case compile:forms(AbsCode, Opts) of
-        {ok, ModName, Binary} ->
-            load_binary(ModName, Binary, Opts);
-        {ok, ModName, Binary, _Warnings} ->
-            load_binary(ModName, Binary, Opts)
-    end.
-
--spec compile_options(binary() | module()) -> compile_options().
-compile_options(BeamFile) when is_binary(BeamFile) ->
-    case beam_lib:chunks(BeamFile, compile_info) of
-        {ok, {_, {compile_info, Info}}} ->
-            proplists:get_value(options, Info);
-        _ ->
-            
-    end;
-compile_options(Module) ->
-    proplists:get_value(options, Module:module_info(compile)).
-
--spec rename_module(erlang_form(), module()) -> erlang_form().
-rename_module({attribute, Line, module, _OldName}|T, NewName) ->
-    {attribute, Line, module, NewName}|T;
-rename_module(H|T, NewName) ->
-    H|rename_module(T, NewName).
-
-%%==============================================================================
-%% Internal functions
-%%==============================================================================
-
-load_binary(Name, Binary, Opts) ->
-    code:purge(Name),
-    File = beam_filename(Name, Opts),
-    case code:load_binary(Name, File, Binary) of
-        {module, Name}  -> ok;
-        {error, Reason} ->  exit({error_loading_module, Name, Reason})
-    end.
-
-get_compile_options(Options) ->
-    case lists:keyfind(compile_options, 1, Options) of
-        {_, COpts} ->
-            COpts;
-        false ->
-            
-    end.
-
-beam_filename(Mod, Opts) ->
-    case lists:keyfind(outdir, 1, Opts) of
-        {_, D} ->
-            filename:join(D, atom_to_list(Mod) ++ code:objfile_extension());
-        false ->
-            ""
-    end.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/parse_trans/src/parse_trans_pp.erl Deleted

@@ -1,118 +0,0 @@
-%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*-
-%% --------------------------------------------------
-%% This file is provided to you under the Apache License,
-%% Version 2.0 (the "License"); you may not use this file
-%% except in compliance with the License.  You may obtain
-%% a copy of the License at
-%%
-%%   http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing,
-%% software distributed under the License is distributed on an
-%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-%% KIND, either express or implied.  See the License for the
-%% specific language governing permissions and limitations
-%% under the License.
-%% --------------------------------------------------
-%% File    : parse_trans_pp.erl
-%% @author  : Ulf Wiger <ulf@wiger.net>
-%% @end
-%% Description :
-%%
-%% Created : 3 Aug 2010 by Ulf Wiger <ulf@wiger.net>
-%% --------------------------------------------------
-
-%% @doc Generic parse transform library for Erlang.
-%%
-%% This module contains some useful utility functions for inspecting
-%% the results of parse transforms or code generation.
-%% The function `main/1' is called from escript, and can be used to
-%% pretty-print debug info in a .beam file from a Linux shell.
-%%
-%% Using e.g. the following bash alias:
-%% <pre>
-%% alias pp='escript $PARSE_TRANS_ROOT/ebin/parse_trans_pp.beam'
-%%% </pre>
-%% a file could be pretty-printed using the following command:
-%%
-%% `$ pp ex_codegen.beam | less'
-%% @end
-
--module(parse_trans_pp).
-
--export(
-         pp_src/2,
-         pp_beam/1, pp_beam/2
-        ).
-
--export(main/1).
-
-
--spec main(string()) -> any().
-main(F) ->
-    pp_beam(F).
-
-
-%% @spec (Forms, Out::filename()) -> ok
-%%
-%% @doc Pretty-prints the erlang source code corresponding to Forms into Out
-%%
--spec pp_src(parse_trans:forms(), file:filename()) ->
-    ok.
-pp_src(Forms0, F) ->
-    Forms = epp:restore_typed_record_fields(revert(Forms0)),
-    Str = io_lib:fwrite("~s~n",
-                         lists:flatten(erl_pp:form(Fm) ||
-                                            Fm <- Forms)),
-    file:write_file(F, list_to_binary(Str)).
-
-%% @spec (Beam::filename()) -> string() | {error, Reason}
-%%
-%% @doc
-%% Reads debug_info from the beam file Beam and returns a string containing
-%% the pretty-printed corresponding erlang source code.
-%% @end
--spec pp_beam(file:filename()) -> ok | {error, any()}.
-pp_beam(Beam) ->
-    case pp_beam_to_str(Beam) of
-        {ok, Str} ->
-            io:put_chars(Str);
-        Other ->
-            Other
-    end.
-
-%% @spec (Beam::filename(), Out::filename()) -> ok | {error, Reason}
-%%
-%% @doc
-%% Reads debug_info from the beam file Beam and pretty-prints it as
-%% Erlang source code, storing it in the file Out.
-%% @end
-%%
--spec pp_beam(file:filename(), file:filename()) -> ok | {error,any()}.
-pp_beam(F, Out) ->
-    case pp_beam_to_str(F) of
-        {ok, Str} ->
-            file:write_file(Out, list_to_binary(Str));
-        Other ->
-            Other
-    end.
-
-pp_beam_to_str(F) ->
-    case beam_lib:chunks(F, abstract_code) of
-        {ok, {_, {abstract_code,{_,AC0}}}} ->
-            AC = epp:restore_typed_record_fields(AC0),
-            {ok, lists:flatten(
-                   %% io_lib:fwrite("~s~n", erl_prettypr:format(
-                   %%                          erl_syntax:form_list(AC)))
-                   io_lib:fwrite("~s~n", lists:flatten(
-                                            erl_pp:form(Form) ||
-                                                Form <- AC))
-                  )};
-        Other ->
-            {error, Other}
-    end.
-
--spec revert(parse_trans:forms()) ->
-    parse_trans:forms().
-revert(Tree) ->
-    erl_syntax:revert(T) || T <- lists:flatten(Tree).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/LICENSE Deleted

@@ -1,30 +0,0 @@
-Copyright (c) 2009-2022, Michael Santos <michael.santos@gmail.com>
-All rights reserved.
-
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions
-are met:
-
-Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-
-Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in the
-documentation and/or other materials provided with the distribution.
-
-Neither the name of the author nor the names of its contributors
-may be used to endorse or promote products derived from this software
-without specific prior written permission.
-
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-POSSIBILITY OF SUCH DAMAGE.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/Makefile Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/README.md Deleted

@@ -1,176 +0,0 @@
-
-An Erlang network protocol library.
-
-Originally part of epcap:
-<http://github.com/msantos/epcap>
-
-
-## EXPORTS
-
-    pkt:decapsulate(Data) -> Packet
-    pkt:decapsulate(Proto, Data) -> Packet
-
-        Types   Data = binary()
-                Proto = atom() | integer()
-                Packet =  Header | Payload 
-                Header = #ether{} | #arp{} | #null{} | #linux_cooked{} |
-                    #ipv4{} | #ipv6{} | #tcp{} | #udp{} | #sctp{} | #icmp{} |
-                    #icmp6{} | #igmp{} | #gre{} | #llc{} | #vrrp{} | #'802.1q'{} |
-                    #lldp{} | #mpls{} | #rarp{} | #'802.1x'{}
-                Payload = binary()
-
-        Convert network protocols from binary data to a list of Erlang
-        records followed by the payload.
-
-        decapsulate/1,2 works on valid packets. If the packet is malformed
-        or unsupported, decapsulate/1 will crash.
-
-        decapsulate/1 parses the data as an ethernet frame.
-
-        decapsulate/2 allows specifying the protocol for decoding the
-        packet. If the protocol is specified as an integer, the integer
-        is treated as a datalink type.
-
-    pkt:decode(Data) -> {ok, Packet} | {error, SoFar, {FailedProto, binary()}}
-    pkt:decode(Proto, Data) -> {ok, Packet} | {error, SoFar, {FailedProto, binary()}}
-
-        Types   Data = binary()
-                Proto = FailedProto = atom()
-                Packet = {Headers, Payload}
-                Headers = Header
-                Header = #ether{} | #arp{} | #null{} | #linux_cooked{} |
-                    #ipv4{} | #ipv6{} | #tcp{} | #udp{} | #sctp{} | #icmp{} |
-                    #icmp6{} | #igmp{} | #gre{} | #llc{} | #vrrp{} | #'802.1q'{} |
-                    #lldp{} | #mpls{} | #rarp{} | #'802.1x'{}
-                SoFar = Headers | 
-                Payload = binary()
-
-        Similar to decapsulate/1 but, on error, returns any part of the
-        packet that has been successfully converted to Erlang term format.
-
-The following functions create the protocol headers, converting between
-records and binaries. See include/pkt.hrl for definition of the record
-types.
-
-    ether(Packet) -> {#ether{}, Payload} | binary()
-    llc(Packet) -> {#llc{}, Payload} | binary()
-    vrrp(Packet) -> {#vrrp{}, Payload} | binary()
-    '802.1q'(Packet) -> {#'802.1q'{}, Payload} | binary()
-    null(Packet) -> {#null{}, Payload} | binary()
-    linux_cooked(Packet) -> {#linux_cooked{}, Payload} | binary()
-    gre(Packet) -> {#gre{}, Payload} | binary()
-    arp(Packet) -> {#arp{}, Payload} | binary()
-    ipv4(Packet) -> {#ipv4{}, Payload} | binary()
-    ipv6(Packet) -> {#ipv6{}, Payload} | binary()
-    tcp(Packet) -> {#tcp{}, Payload} | binary()
-    sctp(Packet) -> {#sctp{}, Payload} | binary()
-    udp(Packet) -> {#udp{}, Payload} | binary()
-    icmp(Packet) -> {#icmp{}, Payload} | binary()
-    icmp6(Packet) -> {#icmp6{}, Payload} | binary()
-    igmp(Packet) -> {#igmp{}, Payload} | binary()
-    mpls(Packet) -> {#mpls{}, Next, Payload}
-    lldp(Packet) -> {#lldp{}, Payload}
-    rarp(Packet) -> {#rarp{}, Payload}
-    '802.1x'(Packet) -> {#'802.1x'{}, Payload}
-
-        Types   Packet = Header | binary()
-                Header = #ether{} | #null{} | #linux_cooked{} | #arp{} |
-                    #ipv4{} | #ipv6{} | #tcp{} | #sctp{} | #udp{} |
-                    #icmp{} | #icmp6{} | #igmp{} | #gre{} | #llc{} |
-                    #vrrp{} | #'802.1q'{} | #lldp{} | #mpls{} | #rarp{} | #'802.1x'{}
-                Next = ipv4 | ipv6
-
-
-    makesum(Packet) -> integer()
-
-        Types   Packet = IPv4_header | IPv4_header, Header, Payload
-                IPv4_header = #ipv4{}
-                Header = #tcp{} | #udp{}
-                Payload = binary()
-
-        Calculate the one's complement checksum of the packet.
-
-        When computing the checksum, the header sum field must be set
-        to 0:
-
-            Sum = pkt:makesum(IPv4, TCP#tcp{sum = 0}, Payload).
-
-        For verifcation, the checksum can be compared to the value in
-        the header or:
-
-            0 = pkt:makesum(IPv4, TCP, Payload).
-
-## EXAMPLES
-
-* decode an ethernet frame, displaying the source and destination of
-  valid packets
-
-```erlang
-Frame = <<224,105,149,59,163,24,0,22,182,181,62,198,8,0,69,0,0,54,2,108,64,
-          0,53,6,172,243,173,192,82,195,192,168,213,54,0,80,143,166,75,154,
-          212,181,116,33,53,92,128,24,0,126,60,199,0,0,1,1,8,10,92,104,96,
-          16,22,69,237,136,137,0>>,
-
-try pkt:decapsulate(Frame) of
-    #ether{}, #ipv4{saddr = Saddr, daddr = Daddr},
-        #tcp{sport = Sport, dport = Dport}, _Payload ->
-        {{Saddr, Sport}, {Daddr, Dport}}
-catch
-    error:_ ->
-        ok % ignore invalid packets
-end
-```
-
-* verify the TCP checksum of an ethernet frame
-
-```erlang
-{ok, #ether{}, IPv4, #tcp{sum = Sum} = TCP, Payload} = pkt:decode(ether, Frame),
-
-% Re-calculate the checksum and match against the checksum in the header
-Sum = pkt:makesum(IPv4, TCP#tcp{sum = 0}, Payload),
-
-% Or just verify the checksum
-0 = pkt:makesum(IPv4, TCP, Payload).
-```
-
-## PADDING OF ETHERNET FRAMES
-
-The minimum size of an ethernet payload is 46 bytes. An ethernet frame
-containing a TCP/IP packet composed of a 20 byte IPv4 header and 20 byte
-TCP header and payload will be padded by 6 bytes. To calculate the actual
-length of the packet, use the length and header length values in the IPv4
-header and the offset value in the TCP header:
-
-```erlang
-#ether{}, #ipv4{len = Len, hl = HL}, #tcp{off = Off}, Payload = pkt:decapsulate(Frame),
-    Size = Len - (HL * 4) - (Off * 4),
-    <<Payload:Size/bytes>>.
-```
-
-## TODO
-
-* support RFC 2675 (IPv6 Jumbograms)
-
-* IPv6 AH and ESP
-    * handle alignment differences between IPv4 and IPv6 (IPv4 uses 32
-      bits, IPv6 uses 64 bits)
-
-* ICMPv6
-    * fix handling of neighbour discovery
-    * simplify ICMPv6 header record and add a record for ICMPv6 type or
-      add functions for ICMPv6 variable length payloads
-
-* IGMP
-    * support IGMPv3 variable payloads
-
-* merge in DLT\_IEEE802\_11 support from wierl
-
-* merge in ICMPv6 code from gen_icmp
-
-* DLTs
-    * DLT_SLIP
-    * DLT_PPP
-    * DLT_RAW
-    * DLT\_PPP\_SERIAL
-    * DLT\_PPP\_ETHER
-    * DLT_LOOP

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/include Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/include/pkt.hrl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/include/pkt_802_1q.hrl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/include/pkt_802_1x.hrl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/include/pkt_arp.hrl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/include/pkt_dlt.hrl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/include/pkt_ether.hrl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/include/pkt_gre.hrl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/include/pkt_icmp.hrl Deleted

@@ -1,35 +0,0 @@
--define(ICMP_ECHOREPLY, 0).
--define(ICMP_DEST_UNREACH, 3).
--define(    ICMP_UNREACH_NET, 0).           % bad net
--define(    ICMP_UNREACH_HOST, 1).          % bad host
--define(    ICMP_UNREACH_PROTOCOL, 2).      % bad protocol
--define(    ICMP_UNREACH_PORT, 3).          % bad port
--define(    ICMP_UNREACH_NEEDFRAG, 4).      % IP_DF caused drop
--define(    ICMP_UNREACH_SRCFAIL, 5 ).      % src route failed
--define(ICMP_SOURCE_QUENCH, 4).
--define(ICMP_REDIRECT, 5).
--define(    ICMP_REDIRECT_NET, 0).          % for network
--define(    ICMP_REDIRECT_HOST, 1).         % for host
--define(    ICMP_REDIRECT_TOSNET, 2).       % for tos and net
--define(    ICMP_REDIRECT_TOSHOST, 3).      % for tos and host
--define(ICMP_ECHO, 8).
--define(ICMP_TIME_EXCEEDED, 11).
--define(    ICMP_TIMXCEED_INTRANS, 0).      % ttl==0 in transit
--define(    ICMP_TIMXCEED_REASS, 1).        % ttl==0 in reass
--define(ICMP_PARAMETERPROB, 12).
--define(ICMP_TIMESTAMP, 13).
--define(ICMP_TIMESTAMPREPLY, 14).
--define(ICMP_INFO_REQUEST, 15).
--define(ICMP_INFO_REPLY, 16).
--define(ICMP_ADDRESS, 17).
--define(ICMP_ADDRESSREPLY, 18).
-
--record(icmp, {
-        type = ?ICMP_ECHO :: pkt:uint8_t(), code = 0 :: pkt:uint8_t(), checksum = 0 :: pkt:uint16_t(),
-        id = 0 :: pkt:uint16_t(), sequence = 0 :: pkt:uint16_t(),
-        gateway = {127,0,0,1} :: pkt:in_addr(),
-        un = <<0:32>> :: binary(),
-        mtu = 0 :: pkt:uint16_t(),
-        pointer = 0 :: pkt:uint8_t(),
-        ts_orig = 0 :: pkt:uint32_t(), ts_recv = 0 :: pkt:uint32_t(), ts_tx = 0 :: pkt:uint32_t()
-    }).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/include/pkt_icmp6.hrl Deleted

@@ -1,55 +0,0 @@
--define(ICMP6_DST_UNREACH, 1).
--define(ICMP6_PACKET_TOO_BIG, 2).
--define(ICMP6_TIME_EXCEEDED, 3).
--define(ICMP6_PARAM_PROB, 4).
--define(ICMP6_INFOMSG_MASK, 16#80).         % all informational messages
--define(ICMP6_ECHO_REQUEST, 128).
--define(ICMP6_ECHO_REPLY, 129).
--define(ICMP6_DST_UNREACH_NOROUTE, 0).      % no route to destination
--define(ICMP6_DST_UNREACH_ADMIN, 1).        % communication with destination
--define(ICMP6_DST_UNREACH_BEYONDSCOPE, 2).  % beyond scope of source address
--define(ICMP6_DST_UNREACH_ADDR, 3).         % address unreachable
--define(ICMP6_DST_UNREACH_NOPORT, 4).       % bad port
--define(ICMP6_TIME_EXCEED_TRANSIT, 0).      % Hop Limit == 0 in transit
--define(ICMP6_TIME_EXCEED_REASSEMBLY, 1).   % Reassembly time out
--define(ICMP6_PARAMPROB_HEADER, 0).         % erroneous header field
--define(ICMP6_PARAMPROB_NEXTHEADER, 1).     % unrecognized Next Header
--define(ICMP6_PARAMPROB_OPTION, 2).         % unrecognized IPv6 option
--define(ICMP6_ROUTER_RENUMBERING, 138).
-
--define(MLD_LISTENER_QUERY, 130).
--define(MLD_LISTENER_REPORT, 131).
--define(MLD_LISTENER_REPORTV2, 143).
--define(MLD_LISTENER_REDUCTION, 132).
-
--define(ND_ROUTER_SOLICIT, 133).
--define(ND_ROUTER_ADVERT, 134).
--define(ND_NEIGHBOR_SOLICIT, 135).
--define(ND_NEIGHBOR_ADVERT, 136).
--define(ND_REDIRECT, 137).
-
--record(icmp6, {
-        type = ?ICMP6_ECHO_REQUEST :: pkt:uint8_t(), code = 0 :: pkt:uint8_t(), checksum = 0 :: pkt:uint16_t(),
-
-        un = <<0:32>> :: <<_:32>>,
-        pptr = 0 :: pkt:uint32_t(),
-        mtu = 0 :: pkt:uint32_t(),
-        id = 0 :: pkt:uint16_t(),
-        seq = 0 :: pkt:uint16_t(),
-        maxdelay = 0 :: pkt:uint16_t(),
-
-        res = 0 :: pkt:uint16_t(), res2 = 0 :: pkt:uint16_t(),
-
-        saddr = {0,0,0,0,0,0,0,0} :: pkt:in6_addr(),
-        daddr = {0,0,0,0,0,0,0,0} :: pkt:in6_addr(),
-
-        % router advertisement
-        hop = 0 :: pkt:uint8_t(), m = 0 :: pkt:bit(), o = 0 :: pkt:bit(), lifetime = 0 :: pkt:uint16_t(), reach = 0 :: pkt:uint32_t(), retrans = 0 :: pkt:uint32_t(),
-
-        % Neighbor Advertisement Message
-        r = 0 :: pkt:bit(), s = 0 :: pkt:bit(),
-
-        % Multicast Listener Discovery (MLD)
-        % use daddr for the multicast address
-        delay = 0 :: pkt:uint16_t()
-    }).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/include/pkt_igmp.hrl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/include/pkt_ipproto.hrl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/include/pkt_ipv4.hrl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/include/pkt_ipv6.hrl Deleted

@@ -1,61 +0,0 @@
-%% RFC 2460: IPv6 Specification
--record(ipv6, {
-        v = 6 :: pkt:bit4(), class = 0 :: pkt:uint8_t(), flow = 0 :: 0 .. 2#11111111111111111111,
-        len = 40 :: pkt:uint16_t(), next = ?IPPROTO_TCP :: pkt:uint8_t(), hop = 0 :: pkt:uint8_t(),
-        saddr :: pkt:in6_addr(), daddr :: pkt:in6_addr()
-    }).
-
-% XXX fix naming
-
-%% IPv6 Extension Headers
-%%
-%% RFC 6564: A Uniform Format for IPv6 Extension Headers
-
-% Hop-by-Hop Options Header
--record(ipv6_hopopts, {
-        next = ?IPPROTO_NONE :: pkt:uint8_t(),
-        len = 0 :: pkt:uint8_t(),
-        opt = <<>> :: binary()
-    }).
-
--record(ipv6_routing, {
-        next = ?IPPROTO_NONE :: pkt:uint8_t(),
-        len = 0 :: pkt:uint8_t(),
-        type = 0 :: pkt:uint8_t(),
-        left = 0 :: pkt:uint8_t(),
-        data = <<>> :: binary()
-    }).
-
--record(ipv6_fragment, {
-        next = ?IPPROTO_NONE :: pkt:uint8_t(),
-        res = 0 :: pkt:uint8_t(),
-        off = 0 :: 0 .. 2#1111111111111,
-        res2 = 0 :: 0 .. 3,
-        m = 0 :: pkt:bit(),
-        id = 0 :: pkt:uint32_t()
-    }).
-
--record(ipv6_dstopts, {
-        next = ?IPPROTO_NONE,
-        len = 0,
-        opt = <<>>
-    }).
-
--record(ipv6_ah, {
-        next = ?IPPROTO_NONE :: pkt:uint8_t(),
-        len = 0 :: pkt:uint8_t(),
-        res = 0 :: pkt:uint16_t(),
-        spi = 0 :: pkt:uint32_t(),
-        seq = 0 :: pkt:uint32_t(),
-        icv = <<>> :: binary()
-    }).
-
--record(ipv6_esp, {
-        spi = ?IPPROTO_NONE :: pkt:uint32_t(),
-        seq = 0 :: pkt:uint32_t(),
-        data = <<>> :: binary(),
-        pad = <<>> :: binary(),
-        padlen = 0 :: pkt:uint8_t(),
-        next = 0 :: pkt:uint8_t(),
-        icv = <<>> :: binary()
-    }).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/include/pkt_linux_cooked.hrl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/include/pkt_llc.hrl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/include/pkt_lldp.hrl Deleted

@@ -1,163 +0,0 @@
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% End of LLDPDU
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
--define(END_OF_LLDPDU, 0).
-
--type end_of_lldpdu() :: end_of_lldpdu.
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Chassis Id
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
--define(CHASSIS_ID, 1).
-
--define(CHASSIS_ID_CHASSIS, 1).
--define(CHASSIS_ID_IFAlias, 2).
--define(CHASSIS_ID_PORT,    3).
--define(CHASSIS_ID_MAC,     4).
--define(CHASSIS_ID_NW,      5).
--define(CHASSIS_ID_IFNAME,  6).
--define(CHASSIS_ID_LOCALLY, 7).
-
--type chassis_id_subtype() :: chassis_component
-                            | interface_alias
-                            | port_component
-                            | mac_address
-                            | network_address
-                            | interface_name
-                            | locally_assigned.
-
--record(chassis_id, { subtype = locally_assigned :: chassis_id_subtype(),
-                      value   = <<>>             :: binary() }).
--type chassis_id() :: #chassis_id{}.
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Port Id
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
--define(PORT_ID, 2).
-
--define(PORT_ID_IFALIAS,       1).
--define(PORT_ID_PORT,          2).
--define(PORT_ID_MAC,           3).
--define(PORT_ID_NW,            4).
--define(PORT_ID_IFNAME,        5).
--define(PORT_ID_AGENT_CIRC_ID, 6).
--define(PORT_ID_LOCALLY,       7).
-
--type port_id_subtype() :: interface_alias
-                         | port_component
-                         | mac_address
-                         | network_address
-                         | interface_name
-                         | agent_circuit_id
-                         | locally_assigned.
-
--record(port_id, { subtype = locally_assigned :: port_id_subtype(),
-                   value   = <<>>             :: binary() }).
--type port_id() :: #port_id{}.
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% TTL
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
--define(TTL, 3).
-
--record(ttl, { value = 0 :: non_neg_integer() }).
--type ttl() :: #ttl{}.
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Port Description
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
--define(PORT_DESC, 4).
-
--record(port_desc, { value = <<>> :: binary() }).
--type port_desc() :: #port_desc{}.
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% System Name
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
--define(SYSTEM_NAME, 5).
-
--record(system_name, { value = <<>> :: binary() }).
--type system_name() :: #system_name{}.
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% System Description
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
--define(SYSTEM_DESC, 6).
-
--record(system_desc, { value = <<>> :: binary() }).
--type system_desc() :: #system_desc{}.
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% System Capability
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
--define(SYSTEM_CAPABILITY, 7).
-
--type capability_flag() :: other
-                         | repeater
-                         | bridge
-                         | wlan_access_point
-                         | router
-                         | telephone
-                         | docsis
-                         | station_only.
-
--define(SYSTEM_CAP_OTHER,     1 bsl 0).
--define(SYSTEM_CAP_REPEATER,  1 bsl 1).
--define(SYSTEM_CAP_BRIDGE,    1 bsl 2).
--define(SYSTEM_CAP_WLANAP,    1 bsl 3).
--define(SYSTEM_CAP_ROUTER,    1 bsl 4).
--define(SYSTEM_CAP_TELEPHONE, 1 bsl 5).
--define(SYSTEM_CAP_DOCSIS,    1 bsl 6).
--define(SYSTEM_CAP_STATION,   1 bsl 7).
-
--record(system_capability, { system  =  :: capability_flag(),
-                             enabled =  :: capability_flag() }).
--type system_capability() :: #system_capability{}.
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Management Address
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
--define(MANAGEMENT_ADDRESS, 8).
-
--record(management_address, { value = <<>> :: binary() }).
--type management_address() :: #management_address{}.
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Organizationally Specific
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
--define(ORGANIZATIONALLY_SPECIFIC, 127).
-
--record(organizationally_specific, { value = <<>> :: binary() }).
--type organizationally_specific() :: #organizationally_specific{}.
-
--record(unknown_lldp_tlv,{type = 0:: integer(), value = <<>> :: binary()}).
--type unknown_lldp_tlv() :: #unknown_lldp_tlv{}.
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% LLDP Frame Format
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
--type pdu() :: chassis_id()
-             | end_of_lldpdu()
-             | port_id()
-             | ttl()
-             | port_desc()
-             | system_name()
-             | system_desc()
-             | system_capability()
-             | management_address()
-             | organizationally_specific()
-             | unknown_lldp_tlv().
-
--record(lldp, { pdus =  :: pdu() }).
--type lldp() :: #lldp{}.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/include/pkt_mpls.hrl Deleted

@@ -1,32 +0,0 @@
--define(MPLS_LABEL_IPV4NULL, 0).
--define(MPLS_LABEL_RTALERT, 1).
--define(MPLS_LABEL_IPV6NULL, 2).
--define(MPLS_LABEL_IMPLNULL, 3).
--define(MPLS_LABEL_ENTROPY, 7).
--define(MPLS_LABEL_GAL, 13).
--define(MPLS_LABEL_OAMALERT, 14).
--define(MPLS_LABEL_EXTENSION, 15).
--define(MPLS_LABEL_FIRST_UNRESERVED, 16).
-
-%% Reference: RFC 5462, RFC 3032
-%%
-%%   0                   1                   2                   3
-%%   0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1
-%%  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
-%%  |                Label                  | TC  |S|       TTL     |
-%%  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
-%%
-%% 	Label:  Label Value, 20 bits
-%% 	TC:     Traffic Class field, 3 bits
-%% 	S:      Bottom of Stack, 1 bit
-%% 	TTL:    Time to Live, 8 bits
-%%
-
--record(shim, {label = 0 :: 1..16#fffff,
-               tc = 0 :: 1..7,
-               s = true :: boolean(),
-               ttl = 0 :: pkt:uint8_t()}).
--type shim() :: #shim{}.
-
--record(mpls, {labels =  :: shim()}).
--type mpls() :: #mpls{}.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/include/pkt_null.hrl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/include/pkt_protocol_family.hrl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/include/pkt_rarp.hrl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/include/pkt_sctp.hrl Deleted

@@ -1,113 +0,0 @@
--define(SCTP_CHUNK_DATA, 0).                % Payload data
--define(SCTP_CHUNK_INIT, 1).                % Initiation
--define(SCTP_CHUNK_INIT_ACK, 2).            % Initiation acknowledgement
--define(SCTP_CHUNK_SACK, 3).                % Selective acknowledgement
--define(SCTP_CHUNK_HEARTBEAT, 4).           % Heartbeat request
--define(SCTP_CHUNK_HEARTBEAT_ACK, 5).       % Heartbeat acknowledgement
--define(SCTP_CHUNK_ABORT, 6).               % Abort
--define(SCTP_CHUNK_SHUTDOWN, 7).            % Shutdown
--define(SCTP_CHUNK_SHUTDOWN_ACK, 8).        % Shutdown acknowledgement
--define(SCTP_CHUNK_ERROR, 9).               % Operation error
--define(SCTP_CHUNK_COOKIE_ECHO, 10).        % State cookie
--define(SCTP_CHUNK_COOKIE_ACK, 11).         % Cookie acknowledgement
--define(SCTP_CHUNK_SHUTDOWN_COMPLETE, 14).  % Shutdown complete
-
--record(sctp_chunk_data, {
-    tsn = 0 :: pkt:uint32_t(),
-    sid = 0 :: pkt:uint16_t(),
-    ssn = 0 :: pkt:uint16_t(),
-    ppi = 0 :: pkt:uint32_t(),
-    data = <<>> :: binary()
-}).
-
--record(sctp_chunk_init, {
-    itag = 0 :: pkt:uint32_t(),
-    a_rwnd = 0 :: pkt:uint32_t(),
-    outbound_streams = 0 :: pkt:uint16_t(),
-    inbound_streams = 0 :: pkt:uint16_t(),
-    tsn = 0 :: pkt:uint32_t(),
-    params =  :: proplists:property()
-}).
-
--record(sctp_chunk_init_ack, {
-    itag = 0 :: pkt:uint32_t(),
-    a_rwnd = 0 :: pkt:uint32_t(),
-    outbound_streams = 0 :: pkt:uint16_t(),
-    inbound_streams = 0 :: pkt:uint16_t(),
-    tsn = 0 :: pkt:uint32_t(),
-    params  =  :: proplists:property()
-}).
-
--record(sctp_chunk_sack, {
-    tsn_ack = 0 :: pkt:uint32_t(),
-    a_rwnd = 0 :: pkt:uint32_t(),
-    number_gap_ack_blocks = 0 :: pkt:uint16_t(),
-    number_duplicate_tsn = 0 :: pkt:uint16_t(),
-    gap_ack_blocks =  :: {pkt:uint16_t(), pkt:uint16_t()},
-    duplicate_tsns =  :: pkt:uint32_t()
-}).
-
--record(sctp_chunk_cookie_echo, {
-    cookie :: binary()
-}).
-
--record(sctp_chunk_cookie_ack, {}).
-
--record(sctp_chunk_heartbeat, {
-    type = 1 :: 1,
-    info = <<>> :: binary()
-}).
-
--record(sctp_chunk_heartbeat_ack, {
-    type = 1 :: 1,
-    info = <<>> :: binary()
-}).
-
--record(sctp_chunk_shutdown, {
-    tsn_ack = 0 :: pkt:uint32_t()
-}).
-
--record(sctp_chunk_shutdown_ack, {}).
--record(sctp_chunk_shutdown_complete, {}).
-
--record(sctp_error_cause, {
-    code :: 1..13,
-    descr :: string(),
-    opts =  :: proplists:property()
-}).
-
--record(sctp_chunk_abort, {
-    error_causes =  :: #sctp_error_cause{}
-}).
-
--record(sctp_chunk, {
-    type = 0 :: 0..254, %% The value of 255 is reserved for future use as an extension field
-    %% Flags
-    i = 0 :: pkt:bit(),
-    u = 0 :: pkt:bit(),
-    b = 1 :: pkt:bit(),
-    e = 0 :: pkt:bit(),
-    %% End of flags
-    len = 0 :: pkt:uint16_t(),
-    payload = <<>> ::
-        #sctp_chunk_data{}
-        | #sctp_chunk_init{}
-        | #sctp_chunk_init_ack{}
-        | #sctp_chunk_sack{}
-        | #sctp_chunk_cookie_echo{}
-        | #sctp_chunk_cookie_ack{}
-        | #sctp_chunk_heartbeat{}
-        | #sctp_chunk_heartbeat_ack{}
-        | #sctp_chunk_shutdown{}
-        | #sctp_chunk_shutdown_ack{}
-        | #sctp_chunk_shutdown_complete{}
-        | binary()
-}).
-
--record(sctp, {
-    sport  = 0  :: inet:port_number(),
-    dport  = 0  :: inet:port_number(),
-    vtag   = 0  :: pkt:uint32_t(),
-    sum    = 0  :: pkt:uint32_t(),
-    chunks =  :: #sctp_chunk{}
-}).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/include/pkt_tcp.hrl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/include/pkt_udp.hrl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/include/pkt_vrrp.hrl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/rebar.config Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/rebar.lock Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt.app.src Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt.erl Deleted

@@ -1,683 +0,0 @@
-%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt).
-
--include("pkt.hrl").
-
--export(
-        checksum/1,
-        build_checksum/1,
-        codec/1, encode/1,
-        decapsulate/1, decapsulate/2,
-        decode/1, decode/2,
-        makesum/1,
-        ether/1,
-        ether_type/1,
-        mpls/1,
-        '802.1q'/1,
-	'802.1x'/1,
-        llc/1,
-        arp/1,
-        rarp/1,
-        lldp/1,
-        null/1,
-        gre/1,
-        linux_cooked/1,
-        linux_cooked_v2/1,
-        icmp/1,
-        icmp6/1,
-        igmp/1,
-        ipv4/1,
-        ipv6/1,
-        vrrp/1,
-        ipv6_ah/1,
-        ipv6_dstopts/1,
-        ipv6_esp/1,
-        ipv6_fragment/1,
-        ipv6_hopopts/1,
-        ipv6_routing/1,
-        ipproto/1, proto/1,
-        tcp/1,
-        tcp_options/1,
-        udp/1,
-        sctp/1,
-        verify_checksum/1,
-        dlt/1, link_type/1
-).
-
--type bit() :: 0 .. 1.
--type in_port_t() :: 0 .. 16#ffff.
--type bit4() :: 0 .. 2#1111.
--type uint8_t() :: 0..16#ff.
--type uint16_t() :: 0 .. 16#ffff.
--type uint32_t() :: 0 .. 16#ffffffff.
--type in_addr() :: {uint8_t(),uint8_t(),uint8_t(),uint8_t()}.
--type in6_addr() :: {uint16_t(),uint16_t(),uint16_t(),uint16_t(),uint16_t(),uint16_t(),uint16_t(),uint16_t()}.
-
--export_type(
-        bit/0,
-        in6_addr/0,
-        in_addr/0,
-        in_port_t/0,
-        bit4/0,
-        uint8_t/0,
-        uint16_t/0,
-        uint32_t/0
-    ).
-
-% For integers, assume a whole frame and check the datalink type.
-%
-% Atoms can indicate any protocol type.
-decapsulate(Proto, Data) ->
-    decapsulate({Proto, Data}).
-
-decapsulate({DLT, Data}) when is_integer(DLT) ->
-    decapsulate_next({dlt(DLT), Data}, );
-decapsulate({Proto, Data}) when is_atom(Proto) ->
-    decapsulate_next({Proto, Data}, );
-decapsulate(Data) when is_binary(Data) ->
-    decapsulate_next({ether, Data}, ).
-
-% Aliases
-decapsulate_next({en10mb, Data}, Headers) ->
-    decapsulate_next({ether, Data}, Headers);
-decapsulate_next({linux_sll, Data}, Headers) ->
-    decapsulate_next({linux_cooked, Data}, Headers);
-decapsulate_next({linux_sll2, Data}, Headers) ->
-    decapsulate_next({linux_cooked_v2, Data}, Headers);
-
-% Protocol header indicates next header
-decapsulate_next({null, Data}, Headers) ->
-    {Header, Payload} = null(Data),
-    decapsulate_next({next(Header), Payload}, Header|Headers);
-decapsulate_next({linux_cooked, Data}, Headers) ->
-    {Header, Payload} = linux_cooked(Data),
-    decapsulate_next({next(Header), Payload}, Header|Headers);
-decapsulate_next({linux_cooked_v2, Data}, Headers) ->
-    {Header, Payload} = linux_cooked_v2(Data),
-    decapsulate_next({next(Header), Payload}, Header|Headers);
-decapsulate_next({ether, Data}, Headers) ->
-    {Header, Payload} = ether(Data),
-    decapsulate_next({next(Header), Payload}, Header|Headers);
-decapsulate_next({mpls, Data}, Headers) ->
-    {Header, Next, Payload} = mpls(Data),
-    decapsulate_next({Next, Payload}, Header|Headers);
-decapsulate_next({'802.1q', Data}, Headers) ->
-    {Header, Payload} = '802.1q'(Data),
-    decapsulate_next({next(Header), Payload}, Header|Headers);
-decapsulate_next({'802.1qinq', Data}, Headers) ->
-    {Header, Payload} = '802.1q'(Data),
-    decapsulate_next({next(Header), Payload}, Header|Headers);
-decapsulate_next({llc, Data}, Headers) ->
-    {Header, Payload} = llc(Data),
-    lists:reverse(Payload, Header|Headers);
-
-decapsulate_next({ipv4, Data}, Headers) ->
-    {Header, Payload} = ipv4(Data),
-    decapsulate_next({next(Header), Payload}, Header|Headers);
-decapsulate_next({ipv6, Data}, Headers) ->
-    {Header, Payload} = ipv6(Data),
-    decapsulate_next({next(Header), Payload}, Header|Headers);
-
-decapsulate_next({ipv6_ah, Data}, Headers) ->
-    {Header, Payload} = ipv6_ah(Data),
-    decapsulate_next({next(Header), Payload}, Header|Headers);
-decapsulate_next({ipv6_dstopts, Data}, Headers) ->
-    {Header, Payload} = ipv6_dstopts(Data),
-    decapsulate_next({next(Header), Payload}, Header|Headers);
-decapsulate_next({ipv6_esp, Data}, Headers) ->
-    {Header, Payload} = ipv6_esp(Data),
-    decapsulate_next({next(Header), Payload}, Header|Headers);
-decapsulate_next({ipv6_fragment, Data}, Headers) ->
-    {Header, Payload} = ipv6_fragment(Data),
-    decapsulate_next({next(Header), Payload}, Header|Headers);
-decapsulate_next({ipv6_hopopts, Data}, Headers) ->
-    {Header, Payload} = ipv6_hopopts(Data),
-    decapsulate_next({next(Header), Payload}, Header|Headers);
-decapsulate_next({ipv6_routing, Data}, Headers) ->
-    {Header, Payload} = ipv6_routing(Data),
-    decapsulate_next({next(Header), Payload}, Header|Headers);
-
-decapsulate_next({gre, Data}, Headers) ->
-    {Header, Payload} = gre(Data),
-    decapsulate_next({next(Header), Payload}, Header|Headers);
-
-% Upper layer: data follows header
-decapsulate_next({arp, Data}, Headers) ->
-    {Header, Payload} = arp(Data),
-    lists:reverse(Payload, Header|Headers);
-decapsulate_next({rarp, Data}, Headers) ->
-    {Header, Payload} = rarp(Data),
-    lists:reverse(Payload, Header|Headers);
-decapsulate_next({lldp, Data}, Headers) ->
-    {Header, Payload} = lldp(Data),
-    lists:reverse(Payload, Header|Headers);
-decapsulate_next({tcp, Data}, Headers) ->
-    {Header, Payload} = tcp(Data),
-    lists:reverse(Payload, Header|Headers);
-decapsulate_next({udp, Data}, Headers) ->
-    {Header, Payload} = udp(Data),
-    lists:reverse(Payload, Header|Headers);
-decapsulate_next({sctp, Data}, Headers) ->
-    {Header, Payload} = sctp(Data),
-    lists:reverse(Payload, Header|Headers);
-decapsulate_next({icmp, Data}, Headers) ->
-    {Header, Payload} = icmp(Data),
-    lists:reverse(Payload, Header|Headers);
-decapsulate_next({icmp6, Data}, Headers) ->
-    {Header, Payload} = icmp6(Data),
-    lists:reverse(Payload, Header|Headers);
-decapsulate_next({igmp, Data}, Headers) ->
-    {Header, Payload} = igmp(Data),
-    lists:reverse(Payload, Header|Headers);
-decapsulate_next({vrrp, Data}, Headers) ->
-    {Header, Payload} = vrrp(Data),
-    lists:reverse(Payload, Header | Headers);
-decapsulate_next({'802.1x', Data}, Headers) ->
-    {Header, Payload} = '802.1x'(Data),
-    lists:reverse(Payload, Header|Headers);
-
-% IPv6 NONE pseudo-header
-decapsulate_next({ipv6_none, Data}, Headers) ->
-    lists:reverse(Data|Headers);
-
-decapsulate_next({'$stop', Data}, Headers) ->
-    lists:reverse(Data|Headers).
-
-codec(Data) when is_binary(Data) ->
-    decode(Data);
-codec(Data) ->
-    encode(Data).
-
-encode({Pdus, Payload}) when is_list(Pdus) or is_tuple(Pdus), is_binary(Payload) ->
-    PduBin = encode(Pdus),
-    <<PduBin/binary, Payload/binary>>;
-encode() -> <<>>;
-encode(H|R) ->
-    B1 = encode(H),
-    B2 = encode(R),
-    <<B1/binary, B2/binary>>;
-encode(Data) when is_tuple(Data) ->
-    Proto = element(1, Data),
-    ?MODULE:Proto(Data);
-encode(Data) when is_binary(Data) ->
-    Data.
-
-decode(Data) when is_binary(Data) ->
-    decode(ether, Data).
-
-decode(Proto, Data) when is_atom(Proto) ->
-    try decode_next({Proto, Data}, ) of
-        N ->
-            N
-    catch
-        error:_ ->
-            {error, , {unsupported, Data}}
-    end.
-
-% Aliases
-decode_next({en10mb, Data}, Headers) ->
-    decode_next({ether, Data}, Headers);
-decode_next({linux_sll, Data}, Headers) ->
-    decode_next({linux_cooked, Data}, Headers);
-decode_next({linux_sll2, Data}, Headers) ->
-    decode_next({linux_cooked_v2, Data}, Headers);
-
-% Protocol header indicates next header
-decode_next({Proto, Data}, Headers) when
-    Proto =:= ether;
-    Proto =:= gre;
-    Proto =:= ipv4;
-    Proto =:= ipv6;
-    Proto =:= linux_cooked;
-    Proto =:= linux_cooked_v2;
-    Proto =:= null;
-    Proto =:= '802.1q';
-
-    Proto =:= ipv6_ah;
-    Proto =:= ipv6_dstopts;
-    Proto =:= ipv6_esp;
-    Proto =:= ipv6_fragment;
-    Proto =:= ipv6_hopopts;
-    Proto =:= ipv6_routing ->
-
-    Decode = try ?MODULE:Proto(Data) of
-        N ->
-            {ok, N}
-    catch
-        error:_ ->
-            {error, lists:reverse(Headers), {Proto, Data}}
-    end,
-
-    case Decode of
-        {ok, {Header, Payload}} ->
-            try next(Header) of
-                '$stop' ->
-                    {ok, {lists:reverse(Header|Headers), Payload}};
-                Next ->
-                    decode_next({Next, Payload}, Header|Headers)
-            catch
-                error:_ ->
-                    {error, lists:reverse(Header|Headers), {unsupported, Payload}}
-            end;
-        {error, _, _} = Error ->
-            Error
-    end;
-
-% Upper layer: data follows header
-
-% IPv6 NONE pseudo-header
-decode_next({ipv6_none, Data}, Headers) ->
-    {ok, {lists:reverse(Headers), Data}};
-
-decode_next({Proto, Data}, Headers) when
-    Proto =:= arp;
-    Proto =:= rarp;
-    Proto =:= '802.1x';
-    Proto =:= lldp;
-    Proto =:= icmp;
-    Proto =:= icmp6;
-    Proto =:= igmp;
-    Proto =:= sctp;
-    Proto =:= sctp;
-    Proto =:= tcp;
-    Proto =:= udp ->
-    try ?MODULE:Proto(Data) of
-        {Header, Payload} ->
-            {ok, {lists:reverse(Header|Headers), Payload}}
-    catch
-        error:_ ->
-            {error, lists:reverse(Headers), {Proto, Data}}
-    end.
-
-next(#null{family = Family}) -> family(Family);
-next(#linux_cooked{pro = Pro}) -> ether_type(Pro);
-next(#linux_cooked_v2{pro = Pro}) -> ether_type(Pro);
-next(#ether{type = Type}) -> ether_type(Type);
-next(#'802.1q'{type = Type}) -> ether_type(Type);
-next(#ipv4{off = Off}) when Off =/= 0 -> '$stop';
-next(#ipv4{p = P}) -> ipproto(P);
-next(#gre{type = Type}) -> ether_type(Type);
-next(#ipv6{next = Next}) -> ipproto(Next);
-next(#ipv6_ah{next = Next}) -> ipproto(Next);
-next(#ipv6_dstopts{next = Next}) -> ipproto(Next);
-next(#ipv6_esp{next = Next}) -> ipproto(Next);
-next(#ipv6_fragment{off = Off}) when Off =/= 0 -> '$stop';
-next(#ipv6_fragment{next = Next}) -> ipproto(Next);
-next(#ipv6_hopopts{next = Next}) -> ipproto(Next);
-next(#ipv6_routing{next = Next}) -> ipproto(Next).
-
-%% BSD loopback
-null(N) ->
-    pkt_null:codec(N).
-
-%% Linux cooked capture ("-i any") - DLT_LINUX_SLL
-linux_cooked(N) ->
-    pkt_linux_cooked:codec(N).
-linux_cooked_v2(N) ->
-    pkt_linux_cooked_v2:codec(N).
-
-%% Ethernet
-ether(N) ->
-    pkt_ether:codec(N).
-
-ether_type(N) ->
-    pkt_ether:type(N).
-
-%% MPLS
-mpls(N) ->
-    pkt_mpls:codec(N).
-
-%% ARP
-arp(N) ->
-    pkt_arp:codec(N).
-
-%% RARP
-rarp(N) ->
-    pkt_rarp:codec(N).
-
-%% LLDP
-lldp(N) ->
-    pkt_lldp:codec(N).
-
-llc(N) ->
-    pkt_llc:codec(N).
-
-'802.1q'(N) ->
-    pkt_802_1q:codec(N).
-
-%% 802.1x
-'802.1x'(N) ->
-    pkt_802_1x:codec(N).
-
-%% IPv4
-ipv4(N) ->
-    pkt_ipv4:codec(N).
-
-
-%% IPv6
-ipv6(N) ->
-    pkt_ipv6:codec(N).
-
-ipv6_ah(N) ->
-    pkt_ipv6_ah:codec(N).
-ipv6_dstopts(N) ->
-    pkt_ipv6_dstopts:codec(N).
-ipv6_esp(N) ->
-    pkt_ipv6_esp:codec(N).
-ipv6_fragment(N) ->
-    pkt_ipv6_fragment:codec(N).
-ipv6_hopopts(N) ->
-    pkt_ipv6_hopopts:codec(N).
-ipv6_routing(N) ->
-    pkt_ipv6_routing:codec(N).
-
-%% GRE
-gre(N) ->
-    pkt_gre:codec(N).
-
-%% TCP
-tcp(N) ->
-    pkt_tcp:codec(N).
-
-tcp_options(N) ->
-    pkt_tcp:options(N).
-
-%% SCTP
-sctp(N) ->
-    pkt_sctp:codec(N).
-
-%% UDP
-udp(N) ->
-    pkt_udp:codec(N).
-
-%% ICMP
-icmp(N) ->
-    pkt_icmp:codec(N).
-
-%% ICMPv6
-icmp6(N) ->
-    pkt_icmp6:codec(N).
-
-%% IGMP
-igmp(N) ->
-    pkt_igmp:codec(N).
-
-vrrp(N) ->
-    pkt_vrrp:codec(N).
-
-%% Datalink types
-link_type(N) ->
-    dlt(N).
-
-dlt(N) ->
-    pkt_dlt:codec(N).
-
-%% IP protocols
-proto(N) ->
-    ipproto(N).
-
-ipproto(N) ->
-    pkt_ipproto:codec(N).
-
-%% Protocol families: BSD NULL (loopback) linktype
-family(?PF_INET) -> ipv4;
-family(Family) ->
-    case {os:type(), Family} of
-        {{unix,darwin}, 30} -> ipv6;
-        {{unix,freebsd}, 28} -> ipv6;
-        {{unix,netbsd}, 24} -> ipv6;
-        {{unix,openbsd}, 24} -> ipv6
-    end.
-
-%%
-%% Utility functions
-%%
-
-% TCP pseudoheader checksum
-checksum(#ipv4{
-        saddr = {SA1,SA2,SA3,SA4},
-        daddr = {DA1,DA2,DA3,DA4},
-        len = IPLen,
-        hl = HL
-    },
-    #tcp{
-        off = Off
-    } = TCPhdr,
-    Payload
-) ->
-    Len = IPLen - (HL * 4),
-    PayloadLen = IPLen - ((HL * 4) + (Off * 4)),
-    TCP = tcp(TCPhdr),
-    checksum(
-        <<SA1,SA2,SA3,SA4,
-          DA1,DA2,DA3,DA4,
-          0:8,
-          ?IPPROTO_TCP:8,
-          Len:16,
-          TCP/binary,
-          Payload:PayloadLen/binary>>
-    );
-
-% UDP pseudoheader checksum
-checksum(#ipv4{
-        saddr = {SA1,SA2,SA3,SA4},
-        daddr = {DA1,DA2,DA3,DA4}
-    },
-    #udp{
-        ulen = Len
-    } = Hdr,
-    Payload
-) ->
-    UDP = udp(Hdr),
-    checksum(
-        <<SA1,SA2,SA3,SA4,
-          DA1,DA2,DA3,DA4,
-          0:8,
-          ?IPPROTO_UDP:8,
-          Len:16,
-          UDP/binary,
-          Payload/bits>>
-    );
-
-checksum(#ipv4{} = H) ->
-    checksum(ipv4(H));
-
-checksum(#ipv6{
-	     len = IPLen, next = Next,
-	     saddr = {SA1, SA2, SA3, SA4, SA5, SA6, SA7, SA8},
-	     daddr = {DA1, DA2, DA3, DA4, DA5, DA6, DA7, DA8}
-	    },
-	    #tcp{
-                 off = Off
-            } = TCPhdr,
-	  Payload
-	 ) when Next == ?IPPROTO_TCP ->
-    PayloadLen = IPLen - (Off * 4),
-    %% calculation of the TCP header
-    TCP_Header = pkt:tcp(TCPhdr),
-    pkt:checksum(
-      <<
-        %% calculation of the ipv6 pseudo header: rfc2460
-	SA1:16, SA2:16, SA3:16, SA4:16, SA5:16, SA6:16, SA7:16, SA8:16,
-	DA1:16, DA2:16, DA3:16, DA4:16, DA5:16, DA6:16, DA7:16, DA8:16,
-        IPLen:32,
-        0:24, Next:8,
-        TCP_Header/binary,
-        %% calculation of the padded payload
-	Payload:PayloadLen/binary>>
-     );
-
-checksum(#ipv6{
-	     len = IPLen, next = Next,
-	     saddr = {SA1, SA2, SA3, SA4, SA5, SA6, SA7, SA8},
-	     daddr = {DA1, DA2, DA3, DA4, DA5, DA6, DA7, DA8}
-	    },
-	    #udp{
-            } = UDPhdr,
-	  Payload
-	 ) when Next == ?IPPROTO_UDP ->
-    PayloadLen = IPLen - 8, % header offset for saddr, daddr is 8
-    %% calculation of the UDP header
-    UDP_Header = pkt:udp(UDPhdr),
-    pkt:checksum(
-      <<
-        %% calculation of the ipv6 pseudo header: rfc2460
-	SA1:16, SA2:16, SA3:16, SA4:16, SA5:16, SA6:16, SA7:16, SA8:16,
-	DA1:16, DA2:16, DA3:16, DA4:16, DA5:16, DA6:16, DA7:16, DA8:16,
-        IPLen:32,
-        0:24, Next:8,
-        UDP_Header/binary,
-        %% calculation of the padded payload
-	Payload:PayloadLen/binary>>
-     );
-
-checksum(#ipv6{} = H) ->
-    checksum(ipv6(H));
-
-checksum(Bin) ->
- 	checksum(Bin, 0).
-
-checksum(<<N1:64/integer, N2:64/integer, N3:64/integer, N4:64/integer, N5:64/integer, N6:64/integer, N7:64/integer, N8:64/integer, ReminderBin/binary>>, Checksum128Bit) ->
- 	checksum(ReminderBin, N1+N2+N3+N4+N5+N6+N7+N8+Checksum128Bit);
-
-checksum(<<N1:64/integer, N2:64/integer, N3:64/integer, N4:64/integer, ReminderBin/binary>>, Checksum128Bit) ->
- 	checksum(ReminderBin, N1+N2+N3+N4+Checksum128Bit);
-
-checksum(<<N1:64/integer, N2:64/integer, ReminderBin/binary>>, Checksum128Bit) ->
- 	checksum(ReminderBin, N1+N2+Checksum128Bit);
-
-checksum(<<N:64/integer, ReminderBin/binary>>, Checksum128Bit) ->
- 	checksum(ReminderBin, N+Checksum128Bit);
-
-checksum(<<N:16/integer, ReminderBin/binary>>, Checksum128Bit) ->
- 	checksum(ReminderBin, N+Checksum128Bit);
-
-checksum(<<N:8/integer>>, Checksum128Bit) ->
- 	checksum(<<>>, (N bsl 8)+Checksum128Bit);
-
-checksum(<<>>, Checksum128Bit) ->
-        Checksum64Bit = foldWithOverflow64(Checksum128Bit),
-        Checksum32Bit = foldWithOverflow32(Checksum64Bit),
-        Checksum16Bit = foldWithOverflow16(Checksum32Bit),
-        Checksum16Bit.
-
-foldWithOverflow64(A) ->
-        C = A band 16#FFFFFFFFFFFFFFFF,
-	D = (A bsr 64) band 16#FFFFFFFFFFFFFFFF,
-	E = (C + D) band 16#FFFFFFFFFFFFFFFF,
-        case E < D of
-		true ->
-			E + 1; % overflow
-		false ->
-			E
-         end.
-
-foldWithOverflow32(A) ->
-        C = A band 16#FFFFFFFF,
-	D = (A bsr 32) band 16#FFFFFFFF,
-	E = (C + D) band 16#FFFFFFFF,
-        case E < D of
-		true ->
-			E + 1; % overflow
-		false ->
-			E
-         end.
-
-foldWithOverflow16(A) ->
-        C = A band 16#FFFF,
-	D = (A bsr 16) band 16#FFFF,
-	E = (C + D) band 16#FFFF,
-        case E < D of
-		true ->
-			E + 1; % overflow
-		false ->
-			E
-         end.
-
-
-makesum(IP, UDP, Payload) when % handle UDP packets
-    (is_record(IP,ipv4) or is_record(IP,ipv6)) and is_record(UDP,udp)->
-    Sum = (checksum(IP, UDP, Payload) bxor 16#FFFF) band 16#FFFF, % bitwise-complement
-    if
-      Sum == 0 -> 16#FFFF; % According RFC 6935 0x0000 checksum shall be replaced by 0xFFFF
-      true -> Sum
-    end;
-
-makesum(Hdr) ->
-	(checksum(Hdr) bxor 16#FFFF) band 16#FFFF. % bitwise-complement
-
-%%Note:
-%% - Checksum building for tunneled packets according to RFC 6936 is not supported
-%% - Jumbo packets are not supported
-%% - Extension headers are not supported
-
-build_checksum(#ipv4{} = IP, #tcp{} = TCP, Payload) -> % handle IPv4 TCP packets
-    {ipv4_tcp, makesum(IP#ipv4{sum=0}), makesum(IP, TCP#tcp{sum = 0}, Payload)};
-
-build_checksum(#ipv6{} = IP, #tcp{} = TCP, Payload) -> % handle IPv6 TCP packets
-    {ipv6_tcp, makesum(IP, TCP#tcp{sum = 0}, Payload)};
-
-build_checksum(#ipv4{} = IP, #udp{} = UDP, Payload) -> % handle IPv4 UDP packets
-    {ipv4_udp, makesum(IP#ipv4{sum=0}), makesum(IP, UDP#udp{sum = 0}, Payload)};
-
-build_checksum(#ipv6{} = IP, #udp{} = UDP, Payload)-> % handle IPv6 UDP packets
-    {ipv6_udp, makesum(IP, UDP#udp{sum = 0}, Payload)}.
-
-
-verify_checksum(#ipv4{} = IP, #tcp{} = TCP, Payload) -> % handle IPv4 TCP packets
-    build_checksum(IP, TCP, Payload) == {ipv4_tcp, IP#ipv4.sum, TCP#tcp.sum};
-
-verify_checksum(#ipv6{} = IP, #tcp{} = TCP, Payload) -> % handle IPv6 TCP packets
-    build_checksum(IP, TCP, Payload) == {ipv6_tcp, TCP#tcp.sum};
-
-verify_checksum(#ipv4{} = IP, #udp{} = UDP, Payload) -> % handle IPv4 UDP packets
-    if
-      UDP#udp.sum == 0 -> % for ipv4 the UDP checksum is optional. According RFC 6935, the UDP checksum shall be ignored, when set to 0x0000.
-        {ipv4_udp, IPv4sum, _} = build_checksum(IP, UDP, Payload), % ignore UDP checksum, as UDP#udp.sum is 0
-        if
-          IPv4sum == IP#ipv4.sum ->
-            true; % ok
-          true ->
-            false % checksum failure as IP4 checksum does not match
-        end;
-      true ->
-          build_checksum(IP, UDP, Payload) == {ipv4_udp, IP#ipv4.sum, UDP#udp.sum}
-    end;
-
-verify_checksum(#ipv6{} = IP, #udp{} = UDP, Payload) -> % handle IPv6 UDP packets
-    if
-      UDP#udp.sum == 0 ->
-        % for ipv6 the UDP packets, which contain the checksum 0x0000 are invalid according RFC 6935, they shall be discarded and an error shall be logged.
-        false; % Thus set checksum as invalid
-      true ->
-        build_checksum(IP, UDP, Payload) == {ipv6_udp, UDP#udp.sum}
-    end.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_802_1q.erl Deleted

@@ -1,69 +0,0 @@
-%% Copyright (c) 2009-2016, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
-
-%% IEEE 802.1Q, 802.1ad (802.1q QinQ)
--module(pkt_802_1q).
-
--include("pkt_802_1q.hrl").
-
--export(codec/1).
-
-% See: https://en.wikipedia.org/wiki/IEEE_802.1ad
-%
-% The 802.1q 4-byte tag is inserted into the frame between the source
-% MAC and the original tag:
-%
-%   Original frame:
-%       <<Dhost:6/bytes, Shost:6/bytes, EtherType:16, Payload/binary>>
-%
-%   With 802.1q tag:
-%       <<Dhost:6/bytes, Shost:6/bytes,
-%           16#81, 16#00, Prio:3, CFI:1, VID:12,
-%           EtherType:16, Payload/binary>>
-%
-%   802.1ad (802.1QinQ) tag:
-%       <<Dhost:6/bytes, Shost:6/bytes,
-%           16#88, 16#a8, Prio:3, CFI:1, VID:12,
-%           16#81, 16#00, Prio:3, CFI:1, VID:12,
-%           EtherType:16, Payload/binary>>
-%
-% The original ethernet type tag is replaced with the 802.1q TPID. The
-% inner 802.1q header (tag 2 or C-TAG) is set to the original ethertype.
-%
-codec(<<Prio:3, CFI:1, VID:12, Type:16, Payload/binary>>) ->
-    {#'802.1q'{
-        prio = Prio,
-        cfi = CFI,
-        vid = VID,
-        type = Type
-    }, Payload};
-codec(#'802.1q'{prio = Prio, cfi = CFI, vid = VID, type = Type}) ->
-    <<Prio:3, CFI:1, VID:12, Type:16>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_802_1x.erl Deleted

@@ -1,45 +0,0 @@
-%% Copyright (c) 2009-2017, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_802_1x).
-
--include("pkt_ether.hrl").
--include("pkt_802_1x.hrl").
-
--export(codec/1).
-
-codec(<<Ver:8, Type:8, Len:16, Payload/binary>>) ->
-    {#'802.1x'{
-	ver = Ver, type = Type, len = Len
-    }, Payload};
-codec(#'802.1x'{
-	 ver = Ver, type = Type, len = Len
-    }) ->
-    <<Ver:8, Type:8, Len:16>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_arp.erl Deleted

@@ -1,67 +0,0 @@
-%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_arp).
-
--include("pkt_ether.hrl").
--include("pkt_arp.hrl").
-
--export(codec/1).
-
-codec(<<Hrd:16, Pro:16,
-    Hln:8, Pln:8, Op:16,
-    Sha:6/bytes,
-    SA1:8, SA2:8, SA3:8, SA4:8,
-    Tha:6/bytes,
-    DA1:8, DA2:8, DA3:8, DA4:8,
-    Payload/binary>>
-) ->
-    {#arp{
-        hrd = Hrd, pro = Pro,
-        hln = Hln, pln = Pln, op = Op,
-        sha = Sha,
-        sip = {SA1,SA2,SA3,SA4},
-        tha = Tha,
-        tip = {DA1,DA2,DA3,DA4}
-    }, Payload};
-codec(#arp{
-        hrd = Hrd, pro = Pro,
-        hln = Hln, pln = Pln, op = Op,
-        sha = Sha,
-        sip = {SA1,SA2,SA3,SA4},
-        tha = Tha,
-        tip = {DA1,DA2,DA3,DA4}
-    }) ->
-    <<Hrd:16, Pro:16,
-    Hln:8, Pln:8, Op:16,
-    Sha:6/bytes,
-    SA1:8, SA2:8, SA3:8, SA4:8,
-    Tha:6/bytes,
-    DA1:8, DA2:8, DA3:8, DA4:8>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_dlt.erl Deleted

@@ -1,96 +0,0 @@
-%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_dlt).
-
--include("pkt_dlt.hrl").
-
--export(codec/1).
-
-%%
-%% Datalink types
-%%
-codec(?DLT_NULL) -> null;
-codec(?DLT_EN10MB) -> en10mb;
-codec(?DLT_EN3MB) -> en3mb;
-codec(?DLT_AX25) -> ax25;
-codec(?DLT_PRONET) -> pronet;
-codec(?DLT_CHAOS) -> chaos;
-codec(?DLT_IEEE802) -> ieee802;
-codec(?DLT_ARCNET) -> arcnet;
-codec(?DLT_SLIP) -> slip;
-codec(?DLT_PPP) -> ppp;
-codec(?DLT_FDDI) -> fddi;
-codec(?DLT_ATM_RFC1483) -> atm_rfc1483;
-codec(?DLT_RAW) -> raw;
-codec(?DLT_SLIP_BSDOS) -> slip_bsdos;
-codec(?DLT_PPP_BSDOS) -> ppp_bsdos;
-codec(?DLT_PFSYNC) -> pfsync;
-codec(?DLT_ATM_CLIP) -> atm_clip;
-codec(?DLT_PPP_SERIAL) -> ppp_serial;
-%dlt(?DLT_C_HDLC) -> c_hdlc;
-codec(?DLT_CHDLC) -> chdlc;
-codec(?DLT_IEEE802_11) -> ieee802_11;
-codec(?DLT_LOOP) -> loop;
-codec(?DLT_LINUX_SLL) -> linux_sll;
-codec(?DLT_PFLOG) -> pflog;
-codec(?DLT_IEEE802_11_RADIO) -> ieee802_11_radio;
-codec(?DLT_APPLE_IP_OVER_IEEE1394) -> apple_ip_over_ieee1394;
-codec(?DLT_IEEE802_11_RADIO_AVS) -> ieee802_11_radio_avs;
-codec(?DLT_LINUX_SLL2) -> linux_sll2;
-
-codec(null) -> ?DLT_NULL;
-codec(en10mb) -> ?DLT_EN10MB;
-codec(en3mb) -> ?DLT_EN3MB;
-codec(ax25) -> ?DLT_AX25;
-codec(pronet) -> ?DLT_PRONET;
-codec(chaos) -> ?DLT_CHAOS;
-codec(ieee802) -> ?DLT_IEEE802;
-codec(arcnet) -> ?DLT_ARCNET;
-codec(slip) -> ?DLT_SLIP;
-codec(ppp) -> ?DLT_PPP;
-codec(fddi) -> ?DLT_FDDI;
-codec(atm_rfc1483) -> ?DLT_ATM_RFC1483;
-codec(raw) -> ?DLT_RAW;
-codec(slip_bsdos) -> ?DLT_SLIP_BSDOS;
-codec(ppp_bsdos) -> ?DLT_PPP_BSDOS;
-codec(pfsync) -> ?DLT_PFSYNC;
-codec(atm_clip) -> ?DLT_ATM_CLIP;
-codec(ppp_serial) -> ?DLT_PPP_SERIAL;
-codec(c_hdlc) -> ?DLT_C_HDLC;
-codec(chdlc) -> ?DLT_CHDLC;
-codec(ieee802_11) -> ?DLT_IEEE802_11;
-codec(loop) -> ?DLT_LOOP;
-codec(linux_sll) -> ?DLT_LINUX_SLL;
-codec(pflog) -> ?DLT_PFLOG;
-codec(ieee802_11_radio) -> ?DLT_IEEE802_11_RADIO;
-codec(apple_ip_over_ieee1394) -> ?DLT_APPLE_IP_OVER_IEEE1394;
-codec(ieee802_22_radio_avs) -> ?DLT_IEEE802_11_RADIO_AVS;
-codec(linux_sll2) -> ?DLT_LINUX_SLL2.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_ether.erl Deleted

@@ -1,65 +0,0 @@
-%% Copyright (c) 2009-2016, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_ether).
-
--include("pkt_ether.hrl").
-
--export(codec/1, type/1).
-
-type(?ETH_P_IP) -> ipv4;
-type(?ETH_P_IPV6) -> ipv6;
-type(?ETH_P_ARP) -> arp;
-type(?ETH_P_RARP) -> rarp;
-type(?ETH_P_LLDP) -> lldp;
-%% IEEE 802.3 Ethernet
-type(EtherType) when EtherType < 16#05DC -> llc;
-%% 802.1Q Virtual LAN
-type(?ETH_P_802_1Q) -> '802.1q';
-%% 802.1X EAPoL
-type(?ETH_P_802_1X) -> '802.1x';
-%% 802.1ad (802.1q QinQ)
-type(?ETH_P_802_1QinQ) -> '802.1qinq';
-%% MPLS_
-type(?ETH_P_MPLS_UNI) -> mpls;
-type(?ETH_P_MPLS_MULTI) -> mpls.
-
-codec(<<Dhost:6/bytes, Shost:6/bytes, Type:16, Payload/binary>>) ->
-%    Len = byte_size(Packet) - 4,
-%    <<Payload:Len/bytes, CRC:4/bytes>> = Packet,
-    {#ether{
-       dhost = Dhost, shost = Shost,
-       type = Type
-      }, Payload};
-codec(#ether{
-       dhost = Dhost, shost = Shost,
-       type = Type
-      }) ->
-    <<Dhost:6/bytes, Shost:6/bytes, Type:16>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_gre.erl Deleted

@@ -1,61 +0,0 @@
-%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_gre).
-
--include("pkt_ether.hrl").
--include("pkt_gre.hrl").
-
--export(codec/1).
-
-codec(<<C:1,R:1,K:1,S:1,Res0:9,Ver:3,Type:16,Bin/binary>>) ->
-  {Chksum, Res1, Key, Sequence, Payload} = unpack(C, K, S, Bin),
-  {#gre{c = C, r = R, k = K, s = S, res0 = Res0, ver = Ver, type = Type, chksum = Chksum,
-    res1 = Res1, key = Key, sequence = Sequence
-       },Payload
-    };
-
-codec(#gre{c = C, r = R, k = K, s = S, res0 = Res0, ver = Ver, type = Type, chksum = Chksum,
-    res1 = Res1, key = Key, sequence = Sequence
-       }) ->
-    ChecksumLength = C*16,
-    Res1Length = ChecksumLength,
-    KeyLength = K*32,
-    SequenceLength = S*32,
-    <<C:1,R:1,K:1,S:1,Res0:9,Ver:3,Type:16,Chksum:ChecksumLength,Res1:Res1Length,Key:KeyLength,Sequence:SequenceLength>>.
-
-unpack(0, 0, 0, Bin) -> {0, 0, 0, 0, Bin};
-unpack(C, K, S, Bin) ->
-  ChecksumLength = C*16,
-  Res1Length = ChecksumLength,
-  KeyLength = K*32,
-  SequenceLength = S*32,
-  <<Chksum:ChecksumLength,Res1:Res1Length,Key:KeyLength,Sequence:SequenceLength,Payload/binary>> = Bin,
-  {Chksum, Res1, Key, Sequence, Payload}.
\ No newline at end of file

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_icmp.erl Deleted

@@ -1,135 +0,0 @@
-%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_icmp).
-
--include("pkt_icmp.hrl").
-
--export(codec/1).
-
-% Destination Unreachable Message
-codec(<<?ICMP_DEST_UNREACH:8, Code:8, Checksum:16, Unused:32/bits, Payload/binary>>) ->
-    {#icmp{
-        type = ?ICMP_DEST_UNREACH, code = Code, checksum = Checksum, un = Unused
-    }, Payload};
-codec(#icmp{
-        type = ?ICMP_DEST_UNREACH, code = Code, checksum = Checksum, un = Unused
-    }) ->
-    <<?ICMP_DEST_UNREACH:8, Code:8, Checksum:16, Unused:32/bits>>;
-
-% Time Exceeded Message
-codec(<<?ICMP_TIME_EXCEEDED:8, Code:8, Checksum:16, Unused:32/bits, Payload/binary>>) ->
-    {#icmp{
-        type = ?ICMP_TIME_EXCEEDED, code = Code, checksum = Checksum, un = Unused
-    }, Payload};
-codec(#icmp{
-        type = ?ICMP_TIME_EXCEEDED, code = Code, checksum = Checksum, un = Unused
-    }) ->
-    <<?ICMP_TIME_EXCEEDED:8, Code:8, Checksum:16, Unused:32/bits>>;
-
-% Parameter Problem Message
-codec(<<?ICMP_PARAMETERPROB:8, Code:8, Checksum:16, Pointer:8, Unused:24/bits, Payload/binary>>) ->
-    {#icmp{
-        type = ?ICMP_PARAMETERPROB, code = Code, checksum = Checksum, pointer = Pointer,
-        un = Unused
-    }, Payload};
-codec(#icmp{
-        type = ?ICMP_PARAMETERPROB, code = Code, checksum = Checksum, pointer = Pointer,
-        un = Unused
-    }) ->
-    <<?ICMP_PARAMETERPROB:8, Code:8, Checksum:16, Pointer:8, Unused:24/bits>>;
-
-% Source Quench Message
-codec(<<?ICMP_SOURCE_QUENCH:8, 0:8, Checksum:16, Unused:32/bits, Payload/binary>>) ->
-    {#icmp{
-        type = ?ICMP_SOURCE_QUENCH, code = 0, checksum = Checksum, un = Unused
-    }, Payload};
-codec(#icmp{
-        type = ?ICMP_SOURCE_QUENCH, code = Code, checksum = Checksum, un = Unused
-    }) ->
-    <<?ICMP_SOURCE_QUENCH:8, Code:8, Checksum:16, Unused:32/bits>>;
-
-% Redirect Message
-codec(<<?ICMP_REDIRECT:8, Code:8, Checksum:16, DA1, DA2, DA3, DA4, Payload/binary>>) ->
-    {#icmp{
-        type = ?ICMP_REDIRECT, code = Code, checksum = Checksum, gateway = {DA1,DA2,DA3,DA4}
-    }, Payload};
-codec(#icmp{
-        type = ?ICMP_REDIRECT, code = Code, checksum = Checksum, gateway = {DA1,DA2,DA3,DA4}
-    }) ->
-    <<?ICMP_REDIRECT:8, Code:8, Checksum:16, DA1, DA2, DA3, DA4>>;
-
-% Echo or Echo Reply Message
-codec(<<Type:8, Code:8, Checksum:16, Id:16, Sequence:16, Payload/binary>>)
-when Type =:= ?ICMP_ECHO; Type =:= ?ICMP_ECHOREPLY ->
-    {#icmp{
-        type = Type, code = Code, checksum = Checksum, id = Id,
-        sequence = Sequence
-    }, Payload};
-codec(#icmp{
-        type = Type, code = Code, checksum = Checksum, id = Id,
-        sequence = Sequence
-    })
-when Type =:= ?ICMP_ECHO; Type =:= ?ICMP_ECHOREPLY ->
-    <<Type:8, Code:8, Checksum:16, Id:16, Sequence:16>>;
-
-% Timestamp or Timestamp Reply Message
-codec(<<Type:8, 0:8, Checksum:16, Id:16, Sequence:16, TS_Orig:32, TS_Recv:32, TS_Tx:32>>)
-when Type =:= ?ICMP_TIMESTAMP; Type =:= ?ICMP_TIMESTAMPREPLY ->
-    {#icmp{
-        type = Type, code = 0, checksum = Checksum, id = Id,
-        sequence = Sequence, ts_orig = TS_Orig, ts_recv = TS_Recv, ts_tx = TS_Tx
-    }, <<>>};
-codec(#icmp{
-        type = Type, code = Code, checksum = Checksum, id = Id,
-        sequence = Sequence, ts_orig = TS_Orig, ts_recv = TS_Recv, ts_tx = TS_Tx
-    }) when Type =:= ?ICMP_TIMESTAMP; Type =:= ?ICMP_TIMESTAMPREPLY ->
-    <<Type:8, Code:8, Checksum:16, Id:16, Sequence:16, TS_Orig:32, TS_Recv:32, TS_Tx:32>>;
-
-% Information Request or Information Reply Message
-codec(<<Type:8, 0:8, Checksum:16, Id:16, Sequence:16>>)
-when Type =:= ?ICMP_INFO_REQUEST; Type =:= ?ICMP_INFO_REPLY ->
-    {#icmp{
-        type = Type, code = 0, checksum = Checksum, id = Id,
-        sequence = Sequence
-    }, <<>>};
-codec(#icmp{
-        type = Type, code = Code, checksum = Checksum, id = Id,
-        sequence = Sequence
-    }) when Type =:= ?ICMP_INFO_REQUEST; Type =:= ?ICMP_INFO_REPLY ->
-    <<Type:8, Code:8, Checksum:16, Id:16, Sequence:16>>;
-
-% Catch/build arbitrary types
-codec(<<Type:8, Code:8, Checksum:16, Un:32/bits, Payload/binary>>) ->
-    {#icmp{
-        type = Type, code = Code, checksum = Checksum, un = Un
-    }, Payload};
-codec(#icmp{type = Type, code = Code, checksum = Checksum, un = Un}) ->
-    <<Type:8, Code:8, Checksum:16, Un:32/bits>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_icmp6.erl Deleted

@@ -1,228 +0,0 @@
-%% Copyright (c) 2009-2017, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_icmp6).
-
--include("pkt_icmp6.hrl").
-
--export(codec/1).
-
-%%
-%% ICMPv6 Error Messages
-%%
-
-% Destination Unreachable Message
-codec(<<?ICMP6_DST_UNREACH:8, Code:8, Checksum:16, Unused:32/bits, Payload/binary>>) ->
-    {#icmp6{
-        type = ?ICMP6_DST_UNREACH, code = Code, checksum = Checksum, un = Unused
-    }, Payload};
-codec(#icmp6{
-        type = ?ICMP6_DST_UNREACH, code = Code, checksum = Checksum, un = Unused
-    }) ->
-    <<?ICMP6_DST_UNREACH:8, Code:8, Checksum:16, Unused:32/bits>>;
-
-% Packet too big
-codec(<<?ICMP6_PACKET_TOO_BIG:8, Code:8, Checksum:16, MTU:32, Payload/binary>>) ->
-    {#icmp6{
-        type = ?ICMP6_PACKET_TOO_BIG, code = Code, checksum = Checksum, mtu = MTU
-    }, Payload};
-codec(#icmp6{
-        type = ?ICMP6_PACKET_TOO_BIG, code = Code, checksum = Checksum, mtu = MTU
-    }) ->
-    <<?ICMP6_PACKET_TOO_BIG:8, Code:8, Checksum:16, MTU:32>>;
-
-% Time Exceeded Message
-codec(<<?ICMP6_TIME_EXCEEDED:8, Code:8, Checksum:16, Unused:32/bits, Payload/binary>>) ->
-    {#icmp6{
-        type = ?ICMP6_TIME_EXCEEDED, code = Code, checksum = Checksum, un = Unused
-    }, Payload};
-codec(#icmp6{
-        type = ?ICMP6_TIME_EXCEEDED, code = Code, checksum = Checksum, un = Unused
-    }) ->
-    <<?ICMP6_TIME_EXCEEDED:8, Code:8, Checksum:16, Unused:32/bits>>;
-
-% Parameter Problem Message
-codec(<<?ICMP6_PARAM_PROB:8, Code:8, Checksum:16, Ptr:32, Payload/binary>>) ->
-    {#icmp6{
-        type = ?ICMP6_PARAM_PROB, code = Code, checksum = Checksum, pptr = Ptr
-    }, Payload};
-codec(#icmp6{
-        type = ?ICMP6_PARAM_PROB, code = Code, checksum = Checksum, pptr = Ptr
-    }) ->
-    <<?ICMP6_PARAM_PROB:8, Code:8, Checksum:16, Ptr:32>>;
-
-%%
-%% ICMPv6 Informational Messages
-%%
-
-% Echo Request Message/Echo Reply Message
-codec(<<Type:8, Code:8, Checksum:16, Id:16, Seq:16, Payload/binary>>)
-        when Type =:= ?ICMP6_ECHO_REQUEST; Type =:= ?ICMP6_ECHO_REPLY ->
-    {#icmp6{
-        type = Type, code = Code, checksum = Checksum,
-        id = Id, seq = Seq
-    }, Payload};
-codec(#icmp6{
-        type = Type, code = Code, checksum = Checksum,
-        id = Id, seq = Seq
-    }) when Type =:= ?ICMP6_ECHO_REQUEST; Type =:= ?ICMP6_ECHO_REPLY ->
-    <<Type:8, Code:8, Checksum:16, Id:16, Seq:16>>;
-
-%%
-%% RFC 4861: Neighbor Discovery for IP version 6 (IPv6)
-%%
-
-% Router Solicitation Message
-codec(<<?ND_ROUTER_SOLICIT:8, Code:8, Checksum:16, Res:32, Payload/binary>>) ->
-    {#icmp6{
-        type = ?ND_ROUTER_SOLICIT, code = Code, checksum = Checksum,
-        res = Res
-    }, Payload};
-codec(#icmp6{
-        type = ?ND_ROUTER_SOLICIT, code = Code, checksum = Checksum,
-        res = Res
-    }) ->
-    <<?ND_ROUTER_SOLICIT:8, Code:8, Checksum:16, Res:32>>;
-
-% Router Advertisement Message
-codec(<<?ND_ROUTER_ADVERT:8, Code:8, Checksum:16, Hop:8, M:1, O:1, Res:6,
-        Lifetime:16, Reach:32, Retrans:32, Payload/binary>>) ->
-    {#icmp6{
-        type = ?ND_ROUTER_ADVERT, code = Code, checksum = Checksum,
-        hop = Hop, m = M, o = O, res =Res, lifetime = Lifetime,
-        reach = Reach, retrans = Retrans
-    }, Payload};
-codec(#icmp6{
-        type = ?ND_ROUTER_ADVERT, code = Code, checksum = Checksum,
-        hop = Hop, m = M, o = O, res =Res, lifetime = Lifetime,
-        reach = Reach, retrans = Retrans
-    }) ->
-    <<?ND_ROUTER_ADVERT:8, Code:8, Checksum:16, Hop:8, M:1, O:1, Res:6,
-        Lifetime:16, Reach:32, Retrans:32>>;
-
-% Neighbor Solicitation Message Format
-codec(<<?ND_NEIGHBOR_SOLICIT:8, Code:8, Checksum:16, Res:32,
-        SA1:16, SA2:16, SA3:16, SA4:16, SA5:16, SA6:16, SA7:16, SA8:16,
-        Payload/binary>>) ->
-    {#icmp6{
-        type = ?ND_NEIGHBOR_SOLICIT, code = Code, checksum = Checksum,
-        res = Res,
-        saddr = {SA1,SA2,SA3,SA4,SA5,SA6,SA7,SA8}
-    }, Payload};
-codec(#icmp6{
-        type = ?ND_NEIGHBOR_SOLICIT, code = Code, checksum = Checksum,
-        res = Res,
-        saddr = {SA1,SA2,SA3,SA4,SA5,SA6,SA7,SA8}
-    }) ->
-    <<?ND_NEIGHBOR_SOLICIT:8, Code:8, Checksum:16, Res:32,
-      SA1:16, SA2:16, SA3:16, SA4:16, SA5:16, SA6:16, SA7:16, SA8:16>>;
-
-% Neighbor Advertisement Message
-codec(<<?ND_NEIGHBOR_ADVERT:8, Code:8, Checksum:16,
-        R:1, S:1, O:1, Res:29,
-        SA1:16, SA2:16, SA3:16, SA4:16, SA5:16, SA6:16, SA7:16, SA8:16,
-        Payload/binary>>) ->
-    {#icmp6{
-        type = ?ND_NEIGHBOR_ADVERT, code = Code, checksum = Checksum,
-        r = R, s = S, o = O, res = Res,
-        saddr = {SA1,SA2,SA3,SA4,SA5,SA6,SA7,SA8}
-    }, Payload};
-codec(#icmp6{
-        type = ?ND_NEIGHBOR_ADVERT, code = Code, checksum = Checksum,
-        r = R, s = S, o = O, res = Res,
-        saddr = {SA1,SA2,SA3,SA4,SA5,SA6,SA7,SA8}
-    }) ->
-    <<?ND_NEIGHBOR_ADVERT:8, Code:8, Checksum:16,
-      R:1, S:1, O:1, Res:29,
-      SA1:16, SA2:16, SA3:16, SA4:16, SA5:16, SA6:16, SA7:16, SA8:16>>;
-
-% Redirect Message
-codec(<<?ND_REDIRECT:8, Code:8, Checksum:16,
-        Res:32,
-        SA1:16, SA2:16, SA3:16, SA4:16, SA5:16, SA6:16, SA7:16, SA8:16,
-        DA1:16, DA2:16, DA3:16, DA4:16, DA5:16, DA6:16, DA7:16, DA8:16,
-        Payload/binary>>) ->
-    {#icmp6{
-        type = ?ND_REDIRECT, code = Code, checksum = Checksum,
-        res = Res,
-        saddr = {SA1,SA2,SA3,SA4,SA5,SA6,SA7,SA8},
-        daddr = {DA1,DA2,DA3,DA4,DA5,DA6,DA7,DA8}
-    }, Payload};
-codec(#icmp6{
-        type = ?ND_REDIRECT, code = Code, checksum = Checksum,
-        res = Res,
-        saddr = {SA1,SA2,SA3,SA4,SA5,SA6,SA7,SA8},
-        daddr = {DA1,DA2,DA3,DA4,DA5,DA6,DA7,DA8}
-    }) ->
-    <<?ND_REDIRECT:8, Code:8, Checksum:16,
-       Res:32,
-       SA1:16, SA2:16, SA3:16, SA4:16, SA5:16, SA6:16, SA7:16, SA8:16,
-       DA1:16, DA2:16, DA3:16, DA4:16, DA5:16, DA6:16, DA7:16, DA8:16>>;
-
-%%
-%% RFC 2710: Multicast Listener Discovery (MLD) for IPv6
-%% RFC 4604: Multicast Listener Discovery Version 2 (MLDv2) for IPv6
-%%
-codec(<<Type:8, Code:8, Checksum:16,
-        Delay:16, Res:16,
-        DA1:16, DA2:16, DA3:16, DA4:16, DA5:16, DA6:16, DA7:16, DA8:16,
-        Payload/binary>>) when
-        Type =:= ?MLD_LISTENER_QUERY;
-        Type =:= ?MLD_LISTENER_REPORT;
-        Type =:= ?MLD_LISTENER_REDUCTION ->
-    {#icmp6{
-        type = Type, code = Code, checksum = Checksum,
-        delay = Delay, res = Res,
-        daddr = {DA1,DA2,DA3,DA4,DA5,DA6,DA7,DA8}
-    }, Payload};
-codec(#icmp6{
-        type = Type, code = Code, checksum = Checksum,
-        delay = Delay, res = Res,
-        daddr = {DA1,DA2,DA3,DA4,DA5,DA6,DA7,DA8}
-    }) when
-        Type =:= ?MLD_LISTENER_QUERY;
-        Type =:= ?MLD_LISTENER_REPORT;
-        Type =:= ?MLD_LISTENER_REDUCTION ->
-    <<Type:8, Code:8, Checksum:16,
-       Delay:16, Res:16,
-       DA1:16, DA2:16, DA3:16, DA4:16, DA5:16, DA6:16, DA7:16, DA8:16>>;
-
-codec(<<?MLD_LISTENER_REPORTV2:8, Res:8, Checksum:16,
-        Res2:16, M:16, Payload/binary>>) ->
-    {#icmp6{
-        type = ?MLD_LISTENER_REPORTV2, res = Res, checksum = Checksum,
-        res2 = Res2, m = M
-    }, Payload};
-codec(#icmp6{
-        type = ?MLD_LISTENER_REPORTV2, res = Res, checksum = Checksum,
-        res2 = Res2, m = M
-    }) ->
-    <<?MLD_LISTENER_REPORTV2:8, Res:8, Checksum:16,
-        Res2:16, M:16>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_igmp.erl Deleted

@@ -1,81 +0,0 @@
-%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_igmp).
-
--include("pkt_igmp.hrl").
-
--export(codec/1).
-
-
-% IGMPv3 message, http://tools.ietf.org/html/rfc3376#page-12
-codec(<<Type:8, _:8, Checksum:16, _:16, GroupCount:16, Bin/binary>>) when Type == 16#22 ->
-    {Groups, Payload} = unpack_groups(GroupCount, Bin),
-    {#igmp{
-        type = Type, csum = Checksum,
-        group = Groups
-    }, Payload};
-
-% IGMPv2 messages
-codec(<<Type:8, Code:8, Checksum:16,
-    DA1:8, DA2:8, DA3:8, DA4:8, Payload/binary>>) ->
-    {#igmp{
-        type = Type, code = Code, csum = Checksum,
-        group = {DA1,DA2,DA3,DA4}
-    }, Payload};
-
-codec(#igmp{
-        type = Type, csum = Checksum,
-        group = Groups
-    }) when Type == 16#22 andalso is_list(Groups) ->
-    GroupBin = pack_group(Group) || Group <- Groups,
-    iolist_to_binary(<<Type:8, 0:8, Checksum:16, 0:16, (length(Groups)):16>>, GroupBin);
-
-codec(#igmp{
-        type = Type, code = Code, csum = Checksum,
-        group = {DA1,DA2,DA3,DA4}
-    }) ->
-    <<Type:8, Code:8, Checksum:16, DA1:8, DA2:8, DA3:8, DA4:8>>.
-
-
-
-unpack_groups(0, Bin) -> {, Bin};
-unpack_groups(Count, <<Type, Len, SourceCount:16, I1,I2,I3,I4, Bin/binary>>) ->
-  SourceLength = SourceCount*4,
-  <<SourceBin:SourceLength/binary, Aux:Len/binary, Rest/binary>> = Bin,
-  Sources = {S1,S2,S3,S4} || <<S1,S2,S3,S4>> <= SourceBin,
-  {Groups, Payload} = unpack_groups(Count - 1, Rest),
-  {#igmp_group{type = Type, addr = {I1,I2,I3,I4}, sources = Sources, aux = Aux}|Groups, Payload}.
-
-
-pack_group(#igmp_group{type = Type, aux = Aux, addr = {I1,I2,I3,I4}, sources = Sources}) ->
-  SourcesBin = <<S1,S2,S3,S4>> || {S1,S2,S3,S4} <- Sources,
-  <<Type, (size(Aux)), (length(Sources)):16, I1,I2,I3,I4>>, SourcesBin, Aux.
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_ipproto.erl Deleted

@@ -1,73 +0,0 @@
-%% Copyright (c) 2013-2015, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_ipproto).
-
--include("pkt_ipproto.hrl").
-
--export(codec/1).
-
-% IPPROTO_HOPOPTS and IPROTO_IP are both defined as 0
-%codec(?IPPROTO_IP) -> ip;
-codec(?IPPROTO_ICMP) -> icmp;
-codec(?IPPROTO_IGMP) -> igmp;
-codec(?IPPROTO_ICMPV6) -> icmp6;
-codec(?IPPROTO_TCP) -> tcp;
-codec(?IPPROTO_UDP) -> udp;
-codec(?IPPROTO_IPV6) -> ipv6;
-codec(?IPPROTO_VRRP) -> vrrp;
-codec(?IPPROTO_SCTP) -> sctp;
-codec(?IPPROTO_GRE) -> gre;
-codec(?IPPROTO_RAW) -> raw;
-
-codec(?IPPROTO_HOPOPTS) -> ipv6_hopopts;
-codec(?IPPROTO_ROUTING) -> ipv6_routing;
-codec(?IPPROTO_FRAGMENT) -> ipv6_fragment;
-codec(?IPPROTO_NONE) -> ipv6_none;
-codec(?IPPROTO_DSTOPTS) -> ipv6_dstopts;
-codec(?IPPROTO_MH) -> ipv6_mh;
-
-codec(ip) -> ?IPPROTO_IP;
-codec(icmp) -> ?IPPROTO_ICMP;
-codec(igmp) -> ?IPPROTO_IGMP;
-codec(icmp6) -> ?IPPROTO_ICMPV6;
-codec(tcp) -> ?IPPROTO_TCP;
-codec(udp) -> ?IPPROTO_UDP;
-codec(ipv6) -> ?IPPROTO_IPV6;
-codec(vrrp) -> ?IPPROTO_VRRP;
-codec(sctp) -> ?IPPROTO_SCTP;
-codec(gre) -> ?IPPROTO_GRE;
-
-codec(ipv6_hopopts) -> ?IPPROTO_HOPOPTS;
-codec(ipv6_routing) -> ?IPPROTO_ROUTING;
-codec(ipv6_fragment) -> ?IPPROTO_FRAGMENT;
-codec(ipv6_none) -> ?IPPROTO_NONE;
-codec(ipv6_dstopts) -> ?IPPROTO_DSTOPTS ;
-codec(ipv6_mh) -> ?IPPROTO_MH.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_ipv4.erl Deleted

@@ -1,70 +0,0 @@
-%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_ipv4).
-
--include("pkt_ipproto.hrl").
--include("pkt_ipv4.hrl").
-
--export(codec/1).
-
-codec(
-    <<4:4, HL:4, ToS:8, Len:16,
-    Id:16, 0:1, DF:1, MF:1, %% RFC791 states it's a MUST
-    Off:13, TTL:8, P:8, Sum:16,
-    SA1:8, SA2:8, SA3:8, SA4:8,
-    DA1:8, DA2:8, DA3:8, DA4:8,
-    Rest/binary>>
-) when HL >= 5 ->
-    OptLen = (HL - 5) * 4,
-    <<Opt:OptLen/binary, Payload/binary>> = Rest,
-    {#ipv4{
-        hl = HL, tos = ToS, len = Len,
-        id = Id, df = DF, mf = MF,
-        off = Off, ttl = TTL, p = P, sum = Sum,
-        saddr = {SA1,SA2,SA3,SA4},
-        daddr = {DA1,DA2,DA3,DA4},
-        opt = Opt
-    }, Payload};
-codec(#ipv4{
-        hl = HL, tos = ToS, len = Len,
-        id = Id, df = DF, mf = MF,
-        off = Off, ttl = TTL, p = P, sum = Sum,
-        saddr = {SA1,SA2,SA3,SA4},
-        daddr = {DA1,DA2,DA3,DA4},
-        opt = Opt
-    }) ->
-    Pad = ((HL - 5) * 4 - byte_size(Opt)) * 8,
-    <<4:4, HL:4, ToS:8, Len:16,
-    Id:16, 0:1, DF:1, MF:1, %% RFC791 states it's a MUST
-    Off:13, TTL:8, P:8, Sum:16,
-    SA1:8, SA2:8, SA3:8, SA4:8,
-    DA1:8, DA2:8, DA3:8, DA4:8,
-    Opt/binary, 0:Pad>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_ipv6.erl Deleted

@@ -1,62 +0,0 @@
-%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_ipv6).
-
-%% RFC 2460: Internet Protocol, Version 6 (IPv6) Specification
-
--include("pkt_ipproto.hrl").
--include("pkt_ipv6.hrl").
-
--export(codec/1).
-
-codec(
-    <<6:4, Class:8, Flow:20,
-    Len:16, Next:8, Hop:8,
-    SA1:16, SA2:16, SA3:16, SA4:16, SA5:16, SA6:16, SA7:16, SA8:16,
-    DA1:16, DA2:16, DA3:16, DA4:16, DA5:16, DA6:16, DA7:16, DA8:16,
-    Payload/binary>>
-) ->
-    {#ipv6{
-        class = Class, flow = Flow,
-        len = Len, next = Next, hop = Hop,
-        saddr = {SA1, SA2, SA3, SA4, SA5, SA6, SA7, SA8},
-        daddr = {DA1, DA2, DA3, DA4, DA5, DA6, DA7, DA8}
-    }, Payload};
-codec(#ipv6{
-        class = Class, flow = Flow,
-        len = Len, next = Next, hop = Hop,
-        saddr = {SA1, SA2, SA3, SA4, SA5, SA6, SA7, SA8},
-        daddr = {DA1, DA2, DA3, DA4, DA5, DA6, DA7, DA8}
-    }) ->
-    <<6:4, Class:8, Flow:20,
-    Len:16, Next:8, Hop:8,
-    SA1:16, SA2:16, SA3:16, SA4:16, SA5:16, SA6:16, SA7:16, SA8:16,
-    DA1:16, DA2:16, DA3:16, DA4:16, DA5:16, DA6:16, DA7:16, DA8:16>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_ipv6_ah.erl Deleted

@@ -1,67 +0,0 @@
-%% Copyright (c) 2013-2015, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_ipv6_ah).
-
-%% RFC 4302: IP Authentication Header
-
--include("pkt_ipproto.hrl").
--include("pkt_ipv6.hrl").
-
--export(codec/1).
-
-codec(
-    <<Next:8, Len:8, Res:16, SPI:32, Seq:32, Rest/binary>>
-) ->
-    % the length of AH in 32-bit words (4-byte units), minus "2"
-    %  Next + Len + Res = 32 bits
-    %  SPI = 32 bits
-    % The length is the 32-bit sequence number + the ICV
-    %
-    % XXX for IPv6, must be a multiple of 8-octets
-    ICVLen = ((Len - 1) * 4),
-    <<ICV:ICVLen/bytes, Payload/binary>> = Rest,
-    {#ipv6_ah{
-        next = Next,
-        len = Len,
-        res = Res,
-        spi = SPI,
-        seq = Seq,
-        icv = ICV
-    }, Payload};
-codec(#ipv6_ah{
-        next = Next,
-        len = Len,
-        res = Res,
-        spi = SPI,
-        seq = Seq,
-        icv = ICV
-        }) ->
-    <<Next:8, Len:8, Res:16, SPI:32, Seq:32, ICV/binary>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_ipv6_dstopts.erl Deleted

@@ -1,57 +0,0 @@
-%% Copyright (c) 2013-2015, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_ipv6_dstopts).
-
-%% RFC 2460: Internet Protocol, Version 6 (IPv6) Specification
-
--include("pkt_ipproto.hrl").
--include("pkt_ipv6.hrl").
-
--export(codec/1).
-
-codec(
-    <<Next:8, Len:8, Rest/binary>>
-) ->
-    % Length of the Destination Options header in 8-octet units, not
-    % including the first 8 octets
-    OptLen = 6 + (Len * 8),
-    <<Opt:OptLen/bytes, Payload/binary>> = Rest,
-    {#ipv6_dstopts{
-            next = Next,
-            len = Len,
-            opt = Opt
-            }, Payload};
-codec(#ipv6_dstopts{
-            next = Next,
-            len = Len,
-            opt = Opt
-        }) ->
-    <<Next:8, Len:8, Opt/binary>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_ipv6_esp.erl Deleted

@@ -1,62 +0,0 @@
-%% Copyright (c) 2013-2015, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_ipv6_esp).
-
-%% RFC 4303: IP Encapsulating Security Payload (ESP)
-
--include("pkt_ipproto.hrl").
--include("pkt_ipv6.hrl").
-
--export(codec/1).
-
-% XXX TODO
-codec(
-    <<SPI:32, Seq:32, Rest/binary>>
-) ->
-    {#ipv6_esp{
-        spi = SPI,
-        seq = Seq,
-        data = Rest,
-        pad = <<>>,
-        padlen = 0,
-        next = 0,
-        icv = <<>>
-    }, <<>>};
-codec(#ipv6_esp{
-        spi = SPI,
-        seq = Seq,
-        data = Data,
-        pad = Pad,
-        padlen = PadLen,
-        next = Next,
-        icv = ICV
-        }) ->
-    <<SPI:32, Seq:32, Data/binary, Pad/binary, PadLen:8, Next:8, ICV/binary>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_ipv6_fragment.erl Deleted

@@ -1,59 +0,0 @@
-%% Copyright (c) 2013-2015, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_ipv6_fragment).
-
-%% RFC 2460: Internet Protocol, Version 6 (IPv6) Specification
-
--include("pkt_ipproto.hrl").
--include("pkt_ipv6.hrl").
-
--export(codec/1).
-
-codec(
-    <<Next:8, Res:8, Off:13, Res2:2, M:1, Id:32, Payload/binary>>
-) ->
-    {#ipv6_fragment{
-            next = Next,
-            res = Res,
-            off = Off,
-            res2 = Res2,
-            m = M,
-            id = Id
-            }, Payload};
-codec(#ipv6_fragment{
-            next = Next,
-            res = Res,
-            off = Off,
-            res2 = Res2,
-            m = M,
-            id = Id
-        }) ->
-    <<Next:8, Res:8, Off:13, Res2:2, M:1, Id:32>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_ipv6_hopopts.erl Deleted

@@ -1,58 +0,0 @@
-%% Copyright (c) 2013-2015, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_ipv6_hopopts).
-
-%% RFC 2460: Internet Protocol, Version 6 (IPv6) Specification
-
--include("pkt_ipproto.hrl").
--include("pkt_ipv6.hrl").
-
--export(codec/1).
-
-codec(
-    <<Next:8, Len:8, Rest/binary>>
-) ->
-    % Length of the Hop-by-Hop Options header in 8-octet units (64 bits),
-    % not including the first 8 octets. The minimum payload is therefore
-    % 48 bits (8 - Next - Len)
-    OptLen = 6 + (Len * 8),
-    <<Opt:OptLen/bytes, Payload/binary>> = Rest,
-    {#ipv6_hopopts{
-            next = Next,
-            len = Len,
-            opt = Opt
-            }, Payload};
-codec(#ipv6_hopopts{
-            next = Next,
-            len = Len,
-            opt = Opt
-        }) ->
-    <<Next:8, Len:8, Opt/binary>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_ipv6_routing.erl Deleted

@@ -1,61 +0,0 @@
-%% Copyright (c) 2013-2015, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_ipv6_routing).
-
-%% RFC 2460: Internet Protocol, Version 6 (IPv6) Specification
-
--include("pkt_ipproto.hrl").
--include("pkt_ipv6.hrl").
-
--export(codec/1).
-
-codec(
-    <<Next:8, Len:8, Type:8, Left:8, Rest/binary>>
-) ->
-    % Length of the Routing header in 8-octet units, not including the
-    % first 8 octets.
-    DataLen = 4 + (Len * 8),
-    <<Data:DataLen/bytes, Payload/binary>> = Rest,
-    {#ipv6_routing{
-            next = Next,
-            len = Len,
-            type = Type,
-            left = Left,
-            data = Data
-            }, Payload};
-codec(#ipv6_routing{
-            next = Next,
-            len = Len,
-            type = Type,
-            left = Left,
-            data = Data
-            }) ->
-    <<Next:8, Len:8, Type:8, Left:8, Data/binary>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_linux_cooked.erl Deleted

@@ -1,56 +0,0 @@
-%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_linux_cooked).
-
--include("pkt_dlt.hrl").
--include("pkt_ether.hrl").
--include("pkt_arp.hrl").
--include("pkt_linux_cooked.hrl").
-
--export(codec/1).
-
-%%
-%% Linux cooked capture ("-i any") - DLT_LINUX_SLL
-%%
-codec(<<Ptype:16/big, Hrd:16/big, Ll_len:16/big,
-               Ll_hdr:8/bytes, Pro:16, Payload/binary>>) ->
-    {#linux_cooked{
-        packet_type = Ptype, hrd = Hrd,
-        ll_len = Ll_len, ll_bytes = Ll_hdr,
-        pro = Pro
-      }, Payload};
-codec(#linux_cooked{
-              packet_type = Ptype, hrd = Hrd,
-              ll_len = Ll_len, ll_bytes = Ll_hdr,
-              pro = Pro
-             }) ->
-    <<Ptype:16/big, Hrd:16/big, Ll_len:16/big,
-      Ll_hdr:8/bytes, Pro:16>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_linux_cooked_v2.erl Deleted

@@ -1,53 +0,0 @@
-%% Copyright (c) 2009-2022, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_linux_cooked_v2).
-
--include("pkt_dlt.hrl").
--include("pkt_ether.hrl").
--include("pkt_arp.hrl").
--include("pkt_linux_cooked.hrl").
-
--export(codec/1).
-
-codec(<<Pro:16/big, MBZ:2/bytes, Ifi:32/big, Hrd:16/big,
-        Ptype:8, Ll_len:8/big, Ll_hdr:8/bytes, Payload/binary>>) ->
-    {#linux_cooked_v2{
-        pro = Pro, mbz = MBZ, if_idx = Ifi,
-        hrd = Hrd, packet_type = Ptype,
-        ll_len = Ll_len, ll_bytes = Ll_hdr
-       }, Payload};
-codec(#linux_cooked_v2{
-         pro = Pro, mbz = MBZ, if_idx = Ifi,
-         hrd = Hrd, packet_type = Ptype,
-         ll_len = Ll_len, ll_bytes = Ll_hdr
-        }) ->
-    <<Pro:16/big, MBZ:2/bytes, Ifi:32/big, Hrd:16/big,
-      Ptype:16, Ll_len:8/big, Ll_hdr:8/bytes>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_llc.erl Deleted

@@ -1,48 +0,0 @@
-%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
-
-%% Logical-Link Control
--module(pkt_llc).
-
--include("pkt_llc.hrl").
-
--export(codec/1).
-
-codec(<<DSAP:8, SSAP:8, Control:8, Vendor:3/bytes, PID:16, Payload/binary>>) ->
-    {#llc{
-        dsap = DSAP,
-        ssap = SSAP,
-        control = Control,
-        vendor = Vendor,
-        pid = PID
-    }, Payload};
-codec(#llc{dsap = DSAP, ssap = SSAP, control = Control, vendor = Vendor, pid = PID}) ->
-    <<DSAP:8, SSAP:8, Control:8, Vendor:3/bytes, PID:16>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_lldp.erl Deleted

@@ -1,229 +0,0 @@
-%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_lldp).
-
--include("pkt_ether.hrl").
--include("pkt_lldp.hrl").
-
--export(codec/1).
-
-codec(Binary) when is_binary(Binary) -> { decode(Binary, ), <<>> };
-codec(#lldp{ pdus = Pdus }) -> pad_to(50, encode(Pdus, <<>>)).
-
-decode(<<?END_OF_LLDPDU:7, 0:9, _Tail/bytes>>, Acc) ->
-    Acc2 = end_of_lldpdu | Acc,
-    #lldp{ pdus = lists:reverse(Acc2) };
-decode(<<?CHASSIS_ID:7, Length:9, SubTypeInt:8, Tail/bytes>>, Acc) ->
-    ValueLen = Length - 1,
-    <<Value:ValueLen/bytes, Rest/bytes>> = Tail,
-    SubType = map(chassis_id, SubTypeInt),
-    Pdu = #chassis_id{ subtype = SubType, value = Value },
-    decode(Rest, Pdu | Acc);
-decode(<<?PORT_ID:7, Length:9, SubTypeInt:8, Tail/bytes>>, Acc) ->
-    ValueLen = Length - 1,
-    <<Value:ValueLen/bytes, Rest/bytes>> = Tail,
-    SubType = map(port_id, SubTypeInt),
-    Pdu = #port_id{ subtype = SubType, value = Value },
-    decode(Rest, Pdu | Acc);
-decode(<<?TTL:7, Length:9, Tail/bytes>>, Acc) ->
-    BitLen = Length * 8,
-    <<Value:BitLen, Rest/bytes>> = Tail,
-    Pdu = #ttl{ value = Value },
-    decode(Rest, Pdu | Acc);
-decode(<<?PORT_DESC:7, Length:9,
-         Value:Length/bytes, Rest/bytes>>, Acc) ->
-    Pdu = #port_desc{ value = decode_string(Value) },
-    decode(Rest, Pdu | Acc);
-decode(<<?SYSTEM_NAME:7, Length:9,
-         Value:Length/bytes, Rest/bytes>>, Acc) ->
-    Pdu = #system_name{ value = decode_string(Value) },
-    decode(Rest, Pdu | Acc);
-decode(<<?SYSTEM_DESC:7, Length:9,
-         Value:Length/bytes, Rest/bytes>>, Acc) ->
-    Pdu = #system_desc{ value = decode_string(Value) },
-    decode(Rest, Pdu | Acc);
-decode(<<?SYSTEM_CAPABILITY:7, _Length:9, Tail/bytes>>, Acc) ->
-    <<SystemBin:16/bits, EnabledBin:16/bits, Rest/bytes>> = Tail,
-    System = binary_to_flags(system_capability, SystemBin),
-    Enabled = binary_to_flags(system_capability, EnabledBin),
-    Pdu = #system_capability{ system = System,
-                              enabled = Enabled },
-    decode(Rest, Pdu | Acc);
-decode(<<?MANAGEMENT_ADDRESS:7, Length:9,
-         Value:Length/bytes, Rest/bytes>>, Acc) ->
-    Pdu = #management_address{ value = Value },
-    decode(Rest, Pdu | Acc);
-decode(<<?ORGANIZATIONALLY_SPECIFIC:7, Length:9,
-         Value:Length/bytes, Rest/bytes>>, Acc) ->
-    Pdu = #organizationally_specific{ value = Value },
-    decode(Rest, Pdu | Acc);
-decode(<<Type:7, Length:9,
-         Value:Length/bytes, Rest/bytes>>, Acc) ->
-    Pdu = #unknown_lldp_tlv{ type = Type, value = Value },
-    decode(Rest, Pdu | Acc).
-
-encode(, Binary) -> Binary;
-encode(Pdu | Rest, Binary) ->
-    PduBin = encode_pdu(Pdu),
-    encode(Rest, <<Binary/bytes, PduBin/bytes>>).
-
-encode_pdu(end_of_lldpdu) ->
-    <<?END_OF_LLDPDU:7, 0:9>>;
-encode_pdu(#chassis_id{ subtype = SubType, value = Value }) ->
-    SubTypeInt = map(chassis_id, SubType),
-    Length = byte_size(Value),
-    <<?CHASSIS_ID:7, (Length + 1):9, SubTypeInt:8, Value:Length/bytes>>;
-encode_pdu(#port_id{ subtype = SubType, value = Value }) ->
-    SubTypeInt = map(port_id, SubType),
-    Length = byte_size(Value),
-    <<?PORT_ID:7, (Length + 1):9, SubTypeInt:8, Value:Length/bytes>>;
-encode_pdu(#ttl{ value = Value }) ->
-    <<?TTL:7, 2:9, Value:16>>;
-encode_pdu(#port_desc{ value = Value }) ->
-    Value2 = encode_string(Value),
-    Length = byte_size(Value2),
-    <<?PORT_DESC:7, Length:9, Value2:Length/bytes>>;
-encode_pdu(#system_name{ value = Value }) ->
-    Value2 = encode_string(Value),
-    Length = byte_size(Value2),
-    <<?SYSTEM_NAME:7, Length:9, Value2:Length/bytes>>;
-encode_pdu(#system_desc{ value = Value }) ->
-    Value2 = encode_string(Value),
-    Length = byte_size(Value2),
-    <<?SYSTEM_DESC:7, Length:9, Value2:Length/bytes>>;
-encode_pdu(#system_capability{ system = System,
-                               enabled = Enabled }) ->
-    SystemBin = flags_to_binary(system_capability, System, 16),
-    EnabledBin = flags_to_binary(system_capability, Enabled, 16),
-    Value = <<SystemBin:2/bytes, EnabledBin:2/bytes>>,
-    <<?SYSTEM_CAPABILITY:7, 4:9, Value:4/bytes>>;
-encode_pdu(#management_address{ value = Value }) ->
-    Length = byte_size(Value),
-    <<?MANAGEMENT_ADDRESS:7, Length:9, Value:Length/bytes>>;
-encode_pdu(#organizationally_specific{ value = Value }) ->
-    Length = byte_size(Value),
-    <<?ORGANIZATIONALLY_SPECIFIC:7, Length:9, Value:Length/bytes>>;
-encode_pdu(#unknown_lldp_tlv{ type = Type, value = Value }) ->
-    Length = byte_size(Value),
-    <<Type:7, Length:9, Value:Length/bytes>>.
-
-% ChassisID SubTypes
-map(chassis_id, ?CHASSIS_ID_IFAlias) -> interface_alias;
-map(chassis_id, ?CHASSIS_ID_PORT)    -> port_component;
-map(chassis_id, ?CHASSIS_ID_MAC)     -> mac_address;
-map(chassis_id, ?CHASSIS_ID_NW)      -> network_address;
-map(chassis_id, ?CHASSIS_ID_IFNAME)  -> interface_name;
-map(chassis_id, ?CHASSIS_ID_LOCALLY) -> locally_assigned;
-map(chassis_id, interface_alias)  -> ?CHASSIS_ID_IFAlias;
-map(chassis_id, port_component)   -> ?CHASSIS_ID_PORT;
-map(chassis_id, mac_address)      -> ?CHASSIS_ID_MAC;
-map(chassis_id, network_address)  -> ?CHASSIS_ID_NW;
-map(chassis_id, interface_name)   -> ?CHASSIS_ID_IFNAME;
-map(chassis_id, locally_assigned) -> ?CHASSIS_ID_LOCALLY;
-
-% PortID SubTypes
-map(port_id, ?PORT_ID_IFALIAS)       -> interface_alias;
-map(port_id, ?PORT_ID_PORT)          -> port_component;
-map(port_id, ?PORT_ID_MAC)           -> mac_address;
-map(port_id, ?PORT_ID_NW)            -> network_address;
-map(port_id, ?PORT_ID_IFNAME)        -> interface_name;
-map(port_id, ?PORT_ID_AGENT_CIRC_ID) -> agent_circuit_id;
-map(port_id, ?PORT_ID_LOCALLY)       -> locally_assigned;
-map(port_id, interface_alias)  -> ?PORT_ID_IFALIAS;
-map(port_id, port_component)   -> ?PORT_ID_PORT;
-map(port_id, mac_address)      -> ?PORT_ID_MAC;
-map(port_id, network_address)  -> ?PORT_ID_NW;
-map(port_id, interface_name)   -> ?PORT_ID_IFNAME;
-map(port_id, agent_circuit_id) -> ?PORT_ID_AGENT_CIRC_ID;
-map(port_id, locally_assigned) -> ?PORT_ID_LOCALLY.
-
-% Encode Bitmap flags
-flags_to_binary(Type, Flags, BitSize) ->
-    flags_to_binary(Type, Flags, BitSize, <<0:BitSize>>).
-
-flags_to_binary(_, , _, Binary) -> Binary;
-flags_to_binary(Type, Flag | Rest, BitSize, Binary) ->
-    <<FlagsInt:BitSize>> = Binary,
-    FlagInt = proplists:get_value(Flag, enums(Type)),
-    FlagsInt2 = FlagsInt bor FlagInt,
-    flags_to_binary(Type, Rest, BitSize, <<FlagsInt2:BitSize>>).
-
-% Decode Bitmap Flags
-binary_to_flags(Type, Binary) ->
-    BitSize = bit_size(Binary),
-    <<FlagsInt:BitSize>> = Binary,
-    Keys = proplists:get_keys(enums(Type)),
-    binary_to_flags(Type, FlagsInt, Keys, ).
-
-binary_to_flags(_, _, , Flags) -> lists:reverse(Flags);
-binary_to_flags(Type, FlagsInt, Flag | Rest, Flags) ->
-    FlagInt = proplists:get_value(Flag, enums(Type)),
-    case 0 /= FlagInt band FlagsInt of
-        true ->
-            binary_to_flags(Type, FlagsInt, Rest, Flag | Flags);
-        false ->
-            binary_to_flags(Type, FlagsInt, Rest, Flags)
-    end.
-
-% system capability enums
-enums(system_capability) ->
-    { other,             ?SYSTEM_CAP_OTHER },
-     { repeater,          ?SYSTEM_CAP_REPEATER },
-     { bridge,            ?SYSTEM_CAP_BRIDGE },
-     { wlan_access_point, ?SYSTEM_CAP_WLANAP },
-     { router,            ?SYSTEM_CAP_ROUTER },
-     { telephone,         ?SYSTEM_CAP_TELEPHONE },
-     { docsis,            ?SYSTEM_CAP_DOCSIS },
-     { station_only,      ?SYSTEM_CAP_STATION }.
-
-% padding binary to byte length
-pad_to(ByteLen, Binary) ->
-    BinLength = byte_size(Binary),
-    case ByteLen > BinLength of
-        true ->
-            PadLen = (ByteLen - BinLength) * 8,
-            <<Binary/bytes, 0:PadLen>>;
-        false ->
-            Binary
-    end.
-
-decode_string(Binary) ->
-    decode_string(Binary, byte_size(Binary) - 1).
-
-decode_string(Binary, Size) when Size >= 0 ->
-    case binary:at(Binary, Size) of
-        0 -> decode_string(Binary, Size - 1);
-        _ -> binary:part(Binary, 0, Size + 1)
-    end;
-decode_string(_, _) ->
-    <<>>.
-
-encode_string(Binary) -> <<Binary/bytes, 0:8>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_mpls.erl Deleted

@@ -1,59 +0,0 @@
-%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_mpls).
-
--include("pkt_mpls.hrl").
-
--export(codec/1).
-
-codec(Mpls) when is_binary(Mpls) ->
-    decode(Mpls, );
-codec(#mpls{labels = Labels}) ->
-    encode(Labels, <<>>).
-
-decode(<<L:20, Tc:3, 1:1, Ttl:8, Rest/binary>>, Labels0) ->
-    Mpls = #shim{label = L, tc = Tc, s = true, ttl = Ttl},
-    Labels = #mpls{labels = lists:reverse(Mpls|Labels0)},
-    {Next, Payload} = next_header(Rest),
-    {Labels, Next, Payload};
-decode(<<L:20, Tc:3, 0:1, Ttl:8, Rest/binary>>, Labels0) ->
-    Mpls = #shim{label = L, tc = Tc, s = false, ttl = Ttl},
-    decode(Rest, Mpls|Labels0).
-
-encode(, Bin) -> Bin;
-encode(#shim{label = L, tc = Tc, s = true, ttl = Ttl}|_, Bin) ->
-    <<Bin/bytes, L:20, Tc:3, 1:1, Ttl:8>>;
-encode(#shim{label = L, tc = Tc, s = false, ttl = Ttl}|Rest, Bin) ->
-    encode(Rest, <<L:20, Tc:3, 0:1, Ttl:8, Bin/bytes>>).
-
-next_header(<<>>) -> {none, <<>>};
-next_header(<<4:4, _/bitstring>> = Binary) -> {ipv4, Binary};
-next_header(<<6:4, _/bitstring>> = Binary) -> {ipv6, Binary}.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_null.erl Deleted

@@ -1,46 +0,0 @@
-%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_null).
-
--include("pkt_protocol_family.hrl").
--include("pkt_null.hrl").
-
--export(codec/1).
-
-%%
-%% BSD loopback
-%%
-codec(<<Family:4/native-unsigned-integer-unit:8, Payload/binary>>) ->
-    {#null{
-            family = Family
-        }, Payload};
-codec(#null{family = Family}) ->
-    <<Family:4/native-unsigned-integer-unit:8>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_rarp.erl Deleted

@@ -1,67 +0,0 @@
-%% Copyright (c) 2009-2017, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_rarp).
-
--include("pkt_ether.hrl").
--include("pkt_rarp.hrl").
-
--export(codec/1).
-
-codec(<<Hrd:16, Pro:16,
-    Hln:8, Pln:8, Op:16,
-    Sha:6/bytes,
-    SA1:8, SA2:8, SA3:8, SA4:8,
-    Tha:6/bytes,
-    DA1:8, DA2:8, DA3:8, DA4:8,
-    Payload/binary>>
-) ->
-    {#rarp{
-        hrd = Hrd, pro = Pro,
-        hln = Hln, pln = Pln, op = Op,
-        sha = Sha,
-        sip = {SA1,SA2,SA3,SA4},
-        tha = Tha,
-        tip = {DA1,DA2,DA3,DA4}
-    }, Payload};
-codec(#rarp{
-        hrd = Hrd, pro = Pro,
-        hln = Hln, pln = Pln, op = Op,
-        sha = Sha,
-        sip = {SA1,SA2,SA3,SA4},
-        tha = Tha,
-        tip = {DA1,DA2,DA3,DA4}
-    }) ->
-    <<Hrd:16, Pro:16,
-    Hln:8, Pln:8, Op:16,
-    Sha:6/bytes,
-    SA1:8, SA2:8, SA3:8, SA4:8,
-    Tha:6/bytes,
-    DA1:8, DA2:8, DA3:8, DA4:8>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_sctp.erl Deleted

@@ -1,208 +0,0 @@
-%% Copyright (c) 2009-2022, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_sctp).
-
--include("pkt_sctp.hrl").
-
--export(codec/1).
-
--spec codec(binary()) -> {#sctp{}, binary()}.
-codec(<<SPort:16, DPort:16, VTag:32, Sum:32, Payload/binary>>) ->
-    {Chunks, Other} = decode_chunks(Payload, ),
-    SCTP = #sctp{
-        sport = SPort,
-        dport = DPort,
-        vtag = VTag,
-        sum = Sum,
-        chunks = lists:reverse(Chunks)
-    },
-    {SCTP, Other}.
-
-%% Internal functions
-
-decode_chunks(Chunks, Acc) ->
-    case chunk_len(Chunks) < byte_size(Chunks) of
-        true ->
-            <<Type:8, Flags:1/binary, Length:16, Rest/binary>> = Chunks,
-            Pad = chunk_pad_len(Length),
-            Len = Length-4,
-            <<Payload:Len/binary, _:Pad/binary, Tail/binary>> = Rest,
-            decode_chunks(Tail, chunk(Type, Flags, Length, Payload) | Acc);
-        false ->
-            {Acc, Chunks}
-    end.
-
-%%% if 'chunks' is less than 4 bytes, we can't read a length.
-%%% if 'length' is less than 4, the chunk is corrupt.
-%%% we return 'sizeof chunks' plus one, indicating that a read will fail.
-chunk_len(<<_:16, L:16, _/binary>>) when 4 =< L ->
-    L-4+chunk_pad_len(L);
-chunk_len(Chunks) ->
-    byte_size(Chunks)+1.
-
-%%% pad length in bytes
-chunk_pad_len(L) ->
-    3-((L+3) rem 4).
-
--spec chunk(byte(), binary(), non_neg_integer(), binary()) -> #sctp_chunk{}.
-chunk(Type, Flags, Len, Payload) ->
-    <<_Spare:4, I:1, U:1, B:1, E:1>> = Flags,
-	#sctp_chunk{
-        type = Type,
-        i = I,
-        u = U,
-        b = B,
-        e = E,
-        len = Len - 4,
-        payload = chunk_payload(Type, Payload)
-    }.
-
--spec chunk_payload(non_neg_integer(), binary()) ->
-    #sctp_chunk_data{}
-    | #sctp_chunk_init{}
-    | #sctp_chunk_init_ack{}
-    | #sctp_chunk_sack{}
-    | #sctp_chunk_cookie_echo{}
-    | #sctp_chunk_cookie_ack{}
-    | #sctp_chunk_heartbeat{}
-    | #sctp_chunk_heartbeat_ack{}
-    | #sctp_chunk_shutdown{}
-    | #sctp_chunk_shutdown_ack{}
-    | #sctp_chunk_shutdown_complete{}
-    | binary().
-chunk_payload(?SCTP_CHUNK_DATA, <<Tsn:32, Sid:16, Ssn:16, Ppi:32, Data/binary>>) ->
-	#sctp_chunk_data{tsn = Tsn, sid = Sid, ssn = Ssn, ppi = Ppi, data = Data};
-chunk_payload(?SCTP_CHUNK_INIT, <<Itag:32, Arwnd:32, OutStreams:16, InStreams:16, Tsn:32, Rest/binary>>) ->
-    #sctp_chunk_init{
-        itag = Itag,
-        a_rwnd = Arwnd,
-        outbound_streams = OutStreams,
-        inbound_streams = InStreams,
-        tsn = Tsn,
-        params = init_params(Rest, )
-    };
-chunk_payload(?SCTP_CHUNK_INIT_ACK, <<Itag:32, Arwnd:32, OutStreams:16, InStreams:16, Tsn:32, Rest/binary>>) ->
-    #sctp_chunk_init_ack{
-        itag = Itag,
-        a_rwnd = Arwnd,
-        outbound_streams = OutStreams,
-        inbound_streams = InStreams,
-        tsn = Tsn,
-        params = init_params(Rest, )
-    };
-chunk_payload(?SCTP_CHUNK_SACK, <<TSN_ACK:32, Arwnd:32, GapsN:16, DuplicateTSN:16, Rest/binary>>) ->
-    GapsLength = GapsN * 4, %% Gap Ack start (16), Gap Ack end (16)
-    <<Gaps:GapsLength/binary-unit:8, TSNs/binary>> = Rest,
-    #sctp_chunk_sack{
-        tsn_ack = TSN_ACK,
-        a_rwnd = Arwnd,
-        number_gap_ack_blocks = GapsN,
-        number_duplicate_tsn = DuplicateTSN,
-        gap_ack_blocks = {Start, End} || <<Start:16, End:16>> <= Gaps,
-        duplicate_tsns = T || <<T:32>> <= TSNs
-    };
-chunk_payload(?SCTP_CHUNK_COOKIE_ECHO, Cookie) ->
-    #sctp_chunk_cookie_echo{cookie = Cookie};
-chunk_payload(?SCTP_CHUNK_COOKIE_ACK, <<>>) ->
-    #sctp_chunk_cookie_ack{};
-chunk_payload(?SCTP_CHUNK_HEARTBEAT, <<Type:16, _Length:16, Info/binary>>) ->
-    #sctp_chunk_heartbeat{type = Type, info = Info};
-chunk_payload(?SCTP_CHUNK_HEARTBEAT_ACK, <<Type:16, _Length:16, Info/binary>>) ->
-    #sctp_chunk_heartbeat_ack{type = Type, info = Info};
-chunk_payload(?SCTP_CHUNK_SHUTDOWN, <<TSN_ACK:32>>) ->
-    #sctp_chunk_shutdown{tsn_ack = TSN_ACK};
-chunk_payload(?SCTP_CHUNK_SHUTDOWN_ACK, <<>>) ->
-    #sctp_chunk_shutdown_ack{};
-chunk_payload(?SCTP_CHUNK_SHUTDOWN_COMPLETE, <<>>) ->
-    #sctp_chunk_shutdown_complete{};
-chunk_payload(?SCTP_CHUNK_ABORT, Errors) ->
-    #sctp_chunk_abort{error_causes = error_causes(Errors, )};
-chunk_payload(_, Data) ->
-	Data.
-
-%% IPv4 Address Parameter
-init_params(<<5:16, 8:16, A:8, B:8, C:8, D:8, Rest/binary>>, Acc) ->
-    init_params(Rest, {ipv4, {A, B, C, D}} | Acc);
-%% IPv6 Address Parameter
-init_params(<<6:16, 20:16, Value:16/binary-unit:8, Rest/binary>>, Acc) ->
-    IP = list_to_tuple(N || <<N:16>> <= Value),
-    init_params(Rest, {ipv6, IP} | Acc);
-%% State cookie
-init_params(<<7:16, Length:16, Rest/binary>>, Acc) ->
-    L = Length - 4,
-    <<Cookie:L/binary-unit:8, Tail/binary>> = Rest,
-    init_params(Tail, {state_cookie, Cookie} | Acc);
-%% Unrecognized Parameter
-init_params(<<8:16, Length:16, Rest/binary>>, Acc) ->
-    L = Length - 4,
-    <<Parameter:L/binary-unit:8, Tail/binary>> = Rest,
-    init_params(Tail, {unrecognized, Parameter} | Acc);
-%% Cookie Preservative
-init_params(<<9:16, 8:16, Value:32, Rest/binary>>, Acc) ->
-    init_params(Rest, {cookie, Value} | Acc);
-%% Host Name Address
-init_params(<<11:16, Length:16, Rest/binary>>, Acc) ->
-    L = Length - 4,
-    <<Hostname:L/binary-unit:8, Tail/binary>> = Rest,
-    init_params(Tail, {hostname, Hostname} | Acc);
-%% Supported Address Types
-init_params(<<12:16, Length:16, Rest/binary>>, Acc) ->
-    AddressType =
-        fun(5) -> ipv4;
-           (6) -> ipv6;
-           (11) -> hostname
-    end,
-    L = Length - 4,
-    <<Types:L/binary-unit:8, Tail/binary>> = Rest,
-    init_params(Tail, {address_types, AddressType(V) || <<V:16>> <= Types} | Acc);
-init_params(<<>>, Acc) -> Acc;
-%% Ignore ECN and Forward TSN parameters
-init_params(_, Acc) -> Acc.
-
-error_causes(<<Code:16, Length:16, Rest/binary>>, Acc) ->
-    L = Length - 4,
-    <<Opts:L/binary-unit:8, Tail/binary>> = Rest,
-    Error = #sctp_error_cause{
-        code = Code,
-        descr = gen_sctp:error_string(Code),
-        opts = sctp_error(Code, L, Opts)
-    },
-    error_causes(Tail, Error | Acc);
-error_causes(<<>>, Acc) -> Acc.
-
-sctp_error(1, _Length, <<Ident:16, _Reserved:8>>) ->
-    {stream_identifier, Ident};
-sctp_error(12, Length, Opts) ->
-    <<Reason:Length/binary-unit:8>> = Opts,
-    {abort_reason, Reason};
-%% FIXME: add more error causes
-sctp_error(_Code, _Length, Opts) ->
-    {data, Opts}.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_tcp.erl Deleted

@@ -1,129 +0,0 @@
-%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_tcp).
-
--include("pkt_tcp.hrl").
-
--export(
-        codec/1,
-        options/1
-    ).
-
-codec(
-    <<SPort:16, DPort:16,
-      SeqNo:32,
-      AckNo:32,
-      Off:4, 0:3, NS:1, CWR:1, ECE:1, URG:1, ACK:1,
-      PSH:1, RST:1, SYN:1, FIN:1, Win:16,
-      Sum:16, Urp:16,
-      Rest/binary>>
-) when Off >= 5 ->
-    OptLen = (Off - 5) * 4,
-    <<Opt:OptLen/binary, Payload/binary>> = Rest,
-    {#tcp{
-        sport = SPort, dport = DPort,
-        seqno = SeqNo,
-        ackno = AckNo,
-        off = Off, ns = NS, cwr = CWR, ece = ECE, urg = URG, ack = ACK,
-        psh = PSH, rst = RST, syn = SYN, fin = FIN, win = Win,
-        sum = Sum, urp = Urp,
-        opt = Opt
-    }, Payload};
-codec(#tcp{
-        sport = SPort, dport = DPort,
-        seqno = SeqNo,
-        ackno = AckNo,
-        off = Off, ns = NS, cwr = CWR, ece = ECE, urg = URG, ack = ACK,
-        psh = PSH, rst = RST, syn = SYN, fin = FIN, win = Win,
-        sum = Sum, urp = Urp,
-        opt = Opt
-    }) ->
-    Pad = ((Off - 5) * 4 - byte_size(Opt)) * 8,
-    <<SPort:16, DPort:16,
-      SeqNo:32,
-      AckNo:32,
-      Off:4, 0:3, NS:1, CWR:1, ECE:1, URG:1, ACK:1,
-      PSH:1, RST:1, SYN:1, FIN:1, Win:16,
-      Sum:16, Urp:16,
-      Opt/binary, 0:Pad>>.
-
-%% @doc Used to decoding or encoding the TCP options.
-options(Options) ->
-    options(Options, ).
-
-%% Decoding routines
-options(<<>>, Acc) ->
-    lists:reverse(Acc); % Return list of the options in the correct order
-%% Kind - 0, End of Option List (RFC 793)
-options(<<0:8, _Rest/binary>>, Acc) ->
-    options(<<>>, {eol, } | Acc);
-%% Kind - 1, No-Operation (RFC 793)
-options(<<1:8, Rest/binary>>, Acc) ->
-    options(Rest, {nop, } | Acc);
-%% Kind - 2, Length - 4, Maximum Segment Size (RFC 793)
-options(<<2:8, 4:8, MSSValue:16, Rest/binary>>, Acc) ->
-    options(Rest, {maximum_segment_size, MSSValue} | Acc);
-%% Kind - 3, Length - 3, WSOPT - Window Scale (RFC 1323)
-%% Multiplier is calculated as 1 bsl ShiftCount
-options(<<3:8, 3:8, ShiftCount:8, Rest/binary>>, Acc) ->
-    options(Rest, {window_scale, ShiftCount} | Acc);
-%% Kind - 4, Length - 2, SACK Permitted (RFC 2018)
-options(<<4:8, 2:8, Rest/binary>>, Acc) ->
-    options(Rest, {sack_permitted, true} | Acc);
-%% Kind - 5, Length - variable, SACK (RFC 2018)
-options(<<5:8, Len:8, Rest/binary>>, Acc) ->
-    Length = Len - 2,
-    <<Values:Length/binary, Rest1/binary>> = Rest,
-    Edges = {{left_edge, Left}, {right_edge, Right}} || <<Left:32, Right:32>> <= Values,
-    options(Rest1, {sack, Edges} | Acc);
-%% Kind - 8, Length - 10, TSOPT - Time Stamp Option (RFC 1072, RFC 6247)
-options(<<8:8, 10:8, Timestamp:32, TimestampEchoReply:32, Rest/binary>>, Acc) ->
-    options(Rest, {tsopt, {timestamp, Timestamp}, {timestamp_echo_reply, TimestampEchoReply}} | Acc);
-
-%% Encoding routines
-options(, Acc) ->
-    list_to_binary(lists:reverse(Acc));
-options({eol, } | _Rest, Acc) ->
-    options(, <<0:8>> | Acc); % No more options after EOL must be
-options({nop, } | Rest, Acc) ->
-    options(Rest, <<1:8>> | Acc);
-options({maximum_segment_size, MSSValue} | Rest, Acc) ->
-    options(Rest, <<2:8, 4:8, MSSValue:16>> | Acc);
-options({window_scale, ShiftCount} | Rest, Acc) ->
-    options(Rest, <<3:8, 3:8, ShiftCount:8>> | Acc);
-options({sack_permitted, true} | Rest, Acc) ->
-    options(Rest, <<4:8, 2:8>> | Acc);
-options({sack, Values} | Rest, Acc) ->
-    Edges = list_to_binary(<<Left:32, Right:32>> || {{left_edge, Left}, {right_edge, Right}} <- Values),
-    Length = byte_size(Edges) + 2,
-    options(Rest, <<5:8, Length:8, Edges/binary>> | Acc);
-options({tsopt, {timestamp, Timestamp}, {timestamp_echo_reply, TimestampEchoReply}} | Rest, Acc) ->
-    options(Rest, <<8:8, 10:8, Timestamp:32, TimestampEchoReply:32>> | Acc).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_udp.erl Deleted

@@ -1,40 +0,0 @@
-%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_udp).
-
--include("pkt_udp.hrl").
-
--export(codec/1).
-
-codec(<<SPort:16, DPort:16, ULen:16, Sum:16, Payload/binary>>) ->
-    {#udp{sport = SPort, dport = DPort, ulen = ULen, sum = Sum}, Payload};
-codec(#udp{sport = SPort, dport = DPort, ulen = ULen, sum = Sum}) ->
-    <<SPort:16, DPort:16, ULen:16, Sum:16>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/src/pkt_vrrp.erl Deleted

@@ -1,54 +0,0 @@
-%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
-%% All rights reserved.
-%%
-%% Redistribution and use in source and binary forms, with or without
-%% modification, are permitted provided that the following conditions
-%% are met:
-%%
-%% Redistributions of source code must retain the above copyright
-%% notice, this list of conditions and the following disclaimer.
-%%
-%% Redistributions in binary form must reproduce the above copyright
-%% notice, this list of conditions and the following disclaimer in the
-%% documentation and/or other materials provided with the distribution.
-%%
-%% Neither the name of the author nor the names of its contributors
-%% may be used to endorse or promote products derived from this software
-%% without specific prior written permission.
-%%
-%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-%% "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-%% LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-%% FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-%% COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-%% INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-%% BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-%% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-%% LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-%% ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-%% POSSIBILITY OF SUCH DAMAGE.
--module(pkt_vrrp).
-
--export(codec/1).
-
--include("pkt_vrrp.hrl").
-
-codec(<<Version:4, Type:4, VRID:8, Prio:8, CntIP:8, AuthType:8, AdverInt:8, Sum:16, Rest/binary>>) ->
-    ASize = CntIP * 4,
-    <<Addresses:ASize/binary, 0:64, Payload/binary>> = Rest, % 0:64 - Application Data {1,2}
-    {#vrrp{
-        version = Version,
-        type = Type,
-        vrid = VRID,
-        priority = Prio,
-        auth_type = AuthType,
-        adver_int = AdverInt,
-        sum = Sum,
-        ip_addresses = {A, B, C, D} || <<A:8, B:8, C:8, D:8>> <= Addresses
-    }, Payload};
-codec(#vrrp{version = Version, type = Type, vrid = VRID, priority = Prio, auth_type = AuthType, adver_int = AdverInt, sum = Sum, ip_addresses = Addresses}) ->
-    CntIP = length(Addresses),
-    ASize = CntIP * 4,
-    IPs = << <<A:8, B:8, C:8, D:8>> || {A, B, C, D} <- Addresses >>,
-    <<Version:4, Type:4, VRID:8, Prio:8, CntIP:8, AuthType:8, AdverInt:8, Sum:16, IPs:ASize/binary, 0:64>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/pkt_802_1q_tests.erl Deleted

@@ -1,51 +0,0 @@
--module(pkt_802_1q_tests).
-
--include_lib("pkt/include/pkt.hrl").
--include_lib("eunit/include/eunit.hrl").
-
-codec_test_() ->
-    
-        frame_decode(),
-        decode(),
-        encode()
-    .
-
-% http://packetlife.net/captures/QinQ.pcap.cap
-frame() ->
-    <<255,255,255,255,255,255,202,3,13,180,0,28,129,0,0,100,
-      129,0,0,200,8,6,0,1,8,0,6,4,0,1,202,3,13,180,0,28,192,
-      168,2,200,0,0,0,0,0,0,192,168,2,254,0,0,0,0,0,0,0,0,0,0,
-      0,0,0,0>>.
-
-header() ->
-    <<0,100,129,0>>.
-
-frame_decode() ->
-    Frame = pkt:decapsulate(frame()),
-    Terms =#ether{dhost = <<255,255,255,255,255,255>>,
-                   shost = <<202,3,13,180,0,28>>,
-                   type = 33024,crc = 0},
-            #'802.1q'{prio = 0,cfi = 0,vid = 100,type = 33024},
-            #'802.1q'{prio = 0,cfi = 0,vid = 200,type = 2054},
-            #arp{hrd = 1,pro = 2048,hln = 6,pln = 4,op = 1,
-                 sha = <<202,3,13,180,0,28>>,
-                 sip = {192,168,2,200},
-                 tha = <<0,0,0,0,0,0>>,
-                 tip = {192,168,2,254}},
-            <<0,0,0,0,0,0,0,0,0,0,0,0,0,0>>,
-    ?_assertEqual(Terms, Frame).
-
-decode() ->
-    {Header, Payload} = pkt:'802.1q'(header()),
-    Result = #'802.1q'{
-        prio = 0,
-        cfi = 0,
-        vid = 100,
-        type = 16#8100
-    },
-    ?_assertEqual({Result, <<>>}, {Header, Payload}).
-
-encode() ->
-    Packet = header(),
-    {Header, Payload} = pkt:'802.1q'(Packet),
-    ?_assertEqual(Packet, <<(pkt:'802.1q'(Header))/binary, Payload/binary>>).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/pkt_802_1qinq_tests.erl Deleted

@@ -1,49 +0,0 @@
--module(pkt_802_1qinq_tests).
-
--include_lib("pkt/include/pkt.hrl").
--include_lib("eunit/include/eunit.hrl").
-
-codec_test_() ->
-    
-        frame_decode(),
-        decode(),
-        encode()
-    .
-
-% https://github.com/the-tcpdump-group/tcpdump/blob/master/tests/QinQpacket.pcap
-frame() ->
-    <<255,255,255,255,255,255,0,8,93,35,12,63,136,168,0,200,8,
-      6,0,1,8,0,6,4,0,1,0,8,93,35,12,63,172,17,0,20,0,0,0,0,0,
-      0,172,17,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0>>.
-
-header() ->
-    <<0,200,8,6>>.
-
-frame_decode() ->
-    Frame = pkt:decapsulate(frame()),
-    Terms = #ether{dhost = <<255,255,255,255,255,255>>,
-                    shost = <<0,8,93,35,12,63>>,
-                    type = 34984,crc = 0},
-                    #'802.1q'{prio = 0,cfi = 0,vid = 200,type = 2054},
-                    #arp{hrd = 1,pro = 2048,hln = 6,pln = 4,op = 1,
-                         sha = <<0,8,93,35,12,63>>,
-                         sip = {172,17,0,20},
-                         tha = <<0,0,0,0,0,0>>,
-                         tip = {172,17,0,2}},
-              <<0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0>>,
-    ?_assertEqual(Terms, Frame).
-
-decode() ->
-    {Header, Payload} = pkt:'802.1q'(header()),
-    Result = #'802.1q'{
-        prio = 0,
-        cfi = 0,
-        vid = 200,
-        type = 16#0806
-    },
-    ?_assertEqual({Result, <<>>}, {Header, Payload}).
-
-encode() ->
-    Packet = header(),
-    {Header, Payload} = pkt:'802.1q'(Packet),
-    ?_assertEqual(Packet, <<(pkt:'802.1q'(Header))/binary, Payload/binary>>).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/pkt_802_1x_tests.erl Deleted

@@ -1,30 +0,0 @@
--module(pkt_802_1x_tests).
-
--include_lib("pkt/include/pkt.hrl").
--include_lib("eunit/include/eunit.hrl").
-
-codec_test_() ->
-    
-        decode(),
-        encode()
-    .
-
-packet() ->
-    <<208,231,130,187,173,120,216,80,230,215,165,93,136,142,2,3,0,127,2,19,
-      130,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
-      0,0,0,0,0,0,0,0,0,0,48,35,21,192,82,245,73,203,215,177,67,166,119,19,51,
-      133,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,200,45,182,0,54,207,185,135,165,160,
-      10,70,95,175,108,147,0,32,112,46,203,250,45,160,87,202,238,37,17,167,64,
-      202,98,8,201,119,185,73,11,98,90,123,40,181,73,189,189,89,19,137>>.
-
-decode() ->
-    _Ether, EAPoL, _Payload = pkt:decapsulate(packet()),
-    ?_assertEqual(
-       {'802.1x',2, 3, 127 },
-       EAPoL
-    ).
-
-encode() ->
-    <<_Ether:14/bytes, Packet/bytes>> = packet(),
-    {Header, Payload} = pkt:'802.1x'(Packet),
-    ?_assertEqual(Packet, <<(pkt:'802.1x'(Header))/binary, Payload/binary>>).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/pkt_arp_tests.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/pkt_dlt_tests.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/pkt_ether_tests.erl Deleted

@@ -1,42 +0,0 @@
--module(pkt_ether_tests).
-
--include_lib("pkt/include/pkt.hrl").
--include_lib("eunit/include/eunit.hrl").
-
-codec_test_() ->
-    
-        decode(),
-        encode(),
-        type(),
-        type_fail()
-    .
-
-packet() ->
-    <<0,80,217,184,222,13,22,43,241,75,9,12,176,18,17,4,140,86,
-      0,0,2,4,5,172,1, 3,3,0,1,1,8,10,190,15,172,236,0,64,161,73,4,2,0,0>>.
-
-decode() ->
-    {Header, Payload} = pkt:ether(packet()),
-    ?_assertEqual(
-        {{ether,<<0,80,217,184,222,13>>,
-         <<22,43,241,75,9,12>>,
-         45074,0},
-         <<17,4,140,86,0,0,2,4,5,172,1,3,3,0,1,1,8,10,190,15,172,
-         236,0,64,161,73,4,2,0,0>>},
-         {Header, Payload}
-    ).
-
-encode() ->
-    Packet = packet(),
-    {Header, Payload} = pkt:ether(Packet),
-    ?_assertEqual(Packet, <<(pkt:ether(Header))/binary, Payload/binary>>).
-
-type() ->
-    ?_assertEqual(ipv4, pkt_ether:type(?ETH_P_IP)).
-
-type_fail() ->
-    ?_assertException(
-        error,
-        function_clause,
-        pkt_ether:type(31337)
-    ).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/pkt_gre_tests.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/pkt_icmp6_tests.erl Deleted

@@ -1,141 +0,0 @@
--module(pkt_icmp6_tests).
-
--include_lib("pkt/include/pkt.hrl").
--include_lib("eunit/include/eunit.hrl").
-
-codec_test_() ->
-    
-        decode(),
-        encode(),
-        decode_rfc4861(),
-        encode_rfc4861()
-    .
-
-packet() ->
-    <<128,0,255,149,7,79,0,1,169,244,102,82,0,0,0,0,36,187,0,
-      0,0,0,0,0,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,
-      31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,
-      49,50,51,52,53,54,55>>.
-
-decode() ->
-    {Header, Payload} = pkt:icmp6(packet()),
-    ?_assertEqual(
-        {#icmp6{type = 128,code = 0,checksum = 65429,
-                un = <<0,0,0,0>>,
-                pptr = 0,mtu = 0,id = 1871,seq = 1,maxdelay = 0,res = 0,
-                res2 = 0,saddr = {0,0,0,0,0,0,0,0},daddr = {0,0,0,0,0,0,0,0},hop = 0,m = 0,
-                o = 0,lifetime = 0,reach = 0,retrans = 0,r = 0,s = 0,
-                delay = 0},
-          <<169,244,102,82,0,0,0,0,36,187,0,0,0,0,0,0,16,17,18,19,
-            20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,
-            38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55>>},
-        {Header, Payload}
-    ).
-
-encode() ->
-    Packet = packet(),
-    {Header, Payload} = pkt:icmp6(Packet),
-    ?_assertEqual(Packet, <<(pkt:icmp6(Header))/binary, Payload/binary>>).
-
-packet_rfc4861() ->
-	<<133,0,171,189,0,0,0,0,1,1,82,84,0,117,74,88,11,41,5,0,
-	  125,99,38,190,84,120,235,111,241,94,13,46,203,174,76,
-	  165,254,128,131,0,32,1,255,255,0,48,130,1,34,48,13,6,9,
-	  42,134,72,134,247,13,1,1,1,5,0,3,130,1,15,0,48,130,1,10,
-	  2,130,1,1,0,205,129,138,159,96,224,29,12,187,120,227,66,
-	  203,242,10,168,128,62,16,235,94,251,49,192,23,249,129,
-	  177,245,83,75,179,130,109,10,191,128,166,97,100,53,154,
-	  66,90,19,208,177,212,38,114,40,208,16,206,239,160,190,
-	  210,245,35,250,228,26,241,243,60,232,177,130,36,195,254,
-	  217,228,63,104,101,48,92,132,156,175,209,125,248,74,182,
-	  61,123,220,15,92,218,32,122,40,59,145,42,129,139,152,
-	  204,128,205,237,217,53,4,79,192,174,146,203,54,30,221,
-	  167,14,82,114,136,181,164,61,3,45,181,76,83,35,46,113,
-	  124,97,244,126,45,151,41,0,196,227,140,5,88,129,137,93,
-	  244,224,100,15,214,164,12,229,41,191,103,183,145,22,69,
-	  34,142,74,173,91,77,182,51,13,182,248,121,152,3,154,187,
-	  168,65,21,232,233,130,32,146,84,68,211,159,203,91,73,21,
-	  206,79,172,92,237,113,168,100,99,34,196,30,233,73,144,
-	  80,226,111,221,178,178,231,100,115,35,53,226,221,205,
-	  151,3,195,184,124,172,172,93,49,69,109,91,20,207,207,
-	  192,202,170,218,237,222,7,37,176,192,22,251,114,70,33,
-	  123,2,3,1,0,1,0,0,0,0,0,13,2,0,0,0,0,0,0,0,0,89,121,136,
-	  185,0,0,14,1,62,244,73,12,171,237,12,35,0,0,112,190,22,
-	  112,142,166,156,168,104,254,69,199,58,217,219,241,174,
-	  101,234,231,179,49,253,242,212,46,245,105,167,41,234,
-	  191,56,219,97,163,26,170,146,56,237,138,99,67,155,219,
-	  253,59,73,161,63,251,149,207,44,129,23,171,121,204,90,
-	  242,32,27,114,50,56,5,81,177,78,174,65,197,193,181,122,
-	  50,140,27,50,216,166,4,81,124,69,19,19,200,91,237,115,
-	  193,90,133,23,135,237,237,192,106,233,221,134,26,164,
-	  170,236,133,221,90,38,12,195,226,238,21,114,162,6,194,
-	  106,177,193,61,1,205,115,19,242,179,217,117,153,174,79,
-	  49,153,6,9,186,199,75,196,63,251,31,56,57,21,145,119,
-	  228,239,20,114,119,131,112,156,220,251,19,120,146,134,
-	  223,141,145,21,193,222,5,253,180,247,61,80,56,171,81,84,
-	  248,140,151,230,186,11,83,62,159,211,167,56,209,44,115,
-	  33,134,201,203,64,93,67,127,94,94,33,136,223,204,102,
-	  120,98,245,48,196,91,103,154,59,29,79,240,186,233,148,
-	  64,35,210,252,1,251,198,42,58,254,77,161,223,184,247,
-	  115,116,28,1,248,147,151,43,24,121,64,45,104,250,239,
-	  107,236,222,224,53,179,107,69,69,99,169,169,65,154,0,0,
-	  0,0>>.
-
-decode_rfc4861() ->
-    {Header, Payload} = pkt:icmp6(packet_rfc4861()),
-    ?_assertEqual(
-	{{icmp6,133,0,43965,
-			<<0,0,0,0>>,
-			0,0,0,0,0,0,0,
-			{0,0,0,0,0,0,0,0},
-			{0,0,0,0,0,0,0,0},
-			0,0,0,0,0,0,0,0,0},
-	 <<1,1,82,84,0,117,74,88,11,41,5,0,125,99,38,190,84,120,
-	   235,111,241,94,13,46,203,174,76,165,254,128,131,0,32,1,
-	   255,255,0,48,130,1,34,48,13,6,9,42,134,72,134,247,13,1,
-	   1,1,5,0,3,130,1,15,0,48,130,1,10,2,130,1,1,0,205,129,
-	   138,159,96,224,29,12,187,120,227,66,203,242,10,168,128,
-	   62,16,235,94,251,49,192,23,249,129,177,245,83,75,179,
-	   130,109,10,191,128,166,97,100,53,154,66,90,19,208,177,
-	   212,38,114,40,208,16,206,239,160,190,210,245,35,250,
-	   228,26,241,243,60,232,177,130,36,195,254,217,228,63,
-	   104,101,48,92,132,156,175,209,125,248,74,182,61,123,
-	   220,15,92,218,32,122,40,59,145,42,129,139,152,204,128,
-	   205,237,217,53,4,79,192,174,146,203,54,30,221,167,14,
-	   82,114,136,181,164,61,3,45,181,76,83,35,46,113,124,97,
-	   244,126,45,151,41,0,196,227,140,5,88,129,137,93,244,
-	   224,100,15,214,164,12,229,41,191,103,183,145,22,69,34,
-	   142,74,173,91,77,182,51,13,182,248,121,152,3,154,187,
-	   168,65,21,232,233,130,32,146,84,68,211,159,203,91,73,
-	   21,206,79,172,92,237,113,168,100,99,34,196,30,233,73,
-	   144,80,226,111,221,178,178,231,100,115,35,53,226,221,
-	   205,151,3,195,184,124,172,172,93,49,69,109,91,20,207,
-	   207,192,202,170,218,237,222,7,37,176,192,22,251,114,70,
-	   33,123,2,3,1,0,1,0,0,0,0,0,13,2,0,0,0,0,0,0,0,0,89,121,
-	   136,185,0,0,14,1,62,244,73,12,171,237,12,35,0,0,112,
-	   190,22,112,142,166,156,168,104,254,69,199,58,217,219,
-	   241,174,101,234,231,179,49,253,242,212,46,245,105,167,
-	   41,234,191,56,219,97,163,26,170,146,56,237,138,99,67,
-	   155,219,253,59,73,161,63,251,149,207,44,129,23,171,121,
-	   204,90,242,32,27,114,50,56,5,81,177,78,174,65,197,193,
-	   181,122,50,140,27,50,216,166,4,81,124,69,19,19,200,91,
-	   237,115,193,90,133,23,135,237,237,192,106,233,221,134,
-	   26,164,170,236,133,221,90,38,12,195,226,238,21,114,162,
-	   6,194,106,177,193,61,1,205,115,19,242,179,217,117,153,
-	   174,79,49,153,6,9,186,199,75,196,63,251,31,56,57,21,
-	   145,119,228,239,20,114,119,131,112,156,220,251,19,120,
-	   146,134,223,141,145,21,193,222,5,253,180,247,61,80,56,
-	   171,81,84,248,140,151,230,186,11,83,62,159,211,167,56,
-	   209,44,115,33,134,201,203,64,93,67,127,94,94,33,136,
-	   223,204,102,120,98,245,48,196,91,103,154,59,29,79,240,
-	   186,233,148,64,35,210,252,1,251,198,42,58,254,77,161,
-	   223,184,247,115,116,28,1,248,147,151,43,24,121,64,45,
-	   104,250,239,107,236,222,224,53,179,107,69,69,99,169,
-	   169,65,154,0,0,0,0>>},
-       {Header, Payload}
-    ).
-
-encode_rfc4861() ->
-    Packet = packet(),
-    {Header, Payload} = pkt:icmp6(Packet),
-    ?_assertEqual(Packet, <<(pkt:icmp6(Header))/binary, Payload/binary>>).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/pkt_icmp_tests.erl Deleted

@@ -1,35 +0,0 @@
--module(pkt_icmp_tests).
-
--include_lib("pkt/include/pkt.hrl").
--include_lib("eunit/include/eunit.hrl").
-
-codec_test_() ->
-    
-        decode(),
-        encode()
-    .
-
-packet() ->
-    <<0,0,147,214,5,65,0,1,113,241,102,82,0,0,0,0,198,208,9,
-      0,0,0,0,0,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,
-      31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,
-      49,50,51,52,53,54,55>>.
-
-decode() ->
-    {Header, Payload} = pkt:icmp(packet()),
-    ?_assertEqual(
-        {#icmp{type = 0,code = 0,checksum = 37846,id = 1345,
-               sequence = 1,
-               gateway = {127,0,0,1},
-               un = <<0,0,0,0>>,
-               mtu = 0,pointer = 0,ts_orig = 0,ts_recv = 0,ts_tx = 0},
-         <<113,241,102,82,0,0,0,0,198,208,9,0,0,0,0,0,16,17,18,19,
-           20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,
-           38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55>>},
-        {Header, Payload}
-    ).
-
-encode() ->
-    Packet = packet(),
-    {Header, Payload} = pkt:icmp(Packet),
-    ?_assertEqual(Packet, <<(pkt:icmp(Header))/binary, Payload/binary>>).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/pkt_igmp_tests.erl Deleted

@@ -1,44 +0,0 @@
--module(pkt_igmp_tests).
-
--include_lib("pkt/include/pkt.hrl").
--include_lib("eunit/include/eunit.hrl").
-
-codec_test_() ->
-    
-        decode(),
-        encode(),
-        decode_igmpv3_22(),
-        encode_igmpv3_22()
-    .
-
-packet() ->
-    <<17,100,238,155,0,0,0,0>>.
-
-decode() ->
-    {Header, Payload} = pkt:igmp(packet()),
-    ?_assertEqual(
-        {#igmp{type = 17,code = 100,csum = 61083,group = {0,0,0,0}},
-               <<>>},
-        {Header, Payload}
-    ).
-
-encode() ->
-    Packet = packet(),
-    {Header, Payload} = pkt:igmp(Packet),
-    ?_assertEqual(Packet, <<(pkt:igmp(Header))/binary, Payload/binary>>).
-
-
-packet_igmp_22() ->
-    <<16#22, 0, 235,252, 0,0,0,1, 3,0,0,0,239,0,0,1>>.
-
-decode_igmpv3_22() ->
-    {Header, Payload} = pkt:igmp(packet_igmp_22()),
-    ?_assertEqual({
-        #igmp{type = 34, code = 0, csum = 60412, group = #igmp_group{type = 3, addr = {239,0,0,1}} },
-        <<>>
-    }, {Header, Payload}).
-
-encode_igmpv3_22() ->
-    Packet = packet_igmp_22(),
-    {Header, Payload} = pkt:igmp(Packet),
-    ?_assertEqual(Packet, <<(pkt:igmp(Header))/binary, Payload/binary>>).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/pkt_ipproto_tests.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/pkt_ipv4_tests.erl Deleted

@@ -1,161 +0,0 @@
--module(pkt_ipv4_tests).
-
--include_lib("pkt/include/pkt.hrl").
--include_lib("eunit/include/eunit.hrl").
-
-codec_test_() ->
-    
-        decode(),
-        encode(),
-        ipv4_udp_makesum_1(),
-        ipv4_udp_makesum_2(),
-        ipv4_udp_verify_checksum_1(),
-        ipv4_udp_verify_checksum_2(),
-        ipv4_tcp_makesum_1(),
-        ipv4_tcp_makesum_2(),
-        ipv4_tcp_verify_checksum_1(),
-        ipv4_tcp_verify_checksum_2(),
-        ipv4_udp_build_checksum_1(),
-        ipv4_tcp_build_checksum_1()
-    .
-
-packet() ->
-    <<69,0,0,54,2,108,64,0,53,6,172,243,173,192,82,195,192,
-      168,213,54,0,80,143,166,75,154,212,181,116,33,53,92,128,
-      24,0,126,60,199,0,0,1,1,8,10,92,104,96,16,22,69,237,136,
-      137,0>>.
-
-decode() ->
-    {Header, Payload} = pkt:ipv4(packet()),
-    ?_assertEqual(
-        {{ipv4,4,5,0,54,620,1,0,0,53,6,44275,
-         {173,192,82,195},
-         {192,168,213,54},
-         <<>>},
-         <<0,80,143,166,75,154,212,181,116,33,53,92,128,24,0,126,
-           60,199,0,0,1,1,8,10,92,104,96,16,22,69,237,136,137,0>>},
-         {Header, Payload}
-    ).
-
-encode() ->
-    Packet = packet(),
-    {Header, Payload} = pkt:ipv4(Packet),
-    ?_assertEqual(Packet, <<(pkt:ipv4(Header))/binary, Payload/binary>>).
-
-
-ipv4_udp_build_checksum_1() ->
-    Result = pkt:build_checksum(ipv4_udp_packet_1()),
-    ?_assertEqual(
-        {ipv4_udp, 48969,37018},
-        Result
-    ).
-
-ipv4_tcp_build_checksum_1() ->
-    Result = pkt:build_checksum(ipv4_tcp_packet_1()),
-    ?_assertEqual(
-        {ipv4_tcp, 59801,49844},
-        Result
-    ).
-
-ipv4_udp_packet_1() ->
-    #ipv4{v = 4,hl = 5,tos = 0,len = 328,id = 1946,df = 0,
-       mf = 0,off = 0,ttl = 128,p = 17,sum = 48969,
-       saddr = {192,168,178,25},
-       daddr = {255,255,255,255},
-       opt = <<>>},
-     #udp{sport = 68,dport = 67,ulen = 308,sum = 37018},
-     <<1,1,6,0,163,126,46,17,3,0,0,0,192,168,178,25,0,0,0,0,0,0,0,0,0,0,0,0,0,34,100,91,16,42,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
-     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
-     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
-     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
-     0,0,0,0,0,0,0,99,130,83,99,53,1,8,61,7,1,0,34,100,91,16,42,12,10,109,105,99,104,97,101,108,45,80,67,60,8,77,83,70,84,32,
-     53,46,48,55,13,1,15,3,6,44,46,47,31,33,121,249,43,252,255,0,0,0,0,0,0,0,0,0,0>>.
-
-ipv4_udp_packet_2() ->
-    #ipv4{v = 4,hl = 5,tos = 0,len = 78,id = 1949,df = 0,
-       mf = 0,off = 0,ttl = 128,p = 17,sum = 19608,
-       saddr = {192,168,178,25},
-       daddr = {192,168,178,255},
-       opt = <<>>},
-    #udp{sport = 137,dport = 137,ulen = 58,sum = 7692},
-    <<184,131,1,16,0,1,0,0,0,0,0,0,32,70,72,70,65,69,66,69,69,67,65,67,65,67,65,67,65,67,65,67,65,67,65,67,65,67,65,67,65,67,65,65,65,0,0,32,0,1>>.
-
-ipv4_udp_makesum_1() ->
-    Checksum = pkt:makesum(ipv4_udp_packet_1()),
-    ?_assertEqual(
-        16#FFFF,
-        Checksum
-    ).
-
-ipv4_udp_makesum_2() ->
-    Checksum = pkt:makesum(ipv4_udp_packet_2()),
-    ?_assertEqual(
-        16#FFFF,
-        Checksum
-    ).
-
-ipv4_udp_verify_checksum_1() ->
-    Result = pkt:verify_checksum(ipv4_udp_packet_1()),
-    ?_assertEqual(
-        true,
-        Result
-    ).
-
-ipv4_udp_verify_checksum_2() ->
-    Result = pkt:verify_checksum(ipv4_udp_packet_2()),
-    ?_assertEqual(
-        true,
-        Result
-    ).
-
-ipv4_tcp_packet_1() ->
-    #ipv4{v = 4,hl = 5,tos = 0,len = 60,id = 27574,df = 1,
-       mf = 0,off = 0,ttl = 64,p = 6,sum = 59801,
-       saddr = {192,168,178,1},
-       daddr = {192,168,178,25},
-       opt = <<>>},
-     #tcp{sport = 49549,dport = 2869,seqno = 1351181078,
-       ackno = 0,off = 10,cwr = 0,ece = 0,urg = 0,ack = 0,psh = 0,
-       rst = 0,syn = 1,fin = 0,win = 5840,sum = 49844,urp = 0,
-       opt = <<2,4,5,180,4,2,8,10,0,18,8,160,0,0,0,0,1,3,3,2>>},
-       <<>>.
-
-ipv4_tcp_packet_2() ->
-    #ipv4{v = 4,hl = 5,tos = 0,len = 40,id = 2642,df = 1,
-       mf = 0,off = 0,ttl = 128,p = 6,sum = 50311,
-       saddr = {192,168,178,25},
-       daddr = {81,19,104,33},
-       opt = <<>>},
-     #tcp{sport = 49443,dport = 443,seqno = 3493555953,
-      ackno = 2085059857,off = 5,cwr = 0,ece = 0,urg = 0,ack = 1,
-      psh = 0,rst = 0,syn = 0,fin = 0,win = 16652,sum = 18285,
-      urp = 0,opt = <<>>},
-     <<0,0,0,0,0,0>>.
-
-ipv4_tcp_makesum_1() ->
-    Checksum = pkt:makesum(ipv4_tcp_packet_1()),
-    ?_assertEqual(
-        0,
-        Checksum
-    ).
-
-ipv4_tcp_makesum_2() ->
-    Checksum = pkt:makesum(ipv4_tcp_packet_2()),
-    ?_assertEqual(
-        0,
-        Checksum
-    ).
-
-ipv4_tcp_verify_checksum_1() ->
-    Result = pkt:verify_checksum(ipv4_tcp_packet_1()),
-    ?_assertEqual(
-        true,
-        Result
-    ).
-
-ipv4_tcp_verify_checksum_2() ->
-    Result = pkt:verify_checksum(ipv4_tcp_packet_2()),
-    ?_assertEqual(
-        true,
-        Result
-    ).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/pkt_ipv6_hopopts_tests.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/pkt_ipv6_tests.erl Deleted

@@ -1,326 +0,0 @@
--module(pkt_ipv6_tests).
-
--include_lib("pkt/include/pkt.hrl").
--include_lib("eunit/include/eunit.hrl").
-
-codec_test_() ->
-    
-        decode(),
-        encode(),
-        ipv6_tcp_makesum_1(),
-        ipv6_tcp_makesum_2(),
-        ipv6_tcp_makesum_3(),
-        ipv6_tcp_makesum_4(),
-        ipv6_tcp_makesum_5(),
-        ipv6_tcp_calculate_checksum_1(),
-        ipv6_udp_makesum_1(),
-        ipv6_udp_makesum_2(),
-        ipv6_udp_makesum_3(),
-        ipv6_udp_verify_checksum_1(),
-        ipv6_udp_verify_checksum_2(),
-        ipv6_udp_verify_checksum_3(),
-        ipv6_tcp_verify_checksum_1(),
-        ipv6_tcp_verify_checksum_2(),
-        ipv6_tcp_verify_checksum_3(),
-        ipv6_tcp_verify_checksum_4(),
-        ipv6_tcp_verify_checksum_5(),
-        ipv6_tcp_build_checksum_1(),
-        ipv6_udp_build_checksum_1()
-    .
-
-packet() ->
-    <<96,0,0,0,0,64,58,64,32,1,4,112,0,8,16,109,20,26,254,106,
-      31,249,166,149,38,7,248,176,64,11,8,10,0,0,0,0,0,0,16,3,
-      128,0,255,149,7,79,0,1,169,244,102,82,0,0,0,0,36,187,0,
-      0,0,0,0,0,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,
-      31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,
-      49,50,51,52,53,54,55>>.
-
-decode() ->
-    {Header, Payload} = pkt:ipv6(packet()),
-    ?_assertEqual(
-        {{ipv6,6,0,0,64,58,64,
-         {8193,1136,8,4205,5146,65130,8185,42645},
-         {9735,63664,16395,2058,0,0,0,4099}},
-         <<128,0,255,149,7,79,0,1,169,244,102,82,0,0,0,0,36,187,0,
-           0,0,0,0,0,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,
-           31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,
-           49,50,51,52,53,54,55>>},
-        {Header, Payload}
-    ).
-
-encode() ->
-    Packet = packet(),
-    {Header, Payload} = pkt:ipv6(Packet),
-    ?_assertEqual(Packet, <<(pkt:ipv6(Header))/binary, Payload/binary>>).
-
-ipv6_tcp_packet_1() ->
-      #ipv6{v = 6,class = 0,flow = 0,len = 1432,next = 6,
-       hop = 255,
-       saddr = {8194,22395,62248,1,40647,42751,65133,30684},
-       daddr = {8194,22395,62248,1,31176,62569,31957,35820}},
-      #tcp{sport = 38197,dport = 50412,seqno = 3652146503,
-           ackno = 3868632195,off = 5,cwr = 0,ece = 0,urg = 0,ack = 1,
-           psh = 0,rst = 0,syn = 0,fin = 0,win = 1412,sum = 27913,
-           urp = 0,opt = <<>>},
-            <<78,55,71,187,185,209,73,255,
-            142,147,190,182,92,23,117,230,123,216,1,29,226,13,191,126,171,117,21,51,235,222,45,238,67,214,254,26,239,
-            28,118,83,156,119,248,252,3,124,87,27,126,4,121,6,218,187,9,214,253,26,215,32,132,173,167,134,167,
-            128,7,148,17,125,32,211,221,8,124,122,139,154,46,49,250,147,229,91,96,14,54,132,157,161,22,187,46,185,
-            60,13,198,168,70,234,51,42,169,79,169,164,166,79,13,106,47,151,240,178,181,57,34,221,145,80,
-            23,164,217,207,247,251,64,182,219,89,119,130,108,193,54,214,84,199,9,126,7,125,190,45,93,
-            219,213,250,193,223,92,184,211,190,39,168,129,46,218,18,54,0,111,58,204,97,198,74,166,242,
-            125,171,154,88,150,138,189,170,2,160,39,149,97,184,238,183,98,28,215,199,12,90,211,147,165,
-            13,149,173,104,79,40,53,16,83,219,54,159,36,91,240,110,15,223,219,223,94,0,125,184,183,179,
-            238,35,61,179,158,169,156,151,165,251,30,239,60,22,51,82,125,255,80,176,103,243,71,100,79,
-            221,71,68,90,15,249,32,62,181,33,150,77,13,50,101,231,32,139,108,57,21,83,119,246,78,237,
-            160,223,253,72,167,153,70,5,191,111,209,182,206,116,248,92,198,196,9,65,95,27,170,92,207,
-            226,216,86,150,174,85,8,226,94,59,32,226,227,93,197,164,175,213,185,47,190,249,83,49,103,
-            142,194,255,255,51,242,236,49,192,63,226,30,241,142,253,128,125,96,225,135,159,165,52,109,
-            173,242,121,51,189,159,161,124,129,115,0,158,213,197,249,7,230,191,32,158,221,173,233,235,
-            178,109,13,20,15,181,112,16,27,250,74,185,140,131,251,19,53,169,46,170,189,81,44,105,47,239,
-            151,53,227,42,232,171,57,56,127,72,120,158,163,21,253,182,188,188,31,249,183,172,93,254,168,
-            121,207,42,199,226,149,44,120,31,212,121,57,183,187,173,200,130,78,139,204,51,152,37,48,198,
-            31,53,231,21,243,188,8,158,203,156,243,40,237,109,253,162,61,23,224,189,96,251,190,61,158,19,
-            141,89,246,59,34,68,91,244,168,75,46,1,249,96,140,116,238,57,194,146,31,172,167,238,2,157,221,
-            175,16,137,203,94,249,40,123,9,155,11,191,44,110,103,104,127,225,151,39,46,99,157,97,131,219,
-            35,254,224,121,5,113,197,247,234,195,23,146,82,45,251,40,204,171,179,152,6,242,142,41,95,241,
-            59,108,16,118,250,187,195,219,62,99,17,174,121,114,57,43,104,217,194,21,237,118,221,69,123,241,
-            81,207,92,136,115,109,43,212,77,187,122,63,211,222,129,242,14,63,202,231,112,107,254,134,113,17,
-            140,7,8,187,239,183,58,31,167,232,163,202,130,103,204,243,250,172,177,100,58,206,231,250,31,165,
-            119,37,39,19,75,22,194,51,20,192,123,152,38,19,201,130,95,252,199,71,105,237,111,137,180,28,230,
-            107,132,141,107,126,214,92,92,119,146,48,136,35,42,213,41,208,56,215,129,6,112,95,177,236,49,187,
-            79,172,189,215,61,141,237,124,207,113,8,244,182,250,234,70,138,233,18,159,19,246,27,55,238,83,80,
-            6,138,194,152,226,242,40,238,203,111,62,169,179,116,159,20,221,248,44,137,193,120,139,45,200,123,
-            129,143,223,149,172,133,37,182,105,56,102,164,116,173,129,103,57,64,134,20,112,113,127,17,199,123,
-            195,154,71,209,110,143,94,123,156,219,44,101,125,255,119,132,241,241,131,253,253,137,24,71,189,
-            127,215,74,235,147,173,20,207,63,216,103,146,10,136,94,19,107,73,37,242,194,122,61,211,27,107,216,
-            163,109,144,158,239,193,15,119,25,108,120,239,126,148,229,244,26,214,210,106,201,105,60,223,103,
-            35,207,242,116,168,211,66,30,128,97,202,72,97,110,67,164,62,166,179,122,22,1,190,83,64,60,58,202,
-            115,143,217,252,17,219,230,233,39,130,247,164,166,112,121,134,211,47,208,31,202,94,214,56,118,159,
-            189,175,187,69,103,214,249,251,211,125,48,15,229,166,144,83,61,221,147,44,59,33,120,22,159,159,201,
-            135,49,177,167,54,130,182,152,228,211,108,62,47,99,97,183,2,227,210,144,139,63,123,204,179,175,104,
-            239,45,234,97,222,239,232,123,234,232,151,67,32,91,118,224,29,59,249,254,91,196,253,26,227,175,128,
-            46,65,191,208,162,143,115,185,118,79,173,130,253,16,116,124,238,5,216,114,18,6,125,67,200,167,191,
-            79,132,164,129,190,238,86,251,126,169,209,44,23,131,142,90,119,11,234,183,205,76,219,78,65,223,49,
-            200,111,74,114,178,73,223,146,2,253,146,169,53,36,60,79,180,7,126,23,238,158,30,176,224,23,47,121,
-            28,244,13,37,184,112,247,110,24,195,209,73,102,93,89,103,235,231,36,212,89,109,253,38,142,246,88,
-            128,55,64,221,7,160,237,253,128,31,60,123,142,245,168,91,132,231,74,30,55,199,233,60,41,77,75,25,
-            175,207,230,199,105,26,244,81,193,179,74,200,253,183,2,159,222,100,64,63,148,73,188,207,32,95,114,
-            209,23,101,110,103,28,242,97,125,240,94,17,222,241,69,89,95,123,74,224,4,243,131,30,126,133,61,110,
-            16,54,180,153,239,137,0,60,28,55,88,207,58,128,175,189,252,56,69,93,252,94,115,142,248,222,34,29,
-            250,167,76,194,181,129,5,121,221,68,219,205,24,224,94,254,224,181,112,155,184,39,111,60,161,86,124,
-            14,244,148,114,102,245,55,142,173,205,183,146,96,166,86,101,11,239,9,75,153,25,89,233,193,195,165,
-            210,247,110,209,165,226,19,143,123,238,217,159,78,118,0,111,46,225,231,131,22,112,251,75,184,142,
-            151,13,142,133,43,235,140,254,135,64,107,238,249,229,67,160,45,180,133,97,157,215,119,63,23,189,
-            109,218,160,156,69,74,249,57,46,243,12,23,158,231,130,241,94,202,199,228,49,98,174,245,8,27,171,
-            200,15,140,25,36,138,247,164,190,241,54,149,32,93,148,175,135,117,185,206,118,221,100,152,107,142,
-            138,117,86,75,230,118,9,239,48,108,222,99,241,64,173,59,238,240,227,42,43,95,220,209,99,38,1,121,
-            188,81,172,67,61,218,0,190,110,157,249,171,133,122,105,13,34,125,210,188,19,60,102,93,63,30,249,
-            18,212,173,20>>.
-
-ipv6_tcp_makesum_1() ->
-    Checksum = pkt:makesum(ipv6_tcp_packet_1()),
-    ?_assertEqual(
-        0,
-        Checksum
-    ).
-
-ipv6_tcp_packet_2() ->
-         #ipv6{v = 6,class = 0,flow = 0,len = 20,next = 6,hop = 255,
-                saddr = {8194,22395,62248,1,31176,62569,31957,35820},
-                daddr = {8194,22395,62248,1,40647,42751,65133,30684}},
-          #tcp{sport = 50412,dport = 38197,seqno = 3868632195,
-                ackno = 3642886663,off = 5,cwr = 0,ece = 0,urg = 0,ack = 1,
-                psh = 0,rst = 0,syn = 0,fin = 0,win = 53248,sum = 3865,
-                urp = 0,opt = <<>>},
-          <<>>.
-
-ipv6_tcp_makesum_2() ->
-    Checksum = pkt:makesum(ipv6_tcp_packet_2()),
-    ?_assertEqual(
-        0,
-        Checksum
-    ).
-
-ipv6_tcp_packet_3() ->
-        #ipv6{v = 6,class = 0,flow = 0,len = 20,next = 6,hop = 255,
-               saddr = {8194,22395,62248,1,31176,62569,31957,35820},
-               daddr = {8194,22395,62248,1,40647,42751,65133,30684}},
-         #tcp{sport = 50412,dport = 38197,seqno = 3868632195,
-               ackno = 3645792503,off = 5,cwr = 0,ece = 0,urg = 0,ack = 1,
-               psh = 0,rst = 0,syn = 0,fin = 0,win = 53248,sum = 47100,
-               urp = 0,opt = <<>>},
-         <<>>.
-
-ipv6_tcp_makesum_3() ->
-    Checksum = pkt:makesum(ipv6_tcp_packet_3()),
-    ?_assertEqual(
-        0,
-        Checksum
-    ).
-
-ipv6_tcp_packet_4() ->
-       #ipv6{v = 6,class = 0,flow = 0,len = 57,next = 6,hop = 255,
-              saddr = {8194,22395,62248,1,40647,42751,65133,30684},
-              daddr = {8194,22395,62248,1,31176,62569,31957,35820}},
-        #tcp{sport = 21,dport = 50411,seqno = 2610741794,
-             ackno = 3765735301,off = 5,cwr = 0,ece = 0,urg = 0,ack = 1,
-             psh = 1,rst = 0,syn = 0,fin = 0,win = 1412,sum = 40931,
-             urp = 0,opt = <<>>},
-        <<"220 FRITZ!Box3272 FTP server ready.\r\n">>.
-
-ipv6_tcp_makesum_4() ->
-    Checksum = pkt:makesum(ipv6_tcp_packet_4()),
-    ?_assertEqual(
-        0,
-        Checksum
-    ).
-
-ipv6_tcp_packet_5() ->
-       #ipv6{v = 6,class = 0,flow = 0,len = 32,next = 6,hop = 255,
-              saddr = {8194,22395,62248,1,40647,42751,65133,30684},
-              daddr = {8194,22395,62248,1,31176,62569,31957,35820}},
-        #tcp{sport = 21,dport = 50411,seqno = 2610741793,
-              ackno = 3765735301,off = 8,cwr = 0,ece = 0,urg = 0,ack = 1,
-              psh = 0,rst = 0,syn = 1,fin = 0,win = 5648,sum = 48664,
-              urp = 0,
-              opt = <<2,4,5,132,1,1,4,2,1,3,3,2>>},
-        <<>>.
-
-ipv6_tcp_makesum_5() ->
-    Checksum = pkt:makesum(ipv6_tcp_packet_5()),
-    ?_assertEqual(
-        0,
-        Checksum
-    ).
-
-ipv6_tcp_calculate_checksum_1() ->
-    IPv6, TCP, Payload = ipv6_tcp_packet_5(),
-    Checksum = pkt:makesum(IPv6, TCP#tcp{sum=0}, Payload),
-    ?_assertEqual(
-        48664,
-        Checksum
-    ).
-
-ipv6_udp_packet_1() ->
-    #ipv6{v = 6,class = 0,flow = 0,len = 42,next = 17,
-       hop = 255,
-       saddr = {8194,22395,51079,1,40407,23622,58249,17245},
-       daddr = {64768,0,0,0,40647,42751,65133,30684}},
-     #udp{sport = 9903,dport = 53,ulen = 42,sum = 55561},
-     <<238,114,1,0,0,1,0,0,0,0,0,0,5,100,97,105,115,121,6,117,98,117,110,116,117,3,99,111,109,0,0,1,0,1>>.
-
-ipv6_udp_packet_2() ->
-    #ipv6{v = 6,class = 0,flow = 0,len = 44,next = 17,hop = 1,
-       saddr = {65152,0,0,0,21078,43263,65025,7903},
-       daddr = {65282,0,0,0,0,0,1,2}},
-     #udp{sport = 56868,dport = 547,ulen = 44,sum = 37991},
-     <<11,53,24,20,0,8,0,2,255,255,0,1,0,14,0,1,0,1,26,213,31,121,80,86,168,1,30,223,0,6,0,4,0,23,0,31>>.
-
-ipv6_udp_packet_3() ->
-    #ipv6{v = 6,class = 0,flow = 0,len = 287,next = 17,
-       hop = 255,
-       saddr = {64768,0,0,0,40647,42751,65133,30684},
-       daddr = {8194,22395,51079,1,63891,16752,53406,9399}},
-     #udp{sport = 53,dport = 53489,ulen = 287,sum = 34044},
-     <<41,29,129,128,0,1,0,7,0,0,0,0,2,97,117,8,100,111,119,110,108,111,97,100,13,119,105,110,100,111,119,115,117,112,
-     100,97,116,101,3,99,111,109,0,0,1,0,1,192,12,0,5,0,1,0,0,3,169,0,36,10,97,117,100,111,119,110,108,111,97,
-     100,13,119,105,110,100,111,119,115,117,112,100,97,116,101,5,110,115,97,116,99,3,110,101,116,0,192,59,0,5,
-     0,1,0,0,2,10,0,8,5,116,50,101,120,116,192,59,192,107,0,5,0,1,0,0,2,10,0,42,2,97,117,8,100,111,119,110,108,
-     111,97,100,13,119,105,110,100,111,119,115,117,112,100,97,116,101,3,99,111,109,9,101,100,103,101,115,117,105,
-     116,101,192,90,192,127,0,5,0,1,0,0,27,210,0,16,4,97,54,57,53,1,100,6,97,107,97,109,97,105,192,90,192,181,0,
-     5,0,1,0,0,0,87,0,38,4,97,54,57,53,1,100,6,97,107,97,109,97,105,3,110,101,116,1,48,1,49,2,99,110,10,97,107,97,
-     109,97,105,116,101,99,104,192,90,192,209,0,1,0,1,0,0,0,87,0,4,2,21,243,49,192,209,0,1,0,1,0,0,0,87,0,4,23,62,99,34>>.
-
-ipv6_udp_makesum_1() ->
-    Checksum = pkt:makesum(ipv6_udp_packet_1()),
-    ?_assertEqual(
-        16#FFFF,
-        Checksum
-    ).
-
-ipv6_udp_makesum_2() ->
-    Checksum = pkt:makesum(ipv6_udp_packet_2()),
-    ?_assertEqual(
-        16#FFFF,
-        Checksum
-    ).
-
-ipv6_udp_makesum_3() ->
-    Checksum = pkt:makesum(ipv6_udp_packet_3()),
-    ?_assertEqual(
-        16#FFFF,
-        Checksum
-    ).
-
-ipv6_udp_verify_checksum_1() ->
-    Result = pkt:verify_checksum(ipv6_udp_packet_1()),
-    ?_assertEqual(
-        true,
-        Result
-    ).
-
-ipv6_udp_verify_checksum_2() ->
-    Result = pkt:verify_checksum(ipv6_udp_packet_2()),
-    ?_assertEqual(
-        true,
-        Result
-    ).
-
-ipv6_udp_verify_checksum_3() ->
-    Result = pkt:verify_checksum(ipv6_udp_packet_3()),
-    ?_assertEqual(
-        true,
-        Result
-    ).
-
-ipv6_tcp_verify_checksum_1() ->
-    Result = pkt:verify_checksum(ipv6_tcp_packet_1()),
-    ?_assertEqual(
-        true,
-        Result
-    ).
-
-ipv6_tcp_verify_checksum_2() ->
-    Result = pkt:verify_checksum(ipv6_tcp_packet_2()),
-    ?_assertEqual(
-        true,
-        Result
-    ).
-
-ipv6_tcp_verify_checksum_3() ->
-    Result = pkt:verify_checksum(ipv6_tcp_packet_3()),
-    ?_assertEqual(
-        true,
-        Result
-    ).
-
-ipv6_tcp_verify_checksum_4() ->
-    Result = pkt:verify_checksum(ipv6_tcp_packet_4()),
-    ?_assertEqual(
-        true,
-        Result
-    ).
-
-ipv6_tcp_verify_checksum_5() ->
-    Result = pkt:verify_checksum(ipv6_tcp_packet_5()),
-    ?_assertEqual(
-        true,
-        Result
-    ).
-
-
-ipv6_udp_build_checksum_1() ->
-    Result = pkt:build_checksum(ipv6_udp_packet_1()),
-    ?_assertEqual(
-        {ipv6_udp, 55561},
-        Result
-    ).
-
-ipv6_tcp_build_checksum_1() ->
-    Result = pkt:build_checksum(ipv6_tcp_packet_1()),
-    ?_assertEqual(
-        {ipv6_tcp, 27913},
-        Result
-    ).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/pkt_linux_cooked_tests.erl Deleted

@@ -1,32 +0,0 @@
--module(pkt_linux_cooked_tests).
-
--include_lib("pkt/include/pkt.hrl").
--include_lib("eunit/include/eunit.hrl").
-
-codec_test_() ->
-    
-        decode(),
-        encode()
-    .
-
-packet() ->
-    <<0,0,0,1,0,6,0,22,182,181,62,198,0,0,8,0,69,0,0,52,3,46,64,0,54,6,
-      168,8,108,168,151,6,192,168,213,54,0,80,137,182,95,193,153,133,
-      143,44,160,100,128,16,0,126,82,76,0,0,1,1,8,10,222,215,19,81,29,
-      225,199,124>>.
-
-decode() ->
-    {Header, Payload} = pkt:linux_cooked(packet()),
-    ?_assertEqual(
-        {{linux_cooked,0,1,6,<<0,22,182,181,62,198,0,0>>,2048},
-         <<69,0,0,52,3,46,64,0,54,6,168,8,108,168,151,6,192,168,
-           213,54,0,80,137,182,95,193,153,133,143,44,160,100,128,
-           16,0,126,82,76,0,0,1,1,8,10,222,215,19,81,29,225,199,
-           124>>},
-        {Header, Payload}
-    ).
-
-encode() ->
-    Packet = packet(),
-    {Header, Payload} = pkt:linux_cooked(Packet),
-    ?_assertEqual(Packet, <<(pkt:linux_cooked(Header))/binary, Payload/binary>>).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/pkt_llc_tests.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/pkt_lldp_tests.erl Deleted

@@ -1,138 +0,0 @@
--module(pkt_lldp_tests).
-
--include_lib("pkt/include/pkt.hrl").
--include_lib("eunit/include/eunit.hrl").
-
-codec_test_() ->
-    
-        decode(),
-        encode(),
-        pkt_decode(),
-        unknown_tlv_decode(),
-        unknown_tlv_eecode()
-    .
-
-packet() ->
-    <<16#02, 16#07, 16#04, 16#00, 16#01, 16#30, 16#f9, 16#ad,
-      16#a0, 16#04, 16#04, 16#05, 16#31, 16#2f, 16#31, 16#06,
-      16#02, 16#00, 16#78, 16#08, 16#17, 16#53, 16#75, 16#6d,
-      16#6d, 16#69, 16#74, 16#33, 16#30, 16#30, 16#2d, 16#34,
-      16#38, 16#2d, 16#50, 16#6f, 16#72, 16#74, 16#20, 16#31,
-      16#30, 16#30, 16#31, 16#00, 16#0a, 16#0d, 16#53, 16#75,
-      16#6d, 16#6d, 16#69, 16#74, 16#33, 16#30, 16#30, 16#2d,
-      16#34, 16#38, 16#00, 16#0c, 16#4c, 16#53, 16#75, 16#6d,
-      16#6d, 16#69, 16#74, 16#33, 16#30, 16#30, 16#2d, 16#34,
-      16#38, 16#20, 16#2d, 16#20, 16#56, 16#65, 16#72, 16#73,
-      16#69, 16#6f, 16#6e, 16#20, 16#37, 16#2e, 16#34, 16#65,
-      16#2e, 16#31, 16#20, 16#28, 16#42, 16#75, 16#69, 16#6c,
-      16#64, 16#20, 16#35, 16#29, 16#20, 16#62, 16#79, 16#20,
-      16#52, 16#65, 16#6c, 16#65, 16#61, 16#73, 16#65, 16#5f,
-      16#4d, 16#61, 16#73, 16#74, 16#65, 16#72, 16#20, 16#30,
-      16#35, 16#2f, 16#32, 16#37, 16#2f, 16#30, 16#35, 16#20,
-      16#30, 16#34, 16#3a, 16#35, 16#33, 16#3a, 16#31, 16#31,
-      16#00, 16#0e, 16#04, 16#00, 16#14, 16#00, 16#14, 16#10,
-      16#0e, 16#07, 16#06, 16#00, 16#01, 16#30, 16#f9, 16#ad,
-      16#a0, 16#02, 16#00, 16#00, 16#03, 16#e9, 16#00, 16#fe,
-      16#07, 16#00, 16#12, 16#0f, 16#02, 16#07, 16#01, 16#00,
-      16#fe, 16#09, 16#00, 16#12, 16#0f, 16#01, 16#03, 16#6c,
-      16#00, 16#00, 16#10, 16#fe, 16#09, 16#00, 16#12, 16#0f,
-      16#03, 16#01, 16#00, 16#00, 16#00, 16#00, 16#fe, 16#06,
-      16#00, 16#12, 16#0f, 16#04, 16#05, 16#f2, 16#fe, 16#06,
-      16#00, 16#80, 16#c2, 16#01, 16#01, 16#e8, 16#fe, 16#07,
-      16#00, 16#80, 16#c2, 16#02, 16#01, 16#00, 16#00, 16#fe,
-      16#17, 16#00, 16#80, 16#c2, 16#03, 16#01, 16#e8, 16#10,
-      16#76, 16#32, 16#2d, 16#30, 16#34, 16#38, 16#38, 16#2d,
-      16#30, 16#33, 16#2d, 16#30, 16#35, 16#30, 16#35, 16#00,
-      16#fe, 16#05, 16#00, 16#80, 16#c2, 16#04, 16#00, 16#00,
-      16#00>>.
-packet(entire_pkt) ->
-    <<
-        16#01, 16#80, 16#c2, 16#00, 16#00, 16#0e, 16#00, 16#04,
-        16#96, 16#1f, 16#a7, 16#26, 16#88, 16#cc, 16#02, 16#07,
-        16#04, 16#00, 16#04, 16#96, 16#1f, 16#a7, 16#26, 16#04,
-        16#04, 16#05, 16#31, 16#2f, 16#33, 16#06, 16#02, 16#00,
-        16#78, 16#06, 16#02, 16#00, 16#01, 16#06, 16#02, 16#00,
-        16#02, 16#06, 16#02, 16#00, 16#03, 16#00, 16#00, 16#ff,
-        16#ff, 16#ff, 16#ff, 16#ff, 16#ff, 16#ff, 16#ff, 16#ff,
-        16#ff, 16#ff, 16#ff, 16#ff, 16#ff, 16#ff, 16#aa, 16#bb
-    >>;
-packet(unknown_tlv_packet) ->
-    <<
-        16#01, 16#80, 16#c2, 16#00, 16#00, 16#0e, 16#ca, 16#e1,
-        16#f8, 16#79, 16#9b, 16#82, 16#88, 16#cc, 16#02, 16#07,
-        16#04, 16#72, 16#71, 16#fe, 16#9b, 16#8e, 16#4d, 16#04,
-        16#03, 16#02, 16#00, 16#02, 16#06, 16#02, 16#00, 16#78,
-        16#fe, 16#0c, 16#00, 16#26, 16#e1, 16#00, 16#00, 16#00,
-        16#72, 16#71, 16#fe, 16#9b, 16#8e, 16#4d, 16#18, 16#08,
-        16#06, 16#8f, 16#10, 16#aa, 16#74, 16#d7, 16#9a, 16#16,
-        16#e6, 16#01, 16#01, 16#fe, 16#0c, 16#00, 16#26, 16#e1,
-        16#01, 16#00, 16#00, 16#00, 16#00, 16#15, 16#11, 16#34,
-        16#97, 16#00, 16#00
-    >>.
-
-decode() ->
-    ?_assertEqual({{lldp, {chassis_id,mac_address,<<0,1,48,249,173,160>>},
-                           {port_id,interface_name,<<"1/1">>},
-                           {ttl,120},
-                           {port_desc,<<"Summit300-48-Port 1001">>},
-                           {system_name,<<"Summit300-48">>},
-                           {system_desc,<<"Summit300-48 - Version 7.4e.1 (Build 5) by Release_Master 05/27/05 04:53:11">>},
-                           {system_capability,router,bridge,router,bridge},
-                           {management_address,<<7,6,0,1,48,249,173,160,2,0,0,3,233,0>>},
-                           {organizationally_specific,<<0,18,15,2,7,1,0>>},
-                           {organizationally_specific,<<0,18,15,1,3,108,0,0,16>>},
-                           {organizationally_specific,<<0,18,15,3,1,0,0,0,0>>},
-                           {organizationally_specific,<<0,18,15,4,5,242>>},
-                           {organizationally_specific,<<0,128,194,1,1,232>>},
-                           {organizationally_specific,<<0,128,194,2,1,0,0>>},
-                           {organizationally_specific,<<0,128,194,3,1,232,16,118,
-                                                        50,45,48,52,56,56,45,48,51,45,48, 53,48,53,0>>},
-                           {organizationally_specific,<<0,128,194,4,0>>},
-                           end_of_lldpdu}, <<>>},
-                  pkt:lldp(packet())).
-
-encode() ->
-    {Header, _Payload} = pkt:lldp(packet()),
-    ?_assertEqual(pkt:lldp(Header), packet()).
-
-pkt_decode() ->
-    ?_assertEqual(
-        {ok,{{ether,<<1,128,194,0,0,14>>,
-            <<0,4,150,31,167,38>>,
-            35020,0},
-            {lldp,{chassis_id,mac_address,<<0,4,150,31,167,38>>},
-                {port_id,interface_name,<<"1/3">>},
-                {ttl,120},
-                {ttl,1},
-                {ttl,2},
-                {ttl,3},
-                end_of_lldpdu},
-            <<>>}},
-        pkt:codec(packet(entire_pkt))
-    ).
-
-unknown_tlv_decode() ->
-    ?_assertEqual(
-        {ok,{
-            {ether,<<1,128,194,0,0,14>>, <<202,225,248,121,155,130>>,35020,0},
-            {lldp,
-                {chassis_id,mac_address,<<114,113,254,155,142,77>>},
-                {port_id,port_component,<<0,2>>},
-                {ttl,120},
-                {organizationally_specific,<<0,38,225,0,0,0,114,113,254,155,142,77>>},
-                {unknown_lldp_tlv,12,<<6,143,16,170,116,215,154,22>>},
-                {unknown_lldp_tlv,115,<<1>>},
-                {organizationally_specific,<<0,38,225,1,0,0,0,0,21,17,52,151>>},
-                end_of_lldpdu
-            },
-            <<>>
-        }},
-        pkt:codec(packet(unknown_tlv_packet))
-    ).
-
-unknown_tlv_eecode() ->
-    {ok, DecodedTuple} = pkt:codec(packet(unknown_tlv_packet)),
-    ?_assertEqual(
-        packet(unknown_tlv_packet),
-        pkt:codec(DecodedTuple)
-    ).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/pkt_mpls_tests.erl Deleted

@@ -1,67 +0,0 @@
--module(pkt_mpls_tests).
-
--include_lib("pkt/include/pkt.hrl").
--include_lib("eunit/include/eunit.hrl").
-
-codec_test_() ->
-    decode_single_tagging(),
-     decode_double_tagging().
-
-decode_single_tagging() ->
-    Frame = pkt:decapsulate(single()),
-    Expect = {ether,<<194,5,99,77,0,0>>,<<194,3,99,62,0,0>>,34887,0},
-              {mpls,{shim,18,0,true,254}},
-              {ipv4,4,5,0,100,25,0,0,0,254,1,2349,{192,168,10,1},{192,168,40,1},<<>>},
-              {icmp,8,0,28057,5,0,{127,0,0,1},<<0,0,0,0>>,0,0,0,0,0},
-              <<0,0,0,0,0,36,16,136,171,205,171,205,171,205,171,205,171,205,171,205,171,
-                205,171,205,171,205,171,205,171,205,171,205,171,205,171,205,171,205,171,
-                205,171,205,171,205,171,205,171,205,171,205,171,205,171,205,171,205,171,
-                205,171,205,171,205,171,205,171,205,171,205,171,205,171,205>>,
-    ?_assertEqual(Frame, Expect).
-
-decode_double_tagging() ->
-    Frame = pkt:decapsulate(double()),
-    Expect =  {ether,<<0,48,150,230,252,57>>,<<0,48,150,5,40,56>>,34887,0},
-               {mpls,{shim,18,0,false,255},{shim,16,0,true,255}},
-               {ipv4,4,5,0,100,80,0,0,0,255,1,42758,{10,31,0,1},{10,34,0,1},<<>>},
-               {icmp,8,0,48401,3941,4768,{127,0,0,1},<<0,0,0,0>>,0,0,0,0,0},
-               <<0,0,0,0,0,83,158,224,171,205,171,205,171,205,171,205,171,205,171,205,171,
-                 205,171,205,171,205,171,205,171,205,171,205,171,205,171,205,171,205,171,
-                 205,171,205,171,205,171,205,171,205,171,205,171,205,171,205,171,205,171,
-                 205,171,205,171,205,171,205,171,205,171,205,171,205,171,205>>,
-    ?_assertEqual(Frame, Expect).
-
-single() ->
-    <<16#c2, 16#05, 16#63, 16#4d, 16#00, 16#00, 16#c2, 16#03,
-      16#63, 16#3e, 16#00, 16#00, 16#88, 16#47, 16#00, 16#01,
-      16#21, 16#fe, 16#45, 16#00, 16#00, 16#64, 16#00, 16#19,
-      16#00, 16#00, 16#fe, 16#01, 16#09, 16#2d, 16#c0, 16#a8,
-      16#0a, 16#01, 16#c0, 16#a8, 16#28, 16#01, 16#08, 16#00,
-      16#6d, 16#99, 16#00, 16#05, 16#00, 16#00, 16#00, 16#00,
-      16#00, 16#00, 16#00, 16#24, 16#10, 16#88, 16#ab, 16#cd,
-      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
-      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
-      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
-      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
-      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
-      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
-      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
-      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd>>.
-
-double() ->
-    <<16#00, 16#30, 16#96, 16#e6, 16#fc, 16#39, 16#00, 16#30,
-      16#96, 16#05, 16#28, 16#38, 16#88, 16#47, 16#00, 16#01,
-      16#20, 16#ff, 16#00, 16#01, 16#01, 16#ff, 16#45, 16#00,
-      16#00, 16#64, 16#00, 16#50, 16#00, 16#00, 16#ff, 16#01,
-      16#a7, 16#06, 16#0a, 16#1f, 16#00, 16#01, 16#0a, 16#22,
-      16#00, 16#01, 16#08, 16#00, 16#bd, 16#11, 16#0f, 16#65,
-      16#12, 16#a0, 16#00, 16#00, 16#00, 16#00, 16#00, 16#53,
-      16#9e, 16#e0, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
-      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
-      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
-      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
-      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
-      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
-      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
-      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
-      16#ab, 16#cd>>.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/pkt_null_tests.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/pkt_rarp_tests.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/pkt_sctp_tests.erl Deleted

@@ -1,278 +0,0 @@
--module(pkt_sctp_tests).
-
--include_lib("eunit/include/eunit.hrl").
--include_lib("pkt/include/pkt_sctp.hrl").
--include_lib("pcapfile/include/pcapfile.hrl").
-
-sctp_payload(File) ->
-    {ok, #pcap{records = Recs}} = pcapfile:read_file(filename:join("test/sctp_data", File)),
-    %% Skip Ethernet & IPv4
-    #pcap_record{payload = <<_Skip:34/binary-unit:8, Data/binary>>} = hd(Recs),
-    Data.
-
-codec_test_() ->
-    
-        init_chunk(),
-        init_ack_chunk(),
-        cookie_echo_chunk(),
-        cookie_ack_chunk(),
-        data_chunk(),
-        sack_chunk(),
-        heartbeat_chunk(),
-        heartbeat_ack_chunk(),
-        abort_chunk(),
-        shutdown_chunk(),
-        shutdown_ack_chunk(),
-        shutdown_complete_chunk()
-    .
-
-init_chunk() ->
-    SCTP = #sctp{
-        sport = 38001,
-        dport = 2006,
-        vtag = 0,
-        sum = 0,
-        chunks = 
-            #sctp_chunk{
-                type = 1,
-                i = 0,u = 0,b = 0,e = 0,
-                len = 56,
-                payload = #sctp_chunk_init{
-                    itag = 3314912159,a_rwnd = 1500,
-                    outbound_streams = 5,inbound_streams = 65535,tsn = 19012793,
-                    params = 
-                        {address_types,ipv4},
-                        {ipv4,{192,168,2,2}},
-                        {ipv4,{192,168,1,102}},
-                        {ipv4,{127,0,0,1}}
-                    
-                }
-            }
-        
-    },
-    Data = sctp_payload("init.pcap"),
-    ?_assertEqual({SCTP, <<>>}, pkt:sctp(Data)).
-
-init_ack_chunk() ->
-    SCTP = #sctp{
-        sport = 2006,
-        dport = 38001,
-        vtag = 3314912159,
-        sum = 3113214697,
-        chunks = 
-            #sctp_chunk{
-                type = 2,
-                i = 0,u = 0,b = 0,e = 0,
-                len = 60,
-                payload = #sctp_chunk_init_ack{
-                    itag = 346325327,
-                    a_rwnd = 65536,outbound_streams = 10,inbound_streams = 5,
-                    tsn = 1885860370,
-                    params = 
-                        {state_cookie,<<21,235,131,195,114,192>>},
-                        {ipv4,{192,168,2,2}},
-                        {ipv4,{192,168,1,102}},
-                        {ipv4,{127,0,0,1}}
-                    
-                }
-            }
-        
-    },
-    Data = sctp_payload("init_ack.pcap"),
-    ?_assertEqual({SCTP, <<>>}, pkt:sctp(Data)).
-
-cookie_echo_chunk() ->
-    SCTP = #sctp{
-        sport = 38001,
-        dport = 2006,
-        vtag = 346325327,
-        sum = 1432062984,
-        chunks = 
-            #sctp_chunk{
-                type = 10,
-                i = 0,u = 0,b = 0,e = 0,
-                len = 5,
-                payload = #sctp_chunk_cookie_echo{cookie = <<21,235,131,195,114>>}
-            }
-        
-    },
-    Data = sctp_payload("cookie_echo.pcap"),
-    ?_assertEqual({SCTP, <<>>}, pkt:sctp(Data)).
-
-cookie_ack_chunk() ->
-    SCTP = #sctp{
-        sport = 2006,
-        dport = 38001,
-        vtag = 3314912159,
-        sum = 0,
-        chunks = 
-            #sctp_chunk{
-                type = 11,
-                i = 0,u = 0,b = 0,e = 0,
-                len = 0,
-                payload = #sctp_chunk_cookie_ack{}
-            }
-        
-    },
-    Data = sctp_payload("cookie_ack.pcap"),
-    ?_assertEqual({SCTP, <<>>}, pkt:sctp(Data)).
-
-data_chunk() ->
-    SCTP = #sctp{
-        sport = 38001,
-        dport = 2006,
-        vtag = 346325327,
-        sum = 0,
-        chunks = 
-            #sctp_chunk{
-                type = 0,
-                i = 0,u = 0,b = 1,e = 1,
-                len = 18,
-                payload = #sctp_chunk_data{
-                    tsn = 19012793,sid = 0,ssn = 0,
-                    ppi = 0,data = <<"Test 0">>
-                }
-            }
-        
-    },
-    Data = sctp_payload("data.pcap"),
-    ?_assertEqual({SCTP, <<>>}, pkt:sctp(Data)).
-
-sack_chunk() ->
-    SCTP = #sctp{
-        sport = 2006,
-        dport = 38001,
-        vtag = 3314912159,
-        sum = 0,
-        chunks = 
-            #sctp_chunk{
-                type = 3,
-                i = 0,u = 0,b = 0,e = 0,
-                len = 12,
-                payload = #sctp_chunk_sack{
-                    tsn_ack = 19012793,
-                    a_rwnd = 65530,
-                    number_gap_ack_blocks = 0, number_duplicate_tsn = 0,
-                    gap_ack_blocks = , duplicate_tsns = 
-                }
-            }
-        
-    },
-    Data = sctp_payload("sack.pcap"),
-    ?_assertEqual({SCTP, <<>>}, pkt:sctp(Data)).
-
-heartbeat_chunk() ->
-    SCTP = #sctp{
-        sport = 38001,
-        dport = 2006,
-        vtag = 346325327,
-        sum = 3432649193,
-        chunks = 
-            #sctp_chunk{
-                type = 4,
-                i = 0,u = 0,b = 0,e = 0,
-                len = 9,
-                payload = #sctp_chunk_heartbeat{type = 1,info = <<2,0,7,214,192>>}
-            }
-        
-    },
-    Data = sctp_payload("heartbeat.pcap"),
-    ?_assertEqual({SCTP, <<>>}, pkt:sctp(Data)).
-
-heartbeat_ack_chunk() ->
-    SCTP = #sctp{
-        sport = 2006,
-        dport = 38001,
-        vtag = 3314912159,
-        sum = 220783544,
-        chunks = 
-            #sctp_chunk{
-                type = 5,
-                i = 0,u = 0,b = 0,e = 0,
-                len = 9,
-                payload = #sctp_chunk_heartbeat_ack{type = 1, info = <<2,0,7,214,192>>}
-            }
-        
-    },
-    Data = sctp_payload("heartbeat_ack.pcap"),
-    ?_assertEqual({SCTP, <<>>}, pkt:sctp(Data)).
-
-abort_chunk() ->
-    SCTP = #sctp{
-        sport = 38001,
-        dport = 2006,
-        vtag = 346325327,
-        sum = 0,
-        chunks = 
-            #sctp_chunk{
-                type = 6,
-                i = 0,u = 0,b = 0,e = 0,
-                len = 4,
-                payload = #sctp_chunk_abort{
-                    error_causes = 
-                        #sctp_error_cause{
-                            code = 12,
-                            descr = "User Initiated Abort",
-                            opts = {abort_reason,<<>>}
-                        }
-                    
-                }
-            }
-        
-    },
-    Data = sctp_payload("abort.pcap"),
-    ?_assertEqual({SCTP, <<>>}, pkt:sctp(Data)).
-
-shutdown_chunk() ->
-    SCTP = #sctp{
-        sport = 52565,
-        dport = 2006,
-        vtag = 775466434,
-        sum = 0,
-        chunks = 
-            #sctp_chunk{
-                type = 7,
-                i = 0,u = 0,b = 0,e = 0,
-                len = 4,
-                payload = #sctp_chunk_shutdown{tsn_ack = 3349662519}
-            }
-        
-    },
-    Data = sctp_payload("shutdown.pcap"),
-    ?_assertEqual({SCTP, <<>>}, pkt:sctp(Data)).
-
-shutdown_ack_chunk() ->
-    SCTP = #sctp{
-        sport = 2006,
-        dport = 52565,
-        vtag = 15739429,
-        sum = 0,
-        chunks = 
-            #sctp_chunk{
-                type = 8,
-                i = 0,u = 0,b = 0,e = 0,
-                len = 0,
-                payload = #sctp_chunk_shutdown_ack{}
-            }
-        
-    },
-    Data = sctp_payload("shutdown_ack.pcap"),
-    ?_assertEqual({SCTP, <<>>}, pkt:sctp(Data)).
-
-shutdown_complete_chunk() ->
-    SCTP = #sctp{
-        sport = 52565,
-        dport = 2006,
-        vtag = 775466434,
-        sum = 0,
-        chunks = 
-            #sctp_chunk{
-                type = 14,
-                i = 0,u = 0,b = 0,e = 0,
-                len = 0,
-                payload = #sctp_chunk_shutdown_complete{}
-            }
-        
-    },
-    Data = sctp_payload("shutdown_complete.pcap"),
-    ?_assertEqual({SCTP, <<>>}, pkt:sctp(Data)).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/pkt_tcp_tests.erl Deleted

@@ -1,29 +0,0 @@
--module(pkt_tcp_tests).
-
--include_lib("pkt/include/pkt.hrl").
--include_lib("eunit/include/eunit.hrl").
-
-codec_test_() ->
-    
-        tcp_decode_encode(),
-        tcp_checksum4()
-    .
-
-tcp_decode_encode() ->
-    Packet = <<0,80,217,184,222,13,22,43,241,75,9,12,176,18,17,4,140,86,
-        0,0,2,4,5,172,1, 3,3,0,1,1,8,10,190,15,172,236,0,64,161,73,4,2,0,0>>,
-    {TCP, <<>>} = pkt:tcp(Packet),
-    TCP1 = TCP#tcp{opt = pkt_tcp:options(pkt_tcp:options(TCP#tcp.opt))},
-    ?_assertEqual(Packet, pkt:tcp(TCP1)).
-
-tcp_checksum4() ->
-    Packet = <<69,0,0,54,2,108,64,0,53,6,172,243,173,192,82,195,192,
-             168,213,54,0,80,143,166,75,154,212,181,116,33,53,92,128,
-             24,0,126,60,199,0,0,1,1,8,10,92,104,96,16,22,69,237,136,
-             137,0>>,
-
-    {IPv4, Payload0} = pkt:ipv4(Packet),
-    {#tcp{sum = Sum} = TCP, Payload} = pkt:tcp(Payload0),
-
-    Sum = pkt:makesum(IPv4, TCP#tcp{sum = 0}, Payload),
-    ?_assertEqual(0, pkt:makesum(IPv4, TCP, Payload)).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/pkt_tests.erl Deleted

@@ -1,187 +0,0 @@
--module(pkt_tests).
-
--include_lib("pkt/include/pkt.hrl").
--include_lib("eunit/include/eunit.hrl").
-
-pkt_test_() ->
-    
-        decapsulate_1(),
-        decapsulate_2(),
-        decapsulate_2_failure(),
-        decapsulate_2_unsupported(),
-        decode_1(),
-        decode_2(),
-        decode_2_failure(),
-        decode_2_unsupported(),
-        encode_1(),
-        encode_2(),
-        makesum_1(),
-        makesum_2(),
-        makesum_4(),
-        makesum_8(),
-        makesum_16(),
-        makesum_32(),
-        makesum_64()
-    .
-
-packet(ether) ->
-    <<224,105,149,59,163,24,0,22,182,181,62,198,8,0,69,0,0,54,2,108,64,
-      0,53,6,172,243,173,192,82,195,192,168,213,54,0,80,143,166,75,154,
-      212,181,116,33,53,92,128,24,0,126,60,199,0,0,1,1,8,10,92,104,96,
-      16,22,69,237,136,137,0>>;
-packet(tcp) ->
-    <<0,80,217,184,222,13,22,43,241,75,9,12,176,18,17,4,140,86,
-      0,0,2,4,5,172,1, 3,3,0,1,1,8,10,190,15,172,236,0,64,161,73,4,2,0,0>>;
-packet(ipv4_hdr) ->
-    <<69,0,0,54,2,108,64,0,53,6,172,243,173,192,82,195,192,
-        168,213,54>>.
-
-decapsulate_1() ->
-    ?_assertEqual(
-        {ether,<<224,105,149,59,163,24>>,
-                <<0,22,182,181,62,198>>,
-                2048,0},
-         {ipv4,4,5,0,54,620,1,0,0,53,6,44275,
-               {173,192,82,195},
-               {192,168,213,54},
-               <<>>},
-         {tcp,80,36774,1268438197,1948333404,8,0,0,0,0,1,1,0,0,0,126,
-              15559,0,
-              <<1,1,8,10,92,104,96,16,22,69,237,136>>},
-         <<137,0>>,
-        pkt:decapsulate(packet(ether))
-    ).
-
-decapsulate_2() ->
-    ?_assertEqual(
-        {tcp,80,55736,3725399595,4048226572,11,0,0,0,0,1,0,0,1,0,
-              4356,35926,0,
-              <<2,4,5,172,1,3,3,0,1,1,8,10,190,15,172,236,0,64,161,73,
-                4,2,0,0>>},
-              <<>>,
-        pkt:decapsulate(tcp, packet(tcp))
-    ).
-
-decapsulate_2_failure() ->
-    ?_assertException(
-        error,
-        function_clause,
-        pkt:decapsulate(ipv6, packet(tcp))
-    ).
-
-decapsulate_2_unsupported() ->
-    ?_assertException(
-        error,
-        function_clause,
-        pkt:decapsulate(ether, packet(tcp))
-    ).
-
-decode_1() ->
-    ?_assertEqual(
-        {ok,{{ether,<<224,105,149,59,163,24>>,
-                     <<0,22,182,181,62,198>>,
-                       2048,0},
-              {ipv4,4,5,0,54,620,1,0,0,53,6,44275,
-                    {173,192,82,195},
-                    {192,168,213,54},
-                    <<>>},
-              {tcp,80,36774,1268438197,1948333404,8,0,0,0,0,1,1,0,0,0,126,
-                   15559,0,
-                   <<1,1,8,10,92,104,96,16,22,69,237,136>>},
-              <<137,0>>}},
-        pkt:decode(packet(ether))
-    ).
-
-decode_2() ->
-    ?_assertEqual(
-        {ok,{{tcp,80,55736,3725399595,4048226572,11,0,0,0,0,1,0,0,1,0,
-                   4356,35926,0,
-                   <<2,4,5,172,1,3,3,0,1,1,8,10,190,15,172,236,0,64,161,73,
-                     4,2,0,0>>},
-               <<>>}},
-        pkt:decode(tcp, packet(tcp))
-    ).
-
-decode_2_failure() ->
-    ?_assertEqual(
-        {error,,
-               {ipv6,<<0,80,217,184,222,13,22,43,241,75,9,12,176,18,17,
-                       4,140,86,0,0,2,4,5,172,1,3,3,0,1,1,8,10,190,15,
-                       172,236,0,64,161,73,4,2,0,0>>}},
-        pkt:decode(ipv6, packet(tcp))
-    ).
-
-decode_2_unsupported() ->
-    ?_assertEqual(
-        {error,{ether,<<0,80,217,184,222,13>>,
-                       <<22,43,241,75,9,12>>,
-                       45074,0},
-                {unsupported,<<17,4,140,86,0,0,2,4,5,172,1,3,3,0,1,1,8,
-                               10,190,15,172,236,0,64,161,73,4,2,0,0>>}},
-        pkt:decode(ether, packet(tcp))
-    ).
-
-encode_1() -> 
-    ?_assertEqual(
-        packet(ether),
-        pkt:encode(pkt:decapsulate(packet(ether)))
-    ),
-    ?_assertNotEqual(
-        packet(ether),
-        pkt:encode({pkt:decapsulate(packet(ether)), <<0,2>>})
-    )
-.
-
-encode_2() -> 
-    ?_assertEqual(
-        packet(ipv4_hdr),
-        pkt:encode(pkt:ipv4(packet(ipv4_hdr)))
-    ),
-    ?_assertNotEqual(
-        packet(ipv4_hdr),
-        pkt:encode({pkt:ipv4(packet(ipv4_hdr)), <<0,1>>})
-    )
-.
-
-makesum_1() ->
-    ?_assertEqual(
-        3839,
-        pkt:makesum(<<16#F1>>)
-    ).
-
-makesum_2() ->
-    ?_assertEqual(
-        3597,
-        pkt:makesum(<<16#F1, 16#F2>>)
-    ).
-
-makesum_4() ->
-    ?_assertEqual(
-        6680,
-        pkt:makesum(<<16#F1, 16#F2, 16#F3, 16#F4>>)
-    ).
-
-makesum_8() ->
-    ?_assertEqual(
-        11304,
-        pkt:makesum(<<16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8>>)
-    ).
-
-makesum_16() ->
-    ?_assertEqual(
-        22608,
-        pkt:makesum(<<16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8, 16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8>>)
-    ).
-
-
-makesum_32() ->
-    ?_assertEqual(
-        45216,
-        pkt:makesum(<<16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8, 16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8, 16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8, 16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8 >>)
-    ).
-
-makesum_64() ->
-    ?_assertEqual(
-        24897,
-        pkt:makesum(<<16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8, 16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8, 16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8, 16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8, 16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8, 16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8, 16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8, 16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8>>)
-    ).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/pkt_udp_tests.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/pkt_vrrp_tests.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/sctp_data Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/sctp_data/abort.pcap Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/sctp_data/cookie_ack.pcap Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/sctp_data/cookie_echo.pcap Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/sctp_data/data.pcap Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/sctp_data/heartbeat.pcap Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/sctp_data/heartbeat_ack.pcap Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/sctp_data/init.pcap Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/sctp_data/init_ack.pcap Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/sctp_data/sack.pcap Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/sctp_data/shutdown.pcap Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/sctp_data/shutdown_ack.pcap Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/pkt/test/sctp_data/shutdown_complete.pcap Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/rebar3_diameter_compiler Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/rebar3_diameter_compiler/.github Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/rebar3_diameter_compiler/.github/workflows Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/rebar3_diameter_compiler/.github/workflows/erlang.yml Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/rebar3_diameter_compiler/LICENSE Deleted

@@ -1,29 +0,0 @@
-Copyright (c) 2015, CarlosEDP <me@carlosedp.com>.
-All rights reserved.
-
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-
-* Redistributions of source code must retain the above copyright
-  notice, this list of conditions and the following disclaimer.
-
-* Redistributions in binary form must reproduce the above copyright
-  notice, this list of conditions and the following disclaimer in the
-  documentation and/or other materials provided with the distribution.
-
-* The names of its contributors may not be used to endorse or promote
-  products derived from this software without specific prior written
-  permission.
-
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
-A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
-OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
-DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
-THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
-(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
-OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/rebar3_diameter_compiler/README.md Deleted

@@ -1,75 +0,0 @@
-rebar3_diameter_compiler
-=====
-
-Compile diameter(http://erlang.org/doc/man/diameter.html) .dia files in rebar3 projects
-
-!Erlang CI(https://github.com/carlosedp/rebar3_diameter_compiler/actions/workflows/erlang.yml/badge.svg)(https://github.com/carlosedp/rebar3_diameter_compiler/actions/workflows/erlang.yml)
- !Hex pm(http://img.shields.io/hexpm/v/rebar3_diameter_compiler.svg?style=flat)(https://hex.pm/packages/rebar3_diameter_compiler)
-
-Build
------
-
-    ./rebar3 compile
-
-Use
----
-
-Add the plugin to your rebar config from Github:
-
-```erlang
-{plugins, 
-    { rebar3_diameter_compiler, {git, "https://github.com/carlosedp/rebar3_diameter_compiler.git", {branch, "master"}}}
-}.
-
-{provider_hooks, 
-    {pre, 
-        {compile, {diameter, compile}},
-        {clean, {diameter, clean}}
-    }
-}.
-```
-
-Or fetch the plugin using Hex.pm:
-
-```erlang
-{plugins, 
-    rebar3_diameter_compiler
-}.
-
-{provider_hooks, 
-    {pre, 
-        {compile, {diameter, compile}},
-        {clean, {diameter, clean}}
-    }
-}.
-```
-
-
-The plugin will be ran on compile and clean commands or call your plugin directly in an existing application:
-
-    $ rebar3 diameter compile
-    ===> Fetching rebar3_diameter_compiler
-    ===> Compiling rebar3_diameter_compiler
-    ===> Compiling diameter...
-
-    $ rebar3 diameter clean
-    ===> Cleaning diameter compiled files...
-
-Test
------
-
-One test compiles a `.dia` file for validation, another compares the generated erl/hrl files with the expected files in `test/expected` directory.
-
-    rebar3 eunit
-
-If the format changes in the future(for example due a compiler change), the expected files can be re-generated with `GOLDEN_RUN=1 rebar3 unit`. This will overwrite the existing expected files.
-
-Publishing new versions
------
-
-This is mostly a reminder on how to bump and publish a new version.
-
-    # Login to Hex
-    rebar3 hex user auth
-    # Cut new version with hex
-    rebar3 hex cut

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/rebar3_diameter_compiler/ebin Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/rebar3_diameter_compiler/ebin/clean_diameter.beam Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/rebar3_diameter_compiler/ebin/compile_diameter.beam Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/rebar3_diameter_compiler/ebin/rebar3_diameter_compiler.app Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/rebar3_diameter_compiler/ebin/rebar3_diameter_compiler.beam Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/rebar3_diameter_compiler/rebar.config Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/rebar3_diameter_compiler/rebar.lock Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/rebar3_diameter_compiler/src Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/rebar3_diameter_compiler/src/clean_diameter.erl Deleted

@@ -1,92 +0,0 @@
-%% -------------------------------------------------------------------
-%%
-%% rebar3 diameter cleaner, in the manner of rebar2.
-%%
-%% -------------------------------------------------------------------
--module(clean_diameter).
-
--behaviour(provider).
-
--export(init/1, do/1, format_error/1).
-
--define(PROVIDER, clean).
--define(DEPS, {default, app_discovery}).
-
-%%%===================================================================
-%%% API
-%%%===================================================================
-
--spec init(rebar_state:t()) -> {ok, rebar_state:t()}.
-init(State) ->
-    Provider =
-        providers:create({name, ?PROVIDER},             %% The 'user friendly' name of the task
-                          {module, ?MODULE},             %% The module implementation of the task
-                          {bare,
-                           true},                  %% The task can be run by the user, always true
-                          {deps, ?DEPS},                 %% The list of dependencies
-                          {example, "rebar diameter clean"},   %% How to use the plugin
-                          {opts, },                    %% list of options understood by the plugin
-                          {short_desc, "Clean compiled diameter files."},
-                          {desc, ""},
-                          {namespace, diameter}),
-    {ok, rebar_state:add_provider(State, Provider)}.
-
--spec do(rebar_state:t()) -> {ok, rebar_state:t()} | {error, string()}.
-do(State) ->
-    rebar_api:info("Cleaning compiled diameter files...", ),
-    Apps =
-        case rebar_state:current_app(State) of
-            undefined ->
-                rebar_state:project_apps(State);
-            AppInfo ->
-                AppInfo
-        end,
-    lists:foreach(fun(App) -> clean(State, App) end, Apps),
-    {ok, State}.
-
--spec format_error(any()) -> iolist().
-format_error(Reason) ->
-    io_lib:format("~p", Reason).
-
-clean(State, _AppFile) ->
-    AppDir = rebar_app_info:dir(_AppFile),
-    EbinDir = rebar_app_info:ebin_dir(_AppFile),
-    DiaOpts = rebar_state:get(State, dia_opts, ),
-    IncludeEbin = proplists:get_value(include, DiaOpts, ),
-    code:add_pathsz(EbinDir | IncludeEbin),
-    GeneratedFiles = dia_generated_files(AppDir, "dia", "src", "include", DiaOpts),
-    ok = rebar_file_utils:delete_each(GeneratedFiles),
-    ok.
-
-%% ===================================================================
-%% Internal functions
-%% ===================================================================
-
-dia_generated_files(AppDir, DiaDir, SrcDir, IncDir, DiaOpts) ->
-    F = fun(File, Acc) ->
-           case catch diameter_dict_util:parse({path, File}, DiaOpts) of
-               {ok, Spec} ->
-                   FileName = dia_filename(File, Spec),
-                   filename:join(AppDir, IncDir, FileName ++ ".hrl") | filelib:wildcard(
-                                                                              filename:join(AppDir,
-                                                                                             SrcDir,
-                                                                                             FileName
-                                                                                             ++ ".*"))
-                   ++ Acc;
-               _ ->
-                   Acc
-           end
-        end,
-    lists:foldl(F,
-                ,
-                filelib:wildcard(
-                    filename:join(AppDir, DiaDir, "*.dia"))).
-
-dia_filename(File, Spec) ->
-    case proplists:get_value(name, Spec) of
-        undefined ->
-            filename:rootname(
-                filename:basename(File));
-        Name ->
-            Name
-    end.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/rebar3_diameter_compiler/src/compile_diameter.erl Deleted

@@ -1,258 +0,0 @@
--module(compile_diameter).
-
--behaviour(provider).
-
--export(init/1, do/1, format_error/1).
-
--define(PROVIDER, compile).
--define(DEPS, {default, app_discovery}).
-
-%% ===================================================================
-%% Public API
-%% ===================================================================
--spec init(rebar_state:t()) -> {ok, rebar_state:t()}.
-init(State) ->
-    Provider =
-        providers:create({name, ?PROVIDER},            % The 'user friendly' name of the task
-                          {module, ?MODULE},            % The module implementation of the task
-                          {namespace, diameter},
-                          {bare,
-                           true},                 % The task can be run by the user, always true
-                          {deps, ?DEPS},                % The list of dependencies
-                          {example, "rebar3 compile diameter"}, % How to use the plugin
-                          {opts, },                   % list of options understood by the plugin
-                          {short_desc, short_desc()},
-                          {desc, desc()}),
-    {ok, rebar_state:add_provider(State, Provider)}.
-
--spec do(rebar_state:t()) -> {ok, rebar_state:t()} | {error, string()}.
-do(State) ->
-    rebar_api:info("Compiling diameter files...", ),
-    Apps =
-        case rebar_state:current_app(State) of
-            undefined ->
-                rebar_state:project_apps(State);
-            AppInfo ->
-                AppInfo
-        end,
-    lists:foreach(fun(App) -> compile(State, App) end, Apps),
-    {ok, State}.
-
-compile(State, AppFile) ->
-    Opts = rebar_app_info:opts(AppFile),
-    AppDir = rebar_app_info:dir(AppFile),
-    DiaDir = filename:join(AppDir, "dia"),
-    SrcDir = filename:join(AppDir, "src"),
-    EbinDir = rebar_app_info:ebin_dir(AppFile),
-    rebar_api:debug("AppDir: ~p~n", AppDir),
-    rebar_api:debug("EbinDir: ~p~n", AppDir),
-
-    DiaOpts = rebar_state:get(State, dia_opts, ),
-    IncludeEbin = proplists:get_value(include, DiaOpts, ),
-
-    code:add_pathsz(EbinDir | filename:join(AppDir, IncludeEbin)),
-
-    DiaFirst =
-        case rebar_state:get(State, dia_first_files, ) of
-             ->
-                ;
-            CompileFirst ->
-                filename:join(DiaDir, filename:basename(F)) || F <- CompileFirst
-        end,
-
-    DiaExtRe = "^(?!\\._).*\\.dia$",
-    Recursive = proplists:get_value(recursive, DiaOpts, true),
-
-    %% Find all possible source files
-    DiaFiles = rebar_utils:find_files(DiaDir, DiaExtRe, Recursive),
-    rebar_api:debug("Diameter files: ~p~n", DiaFiles),
-
-    CompileFun =
-        fun(Source, Target, C) -> compile_dia(C, Source, Target, {AppDir, EbinDir}) end,
-
-    case compile_order(DiaFiles, DiaOpts) of
-        {error, Reason} ->
-            rebar_api:error("DIAMETER error: ~p~n", Reason);
-        {ok, Order} ->
-            rebar_api:debug("Diameter Order: ~p~n", Order),
-            rebar_base_compiler:run(Opts,
-                                    DiaFirst ++ Order,
-                                    DiaDir,
-                                    ".dia",
-                                    SrcDir,
-                                    ".erl",
-                                    CompileFun)
-    end.
-
--spec format_error(any()) -> iolist().
-format_error(Reason) ->
-    io_lib:format("~p", Reason).
-
-%% ===================================================================
-%% Internal functions
-%% ===================================================================
-
-short_desc() ->
-    "Build Diameter (*.dia) sources".
-
-desc() ->
-    short_desc()
-    ++ "\n"
-       "\n"
-       "Valid rebar.config options:~n"
-       "  {dia_opts, } (options from diameter_make:codec/2 supported with~n"
-       "                  exception of inherits)~n"
-       "  {dia_first_files, } (files in sequence to compile first)~n".
-
--spec compile_dia(rebar_config:config(),
-                  file:filename(),
-                  file:filename(),
-                  rebar_config:config()) ->
-                     ok.
-compile_dia(Config, Source, Target, {AppDir, EbinDir}) ->
-    rebar_api:debug("Source diameter file: ~p~n", Source),
-    rebar_api:debug("Target diameter file: ~p~n", Target),
-
-    ok = filelib:ensure_dir(Target),
-    ok =
-        filelib:ensure_dir(
-            filename:join(AppDir, "include", "dummy.hrl")),
-    ok =
-        filelib:ensure_dir(
-            filename:join(EbinDir, "dummy.beam")),
-
-    OutDir = filename:join(AppDir, "src"),
-    IncludeOutDir = filename:join(AppDir, "include"),
-
-    DiaOpts = rebar_opts:get(Config, dia_opts, ),
-    Opts = {outdir, OutDir} ++ DiaOpts,
-    IncludeOpts = {outdir, IncludeOutDir} ++ DiaOpts,
-    case diameter_dict_util:parse({path, Source}, DiaOpts) of
-        {ok, Spec} ->
-            FileName = dia_filename(Source, Spec),
-            _ = diameter_codegen:from_dict(FileName, Spec, Opts, erl),
-            _ = diameter_codegen:from_dict(FileName, Spec, IncludeOpts, hrl),
-            ErlCOpts = {outdir, EbinDir}, return_errors ++ rebar_opts:get(Config, erl_opts, ),
-            TargetName = proplists:get_value(name, Spec, filename:basename(Target, ".erl")),
-            RealTarget = filename:join(filename:dirname(Target), TargetName, ".erl"),
-            case compile:file(RealTarget, ErlCOpts) of
-                {ok, Module} ->
-                    code:purge(Module),
-                    case code:load_abs(EbinDir ++ "/" ++ atom_to_list(Module)) of
-                        {error, LoadError} ->
-                            rebar_api:error("Can't load DIAMTER dictionary ~p, error '~p'",
-                                            FileName, LoadError);
-                        {module, _} ->
-                            ok
-                    end;
-                Other ->
-                    rebar_api:error("Can't compile DIAMTER dictionary ~p, error '~p'",
-                                    FileName, Other),
-                    Other
-            end;
-        {error, Reason} ->
-            rebar_api:error("Compiling ~s failed: ~s~n",
-                            Source, diameter_dict_util:format_error(Reason))
-    end.
-
-dia_filename(File, Spec) ->
-    case proplists:get_value(name, Spec) of
-        undefined ->
-            filename:rootname(
-                filename:basename(File));
-        Name ->
-            Name
-    end.
-
-compile_order(DiaFiles, _) ->
-    Graph = digraph:new(),
-
-    DiaMods =
-        lists:foldl(fun(F, M) ->
-                       Dict =
-                           filename:rootname(
-                               filename:basename(F)),
-                       M#{Dict => F}
-                    end,
-                    #{},
-                    DiaFiles),
-    maps:map(fun(Dict, F) ->
-                try
-                    {ok, Bin} = file:read_file(F),
-                    Inherits0 = binary:split(Bin, <<$\n>>, <<$\r>>, global, trim_all),
-                    Inherits1 =
-                        binary:split(I, <<" ">>, <<$\t>>, global, trim_all) || I <- Inherits0,
-                    Inherits = I || <<"@inherits">>, I | _ <- Inherits1,
-                    rebar_api:debug("Inherits for ~p: ~p~n", Dict, Inherits),
-                    add(Graph, {Dict, Inherits})
-                catch
-                    _:_ ->
-                        ok
-                end
-             end,
-             DiaMods),
-
-    Order =
-        case digraph_utils:topsort(Graph) of
-            false ->
-                case digraph_utils:is_acyclic(Graph) of
-                    true ->
-                        {error, no_sort};
-                    false ->
-                        Cycles =
-                            lists:sort(lists:sort(Comp)
-                                        || Comp <- digraph_utils:strong_components(Graph),
-                                           length(Comp) > 1),
-                        {error, {cycles, Cycles}}
-                end;
-            V ->
-                V1 = lists:foldl(fun(X, Acc) ->
-                                    case maps:get(X, DiaMods, undefined) of
-                                        undefined ->
-                                            Acc;
-                                        File ->
-                                            File | Acc
-                                    end
-                                 end,
-                                 ,
-                                 V),
-                {ok, V1}
-        end,
-    true = digraph:delete(Graph),
-    Order.
-
-%% taken from rebar_digraph:
-%% @private Add a package and its dependencies to an existing digraph
--spec add(digraph:graph(), {PkgName, Dep}) -> ok
-    when PkgName :: binary(),
-         Dep :: {Name, term()} | Name,
-         Name :: atom() | iodata().
-add(Graph, {PkgName, Deps}) ->
-    case digraph:vertex(Graph, PkgName) of
-        false ->
-            V = digraph:add_vertex(Graph, PkgName);
-        {V, } ->
-            V
-    end,
-
-    lists:foreach(fun(Name1) ->
-                     Name =
-                         case Name1 of
-                             N when is_atom(N) ->
-                                 atom_to_list(Name1);
-                             {N, _} when is_list(N) ->
-                                 N;
-                             N when is_list(N) ->
-                                 N;
-                             N when is_binary(N) ->
-                                 binary_to_list(N)
-                         end,
-                     V3 = case digraph:vertex(Graph, Name) of
-                              false ->
-                                  digraph:add_vertex(Graph, Name);
-                              {V2, } ->
-                                  V2
-                          end,
-                     digraph:add_edge(Graph, V, V3)
-                  end,
-                  Deps).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/rebar3_diameter_compiler/src/rebar3_diameter_compiler.app.src Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/rebar3_diameter_compiler/src/rebar3_diameter_compiler.erl Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/rebar3_diameter_compiler/test Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/rebar3_diameter_compiler/test/dia_tests.erl Deleted

@@ -1,152 +0,0 @@
--module(dia_tests).
-
--include_lib("eunit/include/eunit.hrl").
-
-compile_test_() ->
-    {setup, fun() -> setup() end, fun() -> test_compile() end}.
-
-compare_test() ->
-    compare_files().
-
-%% Internal
-
-diameter_basename() ->
-    "diameter_3gpp_base".
-
-setup() ->
-    {ok, Repo} = file:get_cwd(),
-    Branch = setup_git_branch(),
-    Test_target = test_target(Repo),
-    setup_delete(Test_target),
-    setup_create(Test_target, Repo, Branch).
-
-setup_create(Test_target, Repo, Branch) ->
-    ok = setup_create_dia(Test_target),
-    ok = setup_create_src(Test_target),
-    ok = setup_create_rebar_config(Test_target, Repo, Branch).
-
-setup_create_dia(Test_target) ->
-    Diameter_file = diameter_basename() ++ ".dia",
-    File = filename:join(Test_target, "dia", Diameter_file),
-    ok = filelib:ensure_dir(File),
-    {ok, _} =
-        file:copy(
-            filename:join("test", Diameter_file), File),
-    ok.
-
-setup_create_src(Test_target) ->
-    App = "compile",
-    File = filename:join(Test_target, "src", App ++ ".app.src"),
-    ok = filelib:ensure_dir(File),
-    file:write_file(File, setup_create_src_content(App)).
-
-setup_create_src_content(App) ->
-    "
-{application, "
-    ++ App
-    ++ ", 
-\t{description, \""
-    ++ App
-    ++ "\"},
-\t{vsn, \"1.0\"},
-\t{applications, kernel,stdlib}
-}.
-".
-
-setup_create_rebar_config(Test_target, Repo, Branch) ->
-    File = filename:join(Test_target, "rebar.config"),
-    ok = filelib:ensure_dir(File),
-    file:write_file(File, setup_rebar_config_content(Repo, Branch)).
-
-setup_delete(Directory) ->
-    Paths =
-        filelib:wildcard(
-            filename:join(Directory, "*")),
-    {Directories, Files} = lists:partition(fun filelib:is_dir/1, Paths),
-    file:delete(X) || X <- Files,
-    setup_delete(X) || X <- Directories,
-    file:del_dir(Directory).
-
-setup_git_branch() ->
-    string:trim(
-        os:cmd("git branch --show-current")).
-
-setup_rebar_config_content(Repo, Branch) ->
-    "
-{plugins, 
-\t{rebar3_diameter_compiler, {git, \"file://"
-    ++ Repo
-    ++ "\", {branch, \""
-    ++ Branch
-    ++ "\"}}}
-}.
-{provider_hooks, 
-\t{pre, 
-\t	{clean, {diameter, clean}},
-\t	{compile, {diameter, compile}}
-\t}
-}.
-".
-
-test_compile() ->
-    {ok, Repo} = file:get_cwd(),
-    Test_target = test_target(Repo),
-    ok = file:set_cwd(Test_target),
-    %	Result = os:cmd( "DIAGNOSTIC=1 rebar3 eunit" ),
-    %	?debugMsg( Result ),
-    ?assertCmd("rebar3 diameter compile"),
-    true =
-        filelib:is_regular(
-            filename:join("include", diameter_basename() ++ ".hrl")),
-    true =
-        filelib:is_regular(
-            filename:join("src", diameter_basename() ++ ".erl")),
-    file:set_cwd(Repo).
-
-test_target(Repo) ->
-    filename:join(Repo,
-                   "_build",
-                   "test",
-                   "lib",
-                   "rebar3_diameter_compiler",
-                   "test",
-                   "compile").
-
-compare_files() ->
-    Golden = os:getenv("GOLDEN_RUN"),
-    golden_run(Golden, "erl", "src"),
-    golden_run(Golden, "hrl", "include"),
-
-    compare_files("erl", "src"),
-    compare_files("hrl", "include").
-
-golden_run(Val, Ext, Dir) ->
-    case Val of
-        false ->
-            true;
-        _ ->
-            {ok, Repo} = file:get_cwd(),
-            Test_target = test_target(Repo),
-            Src = filename:join(Test_target, Dir, diameter_basename() ++ "." ++ Ext),
-            Dst = filename:join(Repo,
-                                 "test/expected/" ++ Dir,
-                                 diameter_basename() ++ "." ++ Ext ++ "-expected"),
-            ?debugMsg("Copying " ++ Src ++ " file to " ++ Dst),
-            file:copy(Src, Dst)
-    end.
-
-compare_files(Ext, Dir) ->
-    {ok, Repo} = file:get_cwd(),
-    Test_target = test_target(Repo),
-    Generated = filename:join(Test_target, Dir, diameter_basename() ++ "." ++ Ext),
-    ok = filelib:ensure_dir(Generated),
-    {ok, Gen} = file:read_file(Generated),
-    F1 = binary:split(Gen, <<"\n">>, global),
-    Expected =
-        filename:join(Repo,
-                       "test/expected/" ++ Dir,
-                       diameter_basename() ++ "." ++ Ext ++ "-expected"),
-    ok = filelib:ensure_dir(Expected),
-    {ok, Exp} = file:read_file(Expected),
-    F2 = binary:split(Exp, <<"\n">>, global),
-    ?assertEqual(F1, F2).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/rebar3_diameter_compiler/test/diameter_3gpp_base.dia Deleted

@@ -1,73 +0,0 @@
-;;
-;; %CopyrightBegin%
-;;
-;; Copyright Travelping GmbH 2015. All Rights Reserved.
-;;
-;; Licensed under the Apache License, Version 2.0 (the "License");
-;; you may not use this file except in compliance with the License.
-;; You may obtain a copy of the License at
-;;
-;;     http://www.apache.org/licenses/LICENSE-2.0
-;;
-;; Unless required by applicable law or agreed to in writing, software
-;; distributed under the License is distributed on an "AS IS" BASIS,
-;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-;; See the License for the specific language governing permissions and
-;; limitations under the License.
-;;
-;; %CopyrightEnd%
-;;
-
-;;
-;; Edits:
-;;
-;; - Ipv6   -> IPv6
-;; - 3GPP-Charging-Id: OctetString -> Unsigned32
-;; - 3GPP-User-Location-Info-Time: OctetString -> Unsigned32
-;;
-
-@id     0
-@name   diameter_3gpp_base
-@prefix diameter_3gpp
-@vendor 10415 3GPP
-
-;; only attributes required by other applications are defined
-
-@avp_types
-
-   3GPP-IMSI                        1      UTF8String     V
-   3GPP-Charging-Id                 2      Unsigned32     V
-   3GPP-PDP-Type                    3      Enumerated     V
-   3GPP-CG-Address                  4     OctetString     V
-   3GPP-GPRS-Negotiated-QoS-Profile 5      UTF8String     V
-   3GPP-SGSN-Address                6     OctetString     V
-   3GPP-GGSN-Address                7     OctetString     V
-   3GPP-IMSI-MCC-MNC                8      UTF8String     V
-   3GPP-GGSN-MCC-MNC                9      UTF8String     V
-   3GPP-NSAPI                       10    OctetString     V
-   3GPP-Session-Stop-Indicator      11    OctetString     V
-   3GPP-Selection-Mode              12     UTF8String     V
-   3GPP-Charging-Characteristics    13     UTF8String     V
-   3GPP-CG-IPv6-Address             14    OctetString     V
-   3GPP-SGSN-IPv6-Address           15    OctetString     V
-   3GPP-GGSN-IPv6-Address           16    OctetString     V
-   3GPP-IPv6-DNS-Servers            17    OctetString     V
-   3GPP-SGSN-MCC-MNC                18     UTF8String     V
-   3GPP-IMEISV                      20    OctetString     V
-   3GPP-RAT-Type                    21    OctetString     V
-   3GPP-User-Location-Info          22    OctetString     V
-   3GPP-MS-TimeZone                 23    OctetString     V
-   3GPP-CAMEL-Charging-Info         24    OctetString     V
-   3GPP-Packet-Filter               25    OctetString     V
-   3GPP-Negotiated-DSCP             26    OctetString     V
-   3GPP-Allocate-IP-Type            27    OctetString     V
-   TWAN-Identifier                  29    OctetString     V
-   3GPP-User-Location-Info-Time     30     Unsigned32     V
-
-@enum 3GPP-PDP-Type
-
-   IPv4                                               0
-   PPP                                                1
-   IPv6                                               2
-   IPv4v6                                             3
-   Non-IP                                             4

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/rebar3_diameter_compiler/test/expected Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/rebar3_diameter_compiler/test/expected/include Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/rebar3_diameter_compiler/test/expected/include/diameter_3gpp_base.hrl-expected Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/rebar3_diameter_compiler/test/expected/src Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/rebar3_diameter_compiler/test/expected/src/diameter_3gpp_base.erl-expected Deleted

@@ -1,302 +0,0 @@
-%% -------------------------------------------------------------------
-%% This is a generated file.
-%% -------------------------------------------------------------------
-
--module(diameter_3gpp_base).
-
--compile({parse_transform, diameter_exprecs}).
-
--compile(nowarn_unused_function).
-
--dialyzer(no_return).
-
--export_records().
-
--export(name/0,
-         id/0,
-         vendor_id/0,
-         vendor_name/0,
-         decode_avps/3,
-         encode_avps/3,
-         grouped_avp/4,
-         msg_name/2,
-         msg_header/1,
-         rec2msg/1,
-         msg2rec/1,
-         name2rec/1,
-         avp_name/2,
-         avp_arity/1,
-         avp_arity/2,
-         avp_header/1,
-         avp/4,
-         enumerated_avp/3,
-         empty_value/2,
-         dict/0).
-
--include_lib("diameter/include/diameter.hrl").
-
--include_lib("diameter/include/diameter_gen.hrl").
-
-name() -> diameter_3gpp_base.
-
-id() -> 0.
-
-vendor_id() -> 10415.
-
-vendor_name() -> '3GPP'.
-
-msg_name(_, _) -> ''.
-
-msg_header(_) -> erlang:error(badarg).
-
-rec2msg(_) -> erlang:error(badarg).
-
-msg2rec(_) -> erlang:error(badarg).
-
-name2rec(T) -> msg2rec(T).
-
-avp_name(27, 10415) ->
-    {'3GPP-Allocate-IP-Type', 'OctetString'};
-avp_name(24, 10415) ->
-    {'3GPP-CAMEL-Charging-Info', 'OctetString'};
-avp_name(4, 10415) ->
-    {'3GPP-CG-Address', 'OctetString'};
-avp_name(14, 10415) ->
-    {'3GPP-CG-IPv6-Address', 'OctetString'};
-avp_name(13, 10415) ->
-    {'3GPP-Charging-Characteristics', 'UTF8String'};
-avp_name(2, 10415) ->
-    {'3GPP-Charging-Id', 'Unsigned32'};
-avp_name(7, 10415) ->
-    {'3GPP-GGSN-Address', 'OctetString'};
-avp_name(16, 10415) ->
-    {'3GPP-GGSN-IPv6-Address', 'OctetString'};
-avp_name(9, 10415) ->
-    {'3GPP-GGSN-MCC-MNC', 'UTF8String'};
-avp_name(5, 10415) ->
-    {'3GPP-GPRS-Negotiated-QoS-Profile', 'UTF8String'};
-avp_name(20, 10415) -> {'3GPP-IMEISV', 'OctetString'};
-avp_name(1, 10415) -> {'3GPP-IMSI', 'UTF8String'};
-avp_name(8, 10415) ->
-    {'3GPP-IMSI-MCC-MNC', 'UTF8String'};
-avp_name(17, 10415) ->
-    {'3GPP-IPv6-DNS-Servers', 'OctetString'};
-avp_name(23, 10415) ->
-    {'3GPP-MS-TimeZone', 'OctetString'};
-avp_name(10, 10415) -> {'3GPP-NSAPI', 'OctetString'};
-avp_name(26, 10415) ->
-    {'3GPP-Negotiated-DSCP', 'OctetString'};
-avp_name(3, 10415) -> {'3GPP-PDP-Type', 'Enumerated'};
-avp_name(25, 10415) ->
-    {'3GPP-Packet-Filter', 'OctetString'};
-avp_name(21, 10415) -> {'3GPP-RAT-Type', 'OctetString'};
-avp_name(6, 10415) ->
-    {'3GPP-SGSN-Address', 'OctetString'};
-avp_name(15, 10415) ->
-    {'3GPP-SGSN-IPv6-Address', 'OctetString'};
-avp_name(18, 10415) ->
-    {'3GPP-SGSN-MCC-MNC', 'UTF8String'};
-avp_name(12, 10415) ->
-    {'3GPP-Selection-Mode', 'UTF8String'};
-avp_name(11, 10415) ->
-    {'3GPP-Session-Stop-Indicator', 'OctetString'};
-avp_name(22, 10415) ->
-    {'3GPP-User-Location-Info', 'OctetString'};
-avp_name(30, 10415) ->
-    {'3GPP-User-Location-Info-Time', 'Unsigned32'};
-avp_name(29, 10415) ->
-    {'TWAN-Identifier', 'OctetString'};
-avp_name(_, _) -> 'AVP'.
-
-avp_arity(_) -> erlang:error(badarg).
-
-avp_arity(_, _) -> 0.
-
-avp_header('3GPP-Allocate-IP-Type') -> {27, 128, 10415};
-avp_header('3GPP-CAMEL-Charging-Info') ->
-    {24, 128, 10415};
-avp_header('3GPP-CG-Address') -> {4, 128, 10415};
-avp_header('3GPP-CG-IPv6-Address') -> {14, 128, 10415};
-avp_header('3GPP-Charging-Characteristics') ->
-    {13, 128, 10415};
-avp_header('3GPP-Charging-Id') -> {2, 128, 10415};
-avp_header('3GPP-GGSN-Address') -> {7, 128, 10415};
-avp_header('3GPP-GGSN-IPv6-Address') ->
-    {16, 128, 10415};
-avp_header('3GPP-GGSN-MCC-MNC') -> {9, 128, 10415};
-avp_header('3GPP-GPRS-Negotiated-QoS-Profile') ->
-    {5, 128, 10415};
-avp_header('3GPP-IMEISV') -> {20, 128, 10415};
-avp_header('3GPP-IMSI') -> {1, 128, 10415};
-avp_header('3GPP-IMSI-MCC-MNC') -> {8, 128, 10415};
-avp_header('3GPP-IPv6-DNS-Servers') -> {17, 128, 10415};
-avp_header('3GPP-MS-TimeZone') -> {23, 128, 10415};
-avp_header('3GPP-NSAPI') -> {10, 128, 10415};
-avp_header('3GPP-Negotiated-DSCP') -> {26, 128, 10415};
-avp_header('3GPP-PDP-Type') -> {3, 128, 10415};
-avp_header('3GPP-Packet-Filter') -> {25, 128, 10415};
-avp_header('3GPP-RAT-Type') -> {21, 128, 10415};
-avp_header('3GPP-SGSN-Address') -> {6, 128, 10415};
-avp_header('3GPP-SGSN-IPv6-Address') ->
-    {15, 128, 10415};
-avp_header('3GPP-SGSN-MCC-MNC') -> {18, 128, 10415};
-avp_header('3GPP-Selection-Mode') -> {12, 128, 10415};
-avp_header('3GPP-Session-Stop-Indicator') ->
-    {11, 128, 10415};
-avp_header('3GPP-User-Location-Info') ->
-    {22, 128, 10415};
-avp_header('3GPP-User-Location-Info-Time') ->
-    {30, 128, 10415};
-avp_header('TWAN-Identifier') -> {29, 128, 10415};
-avp_header(_) -> erlang:error(badarg).
-
-avp(T, Data, '3GPP-Allocate-IP-Type', Opts) ->
-    diameter_types:'OctetString'(T, Data, Opts);
-avp(T, Data, '3GPP-CAMEL-Charging-Info', Opts) ->
-    diameter_types:'OctetString'(T, Data, Opts);
-avp(T, Data, '3GPP-CG-Address', Opts) ->
-    diameter_types:'OctetString'(T, Data, Opts);
-avp(T, Data, '3GPP-CG-IPv6-Address', Opts) ->
-    diameter_types:'OctetString'(T, Data, Opts);
-avp(T, Data, '3GPP-Charging-Characteristics', Opts) ->
-    diameter_types:'UTF8String'(T, Data, Opts);
-avp(T, Data, '3GPP-Charging-Id', Opts) ->
-    diameter_types:'Unsigned32'(T, Data, Opts);
-avp(T, Data, '3GPP-GGSN-Address', Opts) ->
-    diameter_types:'OctetString'(T, Data, Opts);
-avp(T, Data, '3GPP-GGSN-IPv6-Address', Opts) ->
-    diameter_types:'OctetString'(T, Data, Opts);
-avp(T, Data, '3GPP-GGSN-MCC-MNC', Opts) ->
-    diameter_types:'UTF8String'(T, Data, Opts);
-avp(T, Data, '3GPP-GPRS-Negotiated-QoS-Profile',
-    Opts) ->
-    diameter_types:'UTF8String'(T, Data, Opts);
-avp(T, Data, '3GPP-IMEISV', Opts) ->
-    diameter_types:'OctetString'(T, Data, Opts);
-avp(T, Data, '3GPP-IMSI', Opts) ->
-    diameter_types:'UTF8String'(T, Data, Opts);
-avp(T, Data, '3GPP-IMSI-MCC-MNC', Opts) ->
-    diameter_types:'UTF8String'(T, Data, Opts);
-avp(T, Data, '3GPP-IPv6-DNS-Servers', Opts) ->
-    diameter_types:'OctetString'(T, Data, Opts);
-avp(T, Data, '3GPP-MS-TimeZone', Opts) ->
-    diameter_types:'OctetString'(T, Data, Opts);
-avp(T, Data, '3GPP-NSAPI', Opts) ->
-    diameter_types:'OctetString'(T, Data, Opts);
-avp(T, Data, '3GPP-Negotiated-DSCP', Opts) ->
-    diameter_types:'OctetString'(T, Data, Opts);
-avp(T, Data, '3GPP-PDP-Type', _) ->
-    enumerated_avp(T, '3GPP-PDP-Type', Data);
-avp(T, Data, '3GPP-Packet-Filter', Opts) ->
-    diameter_types:'OctetString'(T, Data, Opts);
-avp(T, Data, '3GPP-RAT-Type', Opts) ->
-    diameter_types:'OctetString'(T, Data, Opts);
-avp(T, Data, '3GPP-SGSN-Address', Opts) ->
-    diameter_types:'OctetString'(T, Data, Opts);
-avp(T, Data, '3GPP-SGSN-IPv6-Address', Opts) ->
-    diameter_types:'OctetString'(T, Data, Opts);
-avp(T, Data, '3GPP-SGSN-MCC-MNC', Opts) ->
-    diameter_types:'UTF8String'(T, Data, Opts);
-avp(T, Data, '3GPP-Selection-Mode', Opts) ->
-    diameter_types:'UTF8String'(T, Data, Opts);
-avp(T, Data, '3GPP-Session-Stop-Indicator', Opts) ->
-    diameter_types:'OctetString'(T, Data, Opts);
-avp(T, Data, '3GPP-User-Location-Info', Opts) ->
-    diameter_types:'OctetString'(T, Data, Opts);
-avp(T, Data, '3GPP-User-Location-Info-Time', Opts) ->
-    diameter_types:'Unsigned32'(T, Data, Opts);
-avp(T, Data, 'TWAN-Identifier', Opts) ->
-    diameter_types:'OctetString'(T, Data, Opts);
-avp(_, _, _, _) -> erlang:error(badarg).
-
-enumerated_avp(decode, '3GPP-PDP-Type',
-               <<0, 0, 0, 0>>) ->
-    0;
-enumerated_avp(encode, '3GPP-PDP-Type', 0) ->
-    <<0, 0, 0, 0>>;
-enumerated_avp(decode, '3GPP-PDP-Type',
-               <<0, 0, 0, 1>>) ->
-    1;
-enumerated_avp(encode, '3GPP-PDP-Type', 1) ->
-    <<0, 0, 0, 1>>;
-enumerated_avp(decode, '3GPP-PDP-Type',
-               <<0, 0, 0, 2>>) ->
-    2;
-enumerated_avp(encode, '3GPP-PDP-Type', 2) ->
-    <<0, 0, 0, 2>>;
-enumerated_avp(decode, '3GPP-PDP-Type',
-               <<0, 0, 0, 3>>) ->
-    3;
-enumerated_avp(encode, '3GPP-PDP-Type', 3) ->
-    <<0, 0, 0, 3>>;
-enumerated_avp(decode, '3GPP-PDP-Type',
-               <<0, 0, 0, 4>>) ->
-    4;
-enumerated_avp(encode, '3GPP-PDP-Type', 4) ->
-    <<0, 0, 0, 4>>;
-enumerated_avp(_, _, _) -> erlang:error(badarg).
-
-empty_value('3GPP-PDP-Type', _) -> <<0, 0, 0, 0>>;
-empty_value(Name, Opts) -> empty(Name, Opts).
-
-dict() ->
-    1,
-     {avp_types,
-      {"3GPP-Allocate-IP-Type", 27, "OctetString", "V"},
-       {"3GPP-CAMEL-Charging-Info", 24, "OctetString", "V"},
-       {"3GPP-CG-Address", 4, "OctetString", "V"},
-       {"3GPP-CG-IPv6-Address", 14, "OctetString", "V"},
-       {"3GPP-Charging-Characteristics",
-        13,
-        "UTF8String",
-        "V"},
-       {"3GPP-Charging-Id", 2, "Unsigned32", "V"},
-       {"3GPP-GGSN-Address", 7, "OctetString", "V"},
-       {"3GPP-GGSN-IPv6-Address", 16, "OctetString", "V"},
-       {"3GPP-GGSN-MCC-MNC", 9, "UTF8String", "V"},
-       {"3GPP-GPRS-Negotiated-QoS-Profile",
-        5,
-        "UTF8String",
-        "V"},
-       {"3GPP-IMEISV", 20, "OctetString", "V"},
-       {"3GPP-IMSI", 1, "UTF8String", "V"},
-       {"3GPP-IMSI-MCC-MNC", 8, "UTF8String", "V"},
-       {"3GPP-IPv6-DNS-Servers", 17, "OctetString", "V"},
-       {"3GPP-MS-TimeZone", 23, "OctetString", "V"},
-       {"3GPP-NSAPI", 10, "OctetString", "V"},
-       {"3GPP-Negotiated-DSCP", 26, "OctetString", "V"},
-       {"3GPP-PDP-Type", 3, "Enumerated", "V"},
-       {"3GPP-Packet-Filter", 25, "OctetString", "V"},
-       {"3GPP-RAT-Type", 21, "OctetString", "V"},
-       {"3GPP-SGSN-Address", 6, "OctetString", "V"},
-       {"3GPP-SGSN-IPv6-Address", 15, "OctetString", "V"},
-       {"3GPP-SGSN-MCC-MNC", 18, "UTF8String", "V"},
-       {"3GPP-Selection-Mode", 12, "UTF8String", "V"},
-       {"3GPP-Session-Stop-Indicator", 11, "OctetString", "V"},
-       {"3GPP-User-Location-Info", 22, "OctetString", "V"},
-       {"3GPP-User-Location-Info-Time", 30, "Unsigned32", "V"},
-       {"TWAN-Identifier", 29, "OctetString", "V"}},
-     {avp_vendor_id, },
-     {codecs, },
-     {command_codes, },
-     {custom_types, },
-     {define, },
-     {enum,
-      {"3GPP-PDP-Type",
-        {"IPv4", 0},
-         {"PPP", 1},
-         {"IPv6", 2},
-         {"IPv4v6", 3},
-         {"Non-IP", 4}}},
-     {grouped, },
-     {id, 0},
-     {import_avps, },
-     {import_enums, },
-     {import_groups, },
-     {inherits, },
-     {messages, },
-     {name, "diameter_3gpp_base"},
-     {prefix, "diameter_3gpp"},
-     {vendor, {10415, "3GPP"}}.
-
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/setup Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/setup/LICENSE Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/setup/Makefile Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/setup/README.md Deleted

@@ -1,125 +0,0 @@
-
-
-# The setup application #
-
-__Authors:__ Ulf Wiger (`ulf@wiger.net`(mailto:ulf@wiger.net)).
-
-Generic setup utility for Erlang-based systems
-
-!Build Status(https://travis-ci.org/uwiger/setup.svg)(https://travis-ci.org/uwiger/setup)
-
-
-## Introduction ##
-
-While Erlang/OTP comes with many wonderful applications, including the
-Mnesia DBMS, there is no standard or convention for installing a
-system. Erlang/OTP provides tools for building a boot script, and rules
-for setting environment variables, etc., and Mnesia offers an API for
-creating and modifying the database schema.
-
-However, with no convention for when these tools and API functions
-are called - and by whom - application developers are left having to
-invent a lot of code and scripts, not to mention meditate over chapters
-of Erlang/OTP documentation in order to figure out how things fit
-together.
-
-This utility offers a framework for initializing and configuring a
-system, with a set of conventions allowing each component to provide
-callbacks for different steps in the installation procedure.
-
-The callbacks are defined through OTP application environment variables,
-which can easily be overriden at install time.
-
-
-## The setup_gen utility ##
-
-The `setup_gen` utility is a simple tool to generate .rel file and
-boot script for an Erlang-based system. It fetches configuration options
-from a .conf file (read using `file:script/2`). As an example of a very
-simple build, see examples/gproc.conf':
-
-```
-
-{apps, kernel,
-	 stdlib,
-	 sasl,
-	 gproc}.
-
-```
-
-This configuration file simply lists the applications to start from the
-boot script. The `setup_gen` script can either be called from within
-Erlang as:
-
-```
-
-Eshell V5.8.1  (abort with ^G)
-1> setup_gen:run({conf,"gproc.conf"},{outdir,"."},{name,"gproc"}).
-Options = {conf,"gproc.conf"},{outdir,"."},{name,"gproc"}
-Paths = 
-add path Res = ok
-app_vsn(kernel) -> "2.14.1"
-app_vsn(stdlib) -> "1.17.1"
-app_vsn(sasl) -> "2.1.9.2"
-app_vsn(gproc) -> "0.01"
-Rel: {release,{"gproc","tmp"},
-              {erts,"5.8.1"},
-              {kernel,"2.14.1"},
-               {stdlib,"1.17.1"},
-               {sasl,"2.1.9.2"},
-               {gproc,"0.01"}}
-entering directory .
-Path = 
-make_script() -> ok
-ok
-
-```
-
-...or as an escript:
-
-```
-
-escript ~/git/setup/ebin/setup_gen.beam gproc gproc.conf .
-
-```
-
-If the option `-install true` is given, the `setup_gen` utility will
-generate an installation boot script, and `install.config` file, which
-can be used to install the system, using a command like:
-
-```
-
-erl -sys install -boot install
-
-```
-
-This boot script will run kernel, stdlib and sasl, then load all other
-applications, and finally run the `setup` application, which will find
-and execute any setup hooks.
-
-If the option `-setup stop_when_done true` is added to the command line,
-the setup application will automatically shut down all running nodes after
-running the setup hooks. Otherwise (default), it will hand over control to
-the shell rather than terminate the Erlang VM.
-
-See `setup_gen:run/1`(http://github.com/uwiger/setup/blob/master/doc/setup_gen.md#run-1) for documentation on all supported options.
-
-
-## Variable expansion ##
-`setup` extends the functionality of `application:get_env/2,3` by also
-supporting variable expansion, as well as a function for searching all
-applications for instances of a given variable. This functionality is described
-in `setup`(http://github.com/uwiger/setup/blob/master/doc/setup.md).
-
-
-## Modules ##
-
-
-<table width="100%" border="0" summary="list of modules">
-<tr><td><a href="http://github.com/uwiger/setup/blob/master/doc/setup.md" class="module">setup</a></td></tr>
-<tr><td><a href="http://github.com/uwiger/setup/blob/master/doc/setup_app.md" class="module">setup_app</a></td></tr>
-<tr><td><a href="http://github.com/uwiger/setup/blob/master/doc/setup_gen.md" class="module">setup_gen</a></td></tr>
-<tr><td><a href="http://github.com/uwiger/setup/blob/master/doc/setup_lib.md" class="module">setup_lib</a></td></tr>
-<tr><td><a href="http://github.com/uwiger/setup/blob/master/doc/setup_srv.md" class="module">setup_srv</a></td></tr>
-<tr><td><a href="http://github.com/uwiger/setup/blob/master/doc/setup_sup.md" class="module">setup_sup</a></td></tr></table>
-

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/setup/hex_metadata.config Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/setup/rebar.config Deleted

@@ -1,34 +0,0 @@
-%% -*- mode: erlang; erlang-indent-level: 4; indent-tabs-mode: nil -*-
-{erl_opts, debug_info}.
-{profiles,
- 
-  {deps, {edown, "0.8.1"}},
-  {edoc_opts, {doclet, edown_doclet},
-               {app_default, "http://www.erlang.org/doc/man"},
-               {top_level_readme,
-                {"./README.md",
-                 "http://github.com/uwiger/setup"}}}
- }.
-{escript_main_app, setup}.
-{escript_name, setup_gen}.
-{escript_shebang, "#!/usr/bin/env escript\n"}.
-{escript_comment, "%%\n"}.
-{provider_hooks,
- 
-  {post, 
-          {compile, escriptize}
-         }
- }.
-
-{post_hooks, {"(linux|darwin|solaris|freebsd|netbsd|openbsd)",
-               escriptize,
-               "cp \"$REBAR_BUILD_DIR/bin/setup_gen\" ./setup_gen"},
-              {"win32",
-               escriptize,
-               "robocopy \"%REBAR_BUILD_DIR%/bin/\" ./ setup_gen* "
-               "/njs /njh /nfl /ndl & exit /b 0"} % silence things
-             }.
-%% This line is to ensure that any erl_first_files setting from
-%% 'above' isn't accidentally inherited, since there seems to be
-%% a strange interaction between SNMP MIB compilation and escriptize.
-{erl_first_files, }.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/setup/rebar.config.script Deleted

@@ -1,35 +0,0 @@
-%% -*- erlang -*-
-%%
-IsRebar3Bare = (nomatch =/= re:run(init:get_plain_arguments(), "rebar3bare")).
-
-CONFIG1 =
-case os:getenv("TGT") of
-    false ->
-        CONFIG;
-     ->
-        CONFIG;
-    Tgt ->
-        io:fwrite("Tgt = ~p~n", Tgt),
-        {_, Opts} = lists:keyfind(edoc_opts, 1, CONFIG),
-        {_, {F,URL}} = lists:keyfind(top_level_readme, 1, Opts),
-        Name = lists:last(string:tokens(URL, "/")),
-        io:fwrite("Name = ~s~n", Name),
-        NewURL = re:replace(URL, "^/+/" ++ Name, Tgt ++ "/" ++ Name,
-                            {return, list}),
-        C1 =
-            lists:keyreplace(
-              edoc_opts, 1,
-              CONFIG,
-              {edoc_opts, lists:keyreplace(top_level_readme, 1, Opts,
-                                           {top_level_readme, {F, NewURL}})}),
-        C1
-end.
-
-%% %% It seems `rebar3 bare compile` (mix) fails if the following subst is made.
-%% case erlang:function_exported(rebar3, main, 1) andalso (not IsRebar3Bare) of
-%%     true ->
-%%         lists:keydelete(post_hooks, 1, CONFIG1)
-%%             ++ {provider_hooks, {post, {compile, escriptize}}};
-%%     _ ->
-%%         CONFIG1
-%% end.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/setup/rebar.lock Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/setup/src Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/setup/src/setup.app.src Deleted

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/setup/src/setup.erl Deleted

@@ -1,1727 +0,0 @@
-%% -*- mode: erlang; indent-tabs-mode: nil; -*-
-%%=============================================================================
-%% Copyright 2014 Ulf Wiger
-%%
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%% http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%%=============================================================================
-
-%% @doc Setup utility for erlang applications
-%%
-%% This API contains:
-%% * Support functions for system install ({@link find_hooks/0},
-%%   {@link run_hooks/0}, {@link lib_dirs/0}).
-%% * Functions for managing and inspecting the system environment
-%%   ({@link home/0}, {@link log_dir/0}, {@link data_dir/0},
-%%    {@link verify_directories/0}, {@link verify_dir/0}).
-%% * Support functions for application environments ({@link get_env/2},
-%%   {@link get_all_env/1}, {@link find_env_vars/1}, {@link expand_value/2}).
-%% * Functions for controlling dynamic load/upgrade of applications
-%%   ({@link find_app/1}, {@link pick_vsn/3}, {@link reload_app/1},
-%%    {@link patch_app/1}).
-%%
-%% == Variable expansion ==
-%%
-%% Setup supports variable substitution in application environments. It provides
-%% some global variables, `"$HOME", "$DATA_DIR", "$LOG_DIR"', corresponding to
-%% the API functions {@link home/0}, {@link data_dir/0} and {@link log_dir},
-%% as well as some application-specific variables, `"$APP", "$PRIV_DIR",
-%% "$LIB_DIR".
-%%
-%% The normal way to use these variables is by embedding them in file names,
-%% e.g. `{my_logs, "$LOG_DIR/$APP"}', but a variable can also be referenced as:
-%% * ``{'$value',Var}'' - The variable's value is used as-is (which means that
-%%   ``{'$value', "$APP"}'' expands to an atom corresponding to the current
-%%   app name.)
-%% * ``{'$string', Var}'' - The value is represented as a string (list). If the
-%%   value isn't a "string type", `io_lib:format("~w",Value)' is used.
-%% * ``{'$binary', Var}'' - Like ``'$string''', but using binary representation.
-%%
-%% Custom variables can be defined by using either:
-%% * *global scope* - The `setup' environment variable `vars', containing a
-%%   list of `{VarName, Definition}' tuples
-%% * *application-local scope* - Defining an application-local environment
-%%   variable ``'$setup_vars''', on the same format as above.
-%%
-%% The `VarName' shall be a string, e.g. `"MYVAR"' (no `$' prefix).
-%% `Definition' can be one of:
-%% * `{value, Val}' - the value of the variable is exactly `Val'
-%% * `{expand, Val}' - `Val' is expanded in its turn
-%% * `{apply, M, F, A}' - Use the return value of `apply(M, F, A)'.
-%%
-%% When using a variable expansion, either insert the variable reference in
-%% a string (or binary), or use one of the following formats:
-%% * ``'{'$value', Var}''' - Use value as-is
-%% * ``'{'$string', Var}''' - Use the string representation of the value
-%% * ``'{'$binary', Var}''' - Use the binary representation of the value.
-%%
-%% Example:
-%% <pre lang="erlang">
-%% 2> application:set_env(setup, vars, {"PLUS", {apply,erlang,'+',1,2}},
-%% 2>                                   {"FOO", {value, {foo,1}}}).
-%% ok
-%% 3> application:set_env(stdlib, '$setup_vars',
-%% 3>                     {"MINUS", {apply,erlang,'-',4,3}},
-%% 3>                      {"BAR", {value, "bar"}}).
-%% ok
-%% 4> application:set_env(setup, v1, "/$BAR/$PLUS/$MINUS/$FOO").
-%% ok
-%% 5> setup:get_env(setup,v1).
-%% {ok,"/$BAR/3/$MINUS/{foo,1}"}
-%% 6> application:set_env(stdlib, v1, "/$BAR/$PLUS/$MINUS/$FOO").
-%% ok
-%% 7> setup:get_env(stdlib,v1).
-%% {ok,"/bar/3/1/{foo,1}"}
-%% </pre>
-%%
-%% In the above example, the first expansion (command no. 5), leaves `$BAR'
-%% and `$MINUS' unexpanded, since they are defined in the `stdlib' application,
-%% and thus not known to `setup'. In command no. 6, however, they <em>are</em>
-%% in context, and are expanded. The variables `$PLUS' and `$FOO' have global
-%% context and are expanded in both cases.
-%%
-%% It is also possible to refer to environment variables in the same
-%% application. These are referenced as `"$env(VarName)"'. The corresponding
-%% values are expanded in turn - take care not to create expansion loops!
-%% The same rules for expansion as above apply.
-%%
-%% Example:
-%% <pre lang="erlang">
-%% 2> application:set_env(setup,foo,"foo").
-%% ok
-%% 3> application:set_env(setup,foo_dir,"$HOME/$env(foo)").
-%% ok
-%% 4> setup:get_env(setup,foo_dir).
-%% {ok,"/Users/uwiger/git/setup/foo"}
-%% </pre>
-%%
-%% == Customizing setup ==
-%% The following environment variables can be used to customize `setup':
-%% * `{home, Dir}' - The topmost directory of the running system. This should
-%%    be a writeable area.
-%% * `{data_dir, Dir}' - A directory where applications are allowed to create
-%%    their own subdirectories and save data. Default is `Home/data.Node'.
-%% * `{log_dir, Dir}' - A directory for logging. Default is `Home/log.Node'.
-%% * `{stop_when_done, true|false}' - When invoking `setup' for an install,
-%%    `setup' normally remains running, allowing for other operations to be
-%% * `{stop_delay, Millisecs}' - If `stop_when_done' is true, and the node
-%%    is going to shut down, setup will first wait for a specified number of
-%%    milliseconds (default: 5000). This can be useful in order to allow
-%%    asynchronous operations to complete before shutting down.
-%%    performed from the shell or otherwise. If `{stop_when_done, true}', the
-%%    node is shut down once `setup' is finished.
-%% * `{abort_on_error, true|false}' - When running install or upgrade hooks,
-%%    `setup' will normally keep going even if some hooks fail. A more strict
-%%    semantics can be had by setting `{abort_on_error, true}', in which case
-%%    `setup' will raise an exception if an error occurs.
-%% * `{mode, atom()}' - Specifies the context for running 'setup'. Default is
-%%   `normal'. The `setup' mode has special significance, since it's the default
-%%    mode for setup hooks, if no other mode is specified and the node has been
-%%    started with the setup-generated `install.boot' script. In theory, one may
-%%    specify any atom value, but it's probably wise to stick to the values
-%%    'normal', 'setup' and 'upgrade' as global contexts, and instead trigger
-%%    other mode hooks by explicitly calling {@link run_hooks/1}.
-%% * `{verify_directories, boolean()}' - At startup, setup will normally ensure that
-%%    the directories used by setup actually exist. This behavior can be disabled through
-%%    the environment variable `{verify_directories, false}'. This can be desirable
-%%    if setup is used mainly e.g. for environment variable expansion, but not for
-%%    disk storage.
-%% * `{run_timeout, Millisecs}' - Set a time limit for how long it may take for
-%%    setup to process the setup hooks. Default is `infinity'. If the timeout
-%%    is exceeded, the application start sequence will be aborted, which will
-%%    cause a (rather inelegant) boot sequence failure.
-%% @end
--module(setup).
-
--export(home/0,
-         log_dir/0,
-         data_dir/0,
-         verify_directories/0,
-         verify_dir/1,
-         mode/0,
-         find_hooks/0, find_hooks/1, find_hooks/2,
-         run_hooks/0, run_hooks/1, run_hooks/2,
-         find_env_vars/1,
-         get_env/2, get_env/3,
-         get_all_env/1,
-         expand_value/2,  % expand_value/3 recommended instead
-         expand_value/3,
-         patch_app/1,
-         find_app/1, find_app/2,
-         pick_vsn/3,
-         reload_app/1, reload_app/2, reload_app/3,
-         keep_release/1,
-         lib_dirs/0, lib_dirs/1).
--export(read_config_script/3,   % (Name, F, Opts)
-         read_config_script/4). % (Name, F, Vars, Opts)
-
--export(ok/1).
-
-
--export(run_setup/0).
-
--export(main/1).  % new escript entry point
-
--include_lib("kernel/include/file.hrl").
-
--ifdef(TEST).
--compile(export_all, nowarn_export_all).
--include_lib("eunit/include/eunit.hrl").
--endif.
-
--define(THROW(E), {'___SETUP_THROW___', E}).
-
--define(if_verbose(Expr),
-        case get(verbose) of
-            true -> Expr;
-            _    -> ok
-        end).
-
-%% @spec home() -> Directory
-%% @doc Returns the configured `home' directory, or a best guess (`$CWD')
-%% @end
-%%
-home() ->
-    home_().
-
-home_(Vis) ->
-    case get_env_v(setup, home, Vis) of
-        undefined ->
-            CWD = cwd(),
-            D = filename:absname(CWD),
-            application:set_env(setup, home, D),
-            D;
-        {ok, D} when is_binary(D) ->
-            binary_to_list(D);
-        {ok, D} when is_list(D) ->
-            D;
-        {error,_} = Error ->
-            Error;
-        Other ->
-            {error, Other}
-    end.
-
-%% @spec log_dir() -> Directory
-%% @doc Returns the configured log dir, or a best guess (`home()/log.Node')
-%% @end
-%%
-log_dir() ->
-    log_dir_().
-
-log_dir_(Vis) ->
-    setup_dir(log_dir, "log." ++ atom_to_list(node()), Vis).
-
-%% @spec data_dir() -> Directory
-%% @doc Returns the configured data dir, or a best guess (`home()/data.Node').
-%%
-%% @end
-%%
-data_dir() ->
-    data_dir_().
-
-data_dir_(Vis) ->
-    setup_dir(data_dir, "data." ++ atom_to_list(node()), Vis).
-
-setup_dir(Key, Default, Vis) ->
-    case get_env_v(setup, Key, Vis) of
-        undefined ->
-            D = filename:absname(filename:join(home(), Default)),
-            application:set_env(setup, Key, D),
-            D;
-        {ok, D} when is_binary(D) ->
-            binary_to_list(D);
-        {ok, D} when is_list(D) ->
-            D;
-        Other ->
-            {error, Other}
-    end.
-
-maybe_verify_directories() ->
-    case get_env(setup, verify_directories, true) of
-        true ->
-            verify_directories();
-        false ->
-            ok
-    end.
-
-%% @spec verify_directories() -> ok
-%% @doc Ensures that essential directories exist and are writable.
-%% Currently, the directories corresponding to {@link home/0},
-%% {@link log_dir/0} and {@link data_dir/0} are verified.
-%% @end
-%%
-verify_directories() ->
-    _ = verify_dir(home()),
-    _ = verify_dir(log_dir()),
-    _ = verify_dir(data_dir()),
-    ok.
-
-%% @spec verify_dir(Dir) -> Dir
-%% @doc Ensures that the directory Dir exists and is writable.
-%% @end
-%%
-verify_dir(Directory) ->
-    ok = filelib:ensure_dir(filename:join(Directory, "dummy")),
-    Directory.
-
-ok({ok, Result}) ->
-    Result;
-ok(Other) ->
-    setup_lib:abort("Expected {ok, Value}~n", Other).
-
-
-%% @spec find_env_vars(Env) -> {AppName, Value}
-%% @doc Searches all loaded apps for instances of the `Env' environment variable.
-%%
-%% The environment variables are expanded according to the rules outlined in
-%% {@section Variable expansion}
-%% @end
-find_env_vars(Env) ->
-    GEnv = global_env(),
-    lists:flatmap(
-      fun({A,_,_}) ->
-              case app_get_env(A, Env) of
-                  {ok, Val} when Val =/= undefined ->
-                      NewEnv = private_env(A, GEnv),
-                      {A, expand_env(NewEnv, Val, A, Env)};
-                  _ ->
-                      
-              end
-      end, application:loaded_applications()).
-
-get_env(A, Key) ->
-    case app_get_env(A, Key) of
-        {ok, Val} ->
-            {ok, expand_value(A, Val)};
-        Other ->
-            Other
-    end.
-
-get_env(A, Key, Default) ->
-    case get_env(A, Key) of
-        {ok, Val} ->
-            Val;
-        _ ->
-            Default
-    end.
-
-get_env_v(A, Key, V) ->
-    try get_env_v_(A, Key, V)
-    catch
-        throw:?THROW(Error) ->
-            Error
-    end.
-
-get_env_v_(A, Key, V) ->
-    case lists:member(Key, V) of
-        false ->
-            case app_get_env(A, Key) of
-                {ok, Val} ->
-                    {ok, expand_value_v(A, Key, Val, V)};
-                Other ->
-                    Other
-            end;
-        true ->
-            throw(?THROW({error, {loop_detected, Key}}))
-    end.
-
--spec get_all_env(atom()) -> {atom(), any()}.
-%% @doc Like `application:get_all_env/1', but with variable expansion.
-%%
-%% The variable expansion is performed according to the rules outlined in
-%% {@section Variable expansion}.
-%% @end
-get_all_env(A) ->
-    Vars = private_env(A, global_env()),
-    {K, expand_env(Vars, V, A, K)} ||
-        {K, V} <- application:get_all_env(A).
-
--spec expand_value(atom(), any()) -> any().
-%% @doc Expand `Value' using global variables and the variables of `App'
-%%
-%% The variable expansion is performed according to the rules outlined in
-%% {@section Variable expansion}. If a loop is detected (a variable ends
-%% up referencing itself), an exception is raised.
-%% Use of {@link expand_value/3} (also providing the initial key name) is
-%% recommended; this function is primarily here for backward compatibility
-%% purposes.
-%% @end
-expand_value(App, Value) ->
-    expand_env(private_env(App, global_env()), Value, App, ).
-
--spec expand_value(atom(), atom(), any()) -> any().
-%% @doc Expand `Value' using global variables and the variables of `App'
-%%
-%% The variable expansion is performed according to the rules outlined in
-%% {@section Variable expansion}. The `Key' name as second argument is used
-%% for loop detection, in which case an exception will be raised..
-%% @end
-expand_value(App, Key, Value) ->
-    try expand_value_v(App, Key, Value, )
-    catch
-        throw:?THROW(Error) ->
-            error(Error)
-    end.
-
-expand_value_v(App, K, Value, V) ->
-    expand_env(private_env(App), Value, App, K|V).
-
-global_env() ->
-    Acc = {K, fun(V1) -> env_value(K, V1) end} ||
-              K <- "DATA_DIR", "LOG_DIR", "HOME",
-    custom_global_env(Acc).
-
-custom_global_env(Acc) ->
-    lists:foldl(fun(E, Acc1) ->
-                        custom_env1(E, Acc1, setup)
-                end, Acc,
-                {K,V} || {K,V} <- app_get_env(setup, vars, ),
-                          is_list(K)).
-
-private_env(A) ->
-    private_env(A, global_env()).
-
-private_env(A, GEnv) ->
-    Acc = {K, fun(Vis1) -> env_value(K, A, Vis1) end} ||
-              K <- "APP", "PRIV_DIR", "LIB_DIR",
-    custom_private_env(A, Acc ++ GEnv).
-
-custom_private_env(A, Acc) ->
-    lists:foldl(fun(E, Acc1) ->
-                        custom_env1(E, Acc1, A)
-                end, Acc,
-                {K, V} ||
-                    {K,V} <- app_get_env(A, '$setup_vars', ),
-                    is_list(K)).
-
-%% Wrapped for tracing purposes
-app_get_env(A, K) ->
-    application:get_env(A, K).
-
-%% Wrapped for tracing purposes
-app_get_env(A, K, Default) ->
-    %% Apparently, some still use setup on R15B ...
-    case application:get_env(A, K) of
-        {ok, Val} -> Val;
-        _ ->
-            Default
-    end.
-
-%% Wrapped for tracing purposes
-app_get_key(A, K) ->
-    application:get_key(A, K).
-
-custom_env1({K, V}, Acc, A) ->
-    {K, fun(Vis1) -> custom_env_value(K, V, Acc, A, Vis1) end} | Acc.
-
-expand_env(_, {T,"$env(" ++ S} = X, A, Vis)
-  when T=='$value'; T=='$string'; T=='$binary' ->
-    try Res = case get_env_name_l(S) of
-                  false -> undefined;
-                  {Name,} ->
-                      get_env_v_(A, Name, Vis)
-              end,
-         case {Res, T} of
-             {undefined, '$value'} -> undefined;
-             {undefined, '$string'} -> "";
-             {undefined, '$binary'} -> <<>>;
-             {{ok,V}   , '$value'} -> V;
-             {{ok,V}   , '$string'} -> binary_to_list(stringify(V));
-             {{ok,V}   , '$binary'} -> stringify(V)
-         end
-    catch
-        error:_ -> X
-    end;
-expand_env(Vs, {T,"$" ++ S}, _, Vis)
-  when T=='$value'; T=='$string'; T=='$binary' ->
-    case {lists:keyfind(S, 1, Vs), T} of
-        {false, '$value'}  -> undefined;
-        {false, '$string'} -> "";
-        {false, '$binary'} -> <<>>;
-        {{_,V}, '$value'}  -> V(Vis);
-        {{_,V}, '$string'} -> binary_to_list(stringify(V(Vis)));
-        {{_,V}, '$binary'} -> stringify(V(Vis))
-    end;
-expand_env(Vs, T, A, V) when is_tuple(T) ->
-    list_to_tuple(expand_env(Vs, X, A, V) || X <- tuple_to_list(T));
-expand_env(Vs, L, A, V) when is_list(L) ->
-    case setup_lib:is_string(L) of
-        true ->
-            do_expand_env(L, Vs, A, list, V);
-        false ->
-            %% expand_env(Vs, X, A) || X <- L
-            expand_env_l(Vs, L, A, V)
-    end;
-expand_env(Vs, B, A, V) when is_binary(B) ->
-    do_expand_env(B, Vs, A, binary, V);
-expand_env(_, X, _, _) ->
-    X.
-
--spec expand_env_l(list(), maybe_improper_list(), any(), any()) ->
-                          maybe_improper_list().
-expand_env_l(_Vs, , _A, _V) ->
-    ;
-expand_env_l(Vs, H|T, A, V) when is_list(T) ->
-    expand_env(Vs, H, A, V) | expand_env_l(Vs, T, A, V);
-expand_env_l(Vs, H|T, A, V) ->
-    expand_env(Vs, H, A, V) | expand_env(Vs, T, A, V).
-
-
-%% do_expand_env(X, Vs, Type) ->
-%%     lists:foldl(fun({K, Val}, Xx) ->
-%%                         re:replace(Xx, $\\, $$ | K,
-%%                                    stringify(Val()), {return,Type})
-%%                 end, X, Vs).
-
-do_expand_env(X, Vs, A, binary, V) ->
-    do_expand_env_b(iolist_to_binary(X), Vs, A, V);
-do_expand_env(X, Vs, A, list, V) ->
-    binary_to_list(do_expand_env_b(iolist_to_binary(X), Vs, A, V)).
-
-do_expand_env_b(<<"$env(", T/binary>>, Vs, A, Vis) ->
-    case get_env_name_b(T) of
-        {K, T1} ->
-            case get_env_v_(A, K, Vis) of
-                {ok, V} ->
-                    Res = expand_env(Vs, V, A, Vis),
-                    <<(stringify(Res))/binary,
-                      (do_expand_env_b(T1, Vs, A, Vis))/binary>>;
-                undefined ->
-                    <<"$env(", (do_expand_env_b(T, Vs, A, Vis))/binary>>
-            end;
-        false ->
-            do_expand_env_b(T, Vs, A, Vis)
-    end;
-do_expand_env_b(<<"$", T/binary>>, Vs, A, Vis) ->
-    case match_var_b(Vs, T, Vis) of
-        {Res, T1} ->
-            <<Res/binary, (do_expand_env_b(T1, Vs, A, Vis))/binary>>;
-        false ->
-            <<"$", (do_expand_env_b(T, Vs, A, Vis))/binary>>
-    end;
-do_expand_env_b(<<H, T/binary>>, Vs, A, Vis) ->
-    <<H, (do_expand_env_b(T, Vs, A, Vis))/binary>>;
-do_expand_env_b(<<>>, _, _, _) ->
-    <<>>.
-
-get_env_name_b(B) ->
-    get_env_name_b(B, <<>>).
-
-get_env_name_b(<<")", T/binary>>, Acc) ->
-    try {binary_to_existing_atom(Acc, latin1), T}
-    catch
-        error:_ -> false
-    end;
-get_env_name_b(<<H, T/binary>>, Acc) ->
-    get_env_name_b(T, <<Acc/binary, H>>);
-get_env_name_b(<<>>, _) ->
-    false.
-
-get_env_name_l(L) ->
-    get_env_name_l(L, ).
-
-get_env_name_l(")" ++ T, Acc) ->
-    try {list_to_existing_atom(lists:reverse(Acc)), T}
-    catch
-        error:_ -> false
-    end;
-get_env_name_l(H|T, Acc) ->
-    get_env_name_l(T, H|Acc);
-get_env_name_l(, _) ->
-    false.
-
-match_var_b({K,V}|T, B, Vis) ->
-    case re:split(B, "^" ++ K, {return, binary}) of
-        _ ->
-            match_var_b(T, B, Vis);
-        <<>>, Rest ->
-            {stringify(V(Vis)), Rest}
-    end;
-match_var_b(, _, _) ->
-    false.
-
-env_value("LOG_DIR" , Vis) -> log_dir_(Vis);
-env_value("DATA_DIR", Vis) -> data_dir_(Vis);
-env_value("HOME"    , Vis) -> home_(Vis).
-
-env_value("APP"     , A, _Vis) -> A;
-env_value("PRIV_DIR", A, _Vis) -> priv_dir(A);
-env_value("LIB_DIR" , A, _Vis) -> lib_dir(A).
-
-custom_env_value(_K, {value, V}, _Vs, _A, _Vis) ->
-    V;
-custom_env_value(K, {expand, V}, Vs, A, Vis) ->
-    expand_env(Vs, V, A, K|Vis);
-custom_env_value(K, {apply, M, F, As}, _Vs, _A, _Vis) ->
-    %% Not ideal, but don't want to introduce exceptions in get_env()
-    try apply(M, F, As)
-    catch
-        error:_ ->
-            {error, {custom_setup_env, K}}
-    end.
-
-%% This function is more general than to_string/1 below
-stringify(V) ->
-    try iolist_to_binary(V)
-    catch
-        error:badarg ->
-            iolist_to_binary(io_lib:format("~w", V))
-    end.
-
-priv_dir(A) ->
-    case code:priv_dir(A) of
-        {error, bad_name} ->
-            case is_cur_dir(A) of
-                true ->
-                    filename:join(cwd(), "priv");
-                false ->
-                    error({cannot_get_priv_dir, A})
-            end;
-        D -> D
-    end.
-
-lib_dir(A) ->
-    case code:lib_dir(A) of
-        {error, bad_name} ->
-            case is_cur_dir(A) of
-                true ->
-                    cwd();
-                false ->
-                    error({cannot_get_lib_dir, A})
-            end;
-        D -> D
-    end.
-
-cwd() ->
-    {ok, CWD} = file:get_cwd(),
-    CWD.
-
-is_cur_dir(A) ->
-    As = atom_to_list(A),
-    filename:basename(cwd()) == As.
-
-
-%% @spec patch_app(AppName::atom()) -> true | {error, Reason}
-%%
-%% @doc Adds an application's "development" path to a target system
-%%
-%% This function locates the given application (`AppName') along the `$ERL_LIBS'
-%% path, and prepends it to the code path of the existing system. This is useful
-%% not least when one wants to add e.g. a debugging or trace application to a
-%% target system.
-%%
-%% The function will not add the same path again, if the new path is already
-%% the 'first' path entry for the application `A'.
-%% @end
-patch_app(A) when is_atom(A) ->
-    patch_app(A, latest).
-
-patch_app(A, Vsn) ->
-    patch_app(A, Vsn, lib_dirs()).
-
-patch_app(A, Vsn, LibDirs) ->
-    case find_app(A, LibDirs) of
-        _|_ = Found ->
-            {_ActualVsn, Dir} = pick_vsn(A, Found, Vsn),
-            error_logger:info_msg("~p vsn ~p code:add_patha(~s)~n", A, _ActualVsn, Dir),
-            code:add_patha(Dir);
-         ->
-            error(no_matching_vsn)
-    end.
-
-%% @spec pick_vsn(App::atom(), Dirs::{Vsn::string(),Dir::string()}, Which) ->
-%%          {Vsn, Dir}
-%%  where
-%%     Which = 'latest' | 'next' | Regexp
-%%
-%% @doc Picks the specified version out of a list returned by {@link find_app/1}
-%%
-%% * If `Which' is a string, it will be used as a `re' regexp pattern, and the
-%%   first matching version will be returned.
-%%
-%% * If `Which = latest', the last entry in the list will be returned (assumes
-%%   that the list is sorted in ascending version order).
-%%
-%% * If `Which = next', the next version following the current version of the
-%%   application `A' is returned, assuming `A' is loaded; if `A' is not loaded,
-%%   the first entry in the list is returned.
-%%
-%% If no matching version is found, the function raises an exception.
-%% @end
-pick_vsn(_, Dirs, latest) ->
-    lists:last(Dirs);
-pick_vsn(A, Dirs, next) ->
-    case app_get_key(A, vsn) of
-        {ok, Cur} ->
-            case lists:dropwhile(fun({V, _}) -> V =/= Cur end, Dirs) of
-                _, {_, _} = Next |_ -> Next;
-                _ -> error(no_matching_vsn)
-            end;
-        _ ->
-            hd(Dirs)
-    end;
-pick_vsn(_, Dirs, Vsn) ->
-    case X || {V, _} = X <- Dirs,
-               re:run(V, Vsn) =/= nomatch of
-        Found|_ ->
-            Found;
-         ->
-            error(no_matching_vsn)
-    end.
-
-
-%% @spec find_app(A::atom()) -> {Vsn, Dir}
-%% @equiv find_app(A, lib_dirs())
-find_app(A) ->
-    find_app(A, lib_dirs()).
-
-%% @spec find_app(A::atom(), LibDirs::string()) -> {Vsn, Dir}
-%%
-%% @doc Locates application `A' along LibDirs (see {@link lib_dirs/0} and
-%% {@link lib_dirs/1}) or under the OTP root, returning all found candidates.
-%% The version is extracted from the `.app' file; thus, no version suffix
-%% in the path name is required.
-%% @end
-find_app(A, LibDirs) ->
-    Astr = to_string(A),
-    CurDir = case code:lib_dir(A) of
-                 {error,_} -> ;
-                 D ->
-                     filename:join(D, "ebin")
-             end,
-    CurRoots = current_roots(),
-    InLib = P || P <- LibDirs,
-                  is_app_dir(Astr, P),
-    InRoots = lists:append(in_root(A, R) || R <- CurRoots),
-    setup_lib:sort_vsns(
-      lists:usort(CurDir ++ InRoots ++ InLib), atom_to_list(A)).
-
-to_string(A) when is_atom(A) ->
-    atom_to_list(A);
-to_string(A) when is_list(A) ->
-    A.
-
-is_app_dir(A, D) ->
-    case lists:reverse(filename:split(D)) of
-        "ebin", App|_ ->
-            case re:split(App, <<"-">>, {return,list}) of
-                A|_ -> true;
-                _ -> false
-            end;
-        _ ->
-            false
-    end.
-
-current_roots() ->
-    CurPath = code:get_path(),
-    roots_of(CurPath).
-
-roots_of(Path) ->
-    All = lists:foldr(
-            fun(D, Acc) ->
-                    case lists:reverse(filename:split(D)) of
-                        "ebin",_| _|_ = T ->
-                            filename:join(lists:reverse(T)) | Acc;
-                        _ ->
-                            Acc
-                    end
-            end, , Path),
-    lists:usort(All).
-
-in_root(A, R) ->
-    Paths = filelib:wildcard(filename:join(R, "*", "ebin")),
-    Pat = atom_to_list(A) ++ "-\\.0-9+/ebin\$",
-    P || P <- Paths,
-          re:run(P, Pat) =/= nomatch.
-
-%% @spec reload_app(AppName::atom()) -> {ok, NotPurged} | {error, Reason}
-%%
-%% @equiv reload_app(AppName, latest)
-reload_app(A) ->
-    reload_app(A, latest).
-
-%% @spec reload_app(AppName::atom(), ToVsn) -> {ok,UnPurged} | {error,Reason}
-%%
-%% @equiv reload_app(AppName, latest, lib_dirs())
-reload_app(A, ToVsn) ->
-    reload_app(A, ToVsn, lib_dirs()).
-
-%% @spec reload_app(AppName::atom(), ToVsn, LibDirs) ->
-%%           {ok, Unpurged} | {error, Reason}
-%%  where
-%%    ToVsn = 'latest' | 'next' | Vsn,
-%%    LibDirs = string()
-%%    Vsn   = string()
-%%
-%% @doc Loads or upgrades an application to the specified version
-%%
-%% This function is a convenient function for 'upgrading' an application.
-%% It locates the given version (using {@link find_app/1} and {@link pick_vsn/3})
-%% and loads it in the most appropriate way:
-%%
-%% * If the application isn't already loaded, it loads the application and
-%%   all its modules.
-%%
-%% * If the application is loaded, it generates an appup script and performs
-%%   a soft upgrade. If the new version of the application has an `.appup' script
-%%   on-disk, that script is used instead.
-%%
-%% The application is searched for along the existing path (that is, under
-%% the roots of the existing code path, allowing for e.g. $ROOT/lib/app-1.0
-%% and $ROOT/lib/app-1.2 to be found and tested against the version condition),
-%% and also along `LibDirs' (see {@link lib_dirs/0} an {@link lib_dirs/1}).
-%%
-%% The generated appup script is of the form:
-%%
-%% * add modules not present in the previous version of the application
-%%
-%% * do a soft upgrade on pre-existing modules, using suspend-code_change-resume
-%%
-%% * delete modules that existed in the old version, but not in the new.
-%%
-%% The purge method used is `brutal_purge' - see {@link //sasl/appup}.
-%%
-%% For details on how the new version is chosen, see {@link find_app/1} and
-%% {@link pick_vsn/3}.
-%% @end
-reload_app(A, ToVsn0, LibDirs) ->
-    case app_get_key(A, vsn) of
-        undefined ->
-            ok = application:load(A),
-            {ok, Modules} = app_get_key(A, modules),
-            _ = c:l(M) || M <- Modules,
-            {ok, };
-        {ok, FromVsn} ->
-            {ToVsn, NewPath} = pick_vsn(A, find_app(A, LibDirs), ToVsn0),
-            if ToVsn == FromVsn ->
-                    {error, same_version};
-               true ->
-                    error_logger:info_msg("~p vsn ~p soft upgrade from ~p~n",
-                                          A, ToVsn, FromVsn),
-                    reload_app(
-                      A, FromVsn, filename:join(code:lib_dir(A), "ebin"),
-                      NewPath, ToVsn)
-            end
-    end.
-
-reload_app(A, OldVsn, OldPath, NewPath, NewVsn) ->
-    {_NewVsn, Script, NewApp} = make_appup_script(A, OldVsn, NewPath),
-    reload_app(A, OldVsn, OldPath, NewPath, NewVsn, Script, NewApp).
-
-reload_app(A, _OldVsn, _OldPath, NewPath, NewVsn, Script, _NewApp) ->
-    LibDir = filename:dirname(NewPath),
-    _ = remove_path(NewPath, A),
-    case release_handler:eval_appup_script(A, NewVsn, LibDir, Script) of
-        {ok, Unpurged} ->
-            _ = code:purge(M) || {M, brutal_purge} <- Unpurged,
-            {ok, U || {_, Mode} = U <- Unpurged, Mode =/= brutal_purge};
-        Other ->
-            Other
-    end.
-
-remove_path(P, A) ->
-    CurPath = code:get_path(),
-    case lists:member(P, CurPath) of
-        true ->
-            %% don't remove if it's the only path
-            case Px || Px <- path_entries(A, CurPath),
-                        Px =/= P of
-                 ->
-                    true;
-                _|_ ->
-                    code:set_path(Px || Px <- CurPath,
-                                         Px =/= P)
-            end;
-        false ->
-            true
-    end.
-
-path_entries(A, Path) ->
-    Pat = atom_to_list(A) ++ "^/*/ebin\$",
-    P || P <- Path,
-          re:run(P, Pat) =/= nomatch.
-
-make_appup_script(A, OldVsn, NewPath) ->
-    {application, _, NewAppTerms} = NewApp =
-        read_app(filename:join(NewPath, atom_to_list(A) ++ ".app")),
-    %% OldAppTerms = application:get_all_key(A),
-    %% _OldApp = {application, A, OldAppTerms},
-    case find_script(A, NewPath, OldVsn, up) of
-        {NewVsn, Script} ->
-            {NewVsn, Script, NewApp};
-        false ->
-            {ok, OldMods} = app_get_key(A, modules),
-            {modules, NewMods} = lists:keyfind(modules, 1, NewAppTerms),
-            {vsn, NewVsn} = lists:keyfind(vsn, 1, NewAppTerms),
-            {DelMods,AddMods,ChgMods} = {OldMods -- NewMods,
-                                         NewMods -- OldMods,
-                                         intersection(NewMods, OldMods)},
-            {NewVsn,
-             {load_object_code,{A, NewVsn, NewMods}}
-             ++ point_of_no_return
-             ++ {load, {M, brutal_purge, brutal_purge}} || M <- AddMods
-             ++ {suspend, ChgMods} || ChgMods =/= 
-             ++ {load, {M, brutal_purge,brutal_purge}} || M <- ChgMods
-             ++ {code_change, up, {M, setup} || M <- ChgMods} ||
-                    ChgMods =/= 
-             ++ {resume, ChgMods} || ChgMods =/= 
-             ++ {remove, {M, brutal_purge,brutal_purge}} || M <- DelMods
-             ++ {purge, DelMods} || DelMods =/= ,
-             NewApp}
-    end.
-
-read_app(F) ->
-    case file:consult(F) of
-        {ok, App} ->
-            App;
-        {error,_} = Error ->
-            error(Error, F)
-    end.
-
-%% slightly modified (and corrected!) version of release_handler:find_script/4.
-find_script(App, Dir, OldVsn, UpOrDown) ->
-    Appup = filename:join(Dir, "ebin", atom_to_list(App)++".appup"),
-    case file:consult(Appup) of
-        {ok, {NewVsn, UpFromScripts, _DownToScripts}} ->
-            Scripts = case UpOrDown of
-                          up -> UpFromScripts
-                          %% down -> DownToScripts
-                      end,
-            case lists:dropwhile(fun({Re,_}) ->
-                                         re:run(OldVsn, Re) == nomatch
-                                 end, Scripts) of
-                {_OldVsn, Script}|_ ->
-                    {NewVsn, Script};
-                 ->
-                    false
-            end;
-        {error, enoent} ->
-            false;
-        {error, _} ->
-            false
-    end.
-
-
-%% find_procs(Mods) ->
-%%     Ps = release_handler_1:get_supervised_procs(),
-%%     lists:flatmap(
-%%       fun({P,_,_,Ms}) ->
-%%               case intersection(Ms, Mods) of
-%%                    -> ;
-%%                   I  -> {P, I}
-%%               end
-%%       end, Ps).
-
-intersection(A, B) ->
-    A -- (A -- B).
-
-
-
-%% @hidden
-%%
-%% Called from the start function. Will verify directories, then call
-%% all setup hooks in all applications, and execute them in order.
-%% Afterwards, setup will either finish and leave the system running, or
-%% stop, terminating all nodes automatically.
-%%
-run_setup() ->
-    error_logger:info_msg("Setup running ...~n", ),
-    AbortOnError = check_abort_on_error(),
-    try run_setup_()
-    catch
-        error:Error ->
-            error_logger:error_msg("Caught exception:~n"
-                                   "~p~n"
-                                   "~p~n", Error, erlang:get_stacktrace()),
-            if AbortOnError ->
-                    erlang:error(Error);
-               true ->
-                    ok
-            end
-    end.
-
-run_setup_() ->
-    Res = maybe_verify_directories(),
-    error_logger:info_msg("Directories verified. Res = ~p~n", Res),
-    Mode = mode(),
-    Hooks = find_hooks(Mode),
-    run_selected_hooks(Hooks),
-    error_logger:info_msg(
-      "Setup finished processing hooks (Mode=~p)...~n", Mode),
-    ok.
-
-%% @hidden
-main(Args) ->
-    setup_gen:main(Args).
-
-%% @spec find_hooks() -> {PhaseNo, {M,F,A}}
-%% @doc Finds all custom setup hooks in all applications.
-%% The setup hooks must be of the form
-%% ``{'$setup_hooks', {PhaseNo, {M, F, A}} | {Mode, {PhaseNo, {M,F,A}}}}'',
-%% where PhaseNo should be (but doesn't have to be) an integer.
-%% If `Mode' is not specified, the hook will pertain to the `setup' mode.
-%%
-%% The hooks will be called in order:
-%% - The phase numbers will be sorted.
-%% - All hooks for a specific PhaseNo will be called in sequence,
-%%   in the same order as the applications appear in the boot script
-%%   (and, if included applications exist, in preorder traversal order).
-%%
-%% A suggested convention is:
-%% - Create the database at phase 100
-%% - Create tables (or configure schema) at 200
-%% - Populate the database at 300
-%% @end
-%%
-find_hooks() ->
-    find_hooks(mode()).
-
-%% @spec find_hooks(Mode) -> {PhaseNo, {M, F, A}}
-%% @doc Find all setup hooks for `Mode' in all applications
-%% @end
-find_hooks(Mode) when is_atom(Mode) ->
-    Applications = applications(),
-    find_hooks(Mode, Applications).
-
-%% @spec find_hooks(Mode, Applications) -> {PhaseNo, {M, F, A}}
-%% @doc Find all setup hooks for `Mode' in `Applications'.
-%% @end
-find_hooks(Mode, Applications) ->
-    lists:foldl(
-      fun(A, Acc) ->
-              case app_get_env(A, '$setup_hooks') of
-                  {ok, Hooks} ->
-                      lists:foldl(
-                        fun({Mode1, {_, {_,_,_}}|_ = L}, Acc1)
-                              when Mode1 =:= Mode ->
-                                find_hooks_(Mode, A, L, Acc1);
-                           ({Mode1, {_, {_, _, _}|_}|_ = L}, Acc1)
-                              when Mode1 =:= Mode ->
-                                find_hooks_(Mode, A, L, Acc1);
-                           ({N, {_, _, _} = MFA}, Acc1) when Mode=:=setup ->
-                                orddict:append(N, MFA, Acc1);
-                           ({N, {_, _, _}|_ = L}, Acc1)
-                              when Mode=:=setup ->
-                                lists:foldl(
-                                  fun(MFA, Acc2) ->
-                                          orddict:append(N, MFA, Acc2)
-                                  end, Acc1, L);
-                           (_, Acc1) ->
-                                Acc1
-                        end, Acc, Hooks);
-                  _ ->
-                      Acc
-              end
-      end, orddict:new(), Applications).
-
-find_hooks_(Mode, A, L, Acc1) ->
-    lists:foldl(
-      fun({N, {_,_,_} = MFA}, Acc2) ->
-              orddict:append(N, MFA, Acc2);
-         ({N, {_,_,_}|_ = MFAs}, Acc2) when is_list(MFAs) ->
-              lists:foldl(
-                fun({_,_,_} = MFA1, Acc3) ->
-                        orddict:append(
-                          N, MFA1, Acc3);
-                   (Other1, Acc3) ->
-                        error_logger:info_msg(
-                          "Invalid hook: ~p~n"
-                          "  App  : ~p~n"
-                          "  Mode : ~p~n"
-                          "  Phase: ~p~n",
-                          Other1, A, Mode, N),
-                        Acc3
-                end, Acc2, MFAs)
-      end, Acc1, L).
-
--spec mode() -> normal | atom().
-%% @doc Returns the current "setup mode".
-%%
-%% The mode can be defined using the `setup' environment variable `mode'.
-%% The default value is `normal'. The mode is used to select which setup
-%% hooks to execute when starting the `setup' application.
-%% @end
-mode() ->
-    case app_get_env(setup, mode) of
-        {ok, M} ->
-            M;
-        _ ->
-            case init:get_argument(boot) of
-                {ok, Boot} ->
-                    case filename:basename(Boot) of
-                        "install" -> setup;
-                        _ -> normal
-                    end;
-                _ ->
-                    normal
-            end
-    end.
-
-%% @spec run_hooks() -> ok
-%% @doc Execute all setup hooks for current mode in order.
-%%
-%% See {@link find_hooks/0} for details on the order of execution.
-%% @end
-run_hooks() ->
-    run_hooks(applications()).
-
-%% @spec run_hooks(Applications) -> ok
-%% @doc Execute setup hooks for current mode in `Applications' in order.
-%%
-%% See {@link find_hooks/0} for details on the order of execution.
-%% @end
-run_hooks(Apps) ->
-    run_hooks(mode(), Apps).
-
-%% @spec run_hooks(Mode, Applications) -> ok
-%% @doc Execute setup hooks for `Mode' in `Applications' in order
-%%
-%% Note that no assumptions can be made about which process each setup hook
-%% runs in, nor whether it runs in the same process as the previous hook.
-%% See {@link find_hooks/0} for details on the order of execution.
-%% @end
-run_hooks(Mode, Apps) ->
-    Hooks = find_hooks(Mode, Apps),
-    run_selected_hooks(Hooks).
-
-%% @spec run_selected_hooks(Hooks) -> ok
-%% @doc Execute specified setup hooks in order
-%%
-%% Exceptions are caught and printed. This might/should be improved, but the
-%% general idea is to complete as much as possible of the setup, and perhaps
-%% repair afterwards. However, the fact that something went wrong should be
-%% remembered and reflected at the end.
-%% @end
-%%
-run_selected_hooks(Hooks) ->
-    AbortOnError = check_abort_on_error(),
-    lists:foreach(
-      fun({Phase, MFAs}) ->
-              error_logger:info_msg("Setup phase ~p~n", Phase),
-              lists:foreach(fun({M, F, A}) ->
-                                    try_apply(M, F, A, AbortOnError)
-                            end, MFAs)
-      end, Hooks).
-
-check_abort_on_error() ->
-    case app_get_env(setup, abort_on_error) of
-        {ok, F} when is_boolean(F) -> F;
-        {ok, Other} ->
-            error_logger:error_msg("Invalid abort_on_error flag (~p)~n"
-                                   "Aborting...~n", Other),
-            error({invalid_abort_on_error, Other});
-        _ -> false
-    end.
-
-try_apply(M, F, A, Abort) ->
-    {_Pid, Ref} = spawn_monitor(
-                   fun() ->
-                           exit(try {ok, apply(M, F, A)}
-                                catch
-                                    Type:Exception ->
-                                        {error, {Type, Exception}}
-                                end)
-                   end),
-    receive
-        {'DOWN', Ref, _, _, Return} ->
-            case Return of
-                {ok, Result} ->
-                    report_result(Result, M, F, A);
-                {error, {Type, Exception}} ->
-                    report_error(Type, Exception, M, F, A),
-                    if Abort ->
-                            error_logger:error_msg(
-                              "Abort on error is set. Terminating sequence~n",),
-                            error(Exception);
-                       true ->
-                            ok
-                    end
-            end
-    end.
-
-report_result(Result, M, F, A) ->
-    MFAString = format_mfa(M, F, A),
-    error_logger:info_msg(MFAString ++ "-> ~p~n", Result).
-
-report_error(Type, Error, M, F, A) ->
-    ErrTypeStr = case Type of
-                     error -> "ERROR: ";
-                     throw -> "THROW: ";
-                     exit  -> "EXIT:  "
-                 end,
-    MFAString = format_mfa(M, F, A),
-    error_logger:error_msg(MFAString ++ "-> " ++ ErrTypeStr ++ "~p~n~p~n",
-                           Error, erlang:get_stacktrace()).
-
-
-format_mfa(M, F, A) ->
-    lists:flatten(atom_to_list(M),":",atom_to_list(F),
-                   "(", format_args(A), ")").
-
-format_args()         -> "";
-format_args(A)        -> format_arg(A);
-format_args(A, B | T) -> format_arg(A), "," | format_args(B | T).
-
-format_arg(A) ->
-    io_lib:fwrite("~p", A).
-
-%% @spec applications() -> atom()
-%% @doc Find all applications - either from the boot script or all loaded apps.
-%% @end
-%%
-applications() ->
-    Apps = A || {A, _, _} <- application:loaded_applications(),
-    group_applications(Apps).
-
-%% Sort apps in preorder traversal order.
-%% That is, for each "top application", all included apps follow before the
-%% next top application. Normally, there will be no included apps, in which
-%% case the list will maintain its original order.
-%%
-group_applications(Apps) ->
-    group_applications(Apps, ).
-
-group_applications(H | T, Acc) ->
-    case app_get_key(H, included_applications) of
-        {ok, } ->
-            group_applications(T, {H,}|Acc);
-        {ok, Incls} ->
-            AllIncls = all_included(Incls),
-            group_applications(T -- AllIncls,
-                               {H, AllIncls}
-                                | lists:foldl(
-                                    fun(A,Acc1) ->
-                                            lists:keydelete(A,1,Acc1)
-                                    end, Acc, AllIncls))
-    end;
-group_applications(, Acc) ->
-    unfold(lists:reverse(Acc)).
-
-unfold({A,Incl}|T) ->
-    A|Incl ++ unfold(T);
-unfold() ->
-    .
-
-all_included(H | T) ->
-    case app_get_key(H, included_applications) of
-        {ok, } ->
-            H | all_included(T);
-        {ok, Incls} ->
-            H | all_included(Incls) ++ all_included(T)
-    end;
-all_included() ->
-    .
-
-%% @spec keep_release(RelVsn) -> ok
-%% @doc Generates a release based on what's running in the current node.
-%% @end
-keep_release(RelVsn) ->
-    %% 0. Check
-    RelDir = setup_lib:releases_dir(),
-    case filelib:is_dir(TargetDir = filename:join(RelDir, RelVsn)) of
-        true -> error({target_dir_exists, TargetDir});
-        false -> verify_dir(TargetDir)
-    end,
-    %% 1. Collect info
-    Loaded = application:loaded_applications(),
-    LoadedNames = element(1,A) || A <- Loaded,
-    Running = application:which_applications(),
-    RunningNames = element(1,A) || A <- Running,
-    OnlyLoaded = LoadedNames -- RunningNames,
-    Included = lists:flatmap(
-                 fun(A) ->
-                         case app_get_key(A, included_applications) of
-                             {ok, } ->
-                                 ;
-                             {ok, As} ->
-                                 {A, As}
-                         end
-                 end, LoadedNames),
-    {Name,_} = init:script_id(),
-    Conf = 
-            {name, Name},
-            {apps, app_list(OnlyLoaded, Loaded, Included)}
-            | {root, R} || R <- current_roots() -- otp_root()
-           
-        ++ {env, env_diff(LoadedNames)},
-    setup_lib:write_script(
-      ConfF = filename:join(TargetDir, "setup.conf"), Conf),
-    setup_gen:run({name, Name}, {outdir, TargetDir}, {conf, ConfF}).
-     %% {loaded, Loaded},
-     %% {running, Running},
-     %% {only_loaded, OnlyLoaded},
-     %% {included, Included},
-     %% {env, env_diff(LoadedNames)},
-     %% {roots, current_roots() -- otp_root()},
-     %% {rel_dir, setup_lib:releases_dir()}.
-
-app_list(OnlyLoaded, AllLoaded, Included) ->
-    lists:map(
-      fun({A, _, V}) ->
-              case {lists:member(A, OnlyLoaded),
-                    lists:keyfind(A, 1, Included)} of
-                  {true,false} -> {A, V, load};
-                  {true,{_,I}} -> {A, V, load, I};
-                  {false,false} -> {A, V};
-                  {false,{_,I}} -> {A, V, I}
-              end
-      end, AllLoaded).
-
-env_diff(A|As) ->
-    AppF = filename:join(code:lib_dir(A), "ebin", atom_to_list(A) ++ ".app"),
-    LiveEnv = lists:keydelete(included_applications, 1,
-                              application:get_all_env(A)),
-    DiskEnv = fetch_env(AppF),
-    case LiveEnv -- DiskEnv of
-        _|_ = Diff ->
-            {A, Diff}|env_diff(As);
-         ->
-            env_diff(As)
-    end;
-env_diff() ->
-    .
-
-fetch_env(AppF) ->
-    case file:consult(AppF) of
-        {ok, {application,_,Terms}} ->
-            proplists:get_value(env, Terms, );
-        {error, Reason} ->
-            error({reading_app_file, AppF, Reason})
-    end.
-
-otp_root() ->
-    {ok, Root} = init:get_argument(root),
-    filename:join(Root, "lib").
-
-%% Modified from code_server:get_user_lib_dirs():
-
-%% @spec lib_dirs() -> string()
-%% @equiv union(lib_dirs("ERL_SETUP_LIBS"), lib_dirs("ERL_LIBS"))
-lib_dirs() ->
-    A = lib_dirs("ERL_SETUP_LIBS"),
-    B = lib_dirs("ERL_LIBS"),
-    A ++ (B -- A).
-
-%% @spec lib_dirs(Env::string()) -> string()
-%% @doc Returns an expanded list of application directories under a lib path
-%%
-%% This function expands the (ebin/) directories under e.g. `$ERL_SETUP_LIBS' or
-%% `$ERL_LIBS'. `$ERL_SETUP_LIB' has the same syntax and semantics as
-%% `$ERL_LIBS', but is (hopefully) only recognized by the `setup' application.
-%% This can be useful e.g. when keeping a special 'extensions' or 'plugin'
-%% root that is handled via `setup', but not treated as part of the normal
-%% 'automatic code loading path'.
-%% @end
-lib_dirs(Env) ->
-    case os:getenv(Env) of
-        L when is_list(L) ->
-            LibDirs = split_paths(L, path_separator(), , ),
-            get_user_lib_dirs_1(LibDirs);
-        false ->
-            
-    end.
-
-path_separator() ->
-    case os:type() of
-        {win32, _} -> $;;
-        _          -> $:
-    end.
-
-get_user_lib_dirs_1(Dir|DirList) ->
-    case erl_prim_loader:list_dir(Dir) of
-        {ok, Dirs} ->
-            {Paths,_Libs} = make_path(Dir, Dirs),
-            %% Only add paths trailing with ./ebin.
-            P || P <- Paths, filename:basename(P) =:= "ebin" ++
-                get_user_lib_dirs_1(DirList);
-        error ->
-            get_user_lib_dirs_1(DirList)
-    end;
-get_user_lib_dirs_1() -> .
-
-split_paths(S|T, S, Path, Paths) ->
-    split_paths(T, S, , lists:reverse(Path) | Paths);
-split_paths(C|T, S, Path, Paths) ->
-    split_paths(T, S, C|Path, Paths);
-split_paths(, _S, Path, Paths) ->
-    lists:reverse(Paths, lists:reverse(Path)).
-
-
-make_path(BundleDir, Bundles0) ->
-    Bundles = choose_bundles(Bundles0),
-    make_path(BundleDir, Bundles, , ).
-
-choose_bundles(Bundles) ->
-    ArchiveExt = archive_extension(),
-    Bs = lists:sort(create_bundle(B, ArchiveExt) || B <- Bundles),
-    FullName || {_Name,_NumVsn,FullName} <-
-                     choose(lists:reverse(Bs), , ArchiveExt).
-
-create_bundle(FullName, ArchiveExt) ->
-    BaseName = filename:basename(FullName, ArchiveExt),
-    case split(BaseName, "-") of
-        _, _|_ = Toks ->
-            VsnStr = lists:last(Toks),
-            case vsn_to_num(VsnStr) of
-                {ok, VsnNum} ->
-                    Name = join(lists:sublist(Toks, length(Toks)-1),"-"),
-                    {Name,VsnNum,FullName};
-                false ->
-                    {FullName,0,FullName}
-            end;
-        _ ->
-            {FullName,0,FullName}
-    end.
-
-%% Convert "X.Y.Z. ..." to K, L, M| ...
-vsn_to_num(Vsn) ->
-    case is_vsn(Vsn) of
-        true ->
-            {ok, list_to_integer(S) || S <- split(Vsn, ".")};
-        _  ->
-            false
-    end.
-
-is_vsn(Str) when is_list(Str) ->
-    Vsns = split(Str, "."),
-    lists:all(fun is_numstr/1, Vsns).
-
-is_numstr(Cs) ->
-    lists:all(fun (C) when $0 =< C, C =< $9 -> true;
-                  (_)                       -> false
-              end, Cs).
-
-split(Cs, S) ->
-    split1(Cs, S, ).
-
-split1(C|S, Seps, Toks) ->
-    case lists:member(C, Seps) of
-        true -> split1(S, Seps, Toks);
-        false -> split2(S, Seps, Toks, C)
-    end;
-split1(, _Seps, Toks) ->
-    lists:reverse(Toks).
-
-split2(C|S, Seps, Toks, Cs) ->
-    case lists:member(C, Seps) of
-        true -> split1(S, Seps, lists:reverse(Cs)|Toks);
-        false -> split2(S, Seps, Toks, C|Cs)
-    end;
-split2(, _Seps, Toks, Cs) ->
-    lists:reverse(lists:reverse(Cs)|Toks).
-
-join(H1, H2| T, S) ->
-    H1 ++ S ++ join(H2| T, S);
-join(H, _) ->
-    H;
-join(, _) ->
-    .
-
-choose({Name,NumVsn,NewFullName}=New|Bs, Acc, ArchiveExt) ->
-    case lists:keyfind(Name, 1, Acc) of
-        {_, NV, OldFullName} when NV =:= NumVsn ->
-            case filename:extension(OldFullName) =:= ArchiveExt of
-                false ->
-                    choose(Bs,Acc, ArchiveExt);
-                true ->
-                    Acc2 = lists:keystore(Name, 1, Acc, New),
-                    choose(Bs,Acc2, ArchiveExt)
-            end;
-        {_, _, _} ->
-            choose(Bs,Acc, ArchiveExt);
-        false ->
-            choose(Bs,{Name,NumVsn,NewFullName}|Acc, ArchiveExt)
-    end;
-choose(,Acc, _ArchiveExt) ->
-    Acc.
-
-make_path(_,,Res,Bs) ->
-    {Res,Bs};
-make_path(BundleDir,Bundle|Tail,Res,Bs) ->
-    Dir = filename:append(BundleDir,Bundle),
-    Ebin = filename:append(Dir,"ebin"),
-    %% First try with /ebin
-    case erl_prim_loader:read_file_info(Ebin) of
-        {ok,#file_info{type=directory}} ->
-            make_path(BundleDir,Tail,Ebin|Res,Bundle|Bs);
-        _ ->
-            %% Second try with archive
-            Ext = archive_extension(),
-            Base = filename:basename(Dir, Ext),
-            Ebin2 = filename:join(filename:dirname(Dir), Base ++ Ext,
-                                   Base, "ebin"),
-            Ebins =
-                case split(Base, "-") of
-                    _, _|_ = Toks ->
-                        AppName = join(lists:sublist(Toks, length(Toks)-1),"-"),
-                        Ebin3 = filename:join(filename:dirname(Dir), Base ++ Ext, AppName, "ebin"),
-                        Ebin3, Ebin2, Dir;
-                    _ ->
-                        Ebin2, Dir
-                end,
-            try_ebin_dirs(Ebins,BundleDir,Tail,Res,Bundle, Bs)
-    end.
-
-try_ebin_dirs(Ebin | Ebins,BundleDir,Tail,Res,Bundle,Bs) ->
-    case erl_prim_loader:read_file_info(Ebin) of
-        {ok,#file_info{type=directory}} ->
-            make_path(BundleDir,Tail,Ebin|Res,Bundle|Bs);
-        _ ->
-            try_ebin_dirs(Ebins,BundleDir,Tail,Res,Bundle,Bs)
-    end;
-try_ebin_dirs(,BundleDir,Tail,Res,_Bundle,Bs) ->
-    make_path(BundleDir,Tail,Res,Bs).
-
-archive_extension() ->
-    init:archive_extension().
-
-read_config_script(F, Name, Opts) ->
-    read_config_script(F, Name, , Opts).
-
-read_config_script(F, Name, Vars, Opts) ->
-    Dir = filename:dirname(F),
-    Absname = filename:absname(F),
-    case file_script(F, script_vars({'Name', Name},
-                                     {'SCRIPT', Absname},
-                                     {'CWD', filename:absname(Dir)},
-                                     {'OPTIONS', Opts} | Vars)) of
-        {ok, Conf} when is_list(Conf) ->
-            expand_config_script(Conf, Name, , Opts);
-        Error ->
-            setup_lib:abort("Error reading conf (~s): ~p~n", F, Error)
-    end.
-
-expand_config_script({include, F}|T, Name, Acc, Opts) ->
-    Incl = read_config_script(F, Name, , Opts),
-    expand_config_script(T, Name, Incl|Acc, Opts);
-expand_config_script({include, F, Vars}|T, Name, Acc, Opts) ->
-    Incl = read_config_script(F, Name, Vars, Opts),
-    expand_config_script(T, Name, Incl|Acc, Opts);
-expand_config_script({include_lib, LibF}|T, Name, Acc, Opts) ->
-    ?if_verbose(io:fwrite("include_lib: ~s~n", LibF)),
-    expand_include_lib(LibF, , T, Name, Acc, Opts);
-expand_config_script({include_lib, LibF, Vars}|T, Name, Acc, Opts) ->
-    ?if_verbose(io:fwrite("include_lib: ~s (~p)~n", LibF, Vars)),
-    expand_include_lib(LibF, Vars, T, Name, Acc, Opts);
-expand_config_script(H|T, Name, Acc, Opts) ->
-    expand_config_script(T, Name, H|Acc, Opts);
-expand_config_script(, _, Acc, _) ->
-    lists:flatten(lists:reverse(Acc)).
-
-expand_include_lib(LibF, Vars, T, Name, Acc, Opts) ->
-    Fullname = find_lib_script(LibF),
-    Incl = read_config_script(Fullname, Name, Vars, Opts),
-    expand_config_script(T, Name, Incl|Acc, Opts).
-
-find_lib_script(LibF) ->
-    case filename:split(LibF) of
-        App|Tail ->
-            ?if_verbose(io:fwrite("lib: ~s~n", App)),
-            try code_lib_dir(App) of
-                {error, bad_name} ->
-                    setup_lib:abort(
-                      "Error including conf (~s): no such lib (~s)~n",
-                      LibF, App);
-                LibDir when is_list(LibDir) ->
-                    filename:join(LibDir | Tail)
-            catch
-                error:_ ->
-                    setup_lib:abort(
-                      "Error including conf (~s): no such lib (~s)~n",
-                      LibF, App)
-            end;
-         ->
-            setup_lib:abort("Invalid include conf: no file specified~n", )
-    end.
-
-
-code_lib_dir("setup") ->
-    IsEscript = setup_lib:is_escript(),
-    case IsEscript of
-        true ->
-            filename:dirname(
-              filename:absname(
-                escript:script_name()));
-        false ->
-            code:lib_dir(setup)
-    end;
-code_lib_dir(App) when is_list(App); is_binary(App) ->
-    try code:lib_dir(binary_to_existing_atom(
-                       iolist_to_binary(App), latin1))
-    catch error:_ -> undefined
-    end.
-
-%% -- a modified version of file:script/2
-%% -- The main difference: call erl_eval:exprs() with a local_function handler
-
-file_script(File, Bs) ->
-    case file:open(File, read) of
-        {ok, Fd} ->
-            R = eval_stream(Fd, return, Bs),
-            _ = file:close(Fd),
-            R;
-        Error ->
-            Error
-    end.
-
-eval_stream(Fd, Handling, Bs) ->
-    _ = epp:set_encoding(Fd),
-    eval_stream(Fd, Handling, 1, undefined, , Bs).
-
-eval_stream(Fd, H, Line, Last, E, Bs) ->
-    eval_stream2(io:parse_erl_exprs(Fd, '', Line), Fd, H, Last, E, Bs).
-
-eval_stream2({ok,Form,EndLine}, Fd, H, Last, E, Bs0) ->
-    try erl_eval:exprs(Form, Bs0, local_func_handler()) of
-        {value,V,Bs} ->
-            eval_stream(Fd, H, EndLine, {V}, E, Bs)
-    catch Class:Reason ->
-            Error = {EndLine,?MODULE,{Class,Reason,erlang:get_stacktrace()}},
-            eval_stream(Fd, H, EndLine, Last, Error|E, Bs0)
-    end;
-eval_stream2({error,What,EndLine}, Fd, H, Last, E, Bs) ->
-    eval_stream(Fd, H, EndLine, Last, What | E, Bs);
-eval_stream2({eof,EndLine}, _Fd, H, Last, E, _Bs) ->
-    case {H, Last, E} of
-        {return, {Val}, } ->
-            {ok, Val};
-        {return, undefined, E} ->
-            {error, hd(lists:reverse(E, {EndLine,?MODULE,undefined_script}))};
-        %% {ignore, _, } ->
-        %%     ok;
-        {_, _, _|_ = E} ->
-            {error, hd(lists:reverse(E))}
-    end.
-
-%% -- end file:script/2 copy-paste
-
-local_func_handler() ->
-    {eval, fun local_func/3}.
-
-local_func(b, , Bs) ->
-    {value, erl_eval:bindings(Bs), Bs};
-local_func(eval, Params, Bs) ->
-    F|T = erl_parse:normalise(P) || P <- Params,
-    Vars = case T of
-                -> ;
-               Vs -> Vs
-           end,
-    Absname = filename:absname(F),
-    {value, file_script(F, script_vars(Vars ++ {'SCRIPT', Absname}|Bs)), Bs};
-local_func(eval_lib, Params, Bs) ->
-    LibF|T = erl_parse:normalise(P) || P <- Params,
-    try find_lib_script(LibF) of
-        Fullname ->
-            Vars = case T of
-                        -> ;
-                       Vs -> Vs
-                   end,
-            Res = file_script(Fullname, script_vars(
-                                          Vars ++ {'SCRIPT', Fullname}|Bs)),
-            {value, Res, Bs}
-    catch
-        error:_ ->
-            {value, {error, enoent}, Bs}
-    end;
-local_func(F, A, _) ->
-    erlang:error({script_undef, F, A, }).
-
-script_vars(Vs) ->
-    lists:foldl(fun({K,V}, Acc) ->
-                        erl_eval:add_binding(K, V, Acc)
-                end, erl_eval:new_bindings(), Vs).
-
-%% Unit tests
--ifdef(TEST).
-
-setup_test_() ->
-    {foreach,
-     fun() ->
-             application:load(setup)
-     end,
-     fun(_) ->
-             application:stop(setup),
-             application:unload(setup)
-     end,
-     
-      ?_test(t_find_hooks()),
-      ?_test(t_expand_vars()),
-      ?_test(t_nested_includes())
-     }.
-
-t_find_hooks() ->
-    application:set_env(setup, '$setup_hooks',
-                        {100, {a, hook, 100,1},
-                                {a, hook, 100,2}},
-                         {200, {a, hook, 200,1}},
-                         {upgrade, {100, {a, upgrade_hook, 100,1}}},
-                         {setup, {100, {a, hook, 100,3}}},
-                         {normal, {300, {a, normal_hook, 300,1}}}
-                        ),
-    NormalHooks = find_hooks(normal),
-    {300, {a, normal_hook, 300,1}} = NormalHooks,
-    UpgradeHooks = find_hooks(upgrade),
-    {100, {a, upgrade_hook, 100,1}} = UpgradeHooks,
-    SetupHooks = find_hooks(setup),
-    {100, {a,hook,100,1},
-            {a,hook,100,2},
-            {a,hook,100,3}},
-     {200, {a,hook,200,1}} = SetupHooks,
-    ok.
-
-t_expand_vars() ->
-    %% global env
-    application:set_env(setup, vars, {"PLUS", {apply,erlang,'+',1,2}},
-                                      {"FOO", {value, {foo,1}}}),
-    %% private env, stdlib
-    application:set_env(stdlib, '$setup_vars',
-                        {"MINUS", {apply,erlang,'-',4,3}},
-                         {"BAR", {value, "bar"}}),
-    application:set_env(setup, envy, 17),
-    application:set_env(setup, v1, "/$BAR/$PLUS/$MINUS/$FOO/$env(envy)"),
-    application:set_env(setup, v2, {'$value', "$FOO"}),
-    application:set_env(setup, v3, {'$string', "$env(envy)"}),
-    application:set_env(stdlib, v1, {'$string', "$FOO"}),
-    application:set_env(stdlib, v2, {'$binary', "$FOO"}),
-    application:set_env(stdlib, v3, {"$PLUS", "$MINUS", "$BAR"}),
-    application:set_env(stdlib, v4, a|b),
-    %% $BAR and $MINUS are not in setup's context
-    {ok, "/$BAR/3/$MINUS/{foo,1}/17"} = setup:get_env(setup, v1),
-    {ok, {foo,1}} = setup:get_env(setup, v2),
-    {ok, "17"} = setup:get_env(setup, v3),
-    {ok, "{foo,1}"} = setup:get_env(stdlib, v1),
-    {ok, <<"{foo,1}">>} = setup:get_env(stdlib,v2),
-    {ok, {"3", "1", "bar"}} = setup:get_env(stdlib,v3),
-    {ok, a|b} = setup:get_env(stdlib, v4),
-    ok.
-
-t_nested_includes() ->
-    to_file_("a.config", {apps,kernel,stdlib,setup},
-                          {env,{setup,{a,1}}}),
-    to_file_("b.config", {include,"a.config"},
-                          {set_env, {setup, {a,2}}}),
-    to_file_("c.config", {include, "b.config"},
-                          {set_env, {setup, {a,3}}}),
-    {apps,kernel,stdlib,setup},
-     {env, {setup, {a,1}}},
-     {set_env, {setup, {a,2}}},
-     {set_env, {setup, {a,3}}} =
-        setup:read_config_script("c.config", nested, ).
-
-to_file_(F, Term) ->
-    {ok, Fd} = file:open(F, write),
-    try io:fwrite(Fd, "~p.~n", Term)
-    after
-        file:close(Fd)
-    end.
-
--endif.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/setup/src/setup_app.erl Deleted

@@ -1,32 +0,0 @@
-%% -*- mode: erlang; indent-tabs-mode: nil; -*-
-%%=============================================================================
-%% Copyright 2014-2016 Ulf Wiger
-%%
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%% http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%%=============================================================================
--module(setup_app).
--behaviour(application).
-
--export(start/2,
-         start_phase/3,
-         stop/1).
-
-start(_Type, _Args) ->
-    setup_sup:start_link().
-
-start_phase(run_setup, _Type, ) ->
-    _ = setup_srv:run_setup(),
-    ok.
-
-stop(_) ->
-    ok.

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/setup/src/setup_gen.erl Deleted

@@ -1,958 +0,0 @@
-%% -*- mode: erlang; indent-tabs-mode: nil; -*-
-%%=============================================================================
-%% Copyright 2014 Ulf Wiger
-%%
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%% http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%%=============================================================================
--module(setup_gen).
--export(main/1,   % escript-style
-         run/1,    % when called from within erlang
-         help/0). % prints help text.
-
--import(setup_lib, abort/2).
-
--define(if_verbose(Expr),
-        case get(verbose) of
-            true -> Expr;
-            _    -> ok
-        end).
-
-
-main() ->
-    help(),
-    halt(1);
-main(H) when H=="-h"; H=="-help" ->
-    help(),
-    halt(0);
-main("-" ++ _|_ = Args) ->
-    Opts = try options(Args)
-           catch
-               error:E ->
-                   abort(E, )
-           end,
-    run(Opts);
-main(Name, Config, Out| InArgs) ->
-    Opts = try options(InArgs)
-           catch
-               error:E ->
-                   abort(E, )
-           end,
-    run({name, Name}, {conf, Config}, {outdir, Out} | Opts).
-
-help() ->
-    setup_lib:help().
-
-%% @spec run(Options) -> ok
-%% @doc Generates .rel file(s) and boot scripts for a given configuration.
-%%
-%% This function reads a configuration specification and generates the
-%% files needed to start a node from an OTP boot script. Optionally, it can
-%% also generate a 'setup' script, which contains the same applications, but
-%% only loaded (except the `setup' application, if present, which is started).
-%% This way, a node can be started with all paths set, and all environment
-%% variables defined, such that a database can be created, and other setup
-%% tasks be performed.
-%%
-%% Mandatory options:
-%% * `{name, Name}'  - Name of the release (and of the .rel and .script files)
-%% * `{outdir, Dir}' - Where to put the generated files. Dir is created if not
-%%                     already present.
-%% * `{conf, Conf}'  - Config file listing apps and perhaps other options
-%% * `{relconf, File}' - can be used instead of `conf', and identifies a
-%%       reltool.config file (see {@link //reltool. `reltool'}) to be used as
-%%       system description. If a `conf' option is present, it will be used;
-%%       otherwise, a `relconf' option must be present.
-%%
-%% Additional options:
-%%
-%% * `{apps, App}' - List of applications to include in the release. Only the
-%%                     first instance of this option is considered.
-%% * `{add_apps, App}' - Adds applications to the ones given in the `apps'
-%%                         option.
-%% * `{remove_apps, Apps}' - Remove `Apps' from the list of applications.
-%% * `{sort_app, App, Before}' - Change the sort order so that `App' comes
-%%                       before `Before'. `Before' can be either an application
-%%                       name or a list of names. In the latter case, `App'
-%%                       is inserted before either of the applications in
-%%                       the list, whichever comes first.
-%% * `{include, ConfigFile}' - include options from the given file. The file
-%%                             is processed using `file:script/2'.
-%% * `{include, ConfigFile, Vars}' - as above, but passing along a list of
-%%                        variable bindings to ConfigFile.
-%% * `{include_lib, ConfigFile}' - As above, but ConfigFile is named as with
-%%                 the `-include_lib(...)' directive in Erlang source code.
-%% * `{include_lib, ConfigFile, Vars}' - as above, but passing along a list of
-%%                        variable bindings to ConfigFile.
-%% * `{sys, SysConfigFile}' - Read an existing sys.config file. The environment
-%%        found in this file may be redefined by `env' and `set_env' entries
-%%        (see below).
-%% * `{env, {App, {K,V}}}' - Environment variables for the `sys.config'
-%%        file. `setup_gen' will merge all `env' entries, where later entries
-%%        replace earlier entries (based on the environment variable name).
-%% * `{set_env, {App, {KeyPath, V}}}' - Modifies existing environment
-%%        structures, where `KeyPath' is a list of names (top name must be
-%%        an atom) describing a path in a tree structure, where each node
-%%        is either a `{Key, SubTree}' or a `{Key, Any, SubTree}' tuple. The
-%%        `set_env' function will continue into `SubTree' and either replace
-%%        the value representing the full `KeyPath' or create the remaining
-%%        subtree.
-%% * `{target, Dir}' - Where to produce the generated files. The files will
-%%        end up in `Dir/releases/Vsn/'. If a `reltool.config' file is used,
-%%        the `{target_dir, D}' option will be translated into `{target,D}'.
-%% * `{vsn, Vsn}' - System version, used to determine where to generate the
-%%        files (see `target' above).
-%% * `{root, RootDir}' - Where to look for applications. Normally, `RootDir'
-%%        should represent either `RootDir/lib/*/ebin', or `RootDir/*/ebin',
-%%        but if the option `{wild_roots,true}' is given, it can be either
-%%        an "ebin" directory, or any parent directory to "ebin" directories.
-%%        Multiple `root' options can be given. If `target' is not given
-%%        "boot variables" will be generated for each root directory in turn,
-%%        named `V1 ... Vn', then generating a relocatable boot script.
-%% * `{pa, Path}' - Prepends `Path' to the code path. Multiple `pa' options
-%%        can be given.
-%% * `{pz, Path}' - Appends `Path' to the code path. Multiple `pz' options
-%%        can be given.
-%% * `{install, true|false}' - Tells setup whether to also build "install"
-%%        scripts and config files. An install script contains the same
-%%        applications as the normal script, but only loads them, starting
-%%        only the `setup' application. This allows a system to be installed
-%%        using "setup hooks", while having all the target system code
-%%        and environment available. An "install.config" file is also created,
-%%        which, if a `{nodes, Ns}' option is given, also configures Erlang
-%%        to wait for all given nodes, and then start the `setup' application
-%%        on the first node.
-%% * `{start_setup, true|false}' - Tells whether setup should be started
-%%        automatically. The default is `true' (as it should be). The best way
-%%        to include setup, but not start it, would be to add `{setup, load}' to
-%%        the `apps' list.
-%% * `{verbose, true|false}' - (Default: `false') Turns on verbose printouts.
-%%
-%% == Application entries ==
-%%
-%% Applications can be represented in a number of different ways:
-%% * `AppName::atom()' - `setup' will search for the latest version
-%%       along the current code path.
-%% * `{App::atom(), Vsn::latest|list()}' - where `Vsn' is an explicit version
-%%       identifying the application. `latest' instructs `setup' to pick the
-%%       latest version, if several versions can be found along the path.
-%% * `{App::atom(), Type::atom()}' - where
-%%     `Type::permanent|temporary|transient|load' is the application start
-%%     type (or, in the case of 'load', no start at all).
-%% * `{App, Vsn, Type}' - see `App', `Vsn' and `Type' above
-%% * `{App, Vsn, Incl}' - where `Incl' is a list of included applications.
-%% * `{App, Vsn, Type, Incl}'
-%%
-%% == Command-line options ==
-%%
-%% The following options can be given on the command line of `setup_gen':
-%% * `-target Dir' - Equivalent to `{target, Dir}'
-%% * `-name Name'  - Equivalent to `{name, Name}'
-%% * `-root Dir'   - Equivalent to `{root, Dir}'
-%% * `-out Dir'    - Equivalent to `{outdir, Dir}'
-%% * `-relconf F'  - Equivalent to `{relconf, F}'
-%% * `-conf F'     - Equivalent to `{conf, F}'
-%% * `-install'    - Equivalent to `{install, true}'
-%% * `-sys F'      - Equivalent to `{sys, F}'
-%% * `-vsn V'      - Equivalent to `{vsn, V}'
-%% * `-pa Dir'     - Equivalent to `{pa, Dir}'
-%% * `-pz Dir'     - Equivalent to `{pa, Dir}'
-%% * `-v'          - Equivalent to `{verbose, true}'
-%%
-%% == Config File evaluation ==
-%%
-%% `setup' uses a customized version of `file:script()'. The return value
-%% from the script will be treated as a list of instructions to `setup'.
-%% Currently, a pseudo-local function, `b()' allows the script to inspect
-%% the current variable bindings, and using instructions like
-%% `{include, ConfigFile, Vars}', variables can be passed along to helper
-%% scripts. Using the pattern `{include, ConfigFile, {Key, Value}|b()}',
-%% all current variables can be passed to the helper script. Note that
-%% `setup' may override the values of variables `Name', `SCRIPT', `CWD'
-%% and `OPTIONS'. Specifically, these variables are bound to:
-%%
-%% * `Name': the name of the system being installed
-%% * `SCRIPT': the (absolute) name of the script currently being evaluated
-%% * `CWD': the current working directory when setup_gen was invoked
-%% * `OPTIONS': the options passed to the setup_gen script
-%%
-%% The following local functions are handled by the script evaluator:
-%%
-%% * `b() -> Bindings'
-%% * `eval(File) -> {ok, Result} | {error, Reason}'
-%% * `eval(File, Vars) -> {ok, Result} | {error, Reason}'
-%% * `eval_lib(File) -> {ok, Result} | {error, Reason}'
-%% * `eval_lib(File, Vars) -> {ok, Result} | {error, Reason}'
-%%
-%% The `eval/1,2' and `eval_lib/1,2' functions work like the
-%% `include' and `include_lib' instructions above, except the result is
-%% returned as a normal function return value rather than being embedded
-%% into the `setup' data. Essentially, they work like `file:script()', but
-%% with the variable bindings expected by a `setup' script and these local
-%% functions supported.
-%% @end
-%%
-run(Options) ->
-    case lists:keyfind(verbose, 1, Options) of
-        {_, true} -> put(verbose, true);
-        _ -> ignore
-    end,
-    setup_lib:determine_if_escript(),
-    ?if_verbose(io:fwrite("Options = ~p~n", Options)),
-    Config = read_config(Options),
-    ?if_verbose(io:fwrite("Config = ~p~n", Config)),
-    FullOpts = insert_config(Config, Options),
-    ?if_verbose(io:fwrite("FullOpts = ~p~n", FullOpts)),
-    {Name, OutDir, RelDir, RelVsn, GenTarget} = name_and_target(FullOpts),
-    ensure_dir(RelDir),
-    Roots = roots(FullOpts),
-    ?if_verbose(io:fwrite("Roots = ~p~n", Roots)),
-    check_config(FullOpts),
-    Env = env_vars(FullOpts),
-    InstEnv = install_env(Env, FullOpts),
-    add_paths(Roots, FullOpts),
-    Apps0 = apps(FullOpts, Env),
-    Rel = {release, {Name, RelVsn}, {erts, erts_vsn()}, A || {A,_} <- Apps0},
-    ?if_verbose(io:fwrite("Rel: ~p~n", Rel)),
-    build_target_lib(GenTarget, OutDir, Apps0),
-    copy_erts(GenTarget, OutDir),
-    in_dir(RelDir,
-           fun() ->
-                   setup_lib:write_eterm("start.rel", Rel),
-                   make_boot("start", GenTarget, Roots),
-                   setup_lib:write_eterm("sys.config", Env),
-                   if_install(FullOpts,
-                              fun() ->
-                                      InstRel = make_install_rel(Rel),
-                                      setup_lib:write_eterm(
-                                        "install.rel", InstRel),
-                                      setup_lib:write_eterm(
-                                        "install.config", InstEnv),
-                                      make_boot("install", GenTarget, Roots)
-                              end, ok),
-                   setup_lib:write_eterm("setup_gen.eterm", FullOpts)
-           end).
-
-insert_config(Conf, Options) ->
-    lists:flatmap(
-      fun({conf, _} = C) ->
-              C|Conf;
-         (Other) ->
-              Other
-      end, Options).
-
-name_and_target(FullOpts) ->
-    Name = option(name, FullOpts),
-    case proplists:get_value(target, FullOpts, false) of
-        false ->
-            RelDir = option(outdir, FullOpts),
-            RelVsn = rel_vsn(RelDir, FullOpts),
-            {Name, RelDir, RelDir, RelVsn, false};
-        TargetDir ->
-            RelVsn = option(vsn, FullOpts),
-            RelDir = filename:join(TargetDir, "releases", RelVsn),
-            case filelib:is_dir(TargetDir) of
-                true  -> abort("Target directory exists: ~s~n", TargetDir);
-                false -> ok
-            end,
-            {Name, TargetDir, RelDir, RelVsn, true}
-    end.
-
-
-build_target_lib(false, _, _) ->
-    ok;
-build_target_lib(true, Root, Apps) ->
-    LibRoot = filename:join(Root, "lib"),
-    file:make_dir(LibRoot),
-    in_dir(LibRoot,
-           fun() ->
-                   lists:foreach(
-                     fun({A, D}) ->
-                             AppName = element(1, A),
-                             AppVsn = element(2, A),
-                             AppD = atom_to_list(AppName) ++ "-" ++ AppVsn,
-                             Dir = filename:dirname(D),
-                             copy_app(Dir, AppD)
-                     end, Apps)
-           end).
-
-copy_erts(false, _) ->
-    ok;
-copy_erts(true, Root) ->
-    {ok, ErlRoot} = init:get_argument(root),
-    Erts = filelib:wildcard(filename:join(ErlRoot, "erts-*")),
-    BaseName = filename:basename(Erts),
-    file:make_dir(filename:join(Root, BaseName)),
-    Cmd = "cp -r " ++ Erts ++ "/bin " ++ Root ++ "/" ++ BaseName ++ "/",
-    os:cmd(Cmd).
-
-
-copy_app(A0, To) ->
-    file:make_dir(To),
-    os:cmd("cp -r " ++ A0 ++ "/priv " ++ To),
-    os:cmd("cp -r " ++ A0 ++ "/ebin " ++ To).
-
-
-if_install(Options, F, Else) ->
-    case proplists:get_value(install,Options,false) of
-        true ->
-            F();
-        _ ->
-            Else
-    end.
-
-options("-target"       , D|T) -> {target,D}|options(T);
-options("-name"         , N|T) -> {name, N}|options(T);
-options("-root"         , D|T) -> {root, D}|options(T);
-options("-out"          , D|T) -> {outdir, D}|options(T);
-options("-relconf"      , F|T) -> {relconf, F}|options(T);
-options("-conf"         , F|T) -> {conf, F}|options(T);
-%% options("-target_subdir", D|T) -> {target_subdir, D}|options(T);
-options("-install")            -> {install, true};
-options("-install" | "-" ++ _|_ = T) -> {install, true}|options(T);
-options("-install"      , D|T) -> {install, mk_bool(D)}|options(T);
-options("-start_setup"  , D|T) -> {start_setup, mk_bool(D)}|options(T);
-options("-sys"          , D|T) -> {sys, D}|options(T);
-options("-vsn"          , D|T) -> {vsn, D}|options(T);
-options("-pa"           , D|T) -> {pa, D}|options(T);
-options("-pz"           , D|T) -> {pz, D}|options(T);
-options("-v"               |T) -> {verbose, true}|options(T);
-options("-V" ++ VarName, ExprStr | T) ->
-    Var = list_to_atom(VarName),
-    Term = parse_term(ExprStr),
-    {var, Var, Term}|options(T);
-options(_Other|_ = L) ->
-    abort("Unknown_option: ~p~n", L);
-options() ->
-    .
-
-mk_bool(T) when T=="true" ; T=="1" -> true;
-mk_bool(F) when F=="false"; F=="0" -> false;
-mk_bool(Other) ->
-    abort("Expected truth value (~p)~n", Other).
-
-parse_term(Str) ->
-    case erl_scan:string(Str) of
-        {ok, Ts, _} ->
-            case erl_parse:parse_term(ensure_dot(Ts)) of
-                {ok, T} ->
-                    T;
-                {error,_} = EParse ->
-                    abort(EParse, )
-            end;
-        {error,_,_} = EScan ->
-            abort(EScan, )
-    end.
-
-ensure_dot(Ts) ->
-    case lists:reverse(Ts) of
-        {dot,_}|_ ->
-            Ts;
-        Rev ->
-            lists:reverse({dot,1}|Rev)
-    end.
-
-%% target_dir(RelDir, Config) ->
-%%     D = case proplists:get_value(target_subdir, Config) of
-%%          undefined ->
-%%              RelDir;
-%%          Sub ->
-%%              filename:join(RelDir, Sub)
-%%      end,
-%%     ensure_dir(D),
-%%     D.
-
-ensure_dir(D) ->
-    case filelib:is_dir(D) of
-        true ->
-            ok;
-        false ->
-            case filelib:ensure_dir(D) of
-                ok ->
-                    case file:make_dir(D) of
-                        ok ->
-                            ok;
-                        MakeErr ->
-                            abort("Could not create ~s (~p)~n", D, MakeErr)
-                    end;
-                EnsureErr ->
-                    abort("Parent of ~s could not be created or is not "
-                          "writeable (~p)~n", D, EnsureErr)
-            end
-    end.
-
-read_config(Opts) ->
-    case lists:keyfind(conf, 1, Opts) of
-        false ->
-            read_rel_config(Opts);
-        {_, F} ->
-            Name = option(name, Opts),
-            setup:read_config_script(F, Name, Opts)
-    end.
-
-read_rel_config(Opts) ->
-    case lists:keyfind(relconf, 1, Opts) of
-        {relconf, F} ->
-            Name = option(name, Opts),
-            case file:consult(F) of
-                {ok, Conf} ->
-                    ?if_verbose(io:fwrite("Relconf = ~p~n", Conf)),
-                    SysConf = option(sys, Conf),
-                    LibDirs = option(lib_dirs, SysConf),
-                    TargetOpt = rel_conf_target_dir(Conf, Opts),
-                    case {V,As} || {rel,N,V,As} <- SysConf,
-                                N == Name of
-                         ->
-                            abort("No matching 'rel' (~w) in ~s~n", Name, F);
-                        {V,Apps} ->
-                            TargetOpt ++
-                                {vsn, V},
-                                 {apps, Apps} | {root, D} || D <- LibDirs
-                    end;
-                Error ->
-                    abort("Error reading relconf ~s:~n"
-                          "~p~n", F, Error)
-            end;
-        false ->
-            abort("No usable config file~n", )
-    end.
-
-rel_conf_target_dir(Conf, Opts) ->
-    case lists:keyfind(target, 1, Opts) of
-        {_, _} ->
-            %% The 'target' option overrides whatever is in the relconf
-            ;
-        false ->
-            case lists:keyfind(target_dir, 1, Conf) of
-                false ->
-                    ;
-                {_, TargetDir} ->
-                    {target, TargetDir}
-            end
-    end.
-
-roots(Opts) ->
-    R || {root, R} <- Opts.
-
-check_config(Conf) ->
-    _ = mandatory(K, Conf) || K <- apps,
-    ok.
-
-option(K, Opts) ->
-    case lists:keyfind(K, 1, Opts) of
-        {_, V} ->
-            V;
-        false ->
-            abort("Mandatory: -~s~n", atom_to_list(K))
-    end.
-
-env_vars(Options) ->
-    Env0 = case proplists:get_value(sys, Options) of
-               undefined ->
-                   ;
-               Sys ->
-                   case file:consult(Sys) of
-                       {ok, E} ->
-                           E;
-                       {error, Reason} ->
-                           abort("Error reading ~s:~n"
-                                 "~p~n", Sys, Reason)
-                   end
-           end,
-    SetupEnv = if_install(Options, fun() -> {env, {setup,
-                                                     {conf,Options}}}
-                                   end, ),
-    lists:foldl(fun merge_env/2,
-                Env0, {K,E} || {K, E} <- Options ++ SetupEnv,
-                                K == env orelse K == set_env).
-
-install_env(Env, Options) ->
-    Dist =
-        case proplists:get_value(nodes, Options, ) of
-              -> ;
-            _ -> ;
-            _,_|_ = Nodes ->
-                {sync_nodes_mandatory, Nodes},
-                 {sync_nodes_timeout, infinity},
-                 {distributed, {setup, hd(Nodes)}}
-        end,
-    case lists:keyfind(kernel, 1, Env) of
-        false ->
-            {kernel, Dist} | Env;
-        {_, KEnv} ->
-            Env1 = Dist ++
-                E || {K,_} = E <- KEnv,
-                      not lists:member(K, sync_nodes_optional,
-                                           sync_nodes_mandatory,
-                                           sync_nodes_timeout,
-                                           distributed),
-            lists:keyreplace(kernel, 1, Env, {kernel, Env1})
-    end.
-
-merge_env({env, E}, Env) ->
-    lists:foldl(
-      fun({App, AEnv}, Acc) ->
-              case lists:keyfind(App, 1, Env) of
-                  false ->
-                      Acc ++ {App, AEnv};
-                  {_, AEnv1} ->
-                      New = {App, lists:foldl(
-                                    fun({K,V}, Acc1) ->
-                                            lists:keystore(K,1,Acc1,{K,V});
-                                       ({K,W,V}, Acc1) ->
-                                            lists:keystore(K,1,Acc1,{K,W,V})
-                                    end, AEnv1, AEnv)},
-                      lists:keyreplace(App, 1, Acc, New)
-              end
-      end, Env, E);
-merge_env({set_env, E}, Env) ->
-    lists:foldl(
-      fun({App, AEnv}, Acc) ->
-              case lists:keyfind(App, 1, Env) of
-                  false ->
-                      Acc ++ {App, merge_set_env(AEnv, )};
-                  {_, AEnv1} ->
-                      New = {App, merge_set_env(AEnv, AEnv1)},
-                      lists:keyreplace(App, 1, Acc, New)
-              end
-      end, Env, E).
-
-merge_set_env(E, E0) ->
-    lists:foldl(
-      fun({K, V}, Acc) when is_atom(K) ->
-              lists:keystore(K, 1, Acc, {K, V});
-         ({H|T, V}, Acc) ->
-              case lists:keyfind(H, 1, Acc) of
-                  false ->
-                      Acc ++ {H, mktree(T, V)};
-                  {_, Tree} ->
-                      lists:keyreplace(H, 1, Acc, {H, into_tree(T, Tree, V)});
-                  {_, V1, Tree} ->
-                      lists:keyreplace(
-                        H, 1, Acc, {H, V1, into_tree(T, Tree, V)})
-              end;
-         ({, _}, Acc) ->
-              %% allow, but ignore
-              Acc
-      end, E0, E).
-
-mktree(K, V) ->
-    {K, V};
-mktree(H|T, V) ->
-    {H, mktree(T, V)}.
-
-into_tree(K, T0, V) ->
-    lists:keystore(K, 1, T0, {K, V});
-into_tree(H|T = L, T0, V) when is_list(T0) ->
-    case lists:keyfind(H, 1, T0) of
-        false ->
-            T0 ++ mktree(L, V);
-        {_, T1} ->
-            lists:keystore(H, 1, T0, {H, into_tree(T, T1, V)});
-        {_, V1, T1} ->
-            lists:keystore(H, 1, T0, {H, V1, into_tree(T, T1, V)})
-    end;
-into_tree(_|_ = L, _, V) ->
-    mktree(L, V).
-
-
-mandatory(K, Conf) ->
-    case lists:keymember(K, 1, Conf) of
-        false ->
-            abort("missing mandatory config item: ~p~n", K);
-        true ->
-            ok
-    end.
-
-in_dir(D, F) ->
-    {ok, Old} = file:get_cwd(),
-    try file:set_cwd(D) of
-        ok ->
-            ?if_verbose(io:fwrite("entering directory ~s~n", D)),
-            F();
-        Error ->
-            abort("Error entering rel dir (~p): ~p~n", D,Error)
-    after
-        ok = file:set_cwd(Old)
-    end.
-
--define(is_type(T), T==permanent;T==temporary;T==transient;T==load).
-
-apps(Options, Env) ->
-    %% Apps0 = proplists:get_value(apps, Options, )
-    %%     ++ lists:concat(proplists:get_all_values(add_apps, Options)),
-    {AddApps, RemoveApps} = add_remove_apps(Options, Env),
-    Apps0 = remove_apps(RemoveApps,
-                        proplists:get_value(apps, Options, ) ++ AddApps),
-    Apps1 = trim_duplicates(
-              if_install(Options,
-                         fun() ->
-                                 ensure_setup(Apps0)
-                         end, Apps0)),
-    AppNames = app_names(Apps1),
-    ?if_verbose(io:fwrite("Apps1 = ~p~n", Apps1)),
-    AppVsns = lists:flatmap(
-                fun(A) when is_atom(A) ->
-                        {V,D} = app_vsn(A),
-                        {{A, V}, D};
-                   ({A,V}) when is_list(V) ->
-                        {V1,D} = app_vsn(A, V),
-                        {{A, V1}, D};
-                   ({A,Type}) when ?is_type(Type) ->
-                        {V1,D} = app_vsn(A),
-                        {{A, V1, Type}, D};
-                   ({A,V,Type}) when ?is_type(Type) ->
-                        {V1,D} = app_vsn(A, V),
-                        {{A, V1, Type}, D};
-                   ({A,V,Incl}) when is_list(Incl) ->
-                        {V1, D} = app_vsn(A, V),
-                        expand_included(Incl, AppNames)
-                            ++ {{A, V1, Incl}, D};
-                   ({A,V,Type,Incl}) when ?is_type(Type) ->
-                        {V1, D} = app_vsn(A, V),
-                        expand_included(Incl, AppNames)
-                            ++ {{A, V1, Type, Incl}, D}
-                end, sort_apps(Options, Apps1)),
-    ?if_verbose(io:fwrite("AppVsns = ~p~n", AppVsns)),
-    %% setup_is_load_only(replace_versions(AppVsns, Apps1)).
-    case proplists:get_value(start_setup, Options, true) of
-        true -> AppVsns;
-        false ->
-            setup_is_load_only(AppVsns)
-    end.
-
-add_remove_apps(Options, _Env) ->
-    lists:foldl(
-      fun({add_apps, As}, {Incl, Excl}) ->
-              {add_to_set(As, Incl), del_from_set(As, Excl)};
-         ({remove_apps, As}, {Incl, Excl}) ->
-              {del_from_set(As, Incl), add_to_set(app_names(As), Excl)};
-         (_, Acc) ->
-              Acc
-      end, {, }, Options).
-
-sort_apps(Options, Apps) ->
-    lists:foldl(fun({sort_app, A, Before}, Acc) ->
-                        case is_in_set(A, Acc) of
-                            {true, App} ->
-                                insert_before(Acc -- App, App,
-                                              mk_set(Before));
-                            false ->
-                                abort("Cannot re-sort ~p - not found~n", A)
-                        end;
-                   (_, Acc) ->
-                        Acc
-                end, Apps, Options).
-
-insert_before(H|T, App, Before) ->
-    case is_in_set(H, Before) of
-        {true, _} ->
-            App, H|T;
-        false ->
-            H|insert_before(T, App, Before)
-    end.
-
-add_to_set(As, Set) ->
-    lists:foldl(fun(A, Acc) ->
-                        case is_in_set(A, Acc) of
-                            {true, Prev} ->
-                                lists:delete(Prev, Acc) ++ A;
-                            false ->
-                                Acc ++ A
-                        end
-                end, Set, As).
-
-del_from_set(As, Set) ->
-    lists:foldl(fun(A, Acc) ->
-                        case is_in_set(A, Acc) of
-                            {true, Prev} ->
-                                lists:delete(Prev, Acc);
-                            false ->
-                                Acc
-                        end
-                end, Set, As).
-
-%% ensure that this is a 'set' (well, at least a list)
-mk_set(Set) when is_list(Set) ->
-    Set;
-mk_set(Entry) ->
-    Entry.
-
-is_in_set(Entry, Set) ->
-    A = if is_tuple(Entry) -> element(1, Entry);
-           is_atom(Entry)  -> Entry
-        end,
-    name_in_set(A, Set).
-
-app_name(A) when is_atom(A) -> A;
-app_name(T) when is_tuple(T) -> element(1, T).
-
-app_names(As) ->
-    app_name(A) || A <- As.
-
-name_in_set(A, A|_) -> {true, A};
-name_in_set(A, H|_) when element(1,H) == A -> {true, H};
-name_in_set(A, _|T) ->
-    name_in_set(A, T);
-name_in_set(_, ) ->
-    false.
-
-
-remove_apps(Remove, Apps) ->
-    lists:filter(
-      fun(Entry) ->
-              A = case Entry of
-                      Am when is_atom(Am) -> Am;
-                      T when is_tuple(T)  -> element(1,T)
-                  end,
-              not lists:member(A, Remove)
-      end, Apps).
-
-
-
-trim_duplicates(A|As0) when is_atom(A) ->
-    As1 = Ax || Ax <- As0, Ax =/= A,
-    case lists:keymember(A, 1, As0) of
-        false ->
-            A|trim_duplicates(As1);
-        true ->
-            %% a more well-defined entry exists; use that one.
-            trim_duplicates(As1)
-    end;
-trim_duplicates(At|As0) when is_tuple(At) ->
-    %% Remove all exact duplicates
-    As1 = Ax || Ax <- As0, Ax =/= At,
-    %% If other detailed entries (though not duplicates) exist, we should
-    %% perhaps try to combine them. For now, let's just abort.
-    case Ay || Ay <- As1, element(1,Ay) == element(1,At) of
-         ->
-            At|trim_duplicates(As0);
-        _|_ = Duplicates ->
-            abort("Conflicting app entries: ~p~n", At|Duplicates)
-    end;
-trim_duplicates() ->
-    .
-
-
-expand_included(Incl, AppNames) ->
-    R = case Incl -- AppNames of
-             ->
-                ;
-            Implicit ->
-                {A, app_vsn(A), load} || A <- Implicit
-        end,
-    ?if_verbose(io:fwrite("expand_included(~p, ~p) -> ~p~n",
-                          Incl, AppNames, R)),
-    R.
-
-ensure_setup(setup|_ = As) -> As;
-ensure_setup(A|_ = As) when element(1,A) == setup -> As;
-ensure_setup(H|T) -> H|ensure_setup(T);
-ensure_setup() ->
-    setup.
-
-setup_is_load_only(Apps) ->
-    lists:map(fun({{setup,V}, D}) ->
-                      {{setup,V,load}, D};
-                 (A) ->
-                      A
-              end, Apps).
-
-add_paths(Roots, Opts) ->
-    APaths = proplists:get_all_values(pa, Opts),
-    _ =  true = code:add_patha(P) || P <- APaths ,
-
-    ZPaths = proplists:get_all_values(pz, Opts),
-    _ =  true = code:add_pathz(P) || P <- ZPaths ,
-
-    Paths = case proplists:get_value(wild_roots, Opts, false) of
-                true ->
-                    lists:foldl(fun(R, Acc) ->
-                                        expand_root(R, Acc)
-                                end, , Roots);
-                false ->
-                    lists:concat(
-                      lists:map(fun(R) ->
-                                        case filelib:wildcard(
-                                               filename:join(R, "lib/*/ebin")) of
-                                             ->
-                                                filelib:wildcard(
-                                                  filename:join(R, "*/ebin"));
-                                            Ds ->
-                                                Ds
-                                        end
-                                end, Roots))
-            end,
-    ?if_verbose(io:fwrite("Paths = ~p~n", Paths)),
-    Res = code:set_path(Paths ++ (code:get_path() -- Paths)),
-    %% Res = code:add_pathsa(Paths -- code:get_path()),
-    ?if_verbose(io:fwrite("add path Res = ~p~n", Res)).
-
-expand_root(R, Acc) ->
-    case filename:basename(R) of
-        "ebin" ->
-            R|Acc;
-        _ ->
-            case file:list_dir(R) of
-                {ok, Fs} ->
-                    lists:foldl(fun(F, Acc1) ->
-                                        expand_root(filename:join(R, F), Acc1)
-                                end, Acc, Fs);
-                {error,enotdir} ->
-                    Acc;
-                {error,_} = E ->
-                    ?if_verbose(io:fwrite("warning: ~p (~s)~n", E, R)),
-                    Acc
-            end
-    end.
-
-rel_vsn(RelDir, Options) ->
-    case proplists:get_value(vsn, Options) of
-        undefined ->
-            Dir =
-                case RelDir of
-                    "." ->
-                        {ok,Cwd} = file:get_cwd(),
-                        Cwd;
-                    D ->
-                        D
-                end,
-            filename:basename(Dir);
-        V when is_list(V) ->
-            V;
-        Other ->
-            abort("Invalid release version ~p~n", Other)
-    end.
-
-erts_vsn() ->
-    erlang:system_info(version).
-
-app_vsn(A) ->
-    app_vsn(A, latest).
-    %% AName = if is_atom(A) -> A;
-    %%            true -> element(1, A)
-    %%         end,
-    %% D = code:lib_dir(AName),
-    %% AppFile = filename:join(D, "ebin/" ++ atom_to_list(AName) ++ ".app"),
-    %% case file:consult(AppFile) of
-    %%     {ok, {application, _, Opts}} ->
-    %%         V = proplists:get_value(vsn, Opts),
-    %%         ?if_verbose(io:fwrite("app_vsn(~p) -> ~p~n", A,V)),
-    %%         V;
-    %%     Other ->
-    %%         abort("Oops reading .app file (~p): ~p~n", AppFile, Other)
-    %% end.
-
-app_vsn(A, V) ->
-    AppStr = atom_to_list(A),
-    Path = code:get_path(),
-    Found = D || D <- Path, is_app(AppStr, D),
-    Sorted = setup_lib:sort_vsns(lists:usort(Found), AppStr),
-    ?if_verbose(io:fwrite("Sorted = ~p~n", Sorted)),
-    match_app_vsn(Sorted, V, AppStr).
-
-match_app_vsn(Vsns, latest, App) ->
-    %% element(1, lists:last(Vsns));
-    case Vsns of
-         ->
-            abort("No version of ~s found~n", App);
-        _|_ ->
-            lists:last(Vsns)
-    end;
-match_app_vsn(Vsns, V, App) when is_list(V) ->
-    case Pair || {V1, _} = Pair <- Vsns,
-                V == V1 of
-        FoundV ->
-            FoundV;
-         ->
-            abort("Cannot find version ~s of ~s~n", V, App)
-    end.
-
-
-is_app(A, D) ->
-    case re:run(D, A ++ "^/*/ebin\$") of
-        {match, _} ->
-            true;
-        nomatch ->
-            false
-    end.
-
-%% replace_versions(App|Apps, H|T) ->
-%%     A = element(1, App),
-%%     V = element(2, App),
-%%     Res =
-%%         if is_atom(H) ->
-%%                 A = H,  % assertion
-%%                 {A, V};
-%%            true ->
-%%                 A = element(1, H), % assertion
-%%                 setelement(2, H, V)
-%%         end,
-%%     Res | replace_versions(Apps, T);
-%% replace_versions(, ) ->
-%%     .
-
-make_boot(Rel, GenTarget, Roots) ->
-    Path = path(Roots),
-    Vars =
-        if GenTarget -> ;
-           true ->
-                {Vs, _} = lists:mapfoldl(
-                            fun(R, N) ->
-                                    V = var_name(N),
-                                    {{V, R}, N+1}
-                            end, 1, Roots),
-                Vs
-        end,
-    ?if_verbose(io:fwrite("Path = ~p~n", Path)),
-    Opts = if GenTarget -> no_module_tests;
-              true      -> no_module_tests, local, {variables, Vars}
-           end,
-    Res = systools:make_script(Rel, {path, path(Roots)}|Opts),
-    ?if_verbose(io:fwrite("make_script() -> ~p~n", Res)).
-
-
-make_install_rel({release, R, Erts, Apps}) ->
-    Apps1 =
-        lists:map(
-          fun({setup,V,load}) ->
-                  {setup, V};
-             (A) ->
-                  case lists:member(element(1,A), stdlib,kernel,sasl) of
-                      true ->
-                          A;
-                      false ->
-                          case A of
-                              {Nm,Vsn} ->
-                                  {Nm,Vsn,load};
-                              {Nm,Vsn,Inc} when is_list(Inc) ->
-                                  {Nm,Vsn,load,Inc};
-                              _ ->
-                                  A
-                          end
-                  end
-          end, Apps),
-    %% Apps2 = case app_vsn(setup) of
-    %%          undefined ->
-    %%              Apps1;
-    %%          V ->
-    %%              Apps1 ++ {setup, V}
-    %%      end,
-    {release, R, Erts, Apps1}.
-
-
-path(Roots) ->
-    filename:join(R, "lib/*/ebin") || R <- Roots.
-
-
-var_name(N) ->
-    "V" ++ integer_to_list(N).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/setup/src/setup_lib.erl Deleted

@@ -1,192 +0,0 @@
-%% -*- erlang -*-
-%%==============================================================================
-%% Copyright 2014 Ulf Wiger
-%%
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%% http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%%==============================================================================
--module(setup_lib).
-
--export(is_string/1,
-	 sort_vsns/2,
-	 compare_vsns/2,
-	 releases_dir/0,
-	 write_eterm/2,
-	 write_script/2,
-	 is_escript/0,
-	 determine_if_escript/0,
-	 abort/2, help/0).
-
-is_string(L) ->
-    lists:all(fun(X) when 0 =< X, X =< 255 -> true;
-                 (_) -> false
-              end, L).
-
-write_eterm(F, Term) ->
-    case file:open(F, write) of
-        {ok, Fd} ->
-            try
-                io:fwrite(Fd, "~p.~n", Term)
-            after
-                ok = file:close(Fd)
-            end;
-        Error ->
-            abort("Error writing file (~s): ~p~n", F, Error)
-    end.
-
-write_script(F, Script) ->
-    case file:open(F, write) of
-        {ok, Fd} ->
-            try
-                io:fwrite(Fd, "~p.~n", Term) || Term <- Script
-            after
-                ok = file:close(Fd)
-            end;
-        Error ->
-            abort("Error writing file (~s): ~p~n", F, Error)
-    end.
-
-abort(Fmt, Args) ->
-    E = io_lib:fwrite(Fmt, Args),
-    case is_escript() of
-        true ->
-            io:fwrite(E),
-            help(),
-            halt(1);
-        _ ->
-            erlang:error(lists:flatten(E))
-    end.
-
-is_escript() ->
-    %% Slightly dirty, but at least we know that the kernel app is loaded
-    case application:get_env(kernel, '$setup_is_escript') of
-	{ok, Flag} ->
-	    Flag;
-	_ ->
-	    false
-    end.
-
-determine_if_escript() ->
-    %% Assumes it's running in the escript main process, if running escript
-    IsEscript = initial_is_escript_(),
-    application:set_env(kernel, '$setup_is_escript', IsEscript).
-
-initial_is_escript_() ->
-    {_, ST} = process_info(self(), current_stacktrace),
-     =/= 1 || {escript,run,_,_} <- ST.
-
-
-sort_vsns(Dirs, AppStr) ->
-    AppF = AppStr ++ ".app",
-    lists:sort(fun({Va,_}, {Vb,_}) ->
-                       compare_vsns(Va, Vb)
-               end,
-               lists:foldr(
-                 fun(D, Acc) ->
-                         case file:consult(
-                                filename:join(D, AppF)) of
-                             {ok, {_, _, Attrs}} ->
-                                 {_, Vsn} = lists:keyfind(vsn, 1, Attrs),
-                                 {Vsn, D} | Acc;
-                             _ ->
-                                 Acc
-                         end
-                 end, , Dirs)).
-
-compare_vsns(V1, V2) ->
-    ToS = fun(V) ->
-                  pad_x(X) || X <- string:tokens(V, ".")
-          end,
-    ToS(V1) < ToS(V2).
-
-pad_x(S) ->
-    lists:duplicate(30 - length(S), $0) ++ flip(C) || C <- S.
-
-flip(C) when $a =< C, C =< $z -> $A + (C - $a);
-flip(C) when $A =< C, C =< $Z -> $a + (C - $A);
-flip(C) -> C.
-
-%% Almost verbatim from release_handler:init/1
-releases_dir() ->
-    {ok, Root} = init:get_argument(root),
-    {CliDir, _Masters} = is_client(),
-    case application:get_env(sasl, releases_dir) of
-	undefined ->
-	    case os:getenv("RELDIR") of
-		R when R==false; R== ->
-		    if CliDir == false ->
-			    filename:join(Root, "releases");
-		       true ->
-			    filename:join(CliDir, "releases")
-		    end;
-		RELDIR ->
-		    RELDIR
-	    end;
-	{ok, Dir} ->
-	    Dir
-    end.
-
-%% Copy-pasted from release_handler.erl
-is_client() ->
-    case application:get_env(masters) of
-	{ok, Masters} ->
-	    Alive = is_alive(),
-	    case atom_list(Masters) of
-		true when Alive == true ->
-		    case application:get_env(client_directory) of
-			{ok, ClientDir} ->
-			    case int_list(ClientDir) of
-				true ->
-				    {ClientDir, Masters};
-				_ ->
-				    exit({bad_parameter, client_directory,
-					  ClientDir})
-			    end;
-			_ ->
-			    {false, false}
-		    end;
-		_ ->
-		    exit({bad_parameter, masters, Masters})
-	    end;
-	_ ->
-	    {false, false}
-    end.
-
-atom_list(A|T) when is_atom(A) -> atom_list(T);
-atom_list()                    -> true;
-atom_list(_)                     -> false.
-
-int_list(I|T) when is_integer(I) -> int_list(T);
-int_list()                       -> true;
-int_list(_)                        -> false.
-%% ... end copy-paste
-
-
-help() ->
-    io:fwrite(
-      "Usage: escript setup_gen.beam Name Conf Outdir Options~n"
-      "   or:~n"
-      "       escript setup_gen.beam Options~n~n"
-      "Name  : Name of release (for .rel file)~n"
-      "Conf  : Name of .conf file (file:script/2 format)~n"
-      "Outdir: Where to write generated files~n~n"
-      "-name Name : Name of release (for .rel file)~n"
-      "-root Dir  : Installation root directories"
-      " (multiple -root options allowed)~n"
-      "-conf F    : setup-style Conf file~n"
-      "-relconf F : RelTool-style config file~n"
-      "-out OutDir: Where to write generated files~n"
-      "-sys F     : Name of pre-existing sys.config file~n"
-      "-vsn V     : System version (otherwise derived from outdir)~n"
-      "-install B : B:: true|false - whether to create install boot script~n"
-      "-v         : Verbose - generate lots of output~n"
-      , ).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/setup/src/setup_srv.erl Deleted

@@ -1,64 +0,0 @@
-%% -*- mode: erlang; indent-tabs-mode: nil; -*-
-%%=============================================================================
-%% Copyright 2014-2016 Ulf Wiger
-%%
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%% http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%%=============================================================================
--module(setup_srv).
--behaviour(gen_server).
-
--export(start_link/0).
--export(run_setup/0).
-
--export(init/1,
-         handle_call/3,
-         handle_cast/2,
-         handle_info/2,
-         terminate/2,
-         code_change/3).
-
-start_link() ->
-    gen_server:start_link({local, ?MODULE}, ?MODULE, , ).
-
-run_setup() ->
-    Timeout = setup:get_env(setup, run_timeout, infinity),
-    gen_server:call(?MODULE, run_setup, Timeout).
-
-init(_) ->
-    {ok, }.
-
-handle_call(run_setup, _From, S) ->
-    Mode = setup:mode(),
-    setup:run_setup(),
-    case setup:get_env(setup, stop_when_done, false) of
-        true when Mode =/= normal ->
-            spawn_link(fun stop_node/0);
-        _ ->
-            ok
-    end,
-    {reply, ok, S};
-handle_call(_, _, S) ->
-    {reply, {error, badarg}, S}.
-
-handle_cast(_, S) -> {noreply, S}.
-handle_info(_, S) -> {noreply, S}.
-terminate(_  , _) -> ok.
-
-code_change(_FromVsn, S, _Extra) ->
-    {ok, S}.
-
-stop_node() ->
-    StopDelay = setup:get_env(setup, stop_delay, 5000),
-    error_logger:info_msg("Setup stopping...(Delay=~p)~n", StopDelay),
-    timer:sleep(StopDelay),
-    rpc:eval_everywhere(init,stop,0).

osmo-diameter2gsup_0.1.1.tar.xz/_checkouts/setup/src/setup_sup.erl Deleted

@@ -1,28 +0,0 @@
-%% -*- mode: erlang; indent-tabs-mode: nil; -*-
-%%=============================================================================
-%% Copyright 2014-2016 Ulf Wiger
-%%
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%% http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%%=============================================================================
--module(setup_sup).
--behaviour(supervisor).
-
--export(start_link/0).
--export(init/1).
-
-start_link() ->
-    supervisor:start_link({local, ?MODULE}, ?MODULE, ).
-
-init(_) ->
-    {ok, {{one_for_one, 3, 10}, {setup_srv, {setup_srv, start_link, },
-                                  permanent, 2000, worker, setup_srv}}}.