diff --git a/hs-bibutils.cabal b/hs-bibutils.cabal
--- a/hs-bibutils.cabal
+++ b/hs-bibutils.cabal
@@ -1,5 +1,5 @@
 name:               hs-bibutils
-version:            0.2
+version:            0.3
 homepage:           http://code.haskell.org/hs-bibutils
 
 synopsis:           Haskell bindings to bibutils, the bibliography
diff --git a/src/Text/Bibutils.hsc b/src/Text/Bibutils.hsc
--- a/src/Text/Bibutils.hsc
+++ b/src/Text/Bibutils.hsc
@@ -36,6 +36,10 @@
     , bibl_initparams
     , bibl_read
     , bibl_write
+    , bibl_readasis
+    , bibl_addtoasis
+    , bibl_readcorps
+    , bibl_addtocorps
     , bibl_free
     , bibl_freeparams
     , bibl_reporterr
@@ -50,6 +54,8 @@
     , setCharsetOut
     , setBOM
     , unsetBOM
+    , setNoSplitTitle
+    , unsetNoSplitTitle
     , setLatexOut
     , unsetLatexOut
     , setXmlOut
@@ -153,6 +159,7 @@
       , latexin          :: CUChar
       , utf8in           :: CUChar
       , xmlin            :: CUChar
+      , nosplittitle     :: CUChar
       , charsetout       :: CInt
       , charsetout_src   :: CUChar
       , latexout         :: CUChar
@@ -177,6 +184,7 @@
                   `ap`   #{peek param, latexin          } p
                   `ap`   #{peek param, utf8in           } p
                   `ap`   #{peek param, xmlin            } p
+                  `ap`   #{peek param, nosplittitle     } p
                   `ap`   #{peek param, charsetout       } p
                   `ap`   #{peek param, charsetout_src   } p
                   `ap`   #{peek param, latexout         } p
@@ -188,7 +196,7 @@
                   `ap`   #{peek param, output_raw       } p
                   `ap`   #{peek param, verbose          } p
                   `ap`   #{peek param, singlerefperfile } p
-    poke p (Param rf wf ci csi li ui xi co cso lo uo ub xo fo a raw v s) = do
+    poke p (Param rf wf ci csi li ui xi nt co cso lo uo ub xo fo a raw v s) = do
                          #{poke param, readformat       } p rf
                          #{poke param, writeformat      } p wf
                          #{poke param, charsetin        } p ci
@@ -196,6 +204,7 @@
                          #{poke param, latexin          } p li
                          #{poke param, utf8in           } p ui
                          #{poke param, xmlin            } p xi
+                         #{poke param, nosplittitle     } p nt
                          #{poke param, charsetout       } p co
                          #{poke param, charsetout_src   } p cso
                          #{poke param, latexout         } p lo
@@ -250,6 +259,16 @@
 unsetBOM p
     = setParam p $ \param -> param { utf8bom = 0 }
 
+-- | Do not split titles.
+setNoSplitTitle ::  ForeignPtr Param -> IO ()
+setNoSplitTitle p
+    = setParam p $ \param -> param { nosplittitle = 1 }
+
+-- | Split titles.
+unsetNoSplitTitle ::  ForeignPtr Param -> IO ()
+unsetNoSplitTitle p
+    = setParam p $ \param -> param { nosplittitle = 0 }
+
 -- | Write Latex codes.
 setLatexOut ::  ForeignPtr Param -> IO ()
 setLatexOut p
@@ -327,6 +346,30 @@
         when (path /= "-") $ fclose cfile >> return ()
         return $ Status cint
 
+bibl_readasis :: ForeignPtr Param -> FilePath -> IO ()
+bibl_readasis param path
+    = withForeignPtr param  $ \cparam ->
+      withCString    path  $ \cpath   -> do
+        c_bibl_readasis cparam cpath
+
+bibl_addtoasis :: ForeignPtr Param -> String -> IO ()
+bibl_addtoasis param entry
+    = withForeignPtr param $ \cparam ->
+      withCString    entry $ \centry -> do
+        c_bibl_addtoasis cparam centry
+
+bibl_readcorps :: ForeignPtr Param -> FilePath -> IO ()
+bibl_readcorps param path
+    = withForeignPtr param  $ \cparam ->
+      withCString    path  $ \cpath   -> do
+        c_bibl_readcorps cparam cpath
+
+bibl_addtocorps :: ForeignPtr Param -> String -> IO ()
+bibl_addtocorps param entry
+    = withForeignPtr param $ \cparam ->
+      withCString    entry $ \centry -> do
+        c_bibl_addtocorps cparam centry
+
 bibl_reporterr :: Status -> IO ()
 bibl_reporterr (Status n) = c_bibl_reporterr n
 
@@ -419,6 +462,18 @@
 
 foreign import ccall unsafe "bibl_write"
     c_bibl_write :: Ptr Bibl -> Ptr CFile -> Ptr Param -> IO CInt
+
+foreign import ccall unsafe "bibl_readasis"
+    c_bibl_readasis :: Ptr Param -> CString -> IO ()
+
+foreign import ccall unsafe "bibl_addtoasis"
+    c_bibl_addtoasis :: Ptr Param -> CString -> IO ()
+
+foreign import ccall unsafe "bibl_readcorps"
+    c_bibl_readcorps :: Ptr Param -> CString -> IO ()
+
+foreign import ccall unsafe "bibl_addtocorps"
+    c_bibl_addtocorps :: Ptr Param -> CString -> IO ()
 
 foreign import ccall unsafe "bibl_reporterr"
     c_bibl_reporterr :: CInt -> IO ()