|
OpenCOBOL 1.1pre-rel
|
#include <libcob/common.h>

Go to the source code of this file.
Functions | |
| void | cob_display (const int, const int, const int,...) |
| void | cob_accept (cob_field *) |
| void cob_accept | ( | cob_field * | ) |
Definition at line 234 of file termio.c.
{
/* RXW
size_t size;
*/
cob_field_attr attr;
cob_field temp;
if (cob_screen_initialized) {
cob_field_accept (f, NULL, NULL, NULL, NULL, NULL, 0);
return;
}
temp.data = term_buff;
temp.attr = &attr;
COB_ATTR_INIT (COB_TYPE_ALPHANUMERIC, 0, 0, 0, NULL);
/* read a line */
if (fgets ((char *)term_buff, COB_MEDIUM_BUFF, stdin) == NULL) {
temp.size = 1;
term_buff[0] = ' ';
term_buff[1] = 0;
} else {
temp.size = strlen ((char *)term_buff) - 1;
}
if (COB_FIELD_TYPE(f) == COB_TYPE_NUMERIC_DISPLAY) {
if (temp.size > f->size) {
temp.size = f->size;
}
}
cob_move (&temp, f);
/* RXW
if (isatty (fileno (stdin))) {
temp.size = strlen ((char *)term_buff) - 1;
cob_move (&temp, f);
} else {
size = strlen ((char *)term_buff) - 1;
if (size > f->size) {
size = f->size;
}
memcpy (f->data, term_buff, size);
memset (f->data + size, ' ', f->size - size);
}
*/
}

| void cob_display | ( | const int | , |
| const int | , | ||
| const int | , | ||
| ... | |||
| ) |
Definition at line 205 of file termio.c.
{
FILE *fp;
cob_field *f;
int i;
va_list args;
if (!outorerr && !cob_screen_initialized) {
fp = stdout;
} else {
fp = stderr;
}
va_start (args, varcnt);
for (i = 0; i < varcnt; ++i) {
f = va_arg (args, cob_field *);
display (f, fp);
}
va_end (args);
if (newline) {
putc ('\n', fp);
fflush (fp);
}
}
1.7.4