diff --git a/GI/Vte.hs b/GI/Vte.hs --- a/GI/Vte.hs +++ b/GI/Vte.hs @@ -196,6 +196,7 @@ return jCancellable' onException (do result <- propagateGError $ vte_pty_new_foreign_sync fd maybeCancellable + checkUnexpectedReturnNULL "vte_pty_new_foreign_sync" result result' <- (wrapObject Pty) result whenJust cancellable touchManagedPtr return result' @@ -233,6 +234,7 @@ return jCancellable' onException (do result <- propagateGError $ vte_pty_new_sync flags' maybeCancellable + checkUnexpectedReturnNULL "vte_pty_new_sync" result result' <- (wrapObject Pty) result whenJust cancellable touchManagedPtr return result' @@ -568,6 +570,7 @@ m Terminal terminalNew = liftIO $ do result <- vte_terminal_new + checkUnexpectedReturnNULL "vte_terminal_new" result result' <- (newObject Terminal) result return result' @@ -874,6 +877,7 @@ terminalGetCurrentDirectoryUri _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- vte_terminal_get_current_directory_uri _obj' + checkUnexpectedReturnNULL "vte_terminal_get_current_directory_uri" result result' <- cstringToText result touchManagedPtr _obj return result' @@ -899,6 +903,7 @@ terminalGetCurrentFileUri _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- vte_terminal_get_current_file_uri _obj' + checkUnexpectedReturnNULL "vte_terminal_get_current_file_uri" result result' <- cstringToText result touchManagedPtr _obj return result' @@ -1006,6 +1011,7 @@ terminalGetEncoding _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- vte_terminal_get_encoding _obj' + checkUnexpectedReturnNULL "vte_terminal_get_encoding" result result' <- cstringToText result touchManagedPtr _obj return result' @@ -1031,6 +1037,7 @@ terminalGetFont _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- vte_terminal_get_font _obj' + checkUnexpectedReturnNULL "vte_terminal_get_font" result result' <- (newBoxed Pango.FontDescription) result touchManagedPtr _obj return result' @@ -1137,6 +1144,7 @@ terminalGetIconTitle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- vte_terminal_get_icon_title _obj' + checkUnexpectedReturnNULL "vte_terminal_get_icon_title" result result' <- cstringToText result touchManagedPtr _obj return result' @@ -1212,6 +1220,7 @@ terminalGetPty _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- vte_terminal_get_pty _obj' + checkUnexpectedReturnNULL "vte_terminal_get_pty" result result' <- (newObject Pty) result touchManagedPtr _obj return result' @@ -1297,6 +1306,7 @@ attributes <- allocMem :: IO (Ptr (Ptr (GArray (Ptr CharAttributes)))) let user_data = nullPtr result <- vte_terminal_get_text _obj' maybeIs_selected user_data attributes + checkUnexpectedReturnNULL "vte_terminal_get_text" result result' <- cstringToText result freeMem result attributes' <- peek attributes @@ -1340,6 +1350,7 @@ attributes <- allocMem :: IO (Ptr (Ptr (GArray (Ptr CharAttributes)))) let user_data = nullPtr result <- vte_terminal_get_text_include_trailing_spaces _obj' maybeIs_selected user_data attributes + checkUnexpectedReturnNULL "vte_terminal_get_text_include_trailing_spaces" result result' <- cstringToText result freeMem result attributes' <- peek attributes @@ -1391,6 +1402,7 @@ attributes <- allocMem :: IO (Ptr (Ptr (GArray (Ptr CharAttributes)))) let user_data = nullPtr result <- vte_terminal_get_text_range _obj' start_row start_col end_row end_col maybeIs_selected user_data attributes + checkUnexpectedReturnNULL "vte_terminal_get_text_range" result result' <- cstringToText result freeMem result attributes' <- peek attributes @@ -1423,6 +1435,7 @@ terminalGetWindowTitle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- vte_terminal_get_window_title _obj' + checkUnexpectedReturnNULL "vte_terminal_get_window_title" result result' <- cstringToText result touchManagedPtr _obj return result' @@ -1448,6 +1461,7 @@ terminalGetWordCharExceptions _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- vte_terminal_get_word_char_exceptions _obj' + checkUnexpectedReturnNULL "vte_terminal_get_word_char_exceptions" result result' <- cstringToText result touchManagedPtr _obj return result' @@ -1510,6 +1524,7 @@ let _obj' = unsafeManagedPtrCastPtr _obj tag <- allocMem :: IO (Ptr Int32) result <- vte_terminal_match_check _obj' column row tag + checkUnexpectedReturnNULL "vte_terminal_match_check" result result' <- cstringToText result freeMem result tag' <- peek tag @@ -1543,6 +1558,7 @@ let event' = unsafeManagedPtrGetPtr event tag <- allocMem :: IO (Ptr Int32) result <- vte_terminal_match_check_event _obj' event' tag + checkUnexpectedReturnNULL "vte_terminal_match_check_event" result result' <- cstringToText result freeMem result tag' <- peek tag @@ -1775,6 +1791,7 @@ return jCancellable' onException (do result <- propagateGError $ vte_terminal_pty_new_sync _obj' flags' maybeCancellable + checkUnexpectedReturnNULL "vte_terminal_pty_new_sync" result result' <- (wrapObject Pty) result touchManagedPtr _obj whenJust cancellable touchManagedPtr @@ -1884,6 +1901,7 @@ terminalSearchGetGregex _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- vte_terminal_search_get_gregex _obj' + checkUnexpectedReturnNULL "vte_terminal_search_get_gregex" result result' <- (newBoxed GLib.Regex) result touchManagedPtr _obj return result' @@ -4276,6 +4294,7 @@ m T.Text getFeatures = liftIO $ do result <- vte_get_features + checkUnexpectedReturnNULL "vte_get_features" result result' <- cstringToText result return result' @@ -4353,6 +4372,7 @@ m [Char] getUserShell = liftIO $ do result <- vte_get_user_shell + checkUnexpectedReturnNULL "vte_get_user_shell" result result' <- cstringToString result freeMem result return result' diff --git a/LICENSE b/LICENSE --- a/LICENSE +++ b/LICENSE @@ -454,49 +454,3 @@ FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. - - END OF TERMS AND CONDITIONS - - How to Apply These Terms to Your New Libraries - - If you develop a new library, and you want it to be of the greatest -possible use to the public, we recommend making it free software that -everyone can redistribute and change. You can do so by permitting -redistribution under these terms (or, alternatively, under the terms of the -ordinary General Public License). - - To apply these terms, attach the following notices to the library. It is -safest to attach them to the start of each source file to most effectively -convey the exclusion of warranty; and each file should have at least the -"copyright" line and a pointer to where the full notice is found. - - - Copyright (C) - - This library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public - License as published by the Free Software Foundation; either - version 2.1 of the License, or (at your option) any later version. - - This library is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with this library; if not, write to the Free Software - Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA - -Also add information on how to contact you by electronic and paper mail. - -You should also get your employer (if you work as a programmer) or your -school, if any, to sign a "copyright disclaimer" for the library, if -necessary. Here is a sample; alter the names: - - Yoyodyne, Inc., hereby disclaims all copyright interest in the - library `Frob' (a library for tweaking knobs) written by James Random Hacker. - - , 1 April 1990 - Ty Coon, President of Vice - -That's all there is to it! diff --git a/gi-vte.cabal b/gi-vte.cabal --- a/gi-vte.cabal +++ b/gi-vte.cabal @@ -1,6 +1,6 @@ -- Autogenerated, do not edit. name: gi-vte -version: 0.0.40.9 +version: 0.0.40.10 synopsis: Vte bindings description: Bindings for Vte, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi @@ -17,14 +17,14 @@ exposed-modules: GI.Vte, GI.VteAttributes, GI.VteSignals pkgconfig-depends: vte-2.91 >= 0.40 build-depends: base >= 4.7 && <5, - haskell-gi-base >= 0.9 && < 1, - gi-atk >= 0.2.16.9 && < 0.3, - gi-glib >= 0.2.44.9 && < 0.3, - gi-gobject >= 0.2.44.9 && < 0.3, - gi-gdk >= 0.3.16.9 && < 0.4, - gi-gio >= 0.2.44.9 && < 0.3, - gi-gtk >= 0.3.16.9 && < 0.4, - gi-pango >= 0.1.36.9 && < 0.2, + haskell-gi-base >= 0.10 && < 1, + gi-atk >= 0.2.16.10 && < 0.3, + gi-glib >= 0.2.44.10 && < 0.3, + gi-gobject >= 0.2.44.10 && < 0.3, + gi-gdk >= 0.3.16.10 && < 0.4, + gi-gio >= 0.2.44.10 && < 0.3, + gi-gtk >= 0.3.16.10 && < 0.4, + gi-pango >= 0.1.36.10 && < 0.2, bytestring >= 0.10, containers >= 0.5, text >= 1.0,