mirror of
https://github.com/adtools/clib2.git
synced 2025-12-08 14:59:05 +00:00
6612118e97
- getcwd() now considers a buffer size of 0 an error, and it sets the errno code to ERANGE if the buffer is too small. - With Unix path semantics enabled, rename() now fails if either the old or the new name are empty strings. Same thing for opendir(), utime(), unlink(), chown(), link(), readlink(), realpath(), chdir(), access(), stat(), rmdir(), lstat(), chmod(), statfs() and open()/fopen(). - Fixed several issues with the formatted output of strftime() for the "C" locale: "%p" could return " PM", "%c" is now equivalent to "%a %b %e %T %Y", "%x" is equivalent to "%m/%d/%y" and "%X" is now equivalent to "%T". git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@15020 87f5fb63-7c3d-0410-a384-fd976d0f7a62
164 lines
4.0 KiB
C
164 lines
4.0 KiB
C
/*
|
|
* $Id: stat_chmod.c,v 1.7 2005-08-26 12:39:33 obarthel Exp $
|
|
*
|
|
* :ts=4
|
|
*
|
|
* Portable ISO 'C' (1994) runtime library for the Amiga computer
|
|
* Copyright (c) 2002-2005 by Olaf Barthel <olsen@sourcery.han.de>
|
|
* All rights reserved.
|
|
*
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions
|
|
* are met:
|
|
*
|
|
* - Redistributions of source code must retain the above copyright
|
|
* notice, this list of conditions and the following disclaimer.
|
|
*
|
|
* - Neither the name of Olaf Barthel nor the names of contributors
|
|
* may be used to endorse or promote products derived from this
|
|
* software without specific prior written permission.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
|
|
* AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
* ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
|
|
* LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
|
|
* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
|
|
* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
|
|
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
|
|
* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
|
|
* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
|
|
* POSSIBILITY OF SUCH DAMAGE.
|
|
*/
|
|
|
|
#ifndef _STDLIB_NULL_POINTER_CHECK_H
|
|
#include "stdlib_null_pointer_check.h"
|
|
#endif /* _STDLIB_NULL_POINTER_CHECK_H */
|
|
|
|
/****************************************************************************/
|
|
|
|
#ifndef _STAT_HEADERS_H
|
|
#include "stat_headers.h"
|
|
#endif /* _STAT_HEADERS_H */
|
|
|
|
/****************************************************************************/
|
|
|
|
/* The following is not part of the ISO 'C' (1994) standard. */
|
|
|
|
/****************************************************************************/
|
|
|
|
int
|
|
chmod(const char * path_name, mode_t mode)
|
|
{
|
|
#if defined(UNIX_PATH_SEMANTICS)
|
|
struct name_translation_info path_name_nti;
|
|
#endif /* UNIX_PATH_SEMANTICS */
|
|
ULONG protection;
|
|
LONG status;
|
|
int result = ERROR;
|
|
|
|
ENTER();
|
|
|
|
SHOWSTRING(path_name);
|
|
SHOWVALUE(mode);
|
|
|
|
assert( path_name != NULL );
|
|
|
|
if(__check_abort_enabled)
|
|
__check_abort();
|
|
|
|
#if defined(CHECK_FOR_NULL_POINTERS)
|
|
{
|
|
if(path_name == NULL)
|
|
{
|
|
SHOWMSG("invalid path parameter");
|
|
|
|
__set_errno(EFAULT);
|
|
goto out;
|
|
}
|
|
}
|
|
#endif /* CHECK_FOR_NULL_POINTERS */
|
|
|
|
#if defined(UNIX_PATH_SEMANTICS)
|
|
{
|
|
if(__unix_path_semantics)
|
|
{
|
|
if(path_name[0] == '\0')
|
|
{
|
|
SHOWMSG("no name given");
|
|
|
|
__set_errno(ENOENT);
|
|
goto out;
|
|
}
|
|
|
|
if(__translate_unix_to_amiga_path_name(&path_name,&path_name_nti) != 0)
|
|
goto out;
|
|
|
|
if(path_name_nti.is_root)
|
|
{
|
|
__set_errno(EACCES);
|
|
goto out;
|
|
}
|
|
}
|
|
}
|
|
#endif /* UNIX_PATH_SEMANTICS */
|
|
|
|
protection = 0;
|
|
|
|
if(FLAG_IS_SET(mode,S_IRUSR))
|
|
SET_FLAG(protection,FIBF_READ);
|
|
|
|
if(FLAG_IS_SET(mode,S_IWUSR))
|
|
{
|
|
SET_FLAG(protection,FIBF_WRITE);
|
|
SET_FLAG(protection,FIBF_DELETE);
|
|
}
|
|
|
|
if(FLAG_IS_SET(mode,S_IXUSR))
|
|
SET_FLAG(protection,FIBF_EXECUTE);
|
|
|
|
if(FLAG_IS_SET(mode,S_IRGRP))
|
|
SET_FLAG(protection,FIBF_GRP_READ);
|
|
|
|
if(FLAG_IS_SET(mode,S_IWGRP))
|
|
{
|
|
SET_FLAG(protection,FIBF_GRP_WRITE);
|
|
SET_FLAG(protection,FIBF_GRP_DELETE);
|
|
}
|
|
|
|
if(FLAG_IS_SET(mode,S_IXGRP))
|
|
SET_FLAG(protection,FIBF_GRP_EXECUTE);
|
|
|
|
if(FLAG_IS_SET(mode,S_IROTH))
|
|
SET_FLAG(protection,FIBF_OTR_READ);
|
|
|
|
if(FLAG_IS_SET(mode,S_IWOTH))
|
|
{
|
|
SET_FLAG(protection,FIBF_OTR_WRITE);
|
|
SET_FLAG(protection,FIBF_OTR_DELETE);
|
|
}
|
|
|
|
if(FLAG_IS_SET(mode,S_IXOTH))
|
|
SET_FLAG(protection,FIBF_OTR_EXECUTE);
|
|
|
|
SHOWSTRING(path_name);
|
|
SHOWVALUE(protection);
|
|
|
|
PROFILE_OFF();
|
|
status = SetProtection((STRPTR)path_name,(LONG)(protection ^ (FIBF_READ|FIBF_WRITE|FIBF_EXECUTE|FIBF_DELETE)));
|
|
PROFILE_ON();
|
|
|
|
if(status == DOSFALSE)
|
|
{
|
|
__set_errno(__translate_io_error_to_errno(IoErr()));
|
|
goto out;
|
|
}
|
|
|
|
result = OK;
|
|
|
|
out:
|
|
|
|
RETURN(result);
|
|
return(result);
|
|
}
|