File: HsUnixCompat.c

package info (click to toggle)
haskell-unix-compat 0.7.3-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 172 kB
  • sloc: ansic: 419; haskell: 334; makefile: 2
file content (22 lines) | stat: -rw-r--r-- 360 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#include "HsUnixCompat.h"

#ifdef SOLARIS
#include <sys/mkdev.h>
#elif defined(__linux__) || defined(__GNU__)
#include <sys/sysmacros.h>
#endif

unsigned int unix_major(dev_t dev)
{
    return major(dev);
}

unsigned int unix_minor(dev_t dev)
{
    return minor(dev);
}

dev_t unix_makedev(unsigned int maj, unsigned int min)
{
    return makedev(maj, min);
}