Commit | Line | Data |
---|---|---|
60de5df9 | 1 | /* |
ad787160 C |
2 | * Copyright (c) 1983, 1993 |
3 | * The Regents of the University of California. All rights reserved. | |
46e9ea25 | 4 | * |
3dd3a9e5 KB |
5 | * This code is derived from software contributed to Berkeley by |
6 | * Edward Wang at The University of California, Berkeley. | |
7 | * | |
ad787160 C |
8 | * Redistribution and use in source and binary forms, with or without |
9 | * modification, are permitted provided that the following conditions | |
10 | * are met: | |
11 | * 1. Redistributions of source code must retain the above copyright | |
12 | * 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. | |
16 | * 3. All advertising materials mentioning features or use of this software | |
17 | * must display the following acknowledgement: | |
18 | * This product includes software developed by the University of | |
19 | * California, Berkeley and its contributors. | |
20 | * 4. Neither the name of the University nor the names of its contributors | |
21 | * may be used to endorse or promote products derived from this software | |
22 | * without specific prior written permission. | |
23 | * | |
24 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | |
25 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | |
26 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | |
27 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | |
28 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | |
29 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | |
30 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | |
31 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | |
32 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | |
33 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | |
34 | * SUCH DAMAGE. | |
60de5df9 EW |
35 | */ |
36 | ||
46e9ea25 | 37 | #ifndef lint |
ad787160 | 38 | static char sccsid[] = "@(#)lcmd.c 8.1 (Berkeley) 6/6/93"; |
46e9ea25 KB |
39 | #endif /* not lint */ |
40 | ||
6a571c25 | 41 | #include "defs.h" |
1c0ca238 EW |
42 | #include "value.h" |
43 | #include "lcmd.h" | |
6a571c25 | 44 | |
bb4a0c0b | 45 | int l_alias(); |
1c0ca238 | 46 | int l_close(); |
7a57b3e2 | 47 | int l_cursormodes(); |
b0640643 | 48 | int l_debug(); |
6a1ef78a EW |
49 | int l_def_nline(); |
50 | int l_def_shell(); | |
51 | int l_def_smooth(); | |
1b736021 | 52 | int l_echo(); |
6a571c25 | 53 | int l_escape(); |
e1dba5dd | 54 | int l_foreground(); |
94a746af | 55 | int l_iostat(); |
6a571c25 | 56 | int l_label(); |
e404c17a | 57 | int l_list(); |
1c0ca238 | 58 | int l_select(); |
2422abab | 59 | int l_smooth(); |
6a571c25 | 60 | int l_source(); |
1c0ca238 | 61 | int l_terse(); |
94a746af | 62 | int l_time(); |
bb4a0c0b | 63 | int l_unalias(); |
b65b69eb | 64 | int l_unset(); |
e404c17a | 65 | int l_variable(); |
1c0ca238 | 66 | int l_window(); |
6a571c25 EW |
67 | int l_write(); |
68 | ||
b15b4a3f EW |
69 | extern struct lcmd_arg arg_alias[]; |
70 | extern struct lcmd_arg arg_cursormodes[]; | |
71 | extern struct lcmd_arg arg_debug[]; | |
72 | extern struct lcmd_arg arg_echo[]; | |
73 | extern struct lcmd_arg arg_escape[]; | |
74 | extern struct lcmd_arg arg_foreground[]; | |
75 | extern struct lcmd_arg arg_label[]; | |
6a1ef78a EW |
76 | extern struct lcmd_arg arg_def_nline[]; |
77 | extern struct lcmd_arg arg_def_shell[]; | |
78 | extern struct lcmd_arg arg_def_smooth[]; | |
b15b4a3f EW |
79 | extern struct lcmd_arg arg_close[]; |
80 | extern struct lcmd_arg arg_select[]; | |
b15b4a3f EW |
81 | extern struct lcmd_arg arg_smooth[]; |
82 | extern struct lcmd_arg arg_source[]; | |
83 | extern struct lcmd_arg arg_terse[]; | |
84 | extern struct lcmd_arg arg_time[]; | |
85 | extern struct lcmd_arg arg_unalias[]; | |
86 | extern struct lcmd_arg arg_unset[]; | |
87 | extern struct lcmd_arg arg_window[]; | |
88 | extern struct lcmd_arg arg_write[]; | |
b7f88b16 | 89 | struct lcmd_arg arg_null[1] = { { 0 } }; |
1c0ca238 EW |
90 | |
91 | struct lcmd_tab lcmd_tab[] = { | |
6a1ef78a EW |
92 | "alias", 1, l_alias, arg_alias, |
93 | "close", 2, l_close, arg_close, | |
94 | "cursormodes", 2, l_cursormodes, arg_cursormodes, | |
95 | "debug", 1, l_debug, arg_debug, | |
96 | "default_nlines", 9, l_def_nline, arg_def_nline, | |
3d30c0a6 EW |
97 | "default_shell", 10, l_def_shell, arg_def_shell, |
98 | "default_smooth", 10, l_def_smooth, arg_def_smooth, | |
6a1ef78a EW |
99 | "echo", 2, l_echo, arg_echo, |
100 | "escape", 2, l_escape, arg_escape, | |
101 | "foreground", 1, l_foreground, arg_foreground, | |
102 | "iostat", 1, l_iostat, arg_null, | |
103 | "label", 2, l_label, arg_label, | |
104 | "list", 2, l_list, arg_null, | |
105 | "nlines", 1, l_def_nline, arg_def_nline, | |
106 | "select", 2, l_select, arg_select, | |
107 | "shell", 2, l_def_shell, arg_def_shell, | |
108 | "smooth", 2, l_smooth, arg_smooth, | |
109 | "source", 2, l_source, arg_source, | |
110 | "terse", 2, l_terse, arg_terse, | |
111 | "time", 2, l_time, arg_time, | |
112 | "unalias", 3, l_unalias, arg_unalias, | |
113 | "unset", 3, l_unset, arg_unset, | |
114 | "variable", 1, l_variable, arg_null, | |
115 | "window", 2, l_window, arg_window, | |
116 | "write", 2, l_write, arg_write, | |
e1dba5dd | 117 | 0 |
6a571c25 EW |
118 | }; |
119 | ||
1c0ca238 EW |
120 | struct lcmd_tab * |
121 | lcmd_lookup(name) | |
122 | char *name; | |
6a571c25 | 123 | { |
1c0ca238 | 124 | register struct lcmd_tab *p; |
6a571c25 | 125 | |
1c0ca238 EW |
126 | for (p = lcmd_tab; p->lc_name != 0; p++) |
127 | if (str_match(name, p->lc_name, p->lc_minlen)) | |
128 | return p; | |
6a571c25 EW |
129 | return 0; |
130 | } | |
131 | ||
1c0ca238 EW |
132 | dosource(filename) |
133 | char *filename; | |
6a571c25 | 134 | { |
a40a2f9a | 135 | if (cx_beginfile(filename) < 0) |
1c0ca238 EW |
136 | return -1; |
137 | p_start(); | |
138 | err_end(); | |
139 | cx_end(); | |
140 | return 0; | |
6a571c25 EW |
141 | } |
142 | ||
bb4a0c0b | 143 | dolongcmd(buffer, arg, narg) |
1c0ca238 | 144 | char *buffer; |
bb4a0c0b EW |
145 | struct value *arg; |
146 | int narg; | |
6a571c25 | 147 | { |
bb4a0c0b | 148 | if (cx_beginbuf(buffer, arg, narg) < 0) |
1c0ca238 EW |
149 | return -1; |
150 | p_start(); | |
151 | err_end(); | |
152 | cx_end(); | |
153 | return 0; | |
6a571c25 | 154 | } |