diff --git a/LICENSE b/LICENSE new file mode 100644 --- /dev/null +++ b/LICENSE @@ -0,0 +1,30 @@ +Copyright Xandaros (c) 2017 + +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions are met: + + * Redistributions of source code must retain the above copyright + notice, this list of conditions and the following disclaimer. + + * Redistributions in binary form must reproduce the above + copyright notice, this list of conditions and the following + disclaimer in the documentation and/or other materials provided + with the distribution. + + * Neither the name of Xandaros nor the names of other + contributors may be used to endorse or promote products derived + from this software without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT +LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR +A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT +OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, +SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT +LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, +DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY +THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT +(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE +OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. diff --git a/README.md b/README.md new file mode 100644 --- /dev/null +++ b/README.md @@ -0,0 +1,1 @@ +# bindings-libg15 diff --git a/Setup.hs b/Setup.hs new file mode 100644 --- /dev/null +++ b/Setup.hs @@ -0,0 +1,2 @@ +import Distribution.Simple +main = defaultMain diff --git a/bindings-libg15.cabal b/bindings-libg15.cabal new file mode 100644 --- /dev/null +++ b/bindings-libg15.cabal @@ -0,0 +1,28 @@ +name: bindings-libg15 +version: 0.1.0.0 +synopsis: Bindings to libg15 +description: This library provides bindings to the libg15 library. Note that the trunk version from SVN is required to build this +homepage: https://github.com/Xandaros/bindings-libg15#readme +license: BSD3 +license-file: LICENSE +author: Xandaros +maintainer: mz-bremerhaven@gmail.com +copyright: (C) 2017 Xandaros +category: Web +build-type: Simple +extra-source-files: README.md +cabal-version: >=1.10 + +library + hs-source-dirs: src + exposed-modules: Bindings.G15 + build-depends: base >= 4.7 && < 5 + , bindings-DSL + build-tools: hsc2hs + default-language: Haskell2010 + default-extensions: ForeignFunctionInterface + extra-libraries: g15 + +source-repository head + type: git + location: https://github.com/Xandaros/bindings-libg15 diff --git a/src/Bindings/G15.hsc b/src/Bindings/G15.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/G15.hsc @@ -0,0 +1,98 @@ +{-# LANGUAGE CPP #-} +#include +#include + +module Bindings.G15 where +#strict_import + +#num G15_LCD +#num G15_KEYS +#num G15_DEVICE_IS_SHARED +#num G15_DEVICE_5BYTE_RETURN +#num G15_DEVICE_G13 +#num G15_DEVICE_G510 + +#num G15_KEY_READ_LENGTH +#num G510_STANDARD_KEYBOARD_INTERFACE + +#num G15_LOG_INFO +#num G15_LOG_WARN + +#num G15_NO_ERROR +#num G15_ERROR_OPENING_USB_DEVICE +#num G15_ERROR_WRITING_PIXMAP +#num G15_ERROR_TIMEOUT +#num G15_ERROR_READING_USB_DEVICE +#num G15_ERROR_TRY_AGAIN +#num G15_ERROR_WRITING_BUFFER +#num G15_ERROR_UNSUPPORTED + +#num G15_LCD_OFFSET +#num G15_LCD_HEIGHT +#num G15_LCD_WIDTH + +#num G15_BUFFER_LEN + +#num G15_LED_M1 +#num G15_LED_M2 +#num G15_LED_M3 +#num G15_LED_MR + +#num G15_CONTRAST_LOW +#num G15_CONTRAST_MEDIUM +#num G15_CONTRAST_HIGH + +#num G15_BRIGHTNESS_DARK +#num G15_BRIGHTNESS_MEDIUM +#num G15_BRIGHTNESS_BRIGHT + +#num G15_KEY_G1 +#num G15_KEY_G2 +#num G15_KEY_G3 +#num G15_KEY_G4 +#num G15_KEY_G5 +#num G15_KEY_G6 +#num G15_KEY_G7 +#num G15_KEY_G8 +#num G15_KEY_G9 +#num G15_KEY_G10 +#num G15_KEY_G11 +#num G15_KEY_G12 +#num G15_KEY_G13 +#num G15_KEY_G14 +#num G15_KEY_G15 +#num G15_KEY_G16 +#num G15_KEY_G17 +#num G15_KEY_G18 +#num G15_KEY_G19 +#num G15_KEY_G20 +#num G15_KEY_G21 +#num G15_KEY_G22 + +#num G15_KEY_M1 +#num G15_KEY_M2 +#num G15_KEY_M3 +#num G15_KEY_MR + +#num G15_KEY_L1 +#num G15_KEY_L2 +#num G15_KEY_L3 +#num G15_KEY_L4 +#num G15_KEY_L5 + +#num G15_KEY_LIGHT + +#ccall initLibG15, IO () +#ccall re_initLibG15, IO () +#ccall exitLibG15, IO () + +#ccall libg15Debug, CInt -> IO () + +#ccall writePixmapToLCD, Ptr CChar -> IO CInt +#ccall setLCDContrast, CInt -> IO CInt +#ccall setLEDs, CInt -> IO CInt +#ccall setLCDBrightness, CInt -> IO CInt +#ccall setKBBrightness, CInt -> IO CInt +#ccall setG510LEDColor, CChar -> CChar -> CChar -> IO CInt + +#ccall getPressedKeys, Ptr CInt -> CInt -> IO CInt