File: dict-01.out

package info (click to toggle)
haskell-typst 0.5.0.1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 16,564 kB
  • sloc: haskell: 8,314; xml: 32; makefile: 6
file content (130 lines) | stat: -rw-r--r-- 5,047 bytes parent folder | download
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
--- parse tree ---
[ Code
    "test/typ/compiler/dict-01.typ"
    ( line 1 , column 2 )
    (Let
       (BasicBind (Just (Identifier "test")))
       (FuncExpr
          [ NormalParam (Identifier "x") , NormalParam (Identifier "y") ]
          (Block
             (CodeBlock
                [ If
                    [ ( Equals (Ident (Identifier "x")) (Ident (Identifier "y"))
                      , Block (Content [ Text "\9989" ])
                      )
                    , ( Literal (Boolean True)
                      , Block
                          (Content
                             [ Text "\10060"
                             , Text "("
                             , Code
                                 "test/typ/compiler/dict-01.typ"
                                 ( line 1 , column 47 )
                                 (FuncCall
                                    (Ident (Identifier "repr"))
                                    [ NormalArg (Ident (Identifier "x")) ])
                             , Space
                             , Text "/"
                             , Text "="
                             , Space
                             , Code
                                 "test/typ/compiler/dict-01.typ"
                                 ( line 1 , column 59 )
                                 (FuncCall
                                    (Ident (Identifier "repr"))
                                    [ NormalArg (Ident (Identifier "y")) ])
                             , Text ")"
                             ])
                      )
                    ]
                ]))))
, SoftBreak
, Comment
, Code
    "test/typ/compiler/dict-01.typ"
    ( line 3 , column 2 )
    (Block
       (CodeBlock
          [ Let
              (BasicBind (Just (Identifier "dict")))
              (Dict
                 [ Reg ( Ident (Identifier "a") , Literal (Int 1) )
                 , Reg ( Literal (String "b b") , Literal (Int 1) )
                 ])
          , Assign
              (FuncCall
                 (FieldAccess (Ident (Identifier "at")) (Ident (Identifier "dict")))
                 [ NormalArg (Literal (String "b b")) ])
              (Plus
                 (FuncCall
                    (FieldAccess (Ident (Identifier "at")) (Ident (Identifier "dict")))
                    [ NormalArg (Literal (String "b b")) ])
                 (Literal (Int 1)))
          , Assign
              (FieldAccess
                 (Ident (Identifier "state")) (Ident (Identifier "dict")))
              (Dict
                 [ Reg ( Ident (Identifier "ok") , Literal (Boolean True) )
                 , Reg ( Ident (Identifier "err") , Literal (Boolean False) )
                 ])
          , FuncCall
              (Ident (Identifier "test"))
              [ NormalArg (Ident (Identifier "dict"))
              , NormalArg
                  (Dict
                     [ Reg ( Ident (Identifier "a") , Literal (Int 1) )
                     , Reg ( Literal (String "b b") , Literal (Int 2) )
                     , Reg
                         ( Ident (Identifier "state")
                         , Dict
                             [ Reg ( Ident (Identifier "ok") , Literal (Boolean True) )
                             , Reg ( Ident (Identifier "err") , Literal (Boolean False) )
                             ]
                         )
                     ])
              ]
          , FuncCall
              (Ident (Identifier "test"))
              [ NormalArg
                  (FieldAccess
                     (Ident (Identifier "ok"))
                     (FieldAccess
                        (Ident (Identifier "state")) (Ident (Identifier "dict"))))
              , NormalArg (Literal (Boolean True))
              ]
          , Assign
              (FieldAccess
                 (Ident (Identifier "ok"))
                 (FuncCall
                    (FieldAccess (Ident (Identifier "at")) (Ident (Identifier "dict")))
                    [ NormalArg (Literal (String "state")) ]))
              (Literal (Boolean False))
          , FuncCall
              (Ident (Identifier "test"))
              [ NormalArg
                  (FieldAccess
                     (Ident (Identifier "ok"))
                     (FieldAccess
                        (Ident (Identifier "state")) (Ident (Identifier "dict"))))
              , NormalArg (Literal (Boolean False))
              ]
          , FuncCall
              (Ident (Identifier "test"))
              [ NormalArg
                  (FieldAccess
                     (Ident (Identifier "err"))
                     (FieldAccess
                        (Ident (Identifier "state")) (Ident (Identifier "dict"))))
              , NormalArg (Literal (Boolean False))
              ]
          ]))
, ParBreak
]
--- evaluated ---
document(body: { text(body: [
]), 
                 text(body: [✅]), 
                 text(body: [✅]), 
                 text(body: [✅]), 
                 text(body: [✅]), 
                 parbreak() })