falso
/
cdesktopenv
mirror of https://git.code.sf.net/p/cdesktopenv/code
1
0
Fork 0
Code Issues Releases Wiki Activity
cdesktopenv/cde/programs/dtksh/genlib.c

259 lines
6.9 KiB
C
Raw Blame History

/*
* CDE - Common Desktop Environment
*
* Copyright (c) 1993-2012, The Open Group. All rights reserved.
*
* These libraries and programs are free software; you can
* redistribute them and/or modify them under the terms of the GNU
* Lesser General Public License as published by the Free Software
* Foundation; either version 2 of the License, or (at your option)
* any later version.
*
* These libraries and programs are distributed in the hope that
* they will be useful, but WITHOUT ANY WARRANTY; without even the
* implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
* PURPOSE. See the GNU Lesser General Public License for more
* details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with these librararies and programs; if not, write
* to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
* Floor, Boston, MA 02110-1301 USA
*/
/* $XConsortium: genlib.c /main/5 1996/09/27 19:01:37 drk $ */
/* Copyright (c) 1991, 1992 UNIX System Laboratories, Inc. */
/* All Rights Reserved */
/* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF */
/* UNIX System Laboratories, Inc. */
/* The copyright notice above does not evidence any */
/* actual or intended publication of such source code. */
#include "stdio.h"
#include <sys/types.h>
#ifdef DYNLIB
#include <dlfcn.h>
#endif
#ifdef HPUX_DYNLIB
#include <dl.h>
#endif
#include <string.h>
#include <search.h>
#include <ctype.h>
#include "docall.h"
#include "exksh.h"
#include "misc.h"
#include "xmdtksym.h"
#include "msgs.h"
static char * ReturnUsageMsg(
int msgIndex);
struct libstruct *All_libs;
static int Nlibs;
int sh_errno;
static struct usage {
char *funcname;
int msgId;
} Xk_usage[] = {
"call", 0,
"define", 1,
"deflist", 2,
"deref", 3,
"field_comp", 4,
"field_get", 5,
"finddef", 6,
"findsym", 7,
"sizeof", 8,
"struct", 9,
"structlist", 10,
"symbolic", 11,
"typedef", 12,
};
static char *
ReturnUsageMsg(
int msgId )
{
char * errmsg;
switch (msgId)
{
case 0: errmsg = GETMESSAGE(9,1, "call [-F] [-n] [-r] function [arg] ... [++] [argModifier ...]");
return(errmsg);
case 1: errmsg = GETMESSAGE(9,2, "define [-R] name value");
return(errmsg);
case 2: errmsg = GETMESSAGE(9,3, "deflist [-p prefix] address");
return(errmsg);
case 3: errmsg = GETMESSAGE(9,4, "deref [-p] [-l] [-len] address [variable]");
return(errmsg);
case 4: errmsg = GETMESSAGE(9,5, "field_comp type address [criterion ...]");
return(errmsg);
case 5: errmsg = GETMESSAGE(9,6, "field_get [-v variable] type address [fieldName ...]");
return(errmsg);
case 6: errmsg = GETMESSAGE(9,7, "finddef definitionName [variable]");
return(errmsg);
case 7: errmsg = GETMESSAGE(9,8, "findsym symbolName [variable]");
return(errmsg);
case 8: errmsg = GETMESSAGE(9,9, "sizeof typeName [variable]");
return(errmsg);
case 9: errmsg = GETMESSAGE(9,10,"struct [-R] name fieldName[:type] ...");
return(errmsg);
case 10: errmsg = GETMESSAGE(9,11, "structlist [-i id] [-p prefix] address");
return(errmsg);
case 11: errmsg = GETMESSAGE(9,12, "symbolic [-m] -t type ... symbolic ...");
return(errmsg);
case 12: errmsg = GETMESSAGE(9,13,"typedef [-R] typeDescriptor typeName");
return(errmsg);
}
return("");
}
int
xk_usage(
char *funcname )
{
int i;
char * errhdr;
char * errmsg;
for (i = 0; i < sizeof(Xk_usage) / sizeof(struct usage); i++)
{
if (!funcname)
{
errmsg = strdup(ReturnUsageMsg(Xk_usage[i].msgId));
ALTPUTS(errmsg);
free(errmsg);
}
else if (!funcname || (strcmp(funcname, Xk_usage[i].funcname) == 0))
{
errhdr = strdup(GETMESSAGE(9,14, "Usage: %s"));
errmsg = strdup(ReturnUsageMsg(Xk_usage[i].msgId));
printerrf("", errhdr, errmsg, NULL, NULL, NULL, NULL, NULL, NULL,
NULL);
free(errhdr);
free(errmsg);
return(SH_SUCC);
}
}
return(funcname ? SH_FAIL : SH_SUCC);
}
unsigned long
fsym(
char *str,
int lib )
{
#if defined(STATICLIB) || ( !defined(DYNLIB) && !defined(HPUX_DYNLIB))
struct symarray dummy;
#endif
#if defined(DYNLIB)
int i, j;
#endif
void *found;
#if defined(STATICLIB) || (!defined(DYNLIB) && !defined(HPUX_DYNLIB))
dummy.str = str;
if ((found = (void *) bsearch((char *) &dummy, Symarray,
Symsize-1, sizeof(struct symarray), symcomp)) != NULL)
return(((struct symarray *) found)->addr);
#endif /* STATICLIB */
#ifdef DYNLIB
for (i = 0; i < Nlibs; i++)
for (j = 0; j < All_libs[i].nlibs; j++)
if ((found = dlsym(All_libs[i].libs[j].handle,
str)) != NULL)
return((unsigned long) found);
#endif /* DYNLIB */
#ifdef HPUX_DYNLIB
{
shl_t handle;
handle = NULL;
if ((shl_findsym(&handle, str, TYPE_PROCEDURE, &found)) == 0)
return((unsigned long) found);
if ((shl_findsym(&handle, str, TYPE_DATA, &found)) == 0)
return((unsigned long) found);
handle = PROG_HANDLE;
if ((shl_findsym(&handle, str, TYPE_PROCEDURE, &found)) == 0)
return((unsigned long) found);
if ((shl_findsym(&handle, str, TYPE_DATA, &found)) == 0)
return((unsigned long) found);
}
#endif /* HPUX_DYNLIB */
return(NULL);
}
int
do_findsym(
int argc,
char **argv )
{
unsigned long found;
struct symarray dummy;
char * errmsg;
if (argc == 1) {
XK_USAGE(argv[0]);
}
if ((found = fsym(argv[1], -1)) != NULL) {
if (argc >= 3) {
char buf[50];
sprintf(buf, "%s=0x%lx", argv[2], found);
env_set(buf);
}
else {
sprintf(xk_ret_buffer, "0x%lx", found);
xk_ret_buf = xk_ret_buffer;
}
}
else {
errmsg = strdup(GetSharedMsg(DT_UNDEF_SYMBOL));
printerrf(argv[0], errmsg, argv[1], NULL, NULL,
NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(SH_FAIL);
}
return(SH_SUCC);
}
#ifndef SPRINTF_RET_LEN
/*
* SYSTEM V sprintf() returns the length of the buffer, other versions
* of the UNIX System don't. So, if the SPRINTF_RET_LEN flag is not true,
* then we define an alternate function, lsprintf(), which has the SYSV
* behavior. Otherwise, lsprintf is #defined in exksh.h to be the
* same as sprintf.
*/
int
lsprintf(
char *buf,
char *fmt,
unsigned long arg1,
unsigned long arg2,
unsigned long arg3,
unsigned long arg4,
unsigned long arg5,
unsigned long arg6,
unsigned long arg7 )
{
sprintf(buf, fmt, arg1, arg2, arg3, arg4, arg5, arg6, arg7);
return(strlen(buf));
}
#endif
Reference in New Issue View Git Blame Copy Permalink