aabc2/KOS_qrcodes
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity

update CLib

Browse Source 
git-svn-id: svn://kolibrios.org@614 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Sergey Semyonov (Serge)
2007-08-28 10:31:46 +00:00
parent 52facee6d5
commit 3be3768ce0
98 changed files with 9908 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
programs/develop/open watcom/trunk/clib/environ/clearenv.c Normal file
View File

@@ -0,0 +1,69 @@
/****************************************************************************
*
* Open Watcom Project
*
* Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
*
* ========================================================================
*
* This file contains Original Code and/or Modifications of Original
* Code as defined in and that are subject to the Sybase Open Watcom
* Public License version 1.0 (the 'License'). You may not use this file
* except in compliance with the License. BY USING THIS FILE YOU AGREE TO
* ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
* provided with the Original Code and Modifications, and is also
* available at www.sybase.com/developer/opensource.
*
* The Original Code and all software distributed under the License are
* distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
* EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
* ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
* NON-INFRINGEMENT. Please see the License for the specific language
* governing rights and limitations under the License.
*
* ========================================================================
*
* Description: Implementation of clearenv() - clear the environment.
*
****************************************************************************/
#include "variety.h"
#include <stdlib.h>
#include <env.h>
#include "liballoc.h"
#include "rtdata.h"
/* Note - clearenv() is always called at library exit */
_WCRTLINK int (clearenv)( void )
{
#ifndef __NETWARE__
char **envp;
char *env_str;
int index;
if( _RWD_environ != NULL ) {
for( envp = _RWD_environ; env_str = *envp; ++envp ) {
if( _RWD_env_mask != NULL ) {
index = envp - _RWD_environ;
if( _RWD_env_mask[ index ] != 0 ) {
lib_free( (void *)env_str );
}
*envp = NULL;
}
}
if( _RWD_env_mask != NULL ) {
lib_free( _RWD_environ );
}
envp = lib_malloc( sizeof(char *) + sizeof(char) );
if( envp == NULL ) return( -1 );
_RWD_environ = envp;
*_RWD_environ = NULL;
_RWD_env_mask = ((char *)envp) + sizeof(char *);
*_RWD_env_mask = 0;
}
#endif
return( 0 ); /* success */
}

51
programs/develop/open watcom/trunk/clib/environ/environ.c Normal file
View File

@@ -0,0 +1,51 @@
/****************************************************************************
*
* Open Watcom Project
*
* Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
*
* ========================================================================
*
* This file contains Original Code and/or Modifications of Original
* Code as defined in and that are subject to the Sybase Open Watcom
* Public License version 1.0 (the 'License'). You may not use this file
* except in compliance with the License. BY USING THIS FILE YOU AGREE TO
* ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
* provided with the Original Code and Modifications, and is also
* available at www.sybase.com/developer/opensource.
*
* The Original Code and all software distributed under the License are
* distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
* EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
* ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
* NON-INFRINGEMENT. Please see the License for the specific language
* governing rights and limitations under the License.
*
* ========================================================================
*
* Description: Environment pointers.
*
****************************************************************************/
#include "variety.h"
#include <stdlib.h>
#include "rtdata.h"
#include "rtinit.h"
_WCRTLINKD char ** _WCNEAR environ; /* pointer to environment table */
_WCRTLINKD wchar_t ** _WCNEAR _wenviron; /* pointer to wide char environment */
char * _WCNEAR __env_mask; /* ptr to char array of flags */
extern void __setenvp( void );
AXI( __setenvp, INIT_PRIORITY_LIBRARY )
#if !defined(__NETWARE__) && !defined(__LINUX__)
/* Environment needs to be freed after files are shut down; __MkTmpFile()
* is used to delete temp files and needs access to environment.
*/
extern void __freeenvp( void );
AYI( __freeenvp, INIT_PRIORITY_LIBRARY - 1 )
#endif

54
programs/develop/open watcom/trunk/clib/environ/filestr.h Normal file
View File

@@ -0,0 +1,54 @@
/****************************************************************************
*
* Open Watcom Project
*
* Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
*
* ========================================================================
*
* This file contains Original Code and/or Modifications of Original
* Code as defined in and that are subject to the Sybase Open Watcom
* Public License version 1.0 (the 'License'). You may not use this file
* except in compliance with the License. BY USING THIS FILE YOU AGREE TO
* ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
* provided with the Original Code and Modifications, and is also
* available at www.sybase.com/developer/opensource.
*
* The Original Code and all software distributed under the License are
* distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
* EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
* ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
* NON-INFRINGEMENT. Please see the License for the specific language
* governing rights and limitations under the License.
*
* ========================================================================
*
* Description: WHEN YOU FIGURE OUT WHAT THIS FILE DOES, PLEASE
* DESCRIBE IT HERE!
*
****************************************************************************/
#ifndef _FILNMTYP_H_INCLUDED
#define _FILNMTYP_H_INCLUDED
#include "variety.h"
#include <stddef.h>
_WCRTLINK extern char * __FormPosixHandleStr( void );
_WCRTLINK extern void __ParsePosixHandleStr( void );
_WCRTLINK extern wchar_t * __wFormPosixHandleStr( void );
_WCRTLINK extern void __wParsePosixHandleStr( void );
#ifdef __NT__
#define __USE_POSIX_HANDLE_STRINGS
#else
#undef __USE_POSIX_HANDLE_STRINGS
#endif
#endif

111
programs/develop/open watcom/trunk/clib/environ/getenv.c Normal file
View File

@@ -0,0 +1,111 @@
/****************************************************************************
*
* Open Watcom Project
*
* Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
*
* ========================================================================
*
* This file contains Original Code and/or Modifications of Original
* Code as defined in and that are subject to the Sybase Open Watcom
* Public License version 1.0 (the 'License'). You may not use this file
* except in compliance with the License. BY USING THIS FILE YOU AGREE TO
* ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
* provided with the Original Code and Modifications, and is also
* available at www.sybase.com/developer/opensource.
*
* The Original Code and all software distributed under the License are
* distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
* EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
* ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
* NON-INFRINGEMENT. Please see the License for the specific language
* governing rights and limitations under the License.
*
* ========================================================================
*
* Description: Implementation of getenv().
*
****************************************************************************/
#include "variety.h"
#include "widechar.h"
#include <mbstring.h>
#include <stdlib.h>
#include <string.h>
#include "rtdata.h"
#ifdef __WIDECHAR__
#include "wenviron.h"
#endif
#if defined(__UNIX__)
#ifdef __WIDECHAR__
#define CMP_FUNC wcsncmp
#else
#define CMP_FUNC strncmp
#endif
#else
#define CMP_FUNC _wcsnicmp
#endif
#if !defined(__UNIX__) && !defined(__WIDECHAR__) && !defined(__NETWARE__)
_WCRTLINK char *getenv( const char *name )
{
char **envp;
char *p;
/*** Find the environment string ***/
__ptr_check( name, 0 );
envp = _RWD_environ;
if( (envp != NULL) && (name != NULL) ) {
for( ; p = *envp; ++envp ) {
const char *s = name;
while( *p != '\0' ) { /* simple check is sufficient for p, not s */
if ( _mbterm( s ) ) {
if( *p == '=' ) return( p + 1 );
break;
}
if ( _mbctoupper( _mbsnextc( p ) ) != _mbctoupper( _mbsnextc( s ) ) )
break;
p = _mbsinc( p ); /* skip over character */
s = _mbsinc( s ); /* skip over character */
}
}
}
return( NULL ); /* not found */
}
#else
_WCRTLINK CHAR_TYPE *__F_NAME(getenv,_wgetenv)( const CHAR_TYPE *name )
{
#ifdef __NETWARE__
name = name;
#else
CHAR_TYPE **envp;
CHAR_TYPE *p;
int len;
#ifdef __WIDECHAR__
if( _RWD_wenviron == NULL ) __create_wide_environment();
#endif
/*** Find the environment string ***/
__ptr_check( name, 0 );
envp = __F_NAME(_RWD_environ,_RWD_wenviron);
if( (envp != NULL) && (name != NULL) ) {
len = __F_NAME(strlen,wcslen)( name );
for( ; p = *envp; ++envp ) {
if( CMP_FUNC( p, name, len ) == 0 ) {
if( p[len] == __F_NAME('=',L'=') ) return( &p[len+1] );
}
}
}
#endif
return( NULL ); /* not found */
}
#endif

85
programs/develop/open watcom/trunk/clib/environ/gtcmd.c Normal file
View File

@@ -0,0 +1,85 @@
/****************************************************************************
*
* Open Watcom Project
*
* Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
*
* ========================================================================
*
* This file contains Original Code and/or Modifications of Original
* Code as defined in and that are subject to the Sybase Open Watcom
* Public License version 1.0 (the 'License'). You may not use this file
* except in compliance with the License. BY USING THIS FILE YOU AGREE TO
* ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
* provided with the Original Code and Modifications, and is also
* available at www.sybase.com/developer/opensource.
*
* The Original Code and all software distributed under the License are
* distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
* EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
* ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
* NON-INFRINGEMENT. Please see the License for the specific language
* governing rights and limitations under the License.
*
* ========================================================================
*
* Description: Multi-platform implementation of getcmd() and _bgetcmd().
*
****************************************************************************/
#include "variety.h"
#include <limits.h>
#include <ctype.h>
#include <string.h>
#if defined(__NT__)
#elif defined(__OS2__)
#endif
#if !defined( __NETWARE__ ) || defined( _NETWARE_LIBC )
#include <process.h>
#endif
extern char *_LpCmdLine;
_WCRTLINK int _bgetcmd( char *buffer, int len )
{
int cmdlen;
char *cmd;
char *tmp;
if( buffer && (len > 0) )
*buffer = '\0';
cmd = _LpCmdLine;
if( !cmd )
return( 0 );
while( *cmd == ' ' || *cmd == '\t' )
++cmd;
for( cmdlen = 0, tmp = cmd; *tmp; ++tmp, ++cmdlen )
;
if( !buffer || (len <= 0) )
return( cmdlen );
len--;
len = (len < cmdlen) ? len : cmdlen;
while( len ) {
*buffer++ = *cmd++;
--len;
}
buffer[len] = '\0';
return( cmdlen );
} /* _bgetcmd() */
_WCRTLINK char *getcmd( char *buffer )
{
_bgetcmd( buffer, INT_MAX );
return( buffer );
} /* getcmd() */

151
programs/develop/open watcom/trunk/clib/environ/searchen.c Normal file
View File

@@ -0,0 +1,151 @@
/****************************************************************************
*
* Open Watcom Project
*
* Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
*
* ========================================================================
*
* This file contains Original Code and/or Modifications of Original
* Code as defined in and that are subject to the Sybase Open Watcom
* Public License version 1.0 (the 'License'). You may not use this file
* except in compliance with the License. BY USING THIS FILE YOU AGREE TO
* ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
* provided with the Original Code and Modifications, and is also
* available at www.sybase.com/developer/opensource.
*
* The Original Code and all software distributed under the License are
* distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
* EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
* ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
* NON-INFRINGEMENT. Please see the License for the specific language
* governing rights and limitations under the License.
*
* ========================================================================
*
* Description: This function searches for the specified file in the
* 1) current directory or, failing that,
* 2) the paths listed in the specified environment variable
* until it finds the first occurrence of the file.
*
****************************************************************************/
#include "variety.h"
#include "widechar.h"
#undef __INLINE_FUNCTIONS__
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#ifndef __UNIX__
#include <direct.h>
#endif
#include <string.h>
#include "rtdata.h"
#include "seterrno.h"
#ifdef __WIDECHAR__
#include "wenviron.h"
#endif
#if defined(__UNIX__)
#ifdef __WIDECHAR__
#define PATH_SEPARATOR L'/'
#define LIST_SEPARATOR L':'
#else
#define PATH_SEPARATOR '/'
#define LIST_SEPARATOR ':'
#endif
#else
#ifdef __WIDECHAR__
#define PATH_SEPARATOR L'\\'
#define LIST_SEPARATOR L';'
#else
#define PATH_SEPARATOR '\\'
#define LIST_SEPARATOR ';'
#endif
#endif
_WCRTLINK void __F_NAME(_searchenv,_wsearchenv)( const CHAR_TYPE *name, const CHAR_TYPE *env_var, CHAR_TYPE *buffer )
{
CHAR_TYPE *p, *p2;
int prev_errno;
size_t len;
#ifdef __WIDECHAR__
if( _RWD_wenviron == NULL ) __create_wide_environment();
#endif
prev_errno = _RWD_errno;
if( __F_NAME(access,_waccess)( name, F_OK ) == 0 ) {
p = buffer; /* JBS 90/3/30 */
len = 0; /* JBS 04/1/06 */
for( ;; ) {
if( name[0] == PATH_SEPARATOR ) break;
if( name[0] == __F_NAME('.',L'.') ) break;
#ifndef __UNIX__
if( name[0] == __F_NAME('/',L'/') ) break;
if( (name[0] != __F_NAME('\0',L'\0')) && (name[1] == __F_NAME(':',L':')) ) break;
#endif
__F_NAME(getcwd,_wgetcwd)( buffer, _MAX_PATH );
len = __F_NAME(strlen,wcslen)( buffer );
p = &buffer[ len ];
if( p[-1] != PATH_SEPARATOR ) {
if( len < (_MAX_PATH - 1) ) {
*p++ = PATH_SEPARATOR;
len++;
}
}
break;
}
*p = __F_NAME('\0',L'\0');
__F_NAME(strncat,wcsncat)( p, name, (_MAX_PATH - 1) - len );
return;
}
p = __F_NAME(getenv,_wgetenv)( env_var );
if( p != NULL ) {
for( ;; ) {
if( *p == __F_NAME('\0',L'\0') ) break;
p2 = buffer;
len = 0; /* JBS 04/1/06 */
while( *p ) {
if( *p == LIST_SEPARATOR ) break;
if( *p != __F_NAME('"',L'"') ) {
if( len < (_MAX_PATH-1) ) {
*p2++ = *p; /* JBS 00/9/29 */
len++;
}
}
p++;
}
/* check for zero-length prefix which represents CWD */
if( p2 != buffer ) { /* JBS 90/3/30 */
if( p2[-1] != PATH_SEPARATOR
#ifndef __UNIX__
&& p2[-1] != __F_NAME('/','/')
&& p2[-1] != __F_NAME(':',':')
#endif
) {
if( len < (_MAX_PATH - 1) ) {
*p2++ = PATH_SEPARATOR;
len++;
}
}
*p2 = __F_NAME('\0',L'\0');
len += __F_NAME(strlen,wcslen)( name );/* JBS 04/12/23 */
if( len < _MAX_PATH ) {
__F_NAME(strcat,wcscat)( p2, name );
/* check to see if file exists */
if( __F_NAME(access,_waccess)( buffer, 0 ) == 0 ) {
__set_errno( prev_errno );
return;
}
}
}
if( *p == '\0' ) break;
++p;
}
}
buffer[0] = __F_NAME( '\0',L'\0' );
}

127
programs/develop/open watcom/trunk/clib/environ/setenvp.c Normal file
View File

@@ -0,0 +1,127 @@
/****************************************************************************
*
* Open Watcom Project
*
* Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
*
* ========================================================================
*
* This file contains Original Code and/or Modifications of Original
* Code as defined in and that are subject to the Sybase Open Watcom
* Public License version 1.0 (the 'License'). You may not use this file
* except in compliance with the License. BY USING THIS FILE YOU AGREE TO
* ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
* provided with the Original Code and Modifications, and is also
* available at www.sybase.com/developer/opensource.
*
* The Original Code and all software distributed under the License are
* distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
* EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
* ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
* NON-INFRINGEMENT. Please see the License for the specific language
* governing rights and limitations under the License.
*
* ========================================================================
*
* Description: Routines to create/destroy clib copy of OS environment.
*
****************************************************************************/
#include "variety.h"
#include <stdio.h>
#include <stddef.h>
#include <stdlib.h>
#include <env.h>
#include "liballoc.h"
#include <string.h>
#include "filestr.h"
#include "rtdata.h"
extern char _WCI86FAR *_Envptr;
static char *_free_ep;
#define allocate lib_malloc
void __setenvp( void )
{
#if defined(__NETWARE__)
// no environment support
#elif defined(__LINUX__)
#else
char _WCI86FAR *startp;
char _WCI86FAR *p;
char *ep;
char *my_env_mask;
char **my_environ;
int count;
size_t ep_size;
size_t env_size;
/* if we are already initialized, then return */
if( _RWD_environ != NULL ) return; /* 10-jun-90 */
// env_size = sys_get_environ(0,0)+1;
// _Envptr = lib_malloc(env_size);
// sys_get_environ(_Envptr, env_size)
startp = _Envptr;
count = 0;
p = startp;
while( *p ) {
while( *++p );
++count;
++p;
}
ep_size = p - startp;
if( ep_size == 0 ) {
ep_size = 1;
}
ep = (char *)allocate( ep_size );
if( ep ) {
env_size = (count + 1) * sizeof(char *) + count * sizeof(char);
my_environ = (char **)allocate( env_size );
if( my_environ ) {
_RWD_environ = my_environ;
p = startp;
_free_ep = ep;
while( *p ) {
*my_environ++ = ep;
while( *ep++ = *p++ )
;
}
*my_environ++ = NULL;
_RWD_env_mask = my_env_mask = (char *) my_environ;
for( ; count; count-- )
*my_env_mask++ = 0;
} else {
lib_free( ep );
}
}
/*** Handle the C_FILE_INFO entry ***/
#ifdef __USE_POSIX_HANDLE_STRINGS
// __ParsePosixHandleStr();
#endif
#endif
}
#if !defined(__NETWARE__) && !defined(__LINUX__)
void __freeenvp( void )
{
clearenv();
if( _RWD_environ ) {
lib_free( _RWD_environ );
_RWD_environ = NULL;
}
if( _free_ep ) {
lib_free( _free_ep );
_free_ep = NULL;
}
}
#endif