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
|
/*
* tclIntPlatStubs.c --
*
* This file contains the wrapper functions for the platform dependent
* unsupported Tcl API.
*
* Copyright (c) 1998-1999 by Scriptics Corporation.
* All rights reserved.
*
* RCS: @(#) $Id: tclIntPlatStubs.c,v 1.1 1999/03/03 00:38:41 stanton Exp $
*/
#include "tclInt.h"
#include "tclPort.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:
*/
#ifdef __WIN32__
/* Slot 0 */
void
TclWinConvertError(errCode)
DWORD errCode;
{
(tclIntPlatStubsPtr->tclWinConvertError)(errCode);
}
/* Slot 1 */
void
TclWinConvertWSAError(errCode)
DWORD errCode;
{
(tclIntPlatStubsPtr->tclWinConvertWSAError)(errCode);
}
/* Slot 2 */
struct servent *
TclWinGetServByName(nm, proto)
const char * nm;
const char * proto;
{
return (tclIntPlatStubsPtr->tclWinGetServByName)(nm, proto);
}
/* Slot 3 */
int
TclWinGetSockOpt(s, level, optname, optval, optlen)
SOCKET s;
int level;
int optname;
char FAR * optval;
int FAR * optlen;
{
return (tclIntPlatStubsPtr->tclWinGetSockOpt)(s, level, optname, optval, optlen);
}
/* Slot 4 */
HINSTANCE
TclWinGetTclInstance()
{
return (tclIntPlatStubsPtr->tclWinGetTclInstance)();
}
/* Slot 5 */
HINSTANCE
TclWinLoadLibrary(name)
char * name;
{
return (tclIntPlatStubsPtr->tclWinLoadLibrary)(name);
}
/* Slot 6 */
u_short
TclWinNToHS(ns)
u_short ns;
{
return (tclIntPlatStubsPtr->tclWinNToHS)(ns);
}
/* Slot 7 */
int
TclWinSetSockOpt(s, level, optname, optval, optlen)
SOCKET s;
int level;
int optname;
const char FAR * optval;
int optlen;
{
return (tclIntPlatStubsPtr->tclWinSetSockOpt)(s, level, optname, optval, optlen);
}
#endif /* __WIN32__ */
#ifdef MAC_TCL
/* Slot 0 */
int
TclpCheckStackSpace()
{
return (tclIntPlatStubsPtr->tclpCheckStackSpace)();
}
/* Slot 1 */
VOID *
TclpSysAlloc(size, isBin)
long size;
int isBin;
{
return (tclIntPlatStubsPtr->tclpSysAlloc)(size, isBin);
}
/* Slot 2 */
void
TclpSysFree(ptr)
VOID * ptr;
{
(tclIntPlatStubsPtr->tclpSysFree)(ptr);
}
/* Slot 3 */
VOID *
TclpSysRealloc(cp, size)
VOID * cp;
unsigned int size;
{
return (tclIntPlatStubsPtr->tclpSysRealloc)(cp, size);
}
/* Slot 4 */
void
TclPlatformExit(status)
int status;
{
(tclIntPlatStubsPtr->tclPlatformExit)(status);
}
#endif /* MAC_TCL */
/* !END!: Do not edit above this line. */
|
