server/qsubs.c

   1 /* $Id$
   2  *
   3  * Copyright (C) 1987-1998 by the Massachusetts Institute of Technology
   4  * For copying and distribution information, please see the file
   5  * <mit-copyright.h>.
   6  */
   7
   8 #include <mit-copyright.h>
   9 #include "mr_server.h"
  10 #include "query.h"
  11
  12 #include <stdlib.h>
  13
  14 RCSID("$Header$");
  15
  16 extern struct query Queries[];
  17 extern int QueryCount;
  18
  19 int qcmp(const void *q1, const void *q2);
  20
  21 struct query *get_query_by_name(char *name, int version)
  22 {
  23   int i;
  24
  25   i = QueryCount;
  26
  27   if (strlen(name) == 4)
  28     {
  29       while (--i >= 0)
  30         {
  31           if (!strcmp(Queries[i].shortname, name) &&
  32               Queries[i].version <= version)
  33             return &Queries[i];
  34         }
  35     }
  36   else
  37     {
  38       while (--i >= 0)
  39         {
  40           if (!strcmp(Queries[i].name, name) &&
  41               Queries[i].version <= version)
  42             return &Queries[i];
  43         }
  44     }
  45
  46   return NULL;
  47 }
  48
  49 void list_queries(client *cl, int (*action)(int, char *[], void *),
  50                   void *actarg)
  51 {
  52   struct query **squeries = NULL;
  53   int qcount;
  54   struct query *q, **sq;
  55   char qnames[80];
  56   char *qnp;
  57   int i;
  58
  59   squeries = sq = xmalloc(QueryCount * sizeof(struct query *));
  60   q = Queries;
  61   for (i = 0; i < QueryCount; i++)
  62     {
  63       if (q->version > cl->version)
  64         {
  65           q++;
  66           continue;
  67         }
  68       if (i > 0 && strcmp((*sq)->name, q->name))
  69         sq++;
  70       *sq = q++;
  71     }
  72   qcount = (sq - squeries) + 1;
  73   qsort(squeries, qcount, sizeof(struct query *), qcmp);
  74
  75   sq = squeries;
  76
  77   qnp = qnames;
  78   for (i = qcount; --i >= 0; sq++)
  79     {
  80       sprintf(qnames, "%s (%s)", (*sq)->name, (*sq)->shortname);
  81       (*action)(1, &qnp, actarg);
  82     }
  83   strcpy(qnames, "_help");
  84   (*action)(1, &qnp, actarg);
  85   strcpy(qnames, "_list_queries");
  86   (*action)(1, &qnp, actarg);
  87   strcpy(qnames, "_list_users");
  88   (*action)(1, &qnp, actarg);
  89
  90   free(squeries);
  91 }
  92
  93 void help_query(struct query *q, int (*action)(int, char *[], void *),
  94                 void *actarg)
  95 {
  96   int argcount;
  97   int i;
  98   char argn[32];
  99   char qname[512];
 100   char argr[512];
 101   char *argv[32];
 102
 103   argcount = q->argc;
 104   if (q->type == MR_Q_UPDATE || q->type == MR_Q_APPEND)
 105     argcount += q->vcnt;
 106
 107   switch (argcount)
 108     {
 109     case 0:
 110       sprintf(qname, "   %s, %s ()", q->name, q->shortname);
 111       argv[0] = qname;
 112       argcount = 1;
 113       break;
 114
 115     case 1:
 116       sprintf(qname, "   %s, %s (%s)", q->name, q->shortname, q->fields[0]);
 117       argv[0] = qname;
 118       argcount = 1;
 119       break;
 120
 121     case 2:
 122       sprintf(qname, "   %s, %s (%s, %s)", q->name, q->shortname,
 123               q->fields[0], q->fields[1]);
 124       argv[0] = qname;
 125       argcount = 1;
 126       break;
 127
 128     default:
 129       sprintf(qname, "   %s, %s (%s", q->name, q->shortname, q->fields[0]);
 130       argv[0] = qname;
 131       argcount--;
 132       for (i = 1; i < argcount; i++)
 133         argv[i] = q->fields[i];
 134       sprintf(argn, "%s)", q->fields[argcount]);
 135       argv[argcount++] = argn;
 136       break;
 137     }
 138
 139   if (q->type == MR_Q_RETRIEVE)
 140     {
 141       sprintf(argr, "%s => %s", argv[--argcount], q->fields[q->argc]);
 142       argv[argcount++] = argr;
 143       if (q->vcnt > 1)
 144         {
 145           for (i = q->argc + 1; i < q->vcnt + q->argc; i++)
 146             argv[argcount++] = q->fields[i];
 147         }
 148     }
 149   (*action)(argcount, argv, actarg);
 150 }
 151
 152 int qcmp(const void *q1, const void *q2)
 153 {
 154   return strcmp((*(struct query **)q1)->name, (*(struct query **)q2)->name);
 155 }