diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-01-03 21:51:01 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-01-03 21:51:01 (GMT) |
commit | a780057cc1b51dd3a557549c3cf2431f09136c0d (patch) | |
tree | 717f78052c55596449b27743171d7e170c4d39a0 /tkimg/compat/tclLoadShl.c | |
parent | 7749430b9352c1eaf5dca7d8a89a6d35f565ef24 (diff) | |
download | blt-a780057cc1b51dd3a557549c3cf2431f09136c0d.zip blt-a780057cc1b51dd3a557549c3cf2431f09136c0d.tar.gz blt-a780057cc1b51dd3a557549c3cf2431f09136c0d.tar.bz2 |
upgrade tkimg to 1.4.6
Diffstat (limited to 'tkimg/compat/tclLoadShl.c')
-rw-r--r-- | tkimg/compat/tclLoadShl.c | 79 |
1 files changed, 0 insertions, 79 deletions
diff --git a/tkimg/compat/tclLoadShl.c b/tkimg/compat/tclLoadShl.c deleted file mode 100644 index 7cd91b2..0000000 --- a/tkimg/compat/tclLoadShl.c +++ /dev/null @@ -1,79 +0,0 @@ -/* - * tclLoadShl.c -- - * - * This procedure provides a version of the TclLoadFile that works - * with the "shl_load" and "shl_findsym" library procedures for - * dynamic loading (e.g. for HP machines). - * - * Copyright (c) 1995-1996 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * SCCS: @(#) tclLoadShl.c 1.5 96/03/15 15:01:44 - */ - -#include <dl.h> - -/* - * On some HP machines, dl.h defines EXTERN; remove that definition. - */ - -#ifdef EXTERN -# undef EXTERN -#endif - -#include "tcl.h" -#include "compat/dlfcn.h" -#include <errno.h> - -#ifndef DYNAMIC_PATH -# define DYNAMIC_PATH 0 -#endif - -void * -dlopen(path, mode) - const char *path; - int mode; -{ - int flags, length; - - if (path == (char *) NULL) { - return (void *) PROG_HANDLE; - } - flags = ((mode & RTLD_NOW) ? BIND_IMMEDIATE : BIND_DEFERRED) | - DYNAMIC_PATH; -#ifdef BIND_VERBOSE - length = strlen(path); - if ((length > 2) && !(strcmp(path+length-3,".sl"))) { - flags |= BIND_VERBOSE; - } -#endif - return (void *) shl_load(path, flags, 0L); -} - -void * -dlsym(handle, symbol) - void *handle; - const char *symbol; -{ void *address; - - if (shl_findsym((shl_t *)&handle, symbol, - (short) TYPE_UNDEFINED, &address) != 0) { - address = NULL; - } - return address; -} - -char * -dlerror() -{ - return (char *) Tcl_ErrnoMsg(errno); -} - -int -dlclose(handle) - void *handle; -{ - return shl_unload((shl_t) handle); -} |