Subversion Repositories planix.SVN

/* $Source: /u/mark/src/pax/RCS/pathname.c,v $

 *

 * $Revision: 1.2 $

 *

 * pathname.c - directory/pathname support functions 

 *

 * DESCRIPTION

 *

 *	These functions provide directory/pathname support for PAX

 *

 * AUTHOR

 *

 *	Mark H. Colburn, NAPS International (mark@jhereg.mn.org)

 *

 * Sponsored by The USENIX Association for public distribution. 

 *

 * Copyright (c) 1989 Mark H. Colburn.

 * All rights reserved.

 *

 * Redistribution and use in source and binary forms are permitted

 * provided that the above copyright notice is duplicated in all such 

 * forms and that any documentation, advertising materials, and other 

 * materials related to such distribution and use acknowledge that the 

 * software was developed * by Mark H. Colburn and sponsored by The 

 * USENIX Association. 

 *

 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR

 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED

 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.

 *

 * $Log:	pathname.c,v $

 * Revision 1.2  89/02/12  10:05:13  mark

 * 1.2 release fixes

 * 

 * Revision 1.1  88/12/23  18:02:21  mark

 * Initial revision

 * 

 */

#ifndef lint

static char *ident = "$Id: pathname.c,v 1.2 89/02/12 10:05:13 mark Exp $";

static char *copyright = "Copyright (c) 1989 Mark H. Colburn.\nAll rights reserved.\n";

#endif /* ! lint */

/* Headers */

#include "pax.h"

/* dirneed  - checks for the existance of directories and possibly create

 *

 * DESCRIPTION

 *

 *	Dirneed checks to see if a directory of the name pointed to by name

 *	exists.  If the directory does exist, then dirneed returns 0.  If

 *	the directory does not exist and the f_dir_create flag is set,

 *	then dirneed will create the needed directory, recursively creating

 *	any needed intermediate directory.

 *

 *	If f_dir_create is not set, then no directories will be created

 *	and a value of -1 will be returned if the directory does not

 *	exist.

 *

 * PARAMETERS

 *

 *	name		- name of the directory to create

 *

 * RETURNS

 *

 *	Returns a 0 if the creation of the directory succeeded or if the

 *	directory already existed.  If the f_dir_create flag was not set

 *	and the named directory does not exist, or the directory creation 

 *	failed, a -1 will be returned to the calling routine.

 */

#ifdef __STDC__

int dirneed(char *name)

#else

int dirneed(name)

char           *name;

#endif

{

    char           *cp;

    char           *last;

    int             ok;

    static Stat     sb;

    last = (char *)NULL;

    for (cp = name; *cp;) {

	if (*cp++ == '/') {

	    last = cp;

	}

    }

    if (last == (char *)NULL) {

	return (STAT(".", &sb));

    }

    *--last = '\0';

    ok = STAT(*name ? name : ".", &sb) == 0

	? ((sb.sb_mode & S_IFMT) == S_IFDIR)

	: (f_dir_create && dirneed(name) == 0 && dirmake(name, &sb) == 0);

    *last = '/';

    return (ok ? 0 : -1);

}

/* nameopt - optimize a pathname

 *

 * DESCRIPTION

 *

 * 	Confused by "<symlink>/.." twistiness. Returns the number of final 

 * 	pathname elements (zero for "/" or ".") or -1 if unsuccessful. 

 *

 * PARAMETERS

 *

 *	char	*begin	- name of the path to optimize

 *

 * RETURNS

 *

 *	Returns 0 if successful, non-zero otherwise.

 *

 */

#ifdef __STDC__

int nameopt(char *begin)

#else

int nameopt(begin)

char           *begin;

#endif

{

    char           *name;

    char           *item;

    int             idx;

    int             absolute;

    char           *element[PATHELEM];

    absolute = (*(name = begin) == '/');

    idx = 0;

    for (;;) {

	if (idx == PATHELEM) {

	    warn(begin, "Too many elements");

	    return (-1);

	}

	while (*name == '/') {

	    ++name;

	}

	if (*name == '\0') {

	    break;

	}

	element[idx] = item = name;

	while (*name && *name != '/') {

	    ++name;

	}

	if (*name) {

	    *name++ = '\0';

	}

	if (strcmp(item, "..") == 0) {

	    if (idx == 0) {

		if (!absolute) {

		    ++idx;

		}

	    } else if (strcmp(element[idx - 1], "..") == 0) {

		++idx;

	    } else {

		--idx;

	    }

	} else if (strcmp(item, ".") != 0) {

	    ++idx;

	}

    }

    if (idx == 0) {

	element[idx++] = absolute ? "" : "."; 

    }

    element[idx] = (char *)NULL;

    name = begin;

    if (absolute) {

	*name++ = '/';

    }

    for (idx = 0; item = element[idx]; ++idx, *name++ = '/') {

	while (*item) {

	    *name++ = *item++;

	}

    }

    *--name = '\0';

    return (idx);

}

/* dirmake - make a directory  

 *

 * DESCRIPTION

 *

 *	Dirmake makes a directory with the appropritate permissions.

 *

 * PARAMETERS

 *

 *	char 	*name	- Name of directory make

 *	Stat	*asb	- Stat structure of directory to make

 *

 * RETURNS

 *

 * 	Returns zero if successful, -1 otherwise. 

 *

 */

#ifdef __STDC__

int dirmake(char *name, Stat *asb)

#else

int dirmake(name, asb)

char           *name;

Stat           *asb;

#endif

{

    if (mkdir(name, (int) (asb->sb_mode & S_IPOPN)) < 0) {

	return (-1);

    }

    if (asb->sb_mode & S_IPEXE) {

	chmod(name, (int) (asb->sb_mode & S_IPERM));

    }

    if (f_owner) {

	chown(name, (int) asb->sb_uid, (int) asb->sb_gid);

    }

    return (0);

}