imapext-2007
annotate src/osdep/unix/crx_std.c @ 0:ada5e610ab86
imap-2007e
| author | yuuji@gentei.org |
|---|---|
| date | Mon, 14 Sep 2009 15:17:45 +0900 |
| parents | |
| children |
| rev | line source |
|---|---|
| yuuji@0 | 1 /* ======================================================================== |
| yuuji@0 | 2 * Copyright 1988-2006 University of Washington |
| yuuji@0 | 3 * |
| yuuji@0 | 4 * Licensed under the Apache License, Version 2.0 (the "License"); |
| yuuji@0 | 5 * you may not use this file except in compliance with the License. |
| yuuji@0 | 6 * You may obtain a copy of the License at |
| yuuji@0 | 7 * |
| yuuji@0 | 8 * http://www.apache.org/licenses/LICENSE-2.0 |
| yuuji@0 | 9 * |
| yuuji@0 | 10 * |
| yuuji@0 | 11 * ======================================================================== |
| yuuji@0 | 12 */ |
| yuuji@0 | 13 |
| yuuji@0 | 14 /* |
| yuuji@0 | 15 * Program: Exclusive create of a file |
| yuuji@0 | 16 * |
| yuuji@0 | 17 * Author: Mark Crispin |
| yuuji@0 | 18 * Networks and Distributed Computing |
| yuuji@0 | 19 * Computing & Communications |
| yuuji@0 | 20 * University of Washington |
| yuuji@0 | 21 * Administration Building, AG-44 |
| yuuji@0 | 22 * Seattle, WA 98195 |
| yuuji@0 | 23 * Internet: MRC@CAC.Washington.EDU |
| yuuji@0 | 24 * |
| yuuji@0 | 25 * Date: 17 December 1999 |
| yuuji@0 | 26 * Last Edited: 30 August 2006 |
| yuuji@0 | 27 */ |
| yuuji@0 | 28 |
| yuuji@0 | 29 /* Exclusive create of a file |
| yuuji@0 | 30 * Accepts: file name |
| yuuji@0 | 31 * Return: T if success, NIL if failed, -1 if retry |
| yuuji@0 | 32 */ |
| yuuji@0 | 33 |
| yuuji@0 | 34 long crexcl (char *name) |
| yuuji@0 | 35 { |
| yuuji@0 | 36 int i; |
| yuuji@0 | 37 int mask = umask (0); |
| yuuji@0 | 38 long ret = LONGT; |
| yuuji@0 | 39 /* try to get the lock */ |
| yuuji@0 | 40 if ((i = open (name,O_WRONLY|O_CREAT|O_EXCL,(int) shlock_mode)) < 0) |
| yuuji@0 | 41 ret = (errno == EEXIST) ? -1 : NIL; |
| yuuji@0 | 42 else close (i); /* made the file, now close it */ |
| yuuji@0 | 43 umask (mask); /* restore previous mask */ |
| yuuji@0 | 44 return LONGT; /* success */ |
| yuuji@0 | 45 } |