/***
*fullpath.c -
*
*	Copyright (c) 1987-1995, Microsoft Corporation. All rights reserved.
*
*Purpose: contains the function _fullpath which makes an absolute path out
*	of a relative path. i.e.  ..\pop\..\main.c => c:\src\main.c if the
*	current directory is c:\src\src
*
*Revision History:
*
*	12-21-87  WAJ	Initial version
*	01-08-88  WAJ	now treats / as an \
*	06-22-88  WAJ	now handles network paths  ie \\sl\users
*	01-31-89  SKS/JCR Renamed _canonic to _fullpath
*	04-03-89  WAJ	Now returns "d:\dir" for "."
*	05-09-89  SKS	Do not change the case of arguments
*	11-30-89  JCR	Preserve errno setting from _getdcwd() call on errors
*	03-07-90  GJF	Replaced _LOAD_DS with _CALLTYPE1, added #include
*			<cruntime.h>, removed #include <register.h> and fixed
*			the copyright.
*	04-25-90  JCR	Fixed an incorrect errno setting
*	06-14-90  SBM	Fixed bugs in which case of user provided drive letter
*			was not always preserved, and c:\foo\\bar did not
*			generate an error
*	08-10-90  SBM	Compiles cleanly with -W3
*	08-28-90  SBM	Fixed bug in which UNC names were being rejected
*	09-27-90  GJF	New-style function declarator.
*	01-18-91  GJF	ANSI naming.
*	11-30-92  KRS	Ported _MBCS code from 16-bit tree.
*	04-06-93  SKS	Replace _CRTAPI* with __cdecl
*	04-26-93  SKS	Add check for drive validity
*	08-03-93  KRS	Change to use _ismbstrail instead of isdbcscode.
*	09-27-93  CFW	Avoid cast bug.
*	12-07-93  CFW	Wide char enable.
*	01-26-94  CFW	Remove unused isdbcscode function.
*	11-08-94  GJF	Revised to use GetFullPathName.
*	02-08-95  JWM	Spliced _WIN32 & Mac versions.
*
*******************************************************************************/

#ifdef _WIN32

#include <cruntime.h>
#include <stdio.h>
#include <direct.h>
#include <errno.h>
#include <stdlib.h>
#include <internal.h>
#include <tchar.h>
#include <windows.h>


/***
*_TSCHAR *_fullpath( _TSCHAR *buf, const _TSCHAR *path, maxlen );
*
*Purpose:
*
*	_fullpath - combines the current directory with path to form
*	an absolute path. i.e. _fullpath takes care of .\ and ..\
*	in the path.
*
*	The result is placed in buf. If the length of the result
*	is greater than maxlen NULL is returned, otherwise
*	the address of buf is returned.
*
*	If buf is NULL then a buffer is malloc'ed and maxlen is
*	ignored. If there are no errors then the address of this
*	buffer is returned.
*
*	If path specifies a drive, the curent directory of this
*	drive is combined with path. If the drive is not valid
*	and _fullpath needs the current directory of this drive
*	then NULL is returned.	If the current directory of this
*	non existant drive is not needed then a proper value is
*	returned.
*	For example:  path = "z:\\pop" does not need z:'s current
*	directory but path = "z:pop" does.
*
*
*
*Entry:
*	_TSCHAR *buf  - pointer to a buffer maintained by the user;
*	_TSCHAR *path - path to "add" to the current directory
*	int maxlen - length of the buffer pointed to by buf
*
*Exit:
*	Returns pointer to the buffer containing the absolute path
*	(same as buf if non-NULL; otherwise, malloc is
*	used to allocate a buffer)
*
*Exceptions:
*
*******************************************************************************/


_TSCHAR * __cdecl _tfullpath (
	_TSCHAR *UserBuf,
	const _TSCHAR *path,
	size_t maxlen
	)
{
	_TSCHAR	*buf;
	_TSCHAR *pfname;
	unsigned long count;


	if ( !path || !*path )	/* no work to do */
	    return( _tgetcwd( UserBuf, maxlen ) );

	/* allocate buffer if necessary */

	if ( !UserBuf )
	    if ( !(buf = malloc(_MAX_PATH * sizeof(_TSCHAR))) ) {
		errno = ENOMEM;
		return( NULL );
	    }
	    else
		maxlen = _MAX_PATH;
	else
	    buf = UserBuf;

	count = GetFullPathName ( path,
				  maxlen,
				  buf,
				  &pfname );

	if ( count >= maxlen ) {
	    errno = ERANGE;
	    return( NULL );
	}
	else if ( count == 0 ) {
	    _dosmaperr( GetLastError() );
	    return( NULL );
	}

	return( buf );

}

#else		/* ndef _WIN32 */

#include <cruntime.h>
#include <stdio.h>
#include <direct.h>
#include <errno.h>
#include <stdlib.h>
#include <string.h>
#include <internal.h>
#include <macos\osutils.h>
#include <macos\files.h>
#include <macos\errors.h>
#ifdef	_MBCS
#include <mbdata.h>
#include <mbctype.h>
#include <mbstring.h>
int	isdbcscode (const char *, const char *);
#endif


/***
*char *_fullpath( char *buf, const char *path, maxlen );
*
*Purpose:
*
*	_fullpath - combines the current directory with path to form
*	an absolute path. i.e. _fullpath takes care of ::
*	in the path.
*
*	The result is placed in buf. If the length of the result
*	is greater than maxlen NULL is returned, otherwise
*	the address of buf is returned.
*
*	If buf is NULL then a buffer is malloc'ed and maxlen is
*	ignored. If there are no errors then the address of this
*	buffer is returned.
*
*
*Entry:
*	char *buf  - pointer to a buffer maintained by the user;
*	char *path - path to "add" to the current directory
*	int maxlen - length of the buffer pointed to by buf
*
*Exit:
*	Returns pointer to the buffer containing the absolute path
*	(same as buf if non-NULL; otherwise, malloc is
*	used to allocate a buffer)
*
*Exceptions:
*
*******************************************************************************/

char * _CALLTYPE1 _fullpath (
    char *UserBuf,
    const char *path,
    size_t maxlen
    )
{
    char    *buf;
    size_t   cbPath;

    if( !path || !*path )   /* no work to do */
	return( _getcwd( UserBuf, maxlen ) );

    if (UserBuf && (strlen(path) > maxlen))
    	return NULL;

    /* allocate buffer if necessary */

    if( !UserBuf )
		{
		if( !(buf = malloc(_MAX_PATH)) )
			{
		    errno = ENOMEM;
		    return( NULL );
	   	 }
		else
			{
		   maxlen = _MAX_PATH;
			}
		}
    else 
		{
		buf = UserBuf;
		}

    cbPath = strlen(path);
    if (cbPath > maxlen)
    	{
	errno = ERANGE;
	return NULL;
	}

    maxlen = maxlen - cbPath;
    if (*path == ':')
    	{
	maxlen++;        //this ":" is not counted
	}

    if ((*path == ':') || 
#ifndef _MBCS
        (strstr(path, ":") == NULL) )
#else
        (_mbsstr(path, ":") == NULL) )
#endif
    	{
	 //partial path
	 if (_getcwd( buf, maxlen ) != NULL)
	 	{
	 	if (*path == ':')
	 		{
	 		strcat(buf, path+1);
	 		}
	 	else	 
	 		{
	 		strcat(buf, path);
	 		}
	 	}
	else
		{
		if (!UserBuf)
			{
			free(buf);
			}
		return( NULL);
		}
	}
    else
    	{
		//fullpath
		strcpy(buf, path);
		}

    return buf;

}


#ifdef	_MBCS
/***
*	int isdbcscode( char *path, char *buf );
*
*Purpose:
*
*   isdbcscode - Check DBCS Code
*
*Entry:
*   char *path - full path
*   char *buf  - pointer to a buffer maintained by the user;
*
*Exit:
*	TRUE	: -1
*	FALSE	: 0
*
*Exceptions:
*
*******************************************************************************/

int	isdbcscode(const char *path, const char *buf)
{
	while(path <= buf && *path++) {
		if(_ISLEADBYTE( *(path - 1) ) )
			if(path == buf)
				return(-1);
			else
				path++;
	}

	return 0;

}
#endif

#endif		/* _WIN32 */