3 import qualified ForSyDe.Backend.VHDL.AST as AST
9 -- | reset and clock signal identifiers in String form
10 resetStr, clockStr :: String
14 -- | reset and clock signal identifiers in basic AST.VHDLId form
15 resetId, clockId :: AST.VHDLId
16 resetId = AST.unsafeVHDLBasicId resetStr
17 clockId = AST.unsafeVHDLBasicId clockStr
20 -- | \"types\" identifier
22 typesId = AST.unsafeVHDLBasicId "types"
26 workId = AST.unsafeVHDLBasicId "work"
30 stdId = AST.unsafeVHDLBasicId "std"
33 -- | textio identifier
34 textioId :: AST.VHDLId
35 textioId = AST.unsafeVHDLBasicId "textio"
37 -- | range attribute identifier
39 rangeId = AST.unsafeVHDLBasicId "range"
42 -- | range attribute identifier
44 imageId = AST.unsafeVHDLBasicId "image"
46 -- | event attribute identifie
48 eventId = AST.unsafeVHDLBasicId "event"
51 -- | default function identifier
52 defaultId :: AST.VHDLId
53 defaultId = AST.unsafeVHDLBasicId "default"
55 -- FSVec function identifiers
57 -- | ex (operator ! in original Haskell source) function identifier
59 exId = AST.unsafeVHDLBasicId "ex"
61 -- | sel (function select in original Haskell source) function identifier
63 selId = AST.unsafeVHDLBasicId "sel"
66 -- | ltplus (function (<+) in original Haskell source) function identifier
67 ltplusId :: AST.VHDLId
68 ltplusId = AST.unsafeVHDLBasicId "ltplus"
71 -- | plusplus (function (++) in original Haskell source) function identifier
72 plusplusId :: AST.VHDLId
73 plusplusId = AST.unsafeVHDLBasicId "plusplus"
76 -- | empty function identifier
78 emptyId = AST.unsafeVHDLBasicId "empty"
80 -- | plusgt (function (+>) in original Haskell source) function identifier
81 plusgtId :: AST.VHDLId
82 plusgtId = AST.unsafeVHDLBasicId "plusgt"
84 -- | singleton function identifier
85 singletonId :: AST.VHDLId
86 singletonId = AST.unsafeVHDLBasicId "singleton"
88 -- | length function identifier
89 lengthId :: AST.VHDLId
90 lengthId = AST.unsafeVHDLBasicId "length"
93 -- | isnull (function null in original Haskell source) function identifier
94 isnullId :: AST.VHDLId
95 isnullId = AST.unsafeVHDLBasicId "isnull"
98 -- | replace function identifier
99 replaceId :: AST.VHDLId
100 replaceId = AST.unsafeVHDLBasicId "replace"
103 -- | head function identifier
105 headId = AST.unsafeVHDLBasicId "head"
108 -- | last function identifier
110 lastId = AST.unsafeVHDLBasicId "last"
113 -- | init function identifier
115 initId = AST.unsafeVHDLBasicId "init"
118 -- | tail function identifier
120 tailId = AST.unsafeVHDLBasicId "tail"
123 -- | take function identifier
125 takeId = AST.unsafeVHDLBasicId "take"
128 -- | drop function identifier
130 dropId = AST.unsafeVHDLBasicId "drop"
132 -- | shiftl function identifier
133 shiftlId :: AST.VHDLId
134 shiftlId = AST.unsafeVHDLBasicId "shiftl"
136 -- | shiftr function identifier
137 shiftrId :: AST.VHDLId
138 shiftrId = AST.unsafeVHDLBasicId "shiftr"
140 -- | rotl function identifier
142 rotlId = AST.unsafeVHDLBasicId "rotl"
144 -- | reverse function identifier
146 rotrId = AST.unsafeVHDLBasicId "rotr"
148 -- | reverse function identifier
149 reverseId :: AST.VHDLId
150 reverseId = AST.unsafeVHDLBasicId "reverse"
152 -- | copy function identifier
154 copyId = AST.unsafeVHDLBasicId "copy"
160 -- | Stardard logic type mark
161 std_logicTM :: AST.TypeMark
162 std_logicTM = AST.unsafeVHDLBasicId "std_logic"
164 -- | boolean type mark
165 booleanTM :: AST.TypeMark
166 booleanTM = AST.unsafeVHDLBasicId "boolean"
168 -- | fsvec_index AST. TypeMark
169 tfvec_indexTM :: AST.TypeMark
170 tfvec_indexTM = AST.unsafeVHDLBasicId "tfvec_index"
172 -- | natural AST. TypeMark
173 naturalTM :: AST.TypeMark
174 naturalTM = AST.unsafeVHDLBasicId "natural"