[BACK]Return to filename.c CVS log [TXT][DIR] Up to [local] / src / usr.bin / less

Diff for /src/usr.bin/less/filename.c between version 1.16 and 1.17

version 1.16, 2014/04/25 13:38:21 version 1.17, 2015/11/05 22:08:44
Line 6 
Line 6 
  *   *
  * For more information, see the README file.   * For more information, see the README file.
  */   */
   /*
    * Modified for use with illumos.
    * Copyright 2014 Garrett D'Amore <garrett@damore.org>
    */
   
   
 /*  /*
  * Routines to mess around with filenames (and files).   * Routines to mess around with filenames (and files).
  * Much of this is very OS dependent.   * Much of this is very OS dependent.
    *
    * Modified for illumos/POSIX -- it uses native glob(3C) rather than
    * popen to a shell to perform the expansion.
  */   */
   
 #include "less.h"  #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>  #include <sys/stat.h>
 #ifndef S_ISDIR  #include <glob.h>
 #define S_ISDIR(m)      (((m) & S_IFMT) == S_IFDIR)  #include <stdarg.h>
 #endif  
 #ifndef S_ISREG  
 #define S_ISREG(m)      (((m) & S_IFMT) == S_IFREG)  
 #endif  
 #endif  
   
   
 extern int force_open;  extern int force_open;
 extern int secure;  extern int secure;
 extern int use_lessopen;  extern int use_lessopen;
Line 54 
Line 32 
 extern int utf_mode;  extern int utf_mode;
 extern IFILE curr_ifile;  extern IFILE curr_ifile;
 extern IFILE old_ifile;  extern IFILE old_ifile;
 #if SPACES_IN_FILENAMES  
 extern char openquote;  extern char openquote;
 extern char closequote;  extern char closequote;
 #endif  
   
 /*  /*
  * Remove quotes around a filename.   * Remove quotes around a filename.
  */   */
         public char *  char *
 shell_unquote(str)  shell_unquote(char *str)
         char *str;  
 {  {
         char *name;          char *name;
         char *p;          char *p;
   
         name = p = (char *) ecalloc(strlen(str)+1, sizeof(char));          name = p = ecalloc(strlen(str)+1, sizeof (char));
         if (*str == openquote)          if (*str == openquote) {
         {  
                 str++;                  str++;
                 while (*str != '\0')                  while (*str != '\0') {
                 {                          if (*str == closequote) {
                         if (*str == closequote)  
                         {  
                                 if (str[1] != closequote)                                  if (str[1] != closequote)
                                         break;                                          break;
                                 str++;                                  str++;
                         }                          }
                         *p++ = *str++;                          *p++ = *str++;
                 }                  }
         } else          } else {
         {  
                 char *esc = get_meta_escape();                  char *esc = get_meta_escape();
                 int esclen = strlen(esc);                  int esclen = strlen(esc);
                 while (*str != '\0')                  while (*str != '\0') {
                 {  
                         if (esclen > 0 && strncmp(str, esc, esclen) == 0)                          if (esclen > 0 && strncmp(str, esc, esclen) == 0)
                                 str += esclen;                                  str += esclen;
                         *p++ = *str++;                          *p++ = *str++;
Line 101 
Line 71 
 /*  /*
  * Get the shell's escape character.   * Get the shell's escape character.
  */   */
         public char *  char *
 get_meta_escape()  get_meta_escape(void)
 {  {
         char *s;          char *s;
   
Line 115 
Line 85 
 /*  /*
  * Get the characters which the shell considers to be "metacharacters".   * Get the characters which the shell considers to be "metacharacters".
  */   */
         static char *  static char *
 metachars()  metachars(void)
 {  {
         static char *mchars = NULL;          static char *mchars = NULL;
   
         if (mchars == NULL)          if (mchars == NULL) {
         {  
                 mchars = lgetenv("LESSMETACHARS");                  mchars = lgetenv("LESSMETACHARS");
                 if (mchars == NULL)                  if (mchars == NULL)
                         mchars = DEF_METACHARS;                          mchars = DEF_METACHARS;
Line 132 
Line 101 
 /*  /*
  * Is this a shell metacharacter?   * Is this a shell metacharacter?
  */   */
         static int  static int
 metachar(c)  metachar(char c)
         char c;  
 {  {
         return (strchr(metachars(), c) != NULL);          return (strchr(metachars(), c) != NULL);
 }  }
Line 142 
Line 110 
 /*  /*
  * Insert a backslash before each metacharacter in a string.   * Insert a backslash before each metacharacter in a string.
  */   */
         public char *  char *
 shell_quote(s)  shell_quote(const char *s)
         char *s;  
 {  {
         char *p;          const char *p;
           char *r;
         char *newstr;          char *newstr;
         int len;          int len;
         char *esc = get_meta_escape();          char *esc = get_meta_escape();
Line 158 
Line 126 
          * Determine how big a string we need to allocate.           * Determine how big a string we need to allocate.
          */           */
         len = 1; /* Trailing null byte */          len = 1; /* Trailing null byte */
         for (p = s;  *p != '\0';  p++)          for (p = s;  *p != '\0';  p++) {
         {  
                 len++;                  len++;
                 if (*p == openquote || *p == closequote)                  if (*p == openquote || *p == closequote)
                         have_quotes = 1;                          have_quotes = 1;
                 if (metachar(*p))                  if (metachar(*p)) {
                 {                          if (esclen == 0) {
                         if (esclen == 0)  
                         {  
                                 /*                                  /*
                                  * We've got a metachar, but this shell                                   * We've got a metachar, but this shell
                                  * doesn't support escape chars.  Use quotes.                                   * doesn't support escape chars.  Use quotes.
                                  */                                   */
                                 use_quotes = 1;                                  use_quotes = 1;
                         } else                          } else {
                         {  
                                 /*                                  /*
                                  * Allow space for the escape char.                                   * Allow space for the escape char.
                                  */                                   */
Line 181 
Line 145 
                         }                          }
                 }                  }
         }          }
         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.           * Allocate and construct the new string.
          */           */
         newstr = p = (char *) ecalloc(len, sizeof(char));          if (use_quotes) {
         if (use_quotes)                  /* We can't quote a string that contains quotes. */
         {                  if (have_quotes)
                 SNPRINTF3(newstr, len, "%c%s%c", openquote, s, closequote);                          return (NULL);
         } else                  newstr  = easprintf("%c%s%c", openquote, s, closequote);
         {          } else {
                 while (*s != '\0')                  newstr = r = ecalloc(len, sizeof (char));
                 {                  while (*s != '\0') {
                         if (metachar(*s))                          if (metachar(*s)) {
                         {  
                                 /*                                  /*
                                  * Add the escape char.                                   * Add the escape char.
                                  */                                   */
                                 strlcpy(p, esc, newstr + len - p);                                  (void) strlcpy(r, esc, newstr + len - p);
                                 p += esclen;                                  r += esclen;
                         }                          }
                         *p++ = *s++;                          *r++ = *s++;
                 }                  }
                 *p = '\0';                  *r = '\0';
         }          }
         return (newstr);          return (newstr);
 }  }
Line 220 
Line 174 
  * Return a pathname that points to a specified file in a specified directory.   * Return a pathname that points to a specified file in a specified directory.
  * Return NULL if the file does not exist in the directory.   * Return NULL if the file does not exist in the directory.
  */   */
         static char *  static char *
 dirfile(dirname, filename)  dirfile(const char *dirname, const char *filename)
         char *dirname;  
         char *filename;  
 {  {
         char *pathname;          char *pathname;
         char *qpathname;          char *qpathname;
         size_t len;  
         int f;          int f;
   
         if (dirname == NULL || *dirname == '\0')          if (dirname == NULL || *dirname == '\0')
Line 235 
Line 186 
         /*          /*
          * Construct the full pathname.           * Construct the full pathname.
          */           */
         len= strlen(dirname) + strlen(filename) + 2;          pathname = easprintf("%s/%s", dirname, filename);
         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.           * Make sure the file exists.
          */           */
         qpathname = shell_unquote(pathname);          qpathname = shell_unquote(pathname);
         f = open(qpathname, OPEN_READ);          f = open(qpathname, O_RDONLY);
         if (f < 0)          if (f < 0) {
         {  
                 free(pathname);                  free(pathname);
                 pathname = NULL;                  pathname = NULL;
         } else          } else {
         {                  (void) close(f);
                 close(f);  
         }          }
         free(qpathname);          free(qpathname);
         return (pathname);          return (pathname);
 }  }
   
 #if USERFILE  
 /*  /*
  * Return the full pathname of the given file in the "home directory".   * Return the full pathname of the given file in the "home directory".
  */   */
         public char *  char *
 homefile(filename)  homefile(char *filename)
         char *filename;  
 {  {
         register char *pathname;          return (dirfile(lgetenv("HOME"), filename));
   
         /*  
          * 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  
                         strlcpy(pathname, res, _MAX_PATH);  
         }  
 #else  
         _searchenv(filename, "PATH", pathname);  
 #endif  
         if (*pathname != '\0')  
                 return (pathname);  
         free(pathname);  
 #endif  
         return (NULL);  
 }  }
 #endif /* USERFILE */  
   
 /*  /*
  * Expand a string, substituting any "%" with the current filename,   * Expand a string, substituting any "%" with the current filename,
Line 312 
Line 218 
  * Likewise for a string of N "#"s.   * Likewise for a string of N "#"s.
  * {{ This is a lot of work just to support % and #. }}   * {{ This is a lot of work just to support % and #. }}
  */   */
         public char *  char *
 fexpand(s)  fexpand(char *s)
         char *s;  
 {  {
         register char *fr, *to;          char *fr, *to;
         register int n;          int n;
         register char *e;          char *e;
         IFILE ifile;          IFILE ifile;
   
 #define fchar_ifile(c) \  #define fchar_ifile(c) \
         ((c) == '%' ? curr_ifile : \          ((c) == '%' ? curr_ifile : (c) == '#' ? old_ifile : NULL_IFILE)
          (c) == '#' ? old_ifile : NULL_IFILE)  
   
         /*          /*
          * Make one pass to see how big a buffer we           * Make one pass to see how big a buffer we
          * need to allocate for the expanded string.           * need to allocate for the expanded string.
          */           */
         n = 0;          n = 0;
         for (fr = s;  *fr != '\0';  fr++)          for (fr = s;  *fr != '\0';  fr++) {
         {                  switch (*fr) {
                 switch (*fr)  
                 {  
                 case '%':                  case '%':
                 case '#':                  case '#':
                         if (fr > s && fr[-1] == *fr)                          if (fr > s && fr[-1] == *fr) {
                         {  
                                 /*                                  /*
                                  * Second (or later) char in a string                                   * Second (or later) char in a string
                                  * of identical chars.  Treat as normal.                                   * of identical chars.  Treat as normal.
                                  */                                   */
                                 n++;                                  n++;
                         } else if (fr[1] != *fr)                          } else if (fr[1] != *fr) {
                         {  
                                 /*                                  /*
                                  * Single char (not repeated).  Treat specially.                                   * Single char (not repeated).  Treat specially.
                                  */                                   */
Line 365 
Line 265 
                 }                  }
         }          }
   
         e = (char *) ecalloc(n+1, sizeof(char));          e = ecalloc(n+1, sizeof (char));
   
         /*          /*
          * Now copy the string, expanding any "%" or "#".           * Now copy the string, expanding any "%" or "#".
          */           */
         to = e;          to = e;
         for (fr = s;  *fr != '\0';  fr++)          for (fr = s;  *fr != '\0';  fr++) {
         {                  switch (*fr) {
                 switch (*fr)  
                 {  
                 case '%':                  case '%':
                 case '#':                  case '#':
                         if (fr > s && fr[-1] == *fr)                          if (fr > s && fr[-1] == *fr) {
                         {  
                                 *to++ = *fr;                                  *to++ = *fr;
                         } else if (fr[1] != *fr)                          } else if (fr[1] != *fr) {
                         {  
                                 ifile = fchar_ifile(*fr);                                  ifile = fchar_ifile(*fr);
                                 if (ifile == NULL_IFILE)                                  if (ifile == NULL_IFILE) {
                                         *to++ = *fr;                                          *to++ = *fr;
                                 else                                  } else {
                                 {                                          (void) strlcpy(to, get_filename(ifile),
                                         strlcpy(to, get_filename(ifile),  
                                             e + n + 1 - to);                                              e + n + 1 - to);
                                         to += strlen(to);                                          to += strlen(to);
                                 }                                  }
Line 402 
Line 297 
         return (e);          return (e);
 }  }
   
   
 #if TAB_COMPLETE_FILENAME  
   
 /*  /*
  * Return a blank-separated list of filenames which "complete"   * Return a blank-separated list of filenames which "complete"
  * the given string.   * the given string.
  */   */
         public char *  char *
 fcomplete(s)  fcomplete(char *s)
         char *s;  
 {  {
         char *fpat;          char *fpat;
         char *qs;          char *qs;
         size_t len;  
   
         if (secure)          if (secure)
                 return (NULL);                  return (NULL);
         /*          /*
          * Complete the filename "s" by globbing "s*".           * Complete the filename "s" by globbing "s*".
          */           */
 #if MSDOS_COMPILER && (MSDOS_COMPILER == MSOFTC || MSDOS_COMPILER == BORLANDC)          fpat =  easprintf("%s*", s);
         /*  
          * 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;  
                 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  
         {  
         len = strlen(s) + 2;  
         fpat = (char *) ecalloc(len, sizeof(char));  
         SNPRINTF1(fpat, len, "%s*", s);  
         }  
 #endif  
         qs = lglob(fpat);          qs = lglob(fpat);
         s = shell_unquote(qs);          s = shell_unquote(qs);
         if (strcmp(s,fpat) == 0)          if (strcmp(s, fpat) == 0) {
         {  
                 /*                  /*
                  * The filename didn't expand.                   * The filename didn't expand.
                  */                   */
Line 463 
Line 327 
         free(fpat);          free(fpat);
         return (qs);          return (qs);
 }  }
 #endif  
   
 /*  /*
  * Try to determine if a file is "binary".   * Try to determine if a file is "binary".
  * This is just a guess, and we need not try too hard to make it accurate.   * This is just a guess, and we need not try too hard to make it accurate.
  */   */
         public int  int
 bin_file(f)  bin_file(int f)
         int f;  
 {  {
         int n;          int n;
         int bin_count = 0;          int bin_count = 0;
         char data[256];          char data[256];
         char* p;          char *p;
         char* pend;          char *pend;
   
         if (!seekable(f))          if (!seekable(f))
                 return (0);                  return (0);
         if (lseek(f, (off_t)0, SEEK_SET) == BAD_LSEEK)          if (lseek(f, (off_t)0, SEEK_SET) == BAD_LSEEK)
                 return (0);                  return (0);
         n = read(f, data, sizeof(data));          n = read(f, data, sizeof (data));
         pend = &data[n];          pend = &data[n];
         for (p = data;  p < pend;  )          for (p = data; p < pend; ) {
         {  
                 LWCHAR c = step_char(&p, +1, pend);                  LWCHAR c = step_char(&p, +1, pend);
                 if (ctldisp == OPT_ONPLUS && IS_CSI_START(c))                  if (ctldisp == OPT_ONPLUS && IS_CSI_START(c)) {
                 {  
                         do {                          do {
                                 c = step_char(&p, +1, pend);                                  c = step_char(&p, +1, pend);
                         } while (p < pend && is_ansi_middle(c));                          } while (p < pend && is_ansi_middle(c));
Line 506 
Line 366 
 /*  /*
  * Try to determine the size of a file by seeking to the end.   * Try to determine the size of a file by seeking to the end.
  */   */
         static POSITION  static off_t
 seek_filesize(f)  seek_filesize(int f)
         int f;  
 {  {
         off_t spos;          off_t spos;
   
         spos = lseek(f, (off_t)0, SEEK_END);          spos = lseek(f, (off_t)0, SEEK_END);
         if (spos == BAD_LSEEK)          if (spos == BAD_LSEEK)
                 return (NULL_POSITION);                  return (-1);
         return ((POSITION) spos);          return (spos);
 }  }
   
 /*  /*
  * Read a string from a file.   * Read a string from a file.
  * Return a pointer to the string in memory.   * Return a pointer to the string in memory.
  */   */
         static char *  static char *
 readfd(fd)  readfd(FILE *fd)
         FILE *fd;  
 {  {
         int len;          int len;
         int ch;          int ch;
         char *buf;          char *buf;
         char *p;          char *p;
   
         /*          /*
          * Make a guess about how many chars in the string           * Make a guess about how many chars in the string
          * and allocate a buffer to hold it.           * and allocate a buffer to hold it.
          */           */
         len = 100;          len = 100;
         buf = (char *) ecalloc(len, sizeof(char));          buf = ecalloc(len, sizeof (char));
         for (p = buf;  ;  p++)          for (p = buf; ; p++) {
         {  
                 if ((ch = getc(fd)) == '\n' || ch == EOF)                  if ((ch = getc(fd)) == '\n' || ch == EOF)
                         break;                          break;
                 if (p - buf >= len-1)                  if (p >= buf + len-1) {
                 {  
                         /*                          /*
                          * The string is too big to fit in the buffer we have.                           * The string is too big to fit in the buffer we have.
                          * Allocate a new buffer, twice as big.                           * Allocate a new buffer, twice as big.
                          */                           */
                         len *= 2;                          len *= 2;
                         *p = '\0';                          *p = '\0';
                         p = (char *) ecalloc(len, sizeof(char));                          p = ecalloc(len, sizeof (char));
                         strlcpy(p, buf, len);                          strlcpy(p, buf, len);
                         free(buf);                          free(buf);
                         buf = p;                          buf = p;
                         p = buf + strlen(buf);                          p = buf + strlen(buf);
                 }                  }
                 *p = ch;                  *p = (char)ch;
         }          }
         *p = '\0';          *p = '\0';
         return (buf);          return (buf);
 }  }
   
   
   
 #if HAVE_POPEN  
   
 FILE *popen();  
   
 /*  /*
  * Execute a shell command.   * Execute a shell command.
  * Return a pointer to a pipe connected to the shell command's standard output.   * Return a pointer to a pipe connected to the shell command's standard output.
  */   */
         static FILE *  static FILE *
 shellcmd(cmd)  shellcmd(char *cmd)
         char *cmd;  
 {  {
         FILE *fd;          FILE *fd;
   
 #if HAVE_SHELL  
         char *shell;          char *shell;
   
         shell = lgetenv("SHELL");          shell = lgetenv("SHELL");
         if (shell != NULL && *shell != '\0')          if (shell != NULL && *shell != '\0') {
         {  
                 char *scmd;                  char *scmd;
                 char *esccmd;                  char *esccmd;
   
                 /*                  /*
                  * Read the output of <$SHELL -c cmd>.                   * Read the output of <$SHELL -c cmd>.
                  * Escape any metacharacters in the command.                   * Escape any metacharacters in the command.
                  */                   */
                 esccmd = shell_quote(cmd);                  esccmd = shell_quote(cmd);
                 if (esccmd == NULL)                  if (esccmd == NULL) {
                 {  
                         fd = popen(cmd, "r");                          fd = popen(cmd, "r");
                 } else                  } else {
                 {                          scmd = easprintf("%s -c %s", shell, esccmd);
                         size_t len = strlen(shell) + strlen(esccmd) + 5;  
                         scmd = (char *) ecalloc(len, sizeof(char));  
                         SNPRINTF3(scmd, len, "%s %s %s", shell, shell_coption(), esccmd);  
                         free(esccmd);                          free(esccmd);
                         fd = popen(scmd, "r");                          fd = popen(scmd, "r");
                         free(scmd);                          free(scmd);
                 }                  }
         } else          } else {
 #endif  
         {  
                 fd = popen(cmd, "r");                  fd = popen(cmd, "r");
         }          }
         /*          /*
          * Redirection in `popen' might have messed with the           * Redirection in `popen' might have messed with the
          * standard devices.  Restore binary input mode.           * standard devices.  Restore binary input mode.
          */           */
         SET_BINARY(0);  
         return (fd);          return (fd);
 }  }
   
 #endif /* HAVE_POPEN */  
   
   
 #if !SMALL  
 /*  /*
  * Expand a filename, doing any system-specific metacharacter substitutions.   * Expand a filename, doing any system-specific metacharacter substitutions.
  */   */
         public char *  char *
 lglob(filename)  lglob(char *filename)
         char *filename;  
 {  {
         char *gfilename;          char *gfilename;
         char *ofilename;          char *ofilename;
           glob_t list;
           int i;
           int length;
           char *p;
           char *qfilename;
   
         ofilename = fexpand(filename);          ofilename = fexpand(filename);
         if (secure)          if (secure)
                 return (ofilename);                  return (ofilename);
         filename = shell_unquote(ofilename);          filename = shell_unquote(ofilename);
   
 #ifdef DECL_GLOB_LIST  
 {  
         /*          /*
          * The globbing function returns a list of names.           * The globbing function returns a list of names.
          */           */
         int length;  
         char *p;  
         char *qfilename;  
         DECL_GLOB_LIST(list)  
   
         GLOB_LIST(filename, list);  #ifndef GLOB_TILDE
         if (GLOB_LIST_FAILED(list))  #define GLOB_TILDE      0
         {  #endif
   #ifndef GLOB_LIMIT
   #define GLOB_LIMIT      0
   #endif
           if (glob(filename, GLOB_TILDE | GLOB_LIMIT, NULL, &list) != 0) {
                 free(filename);                  free(filename);
                 return (ofilename);                  return (ofilename);
         }          }
         length = 1; /* Room for trailing null byte */          length = 1; /* Room for trailing null byte */
         for (SCAN_GLOB_LIST(list, p))          for (i = 0; i < list.gl_pathc; i++) {
         {                  p = list.gl_pathv[i];
                 INIT_GLOB_LIST(list, p);  
                 qfilename = shell_quote(p);                  qfilename = shell_quote(p);
                 if (qfilename != NULL)                  if (qfilename != NULL) {
                 {                          length += strlen(qfilename) + 1;
                         length += strlen(qfilename) + 1;  
                         free(qfilename);                          free(qfilename);
                 }                  }
         }          }
         gfilename = (char *) ecalloc(length, sizeof(char));          gfilename = ecalloc(length, sizeof (char));
         for (SCAN_GLOB_LIST(list, p))          for (i = 0; i < list.gl_pathc; i++) {
         {                  p = list.gl_pathv[i];
                 INIT_GLOB_LIST(list, p);  
                 qfilename = shell_quote(p);                  qfilename = shell_quote(p);
                 if (qfilename != NULL)                  if (qfilename != NULL) {
                 {                          if (i != 0) {
                         snprintf(gfilename + strlen(gfilename),                                  (void) strlcat(gfilename, " ", length);
                             length - strlen(gfilename), "%s ", qfilename);                          }
                           (void) strlcat(gfilename, qfilename, length);
                         free(qfilename);                          free(qfilename);
                 }                  }
         }          }
         /*          globfree(&list);
          * Overwrite the final trailing space with a null terminator.  
          */  
         if (gfilename[0] != '\0' && gfilename[strlen(gfilename) - 1] == ' ')  
                 gfilename[strlen(gfilename) - 1] = '\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));  
                                 strlcpy(p, gfilename, len);  
                                 free(gfilename);  
                                 gfilename = p;  
                                 p = gfilename + strlen(gfilename);  
                         }  
                         strlcpy(p, qpathname, gfilename + len - p);  
                         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;  
         size_t 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++)  
                 snprintf(cmd + strlen(cmd), len - strlen(cmd), "-n0x%x ", *s);  
         snprintf(cmd + strlen(cmd), len - 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(filename);
         free(ofilename);          free(ofilename);
         return (gfilename);          return (gfilename);
 }  }
 #endif /* !SMALL */  
   
 /*  /*
  * Return number of %s escapes in a string.   * Expand LESSOPEN or LESSCLOSE.  Returns a newly allocated string
  * Return a large number if there are any other % escapes besides %s.   * on success, NULL otherwise.
  */   */
         static int  static char *
 num_pct_s(lessopen)  expand_pct_s(const char *fmt, ...)
         char *lessopen;  
 {  {
         int num;          int             n;
           int             len;
           char            *r, *d;
           const char      *f[3];          /* max expansions + 1 for NULL */
           va_list         ap;
   
         for (num = 0;; num++)          va_start(ap, fmt);
         {          for (n = 0; n < ((sizeof (f)/sizeof (f[0])) - 1); n++) {
                 lessopen = strchr(lessopen, '%');                  f[n] = (const char *)va_arg(ap, const char *);
                 if (lessopen == NULL)                  if (f[n] == NULL) {
                         break;                          break;
                 if (*++lessopen != 's')                  }
                         return (999);  
         }          }
         return (num);          va_end(ap);
           f[n] = NULL;    /* terminate list */
   
           len = strlen(fmt) + 1;
           for (n = 0; f[n] != NULL; n++) {
                   len += strlen(f[n]);    /* technically could -2 for "%s" */
           }
           r = ecalloc(len, sizeof (char));
   
           for (n = 0, d = r; *fmt != 0; ) {
                   if (*fmt != '%') {
                           *d++ = *fmt++;
                           continue;
                   }
                   fmt++;
                   /* Permit embedded "%%" */
                   switch (*fmt) {
                   case '%':
                           *d++ = '%';
                           fmt++;
                           break;
                   case 's':
                           if (f[n] == NULL) {
                                   va_end(ap);
                                   free(r);
                                   return (NULL);
                           }
                           (void) strlcpy(d, f[n++], r + len - d);
                           fmt++;
                           d += strlen(d);
                           break;
                   default:
                           va_end(ap);
                           free(r);
                           return (NULL);
                   }
           }
           *d = '\0';
           return (r);
 }  }
   
 /*  /*
  * See if we should open a "replacement file"   * See if we should open a "replacement file"
  * instead of the file we're about to open.   * instead of the file we're about to open.
  */   */
         public char *  char *
 open_altfile(filename, pf, pfd)  open_altfile(char *filename, int *pf, void **pfd)
         char *filename;  
         int *pf;  
         void **pfd;  
 {  {
 #if !HAVE_POPEN  
         return (NULL);  
 #else  
         char *lessopen;          char *lessopen;
         char *cmd;          char *cmd;
         size_t len;  
         FILE *fd;          FILE *fd;
 #if HAVE_FILENO  
         int returnfd = 0;          int returnfd = 0;
 #endif  
   
         if (!use_lessopen || secure)          if (!use_lessopen || secure)
                 return (NULL);                  return (NULL);
         ch_ungetchar(-1);          ch_ungetchar(-1);
         if ((lessopen = lgetenv("LESSOPEN")) == NULL)          if ((lessopen = lgetenv("LESSOPEN")) == NULL)
                 return (NULL);                  return (NULL);
         while (*lessopen == '|')          while (*lessopen == '|') {
         {  
                 /*                  /*
                  * If LESSOPEN starts with a |, it indicates                   * If LESSOPEN starts with a |, it indicates
                  * a "pipe preprocessor".                   * a "pipe preprocessor".
                  */                   */
 #if !HAVE_FILENO  
                 error("LESSOPEN pipe is not supported", NULL_PARG);  
                 return (NULL);  
 #else  
                 lessopen++;                  lessopen++;
                 returnfd++;                  returnfd++;
 #endif  
         }          }
         if (*lessopen == '-') {          if (*lessopen == '-') {
                 /*                  /*
Line 882 
Line 611 
                 if (strcmp(filename, "-") == 0)                  if (strcmp(filename, "-") == 0)
                         return (NULL);                          return (NULL);
         }          }
         if (num_pct_s(lessopen) > 1)  
         {          if ((cmd = expand_pct_s(lessopen, filename, NULL)) == NULL) {
                 error("Invalid LESSOPEN variable", NULL_PARG);                  error("Invalid LESSOPEN variable", NULL_PARG);
                 return (NULL);                  return (NULL);
         }          }
   
         len = strlen(lessopen) + strlen(filename) + 2;  
         cmd = (char *) ecalloc(len, sizeof(char));  
         SNPRINTF1(cmd, len, lessopen, filename);  
         fd = shellcmd(cmd);          fd = shellcmd(cmd);
         free(cmd);          free(cmd);
         if (fd == NULL)          if (fd == NULL) {
         {  
                 /*                  /*
                  * Cannot create the pipe.                   * Cannot create the pipe.
                  */                   */
                 return (NULL);                  return (NULL);
         }          }
 #if HAVE_FILENO          if (returnfd) {
         if (returnfd)  
         {  
                 int f;                  int f;
                 char c;                  char c;
   
Line 911 
Line 633 
                  * If it does, push the char back on the pipe.                   * If it does, push the char back on the pipe.
                  */                   */
                 f = fileno(fd);                  f = fileno(fd);
                 SET_BINARY(f);                  if (read(f, &c, 1) != 1) {
                 if (read(f, &c, 1) != 1)  
                 {  
                         /*                          /*
                          * Pipe is empty.                           * Pipe is empty.
                          * If more than 1 pipe char was specified,                           * If more than 1 pipe char was specified,
                          * the exit status tells whether the file itself                           * the exit status tells whether the file itself
                          * is empty, or if there is no alt file.                           * is empty, or if there is no alt file.
                          * If only one pipe char, just assume no alt file.                           * If only one pipe char, just assume no alt file.
                          */                           */
Line 934 
Line 654 
                 *pf = f;                  *pf = f;
                 return (save("-"));                  return (save("-"));
         }          }
 #endif  
         cmd = readfd(fd);          cmd = readfd(fd);
         pclose(fd);          pclose(fd);
         if (*cmd == '\0')          if (*cmd == '\0')
Line 943 
Line 662 
                  */                   */
                 return (NULL);                  return (NULL);
         return (cmd);          return (cmd);
 #endif /* HAVE_POPEN */  
 }  }
   
 /*  /*
  * Close a replacement file.   * Close a replacement file.
  */   */
         public void  void
 close_altfile(altfilename, filename, pipefd)  close_altfile(char *altfilename, char *filename, void *pipefd)
         char *altfilename;  
         char *filename;  
         void *pipefd;  
 {  {
 #if HAVE_POPEN  
         char *lessclose;          char *lessclose;
         FILE *fd;          FILE *fd;
         char *cmd;          char *cmd;
         size_t len;  
   
         if (secure)          if (secure)
                 return;                  return;
         if (pipefd != NULL)          if (pipefd != NULL) {
         {                  pclose((FILE *)pipefd);
 #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)          if ((lessclose = lgetenv("LESSCLOSE")) == NULL)
                 return;  
         if (num_pct_s(lessclose) > 2)  
         {  
                 error("Invalid LESSCLOSE variable");  
                 return;                  return;
           cmd = expand_pct_s(lessclose, filename, altfilename, NULL);
           if (cmd == NULL) {
                   error("Invalid LESSCLOSE variable", NULL_PARG);
                   return;
         }          }
         len = strlen(lessclose) + strlen(filename) + strlen(altfilename) + 2;  
         cmd = (char *) ecalloc(len, sizeof(char));  
         SNPRINTF2(cmd, len, lessclose, filename, altfilename);  
         fd = shellcmd(cmd);          fd = shellcmd(cmd);
         free(cmd);          free(cmd);
         if (fd != NULL)          if (fd != NULL)
                 pclose(fd);                  (void) pclose(fd);
 #endif  
 }  }
   
 /*  /*
  * Is the specified file a directory?   * Is the specified file a directory?
  */   */
         public int  int
 is_dir(filename)  is_dir(char *filename)
         char *filename;  
 {  {
         int isdir = 0;          int isdir = 0;
   
         filename = shell_unquote(filename);  
 #if HAVE_STAT  
 {  
         int r;          int r;
         struct stat statbuf;          struct stat statbuf;
   
           filename = shell_unquote(filename);
   
         r = stat(filename, &statbuf);          r = stat(filename, &statbuf);
         isdir = (r >= 0 && S_ISDIR(statbuf.st_mode));          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);          free(filename);
         return (isdir);          return (isdir);
 }  }
Line 1030 
Line 715 
  * is an ordinary file, otherwise an error message   * is an ordinary file, otherwise an error message
  * (if it cannot be opened or is a directory, etc.)   * (if it cannot be opened or is a directory, etc.)
  */   */
         public char *  char *
 bad_file(filename)  bad_file(char *filename)
         char *filename;  
 {  {
         register char *m = NULL;          char *m = NULL;
         size_t len;  
   
         filename = shell_unquote(filename);          filename = shell_unquote(filename);
         if (!force_open && is_dir(filename))          if (!force_open && is_dir(filename)) {
         {                  m = easprintf("%s is a directory", filename);
                 static char is_a_dir[] = " is a directory";          } else {
   
                 len = strlen(filename) + sizeof(is_a_dir);  
                 m = (char *) ecalloc(len, sizeof(char));  
                 strlcpy(m, filename, len);  
                 strlcat(m, is_a_dir, len);  
         } else  
         {  
 #if HAVE_STAT  
                 int r;                  int r;
                 struct stat statbuf;                  struct stat statbuf;
   
                 r = stat(filename, &statbuf);                  r = stat(filename, &statbuf);
                 if (r < 0)                  if (r < 0) {
                 {  
                         m = errno_message(filename);                          m = errno_message(filename);
                 } else if (force_open)                  } else if (force_open) {
                 {  
                         m = NULL;                          m = NULL;
                 } else if (!S_ISREG(statbuf.st_mode))                  } else if (!S_ISREG(statbuf.st_mode)) {
                 {                          m = easprintf("%s is not a regular file (use -f to "
                         static char not_reg[] = " is not a regular file (use -f to see it)";                              "see it)", filename);
                         len = strlen(filename) + sizeof(not_reg);  
                         m = (char *) ecalloc(len, sizeof(char));  
                         strlcpy(m, filename, len);  
                         strlcat(m, not_reg, len);  
                 }                  }
 #endif  
         }          }
         free(filename);          free(filename);
         return (m);          return (m);
Line 1077 
Line 745 
  * Return the size of a file, as cheaply as possible.   * Return the size of a file, as cheaply as possible.
  * In Unix, we can stat the file.   * In Unix, we can stat the file.
  */   */
         public POSITION  off_t
 filesize(f)  filesize(int f)
         int f;  
 {  {
 #if HAVE_STAT  
         struct stat statbuf;          struct stat statbuf;
   
         if (fstat(f, &statbuf) >= 0)          if (fstat(f, &statbuf) >= 0)
                 return ((POSITION) statbuf.st_size);                  return (statbuf.st_size);
 #else  
 #ifdef _OSK  
         long size;  
   
         if ((size = (long) _gs_size(f)) >= 0)  
                 return ((POSITION) size);  
 #endif  
 #endif  
         return (seek_filesize(f));          return (seek_filesize(f));
 }  }
   
 /*  /*
  *  
  */  
         public char *  
 shell_coption()  
 {  
         return ("-c");  
 }  
   
 /*  
  * Return last component of a pathname.   * Return last component of a pathname.
  */   */
         public char *  char *
 last_component(name)  last_component(char *name)
         char *name;  
 {  {
         char *slash;          char *slash;
   
         for (slash = name + strlen(name);  slash > name; )          for (slash = name + strlen(name);  slash > name; ) {
         {  
                 --slash;                  --slash;
                 if (*slash == *PATHNAME_SEP || *slash == '/')                  if (*slash == '/')
                         return (slash + 1);                          return (slash + 1);
         }          }
         return (name);          return (name);
 }  }
   
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17