usr.bin/window/lcmd.c

   1 /*
   2  * Copyright (c) 1983, 1993
   3  *      The Regents of the University of California.  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, 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.
  35  */
  36
  37 #ifndef lint
  38 static char sccsid[] = "@(#)lcmd.c      8.1 (Berkeley) 6/6/93";
  39 static char rcsid[] =
  40   "$FreeBSD$";
  41 #endif /* not lint */
  42
  43 #include "defs.h"
  44 #include "value.h"
  45 #include "lcmd.h"
  46
  47 int l_alias();
  48 int l_close();
  49 int l_cursormodes();
  50 int l_debug();
  51 int l_def_nline();
  52 int l_def_shell();
  53 int l_def_smooth();
  54 int l_echo();
  55 int l_escape();
  56 int l_foreground();
  57 int l_iostat();
  58 int l_label();
  59 int l_list();
  60 int l_select();
  61 int l_smooth();
  62 int l_source();
  63 int l_terse();
  64 int l_time();
  65 int l_unalias();
  66 int l_unset();
  67 int l_variable();
  68 int l_window();
  69 int l_write();
  70
  71 extern struct lcmd_arg arg_alias[];
  72 extern struct lcmd_arg arg_cursormodes[];
  73 extern struct lcmd_arg arg_debug[];
  74 extern struct lcmd_arg arg_echo[];
  75 extern struct lcmd_arg arg_escape[];
  76 extern struct lcmd_arg arg_foreground[];
  77 extern struct lcmd_arg arg_label[];
  78 extern struct lcmd_arg arg_def_nline[];
  79 extern struct lcmd_arg arg_def_shell[];
  80 extern struct lcmd_arg arg_def_smooth[];
  81 extern struct lcmd_arg arg_close[];
  82 extern struct lcmd_arg arg_select[];
  83 extern struct lcmd_arg arg_smooth[];
  84 extern struct lcmd_arg arg_source[];
  85 extern struct lcmd_arg arg_terse[];
  86 extern struct lcmd_arg arg_time[];
  87 extern struct lcmd_arg arg_unalias[];
  88 extern struct lcmd_arg arg_unset[];
  89 extern struct lcmd_arg arg_window[];
  90 extern struct lcmd_arg arg_write[];
  91 struct lcmd_arg arg_null[1] = { { 0 } };
  92
  93 struct lcmd_tab lcmd_tab[] = {
  94         "alias",                1,      l_alias,        arg_alias,
  95         "close",                2,      l_close,        arg_close,
  96         "cursormodes",          2,      l_cursormodes,  arg_cursormodes,
  97         "debug",                1,      l_debug,        arg_debug,
  98         "default_nlines",       9,      l_def_nline,    arg_def_nline,
  99         "default_shell",        10,     l_def_shell,    arg_def_shell,
 100         "default_smooth",       10,     l_def_smooth,   arg_def_smooth,
 101         "echo",                 2,      l_echo,         arg_echo,
 102         "escape",               2,      l_escape,       arg_escape,
 103         "foreground",           1,      l_foreground,   arg_foreground,
 104         "iostat",               1,      l_iostat,       arg_null,
 105         "label",                2,      l_label,        arg_label,
 106         "list",                 2,      l_list,         arg_null,
 107         "nlines",               1,      l_def_nline,    arg_def_nline,
 108         "select",               2,      l_select,       arg_select,
 109         "shell",                2,      l_def_shell,    arg_def_shell,
 110         "smooth",               2,      l_smooth,       arg_smooth,
 111         "source",               2,      l_source,       arg_source,
 112         "terse",                2,      l_terse,        arg_terse,
 113         "time",                 2,      l_time,         arg_time,
 114         "unalias",              3,      l_unalias,      arg_unalias,
 115         "unset",                3,      l_unset,        arg_unset,
 116         "variable",             1,      l_variable,     arg_null,
 117         "window",               2,      l_window,       arg_window,
 118         "write",                2,      l_write,        arg_write,
 119         0
 120 };
 121
 122 struct lcmd_tab *
 123 lcmd_lookup(name)
 124 char *name;
 125 {
 126         register struct lcmd_tab *p;
 127
 128         for (p = lcmd_tab; p->lc_name != 0; p++)
 129                 if (str_match(name, p->lc_name, p->lc_minlen))
 130                         return p;
 131         return 0;
 132 }
 133
 134 dosource(filename)
 135 char *filename;
 136 {
 137         if (cx_beginfile(filename) < 0)
 138                 return -1;
 139         p_start();
 140         err_end();
 141         cx_end();
 142         return 0;
 143 }
 144
 145 dolongcmd(buffer, arg, narg)
 146 char *buffer;
 147 struct value *arg;
 148 int narg;
 149 {
 150         if (cx_beginbuf(buffer, arg, narg) < 0)
 151                 return -1;
 152         p_start();
 153         err_end();
 154         cx_end();
 155         return 0;
 156 }