#help_index "DolDoc/Bin"

CDocBin *DocBinFindNum(CDoc *haystack_doc,I64 needle_num)
{
  CDocBin *b=haystack_doc->bin_head.next;
  while (b!=&haystack_doc->bin_head)
  {
    if (b->num==needle_num)
      return b;
    b=b->next;
  }
  return NULL;
}

CDocBin *DocBinFindTag(CDoc *haystack_doc,U8 *needle_tag)
{
  CDocBin *b;
  if (needle_tag)
  {
    b=haystack_doc->bin_head.next;
    while (b!=&haystack_doc->bin_head)
    {
      if (b->tag && !StrCmp(b->tag,needle_tag))
        return b;
      b=b->next;
    }
  }
  return NULL;
}

U0 DocBinsValidate(CDoc *doc)
{
  Bool unlock=DocLock(doc);
  CDocBin *b,*b1;
  CDocEntry *doc_e,*doc_e2;
  I64 renum_num=0;
  b=doc->bin_head.next;
  while (b!=&doc->bin_head)
  {
    b->use_cnt=0;
    b->tmp_use_cnt=0;
    b->renum_num=-1;
    Free(b->tag);
    b->tag=NULL;
    b=b->next;
  }
  doc_e=doc->head.next;
  while (doc_e!=doc)
  {
    doc_e2=doc_e->next;
    if (doc_e->de_flags & DOCEF_HAS_BIN)
    {
      if (b=doc_e->bin_data=DocBinFindNum(doc,doc_e->bin_num))
      {
        if (doc_e->de_flags & DOCEF_BIN_PTR_LINK)
          b->tmp_use_cnt=I32_MAX;
        if (!b->use_cnt++)
          b->renum_num=++renum_num;
        doc_e->bin_num=b->renum_num;
        if (!b->tag && doc_e->de_flags&DOCEF_TAG && doc_e->tag && *doc_e->tag)
          b->tag=StrNew(doc_e->tag,doc->mem_task);
      }
      else
      {
        RawPrint(3000,"Bin Not Found");
        doc_e->type=doc_e->de_flags=0;
        doc_e->type_u8=DOCT_ERROR;
      }
    }
    doc_e=doc_e2;
  }
  b=doc->bin_head.next;
  doc->cur_bin_num=1;
  while (b!=&doc->bin_head)
  {
    b1=b->next;
    if (!b->use_cnt)
    {
      QueRem(b);
      Free(b->data);
      Free(b);
    }
    else
    {
      b->num=b->renum_num;
      if (b->num>=doc->cur_bin_num)
        doc->cur_bin_num=b->num+1;
    }
    b=b1;
  }
  if (unlock)
    DocUnlock(doc);
}

U0 DocBinDel(CDoc *doc,CDocBin *b)
{
  if (doc && b && b->use_cnt)
  {
    b->use_cnt--;
    if (!b->use_cnt)
    {
      QueRem(b);
      Free(b->tag);
      Free(b->data);
      Free(b);
    }
  }
  else
    RawPrint(3000,"DocBinDel");
}

I64 DocBinPtrRst(CDoc *doc,CDocEntry *doc_e)
{
  U8 *st,*st2;
  CDoc *doc2;
  CDocBin *tmpb,*tmpb2;
  I64 i,bin_num=0;
  if (doc_e->de_flags&DOCEF_HAS_BIN &&
      doc_e->bin_ptr_link && StrLen(doc_e->bin_ptr_link))
  {
    bin_num=doc_e->bin_num;
    st=StrNew(doc_e->bin_ptr_link);
    st2=StrNew(st);
    StrLastRem(st,",",st2);
    i=Str2I64(st2);
    if (i>0||*st2)
    {
      doc2=DocRead(st);
      if (i>0  && (tmpb2=DocBinFindNum(doc2,i)) ||
          i==0 && (tmpb2=DocBinFindTag(doc2,st2)))
      {
        i=1;
        if (bin_num>0)
        {
          if (tmpb=DocBinFindNum(doc,bin_num))
          {
            i=tmpb->use_cnt;
            DocBinDel(doc,tmpb);
          }
        }
        else
          bin_num=doc->cur_bin_num++;
        tmpb=MAllocIdent(tmpb2,doc->mem_task);
        tmpb->use_cnt=i;
        tmpb->data=MAllocIdent(tmpb2->data,doc->mem_task);
        tmpb->num=bin_num;
        doc_e->bin_data=tmpb;
        if (doc_e->de_flags&DOCEF_TAG && doc_e->tag && *doc_e->tag)
          tmpb->tag=StrNew(doc_e->tag,doc->mem_task);
        else
          tmpb->tag=NULL;
        QueIns(tmpb,doc->bin_head.last);
      }
      else
        bin_num=0;
      DocDel(doc2);
    }
    else
      bin_num=0;
    Free(st2);
    Free(st);
    doc_e->bin_num=bin_num;
  }
  return bin_num;
}