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); } }