#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Poppler.Flags
(
AnnotFlag(..) ,
FindFlags(..) ,
Permissions(..) ,
PrintFlags(..) ,
StructureGetTextFlags(..) ,
ViewerPreferences(..) ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
data ViewerPreferences =
ViewerPreferencesUnset
| ViewerPreferencesHideToolbar
| ViewerPreferencesHideMenubar
| ViewerPreferencesHideWindowui
| ViewerPreferencesFitWindow
| ViewerPreferencesCenterWindow
| ViewerPreferencesDisplayDocTitle
| ViewerPreferencesDirectionRtl
| AnotherViewerPreferences Int
deriving (Show, Eq)
instance P.Enum ViewerPreferences where
fromEnum ViewerPreferencesUnset = 0
fromEnum ViewerPreferencesHideToolbar = 1
fromEnum ViewerPreferencesHideMenubar = 2
fromEnum ViewerPreferencesHideWindowui = 4
fromEnum ViewerPreferencesFitWindow = 8
fromEnum ViewerPreferencesCenterWindow = 16
fromEnum ViewerPreferencesDisplayDocTitle = 32
fromEnum ViewerPreferencesDirectionRtl = 64
fromEnum (AnotherViewerPreferences k) = k
toEnum 0 = ViewerPreferencesUnset
toEnum 1 = ViewerPreferencesHideToolbar
toEnum 2 = ViewerPreferencesHideMenubar
toEnum 4 = ViewerPreferencesHideWindowui
toEnum 8 = ViewerPreferencesFitWindow
toEnum 16 = ViewerPreferencesCenterWindow
toEnum 32 = ViewerPreferencesDisplayDocTitle
toEnum 64 = ViewerPreferencesDirectionRtl
toEnum k = AnotherViewerPreferences k
instance P.Ord ViewerPreferences where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "poppler_viewer_preferences_get_type" c_poppler_viewer_preferences_get_type ::
IO GType
instance BoxedFlags ViewerPreferences where
boxedFlagsType _ = c_poppler_viewer_preferences_get_type
instance IsGFlag ViewerPreferences
data StructureGetTextFlags =
StructureGetTextFlagsNone
| StructureGetTextFlagsRecursive
| AnotherStructureGetTextFlags Int
deriving (Show, Eq)
instance P.Enum StructureGetTextFlags where
fromEnum StructureGetTextFlagsNone = 0
fromEnum StructureGetTextFlagsRecursive = 1
fromEnum (AnotherStructureGetTextFlags k) = k
toEnum 0 = StructureGetTextFlagsNone
toEnum 1 = StructureGetTextFlagsRecursive
toEnum k = AnotherStructureGetTextFlags k
instance P.Ord StructureGetTextFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "poppler_structure_get_text_flags_get_type" c_poppler_structure_get_text_flags_get_type ::
IO GType
instance BoxedFlags StructureGetTextFlags where
boxedFlagsType _ = c_poppler_structure_get_text_flags_get_type
instance IsGFlag StructureGetTextFlags
data PrintFlags =
PrintFlagsDocument
| PrintFlagsMarkupAnnots
| PrintFlagsStampAnnotsOnly
| PrintFlagsAll
| AnotherPrintFlags Int
deriving (Show, Eq)
instance P.Enum PrintFlags where
fromEnum PrintFlagsDocument = 0
fromEnum PrintFlagsMarkupAnnots = 1
fromEnum PrintFlagsStampAnnotsOnly = 2
fromEnum PrintFlagsAll = 1
fromEnum (AnotherPrintFlags k) = k
toEnum 0 = PrintFlagsDocument
toEnum 1 = PrintFlagsMarkupAnnots
toEnum 2 = PrintFlagsStampAnnotsOnly
toEnum 1 = PrintFlagsAll
toEnum k = AnotherPrintFlags k
instance P.Ord PrintFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "poppler_print_flags_get_type" c_poppler_print_flags_get_type ::
IO GType
instance BoxedFlags PrintFlags where
boxedFlagsType _ = c_poppler_print_flags_get_type
instance IsGFlag PrintFlags
data Permissions =
PermissionsOkToPrint
| PermissionsOkToModify
| PermissionsOkToCopy
| PermissionsOkToAddNotes
| PermissionsOkToFillForm
| PermissionsOkToExtractContents
| PermissionsOkToAssemble
| PermissionsOkToPrintHighResolution
| PermissionsFull
| AnotherPermissions Int
deriving (Show, Eq)
instance P.Enum Permissions where
fromEnum PermissionsOkToPrint = 1
fromEnum PermissionsOkToModify = 2
fromEnum PermissionsOkToCopy = 4
fromEnum PermissionsOkToAddNotes = 8
fromEnum PermissionsOkToFillForm = 16
fromEnum PermissionsOkToExtractContents = 32
fromEnum PermissionsOkToAssemble = 64
fromEnum PermissionsOkToPrintHighResolution = 128
fromEnum PermissionsFull = 255
fromEnum (AnotherPermissions k) = k
toEnum 1 = PermissionsOkToPrint
toEnum 2 = PermissionsOkToModify
toEnum 4 = PermissionsOkToCopy
toEnum 8 = PermissionsOkToAddNotes
toEnum 16 = PermissionsOkToFillForm
toEnum 32 = PermissionsOkToExtractContents
toEnum 64 = PermissionsOkToAssemble
toEnum 128 = PermissionsOkToPrintHighResolution
toEnum 255 = PermissionsFull
toEnum k = AnotherPermissions k
instance P.Ord Permissions where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "poppler_permissions_get_type" c_poppler_permissions_get_type ::
IO GType
instance BoxedFlags Permissions where
boxedFlagsType _ = c_poppler_permissions_get_type
instance IsGFlag Permissions
data FindFlags =
FindFlagsDefault
| FindFlagsCaseSensitive
| FindFlagsBackwards
| FindFlagsWholeWordsOnly
| FindFlagsIgnoreDiacritics
| AnotherFindFlags Int
deriving (Show, Eq)
instance P.Enum FindFlags where
fromEnum FindFlagsDefault = 0
fromEnum FindFlagsCaseSensitive = 1
fromEnum FindFlagsBackwards = 2
fromEnum FindFlagsWholeWordsOnly = 4
fromEnum FindFlagsIgnoreDiacritics = 8
fromEnum (AnotherFindFlags k) = k
toEnum 0 = FindFlagsDefault
toEnum 1 = FindFlagsCaseSensitive
toEnum 2 = FindFlagsBackwards
toEnum 4 = FindFlagsWholeWordsOnly
toEnum 8 = FindFlagsIgnoreDiacritics
toEnum k = AnotherFindFlags k
instance P.Ord FindFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "poppler_find_flags_get_type" c_poppler_find_flags_get_type ::
IO GType
instance BoxedFlags FindFlags where
boxedFlagsType _ = c_poppler_find_flags_get_type
instance IsGFlag FindFlags
data AnnotFlag =
AnnotFlagUnknown
| AnnotFlagInvisible
| AnnotFlagHidden
| AnnotFlagPrint
| AnnotFlagNoZoom
| AnnotFlagNoRotate
| AnnotFlagNoView
| AnnotFlagReadOnly
| AnnotFlagLocked
| AnnotFlagToggleNoView
| AnnotFlagLockedContents
| AnotherAnnotFlag Int
deriving (Show, Eq)
instance P.Enum AnnotFlag where
fromEnum AnnotFlagUnknown = 0
fromEnum AnnotFlagInvisible = 1
fromEnum AnnotFlagHidden = 2
fromEnum AnnotFlagPrint = 4
fromEnum AnnotFlagNoZoom = 8
fromEnum AnnotFlagNoRotate = 16
fromEnum AnnotFlagNoView = 32
fromEnum AnnotFlagReadOnly = 64
fromEnum AnnotFlagLocked = 128
fromEnum AnnotFlagToggleNoView = 256
fromEnum AnnotFlagLockedContents = 512
fromEnum (AnotherAnnotFlag k) = k
toEnum 0 = AnnotFlagUnknown
toEnum 1 = AnnotFlagInvisible
toEnum 2 = AnnotFlagHidden
toEnum 4 = AnnotFlagPrint
toEnum 8 = AnnotFlagNoZoom
toEnum 16 = AnnotFlagNoRotate
toEnum 32 = AnnotFlagNoView
toEnum 64 = AnnotFlagReadOnly
toEnum 128 = AnnotFlagLocked
toEnum 256 = AnnotFlagToggleNoView
toEnum 512 = AnnotFlagLockedContents
toEnum k = AnotherAnnotFlag k
instance P.Ord AnnotFlag where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "poppler_annot_flag_get_type" c_poppler_annot_flag_get_type ::
IO GType
instance BoxedFlags AnnotFlag where
boxedFlagsType _ = c_poppler_annot_flag_get_type
instance IsGFlag AnnotFlag