LTCD_070816.ISO
This commit is contained in:
Terry A. Davis authored and minexew committed
1 parent
d14bbc24f9
commit
0e9364ff4c
506 files changed
+157705
-41812
No files matched your search
@@ -0,0 +1,505 @@
|
||||
U8 ltf_display_types[1],ltf_nondisplay_invisible_types[1],
|
||||
ltf_form_types[1],ltf_data_types[1];
|
||||
U8 ltf_clean_scancodes[4]={0,0,0,0};
|
||||
|
||||
ltf_display_types[0]=
|
||||
1<<LTFT_TEXT|
|
||||
1<<LTFT_DATA|
|
||||
1<<LTFT_MENU_VALUE|
|
||||
1<<LTFT_HIDE_START |
|
||||
1<<LTFT_TREE|
|
||||
1<<LTFT_HIDE_END|
|
||||
1<<LTFT_MACRO|
|
||||
1<<LTFT_BUTTON|
|
||||
1<<LTFT_CHECK_BOX|
|
||||
1<<LTFT_LINK|
|
||||
1<<LTFT_ANCHOR|
|
||||
1<<LTFT_PICTURE|
|
||||
1<<LTFT_PICWORD|
|
||||
1<<LTFT_INSERT_BINARY|
|
||||
1<<LTFT_INSERT_BINARY_TYPE|
|
||||
1<<LTFT_INSERT_BINARY_SIZE|
|
||||
1<<LTFT_SONG;
|
||||
ltf_nondisplay_invisible_types[0]=
|
||||
1<<LTFT_PAGE_LENGTH|
|
||||
1<<LTFT_LEFT_MARGIN|
|
||||
1<<LTFT_RIGHT_MARGIN|
|
||||
1<<LTFT_HEADER|
|
||||
1<<LTFT_FOOTER|
|
||||
1<<LTFT_INDENT|
|
||||
1<<LTFT_FOREGROUND_COLOR|
|
||||
1<<LTFT_BACKGROUND_COLOR|
|
||||
1<<LTFT_DEFAULT_FOREGROUND_COLOR|
|
||||
1<<LTFT_DEFAULT_BACKGROUND_COLOR|
|
||||
1<<LTFT_LINK_FOREGROUND|
|
||||
1<<LTFT_LINK_BACKGROUND|
|
||||
1<<LTFT_MACRO_FOREGROUND|
|
||||
1<<LTFT_MACRO_BACKGROUND|
|
||||
1<<LTFT_ANCHOR_FOREGROUND|
|
||||
1<<LTFT_ANCHOR_BACKGROUND|
|
||||
1<<LTFT_HIDDEN_FOREGROUND|
|
||||
1<<LTFT_HIDDEN_BACKGROUND|
|
||||
1<<LTFT_TREE_FOREGROUND|
|
||||
1<<LTFT_TREE_BACKGROUND|
|
||||
1<<LTFT_USER_FOREGROUND|
|
||||
1<<LTFT_USER_BACKGROUND|
|
||||
1<<LTFT_WORD_WRAP|
|
||||
1<<LTFT_UNDERLINED|
|
||||
1<<LTFT_INVERTED|
|
||||
1<<LTFT_BLINK|
|
||||
1<<LTFT_SHIFTED_X|
|
||||
1<<LTFT_SHIFTED_Y|
|
||||
1<<LTFT_PICTURE|
|
||||
1<<LTFT_PICWORD|
|
||||
1<<LTFT_TOP_LEFT_TOOLBAR|
|
||||
1<<LTFT_TOP_RIGHT_TOOLBAR|
|
||||
1<<LTFT_BPT;
|
||||
ltf_form_types[0]=ltf_display_types[0] & ~(1<<LTFT_TEXT)|1<<LTFT_HEX_EDIT;
|
||||
ltf_data_types[0]=1<<LTFT_DATA|
|
||||
1<<LTFT_HEX_EDIT|
|
||||
1<<LTFT_CHECK_BOX;
|
||||
|
||||
Bts(ltf_clean_scancodes,SC_CURSOR_RIGHT);
|
||||
Bts(ltf_clean_scancodes,SC_CURSOR_LEFT);
|
||||
Bts(ltf_clean_scancodes,SC_CURSOR_UP);
|
||||
Bts(ltf_clean_scancodes,SC_CURSOR_DOWN);
|
||||
Bts(ltf_clean_scancodes,SC_PAGE_UP);
|
||||
Bts(ltf_clean_scancodes,SC_PAGE_DOWN);
|
||||
Bts(ltf_clean_scancodes,SC_ALT);
|
||||
Bts(ltf_clean_scancodes,SC_CTRL);
|
||||
Bts(ltf_clean_scancodes,SC_SHIFT);
|
||||
Bts(ltf_clean_scancodes,SC_CAPS);
|
||||
Bts(ltf_clean_scancodes,SC_NUM);
|
||||
Bts(ltf_clean_scancodes,SC_SCROLL);
|
||||
Bts(ltf_clean_scancodes,SC_HOME);
|
||||
Bts(ltf_clean_scancodes,SC_END);
|
||||
Bts(ltf_clean_scancodes,SC_GUI);
|
||||
Bts(ltf_clean_scancodes,SC_BACKSPACE); //Handled specially
|
||||
|
||||
|
||||
LtfBinEntry *LtfFindBin(Ltf *l,U8 num)
|
||||
{
|
||||
LtfBinEntry *b=l->bin_root.next;
|
||||
while (b!=&l->bin_root) {
|
||||
if (b->num==num)
|
||||
return b;
|
||||
b=b->next;
|
||||
}
|
||||
return NULL;
|
||||
}
|
||||
|
||||
void LtfValidateBins(Ltf *l)
|
||||
{
|
||||
LtfBinEntry *b=l->bin_root.next,*b1;
|
||||
LtfEntry *cl=l->dummy.next,*cl2;
|
||||
while (b!=&l->bin_root) {
|
||||
b->use_cnt=0;
|
||||
b->temp_use_cnt=0;
|
||||
b=b->next;
|
||||
}
|
||||
while (cl!=l) {
|
||||
cl2=cl->next;
|
||||
if (cl->flags & LTFLF_HAS_BIN) {
|
||||
if (cl->bin_data=LtfFindBin(l,cl->bin_num)) {
|
||||
cl->bin_data->use_cnt++;
|
||||
if (cl->btype==LTFT_PICWORD)
|
||||
cl->bin_data->temp_use_cnt++;
|
||||
} else {
|
||||
DbgStr("Bin Not Found",3000);
|
||||
RemQue(cl); //don't attempt to delete
|
||||
}
|
||||
}
|
||||
cl=cl2;
|
||||
}
|
||||
b=l->bin_root.next;
|
||||
l->cur_bin_num=1;
|
||||
while (b!=&l->bin_root) {
|
||||
b1=b->next;
|
||||
if (!b->use_cnt) {
|
||||
RemQue(b);
|
||||
Free(b->data,l->mem_tss);
|
||||
Free(b,l->mem_tss);
|
||||
} else {
|
||||
if (b->num>=l->cur_bin_num)
|
||||
l->cur_bin_num=b->num+1;
|
||||
}
|
||||
b=b1;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
void LtfDelBin(Ltf *l,LtfBinEntry *b)
|
||||
{
|
||||
b->use_cnt--;
|
||||
if (!b->use_cnt) {
|
||||
RemQue(b);
|
||||
Free(b->data,l->mem_tss);
|
||||
Free(b,l->mem_tss);
|
||||
}
|
||||
}
|
||||
|
||||
void LtfDelEntry(Ltf *l,LtfEntry *cl)
|
||||
{
|
||||
if (l==cl)
|
||||
DbgStr("Ltf Del Header",10000);
|
||||
else {
|
||||
if (l->cur_entry==cl)
|
||||
l->cur_entry=cl->next;
|
||||
if (l->top_entry==cl)
|
||||
l->top_entry=cl->next;
|
||||
RemQue(cl);
|
||||
if (Bt(ltf_display_types,cl->btype))
|
||||
Free(cl->display,l->mem_tss);
|
||||
if (cl->flags & LTFLF_LEFT_MACRO)
|
||||
Free(cl->left_macro,l->mem_tss);
|
||||
if (cl->flags & LTFLF_RIGHT_MACRO)
|
||||
Free(cl->right_macro,l->mem_tss);
|
||||
if (cl->flags & LTFLF_AUX_STR)
|
||||
Free(cl->aux_str,l->mem_tss);
|
||||
if (cl->flags & LTFLF_HAS_BIN)
|
||||
LtfDelBin(l,cl->bin_data);
|
||||
Free(cl,l->mem_tss);
|
||||
}
|
||||
}
|
||||
|
||||
void LtfDelUndo(Ltf *l,LtfUndo *u)
|
||||
{
|
||||
Free(u->body,l->mem_tss);
|
||||
Free(u,l->mem_tss);
|
||||
}
|
||||
|
||||
void LtfSetUndoCnt(Ltf *l)
|
||||
{
|
||||
BoolU4 old_preempt=Preempt(OFF);
|
||||
LtfUndo *u=l->undo_root.next;
|
||||
l->undo_cnt=0;
|
||||
while (u!=&l->undo_root) {
|
||||
l->undo_cnt++;
|
||||
u=u->next;
|
||||
}
|
||||
Preempt(old_preempt);
|
||||
}
|
||||
|
||||
BoolU8 LtfCheckBin(Ltf *l,LtfBinEntry *b)
|
||||
{
|
||||
if (MTss(b->data)!=l->mem_tss)
|
||||
return FALSE;
|
||||
if (MTss(b)!=l->mem_tss)
|
||||
return FALSE;
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
BoolU8 LtfCheckEntry(Ltf *l,LtfEntry *cl)
|
||||
{
|
||||
if (l==cl)
|
||||
DbgStr("Ltf Del Header",10000);
|
||||
else {
|
||||
if (Bt(ltf_display_types,cl->btype))
|
||||
if (MTss(cl->display)!=l->mem_tss)
|
||||
return FALSE;
|
||||
if (cl->flags & LTFLF_LEFT_MACRO)
|
||||
if (MTss(cl->left_macro)!=l->mem_tss)
|
||||
return FALSE;
|
||||
if (cl->flags & LTFLF_RIGHT_MACRO)
|
||||
if (MTss(cl->right_macro)!=l->mem_tss)
|
||||
return FALSE;
|
||||
if (cl->flags & LTFLF_AUX_STR)
|
||||
if (MTss(cl->aux_str)!=l->mem_tss)
|
||||
return FALSE;
|
||||
if (cl->flags & LTFLF_HAS_BIN)
|
||||
if (!LtfCheckBin(l,cl->bin_data))
|
||||
return FALSE;
|
||||
if (MTss(cl)!=l->mem_tss)
|
||||
return FALSE;
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
|
||||
LtfEntry *LtfCopyEntry(Ltf *l,LtfEntry *cl)
|
||||
{
|
||||
LtfEntry *nl;
|
||||
LtfBinEntry *tempb;
|
||||
TssStruct *tss=l->mem_tss;
|
||||
nl=MAllocIdentical(cl,tss);
|
||||
nl->next=nl;
|
||||
nl->last=nl;
|
||||
if (Bt(ltf_display_types,cl->btype))
|
||||
nl->display=MAllocIdentical(cl->display,tss);
|
||||
if (cl->flags & LTFLF_AUX_STR)
|
||||
nl->aux_str=MAllocIdentical(cl->aux_str,tss);
|
||||
if (cl->flags & LTFLF_LEFT_MACRO)
|
||||
nl->left_macro=MAllocIdentical(cl->left_macro,tss);
|
||||
if (cl->flags & LTFLF_RIGHT_MACRO)
|
||||
nl->right_macro=MAllocIdentical(cl->right_macro,tss);
|
||||
if (cl->flags & LTFLF_HAS_BIN) {
|
||||
tempb=MAllocIdentical(cl->bin_data,tss);
|
||||
tempb->data=MAllocIdentical(cl->bin_data->data,tss);
|
||||
nl->bin_num=l->cur_bin_num;
|
||||
tempb->num=l->cur_bin_num++;
|
||||
nl->bin_data=tempb;
|
||||
InsQue(tempb,l->bin_root.last);
|
||||
}
|
||||
return nl;
|
||||
}
|
||||
|
||||
void LtfFormForward(Ltf *l)
|
||||
{
|
||||
LtfEntry *cl=l->cur_entry,*cl1=cl->last,*cl2=cl;
|
||||
if (l->flags & LTFF_FORM) {
|
||||
while (cl!=cl1 && !Bt(ltf_form_types,cl->btype))
|
||||
cl=cl->next;
|
||||
}
|
||||
while (cl->btype==LTFT_INDENT)
|
||||
cl=cl->next;
|
||||
if (cl!=cl2) {
|
||||
l->cur_data_col=cl->min_col;
|
||||
l->cur_entry=cl;
|
||||
}
|
||||
}
|
||||
|
||||
void LtfFormBackward(Ltf *l)
|
||||
{
|
||||
LtfEntry *cl=l->cur_entry,*cl1=cl->next,*cl2=cl;
|
||||
if (l->flags & LTFF_FORM) {
|
||||
while (cl!=cl1 && !Bt(ltf_form_types,cl->btype))
|
||||
cl=cl->last;
|
||||
}
|
||||
while (cl->btype==LTFT_INDENT)
|
||||
cl=cl->next;
|
||||
if (cl!=cl2) {
|
||||
l->cur_data_col=cl->min_col;
|
||||
l->cur_entry=cl;
|
||||
}
|
||||
}
|
||||
|
||||
public void LtfHome(Ltf *l=NULL)
|
||||
{
|
||||
if (!l) {
|
||||
l=Fs->cur_ltf;
|
||||
if (!l) return;
|
||||
}
|
||||
l->cur_entry=l->dummy.next;
|
||||
l->cur_data_col=l->cur_entry->min_col;
|
||||
l->x=0;
|
||||
l->y=0;
|
||||
l->line_start_col=0;
|
||||
l->cur_top_line_num=0;
|
||||
LtfFormForward(l);
|
||||
}
|
||||
|
||||
public BoolU4 LtfCheck(Ltf *l=NULL)
|
||||
{
|
||||
LtfEntry *cl,*cl1;
|
||||
if (!l) {
|
||||
l=Fs->cur_ltf;
|
||||
if (!l) return FALSE;
|
||||
}
|
||||
cl=l->dummy.next;
|
||||
while (cl!=l) {
|
||||
cl1=cl->next;
|
||||
if (!LtfCheckEntry(l,cl))
|
||||
return FALSE;
|
||||
cl=cl1;
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
public void LtfReset(Ltf *l,BoolU4 is_old)
|
||||
{
|
||||
LtfEntry *cl,*cl1;
|
||||
LtfUndo *u,*u1;
|
||||
if (!l) {
|
||||
l=Fs->cur_ltf;
|
||||
if (!l) return;
|
||||
}
|
||||
if (is_old) {
|
||||
cl=l->dummy.next;
|
||||
while (cl!=l) {
|
||||
cl1=cl->next;
|
||||
LtfDelEntry(l,cl);
|
||||
cl=cl1;
|
||||
}
|
||||
u=l->undo_root.next;
|
||||
while (u!=&l->undo_root) {
|
||||
u1=u->next;
|
||||
LtfDelUndo(l,u);
|
||||
u=u1;
|
||||
}
|
||||
}
|
||||
//Check $LK,"EditInsertLtf","MN:EditInsertLtf"$
|
||||
l->start_text_attribute=(WHITE<<4)+BLUE;
|
||||
l->text_attribute=l->start_text_attribute;
|
||||
l->link_attribute=(WHITE<<4)+RED;
|
||||
l->macro_attribute=(WHITE<<4)+LTBLUE;
|
||||
l->anchor_attribute=(WHITE<<4)+BLACK;
|
||||
l->hidden_attribute=(WHITE<<4)+BLACK;
|
||||
l->tree_attribute=(WHITE<<4)+PURPLE;
|
||||
l->user_attribute=(WHITE<<4)+GREEN;
|
||||
l->flags=0;
|
||||
l->dummy.next=l;
|
||||
l->dummy.last=l;
|
||||
l->bin_root.next=&l->bin_root;
|
||||
l->bin_root.last=&l->bin_root;
|
||||
l->undo_root.next=&l->undo_root;
|
||||
l->undo_root.last=&l->undo_root;
|
||||
l->undo_root.timestamp=0;
|
||||
l->undo_cnt=0;
|
||||
l->cur_bin_num=1;
|
||||
l->recalc_start=l;
|
||||
l->menu_ltf=NULL;
|
||||
l->dollar_buf_ptr=0;
|
||||
l->cmd_I1=CH_SPACE;
|
||||
l->indent=0;
|
||||
l->page_line_num=0;
|
||||
l->page_length=66;
|
||||
l->left_margin=LTF_DEFAULT;
|
||||
l->right_margin=LTF_DEFAULT;
|
||||
l->header=LTF_DEFAULT;
|
||||
l->footer=LTF_DEFAULT;
|
||||
l->best_d=MAX_I8;
|
||||
|
||||
cl=&l->dummy;
|
||||
cl->type=LTFT_ERROR;
|
||||
cl->flags=0;
|
||||
cl->x=0;
|
||||
cl->y=0;
|
||||
cl->min_col=0;
|
||||
cl->max_col=0;
|
||||
cl->indent=l->indent;
|
||||
cl->page_line_num=l->page_line_num;
|
||||
cl->left_margin=l->left_margin;
|
||||
cl->right_margin=l->right_margin;
|
||||
|
||||
LtfHome(l);
|
||||
}
|
||||
|
||||
|
||||
public void LtfDel(Ltf *l)
|
||||
{
|
||||
Ltf *m;
|
||||
if (!l) return;
|
||||
m=l->menu_ltf;
|
||||
LtfReset(l,TRUE);
|
||||
Free(l->find_replace,l->mem_tss);
|
||||
Free(l->dollar_buf,l->mem_tss);
|
||||
LtfDel(m);
|
||||
Free(l,l->mem_tss);
|
||||
}
|
||||
|
||||
|
||||
void LtfFormatData(LtfEntry *cl)
|
||||
{
|
||||
BoolU4 *b;
|
||||
U8 *d;
|
||||
I8 i;
|
||||
if (cl->btype==LTFT_DATA) {
|
||||
d=cl->data;
|
||||
if (cl->flags & LTFLF_DATA_IS_PTR)
|
||||
SPrintF(cl->display,cl->aux_str,*d,cl->my_format_data);
|
||||
else
|
||||
SPrintF(cl->display,cl->aux_str,d,cl->my_format_data);
|
||||
if (cl->flags & LTFLF_HAS_TERMINATOR) {
|
||||
i=StrLen(cl->display);
|
||||
cl->display[i++]='_';
|
||||
cl->display[i]=0;
|
||||
}
|
||||
cl->max_col=StrLen(cl->display);
|
||||
} else if (cl->btype==LTFT_CHECK_BOX) {
|
||||
if (cl->flags & LTFLF_DATA_IS_PTR)
|
||||
b=cl->data;
|
||||
else
|
||||
b=&cl->data;
|
||||
if (*b)
|
||||
cl->flags|=LTFLF_CHECKED;
|
||||
else
|
||||
cl->flags&=~LTFLF_CHECKED;
|
||||
}
|
||||
}
|
||||
|
||||
void LtfGetData(LtfEntry *cl)
|
||||
{
|
||||
BoolU4 *b;
|
||||
I8 i;
|
||||
if (cl->btype==LTFT_DATA) {
|
||||
i=StrLen(cl->display);
|
||||
if (cl->flags & LTFLF_HAS_TERMINATOR)
|
||||
cl->display[--i]=0;
|
||||
if (i>cl->len+cl->min_col)
|
||||
cl->display[cl->len+cl->min_col]=0;
|
||||
if (cl->flags & LTFLF_DATA_IS_PTR)
|
||||
GetF(cl->display,cl->aux_str,cl->data,cl->my_format_data);
|
||||
else
|
||||
GetF(cl->display,cl->aux_str,&cl->data,cl->my_format_data);
|
||||
if (cl->flags & LTFLF_HAS_TERMINATOR)
|
||||
cl->display[i]='_';
|
||||
} else if (cl->btype==LTFT_CHECK_BOX) {
|
||||
if (cl->flags & LTFLF_DATA_IS_PTR)
|
||||
b=cl->data;
|
||||
else
|
||||
b=&cl->data;
|
||||
if (cl->flags & LTFLF_CHECKED)
|
||||
*b=TRUE;
|
||||
else
|
||||
*b=FALSE;
|
||||
}
|
||||
}
|
||||
|
||||
void LtfRemoveSoftCRs(Ltf *l=NULL,LtfEntry *cl=NULL)
|
||||
{
|
||||
LtfEntry *cl2,*saved_cl=cl;
|
||||
BoolU4 old_preempt=Preempt(OFF);
|
||||
if (!l) {
|
||||
l=Fs->cur_ltf;
|
||||
if (!l) return;
|
||||
}
|
||||
if (!cl) cl=l->dummy.next;
|
||||
while (cl!=l) {
|
||||
cl2=cl->next;
|
||||
if (cl->btype==LTFT_SOFT_CR) {
|
||||
if (l->cur_entry==cl) {
|
||||
l->cur_entry=cl2;
|
||||
l->cur_data_col=l->cur_entry->min_col;
|
||||
}
|
||||
LtfDelEntry(l,cl);
|
||||
} else if (saved_cl && cl->btype==LTFT_CR)
|
||||
break;
|
||||
cl=cl2;
|
||||
}
|
||||
Preempt(old_preempt);
|
||||
}
|
||||
|
||||
#help_index "Ltf/Cmd Line (Typically)"
|
||||
|
||||
public void LtfMax(U8 i=MAX_I4)
|
||||
//Adjusts the size of the Ltf buffer.
|
||||
//Normally, the command line deletes
|
||||
//entries after a while.
|
||||
{
|
||||
Ltf *l=Fs->cur_ltf;
|
||||
l->max_entries=i;
|
||||
}
|
||||
|
||||
#help_index "Ltf"
|
||||
public Ltf *LtfNew()
|
||||
{
|
||||
Ltf *l;
|
||||
l=MAllocZ(sizeof(Ltf));
|
||||
StrCpy(l->filename.name,sys_temp_filename);
|
||||
l->file_attr=0;
|
||||
l->find_replace=MAllocZ(sizeof(EditFindTextStruct));
|
||||
l->find_replace->scan_forward=1;
|
||||
l->find_replace->match_case=1;
|
||||
l->LeftClickLink=&EditLeftClickLink;
|
||||
l->dollar_buf_size=84;
|
||||
l->dollar_buf=MAlloc(l->dollar_buf_size);
|
||||
l->max_entries=MAX_I4;
|
||||
l->ww_lines_back=32;
|
||||
l->win_tss=Fs;
|
||||
l->mem_tss=Fs;
|
||||
LtfReset(l,FALSE);
|
||||
return l;
|
||||
}
|
||||
|
||||
sys_clipboard_ltf=LtfNew;
|
||||
|
||||
Reference in new issue
Block a user