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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > 查看源码
pgtclId.h
资源名称：postgresql-6.5.2.tar.gz　[点击查看]
上传用户：blenddy
上传日期：2007-01-07
资源大小：6495k
文件大小：2k
源码类别：

数据库系统

开发平台：

Unix_Linux

pgtclId.h：源码内容
  1. /*-------------------------------------------------------------------------
  2.  *
  3.  * pgtclId.h
  4.  *
  5.  * Contains Tcl "channel" interface routines, plus useful routines
  6.  * to convert between strings and pointers.  These are needed because
  7.  * everything in Tcl is a string, but in C, pointers to data structures
  8.  * are needed.
  9.  *
  10.  * Copyright (c) 1994, Regents of the University of California
  11.  *
  12.  * $Id: pgtclId.h,v 1.13 1999/05/30 15:22:34 tgl Exp $
  13.  *
  14.  *-------------------------------------------------------------------------
  15.  */
  17. extern void PgSetConnectionId(Tcl_Interp *interp, PGconn *conn);
  19. #if TCL_MAJOR_VERSION == 7 && TCL_MINOR_VERSION == 5
  20. /* Only Tcl 7.5 had drivers with this signature */
  21. #define DRIVER_DEL_PROTO ClientData cData, Tcl_Interp *interp, 
  22. Tcl_File inFile, Tcl_File outFile
  23. #define DRIVER_OUTPUT_PROTO ClientData cData, Tcl_File outFile, char *buf, 
  24. int bufSize, int *errorCodePtr
  25. #define DRIVER_INPUT_PROTO ClientData cData, Tcl_File inFile, char *buf, 
  26. int bufSize, int *errorCodePtr
  27. #else
  28. /* Tcl 7.6 and beyond use this signature */
  29. #define DRIVER_OUTPUT_PROTO ClientData cData, char *buf, int bufSize, 
  30. int *errorCodePtr
  31. #define DRIVER_INPUT_PROTO ClientData cData, char *buf, int bufSize, 
  32. int *errorCodePtr
  33. #define DRIVER_DEL_PROTO ClientData cData, Tcl_Interp *interp
  34. #endif
  36. extern PGconn *PgGetConnectionId(Tcl_Interp *interp, char *id,
  37.   Pg_ConnectionId **);
  38. extern int PgDelConnectionId(DRIVER_DEL_PROTO);
  39. extern int PgOutputProc(DRIVER_OUTPUT_PROTO);
  40. extern int PgInputProc(DRIVER_INPUT_PROTO);
  41. extern int PgSetResultId(Tcl_Interp *interp, char *connid, PGresult *res);
  42. extern PGresult *PgGetResultId(Tcl_Interp *interp, char *id);
  43. extern void PgDelResultId(Tcl_Interp *interp, char *id);
  44. extern int PgGetConnByResultId(Tcl_Interp *interp, char *resid);
  45. extern void PgStartNotifyEventSource(Pg_ConnectionId *connid);
  46. extern void PgStopNotifyEventSource(Pg_ConnectionId *connid);
  47. extern void PgNotifyTransferEvents(Pg_ConnectionId *connid);
  48. extern void PgNotifyInterpDelete(ClientData clientData, Tcl_Interp *interp);
  50. /* GetFileProc is needed in Tcl 7.6 *only* ... it went away again in 8.0 */
  51. #if TCL_MAJOR_VERSION == 7 && TCL_MINOR_VERSION >= 6
  52. #define HAVE_TCL_GETFILEPROC 1
  53. #else
  54. #define HAVE_TCL_GETFILEPROC 0
  55. #endif
  57. #if HAVE_TCL_GETFILEPROC
  58. extern Tcl_File PgGetFileProc(ClientData cData, int direction);
  60. #endif
  62. extern Tcl_ChannelType Pg_ConnType;