9 date 93.09.01.23.00.59; author jromine; state Exp;
14 date 93.09.01.22.50.54; author jromine; state Exp;
19 date 92.12.15.00.20.22; author jromine; state Exp;
24 date 92.11.16.22.26.50; author jromine; state Exp;
29 date 92.10.27.16.44.07; author jromine; state Exp;
34 date 92.05.19.21.06.11; author jromine; state Exp;
39 date 92.02.09.22.28.58; author jromine; state Exp;
44 date 92.02.06.17.12.41; author jromine; state Exp;
49 date 92.02.06.17.11.53; author jromine; state Exp;
55 @contributed by Jeffrey C Honig <jch@@risci.tn.cornell.EDU>
61 @add sbackup (SBACKUP=",") link (LINK="@@")
64 @/* mhparam.c - print mh_profile values */
66 static char ident[] = "@@(#)$Id: mhparam.c,v 1.8 1993/09/01 22:50:54 jromine Exp jromine $";
68 /* contributed by Jeffrey C Honig <Jeffrey_C_Honig@@cornell.edu> */
73 extern char *mhlibdir; /* NB: this will change soon */
74 char *sbackup = SBACKUP;
79 static struct swit switches[] = {
92 static char *p_find();
114 invo_name = r1bindex (argv[0], '/');
115 if ((cp = m_find (invo_name)) != NULL) {
116 ap = brkstring (cp = getcpy (cp), " ", "\n");
117 ap = copyip (ap, arguments);
121 (void) copyip (argv + 1, ap);
126 while (cp = *argp++) {
128 switch (smatch (++cp, switches)) {
130 ambigsw (cp, switches);
133 adios (NULLCP, "-%s unknown", cp);
135 (void) sprintf (buf, "%s [profile-components] [switches]",
137 help (buf, switches);
159 register struct node *np;
162 advise(NULLCP, "profile-components ignored with -all");
165 advise(NULLCP, "-%scomponents ignored with -all",
166 components ? "" : "no");
169 for (np = m_defs; np; np = np -> n_next)
170 printf("%s:\t%s\n", np -> n_name, np -> n_field);
173 components = compp > 1;
175 for (i = 0; i < compp; i++) {
176 register char *value = m_find(comps[i]);
179 value = p_find(comps[i]);
183 printf("%s:\t", comps[i]);
185 printf("%s\n", value);
194 static struct procs {
198 { "context", &context },
199 { "faceproc", &faceproc },
200 { "fileproc", &fileproc },
201 { "foldprot", &foldprot },
202 { "incproc", &incproc },
203 { "installproc", &installproc },
205 { "mailproc", &mailproc },
206 { "mhlproc", &mhlproc },
207 { "moreproc", &moreproc },
208 { "msgprot", &msgprot },
209 { "mshproc", &mshproc },
210 { "packproc", &packproc },
211 { "postproc", &postproc },
212 { "rmfproc", &rmfproc },
213 { "rmmproc", &rmmproc },
214 { "sendproc", &sendproc },
215 { "showproc", &showproc },
216 { "slocalproc", &slocalproc },
217 { "version", &version },
218 { "vmhproc", &vmhproc },
219 { "whatnowproc", &whatnowproc },
220 { "whomproc", &whomproc },
221 { "libdir", &mhlibdir },
222 { "sbackup", &sbackup },
228 static char *p_find(str)
231 register struct procs *ps;
233 for (ps = procs; ps->p_name; ps++)
234 if (uleq (ps -> p_name, str))
235 return (*ps -> p_field);
244 @add "libdir" -- note: this is subject to change
249 static char ident[] = "@@(#)$Id: mhparam.c,v 1.7 1992/12/15 00:20:22 jromine Exp jromine $";
262 static char ident[] = "@@(#)$Id: mhparam.c,v 1.6 1992/11/16 22:26:50 jromine Exp jromine $";
270 @lookup "procs" as well as profile-components
275 static char ident[] = "@@(#)$Id: mhparam.c,v 1.5 1992/10/27 16:44:07 jromine Exp jromine $";
282 @change jch e-mail address
287 static char ident[] = "@@(#)$Id: mhparam.c,v 1.4 1992/05/19 21:06:11 jromine Exp jromine $";
301 static char ident[] = "@@(#)$Id: mhparam.c,v 1.3 1992/02/09 22:28:58 jromine Exp jromine $";
304 /* contributed by Jeffrey C Honig <jch@@risci.tn.cornell.EDU> */
315 static char ident[] = "@@(#)$Id: mhparam.c,v 1.2 1992/02/06 17:12:41 jromine Exp jromine $";
329 static char ident[] = "@@(#)$Id: mhparam.c,v 1.1 1992/02/06 17:11:53 jromine Exp jromine $";
354 static char ident[] = "@@(#)$Id: scan.c,v 1.13 1992/02/05 22:50:17 jromine Exp jromine $";