1 /*****************************************************************************
2 * nsc.c: NSC file demux and encoding decoder
3 *****************************************************************************
4 * Copyright (C) 2005 the VideoLAN team
7 * Authors: Jon Lech Johansen <jon@nanocrew.net>
8 * Derk-Jan Hartman <hartman at videolan dot org>
10 * This program is free software; you can redistribute it and/or modify
11 * it under the terms of the GNU General Public License as published by
12 * the Free Software Foundation; either version 2 of the License, or
13 * (at your option) any later version.
15 * This program is distributed in the hope that it will be useful,
16 * but WITHOUT ANY WARRANTY; without even the implied warranty of
17 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 * GNU General Public License for more details.
20 * You should have received a copy of the GNU General Public License
21 * along with this program; if not, write to the Free Software
22 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111, USA.
23 *****************************************************************************/
25 /*****************************************************************************
27 *****************************************************************************/
28 #include <stdlib.h> /* malloc(), free() */
31 #include <vlc/input.h>
32 #include <vlc_playlist.h>
34 #define MAX_LINE 16024
36 /*****************************************************************************
38 *****************************************************************************/
39 static int DemuxOpen ( vlc_object_t * );
40 static void DemuxClose ( vlc_object_t * );
43 set_description( _("Windows Media NSC metademux") );
44 set_category( CAT_INPUT );
45 set_subcategory( SUBCAT_INPUT_DEMUX );
46 set_capability( "demux2", 2 );
47 set_callbacks( DemuxOpen, DemuxClose );
50 static int Demux ( demux_t *p_demux );
51 static int Control( demux_t *p_demux, int i_query, va_list args );
53 static const unsigned char inverse[ 128 ] =
55 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
56 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
57 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
58 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
59 0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, 0x08, 0x09, 0xFF, 0xFF,
60 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0x0A, 0x0B, 0x0C, 0x0D, 0x0E, 0x0F, 0x10,
61 0x11, 0x12, 0x13, 0x14, 0x15, 0x16, 0x17, 0x18, 0x19, 0x1A, 0x1B, 0x1C,
62 0x1D, 0x1E, 0x1F, 0x20, 0x21, 0x22, 0x23, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
63 0xFF, 0x24, 0x25, 0x26, 0x27, 0x28, 0x29, 0x2A, 0x2B, 0x2C, 0x2D, 0x2E,
64 0x2F, 0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37, 0x38, 0x39, 0x3A,
65 0x3B, 0x3C, 0x3D, 0x3E, 0xFF, 0x3F, 0xFF, 0xFF
68 static int load_byte( unsigned char encoding_type,
69 unsigned char *output, char **input,
70 unsigned char *j, unsigned char *k )
74 if( encoding_type == 1 )
76 if( isxdigit( **input ) == 0 )
79 if( isdigit( **input ) == 0 )
80 *output = (toupper( **input ) - 7) * 16;
82 *output = **input * 16;
86 if( isxdigit( **input ) == 0 )
89 if( isdigit( **input ) == 0 )
90 *output |= toupper( **input ) - 0x37;
92 *output |= **input - 0x30;
96 else if( encoding_type == 2 )
98 unsigned char **uinput = (unsigned char **)input;
100 if( **uinput > 127 || inverse[ **uinput ] == 0xFF )
105 if( (*uinput)[ 1 ] > 127 || inverse[ (*uinput)[ 1 ] ] == 0xFF )
108 *output = (inverse[ (*uinput)[ 0 ] ] * 4) |
109 (inverse[ (*uinput)[ 1 ] ] / 16);
111 *j = inverse[ (*uinput)[ 1 ] ] * 16;
118 *output = *j | inverse[ **uinput ];
127 *output = (inverse[ **uinput ] / 4) | *j;
129 *j = inverse[ **uinput ] * 64;
139 char *nscdec( vlc_object_t *p_demux, char* p_encoded )
145 unsigned char encoding_type;
149 unsigned char *buf16;
155 char *p_input = p_encoded;
157 if( strlen( p_input ) < 15 )
159 msg_Err( p_demux, "input string less than 15 characters" );
163 if( load_byte( 1, &encoding_type, &p_input, NULL, NULL ) )
165 msg_Err( p_demux, "unable to get NSC encoding type" );
169 if( encoding_type != 1 && encoding_type != 2 )
171 msg_Err( p_demux, "encoding type %d is not supported",
178 if( load_byte( encoding_type, &tmp, &p_input, &j, &k ) )
180 msg_Err( p_demux, "load_byte failed" );
184 for( i = 0; i < 4; i++ )
186 if( load_byte( encoding_type, &tmp, &p_input, &j, &k ) )
188 msg_Err( p_demux, "load_byte failed" );
196 if( load_byte( encoding_type, &tmp, &p_input, &j, &k ) )
198 msg_Err( p_demux, "load_byte failed" );
201 length |= tmp << ((i - 1) * 8);
206 msg_Err( p_demux, "Length is 0" );
211 buf16 = (unsigned char *)malloc( buf16_size );
214 msg_Err( p_demux, "Out of memory" );
218 for( i = 0; i < length; i++ )
220 if( load_byte( encoding_type, &buf16[ i ], &p_input, &j, &k ) )
222 msg_Err( p_demux, "load_byte failed" );
223 free( (void *)buf16 );
229 buf8 = (char *)malloc( buf8_size + 1 );
232 msg_Err( p_demux, "Out of memory" );
233 free( (void *)buf16 );
237 conv = vlc_iconv_open( "UTF-8", "UTF-16LE" );
238 if( conv == (vlc_iconv_t)-1 )
240 msg_Err( p_demux, "iconv_open failed" );
241 free( (void *)buf16 );
242 free( (void *)buf8 );
247 p_buf16 = (char *)&buf16[ 0 ];
249 if( vlc_iconv( conv, &p_buf16, &buf16_size, &p_buf8, &buf8_size ) < 0 )
251 msg_Err( p_demux, "iconv failed" );
256 buf8[ length - buf8_size ] = '\0';
259 vlc_iconv_close( conv );
261 free( (void *)buf16 );
265 static int DemuxOpen( vlc_object_t * p_this )
267 demux_t *p_demux = (demux_t *)p_this;
271 /* Lets check the content to see if this is a NSC file */
272 i_size = stream_Peek( p_demux->s, &p_peek, MAX_LINE );
273 i_size -= sizeof("NSC Format Version=") - 1;
277 while ( i_size && strncasecmp( p_peek, "NSC Format Version=",
278 (int) sizeof("NSC Format Version=") - 1 ) )
283 if ( !strncasecmp( p_peek, "NSC Format Version=",
284 (int) sizeof("NSC Format Version=") -1 ) )
286 p_demux->pf_demux = Demux;
287 p_demux->pf_control = Control;
295 /*****************************************************************************
296 * Deactivate: frees unused data
297 *****************************************************************************/
298 static void DemuxClose( vlc_object_t *p_this )
303 static int ParseLine ( demux_t *p_demux, char *psz_line )
309 /* Remove unnecessary tabs or spaces at the beginning of line */
310 while( *psz_bol == ' ' || *psz_bol == '\t' ||
311 *psz_bol == '\n' || *psz_bol == '\r' )
315 psz_value = strchr( psz_bol, '=' );
316 if( psz_value == NULL )
318 return 0; /* a [Address] or [Formats] line or something else we will ignore */
323 if( !strncasecmp( psz_value, "0x", 2 ) )
326 sscanf( psz_value, "%x", &i_value );
327 msg_Dbg( p_demux, "%s = %d", psz_bol, i_value );
329 else if( !strncasecmp( psz_bol, "Format", 6 ) )
331 msg_Dbg( p_demux, "%s = asf header", psz_bol );
335 /* This should be NSC encoded strings in the values */
337 psz_out = nscdec( (vlc_object_t *)p_demux, psz_value );
340 msg_Dbg( p_demux, "%s = %s", psz_bol, psz_out );
341 if( psz_out) free( psz_out );
347 /*****************************************************************************
348 * Demux: reads and demuxes data packets
349 *****************************************************************************
350 * Returns -1 in case of error, 0 in case of EOF, 1 otherwise
351 *****************************************************************************/
352 static int Demux ( demux_t *p_demux )
356 while( ( psz_line = stream_ReadLine( p_demux->s ) ) )
358 ParseLine( p_demux, psz_line );
359 if( psz_line ) free( psz_line );
364 static int Control( demux_t *p_demux, int i_query, va_list args )