Commit579f8f0

Jan Wieck

authored and

Jan Wieck

committed

Added pg_execute command behaving like spi_exec of PL/Tcl

Made pg_lo_read and pg_lo_write binary data safe when libpgtclis compiled against Tcl version 8.0 or higher.Jan

1 parent230cf8d commit579f8f0Copy full SHA for 579f8f0

File tree

3 files changed

+418

-3

lines changed

src/interfaces/libpgtcl

3 files changed

+418

-3

lines changed

`‎src/interfaces/libpgtcl/pgtcl.c`

Lines changed: 18 additions & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -10,7 +10,7 @@`
`10`	`10`	`*`
`11`	`11`	`*`
`12`	`12`	`* IDENTIFICATION`
`13`		`- * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtcl.c,v 1.17 2000/01/26 05:58:43 momjian Exp $`
	`13`	`+ * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtcl.c,v 1.18 2000/11/27 13:29:32 wieck Exp $`
`14`	`14`	`*`
`15`	`15`	`*-------------------------------------------------------------------------`
`16`	`16`	`*/`
`@@ -70,6 +70,11 @@ Pgtcl_Init(Tcl_Interp *interp)`
`70`	`70`	`Pg_result,`
`71`	`71`	`(ClientData)NULL, (Tcl_CmdDeleteProc*)NULL);`
`72`	`72`
	`73`	`+Tcl_CreateCommand(interp,`
	`74`	`+"pg_execute",`
	`75`	`+Pg_execute,`
	`76`	`+ (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL);`
	`77`	`+`
`73`	`78`	`Tcl_CreateCommand(interp,`
`74`	`79`	`"pg_lo_open",`
`75`	`80`	`Pg_lo_open,`
`@@ -80,6 +85,17 @@ Pgtcl_Init(Tcl_Interp *interp)`
`80`	`85`	`Pg_lo_close,`
`81`	`86`	`(ClientData)NULL, (Tcl_CmdDeleteProc*)NULL);`
`82`	`87`
	`88`	`+#ifdefPGTCL_USE_TCLOBJ`
	`89`	`+Tcl_CreateObjCommand(interp,`
	`90`	`+"pg_lo_read",`
	`91`	`+Pg_lo_read,`
	`92`	`+ (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL);`
	`93`	`+`
	`94`	`+Tcl_CreateObjCommand(interp,`
	`95`	`+"pg_lo_write",`
	`96`	`+Pg_lo_write,`
	`97`	`+ (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL);`
	`98`	`+#else`
`83`	`99`	`Tcl_CreateCommand(interp,`
`84`	`100`	`"pg_lo_read",`
`85`	`101`	`Pg_lo_read,`
`@@ -89,6 +105,7 @@ Pgtcl_Init(Tcl_Interp *interp)`
`89`	`105`	`"pg_lo_write",`
`90`	`106`	`Pg_lo_write,`
`91`	`107`	`(ClientData)NULL, (Tcl_CmdDeleteProc*)NULL);`
	`108`	`+#endif`
`92`	`109`
`93`	`110`	`Tcl_CreateCommand(interp,`
`94`	`111`	`"pg_lo_lseek",`

0 commit comments

Comments

(0)

Movatterモバイル変換

Navigation Menu

Search code, repositories, users, issues, pull requests...

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Uh oh!

Commit579f8f0

File tree

3 files changed

3 files changed

`‎src/interfaces/libpgtcl/pgtcl.c`

0 commit comments