enlightenment/enventor
enlightenment
/
enventor
7
0
Fork 2
Code Issues Pull Requests Projects Releases Wiki Activity
enventor/src/lib/edc_editor.c

2192 lines
63 KiB
C
Raw Blame History

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#define ENVENTOR_BETA_API_SUPPORT 1
#include <Enventor.h>
#include <Eio.h>
#include "enventor_private.h"
//FIXME: Make flexible
const int MAX_LINE_DIGIT_CNT = 12;
const int SYNTAX_COLOR_SPARE_LINES = 42;
const double SYNTAX_COLOR_DEFAULT_TIME = 0.25;
const double SYNTAX_COLOR_SHORT_TIME = 0.025;
typedef struct syntax_color_thread_data_s
{
Ecore_Thread *thread;
edit_data *ed;
const char *translated;
} syntax_color_td;
struct editor_s
{
Evas_Object *en_edit;
Evas_Object *en_line;
Evas_Object *scr_edit;
Evas_Object *scr_line;
Evas_Object *layout;
Evas_Object *ctxpopup;
Enventor_Object *enventor;
Enventor_Item *it;
Eina_Stringshare *filepath;
syntax_helper *sh;
parser_data *pd;
redoundo_data *rd;
int cur_line;
int line_max;
int error_line;
int syntax_color_lock;
int cursor_pos;
int ctxpopup_cursor_pos;
Evas_Coord scroller_h;
struct {
int prev_left;
int prev_right;
int left;
int right;
} bracket;
Ecore_Timer *syntax_color_timer;
syntax_color_td *sctd;
void (*view_sync_cb)(void *data, Eina_Stringshare *state_name, double state_value,
Eina_Stringshare *part_name, Eina_Stringshare *group_name);
void *view_sync_cb_data;
int select_pos;
const char *error_target;
Eina_Bool edit_changed : 1;
Eina_Bool ctrl_pressed : 1;
Eina_Bool on_select_recover : 1;
Eina_Bool on_save : 1;
Eina_Bool main : 1;
Eina_Bool disabled : 1;
};
/*****************************************************************************/
/* Internal method implementation */
/*****************************************************************************/
static Eina_Bool
image_preview_show(edit_data *ed, char *cur, Evas_Coord x, Evas_Coord y);
static void
error_line_num_highlight(edit_data *ed);
static void
line_init(edit_data *ed)
{
char buf[MAX_LINE_DIGIT_CNT];
ed->line_max = 1;
snprintf(buf, sizeof(buf), "%d", ed->line_max);
elm_entry_entry_set(ed->en_line, buf);
}
static void
visible_text_region_get(edit_data *ed, int *from_line, int *to_line)
{
Evas_Coord region_y, region_h;
Evas_Coord cursor_h;
elm_scroller_region_get(ed->scr_edit, NULL, &region_y, NULL, &region_h);
elm_entry_cursor_geometry_get(ed->en_edit, NULL, NULL, NULL, &cursor_h);
int from = (region_y / cursor_h);
int to = from + (region_h / cursor_h);
from -= SYNTAX_COLOR_SPARE_LINES;
to += SYNTAX_COLOR_SPARE_LINES;
if (from < 1) from = 1;
if (to > ed->line_max) to = ed->line_max;
*from_line = from;
*to_line = to;
}
static void
entry_recover_param_get(edit_data *ed,
int *cursor_pos,
int *sel_cur_begin,
int *sel_cur_end)
{
if (cursor_pos)
*cursor_pos = elm_entry_cursor_pos_get(ed->en_edit);
Edje_Object *en_edje;
if (sel_cur_begin || sel_cur_end)
{
en_edje = elm_layout_edje_get(ed->en_edit);
if (elm_entry_scrollable_get(ed->en_edit))
en_edje = edje_object_part_swallow_get(en_edje, "elm.swallow.content");
}
if (sel_cur_begin)
*sel_cur_begin = edje_object_part_text_cursor_pos_get
(en_edje, "elm.text", EDJE_CURSOR_SELECTION_BEGIN);
if (sel_cur_end)
*sel_cur_end = edje_object_part_text_cursor_pos_get
(en_edje, "elm.text", EDJE_CURSOR_SELECTION_END);
}
static void
entry_recover(edit_data *ed, int cursor_pos, int sel_cur_begin, int sel_cur_end)
{
elm_entry_calc_force(ed->en_edit);
//recover cursor position??
elm_entry_cursor_pos_set(ed->en_edit, 0);
elm_entry_cursor_pos_set(ed->en_edit, cursor_pos);
Edje_Object *en_edje = elm_layout_edje_get(ed->en_edit);
if (elm_entry_scrollable_get(ed->en_edit))
en_edje = edje_object_part_swallow_get(en_edje, "elm.swallow.content");
//recover selection cursor
edje_object_part_text_cursor_pos_set(en_edje, "elm.text",
EDJE_CURSOR_SELECTION_BEGIN, sel_cur_begin);
edje_object_part_text_cursor_pos_set(en_edje, "elm.text",
EDJE_CURSOR_SELECTION_END, sel_cur_end);
ed->on_select_recover = EINA_FALSE;
}
void
edit_font_update(edit_data *ed)
{
if (!ed) return;
elm_entry_calc_force(ed->en_line);
elm_entry_calc_force(ed->en_edit);
}
static void
error_highlight(edit_data *ed, Evas_Object *tb)
{
Evas_Textblock_Cursor *cur1 = evas_object_textblock_cursor_new(tb);
error_line_num_highlight(ed);
char *p;
if (ed->error_line != -1)
{
evas_textblock_cursor_line_set(cur1, ed->error_line);
evas_textblock_cursor_line_char_first(cur1);
while((p = evas_textblock_cursor_content_get(cur1)) && (*p == ' '))
{
evas_textblock_cursor_char_next(cur1);
free(p);
}
free(p);
evas_object_textblock_text_markup_prepend(cur1, "<error>");
evas_textblock_cursor_line_char_last(cur1);
evas_object_textblock_text_markup_prepend(cur1, "</error>");
}
else if (ed->error_target)
{
const char *ptr = NULL;
const char *par = NULL;
while (evas_textblock_cursor_paragraph_next(cur1))
{
par = evas_textblock_cursor_paragraph_text_get(cur1);
if (par && (ptr = strstr(par, ed->error_target)))
break;
}
evas_textblock_cursor_paragraph_char_first(cur1);
while((p = evas_textblock_cursor_content_get(cur1)) && (*p == ' '))
{
evas_textblock_cursor_char_next(cur1);
free(p);
}
free(p);
evas_object_textblock_text_markup_prepend(cur1, "<error>");
evas_textblock_cursor_paragraph_char_last(cur1);
evas_object_textblock_text_markup_prepend(cur1, "</error>");
}
evas_textblock_cursor_free(cur1);
}
static void
bracket_highlight(edit_data *ed, Evas_Object *tb)
{
Evas_Textblock_Cursor *cur1 = evas_object_textblock_cursor_new(tb);
evas_textblock_cursor_pos_set(cur1, ed->bracket.left);
evas_object_textblock_text_markup_prepend(cur1, "<hilight>");
evas_textblock_cursor_pos_set(cur1, ed->bracket.left + 1);
evas_object_textblock_text_markup_prepend(cur1, "</hilight>");
evas_textblock_cursor_pos_set(cur1, ed->bracket.right);
evas_object_textblock_text_markup_prepend(cur1, "<hilight>");
evas_textblock_cursor_pos_set(cur1, ed->bracket.right + 1);
evas_object_textblock_text_markup_prepend(cur1, "</hilight>");
evas_textblock_cursor_free(cur1);
}
static Eina_Bool
syntax_color_apply(edit_data *ed, Eina_Bool partial)
{
Evas_Object *tb = elm_entry_textblock_get(ed->en_edit);
char *text = (char *) evas_object_textblock_text_markup_get(tb);
if (!text) return EINA_FALSE;
int text_len = strlen(text);
//FIXME: We encountered a syntax coloring issue that won't be applied
//at the opening an edc script. The situation condition is below,
//and we try syntax coloring again in that case. Work around logic,
//but it works.
if (text_len == 0) return EINA_FALSE;
int from_line = 1;
int to_line = -1;
if (partial) visible_text_region_get(ed, &from_line, &to_line);
char *from = NULL;
char *to = NULL;
char *utf8 = (char *) color_cancel(NULL, syntax_color_data_get(ed->sh), text,
text_len, from_line, to_line, &from,
&to);
if (!utf8) return EINA_TRUE;
const char *translated = color_apply(NULL, syntax_color_data_get(ed->sh),
utf8, strlen(utf8), from, to);
if (!translated) return EINA_TRUE;
/* I'm not sure this will be problem.
But it can avoid entry_object_text_escaped_set() in Edje.
Logically that's unnecessary in this case. */
int cursor_pos, sel_cur_begin, sel_cur_end;
entry_recover_param_get(ed, &cursor_pos, &sel_cur_begin, &sel_cur_end);
evas_object_textblock_text_markup_set(tb, translated);
error_highlight(ed, tb);
bracket_highlight(ed, tb);
entry_recover(ed, cursor_pos, sel_cur_begin, sel_cur_end);
return EINA_TRUE;
}
static Eina_Bool
syntax_color_timer_cb(void *data)
{
edit_data *ed = data;
if (!syntax_color_apply(ed, EINA_TRUE))
{
return ECORE_CALLBACK_RENEW;
}
ed->syntax_color_timer = NULL;
return ECORE_CALLBACK_CANCEL;
}
static void
syntax_color_partial_update(edit_data *ed, double interval)
{
/* If the syntax_color_full_update is requested forcely, lock would be -1
in this case, it should avoid partial updation by entry changed. */
if (ed->syntax_color_lock != 0) return;
if (ed->sctd)
{
ecore_thread_cancel(ed->sctd->thread);
ed->sctd->ed = NULL;
ed->sctd = NULL;
}
ecore_timer_del(ed->syntax_color_timer);
ed->syntax_color_timer = ecore_timer_add(interval, syntax_color_timer_cb,
ed);
}
static void
syntax_color_thread_cb(void *data, Ecore_Thread *thread)
{
syntax_color_td *td = data;
ecore_thread_main_loop_begin();
if (!td->ed)
{
ecore_thread_main_loop_end();
return;
}
Evas_Object *tb = elm_entry_textblock_get(td->ed->en_edit);
const char *text = (char *) evas_object_textblock_text_markup_get(tb);
ecore_thread_main_loop_end();
char *utf8 = (char *) color_cancel(thread, syntax_color_data_get(td->ed->sh),
text, strlen(text), -1, -1, NULL,
NULL);
if (!utf8) return;
td->translated = color_apply(thread, syntax_color_data_get(td->ed->sh), utf8,
strlen(utf8), NULL, NULL);
}
static void
syntax_color_thread_cancel_cb(void *data, Ecore_Thread *thread EINA_UNUSED)
{
syntax_color_td *td = data;
if (td->ed && td->ed->sctd == td) td->ed->sctd = NULL;
free(td);
}
static void
syntax_color_thread_end_cb(void *data, Ecore_Thread *thread)
{
syntax_color_td *td = data;
if (!td->translated) goto end;
Evas_Object *tb = elm_entry_textblock_get(td->ed->en_edit);
/* I'm not sure this will be problem.
But it can avoid entry_object_text_escaped_set() in Edje.
Logically that's unnecessary in this case. */
int cursor_pos, sel_cur_begin, sel_cur_end;
entry_recover_param_get(td->ed, &cursor_pos, &sel_cur_begin, &sel_cur_end);
evas_object_textblock_text_markup_set(tb, td->translated);
error_highlight(td->ed, tb);
bracket_highlight(td->ed, tb);
entry_recover(td->ed, cursor_pos, sel_cur_begin, sel_cur_end);
end:
syntax_color_thread_cancel_cb(data, thread);
}
static void
bracket_changed_cb(void *data, int left, int right)
{
edit_data *ed = data;
ed->bracket.left = left;
ed->bracket.right = right;
if ((left != -1) && (right != -1))
{
if ((ed->bracket.prev_left != left) &&
(ed->bracket.prev_right != right))
{
syntax_color_partial_update(ed, SYNTAX_COLOR_SHORT_TIME);
ed->bracket.prev_left = left;
ed->bracket.prev_right = right;
}
}
else if((ed->bracket.prev_left != -1) && (ed->bracket.prev_right != -1))
{
syntax_color_partial_update(ed, SYNTAX_COLOR_SHORT_TIME);
ed->bracket.prev_left = -1;
ed->bracket.prev_right = -1;
}
}
static void
bracket_update(edit_data *ed)
{
int pos = elm_entry_cursor_pos_get(ed->en_edit);
if (pos == 0)
{
ed->cursor_pos = 0;
return;
}
if (pos == ed->cursor_pos) return;
ed->cursor_pos = pos;
Evas_Object *tb = elm_entry_textblock_get(ed->en_edit);
Evas_Textblock_Cursor *cur1 = evas_object_textblock_cursor_get(tb);
char *ch1 = NULL;
char *ch2 = NULL;
ch1 = evas_textblock_cursor_content_get(cur1);
Eina_Bool is_exist = evas_textblock_cursor_char_prev(cur1);
if (is_exist)
ch2 = evas_textblock_cursor_content_get(cur1);
evas_textblock_cursor_char_next(cur1);
if (is_exist && (*ch1 != '{') && (*ch1 != '}') && (*ch2 != '{')
&& (*ch2 != '}'))
{
if (ed->bracket.prev_left != -1 && ed->bracket.prev_right != -1)
{
//initialize bracket
ed->bracket.left = -1;
ed->bracket.right = -1;
ed->bracket.prev_left = -1;
ed->bracket.prev_right = -1;
syntax_color_partial_update(ed, SYNTAX_COLOR_SHORT_TIME);
}
free(ch1);
free(ch2);
return;
}
parser_bracket_find(ed->pd, ed->en_edit, bracket_changed_cb, ed);
free(ch1);
free(ch2);
}
static void
edit_changed_cb(void *data, Evas_Object *obj EINA_UNUSED, void *event_info)
{
Elm_Entry_Change_Info *info = event_info;
edit_data *ed = data;
edit_changed_set(ed, EINA_TRUE);
Eina_Bool syntax_color = EINA_TRUE;
ed->error_line = -1;
eina_stringshare_del(ed->error_target);
ed->error_target = NULL;
if (info->insert)
{
int increase = 0;
if ((info->change.insert.plain_length == 1)&&
(info->change.insert.content[0] == ' ')) return;
if (!strcmp(info->change.insert.content, EOL))
{
increase++;
syntax_color = EINA_FALSE;
}
else
{
increase =
parser_line_cnt_get(ed->pd, info->change.insert.content);
}
if (enventor_object_auto_indent_get(ed->enventor))
{
increase =
indent_insert_apply(syntax_indent_data_get(ed->sh),
info->change.insert.content, ed->cur_line);
}
edit_line_increase(ed, increase);
}
else
{
if (enventor_object_auto_indent_get(ed->enventor))
{
indent_delete_apply(syntax_indent_data_get(ed->sh),
info->change.del.content, ed->cur_line);
}
int decrease = parser_line_cnt_get(ed->pd, info->change.del.content);
edit_line_decrease(ed, decrease);
if (info->change.del.content[0] == ' ') return;
}
if (!syntax_color) return;
syntax_color_partial_update(ed, SYNTAX_COLOR_DEFAULT_TIME);
parser_bracket_cancel(ed->pd);
}
static void
ctxpopup_candidate_dismiss_cb(void *data, Evas_Object *obj,
void *event_info EINA_UNUSED)
{
edit_data *ed = data;
int cur_pos = elm_entry_cursor_pos_get(ed->en_edit);
elm_entry_cursor_line_end_set(ed->en_edit);
int end_pos = elm_entry_cursor_pos_get(ed->en_edit);
int i = 0;
char *ch = NULL;
for (i = cur_pos; i <= end_pos; i++)
{
elm_entry_cursor_pos_set(ed->en_edit, i);
ch = elm_entry_cursor_content_get(ed->en_edit);
if (*ch == ';')
{
elm_entry_cursor_pos_set(ed->en_edit, i + 1);
free(ch);
break;
}
free(ch);
}
evas_object_del(obj);
elm_object_tree_focus_allow_set(ed->layout, EINA_TRUE);
elm_object_focus_set(ed->en_edit, EINA_TRUE);
evas_object_smart_callback_call(ed->enventor, SIG_CTXPOPUP_DISMISSED, NULL);
}
static void
ctxpopup_candidate_changed_cb(void *data, Evas_Object *obj EINA_UNUSED,
void *event_info)
{
edit_data *ed = data;
const char *text = event_info;
char *ch = NULL;
int cur_pos, end_pos;
int i;
cur_pos = ed->ctxpopup_cursor_pos;
elm_entry_cursor_pos_set(ed->en_edit, cur_pos);
elm_entry_cursor_line_end_set(ed->en_edit);
end_pos = elm_entry_cursor_pos_get(ed->en_edit);
for (i = cur_pos; i <= end_pos; i++)
{
elm_entry_cursor_pos_set(ed->en_edit, i);
ch = elm_entry_cursor_content_get(ed->en_edit);
if (!strcmp(ch, ";"))
{
//1 more space for end_pos to replace until ';'.
end_pos = elm_entry_cursor_pos_get(ed->en_edit) + 1;
free(ch);
break;
}
free(ch);
}
elm_entry_select_region_set(ed->en_edit, cur_pos, end_pos);
if (!ed->ctxpopup) return;
redoundo_text_relative_push(ed->rd, text);
elm_entry_entry_insert(ed->en_edit, text);
elm_entry_calc_force(ed->en_edit);
elm_entry_cursor_pos_set(ed->en_edit, cur_pos);
edit_changed_set(ed, EINA_TRUE);
evas_object_smart_callback_call(ed->enventor, SIG_CTXPOPUP_CHANGED,
ed->it);
}
static void
ctxpopup_preview_dismiss_cb(void *data, Evas_Object *obj,
void *event_info EINA_UNUSED)
{
edit_data *ed = data;
//Since the ctxpopup will be shown again, Don't revert the focus.
elm_object_tree_focus_allow_set(ed->layout, EINA_TRUE);
elm_object_focus_set(ed->en_edit, EINA_TRUE);
evas_object_smart_callback_call(ed->enventor, SIG_CTXPOPUP_DISMISSED,
ed->it);
evas_object_del(obj);
}
static void
ctxpopup_del_cb(void *data, Evas *e EINA_UNUSED, Evas_Object *obj EINA_UNUSED,
void *event_info EINA_UNUSED)
{
edit_data *ed = data;
ed->ctxpopup = NULL;
}
//This function is called when user press up/down key or mouse wheel up/down
static void
preview_img_relay_show(edit_data *ed, Evas_Object *ctxpopup, Eina_Bool next)
{
if (next) elm_entry_cursor_down(ed->en_edit);
else elm_entry_cursor_up(ed->en_edit);
Evas_Object *textblock = elm_entry_textblock_get(ed->en_edit);
Evas_Textblock_Cursor *cursor = evas_object_textblock_cursor_get(textblock);
const char *str = evas_textblock_cursor_paragraph_text_get(cursor);
char *text = elm_entry_markup_to_utf8(str);
//Compute current ctxpopup position.
Evas_Coord x, y, h;
evas_object_geometry_get(ctxpopup, &x, &y, NULL, NULL);
elm_entry_cursor_geometry_get(ed->en_edit, NULL, NULL, NULL, &h);
if (next) y += h;
else y -= h;
//Limit the ctxpopup position in the scroller vertical zone.
Evas_Coord scrl_y, scrl_h;
evas_object_geometry_get(ed->scr_edit, NULL, &scrl_y, NULL, &scrl_h);
if (y > (scrl_y + scrl_h)) y = (scrl_y + scrl_h);
else if (y < scrl_y) y = scrl_y;
if (image_preview_show(ed, text, x, y))
{
//Set the entry selection region to next image.
const char *colon = strstr(text, ":");
if (!colon) goto end;
const char *image = strstr(text, "image");
if (!image) goto end;
//Check validation
if (0 >= (colon - image)) goto end;
//Compute new selection region.
elm_entry_cursor_line_begin_set(ed->en_edit);
int cur_pos = elm_entry_cursor_pos_get(ed->en_edit);
int begin = cur_pos + (image - text);
elm_entry_select_region_set(ed->en_edit, begin,
(begin + (int) (colon - image)));
free(text);
return;
}
end:
elm_ctxpopup_dismiss(ctxpopup);
free(text);
}
static void
ctxpopup_preview_relay_cb(void *data, Evas_Object *obj, void *event_info)
{
edit_data *ed = data;
int next = (int)(uintptr_t) event_info;
preview_img_relay_show(ed, obj, (Eina_Bool) next);
}
static Eina_Bool
image_preview_show(edit_data *ed, char *cur, Evas_Coord x, Evas_Coord y)
{
char *filename = parser_name_get(ed->pd, cur);
if (!filename) return EINA_FALSE;
char fullpath[PATH_MAX];
//1.Find the image path.
Eina_List *list = build_path_get(ENVENTOR_PATH_TYPE_IMAGE);
Eina_List *l;
char *path;
Eina_Bool found = EINA_FALSE;
EINA_LIST_FOREACH(list, l, path)
{
snprintf(fullpath, sizeof(fullpath), "%s/%s", path, filename);
if (!ecore_file_exists(fullpath)) continue;
found = EINA_TRUE;
break;
}
//2. Find in the default fault.
if (!found)
{
snprintf(fullpath, sizeof(fullpath), "%s/images/%s",
elm_app_data_dir_get(), filename);
if (ecore_file_exists(fullpath)) found = EINA_TRUE;
}
Eina_Bool succeed;
//Create Ctxpopup with the image pathes.
if (found)
{
/*In case if ctxpopup already created, then just reload image. */
if (ed->ctxpopup)
ctxpopup_img_preview_reload(ed->ctxpopup, fullpath);
else
{
ed->ctxpopup =
ctxpopup_img_preview_create(ed, fullpath,
ctxpopup_preview_dismiss_cb,
ctxpopup_preview_relay_cb);
evas_object_event_callback_add(ed->ctxpopup, EVAS_CALLBACK_DEL,
ctxpopup_del_cb, ed);
}
if (!ed->ctxpopup)
{
free(filename);
return EINA_FALSE;
}
evas_object_move(ed->ctxpopup, x, y);
evas_object_show(ed->ctxpopup);
Enventor_Ctxpopup_Type type = ENVENTOR_CTXPOPUP_TYPE_IMAGE;
evas_object_smart_callback_call(ed->enventor, SIG_CTXPOPUP_ACTIVATED,
(void *) type);
elm_object_tree_focus_allow_set(ed->layout, EINA_FALSE);
succeed = EINA_TRUE;
}
else
{
succeed = EINA_FALSE;
}
free(filename);
return succeed;
}
static void
candidate_list_show(edit_data *ed, char *text, char *cur, char *selected)
{
attr_value * attr = parser_attribute_get(ed->pd, text, cur, selected);
if (!attr) return;
parser_attribute_value_set(attr, cur);
ed->ctxpopup_cursor_pos = elm_entry_cursor_pos_get(ed->en_edit);
//Show up the list of the types
Enventor_Ctxpopup_Type type;
Evas_Object *ctxpopup =
ctxpopup_candidate_list_create(ed, attr,
ctxpopup_candidate_dismiss_cb,
ctxpopup_candidate_changed_cb,
&type);
if (!ctxpopup) return;
int x, y;
evas_pointer_output_xy_get(evas_object_evas_get(ed->en_edit), &x, &y);
evas_object_move(ctxpopup, x, y);
evas_object_show(ctxpopup);
evas_object_smart_callback_call(ed->enventor, SIG_CTXPOPUP_ACTIVATED,
(void *) type);
evas_object_event_callback_add(ctxpopup, EVAS_CALLBACK_DEL, ctxpopup_del_cb, ed);
ed->ctxpopup = ctxpopup;
elm_object_tree_focus_allow_set(ed->layout, EINA_FALSE);
}
static void
edit_cursor_double_clicked_cb(void *data, Evas_Object *obj,
void *event_info EINA_UNUSED)
{
edit_data *ed = data;
if (ed->ctrl_pressed) return;
if (!enventor_object_ctxpopup_get(ed->enventor)) return;
char *selected = (char *) elm_entry_selection_get(obj);
if (!selected) return;
selected = elm_entry_markup_to_utf8(selected);
if (!selected) return;
if (selected[0] == '\"')
{
free(selected);
return;
}
const char *str = elm_entry_entry_get(obj);
char *text = elm_entry_markup_to_utf8(str);
int cur_pos = elm_entry_cursor_pos_get(obj);
char *cur = text + (cur_pos - strlen(selected));
/* TODO: improve parser_name_get, for recognize cases when name is absent.
* Because right now any text inside quotes that placed after selection is
* recognized as name.
*/
if ((!strcmp(selected, "image") && (strlen(selected) == 5)) ||
(!strcmp(selected, "normal") && (strlen(selected) == 6)) ||
(!strcmp(selected, "tween") && (strlen(selected) == 5)) ||
(!strcmp(selected, "image.normal") && (strlen(selected) == 12)) ||
(!strcmp(selected, "image.tween") && (strlen(selected) == 11)) ||
(!strcmp(selected, "images.image") && (strlen(selected) == 12)))
{
int x, y;
evas_pointer_output_xy_get(evas_object_evas_get(ed->en_edit), &x, &y);
image_preview_show(ed, cur, x, y);
}
else
candidate_list_show(ed, text, cur, selected);
free(selected);
free(text);
}
static void
cur_context_name_get_cb(void *data, Eina_Stringshare *state_name,
double state_value, Eina_Stringshare *part_name,
Eina_Stringshare *group_name)
{
edit_data *ed = data;
if (ed->view_sync_cb)
ed->view_sync_cb(ed->view_sync_cb_data, state_name, state_value,
part_name, group_name);
}
static void
cur_line_pos_set(edit_data *ed, Eina_Bool force)
{
Evas_Coord y, h;
elm_entry_cursor_geometry_get(ed->en_edit, NULL, &y, NULL, &h);
int line = (y / h) + 1;
if (line < 0) line = 1;
if (!force && (ed->cur_line == line)) return;
ed->cur_line = line;
Enventor_Cursor_Line cur_line;
cur_line.cur_line = line;
cur_line.max_line = ed->line_max;
evas_object_smart_callback_call(ed->enventor, SIG_CURSOR_LINE_CHANGED,
&cur_line);
}
void
edit_selection_clear(edit_data *ed)
{
if (ed->on_select_recover) return;
cur_line_pos_set(ed, EINA_TRUE);
ed->select_pos = -1;
}
static void
edit_selection_cleared_cb(void *data, Evas_Object *obj EINA_UNUSED,
void *event_info EINA_UNUSED)
{
edit_data *ed = data;
edit_selection_clear(ed);
}
static void
edit_selection_start_cb(void *data, Evas_Object *obj EINA_UNUSED,
void *event_info EINA_UNUSED)
{
edit_data *ed = data;
if (ed->select_pos != -1) return;
ed->select_pos = elm_entry_cursor_pos_get(ed->en_edit);
}
void
edit_text_insert(edit_data *ed, const char *text)
{
const char *selection = elm_entry_selection_get(ed->en_edit);
char *selection_utf8 = elm_entry_markup_to_utf8(selection);
if (!selection_utf8)
{
elm_entry_entry_set(ed->en_edit, text);
return;
}
int lenght = strlen(selection_utf8);
int pos_from = elm_entry_cursor_pos_get(ed->en_edit) - lenght;
Evas_Object *tb = elm_entry_textblock_get(ed->en_edit);
Evas_Textblock_Cursor *cur = evas_object_textblock_cursor_get(tb);
int old_pos = evas_textblock_cursor_pos_get(cur);
evas_textblock_cursor_pos_set(cur, pos_from + lenght);
/* append replacement text, and add relative diff into redoundo module */
evas_textblock_cursor_pos_set(cur, pos_from + lenght);
evas_textblock_cursor_text_append(cur, text);
redoundo_text_relative_push(ed->rd, text);
Evas_Textblock_Cursor *c_1 = evas_object_textblock_cursor_new(tb);
evas_textblock_cursor_pos_set(c_1, pos_from);
Evas_Textblock_Cursor *c_2 = evas_object_textblock_cursor_new(tb);
evas_textblock_cursor_pos_set(c_2, pos_from + lenght);
/* delete replaced text, and make diff into redoundo module */
redoundo_text_push(ed->rd, selection_utf8, pos_from, lenght, EINA_FALSE);
evas_textblock_cursor_range_delete(c_1, c_2);
evas_textblock_cursor_free(c_1);
evas_textblock_cursor_free(c_2);
evas_textblock_cursor_pos_set(cur, old_pos);
elm_entry_calc_force(ed->en_edit);
edit_changed_set(ed, EINA_TRUE);
free(selection_utf8);
}
static void
edit_cursor_changed_cb(void *data, Evas_Object *obj EINA_UNUSED,
void *event_info EINA_UNUSED)
{
edit_data *ed = data;
cur_line_pos_set(ed, EINA_FALSE);
edit_view_sync(ed);
bracket_update(ed);
}
static void
syntax_color_full_update(edit_data *ed, Eina_Bool thread)
{
if (ed->syntax_color_lock > 0) return;
ecore_timer_del(ed->syntax_color_timer);
ed->syntax_color_timer = NULL;
if (thread)
{
if (ed->sctd)
{
ecore_thread_cancel(ed->sctd->thread);
ed->sctd->ed = NULL;
}
ed->sctd = calloc(1, sizeof(syntax_color_td));
if (!ed->sctd)
{
EINA_LOG_ERR("Failed to allocate Memory!");
return;
}
ed->sctd->ed = ed;
ed->sctd->thread =
ecore_thread_run(syntax_color_thread_cb,
syntax_color_thread_end_cb,
syntax_color_thread_cancel_cb,
ed->sctd);
}
else
{
syntax_color_apply(ed, EINA_FALSE);
}
}
static void
scroller_scroll_cb(void *data, Evas_Object *obj EINA_UNUSED,
void *event_info EINA_UNUSED)
{
edit_data *ed = data;
Evas_Coord x, y, w, h;
syntax_color_partial_update(ed, SYNTAX_COLOR_SHORT_TIME);
elm_scroller_region_get(ed->scr_edit, &x, &y, NULL, NULL);
evas_object_geometry_get(ed->scr_edit, NULL, NULL, &w, &h);
elm_scroller_region_show(ed->scr_line, x, y, w, h);
}
static void
scroller_resize_cb(void *data, Evas *e EINA_UNUSED, Evas_Object *obj,
void *event_info EINA_UNUSED)
{
edit_data *ed = data;
Evas_Coord h;
evas_object_geometry_get(obj, NULL, NULL, NULL, &h);
if (h == ed->scroller_h) return;
syntax_color_partial_update(ed, SYNTAX_COLOR_DEFAULT_TIME);
ed->scroller_h = h;
}
static void
scroller_vbar_press_cb(void *data, Evas_Object *obj EINA_UNUSED,
void *event_info EINA_UNUSED)
{
edit_data *ed = data;
syntax_color_full_update(ed, EINA_TRUE);
ed->syntax_color_lock++;
}
static void
scroller_vbar_unpress_cb(void *data, Evas_Object *obj EINA_UNUSED,
void *event_info EINA_UNUSED)
{
edit_data *ed = data;
ed->syntax_color_lock--;
syntax_color_partial_update(ed, SYNTAX_COLOR_SHORT_TIME);
}
static void
scroller_hbar_show_cb(void *data, Evas_Object *obj EINA_UNUSED,
const char *emission EINA_UNUSED,
const char *source EINA_UNUSED)
{
edit_data *ed = data;
if (!ed->layout)
return;
elm_object_signal_emit(ed->layout, "elm,state,linedummy,show", "");
}
static void
scroller_hbar_hide_cb(void *data, Evas_Object *obj EINA_UNUSED,
const char *emission EINA_UNUSED,
const char *source EINA_UNUSED)
{
edit_data *ed = data;
if (!ed->layout)
return;
elm_object_signal_emit(ed->layout, "elm,state,linedummy,hide", "");
}
static void
edit_quick_jump(edit_data *ed)
{
Evas_Object *textblock = elm_entry_textblock_get(ed->en_edit);
int line1 = ed->cur_line - 1;
int line2 = ed->cur_line;
//min position case
if (line1 < 0)
{
line1 = 0;
line2 = 1;
}
//Max position case
Eina_Bool max = EINA_FALSE;
if (line2 >= ed->line_max)
{
line1 = (ed->line_max - 2);
line2 = (ed->line_max - 1);
max = EINA_TRUE;
}
Evas_Textblock_Cursor *cur1 = evas_object_textblock_cursor_new(textblock);
evas_textblock_cursor_line_set(cur1, line1);
if (max) evas_textblock_cursor_line_char_last(cur1);
Evas_Textblock_Cursor *cur2 = evas_object_textblock_cursor_new(textblock);
evas_textblock_cursor_line_set(cur2, line2);
if (max) evas_textblock_cursor_line_char_last(cur2);
char *content = evas_textblock_cursor_range_text_get(cur1, cur2,
EVAS_TEXTBLOCK_TEXT_MARKUP);
char *utf8 = elm_entry_markup_to_utf8(content);
free(content);
//Case 1. File Link?
char *file_link = utf8;
if ((file_link = strstr(utf8, "#include ")) != NULL)
{
file_link += 9; //strlen("#include "))
char *name_begin = strstr(utf8, "\"");
if (!name_begin) goto end;
name_begin++;
char *name_end = strstr(name_begin, "\"");
if (!name_end) goto end;
file_link = eina_strndup(name_begin, name_end - name_begin);
if (file_link)
{
//Compose the absolute file path.
const char *file_name = ecore_file_file_get(ed->filepath);
if (!file_name) goto end;
char *file_path =
eina_strndup(ed->filepath, (file_name - ed->filepath));
if (!file_path) goto end;
char buf[PATH_MAX];
snprintf(buf, sizeof(buf), "%s%s", file_path, file_link);
evas_object_smart_callback_call(ed->enventor,
SIG_FILE_OPEN_REQUESTED,
(void*)buf);
free(file_path);
free(file_link);
}
}
//TODO: Case 2. Part Link?
end:
free(utf8);
}
static Eina_Bool
edit_edc_load(edit_data *ed, const char *file_path)
{
char buf[MAX_LINE_DIGIT_CNT];
Eina_File *file = NULL;
Eina_Strbuf *strbuf_line = NULL;
char *utf8_edit = NULL;
char *markup_edit = NULL;
char *markup_line = NULL;
int line_num = 1;
Eina_Bool ret = EINA_FALSE;
ed->line_max = 0;
file = eina_file_open(file_path, EINA_FALSE);
if (!file) goto err;
strbuf_line = eina_strbuf_new();
if (!strbuf_line) goto err;
eina_stringshare_del(ed->filepath);
ed->filepath = eina_stringshare_add(file_path);
utf8_edit = eina_file_map_all(file, EINA_FILE_POPULATE);
if (!utf8_edit)
{
ed->line_max = 0;
ret = EINA_TRUE;
goto err;
}
//Check indentation.
indent_data *id = syntax_indent_data_get(ed->sh);
Eina_Bool indent_correct
= indent_text_check(id, (const char *)utf8_edit);
//Set edc text to entry.
if (enventor_object_auto_indent_get(ed->enventor) && !indent_correct)
//Create indented markup text from utf8 text of EDC file.
markup_edit = indent_text_create(id, (const char *)utf8_edit,
&line_num);
else
markup_edit = elm_entry_utf8_to_markup(utf8_edit);
if (!markup_edit) goto err;
elm_entry_entry_set(ed->en_edit, markup_edit);
if (enventor_object_auto_indent_get(ed->enventor) && !indent_correct)
edit_changed_set(ed, EINA_TRUE);
free(markup_edit);
//Append line numbers.
if (!eina_strbuf_append_char(strbuf_line, '1')) goto err;
if (enventor_object_auto_indent_get(ed->enventor) && !indent_correct)
{
int num = 2;
//Use line_num given by indent_text_create().
while (num <= line_num)
{
snprintf(buf, sizeof(buf), "\n%d", num);
if (!eina_strbuf_append(strbuf_line, buf)) goto err;
num++;
}
}
else
{
char *p = utf8_edit;
int len = strlen(p);
while ((p = strchr(p, '\n')) && p < (utf8_edit + len))
{
line_num++;
++p;
snprintf(buf, sizeof(buf), "\n%d", line_num);
if (!eina_strbuf_append(strbuf_line, buf)) goto err;
}
}
markup_line = elm_entry_utf8_to_markup(eina_strbuf_string_get(strbuf_line));
if (!markup_line) goto err;
elm_entry_entry_append(ed->en_line, markup_line);
free(markup_line);
ed->cur_line = 1;
ed->line_max = line_num;
syntax_color_timer_cb(ed);
ret = EINA_TRUE;
err:
//Even any text is not inserted, line number should start with 1
if (ed->line_max == 0) line_init(ed);
if (strbuf_line) eina_strbuf_free(strbuf_line);
if (utf8_edit) eina_file_map_free(file, utf8_edit);
if (file) eina_file_close(file);
Enventor_Cursor_Line cursor_line;
cursor_line.cur_line = ed->cur_line;
cursor_line.max_line = ed->line_max;
evas_object_smart_callback_call(ed->enventor, SIG_MAX_LINE_CHANGED,
&cursor_line);
elm_entry_cursor_pos_set(ed->en_edit, 0);
return ret;
}
static void
edit_focused_cb(void *data, Evas_Object *obj EINA_UNUSED,
void *event_info EINA_UNUSED)
{
edit_data *ed = data;
evas_object_smart_callback_call(ed->enventor, SIG_FOCUSED, NULL);
}
/*****************************************************************************/
/* Externally accessible calls */
/*****************************************************************************/
void
edit_part_cursor_set(edit_data *ed,
const char *group_name,
const char *part_name)
{
#define PART_SYNTAX_CNT 13
if (!group_name || !part_name) return;
const char *text = elm_entry_entry_get(ed->en_edit);
char *utf8 = elm_entry_markup_to_utf8(text);
int part_name_size = strlen(part_name) + 3; // 2 - is quotes.
char *part_name_search = alloca(part_name_size);
snprintf(part_name_search, part_name_size, "\"%s\"", part_name);
int group_name_size = strlen(group_name) + 3; // 2 - is quotes.
char *group_name_search = alloca(group_name_size);
snprintf(group_name_search, group_name_size, "\"%s\"", group_name);
const char *group_pos = strstr(utf8, group_name_search);
if (!group_pos) return;
char *itr = strstr(group_pos, part_name_search);
const char *part_pos = itr;
/* Possible keywords for a parts*/
const char *PART[PART_SYNTAX_CNT] = { "part", "image", "textblock",
"swallow", "rect", "group", "spacer", "proxy", "text", "gradient",
"box", "table", "external" };
Eina_Bool word_present = EINA_FALSE; /* Indicate is present any word between part name and open brace '{' */
Eina_Bool found_part = EINA_FALSE;
Eina_Bool found_brace = EINA_FALSE;
/* TODO: limit the region of search by 'group { }' block. It is necessary for avoiding situations when part can be
* find inside another group. */
/* Search patterns: 'PART { "part_name" ' or 'PART { name: "part_name"'*/
for (; (itr != NULL) && (itr > group_pos) && (part_pos != NULL); itr--)
{
if ((!found_brace) && (*itr == '{'))
{
found_brace = EINA_TRUE;
if (word_present)
{
/* Check word between the part name and brace.
* This word should be a "name". In case if found
* other keyword, the search process should be
* restarted from another position. */
char *name_keyword = strstr(itr, "name");
if (!name_keyword || name_keyword > part_pos)
{
itr = strstr(part_pos + 1, part_name_search);
part_pos = itr;
found_brace = EINA_FALSE;
word_present = EINA_FALSE;
}
}
}
else if (isalpha(*itr))
{
word_present = EINA_TRUE;
}
/* If found the opening brace '{', need to parse
* the keyword, that describe this block.
* And compare this keyword with possible part keywords. */
if (found_brace)
{
char *keyword_end = NULL;
for (; (itr != NULL) && (itr > group_pos); itr--)
{
if (!keyword_end && isalpha(*itr))
{
keyword_end = itr;
}
else if (keyword_end && !isalpha(*itr))
{
/* Compare parsed keyword with possible part names. */
int i;
for ( i = 0; i < PART_SYNTAX_CNT; i++)
{
if (!strncmp(itr + 1, PART[i], strlen(PART[i])))
{
found_part = EINA_TRUE;
}
}
if (found_part)
goto finish;
else
{
itr = strstr(part_pos + 1, part_name_search);
part_pos = itr;
found_brace = EINA_FALSE;
word_present = EINA_FALSE;
break;
}
}
}
}
}
finish:
if (found_part)
{
int cur_pos = part_pos - utf8 + 1;
elm_entry_select_none(ed->en_edit);
edit_selection_region_center_set(ed, cur_pos, cur_pos + strlen(part_name));
}
free(utf8);
}
void
edit_view_sync_cb_set(edit_data *ed,
void (*cb)(void *data, Eina_Stringshare *state_name,
double state_value,
Eina_Stringshare *part_name,
Eina_Stringshare *group_name), void *data)
{
ed->view_sync_cb = cb;
ed->view_sync_cb_data = data;
if (!cb) return;
Eina_Stringshare *group_name =
parser_first_group_name_get(ed->pd, ed->en_edit);
cb(data, NULL, 0.0, NULL, group_name);
eina_stringshare_del(group_name);
}
Eina_Bool
edit_saved_get(edit_data *ed)
{
return ed->on_save;
}
void
edit_saved_set(edit_data *ed, Eina_Bool saved)
{
ed->on_save = saved;
}
Eina_Bool
edit_save(edit_data *ed, const char *file)
{
if (!ed->edit_changed) return EINA_FALSE;
const char *text = elm_entry_entry_get(ed->en_edit);
char *utf8 = elm_entry_markup_to_utf8(text);
FILE *fp = fopen(file, "w");
if (!fp)
{
EINA_LOG_ERR("Failed to open file \"%s\"", file);
return EINA_FALSE;
}
fputs(utf8, fp);
fclose(fp);
free(utf8);
edit_view_sync(ed);
edit_changed_set(ed, EINA_FALSE);
edit_saved_set(ed, EINA_TRUE);
Enventor_EDC_Modified modified;
modified.self_changed = EINA_TRUE;
evas_object_smart_callback_call(ed->enventor, SIG_EDC_MODIFIED, &modified);
return EINA_TRUE;
}
void
edit_syntax_color_set(edit_data *ed, Enventor_Syntax_Color_Type color_type,
const char *val)
{
if (!ed) return;
color_set(syntax_color_data_get(ed->sh), color_type, val);
}
void
edit_syntax_color_full_apply(edit_data *ed, Eina_Bool force)
{
int lock;
if (force)
{
lock = ed->syntax_color_lock;
ed->syntax_color_lock = -1;
}
syntax_color_full_update(ed, EINA_FALSE);
if (force) ed->syntax_color_lock = lock;
else ed->syntax_color_lock++;
}
void
edit_syntax_color_partial_apply(edit_data *ed, double interval)
{
if (ed->syntax_color_lock > 0) ed->syntax_color_lock = 0;
if (interval < 0) syntax_color_partial_update(ed, SYNTAX_COLOR_DEFAULT_TIME);
else syntax_color_partial_update(ed, interval);
}
void
edit_view_sync(edit_data *ed)
{
parser_cur_context_get(ed->pd, ed->en_edit, cur_context_name_get_cb, ed,
ed->main);
}
void
edit_line_delete(edit_data *ed)
{
if (!elm_object_focus_get(ed->en_edit)) return;
Evas_Object *textblock = elm_entry_textblock_get(ed->en_edit);
int line1 = ed->cur_line - 1;
int line2 = ed->cur_line;
//min position case
if (line1 < 0)
{
line1 = 0;
line2 = 1;
}
//Max position case
Eina_Bool max = EINA_FALSE;
if (line2 >= ed->line_max)
{
line1 = (ed->line_max - 2);
line2 = (ed->line_max - 1);
max = EINA_TRUE;
}
//only one line remain. clear it.
if (ed->line_max == 1)
{
redoundo_text_push(ed->rd, elm_entry_entry_get(ed->en_edit), 0, 0,
EINA_FALSE);
elm_entry_entry_set(ed->en_edit, "");
line_init(ed);
return;
}
Evas_Textblock_Cursor *cur1 = evas_object_textblock_cursor_new(textblock);
evas_textblock_cursor_line_set(cur1, line1);
if (max) evas_textblock_cursor_line_char_last(cur1);
Evas_Textblock_Cursor *cur2 = evas_object_textblock_cursor_new(textblock);
evas_textblock_cursor_line_set(cur2, line2);
if (max) evas_textblock_cursor_line_char_last(cur2);
int cur1_pos, cur2_pos;
cur1_pos = evas_textblock_cursor_pos_get(cur1);
cur2_pos = evas_textblock_cursor_pos_get(cur2);
char *content = evas_textblock_cursor_range_text_get(cur1, cur2,
EVAS_TEXTBLOCK_TEXT_MARKUP);
evas_textblock_cursor_range_delete(cur1, cur2);
evas_textblock_cursor_free(cur1);
evas_textblock_cursor_free(cur2);
redoundo_text_push(ed->rd, content, cur1_pos, abs(cur2_pos - cur1_pos),
EINA_FALSE);
elm_entry_calc_force(ed->en_edit);
free(content);
edit_line_decrease(ed, 1);
cur_line_pos_set(ed, EINA_TRUE);
edit_changed_set(ed, EINA_TRUE);
syntax_color_partial_update(ed, SYNTAX_COLOR_DEFAULT_TIME);
}
int
edit_cur_indent_depth_get(edit_data *ed)
{
return indent_space_get(syntax_indent_data_get(ed->sh));
}
static void
edit_obj_del_cb(void *data, Evas *e EINA_UNUSED, Evas_Object *obj EINA_UNUSED,
void *event_info EINA_UNUSED)
{
edit_data *ed = data;
ed->en_edit = NULL;
}
edit_data *
edit_init(Enventor_Object *enventor, Enventor_Item *it)
{
edit_data *ed = calloc(1, sizeof(edit_data));
if (!ed)
{
EINA_LOG_ERR("Failed to allocate Memory!");
return NULL;
}
ed->error_line = -1;
ed->bracket.prev_left = -1;
ed->bracket.prev_right = -1;
ed->bracket.left = -1;
ed->bracket.right = -1;
//Layout
Evas_Object *layout = elm_layout_add(enventor);
elm_layout_file_set(layout, EDJE_PATH, "edit_layout");
evas_object_size_hint_weight_set(layout, EVAS_HINT_EXPAND, EVAS_HINT_EXPAND);
evas_object_size_hint_align_set(layout, EVAS_HINT_FILL, EVAS_HINT_FILL);
//EDC Editor Scroller
Evas_Object *scr_edit = elm_scroller_add(layout);
elm_scroller_policy_set(scr_edit, ELM_SCROLLER_POLICY_AUTO,
ELM_SCROLLER_POLICY_AUTO);
elm_object_focus_allow_set(scr_edit, EINA_FALSE);
evas_object_smart_callback_add(scr_edit, "scroll,up", scroller_scroll_cb,
ed);
evas_object_smart_callback_add(scr_edit, "scroll,down", scroller_scroll_cb,
ed);
evas_object_smart_callback_add(scr_edit, "vbar,press",
scroller_vbar_press_cb, ed);
evas_object_smart_callback_add(scr_edit, "vbar,unpress",
scroller_vbar_unpress_cb, ed);
evas_object_event_callback_add(scr_edit, EVAS_CALLBACK_RESIZE,
scroller_resize_cb, ed);
edje_object_signal_callback_add(elm_layout_edje_get(scr_edit),
"elm,action,show,hbar", "elm",
scroller_hbar_show_cb, ed);
edje_object_signal_callback_add(elm_layout_edje_get(scr_edit),
"elm,action,hide,hbar", "elm",
scroller_hbar_hide_cb, ed);
evas_object_size_hint_weight_set(scr_edit, EVAS_HINT_EXPAND,
EVAS_HINT_EXPAND);
evas_object_size_hint_align_set(scr_edit, EVAS_HINT_FILL, EVAS_HINT_FILL);
elm_object_part_content_set(layout, "elm.swallow.edit", scr_edit);
//This is hackish call to not change scroller color by widget.
evas_object_data_set(scr_edit, "_elm_leaveme", (void *)1);
//Line number Scroller
Evas_Object *scr_line = elm_scroller_add(layout);
elm_scroller_content_min_limit(scr_line, 15, 0);
elm_scroller_policy_set(scr_line, ELM_SCROLLER_POLICY_OFF,
ELM_SCROLLER_POLICY_OFF);
elm_object_focus_allow_set(scr_line, EINA_FALSE);
evas_object_size_hint_weight_set(scr_line, EVAS_HINT_EXPAND,
EVAS_HINT_EXPAND);
evas_object_size_hint_align_set(scr_line, EVAS_HINT_FILL, EVAS_HINT_FILL);
elm_object_part_content_set(layout, "elm.swallow.linenumber", scr_line);
//Line Number Entry
Evas_Object *en_line = elm_entry_add(scr_line);
elm_object_style_set(en_line, "enventor");
evas_object_color_set(en_line, 101, 101, 101, 255);
elm_entry_editable_set(en_line, EINA_FALSE);
elm_entry_line_wrap_set(en_line, ELM_WRAP_NONE);
elm_object_focus_allow_set(en_line, EINA_FALSE);
evas_object_size_hint_weight_set(en_line, 0, EVAS_HINT_EXPAND);
evas_object_size_hint_align_set(en_line, 0, EVAS_HINT_FILL);
elm_object_content_set(scr_line, en_line);
//EDC Editor Entry
Evas_Object *en_edit = elm_entry_add(scr_edit);
elm_object_style_set(en_edit, "enventor");
elm_object_focus_highlight_style_set(en_edit, "blank");
elm_entry_cnp_mode_set(en_edit, ELM_CNP_MODE_PLAINTEXT);
elm_entry_context_menu_disabled_set(en_edit, EINA_TRUE);
elm_entry_line_wrap_set(en_edit, ELM_WRAP_NONE);
evas_object_smart_callback_add(en_edit, "focused", edit_focused_cb, ed);
evas_object_smart_callback_add(en_edit, "changed,user", edit_changed_cb, ed);
evas_object_smart_callback_add(en_edit, "cursor,changed",
edit_cursor_changed_cb, ed);
evas_object_smart_callback_add(en_edit, "clicked,double",
edit_cursor_double_clicked_cb, ed);
evas_object_smart_callback_add(en_edit, "selection,cleared",
edit_selection_cleared_cb, ed);
evas_object_smart_callback_add(en_edit, "selection,start",
edit_selection_start_cb, ed);
evas_object_event_callback_add(en_edit, EVAS_CALLBACK_DEL, edit_obj_del_cb, ed);
evas_object_size_hint_weight_set(en_edit, EVAS_HINT_EXPAND,
EVAS_HINT_EXPAND);
evas_object_size_hint_align_set(en_edit, EVAS_HINT_FILL, EVAS_HINT_FILL);
elm_object_focus_set(en_edit, EINA_TRUE);
elm_object_content_set(scr_edit, en_edit);
/* FIXME: This is a temporary patch to remove focus highlight on template
selection button of new file open. (enventor -t)
Without calling evas_object_show() here, en_edit cannot get focus because
its visibility is set with false. */
evas_object_show(en_edit);
ed->scr_edit = scr_edit;
ed->scr_line = scr_line;
ed->en_line = en_line;
ed->en_edit = en_edit;
ed->layout = layout;
ed->enventor = enventor;
ed->it = it;
ed->cur_line = -1;
ed->select_pos = -1;
ed->pd = parser_init();
ed->rd = redoundo_init(ed, enventor);
ed->sh = syntax_init(ed);
ed->main = (enventor_object_main_item_get(ed->enventor) == ed->it);
return ed;
}
redoundo_data *
edit_redoundo_get(edit_data *ed)
{
return ed->rd;
}
Evas_Object *
edit_obj_get(edit_data *ed)
{
if (!ed) return NULL;
return ed->layout;
}
void
edit_term(edit_data *ed)
{
if (!ed) return;
syntax_helper *sh = ed->sh;
parser_data *pd = ed->pd;
redoundo_data *rd = ed->rd;
if (ed->sctd)
{
ecore_thread_cancel(ed->sctd->thread);
ed->sctd->ed = NULL;
}
ecore_timer_del(ed->syntax_color_timer);
evas_object_del(ed->layout);
eina_stringshare_del(ed->filepath);
free(ed);
redoundo_term(rd);
syntax_term(sh);
parser_term(pd);
}
Eina_Bool
edit_changed_get(edit_data *ed)
{
return ed->edit_changed;
}
void
edit_changed_set(edit_data *ed, Eina_Bool changed)
{
ed->edit_changed = changed;
}
void
edit_linenumber_set(edit_data *ed, Eina_Bool linenumber)
{
if (linenumber)
elm_object_signal_emit(ed->layout, "elm,state,linenumber,show", "");
else
elm_object_signal_emit(ed->layout, "elm,state,linenumber,hide", "");
}
void
edit_font_scale_set(edit_data *ed, double font_scale)
{
if (!ed) return;
elm_object_scale_set(ed->en_line, font_scale);
elm_object_scale_set(ed->en_edit, font_scale);
syntax_color_partial_update(ed, 0);
}
Eina_Bool
edit_load(edit_data *ed, const char *edc_path)
{
parser_cancel(ed->pd);
elm_entry_entry_set(ed->en_edit, "");
elm_entry_entry_set(ed->en_line, "");
Eina_Bool ret = edit_edc_load(ed, edc_path);
if (ret) edit_changed_set(ed, EINA_TRUE);
edj_mgr_reload_need_set(EINA_TRUE);
redoundo_clear(ed->rd);
return ret;
}
Eina_Stringshare *
edit_cur_paragh_get(edit_data *ed)
{
return parser_paragh_name_get(ed->pd, ed->en_edit);
}
Eina_Stringshare *
edit_cur_prog_name_get(edit_data *ed)
{
return parser_cur_context_fast_get(ed->en_edit, "program");
}
Eina_Stringshare *
edit_cur_part_name_get(edit_data *ed)
{
return parser_cur_context_fast_get(ed->en_edit, "part");
}
int
edit_max_line_get(edit_data *ed)
{
return ed->line_max;
}
void
edit_goto(edit_data *ed, int line)
{
int cursor_y;
elm_entry_select_none(ed->en_edit);
Evas_Object *tb = elm_entry_textblock_get(ed->en_edit);
Evas_Textblock_Cursor *cur = evas_object_textblock_cursor_get(tb);
evas_textblock_cursor_line_set(cur, (line - 1));
elm_entry_cursor_geometry_get(ed->en_edit, NULL, &cursor_y, NULL, NULL);
elm_scroller_region_show(ed->scr_edit, 0, cursor_y, 0, 0);
elm_entry_calc_force(ed->en_edit);
elm_object_focus_set(ed->en_edit, EINA_TRUE);
}
Evas_Object *
edit_entry_get(edit_data *ed)
{
return ed->en_edit;
}
/*TODO: this function should be more flexible.
* Will be better to change prototype like:
* line_num_highlight(edit_data *, int line_num, char *color);
* And make this function public.
*/
static void
error_line_num_highlight(edit_data *ed)
{
Evas_Object *tb = elm_entry_textblock_get(ed->en_line);
char *text = (char *) evas_object_textblock_text_markup_get(tb);
int from_line = 1;
int to_line = -1;
char *from EINA_UNUSED = NULL;
char *to EINA_UNUSED = NULL;
char *utf8 = (char *)color_cancel(NULL, syntax_color_data_get(ed->sh), text,
strlen(text), from_line, to_line, &from,
&to);
if (!utf8) return;
if (ed->error_line == -1)
{
evas_object_textblock_text_markup_set(tb, utf8);
return;
}
char line_str[MAX_LINE_DIGIT_CNT];
snprintf(line_str, MAX_LINE_DIGIT_CNT, "%d", ed->error_line + 1);
char *ptr = strstr(utf8, line_str);
if (!ptr) return;
Eina_Strbuf *strbuf = eina_strbuf_new();
eina_strbuf_append_length(strbuf, utf8, ptr - utf8);
eina_strbuf_append(strbuf, "<backing=on><backing_color=#ff0000>");
eina_strbuf_append_length(strbuf, utf8 + (ptr - utf8), strlen(line_str));
eina_strbuf_append(strbuf, "</backing_color><backing=off>");
eina_strbuf_append(strbuf, utf8 +((ptr - utf8) + strlen(line_str)));
evas_object_textblock_text_markup_set(tb, eina_strbuf_string_get(strbuf));
eina_strbuf_free(strbuf);
elm_entry_calc_force(ed->en_line);
#undef LINE_NUM_SIZE
}
void
edit_line_increase(edit_data *ed, int cnt)
{
char buf[MAX_LINE_DIGIT_CNT];
int i;
for (i = 0; i < cnt; i++)
{
ed->line_max++;
snprintf(buf, sizeof(buf), "<br/>%d", ed->line_max);
elm_entry_entry_append(ed->en_line, buf);
}
elm_entry_calc_force(ed->en_line);
Enventor_Cursor_Line cur_line;
cur_line.cur_line = ed->cur_line;
cur_line.max_line = ed->line_max;
evas_object_smart_callback_call(ed->enventor, SIG_MAX_LINE_CHANGED,
&cur_line);
}
void
edit_line_decrease(edit_data *ed, int cnt)
{
if (cnt < 1) return;
Evas_Object *textblock = elm_entry_textblock_get(ed->en_line);
Evas_Textblock_Cursor *cur1 = evas_object_textblock_cursor_new(textblock);
Evas_Textblock_Cursor *cur2 = evas_object_textblock_cursor_new(textblock);
int i = cnt;
while (i)
{
evas_textblock_cursor_paragraph_last(cur1);
evas_textblock_cursor_paragraph_prev(cur1);
evas_textblock_cursor_paragraph_last(cur2);
evas_textblock_cursor_range_delete(cur1, cur2);
i--;
}
evas_textblock_cursor_free(cur1);
evas_textblock_cursor_free(cur2);
elm_entry_calc_force(ed->en_line);
ed->line_max -= cnt;
if (ed->line_max < 1) line_init(ed);
Enventor_Cursor_Line cur_line;
cur_line.cur_line = ed->cur_line;
cur_line.max_line = ed->line_max;
evas_object_smart_callback_call(ed->enventor, SIG_MAX_LINE_CHANGED,
&cur_line);
}
void
edit_redoundo_region_push(edit_data *ed, int cursor_pos1, int cursor_pos2)
{
redoundo_entry_region_push(ed->rd, cursor_pos1, cursor_pos2);
}
void
edit_disabled_set(edit_data *ed, Eina_Bool disabled)
{
elm_object_tree_focus_allow_set(ed->layout, !disabled);
if (disabled)
{
elm_object_signal_emit(ed->layout, "elm,state,disabled", "");
elm_entry_select_none(ed->en_edit);
}
else
{
elm_object_signal_emit(ed->layout, "elm,state,enabled", "");
elm_object_focus_set(ed->en_edit, EINA_TRUE);
}
//Turn off the part highlight in case of disable.
if (disabled) view_part_highlight_set(VIEW_DATA, NULL);
//Reset whatever ctrl pressed is on.
ed->ctrl_pressed = EINA_FALSE;
ed->disabled = disabled;
}
void
edit_error_set(edit_data *ed, int line, const char *target)
{
ed->error_line = line;
ed->error_target = target;
}
Eina_Bool
edit_ctxpopup_visible_get(edit_data *ed)
{
if (!ed) return EINA_FALSE;
return (ed->ctxpopup ? EINA_TRUE : EINA_FALSE);
}
void
edit_ctxpopup_dismiss(edit_data *ed)
{
if (ed && ed->ctxpopup) elm_ctxpopup_dismiss(ed->ctxpopup);
}
Eina_Bool
edit_redoundo(edit_data *ed, Eina_Bool undo)
{
int lines;
Eina_Bool changed;
if (undo) lines = redoundo_undo(ed->rd, &changed);
else lines = redoundo_redo(ed->rd, &changed);
if (!changed) return EINA_FALSE;
if (lines > 0) edit_line_increase(ed, lines);
else edit_line_decrease(ed, abs(lines));
edit_changed_set(ed, EINA_TRUE);
syntax_color_full_update(ed, EINA_TRUE);
return EINA_TRUE;
}
Eina_Bool
edit_key_down_event_dispatch(edit_data *ed, const char *key)
{
if (ed->disabled) return EINA_FALSE;
//Control Key
if (!strcmp("Control_L", key))
{
ed->ctrl_pressed = EINA_TRUE;
return EINA_FALSE;
}
if (ed->ctrl_pressed)
{
//Undo
if (!strcmp(key, "z") || !strcmp(key, "Z"))
{
edit_redoundo(ed, EINA_TRUE);
return EINA_TRUE;
}
//Redo
if (!strcmp(key, "r") || !strcmp(key, "R"))
{
edit_redoundo(ed, EINA_FALSE);
return EINA_TRUE;
}
}
return EINA_FALSE;
}
static char*
cursor_part_name_get(edit_data *ed)
{
int part_begin, part_end;
part_begin = part_end = -1;
Evas_Object *tb = elm_entry_textblock_get(ed->en_edit);
Evas_Textblock_Cursor *cur = evas_object_textblock_cursor_get(tb);
Evas_Textblock_Cursor *cur_l = evas_object_textblock_cursor_new(tb);
Evas_Textblock_Cursor *cur_r = evas_object_textblock_cursor_new(tb);
int cur_pos = evas_textblock_cursor_pos_get(cur);
evas_textblock_cursor_pos_set(cur_l, cur_pos);
evas_textblock_cursor_pos_set(cur_r, cur_pos);
//Search the end character to the left
Eina_Bool is_prev = EINA_TRUE;
char *ch_l = evas_textblock_cursor_content_get(cur_l);
if (!ch_l) goto end;
/* If current character is ", move cursor to the previous character
to find part name correctly */
if (*ch_l == '\"')
is_prev = evas_textblock_cursor_char_prev(cur_l);
while (is_prev)
{
free(ch_l);
ch_l = evas_textblock_cursor_content_get(cur_l);
if (!ch_l || (*ch_l == '\n') || (*ch_l == ';') || (*ch_l == '\0'))
break;
if (*ch_l == '\"')
{
evas_textblock_cursor_char_next(cur_l);
part_begin = evas_textblock_cursor_pos_get(cur_l);
break;
}
is_prev = evas_textblock_cursor_char_prev(cur_l);
}
free(ch_l);
if (part_begin == -1) goto end;
//Search the end character to the right
Eina_Bool is_next = EINA_TRUE;
char *ch_r = NULL;
while (is_next)
{
free(ch_r);
ch_r = evas_textblock_cursor_content_get(cur_r);
if (!ch_r || (*ch_r == '\n') || (*ch_r == ';') || (*ch_r == '\0'))
break;
if (*ch_r == '\"')
{
part_end = evas_textblock_cursor_pos_get(cur_r);
break;
}
is_next = evas_textblock_cursor_char_next(cur_r);
}
free(ch_r);
if (part_end == -1) goto end;
//Verify the part name
if (part_begin != part_end)
{
char *cur_part_name =
evas_textblock_cursor_range_text_get(cur_l, cur_r,
EVAS_TEXTBLOCK_TEXT_PLAIN);
if (!cur_part_name) goto end;
Eina_List *l;
char *part_name;
Eina_List *parts = view_parts_list_get(edj_mgr_view_get(NULL));
EINA_LIST_FOREACH(parts, l, part_name)
{
//If part is detected
if (!strcmp(part_name, cur_part_name))
return cur_part_name;
}
free(cur_part_name);
}
end:
evas_textblock_cursor_free(cur_l);
evas_textblock_cursor_free(cur_r);
return NULL;
}
static void
goto_part_name(edit_data *ed, const char *part_name)
{
//Find current group name for searching part
Eina_Stringshare *group_name =
parser_cur_context_group_name_get(ed->pd, ed->en_edit, ed->main);
if (!group_name) return;
const char *text = elm_entry_entry_get(ed->en_edit);
char *utf8 = elm_entry_markup_to_utf8(text);
//Find part name in current group
const char *part_type =
part_type_str_convert(view_part_type_get(edj_mgr_view_get(NULL),
part_name));
if (!part_type) goto end;
const char *start_pos =
parser_part_pos_get(utf8,
(utf8 + strlen(utf8)),
group_name,
part_name,
part_type);
if (!start_pos) goto end;
//Select part name
edit_selection_region_center_set(ed,
(start_pos - utf8),
(start_pos - utf8 + strlen(part_name)));
end:
eina_stringshare_del(group_name);
free(utf8);
}
Eina_Bool
edit_key_up_event_dispatch(edit_data *ed, const char *key)
{
if (ed->disabled) return EINA_FALSE;
//Control Key
if (!strcmp("Control_L", key))
ed->ctrl_pressed = EINA_FALSE;
//Quick Jump
if (!strcmp("F3", key))
{
char *part_name = cursor_part_name_get(ed);
//Case 1: cursor on part name
if (part_name)
{
goto_part_name(ed, part_name);
free(part_name);
}
//Case 2: cursor on filepath
else
edit_quick_jump(ed);
}
return EINA_FALSE;
}
const char *
edit_file_get(edit_data *ed)
{
return ed->filepath;
}
void
edit_selection_region_center_set(edit_data *ed, int start, int end)
{
Evas_Coord region_y, region_h;
Evas_Coord cursor_y, cursor_h;
//Calculate line of selection region
elm_entry_cursor_pos_set(ed->en_edit, start);
elm_entry_cursor_geometry_get(ed->en_edit, NULL, &cursor_y, NULL, &cursor_h);
int cur_line = (cursor_y / cursor_h) + 1;
//Calculate current region of scroller
elm_scroller_region_get(ed->scr_edit, NULL, &region_y, NULL, &region_h);
int line;
//Case 1: selection region is above the centor of scroller region
if (((region_y + (region_h / 2))) > cursor_y)
{
line = cur_line - (int)((region_h / cursor_h) / 2);
if (line < 1) line = 1;
}
//Case 2: selection region is below the center of scroller region
else
{
line = cur_line + 2 + (int)((region_h / cursor_h) / 2);
if (line > ed->line_max) line = ed->line_max;
}
//Move the scroller for selection align
Evas_Object *tb = elm_entry_textblock_get(ed->en_edit);
Evas_Textblock_Cursor *cur = evas_object_textblock_cursor_get(tb);
evas_textblock_cursor_line_set(cur, (line - 1));
elm_entry_cursor_geometry_get(ed->en_edit, NULL, &region_y, NULL, NULL);
elm_scroller_region_show(ed->scr_edit, 0, region_y, 0, 0);
//Select region
elm_entry_select_region_set(ed->en_edit, start, end);
}
void
edit_select_none(edit_data *ed)
{
elm_entry_select_none(ed->en_edit);
}
void
edit_cursor_pos_set(edit_data *ed, int position)
{
elm_entry_cursor_pos_set(ed->en_edit, position);
}
int
edit_cursor_pos_get(edit_data *ed)
{
return elm_entry_cursor_pos_get(ed->en_edit);
}
const char *
edit_selection_get(edit_data *ed)
{
return elm_entry_selection_get(ed->en_edit);
}
const char *
edit_text_get(edit_data *ed)
{
return elm_entry_entry_get(ed->en_edit);
}
Eina_Bool
edit_is_main_file(edit_data *ed)
{
return ed->main;
}
void
edit_focus_set(edit_data *ed, Eina_Bool focus)
{
elm_object_focus_set(ed->en_edit, focus);
}
Eina_Bool
edit_focus_get(edit_data *ed)
{
return elm_object_focus_get(ed->en_edit);
}
Eina_List *
edit_group_list_get(edit_data *ed)
{
if (!ed) return NULL;
return parser_group_list_get(ed->pd, ed->en_edit);
}
Reference in New Issue View Git Blame Copy Permalink