[naviserver-commits] naviserver/tcl compat.tcl,1.7,1.8

[Stephen D. <sd...@us...>]

Update of /cvsroot/naviserver/naviserver/tcl
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv25958/tcl

Modified Files:
	compat.tcl 
Log Message:
	* nsd/adpcmds.c:
	* nsd/tclcmds.c:
	* tcl/compat.tcl: Add a couple of missing ADP commands (ns_adp_close,
	ns_adp_flush) to the list. Remove a couple of deprecated commands
	(ns_adp_stream, ns_adp_compress) and add Tcl implementations to
	compat.tcl. Clean up the arg parsing of the ADP commands in adpcmds.c.


Index: compat.tcl
===================================================================
RCS file: /cvsroot/naviserver/naviserver/tcl/compat.tcl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** compat.tcl	10 Sep 2006 03:25:22 -0000	1.7
--- compat.tcl	28 Jun 2007 19:01:01 -0000	1.8
***************
*** 314,317 ****
--- 314,340 ----
  #
  
+ #
+ # ns_adp_compress --
+ #
+ #   See: ns_adp_ctl.
+ #
+ 
+ proc ns_adp_compress {{bool 1}} {
+ 	ns_adp_ctl gzip $bool
+ 	return ""
+ }
+ 
+ #
+ # ns_adp_stream --
+ #
+ #   See: ns_adp_ctl, ns_adp_flush.
+ #
+ 
+ proc ns_adp_stream {{bool 1}} {
+ 	ns_adp_ctl stream $bool
+ 	ns_adp_flush
+ }
+ 
+ 
  # EOF $RCSfile$