]> git.zerfleddert.de Git - micropolis/blob - src/tclx/ossupp/ids.c
Avoid SIGLOST==SIGPWR namespace collision on sparc (LP: #505080).
[micropolis] / src / tclx / ossupp / ids.c
1 /*
2 * ids.c
3 *
4 * Public-domain relatively quick-and-dirty implemenation of
5 * ANSI library routine for System V Unix systems.
6 *
7 * It's written in old-style C for maximal portability.
8 *
9 * Arnold Robbins
10 * January, February, 1991
11 *
12 * Fixes from ado@elsie.nci.nih.gov
13 * February 1991
14 *-----------------------------------------------------------------------------
15 * $Id: ids.c,v 2.0 1992/10/16 04:52:16 markd Rel $
16 *-----------------------------------------------------------------------------
17 */
18
19 /*
20 * To avoid Unix version problems, this code has been simplified to avoid
21 * const and size_t, however this can cause an incompatible definition on
22 * ansi-C systems, so a game is played with defines to ignore a strftime
23 * declaration in time.h
24 */
25
26 #include <sys/types.h>
27
28 static uid_t usrID = 100;
29 static gid_t grpID = 10;
30
31 static int procID = 12345;
32 static int pgrpID = 10;
33
34
35 /* getppid --- returns the process ID of the parent process */
36
37 int
38 getppid()
39 {
40 return procID;
41 }
42
43 /* getpgrp --- returns the process group of the process indicated by pid */
44
45 int
46 getpgrp(pid)
47 int pid;
48 {
49 return pgrpID;
50 }
51
52 /* setpgrp --- sets the process group of the process indicated by pid */
53
54 int
55 setpgrp(pid, pgrp)
56 int pid;
57 int pgrp;
58 {
59 pgrpID = pgrp;
60 return pgrp;
61 }
62
63 /* setuid --- sets the real and effective user ID of the current process */
64
65 int setuid(uid)
66 uid_t uid;
67 {
68 usrID = uid;
69 return 0;
70 }
71
72 /* getgid --- gets the effective group ID of the current process */
73
74 uid_t setgid(gid)
75 gid_t gid;
76 {
77 grpID = gid;
78 return 0;
79 }
80
Impressum, Datenschutz