summaryrefslogtreecommitdiffstats
path: root/generic/tclPlatStubs.c
blob: 5e82128d2f8a64e43c1417c6b68353b91c75c779 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
/* 
 * tclPlatStubs.c --
 *
 *	This file contains the wrapper functions for the platform independent
 *	unsupported Tcl API.
 *
 * Copyright (c) 1998-1999 by Scriptics Corporation.
 * All rights reserved.
 *
 * RCS: @(#) $Id: tclPlatStubs.c,v 1.2 1999/03/04 01:01:59 stanton Exp $
 */

#include "tcl.h"

/*
 * WARNING: This file is automatically generated by the tools/genStubs.tcl
 * script.  Any modifications to the function declarations below should be made
 * in the generic/tclInt.decls script.
 */

/* !BEGIN!: Do not edit below this line. */

/*
 * Exported stub functions:
 */

#if !defined(__WIN32__) && !defined(MAC_TCL)
/* Slot 0 */
void
Tcl_CreateFileHandler(fd, mask, proc, clientData)
    int fd;
    int mask;
    Tcl_FileProc * proc;
    ClientData clientData;
{
    (tclPlatStubsPtr->tcl_CreateFileHandler)(fd, mask, proc, clientData);
}

/* Slot 1 */
void
Tcl_DeleteFileHandler(fd)
    int fd;
{
    (tclPlatStubsPtr->tcl_DeleteFileHandler)(fd);
}

/* Slot 2 */
int
Tcl_GetOpenFile(interp, string, write, checkUsage, filePtr)
    Tcl_Interp * interp;
    char * string;
    int write;
    int checkUsage;
    ClientData * filePtr;
{
    return (tclPlatStubsPtr->tcl_GetOpenFile)(interp, string, write, checkUsage, filePtr);
}

#endif /* UNIX */
#ifdef MAC_TCL
/* Slot 0 */
void
Tcl_MacSetEventProc(procPtr)
    Tcl_MacConvertEventPtr procPtr;
{
    (tclPlatStubsPtr->tcl_MacSetEventProc)(procPtr);
}

/* Slot 1 */
char *
Tcl_MacConvertTextResource(resource)
    Handle resource;
{
    return (tclPlatStubsPtr->tcl_MacConvertTextResource)(resource);
}

/* Slot 2 */
int
Tcl_MacEvalResource(interp, resourceName, resourceNumber, fileName)
    Tcl_Interp * interp;
    char * resourceName;
    int resourceNumber;
    char * fileName;
{
    return (tclPlatStubsPtr->tcl_MacEvalResource)(interp, resourceName, resourceNumber, fileName);
}

/* Slot 3 */
Handle
Tcl_MacFindResource(interp, resourceType, resourceName, resourceNumber, resFileRef, releaseIt)
    Tcl_Interp * interp;
    long resourceType;
    char * resourceName;
    int resourceNumber;
    char * resFileRef;
    int * releaseIt;
{
    return (tclPlatStubsPtr->tcl_MacFindResource)(interp, resourceType, resourceName, resourceNumber, resFileRef, releaseIt);
}

/* Slot 4 */
int
Tcl_GetOSTypeFromObj(interp, objPtr, osTypePtr)
    Tcl_Interp * interp;
    Tcl_Obj * objPtr;
    OSType * osTypePtr;
{
    return (tclPlatStubsPtr->tcl_GetOSTypeFromObj)(interp, objPtr, osTypePtr);
}

/* Slot 5 */
void
Tcl_SetOSTypeObj(objPtr, osType)
    Tcl_Obj * objPtr;
    OSType osType;
{
    (tclPlatStubsPtr->tcl_SetOSTypeObj)(objPtr, osType);
}

/* Slot 6 */
Tcl_Obj *
Tcl_NewOSTypeObj(osType)
    OSType osType;
{
    return (tclPlatStubsPtr->tcl_NewOSTypeObj)(osType);
}

/* Slot 7 */
int
strncasecmp(s1, s2, n)
    CONST char * s1;
    CONST char * s2;
    size_t n;
{
    return (tclPlatStubsPtr->strncasecmp)(s1, s2, n);
}

/* Slot 8 */
int
strcasecmp(s1, s2)
    CONST char * s1;
    CONST char * s2;
{
    return (tclPlatStubsPtr->strcasecmp)(s1, s2);
}

#endif /* MAC_TCL */

/* !END!: Do not edit above this line. */