OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [newlib-1.17.0/] [newlib/] [libc/] [sys/] [linux/] [ftok.c] - Blame information for rev 438

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 148 jeremybenn
/* Copyright (C) 1995, 1996, 2000 Free Software Foundation, Inc.
2
   This file is part of the GNU C Library.
3
   Contributed by Ulrich Drepper <drepper@gnu.ai.mit.edu>, August 1995.
4
 
5
   The GNU C Library is free software; you can redistribute it and/or
6
   modify it under the terms of the GNU Lesser General Public
7
   License as published by the Free Software Foundation; either
8
   version 2.1 of the License, or (at your option) any later version.
9
 
10
   The GNU C Library is distributed in the hope that it will be useful,
11
   but WITHOUT ANY WARRANTY; without even the implied warranty of
12
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13
   Lesser General Public License for more details.
14
 
15
   You should have received a copy of the GNU Lesser General Public
16
   License along with the GNU C Library; if not, write to the Free
17
   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
18
   02111-1307 USA.  */
19
 
20
/* Modified for newlib by Jeff Johnston, June 10/2002 */
21
 
22
#include <sys/types.h>
23
#include <sys/ipc.h>
24
#include <sys/stat.h>
25
 
26
#if !defined(_ELIX_LEVEL) || _ELIX_LEVEL >= 2
27
#define STAT stat64
28
#else
29
#define STAT stat
30
#endif
31
 
32
key_t
33
ftok (pathname, proj_id)
34
     const char *pathname;
35
     int proj_id;
36
{
37
  struct STAT st;
38
  key_t key;
39
 
40
  if (STAT (pathname, &st) < 0)
41
    return (key_t) -1;
42
 
43
  key = ((st.st_ino & 0xffff) | ((st.st_dev & 0xff) << 16)
44
         | ((proj_id & 0xff) << 24));
45
 
46
  return key;
47
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.