ref: f70cf0b70eb2b9b6cdf7208bf775189c724eb446
dir: /sys/src/ape/cmd/pax/pathname.c/
/* $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);
}