libvo/vo_bl.c

   1 /*
   2  * playback using the Blinkenlights UDP protocol (and to files)
   3  *
   4  * UDP socket handling copied from bsender.c part of blib-0.6:
   5  * http://sven.gimp.org/blinkenlights/
   6  * copyright (c)  2001-2001 The Blinkenlights Crew:
   7  *      Sven Neumann <sven@gimp.org>
   8  *      Michael Natterer <mitch@gimp.org>
   9  *      Daniel Mack <daniel@yoobay.net>
  10  * copyright (C) 2004 Stefan Schuermans <1stein@schuermans.info>
  11  * other stuff: copyright (C) 2002 Rik Snel
  12  *
  13  * This file is part of MPlayer.
  14  *
  15  * MPlayer is free software; you can redistribute it and/or modify
  16  * it under the terms of the GNU General Public License as published by
  17  * the Free Software Foundation; either version 2 of the License, or
  18  * (at your option) any later version.
  19  *
  20  * MPlayer is distributed in the hope that it will be useful,
  21  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  22  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  23  * GNU General Public License for more details.
  24  *
  25  * You should have received a copy of the GNU General Public License along
  26  * with MPlayer; if not, write to the Free Software Foundation, Inc.,
  27  * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  28  */
  29
  30 #include <stdio.h>
  31 #include <stdlib.h>
  32 #include <string.h>
  33 #include <unistd.h>
  34 #include <fcntl.h>
  35 #include <errno.h>
  36 #include <sys/stat.h>
  37 #include <sys/types.h>
  38 #include <sys/time.h>
  39 #ifdef HAVE_SYS_MMAN_H
  40 #include <sys/mman.h>
  41 #endif
  42 #include <sys/ioctl.h>
  43
  44 #include "config.h"
  45
  46 #include <netdb.h>
  47 #include <sys/socket.h>
  48 #include <netinet/in.h>
  49
  50 #include "video_out.h"
  51 #include "video_out_internal.h"
  52 #include "mp_msg.h"
  53 #include "m_option.h"
  54 #include "fastmemcpy.h"
  55
  56 static const vo_info_t info =
  57 {
  58         "Blinkenlights driver: http://www.blinkenlights.de",
  59         "bl",
  60         "Rik Snel <snel@phys.uu.nl>",
  61         ""
  62 };
  63
  64 const LIBVO_EXTERN (bl)
  65
  66 /* General variables */
  67
  68 static unsigned char *image = NULL;
  69 static unsigned char *tmp = NULL;
  70 static int framenum;
  71 static char *bl_subdevice = NULL;
  72 static int prevpts = -1;
  73
  74 typedef struct {
  75         char *name; /* filename */
  76         FILE *fp;
  77         int header_written; /* if header was written already */
  78 } bl_file_t;
  79
  80 typedef struct {
  81         char *name; /* hostname */
  82         int port;
  83         int fd; /* file descriptor */
  84 } bl_host_t;
  85
  86 typedef struct {
  87         char *name;
  88         int img_format;
  89
  90         int channels;
  91         int width;
  92         int height;
  93         int bpc; /* bits per component: bpc = 3, channels = 3 => bpp = 24*/
  94
  95         /* file output functions */
  96         int (*init_file)(bl_file_t *file);
  97         void (*write_frame)(bl_file_t *file, unsigned char *i, int duration);
  98         void (*close_file)(bl_file_t *file);
  99
 100         /* network output functions */
 101         int (*init_connection)(bl_host_t *host);
 102         void (*send_frame)(bl_host_t *host);
 103         void (*close_connection)(bl_host_t *host);
 104 } bl_properties_t;
 105
 106 static bl_properties_t *bl = NULL;
 107
 108 /* arbitrary limit because I am too lazy to do proper memory management */
 109 #define BL_MAX_FILES 16
 110 #define BL_MAX_HOSTS 16
 111 static bl_file_t bl_files[BL_MAX_FILES];
 112 static bl_host_t bl_hosts[BL_MAX_HOSTS];
 113 static int no_bl_files = 0;
 114 static int no_bl_hosts = 0;
 115
 116 typedef struct {
 117         uint32_t magic;
 118         uint16_t height;
 119         uint16_t width;
 120         uint16_t channels;
 121         uint16_t maxval;
 122         unsigned char data[0];
 123 } bl_packet_t;
 124
 125 static bl_packet_t *bl_packet = NULL;
 126 static int bl_size;
 127
 128 /* bml output functions */
 129 static int bml_init(bl_file_t *f) {
 130         f->fp = fopen(f->name, "w");
 131         if (!f->fp) {
 132                 mp_msg(MSGT_VO, MSGL_ERR, "bl: error opening %s\n", f->name);
 133                 return 1;
 134         }
 135         f->header_written = 0;
 136         return 0;
 137 }
 138
 139 static void bml_write_frame(bl_file_t *f, unsigned char *i, int duration) {
 140         int j, k;
 141         if( ! f->header_written )
 142         {
 143                 fprintf(f->fp,
 144 "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n"
 145 "<blm width=\"%d\" height=\"%d\" bits=\"%d\" channels=\"%d\">\n"
 146 "    <header>\n"
 147 "        <title>Movie autogenerated by MPlayer</title>\n"
 148 "        <url>http://www.mplayerhq.hu</url>\n"
 149 "    </header>\n", bl->width, bl->height, bl->bpc, bl->channels);
 150                 f->header_written = 1;
 151         }
 152         fprintf(f->fp, "    <frame duration=\"%d\">\n", duration);
 153         for (j = 0; j < bl->height; j++) {
 154                 fprintf(f->fp, "        <row>");
 155                 for (k = 0; k < bl->width; k++)
 156                         fprintf(f->fp, "%02x", *(i + j * bl->width + k));
 157                 fprintf(f->fp, "</row>\n");
 158         }
 159         fprintf(f->fp, "    </frame>\n");
 160 }
 161
 162 static void bml_close(bl_file_t *f) {
 163         fprintf(f->fp, "</blm>\n");
 164         fclose(f->fp);
 165 }
 166
 167 /* Blinkenlights UDP protocol */
 168 static int udp_init(bl_host_t *h) {
 169         struct sockaddr_in addr;
 170         struct hostent *dest;
 171
 172         dest = gethostbyname(h->name);
 173         if (!dest) {
 174                 mp_msg(MSGT_VO, MSGL_ERR,
 175                                 "unable to resolve host %s\n", h->name);
 176                 return 1;
 177         }
 178
 179         h->fd = -1;
 180         memset(&addr, 0, sizeof(addr));
 181         addr.sin_family = AF_INET;
 182         addr.sin_port = htons(h->port);
 183
 184         memcpy(&addr.sin_addr.s_addr, dest->h_addr_list[0], dest->h_length);
 185
 186         h->fd = socket(PF_INET, SOCK_DGRAM, IPPROTO_UDP);
 187         if (h->fd < 0) {
 188                 mp_msg(MSGT_VO, MSGL_ERR,
 189                                 "couldn't create socket for %s\n", h->name);
 190                 return 1;
 191         }
 192         if (connect(h->fd, (struct sockaddr *)&addr, sizeof(addr)) < 0) {
 193                 mp_msg(MSGT_VO, MSGL_ERR, "couldn't connect socket for %s\n",
 194                                 h->name);
 195                 close(h->fd);
 196                 return 1;
 197         }
 198         return 0;
 199 }
 200
 201 static void udp_send(bl_host_t *h) {
 202         if (send(h->fd, bl_packet, bl_size, 0) != bl_size)
 203                 mp_msg(MSGT_VO, MSGL_ERR, "unable to send to %s\n", h->name);
 204 }
 205
 206 static void udp_close(bl_host_t *h) {
 207         close(h->fd);
 208 }
 209
 210 #define NO_BLS 3
 211
 212 static bl_properties_t bls[NO_BLS] = {
 213         { "hdl", IMGFMT_YV12, 1, 18, 8, 8,
 214         &bml_init, &bml_write_frame, &bml_close,
 215         &udp_init, &udp_send, &udp_close },
 216         { "arcade", IMGFMT_YV12, 1, 26, 20, 8,
 217         &bml_init, &bml_write_frame, &bml_close,
 218         &udp_init, &udp_send, &udp_close },
 219         { "grayscale", IMGFMT_YV12, 1, -1, -1, 8, /* use width and height of movie */
 220         &bml_init, &bml_write_frame, &bml_close,
 221         &udp_init, &udp_send, &udp_close } };
 222
 223 static int config(uint32_t width, uint32_t height, uint32_t d_width,
 224         uint32_t d_height, uint32_t flags, char *title, uint32_t format)
 225 {
 226         void * ptr;
 227
 228         /* adapt size of Blinkenlights UDP stream to size of movie */
 229         if (bl->width < 0 || bl->height < 0) {
 230                 if (bl->width < 0) { /* use width of movie */
 231                         bl->width = width;
 232                         bl_packet->width = htons(bl->width);
 233                 }
 234                 if (bl->height < 0) { /* use height of movie */
 235                         bl->height = height;
 236                         bl_packet->height = htons(bl->height);
 237                 }
 238                 /* check for maximum size of UDP packet */
 239                 if (12 + bl->width*bl->height*bl->channels > 65507) {
 240                         mp_msg(MSGT_VO, MSGL_ERR, "bl: %dx%d-%d does not fit into an UDP packet\n",
 241                                         bl->width, bl->height, bl->channels);
 242                         return 1;
 243                 }
 244                 /* resize frame and tmp buffers */
 245                 bl_size = 12 + bl->width*bl->height*bl->channels;
 246                 ptr = realloc(bl_packet, 12 + bl->width*bl->height*3); /* space for header and image data */
 247                 if (ptr)
 248                         bl_packet = (bl_packet_t*)ptr;
 249                 else {
 250                         mp_msg(MSGT_VO, MSGL_ERR, "bl: out of memory error\n");
 251                         return 1;
 252                 }
 253                 image = ((unsigned char*)bl_packet + 12); /* pointer to image data */
 254                 ptr = realloc(tmp, bl->width*bl->height*3); /* space for image data only */
 255                 if (ptr)
 256                         tmp = (unsigned char*)ptr;
 257                 else {
 258                         mp_msg(MSGT_VO, MSGL_ERR, "bl: out of memory error\n");
 259                         return 1;
 260                 }
 261         }
 262
 263         framenum = 0;
 264         if (format != IMGFMT_YV12) {
 265                 mp_msg(MSGT_VO, MSGL_ERR, "vo_bl called with wrong format");
 266                 return 1;
 267         }
 268         if (width > bl->width) {
 269                 mp_msg(MSGT_VO, MSGL_ERR, "bl: width of movie too large %d > %d\n", width, bl->width);
 270                 return 1;
 271         }
 272         if (height > bl->height) {
 273                 mp_msg(MSGT_VO, MSGL_ERR, "bl: height of movie too large %d > %d\n", height, bl->height);
 274                 return 1;
 275         }
 276         if (!image) {
 277                 mp_msg(MSGT_VO, MSGL_ERR, "bl: image should be initialized, internal error\n");
 278                 return 1;
 279         }
 280         memset(image, 0, bl->width*bl->height*3); /* blank the image */
 281         mp_msg(MSGT_VO, MSGL_V, "vo_config bl called\n");
 282         return 0;
 283 }
 284
 285 static void draw_osd(void) {
 286 }
 287
 288 static void flip_page (void) {
 289         int i;
 290
 291         if (prevpts >= 0) for (i = 0; i < no_bl_files; i++)
 292                 bl->write_frame(&bl_files[i], tmp, (vo_pts - prevpts)/90);
 293         fast_memcpy(tmp, image, bl->width*bl->height*bl->channels);
 294         prevpts = vo_pts;
 295
 296         for (i = 0; i < no_bl_hosts; i++) bl->send_frame(&bl_hosts[i]);
 297
 298
 299         framenum++;
 300         return;
 301 }
 302
 303 static int draw_frame(uint8_t * src[]) {
 304         return 0;
 305 }
 306
 307 static int query_format(uint32_t format) {
 308         if (format == bl->img_format)
 309                 return VFCAP_CSP_SUPPORTED|VFCAP_CSP_SUPPORTED_BY_HW;
 310         return 0;
 311 }
 312
 313 static void uninit(void) {
 314         int i;
 315         mp_msg(MSGT_VO, MSGL_V, "bl: uninit called\n");
 316         free(bl_packet);
 317         bl_packet = NULL;
 318         free(bl_subdevice);
 319         bl_subdevice = NULL;
 320         for (i = 0; i < no_bl_files; i++) bl->close_file(&bl_files[i]);
 321         for (i = 0; i < no_bl_hosts; i++) bl->close_connection(&bl_hosts[i]);
 322         no_bl_files = 0;
 323         no_bl_hosts = 0;
 324         bl = NULL;
 325 }
 326
 327 static void check_events(void) {
 328 }
 329
 330 static int draw_slice(uint8_t *srcimg[], int stride[],
 331                 int wf, int hf, int xf, int yf) {
 332         int i, w, h, x, y;
 333         uint8_t *dst;
 334         uint8_t *src=srcimg[0];
 335         w = wf; h = hf; x = xf; y = yf;
 336         dst=image; /* + zr->off_y + zr->image_width*(y/zr->vdec)+x;*/
 337         // copy Y:
 338         for (i = 0; i < h; i++) {
 339                 fast_memcpy(dst,src,w);
 340                 dst+=bl->width;
 341                 src+=stride[0];
 342
 343         }
 344         return 0;
 345 }
 346
 347 static int preinit(const char *arg) {
 348         char *p, *q;
 349         int end = 0, i;
 350         char txt[256];
 351         if (!arg || strlen(arg) == 0) {
 352                 mp_msg(MSGT_VO, MSGL_ERR, "bl: subdevice must be given, example: -vo bl:arcade:host=localhost:2323\n");
 353                 return 1;
 354         }
 355
 356         bl_subdevice = malloc(strlen(arg) + 1);
 357         if (!bl_subdevice) {
 358                 mp_msg(MSGT_VO, MSGL_ERR, "bl: out of memory error\n");
 359                 return 1;
 360         }
 361         p = bl_subdevice;
 362         strcpy(p, arg);
 363         mp_msg(MSGT_VO, MSGL_V, "bl: preinit called with %s\n", arg);
 364         for (i = 0; i < NO_BLS; i++) {
 365                 if (!strncmp(p, bls[i].name, strlen(bls[i].name)))
 366                         break;
 367         }
 368         if (i >= NO_BLS) {
 369                 txt[0] = 0;
 370                 for (i = 0; i < NO_BLS; i++)
 371                         if (strlen( txt ) + 4 + strlen( bls[i].name ) + 1 < sizeof(txt))
 372                                 sprintf( txt + strlen( txt ), "%s%s",
 373                                          txt[0] == 0 ? "" : i == NO_BLS - 1 ? " or " : ", ", bls[i].name );
 374                 mp_msg(MSGT_VO, MSGL_ERR, "bl: subdevice must start with %s\nbl: i.e. -vo bl:arcade:host=localhost:2323\n", txt);
 375                 return 1;
 376         }
 377         bl = &bls[i];
 378         p += strlen(bls[i].name);
 379         if (*p == '\0') {
 380                 no_bl_hosts = 1;
 381                 bl_hosts[0].name = "localhost";
 382                 bl_hosts[0].port = 2323;
 383                 mp_msg(MSGT_VO, MSGL_V, "bl: no hosts/files specified, using localhost:2323\n");
 384                 end = 1;
 385         } else if (*p != ':') {
 386                 mp_msg(MSGT_VO, MSGL_ERR, "bl: syntax error in subdevice\n");
 387                 return 1;
 388         }
 389         p++;
 390
 391         while (!end) {
 392                 q = p + 5;
 393                 if (!strncmp(p, "file=", 5)) {
 394                         if (no_bl_files == BL_MAX_FILES) {
 395                                 mp_msg(MSGT_VO, MSGL_ERR, "bl: maximum number of files reached (%d)\n", BL_MAX_FILES);
 396                                 return 1;
 397                         }
 398                         p += 5;
 399                         while (*q != ',' && *q != '\0') q++;
 400                         if (*q == '\0') end = 1;
 401                         *q = '\0';
 402                         bl_files[no_bl_files].name = p;
 403                         mp_msg(MSGT_VO, MSGL_V, "blfile[%d]: %s\n",
 404                                         no_bl_files, p);
 405                         no_bl_files++;
 406                 } else if (!strncmp(p, "host=", 5)) {
 407                         if (no_bl_hosts == BL_MAX_HOSTS) {
 408                                 mp_msg(MSGT_VO, MSGL_ERR, "bl: maximum number of hosts reached (%d)\n", BL_MAX_HOSTS);
 409                                 return 1;
 410                         }
 411                         p += 5;
 412                         while (*q != ',' && *q != '\0' && *q != ':') q++;
 413                         if (*q == ':') {
 414                                 *q++ = '\0';
 415                                 bl_hosts[no_bl_hosts].name = p;
 416                                 bl_hosts[no_bl_hosts].port = atoi(q);
 417                                 while (*q != ',' && *q != '\0') q++;
 418                                 if (*q == '\0') end = 1;
 419                         } else {
 420                                 /* use default port */
 421                                 if (*q == '\0') end = 1;
 422                                 *q = '\0';
 423                                 bl_hosts[no_bl_hosts].name = p;
 424                                 bl_hosts[no_bl_hosts].port = 2323;
 425                         }
 426                         mp_msg(MSGT_VO, MSGL_V,
 427                                         "blhost[%d]: %s:%d\n",
 428                                         no_bl_hosts, p,
 429                                         bl_hosts[no_bl_hosts].port);
 430                         no_bl_hosts++;
 431                 } else {
 432                         mp_msg(MSGT_VO, MSGL_ERR, "bl: syntax error in entry %d in subdevice %s, should be a comma separated\nlist of host=name:port and file=foo.bml\n", no_bl_hosts + no_bl_files, arg);
 433                         return 1;
 434                 }
 435                 p = ++q;
 436         }
 437
 438         if (bl->width >= 0 && bl->height >= 0) { /* size already known */
 439                 bl_size = 12 + bl->width*bl->height*bl->channels;
 440                 bl_packet = malloc(12 + bl->width*bl->height*3); /* space for header and image data */
 441                 image = ((unsigned char*)bl_packet + 12); /* pointer to image data */
 442                 tmp = malloc(bl->width*bl->height*3); /* space for image data only */
 443         }
 444         else { /* size unknown yet */
 445                 bl_size = 12;
 446                 bl_packet = malloc(12 + 3); /* space for header and a pixel */
 447                 image = ((unsigned char*)bl_packet + 12); /* pointer to image data */
 448                 tmp = malloc(3); /* space for a pixel only */
 449         }
 450
 451         if (!bl_packet || !tmp) {
 452                 mp_msg(MSGT_VO, MSGL_ERR, "bl: out of memory error\n");
 453                 return 1;
 454         }
 455         bl_packet->magic = htonl(0x23542666);
 456         bl_packet->width = htons(bl->width);
 457         bl_packet->height = htons(bl->height);
 458         bl_packet->channels = htons(bl->channels);
 459         bl_packet->maxval = htons((1 << bl->bpc) - 1);
 460
 461         /* open all files */
 462         for (i = 0; i < no_bl_files; i++)
 463                 if (bl->init_file(&bl_files[i])) return 1;
 464
 465         /* open all sockets */
 466         for (i = 0; i < no_bl_hosts; i++)
 467                 if (bl->init_connection(&bl_hosts[i])) return 1;
 468
 469
 470         return 0;
 471 }
 472
 473 static int control(uint32_t request, void *data, ...) {
 474         switch (request) {
 475                 case VOCTRL_QUERY_FORMAT:
 476                         return query_format(*((uint32_t*)data));
 477                 }
 478         return VO_NOTIMPL;
 479 }