slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

latest dev script, testing parser performance

Browse Source
This commit is contained in:
Simon Michael 2015-10-17 11:23:55 -07:00
parent 78d5a0913e
commit 80ae8f5c50
1 changed files with 39 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

73
dev.hs Normal file → Executable file
View File

@ -1,3 +1,4 @@
#!/usr/bin/env runghc
-- dev.hs, for miscellaneous profiling/benchmarking/testing. -- dev.hs, for miscellaneous profiling/benchmarking/testing.
-- {-# LANGUAGE DeriveDataTypeable, StandaloneDeriving, DeriveGeneric #-} -- {-# LANGUAGE DeriveDataTypeable, StandaloneDeriving, DeriveGeneric #-}
@ -50,44 +51,48 @@ timeReadJournal msg s = timeit msg $ either error id <$> readJournal Nothing Not
main = do main = do
-- putStrLn $ regexReplaceCI "^aa" "xx" "aa:bb:cc:dd:ee" -- putStrLn $ regexReplaceCI "^aa" "xx" "aa:bb:cc:dd:ee"
(_t0,_j) <- timeit ("read "++journal) $ either error id <$> readJournalFile Nothing Nothing True journal
return ()
-- printf "Total: %0.2fs\n" (sum [t0,t1,t2,t3,t4])
-- -- read the input journal -- -- read the input journal
s <- readFile journal -- s <- readFile journal
j <- either error id <$> readJournal Nothing Nothing True Nothing s -- j <- either error id <$> readJournal Nothing Nothing True Nothing s
-- putStrLn $ show $ length $ jtxns j -- sanity check we parsed it all -- -- putStrLn $ show $ length $ jtxns j -- sanity check we parsed it all
let accts = map paccount $ journalPostings j -- let accts = map paccount $ journalPostings j
Criterion.Main.defaultMainWith defaultConfig $ [ -- Criterion.Main.defaultMainWith defaultConfig $ [
-- bench ("toRegexCI") $ whnf toRegexCI "^aa" -- -- bench ("toRegexCI") $ whnf toRegexCI "^aa"
-- ,bench ("toRegexCI") $ whnfIO (return $ toRegexCI "^aa") -- -- ,bench ("toRegexCI") $ whnfIO (return $ toRegexCI "^aa")
-- ,bench ("toRegexCI x 1000") $ nfIO $ sequence_ (map (return . toRegexCI) (replicate 1000 "^aa")) -- -- ,bench ("toRegexCI x 1000") $ nfIO $ sequence_ (map (return . toRegexCI) (replicate 1000 "^aa"))
-- bench ("regexReplaceCI") $ nf (regexReplaceCI "aa" "xx") "aa:bb:cc:dd:ee:1" -- -- bench ("regexReplaceCI") $ nf (regexReplaceCI "aa" "xx") "aa:bb:cc:dd:ee:1"
-- ,bench ("regexReplaceCI x 1000") $ nf (map (regexReplaceCI "bb" "xx")) (replicate 1000 "aa:bb:cc:dd:ee;2") -- -- ,bench ("regexReplaceCI x 1000") $ nf (map (regexReplaceCI "bb" "xx")) (replicate 1000 "aa:bb:cc:dd:ee;2")
-- ,bench ("regexReplaceCIMemo") $ nf (regexReplaceCIMemo "ee" "xx") "aa:bb:cc:dd:ee:5" -- -- ,bench ("regexReplaceCIMemo") $ nf (regexReplaceCIMemo "ee" "xx") "aa:bb:cc:dd:ee:5"
-- ,bench ("regexReplaceCIMemo x 1000") $ nf (map (regexReplaceCIMemo "ff" "xx")) (replicate 1000 "aa:bb:cc:dd:ee:6") -- -- ,bench ("regexReplaceCIMemo x 1000") $ nf (map (regexReplaceCIMemo "ff" "xx")) (replicate 1000 "aa:bb:cc:dd:ee:6")
bench ("apply one regex alias to one posting") $ -- bench ("apply one regex alias to one posting") $
nf (map (accountNameApplyAliases [RegexAlias "^1:" "x:"])) (map paccount $ take 1 $ journalPostings j) -- nf (map (accountNameApplyAliases [RegexAlias "^1:" "x:"])) (map paccount $ take 1 $ journalPostings j)
-- ,bench ("apply one regex alias to 20000 postings") $ -- -- ,bench ("apply one regex alias to 20000 postings") $
-- nf (map (accountNameApplyAliases [RegexAlias "^1:" "x:"])) (map paccount $ journalPostings j) -- -- nf (map (accountNameApplyAliases [RegexAlias "^1:" "x:"])) (map paccount $ journalPostings j)
-- ,bench ("apply 3 regex aliases to 20000 postings") $ -- -- ,bench ("apply 3 regex aliases to 20000 postings") $
-- nf (map (accountNameApplyAliases [ -- -- nf (map (accountNameApplyAliases [
-- RegexAlias "^1:" "x:" -- -- RegexAlias "^1:" "x:"
-- ,RegexAlias "^2:" "x:" -- -- ,RegexAlias "^2:" "x:"
-- ,RegexAlias "^3:" "x:" -- -- ,RegexAlias "^3:" "x:"
-- ])) accts -- -- ])) accts
-- ,bench ("readJournal") $ whnfIO $ -- -- ,bench ("readJournal") $ whnfIO $
-- either error id <$> -- -- either error id <$>
-- readJournal Nothing Nothing True Nothing s -- -- readJournal Nothing Nothing True Nothing s
-- ,bench ("readJournal with aliases") $ whnfIO $ -- -- ,bench ("readJournal with aliases") $ whnfIO $
-- either error id <$> -- -- either error id <$>
-- readJournal Nothing Nothing True Nothing ( -- -- readJournal Nothing Nothing True Nothing (
-- unlines [ -- -- unlines [
-- "alias /^fb:/=xx \n" -- -- "alias /^fb:/=xx \n"
-- ,"alias /^f1:/=xx \n" -- -- ,"alias /^f1:/=xx \n"
-- ,"alias /^e7:/=xx \n" -- -- ,"alias /^e7:/=xx \n"
-- ] ++ s) -- -- ] ++ s)
] -- ]
-- (t0,j0) <- timeReadJournal ("read "++journal) s -- (t0,j0) <- timeReadJournal ("read "++journal) s
-- (t0',j0') <- timeReadJournal ("read "++journal++" again") s -- (t0',j0') <- timeReadJournal ("read "++journal++" again") s