1 ;;; PHOROS -- Photogrammetric Road Survey
2 ;;; Copyright (C) 2016, 2017 Bert Burgemeister
4 ;;; This program is free software; you can redistribute it and/or modify
5 ;;; it under the terms of the GNU General Public License as published by
6 ;;; the Free Software Foundation; either version 2 of the License, or
7 ;;; (at your option) any later version.
9 ;;; This program is distributed in the hope that it will be useful,
10 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
11 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 ;;; GNU General Public License for more details.
14 ;;; You should have received a copy of the GNU General Public License along
15 ;;; with this program; if not, write to the Free Software Foundation, Inc.,
16 ;;; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
20 (:use
:common-lisp
:cffi
)
21 (:export png2mem ping
)
22 (:documentation
"Interface to the C implementation of image-reader.lisp."))
27 '(:or
"./libimread.so"
28 (:default
"libimread")))
30 (cffi:defcfun
"png2mem" :int
32 (blob-start :long-long
)
43 (color-raiser :pointer
))
45 (cffi:defcfun
"ping" :int