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