static void do_dialog(char *b)
{
char *quit = "Quit!";
if (Batch) return;
#ifdef FIX_CHAR_WIDTH
FIX_CHAR_WIDTH;
#endif
if (! *b)
{
if(!SLKeyBoard_Quit) return;
b = quit;
}
if ((b == Error_Buffer) || (b == quit))
{
SLsmg_set_color (JERROR_COLOR);
touch_screen();
}
else
SLsmg_set_color (JMESSAGE_COLOR);
SLsmg_Newline_Behavior = SLSMG_NEWLINE_PRINTABLE;
SLsmg_gotorc (Jed_Num_Screen_Rows - 1, 0);
SLsmg_write_string (b);
SLsmg_set_color (0);
SLsmg_erase_eol ();
SLsmg_Newline_Behavior = 0;
if ((b == Error_Buffer) || (SLKeyBoard_Quit))
{
jed_beep();
flush_input();
}
if (*b)
{
if (MiniBuffer != NULL)
{
SLsmg_refresh ();
(void) input_pending(&Number_Ten);
}
Mini_Ghost = -1;
}
else Mini_Ghost = 0;
}
/* This routine is a mess and it, do_dialog, and the Mini_Ghost flag needs
* to be totally redesigned.
*/
void update(Line *line, int force, int flag, int run_update_hook)
{
int pc_flag = 1;
int col;
static unsigned long last_time;
Line *hscroll_line_save;
if (0 == Jed_Display_Initialized)
return;
#if JED_HAS_SUBPROCESSES
if (Child_Status_Changed_Flag)
{
jed_get_child_status ();
force = 1;
}
#endif
if (Batch) return;
if (!force && !SLang_get_error () && !SLKeyBoard_Quit && (!*Error_Buffer))
{
if (screen_input_pending (0))
{
JWindow->trashed = 1;
return;
}
}
if (last_time + 30 < Status_This_Time)
{
if (last_time == 0) last_time = Status_This_Time;
else
{
last_time = Status_This_Time;
if (SLang_run_hooks ("update_timer_hook", 0))
flag = 0;
}
}
if (run_update_hook
&& (CBuf->buffer_hooks != NULL)
&& (CBuf->buffer_hooks->update_hook != NULL)
&& (SLang_get_error () == 0))
{
Suspend_Screen_Update = 1;
SLexecute_function (CBuf->buffer_hooks->update_hook);
if (SLang_get_error ()) CBuf->buffer_hooks->update_hook = NULL;
}
if (Suspend_Screen_Update != 0)
{
Suspend_Screen_Update = 0;
touch_screen ();
}
if (X_Update_Open_Hook != NULL) (*X_Update_Open_Hook) ();
#ifdef FIX_CHAR_WIDTH
FIX_CHAR_WIDTH;
#endif
col = calculate_column ();
HScroll_Line = NULL;
if (Wants_HScroll) set_hscroll(col); else HScroll = 0;
hscroll_line_save = HScroll_Line;
if (SLang_get_error ()) flag = 0; /* update hook invalidates flag */
if (SLang_get_error () && !(*Error_Buffer || SLKeyBoard_Quit))
{
SLang_verror (0, "%s", SLerr_strerror (0));
}
if (!flag && (*Error_Buffer || SLKeyBoard_Quit))
{
do_dialog(Error_Buffer);
#if 0
SLKeyBoard_Quit = 0;
SLang_restart(0);
SLang_set_error (0);
#endif
Mini_Ghost = 1;
(void) update_1(line, 1);
update_minibuffer();
}
else if ((flag == 0) && *Message_Buffer)
{
if (!update_1(line, force))
goto done;
do_dialog(Message_Buffer);
Mini_Ghost = 1;
update_minibuffer();
}
else
{
pc_flag = JWindow->trashed || (JWindow != JWindow->next) || Cursor_Motion;
if (!flag) update_minibuffer();
if (!update_1(line, force)) goto done;
}
if (!flag) *Error_Buffer = *Message_Buffer = 0;
#if JED_HAS_MENUS
update_top_screen_line ();
#else
if ((Top_Window_SY > 0) && JScreen[0].is_modified)
{
update_top_screen_line ();
}
#endif
done:
HScroll_Line = hscroll_line_save;
if (MiniBuf_Get_Response_String != NULL)
{
do_dialog (MiniBuf_Get_Response_String);
Mini_Ghost = 1;
}
else if (Point_Cursor_Flag || pc_flag)
point_cursor(col);
if (X_Update_Close_Hook != NULL) (*X_Update_Close_Hook) ();
SLsmg_refresh ();
}
/* if force then do update otherwise return 1 if update or 0 if not */
static int update_1(Line *top, int force)
{
int i;
Window_Type *start_win;
int did_eob, time_has_expired = 0;
if (Batch ||
(!force
&& (Executing_Keyboard_Macro || (Repeat_Factor != NULL)
|| screen_input_pending (0)
|| (Read_This_Character != NULL)))
|| (CBuf != JWindow->buffer))
{
return(0);
}
if (Suspend_Screen_Update != 0)
{
Suspend_Screen_Update = 0;
touch_screen ();
}
JWindow->mark.line = CLine;
JWindow->mark.point = Point;
JWindow->mark.n = LineNum + CBuf->nup;
CBuf->linenum = LineNum;
CBuf->max_linenum = Max_LineNum;
if (Wants_Attributes && CBuf->vis_marks)
{
JWindow->trashed = 1;
}
/* Do not bother setting this unless it is really needed */
if (Display_Time)
{
Status_This_Time = sys_time();
time_has_expired = (Status_This_Time > Status_Last_Time + 45);
}
/* if cursor moves just left right, do not update status line */
if (!force && !JWindow->trashed &&
((JWindow == JWindow->next) || (User_Prefers_Line_Numbers && Cursor_Motion))
/* if % wanted, assume user is like me and gets annoyed with
* screen updates
*/
&& (User_Prefers_Line_Numbers
|| time_has_expired))
{
update_status_line(0);
return(1);
}
if (!JWindow->trashed && Cursor_Motion)
{
#if JED_HAS_LINE_ATTRIBUTES
if (CLine->flags & JED_LINE_IS_READONLY)
update_status_line (0);
#endif
return 1;
}
start_win = JWindow;
do
{
int imax;
unsigned int start_column;
#if JED_HAS_LINE_ATTRIBUTES
if (CBuf->min_unparsed_line_num)
jed_syntax_parse_buffer (0);
#endif
if (Wants_Syntax_Highlight) init_syntax_highlight ();
#if JED_HAS_LINE_ATTRIBUTES
if (top != NULL) top = jed_find_non_hidden_line (top);
#endif
/* (void) SLsmg_utf8_enable (CBuf->local_vars.is_utf8); */
if (top == NULL)
{
top = find_top();
if (top == NULL) top = CLine;
}
JWindow->beg.line = top;
#if JED_HAS_LINE_ATTRIBUTES
if (top->flags & JED_LINE_HIDDEN)
top = NULL;
else
#endif
mark_window_attributes ((start_win == JWindow) || (start_win->buffer != CBuf));
did_eob = 0;
i = JWindow->sy;
imax = i + JWindow->rows;
compute_line_display_size ();
start_column = JWindow->sx;
while (i < imax)
{
#if JED_HAS_LINE_ATTRIBUTES
if ((top != NULL) && (top->flags & JED_LINE_HIDDEN))
{
top = top->next;
continue;
}
#endif
/* the next line is really optional */
#if 0
if (!force && (Exit_From_MiniBuffer ||
screen_input_pending (0))) break;
#endif
if ((JScreen[i].line != top)
|| JScreen[i].is_modified
|| (Want_Eob
&& !did_eob
&& (i != Jed_Num_Screen_Rows - 1)
&& (top == NULL)))
{
if (((top == NULL) || (top->len == 0))
&& (Want_Eob && !did_eob && !(CBuf->flags & READ_ONLY)))
{
display_line(&Eob_Line, i, start_column);
/* JScreen[i].line = top; */
did_eob = 1;
}
else display_line(top, i, start_column);
}
if (top != NULL)
top = top->next;
i++;
}
HScroll_Line = NULL;
Mode_Has_Syntax_Highlight = 0;
if (!force && screen_input_pending (0))
{
while (JWindow != start_win) other_window();
JWindow->trashed = 1; /* since cursor not pointed */
/* (void) SLsmg_utf8_enable (1); */ /* default state */
return(0);
}
else update_status_line (start_win != JWindow);
#if JED_HAS_DISPLAY_LINE_NUMBERS
if (CBuf->line_num_display_size)
display_line_numbers ();
#endif
JWindow->trashed = 0;
other_window();
top = NULL;
/* if (!JWindow->trashed) top = JWindow->beg.line; else top = NULL; */
}
while (JWindow != start_win);
/* SLsmg_utf8_enable (1); */ /* default state */
return 1;
}
bool GLCD:: run(void *p)
{
display();
touch_screen();
return true;
}
