COBOL support

Yay COBOL too!

Author: Smart6502

examples/s390_mainframe_gradient.cbl

@@ -0,0 +1,41 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. PLUTO-GRADIENT.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01 WS-END PIC X(1).
+       01 X PIC 9(3).
+       01 Y PIC 9(3).
+
+       01 R PIC 9(3).
+       01 G PIC 9(3).
+       01 B PIC 9(3).
+
+       01 LINE_WIDTH PIC 9(3) VALUE 8.
+       01 ANGLE PIC 9(8)V9(3).
+
+       PROCEDURE DIVISION.
+           CALL "pl_init".
+
+           MOVE 'N' TO WS-END.
+           PERFORM UNTIL WS-END = 'Y'
+              MOVE 0 TO Y
+              PERFORM UNTIL Y = 150
+                 MOVE 0 TO X
+                 PERFORM UNTIL X = 200
+                    MOVE X TO R
+                    MOVE Y TO G
+                    MOVE 255 TO B
+                    ADD ANGLE TO B
+                    CALL "pl_cpix" USING X Y R G B
+                    ADD 1 TO X
+                 END-PERFORM
+                 ADD 1 TO Y
+              END-PERFORM
+
+              ADD 8 TO ANGLE
+
+              CALL "pl_render"
+           END-PERFORM.
+           CALL "pl_deinit".
+           STOP RUN.

extensions/cobol_c_glue.c

@@ -0,0 +1,44 @@
+#include <stdint.h>
+#include <stdarg.h>
+#include <stddef.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include "pluto.h"
+
+void pl_init(void) {
+    pluto_init_window();
+    pluto_save_screen();
+}
+
+typedef uint32_t cob_u32_t;
+typedef uint8_t cob_u8_t;
+
+#define COBOL_X_TO_C(buf, v, r, s)\
+    memcpy(buf, v, s);\
+    buf[s] = '\0';\
+    r = atoi(buf);\
+
+void pl_cpix(cob_u8_t *x, cob_u8_t *y, cob_u8_t *r, cob_u8_t *g, cob_u8_t *b) {
+    uint32_t x8, y8, r8, g8, b8;
+    char *tmpbuf;
+    
+    tmpbuf = malloc(255);
+    COBOL_X_TO_C(tmpbuf, x, x8, 3);
+    COBOL_X_TO_C(tmpbuf, y, y8, 3);
+    COBOL_X_TO_C(tmpbuf, r, r8, 3);
+    COBOL_X_TO_C(tmpbuf, g, g8, 3);
+    COBOL_X_TO_C(tmpbuf, b, b8, 3);
+    free(tmpbuf);
+
+    pluto_set_cpix(x8, y8, r8, g8, b8);
+}
+
+void pl_render(void) {
+    pluto_write_out();
+    pluto_render();
+}
+
+void pl_deinit(void) {
+    pluto_deinit();
+}