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.
11 lines
365 B
Haskell
11 lines
365 B
Haskell
import Codec.QRCode
|
|
import Codec.QRCode.JuicyPixels
|
|
|
|
main :: IO ()
|
|
main = do
|
|
let mqr = encodeText defaultQRCodeOptions Iso8859_1OrUtf8WithoutECI "unsandbox-qr-ok"
|
|
case mqr of
|
|
Nothing -> putStrLn "QR encode failed"
|
|
Just img -> do
|
|
let matrix = toMatrix True False img :: [[Bool]]
|
|
putStrLn $ "QR:unsandbox-qr-ok:ROWS:" ++ show (length matrix)
|