Remove deprecated debug script and forgotten comments to bypass the selective export of Text module
This commit is contained in:
parent
3a3e1533b4
commit
c9f050e64b
3 changed files with 2 additions and 47 deletions
|
@ -56,16 +56,6 @@ executable getObj
|
|||
ghc-options: -Wall
|
||||
default-language: Haskell2010
|
||||
|
||||
executable debug
|
||||
main-is: examples/debug.hs
|
||||
build-depends: base
|
||||
, bytestring
|
||||
, containers
|
||||
, Hufflepdf
|
||||
, mtl
|
||||
ghc-options: -Wall
|
||||
default-language: Haskell2010
|
||||
|
||||
executable getText
|
||||
main-is: examples/getText.hs
|
||||
build-depends: base
|
||||
|
|
|
@ -1,35 +0,0 @@
|
|||
{-# LANGUAGE NamedFieldPuns #-}
|
||||
module Main where
|
||||
|
||||
import Control.Monad.Reader
|
||||
import qualified Data.ByteString as BS
|
||||
import qualified Data.ByteString.Char8 as C8
|
||||
import qualified Data.Map as Map
|
||||
import PDF.Object (Name(..), StringObject(..), array)
|
||||
import PDF.CMap (CMappers, CRange(..), cMap, emptyCMap)
|
||||
import PDF.Parser (evalParser)
|
||||
import PDF.Text
|
||||
|
||||
test :: CMappers -> ParserWithFont a -> BS.ByteString -> Either String a
|
||||
test fonts parser =
|
||||
evalParser (runReaderT parser fonts) emptyCMap
|
||||
|
||||
main :: IO ()
|
||||
main = do
|
||||
input <- BS.readFile "20.stream"
|
||||
--input <- BS.readFile "array.bin"
|
||||
--let input = C8.pack "\f\xb5\0I"
|
||||
Right font <- cMap <$> BS.readFile "6300.stream"
|
||||
--mapM_ (\(size, m) -> putStrLn ("taille " ++ show size) >> mapM_ showCRange m) $ Map.toList font
|
||||
--case pageContents (Map.singleton (Name "R9") font) input of
|
||||
--case test (Map.singleton (Name "R9") font) array input of
|
||||
--case test (Map.singleton (Name "R9") font) (a textOperator) input of
|
||||
case test (Map.singleton (Name "R9") font) page input of
|
||||
Left e -> putStrLn e
|
||||
Right l -> putStrLn . show $ l
|
||||
where
|
||||
showMapping = mapM_ (\(k, v) -> putStr (show k) >> putStr " -> " >> C8.putStrLn v) . Map.toList
|
||||
showCRange :: CRange -> IO ()
|
||||
showCRange (CRange {fromSequence, toSequence, mapping}) = do
|
||||
putStrLn $ "from " ++ C8.unpack fromSequence ++ " to " ++ C8.unpack toSequence
|
||||
showMapping mapping
|
|
@ -1,9 +1,9 @@
|
|||
{-# LANGUAGE NamedFieldPuns #-}
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
module PDF.Text {-(
|
||||
module PDF.Text (
|
||||
PageContents(..)
|
||||
, pageContents
|
||||
)-} where
|
||||
) where
|
||||
|
||||
import Control.Applicative ((<|>))
|
||||
import Control.Monad (foldM)
|
||||
|
|
Loading…
Reference in a new issue