1127 lines
20 KiB
C
1127 lines
20 KiB
C
/* $NetBSD: filename.c,v 1.4 2013/09/04 19:44:21 tron Exp $ */
|
|
|
|
/*
|
|
* Copyright (C) 1984-2012 Mark Nudelman
|
|
*
|
|
* You may distribute under the terms of either the GNU General Public
|
|
* License or the Less License, as specified in the README file.
|
|
*
|
|
* For more information, see the README file.
|
|
*/
|
|
|
|
|
|
/*
|
|
* Routines to mess around with filenames (and files).
|
|
* Much of this is very OS dependent.
|
|
*/
|
|
|
|
#include "less.h"
|
|
#include "lglob.h"
|
|
#if MSDOS_COMPILER
|
|
#include <dos.h>
|
|
#if MSDOS_COMPILER==WIN32C && !defined(_MSC_VER)
|
|
#include <dir.h>
|
|
#endif
|
|
#if MSDOS_COMPILER==DJGPPC
|
|
#include <glob.h>
|
|
#include <dir.h>
|
|
#define _MAX_PATH PATH_MAX
|
|
#endif
|
|
#endif
|
|
#ifdef _OSK
|
|
#include <rbf.h>
|
|
#ifndef _OSK_MWC32
|
|
#include <modes.h>
|
|
#endif
|
|
#endif
|
|
#if OS2
|
|
#include <signal.h>
|
|
#endif
|
|
|
|
#if HAVE_STAT
|
|
#include <sys/stat.h>
|
|
#ifndef S_ISDIR
|
|
#define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR)
|
|
#endif
|
|
#ifndef S_ISREG
|
|
#define S_ISREG(m) (((m) & S_IFMT) == S_IFREG)
|
|
#endif
|
|
#endif
|
|
|
|
|
|
extern int force_open;
|
|
extern int secure;
|
|
extern int use_lessopen;
|
|
extern int ctldisp;
|
|
extern int utf_mode;
|
|
extern IFILE curr_ifile;
|
|
extern IFILE old_ifile;
|
|
#if SPACES_IN_FILENAMES
|
|
extern char openquote;
|
|
extern char closequote;
|
|
#endif
|
|
|
|
static char *dirfile __P((char *, char *));
|
|
static POSITION seek_filesize __P((int));
|
|
static char *readfd __P((FILE *));
|
|
static int metachar __P((int));
|
|
static FILE *shellcmd __P((char *));
|
|
|
|
/*
|
|
* Remove quotes around a filename.
|
|
*/
|
|
public char *
|
|
shell_unquote(str)
|
|
char *str;
|
|
{
|
|
char *name;
|
|
char *p;
|
|
|
|
name = p = (char *) ecalloc(strlen(str)+1, sizeof(char));
|
|
if (*str == openquote)
|
|
{
|
|
str++;
|
|
while (*str != '\0')
|
|
{
|
|
if (*str == closequote)
|
|
{
|
|
if (str[1] != closequote)
|
|
break;
|
|
str++;
|
|
}
|
|
*p++ = *str++;
|
|
}
|
|
} else
|
|
{
|
|
char *esc = get_meta_escape();
|
|
int esclen = strlen(esc);
|
|
while (*str != '\0')
|
|
{
|
|
if (esclen > 0 && strncmp(str, esc, esclen) == 0)
|
|
str += esclen;
|
|
*p++ = *str++;
|
|
}
|
|
}
|
|
*p = '\0';
|
|
return (name);
|
|
}
|
|
|
|
/*
|
|
* Get the shell's escape character.
|
|
*/
|
|
public char *
|
|
get_meta_escape()
|
|
{
|
|
char *s;
|
|
|
|
s = lgetenv("LESSMETAESCAPE");
|
|
if (s == NULL)
|
|
s = DEF_METAESCAPE;
|
|
return (s);
|
|
}
|
|
|
|
/*
|
|
* Get the characters which the shell considers to be "metacharacters".
|
|
*/
|
|
static char *
|
|
metachars()
|
|
{
|
|
static char *mchars = NULL;
|
|
|
|
if (mchars == NULL)
|
|
{
|
|
mchars = lgetenv("LESSMETACHARS");
|
|
if (mchars == NULL)
|
|
mchars = DEF_METACHARS;
|
|
}
|
|
return (mchars);
|
|
}
|
|
|
|
/*
|
|
* Is this a shell metacharacter?
|
|
*/
|
|
static int
|
|
metachar(c)
|
|
char c;
|
|
{
|
|
return (strchr(metachars(), c) != NULL);
|
|
}
|
|
|
|
/*
|
|
* Insert a backslash before each metacharacter in a string.
|
|
*/
|
|
public char *
|
|
shell_quote(s)
|
|
char *s;
|
|
{
|
|
char *p;
|
|
char *newstr;
|
|
int len;
|
|
char *esc = get_meta_escape();
|
|
int esclen = strlen(esc);
|
|
int use_quotes = 0;
|
|
int have_quotes = 0;
|
|
|
|
/*
|
|
* Determine how big a string we need to allocate.
|
|
*/
|
|
len = 1; /* Trailing null byte */
|
|
for (p = s; *p != '\0'; p++)
|
|
{
|
|
len++;
|
|
if (*p == openquote || *p == closequote)
|
|
have_quotes = 1;
|
|
if (metachar(*p))
|
|
{
|
|
if (esclen == 0)
|
|
{
|
|
/*
|
|
* We've got a metachar, but this shell
|
|
* doesn't support escape chars. Use quotes.
|
|
*/
|
|
use_quotes = 1;
|
|
} else
|
|
{
|
|
/*
|
|
* Allow space for the escape char.
|
|
*/
|
|
len += esclen;
|
|
}
|
|
}
|
|
}
|
|
if (use_quotes)
|
|
{
|
|
if (have_quotes)
|
|
/*
|
|
* We can't quote a string that contains quotes.
|
|
*/
|
|
return (NULL);
|
|
len = strlen(s) + 3;
|
|
}
|
|
/*
|
|
* Allocate and construct the new string.
|
|
*/
|
|
newstr = p = (char *) ecalloc(len, sizeof(char));
|
|
if (use_quotes)
|
|
{
|
|
SNPRINTF3(newstr, len, "%c%s%c", openquote, s, closequote);
|
|
} else
|
|
{
|
|
while (*s != '\0')
|
|
{
|
|
if (metachar(*s))
|
|
{
|
|
/*
|
|
* Add the escape char.
|
|
*/
|
|
strcpy(p, esc);
|
|
p += esclen;
|
|
}
|
|
*p++ = *s++;
|
|
}
|
|
*p = '\0';
|
|
}
|
|
return (newstr);
|
|
}
|
|
|
|
/*
|
|
* Return a pathname that points to a specified file in a specified directory.
|
|
* Return NULL if the file does not exist in the directory.
|
|
*/
|
|
static char *
|
|
dirfile(dirname, filename)
|
|
char *dirname;
|
|
char *filename;
|
|
{
|
|
char *pathname;
|
|
char *qpathname;
|
|
int len;
|
|
int f;
|
|
|
|
if (dirname == NULL || *dirname == '\0')
|
|
return (NULL);
|
|
/*
|
|
* Construct the full pathname.
|
|
*/
|
|
len= strlen(dirname) + strlen(filename) + 2;
|
|
pathname = (char *) calloc(len, sizeof(char));
|
|
if (pathname == NULL)
|
|
return (NULL);
|
|
SNPRINTF3(pathname, len, "%s%s%s", dirname, PATHNAME_SEP, filename);
|
|
/*
|
|
* Make sure the file exists.
|
|
*/
|
|
qpathname = shell_unquote(pathname);
|
|
f = open(qpathname, OPEN_READ);
|
|
if (f < 0)
|
|
{
|
|
free(pathname);
|
|
pathname = NULL;
|
|
} else
|
|
{
|
|
close(f);
|
|
}
|
|
free(qpathname);
|
|
return (pathname);
|
|
}
|
|
|
|
/*
|
|
* Return the full pathname of the given file in the "home directory".
|
|
*/
|
|
public char *
|
|
homefile(filename)
|
|
char *filename;
|
|
{
|
|
register char *pathname;
|
|
|
|
/*
|
|
* Try $HOME/filename.
|
|
*/
|
|
pathname = dirfile(lgetenv("HOME"), filename);
|
|
if (pathname != NULL)
|
|
return (pathname);
|
|
#if OS2
|
|
/*
|
|
* Try $INIT/filename.
|
|
*/
|
|
pathname = dirfile(lgetenv("INIT"), filename);
|
|
if (pathname != NULL)
|
|
return (pathname);
|
|
#endif
|
|
#if MSDOS_COMPILER || OS2
|
|
/*
|
|
* Look for the file anywhere on search path.
|
|
*/
|
|
pathname = (char *) calloc(_MAX_PATH, sizeof(char));
|
|
#if MSDOS_COMPILER==DJGPPC
|
|
{
|
|
char *res = searchpath(filename);
|
|
if (res == 0)
|
|
*pathname = '\0';
|
|
else
|
|
strcpy(pathname, res);
|
|
}
|
|
#else
|
|
_searchenv(filename, "PATH", pathname);
|
|
#endif
|
|
if (*pathname != '\0')
|
|
return (pathname);
|
|
free(pathname);
|
|
#endif
|
|
return (NULL);
|
|
}
|
|
|
|
/*
|
|
* Expand a string, substituting any "%" with the current filename,
|
|
* and any "#" with the previous filename.
|
|
* But a string of N "%"s is just replaced with N-1 "%"s.
|
|
* Likewise for a string of N "#"s.
|
|
* {{ This is a lot of work just to support % and #. }}
|
|
*/
|
|
public char *
|
|
fexpand(s)
|
|
char *s;
|
|
{
|
|
register char *fr, *to;
|
|
register int n;
|
|
register char *e;
|
|
IFILE ifile;
|
|
|
|
#define fchar_ifile(c) \
|
|
((c) == '%' ? curr_ifile : \
|
|
(c) == '#' ? old_ifile : NULL_IFILE)
|
|
|
|
/*
|
|
* Make one pass to see how big a buffer we
|
|
* need to allocate for the expanded string.
|
|
*/
|
|
n = 0;
|
|
for (fr = s; *fr != '\0'; fr++)
|
|
{
|
|
switch (*fr)
|
|
{
|
|
case '%':
|
|
case '#':
|
|
if (fr > s && fr[-1] == *fr)
|
|
{
|
|
/*
|
|
* Second (or later) char in a string
|
|
* of identical chars. Treat as normal.
|
|
*/
|
|
n++;
|
|
} else if (fr[1] != *fr)
|
|
{
|
|
/*
|
|
* Single char (not repeated). Treat specially.
|
|
*/
|
|
ifile = fchar_ifile(*fr);
|
|
if (ifile == NULL_IFILE)
|
|
n++;
|
|
else
|
|
n += strlen(get_filename(ifile));
|
|
}
|
|
/*
|
|
* Else it is the first char in a string of
|
|
* identical chars. Just discard it.
|
|
*/
|
|
break;
|
|
default:
|
|
n++;
|
|
break;
|
|
}
|
|
}
|
|
|
|
e = (char *) ecalloc(n+1, sizeof(char));
|
|
|
|
/*
|
|
* Now copy the string, expanding any "%" or "#".
|
|
*/
|
|
to = e;
|
|
for (fr = s; *fr != '\0'; fr++)
|
|
{
|
|
switch (*fr)
|
|
{
|
|
case '%':
|
|
case '#':
|
|
if (fr > s && fr[-1] == *fr)
|
|
{
|
|
*to++ = *fr;
|
|
} else if (fr[1] != *fr)
|
|
{
|
|
ifile = fchar_ifile(*fr);
|
|
if (ifile == NULL_IFILE)
|
|
*to++ = *fr;
|
|
else
|
|
{
|
|
strcpy(to, get_filename(ifile));
|
|
to += strlen(to);
|
|
}
|
|
}
|
|
break;
|
|
default:
|
|
*to++ = *fr;
|
|
break;
|
|
}
|
|
}
|
|
*to = '\0';
|
|
return (e);
|
|
}
|
|
|
|
|
|
#if TAB_COMPLETE_FILENAME
|
|
|
|
/*
|
|
* Return a blank-separated list of filenames which "complete"
|
|
* the given string.
|
|
*/
|
|
public char *
|
|
fcomplete(s)
|
|
char *s;
|
|
{
|
|
char *fpat;
|
|
char *qs;
|
|
|
|
if (secure)
|
|
return (NULL);
|
|
/*
|
|
* Complete the filename "s" by globbing "s*".
|
|
*/
|
|
#if MSDOS_COMPILER && (MSDOS_COMPILER == MSOFTC || MSDOS_COMPILER == BORLANDC)
|
|
/*
|
|
* But in DOS, we have to glob "s*.*".
|
|
* But if the final component of the filename already has
|
|
* a dot in it, just do "s*".
|
|
* (Thus, "FILE" is globbed as "FILE*.*",
|
|
* but "FILE.A" is globbed as "FILE.A*").
|
|
*/
|
|
{
|
|
char *slash;
|
|
int len;
|
|
for (slash = s+strlen(s)-1; slash > s; slash--)
|
|
if (*slash == *PATHNAME_SEP || *slash == '/')
|
|
break;
|
|
len = strlen(s) + 4;
|
|
fpat = (char *) ecalloc(len, sizeof(char));
|
|
if (strchr(slash, '.') == NULL)
|
|
SNPRINTF1(fpat, len, "%s*.*", s);
|
|
else
|
|
SNPRINTF1(fpat, len, "%s*", s);
|
|
}
|
|
#else
|
|
{
|
|
int len = strlen(s) + 2;
|
|
fpat = (char *) ecalloc(len, sizeof(char));
|
|
SNPRINTF1(fpat, len, "%s*", s);
|
|
}
|
|
#endif
|
|
qs = lglob(fpat);
|
|
s = shell_unquote(qs);
|
|
if (strcmp(s,fpat) == 0)
|
|
{
|
|
/*
|
|
* The filename didn't expand.
|
|
*/
|
|
free(qs);
|
|
qs = NULL;
|
|
}
|
|
free(s);
|
|
free(fpat);
|
|
return (qs);
|
|
}
|
|
#endif
|
|
|
|
/*
|
|
* Try to determine if a file is "binary".
|
|
* This is just a guess, and we need not try too hard to make it accurate.
|
|
*/
|
|
public int
|
|
bin_file(f)
|
|
int f;
|
|
{
|
|
int n;
|
|
int bin_count = 0;
|
|
char data[256];
|
|
char* p;
|
|
char* pend;
|
|
|
|
if (!seekable(f))
|
|
return (0);
|
|
if (lseek(f, (off_t)0, SEEK_SET) == BAD_LSEEK)
|
|
return (0);
|
|
n = read(f, data, sizeof(data));
|
|
pend = &data[n];
|
|
for (p = data; p < pend; )
|
|
{
|
|
LWCHAR c = step_char(&p, +1, pend);
|
|
if (ctldisp == OPT_ONPLUS && IS_CSI_START(c))
|
|
{
|
|
do {
|
|
c = step_char(&p, +1, pend);
|
|
} while (p < pend && is_ansi_middle(c));
|
|
} else if (binary_char(c))
|
|
bin_count++;
|
|
}
|
|
/*
|
|
* Call it a binary file if there are more than 5 binary characters
|
|
* in the first 256 bytes of the file.
|
|
*/
|
|
return (bin_count > 5);
|
|
}
|
|
|
|
/*
|
|
* Try to determine the size of a file by seeking to the end.
|
|
*/
|
|
static POSITION
|
|
seek_filesize(f)
|
|
int f;
|
|
{
|
|
off_t spos;
|
|
|
|
spos = lseek(f, (off_t)0, SEEK_END);
|
|
if (spos == BAD_LSEEK)
|
|
return (NULL_POSITION);
|
|
return ((POSITION) spos);
|
|
}
|
|
|
|
/*
|
|
* Read a string from a file.
|
|
* Return a pointer to the string in memory.
|
|
*/
|
|
static char *
|
|
readfd(fd)
|
|
FILE *fd;
|
|
{
|
|
int len;
|
|
int ch;
|
|
char *buf;
|
|
char *p;
|
|
|
|
/*
|
|
* Make a guess about how many chars in the string
|
|
* and allocate a buffer to hold it.
|
|
*/
|
|
len = 100;
|
|
buf = (char *) ecalloc(len, sizeof(char));
|
|
for (p = buf; ; p++)
|
|
{
|
|
if ((ch = getc(fd)) == '\n' || ch == EOF)
|
|
break;
|
|
if (p - buf >= len-1)
|
|
{
|
|
/*
|
|
* The string is too big to fit in the buffer we have.
|
|
* Allocate a new buffer, twice as big.
|
|
*/
|
|
len *= 2;
|
|
*p = '\0';
|
|
p = (char *) ecalloc(len, sizeof(char));
|
|
strcpy(p, buf);
|
|
free(buf);
|
|
buf = p;
|
|
p = buf + strlen(buf);
|
|
}
|
|
*p = ch;
|
|
}
|
|
*p = '\0';
|
|
return (buf);
|
|
}
|
|
|
|
|
|
|
|
#if HAVE_POPEN
|
|
|
|
FILE *popen();
|
|
|
|
/*
|
|
* Execute a shell command.
|
|
* Return a pointer to a pipe connected to the shell command's standard output.
|
|
*/
|
|
static FILE *
|
|
shellcmd(cmd)
|
|
char *cmd;
|
|
{
|
|
FILE *fd;
|
|
|
|
#if HAVE_SHELL
|
|
char *shell;
|
|
|
|
shell = lgetenv("SHELL");
|
|
if (shell != NULL && *shell != '\0')
|
|
{
|
|
char *scmd;
|
|
char *esccmd;
|
|
|
|
/*
|
|
* Read the output of <$SHELL -c cmd>.
|
|
* Escape any metacharacters in the command.
|
|
*/
|
|
esccmd = shell_quote(cmd);
|
|
if (esccmd == NULL)
|
|
{
|
|
fd = popen(cmd, "r");
|
|
} else
|
|
{
|
|
int len = strlen(shell) + strlen(esccmd) + 5;
|
|
scmd = (char *) ecalloc(len, sizeof(char));
|
|
SNPRINTF3(scmd, len, "%s %s %s", shell, shell_coption(), esccmd);
|
|
free(esccmd);
|
|
fd = popen(scmd, "r");
|
|
free(scmd);
|
|
}
|
|
} else
|
|
#endif
|
|
{
|
|
fd = popen(cmd, "r");
|
|
}
|
|
/*
|
|
* Redirection in `popen' might have messed with the
|
|
* standard devices. Restore binary input mode.
|
|
*/
|
|
SET_BINARY(0);
|
|
return (fd);
|
|
}
|
|
|
|
#endif /* HAVE_POPEN */
|
|
|
|
|
|
/*
|
|
* Expand a filename, doing any system-specific metacharacter substitutions.
|
|
*/
|
|
public char *
|
|
lglob(filename)
|
|
char *filename;
|
|
{
|
|
char *gfilename;
|
|
char *ofilename;
|
|
|
|
ofilename = fexpand(filename);
|
|
if (secure)
|
|
return (ofilename);
|
|
filename = shell_unquote(ofilename);
|
|
|
|
#ifdef DECL_GLOB_LIST
|
|
{
|
|
/*
|
|
* The globbing function returns a list of names.
|
|
*/
|
|
int length;
|
|
char *p;
|
|
char *qfilename;
|
|
DECL_GLOB_LIST(list)
|
|
|
|
GLOB_LIST(filename, list);
|
|
if (GLOB_LIST_FAILED(list))
|
|
{
|
|
free(filename);
|
|
return (ofilename);
|
|
}
|
|
length = 1; /* Room for trailing null byte */
|
|
for (SCAN_GLOB_LIST(list, p))
|
|
{
|
|
INIT_GLOB_LIST(list, p);
|
|
qfilename = shell_quote(p);
|
|
if (qfilename != NULL)
|
|
{
|
|
length += strlen(qfilename) + 1;
|
|
free(qfilename);
|
|
}
|
|
}
|
|
gfilename = (char *) ecalloc(length, sizeof(char));
|
|
for (SCAN_GLOB_LIST(list, p))
|
|
{
|
|
INIT_GLOB_LIST(list, p);
|
|
qfilename = shell_quote(p);
|
|
if (qfilename != NULL)
|
|
{
|
|
sprintf(gfilename + strlen(gfilename), "%s ", qfilename);
|
|
free(qfilename);
|
|
}
|
|
}
|
|
/*
|
|
* Overwrite the final trailing space with a null terminator.
|
|
*/
|
|
*--p = '\0';
|
|
GLOB_LIST_DONE(list);
|
|
}
|
|
#else
|
|
#ifdef DECL_GLOB_NAME
|
|
{
|
|
/*
|
|
* The globbing function returns a single name, and
|
|
* is called multiple times to walk thru all names.
|
|
*/
|
|
register char *p;
|
|
register int len;
|
|
register int n;
|
|
char *pathname;
|
|
char *qpathname;
|
|
DECL_GLOB_NAME(fnd,drive,dir,fname,ext,handle)
|
|
|
|
GLOB_FIRST_NAME(filename, &fnd, handle);
|
|
if (GLOB_FIRST_FAILED(handle))
|
|
{
|
|
free(filename);
|
|
return (ofilename);
|
|
}
|
|
|
|
_splitpath(filename, drive, dir, fname, ext);
|
|
len = 100;
|
|
gfilename = (char *) ecalloc(len, sizeof(char));
|
|
p = gfilename;
|
|
do {
|
|
n = strlen(drive) + strlen(dir) + strlen(fnd.GLOB_NAME) + 1;
|
|
pathname = (char *) ecalloc(n, sizeof(char));
|
|
SNPRINTF3(pathname, n, "%s%s%s", drive, dir, fnd.GLOB_NAME);
|
|
qpathname = shell_quote(pathname);
|
|
free(pathname);
|
|
if (qpathname != NULL)
|
|
{
|
|
n = strlen(qpathname);
|
|
while (p - gfilename + n + 2 >= len)
|
|
{
|
|
/*
|
|
* No room in current buffer.
|
|
* Allocate a bigger one.
|
|
*/
|
|
len *= 2;
|
|
*p = '\0';
|
|
p = (char *) ecalloc(len, sizeof(char));
|
|
strcpy(p, gfilename);
|
|
free(gfilename);
|
|
gfilename = p;
|
|
p = gfilename + strlen(gfilename);
|
|
}
|
|
strcpy(p, qpathname);
|
|
free(qpathname);
|
|
p += n;
|
|
*p++ = ' ';
|
|
}
|
|
} while (GLOB_NEXT_NAME(handle, &fnd) == 0);
|
|
|
|
/*
|
|
* Overwrite the final trailing space with a null terminator.
|
|
*/
|
|
*--p = '\0';
|
|
GLOB_NAME_DONE(handle);
|
|
}
|
|
#else
|
|
#if HAVE_POPEN
|
|
{
|
|
/*
|
|
* We get the shell to glob the filename for us by passing
|
|
* an "echo" command to the shell and reading its output.
|
|
*/
|
|
FILE *fd;
|
|
char *s;
|
|
char *lessecho;
|
|
char *cmd;
|
|
char *esc;
|
|
int len;
|
|
|
|
esc = get_meta_escape();
|
|
if (strlen(esc) == 0)
|
|
esc = "-";
|
|
esc = shell_quote(esc);
|
|
if (esc == NULL)
|
|
{
|
|
free(filename);
|
|
return (ofilename);
|
|
}
|
|
lessecho = lgetenv("LESSECHO");
|
|
if (lessecho == NULL || *lessecho == '\0')
|
|
lessecho = "lessecho";
|
|
/*
|
|
* Invoke lessecho, and read its output (a globbed list of filenames).
|
|
*/
|
|
len = strlen(lessecho) + strlen(ofilename) + (7*strlen(metachars())) + 24;
|
|
cmd = (char *) ecalloc(len, sizeof(char));
|
|
SNPRINTF4(cmd, len, "%s -p0x%x -d0x%x -e%s ", lessecho, openquote, closequote, esc);
|
|
free(esc);
|
|
for (s = metachars(); *s != '\0'; s++)
|
|
sprintf(cmd + strlen(cmd), "-n0x%x ", *s);
|
|
sprintf(cmd + strlen(cmd), "-- %s", ofilename);
|
|
fd = shellcmd(cmd);
|
|
free(cmd);
|
|
if (fd == NULL)
|
|
{
|
|
/*
|
|
* Cannot create the pipe.
|
|
* Just return the original (fexpanded) filename.
|
|
*/
|
|
free(filename);
|
|
return (ofilename);
|
|
}
|
|
gfilename = readfd(fd);
|
|
pclose(fd);
|
|
if (*gfilename == '\0')
|
|
{
|
|
free(gfilename);
|
|
free(filename);
|
|
return (ofilename);
|
|
}
|
|
}
|
|
#else
|
|
/*
|
|
* No globbing functions at all. Just use the fexpanded filename.
|
|
*/
|
|
gfilename = save(filename);
|
|
#endif
|
|
#endif
|
|
#endif
|
|
free(filename);
|
|
free(ofilename);
|
|
return (gfilename);
|
|
}
|
|
|
|
/*
|
|
* Return number of %s escapes in a string.
|
|
* Return a large number if there are any other % escapes besides %s.
|
|
*/
|
|
static int
|
|
num_pct_s(lessopen)
|
|
char *lessopen;
|
|
{
|
|
int num;
|
|
|
|
for (num = 0;; num++)
|
|
{
|
|
lessopen = strchr(lessopen, '%');
|
|
if (lessopen == NULL)
|
|
break;
|
|
if (*++lessopen != 's')
|
|
return (999);
|
|
}
|
|
return (num);
|
|
}
|
|
|
|
/*
|
|
* See if we should open a "replacement file"
|
|
* instead of the file we're about to open.
|
|
*/
|
|
public char *
|
|
open_altfile(filename, pf, pfd)
|
|
char *filename;
|
|
int *pf;
|
|
void **pfd;
|
|
{
|
|
#if !HAVE_POPEN
|
|
return (NULL);
|
|
#else
|
|
char *lessopen;
|
|
char *cmd;
|
|
int len;
|
|
FILE *fd;
|
|
#if HAVE_FILENO
|
|
int returnfd = 0;
|
|
#endif
|
|
|
|
if (!use_lessopen || secure)
|
|
return (NULL);
|
|
ch_ungetchar(-1);
|
|
if ((lessopen = lgetenv("LESSOPEN")) == NULL)
|
|
return (NULL);
|
|
while (*lessopen == '|')
|
|
{
|
|
/*
|
|
* If LESSOPEN starts with a |, it indicates
|
|
* a "pipe preprocessor".
|
|
*/
|
|
#if !HAVE_FILENO
|
|
error("LESSOPEN pipe is not supported", NULL_PARG);
|
|
return (NULL);
|
|
#else
|
|
lessopen++;
|
|
returnfd++;
|
|
#endif
|
|
}
|
|
if (*lessopen == '-') {
|
|
/*
|
|
* Lessopen preprocessor will accept "-" as a filename.
|
|
*/
|
|
lessopen++;
|
|
} else {
|
|
if (strcmp(filename, "-") == 0)
|
|
return (NULL);
|
|
}
|
|
if (num_pct_s(lessopen) > 1)
|
|
{
|
|
error("Invalid LESSOPEN variable", NULL_PARG);
|
|
return (NULL);
|
|
}
|
|
|
|
len = strlen(lessopen) + strlen(filename) + 2;
|
|
cmd = (char *) ecalloc(len, sizeof(char));
|
|
SNPRINTF1(cmd, len, lessopen, filename);
|
|
fd = shellcmd(cmd);
|
|
free(cmd);
|
|
if (fd == NULL)
|
|
{
|
|
/*
|
|
* Cannot create the pipe.
|
|
*/
|
|
return (NULL);
|
|
}
|
|
#if HAVE_FILENO
|
|
if (returnfd)
|
|
{
|
|
int f;
|
|
char c;
|
|
|
|
/*
|
|
* Read one char to see if the pipe will produce any data.
|
|
* If it does, push the char back on the pipe.
|
|
*/
|
|
f = fileno(fd);
|
|
SET_BINARY(f);
|
|
if (read(f, &c, 1) != 1)
|
|
{
|
|
/*
|
|
* Pipe is empty.
|
|
* If more than 1 pipe char was specified,
|
|
* the exit status tells whether the file itself
|
|
* is empty, or if there is no alt file.
|
|
* If only one pipe char, just assume no alt file.
|
|
*/
|
|
int status = pclose(fd);
|
|
if (returnfd > 1 && status == 0) {
|
|
*pfd = NULL;
|
|
*pf = -1;
|
|
return (save(FAKE_EMPTYFILE));
|
|
}
|
|
return (NULL);
|
|
}
|
|
ch_ungetchar(c);
|
|
*pfd = (void *) fd;
|
|
*pf = f;
|
|
return (save("-"));
|
|
}
|
|
#endif
|
|
cmd = readfd(fd);
|
|
pclose(fd);
|
|
if (*cmd == '\0')
|
|
/*
|
|
* Pipe is empty. This means there is no alt file.
|
|
*/
|
|
return (NULL);
|
|
return (cmd);
|
|
#endif /* HAVE_POPEN */
|
|
}
|
|
|
|
/*
|
|
* Close a replacement file.
|
|
*/
|
|
public void
|
|
close_altfile(altfilename, filename, pipefd)
|
|
char *altfilename;
|
|
char *filename;
|
|
void *pipefd;
|
|
{
|
|
#if HAVE_POPEN
|
|
char *lessclose;
|
|
FILE *fd;
|
|
char *cmd;
|
|
int len;
|
|
|
|
if (secure)
|
|
return;
|
|
if (pipefd != NULL)
|
|
{
|
|
#if OS2
|
|
/*
|
|
* The pclose function of OS/2 emx sometimes fails.
|
|
* Send SIGINT to the piped process before closing it.
|
|
*/
|
|
kill(((FILE*)pipefd)->_pid, SIGINT);
|
|
#endif
|
|
pclose((FILE*) pipefd);
|
|
}
|
|
if ((lessclose = lgetenv("LESSCLOSE")) == NULL)
|
|
return;
|
|
if (num_pct_s(lessclose) > 2)
|
|
{
|
|
error("Invalid LESSCLOSE variable");
|
|
return;
|
|
}
|
|
len = strlen(lessclose) + strlen(filename) + strlen(altfilename) + 2;
|
|
cmd = (char *) ecalloc(len, sizeof(char));
|
|
SNPRINTF2(cmd, len, lessclose, filename, altfilename);
|
|
fd = shellcmd(cmd);
|
|
free(cmd);
|
|
if (fd != NULL)
|
|
pclose(fd);
|
|
#endif
|
|
}
|
|
|
|
/*
|
|
* Is the specified file a directory?
|
|
*/
|
|
public int
|
|
is_dir(filename)
|
|
char *filename;
|
|
{
|
|
int isdir = 0;
|
|
|
|
filename = shell_unquote(filename);
|
|
#if HAVE_STAT
|
|
{
|
|
int r;
|
|
struct stat statbuf;
|
|
|
|
r = stat(filename, &statbuf);
|
|
isdir = (r >= 0 && S_ISDIR(statbuf.st_mode));
|
|
}
|
|
#else
|
|
#ifdef _OSK
|
|
{
|
|
register int f;
|
|
|
|
f = open(filename, S_IREAD | S_IFDIR);
|
|
if (f >= 0)
|
|
close(f);
|
|
isdir = (f >= 0);
|
|
}
|
|
#endif
|
|
#endif
|
|
free(filename);
|
|
return (isdir);
|
|
}
|
|
|
|
/*
|
|
* Returns NULL if the file can be opened and
|
|
* is an ordinary file, otherwise an error message
|
|
* (if it cannot be opened or is a directory, etc.)
|
|
*/
|
|
public char *
|
|
bad_file(filename)
|
|
char *filename;
|
|
{
|
|
register char *m = NULL;
|
|
|
|
filename = shell_unquote(filename);
|
|
if (!force_open && is_dir(filename))
|
|
{
|
|
static char is_a_dir[] = " is a directory";
|
|
|
|
m = (char *) ecalloc(strlen(filename) + sizeof(is_a_dir),
|
|
sizeof(char));
|
|
strcpy(m, filename);
|
|
strcat(m, is_a_dir);
|
|
} else
|
|
{
|
|
#if HAVE_STAT
|
|
int r;
|
|
struct stat statbuf;
|
|
|
|
r = stat(filename, &statbuf);
|
|
if (r < 0)
|
|
{
|
|
m = errno_message(filename);
|
|
} else if (force_open)
|
|
{
|
|
m = NULL;
|
|
} else if (!S_ISREG(statbuf.st_mode))
|
|
{
|
|
static char not_reg[] = " is not a regular file (use -f to see it)";
|
|
m = (char *) ecalloc(strlen(filename) + sizeof(not_reg),
|
|
sizeof(char));
|
|
strcpy(m, filename);
|
|
strcat(m, not_reg);
|
|
}
|
|
#endif
|
|
}
|
|
free(filename);
|
|
return (m);
|
|
}
|
|
|
|
/*
|
|
* Return the size of a file, as cheaply as possible.
|
|
* In Unix, we can stat the file.
|
|
*/
|
|
public POSITION
|
|
filesize(f)
|
|
int f;
|
|
{
|
|
#if HAVE_STAT
|
|
struct stat statbuf;
|
|
|
|
if (fstat(f, &statbuf) >= 0)
|
|
return ((POSITION) statbuf.st_size);
|
|
#else
|
|
#ifdef _OSK
|
|
long size;
|
|
|
|
if ((size = (long) _gs_size(f)) >= 0)
|
|
return ((POSITION) size);
|
|
#endif
|
|
#endif
|
|
return (seek_filesize(f));
|
|
}
|
|
|
|
/*
|
|
*
|
|
*/
|
|
public char *
|
|
shell_coption()
|
|
{
|
|
return ("-c");
|
|
}
|
|
|
|
/*
|
|
* Return last component of a pathname.
|
|
*/
|
|
public char *
|
|
last_component(name)
|
|
char *name;
|
|
{
|
|
char *slash;
|
|
|
|
for (slash = name + strlen(name); slash > name; )
|
|
{
|
|
--slash;
|
|
if (*slash == *PATHNAME_SEP || *slash == '/')
|
|
return (slash + 1);
|
|
}
|
|
return (name);
|
|
}
|
|
|