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., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
23 *****************************************************************************/
25 /*****************************************************************************
27 *****************************************************************************/
32 #include <vlc_common.h>
33 #include <vlc_plugin.h>
34 #include <vlc_demux.h>
37 #define MAX_LINE 16024
39 /*****************************************************************************
41 *****************************************************************************/
42 static int DemuxOpen ( vlc_object_t
* );
43 static void DemuxClose ( vlc_object_t
* );
46 set_description( N_("Windows Media NSC metademux") );
47 set_category( CAT_INPUT
);
48 set_subcategory( SUBCAT_INPUT_DEMUX
);
49 set_capability( "demux", 3 );
50 set_callbacks( DemuxOpen
, DemuxClose
);
53 static int Demux ( demux_t
*p_demux
);
54 static int Control( demux_t
*p_demux
, int i_query
, va_list args
);
56 static const unsigned char inverse
[ 128 ] =
58 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
59 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
60 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
61 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
62 0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, 0x08, 0x09, 0xFF, 0xFF,
63 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0x0A, 0x0B, 0x0C, 0x0D, 0x0E, 0x0F, 0x10,
64 0x11, 0x12, 0x13, 0x14, 0x15, 0x16, 0x17, 0x18, 0x19, 0x1A, 0x1B, 0x1C,
65 0x1D, 0x1E, 0x1F, 0x20, 0x21, 0x22, 0x23, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
66 0xFF, 0x24, 0x25, 0x26, 0x27, 0x28, 0x29, 0x2A, 0x2B, 0x2C, 0x2D, 0x2E,
67 0x2F, 0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37, 0x38, 0x39, 0x3A,
68 0x3B, 0x3C, 0x3D, 0x3E, 0xFF, 0x3F, 0xFF, 0xFF
71 static int load_byte( unsigned char encoding_type
,
72 unsigned char *output
, char **input
,
73 unsigned char *j
, unsigned char *k
)
77 if( encoding_type
== 1 )
79 if( isxdigit( **input
) == 0 )
82 if( isdigit( **input
) == 0 )
83 *output
= (toupper( **input
) - 7) * 16;
85 *output
= **input
* 16;
89 if( isxdigit( **input
) == 0 )
92 if( isdigit( **input
) == 0 )
93 *output
|= toupper( **input
) - 0x37;
95 *output
|= **input
- 0x30;
99 else if( encoding_type
== 2 )
101 unsigned char **uinput
= (unsigned char **)input
;
103 if( **uinput
> 127 || inverse
[ **uinput
] == 0xFF )
108 if( (*uinput
)[ 1 ] > 127 || inverse
[ (*uinput
)[ 1 ] ] == 0xFF )
111 *output
= (inverse
[ (*uinput
)[ 0 ] ] * 4) |
112 (inverse
[ (*uinput
)[ 1 ] ] / 16);
114 *j
= inverse
[ (*uinput
)[ 1 ] ] * 16;
121 *output
= *j
| inverse
[ **uinput
];
130 *output
= (inverse
[ **uinput
] / 4) | *j
;
132 *j
= inverse
[ **uinput
] * 64;
142 static char *nscdec( vlc_object_t
*p_demux
, char* p_encoded
)
148 unsigned char encoding_type
;
152 unsigned char *buf16
;
158 char *p_input
= p_encoded
;
160 if( strlen( p_input
) < 15 )
162 msg_Err( p_demux
, "input string less than 15 characters" );
166 if( load_byte( 1, &encoding_type
, &p_input
, NULL
, NULL
) )
168 msg_Err( p_demux
, "unable to get NSC encoding type" );
172 if( encoding_type
!= 1 && encoding_type
!= 2 )
174 msg_Err( p_demux
, "encoding type %d is not supported",
181 if( load_byte( encoding_type
, &tmp
, &p_input
, &j
, &k
) )
183 msg_Err( p_demux
, "load_byte failed" );
187 for( i
= 0; i
< 4; i
++ )
189 if( load_byte( encoding_type
, &tmp
, &p_input
, &j
, &k
) )
191 msg_Err( p_demux
, "load_byte failed" );
199 if( load_byte( encoding_type
, &tmp
, &p_input
, &j
, &k
) )
201 msg_Err( p_demux
, "load_byte failed" );
204 length
|= tmp
<< ((i
- 1) * 8);
209 msg_Err( p_demux
, "Length is 0" );
214 buf16
= malloc( buf16_size
);
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" );
229 buf8
= malloc( buf8_size
+ 1 );
236 conv
= vlc_iconv_open( "UTF-8", "UTF-16LE" );
237 if( conv
== (vlc_iconv_t
)(-1) )
239 msg_Err( p_demux
, "iconv_open failed" );
246 p_buf16
= (const char *)buf16
;
248 if( vlc_iconv( conv
, &p_buf16
, &buf16_size
, &p_buf8
, &buf8_size
) == (size_t)(-1) )
250 msg_Err( p_demux
, "iconv failed" );
255 buf8
[ length
- buf8_size
] = '\0';
258 vlc_iconv_close( conv
);
264 static int DemuxOpen( vlc_object_t
* p_this
)
266 demux_t
*p_demux
= (demux_t
*)p_this
;
267 const uint8_t *p_peek
;
270 /* Lets check the content to see if this is a NSC file */
271 i_size
= stream_Peek( p_demux
->s
, &p_peek
, MAX_LINE
);
272 i_size
-= sizeof("NSC Format Version=") - 1;
276 while ( i_size
&& strncasecmp( (char *)p_peek
, "NSC Format Version=",
277 (int) sizeof("NSC Format Version=") - 1 ) )
282 if ( !strncasecmp( (char *)p_peek
, "NSC Format Version=",
283 (int) sizeof("NSC Format Version=") -1 ) )
285 p_demux
->pf_demux
= Demux
;
286 p_demux
->pf_control
= Control
;
294 /*****************************************************************************
295 * Deactivate: frees unused data
296 *****************************************************************************/
297 static void DemuxClose( vlc_object_t
*p_this
)
302 static int ParseLine ( demux_t
*p_demux
, char *psz_line
)
308 /* Remove unnecessary tabs or spaces at the beginning of line */
309 while( *psz_bol
== ' ' || *psz_bol
== '\t' ||
310 *psz_bol
== '\n' || *psz_bol
== '\r' )
314 psz_value
= strchr( psz_bol
, '=' );
315 if( psz_value
== NULL
)
317 return 0; /* a [Address] or [Formats] line or something else we will ignore */
322 if( !strncasecmp( psz_value
, "0x", 2 ) )
325 sscanf( psz_value
, "%x", &i_value
);
326 msg_Dbg( p_demux
, "%s = %d", psz_bol
, i_value
);
328 else if( !strncasecmp( psz_bol
, "Format", 6 ) )
330 msg_Dbg( p_demux
, "%s = asf header", psz_bol
);
334 /* This should be NSC encoded strings in the values */
336 psz_out
= nscdec( (vlc_object_t
*)p_demux
, psz_value
);
339 msg_Dbg( p_demux
, "%s = %s", psz_bol
, psz_out
);
346 /*****************************************************************************
347 * Demux: reads and demuxes data packets
348 *****************************************************************************
349 * Returns -1 in case of error, 0 in case of EOF, 1 otherwise
350 *****************************************************************************/
351 static int Demux ( demux_t
*p_demux
)
355 while( ( psz_line
= stream_ReadLine( p_demux
->s
) ) )
357 ParseLine( p_demux
, psz_line
);
363 static int Control( demux_t
*p_demux
, int i_query
, va_list args
)