freebsd-skq/contrib/dialog/timebox.c
2021-02-26 10:16:49 +01:00

431 lines
10 KiB
C

/*
* $Id: timebox.c,v 1.69 2020/11/23 09:04:00 tom Exp $
*
* timebox.c -- implements the timebox dialog
*
* Copyright 2001-2019,2020 Thomas E. Dickey
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU Lesser General Public License, version 2.1
* as published by the Free Software Foundation.
*
* This program is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this program; if not, write to
* Free Software Foundation, Inc.
* 51 Franklin St., Fifth Floor
* Boston, MA 02110, USA.
*/
#include <dlg_internals.h>
#include <dlg_keys.h>
#include <time.h>
#define ONE_HIGH 1
#define ONE_WIDE 2
#define BTN_HIGH 2
#define MIN_HIGH (ONE_HIGH + BTN_HIGH + (4 * MARGIN))
#define MIN_WIDE ((3 * (ONE_WIDE + 2 * MARGIN)) + 2 + (2 * MARGIN))
typedef enum {
sHR = -3
,sMN = -2
,sSC = -1
} STATES;
struct _box;
typedef struct _box {
WINDOW *parent;
WINDOW *window;
int x;
int y;
int width;
int height;
int period;
int value;
} BOX;
static int
next_or_previous(int key)
{
int result = 0;
switch (key) {
case DLGK_ITEM_PREV:
result = -1;
break;
case DLGK_ITEM_NEXT:
result = 1;
break;
default:
beep();
break;
}
return result;
}
/*
* Draw the hour-of-month selection box
*/
static int
draw_cell(BOX * data)
{
werase(data->window);
dlg_draw_box(data->parent,
data->y - MARGIN, data->x - MARGIN,
data->height + (2 * MARGIN), data->width + (2 * MARGIN),
menubox_border_attr, menubox_border2_attr);
dlg_attrset(data->window, item_attr);
wprintw(data->window, "%02d", data->value);
return 0;
}
static int
init_object(BOX * data,
WINDOW *parent,
int x, int y,
int width, int height,
int period, int value,
int code)
{
(void) code;
data->parent = parent;
data->x = x;
data->y = y;
data->width = width;
data->height = height;
data->period = period;
data->value = value % period;
data->window = dlg_der_window(data->parent,
data->height, data->width,
data->y, data->x);
if (data->window == 0)
return -1;
dlg_mouse_setbase(getbegx(parent), getbegy(parent));
dlg_mouse_mkregion(y, x, height, width, code);
return 0;
}
static int
CleanupResult(int code, WINDOW *dialog, char *prompt, DIALOG_VARS * save_vars)
{
dlg_del_window(dialog);
dlg_mouse_free_regions();
free(prompt);
dlg_restore_vars(save_vars);
return code;
}
#define DrawObject(data) draw_cell(data)
/*
* Display a dialog box for entering a date
*/
int
dialog_timebox(const char *title,
const char *subtitle,
int height,
int width,
int hour,
int minute,
int second)
{
/* *INDENT-OFF* */
static DLG_KEYS_BINDING binding[] = {
DLG_KEYS_DATA( DLGK_DELETE_RIGHT,KEY_DC ),
HELPKEY_BINDINGS,
ENTERKEY_BINDINGS,
TOGGLEKEY_BINDINGS,
DLG_KEYS_DATA( DLGK_FIELD_FIRST,KEY_HOME ),
DLG_KEYS_DATA( DLGK_FIELD_LAST, KEY_END ),
DLG_KEYS_DATA( DLGK_FIELD_LAST, KEY_LL ),
DLG_KEYS_DATA( DLGK_FIELD_NEXT, CHR_NEXT ),
DLG_KEYS_DATA( DLGK_FIELD_NEXT, KEY_RIGHT ),
DLG_KEYS_DATA( DLGK_FIELD_NEXT, TAB ),
DLG_KEYS_DATA( DLGK_FIELD_PREV, CHR_BACKSPACE ),
DLG_KEYS_DATA( DLGK_FIELD_PREV, CHR_PREVIOUS ),
DLG_KEYS_DATA( DLGK_FIELD_PREV, KEY_BTAB ),
DLG_KEYS_DATA( DLGK_FIELD_PREV, KEY_LEFT ),
DLG_KEYS_DATA( DLGK_ITEM_NEXT, '+'),
DLG_KEYS_DATA( DLGK_ITEM_NEXT, KEY_DOWN),
DLG_KEYS_DATA( DLGK_ITEM_NEXT, KEY_NEXT),
DLG_KEYS_DATA( DLGK_ITEM_NEXT, KEY_NPAGE),
DLG_KEYS_DATA( DLGK_ITEM_PREV, '-' ),
DLG_KEYS_DATA( DLGK_ITEM_PREV, KEY_PPAGE ),
DLG_KEYS_DATA( DLGK_ITEM_PREV, KEY_PREVIOUS ),
DLG_KEYS_DATA( DLGK_ITEM_PREV, KEY_UP ),
END_KEYS_BINDING
};
/* *INDENT-ON* */
#ifdef KEY_RESIZE
int old_height = height;
int old_width = width;
#endif
BOX hr_box, mn_box, sc_box;
int key, fkey;
int button;
int result = DLG_EXIT_UNKNOWN;
WINDOW *dialog;
time_t now_time;
struct tm current;
int state = dlg_default_button();
const char **buttons = dlg_ok_labels();
char *prompt;
char buffer[MAX_LEN];
DIALOG_VARS save_vars;
DLG_TRACE(("# timebox args:\n"));
DLG_TRACE2S("title", title);
DLG_TRACE2S("message", subtitle);
DLG_TRACE2N("height", height);
DLG_TRACE2N("width", width);
DLG_TRACE2N("hour", hour);
DLG_TRACE2N("minute", minute);
DLG_TRACE2N("second", second);
now_time = time((time_t *) 0);
current = *localtime(&now_time);
dlg_save_vars(&save_vars);
dialog_vars.separate_output = TRUE;
dlg_does_output();
#ifdef KEY_RESIZE
retry:
#endif
prompt = dlg_strclone(subtitle);
dlg_auto_size(title, prompt, &height, &width, MIN_HIGH, MIN_WIDE);
dlg_button_layout(buttons, &width);
dlg_print_size(height, width);
dlg_ctl_size(height, width);
dialog = dlg_new_window(height, width,
dlg_box_y_ordinate(height),
dlg_box_x_ordinate(width));
if (hour >= 24 || minute >= 60 || second >= 60) {
return CleanupResult(DLG_EXIT_ERROR, dialog, prompt, &save_vars);
}
dlg_register_window(dialog, "timebox", binding);
dlg_register_buttons(dialog, "timebox", buttons);
dlg_draw_box2(dialog, 0, 0, height, width, dialog_attr, border_attr, border2_attr);
dlg_draw_bottom_box2(dialog, border_attr, border2_attr, dialog_attr);
dlg_draw_title(dialog, title);
dlg_draw_helpline(dialog, FALSE);
dlg_attrset(dialog, dialog_attr);
dlg_print_autowrap(dialog, prompt, height, width);
/* compute positions of hour, month and year boxes */
memset(&hr_box, 0, sizeof(hr_box));
memset(&mn_box, 0, sizeof(mn_box));
memset(&sc_box, 0, sizeof(sc_box));
if (init_object(&hr_box,
dialog,
(width - MIN_WIDE + 1) / 2 + MARGIN,
(height - MIN_HIGH + MARGIN),
ONE_WIDE,
ONE_HIGH,
24,
hour >= 0 ? hour : current.tm_hour,
'H') < 0
|| DrawObject(&hr_box) < 0) {
return CleanupResult(DLG_EXIT_ERROR, dialog, prompt, &save_vars);
}
mvwprintw(dialog, hr_box.y, hr_box.x + ONE_WIDE + MARGIN, ":");
if (init_object(&mn_box,
dialog,
hr_box.x + (ONE_WIDE + 2 * MARGIN + 1),
hr_box.y,
hr_box.width,
hr_box.height,
60,
minute >= 0 ? minute : current.tm_min,
'M') < 0
|| DrawObject(&mn_box) < 0) {
return CleanupResult(DLG_EXIT_ERROR, dialog, prompt, &save_vars);
}
mvwprintw(dialog, mn_box.y, mn_box.x + ONE_WIDE + MARGIN, ":");
if (init_object(&sc_box,
dialog,
mn_box.x + (ONE_WIDE + 2 * MARGIN + 1),
mn_box.y,
mn_box.width,
mn_box.height,
60,
second >= 0 ? second : current.tm_sec,
'S') < 0
|| DrawObject(&sc_box) < 0) {
return CleanupResult(DLG_EXIT_ERROR, dialog, prompt, &save_vars);
}
dlg_trace_win(dialog);
while (result == DLG_EXIT_UNKNOWN) {
BOX *obj = (state == sHR ? &hr_box
: (state == sMN ? &mn_box :
(state == sSC ? &sc_box : 0)));
int key2;
button = (state < 0) ? 0 : state;
dlg_draw_buttons(dialog, height - 2, 0, buttons, button, FALSE, width);
if (obj != 0)
dlg_set_focus(dialog, obj->window);
key = dlg_mouse_wgetch(dialog, &fkey);
if (dlg_result_key(key, fkey, &result)) {
if (!dlg_button_key(result, &button, &key, &fkey))
break;
}
if ((key2 = dlg_char_to_button(key, buttons)) >= 0) {
result = key2;
} else {
/* handle function-keys */
if (fkey) {
switch (key) {
case DLGK_MOUSE('H'):
state = sHR;
break;
case DLGK_MOUSE('M'):
state = sMN;
break;
case DLGK_MOUSE('S'):
state = sSC;
break;
case DLGK_TOGGLE:
case DLGK_ENTER:
result = dlg_enter_buttoncode(button);
break;
case DLGK_LEAVE:
result = dlg_ok_buttoncode(button);
break;
case DLGK_FIELD_PREV:
state = dlg_prev_ok_buttonindex(state, sHR);
break;
case DLGK_FIELD_NEXT:
state = dlg_next_ok_buttonindex(state, sHR);
break;
case DLGK_FIELD_FIRST:
if (obj != 0) {
obj->value = 0;
(void) DrawObject(obj);
}
break;
case DLGK_FIELD_LAST:
if (obj != 0) {
switch (state) {
case sHR:
obj->value = 23;
break;
case sMN:
case sSC:
obj->value = 59;
break;
}
(void) DrawObject(obj);
}
break;
case DLGK_DELETE_RIGHT:
if (obj != 0) {
obj->value /= 10;
(void) DrawObject(obj);
}
break;
#ifdef KEY_RESIZE
case KEY_RESIZE:
dlg_will_resize(dialog);
/* reset data */
height = old_height;
width = old_width;
hour = hr_box.value;
minute = mn_box.value;
second = sc_box.value;
/* repaint */
free(prompt);
_dlg_resize_cleanup(dialog);
goto retry;
#endif
default:
if (is_DLGK_MOUSE(key)) {
result = dlg_ok_buttoncode(key - M_EVENT);
if (result < 0)
result = DLG_EXIT_OK;
} else if (obj != 0) {
int step = next_or_previous(key);
if (step != 0) {
obj->value += step;
while (obj->value < 0)
obj->value += obj->period;
obj->value %= obj->period;
(void) DrawObject(obj);
}
}
break;
}
} else if (isdigit(key)) {
if (obj != 0) {
int digit = (key - '0');
int value = (obj->value * 10) + digit;
if (value < obj->period) {
obj->value = value;
(void) DrawObject(obj);
} else {
beep();
}
}
} else if (key > 0) {
beep();
}
}
}
#define DefaultFormat(dst, src) \
sprintf(dst, "%02d:%02d:%02d", \
hr_box.value, mn_box.value, sc_box.value)
#if defined(HAVE_STRFTIME)
if (dialog_vars.time_format != 0) {
size_t used;
time_t now = time((time_t *) 0);
struct tm *parts = localtime(&now);
parts->tm_sec = sc_box.value;
parts->tm_min = mn_box.value;
parts->tm_hour = hr_box.value;
used = strftime(buffer,
sizeof(buffer) - 1,
dialog_vars.time_format,
parts);
if (used == 0 || *buffer == '\0')
DefaultFormat(buffer, hr_box);
} else
#endif
DefaultFormat(buffer, hr_box);
dlg_add_result(buffer);
AddLastKey();
return CleanupResult(result, dialog, prompt, &save_vars);
}