OpenSolaris_b135/cmd/lastcomm/lc_utils.c
/*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License (the "License").
* You may not use this file except in compliance with the License.
*
* You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
* or http://www.opensolaris.org/os/licensing.
* See the License for the specific language governing permissions
* and limitations under the License.
*
* When distributing Covered Code, include this CDDL HEADER in each
* file and include the License file at usr/src/OPENSOLARIS.LICENSE.
* If applicable, add the following below this CDDL HEADER, with the
* fields enclosed by brackets "[]" replaced with your own identifying
* information: Portions Copyright [yyyy] [name of copyright owner]
*
* CDDL HEADER END
*/
/*
* Copyright 2007 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
#pragma ident "%Z%%M% %I% %E% SMI"
#include "lastcomm.h"
/*
* lc_utils contains utility functions used by both the basic and extended
* accounting components of lastcomm. getdev(), on its first call, builds
* the set of tty device name to dev_t mappings.
*/
#define N_DEVS 43 /* hash value for device names */
#define NDEVS 500 /* max number of file names in /dev */
#define HASH(d) (((int)d) % N_DEVS) /* hash function */
struct devhash {
dev_t dev_dev;
char dev_name [PATHNAMLEN];
struct devhash *dev_nxt;
};
static struct devhash *dev_hash[N_DEVS];
static struct devhash *dev_chain;
static int ndevs = NDEVS;
static struct devhash *hashtab;
/*
* Default search list, used if /etc/ttysrch unavailable or unparsable.
*/
static char *def_srch_dirs[] = {
"/dev/term",
"/dev/pts",
"/dev/xt",
NULL
};
static char *raw_sf; /* buffer containing raw image of the search file */
#define SRCH_FILE_NAME "/etc/ttysrch"
/*
* /etc/ttysrch tokens.
*/
#define COMMENT_CHAR '#'
#define EOLN '\n'
/*
* /etc/ttysrch parser states.
*/
#define START_STATE 1
#define COMMENT_STATE 2
#define DIRNAME_STATE 3
/*
* The following 2 routines are modified version of get_pri_dirs
* and srch_dir in ttyname.c.
*/
static char **
get_pri_dirs()
{
int bcount = 0;
int c;
int sf_lines = 0; /* number of lines in search file */
int dirno = 0;
int state;
FILE *sf;
char **pri_dirs; /* priority search list */
char *sfp; /* pointer inside the raw image buffer */
struct stat sfsb; /* search file's stat structure buffer */
if ((sf = fopen(SRCH_FILE_NAME, "r")) == NULL)
return (def_srch_dirs);
if (stat(SRCH_FILE_NAME, &sfsb) < 0) {
(void) fclose(sf);
return (def_srch_dirs);
}
raw_sf = malloc(sfsb.st_size + 1);
sfp = raw_sf;
while ((bcount++ < sfsb.st_size) && ((c = getc(sf)) != EOF)) {
*sfp++ = (char)c;
if (c == EOLN)
sf_lines++;
}
(void) fclose(sf);
*sfp = EOLN;
pri_dirs = malloc(++sf_lines * sizeof (char *));
sfp = raw_sf;
state = START_STATE;
while (--bcount) {
switch (state) {
case START_STATE:
if (*sfp == COMMENT_CHAR) {
state = COMMENT_STATE;
} else if (!isspace(*sfp)) {
state = DIRNAME_STATE;
pri_dirs[dirno++] = sfp;
}
break;
case COMMENT_STATE:
if (*sfp == EOLN)
state = START_STATE;
break;
case DIRNAME_STATE:
if (*sfp == EOLN) {
*sfp = '\0';
state = START_STATE;
} else if (isspace(*sfp)) {
*sfp = '\0';
state = COMMENT_STATE;
}
break;
} /* switch */
sfp++;
}
*sfp = '\0';
pri_dirs[dirno] = NULL;
return (pri_dirs);
}
/*
* Build a chain of character devices in dev_chain, starting with the given
* path.
*/
static int
srch_dir(char *path)
{
DIR *dirp;
struct dirent *direntp;
struct stat st;
char file_name[PATHNAMLEN];
if ((dirp = opendir(path)) == NULL)
return (0);
if ((readdir(dirp) == NULL) || (readdir(dirp) == NULL))
return (0);
while ((direntp = readdir(dirp)) != NULL) {
(void) strcpy(file_name, path);
(void) strcat(file_name, "/");
(void) strcat(file_name, direntp->d_name);
if (stat((const char *)file_name, &st) < 0)
continue;
if ((st.st_mode & S_IFMT) == S_IFCHR) {
(void) strcpy(hashtab->dev_name,
file_name + strlen("/dev/"));
hashtab->dev_nxt = dev_chain;
dev_chain = hashtab;
hashtab++;
if (--ndevs < 0)
return (-1);
}
}
(void) closedir(dirp);
return (1);
}
static void
setupdevs()
{
int dirno = 0;
char **srch_dirs;
hashtab = malloc(NDEVS * sizeof (struct devhash));
if (hashtab == NULL) {
(void) fprintf(stderr, gettext("No memory for device table\n"));
return;
}
srch_dirs = get_pri_dirs();
while (srch_dirs[dirno] != NULL) {
if (srch_dir(srch_dirs[dirno]) < 0)
return;
dirno++;
}
dirno = 0;
while (srch_dirs[dirno] != NULL) {
if (strcmp("/dev", srch_dirs[dirno]) == 0)
/*
* Don't search /dev twice.
*/
return;
dirno++;
}
}
char *
getdev(dev_t dev)
{
struct devhash *hp, *nhp;
struct stat statb;
char name[PATHNAMLEN];
static dev_t lastdev = (dev_t)-1;
static char *lastname;
static int init = 0;
if (dev == NODEV)
return ("__");
if (dev == lastdev)
return (lastname);
if (!init) {
setupdevs();
init++;
}
for (hp = dev_hash[HASH(dev)]; hp; hp = hp->dev_nxt)
if (hp->dev_dev == dev) {
lastdev = dev;
return (lastname = hp->dev_name);
}
for (hp = dev_chain; hp; hp = nhp) {
nhp = hp->dev_nxt;
(void) strcpy(name, "/dev/");
(void) strcat(name, hp->dev_name);
if (stat(name, &statb) < 0) /* name truncated usually */
continue;
if ((statb.st_mode & S_IFMT) != S_IFCHR)
continue;
hp->dev_dev = statb.st_rdev;
hp->dev_nxt = dev_hash[HASH(hp->dev_dev)];
dev_hash[HASH(hp->dev_dev)] = hp;
if (hp->dev_dev == dev) {
dev_chain = nhp;
lastdev = dev;
return (lastname = hp->dev_name);
}
}
dev_chain = NULL;
return ("??");
}
char *
flagbits(int f)
{
int i = 0;
static char flags[20];
#define BIT(flag, ch) flags[i++] = (f & flag) ? ch : ' '
BIT(ASU, 'S');
BIT(AFORK, 'F');
flags[i] = '\0';
return (flags);
#undef BIT
}
char *
getname(uid_t uid)
{
struct passwd *pw;
static char uidname[NMAX];
if ((pw = getpwuid(uid)) == NULL) {
(void) sprintf(uidname, "%u", uid);
return (uidname);
}
return (pw->pw_name);
}