482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
|
* None.
*
*----------------------------------------------------------------------
*/
int
TclGuessPackageName(
const char *fileName, /* Name of file containing package (already
* translated to local form if needed). */
Tcl_DString *bufPtr) /* Initialized empty dstring. Append package
* name to this if possible. */
{
(void)fileName;
(void)bufPtr;
|
<
<
<
<
<
|
|
|
|
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
|
* None.
*
*----------------------------------------------------------------------
*/
int
TclGuessPackageName(
TCL_UNUSED(const char *) /*fileName*/,
TCL_UNUSED(Tcl_DString *) /*bufPtr*/)
{
return 0;
}
/*
*----------------------------------------------------------------------
*
* TclpLoadMemoryGetBuffer --
|
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
|
*
*----------------------------------------------------------------------
*/
#ifdef TCL_LOAD_FROM_MEMORY
MODULE_SCOPE void *
TclpLoadMemoryGetBuffer(
Tcl_Interp *dummy, /* Used for error reporting. */
int size) /* Size of desired buffer. */
{
void *buffer = NULL;
(void)dummy;
|
|
<
|
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
|
*
*----------------------------------------------------------------------
*/
#ifdef TCL_LOAD_FROM_MEMORY
MODULE_SCOPE void *
TclpLoadMemoryGetBuffer(
TCL_UNUSED(Tcl_Interp *),
int size) /* Size of desired buffer. */
{
void *buffer = NULL;
/*
* NSCreateObjectFileImageFromMemory is available but always fails
* prior to Darwin 7.
*/
if (tclMacOSXDarwinRelease >= 7) {
/*
|