home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
z
/
zoo210sr.zip
/
ZOO210SR.TAZ
/
ZOO210SR.tar
/
zoo
/
basename.c
< prev
next >
Wrap
C/C++ Source or Header
|
1991-07-14
|
3KB
|
124 lines
#ifndef LINT
/* @(#) basename.c 2.2 87/12/27 13:42:40 */
static char sccsid[]="@(#) basename.c 2.2 87/12/27 13:42:40";
#endif /* LINT */
/*
Copyright (C) 1986, 1987 Rahul Dhesi -- All rights reserved
*/
#include "options.h"
#include "zooio.h"
#include "zoo.h"
#include "parse.h"
#include "various.h"
#include "zoofns.h"
#include "debug.h"
#include "assert.h"
/* This function strips device/directory information from
a pathname and returns just the plain filename */
void basename (pathname, fname)
char *pathname;
char fname[];
{
strcpy (fname, nameptr (pathname));
}
/* Set of legal MSDOS filename characters. The working of cvtchr() depends
on the order of the first few characters here. In particular, '_' is
positioned so '.' gets converted to it. */
static char legal[] =
"tabcdefghijklmnopqrs_uvwxyz0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ@^`{}~!#$%&'()-";
/****************
cvtchr() converts a character to a lowercase alphabetic character in
a somewhat random way.
*/
#define cvtchr(ch) legal[(ch & 0xff) % 26]
/***************
cleanup() cleans up a string so it contains only legal MSDOS filename
characters. Any other characters are converted to an underscore.
If the filename is null or if it begins with a dot, it is fixed.
All dots are also converted.
*/
void cleanup (p)
char *p;
{
assert(p != NULL);
if (*p == '\0')
strcpy (p, "X");
if (*p == '.')
*p = '_';
while (*p != '\0') {
if (strchr (legal, *p) == NULL) { /* if invalid character */
*p = cvtchr(*p);
}
p++;
}
}
/* This function strips device/directory information from a pathname,
forces the remaining filename to MSDOS format, and returns it. Any
illegal characters are fixed.
*/
void dosname (pathname, fname)
char *pathname;
char fname[];
{
struct path_st path_st;
parse (&path_st, pathname);
strcpy (fname, path_st.fname);
cleanup (fname);
#ifdef VER_CH /* remove any trailing extension field */
if (path_st.ext[0] != '\0')
strip_ver (path_st.ext);
#endif
/* extension could have been nulled, so we test again */
if (path_st.ext[0] != '\0') {
cleanup (path_st.ext);
strcat (fname, ".");
strcat (fname, path_st.ext);
}
#ifdef SPECMOD
specfname (fname);
#endif
}
/* rootname() */
/* Accepts a pathname. Returns the root filename, i.e., with both the
directory path and the extension stripped. */
void rootname (path, root)
char *path, *root;
{
char *p;
static char dot[] = {EXT_CH, '\0'};
strcpy(root, nameptr(path)); /* copy all but path prefix */
p = findlast(root, dot); /* find last dot */
if (p != NULL) /* if found ... */
*p = '\0'; /* ... null it out */
}
/* nameptr() */
/* Accepts a pathname. Returns a pointer to the filename within
that pathname.
*/
char *nameptr (path)
char *path;
{
char *t;
t = findlast (path, PATH_SEP); /* last char separating device/directory */
debug ((printf ("nameptr: findlast returned ptr to string [%s].\n",t)))
if (t == NULL) /* no separator */
return (path);
else {
return (t+1);
}
}