开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 通讯编程 > 查看源码
otcl.h
资源名称：ns-allinone-2.33.tar.gz　[点击查看]
上传用户：rrhhcc
上传日期：2015-12-11
资源大小：54129k
文件大小：3k
源码类别：

通讯编程

开发平台：

Visual C++

otcl.h：源码内容
  1. /* -*- Mode: c++ -*-
  2.  *
  3.  *  $Id: otcl.h,v 1.5 2003/10/12 21:35:00 xuanc Exp $
  4.  *  
  5.  *  Copyright 1993 Massachusetts Institute of Technology
  6.  * 
  7.  *  Permission to use, copy, modify, distribute, and sell this software and its
  8.  *  documentation for any purpose is hereby granted without fee, provided that
  9.  *  the above copyright notice appear in all copies and that both that
  10.  *  copyright notice and this permission notice appear in supporting
  11.  *  documentation, and that the name of M.I.T. not be used in advertising or
  12.  *  publicity pertaining to distribution of the software without specific,
  13.  *  written prior permission.  M.I.T. makes no representations about the
  14.  *  suitability of this software for any purpose.  It is provided "as is"
  15.  *  without express or implied warranty.
  16.  * 
  17.  */
  19. #ifndef _otcl_h_
  20. #define _otcl_h_
  22. #include <tcl.h>
  24. /* compatible char definition for versions < 8.4 */
  25. /* NOTE: tcl8.3.2 defines CONST, but used it in other places...? */
  26. #if TCL_MAJOR_VERSION < 8 || TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION < 4
  27.   #define CONST84
  28.   #define CONST84_RETURN
  29. #endif
  31. struct OTclObject;
  32. struct OTclClass;
  34. extern struct OTclObject*
  35. OTclAsObject(Tcl_Interp* in, ClientData cd);
  37. extern struct OTclClass*
  38. OTclAsClass(Tcl_Interp* in, ClientData cd);
  40. extern struct OTclObject*
  41. OTclGetObject(Tcl_Interp* in, CONST84 char* name);
  43. extern struct OTclClass*
  44. OTclGetClass(Tcl_Interp* in, CONST84 char* name);
  46. extern struct OTclObject*
  47. OTclCreateObject(Tcl_Interp* in, CONST84 char* name, struct OTclClass* cl);
  49. extern struct OTclClass*
  50. OTclCreateClass(Tcl_Interp* in, CONST84 char* name, struct OTclClass* cl);
  52. extern int
  53. OTclDeleteObject(Tcl_Interp* in, struct OTclObject* obj);
  55. extern int
  56. OTclDeleteClass(Tcl_Interp* in, struct OTclClass* cl);
  58. extern void
  59. OTclAddPMethod(struct OTclObject* obj, char* nm, Tcl_CmdProc* proc,
  60.        ClientData cd, Tcl_CmdDeleteProc* dp);
  62. extern void
  63. OTclAddIMethod(struct OTclClass* cl, char* nm, Tcl_CmdProc* proc,
  64.        ClientData cd, Tcl_CmdDeleteProc* dp);
  66. extern int
  67. OTclRemovePMethod(struct OTclObject* obj, char* nm);
  69. extern int
  70. OTclRemoveIMethod(struct OTclClass* cl, char* nm);
  72. extern int
  73. OTclNextMethod(struct OTclObject* obj, Tcl_Interp* in,
  74.        int argc, CONST84 char*argv[]);
  76. extern CONST84_RETURN char*
  77. OTclSetInstVar(struct OTclObject* obj, Tcl_Interp* in,
  78.        CONST84 char* name, CONST84 char* value, int flgs);
  80. extern CONST84_RETURN char*
  81. OTclGetInstVar(struct OTclObject* obj, Tcl_Interp* in,
  82.        CONST84 char* name, int flgs);
  84. extern int
  85. OTclUnsetInstVar(struct OTclObject* obj, Tcl_Interp* in,
  86.  CONST84 char* name, int flgs);
  88. extern int
  89. OTclOInstVarOne(struct OTclObject* obj, Tcl_Interp *in, char *frameName, 
  90. CONST84 char *varName, CONST84 char *localName, int flags);
  91.  
  92. extern void
  93. OTclSetObjectData(struct OTclObject* obj, struct OTclClass* cl,
  94.   ClientData data);
  96. extern int
  97. OTclGetObjectData(struct OTclObject* obj, struct OTclClass* cl,
  98.   ClientData* data);
  100. extern int
  101. OTclUnsetObjectData(struct OTclObject* obj, struct OTclClass* cl);
  103. extern int
  104. Otcl_Init(Tcl_Interp* in);
  106. #endif /* _otcl_h_ */