old
/
eterm
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
eterm/src/script.c

495 lines
13 KiB
C
Raw Blame History

/*
* Copyright (C) 1997-2001, Michael Jennings
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files (the "Software"), to
* deal in the Software without restriction, including without limitation the
* rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
* sell copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included in
* all copies of the Software, its documentation and marketing & publicity
* materials, and acknowledgment shall be given in the documentation, materials
* and software packages that this Software was used.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
* THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
* IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
* CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
*/
static const char cvs_ident[] = "$Id$";
#include "config.h"
#include "feature.h"
#include <stdlib.h>
#include <unistd.h>
#include <errno.h>
#include <limits.h>
#include <X11/cursorfont.h>
#include <signal.h>
#include "command.h"
#include "options.h"
#include "pixmap.h"
#include "screen.h"
#include "script.h"
#include "startup.h"
#include "system.h"
static eterm_script_handler_t script_handlers[] =
{
{ "copy", script_handler_copy },
{ "die", script_handler_exit },
{ "echo", script_handler_echo },
{ "exec", script_handler_spawn },
{ "exit", script_handler_exit },
{ "kill", script_handler_kill },
{ "paste", script_handler_paste },
{ "quit", script_handler_exit },
{ "save", script_handler_save },
{ "scroll", script_handler_scroll },
{ "search", script_handler_search },
{ "spawn", script_handler_spawn },
{ "string", script_handler_string },
{ "nop", script_handler_nop }
};
static size_t handler_count = sizeof(script_handlers) / sizeof(eterm_script_handler_t);
#if 0
void
eterm_handle_winop(char *action)
{
char *winid;
Window win = 0;
ASSERT(action != NULL);
winid = strchr(action, ' ');
if (winid) {
win = (Window) strtoul(winid + 1, (char **) NULL, 0);
}
if (win == 0) { /* If no window ID was given, or if the strtoul() call failed */
win = TermWin.parent;
}
if (!BEG_STRCASECMP(action, "raise")) {
XRaiseWindow(Xdisplay, win);
} else if (!BEG_STRCASECMP(action, "lower")) {
XLowerWindow(Xdisplay, win);
} else if (!BEG_STRCASECMP(action, "map")) {
XMapWindow(Xdisplay, win);
} else if (!BEG_STRCASECMP(action, "unmap")) {
XUnmapWindow(Xdisplay, win);
} else if (!BEG_STRCASECMP(action, "move")) {
int x, y, n;
char *xx, *yy;
n = num_words(action);
if (n == 3 || n == 4) {
if (n == 3) {
win = TermWin.parent;
}
xx = get_pword(n - 1, action);
yy = get_pword(n, action);
x = (int) strtol(xx, (char **) NULL, 0);
y = (int) strtol(yy, (char **) NULL, 0);
XMoveWindow(Xdisplay, win, x, y);
}
} else if (!BEG_STRCASECMP(action, "resize")) {
int w, h, n;
char *ww, *hh;
n = num_words(action);
if (n == 3 || n == 4) {
if (n == 3) {
win = TermWin.parent;
}
ww = get_pword(n - 1, action);
hh = get_pword(n, action);
w = (int) strtol(ww, (char **) NULL, 0);
h = (int) strtol(hh, (char **) NULL, 0);
XResizeWindow(Xdisplay, win, w, h);
}
} else if (!BEG_STRCASECMP(action, "kill")) {
XKillClient(Xdisplay, win);
} else if (!BEG_STRCASECMP(action, "iconify")) {
XIconifyWindow(Xdisplay, win, Xscreen);
} else {
print_error("IPC Error: Unrecognized window operation \"%s\"\n", action);
}
}
#endif
/********* HANDLERS **********/
/* copy(): Copy the current selection to the specified clipboard or cut
* buffer
*
* Syntax: copy([ <buffer> ])
*
* <buffer> is either a number 0-7, in which case the selection is copied to
* the cut buffer specified, or one of the words "clipboard," "primary," or
* "secondary" (or any initial substring thereof), in which case the
* selection is copied to the specified clipboard. The default buffer is
* the "primary" buffer (XA_PRIMARY in Xlib-speak).
*/
void
script_handler_copy(char **params)
{
unsigned char i;
char *buffer_id;
Atom sel = XA_PRIMARY;
if (params) {
for (i = 0; (buffer_id = params[i]) != NULL; i++) {
if (*buffer_id) {
if (*buffer_id >= '0' && *buffer_id <= '7') {
sel = (Atom) ((int) XA_CUT_BUFFER0 + (int) *buffer_id);
} else if (!BEG_STRCASECMP(buffer_id, "clipboard")) {
sel = XA_CLIPBOARD(Xdisplay);
} else if (!BEG_STRCASECMP(buffer_id, "primary")) {
sel = XA_PRIMARY;
} else if (!BEG_STRCASECMP(buffer_id, "secondary")) {
sel = XA_SECONDARY;
} else {
print_error("Invalid parameter to copy(): \"%s\"\n", buffer_id);
}
}
}
}
selection_copy(sel);
}
/* echo(): Send a string to the pty
*
* Syntax: echo(<string>)
*
* <string> is the string of characters to send to the pty.
*/
void
script_handler_echo(char **params)
{
char **tmp;
for (tmp = params; tmp && *tmp; tmp++) {
tt_write(*tmp, strlen(*tmp));
}
}
/* exit(): Exit Eterm with an optional message or return code
*
* Syntax: exit([ { <msg> | <code> } ])
*
* <msg> is an optional exit message. <code> is a positive or
* negative integer return code. Either one may be specified, but not
* both. If neither is specified, Eterm exits with a return code of 0
* and no message.
*/
void
script_handler_exit(char **params)
{
unsigned char code = 0;
char *tmp;
if (params && *params) {
if (isdigit(params[0][0]) || (params[0][0] == '-' && isdigit(params[0][1]))) {
code = (unsigned char) atoi(params[0]);
} else {
tmp = join(" ", params);
printf("Exiting: %s\n", tmp);
FREE(tmp);
}
}
exit(code);
}
/* kill(): Send a given signal to Eterm's child process
*
* Syntax: kill([ <signal> ])
*
* <signal> is the numeric signal to send to the process. If not
* specified, SIGTERM is the default.
*/
void
script_handler_kill(char **params)
{
int sig;
if (params && *params) {
sig = atoi(params[0]);
} else {
sig = SIGTERM;
}
kill(cmd_pid, sig);
}
/* paste(): Paste the contents of the specified clipboard or cut buffer
* into the terminal window
*
* Syntax: paste([ <buffer> ])
*
* <buffer> is either a number 0-7, in which case the contents of the cut
* buffer specified are pasted, or one of the words "clipboard," "primary,"
* or "secondary" (or any initial substring thereof), in which case the
* contents of the specified clipboard are pasted. The default buffer is
* the "primary" buffer (XA_PRIMARY in Xlib-speak).
*/
void
script_handler_paste(char **params)
{
unsigned char i;
char *buffer_id;
Atom sel = XA_PRIMARY;
if (params) {
for (i = 0; (buffer_id = params[i]) != NULL; i++) {
if (*buffer_id) {
if (*buffer_id >= '0' && *buffer_id <= '7') {
sel = (Atom) ((int) XA_CUT_BUFFER0 + (int) *buffer_id);
} else if (!BEG_STRCASECMP(buffer_id, "clipboard")) {
sel = XA_CLIPBOARD(Xdisplay);
} else if (!BEG_STRCASECMP(buffer_id, "primary")) {
sel = XA_PRIMARY;
} else if (!BEG_STRCASECMP(buffer_id, "secondary")) {
sel = XA_SECONDARY;
} else {
print_error("Invalid parameter to paste(): \"%s\"\n", buffer_id);
}
}
}
}
selection_paste(sel);
}
/* save(): Save the current theme/user configuration
*
* Syntax: save([ { theme | user } ,] [ <filename> ])
*
* The "user" settings are saved by default, and the default
* filename is user.cfg. So save() by itself will save the
* current user settings to user.cfg. save(theme) will save
* the theme settings instead; the default filename in that case
* will be theme.cfg.
*/
void
script_handler_save(char **params)
{
if (params && *params) {
if (!strcasecmp(params[0], "theme")) {
save_config(params[1], SAVE_THEME_CONFIG);
} else {
save_config(params[0], SAVE_USER_CONFIG);
}
} else {
save_config(NULL, SAVE_USER_CONFIG);
}
}
/* scroll(): Scroll backward or forward in the scrollback buffer
*
* Syntax: scroll(N) or scroll(Nl) -- Scroll N lines
* scroll(Np) -- Scroll N pages/screensful
* scroll(Nb) -- Scroll N buffers
*
* N is a floating point number. Use a negative number to scroll
* up and a positive number to scroll down. Fractions can be used
* also (e.g., to scroll one half page, use scroll(0.5p)). It is
* possible to spell out "lines," "pages," and "buffers" as well,
* and the type may be passed as a second parameter if you wish.
*/
void
script_handler_scroll(char **params)
{
char *type;
double cnt_float;
long count;
int direction = DN;
if (params && *params) {
cnt_float = strtod(params[0], &type);
if (cnt_float == 0.0) {
return;
} else if (cnt_float < 0.0) {
cnt_float = -cnt_float;
direction = UP;
}
if (!type) {
type = params[1];
}
if (type && *type) {
for (; *type && !isalpha(*type); type++);
if (str_leading_match("lines", type)) {
count = (long) cnt_float;
} else if (str_leading_match("pages", type) || str_leading_match("screens", type)) {
count = (long) ((cnt_float * TermWin.nrow) - CONTEXT_LINES);
} else if (str_leading_match("buffers", type)) {
count = (long) (cnt_float * (TermWin.nrow + TermWin.saveLines));
} else {
print_error("Invalid modifier \"%s\" in scroll()\n", type);
return;
}
} else {
count = (long) cnt_float;
}
if (count <= 0) {
return;
}
scr_page(direction, count);
}
}
/* search(): Search the scrollback buffer for a string and highlight
* any occurances of it.
*
* Syntax: search([ <str> ])
*
* <str> is an optional search string to highlight. If none is given,
* search() will clear the previously-highlighted search term.
*/
void
script_handler_search(char **params)
{
scr_search_scrollback(params ? params[0] : NULL);
}
/* spawn(): Spawns a child process to execute a sub-command
*
* Syntax: spawn([ <command> ])
*
* If no command is specified, the default is to execute another Eterm.
*/
void
script_handler_spawn(char **params)
{
char *tmp;
if (params && *params) {
tmp = join(" ", params);
system_no_wait(tmp);
FREE(tmp);
} else {
system_no_wait("Eterm");
}
}
/* string(): Send a string to Eterm's escape code handler
*
* Syntax: string(<string>)
*
* <string> is the string of characters to send to the handler.
*/
void
script_handler_string(char **params)
{
char **tmp;
for (tmp = params; tmp && *tmp; tmp++) {
cmd_write(*tmp, strlen(*tmp));
}
}
/* nop(): Do nothing
*
* Syntax: nop()
*
* This function can be used to cancel undesired default behavior.
*/
void
script_handler_nop(char **params)
{
USE_VAR(params);
}
/********* ENGINE *********/
eterm_script_handler_t *
script_find_handler(const char *name)
{
register unsigned long i;
for (i = 0; i < handler_count; i++) {
/* Small optimization. Only call strcasecmp() if the first letter matches. */
if ((tolower(name[0]) == tolower(script_handlers[i].name[0]))
&& !strcasecmp(name, script_handlers[i].name)) {
return &script_handlers[i];
}
}
return NULL;
}
void
script_parse(char *s)
{
char **token_list, **param_list;
register char *pstr;
register unsigned long i;
char *func_name, *params, *tmp;
size_t len;
eterm_script_handler_t *func;
REQUIRE(s != NULL);
D_SCRIPT(("Parsing: \"%s\"\n", s));
token_list = split(";", s);
if (token_list == NULL) {
D_SCRIPT(("No tokens found; ignoring script.\n"));
return;
}
for (i = 0; token_list[i]; i++) {
pstr = token_list[i];
chomp(pstr);
if (!(*pstr)) {
continue;
}
if ((params = strchr(pstr, '(')) != NULL) {
if (params != pstr) {
len = params - pstr;
func_name = (char *) MALLOC(len + 1);
strncpy(func_name, pstr, len);
func_name[len] = 0;
} else {
print_error("Error in script \"%s\": Missing function name before \"%s\".\n", s, params);
free_array((void **) token_list, 0);
return;
}
} else {
func_name = STRDUP(pstr);
}
if (!func_name) {
free_array((void **) token_list, 0);
return;
}
if (params) {
params++;
if ((tmp = strrchr(params, ')')) != NULL) {
*tmp = 0;
} else {
print_error("Error in script \"%s\": Missing closing parentheses for \"%s\".\n", s, token_list[i]);
free_array((void **) token_list, 0);
return;
}
param_list = split(", \t", params);
} else {
param_list = NULL;
}
D_SCRIPT(("Calling function %s with parameters: %s\n", func_name, NONULL(params)));
if ((func = script_find_handler(func_name)) != NULL) {
(func->handler)(param_list);
} else {
print_error("Error in script \"%s\": No such function \"%s\".\n", s, func_name);
}
}
if (params) {
free_array((void **) param_list, 0);
}
free_array((void **) token_list, 0);
}
Reference in New Issue View Git Blame Copy Permalink