server.c

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <lo/lo.h>
#include <sys/types.h>
#include <math.h>
#include <sys/time.h>
#include <assert.h>


#include "config.h"
#include "server.h"
#include "layers.h"

extern double now;

void error(int num, const char *msg, const char *path) {
  printf("liblo server error %d in path %s: %s\n", num, path, msg);
}

int generic_handler(const char *path, const char *types, lo_arg **argv,
		    int argc, void *data, void *user_data) {
  int i;

  printf("path: <%s>\n", path);
  for (i=0; i<argc; i++) {
    printf("arg %d '%c' ", i, types[i]);
    lo_arg_pp(types[i], argv[i]);
    printf("\n");
  }
  printf("\n");

  return 1;
}

void parse_showargs(lo_arg **argv, int argc, t_showargs *args) {
  int dstblend = NSA;  // default is GL_ONE_MINUS_SRC_ALPHA
  int srcblend = SA;  // default is GL_SRC_ALPHA
  int blendeq = FA;

  double when = (double) argv[0]->i + ((double) argv[1]->i / 1000000.0);
#ifdef SUBLATENCY
  when -= SUBLATENCY;
#endif
  int poffset = 3;

  float cps = argv[2]->f;
  float dur = argv[3]->f;
  poffset = 4;
  debug("timing info: when, cps = %f\t%f\n", when, cps);

  char *words = (char *) argv[0+poffset];

  float r = argv[1+poffset]->f;
  float g = argv[2+poffset]->f;
  float b = argv[3+poffset]->f;
  float a = argv[4+poffset]->f;
  float x = argv[5+poffset]->f;
  float y = argv[6+poffset]->f;
  float z = argv[7+poffset]->f;
  float w = argv[8+poffset]->f;
  float rot_x = argv[9+poffset]->f;
  float rot_y = argv[10+poffset]->f;
  float rot_z = argv[11+poffset]->f;
  float origin_x = argv[12+poffset]->f;
  float origin_y = argv[13+poffset]->f;
  float origin_z = argv[14+poffset]->f;
  float width = argv[15+poffset]->f;
  float height = argv[16+poffset]->f;
  float speed = argv[17+poffset]->f;
  char *srcblend_s = (char *) argv[18+poffset];
  char *dstblend_s = (char *) argv[19+poffset];
  char *blendeq_s = (char *) argv[20+poffset];
  int level = argv[21+poffset]->i;

  if (argc > 22+poffset) {
    printf("show server unexpectedly received extra parameters, maybe update weltfrieden?\n");
  }

  switch(srcblend_s[0]) {
  case 'c':  srcblend = SC; break; // src color
  case 'a':  srcblend = SA; break; // src alpha
  case 'C': srcblend = DC; break; // dst color
  case 'A': srcblend = DA; break; // dst alpha
  case 'l': srcblend = CA; break; // const alpha -- mnemonic lightness?
  case 't': srcblend = CC; break; // const color -- mnemonic tint
  case 's': srcblend = SS; break; // src saturate
  case 'x': srcblend = NSA; break; // 1 - src alpha
  case 'y': srcblend =  NSC; break; // 1 - src color
  case 'X': srcblend = NDA; break; // 1 - dst alpha
  case 'Y': srcblend = NDC; break; // 1 - dst color
  };

  switch(dstblend_s[0]) {
  case 'c':  dstblend = SC; break; // src color
  case 'a':  dstblend = SA; break; // src alpha
  case 'C': dstblend = DC; break; // dst color
  case 'A': dstblend = DA; break; // dst alpha
  case 'l': dstblend = CA; break; // const alpha -- mnemonic lightness?
  case 't': dstblend = CC; break; // const color -- mnemonic tint
  case 's': dstblend = SS; break; // src saturate
  case 'x': dstblend = NSA; break; // 1 - src alpha
  case 'y': dstblend =  NSC; break; // 1 - src color
  case 'X': dstblend = NDA; break; // 1 - dst alpha
  case 'Y': dstblend = NDC; break; // 1 - dst color
  };

  switch(blendeq_s[0]) {
  case 'a':  blendeq = FA; break; // src color
  case 's':  blendeq = FS; break; // src alpha
  case 'r': blendeq = FRS; break; // dst color
  case 'n': blendeq = FMIN; break; // dst alpha
  case 'x': blendeq = FMAX; break; // const alpha -- mnemonic lightness?
  };


  args->when = when;
  args->cps = cps;
  args->dur = dur;
  args->words = words;
  args->r = r;
  args->g = g;
  args->b = b;
  args->a = a;
  args->x = x;
  args->y = y;
  args->z = z;
  args->w = w;
  args->width = width;
  args->height = height;
  args->speed = speed;
  args->srcblend = srcblend;
  args->dstblend = dstblend;
  args->blendeq = blendeq;
  args->level = level;
  args->rot_x = rot_x;
  args->rot_y = rot_y;
  args->rot_z = rot_z;
  args->origin_x = origin_x;
  args->origin_y = origin_y;
  args->origin_z = origin_z;
  return;
}

int shader_handler(const char *path, const char *types, lo_arg **argv,
                 int argc, void *data, void *user_data) {
  t_showargs args;

  parse_showargs(argv, argc, &args);

  if (strlen(args.words) > 0) {
    debug("[server:new] %s", args.words);
    layers_add(args);
  }
  else {
    log_info("[server:shader] no name given\n");
  }
  return 0;
}

extern int server_init(void) {

  lo_server_thread st = lo_server_thread_new(OSC_PORT, error);

  lo_server_thread_add_method(st, "/shader", "iiffsfffffffffffffffffsssi",
                              shader_handler,
                              NULL
			      );

  lo_server_thread_add_method(st, NULL, NULL, generic_handler, NULL);
  lo_server_thread_start(st);

  return(1);
}