/*
- * $Id: edit.c,v 1.48 2006/08/07 19:20:26 cduval Exp $
+ * $Id: edit.c,v 1.55 2006/09/06 02:46:44 cduval Exp $
*
* by JH <jheinonen@users.sourceforge.net>
*
EDITW_COLS - TAB_COLON_POS - 2);
}
abook_list_free(&emails);
+ } else if(cur->field->type == FIELD_DATE) {
+ int day, month, year;
+ char buf[12];
+
+ find_field_number(cur->field->key, &nb);
+ if((str = db_fget_byid(item, nb)) != NULL)
+ strncpy(buf, str, sizeof(buf));
+
+ if(str && parse_date_string(buf, &day, &month, &year)) {
+ if(year)
+ str = strdup_printf("%04d-%02d-%02d",
+ year, month, day);
+ else
+ str = strdup_printf("--%02d-%02d",
+ month, day);
+ mvwaddnstr(editw, y, TAB_COLON_POS + 2, str,
+ bytes2width(str, FIELD_MAX_WIDTH));
+ free(str);
+ }
} else {
find_field_number(cur->field->key, &nb);
str = safe_str(db_fget_byid(item, nb));
* valid string
*/
static int
-change_field(char *msg, char **field, int max_len)
+change_field(char *msg, char **field, size_t max_len)
{
char *old;
int ret = 0;
}
static int
-change_name_field(char *msg, char **field, int max_len)
+change_name_field(char *msg, char **field, size_t max_len)
{
char *tmp;
int ret;
&field, MAX_EMAIL_LEN))
return; /* user cancelled ( C-g ) */
- /* TODO if list item contains commas, sjould use quotes instead */
+ /* TODO if list item contains commas, should use quotes instead */
if(field)
fix_email_str(field);
abook_list_free(&list);
}
+static int is_valid_date(const int day, const int month, const int year)
+{
+ int valid = 1;
+ int month_length[13] =
+ { 0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };
+
+ /*
+ * leap year
+ */
+ if ((!(year % 4)) && ((year % 100) || !(year % 400)))
+ month_length[2] = 29;
+
+ if (month < 1 || month > 12)
+ valid = 0;
+ else if (day < 1 || day > month_length[month])
+ valid = 0;
+ else if (year < 0) /* we don't accept negative year numbers */
+ valid = 0;
+
+ return valid;
+}
+
+int
+parse_date_string(char *s, int *day, int *month, int *year)
+{
+ int i = 0;
+ char *p = s;
+ assert(s && day && month && year);
+
+ if(*s == '-' && *s++ == '-') { /* omitted year */
+ *year = 0;
+ p = ++s;
+ i++;
+ }
+
+ while(*s) {
+ if(isdigit(*s)) {
+ s++;
+ continue;
+ } else if(*s == '-') {
+ if(++i > 3)
+ return FALSE;
+ *s++ = '\0';
+ switch(i) {
+ case 1: *year = safe_atoi(p); break;
+ case 2: *month = safe_atoi(p); break;
+ }
+ p = s;
+ } else
+ return FALSE;
+ }
+
+ if (i != 2 || !*p)
+ return FALSE;
+
+ *day = atoi(p);
+
+ return is_valid_date(*day, *month, *year);
+}
+
+static void
+edit_date(int item, int nb)
+{
+ int i, date[3], old = FALSE;
+ char buf[12], *s = db_fget_byid(item, nb);
+ char *field[] = { N_("Day: "), N_("Month: "), N_("Year (optional): ") };
+
+ if(s) {
+ strncpy(buf, s, sizeof(buf));
+ old = parse_date_string(buf, &date[0], &date[1], &date[2]);
+ }
+
+ for(i = 0; i < 3; i++) {
+ s = (old && date[i]) ? strdup_printf("%d", date[i]) : NULL;
+ if(change_field(gettext(field[i]), &s, 5))
+ return; /* user aborted with ^G */
+
+ date[i] = (s && is_number(s)) ? atoi(s) : 0;
+
+ if(!s) {
+ switch(i) {
+ case 0: db_fput_byid(item, nb, NULL); /*delete*/
+ case 1: /* fall through */ return;
+ }
+ } else
+ xfree(s);
+ }
+
+ /* ISO 8601 date, of the YYYY-MM-DD or --MM-DD format */
+ if(is_valid_date(date[0], date[1], date[2])) {
+ if(date[2])
+ s = strdup_printf("%04d-%02d-%02d",
+ date[2], date[1], date[0]);
+ else
+ s = strdup_printf("--%02d-%02d", date[1], date[0]);
+
+ db_fput_byid(item, nb, xstrdup(s));
+ } else
+ statusline_msg(_("Invalid date"));
+}
/* input range: 1-9A-Z
* output range: 0-34 */
case FIELD_EMAILS:
edit_list(item_number, idx, 1);
break;
- case FIELD_DAY:
- statusline_msg(_("sorry, input for this field type is "
- "not yet implemented"));
+ case FIELD_DATE:
+ edit_date(item_number, idx);
return;
default:
assert(0);