contrib/less/lessecho.c

   1 /*
   2  * Copyright (C) 1984-2012  Mark Nudelman
   3  *
   4  * You may distribute under the terms of either the GNU General Public
   5  * License or the Less License, as specified in the README file.
   6  *
   7  * For more information, see the README file.
   8  */
   9
  10
  11 /*
  12  * lessecho [-ox] [-cx] [-pn] [-dn] [-a] file ...
  13  * Simply echos its filename arguments on standard output.
  14  * But any argument containing spaces is enclosed in quotes.
  15  *
  16  * -ox  Specifies "x" to be the open quote character.
  17  * -cx  Specifies "x" to be the close quote character.
  18  * -pn  Specifies "n" to be the open quote character, as an integer.
  19  * -dn  Specifies "n" to be the close quote character, as an integer.
  20  * -mx  Specifies "x" to be a metachar.
  21  * -nn  Specifies "n" to be a metachar, as an integer.
  22  * -ex  Specifies "x" to be the escape char for metachars.
  23  * -fn  Specifies "x" to be the escape char for metachars, as an integer.
  24  * -a   Specifies that all arguments are to be quoted.
  25  *      The default is that only arguments containing spaces are quoted.
  26  */
  27
  28 #include "less.h"
  29
  30 static char *version = "$Revision: 1.15 $";
  31
  32 static int quote_all = 0;
  33 static char openquote = '"';
  34 static char closequote = '"';
  35 static char *meta_escape = "\\";
  36 static char meta_escape_buf[2];
  37 static char metachars[64] = "";
  38 static int num_metachars = 0;
  39
  40         static void
  41 pr_usage()
  42 {
  43         fprintf(stderr,
  44                 "usage: lessecho [-ox] [-cx] [-pn] [-dn] [-mx] [-nn] [-ex] [-fn] [-a] file ...\n");
  45 }
  46
  47         static void
  48 pr_version()
  49 {
  50         char *p;
  51         char buf[10];
  52         char *pbuf = buf;
  53
  54         for (p = version;  *p != ' ';  p++)
  55                 if (*p == '\0')
  56                         return;
  57         for (p++;  *p != '$' && *p != ' ' && *p != '\0';  p++)
  58                 *pbuf++ = *p;
  59         *pbuf = '\0';
  60         printf("%s\n", buf);
  61 }
  62
  63         static void
  64 pr_error(s)
  65         char *s;
  66 {
  67         fprintf(stderr, "%s\n", s);
  68         exit(1);
  69 }
  70
  71         static long
  72 lstrtol(s, radix, pend)
  73         char *s;
  74         int radix;
  75         char **pend;
  76 {
  77         int v;
  78         int neg = 0;
  79         long n = 0;
  80
  81         /* Skip leading white space. */
  82         while (*s == ' ' || *s == '\t')
  83                 s++;
  84
  85         /* Check for a leading + or -. */
  86         if (*s == '-')
  87         {
  88                 neg = 1;
  89                 s++;
  90         } else if (*s == '+')
  91         {
  92                 s++;
  93         }
  94
  95         /* Determine radix if caller does not specify. */
  96         if (radix == 0)
  97         {
  98                 radix = 10;
  99                 if (*s == '0')
 100                 {
 101                         switch (*++s)
 102                         {
 103                         case 'x':
 104                                 radix = 16;
 105                                 s++;
 106                                 break;
 107                         default:
 108                                 radix = 8;
 109                                 break;
 110                         }
 111                 }
 112         }
 113
 114         /* Parse the digits of the number. */
 115         for (;;)
 116         {
 117                 if (*s >= '0' && *s <= '9')
 118                         v = *s - '0';
 119                 else if (*s >= 'a' && *s <= 'f')
 120                         v = *s - 'a' + 10;
 121                 else if (*s >= 'A' && *s <= 'F')
 122                         v = *s - 'A' + 10;
 123                 else
 124                         break;
 125                 if (v >= radix)
 126                         break;
 127                 n = n * radix + v;
 128                 s++;
 129         }
 130
 131         if (pend != NULL)
 132         {
 133                 /* Skip trailing white space. */
 134                 while (*s == ' ' || *s == '\t')
 135                         s++;
 136                 *pend = s;
 137         }
 138         if (neg)
 139                 return (-n);
 140         return (n);
 141 }
 142
 143
 144 #if !HAVE_STRCHR
 145         char *
 146 strchr(s, c)
 147         char *s;
 148         int c;
 149 {
 150         for ( ;  *s != '\0';  s++)
 151                 if (*s == c)
 152                         return (s);
 153         if (c == '\0')
 154                 return (s);
 155         return (NULL);
 156 }
 157 #endif
 158
 159         int
 160 main(argc, argv)
 161         int argc;
 162         char *argv[];
 163 {
 164         char *arg;
 165         char *s;
 166         int no_more_options;
 167
 168         no_more_options = 0;
 169         while (--argc > 0)
 170         {
 171                 arg = *++argv;
 172                 if (*arg != '-' || no_more_options)
 173                         break;
 174                 switch (*++arg)
 175                 {
 176                 case 'a':
 177                         quote_all = 1;
 178                         break;
 179                 case 'c':
 180                         closequote = *++arg;
 181                         break;
 182                 case 'd':
 183                         closequote = lstrtol(++arg, 0, &s);
 184                         if (s == arg)
 185                                 pr_error("Missing number after -d");
 186                         break;
 187                 case 'e':
 188                         if (strcmp(++arg, "-") == 0)
 189                                 meta_escape = "";
 190                         else
 191                                 meta_escape = arg;
 192                         break;
 193                 case 'f':
 194                         meta_escape_buf[0] = lstrtol(++arg, 0, &s);
 195                         meta_escape = meta_escape_buf;
 196                         if (s == arg)
 197                                 pr_error("Missing number after -f");
 198                         break;
 199                 case 'o':
 200                         openquote = *++arg;
 201                         break;
 202                 case 'p':
 203                         openquote = lstrtol(++arg, 0, &s);
 204                         if (s == arg)
 205                                 pr_error("Missing number after -p");
 206                         break;
 207                 case 'm':
 208                         metachars[num_metachars++] = *++arg;
 209                         metachars[num_metachars] = '\0';
 210                         break;
 211                 case 'n':
 212                         metachars[num_metachars++] = lstrtol(++arg, 0, &s);
 213                         if (s == arg)
 214                                 pr_error("Missing number after -n");
 215                         metachars[num_metachars] = '\0';
 216                         break;
 217                 case '?':
 218                         pr_usage();
 219                         return (0);
 220                 case '-':
 221                         if (*++arg == '\0')
 222                         {
 223                                 no_more_options = 1;
 224                                 break;
 225                         }
 226                         if (strcmp(arg, "version") == 0)
 227                         {
 228                                 pr_version();
 229                                 return (0);
 230                         }
 231                         if (strcmp(arg, "help") == 0)
 232                         {
 233                                 pr_usage();
 234                                 return (0);
 235                         }
 236                         pr_error("Invalid option after --");
 237                 default:
 238                         pr_error("Invalid option letter");
 239                 }
 240         }
 241
 242         while (argc-- > 0)
 243         {
 244                 int has_meta = 0;
 245                 arg = *argv++;
 246                 for (s = arg;  *s != '\0';  s++)
 247                 {
 248                         if (strchr(metachars, *s) != NULL)
 249                         {
 250                                 has_meta = 1;
 251                                 break;
 252                         }
 253                 }
 254                 if (quote_all || (has_meta && strlen(meta_escape) == 0))
 255                         printf("%c%s%c", openquote, arg, closequote);
 256                 else
 257                 {
 258                         for (s = arg;  *s != '\0';  s++)
 259                         {
 260                                 if (strchr(metachars, *s) != NULL)
 261                                         printf("%s", meta_escape);
 262                                 printf("%c", *s);
 263                         }
 264                 }
 265                 if (argc > 0)
 266                         printf(" ");
 267                 else
 268                         printf("\n");
 269         }
 270         return (0);
 271 }