1/* -*- mode: C; coding: macintosh; -*- */
2
3#ifndef OSXMACTCL_H
4#define OSXMACTCL_H
5#pragma once
6
7#ifdef __cplusplus
8extern "C" {
9#endif
10
11#if TARGET_RT_MAC_MACHO
12
13OSErr FSpLocationFromPath (int length, CONST84 char *path, FSRefPtr fileRefPtr);
14
15OSErr FSpPathFromLocation (FSRefPtr fsrefP, int* length, Handle *fullPath);
16
17/* CFString to external DString */
18int CFStringToExternalDString(Tcl_Interp * interp, CFStringRef strRef, Tcl_DString * dsPtr);
19
20/* CFString to DString */
21int CFStringToUtfDString(Tcl_Interp * interp, CFStringRef strRef, Tcl_DString * dsPtr);
22
23/* decomposed utf8 buffer to external DString */
24int DUtfToExternalDString(Tcl_Interp * interp, CONST84 char * src, int length, Tcl_DString * dsPtr);
25
26/* decomposed utf8 buffer to DString */
27int DUtfToUtfDString(Tcl_Interp * interp, CONST84 char * src, int length, Tcl_DString * dsPtr);
28
29/* external buffer to decomposed utf8 DString */
30int ExternalToDUtfDString(Tcl_Interp * interp, CONST84 char * src, int length, Tcl_DString * dsPtr);
31
32/* utf8 buffer to decomposed utf8 DString */
33int UtfToDUtfDString(Tcl_Interp * interp, CONST84 char * src, int length, Tcl_DString * dsPtr);
34
35/* CFStringRef to decomposed Unicode Tcl_Obj */
36Tcl_Obj * CFStringToTclObj(CFStringRef strRef);
37
38/* Unicode Tcl_Obj * to CFStringRef */
39CFStringRef TclObjToCFString(Tcl_Obj * inObj);
40
41#endif
42
43#ifdef __cplusplus
44}
45#endif
46
47#endif
48