55 wrapPhrase p@(Phrases _) = p |
55 wrapPhrase p@(Phrases _) = p |
56 wrapPhrase p = Phrases [p] |
56 wrapPhrase p = Phrases [p] |
57 |
57 |
58 expr2C :: Expression -> Doc |
58 expr2C :: Expression -> Doc |
59 expr2C (Expression s) = text s |
59 expr2C (Expression s) = text s |
60 expr2C (FunCall ref params) = ref2C ref <> parens (hsep . punctuate (char ',') . map expr2C $ params) |
|
61 expr2C (BinOp op expr1 expr2) = parens $ (expr2C expr1) <+> op2C op <+> (expr2C expr2) |
60 expr2C (BinOp op expr1 expr2) = parens $ (expr2C expr1) <+> op2C op <+> (expr2C expr2) |
62 expr2C (NumberLiteral s) = text s |
61 expr2C (NumberLiteral s) = text s |
63 expr2C (HexNumber s) = text "0x" <> (text . map toLower $ s) |
62 expr2C (HexNumber s) = text "0x" <> (text . map toLower $ s) |
64 expr2C (StringLiteral s) = doubleQuotes $ text s |
63 expr2C (StringLiteral s) = doubleQuotes $ text s |
65 expr2C (Address ref) = text "&" <> ref2C ref |
|
66 expr2C (Reference ref) = ref2C ref |
64 expr2C (Reference ref) = ref2C ref |
67 expr2C (PrefixOp op expr) = op2C op <+> expr2C expr |
65 expr2C (PrefixOp op expr) = op2C op <+> expr2C expr |
68 {- |
66 {- |
69 | PostfixOp String Expression |
67 | PostfixOp String Expression |
70 | CharCode String |
68 | CharCode String |
71 -} |
69 -} |
72 expr2C _ = empty |
70 expr2C _ = empty |
73 |
71 |
74 |
72 |
75 ref2C :: Reference -> Doc |
73 ref2C :: Reference -> Doc |
76 ref2C (ArrayElement (Identifier name) expr) = text name <> brackets (expr2C expr) |
74 ref2C (ArrayElement exprs ref) = ref2C ref <> (brackets . hcat) (punctuate comma $ map expr2C exprs) |
77 ref2C (SimpleReference (Identifier name)) = text name |
75 ref2C (SimpleReference (Identifier name)) = text name |
78 ref2C (RecordField (Dereference ref1) ref2) = ref2C ref1 <> text "->" <> ref2C ref2 |
76 ref2C (RecordField (Dereference ref1) ref2) = ref2C ref1 <> text "->" <> ref2C ref2 |
79 ref2C (RecordField ref1 ref2) = ref2C ref1 <> text "." <> ref2C ref2 |
77 ref2C (RecordField ref1 ref2) = ref2C ref1 <> text "." <> ref2C ref2 |
80 ref2C (Dereference ref) = parens $ text "*" <> ref2C ref |
78 ref2C (Dereference ref) = parens $ text "*" <> ref2C ref |
|
79 ref2C (FunCall params ref) = ref2C ref <> parens (hsep . punctuate (char ',') . map expr2C $ params) |
|
80 ref2C (Address ref) = text "&" <> ref2C ref |
81 |
81 |
82 op2C "or" = text "|" |
82 op2C "or" = text "|" |
83 op2C "and" = text "&" |
83 op2C "and" = text "&" |
84 op2C "not" = text "!" |
84 op2C "not" = text "!" |
85 op2C "xor" = text "^" |
85 op2C "xor" = text "^" |