]> cvs.zerfleddert.de Git - micropolis/blob - src/tk/tktcp.h
fix 15 bit mode
[micropolis] / src / tk / tktcp.h
1 /* tkTCP.h --
2 *
3 * This file provides declarations needed by the TCP server
4 * implementation for Tcl interpreters.
5 *
6 * $Header: /cluster21/kennykb/src/tclTCP.1.0beta/RCS/tclTCP.h,v 1.1 1992/02/14 19:57:51 kennykb Exp $
7 * $Source: /cluster21/kennykb/src/tclTCP.1.0beta/RCS/tclTCP.h,v $
8 * $Log: tclTCP.h,v $
9 * Revision 1.1 1992/02/14 19:57:51 kennykb
10 * Initial revision
11 *
12 *
13 *
14 * Copyright (C) 1992 General Electric.
15 * All rights reserved.
16 *
17 *
18 * Permission to use, copy, modify, and distribute this
19 * software and its documentation for any purpose and without
20 * fee is hereby granted, provided that the above copyright
21 * notice appear in all copies and that both that copyright
22 * notice and this permission notice appear in supporting
23 * documentation, and that the name of General Electric not be used in
24 * advertising or publicity pertaining to distribution of the
25 * software without specific, written prior permission.
26 * General Electric makes no representations about the suitability of
27 * this software for any purpose. It is provided "as is"
28 * without express or implied warranty.
29 *
30 * This work was supported by the DARPA Initiative in Concurrent
31 * Engineering (DICE) through DARPA Contract MDA972-88-C-0047.
32 *
33 */
34
35 #ifndef _TCLTCP
36 #define _TCLTCP 1
37
38 #ifndef _TCL
39 #include "tcl.h"
40 #endif
41
42 /* Definitions of the functions */
43
44 EXTERN int tcpCommand _ANSI_ARGS_((ClientData clientData,
45 Tcl_Interp * interp,
46 int argc,
47 char * * argv));
48
49 extern void simpleCreateFileHandler _ANSI_ARGS_((int fd,
50 int mask,
51 Tk_FileProc * proc,
52 ClientData clientData));
53
54 extern void simpleDeleteFileHandler _ANSI_ARGS_((int fd));
55
56 extern void simpleReportBackgroundError _ANSI_ARGS_((Tcl_Interp * interp));
57
58 #endif /* _TCLTCP */
Impressum, Datenschutz