2 * Copyright (c) 1995 - 2006 Kungliga Tekniska Högskolan
3 * (Royal Institute of Technology, Stockholm, Sweden).
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
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.
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.
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
40 mandoc_template(SL_cmd
*cmds
,
41 const char *extra_string
)
44 char timestr
[64], cmd
[64];
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");
54 strftime(timestr
, sizeof(timestr
), "%b %d, %Y", localtime(&t
));
55 printf(".Dd %s\n", timestr
);
56 p
= strrchr(getprogname(), '/');
57 if(p
) p
++; else p
= getprogname();
58 strncpy(cmd
, p
, sizeof(cmd
));
59 cmd
[sizeof(cmd
)-1] = '\0';
62 printf(".Dt %s SECTION\n", cmd
);
63 printf(".Os OPERATING_SYSTEM\n");
65 printf(".Nm %s\n", p
);
67 printf("in search of a description\n");
68 printf(".Sh SYNOPSIS\n");
70 for(c
= cmds
; c
->name
; ++c
) {
71 /* if (c->func == NULL)
73 printf(".Op Fl %s", c
->name
);
77 if (extra_string
&& *extra_string
)
78 printf (".Ar %s\n", extra_string
);
79 printf(".Sh DESCRIPTION\n");
80 printf("Supported options:\n");
81 printf(".Bl -tag -width Ds\n");
83 for(c
= cmds
; c
->name
; ++c
) {
86 printf ("\n%s\n", prev
->usage
);
88 printf (".It Fl %s", c
->name
);
91 printf (", %s\n", c
->name
);
94 printf ("\n%s\n", prev
->usage
);
97 printf(".\\\".Sh ENVIRONMENT\n");
98 printf(".\\\".Sh FILES\n");
99 printf(".\\\".Sh EXAMPLES\n");
100 printf(".\\\".Sh DIAGNOSTICS\n");
101 printf(".\\\".Sh SEE ALSO\n");
102 printf(".\\\".Sh STANDARDS\n");
103 printf(".\\\".Sh HISTORY\n");
104 printf(".\\\".Sh AUTHORS\n");
105 printf(".\\\".Sh BUGS\n");
109 sl_match (SL_cmd
*cmds
, char *cmd
, int exactp
)
111 SL_cmd
*c
, *current
= NULL
, *partial_cmd
= NULL
;
112 int partial_match
= 0;
114 for (c
= cmds
; c
->name
; ++c
) {
117 if (strcmp (cmd
, c
->name
) == 0)
119 else if (strncmp (cmd
, c
->name
, strlen(cmd
)) == 0 &&
120 partial_cmd
!= current
) {
122 partial_cmd
= current
;
125 if (partial_match
== 1 && !exactp
)
132 sl_help (SL_cmd
*cmds
, int argc
, char **argv
)
136 if (getenv("SLMANDOC")) {
137 mandoc_template(cmds
, NULL
);
143 for (c
= cmds
; c
->name
; ++c
) {
146 printf ("\n\t%s%s", prev_c
->usage
? prev_c
->usage
: "",
147 prev_c
->usage
? "\n" : "");
149 printf ("%s", c
->name
);
151 printf (", %s", c
->name
);
154 printf ("\n\t%s%s", prev_c
->usage
? prev_c
->usage
: "",
155 prev_c
->usage
? "\n" : "");
157 c
= sl_match (cmds
, argv
[1], 0);
159 printf ("No such command: %s. "
160 "Try \"help\" for a list of all commands\n",
163 printf ("%s\t%s\n", c
->name
, c
->usage
);
164 if(c
->help
&& *c
->help
)
165 printf ("%s\n", c
->help
);
166 if((++c
)->name
&& c
->func
== NULL
) {
167 printf ("Synonyms:");
168 while (c
->name
&& c
->func
== NULL
)
169 printf ("\t%s", (c
++)->name
);
178 char *readline(char *prompt
);
179 void add_history(char *p
);
184 readline(char *prompt
)
187 printf ("%s", prompt
);
189 if(fgets(buf
, sizeof(buf
), stdin
) == NULL
)
191 buf
[strcspn(buf
, "\r\n")] = '\0';
203 sl_command(SL_cmd
*cmds
, int argc
, char **argv
)
206 c
= sl_match (cmds
, argv
[0], 0);
209 return (*c
->func
)(argc
, argv
);
218 sl_make_argv(char *line
, int *ret_argc
, char ***ret_argv
)
226 argv
= malloc(nargv
* sizeof(*argv
));
233 while(isspace((unsigned char)*p
))
240 } else if (*p
== '"') {
242 memmove(&p
[0], &p
[1], strlen(&p
[1]) + 1);
244 } else if (*p
== '\\') {
247 memmove(&p
[0], &p
[1], strlen(&p
[1]) + 1);
250 } else if (quote
|| !isspace((unsigned char)*p
)) {
257 if(argc
== nargv
- 1) {
260 tmp
= realloc (argv
, nargv
* sizeof(*argv
));
267 argv
[argc
++] = begining
;
268 while(isspace((unsigned char)*p
))
283 static jmp_buf sl_jmp
;
285 static void sl_sigint(int sig
)
290 static char *sl_readline(const char *prompt
)
294 old
= signal(SIGINT
, sl_sigint
);
297 s
= readline(rk_UNCONST(prompt
));
306 * return value of command */
308 sl_command_loop(SL_cmd
*cmds
, const char *prompt
, void **data
)
315 buf
= sl_readline(prompt
);
321 ret
= sl_make_argv(buf
, &argc
, &argv
);
323 fprintf(stderr
, "sl_loop: out of memory\n");
328 ret
= sl_command(cmds
, argc
, argv
);
330 printf ("Unrecognized command: %s\n", argv
[0]);
340 sl_loop(SL_cmd
*cmds
, const char *prompt
)
344 while((ret
= sl_command_loop(cmds
, prompt
, &data
)) >= 0)
350 sl_apropos (SL_cmd
*cmd
, const char *topic
)
352 for (; cmd
->name
!= NULL
; ++cmd
)
353 if (cmd
->usage
!= NULL
&& strstr(cmd
->usage
, topic
) != NULL
)
354 printf ("%-20s%s\n", cmd
->name
, cmd
->usage
);
358 * Help to be used with slc.
362 sl_slc_help (SL_cmd
*cmds
, int argc
, char **argv
)
365 sl_help(cmds
, 1, argv
- 1 /* XXX */);
367 SL_cmd
*c
= sl_match (cmds
, argv
[0], 0);
369 fprintf (stderr
, "No such command: %s. "
370 "Try \"help\" for a list of commands\n",
374 char *fake
[] = { NULL
, "--help", NULL
};
377 fprintf(stderr
, "\n");
379 if(c
->help
&& *c
->help
)
380 fprintf (stderr
, "%s\n", c
->help
);
381 if((++c
)->name
&& c
->func
== NULL
) {
383 fprintf (stderr
, "Synonyms:");
384 while (c
->name
&& c
->func
== NULL
) {
385 fprintf (stderr
, "%s%s", f
? ", " : " ", (c
++)->name
);
388 fprintf (stderr
, "\n");