summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2012-06-06 09:30:31 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2012-06-06 09:30:31 (GMT)
commitdd548295cad0d0d2a8171953d79a2380efdd7244 (patch)
treeaa7093755f0ba65facd87c9b2006fe9261c99afb /generic
parentdc3657b1b7d4d243084c3d11d2ddf5ff47135ebc (diff)
downloadtcl-dd548295cad0d0d2a8171953d79a2380efdd7244.zip
tcl-dd548295cad0d0d2a8171953d79a2380efdd7244.tar.gz
tcl-dd548295cad0d0d2a8171953d79a2380efdd7244.tar.bz2
more tests, more failures, more docs
Diffstat (limited to 'generic')
-rw-r--r--generic/tclZlib.c15
1 files changed, 13 insertions, 2 deletions
diff --git a/generic/tclZlib.c b/generic/tclZlib.c
index 333c2fa..22ab061 100644
--- a/generic/tclZlib.c
+++ b/generic/tclZlib.c
@@ -2350,10 +2350,10 @@ ZlibStreamCmd(
zs_fullflush, zs_get, zs_header, zs_put, zs_reset
};
static const char *const add_options[] = {
- "-buffer", "-finalize", "-flush", "-fullflush", NULL
+ "-buffer", "-dictionary", "-finalize", "-flush", "-fullflush", NULL
};
enum addOptions {
- ao_buffer, ao_finalize, ao_flush, ao_fullflush
+ ao_buffer, ao_dictionary, ao_finalize, ao_flush, ao_fullflush
};
if (objc < 2) {
@@ -2415,6 +2415,12 @@ ZlibStreamCmd(
NULL);
return TCL_ERROR;
}
+ break;
+ case ao_dictionary:
+ Tcl_AppendResult(interp,
+ "\"-dictionary\" option not implemented", NULL);
+ Tcl_SetErrorCode(interp, "TCL", "ZIP", "BADOPT", NULL);
+ return TCL_ERROR;
}
if (flush == -2) {
@@ -2474,6 +2480,11 @@ ZlibStreamCmd(
"\"-buffer\" option not supported here", NULL);
Tcl_SetErrorCode(interp, "TCL", "ZIP", "BADOPT", NULL);
return TCL_ERROR;
+ case ao_dictionary:
+ Tcl_AppendResult(interp,
+ "\"-dictionary\" option not implemented", NULL);
+ Tcl_SetErrorCode(interp, "TCL", "ZIP", "BADOPT", NULL);
+ return TCL_ERROR;
}
if (flush == -2) {
Tcl_AppendResult(interp, "\"-flush\", \"-fullflush\" and "