Update of /cvsroot/gtk2hs/gtk2hs/gtk/pango
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2280/gtk/pango
Added Files:
PangoTypes.chs.pp
Removed Files:
PangoTypes.chs.cpp
Log Message:
Renamed files that need CPP pre-processing to .chs.pp instead of .chs.cpp
since the latter makes automake think we are compiling C++.
--- NEW FILE: PangoTypes.chs.pp ---
-- GIMP Toolkit (GTK) - pango non-GObject types PangoTypes
--
-- Author : Axel Simon
--
-- Created: 9 Feburary 2003
--
-- Version $Revision: 1.1 $ from $Date: 2004/11/21 15:06:16 $
--
-- Copyright (c) 1999..2003 Axel Simon
--
-- This file is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This file 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 General Public License for more details.
--
-- |
--
-- Define types used in Pango which are not derived from GObject.
--
module PangoTypes(
LayoutIter(LayoutIter),
layout_iter_free,
LayoutLine(LayoutLine),
mkLayoutLine
) where
import Monad (liftM)
import FFI
{# context lib="pango" prefix="pango" #}
-- entry PangoLayout
-- | An iterator to examine a layout.
--
{#pointer *PangoLayoutIter as LayoutIter foreign newtype #}
-- | A single line in a 'PangoLayout'.
--
{#pointer *PangoLayoutLine as LayoutLine foreign newtype #}
mkLayoutLine :: Ptr LayoutLine -> IO LayoutLine
mkLayoutLine llPtr = do
pango_layout_line_ref llPtr
liftM LayoutLine $ newForeignPtr llPtr (pango_layout_line_unref llPtr)
#if __GLASGOW_HASKELL__>=600
foreign import ccall unsafe "&pango_layout_iter_free"
layout_iter_free' :: FinalizerPtr LayoutIter
layout_iter_free :: Ptr LayoutIter -> FinalizerPtr LayoutIter
layout_iter_free _ = layout_iter_free'
#elif __GLASGOW_HASKELL__>=504
foreign import ccall unsafe "pango_layout_iter_free"
layout_iter_free :: Ptr LayoutIter -> IO ()
#else
foreign import ccall "pango_layout_iter_free" unsafe
layout_iter_free :: Ptr LayoutIter -> IO ()
#endif
#if __GLASGOW_HASKELL__>=600
foreign import ccall unsafe "&pango_layout_line_unref"
pango_layout_line_unref' :: FinalizerPtr LayoutLine
pango_layout_line_unref :: Ptr LayoutLine -> FinalizerPtr LayoutLine
pango_layout_line_unref _ = pango_layout_line_unref'
#elif __GLASGOW_HASKELL__>=504
foreign import ccall unsafe "pango_layout_line_unref"
pango_layout_line_unref :: Ptr LayoutLine -> IO ()
#else
foreign import ccall "pango_layout_line_unref" unsafe
pango_layout_line_unref :: Ptr LayoutLine -> IO ()
#endif
#if __GLASGOW_HASKELL__>=504
foreign import ccall unsafe "pango_layout_line_ref"
pango_layout_line_ref :: Ptr LayoutLine -> IO ()
#else
foreign import ccall "pango_layout_line_ref" unsafe
pango_layout_line_ref :: Ptr LayoutLine -> IO ()
#endif
--- PangoTypes.chs.cpp DELETED ---
|
