Net2/usr/src/contrib/isode/others/rfa/ls.c

/*
 * RFA - Remote File Access
 /*
 * Access and Management for a partial file system tree that exists
 * at two sites either as master files or slave files
 *
 * ls.c : prepare file info in a "ls" style
 *
 * Contributed by Oliver Wenzel, GMD Berlin, 1990
 *
 * $Header: /f/osi/others/rfa/RCS/ls.c,v 7.3 91/02/22 09:28:06 mrose Interim $
 *
 * $Log:	ls.c,v $
 * Revision 7.3  91/02/22  09:28:06  mrose
 * Interim 6.8
 * 
 * Revision 7.2  91/01/14  13:54:37  mrose
 * update
 * 
 * Revision 1.1  91/01/04  16:06:44  ow
 * Initial revision
 * 
 */

#ifndef       lint
static char *rcsid = "$Header: /f/osi/others/rfa/RCS/ls.c,v 7.3 91/02/22 09:28:06 mrose Interim $";
#endif

/*
 *                              NOTICE
 *
 *    Acquisition, use, and distribution of this module and related
 *    materials are subject to the restrictions of a license agreement.
 *    Consult the Preface in the User's Manual for the full terms of
 *    this agreement.
 *
 */

#include <ctype.h>
#include <strings.h>
#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>
#include "RFA-types.h" 
#include "rfa.h"
#include "rfainfo.h"

struct pair {
	u_short	val;
	char	*s;
};

static struct pair ftype[] = { {S_IFIFO, "?"}, { S_IFCHR, "c" }, {S_IFDIR, "d"},
			 {S_IFBLK, "b"}, { S_IFREG, "-" }, {S_IFLNK, "l"},
			 {S_IFSOCK, "s"}, { 0, NULL }}; 

static struct pair facc[] = { { 01, "--x" }, { 02, "-w-" }, { 03, "-wx" },
			      { 04, "r--" }, { 05, "r-x" }, { 06, "rw-" },
			      { 07, "rwx" }, { 00, "---" } };

static void mode2str(m, mstr)
    u_short m;
    char *mstr;
{
    u_short v;
    struct pair *pp;

    v = m & S_IFMT;
    for (pp = ftype; pp->s; pp++) 
	if (v == pp->val) {
	    strcat(mstr, pp->s);
	    break;
	}
    v = (m & 0700) >> 6;
    for (pp = facc; pp->s; pp++) 
	if (v == pp->val) {
	    strcat(mstr, pp->s);
	    break;
	}
    if (m & S_ISUID)
	*(mstr + strlen(mstr) - 1) = 's';
    v = (m & 070) >> 3;
    for (pp = facc; pp->s; pp++) 
	if (v == pp->val) {
	    strcat(mstr, pp->s);
	    break;
	}
    if (m & S_ISGID)
	*(mstr + strlen(mstr) - 1) = 's';
    v = m & 07;
    for (pp = facc; pp->s; pp++) 
	if (v == pp->val) {
	    strcat(mstr, pp->s);
	    break;
	}
}

char *shortTime(t)
    long *t;
{
    char *s;

    s = ctime(t);
     
    *(rindex(s, ':')) = '\0';

    s+=4;
    return s;
}


char *rfa2ls(rfa)
    struct RfaInfo *rfa;
{
    static char buf[512], *bp;
    long t;

    *buf = '\0';
    bp = buf;

    mode2str(rfa->ri_mode, bp);
    bp += strlen(bp);

    sprintf(bp, " %3.3s", status2str(rfa->ri_status));
    bp += strlen(bp);

    if(IS_LOCKED(rfa->ri_status)) {
    	sprintf(bp, " lockby %-10s %8d", rfa->ri_lckname, rfa->ri_size);
    } else 
	sprintf(bp, " %-8s %-8s %8d", rfa->ri_owner, rfa->ri_group,
		rfa->ri_size);
    bp += strlen(bp);

    sprintf(bp, " %12s", shortTime(&(rfa->ri_modTime)));
    bp += strlen(bp);
    sprintf(bp, " %s", rfa->ri_filename);
    if ((rfa->ri_mode & S_IFMT) == S_IFLNK) {
	bp += strlen(bp);
	sprintf(bp, " -> %s", rfa->ri_lnkName);
    }

    return buf;
}