third_party/heimdal/lib/sl/sl.c

   1 /*
   2  * Copyright (c) 1995 - 2006 Kungliga Tekniska Högskolan
   3  * (Royal Institute of Technology, Stockholm, Sweden).
   4  * All rights reserved.
   5  *
   6  * Redistribution and use in source and binary forms, with or without
   7  * modification, are permitted provided that the following conditions
   8  * are met:
   9  *
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  *
  13  * 2. Redistributions in binary form must reproduce the above copyright
  14  *    notice, this list of conditions and the following disclaimer in the
  15  *    documentation and/or other materials provided with the distribution.
  16  *
  17  * 3. Neither the name of the Institute nor the names of its contributors
  18  *    may be used to endorse or promote products derived from this software
  19  *    without specific prior written permission.
  20  *
  21  * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
  22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
  25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  31  * SUCH DAMAGE.
  32  */
  33
  34 #include <config.h>
  35
  36 #include "sl_locl.h"
  37 #include <setjmp.h>
  38
  39 static void
  40 mandoc_template(SL_cmd *cmds,
  41                 const char *extra_string)
  42 {
  43     SL_cmd *c, *prev;
  44     char timestr[64], cmd[64];
  45     const char *p;
  46     time_t t;
  47
  48     printf(".\\\" Things to fix:\n");
  49     printf(".\\\"   * correct section, and operating system\n");
  50     printf(".\\\"   * remove Op from mandatory flags\n");
  51     printf(".\\\"   * use better macros for arguments (like .Pa for files)\n");
  52     printf(".\\\"\n");
  53     t = time(NULL);
  54     strftime(timestr, sizeof(timestr), "%b %d, %Y", localtime(&t));
  55     printf(".Dd %s\n", timestr);
  56 #ifdef HAVE_GETPROGNAME
  57     p = getprogname();
  58 #else
  59     p = "unknown-application";
  60 #endif
  61     strncpy(cmd, p, sizeof(cmd));
  62     cmd[sizeof(cmd)-1] = '\0';
  63     strupr(cmd);
  64
  65     printf(".Dt %s SECTION\n", cmd);
  66     printf(".Os OPERATING_SYSTEM\n");
  67     printf(".Sh NAME\n");
  68     printf(".Nm %s\n", p);
  69     printf(".Nd\n");
  70     printf("in search of a description\n");
  71     printf(".Sh SYNOPSIS\n");
  72     printf(".Nm\n");
  73     for(c = cmds; c->name; ++c) {
  74 /*      if (c->func == NULL)
  75             continue; */
  76         printf(".Op Fl %s", c->name);
  77         printf("\n");
  78
  79     }
  80     if (extra_string && *extra_string)
  81         printf (".Ar %s\n", extra_string);
  82     printf(".Sh DESCRIPTION\n");
  83     printf("Supported options:\n");
  84     printf(".Bl -tag -width Ds\n");
  85     prev = NULL;
  86     for(c = cmds; c->name; ++c) {
  87         if (c->func) {
  88             if (prev)
  89                 printf ("\n%s\n", prev->usage);
  90
  91             printf (".It Fl %s", c->name);
  92             prev = c;
  93         } else
  94             printf (", %s\n", c->name);
  95     }
  96     if (prev)
  97         printf ("\n%s\n", prev->usage);
  98
  99     printf(".El\n");
 100     printf(".\\\".Sh ENVIRONMENT\n");
 101     printf(".\\\".Sh FILES\n");
 102     printf(".\\\".Sh EXAMPLES\n");
 103     printf(".\\\".Sh DIAGNOSTICS\n");
 104     printf(".\\\".Sh SEE ALSO\n");
 105     printf(".\\\".Sh STANDARDS\n");
 106     printf(".\\\".Sh HISTORY\n");
 107     printf(".\\\".Sh AUTHORS\n");
 108     printf(".\\\".Sh BUGS\n");
 109 }
 110
 111 SL_cmd *
 112 sl_match (SL_cmd *cmds, char *cmd, int exactp)
 113 {
 114     SL_cmd *c, *current = NULL, *partial_cmd = NULL;
 115     int partial_match = 0;
 116
 117     for (c = cmds; c->name; ++c) {
 118         if (c->func)
 119             current = c;
 120         if (strcmp (cmd, c->name) == 0)
 121             return current;
 122         else if (strncmp (cmd, c->name, strlen(cmd)) == 0 &&
 123                  partial_cmd != current) {
 124             ++partial_match;
 125             partial_cmd = current;
 126         }
 127     }
 128     if (partial_match == 1 && !exactp)
 129         return partial_cmd;
 130     else
 131         return NULL;
 132 }
 133
 134 void
 135 sl_help (SL_cmd *cmds, int argc, char **argv)
 136 {
 137     SL_cmd *c, *prev_c;
 138
 139     if (getenv("SLMANDOC")) {
 140         mandoc_template(cmds, NULL);
 141         return;
 142     }
 143
 144     if (argc == 1) {
 145         prev_c = NULL;
 146         for (c = cmds; c->name; ++c) {
 147             if (c->func) {
 148                 if(prev_c)
 149                     printf ("\n\t%s%s", prev_c->usage ? prev_c->usage : "",
 150                             prev_c->usage ? "\n" : "");
 151                 prev_c = c;
 152                 printf ("%s", c->name);
 153             } else
 154                 printf (", %s", c->name);
 155         }
 156         if(prev_c)
 157             printf ("\n\t%s%s", prev_c->usage ? prev_c->usage : "",
 158                     prev_c->usage ? "\n" : "");
 159     } else {
 160         c = sl_match (cmds, argv[1], 0);
 161         if (c == NULL)
 162             printf ("No such command: %s. "
 163                     "Try \"help\" for a list of all commands\n",
 164                     argv[1]);
 165         else {
 166             printf ("%s\t%s\n", c->name, c->usage);
 167             if(c->help && *c->help)
 168                 printf ("%s\n", c->help);
 169             if((++c)->name && c->func == NULL) {
 170                 printf ("Synonyms:");
 171                 while (c->name && c->func == NULL)
 172                     printf ("\t%s", (c++)->name);
 173                 printf ("\n");
 174             }
 175         }
 176     }
 177 }
 178
 179 #ifdef HAVE_READLINE
 180
 181 char *readline(char *prompt);
 182 void add_history(char *p);
 183
 184 #else
 185
 186 static char *
 187 readline(char *prompt)
 188 {
 189     char buf[BUFSIZ];
 190     printf ("%s", prompt);
 191     fflush (stdout);
 192     if(fgets(buf, sizeof(buf), stdin) == NULL)
 193         return NULL;
 194     buf[strcspn(buf, "\r\n")] = '\0';
 195     return strdup(buf);
 196 }
 197
 198 static void
 199 add_history(char *p)
 200 {
 201 }
 202
 203 #endif
 204
 205 int
 206 sl_command(SL_cmd *cmds, int argc, char **argv)
 207 {
 208     SL_cmd *c;
 209     c = sl_match (cmds, argv[0], 0);
 210     if (c == NULL)
 211         return -1;
 212     return (*c->func)(argc, argv);
 213 }
 214
 215 struct sl_data {
 216     int max_count;
 217     char **ptr;
 218 };
 219
 220 int
 221 sl_make_argv(char *line, int *ret_argc, char ***ret_argv)
 222 {
 223     char *p, *begining;
 224     int argc, nargv;
 225     char **argv;
 226     int quote = 0;
 227
 228     nargv = 10;
 229     argv = malloc(nargv * sizeof(*argv));
 230     if(argv == NULL)
 231         return ENOMEM;
 232     argc = 0;
 233
 234     p = line;
 235
 236     while(isspace((unsigned char)*p))
 237         p++;
 238     begining = p;
 239
 240     while (1) {
 241         if (*p == '\0') {
 242             ;
 243         } else if (*p == '"') {
 244             quote = !quote;
 245             memmove(&p[0], &p[1], strlen(&p[1]) + 1);
 246             continue;
 247         } else if (*p == '\\') {
 248             if (p[1] == '\0')
 249                 goto failed;
 250             memmove(&p[0], &p[1], strlen(&p[1]) + 1);
 251             p += 1;
 252             continue;
 253         } else if (quote || !isspace((unsigned char)*p)) {
 254             p++;
 255             continue;
 256         } else
 257             *p++ = '\0';
 258         if (quote)
 259             goto failed;
 260         if(argc == nargv - 1) {
 261             char **tmp;
 262             nargv *= 2;
 263             tmp = realloc (argv, nargv * sizeof(*argv));
 264             if (tmp == NULL) {
 265                 free(argv);
 266                 return ENOMEM;
 267             }
 268             argv = tmp;
 269         }
 270         argv[argc++] = begining;
 271         while(isspace((unsigned char)*p))
 272             p++;
 273         if (*p == '\0')
 274             break;
 275         begining = p;
 276     }
 277     argv[argc] = NULL;
 278     *ret_argc = argc;
 279     *ret_argv = argv;
 280     return 0;
 281 failed:
 282     free(argv);
 283     return ERANGE;
 284 }
 285
 286 static jmp_buf sl_jmp;
 287
 288 static void sl_sigint(int sig)
 289 {
 290     longjmp(sl_jmp, 1);
 291 }
 292
 293 static char *sl_readline(const char *prompt)
 294 {
 295     char *s;
 296     void (*old)(int);
 297     old = signal(SIGINT, sl_sigint);
 298     if(setjmp(sl_jmp))
 299         printf("\n");
 300     s = readline(rk_UNCONST(prompt));
 301     signal(SIGINT, old);
 302     return s;
 303 }
 304
 305 /* return values:
 306  * 0 on success,
 307  * -1 on fatal error,
 308  * -2 if EOF, or
 309  * return value of command */
 310 int
 311 sl_command_loop(SL_cmd *cmds, const char *prompt, void **data)
 312 {
 313     int ret = 0;
 314     char *buf;
 315     int argc;
 316     char **argv;
 317
 318     buf = sl_readline(prompt);
 319     if(buf == NULL)
 320         return -2;
 321
 322     if(*buf)
 323         add_history(buf);
 324     ret = sl_make_argv(buf, &argc, &argv);
 325     if(ret) {
 326         fprintf(stderr, "sl_loop: out of memory\n");
 327         free(buf);
 328         return -1;
 329     }
 330     if (argc >= 1) {
 331         ret = sl_command(cmds, argc, argv);
 332         if(ret == -1) {
 333             sl_did_you_mean(cmds, argv[0]);
 334             ret = 0;
 335         }
 336     }
 337     free(buf);
 338     free(argv);
 339     return ret;
 340 }
 341
 342 int
 343 sl_loop(SL_cmd *cmds, const char *prompt)
 344 {
 345     void *data = NULL;
 346     int ret;
 347     while((ret = sl_command_loop(cmds, prompt, &data)) >= 0)
 348         ;
 349     return ret;
 350 }
 351
 352 void
 353 sl_apropos (SL_cmd *cmd, const char *topic)
 354 {
 355     for (; cmd->name != NULL; ++cmd)
 356         if (cmd->usage != NULL && strstr(cmd->usage, topic) != NULL)
 357             printf ("%-20s%s\n", cmd->name, cmd->usage);
 358 }
 359
 360 /*
 361  * Help to be used with slc.
 362  */
 363
 364 void
 365 sl_slc_help (SL_cmd *cmds, int argc, char **argv)
 366 {
 367     if(argc == 0) {
 368         sl_help(cmds, 1, argv - 1 /* XXX */);
 369     } else {
 370         SL_cmd *c = sl_match (cmds, argv[0], 0);
 371         if(c == NULL) {
 372             fprintf (stderr, "No such command: %s. "
 373                      "Try \"help\" for a list of commands\n",
 374                      argv[0]);
 375         } else {
 376             if(c->func) {
 377                 static char help[] = "--help";
 378                 char *fake[3];
 379                 fake[0] = argv[0];
 380                 fake[1] = help;
 381                 fake[2] = NULL;
 382                 (*c->func)(2, fake);
 383                 fprintf(stderr, "\n");
 384             }
 385             if(c->help && *c->help)
 386                 fprintf (stderr, "%s\n", c->help);
 387             if((++c)->name && c->func == NULL) {
 388                 int f = 0;
 389                 fprintf (stderr, "Synonyms:");
 390                 while (c->name && c->func == NULL) {
 391                     fprintf (stderr, "%s%s", f ? ", " : " ", (c++)->name);
 392                     f = 1;
 393                 }
 394                 fprintf (stderr, "\n");
 395             }
 396         }
 397     }
 398 }
 399
 400 /* OptimalStringAlignmentDistance */
 401
 402 static int
 403 osad(const char *s1, const char *s2)
 404 {
 405     size_t l1 = strlen(s1), l2 = strlen(s2), i, j;
 406     int *row0, *row1, *row2, *tmp, cost;
 407
 408     row0 = calloc(sizeof(int), l2 + 1);
 409     row1 = calloc(sizeof(int), l2 + 1);
 410     row2 = calloc(sizeof(int), l2 + 1);
 411
 412     for (j = 0; j < l2 + 1; j++)
 413         row1[j] = j;
 414
 415     for (i = 0; i < l1; i++) {
 416
 417         row2[0] = i + 1;
 418
 419         for (j = 0; j < l2; j++) {
 420
 421             row2[j + 1] = row1[j] + (s1[i] != s2[j]); /* substitute */
 422
 423             if (row2[j + 1] > row1[j + 1] + 1) /* delete */
 424                 row2[j + 1] = row1[j + 1] + 1;
 425             if (row2[j + 1] > row2[j] + 1) /* insert */
 426                 row2[j + 1] = row2[j] + 1;
 427             if (j > 0 && i > 0 && s1[i - 1] != s2[j - 1] && s1[i - 1] == s2[j] && s1[i] == s2[j - 1] && row2[j + 1] < row0[j - 1]) /* transposition */
 428                 row2[j + 1] = row0[j - 1] + 1;
 429         }
 430
 431         tmp = row0;
 432         row0 = row1;
 433         row1 = row2;
 434         row2 = tmp;
 435     }
 436
 437     cost = row1[l2];
 438
 439     free(row0);
 440     free(row1);
 441     free(row2);
 442
 443     return cost;
 444 }
 445
 446 /**
 447  * Will propose a list of command that are almost matching the command
 448  * used, if there is no matching, will ask the user to use "help".
 449  *
 450  * @param cmds command array to use for matching
 451  * @param match the command that didn't exists
 452  */
 453
 454 void
 455 sl_did_you_mean(SL_cmd *cmds, const char *match)
 456 {
 457     int *metrics, best_match = INT_MAX;
 458     SL_cmd *c;
 459     size_t n;
 460
 461     for (n = 0, c = cmds; c->name; c++, n++)
 462         ;
 463     metrics = calloc(n, sizeof(metrics[0]));
 464     if (metrics == NULL)
 465         return;
 466
 467     for (n = 0; cmds[n].name; n++) {
 468         metrics[n] = osad(match, cmds[n].name);
 469         if (metrics[n] < best_match)
 470             best_match = metrics[n];
 471     }
 472     if (best_match == INT_MAX) {
 473         free(metrics);
 474         fprintf(stderr, "What kind of command is %s", match);
 475         return;
 476     }
 477
 478     /* if match distance is low, propose that for the user */
 479     if (best_match < 7) {
 480
 481         fprintf(stderr, "error: %s is not a known command, did you mean ?\n", match);
 482         for (n = 0; cmds[n].name; n++) {
 483             if (metrics[n] == best_match) {
 484                 fprintf(stderr, "\t%s\n", cmds[n].name);
 485             }
 486         }
 487         fprintf(stderr, "\n");
 488
 489     } else {
 490
 491         fprintf(stderr, "error: %s is not a command, use \"help\" for more list of commands.\n", match);
 492     }
 493
 494     free(metrics);
 495
 496     return;
 497 }