[Tclresource-commits] Source tclResource.c,NONE,1.1 tclResource.exp,NONE,1.1 tclResource.h,NONE,1.1 tclResource.mcp.xml,1.4,1.5

[Bernard D. <bde...@us...>]

Update of /cvsroot/tclresource/Source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28325

Added Files:
	tclResource.c tclResource.exp tclResource.h 
	tclResource.mcp.xml 
Log Message:
Reorg for TEA

--- NEW FILE: tclResource.mcp.xml ---
<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
<?codewarrior exportversion="1.0.1" ideversion="5.0" ?>

<!DOCTYPE PROJECT [
<!ELEMENT PROJECT (TARGETLIST, TARGETORDER, GROUPLIST, DESIGNLIST?)>
<!ELEMENT TARGETLIST (TARGET+)>
<!ELEMENT TARGET (NAME, SETTINGLIST, FILELIST?, LINKORDER?, SEGMENTLIST?, OVERLAYGROUPLIST?, SUBTARGETLIST?, SUBPROJECTLIST?, FRAMEWORKLIST?, PACKAGEACTIONSLIST?)>
<!ELEMENT NAME (#PCDATA)>
<!ELEMENT USERSOURCETREETYPE (#PCDATA)>
<!ELEMENT PATH (#PCDATA)>
<!ELEMENT FILELIST (FILE*)>
<!ELEMENT FILE (PATHTYPE, PATHROOT?, ACCESSPATH?, PATH, PATHFORMAT?, ROOTFILEREF?, FILEKIND?, FILEFLAGS?)>
<!ELEMENT PATHTYPE (#PCDATA)>
<!ELEMENT PATHROOT (#PCDATA)>
<!ELEMENT ACCESSPATH (#PCDATA)>
<!ELEMENT PATHFORMAT (#PCDATA)>
<!ELEMENT ROOTFILEREF (PATHTYPE, PATHROOT?, ACCESSPATH?, PATH, PATHFORMAT?)>
<!ELEMENT FILEKIND (#PCDATA)>
<!ELEMENT FILEFLAGS (#PCDATA)>
[...2371 lines suppressed...]
        </GROUP>
        <GROUP><NAME>Sources</NAME>
            <FILEREF>
                <TARGETNAME>TclResource Debug</TARGETNAME>
                <PATHTYPE>Name</PATHTYPE>
                <PATH>tclResource.c</PATH>
                <PATHFORMAT>Unix</PATHFORMAT>
            </FILEREF>
        </GROUP>
        <GROUP><NAME>Libraries</NAME>
            <FILEREF>
                <TARGETNAME>TclResource Debug</TARGETNAME>
                <PATHTYPE>Name</PATHTYPE>
                <PATH>dylib1.o</PATH>
                <PATHFORMAT>MacOS</PATHFORMAT>
            </FILEREF>
        </GROUP>
    </GROUPLIST>

</PROJECT>

--- NEW FILE: tclResource.c ---
// -------------------------------------------------------
// File: "tclResource.c"
//                        Created: 2003-09-20 10:13:07
//              Last modification: 2006-01-05 09:23:29
// Author: Bernard Desgraupes
// e-mail: <bde...@us...>
// (c) Copyright : Bernard Desgraupes, 2003-2006
// All rights reserved.
// This software is free software with BSD licence.
// Versions history: see the Changes.Log file.
// 
// $Date: 2006/01/05 09:07:50 $
// -------------------------------------------------------

#include "tclResource_version.h"

#include <Carbon/Carbon.h>
#include <Tcl/tcl.h>
#include <Tcl/tclInt.h>
[...2633 lines suppressed...]
//
// ----------------------------------------------------------------------

static void
TclRes_UpdateStringOfOSType(
	register Tcl_Obj *objPtr)	// Int object whose string rep to update.
{
	char string[sizeof(OSType)+1];
	Tcl_DString ds;
	
	memcpy(string, &(objPtr->internalRep.longValue), sizeof(OSType));
	string[sizeof(OSType)] = '\0';
	Tcl_ExternalToUtfDString(NULL, string, -1, &ds);
	objPtr->bytes = ckalloc(Tcl_DStringLength(&ds) + 1);
	memcpy(objPtr->bytes, Tcl_DStringValue(&ds), Tcl_DStringLength(&ds) + 1);
	objPtr->length = Tcl_DStringLength(&ds);
	Tcl_DStringFree(&ds);
}



--- NEW FILE: tclResource.h ---
// -------------------------------------------------------
// File: "tclResource.h"
//                        Created: 2003-09-20 10:13:07
//              Last modification: 2005-12-27 17:12:12
// Author: Bernard Desgraupes
// e-mail: <bde...@us...>
// www: <http://sourceforge.net/projects/tclresource>
// (c) Copyright : Bernard Desgraupes, 2003-2004, 2005
// All rights reserved.
// -------------------------------------------------------

#ifndef _TCLRESOURCE_H
#define _TCLRESOURCE_H

#define TARGET_API_MAC_CARBON	1
#define TARGET_API_MAC_OSX		1

// Stubs mechanism enabled
#define USE_TCL_STUBS

#include <Carbon/Carbon.h>

struct SFReply {char dummy;};
typedef struct SFReply SFReply;
typedef struct SFReply StandardFileReply;


#if TARGET_RT_MAC_MACHO
	#ifdef MAC_TCL
		#undef MAC_TCL
	#endif
#endif

#include <Tcl/tcl.h>
#include <Tcl/tclInt.h>

#ifndef CONST84 // Tcl 8.4 backwards compatibility
#      define CONST84 
#      define CONST84_RETURN CONST
#endif


#endif // _TCLRESOURCE_H

--- NEW FILE: tclResource.exp ---
_Resource_Init