Iterators.hsc

module KB.Text.Shape.FFI.Iterators where

import Prelude hiding (id, error)

import Foreign
import Foreign.C

import KB.Text.Shape.FFI.Structs

#include "kb_text_shape.h"

-- | @int kbts_GlyphIteratorNext(kbts_glyph_iterator *It, kbts_glyph **Glyph);@
foreign import ccall "kbts_GlyphIteratorNext" kbts_GlyphIteratorNext
  :: Ptr GlyphIterator
  -> Ptr (Ptr Glyph)
  -> IO Int

-- | @int kbts_GlyphIteratorIsValid(kbts_glyph_iterator *It);@
foreign import ccall "kbts_GlyphIteratorIsValid" kbts_GlyphIteratorIsValid
  :: Ptr GlyphIterator
  -> CInt