![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to glocks.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem / src|
Return to glocks.c CVS log | Up to [Coherent Logic Development] / freem / src |
1.1 snw 1: /*
2: * *
3: * * *
4: * * *
5: * ***************
6: * * * * *
7: * * MUMPS *
8: * * * * *
9: * ***************
10: * * *
11: * * *
12: * *
13: *
14: * glocks.c
15: * display and clear M locks
16: *
17: *
1.2 ! snw 18: * Author: Serena Willis <snw@coherent-logic.com>
1.1 snw 19: * Copyright (C) 1998 MUG Deutschland
20: * Copyright (C) 2020 Coherent Logic Development LLC
21: *
22: *
23: * This file is part of FreeM.
24: *
25: * FreeM is free software: you can redistribute it and/or modify
26: * it under the terms of the GNU Affero Public License as published by
27: * the Free Software Foundation, either version 3 of the License, or
28: * (at your option) any later version.
29: *
30: * FreeM is distributed in the hope that it will be useful,
31: * but WITHOUT ANY WARRANTY; without even the implied warranty of
32: * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
33: * GNU Affero Public License for more details.
34: *
35: * You should have received a copy of the GNU Affero Public License
36: * along with FreeM. If not, see <https://www.gnu.org/licenses/>.
37: *
38: **/
39:
40: #include <stdlib.h>
41: #include <stddef.h>
42: #include "mpsdef0.h"
43: #include "errmsg.h"
44: #include <signal.h>
45: #include <setjmp.h>
46: #include <fcntl.h>
47: #include <unistd.h>
48: #include <sys/types.h>
49: #include <sys/wait.h>
50: #include <string.h>
51:
52: #ifndef FREEBSD
53: #define EOF -1
54: #endif
55:
56: #include <stdio.h>
57: #ifdef SYSFIVE
58: #include <fcntl.h>
59: #endif /* SYSFIVE */
60:
61: /* needed if byte data are to be interpreted as unsigned integer */
62: #define UNSIGN(A) ((A)&0377)
63: void unlock ();
64: void zname ();
65: short int znamenumeric ();
66: long int tell ();
67:
68: #ifndef SYSFIVE
69: #define FreeM_timezone -3600
70: #else
71:
72: #ifdef __CYGWIN__
73: #define FreeM_timezone _timezone
74: #else
75: extern long FreeM_timezone;
76: #endif /* __CYGWIN__ */
77:
78: #endif /* SYSFIVE */
79:
80:
81:
82: int
83: main (argc, argv)
84: int argc; /* arguments count */
85: char **argv; /* arguments string */
86:
87: {
88: static char locktab[80] = "/usr/tmp/locktab"; /* file with LOCKs */
89: static long rempid = 0L; /* remove entry with rem PID */
90: short ltab; /* file descr. for locktab */
91: int pid;
92: short type;
93: char ch;
94: char line[300], varnam[300];
95: int i, j, n;
96:
97: if (argc > 1) {
98: j = 0;
99: while (--argc > 0) {
100: j++;
101: if (argv[j][0] == '-') {
102: if (rempid) {
103: fprintf (stderr, "usage is: %s [-pid] [lockfile]\n", *argv);
104: exit (0);
105: }
106: n = 0;
107: rempid = 0L;
108: while ((ch = argv[j][++n])) {
109: if (ch < '0' || ch > '9') {
110: fprintf (stderr, "usage is: %s [-pid] [lockfile]\n", *argv);
111: exit (0);
112: }
113: rempid = rempid * 10 + ch - '0';
114: }
115: continue;
116: }
117: strcpy (locktab, *(argv + j));
118: }
119: }
120: if (rempid)
121: unlock (locktab, rempid);
122: while ((ltab = open (locktab, 0)) == -1) {
123: printf ("cannot open '%s'\n", locktab);
124: exit (0);
125: }
126:
127: lseek (ltab, 0L, 0);
128: for (;;)
129: {
130: read (ltab, line, 3);
131: pid = UNSIGN (line[0]) * 256 + UNSIGN (line[1]);
132: if (pid == 0)
133: break;
134: type = line[2];
135: i = 0;
136: do {
137: read (ltab, &ch, 1);
138: if (ch == EOF)
139: goto done;
140: varnam[i++] = ch;
141: } while (ch != EOL);
142: zname (line, varnam);
143: printf ("%d\t%s %s\n", pid, type == 'D' ? "ZA" : "L ", line);
144: }
145:
146: done:
147: close (ltab);
148: exit (0);
149: }
150:
151: void
152: unlock (locktab, pid) /* unLOCK all entries of pid */
153: char *locktab; /* locktable */
154: long pid; /* process ID */
155:
156: {
157: short ltab; /* file descr. for locktab */
158: int cpid;
159: char entry[256];
160: long int r_pos; /* position to read */
161: long int w_pos; /* position to write */
162: int i,
163: j;
164:
165: /* open locktab, quit if nothing to be done */
166: if ((ltab = open (locktab, 2)) == -1)
167: return;
168:
169: /* request exclusive access to locktab (read & write) */
170: locking (ltab, 1, 0L);
171:
172: /* free all of your own locks; we do it by copying the whole stuff */
173: /* within 'locktab' omitting the old entries under our PID */
174: j = 0; /* count your old entries */
175: lseek (ltab, 0L, 0);
176: w_pos = 0L;
177: for (;;)
178: {
179: read (ltab, entry, 2);
180: cpid = UNSIGN (entry[0]) * 256 + UNSIGN (entry[1]);
181: if (cpid == 0) {
182: lseek (ltab, w_pos, 0);
183: write (ltab, entry, 2);
184: break;
185: }
186: i = 1;
187: do {
188: read (ltab, &entry[++i], 1);
189: } while (entry[i] != EOL);
190: i++;
191: if (cpid != pid) {
192: if (j) {
193: r_pos = tell (ltab);
194: lseek (ltab, w_pos, 0);
195: write (ltab, entry, (unsigned) i);
196: lseek (ltab, r_pos, 0);
197: }
198: w_pos += i;
199: } else
200: j++;
201: }
202: locking (ltab, 0, 0L);
203: close (ltab);
204: return;
205: } /* end lock() */