"

 COPYRIGHT (c) 1993 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libcomp' }"

Object subclass:#ObjectFileLoader

	instanceVariableNames:''

	classVariableNames:'MySymbolTable Verbose LastError LinkErrorMessage NextHandleID

		LoadedObjects PreviouslyLoadedObjects ActuallyLoadedObjects

		ErrorPrinting LastErrorNumber OldSpaceReserve'

	poolDictionaries:''

	category:'System-Compiler'

!

Error subclass:#ObjectFileLoadError

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:ObjectFileLoader

!

Notification subclass:#ObjectFileLoadErrorNotification

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:ObjectFileLoader

!

ObjectFileLoader::ObjectFileLoadErrorNotification subclass:#RegistrationFailedErrorNotification

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:ObjectFileLoader

!

ObjectFileLoader::ObjectFileLoadErrorNotification subclass:#SuperClassMissingErrorNotification

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:ObjectFileLoader

!

!ObjectFileLoader primitiveDefinitions!

%{

/*

 * by default, use whatever the system provides

 */

#if defined(SYSV4) || defined(HAS_DLOPEN)   /* sys5.4 dlopen interface */

# define SYSV4_DL

# define HAS_DL

#endif

#ifdef __VMS__

# undef __new

#endif

#ifdef DL1_6    /* dl1.6 COFF loader */

# define HAS_DL

#endif

#include <stdio.h>

#ifdef NEXT_DL

# ifndef _RLD_H_

#  define _RLD_H_

#  ifdef NEXT3

#   include <mach-o/rld.h>

#  else

#   include <rld.h>

#  endif

# endif

#endif /* NEXT_DL */

#ifdef SYSV4_DL

# ifndef dlfcn_h

#  include <dlfcn.h>

#  define dlfcn_h

# endif

#endif

#ifdef GNU_DL

#  ifndef dld_h

#   include "dld.h"

#   define dld_h

#  endif

#endif

#ifdef DL1_6

#  ifndef dl_h

#   include "dl.h"

#   define dl_h

#  endif

#endif

#ifdef AIX_DL

# include <nlist.h>

# include <sys/ldr.h>

# include <errno.h>

#endif

#ifdef HPUX10_DL

# ifndef dl_h

#  include <dl.h>

#  define dl_h

# endif

# include <errno.h>

#endif

#ifdef BEOS_DL

# include <be/kernel/image.h>

#endif

#ifdef WIN_DL

# undef INT

# undef Array

# undef Number

# undef Method

# undef Block

# undef Time

# undef Date

# undef Set

# undef Delay

# undef Signal

# undef Context

# undef Message

# undef Process

# undef Processor

# undef Rectangle

# ifdef __i386__

#  ifndef _X86_

#   define _X86_

#  endif

# endif

# ifdef __BORLANDC__

#  define NOATOM

#  define NOUSER

#  define NOGDI

#  define NOGDICAPMASKS

#  define NOMETAFILE

#  define NOMINMAX

#  define NOMSG

#  define NOOPENFILE

#  define NORASTEROPS

#  define NOSCROLL

#  define NOSOUND

#  define NOSYSMETRICS

#  define NOTEXTMETRIC

#  define NOWH

#  define NOCOMM

#  define NOKANJI

#  define NOCRYPT

#  define NOMCX

#  define WIN32_LEAN_AND_MEAN

#  include <windows.h>

// #  include <windef.h>

// #  include <winbase.h>

# else

#  ifdef __VISUALC__

// #  include <windows.h>

#   include <windef.h>

#   include <winbase.h>

#  else

#   include <windows.h>

#  endif

# endif /* BORLANDC */

# ifdef __DEF_Array

#  define Array __DEF_Array

# endif

# ifdef __DEF_Number

#  define Number __DEF_Number

# endif

# ifdef __DEF_Method

#  define Method __DEF_Method

# endif

# ifdef __DEF_Block

#  define Block __DEF_Block

# endif

# ifdef __DEF_Time

#  define Time __DEF_Time

# endif

# ifdef __DEF_Date

#  define Date __DEF_Date

# endif

# ifdef __DEF_Set

#  define Set __DEF_Set

# endif

# ifdef __DEF_Signal

#  define Signal __DEF_Signal

# endif

# ifdef __DEF_Delay

#  define Delay __DEF_Delay

# endif

# ifdef __DEF_Context

#  define Context __DEF_Context

# endif

# ifdef __DEF_Message

#  define Message __DEF_Message

# endif

# ifdef __DEF_Process

#  define Process __DEF_Process

# endif

# ifdef __DEF_Processor

#  define Processor __DEF_Processor

# endif

# ifdef __DEF_Rectangle

#  define Rectangle __DEF_Rectangle

# endif

# define INT int

#endif /* WIN_DL */

%}

! !

!ObjectFileLoader class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1993 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    This class knowns how to dynamically load in external object-modules.

    WARNING:

      As to date, this is still experimental and WITHOUT ANY WARRANTY.

      It is still being developed and the code may need some cleanup and more

      robustness.

    There are basically two totally different mechanisms to do this:

	a) if there exists some dynamic-link facility such as:

	   GNU-DL, dlopen (sparc, SYS5.4), rld_open (NeXT),

	   or LoadLibrary (Win32), this is used

	b) if no such facility exists, the normal linker is used to

	   link the module to text/data address as previously malloced,

	   and the object file loaded into that space.

    Currently, not all mechanisms work fully satisfying.

    For example, the sun dl*-functions do an exit on link-errors (which

    is certainly not what we want here :-(; the NeXT mechanism does not

    allow for selective unloading (only all or the last loaded module).

    The only really useful packages are the GNU-dl package,

    the SGI/Unixware/sys5.4/linux libdl packages and the win32 dll's.

    The GNU-dl package is only available for a.out file formats

    (which is more or less obsolete);

    For the above reasons, dynamic object loading is currently only

    officially released for SYS5.4-based, LINUX and win32 systems.

    Once stable, the functionality contained herein will be moved into

    the VM.

    (It is needed there, to allow reloading of objectfiles upon

     image restart; i.e. before any class is reinitialilized).

    Right now, reloading of object files is done by smalltalk code,

    which fails, if code is to be loaded which is required before the

    load takes place, or which is used by the loader itself.

    (i.e. for now, many primitives from libbasic cannot be dynamically

    loaded at image restart time).

    [author:]

	Claus Gittinger

"

! !

!ObjectFileLoader class methodsFor:'initialization'!

initialize

    |systemType libDir linkCommand linkArgs libPath searchedLibraries|

    Verbose := false.

    "/ Verbose := true.

    OperatingSystem isMSDOSlike ifTrue:[

	"/ default setup for msc

	ParserFlags useBorlandC ifTrue:[

	    libDir := '..\libbc'.

	    libDir asFilename exists ifFalse:[

		libDir := '..\lib\libbc'.

		libDir asFilename exists ifFalse:[

		    libDir := '..\lib'.

		]

	    ].

	    linkCommand isNil ifTrue:[

		"/ linkCommand := 'tlink32'.

		linkCommand := 'ilink32'.

	    ].

	    linkArgs isNil ifTrue:[

		"/ linkArgs := '-L',libDir,' -L\Programme\Borland\CBuilder3\lib -c -ap -Tpd -s -Gi -v -w-dup ',libDir,'\librun.lib'.

		linkArgs := '-L',libDir,' -L\Programme\Borland\CBuilder3\lib -r -c -ap -Tpd -Gi -w-dup'.

	    ].

	    searchedLibraries := #(

				    'import32.lib'

				  ).

	] ifFalse:[

	    linkCommand isNil ifTrue:[

		linkCommand := 'link'

	    ].

	    linkArgs isNil ifTrue:[

		linkArgs := '/NOPACK /NOLOGO /DEBUG /MACHINE:I386 /DLL /OUT:%1.dll /DEF:%1.def'

	    ].

	].

    ].

    MySymbolTable isNil ifTrue:[

	NextHandleID := 1.

	ObjectMemory addDependent:self.

	OperatingSystem isMSDOSlike ifTrue:[

	    searchedLibraries := #(

				    'import32.lib'

				  ).

	].

	OperatingSystem isUNIXlike ifTrue:[

	    |ldLibraryPath|

	    systemType := OperatingSystem getOSType.

	    "/ name of object file, where initial symbol table is found

	    "/ not req'd for all architectures.

	    MySymbolTable := 'stx'.

	    searchedLibraries := #().

	    "/ default libraryPath where shared objects are expected

	    "/ when a sharedObject load requires other objects to be loaded.

	    "/ For more compatibility with ELF systems, look for a shell variable

	    "/ named LD_LIBRARY_PATH, and - if present - take that instead if a default.

	    "/ Can (should) be set in the smalltalk.rc file.

	    ldLibraryPath := OperatingSystem getEnvironment:'LD_LIBRARY_PATH'.

	    ldLibraryPath isEmptyOrNil ifTrue:[

		libPath := '.:lib:/usr/local/smalltalk/lib:/usr/local/lib:/usr/lib:/lib'.

	    ] ifFalse:[

		"/ only needed for AIX - the dynamic linker of other Unixes use LD_LIBRARY_PATH implicitly

		systemType = #aix ifTrue:[

		    libPath := ldLibraryPath.

		].

	    ]

	]

    ].

    ParserFlags linkCommand:linkCommand.

    ParserFlags linkArgs:linkArgs.

    ParserFlags libPath:libPath ? ''.

    ParserFlags searchedLibraries:searchedLibraries.

    "

     LinkArgs := LinkCommand := nil.

     ObjectFileLoader initialize

    "

    "Modified: / 07-10-2011 / 13:22:43 / cg"

!

lastError

    ^ LastError ? 'unknown error'

    "Modified: / 30.9.1998 / 17:21:23 / cg"

!

libPath

    "see comment in #libPath:"

    ^ ParserFlags libPath

!

libPath:aSharedLibraryPath

    "set the pathnames of directories, where other shared objects

     are searched, in case a loaded module requires another module shared

     library object to be loaded.

     Currently, this is only required to be set for AIX systems;

     ELF based linux and solaris systems specify the libPath in the

     LD_LIBRARY_PATH environment variable."

    ParserFlags libPath:aSharedLibraryPath

    "

     ObjectFileLoader libPath:'.:/usr/lib:/usr/local/lib'

    "

!

linkErrorMessage

    ^ LinkErrorMessage

!

searchedLibraries

    "see comment in #searchedLibraries:"

    ^ ParserFlags searchedLibraries

!

searchedLibraries:aCollectionOfArchivePathNames

    "set the pathnames of archives which are to be searched

     when unresolved references occur while loading in an object

     file. On systems which support shared libraries (all SYS5.4 based

     systems), this is usually not required. Instead, modules which are to

     be filed in (.so files) are to be prelinked with the appropriate

     shared libraries. The dynamic loader then cares about loading those

     modules (keeping track of which modules are already loaded).

     Only systems in which the dynamic load is done 'manually' by st/x

     (i.e. currently only linux and a.out-sunos) need to set this."

    ParserFlags searchedLibraries:aCollectionOfArchivePathNames

!

verbose

    "return true, if debug traces are turned on"

    ^ Verbose

!

verbose:aBoolean

    "turn on/off debug traces"

    Verbose := aBoolean

    "ObjectFileLoader verbose:true"

! !

!ObjectFileLoader class methodsFor:'change & update'!

update:something with:aParameter from:changedObject

    "sent, when image is saved or restarted"

    (something == #aboutToSnapshot) ifTrue:[

	self invalidateAndRememberAllObjectFiles

    ].

    (something == #finishedSnapshot) ifTrue:[

	self revalidateAllObjectFiles

    ].

"/    (something == #restarted) ifTrue:[

"/        self reloadAllRememberedObjectFiles

"/    ].

    "Modified: 5.10.1995 / 15:49:14 / claus"

    "Modified: 8.3.1996 / 23:34:29 / cg"

    "Created: 21.6.1996 / 19:50:01 / cg"

! !

!ObjectFileLoader class methodsFor:'defaults'!

hasValidBinaryExtension:aFilename

    "return true, if aFilename looks ok for binary loading.

     This checks only the extension - not its contents.

     (So an attempt to load the file may fail due to format errors or unresolved symbols)

     This is very machine specific."

    |suffix|

    suffix := aFilename asFilename suffix.

    ^ self validBinaryExtensions includes:suffix.

"/    |fn|

"/

"/    fn := aFilename asFilename.

"/    self validBinaryExtensions do:[:ext |

"/        (fn hasSuffix:ext) ifTrue:[^ true].

"/    ].