6 * Copyright (C) 1987 by the Massachusetts Institute of Technology
11 static char *rcsid_qsubs_c = "$Header$";
17 extern struct query Queries1[], Queries2[];
18 extern int QueryCount1, QueryCount2;
21 get_query_by_name(name, version)
25 register struct query *q;
28 if (version == SMS_VERSION_1) {
36 if (strlen(name) == 4) {
38 if (!strcmp(q->shortname, name)) return(q);
43 if (!strcmp(q->name, name)) return(q);
48 return((struct query *)0);
51 list_queries(version, action, actarg)
56 register struct query *q;
58 static struct query **squeries1 = (struct query **)0;
59 static struct query **squeries2 = (struct query **)0;
60 register struct query **sq;
66 if (version == SMS_VERSION_1) {
68 if (squeries1 == (struct query **)0) {
69 sq = (struct query **)malloc(count * sizeof (struct query *));
72 for (i = count; --i >= 0; )
74 qsort(squeries1, count, sizeof (struct query *), qcmp);
79 if (squeries2 == (struct query **)0) {
80 sq = (struct query **)malloc(count * sizeof (struct query *));
83 for (i = count; --i >= 0; )
85 qsort(squeries2, count, sizeof (struct query *), qcmp);
91 for (i = count; --i >= 0; sq++) {
92 sprintf(qnames, "%s (%s)", (*sq)->name, (*sq)->shortname);
93 (*action)(1, &qnp, actarg);
95 strcpy(qnames, "_help");
96 (*action)(1, &qnp, actarg);
97 strcpy(qnames, "_list_queries");
98 (*action)(1, &qnp, actarg);
99 strcpy(qnames, "_list_users");
100 (*action)(1, &qnp, actarg);
103 help_query(q, action, actarg)
104 register struct query *q;
108 register int argcount;
116 if (q->type == UPDATE || q->type == APPEND) argcount += q->vcnt;
120 sprintf(qname, " %s, %s ()", q->name, q->shortname);
126 sprintf(qname, " %s, %s (%s)", q->name, q->shortname, q->fields[0]);
132 sprintf(qname, " %s, %s (%s, %s)", q->name, q->shortname,
133 q->fields[0], q->fields[1]);
139 sprintf(qname, " %s, %s (%s", q->name, q->shortname, q->fields[0]);
142 for (i = 1; i < argcount; i++) argv[i] = q->fields[i];
143 sprintf(argn, "%s)", q->fields[argcount]);
144 argv[argcount++] = argn;
147 if (q->type == RETRIEVE) {
148 sprintf(argr, "%s => %s", argv[--argcount], q->fields[q->argc]);
149 argv[argcount++] = argr;
151 for (i = q->argc + 1; i < q->vcnt + q->argc; i++)
152 argv[argcount++] = q->fields[i];
154 (*action)(argcount, argv, actarg);
161 return(strcmp((*q1)->name, (*q2)->name));