imread.lisp

   1 ;;; PHOROS -- Photogrammetric Road Survey
   2 ;;; Copyright (C) 2016, 2017 Bert Burgemeister
   3 ;;;
   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.
   8 ;;;
   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.
  13 ;;;
  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.
  17
  18
  19 (defpackage imread
  20   (:use :common-lisp :cffi)
  21   (:export png2mem ping)
  22   (:documentation "Interface to the C implementation of image-reader.lisp."))
  23
  24 (in-package :imread)
  25
  26 (load-foreign-library
  27  '(:or "./libimread.so"
  28    (:default "libimread")))
  29
  30 (cffi:defcfun "png2mem" :int
  31   (path :string)
  32   (blob-start :long-long)
  33   (blob-size :int)
  34   (image-width :int)
  35   (image-height :int)
  36   (channels :int)
  37   (baypat :pointer)
  38   (demosaic_fast :bool)
  39   (compr-mode :int)
  40   (mem-png :pointer)
  41   (reversep :bool)
  42   (brightenp :bool)
  43   (color-raiser :pointer))
  44
  45 (cffi:defcfun "ping" :int
  46   (n :int))