NATIONAL + UTF8 tests, ref-mod: fix byte offset/size with poor man's display conversion#280
NATIONAL + UTF8 tests, ref-mod: fix byte offset/size with poor man's display conversion#280GitMensch wants to merge 4 commits intoOCamlPro:gitside-gnucobol-3.xfrom
Conversation
GitMensch
left a comment
GitMensch
left a comment
There was a problem hiding this comment.
Thank you for this first iteration - looks good!
We definitely need a Changelog entry in cobc and libcob, so please add those in your next commit.
| if (CB_TREE_CLASS (x) == CB_CLASS_NATIONAL) { | ||
| id = lookup_attr (COB_TYPE_NATIONAL, 0, 0, 0, NULL, 0); | ||
| } else { | ||
| id = lookup_attr (COB_TYPE_ALPHANUMERIC, 0, 0, 0, NULL, 0); | ||
| } |
There was a problem hiding this comment.
That's correct. Something similar may be needed for the national literals (then to be added directly above).
| /* poor man's conversion */ | ||
| if (COB_FIELD_IS_NATIONAL (f)) { | ||
| size_t i; | ||
| for (i = 0; i < f->size; i += 2) { | ||
| if (f->data[i] == 0x00) { | ||
| putc (f->data[i + 1], fp); | ||
| } | ||
| } | ||
| return; | ||
| } | ||
| display_alnum (f, fp); |
There was a problem hiding this comment.
add a new display_national function and use an if/else to get the right one
| PROGRAM-ID. prog. | ||
| DATA DIVISION. | ||
| WORKING-STORAGE SECTION. | ||
| 01 X PIC U(4) VALUE U"aǭcde". |
There was a problem hiding this comment.
use a single-byte here - that should pass (we have the mixed-width test below)
| 2026-03-23 Preston Horne <preston.m.horne@vanderbilt.edu> | ||
|
|
||
| * testsuite.src/run_refmod.at: add static and dynamic | ||
| reference-modification tests for NATIONAL and UTF-8 fields | ||
| * testsuite.src/data_display.at: add DISPLAY test for NATIONAL | ||
| fields and literals with HEX-OF | ||
|
|
There was a problem hiding this comment.
not obvious:
this file is actually only adjusted for testcases if we heavily refactor them, otherwise this is left to "infrastucture" changes
--> nice (but not enforeced) to be part of the log message
There was a problem hiding this comment.
Ok I will keep this and know this for next time
| AT_CHECK([$COMPILE -Wno-unfinished prog.cob], [0], [], []) | ||
| AT_CHECK([$COBCRUN_DIRECT ./prog], [0], | ||
| [1234 | ||
| 0031003200330034 | ||
| 00001234 | ||
| 00300030003000300031003200330034 | ||
| abcd | ||
| 0061006200630064 | ||
| ]) |
There was a problem hiding this comment.
that's well, as this is displaying numerics, you may compile and run it twice: (with -fpretty-display/-fno-pretty-display) as this will go into different functions
(either fix the failing result with the approach mentioned in termio.c or keep it marked as expected fail)
There was a problem hiding this comment.
You've added -fpretty-display - so a second couple of compile + run with -fno-pretty-display (and different expectation - see plain PIC 9 to get the different expected results) is missing.
…display conversion
…display conversion
2 participants
PR to review and discuss @hornepm's changes which serves also as a way to get a better picture what the GSoC proposal need to cover / the project will look like