/
Main.hs
38 lines (28 loc) · 1.34 KB
/
Main.hs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
module Main where
import CircComp.Data
import qualified CircComp.Groups as Groups
import CircComp.Json
import CircComp.Id
import CircComp.Layout
import CircComp.Syntaxtree
-- main :: IO ()
-- main = putStrLn $ exportBlueprint $ Blueprint $ layoutGroup $ updateGroupIds $ Groups.mergeGroups [
-- Groups.input "inp0",
-- Groups.constInput "inp1" (Signal "copper-plate" Item) 5,
-- Groups.relayerGroup 1 $Groups.cmpEq "cmp0" (Signal "copper-plate" Item) (Signal "copper-plate" Item),
-- makeRedConnectionGroup "inp0out0" "cmp0in0",
-- makeRedConnectionGroup "inp1out0" "cmp0in1",
-- Groups.relayerGroup 2 $ Groups.output "out0" (Signal "copper-plate" Item),
-- makeRedConnectionGroup "cmp0out0" "out0in0",
-- Groups.relayerGroup 2 $ Groups.output "out1" (Signal "copper-plate" Item),
-- makeRedConnectionGroup "cmp0out0" "out1in0"
-- ]
main :: IO ()
main = putStrLn $ exportBlueprint $ Blueprint $ layoutGroup $ updateGroupIds $ astToGroup $
Ast [
Ast [
Ast [] (TokenConstItem (TokenVirtualItem "copper-plate") (TokenStaticNumber 69)),
Ast [] TokenInput
]
(TokenCmpeq (TokenVirtualItem "copper-plate") (TokenVirtualItem "copper-plate"))
] TokenOutput