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