archie/tcl7.6/mac/tclMacLibrary.c
2024-05-27 16:40:40 +02:00

190 lines
4.7 KiB
C
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/*
* tclMacLibrary.c --
*
* This file should be included in Tcl extensions that want to
* automatically oepn their resource forks when the code is linked.
* These routines should not be exported but should be compiled
* locally by each fragment. Many thanks to Jay Lieske
* <lieske@princeton.edu> who provide an initial version of this
* file.
*
* Copyright (c) 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: @(#) tclMacLibrary.c 1.2 96/09/11 21:08:15
*/
#include <CodeFragments.h>
#include <Errors.h>
#include <Resources.h>
#include "tclMacInt.h"
/*
* These function are not currently defined in any header file. The
* only place they should be used is in the Initialization and
* Termination entry points for a code fragment. The prototypes
* are included here to avoid compile errors.
*/
OSErr TclMacInitializeFragment _ANSI_ARGS_((
struct CFragInitBlock* initBlkPtr));
void TclMacTerminateFragment _ANSI_ARGS_((void));
/*
* Static functions in this file.
*/
static OSErr OpenLibraryResource _ANSI_ARGS_((
struct CFragInitBlock* initBlkPtr));
static void CloseLibraryResource _ANSI_ARGS_((void));
/*
* The refnum of the opened resource fork.
*/
static short ourResFile = kResFileNotOpened;
/*
*----------------------------------------------------------------------
*
* TclMacInitializeFragment --
*
* Called by MacOS CFM when the shared library is loaded. All this
* function really does is give Tcl a chance to open and register
* the resource fork of the library.
*
* Results:
* MacOS error code if loading should be canceled.
*
* Side effects:
* Opens the resource fork of the shared library file.
*
*----------------------------------------------------------------------
*/
OSErr
TclMacInitializeFragment(
struct CFragInitBlock* initBlkPtr) /* Pointer to our library. */
{
OSErr err = noErr;
#ifdef __MWERKS__
{
extern OSErr __initialize( CFragInitBlock* initBlkPtr);
err = __initialize(initBlkPtr);
}
#endif
if (err == noErr)
err = OpenLibraryResource( initBlkPtr);
return err;
}
/*
*----------------------------------------------------------------------
*
* TclMacTerminateFragment --
*
* Called by MacOS CFM when the shared library is unloaded.
*
* Results:
* None.
*
* Side effects:
* The resource fork of the code fragment is closed.
*
*----------------------------------------------------------------------
*/
void
TclMacTerminateFragment()
{
CloseLibraryResource();
#ifdef __MWERKS__
{
extern void __terminate(void);
__terminate();
}
#endif
}
/*
*----------------------------------------------------------------------
*
* OpenLibraryResource --
*
* This routine can be called by a MacOS fragment's initialiation
* function to open the resource fork of the file.
* Call it with the same data passed to the initialization function.
* If the fragment loading should fail if the resource fork can't
* be opened, then the initialization function can pass on this
* return value.
*
* Results:
* It returns noErr on success and a MacOS error code on failure.
*
* Side effects:
* The resource fork of the code fragment is opened read-only and
* is installed at the head of the resource chain.
*
*----------------------------------------------------------------------
*/
static OSErr
OpenLibraryResource(
struct CFragInitBlock* initBlkPtr)
{
FSSpec* fileSpec = NULL;
OSErr err = noErr;
if (initBlkPtr->fragLocator.where == kOnDiskFlat) {
fileSpec = initBlkPtr->fragLocator.u.onDisk.fileSpec;
} else if (initBlkPtr->fragLocator.where == kOnDiskSegmented) {
fileSpec = initBlkPtr->fragLocator.u.inSegs.fileSpec;
} else {
err = resFNotFound;
}
/*
* Open the resource fork for this library in read-only mode.
* This will make it the current res file, ahead of the
* application's own resources.
*/
if (fileSpec != NULL) {
ourResFile = FSpOpenResFile( fileSpec, fsRdPerm);
if (ourResFile == kResFileNotOpened) {
err = ResError();
}
}
return err;
}
/*
*----------------------------------------------------------------------
*
* CloseLibraryResource --
*
* This routine should be called by a MacOS fragment's termination
* function to close the resource fork of the file
* that was opened with OpenLibraryResource.
*
* Results:
* None.
*
* Side effects:
* The resource fork of the code fragment is closed.
*
*----------------------------------------------------------------------
*/
static void
CloseLibraryResource()
{
if (ourResFile != kResFileNotOpened) {
CloseResFile(ourResFile);
ourResFile = kResFileNotOpened;
}
}