自学教程：C++ tcfree函数代码示例

extern inttcvp_close_skin(skin_t *s){    widget_data_t *wd;    xtk_widget_t *win = s->window;    wd = xtk_widget_get_data(win);    unregister_textwidget(win, wd->value);    if(wd->action) free(wd->action);    if(wd->value) free(wd->value);    tcfree(wd);    xtk_window_destroy(win);    ui_count--;    if(ui_count == 0) {        tcvp_quit();    }    tcfree(s);    return 0;}

static voidtcconf_free(void *p){    tcconf_section_t *s = p;    tcfree(s->sec);    if(s->parent)	tcfree(s->parent);}

/* Delete a word database object. */void tcwdbdel(TCWDB *wdb){  assert(wdb);  if(wdb->open) tcwdbclose(wdb);  tcbdbdel(wdb->idx);  pthread_rwlock_destroy(wdb->mmtx);  tcfree(wdb->mmtx);  tcfree(wdb);}

/* perform list command */static int proclist(const char *path, int omode, int max, bool pv, bool px,                    const char *rlstr, const char *rustr, const char *ristr){  TCFDB *fdb = tcfdbnew();  if(g_dbgfd >= 0) tcfdbsetdbgfd(fdb, g_dbgfd);  if(!tcfdbopen(fdb, path, FDBOREADER | omode)){    printerr(fdb);    tcfdbdel(fdb);    return 1;  }  bool err = false;  if(rlstr || ristr){    TCLIST *keys = ristr ? tcfdbrange5(fdb, ristr, max) : tcfdbrange3(fdb, rlstr, rustr, max);    for(int i = 0; i < tclistnum(keys); i++){      int ksiz;      const char *kbuf = tclistval(keys, i, &ksiz);      printf("%s", kbuf);      if(pv){        int vsiz;        char *vbuf = tcfdbget2(fdb, kbuf, ksiz, &vsiz);        if(vbuf){          putchar('/t');          printdata(vbuf, vsiz, px);          tcfree(vbuf);        }      }      putchar('/n');    }    tclistdel(keys);  } else {    if(!tcfdbiterinit(fdb)){      printerr(fdb);      err = true;    }    int cnt = 0;    uint64_t id;    while((id = tcfdbiternext(fdb)) > 0){      printf("%llu", (unsigned long long)id);      if(pv){        int vsiz;        char *vbuf = tcfdbget(fdb, id, &vsiz);        if(vbuf){          putchar('/t');          printdata(vbuf, vsiz, px);          tcfree(vbuf);        }      }      putchar('/n');      if(max >= 0 && ++cnt >= max) break;    }  }  if(!tcfdbclose(fdb)){    if(!err) printerr(fdb);    err = true;  }  tcfdbdel(fdb);  return err ? 1 : 0;}

/* parse arguments of put command */static int runput(int argc, char **argv){  char *name = NULL;  char *key = NULL;  char *value = NULL;  int dmode = 0;  bool sx = false;  int sep = -1;  for(int i = 2; i < argc; i++){    if(!name && argv[i][0] == '-'){      if(!strcmp(argv[i], "-dk")){        dmode = -1;      } else if(!strcmp(argv[i], "-dc")){        dmode = 1;      } else if(!strcmp(argv[i], "-dai")){        dmode = 10;      } else if(!strcmp(argv[i], "-dad")){        dmode = 11;      } else if(!strcmp(argv[i], "-sx")){        sx = true;      } else if(!strcmp(argv[i], "-sep")){        if(++i >= argc) usage();        sep = sepstrtochr(argv[i]);      } else {        usage();      }    } else if(!name){      name = argv[i];    } else if(!key){      key = argv[i];    } else if(!value){      value = argv[i];    } else {      usage();    }  }  if(!name || !key || !value) usage();  char *kbuf, *vbuf;  int ksiz, vsiz;  if(sx){    kbuf = tchexdecode(key, &ksiz);    vbuf = tchexdecode(value, &vsiz);  } else if(sep > 0){    kbuf = strtozsv(key, sep, &ksiz);    vbuf = strtozsv(value, sep, &vsiz);  } else {    ksiz = strlen(key);    kbuf = tcmemdup(key, ksiz);    vsiz = strlen(value);    vbuf = tcmemdup(value, vsiz);  }  int rv = procput(name, kbuf, ksiz, vbuf, vsiz, dmode);  tcfree(vbuf);  tcfree(kbuf);  return rv;}

/* parse arguments of put command */static int runput(int argc, char **argv){  char *path = NULL;  char *key = NULL;  char *value = NULL;  int omode = 0;  int dmode = 0;  bool sx = false;  for(int i = 2; i < argc; i++){    if(!path && argv[i][0] == '-'){      if(!strcmp(argv[i], "-nl")){        omode |= FDBONOLCK;      } else if(!strcmp(argv[i], "-nb")){        omode |= FDBOLCKNB;      } else if(!strcmp(argv[i], "-dk")){        dmode = -1;      } else if(!strcmp(argv[i], "-dc")){        dmode = 1;      } else if(!strcmp(argv[i], "-dai")){        dmode = 10;      } else if(!strcmp(argv[i], "-dad")){        dmode = 11;      } else if(!strcmp(argv[i], "-sx")){        sx = true;      } else {        usage();      }    } else if(!path){      path = argv[i];    } else if(!key){      key = argv[i];    } else if(!value){      value = argv[i];    } else {      usage();    }  }  if(!path || !key || !value) usage();  char *kbuf, *vbuf;  int ksiz, vsiz;  if(sx){    kbuf = tchexdecode(key, &ksiz);    vbuf = tchexdecode(value, &vsiz);  } else {    ksiz = strlen(key);    kbuf = tcmemdup(key, ksiz);    vsiz = strlen(value);    vbuf = tcmemdup(value, vsiz);  }  int rv = procput(path, kbuf, ksiz, vbuf, vsiz, omode, dmode);  tcfree(vbuf);  tcfree(kbuf);  return rv;}

static VALUE cDB_values(VALUE vself){  VALUE vary;  TCRDB *db;  char *kxstr, *vxstr;  Data_Get_Struct(rb_iv_get(vself, RDBVNDATA), TCRDB, db);  vary = rb_ary_new2(tcrdbrnum(db));  tcrdbiterinit(db);  while((kxstr = tcrdbiternext2(db)) != NULL){    vxstr = tcrdbget2(db, kxstr);    rb_ary_push(vary, rb_str_new2(vxstr));    tcfree(vxstr);    tcfree(kxstr);  }  return vary;}

extern inttcconf_clearvalue(tcconf_section_t *ts, char *name){    conf_section *sec = NULL;    char *n = strdup(name);    char *p = strrchr(n, '/');    tcconf_section_t *s = NULL;    int c = 0;    if(p){	*p++ = 0;	if((s = tcconf_getsection(ts, n)))	sec = s->sec;    } else {	p = n;	sec = ts->sec;    }    if(sec)	c = tclist_delete_matched(sec->entries, p, cmp_str_sec, tcfree);    if(s)	tcfree(s);    free(n);    return c;}

/* get */JNIEXPORT jbyteArray JNICALL Java_tokyocabinet_BDB_get(JNIEnv *env, jobject self, jbyteArray key){  if(!key){    throwillarg(env);    return NULL;  }  TCBDB *bdb = (TCBDB *)(intptr_t)(*env)->GetLongField(env, self, bdb_fid_ptr);  jboolean ick;  jbyte *kbuf = (*env)->GetByteArrayElements(env, key, &ick);  if(!kbuf){    throwoutmem(env);    return NULL;  }  int ksiz = (*env)->GetArrayLength(env, key);  int vsiz;  char *vbuf = tcbdbget(bdb, kbuf, ksiz, &vsiz);  jbyteArray val;  if(vbuf){    val = (*env)->NewByteArray(env, vsiz);    if(!val){      throwoutmem(env);      return NULL;    }    (*env)->SetByteArrayRegion(env, val, 0, vsiz, (jbyte *)vbuf);    tcfree(vbuf);  } else {    val = NULL;  }  (*env)->ReleaseByteArrayElements(env, key, kbuf, JNI_ABORT);  return val;}

static VALUE cDB_each_value(VALUE vself){  VALUE vrv;  TCRDB *db;  char *kxstr, *vxstr;  if(rb_block_given_p() != Qtrue) rb_raise(rb_eArgError, "no block given");  Data_Get_Struct(rb_iv_get(vself, RDBVNDATA), TCRDB, db);  vrv = Qnil;  tcrdbiterinit(db);  while((kxstr = tcrdbiternext2(db)) != NULL){    vxstr = tcrdbget2(db, kxstr);    vrv = rb_yield_values(1, rb_str_new2(vxstr));    tcfree(vxstr);    tcfree(kxstr);  }  return vrv;}

static xtk_widget_t*create_skinned_background(xtk_widget_t *c, skin_t *skin,                          tcconf_section_t *sec, tchash_table_t *parameters){    char *file = NULL;    int i = 0;    image_t *img = NULL;    xtk_widget_t *w;    i += tcconf_getvalue(sec, "background", "%s", &file);    img = load_image(skin->path, file);    if(img)        i++;    if(i != 2)        return NULL;    w = xtk_widget_image_create(c, 0, 0, c->width, c->height);    xtk_widget_image_set_image(w, img);    xtk_widget_show(w);    xtk_widget_container_set_shape(c, img);    free(file);    tcfree(img);    return (xtk_widget_t*)c;}

/* RTDBIterItemsType.tp_iternext */static PyObject *RTDBIterItems_tp_iternext(DBIter *self){    RDBBase *rdbbase = (RDBBase *)self->db;    void *key;    int key_size;    TCMAP *value;    PyObject *pykey, *pyvalue, *pyresult = NULL;    if (rdbbase->changed) {        return set_error(Error, "DB changed during iteration");    }    Py_BEGIN_ALLOW_THREADS    key = tcrdbiternext(rdbbase->rdb, &key_size);    if (key) {        value = tcrdbtblget(rdbbase->rdb, key, key_size);    }    Py_END_ALLOW_THREADS    if (!key) {        if (tcrdbecode(rdbbase->rdb) == TTENOREC) {            return set_stopiteration_error();        }        return set_rdb_error(rdbbase->rdb, NULL);    }    pykey = void_to_bytes(key, key_size);    pyvalue = tcmap_to_dict(value);    if (pykey && pyvalue) {        pyresult = PyTuple_Pack(2, pykey, pyvalue);    }    Py_XDECREF(pykey);    Py_XDECREF(pyvalue);    tcfree(key);    tcmapdel(value);    return pyresult;}

static voidvsfree(v_state *vs){    free(vs->n);    tcfree(vs->ts);    free(vs);}

extern voidwidgetdata_free(void *p){    widget_data_t *wd = p;    tcfree(wd->skin);}

/* RTDBIterValuesKeysType.tp_iternext */static PyObject *RTDBIterValuesKeys_tp_iternext(DBIter *self){    RDBBase *rdbbase = (RDBBase *)self->db;    void *key;    int key_size;    TCMAP *value;    TCLIST *valuekeys;    PyObject *pyvaluekeys;    if (rdbbase->changed) {        return set_error(Error, "DB changed during iteration");    }    Py_BEGIN_ALLOW_THREADS    key = tcrdbiternext(rdbbase->rdb, &key_size);    if (key) {        value = tcrdbtblget(rdbbase->rdb, key, key_size);    }    Py_END_ALLOW_THREADS    if (!key) {        if (tcrdbecode(rdbbase->rdb) == TTENOREC) {            return set_stopiteration_error();        }        return set_rdb_error(rdbbase->rdb, NULL);    }    valuekeys = tcmapkeys(value);    pyvaluekeys = tclist_to_tuple(valuekeys);    tcfree(key);    tcmapdel(value);    tclistdel(valuekeys);    return pyvaluekeys;}

/* FDBIterValuesType.tp_iternext */static PyObject *FDBIterValues_tp_iternext(DBIter *self){    FDB *fdb = (FDB *)self->db;    long long key;    void *value;    int value_size;    PyObject *pyvalue;    if (fdb->changed) {        return set_error(Error, "FDB changed during iteration");    }    key = uint64_to_int64(tcfdbiternext(fdb->fdb));    if (key == -1) {        return NULL;    }    else if (!key) {        if (tcfdbecode(fdb->fdb) == TCENOREC) {            return set_stopiteration_error();        }        return set_fdb_error(fdb->fdb, 0);    }    value = tcfdbget(fdb->fdb, key, &value_size);    pyvalue = void_to_bytes(value, value_size);    tcfree(value);    return pyvalue;}

/* thread the read function */static void *threadread(void *targ){  TCFDB *fdb = ((TARGREAD *)targ)->fdb;  int rnum = ((TARGREAD *)targ)->rnum;  bool wb = ((TARGREAD *)targ)->wb;  bool rnd = ((TARGREAD *)targ)->rnd;  int id = ((TARGREAD *)targ)->id;  bool err = false;  int base = id * rnum;  for(int i = 1; i <= rnum && !err; i++){    uint64_t kid = base + (rnd ? myrandnd(i) + 1 : i);    int vsiz;    if(wb){      char vbuf[RECBUFSIZ];      int vsiz = tcfdbget4(fdb, kid, vbuf, RECBUFSIZ);      if(vsiz < 0 && (!rnd || tcfdbecode(fdb) != TCENOREC)){        eprint(fdb, __LINE__, "tcfdbget4");        err = true;      }    } else {      char *vbuf = tcfdbget(fdb, kid, &vsiz);      if(!vbuf && (!rnd || tcfdbecode(fdb) != TCENOREC)){        eprint(fdb, __LINE__, "tcfdbget");        err = true;      }      tcfree(vbuf);    }    if(id == 0 && rnum > 250 && i % (rnum / 250) == 0){      iputchar('.');      if(i == rnum || i % (rnum / 10) == 0) iprintf(" (%08d)/n", i);    }  }  return err ? "error" : NULL;}

/* parse arguments of map command */static int runmap(int argc, char **argv){  char *name = NULL;  char *dest = NULL;  char *fmstr = NULL;  for(int i = 2; i < argc; i++){    if(!name && argv[i][0] == '-'){      if(!strcmp(argv[i], "-fm")){        if(++i >= argc) usage();        fmstr = argv[i];      } else {        usage();      }    } else if(!name){      name = argv[i];    } else if(!dest){      dest = argv[i];    } else {      usage();    }  }  if(!name || !dest) usage();  name = tcsprintf("%s#mode=r", name);  int rv = procmap(name, dest, fmstr);  tcfree(name);  return rv;}

/* parse arguments of update command */static int runupdate(int argc, char **argv){  char *dbpath = NULL;  char *idstr = NULL;  char *file = NULL;  for(int i = 2; i < argc; i++){    if(!dbpath && argv[i][0] == '-'){      usage();    } else if(!dbpath){      dbpath = argv[i];    } else if(!idstr){      idstr = argv[i];    } else if(!file){      file = argv[i];    } else {      usage();    }  }  if(!dbpath || !idstr) usage();  int64_t id = tcatoi(idstr);  char *ibuf;  int isiz;  if(file && file[0] == '@'){    isiz = strlen(file) - 1;    ibuf = tcmemdup(file + 1, isiz);  } else {    ibuf = tcreadfile(file, -1, &isiz);  }  if(!ibuf){    eprintf("%s: cannot open", file ? file : "(stdin)");    return 1;  }  int rv = procupdate(dbpath, id, ibuf);  tcfree(ibuf);  return rv;}

/* perform get command */static int procget(const char *path, const char *kbuf, int ksiz, int omode, bool px, bool pz){  TCFDB *fdb = tcfdbnew();  if(g_dbgfd >= 0) tcfdbsetdbgfd(fdb, g_dbgfd);  if(!tcfdbopen(fdb, path, FDBOREADER | omode)){    printerr(fdb);    tcfdbdel(fdb);    return 1;  }  bool err = false;  int vsiz;  char *vbuf = tcfdbget2(fdb, kbuf, ksiz, &vsiz);  if(vbuf){    printdata(vbuf, vsiz, px);    if(!pz) putchar('/n');    tcfree(vbuf);  } else {    printerr(fdb);    err = true;  }  if(!tcfdbclose(fdb)){    if(!err) printerr(fdb);    err = true;  }  tcfdbdel(fdb);  return err ? 1 : 0;}

/* perform get command */static int procget(const char *path, const char *kbuf, int ksiz, TCCMP cmp, int omode,        bool px, bool pz) {    TCBDB *bdb = tcbdbnew();    if (!INVALIDHANDLE(g_dbgfd)) tcbdbsetdbgfd(bdb, g_dbgfd);    if (cmp && !tcbdbsetcmpfunc(bdb, cmp, NULL)) printerr(bdb);    if (!tcbdbsetcodecfunc(bdb, _tc_recencode, NULL, _tc_recdecode, NULL)) printerr(bdb);    if (!tcbdbopen(bdb, path, BDBOREADER | omode)) {        printerr(bdb);        tcbdbdel(bdb);        return 1;    }    bool err = false;    int vsiz;    char *vbuf = tcbdbget(bdb, kbuf, ksiz, &vsiz);    if (vbuf) {        printdata(vbuf, vsiz, px);        if (!pz) putchar('/n');        tcfree(vbuf);    } else {        printerr(bdb);        err = true;    }    if (!tcbdbclose(bdb)) {        if (!err) printerr(bdb);        err = true;    }    tcbdbdel(bdb);    return err ? 1 : 0;}

/* perform get command */static int procget(const char *path, const char *kbuf, int ksiz, int omode, bool px, bool pz){  TCHDB *hdb = tchdbnew();  if(g_dbgfd >= 0) tchdbsetdbgfd(hdb, g_dbgfd);  if(!tchdbsetcodecfunc(hdb, _tc_recencode, NULL, _tc_recdecode, NULL)) printerr(hdb);  if(!tchdbopen(hdb, path, HDBOREADER | omode)){    printerr(hdb);    tchdbdel(hdb);    return 1;  }  bool err = false;  int vsiz;  char *vbuf = tchdbget(hdb, kbuf, ksiz, &vsiz);  if(vbuf){    printdata(vbuf, vsiz, px);    if(!pz) putchar('/n');    tcfree(vbuf);  } else {    printerr(hdb);    err = true;  }  if(!tchdbclose(hdb)){    if(!err) printerr(hdb);    err = true;  }  tchdbdel(hdb);  return err ? 1 : 0;}

static void *event_loop(void *p){    event_handler_t *eh = p;    tcvp_event_type_handler_t *handlers = eh->handlers;    void *data = eh->data;    eventq_t q = eh->q;    int run = 1;    eh->running = 1;    eh = NULL;    while(run) {        tcvp_event_t *te = eventq_recv(q);        tcvp_event_type_handler_t *h = handlers;        while(h->handler) {            if(h->type == te->type) {                h->handler(data, te);                break;            }            h++;        }        if(te->type == -1)            run = 0;        tcfree(te);    }    return NULL;}

extern intsend_eventv(eventq_t q, int type, va_list args){    tcvp_event_t *te = NULL;    int ret = -1;    if(type == -1) {        te = tcalloc(sizeof(*te));        te->type = -1;    } else if(type <= event_num && event_tab[type] && event_tab[type]->alloc) {        te = event_tab[type]->alloc(type, args);    } else {        tc2_print("EVENT", TC2_PRINT_WARNING, "unknown event #%i/n", type);    }    if(te) {        if(type >= 0)            tc2_print("EVENT", TC2_PRINT_DEBUG,                      "sending %s/n", event_tab[type]->name);        ret = eventq_send(q, te);        tcfree(te);    }    return ret;}

/* FDBIterItemsType.tp_iternext */static PyObject *FDBIterItems_tp_iternext(DBIter *self){    FDB *fdb = (FDB *)self->db;    long long key;    void *value;    int value_size;    PyObject *pykey, *pyvalue, *pyresult = NULL;    if (fdb->changed) {        return set_error(Error, "FDB changed during iteration");    }    key = uint64_to_int64(tcfdbiternext(fdb->fdb));    if (key == -1) {        return NULL;    }    else if (!key) {        if (tcfdbecode(fdb->fdb) == TCENOREC) {            return set_stopiteration_error();        }        return set_fdb_error(fdb->fdb, 0);    }    value = tcfdbget(fdb->fdb, key, &value_size);    pykey = PyLong_FromLongLong(key);    pyvalue = void_to_bytes(value, value_size);    if (pykey && pyvalue) {        pyresult = PyTuple_Pack(2, pykey, pyvalue);    }    Py_XDECREF(pykey);    Py_XDECREF(pyvalue);    tcfree(value);    return pyresult;}

/* perform importtsv command */static int procimporttsv(const char *path, const char *file, int omode, bool sc){  FILE *ifp = file ? fopen(file, "rb") : stdin;  if(!ifp){    fprintf(stderr, "%s: could not open/n", file ? file : "(stdin)");    return 1;  }  TCHDB *hdb = tchdbnew();  if(g_dbgfd >= 0) tchdbsetdbgfd(hdb, g_dbgfd);  if(!tchdbsetcodecfunc(hdb, _tc_recencode, NULL, _tc_recdecode, NULL)) printerr(hdb);  if(!tchdbopen(hdb, path, HDBOWRITER | HDBOCREAT | omode)){    printerr(hdb);    tchdbdel(hdb);    if(ifp != stdin) fclose(ifp);    return 1;  }  bool err = false;  char *line;  int cnt = 0;  while(!err && (line = mygetline(ifp)) != NULL){    char *pv = strchr(line, '/t');    if(!pv){      tcfree(line);      continue;    }    *pv = '/0';    if(sc) tcstrutfnorm(line, TCUNSPACE | TCUNLOWER | TCUNNOACC | TCUNWIDTH);    if(!tchdbput2(hdb, line, pv + 1)){      printerr(hdb);      err = true;    }    tcfree(line);    if(cnt > 0 && cnt % 100 == 0){      putchar('.');      fflush(stdout);      if(cnt % 5000 == 0) printf(" (%08d)/n", cnt);    }    cnt++;  }  printf(" (%08d)/n", cnt);  if(!tchdbclose(hdb)){    if(!err) printerr(hdb);    err = true;  }  tchdbdel(hdb);  if(ifp != stdin) fclose(ifp);  return err ? 1 : 0;}

static void *tcddbget(TCDDB *ddb, const void *kbuf, int ksiz, int *sp){  if(!ddb->name) return false;  void *vbuf;  char *path = makepath(ddb, kbuf, ksiz);  vbuf = tcreadfile(path, -1, sp);  tcfree(path);  return vbuf;}

static bool tcddbput(TCDDB *ddb, const void *kbuf, int ksiz, const void *vbuf, int vsiz){  if(!ddb->name) return false;  bool err = false;  char *path = makepath(ddb, kbuf, ksiz);  if(!tcwritefile(path, vbuf, vsiz)) err = true;  tcfree(path);  return !err;}

/* parse arguments of get command */static int runget(int argc, char **argv){  char *name = NULL;  char *key = NULL;  bool sx = false;  int sep = -1;  bool px = false;  bool pz = false;  for(int i = 2; i < argc; i++){    if(!name && argv[i][0] == '-'){      if(!strcmp(argv[i], "-sx")){        sx = true;      } else if(!strcmp(argv[i], "-sep")){        if(++i >= argc) usage();        sep = sepstrtochr(argv[i]);      } else if(!strcmp(argv[i], "-px")){        px = true;      } else if(!strcmp(argv[i], "-pz")){        pz = true;      } else {        usage();      }    } else if(!name){      name = argv[i];    } else if(!key){      key = argv[i];    } else {      usage();    }  }  if(!name || !key) usage();  int ksiz;  char *kbuf;  if(sx){    kbuf = tchexdecode(key, &ksiz);  } else if(sep > 0){    kbuf = strtozsv(key, sep, &ksiz);  } else {    ksiz = strlen(key);    kbuf = tcmemdup(key, ksiz);  }  name = tcsprintf("%s#mode=r", name);  int rv = procget(name, kbuf, ksiz, sep, px, pz);  tcfree(name);  tcfree(kbuf);  return rv;}

static bool tcddbout(TCDDB *ddb, const void *kbuf, int ksiz){  if(!ddb->name) return false;  bool err = false;  char *path = makepath(ddb, kbuf, ksiz);  if(unlink(path) != 0) err = true;  tcfree(path);  return !err;}