af_vfs.h

diff --git a/.gitignore b/.gitignore
new file mode 100644 (file)
index 0000000..f76a6e2
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,5 @@
+*.hi
+*.o
+
+Setup
+dist

diff --git a/Bindings/AudioFile/VFS.hsc b/Bindings/AudioFile/VFS.hsc
new file mode 100644 (file)
index 0000000..7da1e5a
--- /dev/null
+++ b/Bindings/AudioFile/VFS.hsc
@@ -0,0 +1,29 @@
+#include <bindings.dsl.h>
+#include <audiofile.h>
+#include <af_vfs.h>
+
+module Bindings.AudioFile.VFS where
+#strict_import
+import System.Posix.Types
+
+#starttype struct _AFvirtualfile
+#  field read   , FunPtr (<AFvirtualfile> -> Ptr () -> CSize -> IO CSsize)
+#  field length , FunPtr (<AFvirtualfile> -> IO CLong)
+#  field write  , FunPtr (<AFvirtualfile> -> Ptr () -> CSize -> IO CSsize)
+#  field destroy, FunPtr (<AFvirtualfile> -> IO ())
+#  field seek   , FunPtr (<AFvirtualfile> -> CLong -> CInt -> IO CLong)
+#  field tell   , FunPtr (<AFvirtualfile> -> IO CLong)
+#  field closure, Ptr ()
+#stoptype
+#synonym_t AFvirtualfile, <_AFvirtualfile>
+
+#ccall af_virtual_file_new         , IO (Ptr <AFvirtualfile>)
+#ccall af_virtual_file_new_for_file, Ptr CFile -> IO (Ptr <AFvirtualfile>)
+#ccall af_virtual_file_destroy     , Ptr <AFvirtualfile> -> IO ()
+
+#ccall af_fread  , Ptr () -> CSize -> CSize -> Ptr <AFvirtualfile> -> IO CSize
+#ccall af_fwrite , Ptr () -> CSize -> CSize -> Ptr <AFvirtualfile> -> IO CSize
+#ccall af_fclose , Ptr <AFvirtualfile> -> IO CInt
+#ccall af_flength, Ptr <AFvirtualfile> -> IO CLong
+#ccall af_fseek  , Ptr <AFvirtualfile> -> CLong -> CInt -> IO CInt
+#ccall af_ftell  , Ptr <AFvirtualfile> -> IO CLong

diff --git a/COPYING b/COPYING
new file mode 100644 (file)
index 0000000..8c8aeaf
--- /dev/null
+++ b/COPYING
@@ -0,0 +1,29 @@
+<!-- -*- xml -*-
+
+bindings-CoreFoundation はパブリックドメインに在ります。
+bindings-CoreFoundation is in the public domain.
+
+See http://creativecommons.org/licenses/publicdomain/
+
+-->
+
+<rdf:RDF xmlns="http://web.resource.org/cc/"
+            xmlns:dc="http://purl.org/dc/elements/1.1/"
+            xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#">
+  <Work rdf:about="http://cielonegro.org/Bindings-CoreFoundation.html">
+       <dc:title>bindings-CoreFoundation</dc:title>
+       <dc:rights>
+      <Agent>
+           <dc:title>PHO</dc:title>
+         </Agent>
+    </dc:rights>
+       <license rdf:resource="http://web.resource.org/cc/PublicDomain" />
+  </Work>
+      
+  <License rdf:about="http://web.resource.org/cc/PublicDomain">
+       <permits rdf:resource="http://web.resource.org/cc/Reproduction" />
+       <permits rdf:resource="http://web.resource.org/cc/Distribution" />
+       <permits rdf:resource="http://web.resource.org/cc/DerivativeWorks" />
+  </License>
+
+</rdf:RDF>

diff --git a/GNUmakefile b/GNUmakefile
new file mode 100644 (file)
index 0000000..15098cd
--- /dev/null
+++ b/GNUmakefile
@@ -0,0 +1,5 @@
+#RUN_COMMAND = $(MAKE) -C examples run
+
+CONFIGURE_ARGS = -O
+
+include cabal-package.mk

diff --git a/Setup.hs b/Setup.hs
new file mode 100644 (file)
index 0000000..bd92fff
--- /dev/null
+++ b/Setup.hs
@@ -0,0 +1,4 @@
+#!/usr/bin/env runghc
+
+import Distribution.Simple
+main = defaultMain

diff --git a/bindings-audiofile.cabal b/bindings-audiofile.cabal
new file mode 100644 (file)
index 0000000..4368cb1
--- /dev/null
+++ b/bindings-audiofile.cabal
@@ -0,0 +1,35 @@
+Name: bindings-audiofile
+Synopsis: Low level bindings to audiofile
+Description:
+        Bindings to audiofile: <http://www.68k.org/~michael/audiofile/>
+Version: 0.1
+License: PublicDomain
+License-File: COPYING
+Author: PHO <pho at cielonegro dot org>
+Maintainer: PHO <pho at cielonegro dot org>
+Stability: experimental
+Homepage: http://cielonegro.org/Bindings-AudioFile.html
+Category: FFI
+Tested-With: GHC == 6.12.3
+Cabal-Version: >= 1.6
+Build-Type: Simple
+Extra-Source-Files:
+    COPYING
+
+Source-Repository head
+    Type: git
+    Location: git://git.cielonegro.org/bindings-CoreFoundation.git
+
+Library
+    Build-Depends:
+        base         == 4.2.*,
+        bindings-DSL == 1.0.*
+
+    PkgConfig-Depends:
+        audiofile >= 0.2.7
+
+    Exposed-Modules:
+        Bindings.AudioFile.VFS
+
+    Extensions:
+        ForeignFunctionInterface

diff --git a/cabal-package.mk b/cabal-package.mk
new file mode 100644 (file)
index 0000000..d8bbaad
--- /dev/null
+++ b/cabal-package.mk
@@ -0,0 +1,95 @@
+# -*- makefile-gmake -*-
+#
+# Variables:
+#
+#   CONFIGURE_ARGS :: arguments to be passed to ./Setup configure
+#     default: --disable-optimization
+#
+#   RUN_COMMAND :: command to be run for "make run"
+#
+
+GHC      ?= ghc
+FIND     ?= find
+RM_RF    ?= rm -rf
+SUDO     ?= sudo
+AUTOCONF ?= autoconf
+HLINT    ?= hlint
+
+CONFIGURE_ARGS ?= --disable-optimization
+
+SETUP_FILE := $(wildcard Setup.*hs)
+CABAL_FILE := $(wildcard *.cabal)
+
+ifeq ($(shell ls configure.ac 2>/dev/null),configure.ac)
+  AUTOCONF_AC_FILE := configure.ac
+  AUTOCONF_FILE    := configure
+else
+  ifeq ($(shell ls configure.in 2>/dev/null),configure.in)
+    AUTOCONF_AC_FILE := configure.in
+    AUTOCONF_FILE    := configure
+  else
+    AUTOCONF_AC_FILE :=
+    AUTOCONF_FILE    :=
+  endif
+endif
+
+BUILDINFO_IN_FILE := $(wildcard *.buildinfo.in)
+BUILDINFO_FILE    := $(BUILDINFO_IN_FILE:.in=)
+
+all: build
+
+build: setup-config build-hook
+       ./Setup build
+
+build-hook:
+
+ifeq ($(RUN_COMMAND),)
+run:
+       @echo "cabal-package.mk: No command to run."
+       @echo "cabal-package.mk: If you want to run something, define RUN_COMMAND variable."
+else
+run: build
+       @echo ".:.:. Let's go .:.:."
+       $(RUN_COMMAND)
+endif
+
+setup-config: dist/setup-config setup-config-hook $(BUILDINFO_FILE)
+
+setup-config-hook:
+
+dist/setup-config: $(CABAL_FILE) Setup $(AUTOCONF_FILE)
+       ./Setup configure $(CONFIGURE_ARGS)
+
+$(AUTOCONF_FILE): $(AUTOCONF_AC_FILE)
+       $(AUTOCONF)
+
+$(BUILDINFO_FILE): $(BUILDINFO_IN_FILE) configure
+       ./Setup configure $(CONFIGURE_ARGS)
+
+Setup: $(SETUP_FILE)
+       $(GHC) --make Setup
+
+clean: clean-hook
+       $(RM_RF) dist Setup *.o *.hi .setup-config *.buildinfo
+       $(FIND) . -name '*~' -exec rm -f {} \;
+
+clean-hook:
+
+doc: setup-config
+       ./Setup haddock
+
+install: build
+       $(SUDO) ./Setup install
+
+sdist: setup-config
+       ./Setup sdist
+
+test: build
+       ./Setup test
+
+lint:
+       $(HLINT) . --report \
+               --ignore="Use string literal" \
+               --ignore="Use concatMap"
+
+.PHONY: build build-hook setup-config setup-config-hook run clean clean-hook install doc sdist test lint