#help_index "DolDoc/File"

public U0 DocLoad(CDoc *doc,U8 *src2,I64 size)
{//Fetch doc from raw mem buf.
  I64 i;
  U8 *src;
  Bool unlock=DocLock(doc);
  CDocBin *tmpb;
  doc->find_replace->filter_lines=0;
  if (src2)
  {
    DocPutS(doc,src2); //Too big DocPrint() is wasteful.
    src=src2+StrLen(src2)+1;
    i=size-(offset(CDocBin.end)-offset(CDocBin.start));
    while (src<=src2+i)
    {
      tmpb=CAlloc(sizeof(CDocBin),doc->mem_task);
      MemCpy(&tmpb->start,src,offset(CDocBin.end)-offset(CDocBin.start));
      src+=offset(CDocBin.end)-offset(CDocBin.start);
      tmpb->data=MAlloc(tmpb->size,doc->mem_task);
      if (tmpb->size)
      {
        MemCpy(tmpb->data,src,tmpb->size);
        src+=tmpb->size;
      }
      QueIns(tmpb,doc->bin_head.last);
      if (tmpb->num>=doc->cur_bin_num)
        doc->cur_bin_num=tmpb->num+1;
    }
  }
  if (!(doc->flags & (DOCF_PLAIN_TEXT|DOCF_PLAIN_TEXT_TABS)))
    DocBinsValidate(doc);
  DocTop(doc); //Calls DocRecalc().  DOCT_CURSOR will be set.
  if (unlock)
    DocUnlock(doc);
}

public CDoc *DocRead(U8 *name=NULL,I64 flags=0)
{//Fetch doc from disk. See flags.
  CDoc *doc=DocNew;
  U8 *src,*name2;
  I64 size=0;
  CDirContext *dirc;
  if (!name) name=blkdev.tmp_filename;
  doc->flags|=flags;
  name2=FileNameAbs(name);
  StrCpy(doc->filename.name,name2);
  if (src=FileRead(name2,&size,&doc->file_attr))
  {
    if (dirc=DirContextNew(name2))
    {
      DocLoad(doc,src,size);
      DirContextDel(dirc);
    }
    Free(src);
  }
  Free(name2);
  return doc;
}

public U8 *DocSave(CDoc *doc,I64 *_size=NULL)
{//Store doc to raw mem buf.
  CDocEntry *doc_e,*doc_e1;
  CDocBin *b;
  Bool unlock=DocLock(doc);
  I64 ch,cnt=1;//terminator
  U8 *st,*res,*dst,*src;
  if (!(doc->flags & (DOCF_PLAIN_TEXT|DOCF_PLAIN_TEXT_TABS)))
    DocBinsValidate(doc);
  if (doc->flags&DOCF_NO_CURSOR)
    DocRecalc(doc);
  else
  {
    DocRecalc(doc,RECALCF_ADD_CURSOR);
    if (doc->head.next->type_u8==DOCT_CURSOR)
      DocEntryDel(doc,doc->head.next); //If no cursor, DocLoad() puts at top.
  }
  for (doc_e=doc->head.next; doc_e!=doc; doc_e=doc_e->next)
  {
    if (!Bt(doldoc.type_flags_data,doc_e->type_u8))
    {
      switch (doc_e->type_u8)
      {
      case DOCT_TAB:
      case DOCT_PAGE_BREAK:
      case DOCT_CURSOR:
        cnt++;
        break;
      case DOCT_NEW_LINE:
        if (doc->flags&DOCF_CARRIAGE_RETURN)
          cnt+=2;
        else
          cnt++;
        break;
      case DOCT_SOFT_NEW_LINE:
        break;
      case DOCT_TEXT:
        if (!(doc_e->de_flags & ~(DOCEF_TAG|DOCG_BL_IV_UL|DOCEF_WORD_WRAP|
                    DOCEF_HIGHLIGHT|DOCEF_SKIP|DOCEF_FILTER_SKIP))&&
            !(doc_e->type&DOCG_BL_IV_UL))
        {
          cnt+=StrLen(doc_e->tag);
          if (!(doc->flags & (DOCF_PLAIN_TEXT|DOCF_PLAIN_TEXT_TABS)) ||
              doc->flags&DOCF_DBL_DOLLARS)
            cnt+=StrOcc(doc_e->tag,'$');
          break;
        }
      default:
        st=Doc2PlainText(doc,doc_e);
        cnt+=StrLen(st)+2;
        Free(st);
      }
    }
  }
  for (b=doc->bin_head.next; b!=&doc->bin_head; b=b->next)
    if (b->use_cnt>b->tmp_use_cnt)
      cnt+=offset(CDocBin.end)-offset(CDocBin.start)+b->size;
  res=MAlloc(cnt);
  dst=res;
  doc_e=doc->head.next;
  while (doc_e!=doc)
  {
    doc_e1=doc_e->next;
    if (!Bt(doldoc.type_flags_data,doc_e->type_u8))
      switch (doc_e->type_u8)
      {
      case DOCT_CURSOR:
        DocEntryDel(doc,doc_e);
        *dst++=CH_CURSOR;
        break;
      case DOCT_TAB:
        *dst++='\t';
        break;
      case DOCT_NEW_LINE:
        if (doc->flags&DOCF_CARRIAGE_RETURN)
          *dst++='\r';
        *dst++='\n';
        break;
      case DOCT_SOFT_NEW_LINE:
        break;
      case DOCT_TEXT:
        if (!(doc_e->de_flags & ~(DOCEF_TAG|DOCG_BL_IV_UL|DOCEF_WORD_WRAP|
                    DOCEF_HIGHLIGHT|DOCEF_SKIP|DOCEF_FILTER_SKIP)) &&
            !(doc_e->type&DOCG_BL_IV_UL))
        {
          src=doc_e->tag;
          while (ch=*src++)
          {
            *dst++=ch;
            if (ch=='$' && (!(doc->flags & (DOCF_PLAIN_TEXT|
                            DOCF_PLAIN_TEXT_TABS)) || doc->flags&DOCF_DBL_DOLLARS))
              *dst++=ch;
          }
          break;
        }
      default:
        *dst++='$';
        st=Doc2PlainText(doc,doc_e);
        StrCpy(dst,st);
        dst+=StrLen(st);
        *dst++='$';
        Free(st);
      }
    doc_e=doc_e1;
  }
  *dst++=0;
  b=doc->bin_head.next;
  if (b!=&doc->bin_head)
  {
    do
    {
      if (b->use_cnt>b->tmp_use_cnt)
      {
        MemCpy(dst,&b->start,offset(CDocBin.end)-offset(CDocBin.start));
        dst+=offset(CDocBin.end)-offset(CDocBin.start);
        MemCpy(dst,b->data,b->size);
        dst+=b->size;
      }
      b=b->next;
    }
    while (b!=&doc->bin_head);
  }
  else
    cnt--; //No terminator
  if (_size) *_size=cnt;
  if (unlock)
    DocUnlock(doc);
  return res;
}

public Bool DocWrite(CDoc *doc,Bool prompt=FALSE)
{//Store doc to disk.
  I64 size;
  U8 *buf;
  if (prompt && !DocForm(&doc->filename) ||
      doc->filename.name[0]=='A' && doc->filename.name[2]==':')
    return FALSE; //CANCEL || LK_DOC,LK_DOC_ANCHOR,LK_DOC_FIND,LK_DOC_LINE?
  buf=DocSave(doc,&size);
  FileWrite(doc->filename.name,buf,size,0,doc->file_attr);
  Free(buf);
  return TRUE;
}

#help_index "DolDoc"
public U0 DocInsDoc(CDoc *doc=NULL,CDoc *doc2)
{//Insert copy of doc2 into doc at insert pt, cur_entry.
//TODO: DocRst
  U8 *dst;
  Bool unlock_doc,unlock_doc2=DocLock(doc2);
  CDocEntry *doc_ne,*doc_e=doc2->head.next,*doc_ce;
  if (!doc) doc=DocPut;
  unlock_doc=DocLock(doc),
  DocRemSoftNewLines(doc,NULL);
  doc_ce=doc->cur_entry;
  if (doc_ce->type_u8==DOCT_TEXT && doc->cur_col>doc_ce->min_col)
  {
    if (doc->cur_col<doc_ce->max_col)
    {
      dst=doc_ce->tag+doc->cur_col;
      doc_ne=DocEntryNewTag(doc,doc_ce,dst);
      *dst=0;
      doc_ne->type=DOCT_TEXT | doc_ce->type & 0xFFFFFF00;
      doc_ce->max_col=doc->cur_col;
      QueIns(doc_ne,doc_ce);
      doc->cur_entry=doc_ne;
      doc->cur_col=doc_ne->min_col;
    }
    else if (doc_ce!=doc)
      doc->cur_entry=doc_ce->next;
  }
  while (doc_e!=doc2)
  {
    if (doc_e->type_u8!=DOCT_SOFT_NEW_LINE)
    {
      doc_ne=DocEntryCopy(doc,doc_e);
      QueIns(doc_ne,doc->cur_entry->last);
    }
    doc_e=doc_e->next;
  }
  DocRecalc(doc);
  if (unlock_doc2)
    DocUnlock(doc2);
  if (unlock_doc)
    DocUnlock(doc);
}

#help_index "DolDoc/Compiler;Compiler/Directive"
public U0 StreamDoc(CDoc *doc)
{//Inject doc into compile stream. Use inside #exe{}.
//TODO: DocRst
  Bool unlock_doc=DocLock(doc);
  CDocEntry *doc_e=doc->head.next;
  while (doc_e!=doc)
  {
    if (doc_e->type_u8==DOCT_TEXT)
      StreamPrint("%s",doc_e->tag);
    else if (doc_e->type_u8==DOCT_NEW_LINE)
      StreamPrint("\n");
    else if (doc_e->type_u8==DOCT_TAB)
      StreamPrint("\t");
    doc_e=doc_e->next;
  }
  if (unlock_doc)
    DocUnlock(doc);
}

#help_index "DolDoc"
Bool DocCaptureUndo(CDoc *doc,Bool force=FALSE)
{
  Bool res=FALSE,unlock;
  I64 time_stamp,flags;
  CDocUndo *u;
  if (doc->flags&DOCF_ALLOW_UNDO)
  {
    unlock=DocLock(doc);
    time_stamp=GetTSC;
    if (doc->flags&DOCF_UNDO_DIRTY &&
        time_stamp>doc->undo_head.last->time_stamp+cnts.time_stamp_freq<<4 ||
        force)
    {
      u=CAlloc(sizeof(CDocUndo),doc->mem_task);
      u->time_stamp=time_stamp;
      flags=doc->flags;
      doc->flags&=~DOCF_NO_CURSOR;
      u->body=DocSave(doc,&u->size);
      doc->flags=flags;
      QueIns(u,doc->undo_head.last);
      doc->flags&=~DOCF_UNDO_DIRTY;
      doc->undo_cnt++;
      u->doc_flags=doc->flags;
      res=TRUE;
      if (doc->flags&DOCF_AUTO_SAVE)
        DocWrite(doc);
    }
    if (unlock)
      DocUnlock(doc);
  }
  return res;
}

U0 DocUndoRestore(CDoc *doc)
{
  Bool unlock=DocLock(doc);
  CDocUndo *u=doc->undo_head.last,*u_next,*u_last;
  if (u!=&doc->undo_head)
  {
    QueRem(u);
    u_next=doc->undo_head.next;
    u_last=doc->undo_head.last;
    QueInit(&doc->undo_head);
    DocRst(doc,TRUE);
    doc->flags=u->doc_flags&~DOCF_NO_CURSOR;
    DocLoad(doc,u->body,u->size);
    doc->flags=u->doc_flags;
    DocUndoDel(doc,u);
    doc->undo_head.next=u_next;
    doc->undo_head.last=u_last;
  }
  DocUndoCntSet(doc);
  doc->flags&=~DOCF_UNDO_DIRTY;
  if (unlock)
    DocUnlock(doc);
}

#help_index "Graphics/Windows BMP Files;Graphics/GR Files;"\
        "DolDoc/Output;StdOut/DolDoc"
public Bool DocType(CDoc *doc=NULL,U8 *filename,I64 trailing_new_lines=1)
{//Output txt or graphic file to document.
  Bool res=FALSE;
  CDoc *doc2;
  if (!doc && !(doc=DocPut) || doc->doc_signature!=DOC_SIGNATURE_VAL)
    return FALSE;
  if (FilesFindMatch(filename,FILEMASK_TXT))
  {
    doc2=DocRead(filename);
    DocInsDoc(doc,doc2);
    if (IsRaw)
      DocDump(doc2,100000);
    DocDel(doc2);
    res=TRUE;
  }
  else if (FilesFindMatch(filename,"*.BMP.Z"))
  {
    DocBMP(doc,filename,,FALSE);
    res=TRUE;
  }
  else if (FilesFindMatch(filename,"*.BMP;*.bmp"))
  {
    DocBMP(doc,filename,,TRUE);
    res=TRUE;
  }
  else if (FilesFindMatch(filename,"*.GR*"))
  {
    DocGR(doc,filename);
    res=TRUE;
  }
  if (res)
    DocPrint(doc,"%h*c",trailing_new_lines,'\n');
  return res;
}

#help_index "Graphics/Windows BMP Files;Graphics/GR Files;"\
        "File/Cmd Line (Typically);DolDoc/Cmd Line (Typically);"\
        "StdOut;Cmd Line (Typically)"
public Bool Type(U8 *filename,I64 trailing_new_lines=1)
{//Output txt or graphic file to command line.
  return DocType(,filename,trailing_new_lines);
}

#help_index "DolDoc/File"

public U8 *DocLineRead(U8 *filename,I64 line,CTask *mem_task=NULL)
{//Extract line from stored doc file. (Slow.)
  U8 *res=NULL;
  CDoc *doc=DocRead(filename,DOCF_PLAIN_TEXT_TABS|DOCF_NO_CURSOR);
  if (DocGoToLine(doc,line) && doc->cur_entry->type_u8==DOCT_TEXT)
    res=StrNew(doc->cur_entry->tag,mem_task);
  DocDel(doc);
  return res;
}

public U8 *DocLineWrite(U8 *filename,I64 line,U8 *st)
{//Write line to stored doc file. (Slow.)
  U8 *res=NULL;
  CDoc *doc=DocRead(filename,DOCF_PLAIN_TEXT_TABS|DOCF_NO_CURSOR);
  if (DocGoToLine(doc,line))
  {
    if (doc->cur_entry->type_u8==DOCT_TEXT)
    {
      Free(doc->cur_entry->tag);
      doc->cur_entry->tag=StrNew(st);
    }
    else
      DocPrint(doc,"%s",st);
    DocTop(doc);
    DocWrite(doc);
  }
  DocDel(doc);
  return res;
}