russell@unturf.com
d7388d43ba
Native QR generation for each language's ecosystem: - 27 languages use package manager QR libraries (qrcode, rqrcode, ZXing, etc.) - 10 languages use C FFI to libqrencode (dlopen, ISO_C_BINDING, @cImport, critcl) - 2 shell languages use qrencode CLI (native shell paradigm) - 1 language (Prolog) uses C FFI with CLI fallback Section 9 added to test-sdk.sh with get_qr_file() mapping and QR:unsandbox-qr-ok:ROWS pattern validation across the hydra matrix.
34 lines
1.1 KiB
Prolog
34 lines
1.1 KiB
Prolog
% Prolog QR code via libqrencode C FFI
|
|
:- use_module(library(ctypes)).
|
|
|
|
:- use_foreign_library(foreign(qrencode)).
|
|
|
|
% Define the struct layout: { int version, int width, unsigned char *data }
|
|
qr_width(Text, Width) :-
|
|
c_alloc(CText, char[]),
|
|
c_store(CText, Text),
|
|
c_load(CText, CTextPtr),
|
|
load_foreign_library(libqrencode, Lib),
|
|
c_function(Lib, 'QRcode_encodeString',
|
|
[pointer, int, int, int, int], pointer, EncFn),
|
|
c_call(EncFn, [CTextPtr, 0, 1, 2, 1], QRPtr),
|
|
c_load(QRPtr[1], Width),
|
|
c_function(Lib, 'QRcode_free', [pointer], void, FreeFn),
|
|
c_call(FreeFn, [QRPtr], _).
|
|
|
|
main :-
|
|
( catch(qr_width("unsandbox-qr-ok", W), _, fail)
|
|
-> format('QR:unsandbox-qr-ok:ROWS:~w~n', [W])
|
|
; % SWI-Prolog FFI may not be available; use process interface
|
|
process_create(path(qrencode),
|
|
['-t', 'ASCII', '-m', '0', 'unsandbox-qr-ok'],
|
|
[stdout(pipe(Out))]),
|
|
read_string(Out, _, Str),
|
|
split_string(Str, "\n", "", Lines0),
|
|
exclude(=(""), Lines0, Lines),
|
|
length(Lines, Rows),
|
|
format('QR:unsandbox-qr-ok:ROWS:~w~n', [Rows])
|
|
),
|
|
halt.
|
|
|
|
:- initialization(main).
|