chmod.gml

开放源码的编译器open watcom 1.6.0版的源代码

.func chmod _wchmod _uchmod
#include <sys&pc.types.h>
#include <sys&pc.stat.h>
.if '&machsys' eq 'PP' .do begin
int chmod( const char *path, mode_t permission );
.do end
.el .if '&machsys' eq 'QNX' .do begin
int chmod( const char *path, mode_t permission );
.do end
.el .do begin
#include <&iohdr>
int chmod( const char *path, int permission );
.do end
.ixfunc2 '&FileOp' &func
.if &'length(&wfunc.) ne 0 .do begin
int _wchmod( const wchar_t *path, int permission );
.ixfunc2 '&FileOp' &wfunc
.ixfunc2 '&Wide' &wfunc
.do end
.if &'length(&ufunc.) ne 0 .do begin
int _uchmod( const wchar_t *path, int permission );
.ixfunc2 '&FileOp' &ufunc
.do end
.funcend
.desc begin
The &func function changes the permissions for a file specified by
.arg path
to be the settings in the mode given by
.arg permission.
.im openperv
.if '&machsys' eq 'QNX' .do begin
.np
The following bits may also be specified in
.arg permission.
.begterm 12 $compact
.termhd1 Permission
.termhd2 Meaning
.term S_ISUID
set user id on execution
.term S_ISGID
set group id on execution
.endterm
.np
If the calling process does not have appropriate privileges,
and if the group ID of the file does not match the effective
group ID or one of the supplementary group IDs, and if the file
is a regular file, bit
.mono S_ISGID
(set group ID on execution)
in the file's mode shall be cleared upon successful return from the
&func function.
.do end
.np
Upon successful completion, the &func function will mark for update
the
.us st_ctime
field of the file.
.if &'length(&wfunc.) ne 0 .do begin
.np
The &wfunc function is identical to &func except that it accepts a
wide-character string argument.
.do end
.if &'length(&ufunc.) ne 0 .do begin
.np
The &ufunc function is identical to &func except that it accepts a
Unicode string argument.
.do end
.desc end
.return begin
The &func
returns zero if the new settings are successfully made; otherwise,
&minus.1 is returned and
.kw errno
is set to indicate the error.
.return end
.error begin
.if '&machsys' ne 'PP' .do begin
.begterm 12
.termhd1 Constant
.termhd2 Meaning
.term EACCES
Search permission is denied for a component of
.arg path.
.if '&machsys' eq 'QNX' .do begin
.term ENAMETOOLONG
The argument
.arg path
exceeds {PATH_MAX} in length, or a pathname component is longer than
{NAME_MAX}.
.do end
.term ENOENT
The specified
.arg path
does not exist or
.arg path
is an empty string.
.if '&machsys' eq 'QNX' .do begin
.term ENOTDIR
A component of
.arg path
is not a directory.
.term EPERM
The effective user ID does not match the owner of the file and the
calling process does not have the appropriate privileges.
.term EROFS
The named file resides on a read-only file system.
.do end
.endterm
.do end
.error end
.see begin
.if '&machsys' eq 'QNX' .do begin
.seelist chmod chown mkdir mkfifo stat
.do end
.el .do begin
.seelist chmod fstat open sopen stat
.do end
.see end
.exmp begin
/*
 * change the permissions of a list of files
 * to be read/write by the owner only
 */
.exmp break
#include <stdio.h>
#include <stdlib.h>
#include <sys&pc.types.h>
#include <sys&pc.stat.h>
.if '&machsys' ne 'PP' .do begin
.if '&machsys' ne 'QNX' .do begin
#include <&iohdr>
.do end
.do end
.exmp break
void main( int argc, char *argv[] )
  {
    int i;
    int ecode = 0;
.exmp break
    for( i = 1; i < argc; i++ ) {
      if( chmod( argv[i], S_IRUSR | S_IWUSR ) == -1 ) {
        perror( argv[i] );
        ecode++;
      }
    }
    exit( ecode );
  }
.exmp end
.class POSIX 1003.1
.system