|
Packit Service |
f629e6 |
/*
|
|
Packit Service |
f629e6 |
* ext.c - Builtin function that links external gawk functions and related
|
|
Packit Service |
f629e6 |
* utilities.
|
|
Packit Service |
f629e6 |
*
|
|
Packit Service |
f629e6 |
* Christos Zoulas, Thu Jun 29 17:40:41 EDT 1995
|
|
Packit Service |
f629e6 |
* Arnold Robbins, update for 3.1, Mon Nov 23 12:53:39 EST 1998
|
|
Packit Service |
f629e6 |
*/
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/*
|
|
Packit Service |
f629e6 |
* Copyright (C) 1995 - 2001, 2003-2014, 2016-2017,
|
|
Packit Service |
f629e6 |
* the Free Software Foundation, Inc.
|
|
Packit Service |
f629e6 |
*
|
|
Packit Service |
f629e6 |
* This file is part of GAWK, the GNU implementation of the
|
|
Packit Service |
f629e6 |
* AWK Programming Language.
|
|
Packit Service |
f629e6 |
*
|
|
Packit Service |
f629e6 |
* GAWK is free software; you can redistribute it and/or modify
|
|
Packit Service |
f629e6 |
* it under the terms of the GNU General Public License as published by
|
|
Packit Service |
f629e6 |
* the Free Software Foundation; either version 3 of the License, or
|
|
Packit Service |
f629e6 |
* (at your option) any later version.
|
|
Packit Service |
f629e6 |
*
|
|
Packit Service |
f629e6 |
* GAWK is distributed in the hope that it will be useful,
|
|
Packit Service |
f629e6 |
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
Packit Service |
f629e6 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
Packit Service |
f629e6 |
* GNU General Public License for more details.
|
|
Packit Service |
f629e6 |
*
|
|
Packit Service |
f629e6 |
* You should have received a copy of the GNU General Public License
|
|
Packit Service |
f629e6 |
* along with this program; if not, write to the Free Software
|
|
Packit Service |
f629e6 |
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
|
|
Packit Service |
f629e6 |
*/
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
#include "awk.h"
|
|
Packit Service |
f629e6 |
extern SRCFILE *srcfiles;
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
#ifdef DYNAMIC
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
#include <dlfcn.h>
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
#define INIT_FUNC "dl_load"
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/* load_ext --- load an external library */
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
void
|
|
Packit Service |
f629e6 |
load_ext(const char *lib_name)
|
|
Packit Service |
f629e6 |
{
|
|
Packit Service |
f629e6 |
int (*install_func)(const gawk_api_t *const, awk_ext_id_t);
|
|
Packit Service |
f629e6 |
void *dl;
|
|
Packit Service |
f629e6 |
int flags = RTLD_LAZY;
|
|
Packit Service |
f629e6 |
int *gpl_compat;
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
if (do_sandbox)
|
|
Packit Service |
f629e6 |
fatal(_("extensions are not allowed in sandbox mode"));
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
if (do_traditional || do_posix)
|
|
Packit Service |
f629e6 |
fatal(_("-l / @load are gawk extensions"));
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
if (lib_name == NULL)
|
|
Packit Service |
f629e6 |
fatal(_("load_ext: received NULL lib_name"));
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
if ((dl = dlopen(lib_name, flags)) == NULL)
|
|
Packit Service |
f629e6 |
fatal(_("load_ext: cannot open library `%s' (%s)\n"), lib_name,
|
|
Packit Service |
f629e6 |
dlerror());
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/* Per the GNU Coding standards */
|
|
Packit Service |
f629e6 |
gpl_compat = (int *) dlsym(dl, "plugin_is_GPL_compatible");
|
|
Packit Service |
f629e6 |
if (gpl_compat == NULL)
|
|
Packit Service |
f629e6 |
fatal(_("load_ext: library `%s': does not define `plugin_is_GPL_compatible' (%s)\n"),
|
|
Packit Service |
f629e6 |
lib_name, dlerror());
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
install_func = (int (*)(const gawk_api_t *const, awk_ext_id_t))
|
|
Packit Service |
f629e6 |
dlsym(dl, INIT_FUNC);
|
|
Packit Service |
f629e6 |
if (install_func == NULL)
|
|
Packit Service |
f629e6 |
fatal(_("load_ext: library `%s': cannot call function `%s' (%s)\n"),
|
|
Packit Service |
f629e6 |
lib_name, INIT_FUNC, dlerror());
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
if (install_func(& api_impl, NULL /* ext_id */) == 0)
|
|
Packit Service |
f629e6 |
warning(_("load_ext: library `%s' initialization routine `%s' failed\n"),
|
|
Packit Service |
f629e6 |
lib_name, INIT_FUNC);
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/* is_valid_identifier --- return true if name is a valid simple identifier */
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
static bool
|
|
Packit Service |
f629e6 |
is_valid_identifier(const char *name)
|
|
Packit Service |
f629e6 |
{
|
|
Packit Service |
f629e6 |
const char *sp = name;
|
|
Packit Service |
f629e6 |
int c;
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
if (! is_letter(*sp))
|
|
Packit Service |
f629e6 |
return false;
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
for (sp++; (c = *sp++) != '\0';) {
|
|
Packit Service |
f629e6 |
if (! is_identchar(c))
|
|
Packit Service |
f629e6 |
return false;
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
return true;
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/* make_builtin --- register name to be called as func with a builtin body */
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
awk_bool_t
|
|
Packit Service |
f629e6 |
make_builtin(const awk_ext_func_t *funcinfo)
|
|
Packit Service |
f629e6 |
{
|
|
Packit Service |
f629e6 |
NODE *symbol, *f;
|
|
Packit Service |
f629e6 |
INSTRUCTION *b;
|
|
Packit Service |
f629e6 |
const char *name = funcinfo->name;
|
|
Packit Service |
f629e6 |
int count = funcinfo->max_expected_args;
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
if (name == NULL || *name == '\0')
|
|
Packit Service |
f629e6 |
fatal(_("make_builtin: missing function name"));
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
if (! is_valid_identifier(name))
|
|
Packit Service |
f629e6 |
return awk_false;
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
f = lookup(name);
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
if (f != NULL) {
|
|
Packit Service |
f629e6 |
if (f->type == Node_func) {
|
|
Packit Service |
f629e6 |
/* user-defined function */
|
|
Packit Service |
f629e6 |
fatal(_("make_builtin: can't redefine function `%s'"), name);
|
|
Packit Service |
f629e6 |
} else if (f->type == Node_ext_func) {
|
|
Packit Service |
f629e6 |
/* multiple extension() calls etc. */
|
|
Packit Service |
f629e6 |
if (do_lint)
|
|
Packit Service |
f629e6 |
lintwarn(_("make_builtin: function `%s' already defined"), name);
|
|
Packit Service |
f629e6 |
return awk_false;
|
|
Packit Service |
f629e6 |
} else
|
|
Packit Service |
f629e6 |
/* variable name etc. */
|
|
Packit Service |
f629e6 |
fatal(_("make_builtin: function name `%s' previously defined"), name);
|
|
Packit Service |
f629e6 |
} else if (check_special(name) >= 0)
|
|
Packit Service |
f629e6 |
fatal(_("make_builtin: can't use gawk built-in `%s' as function name"), name);
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
if (count < 0)
|
|
Packit Service |
f629e6 |
fatal(_("make_builtin: negative argument count for function `%s'"),
|
|
Packit Service |
f629e6 |
name);
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
b = bcalloc(Op_symbol, 1, 0);
|
|
Packit Service |
f629e6 |
b->extfunc = funcinfo->function;
|
|
Packit Service |
f629e6 |
b->c_function = (awk_ext_func_t *) funcinfo;
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/* NB: extension sub must return something */
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
symbol = install_symbol(estrdup(name, strlen(name)), Node_ext_func);
|
|
Packit Service |
f629e6 |
symbol->code_ptr = b;
|
|
Packit Service |
f629e6 |
track_ext_func(name);
|
|
Packit Service |
f629e6 |
return awk_true;
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/* get_argument --- get the i'th argument of a dynamically linked function */
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
NODE *
|
|
Packit Service |
f629e6 |
get_argument(int i)
|
|
Packit Service |
f629e6 |
{
|
|
Packit Service |
f629e6 |
NODE *t;
|
|
Packit Service |
f629e6 |
int arg_count;
|
|
Packit Service |
f629e6 |
INSTRUCTION *pc;
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
pc = TOP()->code_ptr; /* Op_ext_builtin instruction */
|
|
Packit Service |
f629e6 |
arg_count = pc->expr_count; /* # of arguments supplied */
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
if (i < 0 || i >= arg_count)
|
|
Packit Service |
f629e6 |
return NULL;
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
t = PEEK(arg_count - i);
|
|
Packit Service |
f629e6 |
if (t->type == Node_param_list)
|
|
Packit Service |
f629e6 |
t = GET_PARAM(t->param_cnt);
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
if (t->type == Node_array_ref) {
|
|
Packit Service |
f629e6 |
if (t->orig_array->type == Node_var) {
|
|
Packit Service |
f629e6 |
/* already a scalar, can no longer use it as array */
|
|
Packit Service |
f629e6 |
t->type = Node_var;
|
|
Packit Service |
f629e6 |
t->var_value = Nnull_string;
|
|
Packit Service |
f629e6 |
return t;
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
return t->orig_array; /* Node_var_new or Node_var_array */
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
if (t->type == Node_var) /* See Case Node_var in setup_frame(), eval.c */
|
|
Packit Service |
f629e6 |
return Nnull_string;
|
|
Packit Service |
f629e6 |
/* Node_var_new, Node_var_array or Node_val */
|
|
Packit Service |
f629e6 |
return t;
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/*
|
|
Packit Service |
f629e6 |
* get_actual_argument --- get the i'th scalar or array argument of a
|
|
Packit Service |
f629e6 |
* dynamically linked function.
|
|
Packit Service |
f629e6 |
*/
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
NODE *
|
|
Packit Service |
f629e6 |
get_actual_argument(NODE *t, int i, bool want_array)
|
|
Packit Service |
f629e6 |
{
|
|
Packit Service |
f629e6 |
char *fname;
|
|
Packit Service |
f629e6 |
INSTRUCTION *pc;
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
pc = TOP()->code_ptr; /* Op_ext_builtin instruction */
|
|
Packit Service |
f629e6 |
fname = (pc + 1)->func_name;
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
if (t->type == Node_var_new) {
|
|
Packit Service |
f629e6 |
if (want_array)
|
|
Packit Service |
f629e6 |
return force_array(t, false);
|
|
Packit Service |
f629e6 |
else {
|
|
Packit Service |
f629e6 |
t->type = Node_var;
|
|
Packit Service |
f629e6 |
t->var_value = dupnode(Nnull_string);
|
|
Packit Service |
f629e6 |
return t->var_value;
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
if (want_array) {
|
|
Packit Service |
f629e6 |
if (t->type != Node_var_array)
|
|
Packit Service |
f629e6 |
fatal(_("function `%s': argument #%d: attempt to use scalar as an array"),
|
|
Packit Service |
f629e6 |
fname, i + 1);
|
|
Packit Service |
f629e6 |
} else {
|
|
Packit Service |
f629e6 |
if (t->type != Node_val)
|
|
Packit Service |
f629e6 |
fatal(_("function `%s': argument #%d: attempt to use array as a scalar"),
|
|
Packit Service |
f629e6 |
fname, i + 1);
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
assert(t->type == Node_var_array || t->type == Node_val);
|
|
Packit Service |
f629e6 |
return t;
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
#else
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/* load_ext --- dummy version if extensions not available */
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
void
|
|
Packit Service |
f629e6 |
load_ext(const char *lib_name)
|
|
Packit Service |
f629e6 |
{
|
|
Packit Service |
f629e6 |
fatal(_("dynamic loading of library not supported"));
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
#endif
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/* close_extensions --- execute extension cleanup routines */
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
void
|
|
Packit Service |
f629e6 |
close_extensions()
|
|
Packit Service |
f629e6 |
{
|
|
Packit Service |
f629e6 |
SRCFILE *s;
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
if (srcfiles == NULL)
|
|
Packit Service |
f629e6 |
return;
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
for (s = srcfiles->next; s != srcfiles; s = s->next)
|
|
Packit Service |
f629e6 |
if (s->stype == SRC_EXTLIB && s->fini_func)
|
|
Packit Service |
f629e6 |
(*s->fini_func)();
|
|
Packit Service |
f629e6 |
}
|