projects / unix-history / blobdiff
? search:
summary | tags | clone url | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
BSD 4_4 release
[unix-history] / usr / src / usr.bin / window / lcmd.c
diff --git a/usr/src/usr.bin/window/lcmd.c b/usr/src/usr.bin/window/lcmd.c
index c176502..3938aa7 100644 (file)
--- a/usr/src/usr.bin/window/lcmd.c
+++ b/usr/src/usr.bin/window/lcmd.c
@@ -1,141 +1,154 @@
+/*
+ * Copyright (c) 1983, 1993
+ *     The Regents of the University of California.  All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Edward Wang at The University of California, Berkeley.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *     This product includes software developed by the University of
+ *     California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
 #ifndef lint
 #ifndef lint
-static char *sccsid = "@(#)lcmd.c      3.3 83/08/12";
-#endif
+static char sccsid[] = "@(#)lcmd.c     8.1 (Berkeley) 6/6/93";
+#endif /* not lint */
 
 #include "defs.h"
 
 #include "defs.h"
+#include "value.h"
+#include "lcmd.h"
 
 
-int l_window();
-int l_select();
+int l_alias();
+int l_close();
+int l_cursormodes();
+int l_debug();
+int l_def_nline();
+int l_def_shell();
+int l_def_smooth();
+int l_echo();
 int l_escape();
 int l_escape();
+int l_foreground();
+int l_iostat();
 int l_label();
 int l_label();
-int l_terse();
+int l_list();
+int l_select();
+int l_smooth();
 int l_source();
 int l_source();
+int l_terse();
+int l_time();
+int l_unalias();
+int l_unset();
+int l_variable();
+int l_window();
 int l_write();
 int l_write();
-int l_close();
 
 
-struct lcmd {
-       char *l_name;                   /* name of command */
-       int l_lmin;                     /* minimum length to check */
-       int l_lmax;                     /* maximum length to check */
-       int l_amin;                     /* minimum argument */
-       int l_amax;                     /* maximum argument */
-       int (*l_func)();                /* the function */
-};
-static struct lcmd lcmd[] = {
-       "%",            1, 1, 0,  0, l_select,
-       "close",        1, 0, 1, -1, l_close,
-       "escape",       1, 0, 1,  1, l_escape,
-       "label",        1, 0, 2,  2, l_label,
-       "source",       1, 0, 1,  1, l_source,
-       "terse",        1, 0, 0,  1, l_terse,
-       "window",       1, 0, 4,  4, l_window,
-       "write",        2, 0, 2,  2, l_write,
+extern struct lcmd_arg arg_alias[];
+extern struct lcmd_arg arg_cursormodes[];
+extern struct lcmd_arg arg_debug[];
+extern struct lcmd_arg arg_echo[];
+extern struct lcmd_arg arg_escape[];
+extern struct lcmd_arg arg_foreground[];
+extern struct lcmd_arg arg_label[];
+extern struct lcmd_arg arg_def_nline[];
+extern struct lcmd_arg arg_def_shell[];
+extern struct lcmd_arg arg_def_smooth[];
+extern struct lcmd_arg arg_close[];
+extern struct lcmd_arg arg_select[];
+extern struct lcmd_arg arg_smooth[];
+extern struct lcmd_arg arg_source[];
+extern struct lcmd_arg arg_terse[];
+extern struct lcmd_arg arg_time[];
+extern struct lcmd_arg arg_unalias[];
+extern struct lcmd_arg arg_unset[];
+extern struct lcmd_arg arg_window[];
+extern struct lcmd_arg arg_write[];
+struct lcmd_arg arg_null[1] = { { 0 } };
+
+struct lcmd_tab lcmd_tab[] = {
+       "alias",                1,      l_alias,        arg_alias,
+       "close",                2,      l_close,        arg_close,
+       "cursormodes",          2,      l_cursormodes,  arg_cursormodes,
+       "debug",                1,      l_debug,        arg_debug,
+       "default_nlines",       9,      l_def_nline,    arg_def_nline,
+       "default_shell",        10,     l_def_shell,    arg_def_shell,
+       "default_smooth",       10,     l_def_smooth,   arg_def_smooth,
+       "echo",                 2,      l_echo,         arg_echo,
+       "escape",               2,      l_escape,       arg_escape,
+       "foreground",           1,      l_foreground,   arg_foreground,
+       "iostat",               1,      l_iostat,       arg_null,
+       "label",                2,      l_label,        arg_label,
+       "list",                 2,      l_list,         arg_null,
+       "nlines",               1,      l_def_nline,    arg_def_nline,
+       "select",               2,      l_select,       arg_select,
+       "shell",                2,      l_def_shell,    arg_def_shell,
+       "smooth",               2,      l_smooth,       arg_smooth,
+       "source",               2,      l_source,       arg_source,
+       "terse",                2,      l_terse,        arg_terse,
+       "time",                 2,      l_time,         arg_time,
+       "unalias",              3,      l_unalias,      arg_unalias,
+       "unset",                3,      l_unset,        arg_unset,
+       "variable",             1,      l_variable,     arg_null,
+       "window",               2,      l_window,       arg_window,
+       "write",                2,      l_write,        arg_write,
        0
 };
 
        0
 };
 
-dosource(filename)
-char *filename;
+struct lcmd_tab *
+lcmd_lookup(name)
+char *name;
 {
 {
-       register FILE *f;
-       char buf[BUFSIZ];
+       register struct lcmd_tab *p;
 
 
-       if ((f = fopen(filename, "r")) == 0)
-               return -1;
-       insource++;
-       beginerror(filename);
-       for (lineno = 1; fgets(buf, sizeof buf, f) != 0; lineno++)
-               dolongcmd(buf);
-       enderror();
-       insource = 0;
+       for (p = lcmd_tab; p->lc_name != 0; p++)
+               if (str_match(name, p->lc_name, p->lc_minlen))
+                       return p;
        return 0;
 }
 
        return 0;
 }
 
-dolongcmd(line)
-char *line;
+dosource(filename)
+char *filename;
 {
 {
-       register struct lcmd *lp;
-       register len;
-
-       makeargv(line);
-       if (argc == 0)
-               return;
-       for (lp = lcmd; lp->l_name; lp++) {
-               len = strlen(*argv);
-               if (len < lp->l_lmin)
-                       continue;
-               if (!strncmp(*argv, lp->l_name, lp->l_lmax ? lp->l_lmax : len))
-                       break;
-       }
-       if (lp->l_name) {
-               if (lp->l_amin > argc - 1)
-                       error("Too few arguments.");
-               else if (lp->l_amax >= 0 && lp->l_amax < argc - 1)
-                       error("Too many arguments.");
-               else
-                       (*lp->l_func)();
-       } else
-               error("%s: Unknown command.", *argv);
+       if (cx_beginfile(filename) < 0)
+               return -1;
+       p_start();
+       err_end();
+       cx_end();
+       return 0;
 }
 
 }
 
-makeargv(p)
-register char *p;
+dolongcmd(buffer, arg, narg)
+char *buffer;
+struct value *arg;
+int narg;
 {
 {
-       static char buf[BUFSIZ];
-       register char *q = buf, **pp = argv;
-       char quote = 0, escape = 0;
-       int i;
-
-       for (; *p == ' ' || *p == '\t'; p++)
-               ;
-       while (*p && *p != '\n' && *p != '#'
-              && pp < &argv[sizeof argv/sizeof *argv - 1]) {
-               *pp++ = q;
-               while (*p && *p != '\n') {
-                       if (escape) {
-                               switch (*p) {
-                               case 'n':
-                                       *q++ = '\n';
-                                       p++;
-                                       break;
-                               case 'r':
-                                       *q++ = '\r';
-                                       p++;
-                                       break;
-                               case '0': case '1': case '2': case '3':
-                               case '4': case '5': case '6': case '7':
-                                       *q = 0;
-                                       for (i = 3; --i >= 0
-                                            && *p >= '0' && *p <= '9';)
-                                               *q = *q << 3 | *p++ - '0';
-                                       q++;
-                                       break;
-                               default:
-                                       *q++ = *p++;
-                                       break;
-                               }
-                               escape = 0;
-                       } else if (*p == '\\') {
-                               escape = 1;
-                               p++;
-                       } else if (quote) {
-                               if (*p == quote) {
-                                       quote = 0;
-                                       p++;
-                               } else
-                                       *q++ = *p++;
-                       } else {
-                               if (*p == '"' || *p == '\'')
-                                       quote = *p++;
-                               else if (*p == ' ' || *p == '\t')
-                                       break;
-                               else
-                                       *q++ = *p++;
-                       }
-               }
-               *q++ = 0;
-               for (; *p == ' ' || *p == '\t'; p++)
-                       ;
-       }
-       *pp = 0;
-       argc = pp - argv;
+       if (cx_beginbuf(buffer, arg, narg) < 0)
+               return -1;
+       p_start();
+       err_end();
+       cx_end();
+       return 0;
 }
 }
Continuous source code history from original PDP-7 UNIX to FreeBSD 2, the first fully unencumbered FreeBSD release.