1154 lines
22 KiB
C++
1154 lines
22 KiB
C++
U0 PrsDocFlags(CLex *lx,I64 *flags1,I64 *flags2,U32 *type)
|
|
{
|
|
I64 i;
|
|
Bool turn_on;
|
|
while (lx->token=='+' || lx->token=='-') {
|
|
turn_on= lx->token=='+';
|
|
if (Lex(lx)==TK_IDENT) {
|
|
i=DefineMatch(lx->ident,"ST_DOC_FLAGS",LEF_EXACT);
|
|
if (i<0)
|
|
*type=DOCT_ERROR;
|
|
else if (i<64) {
|
|
BEqu(flags1,i,turn_on);
|
|
switch (i) {
|
|
case DOCEf1_SELECTED:
|
|
case DOCEf1_UNDERLINE:
|
|
case DOCEf1_INVERT:
|
|
case DOCEf1_BLINK:
|
|
BEqu(type,i,turn_on);
|
|
break;
|
|
}
|
|
} else
|
|
BEqu(flags2,i-64,turn_on);
|
|
Lex(lx); //skip flag
|
|
}
|
|
}
|
|
}
|
|
|
|
I64 doc_dft_flags1[DOCT_NUM_TYPES]={
|
|
//DOCT_TEXT
|
|
0,
|
|
|
|
//DOCT_NEW_LINE
|
|
0,
|
|
|
|
//DOCT_SOFT_NEW_LINE
|
|
0,
|
|
|
|
//DOCT_CURSOR
|
|
0,
|
|
|
|
//DOCT_TAB
|
|
0,
|
|
|
|
//DOCT_CLEAR
|
|
0,
|
|
|
|
//DOCT_PAGE_BREAK
|
|
0,
|
|
|
|
//DOCT_DATA
|
|
DOCEF1_DATA_IS_PTR | DOCEF1_HAS_TERMINATOR | DOCEF1_AUX_STR | DOCEF1_U64,
|
|
|
|
//DOCT_PAGE_LEN
|
|
0,
|
|
|
|
//DOCT_LEFT_MARGIN
|
|
0,
|
|
|
|
//DOCT_RIGHT_MARGIN
|
|
0,
|
|
|
|
//DOCT_HEADER
|
|
0,
|
|
|
|
//DOCT_FOOTER
|
|
0,
|
|
|
|
//DOCT_INDENT
|
|
0,
|
|
|
|
//DOCT_FOREGROUND
|
|
0,
|
|
|
|
//DOCT_BACKGROUND
|
|
0,
|
|
|
|
//DOCT_DFT_FOREGROUND
|
|
0,
|
|
|
|
//DOCT_DFT_BACKGROUND
|
|
0,
|
|
|
|
//DOCT_PMT
|
|
0,
|
|
|
|
//DOCT_WORD_WRAP
|
|
0,
|
|
|
|
//DOCT_UNDERLINE
|
|
0,
|
|
|
|
//DOCT_INVERT
|
|
0,
|
|
|
|
//DOCT_BLINK
|
|
0,
|
|
|
|
//DOCT_SHIFTED_X
|
|
0,
|
|
|
|
//DOCT_SHIFTED_Y
|
|
0,
|
|
|
|
//DOCT_CURSOR_MOVEMENT
|
|
DOCEF1_LEFT_EXP | DOCEF1_RIGHT_EXP,
|
|
|
|
//DOCT_ANCHOR
|
|
DOCEF1_AUX_STR,
|
|
|
|
//DOCT_LINK
|
|
DOCEF1_LINK|DOCEF1_AUX_STR,
|
|
|
|
//DOCT_BUTTON
|
|
DOCEF1_ESC | DOCEF1_LEFT_EXP | DOCEF1_HAS_BORDER,
|
|
|
|
//DOCT_CHECK_BOX
|
|
DOCEF1_CHECK_COLLAPSABLE|DOCEF1_DATA_IS_PTR|DOCEF1_U8,
|
|
|
|
//DOCT_MACRO
|
|
DOCEF1_ESC | DOCEF1_LEFT_MACRO,
|
|
|
|
//DOCT_MENU_VAL
|
|
DOCEF1_ESC | DOCEF1_LEFT_EXP,
|
|
|
|
//DOCT_HEX_ED
|
|
DOCEF1_DATA_IS_PTR | DOCEF1_ZERO_BASED,
|
|
|
|
//DOCT_HIDE_START
|
|
DOCEF1_CHECKED_COLLAPSED|DOCEF1_CHECK_COLLAPSABLE,
|
|
|
|
//DOCT_HIDE_END
|
|
0,
|
|
|
|
//DOCT_TREE
|
|
DOCEF1_CHECKED_COLLAPSED|DOCEF1_CHECK_COLLAPSABLE|DOCEF1_TREE,
|
|
|
|
//DOCT_SPRITE
|
|
DOCEF1_HAS_BIN,
|
|
|
|
//DOCT_INS_BINARY
|
|
DOCEF1_HAS_BIN,
|
|
|
|
//DOCT_INS_BINARY_TYPE
|
|
DOCEF1_HAS_BIN,
|
|
|
|
//DOCT_INS_BINARY_SIZE
|
|
DOCEF1_HAS_BIN,
|
|
|
|
//DOCT_BPT
|
|
0,
|
|
|
|
//DOCT_SONG
|
|
DOCEF1_AUX_STR,
|
|
|
|
//DOCT_HIGHLIGHT
|
|
0,
|
|
|
|
//DOCT_LOCK_TO_PAGE
|
|
0,
|
|
|
|
//DOCT_LOCK_TO_CENTER
|
|
0,
|
|
|
|
//DOCT_HTML_IMG
|
|
0,
|
|
|
|
//DOCT_HTML_VIDEO
|
|
0,
|
|
|
|
//DOCT_HTML_CODE
|
|
0,
|
|
|
|
//DOCT_ERROR
|
|
0};
|
|
|
|
I64 doc_dft_flags2[DOCT_NUM_TYPES]={
|
|
//DOCT_TEXT
|
|
0,
|
|
|
|
//DOCT_NEW_LINE
|
|
0,
|
|
|
|
//DOCT_SOFT_NEW_LINE
|
|
0,
|
|
|
|
//DOCT_CURSOR
|
|
0,
|
|
|
|
//DOCT_TAB
|
|
0,
|
|
|
|
//DOCT_CLEAR
|
|
0,
|
|
|
|
//DOCT_PAGE_BREAK
|
|
0,
|
|
|
|
//DOCT_DATA
|
|
0,
|
|
|
|
//DOCT_PAGE_LEN
|
|
0,
|
|
|
|
//DOCT_LEFT_MARGIN
|
|
0,
|
|
|
|
//DOCT_RIGHT_MARGIN
|
|
0,
|
|
|
|
//DOCT_HEADER
|
|
0,
|
|
|
|
//DOCT_FOOTER
|
|
0,
|
|
|
|
//DOCT_INDENT
|
|
0,
|
|
|
|
//DOCT_FOREGROUND
|
|
0,
|
|
|
|
//DOCT_BACKGROUND
|
|
0,
|
|
|
|
//DOCT_DFT_FOREGROUND
|
|
0,
|
|
|
|
//DOCT_DFT_BACKGROUND
|
|
0,
|
|
|
|
//DOCT_PMT
|
|
0,
|
|
|
|
//DOCT_WORD_WRAP
|
|
0,
|
|
|
|
//DOCT_UNDERLINE
|
|
0,
|
|
|
|
//DOCT_INVERT
|
|
0,
|
|
|
|
//DOCT_BLINK
|
|
0,
|
|
|
|
//DOCT_SHIFTED_X
|
|
0,
|
|
|
|
//DOCT_SHIFTED_Y
|
|
0,
|
|
|
|
//DOCT_CURSOR_MOVEMENT
|
|
0,
|
|
|
|
//DOCT_ANCHOR
|
|
0,
|
|
|
|
//DOCT_LINK
|
|
0,
|
|
|
|
//DOCT_BUTTON
|
|
0,
|
|
|
|
//DOCT_CHECK_BOX
|
|
0,
|
|
|
|
//DOCT_MACRO
|
|
0,
|
|
|
|
//DOCT_MENU_VAL
|
|
0,
|
|
|
|
//DOCT_HEX_ED
|
|
0,
|
|
|
|
//DOCT_HIDE_START
|
|
0,
|
|
|
|
//DOCT_HIDE_END
|
|
0,
|
|
|
|
//DOCT_TREE
|
|
0,
|
|
|
|
//DOCT_SPRITE
|
|
0,
|
|
|
|
//DOCT_INS_BINARY
|
|
0,
|
|
|
|
//DOCT_INS_BINARY_TYPE
|
|
0,
|
|
|
|
//DOCT_INS_BINARY_SIZE
|
|
0,
|
|
|
|
//DOCT_BPT
|
|
0,
|
|
|
|
//DOCT_SONG
|
|
0,
|
|
|
|
//DOCT_HIGHLIGHT
|
|
0,
|
|
|
|
//DOCT_LOCK_TO_PAGE
|
|
0,
|
|
|
|
//DOCT_LOCK_TO_CENTER
|
|
0,
|
|
|
|
//DOCT_HTML_IMG
|
|
0,
|
|
|
|
//DOCT_HTML_VIDEO
|
|
0,
|
|
|
|
//DOCT_HTML_CODE
|
|
0,
|
|
|
|
//DOCT_ERROR
|
|
0};
|
|
|
|
I64 doc_dft_type_flags[DOCT_NUM_TYPES]={
|
|
//DOCT_TEXT
|
|
0,
|
|
|
|
//DOCT_NEW_LINE
|
|
0,
|
|
|
|
//DOCT_SOFT_NEW_LINE
|
|
0,
|
|
|
|
//DOCT_CURSOR
|
|
0,
|
|
|
|
//DOCT_TAB
|
|
0,
|
|
|
|
//DOCT_CLEAR
|
|
0,
|
|
|
|
//DOCT_PAGE_BREAK
|
|
0,
|
|
|
|
//DOCT_DATA
|
|
0,
|
|
|
|
//DOCT_PAGE_LEN
|
|
0,
|
|
|
|
//DOCT_LEFT_MARGIN
|
|
0,
|
|
|
|
//DOCT_RIGHT_MARGIN
|
|
0,
|
|
|
|
//DOCT_HEADER
|
|
0,
|
|
|
|
//DOCT_FOOTER
|
|
0,
|
|
|
|
//DOCT_INDENT
|
|
0,
|
|
|
|
//DOCT_FOREGROUND
|
|
0,
|
|
|
|
//DOCT_BACKGROUND
|
|
0,
|
|
|
|
//DOCT_DFT_FOREGROUND
|
|
0,
|
|
|
|
//DOCT_DFT_BACKGROUND
|
|
0,
|
|
|
|
//DOCT_PMT
|
|
0,
|
|
|
|
//DOCT_WORD_WRAP
|
|
0,
|
|
|
|
//DOCT_UNDERLINE
|
|
0,
|
|
|
|
//DOCT_INVERT
|
|
0,
|
|
|
|
//DOCT_BLINK
|
|
0,
|
|
|
|
//DOCT_SHIFTED_X
|
|
0,
|
|
|
|
//DOCT_SHIFTED_Y
|
|
0,
|
|
|
|
//DOCT_CURSOR_MOVEMENT
|
|
0,
|
|
|
|
//DOCT_ANCHOR
|
|
0,
|
|
|
|
//DOCT_LINK
|
|
DOCET_UNDERLINE,
|
|
|
|
//DOCT_BUTTON
|
|
0,
|
|
|
|
//DOCT_CHECK_BOX
|
|
0,
|
|
|
|
//DOCT_MACRO
|
|
DOCET_UNDERLINE,
|
|
|
|
//DOCT_MENU_VAL
|
|
DOCET_UNDERLINE,
|
|
|
|
//DOCT_HEX_ED
|
|
0,
|
|
|
|
//DOCT_HIDE_START
|
|
DOCET_UNDERLINE,
|
|
|
|
//DOCT_HIDE_END
|
|
0,
|
|
|
|
//DOCT_TREE
|
|
DOCET_UNDERLINE,
|
|
|
|
//DOCT_SPRITE
|
|
0,
|
|
|
|
//DOCT_INS_BINARY
|
|
0,
|
|
|
|
//DOCT_INS_BINARY_TYPE
|
|
0,
|
|
|
|
//DOCT_INS_BINARY_SIZE
|
|
0,
|
|
|
|
//DOCT_BPT
|
|
0,
|
|
|
|
//DOCT_SONG
|
|
0,
|
|
|
|
//DOCT_HIGHLIGHT
|
|
0,
|
|
|
|
//DOCT_LOCK_TO_PAGE
|
|
0,
|
|
|
|
//DOCT_LOCK_TO_CENTER
|
|
0,
|
|
|
|
//DOCT_HTML_IMG
|
|
0,
|
|
|
|
//DOCT_HTML_VIDEO
|
|
0,
|
|
|
|
//DOCT_HTML_CODE
|
|
0,
|
|
|
|
//DOCT_ERROR
|
|
0
|
|
};
|
|
|
|
I64 DocBinPtrRst(CDoc *doc,CDocEntry *doc_e)
|
|
{
|
|
U8 *st,*st2;
|
|
CDoc *doc2;
|
|
CDocBin *tempb,*tempb2;
|
|
I64 i,bin_num=0;
|
|
if (doc_e->flags1&DOCEF1_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=A2I(st2);
|
|
if (i>0||*st2) {
|
|
doc2=DocRead(st);
|
|
if (i>0 && (tempb2=DocBinFindNum(doc2,i)) ||
|
|
i==0 && (tempb2=DocBinFindTag(doc2,st2))) {
|
|
i=1;
|
|
if (bin_num>0) {
|
|
if (tempb=DocBinFindNum(doc,bin_num)) {
|
|
i=tempb->use_cnt;
|
|
DocBinDel(doc,tempb);
|
|
}
|
|
} else
|
|
bin_num=doc->cur_bin_num++;
|
|
tempb=MAllocIdentical(tempb2,doc->mem_task);
|
|
tempb->use_cnt=i;
|
|
tempb->data=MAllocIdentical(tempb2->data,doc->mem_task);
|
|
tempb->num=bin_num;
|
|
doc_e->bin_data=tempb;
|
|
if (Bt(doc_tag_types,doc_e->type_u8) && doc_e->tag && *doc_e->tag)
|
|
tempb->tag=StrNew(doc_e->tag,doc->mem_task);
|
|
else
|
|
tempb->tag=NULL;
|
|
QueIns(tempb,doc->bin_root.last);
|
|
} else
|
|
bin_num=0;
|
|
DocDel(doc2);
|
|
} else
|
|
bin_num=0;
|
|
Free(st2);
|
|
Free(st);
|
|
doc_e->bin_num=bin_num;
|
|
}
|
|
return bin_num;
|
|
}
|
|
|
|
U8 *Doc2PlainText(CDoc *doc,CDocEntry *doc_e)
|
|
{ //TODO: break strs
|
|
I64 i,j,
|
|
t1,f1,f2,flags1,flags2,type;
|
|
U8 *buf,*buf2;
|
|
|
|
buf=StrNew(DefineSub(doc_e->type_u8,"ST_DOC_CMDS"));
|
|
if (doc_e->type_u8!=DOCT_ERROR) {
|
|
f1=doc_dft_flags1[doc_e->type_u8];
|
|
f2=doc_dft_flags2[doc_e->type_u8];
|
|
t1=doc_e->type_u8|doc_dft_type_flags[doc_e->type_u8];
|
|
|
|
flags1=doc_e->flags1&~(DOCG_BL_IV_UL|DOCEF1_SELECTED|DOCEF1_HIGHLIGHT|DOCEF1_WORD_WRAP|DOCEF1_LOCK_TO_PAGE|DOCEF1_LOCK_TO_CENTER|DOCEF1_SKIP|DOCEF1_FILTER_SKIP);
|
|
flags2=doc_e->flags2;
|
|
for (i=0;i<DOCEf1_NUM_FLAGS+DOCEf2_NUM_FLAGS;i++)
|
|
if (i<DOCEf1_NUM_FLAGS) {
|
|
if (Bt(&f1,i)!=Bt(&flags1,i)) {
|
|
if (Bt(&flags1,i))
|
|
buf=StrAdd(buf,"+");
|
|
else
|
|
buf=StrAdd(buf,"-");
|
|
buf=StrAdd(buf,DefineSub(i,"ST_DOC_FLAGS"));
|
|
}
|
|
} else {
|
|
if (Bt(&f2,i-64)!=Bt(&flags2,i-64)) {
|
|
if (Bt(&flags2,i-64))
|
|
buf=StrAdd(buf,"+");
|
|
else
|
|
buf=StrAdd(buf,"-");
|
|
buf=StrAdd(buf,DefineSub(i,"ST_DOC_FLAGS"));
|
|
}
|
|
}
|
|
|
|
type=doc_e->type&~DOCET_SELECTED;
|
|
for (i=DOCEt_BLINK;i<=DOCEt_UNDERLINE;i++)
|
|
if (Bt(&t1,i)!=Bt(&type,i)) {
|
|
if (Bt(&type,i))
|
|
buf=StrAdd(buf,"+");
|
|
else
|
|
buf=StrAdd(buf,"-");
|
|
buf=StrAdd(buf,DefineSub(i,"ST_DOC_FLAGS"));
|
|
}
|
|
buf=StrAdd(buf,",");
|
|
nobound_switch (doc_e->type_u8) {
|
|
case DOCT_TEXT:
|
|
case DOCT_LINK:
|
|
case DOCT_ANCHOR:
|
|
case DOCT_MENU_VAL:
|
|
case DOCT_BUTTON:
|
|
case DOCT_CHECK_BOX:
|
|
case DOCT_TREE:
|
|
case DOCT_SPRITE:
|
|
case DOCT_INS_BINARY:
|
|
case DOCT_INS_BINARY_TYPE:
|
|
case DOCT_INS_BINARY_SIZE:
|
|
case DOCT_SONG:
|
|
case DOCT_HTML_IMG:
|
|
case DOCT_HTML_VIDEO:
|
|
case DOCT_HTML_CODE:
|
|
if (i==DOCT_CHECK_BOX)
|
|
buf2=doc_e->tag+4;
|
|
else if (doc_e->flags1 & DOCEF1_TREE)
|
|
buf2=doc_e->tag+3;
|
|
else
|
|
buf2=doc_e->tag;
|
|
buf2=MSPrintF("%s\"%$$Q\",",buf,buf2);
|
|
Free(buf); buf=buf2;
|
|
break;
|
|
case DOCT_DATA:
|
|
buf2=MSPrintF("%s%d,",buf,doc_e->len);
|
|
Free(buf); buf=buf2;
|
|
break;
|
|
case DOCT_HEX_ED:
|
|
buf2=MSPrintF("%s%d,",buf,doc_e->len);
|
|
Free(buf); buf=buf2;
|
|
buf2=MSPrintF("%s%d,",buf,doc_e->hex_ed_width);
|
|
Free(buf); buf=buf2;
|
|
break;
|
|
case DOCT_PAGE_LEN:
|
|
case DOCT_LEFT_MARGIN:
|
|
case DOCT_RIGHT_MARGIN:
|
|
case DOCT_HEADER:
|
|
case DOCT_FOOTER:
|
|
case DOCT_INDENT:
|
|
case DOCT_FOREGROUND:
|
|
case DOCT_BACKGROUND:
|
|
case DOCT_DFT_FOREGROUND:
|
|
case DOCT_DFT_BACKGROUND:
|
|
case DOCT_WORD_WRAP:
|
|
case DOCT_HIGHLIGHT:
|
|
case DOCT_LOCK_TO_PAGE:
|
|
case DOCT_LOCK_TO_CENTER:
|
|
case DOCT_UNDERLINE:
|
|
case DOCT_INVERT:
|
|
case DOCT_BLINK:
|
|
case DOCT_SHIFTED_X:
|
|
case DOCT_SHIFTED_Y:
|
|
if (doc_e->attr!=DOC_DFT) {
|
|
buf2=MSPrintF("%s%d,",buf,doc_e->attr);
|
|
Free(buf); buf=buf2;
|
|
}
|
|
case DOCT_NUM_TYPES-1: //nobound_switch
|
|
break;
|
|
}
|
|
flags1=doc_e->flags1& (DOCEF1_SCROLLING_X|DOCEF1_SHIFTED_X|DOCEF1_SCROLLING_Y|
|
|
DOCEF1_AUX_STR|DOCEF1_LEFT_EXP|DOCEF1_LEFT_MACRO|
|
|
DOCEF1_HAS_BIN|DOCEF1_RIGHT_EXP|DOCEF1_RIGHT_MACRO|
|
|
DOCEF1_WIDTH|DOCEF1_HEIGHT|DOCEF1_DEFINE|DOCEF1_HTML_LINK);
|
|
while (flags1) {
|
|
j=Bsf(flags1);
|
|
Btr(&flags1,j);
|
|
nobound_switch (j) {
|
|
case DOCEf1_SCROLLING_X:
|
|
buf2=MSPrintF("%s%d",buf,doc_e->scroll_len);
|
|
Free(buf); buf=buf2;
|
|
break;
|
|
case DOCEf1_SHIFTED_X:
|
|
j=doc_e->type.u16[1]&0x1F;
|
|
if (j&0x10) j|=0xFFFFFFF0;
|
|
buf2=MSPrintF("%s%d",buf,j);
|
|
Free(buf); buf=buf2;
|
|
break;
|
|
case DOCEf1_SHIFTED_Y:
|
|
j=doc_e->type>>21 &0x1F;
|
|
if (j&0x10) j|=0xFFFFFFF0;
|
|
buf2=MSPrintF("%s%d",buf,j);
|
|
Free(buf); buf=buf2;
|
|
break;
|
|
case DOCEf1_AUX_STR:
|
|
buf2=MSPrintF("%s\"%$$Q\"",buf,doc_e->aux_str);
|
|
Free(buf); buf=buf2;
|
|
break;
|
|
case DOCEf1_LEFT_EXP:
|
|
buf2=MSPrintF("%s%d",buf,doc_e->left_exp);
|
|
Free(buf); buf=buf2;
|
|
break;
|
|
case DOCEf1_LEFT_MACRO:
|
|
buf2=MSPrintF("%s\"%$$Q\"",buf,doc_e->left_macro);
|
|
Free(buf); buf=buf2;
|
|
break;
|
|
case DOCEf1_RIGHT_EXP:
|
|
buf2=MSPrintF("%s%d",buf,doc_e->right_exp);
|
|
Free(buf); buf=buf2;
|
|
break;
|
|
case DOCEf1_RIGHT_MACRO:
|
|
buf2=MSPrintF("%s\"%$$Q\"",buf,doc_e->right_macro);
|
|
Free(buf); buf=buf2;
|
|
break;
|
|
case DOCEf1_HAS_BIN:
|
|
buf2=MSPrintF("%s%d",buf,doc_e->bin_num);
|
|
Free(buf); buf=buf2;
|
|
break;
|
|
case DOCEf1_WIDTH:
|
|
buf2=MSPrintF("%s%d",buf,doc_e->width);
|
|
Free(buf); buf=buf2;
|
|
break;
|
|
case DOCEf1_HEIGHT:
|
|
buf2=MSPrintF("%s%d",buf,doc_e->height);
|
|
Free(buf); buf=buf2;
|
|
break;
|
|
case DOCEf1_DEFINE:
|
|
buf2=MSPrintF("%s\"%$$Q\"",buf,doc_e->define_str);
|
|
Free(buf); buf=buf2;
|
|
break;
|
|
case DOCEf1_HTML_LINK:
|
|
buf2=MSPrintF("%s\"%$$Q\"",buf,doc_e->html_link);
|
|
Free(buf); buf=buf2;
|
|
break;
|
|
#assert DOCEf1_HTML_LINK==DOCEf1_NUM_FLAGS-1 //nobound_switch
|
|
}
|
|
buf=StrAdd(buf,",");
|
|
}
|
|
flags2=doc_e->flags2&DOCEF2_BIN_PTR_LINK;
|
|
while (flags2) {
|
|
j=Bsf(flags2);
|
|
Btr(&flags2,j);
|
|
nobound_switch (j) {
|
|
case DOCEf2_BIN_PTR_LINK:
|
|
buf2=MSPrintF("%s\"%$$Q\"",buf,doc_e->bin_ptr_link);
|
|
Free(buf); buf=buf2;
|
|
break;
|
|
#assert DOCEf2_BIN_PTR_LINK==DOCEf2_NUM_FLAGS-1 //nobound_switch
|
|
}
|
|
buf=StrAdd(buf,",");
|
|
}
|
|
buf[StrLen(buf)-1]=0; //Kill last comma
|
|
}
|
|
buf2=StrNew(buf,doc->mem_task); //exact allocation
|
|
Free(buf);
|
|
return buf2;
|
|
}
|
|
|
|
|
|
CDocEntry *PrsDollarCmd(CDoc *doc,U8 *st)
|
|
{//This uses $LK,"Lex","MN:Lex"$() to parse a string and make Doc entries.
|
|
I64 i,j,flags1,flags2;
|
|
U8 *ptr,*st2;
|
|
CDocEntry *doc_e=NULL;
|
|
CLex *lx=LexNew(st,LF_DONT_FREE_BUF);
|
|
Lex(lx);
|
|
if (lx->token==TK_IDENT) {
|
|
i=DefineMatch(lx->ident,"ST_DOC_CMDS");
|
|
if (i<0)
|
|
i=DOCT_ERROR;
|
|
Lex(lx); //skip cmd code
|
|
doc_e=CAlloc(sizeof(CDocEntry),doc->mem_task);
|
|
doc_e->type=i;
|
|
doc_e->flags1=doc_dft_flags1[i];
|
|
doc_e->flags2=doc_dft_flags2[i];
|
|
doc_e->type|=doc_dft_type_flags[i];
|
|
PrsDocFlags(lx,&doc_e->flags1,&doc_e->flags2,&doc_e->type);
|
|
if (lx->token==',')
|
|
Lex(lx);
|
|
nobound_switch (i) {
|
|
case DOCT_TEXT:
|
|
case DOCT_LINK:
|
|
case DOCT_ANCHOR:
|
|
case DOCT_MENU_VAL:
|
|
case DOCT_BUTTON:
|
|
case DOCT_CHECK_BOX:
|
|
case DOCT_TREE:
|
|
case DOCT_SPRITE:
|
|
case DOCT_INS_BINARY:
|
|
case DOCT_INS_BINARY_TYPE:
|
|
case DOCT_INS_BINARY_SIZE:
|
|
case DOCT_SONG:
|
|
case DOCT_HTML_IMG:
|
|
case DOCT_HTML_VIDEO:
|
|
case DOCT_HTML_CODE:
|
|
if (lx->token==TK_STR) {
|
|
st2=LexExtStr(lx);
|
|
if (i==DOCT_CHECK_BOX) {
|
|
st=MSPrintF("[X] %s",st2);
|
|
Free(st2);
|
|
doc_e->min_col=1;
|
|
} else if (doc_e->flags1 & DOCEF1_TREE) {
|
|
st=MSPrintF("+] %s",st2);
|
|
Free(st2);
|
|
doc_e->min_col=1;
|
|
} else
|
|
st=st2;
|
|
doc_e->tag=StrNew(st,doc->mem_task);
|
|
Free(st);
|
|
} else {
|
|
if (DOCT_SPRITE<=i<=DOCT_INS_BINARY_SIZE ||
|
|
i==DOCT_SONG)
|
|
doc_e->tag=StrNew("",doc->mem_task);
|
|
else {
|
|
doc_e->tag=NULL;
|
|
doc_e->type=DOCT_ERROR;
|
|
}
|
|
}
|
|
break;
|
|
case DOCT_HIDE_START:
|
|
doc_e->tag=StrNew("<-",doc->mem_task);
|
|
doc_e->min_col=1;
|
|
break;
|
|
case DOCT_HIDE_END:
|
|
doc_e->tag=StrNew(">",doc->mem_task);
|
|
break;
|
|
case DOCT_DATA:
|
|
doc_e->flags1|=DOCEF1_AUX_STR; //don't allow switched off
|
|
doc_e->len=Expression(lx);
|
|
break;
|
|
case DOCT_HEX_ED:
|
|
doc_e->len=Expression(lx);
|
|
if (lx->token==',')
|
|
Lex(lx);
|
|
doc_e->hex_ed_width=Expression(lx);
|
|
break;
|
|
case DOCT_PAGE_LEN:
|
|
case DOCT_LEFT_MARGIN:
|
|
case DOCT_RIGHT_MARGIN:
|
|
case DOCT_HEADER:
|
|
case DOCT_FOOTER:
|
|
case DOCT_INDENT:
|
|
case DOCT_FOREGROUND:
|
|
case DOCT_BACKGROUND:
|
|
case DOCT_DFT_FOREGROUND:
|
|
case DOCT_DFT_BACKGROUND:
|
|
case DOCT_WORD_WRAP:
|
|
case DOCT_HIGHLIGHT:
|
|
case DOCT_LOCK_TO_PAGE:
|
|
case DOCT_LOCK_TO_CENTER:
|
|
case DOCT_UNDERLINE:
|
|
case DOCT_INVERT:
|
|
case DOCT_BLINK:
|
|
case DOCT_SHIFTED_X:
|
|
case DOCT_SHIFTED_Y:
|
|
if (!lx->token)
|
|
doc_e->attr=DOC_DFT;
|
|
else
|
|
doc_e->attr=Expression(lx);
|
|
break;
|
|
case DOCT_ERROR:
|
|
doc_e->flags1=0;
|
|
doc_e->flags2=0;
|
|
doc_e->type=DOCT_ERROR;
|
|
#assert DOCT_ERROR==DOCT_NUM_TYPES-1
|
|
// case DOCT_NUM_TYPES-1: //nobound_switch
|
|
break;
|
|
}
|
|
|
|
flags1=doc_e->flags1& (DOCEF1_SCROLLING_X|DOCEF1_SHIFTED_X|DOCEF1_SCROLLING_Y|
|
|
DOCEF1_AUX_STR|DOCEF1_LEFT_EXP|DOCEF1_LEFT_MACRO|
|
|
DOCEF1_HAS_BIN|DOCEF1_RIGHT_EXP|DOCEF1_RIGHT_MACRO|
|
|
DOCEF1_WIDTH|DOCEF1_HEIGHT|DOCEF1_DEFINE|DOCEF1_HTML_LINK);
|
|
while (flags1) {
|
|
j=Bsf(flags1);
|
|
Btr(&flags1,j);
|
|
while (lx->token==',')
|
|
Lex(lx);
|
|
nobound_switch (j) { //TODO: Might check for expression errors
|
|
case DOCEf1_SCROLLING_X:
|
|
doc_e->scroll_len=Expression(lx);
|
|
break;
|
|
case DOCEf1_SHIFTED_X:
|
|
doc_e->type|=(Expression(lx) & 0x1F)<<16;
|
|
break;
|
|
case DOCEf1_SHIFTED_Y:
|
|
doc_e->type|=(Expression(lx) & 0x1F)<<21;
|
|
break;
|
|
case DOCEf1_AUX_STR:
|
|
if (lx->token==TK_STR) {
|
|
st2=LexExtStr(lx);
|
|
doc_e->aux_str=StrNew(st2,doc->mem_task);
|
|
Free(st2);
|
|
if (i==DOCT_MACRO && !doc_e->tag)
|
|
doc_e->tag=StrNew(doc_e->aux_str,doc->mem_task);
|
|
//$AN,"Anchor","DataTagWidth"$
|
|
if (i==DOCT_DATA) {
|
|
if (ptr=StrStr(doc_e->aux_str,":"))
|
|
doc_e->min_col=ptr-doc_e->aux_str+1;
|
|
doc_e->tag=MAlloc(doc_e->len+doc_e->min_col+2,doc->mem_task); //+2 because "_\0"
|
|
}
|
|
} else
|
|
doc_e->type=DOCT_ERROR;
|
|
break;
|
|
case DOCEf1_LEFT_EXP:
|
|
doc_e->left_exp=Expression(lx);
|
|
break;
|
|
case DOCEf1_LEFT_MACRO:
|
|
if (lx->token==TK_STR) {
|
|
st2=LexExtStr(lx);
|
|
doc_e->left_macro=StrNew(st2,doc->mem_task);
|
|
Free(st2);
|
|
if (i==DOCT_MACRO && !doc_e->tag)
|
|
doc_e->tag=StrNew(doc_e->left_macro,doc->mem_task);
|
|
} else
|
|
doc_e->type=DOCT_ERROR;
|
|
break;
|
|
case DOCEf1_RIGHT_EXP:
|
|
doc_e->right_exp=Expression(lx);
|
|
break;
|
|
case DOCEf1_RIGHT_MACRO:
|
|
if (lx->token==TK_STR) {
|
|
st2=LexExtStr(lx);
|
|
doc_e->right_macro=StrNew(st2,doc->mem_task);
|
|
Free(st2);
|
|
if (i==DOCT_MACRO && !doc_e->tag)
|
|
doc_e->tag=StrNew(doc_e->right_macro,doc->mem_task);
|
|
} else
|
|
doc_e->type=DOCT_ERROR;
|
|
break;
|
|
case DOCEf1_HAS_BIN:
|
|
if (!lx->token)
|
|
doc_e->bin_num=0;
|
|
else
|
|
doc_e->bin_num=Expression(lx);
|
|
break;
|
|
case DOCEf1_WIDTH:
|
|
doc_e->width=Expression(lx);
|
|
break;
|
|
case DOCEf1_HEIGHT:
|
|
doc_e->height=Expression(lx);
|
|
break;
|
|
case DOCEf1_DEFINE:
|
|
if (lx->token==TK_STR) {
|
|
st2=LexExtStr(lx);
|
|
doc_e->define_str=StrNew(st2,doc->mem_task);
|
|
Free(st2);
|
|
} else
|
|
doc_e->type=DOCT_ERROR;
|
|
break;
|
|
case DOCEf1_HTML_LINK:
|
|
if (lx->token==TK_STR) {
|
|
st2=LexExtStr(lx);
|
|
doc_e->html_link=StrNew(st2,doc->mem_task);
|
|
Free(st2);
|
|
} else
|
|
doc_e->type=DOCT_ERROR;
|
|
break;
|
|
#assert DOCEf1_HTML_LINK==DOCEf1_NUM_FLAGS-1 //nobound_switch
|
|
}
|
|
}
|
|
flags2=doc_e->flags2&DOCEF2_BIN_PTR_LINK;
|
|
while (flags2) {
|
|
j=Bsf(flags2);
|
|
Btr(&flags2,j);
|
|
while (lx->token==',')
|
|
Lex(lx);
|
|
nobound_switch (j) { //TODO: Might check for expression errors
|
|
case DOCEf2_BIN_PTR_LINK:
|
|
if (lx->token==TK_STR) {
|
|
st2=LexExtStr(lx);
|
|
doc_e->bin_ptr_link=StrNew(st2,doc->mem_task);
|
|
Free(st2);
|
|
if (!DocBinPtrRst(doc,doc_e))
|
|
doc_e->type=DOCT_ERROR;
|
|
} else
|
|
doc_e->type=DOCT_ERROR;
|
|
break;
|
|
#assert DOCEf2_BIN_PTR_LINK==DOCEf2_NUM_FLAGS-1 //nobound_switch
|
|
}
|
|
}
|
|
} else if (!doc_e) {
|
|
doc_e=CAlloc(sizeof(CDocEntry),doc->mem_task);
|
|
doc_e->type=DOCT_ERROR;
|
|
}
|
|
LexDel(lx);
|
|
return doc_e;
|
|
}
|
|
|
|
public U0 DocIns(CDoc *doc,CDocEntry *doc_e)
|
|
{
|
|
U8 *dst;
|
|
Bool unlock=DocLock(doc);
|
|
CDocEntry *doc_ce=doc->cur_entry,*doc_ne;
|
|
|
|
doc_e->x=doc_ce->x;
|
|
doc_e->y=doc_ce->y;
|
|
doc_e->page_line_num=doc_ce->page_line_num;
|
|
doc_e->settings=NULL;
|
|
if (doc->cur_data_col>0 &&
|
|
doc_ce->type_u8==DOCT_TEXT &&
|
|
!(doc_ce->flags1&(DOCEF1_TAG_CB|DOCEF1_DEFINE|DOCEF1_HTML_LINK)) &&
|
|
!(doc_ce->flags2&DOCEF2_BIN_PTR_LINK) &&
|
|
doc->cur_data_col<doc_ce->max_col) {
|
|
doc_ne=CAlloc(sizeof(CDocEntryBase),doc->mem_task);
|
|
doc_ne->type=DOCT_TEXT|doc_ce->type&0xFFFFFF00;
|
|
doc_ne->x=doc_ce->x;
|
|
doc_ne->y=doc_ce->y;
|
|
doc_ne->page_line_num=doc_ce->page_line_num;
|
|
doc_ne->flags1=doc_ce->flags1;
|
|
doc_ne->flags2=doc_ce->flags2;
|
|
dst=doc_ce->tag+doc->cur_data_col;
|
|
doc_ne->tag=StrNew(dst,doc->mem_task);
|
|
*dst=0;
|
|
doc_ce->max_col=doc->cur_data_col;
|
|
QueIns(doc_ne,doc_ce);
|
|
doc->cur_data_col=0;
|
|
doc_ce=doc_ne;
|
|
doc_ce->max_col=StrLen(doc_ce->tag);
|
|
}
|
|
if (doc_ce->type_u8==DOCT_TEXT && doc->cur_data_col>=doc_ce->max_col) {
|
|
QueIns(doc_e,doc_ce);
|
|
doc->cur_entry=doc_e->next;
|
|
} else {
|
|
QueIns(doc_e,doc_ce->last);
|
|
doc->cur_entry=doc_ce;
|
|
}
|
|
doc->cur_data_col=doc->cur_entry->min_col;
|
|
DocRemSoftNewLines(doc,doc->cur_entry);
|
|
if (unlock)
|
|
DocUnlock(doc);
|
|
}
|
|
|
|
|
|
#help_index "Doc/Output"
|
|
public CDocEntry *DocPutS(CDoc *doc,U8 *st)
|
|
{ //Does not handle partial Doc entries
|
|
//Returns last newly created dollar-sign CDocEntry.
|
|
U8 ch,*ptr=st,*ptr2,*st2,*ptr3,*ptr4,*src,
|
|
*char_bitmap;
|
|
Bool unlock;
|
|
I64 j;
|
|
CDocEntry *doc_e=NULL,*result=NULL,*doc_ce;
|
|
if (!st || !doc && !(doc=DocPut) || doc->doc_signature!=DOC_SIGNATURE_VAL)
|
|
return NULL;
|
|
unlock=DocLock(doc);
|
|
if (doc->flags & DOCF_PLAIN_TEXT_WITH_TABS)
|
|
char_bitmap=zero_cr_nl_cursor_bitmap;
|
|
else if (doc->flags & DOCF_PLAIN_TEXT)
|
|
char_bitmap=zero_tab_ff_cr_nl_cursor_bitmap;
|
|
else
|
|
char_bitmap=zero_tab_ff_cr_nl_cursor_dollar_bitmap;
|
|
doc->recalc_start=doc; //TODO:This might be optimized
|
|
doc_ce=doc->cur_entry;
|
|
while (*ptr) {
|
|
ptr2=ptr;
|
|
do ch=*ptr++;
|
|
while (!Bt(char_bitmap,ch) || ch==CH_CURSOR && doc->flags&DOCF_NO_CURSOR);
|
|
ptr--;
|
|
if (!ch) {
|
|
if (j=ptr-ptr2) {
|
|
doc_e=CAlloc(sizeof(CDocEntryBase),doc->mem_task);
|
|
doc_e->type=DOCT_TEXT | doc->settings_root.dft_text_attr << 8;
|
|
if (doc->flags & DOCF_NO_CURSOR) {
|
|
src=MAlloc(j+1);
|
|
MemCpy(src,ptr2,j+1);
|
|
StrUtil(src,SUF_REM_CTRL_CHARS);
|
|
j=StrLen(src);
|
|
} else
|
|
src=ptr2;
|
|
doc_e->tag=MAlloc(j+1,doc->mem_task);
|
|
MemCpy(doc_e->tag,src,j+1);
|
|
doc_e->max_col=j;
|
|
DocIns(doc,doc_e);
|
|
if (doc->flags & DOCF_NO_CURSOR)
|
|
Free(src);
|
|
}
|
|
} else {
|
|
if (j=ptr-ptr2) {
|
|
*ptr=0;
|
|
doc_e=CAlloc(sizeof(CDocEntryBase),doc->mem_task);
|
|
doc_e->type=DOCT_TEXT | doc->settings_root.dft_text_attr << 8;
|
|
if (doc->flags & DOCF_NO_CURSOR) {
|
|
src=MAlloc(j+1);
|
|
MemCpy(src,ptr2,j+1);
|
|
ptr3=src;
|
|
ptr4=src;
|
|
while (*ptr3)
|
|
if (*ptr3!=CH_CURSOR)
|
|
*ptr4++=*ptr3++;
|
|
else
|
|
ptr3++;
|
|
*ptr4=0;
|
|
j=ptr4-src;
|
|
} else
|
|
src=ptr2;
|
|
doc_e->tag=MAlloc(j+1,doc->mem_task);
|
|
MemCpy(doc_e->tag,src,j+1);
|
|
doc_e->max_col=j;
|
|
DocIns(doc,doc_e);
|
|
if (doc->flags & DOCF_NO_CURSOR)
|
|
Free(src);
|
|
*ptr=ch;
|
|
}
|
|
switch (ch) {
|
|
case CH_CURSOR:
|
|
doc_e=CAlloc(sizeof(CDocEntryBase),doc->mem_task);
|
|
doc_e->type=DOCT_CURSOR | doc->settings_root.dft_text_attr << 8;
|
|
DocIns(doc,doc_e);
|
|
ptr++;
|
|
break;
|
|
case CH_FORM_FEED:
|
|
doc_e=CAlloc(sizeof(CDocEntryBase),doc->mem_task);
|
|
doc_e->type=DOCT_PAGE_BREAK | doc->settings_root.dft_text_attr << 8;
|
|
DocIns(doc,doc_e);
|
|
ptr++;
|
|
break;
|
|
case '\t':
|
|
doc_e=CAlloc(sizeof(CDocEntryBase),doc->mem_task);
|
|
doc_e->type=DOCT_TAB | doc->settings_root.dft_text_attr << 8;
|
|
DocIns(doc,doc_e);
|
|
ptr++;
|
|
break;
|
|
case '$$':
|
|
ptr++; //skip first dollar
|
|
ptr2=ptr;
|
|
while (*ptr && *ptr!='$$')
|
|
ptr++;
|
|
if (*ptr) {
|
|
*ptr=0; //zero second dollar
|
|
if (ptr-1==ptr2 && *ptr2==CH_CURSOR) {
|
|
doc_e=CAlloc(sizeof(CDocEntryBase),doc->mem_task);
|
|
doc_e->type=DOCT_CURSOR | doc->settings_root.dft_text_attr << 8;
|
|
DocIns(doc,doc_e);
|
|
ptr2++;
|
|
}
|
|
if (ptr==ptr2) {
|
|
doc_e=CAlloc(sizeof(CDocEntryBase),doc->mem_task);
|
|
doc_e->type=DOCT_TEXT | doc->settings_root.dft_text_attr << 8;
|
|
doc_e->max_col=1;
|
|
if (doc->flags & DOCF_DBL_DOLLARS)
|
|
doc_e->tag=StrNew("$$$$",doc->mem_task);
|
|
else
|
|
doc_e->tag=StrNew("$$",doc->mem_task);
|
|
DocIns(doc,doc_e);
|
|
} else {
|
|
st2=MAlloc(ptr-ptr2+1);
|
|
ptr3=ptr2;
|
|
ptr4=st2;
|
|
while (ch=*ptr3++) {
|
|
if (ch==CH_CURSOR) {
|
|
doc_e=CAlloc(sizeof(CDocEntryBase),doc->mem_task);
|
|
doc_e->type=DOCT_CURSOR | doc->settings_root.dft_text_attr << 8;
|
|
DocIns(doc,doc_e);
|
|
} else if (ch==CH_FORM_FEED) {
|
|
doc_e=CAlloc(sizeof(CDocEntryBase),doc->mem_task);
|
|
doc_e->type=DOCT_PAGE_BREAK | doc->settings_root.dft_text_attr << 8;
|
|
DocIns(doc,doc_e);
|
|
} else
|
|
*ptr4++=ch;
|
|
}
|
|
*ptr4=0;
|
|
if (doc_e=PrsDollarCmd(doc,st2)) {
|
|
result=doc_e;
|
|
DocIns(doc,doc_e);
|
|
}
|
|
Free(st2);
|
|
}
|
|
*ptr++='$$';
|
|
}
|
|
break;
|
|
default:
|
|
doc_e=CAlloc(sizeof(CDocEntryBase),doc->mem_task);
|
|
doc_e->type=DOCT_NEW_LINE | doc->settings_root.dft_text_attr << 8;
|
|
DocIns(doc,doc_e);
|
|
if (ch=='\r')
|
|
while (*ptr=='\r')
|
|
ptr++;
|
|
if (*ptr=='\n')
|
|
ptr++;
|
|
while (*ptr=='\r')
|
|
ptr++;
|
|
}
|
|
}
|
|
}
|
|
if (unlock)
|
|
DocUnlock(doc);
|
|
return result;
|
|
}
|
|
|
|
|
|
public CDocEntry *DocPrintF(CDoc *doc,U8 *src,...)
|
|
{
|
|
U8 *buf=SPrintFJoin(NULL,src,argc,argv);
|
|
CDocEntry *result=DocPutS(doc,buf);
|
|
Free(buf);
|
|
return result;
|
|
}
|
|
|
|
#help_index "Doc"
|
|
|