|
|
1.1 root 1: /*
2: * Copyright (c) 1983 Regents of the University of California.
3: * All rights reserved.
4: *
5: * This code is derived from software contributed to Berkeley by
6: * Edward Wang at The University of California, Berkeley.
7: *
8: * Redistribution and use in source and binary forms are permitted provided
9: * that: (1) source distributions retain this entire copyright notice and
10: * comment, and (2) distributions including binaries display the following
11: * acknowledgement: ``This product includes software developed by the
12: * University of California, Berkeley and its contributors'' in the
13: * documentation or other materials provided with the distribution and in
14: * all advertising materials mentioning features or use of this software.
15: * Neither the name of the University nor the names of its contributors may
16: * be used to endorse or promote products derived from this software without
17: * specific prior written permission.
18: * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
19: * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
20: * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
21: */
22:
23: #ifndef lint
24: static char sccsid[] = "@(#)lcmd.c 3.34 (Berkeley) 6/6/90";
25: #endif /* not lint */
26:
27: #include "defs.h"
28: #include "value.h"
29: #include "lcmd.h"
30:
31: int l_alias();
32: int l_close();
33: int l_cursormodes();
34: int l_debug();
35: int l_def_nline();
36: int l_def_shell();
37: int l_def_smooth();
38: int l_echo();
39: int l_escape();
40: int l_foreground();
41: int l_iostat();
42: int l_label();
43: int l_list();
44: int l_select();
45: int l_smooth();
46: int l_source();
47: int l_terse();
48: int l_time();
49: int l_unalias();
50: int l_unset();
51: int l_variable();
52: int l_window();
53: int l_write();
54:
55: extern struct lcmd_arg arg_alias[];
56: extern struct lcmd_arg arg_cursormodes[];
57: extern struct lcmd_arg arg_debug[];
58: extern struct lcmd_arg arg_echo[];
59: extern struct lcmd_arg arg_escape[];
60: extern struct lcmd_arg arg_foreground[];
61: extern struct lcmd_arg arg_label[];
62: extern struct lcmd_arg arg_def_nline[];
63: extern struct lcmd_arg arg_def_shell[];
64: extern struct lcmd_arg arg_def_smooth[];
65: extern struct lcmd_arg arg_close[];
66: extern struct lcmd_arg arg_select[];
67: extern struct lcmd_arg arg_smooth[];
68: extern struct lcmd_arg arg_source[];
69: extern struct lcmd_arg arg_terse[];
70: extern struct lcmd_arg arg_time[];
71: extern struct lcmd_arg arg_unalias[];
72: extern struct lcmd_arg arg_unset[];
73: extern struct lcmd_arg arg_window[];
74: extern struct lcmd_arg arg_write[];
75: struct lcmd_arg arg_null[1] = { { 0 } };
76:
77: struct lcmd_tab lcmd_tab[] = {
78: "alias", 1, l_alias, arg_alias,
79: "close", 2, l_close, arg_close,
80: "cursormodes", 2, l_cursormodes, arg_cursormodes,
81: "debug", 1, l_debug, arg_debug,
82: "default_nlines", 9, l_def_nline, arg_def_nline,
83: "default_shell", 10, l_def_shell, arg_def_shell,
84: "default_smooth", 10, l_def_smooth, arg_def_smooth,
85: "echo", 2, l_echo, arg_echo,
86: "escape", 2, l_escape, arg_escape,
87: "foreground", 1, l_foreground, arg_foreground,
88: "iostat", 1, l_iostat, arg_null,
89: "label", 2, l_label, arg_label,
90: "list", 2, l_list, arg_null,
91: "nlines", 1, l_def_nline, arg_def_nline,
92: "select", 2, l_select, arg_select,
93: "shell", 2, l_def_shell, arg_def_shell,
94: "smooth", 2, l_smooth, arg_smooth,
95: "source", 2, l_source, arg_source,
96: "terse", 2, l_terse, arg_terse,
97: "time", 2, l_time, arg_time,
98: "unalias", 3, l_unalias, arg_unalias,
99: "unset", 3, l_unset, arg_unset,
100: "variable", 1, l_variable, arg_null,
101: "window", 2, l_window, arg_window,
102: "write", 2, l_write, arg_write,
103: 0
104: };
105:
106: struct lcmd_tab *
107: lcmd_lookup(name)
108: char *name;
109: {
110: register struct lcmd_tab *p;
111:
112: for (p = lcmd_tab; p->lc_name != 0; p++)
113: if (str_match(name, p->lc_name, p->lc_minlen))
114: return p;
115: return 0;
116: }
117:
118: dosource(filename)
119: char *filename;
120: {
121: if (cx_beginfile(filename) < 0)
122: return -1;
123: p_start();
124: err_end();
125: cx_end();
126: return 0;
127: }
128:
129: dolongcmd(buffer, arg, narg)
130: char *buffer;
131: struct value *arg;
132: int narg;
133: {
134: if (cx_beginbuf(buffer, arg, narg) < 0)
135: return -1;
136: p_start();
137: err_end();
138: cx_end();
139: return 0;
140: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.