X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=src%2Fextras%2Flibc.c;h=5004480a0b20d23d9c474903d4a9899c20290260;hb=506bb385a5bced95e041bdc613005c950df93904;hp=0c100397ba72d5e2b5dca1bc744f1b897106d435;hpb=287081caeb571486a0381ee9964198855706a208;p=vlc diff --git a/src/extras/libc.c b/src/extras/libc.c index 0c100397ba..5004480a0b 100644 --- a/src/extras/libc.c +++ b/src/extras/libc.c @@ -29,10 +29,10 @@ # include "config.h" #endif -#include - -#include +#include +#include +#include #undef iconv_t #undef iconv_open @@ -43,590 +43,327 @@ # include #endif -#ifdef HAVE_DIRENT_H -# include -#endif - -#ifdef HAVE_SIGNAL_H -# include -#endif - -#ifdef HAVE_FORK -# include -# include -# include -# include -# include -# include -# include -#endif - -#if defined(WIN32) || defined(UNDER_CE) -# undef _wopendir -# undef _wreaddir -# undef _wclosedir -# undef rewinddir -# define WIN32_LEAN_AND_MEAN -# include -#endif - -#ifdef UNDER_CE -# define strcoll strcmp -#endif - /***************************************************************************** - * strcasecmp: compare two strings ignoring case + * Local conversion routine from ISO_6937 to UTF-8 charset. Support for this + * is still missing in libiconv, hence multiple operating systems lack it. + * The conversion table adds Euro sign (0xA4) as per ETSI EN 300 468 Annex A *****************************************************************************/ -#if !defined( HAVE_STRCASECMP ) && !defined( HAVE_STRICMP ) -int vlc_strcasecmp( const char *s1, const char *s2 ) +#ifndef __linux__ +static const uint16_t to_ucs4[128] = { - int c1, c2; - if( !s1 || !s2 ) return -1; - - while( *s1 && *s2 ) - { - c1 = tolower(*s1); - c2 = tolower(*s2); - - if( c1 != c2 ) return (c1 < c2 ? -1 : 1); - s1++; s2++; - } - - if( !*s1 && !*s2 ) return 0; - else return (*s1 ? 1 : -1); -} -#endif - -/***************************************************************************** - * strncasecmp: compare n chars from two strings ignoring case - *****************************************************************************/ -#if !defined( HAVE_STRNCASECMP ) && !defined( HAVE_STRNICMP ) -int vlc_strncasecmp( const char *s1, const char *s2, size_t n ) + /* 0x80 */ 0x0080, 0x0081, 0x0082, 0x0083, 0x0084, 0x0085, 0x0086, 0x0087, + /* 0x88 */ 0x0088, 0x0089, 0x008a, 0x008b, 0x008c, 0x008d, 0x008e, 0x008f, + /* 0x90 */ 0x0090, 0x0091, 0x0092, 0x0093, 0x0094, 0x0095, 0x0096, 0x0097, + /* 0x98 */ 0x0098, 0x0099, 0x009a, 0x009b, 0x009c, 0x009d, 0x009e, 0x009f, + /* 0xa0 */ 0x00a0, 0x00a1, 0x00a2, 0x00a3, 0x20ac, 0x00a5, 0x0000, 0x00a7, + /* 0xa8 */ 0x00a4, 0x2018, 0x201c, 0x00ab, 0x2190, 0x2191, 0x2192, 0x2193, + /* 0xb0 */ 0x00b0, 0x00b1, 0x00b2, 0x00b3, 0x00d7, 0x00b5, 0x00b6, 0x00b7, + /* 0xb8 */ 0x00f7, 0x2019, 0x201d, 0x00bb, 0x00bc, 0x00bd, 0x00be, 0x00bf, + /* 0xc0 */ 0x0000, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, + /* 0xc8 */ 0xffff, 0x0000, 0xffff, 0xffff, 0x0000, 0xffff, 0xffff, 0xffff, + /* 0xd0 */ 0x2014, 0x00b9, 0x00ae, 0x00a9, 0x2122, 0x266a, 0x00ac, 0x00a6, + /* 0xd8 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x215b, 0x215c, 0x215d, 0x215e, + /* 0xe0 */ 0x2126, 0x00c6, 0x00d0, 0x00aa, 0x0126, 0x0000, 0x0132, 0x013f, + /* 0xe8 */ 0x0141, 0x00d8, 0x0152, 0x00ba, 0x00de, 0x0166, 0x014a, 0x0149, + /* 0xf0 */ 0x0138, 0x00e6, 0x0111, 0x00f0, 0x0127, 0x0131, 0x0133, 0x0140, + /* 0xf8 */ 0x0142, 0x00f8, 0x0153, 0x00df, 0x00fe, 0x0167, 0x014b, 0x00ad +}; + +/* The outer array range runs from 0xc1 to 0xcf, the inner range from 0x40 + to 0x7f. */ +static const uint16_t to_ucs4_comb[15][64] = { - int c1, c2; - if( !s1 || !s2 ) return -1; + /* 0xc1 */ + { + /* 0x40 */ 0x0000, 0x00c0, 0x0000, 0x0000, 0x0000, 0x00c8, 0x0000, 0x0000, + /* 0x48 */ 0x0000, 0x00cc, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x00d2, + /* 0x50 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x00d9, 0x0000, 0x0000, + /* 0x58 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x60 */ 0x0000, 0x00e0, 0x0000, 0x0000, 0x0000, 0x00e8, 0x0000, 0x0000, + /* 0x68 */ 0x0000, 0x00ec, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x00f2, + /* 0x70 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x00f9, 0x0000, 0x0000, + /* 0x78 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000 + }, + /* 0xc2 */ + { + /* 0x40 */ 0x0000, 0x00c1, 0x0000, 0x0106, 0x0000, 0x00c9, 0x0000, 0x0000, + /* 0x48 */ 0x0000, 0x00cd, 0x0000, 0x0000, 0x0139, 0x0000, 0x0143, 0x00d3, + /* 0x50 */ 0x0000, 0x0000, 0x0154, 0x015a, 0x0000, 0x00da, 0x0000, 0x0000, + /* 0x58 */ 0x0000, 0x00dd, 0x0179, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x60 */ 0x0000, 0x00e1, 0x0000, 0x0107, 0x0000, 0x00e9, 0x0000, 0x0000, + /* 0x68 */ 0x0000, 0x00ed, 0x0000, 0x0000, 0x013a, 0x0000, 0x0144, 0x00f3, + /* 0x70 */ 0x0000, 0x0000, 0x0155, 0x015b, 0x0000, 0x00fa, 0x0000, 0x0000, + /* 0x78 */ 0x0000, 0x00fd, 0x017a, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000 + }, + /* 0xc3 */ + { + /* 0x40 */ 0x0000, 0x00c2, 0x0000, 0x0108, 0x0000, 0x00ca, 0x0000, 0x011c, + /* 0x48 */ 0x0124, 0x00ce, 0x0134, 0x0000, 0x0000, 0x0000, 0x0000, 0x00d4, + /* 0x50 */ 0x0000, 0x0000, 0x0000, 0x015c, 0x0000, 0x00db, 0x0000, 0x0174, + /* 0x58 */ 0x0000, 0x0176, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x60 */ 0x0000, 0x00e2, 0x0000, 0x0109, 0x0000, 0x00ea, 0x0000, 0x011d, + /* 0x68 */ 0x0125, 0x00ee, 0x0135, 0x0000, 0x0000, 0x0000, 0x0000, 0x00f4, + /* 0x70 */ 0x0000, 0x0000, 0x0000, 0x015d, 0x0000, 0x00fb, 0x0000, 0x0175, + /* 0x78 */ 0x0000, 0x0177, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000 + }, + /* 0xc4 */ + { + /* 0x40 */ 0x0000, 0x00c3, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x48 */ 0x0000, 0x0128, 0x0000, 0x0000, 0x0000, 0x0000, 0x00d1, 0x00d5, + /* 0x50 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0168, 0x0000, 0x0000, + /* 0x58 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x60 */ 0x0000, 0x00e3, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x68 */ 0x0000, 0x0129, 0x0000, 0x0000, 0x0000, 0x0000, 0x00f1, 0x00f5, + /* 0x70 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0169, 0x0000, 0x0000, + /* 0x78 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000 + }, + /* 0xc5 */ + { + /* 0x40 */ 0x0000, 0x0100, 0x0000, 0x0000, 0x0000, 0x0112, 0x0000, 0x0000, + /* 0x48 */ 0x0000, 0x012a, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x014c, + /* 0x50 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x016a, 0x0000, 0x0000, + /* 0x58 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x60 */ 0x0000, 0x0101, 0x0000, 0x0000, 0x0000, 0x0113, 0x0000, 0x0000, + /* 0x68 */ 0x0000, 0x012b, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x014d, + /* 0x70 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x016b, 0x0000, 0x0000, + /* 0x78 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000 + }, + /* 0xc6 */ + { + /* 0x40 */ 0x0000, 0x0102, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x011e, + /* 0x48 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x50 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x016c, 0x0000, 0x0000, + /* 0x58 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x60 */ 0x0000, 0x0103, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x011f, + /* 0x68 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x70 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x016d, 0x0000, 0x0000, + /* 0x78 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000 + }, + /* 0xc7 */ + { + /* 0x40 */ 0x0000, 0x0000, 0x0000, 0x010a, 0x0000, 0x0116, 0x0000, 0x0120, + /* 0x48 */ 0x0000, 0x0130, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x50 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x58 */ 0x0000, 0x0000, 0x017b, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x60 */ 0x0000, 0x0000, 0x0000, 0x010b, 0x0000, 0x0117, 0x0000, 0x0121, + /* 0x68 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x70 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x78 */ 0x0000, 0x0000, 0x017c, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000 + }, + /* 0xc8 */ + { + /* 0x40 */ 0x0000, 0x00c4, 0x0000, 0x0000, 0x0000, 0x00cb, 0x0000, 0x0000, + /* 0x48 */ 0x0000, 0x00cf, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x00d6, + /* 0x50 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x00dc, 0x0000, 0x0000, + /* 0x58 */ 0x0000, 0x0178, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x60 */ 0x0000, 0x00e4, 0x0000, 0x0000, 0x0000, 0x00eb, 0x0000, 0x0000, + /* 0x68 */ 0x0000, 0x00ef, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x00f6, + /* 0x70 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x00fc, 0x0000, 0x0000, + /* 0x78 */ 0x0000, 0x00ff, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000 + }, + /* 0xc9 */ + { + 0x0000, + }, + /* 0xca */ + { + /* 0x40 */ 0x0000, 0x00c5, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x48 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x50 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x016e, 0x0000, 0x0000, + /* 0x58 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x60 */ 0x0000, 0x00e5, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x68 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x70 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x016f, 0x0000, 0x0000, + /* 0x78 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000 + }, + /* 0xcb */ + { + /* 0x40 */ 0x0000, 0x0000, 0x0000, 0x00c7, 0x0000, 0x0000, 0x0000, 0x0122, + /* 0x48 */ 0x0000, 0x0000, 0x0000, 0x0136, 0x013b, 0x0000, 0x0145, 0x0000, + /* 0x50 */ 0x0000, 0x0000, 0x0156, 0x015e, 0x0162, 0x0000, 0x0000, 0x0000, + /* 0x58 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x60 */ 0x0000, 0x0000, 0x0000, 0x00e7, 0x0000, 0x0000, 0x0000, 0x0123, + /* 0x68 */ 0x0000, 0x0000, 0x0000, 0x0137, 0x013c, 0x0000, 0x0146, 0x0000, + /* 0x70 */ 0x0000, 0x0000, 0x0157, 0x015f, 0x0163, 0x0000, 0x0000, 0x0000, + /* 0x78 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000 + }, + /* 0xcc */ + { + 0x0000, + }, + /* 0xcd */ + { + /* 0x40 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x48 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0150, + /* 0x50 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0170, 0x0000, 0x0000, + /* 0x58 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x60 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x68 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0151, + /* 0x70 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0171, 0x0000, 0x0000, + /* 0x78 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000 + }, + /* 0xce */ + { + /* 0x40 */ 0x0000, 0x0104, 0x0000, 0x0000, 0x0000, 0x0118, 0x0000, 0x0000, + /* 0x48 */ 0x0000, 0x012e, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x50 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0172, 0x0000, 0x0000, + /* 0x58 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x60 */ 0x0000, 0x0105, 0x0000, 0x0000, 0x0000, 0x0119, 0x0000, 0x0000, + /* 0x68 */ 0x0000, 0x012f, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x70 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0173, 0x0000, 0x0000, + /* 0x78 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000 + }, + /* 0xcf */ + { + /* 0x40 */ 0x0000, 0x0000, 0x0000, 0x010c, 0x010e, 0x011a, 0x0000, 0x0000, + /* 0x48 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x013d, 0x0000, 0x0147, 0x0000, + /* 0x50 */ 0x0000, 0x0000, 0x0158, 0x0160, 0x0164, 0x0000, 0x0000, 0x0000, + /* 0x58 */ 0x0000, 0x0000, 0x017d, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, + /* 0x60 */ 0x0000, 0x0000, 0x0000, 0x010d, 0x010f, 0x011b, 0x0000, 0x0000, + /* 0x68 */ 0x0000, 0x0000, 0x0000, 0x0000, 0x013e, 0x0000, 0x0148, 0x0000, + /* 0x70 */ 0x0000, 0x0000, 0x0159, 0x0161, 0x0165, 0x0000, 0x0000, 0x0000, + /* 0x78 */ 0x0000, 0x0000, 0x017e, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000 + } +}; + +static size_t ISO6937toUTF8( const unsigned char **inbuf, size_t *inbytesleft, + unsigned char **outbuf, size_t *outbytesleft ) - while( n > 0 && *s1 && *s2 ) - { - c1 = tolower(*s1); - c2 = tolower(*s2); - if( c1 != c2 ) return (c1 < c2 ? -1 : 1); - s1++; s2++; n--; - } - - if( !n || (!*s1 && !*s2) ) return 0; - else return (*s1 ? 1 : -1); -} -#endif - -/****************************************************************************** - * strcasestr: find a substring (little) in another substring (big) - * Case sensitive. Return NULL if not found, return big if little == null - *****************************************************************************/ -#if !defined( HAVE_STRCASESTR ) && !defined( HAVE_STRISTR ) -char * vlc_strcasestr( const char *psz_big, const char *psz_little ) { - char *p_pos = (char *)psz_big; + if( !inbuf || !(*inbuf) ) + return (size_t)(0); /* Reset state requested */ - if( !psz_big || !psz_little || !*psz_little ) return p_pos; - - while( *p_pos ) + const unsigned char *iptr = *inbuf; + const unsigned char *iend = iptr + *inbytesleft; + unsigned char *optr = *outbuf; + unsigned char *oend = optr + *outbytesleft; + uint16_t ch; + int err = 0; + + while ( iptr < iend ) { - if( toupper( *p_pos ) == toupper( *psz_little ) ) + if( *iptr < 0x80 ) { - char * psz_cur1 = p_pos + 1; - char * psz_cur2 = (char *)psz_little + 1; - while( *psz_cur1 && *psz_cur2 && - toupper( *psz_cur1 ) == toupper( *psz_cur2 ) ) + if( optr >= oend ) { - psz_cur1++; - psz_cur2++; + err = E2BIG; + break; /* No space in outbuf */ } - if( !*psz_cur2 ) return p_pos; + *optr++ = *iptr++; + continue; } - p_pos++; - } - return NULL; -} -#endif - -/***************************************************************************** - * vasprintf: - *****************************************************************************/ -#if !defined(HAVE_VASPRINTF) || defined(__APPLE__) || defined(SYS_BEOS) -int vlc_vasprintf(char **strp, const char *fmt, va_list ap) -{ - /* Guess we need no more than 100 bytes. */ - int i_size = 100; - char *p = malloc( i_size ); - int n; - if( p == NULL ) - { - *strp = NULL; - return -1; - } - for( ;; ) - { - /* Try to print in the allocated space. */ - n = vsnprintf( p, i_size, fmt, ap ); - - /* If that worked, return the string. */ - if (n > -1 && n < i_size) - { - *strp = p; - return strlen( p ); - } - /* Else try again with more space. */ - if (n > -1) /* glibc 2.1 */ + if ( optr + 2 >= oend ) { - i_size = n+1; /* precisely what is needed */ + err = E2BIG; + break; /* No space in outbuf for multibyte char */ } - else /* glibc 2.0 */ - { - i_size *= 2; /* twice the old size */ - } - if( (p = realloc( p, i_size ) ) == NULL) - { - *strp = NULL; - return -1; - } - } -} -#endif - -/***************************************************************************** - * asprintf: - *****************************************************************************/ -#if !defined(HAVE_ASPRINTF) || defined(__APPLE__) || defined(SYS_BEOS) -int vlc_asprintf( char **strp, const char *fmt, ... ) -{ - va_list args; - int i_ret; - va_start( args, fmt ); - i_ret = vasprintf( strp, fmt, args ); - va_end( args ); + ch = to_ucs4[*iptr - 0x80]; - return i_ret; -} -#endif - -/***************************************************************************** - * strtoll: convert a string to a 64 bits int. - *****************************************************************************/ -#if !defined( HAVE_STRTOLL ) -int64_t vlc_strtoll( const char *nptr, char **endptr, int base ) -{ - int64_t i_value = 0; - int sign = 1, newbase = base ? base : 10; - - while( isspace(*nptr) ) nptr++; - - if( *nptr == '-' ) - { - sign = -1; - nptr++; - } - - /* Try to detect base */ - if( *nptr == '0' ) - { - newbase = 8; - nptr++; - - if( *nptr == 'x' ) + if( ch == 0xffff ) { - newbase = 16; - nptr++; - } - } - - if( base && newbase != base ) - { - if( endptr ) *endptr = (char *)nptr; - return i_value; - } - - switch( newbase ) - { - case 10: - while( *nptr >= '0' && *nptr <= '9' ) + /* Composed character */ + if ( iptr + 1 >= iend ) { - i_value *= 10; - i_value += ( *nptr++ - '0' ); + err = EINVAL; + break; /* No next character */ } - if( endptr ) *endptr = (char *)nptr; - break; - - case 16: - while( (*nptr >= '0' && *nptr <= '9') || - (*nptr >= 'a' && *nptr <= 'f') || - (*nptr >= 'A' && *nptr <= 'F') ) + if ( iptr[1] < 0x40 || iptr[1] >= 0x80 || + !(ch = to_ucs4_comb[iptr[0] - 0xc1][iptr[1] - 0x40]) ) { - int i_valc = 0; - if(*nptr >= '0' && *nptr <= '9') i_valc = *nptr - '0'; - else if(*nptr >= 'a' && *nptr <= 'f') i_valc = *nptr - 'a' +10; - else if(*nptr >= 'A' && *nptr <= 'F') i_valc = *nptr - 'A' +10; - i_value *= 16; - i_value += i_valc; - nptr++; + err = EILSEQ; + break; /* Illegal combination */ } - if( endptr ) *endptr = (char *)nptr; - break; - - default: - i_value = strtol( nptr, endptr, newbase ); - break; - } - - return i_value * sign; -} -#endif - -/** - * Copy a string to a sized buffer. The result is always nul-terminated - * (contrary to strncpy()). - * - * @param dest destination buffer - * @param src string to be copied - * @param len maximum number of characters to be copied plus one for the - * terminating nul. - * - * @return strlen(src) - */ -#ifndef HAVE_STRLCPY -extern size_t vlc_strlcpy (char *tgt, const char *src, size_t bufsize) -{ - size_t length; - - for (length = 1; (length < bufsize) && *src; length++) - *tgt++ = *src++; - - if (bufsize) - *tgt = '\0'; - - while (*src++) - length++; - - return length - 1; -} -#endif - -/***************************************************************************** - * vlc_*dir_wrapper: wrapper under Windows to return the list of drive letters - * when called with an empty argument or just '\' - *****************************************************************************/ -#if defined(WIN32) && !defined(UNDER_CE) -# include - -typedef struct vlc_DIR -{ - _WDIR *p_real_dir; - int i_drives; - struct _wdirent dd_dir; - bool b_insert_back; -} vlc_DIR; - -void *vlc_wopendir( const wchar_t *wpath ) -{ - vlc_DIR *p_dir = NULL; - _WDIR *p_real_dir = NULL; - - if ( wpath == NULL || wpath[0] == '\0' - || (wcscmp (wpath, L"\\") == 0) ) - { - /* Special mode to list drive letters */ - p_dir = malloc( sizeof(vlc_DIR) ); - if( !p_dir ) - return NULL; - p_dir->p_real_dir = NULL; - p_dir->i_drives = GetLogicalDrives(); - return (void *)p_dir; - } - - p_real_dir = _wopendir( wpath ); - if ( p_real_dir == NULL ) - return NULL; - - p_dir = malloc( sizeof(vlc_DIR) ); - if( !p_dir ) - { - _wclosedir( p_real_dir ); - return NULL; - } - p_dir->p_real_dir = p_real_dir; + iptr += 2; - assert (wpath[0]); // wpath[1] is defined - p_dir->b_insert_back = !wcscmp (wpath + 1, L":\\"); - return (void *)p_dir; -} - -struct _wdirent *vlc_wreaddir( void *_p_dir ) -{ - vlc_DIR *p_dir = (vlc_DIR *)_p_dir; - unsigned int i; - DWORD i_drives; - - if ( p_dir->p_real_dir != NULL ) - { - if ( p_dir->b_insert_back ) - { - /* Adds "..", gruik! */ - p_dir->dd_dir.d_ino = 0; - p_dir->dd_dir.d_reclen = 0; - p_dir->dd_dir.d_namlen = 2; - wcscpy( p_dir->dd_dir.d_name, L".." ); - p_dir->b_insert_back = false; - return &p_dir->dd_dir; } - - return _wreaddir( p_dir->p_real_dir ); - } - - /* Drive letters mode */ - i_drives = p_dir->i_drives; - if ( !i_drives ) - return NULL; /* end */ - - for ( i = 0; i < sizeof(DWORD)*8; i++, i_drives >>= 1 ) - if ( i_drives & 1 ) break; - - if ( i >= 26 ) - return NULL; /* this should not happen */ - - swprintf( p_dir->dd_dir.d_name, L"%c:\\", 'A' + i ); - p_dir->dd_dir.d_namlen = wcslen(p_dir->dd_dir.d_name); - p_dir->i_drives &= ~(1UL << i); - return &p_dir->dd_dir; -} - -int vlc_wclosedir( void *_p_dir ) -{ - vlc_DIR *p_dir = (vlc_DIR *)_p_dir; - int i_ret = 0; - - if ( p_dir->p_real_dir != NULL ) - i_ret = _wclosedir( p_dir->p_real_dir ); - - free( p_dir ); - return i_ret; -} - -void vlc_rewinddir( void *_p_dir ) -{ - vlc_DIR *p_dir = (vlc_DIR *)_p_dir; - - if ( p_dir->p_real_dir != NULL ) - _wrewinddir( p_dir->p_real_dir ); -} -#endif - -/***************************************************************************** - * scandir: scan a directory alpha-sorted - *****************************************************************************/ -#if !defined( HAVE_SCANDIR ) -/* FIXME: I suspect this is dead code -> utf8_scandir */ -#ifdef WIN32 -# undef opendir -# undef readdir -# undef closedir -#endif -int vlc_alphasort( const struct dirent **a, const struct dirent **b ) -{ - return strcoll( (*a)->d_name, (*b)->d_name ); -} - -int vlc_scandir( const char *name, struct dirent ***namelist, - int (*filter) ( const struct dirent * ), - int (*compar) ( const struct dirent **, - const struct dirent ** ) ) -{ - DIR * p_dir; - struct dirent * p_content; - struct dirent ** pp_list; - int ret, size; - - if( !namelist || !( p_dir = opendir( name ) ) ) return -1; - - ret = 0; - pp_list = NULL; - while( ( p_content = readdir( p_dir ) ) ) - { - if( filter && !filter( p_content ) ) + else { - continue; + if ( !ch ) + { + err = EILSEQ; + break; + } + iptr++; } - pp_list = realloc( pp_list, ( ret + 1 ) * sizeof( struct dirent * ) ); - size = sizeof( struct dirent ) + strlen( p_content->d_name ) + 1; - pp_list[ret] = malloc( size ); - if( pp_list[ret] ) + + if ( ch < 0x800 ) { - memcpy( pp_list[ret], p_content, size ); - ret++; + optr[1] = 0x80 | (ch & 0x3f); + optr[0] = 0xc0 | (ch >> 6); + optr +=2; } else { - /* Continuing is useless when no more memory can be allocted, - * so better return what we have found. - */ - ret = -1; - break; + optr[2] = 0x80 | (ch & 0x3f); + ch >>= 6; + optr[1] = 0x80 | (ch & 0x3f); + optr[0] = 0xe0 | (ch >> 6); + optr += 3; } - } - - closedir( p_dir ); - if( compar ) - { - qsort( pp_list, ret, sizeof( struct dirent * ), - (int (*)(const void *, const void *)) compar ); } + *inbuf = iptr; + *outbuf = optr; + *inbytesleft = iend - iptr; + *outbytesleft = oend - optr; - *namelist = pp_list; - return ret; -} -#endif - -#if defined (WIN32) -/** - * gettext callbacks for plugins. - * LibVLC links libintl statically on Windows. - */ -char *vlc_dgettext( const char *package, const char *msgid ) -{ - return dgettext( package, msgid ); -} -#endif - -/** - * In-tree plugins share their gettext domain with LibVLC. - */ -char *vlc_gettext( const char *msgid ) -{ - return dgettext( PACKAGE_NAME, msgid ); -} - -/***************************************************************************** - * count_utf8_string: returns the number of characters in the string. - *****************************************************************************/ -static int count_utf8_string( const char *psz_string ) -{ - int i = 0, i_count = 0; - while( psz_string[ i ] != 0 ) + if( err ) { - if( ((unsigned char *)psz_string)[ i ] < 0x80UL ) i_count++; - i++; + errno = err; + return (size_t)(-1); } - return i_count; -} - -/***************************************************************************** - * wraptext: inserts \n at convenient places to wrap the text. - * Returns the modified string in a new buffer. - *****************************************************************************/ -char *vlc_wraptext( const char *psz_text, int i_line ) -{ - int i_len; - char *psz_line, *psz_new_text; - - psz_line = psz_new_text = strdup( psz_text ); - - i_len = count_utf8_string( psz_text ); - - while( i_len > i_line ) - { - /* Look if there is a newline somewhere. */ - char *psz_parser = psz_line; - int i_count = 0; - while( i_count <= i_line && *psz_parser != '\n' ) - { - while( *((unsigned char *)psz_parser) >= 0x80UL ) psz_parser++; - psz_parser++; - i_count++; - } - if( *psz_parser == '\n' ) - { - i_len -= (i_count + 1); - psz_line = psz_parser + 1; - continue; - } - /* Find the furthest space. */ - while( psz_parser > psz_line && *psz_parser != ' ' ) - { - while( *((unsigned char *)psz_parser) >= 0x80UL ) psz_parser--; - psz_parser--; - i_count--; - } - if( *psz_parser == ' ' ) - { - *psz_parser = '\n'; - i_len -= (i_count + 1); - psz_line = psz_parser + 1; - continue; - } + return (size_t)(0); - /* Wrapping has failed. Find the first space or newline */ - while( i_count < i_len && *psz_parser != ' ' && *psz_parser != '\n' ) - { - while( *((unsigned char *)psz_parser) >= 0x80UL ) psz_parser++; - psz_parser++; - i_count++; - } - if( i_count < i_len ) *psz_parser = '\n'; - i_len -= (i_count + 1); - psz_line = psz_parser + 1; - } - - return psz_new_text; } +#endif /***************************************************************************** * iconv wrapper *****************************************************************************/ vlc_iconv_t vlc_iconv_open( const char *tocode, const char *fromcode ) { +#ifndef __linux__ + if( !strcasecmp(tocode, "UTF-8") && !strcasecmp(fromcode, "ISO_6937") ) + return (vlc_iconv_t)(-2); +#endif #if defined(HAVE_ICONV) return iconv_open( tocode, fromcode ); #else - return NULL; + return (vlc_iconv_t)(-1); #endif } size_t vlc_iconv( vlc_iconv_t cd, const char **inbuf, size_t *inbytesleft, char **outbuf, size_t *outbytesleft ) { +#ifndef __linux__ + if ( cd == (vlc_iconv_t)(-2) ) + return ISO6937toUTF8( (const unsigned char **)inbuf, inbytesleft, + (unsigned char **)outbuf, outbytesleft ); +#endif #if defined(HAVE_ICONV) return iconv( cd, (ICONV_CONST char **)inbuf, inbytesleft, outbuf, outbytesleft ); #else - int i_bytes; - - if (inbytesleft == NULL || outbytesleft == NULL) - { - return 0; - } - - i_bytes = __MIN(*inbytesleft, *outbytesleft); - if( !inbuf || !outbuf || !i_bytes ) return (size_t)(-1); - memcpy( *outbuf, *inbuf, i_bytes ); - inbuf += i_bytes; - outbuf += i_bytes; - inbytesleft -= i_bytes; - outbytesleft -= i_bytes; - return i_bytes; + abort (); #endif } int vlc_iconv_close( vlc_iconv_t cd ) { +#ifndef __linux__ + if ( cd == (vlc_iconv_t)(-2) ) + return 0; +#endif #if defined(HAVE_ICONV) return iconv_close( cd ); #else - return 0; + abort (); #endif } @@ -682,311 +419,3 @@ bool vlc_ureduce( unsigned *pi_dst_nom, unsigned *pi_dst_den, return b_exact; } - -/************************************************************************* - * vlc_execve: Execute an external program with a given environment, - * wait until it finishes and return its standard output - *************************************************************************/ -int __vlc_execve( vlc_object_t *p_object, int i_argc, char *const *ppsz_argv, - char *const *ppsz_env, const char *psz_cwd, - const char *p_in, size_t i_in, - char **pp_data, size_t *pi_data ) -{ - (void)i_argc; // <-- hmph -#ifdef HAVE_FORK -# define BUFSIZE 1024 - int fds[2], i_status; - - if (socketpair (AF_LOCAL, SOCK_STREAM, 0, fds)) - return -1; - - pid_t pid = -1; - if ((fds[0] > 2) && (fds[1] > 2)) - pid = fork (); - - switch (pid) - { - case -1: - msg_Err (p_object, "unable to fork (%m)"); - close (fds[0]); - close (fds[1]); - return -1; - - case 0: - { - sigset_t set; - sigemptyset (&set); - pthread_sigmask (SIG_SETMASK, &set, NULL); - - /* NOTE: - * Like it or not, close can fail (and not only with EBADF) - */ - if ((close (0) == 0) && (close (1) == 0) && (close (2) == 0) - && (dup (fds[1]) == 0) && (dup (fds[1]) == 1) - && (open ("/dev/null", O_RDONLY) == 2) - && ((psz_cwd == NULL) || (chdir (psz_cwd) == 0))) - execve (ppsz_argv[0], ppsz_argv, ppsz_env); - - exit (EXIT_FAILURE); - } - } - - close (fds[1]); - - *pi_data = 0; - if (*pp_data) - free (*pp_data); - *pp_data = NULL; - - if (i_in == 0) - shutdown (fds[0], SHUT_WR); - - while (!p_object->b_die) - { - struct pollfd ufd[1]; - memset (ufd, 0, sizeof (ufd)); - ufd[0].fd = fds[0]; - ufd[0].events = POLLIN; - - if (i_in > 0) - ufd[0].events |= POLLOUT; - - if (poll (ufd, 1, 10) <= 0) - continue; - - if (ufd[0].revents & ~POLLOUT) - { - char *ptr = realloc (*pp_data, *pi_data + BUFSIZE + 1); - if (ptr == NULL) - break; /* safely abort */ - - *pp_data = ptr; - - ssize_t val = read (fds[0], ptr + *pi_data, BUFSIZE); - switch (val) - { - case -1: - case 0: - shutdown (fds[0], SHUT_RD); - break; - - default: - *pi_data += val; - } - } - - if (ufd[0].revents & POLLOUT) - { - ssize_t val = write (fds[0], p_in, i_in); - switch (val) - { - case -1: - case 0: - i_in = 0; - shutdown (fds[0], SHUT_WR); - break; - - default: - i_in -= val; - p_in += val; - } - } - } - - close (fds[0]); - - while (waitpid (pid, &i_status, 0) == -1); - - if (WIFEXITED (i_status)) - { - i_status = WEXITSTATUS (i_status); - if (i_status) - msg_Warn (p_object, "child %s (PID %d) exited with error code %d", - ppsz_argv[0], (int)pid, i_status); - } - else - if (WIFSIGNALED (i_status)) // <-- this should be redumdant a check - { - i_status = WTERMSIG (i_status); - msg_Warn (p_object, "child %s (PID %d) exited on signal %d (%s)", - ppsz_argv[0], (int)pid, i_status, strsignal (i_status)); - } - -#elif defined( WIN32 ) && !defined( UNDER_CE ) - SECURITY_ATTRIBUTES saAttr; - PROCESS_INFORMATION piProcInfo; - STARTUPINFO siStartInfo; - BOOL bFuncRetn = FALSE; - HANDLE hChildStdinRd, hChildStdinWr, hChildStdoutRd, hChildStdoutWr; - DWORD i_status; - char *psz_cmd = NULL, *p_env = NULL, *p = NULL; - char **ppsz_parser; - int i_size; - - /* Set the bInheritHandle flag so pipe handles are inherited. */ - saAttr.nLength = sizeof(SECURITY_ATTRIBUTES); - saAttr.bInheritHandle = TRUE; - saAttr.lpSecurityDescriptor = NULL; - - /* Create a pipe for the child process's STDOUT. */ - if ( !CreatePipe( &hChildStdoutRd, &hChildStdoutWr, &saAttr, 0 ) ) - { - msg_Err( p_object, "stdout pipe creation failed" ); - return -1; - } - - /* Ensure the read handle to the pipe for STDOUT is not inherited. */ - SetHandleInformation( hChildStdoutRd, HANDLE_FLAG_INHERIT, 0 ); - - /* Create a pipe for the child process's STDIN. */ - if ( !CreatePipe( &hChildStdinRd, &hChildStdinWr, &saAttr, 0 ) ) - { - msg_Err( p_object, "stdin pipe creation failed" ); - return -1; - } - - /* Ensure the write handle to the pipe for STDIN is not inherited. */ - SetHandleInformation( hChildStdinWr, HANDLE_FLAG_INHERIT, 0 ); - - /* Set up members of the PROCESS_INFORMATION structure. */ - ZeroMemory( &piProcInfo, sizeof(PROCESS_INFORMATION) ); - - /* Set up members of the STARTUPINFO structure. */ - ZeroMemory( &siStartInfo, sizeof(STARTUPINFO) ); - siStartInfo.cb = sizeof(STARTUPINFO); - siStartInfo.hStdError = hChildStdoutWr; - siStartInfo.hStdOutput = hChildStdoutWr; - siStartInfo.hStdInput = hChildStdinRd; - siStartInfo.wShowWindow = SW_HIDE; - siStartInfo.dwFlags |= STARTF_USESTDHANDLES | STARTF_USESHOWWINDOW; - - /* Set up the command line. */ - psz_cmd = malloc(32768); - if( !psz_cmd ) - return -1; - psz_cmd[0] = '\0'; - i_size = 32768; - ppsz_parser = &ppsz_argv[0]; - while ( ppsz_parser[0] != NULL && i_size > 0 ) - { - /* Protect the last argument with quotes ; the other arguments - * are supposed to be already protected because they have been - * passed as a command-line option. */ - if ( ppsz_parser[1] == NULL ) - { - strncat( psz_cmd, "\"", i_size ); - i_size--; - } - strncat( psz_cmd, *ppsz_parser, i_size ); - i_size -= strlen( *ppsz_parser ); - if ( ppsz_parser[1] == NULL ) - { - strncat( psz_cmd, "\"", i_size ); - i_size--; - } - strncat( psz_cmd, " ", i_size ); - i_size--; - ppsz_parser++; - } - - /* Set up the environment. */ - p = p_env = malloc(32768); - if( !p ) - { - free( psz_cmd ); - return -1; - } - - i_size = 32768; - ppsz_parser = &ppsz_env[0]; - while ( *ppsz_parser != NULL && i_size > 0 ) - { - memcpy( p, *ppsz_parser, - __MIN((int)(strlen(*ppsz_parser) + 1), i_size) ); - p += strlen(*ppsz_parser) + 1; - i_size -= strlen(*ppsz_parser) + 1; - ppsz_parser++; - } - *p = '\0'; - - /* Create the child process. */ - bFuncRetn = CreateProcess( NULL, - psz_cmd, // command line - NULL, // process security attributes - NULL, // primary thread security attributes - TRUE, // handles are inherited - 0, // creation flags - p_env, - psz_cwd, - &siStartInfo, // STARTUPINFO pointer - &piProcInfo ); // receives PROCESS_INFORMATION - - free( psz_cmd ); - free( p_env ); - - if ( bFuncRetn == 0 ) - { - msg_Err( p_object, "child creation failed" ); - return -1; - } - - /* Read from a file and write its contents to a pipe. */ - while ( i_in > 0 && !p_object->b_die ) - { - DWORD i_written; - if ( !WriteFile( hChildStdinWr, p_in, i_in, &i_written, NULL ) ) - break; - i_in -= i_written; - p_in += i_written; - } - - /* Close the pipe handle so the child process stops reading. */ - CloseHandle(hChildStdinWr); - - /* Close the write end of the pipe before reading from the - * read end of the pipe. */ - CloseHandle(hChildStdoutWr); - - /* Read output from the child process. */ - *pi_data = 0; - if( *pp_data ) - free( pp_data ); - *pp_data = NULL; - *pp_data = malloc( 1025 ); /* +1 for \0 */ - - while ( !p_object->b_die ) - { - DWORD i_read; - if ( !ReadFile( hChildStdoutRd, &(*pp_data)[*pi_data], 1024, &i_read, - NULL ) - || i_read == 0 ) - break; - *pi_data += i_read; - *pp_data = realloc( *pp_data, *pi_data + 1025 ); - } - - while ( !p_object->b_die - && !GetExitCodeProcess( piProcInfo.hProcess, &i_status ) - && i_status != STILL_ACTIVE ) - msleep( 10000 ); - - CloseHandle(piProcInfo.hProcess); - CloseHandle(piProcInfo.hThread); - - if ( i_status ) - msg_Warn( p_object, - "child %s returned with error code %ld", - ppsz_argv[0], i_status ); - -#else - msg_Err( p_object, "vlc_execve called but no implementation is available" ); - return -1; - -#endif - - if (*pp_data == NULL) - return -1; - - (*pp_data)[*pi_data] = '\0'; - return 0; -}