Artifact Content
Not logged in

Artifact c0c0fce80273d4d59315857d24ed9757cc74acc6:


#! @GFORTHFAST@
\ -*- mode: Forth -*-

warnings off \ in production mode,
\ we don't want any warnings

fpath+ @DATADIR@/gforth/@GFVER@/net2o

require qrscan.fs
argc @ 1 <= [IF]
    ." usage: qrscan file[s]" cr
    ."   PNG and JPG files accepted" cr
[ELSE]
    fpath+ ~+
    scan-qr
[THEN]
bye