git.iko.soy/streamly
on master help sign in
Use the haskellified version of bench-report
commitfd9379c1b9404ab8e44bec01ccffb8aa9075628e authorAdithya Kumar <adithya@composewell.com> dateTue 22 Mar 2022, 00:33 (5 years ago) parenta849812
4 files changed+257
compare with master
unifiedsplit
benchmark/report/Main.hs+198 benchmark/report/report.cabal+40 cabal.project.report+16 streamly.cabal+3
benchmark/report/Main.hsnew file+198
@@ -0,0 +1,198 @@
1+module Main where
2+
3+import BuildLib (Quickness(..))
4+import BenchRunner (mainWith)
5+import Data.Map (Map)
6+import Data.List (isInfixOf, isPrefixOf, isSuffixOf)
7+
8+import qualified Data.Map as Map
9+
10+groupTargets :: Map String [String]
11+groupTargets =
12+ Map.fromList
13+ [ ( "base_stream_grp"
14+ , [ "Data.Stream.StreamD"
15+ , "Data.Stream.StreamK"
16+ , "Data.Stream.StreamDK"
17+ ])
18+ , ("prelude_serial_grp", preudeSerialGrp)
19+ , ("prelude_concurrent_grp", preudeConcurrentGrp)
20+ , ( "prelude_other_grp"
21+ , ["Prelude.Rate", "Prelude.Concurrent", "Prelude.Adaptive"])
22+ , ( "array_grp"
23+ , [ "Data.Array"
24+ , "Data.Array.Foreign"
25+ , "Data.Array.Prim"
26+ , "Data.SmallArray"
27+ , "Data.Array.Prim.Pinned"
28+ ])
29+ , ("base_parser_grp", ["Data.Parser.ParserD", "Data.Parser.ParserK"])
30+ , ("parser_grp", ["Data.Fold", "Data.Parser"])
31+ , ("list_grp ", [])
32+ , ( "infinite_grp"
33+ , preudeSerialGrp ++ preudeConcurrentGrp ++ ["Prelude.Rate"])
34+ ]
35+
36+ where
37+
38+ preudeSerialGrp = ["Prelude.Serial", "Prelude.WSerial", "Prelude.ZipSerial"]
39+ preudeConcurrentGrp =
40+ [ "Prelude.Async"
41+ , "Prelude.WAsync"
42+ , "Prelude.Ahead"
43+ , "Prelude.Parallel"
44+ , "Prelude.ZipAsync"
45+ ]
46+
47+individualTargers :: [String]
48+individualTargers =
49+ [ "Data.Unfold"
50+ , "Unicode.Stream"
51+ , "Unicode.Char"
52+ , "Unicode.Utf8"
53+ , "FileSystem.Handle"
54+ ]
55+
56+comparisions :: Map String [String]
57+comparisions =
58+ Map.fromList
59+ [ ("base_stream_cmp", ["Data.Stream.StreamD", "Data.Stream.StreamK"])
60+ , ("serial_wserial_cmp", ["Prelude.Serial", "Prelude.WSerial"])
61+ , ("serial_async_cmp", ["Prelude.Serial", "Prelude.Async"])
62+ , ( "concurrent_cmp"
63+ , [ "Prelude.Async"
64+ , "Prelude.WAsync"
65+ , "Prelude.Ahead"
66+ , "Prelude.Parallel"
67+ ])
68+ , ( "array_cmp"
69+ , [ "Data.Array.Foreign"
70+ , "Data.Array.Prim"
71+ , "Data.Array"
72+ , "Data.Array.Prim.Pinned"
73+ ])
74+ , ("pinned_array_cmp", ["Data.Array.Foreign", "Data.Array.Prim.Pinned"])
75+ , ("base_parser_cmp", ["Data.Parser.ParserD", "Data.Parser.ParserK"])
76+ ]
77+
78+rtsOpts :: String -> String -> String
79+rtsOpts exeName benchName0 = unwords [general, exeSpecific, benchSpecific]
80+
81+ where
82+
83+ -- Drop All.
84+ benchName = drop 4 benchName0
85+ general
86+ | "o-1-sp" `isInfixOf` benchName = "-K36K -M16M"
87+ | "o-n-h" `isInfixOf` benchName = "-K36K -M32M"
88+ | "o-n-st" `isInfixOf` benchName = "-K1M -M16M"
89+ | "o-n-sp" `isInfixOf` benchName = "-K1M -M32M"
90+ | otherwise = ""
91+ exeSpecific
92+ | "Prelude.Concurrent" `isSuffixOf` exeName = "-K256K -M384M"
93+ | otherwise = ""
94+ benchSpecific
95+ | "Data.Stream.StreamD/o-n-space.elimination.toList" == benchName =
96+ "-K2M"
97+ | "Data.Stream.StreamK/o-n-space.elimination.toList" == benchName =
98+ "-K2M"
99+ | "Prelude.Parallel/o-n-heap.mapping.mapM" == benchName = "-M256M"
100+ | "Prelude.Parallel/o-n-heap.monad-outer-product."
101+ `isPrefixOf` benchName = "-M256M"
102+ | "Prelude.Parallel/o-n-space.monad-outer-product."
103+ `isPrefixOf` benchName = "-M256M"
104+ | "Prelude.Rate/o-1-space." `isPrefixOf` benchName = "-K128K"
105+ | "Prelude.Rate/o-1-space.asyncly." `isPrefixOf` benchName = "-K128K"
106+ | "Prelude.Serial/o-1-space.mixed.sum-product-fold" == benchName =
107+ "-K64M"
108+ | "Prelude.Serial/o-n-heap.grouping.classifySessionsOf" == benchName =
109+ "-K1M -M32M"
110+ | "Prelude.Serial/o-n-heap.Functor." `isPrefixOf` benchName =
111+ "-K4M -M32M"
112+ | "Prelude.Serial/o-n-heap.transformer." `isPrefixOf` benchName =
113+ "-K8M -M64M"
114+ | "Prelude.Serial/o-n-space.Functor." `isPrefixOf` benchName =
115+ "-K4M -M64M"
116+ | "Prelude.Serial/o-n-space.Applicative." `isPrefixOf` benchName =
117+ "-K8M -M128M"
118+ | "Prelude.Serial/o-n-space.Monad." `isPrefixOf` benchName =
119+ "-K8M -M64M"
120+ | "Prelude.Serial/o-n-space.grouping." `isPrefixOf` benchName = ""
121+ | "Prelude.Serial/o-n-space." `isPrefixOf` benchName = "-K4M"
122+ | "Prelude.WSerial/o-n-space." `isPrefixOf` benchName = "-K4M"
123+ | "Prelude.Async/o-n-space.monad-outer-product." `isPrefixOf` benchName =
124+ "-K4M"
125+ | "Prelude.Ahead/o-n-space.monad-outer-product." `isPrefixOf` benchName =
126+ "-K4M"
127+ | "Prelude.Ahead/o-1-space." `isPrefixOf` benchName = "-K128K"
128+ | "Prelude.WAsync/o-n-heap.monad-outer-product.toNull3" == benchName =
129+ "-M64M"
130+ | "Prelude.WAsync/o-n-space.monad-outer-product." `isPrefixOf` benchName =
131+ "-K4M"
132+ | "Data.Parser.ParserD/o-1-space.some" == benchName = "-K8M"
133+ | "Data.Parser/o-1-space.some" == benchName = "-K8M"
134+ | "Data.Parser.ParserD/o-1-space.manyTill" == benchName = "-K4M"
135+ | "Data.Parser/o-1-space.manyTill" == benchName = "-K4M"
136+ | "Data.Parser/o-n-heap.manyAlt" == benchName = "-K4M -M128M"
137+ | "Data.Parser/o-n-heap.someAlt" == benchName = "-K4M -M128M"
138+ | "Data.Parser/o-n-heap.choice" == benchName = "-K16M -M32M"
139+ | "Data.Parser.ParserK/o-n-heap.manyAlt" == benchName = "-K4M -M128M"
140+ | "Data.Parser.ParserK/o-n-heap.someAlt" == benchName = "-K4M -M128M"
141+ | "Data.Parser.ParserK/o-n-heap.sequence" == benchName = "-M64M"
142+ | "Data.Parser.ParserK/o-n-heap.sequenceA" == benchName = "-M64M"
143+ | "Data.SmallArray.o-1-sp" `isPrefixOf` benchName = "-K128K"
144+ | "Data.Array" `isPrefixOf` benchName
145+ && "/o-1-space.generation.show" `isSuffixOf` benchName = "-M32M"
146+ | "Data.Array/o-1-space.transformationX4.map" == benchName = "-M32M"
147+ | "Data.Array.Foreign/o-1-space.elimination.foldable.foldl"
148+ `isPrefixOf` benchName = "-K8M"
149+ | "Data.Array.Foreign/o-1-space.elimination.foldable.sum" == benchName =
150+ "-K8M"
151+ | otherwise = ""
152+
153+speedOpts :: String -> String -> Maybe Quickness
154+speedOpts exeName benchName0 = maybe benchSpecific Just exeSpecific
155+
156+ where
157+
158+ slowestOf Quicker _ = Quicker
159+ slowestOf _ Quicker = Quicker
160+ slowestOf _ _ = SuperQuick
161+
162+ -- Drop All.
163+ benchName = drop 4 benchName0
164+ exeSpecific
165+ | "Prelude.Concurrent" == exeName = Just SuperQuick
166+ | "Prelude.Rate" == exeName = Just SuperQuick
167+ | "Prelude.Adaptive" == exeName = Just SuperQuick
168+ | otherwise = Nothing
169+ benchSpecific
170+ | "Prelude.Parallel/o-n-heap.mapping.mapM" == benchName =
171+ Just SuperQuick
172+ | "Prelude.Parallel/o-n-heap.monad-outer-product."
173+ `isPrefixOf` benchName = Just SuperQuick
174+ | "Prelude.Parallel.o-n-space.monad-outer-product."
175+ `isPrefixOf` benchName = Just SuperQuick
176+ | "Prelude.Parallel/o-n-heap.generation." `isPrefixOf` benchName =
177+ Just Quicker
178+ | "Prelude.Parallel/o-n-heap.mapping." `isPrefixOf` benchName =
179+ Just Quicker
180+ | "Prelude.Parallel/o-n-heap.concat-foldable." `isPrefixOf` benchName =
181+ Just Quicker
182+ | "Prelude.Async/o-1-space.monad-outer-product." `isPrefixOf` benchName =
183+ Just Quicker
184+ | "Prelude.Async/o-n-space.monad-outer-product." `isPrefixOf` benchName =
185+ Just Quicker
186+ | "Prelude.Ahead/o-1-space.monad-outer-product." `isPrefixOf` benchName =
187+ Just Quicker
188+ | "Prelude.Ahead/o-n-space.monad-outer-product." `isPrefixOf` benchName =
189+ Just Quicker
190+ | "Prelude.WAsync/o-n-heap.monad-outer-product." `isPrefixOf` benchName =
191+ Just Quicker
192+ | "Prelude.WAsync/o-n-space.monad-outer-product." `isPrefixOf` benchName =
193+ Just Quicker
194+ | "FileSystem.Handle." `isPrefixOf` benchName = Just Quicker
195+ | otherwise = Nothing
196+
197+main :: IO ()
198+main = mainWith groupTargets individualTargers comparisions speedOpts rtsOpts
benchmark/report/report.cabalnew file+40
@@ -0,0 +1,40 @@
1+cabal-version: 2.4
2+name: report
3+version: 0.1.0.0
4+
5+-- A short (one-line) description of the package.
6+-- synopsis:
7+
8+-- A longer description of the package.
9+-- description:
10+
11+-- A URL where users can report bugs.
12+-- bug-reports:
13+
14+-- The license under which the package is released.
15+-- license:
16+
17+-- The package author(s).
18+-- author:
19+
20+-- An email address to which users can send suggestions, bug reports, and patches.
21+-- maintainer:
22+
23+-- A copyright notice.
24+-- copyright:
25+-- category:
26+-- extra-source-files: CHANGELOG.md
27+
28+executable report
29+ main-is: Main.hs
30+
31+ -- Modules included in this executable, other than Main.
32+ -- other-modules:
33+
34+ -- LANGUAGE extensions used by modules in this package.
35+ -- other-extensions:
36+ build-depends: base
37+ , bench-report
38+ , containers
39+ hs-source-dirs: .
40+ default-language: Haskell2010
cabal.project.reportnew file+16
@@ -0,0 +1,16 @@
1+packages: benchmark/report/.
2+
3+source-repository-package
4+ type: git
5+ location: git@github.com:composewell/bench-report.git
6+ tag: 4a9710b2e1edea19fc1ca9a9a3da0b9bfe4b4dc2
7+
8+source-repository-package
9+ type: git
10+ location: git@github.com:composewell/streamly-coreutils.git
11+ tag: a12756efe24bbf303f2f6d66a95426c7657d297b
12+
13+source-repository-package
14+ type: git
15+ location: https://github.com/composewell/streamly-shell.git
16+ tag: 7d77ddc0c06aec21fbbfd1b920ec4f58da654a1b
streamly.cabal+3
@@ -214,6 +214,9 @@ extra-source-files:
214214 core/streamly-core.cabal
215215 core/jsbits/clock.js
216216 core/Setup.hs
217+ benchmark/report/Main.hs
218+ benchmark/report/report.cabal
219+ cabal.project.report
217220
218221extra-doc-files:
219222 CONTRIBUTING.md