void wz_def_draw_editbox(struct WZ_THEME* theme, float x, float y, float w, float h, int cursor_pos, ALLEGRO_USTR* text, int style)
{
WZ_DEF_THEME* thm = (WZ_DEF_THEME*)theme;
int len = wz_get_text_pos(thm->font, text, w - 4);
int cx,cy,cw,ch;
int len2 = al_ustr_length(text);
int offset;
ALLEGRO_USTR_INFO info;
ALLEGRO_USTR* token;
ALLEGRO_COLOR border_col;
ALLEGRO_COLOR text_col;
len = len + 1 > len2 ? len2 : len + 1;
offset = al_ustr_offset(text, len);
token = al_ref_ustr(&info, text, 0, offset);
border_col = thm->color1;
text_col = thm->color2;
if (style & WZ_STYLE_FOCUSED)
{
border_col = wz_scale_color(thm->color1, 1.5);
}
if (style & WZ_STYLE_DISABLED)
{
border_col = wz_scale_color(thm->color1, 0.5);
text_col = wz_scale_color(thm->color2, 0.5);
}
wz_draw_3d_rectangle(x, y, x + w, y + h, 1, border_col, true);
al_get_clipping_rectangle(&cx, &cy, &cw, &ch);
al_set_clipping_rectangle(x + 2, y + 2, w - 4, h - 4);
wz_draw_single_text(x + 2, y + 2, w - 4, h - 4, WZ_ALIGN_LEFT, WZ_ALIGN_CENTRE, text_col, thm->font, token);
al_set_clipping_rectangle(cx, cy, cw, ch);
if (style & WZ_STYLE_FOCUSED)
{
if (((int)(al_get_time() / 0.5f)) % 2 == 0)
{
float len;
float halfheight;
offset = al_ustr_offset(text, cursor_pos);
token = al_ref_ustr(&info, text, 0, offset);
len = al_get_ustr_width(thm->font, token);
halfheight = al_get_font_line_height(thm->font) / 2.0f;
al_draw_line(x + 2 + len, y + 2 + h / 2 - halfheight, x + 2 + len, y + 2 + h / 2 + halfheight, text_col, 1);
}
}
}
void wz_snap_editbox(WZ_EDITBOX* box)
{
WZ_WIDGET* wgt = (WZ_WIDGET*)box;
ALLEGRO_FONT* font = wgt->theme->get_font(wgt->theme, 0);
int len = al_ustr_length(box->text);
int size = al_ustr_size(box->text);
int scroll_offset = al_ustr_offset(box->text, box->scroll_pos);
int cursor_offset;
ALLEGRO_USTR_INFO info;
ALLEGRO_USTR* text = al_ref_ustr(&info, box->text, scroll_offset, size);
int max_rel_cursor_pos = wz_get_text_pos(font, text, wgt->w);
if (box->cursor_pos < box->scroll_pos)
{
box->scroll_pos = box->cursor_pos;
}
if (box->cursor_pos > box->scroll_pos + max_rel_cursor_pos)
{
box->scroll_pos = box->cursor_pos - max_rel_cursor_pos;
}
if (box->cursor_pos > 0 && box->cursor_pos - box->scroll_pos < 1)
{
box->scroll_pos--;
}
if (box->cursor_pos > len)
{
box->cursor_pos = len;
}
if (box->cursor_pos < 0)
{
box->cursor_pos = 0;
}
scroll_offset = al_ustr_offset(box->text, box->scroll_pos);
cursor_offset = al_ustr_offset(box->text, box->cursor_pos);
text = al_ref_ustr(&info, box->text, scroll_offset, cursor_offset);
if (al_get_ustr_width(font, text) > wgt->w)
{
box->scroll_pos++;
}
}
/* Print some text with a shadow. */
static void print(int x, int y, bool vertical, char const *format, ...)
{
va_list list;
char message[1024];
ALLEGRO_COLOR color;
int h;
int j;
va_start(list, format);
vsnprintf(message, sizeof message, format, list);
va_end(list);
al_set_blender(ALLEGRO_ADD, ALLEGRO_ONE, ALLEGRO_INVERSE_ALPHA);
h = al_get_font_line_height(ex.myfont);
for (j = 0; j < 2; j++) {
if (j == 0)
color = al_map_rgb(0, 0, 0);
else
color = al_map_rgb(255, 255, 255);
if (vertical) {
int i;
ALLEGRO_USTR_INFO ui;
const ALLEGRO_USTR *us = al_ref_cstr(&ui, message);
for (i = 0; i < (int)al_ustr_length(us); i++) {
ALLEGRO_USTR_INFO letter;
al_draw_ustr(ex.myfont, color, x + 1 - j, y + 1 - j + h * i, 0,
al_ref_ustr(&letter, us, al_ustr_offset(us, i),
al_ustr_offset(us, i + 1)));
}
}
else {
al_draw_text(ex.myfont, color, x + 1 - j, y + 1 - j, 0, message);
}
}
}
/*
Function: wz_get_text_pos
Parameters:
text - the text you want to search
x - the length you want to match
Returns:
The character position such that the text length of the string up to that character
is as close as possible to the passed length.
*/
int wz_get_text_pos(ALLEGRO_FONT* font, ALLEGRO_USTR* text, float x)
{
int ii = 0;
int len = al_ustr_length(text);
float width = al_get_ustr_width(font, text);
if(x > width)
{
return len + 1;
}
if(x < 0)
{
return 0;
}
else
{
float old_diff = x;
float diff;
ALLEGRO_USTR_INFO info;
for(ii = 0; ii <= len; ii++)
{
int offset = al_ustr_offset(text, ii);
const ALLEGRO_USTR* str = al_ref_ustr(&info, text, 0, offset);
diff = fabs(x - al_get_ustr_width(font, str));
if(diff > old_diff)
{
return ii - 1;
}
old_diff = diff;
}
}
return ii - 1;
}
/*
Title: Edit Box
Section: Internal
Function: wz_editbox_proc
See also:
<wz_widget_proc>
*/
int wz_editbox_proc(WZ_WIDGET* wgt, ALLEGRO_EVENT* event)
{
int ret = 1;
WZ_EDITBOX* box = (WZ_EDITBOX*)wgt;
switch (event->type)
{
case WZ_DRAW:
{
if (wgt->flags & WZ_STATE_HIDDEN)
{
ret = 0;
}
else
{
int size = al_ustr_size(box->text);
int scroll_offset = al_ustr_offset(box->text, box->scroll_pos);
ALLEGRO_USTR_INFO info;
ALLEGRO_USTR* text = al_ref_ustr(&info, box->text, scroll_offset, size);
int pos = box->cursor_pos - box->scroll_pos;
int flags = 0;
if(wgt->flags & WZ_STATE_DISABLED)
flags = WZ_STYLE_DISABLED;
else if(wgt->flags & WZ_STATE_HAS_FOCUS)
flags = WZ_STYLE_FOCUSED;
wgt->theme->draw_editbox(wgt->theme, wgt->local_x, wgt->local_y, wgt->w, wgt->h, pos, text, flags);
}
break;
}
case ALLEGRO_EVENT_MOUSE_BUTTON_DOWN:
{
if (wgt->flags & WZ_STATE_DISABLED)
{
ret = 0;
}
else if (event->mouse.button == 1 && wz_widget_rect_test(wgt, event->mouse.x, event->mouse.y))
{
int len = al_ustr_length(box->text);
ALLEGRO_USTR_INFO info;
ALLEGRO_USTR* text = al_ref_ustr(&info, box->text, box->scroll_pos, len - 1);
ALLEGRO_FONT* font = wgt->theme->get_font(wgt->theme, 0);
wz_ask_parent_for_focus(wgt);
box->cursor_pos = wz_get_text_pos(font, text, event->mouse.x - wgt->x) + box->scroll_pos;
}
else
ret = 0;
break;
}
#if (ALLEGRO_SUB_VERSION > 0)
case ALLEGRO_EVENT_TOUCH_BEGIN:
{
if (wgt->flags & WZ_STATE_DISABLED)
{
ret = 0;
}
else if (wz_widget_rect_test(wgt, event->touch.x, event->touch.y))
{
int len = al_ustr_length(box->text);
ALLEGRO_USTR_INFO info;
ALLEGRO_USTR* text = al_ref_ustr(&info, box->text, box->scroll_pos, len - 1);
ALLEGRO_FONT* font = wgt->theme->get_font(wgt->theme, 0);
wz_ask_parent_for_focus(wgt);
box->cursor_pos = wz_get_text_pos(font, text, event->touch.x - wgt->x) + box->scroll_pos;
}
else
ret = 0;
break;
}
#endif
case WZ_HANDLE_SHORTCUT:
{
wz_ask_parent_for_focus(wgt);
break;
}
case WZ_DESTROY:
{
if(box->own)
al_ustr_free(box->text);
ret = 0;
break;
}
case ALLEGRO_EVENT_KEY_CHAR:
{
int len;
if(wgt->flags & WZ_STATE_DISABLED || !(wgt->flags & WZ_STATE_HAS_FOCUS))
{
ret = 0;
break;
}
else if(event->keyboard.modifiers & ALLEGRO_KEYMOD_CTRL || event->keyboard.modifiers & ALLEGRO_KEYMOD_ALT)
{
ret = 0;
}
len = al_ustr_length(box->text);
if((int)(event->keyboard.unichar) > 31 && (int)(event->keyboard.unichar) != 127)
{
al_ustr_insert_chr(box->text, al_ustr_offset(box->text, box->cursor_pos), event->keyboard.unichar);
box->cursor_pos++;
}
else
{
switch (event->keyboard.keycode)
{
case ALLEGRO_KEY_BACKSPACE:
{
if (len > 0 && box->cursor_pos > 0)
{
al_ustr_remove_chr(box->text, al_ustr_offset(box->text, box->cursor_pos - 1));
box->cursor_pos--;
}
break;
}
case ALLEGRO_KEY_DELETE:
{
if (len > 0 && box->cursor_pos < len)
{
al_ustr_remove_chr(box->text, al_ustr_offset(box->text, box->cursor_pos));
}
break;
}
case ALLEGRO_KEY_LEFT:
{
if (box->cursor_pos > 0)
{
box->cursor_pos--;
}
else
ret = 0;
break;
}
case ALLEGRO_KEY_RIGHT:
{
if (box->cursor_pos < len)
{
box->cursor_pos++;
}
else
ret = 0;
break;
}
case ALLEGRO_KEY_HOME:
{
box->cursor_pos = 0;
break;
}
case ALLEGRO_KEY_END:
{
len = al_ustr_length(box->text);
box->cursor_pos = len;
break;
}
case ALLEGRO_KEY_ENTER:
{
wz_trigger(wgt);
break;
}
default:
ret = 0;
}
}
wz_snap_editbox(box);
break;
}
case WZ_SET_CURSOR_POS:
{
box->cursor_pos = event->user.data3;
wz_snap_editbox(box);
}
case WZ_SET_TEXT:
{
if(box->own)
{
al_ustr_assign(box->text, (ALLEGRO_USTR*)event->user.data3);
}
else
box->text = (ALLEGRO_USTR*)event->user.data3;
wz_snap_editbox(box);
break;
}
case WZ_TRIGGER:
{
ALLEGRO_EVENT ev;
wz_craft_event(&ev, WZ_TEXT_CHANGED, wgt, 0);
al_emit_user_event(wgt->source, &ev, 0);
break;
}
case ALLEGRO_EVENT_MOUSE_AXES:
{
if (wgt->flags & WZ_STATE_DISABLED)
{
ret = 0;
}
if (wz_widget_rect_test(wgt, event->mouse.x, event->mouse.y))
{
wz_ask_parent_for_focus(wgt);
}
return wz_widget_proc(wgt, event);
break;
}
default:
ret = 0;
}
if (ret == 0)
ret = wz_widget_proc(wgt, event);
return ret;
}
static int ustr_at(ALLEGRO_USTR *string, int index)
{
return al_ustr_get(string, al_ustr_offset(string, index));
}
/* parse_path_string:
*
* Parse a path string according to the following grammar. The last
* component, if it is not followed by a directory separator, is interpreted
* as the filename component, unless it is "." or "..".
*
* GRAMMAR
*
* path ::= "//" c+ "/" nonlast [Windows only]
* | c ":" nonlast [Windows only]
* | nonlast
*
* nonlast ::= c* "/" nonlast
* | last
*
* last ::= "."
* | ".."
* | filename
*
* filename ::= c* [but not "." and ".."]
*
* c ::= any character but '/'
*/
static bool parse_path_string(const ALLEGRO_USTR *str, ALLEGRO_PATH *path)
{
ALLEGRO_USTR_INFO dot_info;
ALLEGRO_USTR_INFO dotdot_info;
const ALLEGRO_USTR * dot = al_ref_cstr(&dot_info, ".");
const ALLEGRO_USTR * dotdot = al_ref_cstr(&dotdot_info, "..");
ALLEGRO_USTR *piece = al_ustr_new("");
int pos = 0;
bool on_windows;
/* We compile the drive handling code on non-Windows platforms to prevent
* it becoming broken.
*/
#ifdef ALLEGRO_WINDOWS
on_windows = true;
#else
on_windows = false;
#endif
if (on_windows) {
/* UNC \\server\share name */
if (al_ustr_has_prefix_cstr(str, "//")) {
int slash = al_ustr_find_chr(str, 2, '/');
if (slash == -1 || slash == 2) {
/* Missing slash or server component is empty. */
goto Error;
}
al_ustr_assign_substr(path->drive, str, pos, slash);
pos = slash + 1;
}
else {
/* Drive letter. */
int colon = al_ustr_offset(str, 1);
if (colon > -1 && al_ustr_get(str, colon) == ':') {
/* Include the colon in the drive string. */
al_ustr_assign_substr(path->drive, str, 0, colon + 1);
pos = colon + 1;
}
}
}
for (;;) {
int slash = al_ustr_find_chr(str, pos, '/');
if (slash == -1) {
/* Last component. */
al_ustr_assign_substr(piece, str, pos, al_ustr_size(str));
if (al_ustr_equal(piece, dot) || al_ustr_equal(piece, dotdot)) {
al_append_path_component(path, al_cstr(piece));
}
else {
/* This might be an empty string, but that's okay. */
al_ustr_assign(path->filename, piece);
}
break;
}
/* Non-last component. */
al_ustr_assign_substr(piece, str, pos, slash);
al_append_path_component(path, al_cstr(piece));
pos = slash + 1;
}
al_ustr_free(piece);
return true;
Error:
al_ustr_free(piece);
return false;
}
/* Test al_ustr_offset. */
static void t28(void)
{
ALLEGRO_USTR *us = al_ustr_new("aþ€\xf4\x8f\xbf\xbf");
CHECK(al_ustr_offset(us, 0) == 0);
CHECK(al_ustr_offset(us, 1) == 1);
CHECK(al_ustr_offset(us, 2) == 3);
CHECK(al_ustr_offset(us, 3) == 6);
CHECK(al_ustr_offset(us, 4) == 10);
CHECK(al_ustr_offset(us, 5) == 10);
CHECK(al_ustr_offset(us, -1) == 6);
CHECK(al_ustr_offset(us, -2) == 3);
CHECK(al_ustr_offset(us, -3) == 1);
CHECK(al_ustr_offset(us, -4) == 0);
CHECK(al_ustr_offset(us, -5) == 0);
al_ustr_free(us);
}
