russell@unturf.com
bec3f8c289
All use dlopen/dlsym to libqrencode.so (system-wide via gcc role):
- Haskell: System.Posix.DynamicLinker + foreign import ccall "dynamic"
- F#: Mono P/Invoke DllImport("libqrencode.so")
- COBOL: LINKAGE SECTION for proper struct pointer access
- Nim: dynlib module (loadLib/symAddr)
- Fortran: renamed dlclose binding to avoid symbol collision
- D: core.sys.posix.dlfcn (dlopen/dlsym)
- OCaml: Ctypes.foreign via ocamlfind #require
37 lines
1.2 KiB
COBOL
37 lines
1.2 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. QRCODE-TEST.
|
|
|
|
DATA DIVISION.
|
|
WORKING-STORAGE SECTION.
|
|
01 QR-PTR USAGE POINTER.
|
|
01 WS-TEXT PIC X(20) VALUE "unsandbox-qr-ok"
|
|
& X"00".
|
|
01 WS-ZERO PIC S9(9) COMP-5 VALUE 0.
|
|
01 WS-ONE PIC S9(9) COMP-5 VALUE 1.
|
|
01 WS-TWO PIC S9(9) COMP-5 VALUE 2.
|
|
|
|
LINKAGE SECTION.
|
|
01 QR-STRUCT.
|
|
05 QR-VERSION PIC S9(9) COMP-5.
|
|
05 QR-WIDTH PIC S9(9) COMP-5.
|
|
05 QR-DATA USAGE POINTER.
|
|
|
|
PROCEDURE DIVISION.
|
|
MAIN-LOGIC.
|
|
CALL "QRcode_encodeString"
|
|
USING BY REFERENCE WS-TEXT
|
|
BY VALUE WS-ZERO
|
|
BY VALUE WS-ONE
|
|
BY VALUE WS-TWO
|
|
BY VALUE WS-ONE
|
|
RETURNING QR-PTR.
|
|
|
|
IF QR-PTR NOT = NULL
|
|
SET ADDRESS OF QR-STRUCT TO QR-PTR
|
|
DISPLAY "QR:unsandbox-qr-ok:ROWS:" QR-WIDTH
|
|
CALL "QRcode_free" USING BY VALUE QR-PTR
|
|
ELSE
|
|
DISPLAY "QR encode failed"
|
|
END-IF.
|
|
|
|
STOP RUN.
|