Mercurial > hg > octave-lojdl > gnulib-hg

annotate lib/readutmp.c @ 2942:c5e4ce044bd7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix typo: s/fseek0/fseeko/
author Jim Meyering <jim@meyering.net>
date Sun, 29 Oct 2000 17:19:51 +0000
parents 41c51e2e9170
children 72422d1e9181
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
981
Jim Meyering <jim@meyering.net>
parents:
diff changeset
1 /* GNU's read utmp module.
2227
509768b4e550 (extract_trimmed_name): Use UT_USER instead of hard-coding
Jim Meyering <jim@meyering.net>
parents: 1830
diff changeset
2 Copyright (C) 1992-2000 Free Software Foundation, Inc.
981
Jim Meyering <jim@meyering.net>
parents:
diff changeset
3
Jim Meyering <jim@meyering.net>
parents:
diff changeset
4 This program is free software; you can redistribute it and/or modify
Jim Meyering <jim@meyering.net>
parents:
diff changeset
5 it under the terms of the GNU General Public License as published by
Jim Meyering <jim@meyering.net>
parents:
diff changeset
6 the Free Software Foundation; either version 2, or (at your option)
Jim Meyering <jim@meyering.net>
parents:
diff changeset
7 any later version.
Jim Meyering <jim@meyering.net>
parents:
diff changeset
8
Jim Meyering <jim@meyering.net>
parents:
diff changeset
9 This program is distributed in the hope that it will be useful,
Jim Meyering <jim@meyering.net>
parents:
diff changeset
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
Jim Meyering <jim@meyering.net>
parents:
diff changeset
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
Jim Meyering <jim@meyering.net>
parents:
diff changeset
12 GNU General Public License for more details.
Jim Meyering <jim@meyering.net>
parents:
diff changeset
13
Jim Meyering <jim@meyering.net>
parents:
diff changeset
14 You should have received a copy of the GNU General Public License
Jim Meyering <jim@meyering.net>
parents:
diff changeset
15 along with this program; if not, write to the Free Software Foundation,
Jim Meyering <jim@meyering.net>
parents:
diff changeset
16 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
Jim Meyering <jim@meyering.net>
parents:
diff changeset
17
Jim Meyering <jim@meyering.net>
parents:
diff changeset
18 /* Written by jla; revised by djm */
Jim Meyering <jim@meyering.net>
parents:
diff changeset
19
Jim Meyering <jim@meyering.net>
parents:
diff changeset
20 #include <config.h>
Jim Meyering <jim@meyering.net>
parents:
diff changeset
21
1710
a6e95d15d8fb Include stdio.h.
Jim Meyering <jim@meyering.net>
parents: 1709
diff changeset
22 #include <stdio.h>
a6e95d15d8fb Include stdio.h.
Jim Meyering <jim@meyering.net>
parents: 1709
diff changeset
23
2402
41c51e2e9170 Include sys/types.h before sys/stat.h.
Jim Meyering <jim@meyering.net>
parents: 2246
diff changeset
24 #include <sys/types.h>
981
Jim Meyering <jim@meyering.net>
parents:
diff changeset
25 #include <sys/stat.h>
Jim Meyering <jim@meyering.net>
parents:
diff changeset
26 #if defined(STDC_HEADERS) || defined(HAVE_STRING_H)
Jim Meyering <jim@meyering.net>
parents:
diff changeset
27 # include <string.h>
Jim Meyering <jim@meyering.net>
parents:
diff changeset
28 #else
Jim Meyering <jim@meyering.net>
parents:
diff changeset
29 # include <strings.h>
Jim Meyering <jim@meyering.net>
parents:
diff changeset
30 #endif /* STDC_HEADERS || HAVE_STRING_H */
Jim Meyering <jim@meyering.net>
parents:
diff changeset
31
Jim Meyering <jim@meyering.net>
parents:
diff changeset
32 #include "readutmp.h"
Jim Meyering <jim@meyering.net>
parents:
diff changeset
33
Jim Meyering <jim@meyering.net>
parents:
diff changeset
34 char *xmalloc ();
1718
db73263fa4b3 (read_utmp) [HAVE_UTMPNAME]: Rewrite.
Jim Meyering <jim@meyering.net>
parents: 1710
diff changeset
35 char *realloc ();
981
Jim Meyering <jim@meyering.net>
parents:
diff changeset
36
Jim Meyering <jim@meyering.net>
parents:
diff changeset
37 /* Copy UT->ut_name into storage obtained from malloc. Then remove any
Jim Meyering <jim@meyering.net>
parents:
diff changeset
38 trailing spaces from the copy, NUL terminate it, and return the copy. */
Jim Meyering <jim@meyering.net>
parents:
diff changeset
39
Jim Meyering <jim@meyering.net>
parents:
diff changeset
40 char *
1362
e5c4dcf21602 (read_utmp): Add variant for systems that have the utmpname function.
Jim Meyering <jim@meyering.net>
parents: 984
diff changeset
41 extract_trimmed_name (const STRUCT_UTMP *ut)
981
Jim Meyering <jim@meyering.net>
parents:
diff changeset
42 {
Jim Meyering <jim@meyering.net>
parents:
diff changeset
43 char *p, *trimmed_name;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
44
2227
509768b4e550 (extract_trimmed_name): Use UT_USER instead of hard-coding
Jim Meyering <jim@meyering.net>
parents: 1830
diff changeset
45 trimmed_name = xmalloc (sizeof (UT_USER (ut)) + 1);
509768b4e550 (extract_trimmed_name): Use UT_USER instead of hard-coding
Jim Meyering <jim@meyering.net>
parents: 1830
diff changeset
46 strncpy (trimmed_name, UT_USER (ut), sizeof (UT_USER (ut)));
981
Jim Meyering <jim@meyering.net>
parents:
diff changeset
47 /* Append a trailing space character. Some systems pad names shorter than
Jim Meyering <jim@meyering.net>
parents:
diff changeset
48 the maximum with spaces, others pad with NULs. Remove any spaces. */
2227
509768b4e550 (extract_trimmed_name): Use UT_USER instead of hard-coding
Jim Meyering <jim@meyering.net>
parents: 1830
diff changeset
49 trimmed_name[sizeof (UT_USER (ut))] = ' ';
981
Jim Meyering <jim@meyering.net>
parents:
diff changeset
50 p = strchr (trimmed_name, ' ');
Jim Meyering <jim@meyering.net>
parents:
diff changeset
51 if (p != NULL)
Jim Meyering <jim@meyering.net>
parents:
diff changeset
52 *p = '\0';
Jim Meyering <jim@meyering.net>
parents:
diff changeset
53 return trimmed_name;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
54 }
Jim Meyering <jim@meyering.net>
parents:
diff changeset
55
1718
db73263fa4b3 (read_utmp) [HAVE_UTMPNAME]: Rewrite.
Jim Meyering <jim@meyering.net>
parents: 1710
diff changeset
56 /* Read the utmp entries corresponding to file FILENAME into freshly-
db73263fa4b3 (read_utmp) [HAVE_UTMPNAME]: Rewrite.
Jim Meyering <jim@meyering.net>
parents: 1710
diff changeset
57 malloc'd storage, set *UTMP_BUF to that pointer, set *N_ENTRIES to
db73263fa4b3 (read_utmp) [HAVE_UTMPNAME]: Rewrite.
Jim Meyering <jim@meyering.net>
parents: 1710
diff changeset
58 the number of entries, and return zero. If there is any error,
982
ea65b688ec7b (read_utmp): Take new params: count and buffer.
Jim Meyering <jim@meyering.net>
parents: 981
diff changeset
59 return non-zero and don't modify the parameters. */
981
Jim Meyering <jim@meyering.net>
parents:
diff changeset
60
2246
7805669f5f18 (read_utmp): Guard with `#ifdef UTMP_NAME_FUNCTION',
Jim Meyering <jim@meyering.net>
parents: 2227
diff changeset
61 #ifdef UTMP_NAME_FUNCTION
1362
e5c4dcf21602 (read_utmp): Add variant for systems that have the utmpname function.
Jim Meyering <jim@meyering.net>
parents: 984
diff changeset
62
981
Jim Meyering <jim@meyering.net>
parents:
diff changeset
63 int
1362
e5c4dcf21602 (read_utmp): Add variant for systems that have the utmpname function.
Jim Meyering <jim@meyering.net>
parents: 984
diff changeset
64 read_utmp (const char *filename, int *n_entries, STRUCT_UTMP **utmp_buf)
e5c4dcf21602 (read_utmp): Add variant for systems that have the utmpname function.
Jim Meyering <jim@meyering.net>
parents: 984
diff changeset
65 {
e5c4dcf21602 (read_utmp): Add variant for systems that have the utmpname function.
Jim Meyering <jim@meyering.net>
parents: 984
diff changeset
66 int n_read;
e5c4dcf21602 (read_utmp): Add variant for systems that have the utmpname function.
Jim Meyering <jim@meyering.net>
parents: 984
diff changeset
67 STRUCT_UTMP *u;
1718
db73263fa4b3 (read_utmp) [HAVE_UTMPNAME]: Rewrite.
Jim Meyering <jim@meyering.net>
parents: 1710
diff changeset
68 STRUCT_UTMP *utmp = NULL;
1362
e5c4dcf21602 (read_utmp): Add variant for systems that have the utmpname function.
Jim Meyering <jim@meyering.net>
parents: 984
diff changeset
69
1823
93ecfb08bb9c (read_utmp): Ignore the return value from utmpname.
Jim Meyering <jim@meyering.net>
parents: 1718
diff changeset
70 /* Ignore the return value for now.
93ecfb08bb9c (read_utmp): Ignore the return value from utmpname.
Jim Meyering <jim@meyering.net>
parents: 1718
diff changeset
71 Solaris' utmpname returns 1 upon success -- which is contrary
93ecfb08bb9c (read_utmp): Ignore the return value from utmpname.
Jim Meyering <jim@meyering.net>
parents: 1718
diff changeset
72 to what the GNU libc version does. In addition, older GNU libc
93ecfb08bb9c (read_utmp): Ignore the return value from utmpname.
Jim Meyering <jim@meyering.net>
parents: 1718
diff changeset
73 versions are actually void. */
1830
8139ee8d995b (read_utmp): Use the new definitions.
Jim Meyering <jim@meyering.net>
parents: 1823
diff changeset
74 UTMP_NAME_FUNCTION (filename);
1362
e5c4dcf21602 (read_utmp): Add variant for systems that have the utmpname function.
Jim Meyering <jim@meyering.net>
parents: 984
diff changeset
75
1830
8139ee8d995b (read_utmp): Use the new definitions.
Jim Meyering <jim@meyering.net>
parents: 1823
diff changeset
76 SET_UTMP_ENT ();
1362
e5c4dcf21602 (read_utmp): Add variant for systems that have the utmpname function.
Jim Meyering <jim@meyering.net>
parents: 984
diff changeset
77
e5c4dcf21602 (read_utmp): Add variant for systems that have the utmpname function.
Jim Meyering <jim@meyering.net>
parents: 984
diff changeset
78 n_read = 0;
1830
8139ee8d995b (read_utmp): Use the new definitions.
Jim Meyering <jim@meyering.net>
parents: 1823
diff changeset
79 while ((u = GET_UTMP_ENT ()) != NULL)
1362
e5c4dcf21602 (read_utmp): Add variant for systems that have the utmpname function.
Jim Meyering <jim@meyering.net>
parents: 984
diff changeset
80 {
e5c4dcf21602 (read_utmp): Add variant for systems that have the utmpname function.
Jim Meyering <jim@meyering.net>
parents: 984
diff changeset
81 ++n_read;
1718
db73263fa4b3 (read_utmp) [HAVE_UTMPNAME]: Rewrite.
Jim Meyering <jim@meyering.net>
parents: 1710
diff changeset
82 utmp = (STRUCT_UTMP *) realloc (utmp, n_read * sizeof (STRUCT_UTMP));
db73263fa4b3 (read_utmp) [HAVE_UTMPNAME]: Rewrite.
Jim Meyering <jim@meyering.net>
parents: 1710
diff changeset
83 if (utmp == NULL)
db73263fa4b3 (read_utmp) [HAVE_UTMPNAME]: Rewrite.
Jim Meyering <jim@meyering.net>
parents: 1710
diff changeset
84 return 1;
db73263fa4b3 (read_utmp) [HAVE_UTMPNAME]: Rewrite.
Jim Meyering <jim@meyering.net>
parents: 1710
diff changeset
85 utmp[n_read - 1] = *u;
1362
e5c4dcf21602 (read_utmp): Add variant for systems that have the utmpname function.
Jim Meyering <jim@meyering.net>
parents: 984
diff changeset
86 }
e5c4dcf21602 (read_utmp): Add variant for systems that have the utmpname function.
Jim Meyering <jim@meyering.net>
parents: 984
diff changeset
87
1830
8139ee8d995b (read_utmp): Use the new definitions.
Jim Meyering <jim@meyering.net>
parents: 1823
diff changeset
88 END_UTMP_ENT ();
1362
e5c4dcf21602 (read_utmp): Add variant for systems that have the utmpname function.
Jim Meyering <jim@meyering.net>
parents: 984
diff changeset
89
e5c4dcf21602 (read_utmp): Add variant for systems that have the utmpname function.
Jim Meyering <jim@meyering.net>
parents: 984
diff changeset
90 *n_entries = n_read;
1718
db73263fa4b3 (read_utmp) [HAVE_UTMPNAME]: Rewrite.
Jim Meyering <jim@meyering.net>
parents: 1710
diff changeset
91 *utmp_buf = utmp;
1362
e5c4dcf21602 (read_utmp): Add variant for systems that have the utmpname function.
Jim Meyering <jim@meyering.net>
parents: 984
diff changeset
92
e5c4dcf21602 (read_utmp): Add variant for systems that have the utmpname function.
Jim Meyering <jim@meyering.net>
parents: 984
diff changeset
93 return 0;
e5c4dcf21602 (read_utmp): Add variant for systems that have the utmpname function.
Jim Meyering <jim@meyering.net>
parents: 984
diff changeset
94 }
e5c4dcf21602 (read_utmp): Add variant for systems that have the utmpname function.
Jim Meyering <jim@meyering.net>
parents: 984
diff changeset
95
e5c4dcf21602 (read_utmp): Add variant for systems that have the utmpname function.
Jim Meyering <jim@meyering.net>
parents: 984
diff changeset
96 #else
e5c4dcf21602 (read_utmp): Add variant for systems that have the utmpname function.
Jim Meyering <jim@meyering.net>
parents: 984
diff changeset
97
e5c4dcf21602 (read_utmp): Add variant for systems that have the utmpname function.
Jim Meyering <jim@meyering.net>
parents: 984
diff changeset
98 int
e5c4dcf21602 (read_utmp): Add variant for systems that have the utmpname function.
Jim Meyering <jim@meyering.net>
parents: 984
diff changeset
99 read_utmp (const char *filename, int *n_entries, STRUCT_UTMP **utmp_buf)
981
Jim Meyering <jim@meyering.net>
parents:
diff changeset
100 {
Jim Meyering <jim@meyering.net>
parents:
diff changeset
101 FILE *utmp;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
102 struct stat file_stats;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
103 size_t n_read;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
104 size_t size;
982
ea65b688ec7b (read_utmp): Take new params: count and buffer.
Jim Meyering <jim@meyering.net>
parents: 981
diff changeset
105 STRUCT_UTMP *buf;
981
Jim Meyering <jim@meyering.net>
parents:
diff changeset
106
Jim Meyering <jim@meyering.net>
parents:
diff changeset
107 utmp = fopen (filename, "r");
Jim Meyering <jim@meyering.net>
parents:
diff changeset
108 if (utmp == NULL)
982
ea65b688ec7b (read_utmp): Take new params: count and buffer.
Jim Meyering <jim@meyering.net>
parents: 981
diff changeset
109 return 1;
981
Jim Meyering <jim@meyering.net>
parents:
diff changeset
110
Jim Meyering <jim@meyering.net>
parents:
diff changeset
111 fstat (fileno (utmp), &file_stats);
Jim Meyering <jim@meyering.net>
parents:
diff changeset
112 size = file_stats.st_size;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
113 if (size > 0)
982
ea65b688ec7b (read_utmp): Take new params: count and buffer.
Jim Meyering <jim@meyering.net>
parents: 981
diff changeset
114 buf = (STRUCT_UTMP *) xmalloc (size);
981
Jim Meyering <jim@meyering.net>
parents:
diff changeset
115 else
Jim Meyering <jim@meyering.net>
parents:
diff changeset
116 {
Jim Meyering <jim@meyering.net>
parents:
diff changeset
117 fclose (utmp);
982
ea65b688ec7b (read_utmp): Take new params: count and buffer.
Jim Meyering <jim@meyering.net>
parents: 981
diff changeset
118 return 1;
981
Jim Meyering <jim@meyering.net>
parents:
diff changeset
119 }
Jim Meyering <jim@meyering.net>
parents:
diff changeset
120
Jim Meyering <jim@meyering.net>
parents:
diff changeset
121 /* Use < instead of != in case the utmp just grew. */
982
ea65b688ec7b (read_utmp): Take new params: count and buffer.
Jim Meyering <jim@meyering.net>
parents: 981
diff changeset
122 n_read = fread (buf, 1, size, utmp);
981
Jim Meyering <jim@meyering.net>
parents:
diff changeset
123 if (ferror (utmp) || fclose (utmp) == EOF
Jim Meyering <jim@meyering.net>
parents:
diff changeset
124 || n_read < size)
982
ea65b688ec7b (read_utmp): Take new params: count and buffer.
Jim Meyering <jim@meyering.net>
parents: 981
diff changeset
125 return 1;
981
Jim Meyering <jim@meyering.net>
parents:
diff changeset
126
982
ea65b688ec7b (read_utmp): Take new params: count and buffer.
Jim Meyering <jim@meyering.net>
parents: 981
diff changeset
127 *n_entries = size / sizeof (STRUCT_UTMP);
ea65b688ec7b (read_utmp): Take new params: count and buffer.
Jim Meyering <jim@meyering.net>
parents: 981
diff changeset
128 *utmp_buf = buf;
ea65b688ec7b (read_utmp): Take new params: count and buffer.
Jim Meyering <jim@meyering.net>
parents: 981
diff changeset
129
ea65b688ec7b (read_utmp): Take new params: count and buffer.
Jim Meyering <jim@meyering.net>
parents: 981
diff changeset
130 return 0;
981
Jim Meyering <jim@meyering.net>
parents:
diff changeset
131 }
1362
e5c4dcf21602 (read_utmp): Add variant for systems that have the utmpname function.
Jim Meyering <jim@meyering.net>
parents: 984
diff changeset
132
2402
41c51e2e9170 Include sys/types.h before sys/stat.h.
Jim Meyering <jim@meyering.net>
parents: 2246
diff changeset
133 #endif