mirror of
https://git.zap.org.au/git/trader.git
synced 2024-09-01 17:14:15 -04:00
Implement the gettxlong() function to input an integer
This commit is contained in:
parent
26436c08dd
commit
dc14a0e633
117
src/intf.c
117
src/intf.c
@ -1398,6 +1398,123 @@ int gettxdouble (WINDOW *win, double *result, double min, double max,
|
||||
}
|
||||
|
||||
|
||||
/*-----------------------------------------------------------------------
|
||||
Function: gettxlong - Read an integer number from the keyboard
|
||||
Arguments: win - Window to use
|
||||
result - Pointer to result
|
||||
min - Minimum value allowed
|
||||
max - Maximum value allowed
|
||||
emptyval - Value to use for empty input
|
||||
defaultval - Value to use as a default
|
||||
y, x - Start of field (line, col)
|
||||
fieldsize - Size of field in characters
|
||||
attr - Curses attribute to use for the field
|
||||
Returns: int - Status code: OK, ERR or key code
|
||||
|
||||
This function calls gettxline() to allow the user to input a valid
|
||||
integer number. If gettxline() returns OK, the entered number
|
||||
is stored in *result if it valid. Otherwise, gettxline() is called
|
||||
again. Any other result is returned to the caller of this function.
|
||||
*/
|
||||
|
||||
int gettxlong (WINDOW *win, long *result, long min, long max, long emptyval,
|
||||
long defaultval, int y, int x, int fieldsize, int attr)
|
||||
{
|
||||
char *buf, *buf_copy;
|
||||
char *allowed, *emptystr, *defaultstr;
|
||||
struct lconv *lc = localeconv();
|
||||
long val;
|
||||
bool done;
|
||||
int ret;
|
||||
|
||||
|
||||
assert(result != NULL);
|
||||
assert(lc != NULL);
|
||||
|
||||
if (max < min) {
|
||||
long n = max;
|
||||
max = min;
|
||||
min = n;
|
||||
}
|
||||
|
||||
buf = malloc(BUFSIZE);
|
||||
if (buf == NULL) {
|
||||
err_exit("out of memory");
|
||||
}
|
||||
|
||||
buf_copy = malloc(BUFSIZE);
|
||||
if (buf_copy == NULL) {
|
||||
err_exit("out of memory");
|
||||
}
|
||||
|
||||
allowed = malloc(BUFSIZE);
|
||||
if (allowed == NULL) {
|
||||
err_exit("out of memory");
|
||||
}
|
||||
|
||||
emptystr = malloc(BUFSIZE);
|
||||
if (emptystr == NULL) {
|
||||
err_exit("out of memory");
|
||||
}
|
||||
|
||||
defaultstr = malloc(BUFSIZE);
|
||||
if (defaultstr == NULL) {
|
||||
err_exit("out of memory");
|
||||
}
|
||||
|
||||
*buf = '\0';
|
||||
|
||||
strcpy(allowed, "0123456789+-");
|
||||
strncat(allowed, lc->thousands_sep, BUFSIZE - strlen(allowed) - 1);
|
||||
strncat(allowed, lc->mon_thousands_sep, BUFSIZE - strlen(allowed) - 1);
|
||||
|
||||
snprintf(emptystr, BUFSIZE, "%'1ld", emptyval);
|
||||
snprintf(defaultstr, BUFSIZE, "%'1ld", defaultval);
|
||||
|
||||
done = false;
|
||||
while (! done) {
|
||||
ret = gettxline(win, buf, BUFSIZE, false, BUFSIZE - 1, emptystr,
|
||||
defaultstr, allowed, true, y, x, fieldsize, attr, NULL);
|
||||
|
||||
if (ret == OK) {
|
||||
char *p;
|
||||
|
||||
strncpy(buf_copy, buf, BUFSIZE - 1);
|
||||
buf_copy[BUFSIZE - 1] = '\0';
|
||||
|
||||
// Remove thousands separators
|
||||
while ((p = strstr(buf_copy, lc->thousands_sep)) != NULL) {
|
||||
int len = strlen(lc->thousands_sep);
|
||||
memmove(p, p + len, strlen(p) - len + 1);
|
||||
}
|
||||
while ((p = strstr(buf_copy, lc->mon_thousands_sep)) != NULL) {
|
||||
int len = strlen(lc->thousands_sep);
|
||||
memmove(p, p + len, strlen(p) - len + 1);
|
||||
}
|
||||
|
||||
val = strtol(buf_copy, &p, 10);
|
||||
|
||||
if (*p == '\0' && val >= min && val <= max) {
|
||||
*result = val;
|
||||
done = true;
|
||||
} else {
|
||||
beep();
|
||||
}
|
||||
} else {
|
||||
done = true;
|
||||
}
|
||||
}
|
||||
|
||||
free(defaultstr);
|
||||
free(emptystr);
|
||||
free(allowed);
|
||||
free(buf_copy);
|
||||
free(buf);
|
||||
|
||||
return ret;
|
||||
}
|
||||
|
||||
|
||||
/*-----------------------------------------------------------------------
|
||||
Function: answer_yesno - Read a Yes/No answer and return true/false
|
||||
Arguments: win - Window to use
|
||||
|
@ -196,6 +196,9 @@ extern int gettxstring (WINDOW *win, char **bufptr, bool multifield,
|
||||
extern int gettxdouble (WINDOW *win, double *result, double min, double max,
|
||||
double emptyval, double defaultval, int y, int x,
|
||||
int fieldsize, int attr);
|
||||
extern int gettxlong (WINDOW *win, long *result, long min, long max,
|
||||
long emptyval, long defaultval, int y, int x,
|
||||
int fieldsize, int attr);
|
||||
|
||||
extern bool answer_yesno (WINDOW *win);
|
||||
extern void wait_for_key (WINDOW *win, int y, int attr);
|
||||
|
Loading…
Reference in New Issue
Block a user