git.sesse.net Git - vlc/blob - modules/codec/cc.c

   1 /*****************************************************************************
   2  * cc608.c : CC 608/708 subtitles decoder
   3  *****************************************************************************
   4  * Copyright (C) 2007 Laurent Aimar
   5  * $Id$
   6  *
   7  * Authors: Laurent Aimar < fenrir # via.ecp.fr>
   8  *
   9  * This program is free software; you can redistribute it and/or modify
  10  * it under the terms of the GNU General Public License as published by
  11  * the Free Software Foundation; either version 2 of the License, or
  12  * (at your option) any later version.
  13  *
  14  * This program is distributed in the hope that it will be useful,
  15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17  * GNU General Public License for more details.
  18  *
  19  * You should have received a copy of the GNU General Public License
  20  * along with this program; if not, write to the Free Software
  21  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
  22  *****************************************************************************/
  23
  24 /*****************************************************************************
  25  * Preamble
  26  *****************************************************************************/
  27 /* The EIA 608 decoder part has been initialy based on ccextractor (GPL)
  28  * and rewritten */
  29
  30 /* TODO:
  31  *  On discontinuity reset the decoder state
  32  *  Check parity
  33  *  708 decoding
  34  */
  35
  36 #ifdef HAVE_CONFIG_H
  37 # include "config.h"
  38 #endif
  39
  40 #include <vlc_common.h>
  41 #include <vlc_plugin.h>
  42 #include <vlc_vout.h>
  43 #include <vlc_codec.h>
  44 #include <vlc_input.h>
  45
  46 #include <vlc_osd.h>
  47 #include <vlc_filter.h>
  48 #include <vlc_image.h>
  49 #include <vlc_charset.h>
  50 #include <vlc_stream.h>
  51 #include <vlc_xml.h>
  52 #include <errno.h>
  53 #include <string.h>
  54
  55 #include <assert.h>
  56
  57 /*****************************************************************************
  58  * Module descriptor.
  59  *****************************************************************************/
  60 static int  Open ( vlc_object_t * );
  61 static void Close( vlc_object_t * );
  62
  63 vlc_module_begin();
  64     set_shortname( N_("CC 608/708"));
  65     set_description( N_("Closed Captions decoder") );
  66     set_capability( "decoder", 50 );
  67     set_callbacks( Open, Close );
  68 vlc_module_end();
  69
  70 /*****************************************************************************
  71  * Local prototypes
  72  *****************************************************************************/
  73 typedef enum
  74 {
  75     EIA608_MODE_POPUP = 0,
  76     EIA608_MODE_ROLLUP_2 = 1,
  77     EIA608_MODE_ROLLUP_3 = 2,
  78     EIA608_MODE_ROLLUP_4 = 3,
  79     EIA608_MODE_PAINTON = 4,
  80     EIA608_MODE_TEXT = 5
  81 } eia608_mode_t;
  82
  83 typedef enum
  84 {
  85     EIA608_COLOR_WHITE = 0,
  86     EIA608_COLOR_GREEN = 1,
  87     EIA608_COLOR_BLUE = 2,
  88     EIA608_COLOR_CYAN = 3,
  89     EIA608_COLOR_RED = 4,
  90     EIA608_COLOR_YELLOW = 5,
  91     EIA608_COLOR_MAGENTA = 6,
  92     EIA608_COLOR_USERDEFINED = 7
  93 } eia608_color_t;
  94
  95 typedef enum
  96 {
  97     EIA608_FONT_REGULAR    = 0x00,
  98     EIA608_FONT_ITALICS    = 0x01,
  99     EIA608_FONT_UNDERLINE  = 0x02,
 100     EIA608_FONT_UNDERLINE_ITALICS = EIA608_FONT_UNDERLINE | EIA608_FONT_ITALICS
 101 } eia608_font_t;
 102
 103 #define EIA608_SCREEN_ROWS 15
 104 #define EIA608_SCREEN_COLUMNS 32
 105
 106 struct eia608_screen // A CC buffer
 107 {
 108     uint8_t characters[EIA608_SCREEN_ROWS][EIA608_SCREEN_COLUMNS+1];
 109     eia608_color_t colors[EIA608_SCREEN_ROWS][EIA608_SCREEN_COLUMNS+1];
 110     eia608_font_t fonts[EIA608_SCREEN_ROWS][EIA608_SCREEN_COLUMNS+1]; // Extra char at the end for a 0
 111     int row_used[EIA608_SCREEN_ROWS]; // Any data in row?
 112 };
 113 typedef struct eia608_screen eia608_screen;
 114
 115 typedef struct
 116 {
 117     /* Current channel (used to reject packet without channel information) */
 118     int i_channel;
 119
 120     /* */
 121     int           i_screen; /* Displayed screen */
 122     eia608_screen screen[2];
 123
 124     struct
 125     {
 126         int i_row;
 127         int i_column;
 128     } cursor;
 129
 130     /* */
 131     eia608_mode_t mode;
 132     eia608_color_t color;
 133     eia608_font_t font;
 134     int i_row_rollup;
 135
 136     /* Last command pair (used to reject duplicated command) */
 137     struct
 138     {
 139         uint8_t d1;
 140         uint8_t d2;
 141     } last;
 142 } eia608_t;
 143
 144 static void         Eia608Init( eia608_t * );
 145 static bool   Eia608Parse( eia608_t *h, int i_channel_selected, const uint8_t data[2] );
 146 static char        *Eia608Text( eia608_t *h, bool b_html );
 147 static void         Eia608Exit( eia608_t * );
 148
 149 /* It will be enough up to 63 B frames, which is far too high for
 150  * broadcast environment */
 151 #define CC_MAX_REORDER_SIZE (64)
 152 struct decoder_sys_t
 153 {
 154     int i;
 155
 156     int     i_block;
 157     block_t *pp_block[CC_MAX_REORDER_SIZE];
 158
 159     int i_field;
 160     int i_channel;
 161
 162     eia608_t eia608;
 163 };
 164
 165 static subpicture_t *Decode( decoder_t *, block_t ** );
 166
 167 /*****************************************************************************
 168  * Open: probe the decoder and return score
 169  *****************************************************************************
 170  * Tries to launch a decoder and return score so that the interface is able
 171  * to chose.
 172  *****************************************************************************/
 173 static int Open( vlc_object_t *p_this )
 174 {
 175     decoder_t     *p_dec = (decoder_t*)p_this;
 176     decoder_sys_t *p_sys;
 177     int i_field;
 178     int i_channel;
 179
 180     switch( p_dec->fmt_in.i_codec )
 181     {
 182         case VLC_FOURCC('c','c','1',' '):
 183             i_field = 0; i_channel = 1;
 184             break;
 185         case VLC_FOURCC('c','c','2',' '):
 186             i_field = 0; i_channel = 2;
 187             break;
 188         case VLC_FOURCC('c','c','3',' '):
 189             i_field = 1; i_channel = 1;
 190             break;
 191         case VLC_FOURCC('c','c','4',' '):
 192             i_field = 1; i_channel = 2;
 193             break;
 194
 195         default:
 196             return VLC_EGENERIC;
 197     }
 198
 199     p_dec->pf_decode_sub = Decode;
 200
 201     /* Allocate the memory needed to store the decoder's structure */
 202     p_dec->p_sys = p_sys = malloc( sizeof( *p_sys ) );
 203     if( p_sys == NULL )
 204         return VLC_ENOMEM;
 205
 206     /* init of p_sys */
 207     memset( p_sys, 0, sizeof( *p_sys ) );
 208     p_sys->i_block = 0;
 209
 210     p_sys->i_field = i_field;
 211     p_sys->i_channel = i_channel;
 212
 213     Eia608Init( &p_sys->eia608 );
 214
 215     return VLC_SUCCESS;
 216 }
 217
 218 /****************************************************************************
 219  * Decode: the whole thing
 220  ****************************************************************************
 221  *
 222  ****************************************************************************/
 223 static void     Push( decoder_t *, block_t * );
 224 static block_t *Pop( decoder_t * );
 225 static subpicture_t *Convert( decoder_t *, block_t * );
 226
 227 static subpicture_t *Decode( decoder_t *p_dec, block_t **pp_block )
 228 {
 229     if( pp_block && *pp_block )
 230     {
 231         Push( p_dec, *pp_block );
 232         *pp_block = NULL;
 233     }
 234
 235     for( ;; )
 236     {
 237         block_t *p_block = Pop( p_dec );
 238         if( !p_block )
 239             break;
 240
 241         subpicture_t *p_spu = Convert( p_dec, p_block );
 242         if( p_spu )
 243             return p_spu;
 244     }
 245     return NULL;
 246 }
 247
 248 /*****************************************************************************
 249  * CloseDecoder: clean up the decoder
 250  *****************************************************************************/
 251 static void Close( vlc_object_t *p_this )
 252 {
 253     decoder_t *p_dec = (decoder_t *)p_this;
 254     decoder_sys_t *p_sys = p_dec->p_sys;
 255     int i;
 256
 257     for( i = 0; i < p_sys->i_block; i++ )
 258         block_Release( p_sys->pp_block[i] );
 259     Eia608Exit( &p_sys->eia608 );
 260     free( p_sys );
 261 }
 262
 263 /*****************************************************************************
 264  *
 265  *****************************************************************************/
 266 static void Push( decoder_t *p_dec, block_t *p_block )
 267 {
 268     decoder_sys_t *p_sys = p_dec->p_sys;
 269
 270     if( p_sys->i_block >= CC_MAX_REORDER_SIZE )
 271     {
 272         msg_Warn( p_dec, "Trashing a CC entry" );
 273         memmove( &p_sys->pp_block[0], &p_sys->pp_block[1], sizeof(*p_sys->pp_block) * (CC_MAX_REORDER_SIZE-1) );
 274         p_sys->i_block--;
 275     }
 276     p_sys->pp_block[p_sys->i_block++] = p_block;
 277 }
 278 static block_t *Pop( decoder_t *p_dec )
 279 {
 280     decoder_sys_t *p_sys = p_dec->p_sys;
 281     block_t *p_block;
 282     int i_index;
 283     int i;
 284     /* XXX Cc captions data are OUT OF ORDER (because we receive them in the bitstream
 285      * order (ie ordered by video picture dts) instead of the display order.
 286      *  We will simulate a simple IPB buffer scheme
 287      * and reorder with pts.
 288      * XXX it won't work with H264 which use non out of order B picture or MMCO
 289      */
 290
 291     /* Wait for a P and output all *previous* picture by pts order (for
 292      * hierarchical B frames) */
 293     if( p_sys->i_block <= 1 ||
 294         ( p_sys->pp_block[p_sys->i_block-1]->i_flags & BLOCK_FLAG_TYPE_B ) )
 295         return NULL;
 296
 297     p_block = p_sys->pp_block[i_index = 0];
 298     if( p_block->i_pts > 0 )
 299     {
 300         for( i = 1; i < p_sys->i_block-1; i++ )
 301         {
 302             if( p_sys->pp_block[i]->i_pts > 0 && p_block->i_pts > 0 &&
 303                 p_sys->pp_block[i]->i_pts < p_block->i_pts )
 304                 p_block = p_sys->pp_block[i_index = i];
 305         }
 306     }
 307     assert( i_index+1 < p_sys->i_block );
 308     memmove( &p_sys->pp_block[i_index], &p_sys->pp_block[i_index+1], sizeof(*p_sys->pp_block) * ( p_sys->i_block - i_index - 1 ) );
 309     p_sys->i_block--;
 310
 311     return p_block;
 312 }
 313
 314 static subpicture_t *Subtitle( decoder_t *p_dec, char *psz_subtitle, char *psz_html, mtime_t i_pts )
 315 {
 316     //decoder_sys_t *p_sys = p_dec->p_sys;
 317     subpicture_t *p_spu = NULL;
 318     video_format_t fmt;
 319
 320     /* We cannot display a subpicture with no date */
 321     if( i_pts == 0 )
 322     {
 323         msg_Warn( p_dec, "subtitle without a date" );
 324         return NULL;
 325     }
 326
 327     EnsureUTF8( psz_subtitle );
 328     if( psz_html )
 329         EnsureUTF8( psz_html );
 330
 331     /* Create the subpicture unit */
 332     p_spu = p_dec->pf_spu_buffer_new( p_dec );
 333     if( !p_spu )
 334     {
 335         msg_Warn( p_dec, "can't get spu buffer" );
 336         free( psz_subtitle );
 337         free( psz_html );
 338         return NULL;
 339     }
 340
 341     /* Create a new subpicture region */
 342     memset( &fmt, 0, sizeof(video_format_t) );
 343     fmt.i_chroma = VLC_FOURCC('T','E','X','T');
 344     fmt.i_aspect = 0;
 345     fmt.i_width = fmt.i_height = 0;
 346     fmt.i_x_offset = fmt.i_y_offset = 0;
 347     p_spu->p_region = p_spu->pf_create_region( VLC_OBJECT(p_dec), &fmt );
 348     if( !p_spu->p_region )
 349     {
 350         msg_Err( p_dec, "cannot allocate SPU region" );
 351         free( psz_subtitle );
 352         free( psz_html );
 353         p_dec->pf_spu_buffer_del( p_dec, p_spu );
 354         return NULL;
 355     }
 356
 357     /* Decode and format the subpicture unit */
 358     /* Normal text subs, easy markup */
 359     p_spu->p_region->i_align = SUBPICTURE_ALIGN_BOTTOM;// | SUBPICTURE_ALIGN_LEFT;// | p_sys->i_align;
 360     p_spu->i_x = 0; //p_sys->i_align ? 20 : 0;
 361     p_spu->i_y = 10;
 362
 363     p_spu->p_region->psz_text = psz_subtitle;
 364     p_spu->p_region->psz_html = psz_html;
 365
 366     p_spu->i_start = i_pts;
 367     p_spu->i_stop = i_pts + 10000000;   /* 10s max */
 368     p_spu->b_ephemer = true;
 369     p_spu->b_absolute = false;
 370
 371     return p_spu;
 372 }
 373
 374 static subpicture_t *Convert( decoder_t *p_dec, block_t *p_block )
 375 {
 376     decoder_sys_t *p_sys = p_dec->p_sys;
 377     const int64_t i_pts = p_block->i_pts;
 378     bool b_changed = false;
 379
 380     /* TODO do the real decoding here */
 381     while( p_block->i_buffer >= 3 )
 382     {
 383         if( p_block->p_buffer[0] == p_sys->i_field )
 384             b_changed |= Eia608Parse( &p_sys->eia608, p_sys->i_channel, &p_block->p_buffer[1] );
 385
 386         p_block->i_buffer -= 3;
 387         p_block->p_buffer += 3;
 388     }
 389     if( p_block )
 390         block_Release( p_block );
 391
 392     if( b_changed )
 393     {
 394         char *psz_subtitle = Eia608Text( &p_sys->eia608, false );
 395         char *psz_html     = NULL;//Eia608Text( &p_sys->eia608, true );
 396         return Subtitle( p_dec, psz_subtitle, psz_html, i_pts );
 397     }
 398     return NULL;
 399 }
 400
 401
 402 /*****************************************************************************
 403  *
 404  *****************************************************************************/
 405 static const struct {
 406     eia608_color_t  i_color;
 407     eia608_font_t   i_font;
 408     int             i_column;
 409 } pac2_attribs[]= {
 410     { EIA608_COLOR_WHITE,   EIA608_FONT_REGULAR,           0 },
 411     { EIA608_COLOR_WHITE,   EIA608_FONT_UNDERLINE,         0 },
 412     { EIA608_COLOR_GREEN,   EIA608_FONT_REGULAR,           0 },
 413     { EIA608_COLOR_GREEN,   EIA608_FONT_UNDERLINE,         0 },
 414     { EIA608_COLOR_BLUE,    EIA608_FONT_REGULAR,           0 },
 415     { EIA608_COLOR_BLUE,    EIA608_FONT_UNDERLINE,         0 },
 416     { EIA608_COLOR_CYAN,    EIA608_FONT_REGULAR,           0 },
 417     { EIA608_COLOR_CYAN,    EIA608_FONT_UNDERLINE,         0 },
 418     { EIA608_COLOR_RED,     EIA608_FONT_REGULAR,           0 },
 419     { EIA608_COLOR_RED,     EIA608_FONT_UNDERLINE,         0 },
 420     { EIA608_COLOR_YELLOW,  EIA608_FONT_REGULAR,           0 },
 421     { EIA608_COLOR_YELLOW,  EIA608_FONT_UNDERLINE,         0 },
 422     { EIA608_COLOR_MAGENTA, EIA608_FONT_REGULAR,           0 },
 423     { EIA608_COLOR_MAGENTA, EIA608_FONT_UNDERLINE,         0 },
 424     { EIA608_COLOR_WHITE,   EIA608_FONT_ITALICS,           0 },
 425     { EIA608_COLOR_WHITE,   EIA608_FONT_UNDERLINE_ITALICS, 0 },
 426
 427     { EIA608_COLOR_WHITE,   EIA608_FONT_REGULAR,           0 },
 428     { EIA608_COLOR_WHITE,   EIA608_FONT_UNDERLINE,         0 },
 429     { EIA608_COLOR_WHITE,   EIA608_FONT_REGULAR,           4 },
 430     { EIA608_COLOR_WHITE,   EIA608_FONT_UNDERLINE,         4 },
 431     { EIA608_COLOR_WHITE,   EIA608_FONT_REGULAR,           8 },
 432     { EIA608_COLOR_WHITE,   EIA608_FONT_UNDERLINE,         8 },
 433     { EIA608_COLOR_WHITE,   EIA608_FONT_REGULAR,          12 },
 434     { EIA608_COLOR_WHITE,   EIA608_FONT_UNDERLINE,        12 },
 435     { EIA608_COLOR_WHITE,   EIA608_FONT_REGULAR,          16 },
 436     { EIA608_COLOR_WHITE,   EIA608_FONT_UNDERLINE,        16 },
 437     { EIA608_COLOR_WHITE,   EIA608_FONT_REGULAR,          20 },
 438     { EIA608_COLOR_WHITE,   EIA608_FONT_UNDERLINE,        20 },
 439     { EIA608_COLOR_WHITE,   EIA608_FONT_REGULAR,          24 },
 440     { EIA608_COLOR_WHITE,   EIA608_FONT_UNDERLINE,        24 },
 441     { EIA608_COLOR_WHITE,   EIA608_FONT_REGULAR,          28 },
 442     { EIA608_COLOR_WHITE,   EIA608_FONT_UNDERLINE,        28 } ,
 443 };
 444
 445 #define EIA608_COLOR_DEFAULT EIA608_COLOR_WHITE
 446
 447 static void Eia608Cursor( eia608_t *h, int dx )
 448 {
 449     h->cursor.i_column += dx;
 450     if( h->cursor.i_column < 0 )
 451         h->cursor.i_column = 0;
 452     else if( h->cursor.i_column > EIA608_SCREEN_COLUMNS-1 )
 453         h->cursor.i_column = EIA608_SCREEN_COLUMNS-1;
 454 }
 455 static void Eia608ClearScreenRowX( eia608_t *h, int i_screen, int i_row, int x )
 456 {
 457     eia608_screen *screen = &h->screen[i_screen];
 458     int i;
 459
 460     if( x == 0 )
 461     {
 462         screen->row_used[i_row] = false;
 463     }
 464     else
 465     {
 466         screen->row_used[i_row] = false;
 467         for( i = 0; i < x; i++ )
 468         {
 469             if( screen->characters[i_row][i] != ' ' ||
 470                 screen->colors[i_row][i] != EIA608_COLOR_DEFAULT ||
 471                 screen->fonts[i_row][i] != EIA608_FONT_REGULAR )
 472             {
 473                 screen->row_used[i_row] = true;
 474                 break;
 475             }
 476         }
 477     }
 478
 479     for( ; x < EIA608_SCREEN_COLUMNS+1; x++ )
 480     {
 481         screen->characters[i_row][x] = x < EIA608_SCREEN_COLUMNS ? ' ' : '\0';
 482         screen->colors[i_row][x] = EIA608_COLOR_DEFAULT;
 483         screen->fonts[i_row][x] = EIA608_FONT_REGULAR;
 484     }
 485 }
 486
 487 static void Eia608ClearScreenRow( eia608_t *h, int i_screen, int i_row )
 488 {
 489     Eia608ClearScreenRowX( h, i_screen, i_row, 0 );
 490 }
 491
 492 static void Eia608ClearScreen( eia608_t *h, int i_screen )
 493 {
 494     int i;
 495     for( i = 0; i < EIA608_SCREEN_ROWS; i++ )
 496         Eia608ClearScreenRow( h, i_screen, i );
 497 }
 498
 499 static int Eia608GetWritingScreenIndex( eia608_t *h )
 500 {
 501     switch( h->mode )
 502     {
 503     case EIA608_MODE_POPUP:    // Non displayed screen
 504         return 1 - h->i_screen;
 505
 506     case EIA608_MODE_ROLLUP_2: // Displayed screen
 507     case EIA608_MODE_ROLLUP_3:
 508     case EIA608_MODE_ROLLUP_4:
 509     case EIA608_MODE_PAINTON:
 510         return h->i_screen;
 511     default:
 512         /* It cannot happen, else it is a bug */
 513         assert( 0 );
 514         return 0;
 515     }
 516 }
 517
 518 static void Eia608EraseScreen( eia608_t *h, bool b_displayed )
 519 {
 520     Eia608ClearScreen( h, b_displayed ? h->i_screen : (1-h->i_screen) );
 521 }
 522
 523 static void Eia608Write( eia608_t *h, const uint8_t c )
 524 {
 525     const int i_row = h->cursor.i_row;
 526     const int i_column = h->cursor.i_column;
 527     eia608_screen *screen;
 528
 529     if( h->mode == EIA608_MODE_TEXT )
 530         return;
 531
 532     screen = &h->screen[Eia608GetWritingScreenIndex( h )];
 533
 534     screen->characters[i_row][i_column] = c;
 535     screen->colors[i_row][i_column] = h->color;
 536     screen->fonts[i_row][i_column] = h->font;
 537     screen->row_used[i_row] = true;
 538     Eia608Cursor( h, 1 );
 539 }
 540 static void Eia608Erase( eia608_t *h )
 541 {
 542     const int i_row = h->cursor.i_row;
 543     const int i_column = h->cursor.i_column - 1;
 544     eia608_screen *screen;
 545
 546     if( h->mode == EIA608_MODE_TEXT )
 547         return;
 548     if( i_column < 0 )
 549         return;
 550
 551     screen = &h->screen[Eia608GetWritingScreenIndex( h )];
 552
 553     /* FIXME do we need to reset row_used/colors/font ? */
 554     screen->characters[i_row][i_column] = ' ';
 555     Eia608Cursor( h, -1 );
 556 }
 557 static void Eia608EraseToEndOfRow( eia608_t *h )
 558 {
 559     if( h->mode == EIA608_MODE_TEXT )
 560         return;
 561
 562     Eia608ClearScreenRowX( h, Eia608GetWritingScreenIndex( h ), h->cursor.i_row, h->cursor.i_column );
 563 }
 564
 565 static void Eia608RollUp( eia608_t *h )
 566 {
 567     const int i_screen = Eia608GetWritingScreenIndex( h );
 568     eia608_screen *screen = &h->screen[i_screen];
 569
 570     int keep_lines;
 571     int i;
 572
 573     /* Window size */
 574     if( h->mode == EIA608_MODE_ROLLUP_2 )
 575         keep_lines = 2;
 576     else if( h->mode == EIA608_MODE_ROLLUP_3 )
 577         keep_lines = 3;
 578     else if( h->mode == EIA608_MODE_ROLLUP_4 )
 579         keep_lines = 4;
 580     else
 581         return;
 582
 583     /* Reset the cursor */
 584     h->cursor.i_column = 0;
 585
 586     /* Erase lines above our window */
 587     for( i = 0; i < h->cursor.i_row - keep_lines; i++ )
 588         Eia608ClearScreenRow( h, i_screen, i );
 589
 590     /* Move up */
 591     for( i = 0; i < keep_lines-1; i++ )
 592     {
 593         const int i_row = h->cursor.i_row - keep_lines + i + 1;
 594         if( i_row < 0 )
 595             continue;
 596         assert( i_row+1 < EIA608_SCREEN_ROWS );
 597         memcpy( screen->characters[i_row], screen->characters[i_row+1], sizeof(*screen->characters) );
 598         memcpy( screen->colors[i_row], screen->colors[i_row+1], sizeof(*screen->colors) );
 599         memcpy( screen->fonts[i_row], screen->fonts[i_row+1], sizeof(*screen->fonts) );
 600         screen->row_used[i_row] = screen->row_used[i_row+1];
 601     }
 602     /* Reset current row */
 603     Eia608ClearScreenRow( h, i_screen, h->cursor.i_row );
 604 }
 605 static void Eia608ParseChannel( eia608_t *h, uint8_t d1 )
 606 {
 607     if( d1 == 0x14 )
 608         h->i_channel = 1;
 609     else if( d1 == 0x1c )
 610         h->i_channel = 2;
 611     else if( ( d1 >= 0x01 && d1 <= 0x0f ) || d1 == 0x15 )
 612         h->i_channel = 3;
 613     else if( d1 == 0x1d )
 614         h->i_channel = 4;
 615 }
 616 static bool Eia608ParseTextAttribute( eia608_t *h, uint8_t d2 )
 617 {
 618     const int i_index = d2 - 0x20;
 619     assert( d2 >= 0x20 && d2 <= 0x2f );
 620
 621     h->color = pac2_attribs[i_index].i_color;
 622     h->font  = pac2_attribs[i_index].i_font;
 623     Eia608Cursor( h, 1 );
 624
 625     return false;
 626 }
 627 static bool Eia608ParseSingle( eia608_t *h, const uint8_t dx )
 628 {
 629     assert( dx >= 0x20 );
 630     Eia608Write( h, dx );
 631     return true;
 632 }
 633 static bool Eia608ParseDouble( eia608_t *h, uint8_t d2 )
 634 {
 635     assert( d2 >= 0x30 && d2 <= 0x3f );
 636     Eia608Write( h, d2 + 0x50 ); /* We use charaters 0x80...0x8f */
 637     return true;
 638 }
 639 static bool Eia608ParseExtended( eia608_t *h, uint8_t d1, uint8_t d2 )
 640 {
 641     assert( d2 >= 0x20 && d2 <= 0x3f );
 642     assert( d1 == 0x12 || d1 == 0x13 );
 643     if( d1 == 0x12 )
 644         d2 += 0x70; /* We use charaters 0x90-0xaf */
 645     else
 646         d2 += 0x90; /* We use charaters 0xb0-0xcf */
 647
 648     /* The extended characters replace the previous one with a more
 649      * advanced one */
 650     Eia608Cursor( h, -1 );
 651     Eia608Write( h, d2 );
 652     return true;
 653 }
 654 static bool Eia608ParseCommand0x14( eia608_t *h, uint8_t d2 )
 655 {
 656     bool b_changed = false;
 657
 658     switch( d2 )
 659     {
 660     case 0x20:  /* Resume caption loading */
 661         h->mode = EIA608_MODE_POPUP;
 662         break;
 663     case 0x21:  /* Backspace */
 664         Eia608Erase( h );
 665         b_changed = true;
 666         break;
 667     case 0x22:  /* Reserved */
 668     case 0x23:
 669         break;
 670     case 0x24:  /* Delete to end of row */
 671         Eia608EraseToEndOfRow( h );
 672         break;
 673     case 0x25:  /* Rollup 2 */
 674     case 0x26:  /* Rollup 3 */
 675     case 0x27:  /* Rollup 4 */
 676         if( h->mode == EIA608_MODE_POPUP || h->mode == EIA608_MODE_PAINTON )
 677         {
 678             Eia608EraseScreen( h, true );
 679             Eia608EraseScreen( h, false );
 680             b_changed = true;
 681         }
 682
 683         if( d2 == 0x25 )
 684             h->mode = EIA608_MODE_ROLLUP_2;
 685         else if( d2 == 0x26 )
 686             h->mode = EIA608_MODE_ROLLUP_3;
 687         else
 688             h->mode = EIA608_MODE_ROLLUP_4;
 689
 690         h->cursor.i_column = 0;
 691         h->cursor.i_row = h->i_row_rollup;
 692         break;
 693     case 0x28:  /* Flash on */
 694         /* TODO */
 695         break;
 696     case 0x29:  /* Resume direct captionning */
 697         h->mode = EIA608_MODE_PAINTON;
 698         break;
 699     case 0x2a:  /* Text restart */
 700         /* TODO */
 701         break;
 702
 703     case 0x2b: /* Resume text display */
 704         h->mode = EIA608_MODE_TEXT;
 705         break;
 706
 707     case 0x2c: /* Erase displayed memory */
 708         Eia608EraseScreen( h, true );
 709         b_changed = true;
 710         break;
 711     case 0x2d: /* Carriage return */
 712         Eia608RollUp(h);
 713         b_changed = true;
 714         break;
 715     case 0x2e: /* Erase non displayed memory */
 716         Eia608EraseScreen( h, false );
 717         break;
 718     case 0x2f: /* End of caption (flip screen if not paint on) */
 719         if( h->mode != EIA608_MODE_PAINTON )
 720             h->i_screen = 1 - h->i_screen;
 721         h->mode = EIA608_MODE_POPUP;
 722         h->cursor.i_column = 0;
 723         h->cursor.i_row = 0;
 724         h->color = EIA608_COLOR_DEFAULT;
 725         h->font = EIA608_FONT_REGULAR;
 726         b_changed = true;
 727         break;
 728     }
 729     return b_changed;
 730 }
 731 static bool Eia608ParseCommand0x17( eia608_t *h, uint8_t d2 )
 732 {
 733     switch( d2 )
 734     {
 735     case 0x21:  /* Tab offset 1 */
 736         Eia608Cursor( h, 1 );
 737         break;
 738     case 0x22:  /* Tab offset 2 */
 739         Eia608Cursor( h, 2 );
 740         break;
 741     case 0x23:  /* Tab offset 3 */
 742         Eia608Cursor( h, 3 );
 743         break;
 744     }
 745     return false;
 746 }
 747 static bool Eia608ParsePac( eia608_t *h, uint8_t d1, uint8_t d2 )
 748 {
 749     static const int pi_row[] = {
 750         11, -1, 1, 2, 3, 4, 12, 13, 14, 15, 5, 6, 7, 8, 9, 10
 751     };
 752     const int i_row_index = ( (d1<<1) & 0x0e) | ( (d2>>5) & 0x01 );
 753
 754     assert( d2 >= 0x40 && d2 <= 0x7f );
 755
 756     if( pi_row[i_row_index] <= 0 )
 757         return false;
 758
 759     /* Row */
 760     if( h->mode != EIA608_MODE_TEXT )
 761         h->cursor.i_row = pi_row[i_row_index] - 1;
 762     h->i_row_rollup = pi_row[i_row_index] - 1;
 763     /* Column */
 764     if( d2 >= 0x60 )
 765         d2 -= 0x60;
 766     else if( d2 >= 0x40 )
 767         d2 -= 0x40;
 768     h->cursor.i_column = pac2_attribs[d2].i_column;
 769     return false;
 770 }
 771
 772 static bool Eia608ParseData( eia608_t *h, uint8_t d1, uint8_t d2 )
 773 {
 774     bool b_changed = false;
 775
 776     if( d1 >= 0x18 && d1 <= 0x1f )
 777         d1 -= 8;
 778
 779 #define ON( d2min, d2max, cmd ) do { if( d2 >= d2min && d2 <= d2max ) b_changed = cmd; } while(0)
 780     switch( d1 )
 781     {
 782     case 0x11:
 783         ON( 0x20, 0x2f, Eia608ParseTextAttribute( h, d2 ) );
 784         ON( 0x30, 0x3f, Eia608ParseDouble( h, d2 ) );
 785         break;
 786     case 0x12: case 0x13:
 787         ON( 0x20, 0x3f, Eia608ParseExtended( h, d1, d2 ) );
 788         break;
 789     case 0x14: case 0x15:
 790         ON( 0x20, 0x2f, Eia608ParseCommand0x14( h, d2 ) );
 791         break;
 792     case 0x17:
 793         ON( 0x21, 0x22, Eia608ParseCommand0x17( h, d2 ) );
 794         ON( 0x2e, 0x2f, Eia608ParseTextAttribute( h, d2 ) );
 795         break;
 796     }
 797     if( d1 == 0x10 )
 798         ON( 0x40, 0x5f, Eia608ParsePac( h, d1, d2 ) );
 799     else if( d1 >= 0x11 && d1 <= 0x17 )
 800         ON( 0x40, 0x7f, Eia608ParsePac( h, d1, d2 ) );
 801 #undef ON
 802     if( d1 >= 0x20 )
 803     {
 804         b_changed = Eia608ParseSingle( h, d1 );
 805         if( d2 >= 0x20 )
 806             b_changed |= Eia608ParseSingle( h, d2 );
 807     }
 808     return b_changed;
 809 }
 810
 811 static void Eia608TextUtf8( char *psz_utf8, uint8_t c ) // Returns number of bytes used
 812 {
 813 #define E1(c,u) { c, { u, '\0' } }
 814 #define E2(c,u1,u2) { c, { u1, u2, '\0' } }
 815 #define E3(c,u1,u2,u3) { c, { u1, u2, u3, '\0' } }
 816     static const struct {
 817         uint8_t c;
 818         char utf8[3+1];
 819     } c2utf8[] = {
 820         // Regular line-21 character set, mostly ASCII except these exceptions
 821         E2( 0x2a, 0xc3,0xa1), // lowercase a, acute accent
 822         E2( 0x5c, 0xc3,0xa9), // lowercase e, acute accent
 823         E2( 0x5e, 0xc3,0xad), // lowercase i, acute accent
 824         E2( 0x5f, 0xc3,0xb3), // lowercase o, acute accent
 825         E2( 0x60, 0xc3,0xba), // lowercase u, acute accent
 826         E2( 0x7b, 0xc3,0xa7), // lowercase c with cedilla
 827         E2( 0x7c, 0xc3,0xb7), // division symbol
 828         E2( 0x7d, 0xc3,0x91), // uppercase N tilde
 829         E2( 0x7e, 0xc3,0xb1), // lowercase n tilde
 830         // THIS BLOCK INCLUDES THE 16 EXTENDED (TWO-BYTE) LINE 21 CHARACTERS
 831         // THAT COME FROM HI BYTE=0x11 AND LOW BETWEEN 0x30 AND 0x3F
 832         E2( 0x80, 0xc2,0xae), // Registered symbol (R)
 833         E2( 0x81, 0xc2,0xb0), // degree sign
 834         E2( 0x82, 0xc2,0xbd), // 1/2 symbol
 835         E2( 0x83, 0xc2,0xbf), // Inverted (open) question mark
 836         E3( 0x84, 0xe2,0x84,0xa2), // Trademark symbol (TM)
 837         E2( 0x85, 0xc2,0xa2), // Cents symbol
 838         E2( 0x86, 0xc2,0xa3), // Pounds sterling
 839         E3( 0x87, 0xe2,0x99,0xaa), // Music note
 840         E2( 0x88, 0xc3,0xa0), // lowercase a, grave accent
 841         E1( 0x89, 0x20), // transparent space, we make it regular
 842         E2( 0x8a, 0xc3,0xa8), // lowercase e, grave accent
 843         E2( 0x8b, 0xc3,0xa2), // lowercase a, circumflex accent
 844         E2( 0x8c, 0xc3,0xaa), // lowercase e, circumflex accent
 845         E2( 0x8d, 0xc3,0xae), // lowercase i, circumflex accent
 846         E2( 0x8e, 0xc3,0xb4), // lowercase o, circumflex accent
 847         E2( 0x8f, 0xc3,0xbb), // lowercase u, circumflex accent
 848         // THIS BLOCK INCLUDES THE 32 EXTENDED (TWO-BYTE) LINE 21 CHARACTERS
 849         // THAT COME FROM HI BYTE=0x12 AND LOW BETWEEN 0x20 AND 0x3F
 850         E2( 0x90, 0xc3,0x81), // capital letter A with acute
 851         E2( 0x91, 0xc3,0x89), // capital letter E with acute
 852         E2( 0x92, 0xc3,0x93), // capital letter O with acute
 853         E2( 0x93, 0xc3,0x9a), // capital letter U with acute
 854         E2( 0x94, 0xc3,0x9c), // capital letter U with diaresis
 855         E2( 0x95, 0xc3,0xbc), // lowercase letter U with diaeresis
 856         E1( 0x96, 0x27), // apostrophe
 857         E2( 0x97, 0xc1,0xa1), // inverted exclamation mark
 858         E1( 0x98, 0x2a), // asterisk
 859         E1( 0x99, 0x27), // apostrophe (yes, duped). See CCADI source code.
 860         E1( 0x9a, 0x2d), // hyphen-minus
 861         E2( 0x9b, 0xc2,0xa9), // copyright sign
 862         E3( 0x9c, 0xe2,0x84,0xa0), // Service mark
 863         E1( 0x9d, 0x2e), // Full stop (.)
 864         E1( 0x9e, 0x22), // Quoatation mark
 865         E1( 0x9f, 0x22), // Quoatation mark
 866         E2( 0xa0, 0xc3,0x80), // uppercase A, grave accent
 867         E2( 0xa1, 0xc3,0x82), // uppercase A, circumflex
 868         E2( 0xa2, 0xc3,0x87), // uppercase C with cedilla
 869         E2( 0xa3, 0xc3,0x88), // uppercase E, grave accent
 870         E2( 0xa4, 0xc3,0x8a), // uppercase E, circumflex
 871         E2( 0xa5, 0xc3,0x8b), // capital letter E with diaresis
 872         E2( 0xa6, 0xc3,0xab), // lowercase letter e with diaresis
 873         E2( 0xa7, 0xc3,0x8e), // uppercase I, circumflex
 874         E2( 0xa8, 0xc3,0x8f), // uppercase I, with diaresis
 875         E2( 0xa9, 0xc3,0xaf), // lowercase i, with diaresis
 876         E2( 0xaa, 0xc3,0x94), // uppercase O, circumflex
 877         E2( 0xab, 0xc3,0x99), // uppercase U, grave accent
 878         E2( 0xac, 0xc3,0xb9), // lowercase u, grave accent
 879         E2( 0xad, 0xc3,0x9b), // uppercase U, circumflex
 880         E2( 0xae, 0xc2,0xab), // LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
 881         E2( 0xaf, 0xc2,0xbb), // RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
 882         // THIS BLOCK INCLUDES THE 32 EXTENDED (TWO-BYTE) LINE 21 CHARACTERS
 883         // THAT COME FROM HI BYTE=0x13 AND LOW BETWEEN 0x20 AND 0x3F
 884         E2( 0xb0, 0xc3,0x83), // Uppercase A, tilde
 885         E2( 0xb1, 0xc3,0xa3), // Lowercase a, tilde
 886         E2( 0xb2, 0xc3,0x8d), // Uppercase I, acute accent
 887         E2( 0xb3, 0xc3,0x8c), // Uppercase I, grave accent
 888         E2( 0xb4, 0xc3,0xac), // Lowercase i, grave accent
 889         E2( 0xb5, 0xc3,0x92), // Uppercase O, grave accent
 890         E2( 0xb6, 0xc3,0xb2), // Lowercase o, grave accent
 891         E2( 0xb7, 0xc3,0x95), // Uppercase O, tilde
 892         E2( 0xb8, 0xc3,0xb5), // Lowercase o, tilde
 893         E1( 0xb9, 0x7b), // Open curly brace
 894         E1( 0xba, 0x7d), // Closing curly brace
 895         E1( 0xbb, 0x5c), // Backslash
 896         E1( 0xbc, 0x5e), // Caret
 897         E1( 0xbd, 0x5f), // Underscore
 898         E2( 0xbe, 0xc2,0xa6), // Pipe (broken bar)
 899         E1( 0xbf, 0x7e), // Tilde (utf8 code unsure)
 900         E2( 0xc0, 0xc3,0x84), // Uppercase A, umlaut
 901         E2( 0xc1, 0xc3,0xa4), // Lowercase A, umlaut
 902         E2( 0xc2, 0xc3,0x96), // Uppercase O, umlaut
 903         E2( 0xc3, 0xc3,0xb6), // Lowercase o, umlaut
 904         E2( 0xc4, 0xc3,0x9f), // Esszett (sharp S)
 905         E2( 0xc5, 0xc2,0xa5), // Yen symbol
 906         E2( 0xc6, 0xc2,0xa4), // Currency symbol
 907         E1( 0xc7, 0x7c), // Vertical bar
 908         E2( 0xc8, 0xc3,0x85), // Uppercase A, ring
 909         E2( 0xc9, 0xc3,0xa5), // Lowercase A, ring
 910         E2( 0xca, 0xc3,0x98), // Uppercase O, slash
 911         E2( 0xcb, 0xc3,0xb8), // Lowercase o, slash
 912         E3( 0xcc, 0xe2,0x8c,0x9c), // Upper left corner
 913         E3( 0xcd, 0xe2,0x8c,0x9d), // Upper right corner
 914         E3( 0xce, 0xe2,0x8c,0x9e), // Lower left corner
 915         E3( 0xcf, 0xe2,0x8c,0x9f), // Lower right corner
 916
 917         E1(0,0)
 918     };
 919 #undef E3
 920 #undef E2
 921 #undef E1
 922
 923     static const int i_c2utf8 = sizeof(c2utf8)/sizeof(*c2utf8);
 924     int i;
 925
 926     for( i = 0; i < i_c2utf8; i++ )
 927     {
 928         if( c2utf8[i].c == c )
 929             break;
 930     }
 931     if( i >= i_c2utf8 )
 932     {
 933         psz_utf8[0] = c < 0x80 ? c : '?';   /* Normal : Unsupported */
 934         psz_utf8[1] = '\0';
 935     }
 936     else
 937     {
 938         strcpy( psz_utf8, c2utf8[i].utf8 );
 939     }
 940 }
 941
 942 static void Eia608Strlcat( char *d, const char *s, int i_max )
 943 {
 944     if( i_max > 1 )
 945         strncat( d, s, i_max-1 - strnlen(d, i_max-1));
 946     if( i_max > 0 )
 947         d[i_max-1] = '\0';
 948 }
 949
 950 static void Eia608TextLine( struct eia608_screen *screen, char *psz_text, int i_text_max, int i_row, bool b_html )
 951 {
 952     const uint8_t *p_char = screen->characters[i_row];
 953     const eia608_color_t *p_color = screen->colors[i_row];
 954     const eia608_font_t *p_font = screen->fonts[i_row];
 955     int i_start;
 956     int i_end;
 957     int x;
 958     eia608_color_t last_color = EIA608_COLOR_DEFAULT;
 959     bool     b_last_italics = false;
 960     bool     b_last_underline = false;
 961
 962     /* Search the start */
 963     i_start = 0;
 964     while( i_start < EIA608_SCREEN_COLUMNS-1 && p_char[i_start] == ' ' )
 965         i_start++;
 966
 967     /* Search the end */
 968     i_end = EIA608_SCREEN_COLUMNS-1;
 969     while( i_end > i_start && p_char[i_end] == ' ' )
 970         i_end--;
 971
 972     /* */
 973 #define CAT(t) Eia608Strlcat( psz_text, t, i_text_max )
 974     for( x = i_start; x <= i_end; x++ )
 975     {
 976         eia608_color_t color = p_color[x];
 977         bool b_italics = p_font[x] & EIA608_FONT_ITALICS;
 978         bool b_underline = p_font[x] & EIA608_FONT_UNDERLINE;
 979         char utf8[4];
 980
 981         /* */
 982         if( b_html )
 983         {
 984             bool b_close_color, b_close_italics, b_close_underline;
 985
 986             /* We create the tags font / i / u in that orders */
 987             b_close_color = color != last_color && last_color != EIA608_COLOR_DEFAULT;
 988             b_close_italics = !b_italics && b_last_italics;
 989             b_close_underline = !b_underline && b_last_underline;
 990
 991             /* Be sure to create valid html */
 992             b_close_italics |= b_last_italics && b_close_color;
 993             b_close_underline = b_last_underline && ( b_close_italics || b_close_color );
 994
 995             if( b_close_underline )
 996                 CAT( "</u>" );
 997             if( b_close_italics )
 998                 CAT( "</i>" );
 999             if( b_close_color )
1000                 CAT( "</font>" );
1001
1002             if( color != EIA608_COLOR_DEFAULT && color != last_color)
1003             {
1004                 static const char *ppsz_color[] = {
1005                     "#ffffff",  // white
1006                     "#00ff00",  // green
1007                     "#0000ff",  // blue
1008                     "#00ffff",  // cyan
1009                     "#ff0000",  // red
1010                     "#ffff00",  // yellow
1011                     "#ff00ff",  // magenta
1012                     "#ffffff",  // user defined XXX we use white
1013                 };
1014                 CAT( "<font color=" );
1015                 CAT( ppsz_color[color] );
1016                 CAT( ">" );
1017             }
1018             if( ( b_close_italics && b_italics ) || ( b_italics && !b_last_italics ) )
1019                 CAT( "<i>" );
1020             if( ( b_close_underline && b_underline ) || ( b_underline && !b_last_underline ) )
1021                 CAT( "<u>" );
1022         }
1023
1024         /* */
1025         Eia608TextUtf8( utf8, p_char[x] );
1026         CAT( utf8 );
1027
1028         /* */
1029         b_last_underline = b_underline;
1030         b_last_italics = b_italics;
1031         last_color = color;
1032     }
1033     if( b_html )
1034     {
1035         if( b_last_underline )
1036             CAT( "</u>" );
1037         if( b_last_italics )
1038             CAT( "</i>" );
1039         if( last_color != EIA608_COLOR_DEFAULT )
1040             CAT( "</font>" );
1041     }
1042 #undef CAT
1043 }
1044
1045 /* */
1046 static void Eia608Init( eia608_t *h )
1047 {
1048     memset( h, 0, sizeof(*h) );
1049
1050     /* */
1051     h->i_channel = -1;
1052
1053     h->i_screen = 0;
1054     Eia608ClearScreen( h, 0 );
1055     Eia608ClearScreen( h, 1 );
1056
1057     /* Cursor for writing text */
1058     h->cursor.i_column = 0;
1059     h->cursor.i_row = 0;
1060
1061     h->last.d1 = 0x00;
1062     h->last.d2 = 0x00;
1063     h->mode = EIA608_MODE_POPUP;
1064     h->color = EIA608_COLOR_DEFAULT;
1065     h->font = EIA608_FONT_REGULAR;
1066     h->i_row_rollup = EIA608_SCREEN_ROWS-1;
1067 }
1068 static bool Eia608Parse( eia608_t *h, int i_channel_selected, const uint8_t data[2] )
1069 {
1070     const uint8_t d1 = data[0] & 0x7f; /* Removed parity bit TODO we might want to check them */
1071     const uint8_t d2 = data[1] & 0x7f;
1072     bool b_screen_changed = false;
1073
1074     if( d1 == 0 && d2 == 0 )
1075         return false;   /* Ignore padding */
1076
1077     Eia608ParseChannel( h, d1 );
1078     if( h->i_channel != i_channel_selected )
1079         return false;
1080     //fprintf( stderr, "CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC %x %x\n", data[0], data[1] );
1081
1082     if( d1 >= 0x10 )
1083     {
1084         if( d1 >= 0x20 ||
1085             d1 != h->last.d1 || d2 != h->last.d2 ) /* Command codes can be repeated */
1086             b_screen_changed = Eia608ParseData( h, d1,d2 );
1087
1088         h->last.d1 = d1;
1089         h->last.d2 = d2;
1090     }
1091     else if( ( d1 >= 0x01 && d1 <= 0x0E ) || d1 == 0x0F )
1092     {
1093         /* XDS block / End of XDS block */
1094     }
1095     return b_screen_changed;
1096 }
1097
1098 static char *Eia608Text( eia608_t *h, bool b_html )
1099 {
1100     const int i_size = EIA608_SCREEN_ROWS * 3 * EIA608_SCREEN_COLUMNS+1;
1101     struct eia608_screen *screen = &h->screen[h->i_screen];
1102     bool b_first = true;
1103     char *psz;
1104     int i;
1105
1106     /* We allocate a buffer big enough for normal case */
1107     psz = malloc( i_size );
1108     if( !psz )
1109         return NULL;
1110     *psz = '\0';
1111     if( b_html )
1112         Eia608Strlcat( psz, "<text>", i_size );
1113     for( i = 0; i < EIA608_SCREEN_ROWS; i++ )
1114     {
1115         if( !screen->row_used[i] )
1116             continue;
1117
1118         if( !b_first )
1119             Eia608Strlcat( psz, b_html ? "<br />" : "\n", i_size );
1120         b_first = false;
1121
1122         Eia608TextLine( screen, psz, i_size, i, b_html );
1123     }
1124     if( b_html )
1125         Eia608Strlcat( psz, "</text>", i_size );
1126     return psz;
1127 }
1128
1129 static void Eia608Exit( eia608_t *h )
1130 {
1131 }
1132