PeerStreamer

/*

 *  Copyright (c) 2010 Luca Abeni

 *  Copyright (c) 2010 Csaba Kiraly

 *

 *  This is free software; see gpl-3.0.txt

 */

#include <stdlib.h>

#include <stdint.h>

#include <stdio.h>

#include <stdbool.h>

#include <string.h>

#include <getopt.h>

#include <signal.h>

#include <time.h>

#include <errno.h>

#include <math.h>

#ifndef NAN        //NAN is missing in some old math.h versions

#define NAN            (0.0/0.0)

#endif

#include <grapes_msg_types.h>

#include <net_helper.h>

#ifdef WIN32

#include <winsock2.h>

#endif

#include "net_helpers.h"

#include "loop.h"

#include "output.h"

#include "channel.h"

#include "topology.h"

#include "measures.h"

#include "streamer.h"

#ifndef EXTRAVERSION

#define EXTRAVERSION "Unknown"

#endif

static struct nodeID *my_sock;

const char *peername = NULL;

static const char *my_iface = NULL;

static int port = 6666;

static int srv_port = 0;

static const char *srv_ip = "";

static int period = 15;

static int chunks_per_second = 25;

static double capacity_override = NAN;

static int multiply = 3;

static int buff_size = 50;

static int outbuff_size = 50;

static const char *fname = "/dev/stdin";

static const char *output_config ="";

static bool loop_input = false;

static const char *net_helper_config = "";

static const char *topo_config = "";

unsigned char msgTypes[] = {MSG_TYPE_CHUNK,MSG_TYPE_SIGNALLING};

bool chunk_log = false;

static bool hrc = true;

static int number_offer_thread = -1;

static int randomize_start = 0;

int start_id = -1;

int end_id = -1;

int initial_id = -1;

extern int NEIGHBORHOOD_TARGET_SIZE;

extern uint64_t CB_SIZE_TIME;

extern double desired_bw;

extern double desired_rtt;

extern double alpha_target;

extern double topo_mem;

extern bool topo_out;

extern bool topo_in;

extern bool topo_keep_best;

extern bool topo_add_best;

#ifndef MONL

extern struct timeval print_tdiff;

extern struct timeval tstartdiff;

#endif

static void print_usage(int argc, char *argv[])

{

  fprintf (stderr,

    "Usage:%s [options]\n"

    "\n"

    "Peer options\n"

    "\t[-p port]: port of the remote peer to connect at during bootstrap.\n"

    "\t           Usually it is the source peer port.\n"

    "\t[-i IP]: IP address of the remote peer to connect at during bootstrap.\n"

    "\t         Usually it is the source peer IP\n"

    "\t[-C name]: set the channel name to use on the repository.\n"

    "\t           All peers should use the same channel name.\n"

    "\n"

    "\t[-b size]: set the peer Chunk Buffer size.\n"

    "\t           This is also the chunk trading window size.\n"

    "\t[-o size]: set the Output Buffer size.\n"

    "\t[-c thread]: set the number of signalling threads a peer can send per seconds.\n"

    "\t             Default: set it automatically via HRC.\n"

    "\t[-M peers]: neighbourhood target size.\n"

    "\t[-t config]: topology config.\n"

    "\t[-P port]: local UDP port to be used by the peer.\n"

    "\t[-I iface]: local netwok interface to be used by the peer.\n"

    "\t         Useful if the host has several interfaces/addresses.\n"

    "\t[-N name]: set the name of the peer.\n"

    "\t         This name will be used when publishing in the repository.\n"

    "\t[-n options]: pass configuration options to the net-helper\n"

    "\t[--chunk_log]: print a chunk level log on stderr\n"

    "\t[-F config]: configure the output module\n"

    "\t[-a alpha]: set the topology alpha value (from 0 to 100)\n"

    "\t[-r rtt]: set the RTT threshold (in ms) for desired neighbours\n"

    "\t[--desired_bw bw]: set the BW threshold (in bits/s) for desired neighbours. Use of K(ilo), M(ega) allowed, e.g 0.8M\n"

    "\t[--topo_mem p]: keep p (0..1) portion of peers between topology operations\n"

    "\t[--topo_out]: peers only choose out-neighbours\n"

    "\t[--topo_in]: peers only choose in-neighbours\n"

    "\t[--topo_bidir]: peers choose both in- and out-neighbours (bidir)\n"

    "\t[--topo_keep_best]: keep best peers, not random subset\n"

    "\t[--topo_add_best]: add best peers among desired ones, not random subset\n"

    "\n"

    "Special Source Peer options\n"

    "\t[-m chunks]: set the number of copies the source injects in the overlay.\n"

    "\t[-f filename]: name of the video stream file to transmit.\n"

    "\t[-l]: loop the video stream.\n"

    "\t[-S]: set initial chunk_id (source only).\n"

    "\t[-s]: set start_id from which to start output.\n"

    "\t[-e]: set end_id at which to end output.\n"

    "\n"

    "Special options\n"

    "\t[--randomize_start us]: random wait before starting [0..us] microseconds.\n"

    "\t[-v]: print version.\n"

    "\n"

    "NOTE: by deafult the peer will dump the received video on STDOUT in raw format\n"

    "      it can be played by your favourite player simply using a pipe\n"

    "      e.g., | cvlc /dev/stdin\n"

    "\n"

    "Examples:\n"

    "\n"

    "Start a source peer on port 6600:\n"

    "\n"

    "%s -l -f foreman.mpg -P 6600\n"

    "\n"

    "Start a peer connecting to the previous source, and using videolan as player:\n"

    "\n"

    "%s -i <sourceIP> -p <sourcePort> | cvlc /dev/stdin\n"

    "=======================================================\n", argv[0], argv[0], argv[0]

    );

  }

static double atod_kmg(const char *s) {

  double d;

  char *e;

  errno = 0;

  d = strtod(s, &e);

  if (errno) {

    fprintf(stderr, "Error parsing option: %s\n", s);

    exit(-1);

  }

  switch (*e) {

    case 'g':

    case 'G':

      d *= 1024;

    case 'm':

    case 'M':

      d *= 1024;

    case 'k':

    case 'K':

      d *= 1024;

    case 0:

      break;

    default:

      fprintf(stderr, "Error parsing option: %s\n", s);

      exit(-1);

  }

  return d;

}

static void cmdline_parse(int argc, char *argv[])

{

  int o;

  int option_index = 0;

  static struct option long_options[] = {

        {"chunk_log", no_argument, 0, 0},

        {"measure_start", required_argument, 0, 0},

        {"measure_every", required_argument, 0, 0},

        {"playout_limit", required_argument, 0, 0},

        {"randomize_start", required_argument, 0, 0},

        {"capacity_override", required_argument, 0, 0},

        {"desired_bw", required_argument, 0, 0},

        {"topo_mem", required_argument, 0, 0},

        {"topo_in", no_argument, 0, 0},

        {"topo_out", no_argument, 0, 0},

        {"topo_bidir", no_argument, 0, 0},

        {"topo_keep_best", no_argument, 0, 0},

        {"topo_add_best", no_argument, 0, 0},

        {0, 0, 0, 0}

  };

    while ((o = getopt_long (argc, argv, "r:a:b:o:c:p:i:P:I:f:F:m:lC:N:n:M:t:s:e:S:v",long_options, &option_index)) != -1) { //use this function to manage long options

    switch(o) {

      case 0: //for long options

        if( strcmp( "chunk_log", long_options[option_index].name ) == 0 ) { chunk_log = true; }

#ifndef MONL

        if( strcmp( "measure_start", long_options[option_index].name ) == 0 ) { tstartdiff.tv_sec = atoi(optarg); }

        if( strcmp( "measure_every", long_options[option_index].name ) == 0 ) { print_tdiff.tv_sec = atoi(optarg); }

#endif

        if( strcmp( "playout_limit", long_options[option_index].name ) == 0 ) { CB_SIZE_TIME = atoi(optarg); }

        if( strcmp( "randomize_start", long_options[option_index].name ) == 0 ) { randomize_start = atoi(optarg); }

        if( strcmp( "capacity_override", long_options[option_index].name ) == 0 ) { capacity_override = atod_kmg(optarg); }

        if( strcmp( "desired_bw", long_options[option_index].name ) == 0 ) { desired_bw = atod_kmg(optarg); }

        if( strcmp( "topo_mem", long_options[option_index].name ) == 0 ) { topo_mem = atof(optarg); }

        else if( strcmp( "topo_in", long_options[option_index].name ) == 0 ) { topo_in = true; topo_out = false; }

        else if( strcmp( "topo_out", long_options[option_index].name ) == 0 ) { topo_in = false; topo_out = true; }

        else if( strcmp( "topo_bidir", long_options[option_index].name ) == 0 ) { topo_in = true; topo_out = true; }

        else if( strcmp( "topo_keep_best", long_options[option_index].name ) == 0 ) { topo_keep_best = true; }

        else if( strcmp( "topo_add_best", long_options[option_index].name ) == 0 ) { topo_add_best = true; }

        break;

      case 'a':

        alpha_target = (double)atoi(optarg) / 100.0;

        break;

      case 'r':

        desired_rtt = (double)atoi(optarg) / 1000.0;

        break;

      case 'b':

        buff_size = atoi(optarg);

        break;

      case 'o':

        outbuff_size = atoi(optarg);

        break;

      case 'c':

        number_offer_thread = atoi(optarg);

        if (number_offer_thread >= 0)

                hrc = false;

        else

                hrc = true;

        break;

      case 'm':

        multiply = atoi(optarg);

        break;

      case 'p':

        srv_port = atoi(optarg);

        break;

      case 'i':

        srv_ip = strdup(optarg);

        break;

      case 'P':

        port =  atoi(optarg);

        break;

      case 'I':

        my_iface = strdup(optarg);

        break;

      case 'f':

        fname = strdup(optarg);

        break;

      case 'F':

        output_config = strdup(optarg);

        break;

      case 'l':

        loop_input = true;

        break;

      case 'C':

        channel_set_name(optarg);

        break;

      case 'n':

        net_helper_config = strdup(optarg);

        break;

      case 'N':

        peername = strdup(optarg);

        break;

      case 'M':

        NEIGHBORHOOD_TARGET_SIZE = atoi(optarg);

        break;

      case 't':

        topo_config = strdup(optarg);

        break;

      case 'S':

        initial_id = atoi(optarg);

        break;

      case 's':

        start_id = atoi(optarg);

        break;

      case 'e':

        end_id = atoi(optarg);

        break;

      case 'v':

        fprintf(stderr, "Version: %s\n", EXTRAVERSION);

            exit(0);

      default:

        fprintf(stderr, "Error: unknown option %c\n", o);

        print_usage(argc, argv);

        exit(-1);

    }

  }

  if (!channel_get_name()) {

    channel_set_name("generic");

  }

  if (argc <= 1) {

    print_usage(argc, argv);

    fprintf(stderr, "Trying to start a source with default parameters, reading from %s\n", fname);

  }

}

const struct nodeID *get_my_addr(void)

{

  return my_sock;

}

static void init_rand(const char * s)

{

  long i, l, x;

  struct timeval t;

  gettimeofday(&t, NULL);

  x = 1;

  l = strlen(s);

  for (i = 0; i < l; i++) {

    x *= s[i];

  }

  srand(t.tv_usec * t.tv_sec * x);

}

static struct nodeID *init(void)

{

  int i;

  struct nodeID *myID;

  char *my_addr;

  if (my_iface) {

    my_addr = iface_addr(my_iface);

  } else {

    my_addr = default_ip_addr();

  }

  if (my_addr == NULL) {

    fprintf(stderr, "Cannot find network interface %s\n", my_iface);

    return NULL;

  }

  for (i=0;i<2;i++)

          bind_msg_type(msgTypes[i]);

  myID = net_helper_init(my_addr, port, net_helper_config);

  if (myID == NULL) {

    fprintf(stderr, "Error creating my socket (%s:%d)!\n", my_addr, port);

    free(my_addr);

    return NULL;

  }

  free(my_addr);

  fprintf(stderr, "My network ID is: %s\n", node_addr(myID));

  init_rand(node_addr(myID));

  topologyInit(myID, topo_config);

  return myID;

}

void leave(int sig) {

  fprintf(stderr, "Received signal %d, exiting!\n", sig);

  end_measures();

  exit(sig);

}

// wait [0..max] microsec

static void random_wait(int max) {

    struct timespec t;

    uint64_t ms;

    ms = (rand()/(RAND_MAX + 1.0)) * max;

    t.tv_sec = ms / 1000000;

    t.tv_nsec = (ms % 1000000) * 1000;

    nanosleep(&t, NULL);

}

int main(int argc, char *argv[])

{

  (void) signal(SIGTERM,leave);

  (void) signal(SIGINT,leave);

  cmdline_parse(argc, argv);

  my_sock = init();

  if (my_sock == NULL) {

    fprintf(stderr, "Cannot initialize streamer, exiting!\n");

    return -1;

  }

  if (srv_port != 0) {

    struct nodeID *srv;

    //random wait a bit before starting

    if (randomize_start) random_wait(randomize_start);

    output_init(outbuff_size, output_config);

    srv = create_node(srv_ip, srv_port);

    if (srv == NULL) {

      fprintf(stderr, "Cannot resolve remote address %s:%d\n", srv_ip, srv_port);

      return -1;

    }

    topoAddNeighbour(srv, NULL, 0);

    loop(my_sock, period * 1000, buff_size, hrc, number_offer_thread);

  } else {

    source_loop(fname, my_sock, period * 1000, multiply, buff_size);

  }

  return 0;

}

int am_i_source()

{

  return (srv_port == 0);

}

int get_cb_size()

{

  return buff_size;

}

//capacity in bits/s, or NAN if unknown

double get_capacity()

{

  return capacity_override;

}