1/*
2  Copyright (c) 1990-1999 Info-ZIP.  All rights reserved.
3
4  See the accompanying file LICENSE, version 1999-Oct-05 or later
5  (the contents of which are also included in zip.h) for terms of use.
6  If, for some reason, both of these files are missing, the Info-ZIP license
7  also may be found at:  ftp://ftp.cdrom.com/pub/infozip/license.html
8*/
9/* Change UNIX modes */
10
11#pragma library
12
13#include <sc.h>
14
15int _chmod(const char *fname, short mask)
16{
17    extern char _um2tm_(short);
18
19    return _filechange(fname,'p',(size_t) _um2tm_(mask)|0x80);
20}
21
22