1#ifndef OSXMACTCL_H 2#define OSXMACTCL_H 3#pragma once 4 5#if TARGET_RT_MAC_MACHO 6 7int Tcl_BeepObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST84 objv[]); 8 9OSErr FSpLocationFromPath (int length, CONST84 char *path, FSSpecPtr fileSpecPtr); 10 11OSErr FSpPathFromLocation (FSSpecPtr spec, int* length, Handle *fullPath); 12 13/* CFString to external DString */ 14int CFStringToExternalDString(Tcl_Interp * interp, CFStringRef strRef, Tcl_DString * dsPtr); 15 16/* CFString to DString */ 17int CFStringToUtfDString(Tcl_Interp * interp, CFStringRef strRef, Tcl_DString * dsPtr); 18 19/* decomposed utf8 buffer to external DString */ 20int DUtfToExternalDString(Tcl_Interp * interp, CONST84 char * src, int length, Tcl_DString * dsPtr); 21 22/* decomposed utf8 buffer to DString */ 23int DUtfToUtfDString(Tcl_Interp * interp, CONST84 char * src, int length, Tcl_DString * dsPtr); 24 25/* external buffer to decomposed utf8 DString */ 26int ExternalToDUtfDString(Tcl_Interp * interp, CONST84 char * src, int length, Tcl_DString * dsPtr); 27 28/* utf8 buffer to decomposed utf8 DString */ 29int UtfToDUtfDString(Tcl_Interp * interp, CONST84 char * src, int length, Tcl_DString * dsPtr); 30 31#endif 32 33#endif 34