chiark
/
gitweb
/
~ian
/
chiark-tcl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ebd7e30
)
writeable wip
author
ian
<ian>
Sun, 22 Jan 2006 14:47:50 +0000
(14:47 +0000)
committer
ian
<ian>
Sun, 22 Jan 2006 14:47:50 +0000
(14:47 +0000)
cdb/writeable.c
patch
|
blob
|
history
diff --git
a/cdb/writeable.c
b/cdb/writeable.c
index 9f692d5dfd4df396b193260af763d86b5571bf03..0074a6126181e2d76378c1ca21099346223ccbaa 100644
(file)
--- a/
cdb/writeable.c
+++ b/
cdb/writeable.c
@@
-96,7
+96,8
@@
static int ht_forall(HashTable *ht,
int (*fn)(const char *key, const HashValue *val,
struct ht_forall_ctx *ctx),
struct ht_forall_ctx *ctx) {
int (*fn)(const char *key, const HashValue *val,
struct ht_forall_ctx *ctx),
struct ht_forall_ctx *ctx) {
- /* Returns first nonzero value returned by any call to fn, or 0. */
+ /* Returns first positive value returned by any call to fn, or 0.
+ * If fn returns -1, key is deleted. */
Tcl_HashSearch sp;
Tcl_HashEntry *he;
const char *key;
Tcl_HashSearch sp;
Tcl_HashEntry *he;
const char *key;
@@
-153,7
+154,7
@@
static int rw_close(Tcl_Interp *ip, Rw *rw) {
if (rw->logfile) {
r= fclose(rw->logfile);
if (rw->logfile) {
r= fclose(rw->logfile);
- if (r && ip) { rc= cht_posixerr(ip, errno, "data loss! failed to"
+ if (r && ip) { rc= cht_posixerr(ip, errno, "
probable
data loss! failed to"
" fclose logfile during untidy close"); }
}
" fclose logfile during untidy close"); }
}
@@
-466,7
+467,7
@@
static int compact_core(Tcl_Interp *ip, Rw *rw, unsigned long logsize) {
cdbmaking= 0;
r= fclose(rw->logfile);
cdbmaking= 0;
r= fclose(rw->logfile);
- if (r) { rc= cht_posixerr(ip, errno, "data loss! failed to fclose"
+ if (r) { rc= cht_posixerr(ip, errno, "
probable
data loss! failed to fclose"
" logfile during compact"); goto x_rc; }
rw->logfile= 0;
" logfile during compact"); goto x_rc; }
rw->logfile= 0;