57 lines
1.4 KiB
C
57 lines
1.4 KiB
C
/*
|
||
* tkMacProlog.c --
|
||
*
|
||
* Implements a method on the Macintosh to get the prolog
|
||
* from the resource fork of our application (or the shared
|
||
* library).
|
||
*
|
||
* 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: @(#) tkMacProlog.c 1.3 96/10/03 14:33:42
|
||
*/
|
||
|
||
#include "tkInt.h"
|
||
#include "tclMacInt.h"
|
||
#include <Resources.h>
|
||
|
||
/*
|
||
*--------------------------------------------------------------
|
||
*
|
||
* TkGetNativeProlog --
|
||
*
|
||
* Locate and load the postscript prolog from the resource
|
||
* fork of the application. If it can't be found then we
|
||
* will try looking for the file in the system folder.
|
||
*
|
||
* Results:
|
||
* A standard Tcl Result. If everything is OK the prolog
|
||
* will be located in the result string of the interpreter.
|
||
*
|
||
* Side effects:
|
||
* None.
|
||
*
|
||
*--------------------------------------------------------------
|
||
*/
|
||
|
||
int
|
||
TkGetNativeProlog(
|
||
Tcl_Interp *interp) /* Places the prolog in the result. */
|
||
{
|
||
Handle resource;
|
||
char *stringPtr;
|
||
|
||
resource = TclMacFindResource(interp, "TEXT", "prolog", -1, NULL);
|
||
|
||
if (resource != NULL) {
|
||
stringPtr = TclMacConvertTextResource(resource);
|
||
Tcl_SetResult(interp, stringPtr, TCL_DYNAMIC);
|
||
ReleaseResource(resource);
|
||
return TCL_OK;
|
||
} else {
|
||
return TkGetProlog(interp);
|
||
}
|
||
}
|