X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=src%2Fextras%2Flibc.c;h=ad67e13413e2ec4094d9cd4f9a5e16883f735a6e;hb=402e44d0efae06e58df1ba7c7d4db119d5896eb2;hp=2e098d78c72789a32b1ddd17e606497b4bfc1dab;hpb=fe927c0f058f3f9b27a48524ff9471ae1082f1bc;p=vlc diff --git a/src/extras/libc.c b/src/extras/libc.c index 2e098d78c7..ad67e13413 100644 --- a/src/extras/libc.c +++ b/src/extras/libc.c @@ -1,7 +1,7 @@ /***************************************************************************** * libc.c: Extra libc function for some systems. ***************************************************************************** - * Copyright (C) 2002 the VideoLAN team + * Copyright (C) 2002-2006 the VideoLAN team * $Id$ * * Authors: Jon Lech Johansen @@ -9,6 +9,7 @@ * Gildas Bazin * Derk-Jan Hartman * Christophe Massiot + * Rémi Denis-Courmont * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -22,13 +23,16 @@ * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software - * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111, USA. + * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA. *****************************************************************************/ -#include /* strdup() */ -#include +#ifdef HAVE_CONFIG_H +# include "config.h" +#endif + +#include + #include -#include #undef iconv_t #undef iconv_open @@ -43,114 +47,43 @@ # include #endif +#ifdef HAVE_SIGNAL_H +# include +#endif + #ifdef HAVE_FORK # include # include # include # include +# include +# include +# include #endif -/***************************************************************************** - * getenv: just in case, but it should never be called - *****************************************************************************/ -#if !defined( HAVE_GETENV ) -char *vlc_getenv( const char *name ) -{ - return NULL; -} -#endif - -/***************************************************************************** - * strdup: returns a malloc'd copy of a string - *****************************************************************************/ -#if !defined( HAVE_STRDUP ) -char *vlc_strdup( const char *string ) -{ - return strndup( string, strlen( string ) ); -} -#endif - -/***************************************************************************** - * strndup: returns a malloc'd copy of at most n bytes of string - * Does anyone know whether or not it will be present in Jaguar? - *****************************************************************************/ -#if !defined( HAVE_STRNDUP ) -char *vlc_strndup( const char *string, size_t n ) -{ - char *psz; - size_t len = strlen( string ); - - len = __MIN( len, n ); - psz = (char*)malloc( len + 1 ); - - if( psz != NULL ) - { - memcpy( (void*)psz, (const void*)string, len ); - psz[ len ] = 0; - } - - return psz; -} -#endif - -/***************************************************************************** - * strcasecmp: compare two strings ignoring case - *****************************************************************************/ -#if !defined( HAVE_STRCASECMP ) && !defined( HAVE_STRICMP ) -int vlc_strcasecmp( const char *s1, const char *s2 ) -{ - 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 ) -{ - int c1, c2; - if( !s1 || !s2 ) return -1; - - 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); -} +#if defined(WIN32) || defined(UNDER_CE) +# undef _wopendir +# undef _wreaddir +# undef _wclosedir +# undef rewinddir +# define WIN32_LEAN_AND_MEAN +# include #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 ) { +#if defined (HAVE_STRCASESTR) || defined (HAVE_STRISTR) + return strcasestr (psz_big, psz_little); +#else char *p_pos = (char *)psz_big; if( !psz_big || !psz_little || !*psz_little ) return p_pos; - while( *p_pos ) + while( *p_pos ) { if( toupper( *p_pos ) == toupper( *psz_little ) ) { @@ -167,98 +100,18 @@ char * vlc_strcasestr( const char *psz_big, const char *psz_little ) p_pos++; } return NULL; -} #endif - -/***************************************************************************** - * vasprintf: - *****************************************************************************/ -#if !defined(HAVE_VASPRINTF) || defined(SYS_DARWIN) || 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 */ - { - i_size = n+1; /* precisely what is needed */ - } - 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(SYS_DARWIN) || 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 ); - - return i_ret; -} -#endif - -/***************************************************************************** - * atof: convert a string to a double. - *****************************************************************************/ -#if !defined( HAVE_ATOF ) -double vlc_atof( const char *nptr ) -{ - double f_result; - wchar_t *psz_tmp; - int i_len = strlen( nptr ) + 1; - - psz_tmp = malloc( i_len * sizeof(wchar_t) ); - MultiByteToWideChar( CP_ACP, 0, nptr, -1, psz_tmp, i_len ); - f_result = wcstod( psz_tmp, NULL ); - free( psz_tmp ); - - return f_result; } -#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 ) +long long vlc_strtoll( const char *nptr, char **endptr, int base ) { - int64_t i_value = 0; +#if defined( HAVE_STRTOLL ) + return strtoll( nptr, endptr, base ); +#else + long long i_value = 0; int sign = 1, newbase = base ? base : 10; while( isspace(*nptr) ) nptr++; @@ -321,85 +174,121 @@ int64_t vlc_strtoll( const char *nptr, char **endptr, int base ) } return i_value * sign; -} #endif +} -/***************************************************************************** - * atoll: convert a string to a 64 bits int. - *****************************************************************************/ -#if !defined( HAVE_ATOLL ) -int64_t vlc_atoll( const char *nptr ) +/** + * 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) + */ +extern size_t vlc_strlcpy (char *tgt, const char *src, size_t bufsize) { - return strtoll( nptr, (char **)NULL, 10 ); -} +#ifdef HAVE_STRLCPY + return strlcpy (tgt, src, bufsize); +#else + 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) - -#define WIN32_LEAN_AND_MEAN -#include /* for GetLogicalDrives */ +#if defined(WIN32) +# include typedef struct vlc_DIR { - DIR *p_real_dir; + _WDIR *p_real_dir; int i_drives; - struct dirent dd_dir; - vlc_bool_t b_insert_back; + struct _wdirent dd_dir; + bool b_insert_back; } vlc_DIR; -void *vlc_opendir_wrapper( const char *psz_path ) +void *vlc_wopendir( const wchar_t *wpath ) { - vlc_DIR *p_dir; - DIR *p_real_dir; + vlc_DIR *p_dir = NULL; + _WDIR *p_real_dir = NULL; - if ( psz_path == NULL || psz_path[0] == '\0' - || (psz_path[0] == '\\' && psz_path[1] == '\0') ) + 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; +#if defined(UNDER_CE) + p_dir->i_drives = NULL; +#else p_dir->i_drives = GetLogicalDrives(); +#endif return (void *)p_dir; } - p_real_dir = opendir( psz_path ); + 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; - p_dir->b_insert_back = ( psz_path[1] == ':' && psz_path[2] == '\\' - && psz_path[3] =='\0' ); + + assert (wpath[0]); // wpath[1] is defined + p_dir->b_insert_back = !wcscmp (wpath + 1, L":\\"); return (void *)p_dir; } -struct dirent *vlc_readdir_wrapper( 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; - strcpy( p_dir->dd_dir.d_name, ".." ); - p_dir->b_insert_back = VLC_FALSE; + wcscpy( p_dir->dd_dir.d_name, L".." ); + p_dir->b_insert_back = false; return &p_dir->dd_dir; } - return readdir( p_dir->p_real_dir ); + return _wreaddir( p_dir->p_real_dir ); } /* Drive letters mode */ i_drives = p_dir->i_drives; +#ifdef UNDER_CE + swprintf( p_dir->dd_dir.d_name, L"\\"); + p_dir->dd_dir.d_namlen = wcslen(p_dir->dd_dir.d_name); +#else + unsigned int i; if ( !i_drives ) return NULL; /* end */ @@ -409,98 +298,46 @@ struct dirent *vlc_readdir_wrapper( void *_p_dir ) if ( i >= 26 ) return NULL; /* this should not happen */ - sprintf( p_dir->dd_dir.d_name, "%c:\\", 'A' + i ); - p_dir->dd_dir.d_namlen = strlen(p_dir->dd_dir.d_name); + 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); +#endif return &p_dir->dd_dir; } -int vlc_closedir_wrapper( void *_p_dir ) +void vlc_rewinddir( void *_p_dir ) { vlc_DIR *p_dir = (vlc_DIR *)_p_dir; if ( p_dir->p_real_dir != NULL ) - { - int i_ret = closedir( p_dir->p_real_dir ); - free( p_dir ); - return i_ret; - } - - free( p_dir ); - return 0; -} -#else -void *vlc_opendir_wrapper( const char *psz_path ) -{ - return (void *)opendir( psz_path ); -} -struct dirent *vlc_readdir_wrapper( void *_p_dir ) -{ - return readdir( (DIR *)_p_dir ); -} -int vlc_closedir_wrapper( void *_p_dir ) -{ - return closedir( (DIR *)_p_dir ); + _wrewinddir( p_dir->p_real_dir ); } #endif -/***************************************************************************** - * scandir: scan a directory alpha-sorted - *****************************************************************************/ -#if !defined( HAVE_SCANDIR ) -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 ** ) ) +/* This one is in the libvlccore exported symbol list */ +int vlc_wclosedir( void *_p_dir ) { - DIR * p_dir; - struct dirent * p_content; - struct dirent ** pp_list; - int ret, size; - - if( !namelist || !( p_dir = vlc_opendir_wrapper( name ) ) ) return -1; - - ret = 0; - pp_list = NULL; - while( ( p_content = vlc_readdir_wrapper( p_dir ) ) ) - { - if( filter && !filter( p_content ) ) - { - continue; - } - 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 ); - memcpy( pp_list[ret], p_content, size ); - ret++; - } - - vlc_closedir_wrapper( p_dir ); +#if defined(WIN32) + vlc_DIR *p_dir = (vlc_DIR *)_p_dir; + int i_ret = 0; - if( compar ) - { - qsort( pp_list, ret, sizeof( struct dirent * ), - (int (*)(const void *, const void *)) compar ); - } + if ( p_dir->p_real_dir != NULL ) + i_ret = _wclosedir( p_dir->p_real_dir ); - *namelist = pp_list; - return ret; -} + free( p_dir ); + return i_ret; +#else + return closedir( _p_dir ); #endif +} -/***************************************************************************** - * dgettext: gettext for plugins. - *****************************************************************************/ -char *vlc_dgettext( const char *package, const char *msgid ) +/** + * In-tree plugins share their gettext domain with LibVLC. + */ +char *vlc_gettext( const char *msgid ) { -#if defined( ENABLE_NLS ) \ - && ( defined(HAVE_GETTEXT) || defined(HAVE_INCLUDED_GETTEXT) ) - return dgettext( package, msgid ); +#ifdef ENABLE_NLS + return dgettext( PACKAGE_NAME, msgid ); #else return (char *)msgid; #endif @@ -524,17 +361,14 @@ static int count_utf8_string( const char *psz_string ) * 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, vlc_bool_t b_utf8 ) +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 ); - if( b_utf8 ) - i_len = count_utf8_string( psz_text ); - else - i_len = strlen( psz_text ); + i_len = count_utf8_string( psz_text ); while( i_len > i_line ) { @@ -543,10 +377,7 @@ char *vlc_wraptext( const char *psz_text, int i_line, vlc_bool_t b_utf8 ) int i_count = 0; while( i_count <= i_line && *psz_parser != '\n' ) { - if( b_utf8 ) - { - while( *((unsigned char *)psz_parser) >= 0x80UL ) psz_parser++; - } + while( *((unsigned char *)psz_parser) >= 0x80UL ) psz_parser++; psz_parser++; i_count++; } @@ -560,10 +391,7 @@ char *vlc_wraptext( const char *psz_text, int i_line, vlc_bool_t b_utf8 ) /* Find the furthest space. */ while( psz_parser > psz_line && *psz_parser != ' ' ) { - if( b_utf8 ) - { - while( *((unsigned char *)psz_parser) >= 0x80UL ) psz_parser--; - } + while( *((unsigned char *)psz_parser) >= 0x80UL ) psz_parser--; psz_parser--; i_count--; } @@ -578,10 +406,7 @@ char *vlc_wraptext( const char *psz_text, int i_line, vlc_bool_t b_utf8 ) /* Wrapping has failed. Find the first space or newline */ while( i_count < i_len && *psz_parser != ' ' && *psz_parser != '\n' ) { - if( b_utf8 ) - { - while( *((unsigned char *)psz_parser) >= 0x80UL ) psz_parser++; - } + while( *((unsigned char *)psz_parser) >= 0x80UL ) psz_parser++; psz_parser++; i_count++; } @@ -601,24 +426,18 @@ vlc_iconv_t vlc_iconv_open( const char *tocode, const char *fromcode ) #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, char **inbuf, size_t *inbytesleft, +size_t vlc_iconv( vlc_iconv_t cd, const char **inbuf, size_t *inbytesleft, char **outbuf, size_t *outbytesleft ) { #if defined(HAVE_ICONV) - return iconv( cd, inbuf, inbytesleft, outbuf, outbytesleft ); + return iconv( cd, (ICONV_CONST char **)inbuf, inbytesleft, + outbuf, outbytesleft ); #else - int 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 } @@ -627,7 +446,7 @@ int vlc_iconv_close( vlc_iconv_t cd ) #if defined(HAVE_ICONV) return iconv_close( cd ); #else - return 0; + abort (); #endif } @@ -635,10 +454,10 @@ int vlc_iconv_close( vlc_iconv_t cd ) * reduce a fraction * (adapted from libavcodec, author Michael Niedermayer ) *****************************************************************************/ -vlc_bool_t vlc_ureduce( unsigned *pi_dst_nom, unsigned *pi_dst_den, +bool vlc_ureduce( unsigned *pi_dst_nom, unsigned *pi_dst_den, uint64_t i_nom, uint64_t i_den, uint64_t i_max ) { - vlc_bool_t b_exact = 1; + bool b_exact = 1; uint64_t i_gcd; if( i_den == 0 ) @@ -652,7 +471,7 @@ vlc_bool_t vlc_ureduce( unsigned *pi_dst_nom, unsigned *pi_dst_den, i_nom /= i_gcd; i_den /= i_gcd; - if( i_max == 0 ) i_max = I64C(0xFFFFFFFF); + if( i_max == 0 ) i_max = INT64_C(0xFFFFFFFF); if( i_nom > i_max || i_den > i_max ) { @@ -685,269 +504,309 @@ vlc_bool_t vlc_ureduce( unsigned *pi_dst_nom, unsigned *pi_dst_den, } /************************************************************************* - * vlc_parse_cmdline: Command line parsing into elements. - * - * The command line is composed of space/tab separated arguments. - * Quotes can be used as argument delimiters and a backslash can be used to - * escape a quote. + * vlc_execve: Execute an external program with a given environment, + * wait until it finishes and return its standard output *************************************************************************/ -static void find_end_quote( char **s, char **ppsz_parser, int i_quote ) +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 ) { - int i_bcount = 0; + (void)i_argc; // <-- hmph +#ifdef HAVE_FORK +# define BUFSIZE 1024 + int fds[2], i_status; - while( **s ) - { - if( **s == '\\' ) - { - **ppsz_parser = **s; - (*ppsz_parser)++; (*s)++; - i_bcount++; - } - else if( **s == '"' || **s == '\'' ) - { - /* Preceeded by a number of '\' which we erase. */ - *ppsz_parser -= i_bcount / 2; - if( i_bcount & 1 ) - { - /* '\\' followed by a '"' or '\'' */ - *ppsz_parser -= 1; - **ppsz_parser = **s; - (*ppsz_parser)++; (*s)++; - i_bcount = 0; - continue; - } + if (socketpair (AF_LOCAL, SOCK_STREAM, 0, fds)) + return -1; - if( **s == i_quote ) - { - /* End */ - return; - } - else - { - /* Different quoting */ - int i_quote = **s; - **ppsz_parser = **s; - (*ppsz_parser)++; (*s)++; - find_end_quote( s, ppsz_parser, i_quote ); - **ppsz_parser = **s; - (*ppsz_parser)++; (*s)++; - } + pid_t pid = -1; + if ((fds[0] > 2) && (fds[1] > 2)) + pid = fork (); - i_bcount = 0; - } - else + switch (pid) + { + case -1: + msg_Err (p_object, "unable to fork (%m)"); + close (fds[0]); + close (fds[1]); + return -1; + + case 0: { - /* A regular character */ - **ppsz_parser = **s; - (*ppsz_parser)++; (*s)++; - i_bcount = 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); } } -} -char **vlc_parse_cmdline( const char *psz_cmdline, int *i_args ) -{ - int argc = 0; - char **argv = 0; - char *s, *psz_parser, *psz_arg, *psz_orig; - int i_bcount = 0; + close (fds[1]); + + *pi_data = 0; + if (*pp_data) + free (*pp_data); + *pp_data = NULL; - if( !psz_cmdline ) return 0; - psz_orig = strdup( psz_cmdline ); - psz_arg = psz_parser = s = psz_orig; + if (i_in == 0) + shutdown (fds[0], SHUT_WR); - while( *s ) + while (!p_object->b_die) { - if( *s == '\t' || *s == ' ' ) - { - /* We have a complete argument */ - *psz_parser = 0; - TAB_APPEND( argc, argv, strdup(psz_arg) ); + struct pollfd ufd[1]; + memset (ufd, 0, sizeof (ufd)); + ufd[0].fd = fds[0]; + ufd[0].events = POLLIN; - /* Skip trailing spaces/tabs */ - do{ s++; } while( *s == '\t' || *s == ' ' ); + if (i_in > 0) + ufd[0].events |= POLLOUT; - /* New argument */ - psz_arg = psz_parser = s; - i_bcount = 0; - } - else if( *s == '\\' ) - { - *psz_parser++ = *s++; - i_bcount++; - } - else if( *s == '"' || *s == '\'' ) + if (poll (ufd, 1, 10) <= 0) + continue; + + if (ufd[0].revents & ~POLLOUT) { - if( ( i_bcount & 1 ) == 0 ) - { - /* Preceeded by an even number of '\', this is half that - * number of '\', plus a quote which we erase. */ - int i_quote = *s; - psz_parser -= i_bcount / 2; - s++; - find_end_quote( &s, &psz_parser, i_quote ); - s++; - } - else + 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) { - /* Preceeded by an odd number of '\', this is half that - * number of '\' followed by a '"' */ - psz_parser = psz_parser - i_bcount/2 - 1; - *psz_parser++ = '"'; - s++; + case -1: + case 0: + shutdown (fds[0], SHUT_RD); + break; + + default: + *pi_data += val; } - i_bcount = 0; } - else + + if (ufd[0].revents & POLLOUT) { - /* A regular character */ - *psz_parser++ = *s++; - i_bcount = 0; + 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; + } } } - /* Take care of the last arg */ - if( *psz_arg ) + close (fds[0]); + + while (waitpid (pid, &i_status, 0) == -1); + + if (WIFEXITED (i_status)) { - *psz_parser = '\0'; - TAB_APPEND( argc, argv, strdup(psz_arg) ); + 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)); } - if( i_args ) *i_args = argc; - free( psz_orig ); - return argv; -} - -/************************************************************************* - * 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 **ppsz_argv, - char **ppsz_env, char *psz_cwd, char *p_in, int i_in, - char **pp_data, int *pi_data ) -{ -#ifdef HAVE_FORK - int pi_stdin[2]; - int pi_stdout[2]; - pid_t i_child_pid; +#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; + } - pipe( pi_stdin ); - pipe( pi_stdout ); + /* Ensure the read handle to the pipe for STDOUT is not inherited. */ + SetHandleInformation( hChildStdoutRd, HANDLE_FLAG_INHERIT, 0 ); - if ( (i_child_pid = fork()) == -1 ) + /* Create a pipe for the child process's STDIN. */ + if ( !CreatePipe( &hChildStdinRd, &hChildStdinWr, &saAttr, 0 ) ) { - msg_Err( p_object, "unable to fork (%s)", strerror(errno) ); + msg_Err( p_object, "stdin pipe creation failed" ); return -1; } - if ( i_child_pid == 0 ) + /* 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 ) { - close(0); - dup(pi_stdin[1]); - close(pi_stdin[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++; + } - close(1); - dup(pi_stdout[1]); - close(pi_stdout[0]); + /* Set up the environment. */ + p = p_env = malloc(32768); + if( !p ) + { + free( psz_cmd ); + return -1; + } - close(2); + 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; + } - if ( psz_cwd != NULL ) - chdir( psz_cwd ); - execve( ppsz_argv[0], ppsz_argv, ppsz_env ); - exit(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(pi_stdin[1]); - close(pi_stdout[1]); - if ( !i_in ) - close( pi_stdin[0] ); + /* 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 ) { - int i_ret, i_status; - fd_set readfds, writefds; - struct timeval tv; - - FD_ZERO( &readfds ); - FD_ZERO( &writefds ); - FD_SET( pi_stdout[0], &readfds ); - if ( i_in ) - FD_SET( pi_stdin[0], &writefds ); - - tv.tv_sec = 0; - tv.tv_usec = 10000; - - i_ret = select( pi_stdin[0] > pi_stdout[0] ? pi_stdin[0] + 1 : - pi_stdout[0] + 1, &readfds, &writefds, NULL, &tv ); - if ( i_ret > 0 ) - { - if ( FD_ISSET( pi_stdout[0], &readfds ) ) - { - ssize_t i_read = read( pi_stdout[0], &(*pp_data)[*pi_data], - 1024 ); - if ( i_read > 0 ) - { - *pi_data += i_read; - *pp_data = realloc( *pp_data, *pi_data + 1025 ); - } - } - if ( FD_ISSET( pi_stdin[0], &writefds ) ) - { - ssize_t i_write = write( pi_stdin[0], p_in, __MIN(i_in, 1024) ); - - if ( i_write > 0 ) - { - p_in += i_write; - i_in -= i_write; - } - if ( !i_in ) - close( pi_stdin[0] ); - } - } - - if ( waitpid( i_child_pid, &i_status, WNOHANG ) == i_child_pid ) - { - if ( WIFEXITED( i_status ) ) - { - if ( WEXITSTATUS( i_status ) ) - { - msg_Warn( p_object, - "child %s returned with error code %d", - ppsz_argv[0], WEXITSTATUS( i_status ) ); - } - } - else - { - if ( WIFSIGNALED( i_status ) ) - { - msg_Warn( p_object, - "child %s quit on signal %d", ppsz_argv[0], - WTERMSIG( i_status ) ); - } - } - if ( i_in ) - close( pi_stdin[0] ); - close( pi_stdout[0] ); + DWORD i_read; + if ( !ReadFile( hChildStdoutRd, &(*pp_data)[*pi_data], 1024, &i_read, + NULL ) + || i_read == 0 ) break; - } - - if ( i_ret < 0 && errno != EINTR ) - { - msg_Warn( p_object, "select failed (%s)", strerror(errno) ); - } + *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_intf, "vlc_execve called but no implementation is available" ); + msg_Err( p_object, "vlc_execve called but no implementation is available" ); return -1; #endif - (*pp_data)[*pi_data] = '\0'; + if (*pp_data == NULL) + return -1; + (*pp_data)[*pi_data] = '\0'; return 0; }