static void
display_numeric (cob_field *f, FILE *fp)
{
int i;
int digits;
int scale;
int size;
cob_field_attr attr;
cob_field temp;
unsigned char data[128];
digits = COB_FIELD_DIGITS (f);
scale = COB_FIELD_SCALE (f);
size = digits + (COB_FIELD_HAVE_SIGN (f) ? 1 : 0);
COB_ATTR_INIT (COB_TYPE_NUMERIC_DISPLAY, digits, scale, 0, NULL);
temp.size = size;
temp.data = data;
temp.attr = &attr;
if (COB_FIELD_HAVE_SIGN (f)) {
attr.flags = COB_FLAG_HAVE_SIGN | COB_FLAG_SIGN_SEPARATE;
if (COB_FIELD_SIGN_LEADING (f)
|| COB_FIELD_TYPE (f) == COB_TYPE_NUMERIC_BINARY) {
attr.flags |= COB_FLAG_SIGN_LEADING;
}
}
cob_move (f, &temp);
for (i = 0; i < size; i++) {
putc (data[i], fp);
}
}
void
cob_accept (cob_field *f)
{
size_t size;
cob_field_attr attr;
cob_field temp;
unsigned char buff[COB_MEDIUM_BUFF];
if (isatty (fileno (stdin))) {
/* terminal input */
temp.data = buff;
temp.attr = &attr;
COB_ATTR_INIT (COB_TYPE_ALPHANUMERIC, 0, 0, 0, NULL);
/* read a line */
fgets ((char *)buff, COB_MEDIUM_BUFF, stdin);
temp.size = strlen ((char *)buff) - 1;
/* move it to the field */
cob_move (&temp, f);
} else {
/* non-terminal input */
fgets ((char *)buff, COB_MEDIUM_BUFF, stdin);
size = strlen ((char *)buff) - 1;
if (size > f->size) {
size = f->size;
}
memcpy (f->data, buff, size);
memset (f->data + size, ' ', f->size - size);
}
}
void
cob_memcpy (cob_field *dst, unsigned char *src, const int size)
{
cob_field temp;
cob_field_attr attr;
COB_ATTR_INIT (COB_TYPE_ALPHANUMERIC, 0, 0, 0, NULL);
temp.size = size;
temp.data = src;
temp.attr = &attr;
cob_move (&temp, dst);
}
void
cob_accept_arg_number (cob_field *f)
{
int n = cob_argc - 1;
cob_field_attr attr;
cob_field temp;
temp.size = 4;
temp.data = (unsigned char *)&n;
temp.attr = &attr;
COB_ATTR_INIT (COB_TYPE_NUMERIC_BINARY, 9, 0, 0, NULL);
cob_move (&temp, f);
}
void
cob_display_arg_number (cob_field *f)
{
int n;
cob_field_attr attr;
cob_field temp;
temp.size = 4;
temp.data = (unsigned char *)&n;
temp.attr = &attr;
COB_ATTR_INIT (COB_TYPE_NUMERIC_BINARY, 9, 0, 0, NULL);
cob_move (f, &temp);
if (n < 0 || n >= cob_argc) {
cob_set_exception (COB_EC_IMP_DISPLAY);
return;
}
current_arg = n;
}
static void
pretty_display_numeric (cob_field *f, FILE *fp)
{
unsigned char *p;
int i;
int digits;
int scale;
int size;
cob_field_attr attr;
cob_field temp;
unsigned char pic[64];
unsigned char data[256];
/* RXW
if (COB_FIELD_TYPE(f) == COB_TYPE_NUMERIC_BINARY) {
digits = bin_digits[f->size];
} else {
*/
digits = COB_FIELD_DIGITS (f);
/* RXW
}
*/
scale = COB_FIELD_SCALE (f);
size = (digits + (COB_FIELD_HAVE_SIGN (f) ? 1 : 0)
+ (scale > 0 ? 1 : 0));
p = pic;
temp.size = size;
temp.data = data;
temp.attr = &attr;
COB_ATTR_INIT (COB_TYPE_NUMERIC_EDITED, digits, scale, 0, (char *)pic);
memset (pic, 0, sizeof (pic));
memset (data, 0, sizeof (data));
if (COB_FIELD_HAVE_SIGN (f)) {
*p++ = '+';
i = 1;
memcpy (p, (unsigned char *)&i, sizeof(int));
p += sizeof(int);
}
if (scale > 0) {
*p++ = '9';
i = digits - scale;
memcpy (p, (unsigned char *)&i, sizeof(int));
p += sizeof(int);
*p++ = cob_current_module->decimal_point;
i = 1;
memcpy (p, (unsigned char *)&i, sizeof(int));
p += sizeof(int);
*p++ = '9';
i = scale;
memcpy (p, (unsigned char *)&i, sizeof(int));
p += sizeof(int);
} else {
*p++ = '9';
i = digits;
memcpy (p, (unsigned char *)&i, sizeof(int));
p += sizeof(int);
}
cob_move (f, &temp);
for (i = 0; i < size; i++) {
putc (data[i], fp);
}
}
