X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Constants.hs;h=c392521becb7817da215ee3ad379d976f6b80842;hb=1d2f36c370db9ef82667741cc9414f9896084af3;hp=d941e13671697b88c4103cbaa0e11c925583c542;hpb=1643800a4ef64501806747d2cafe917be7b1b3b2;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git diff --git a/Constants.hs b/Constants.hs index d941e13..c392521 100644 --- a/Constants.hs +++ b/Constants.hs @@ -95,8 +95,8 @@ lengthId = "length" -- | isnull (function null in original Haskell source) function identifier -isnullId :: String -isnullId = "isnull" +nullId :: String +nullId = "null" -- | replace function identifier @@ -149,14 +149,38 @@ rotlId = "rotl" rotrId :: String rotrId = "rotr" +-- | concatenate the vectors in a vector +concatId :: String +concatId = "concat" + -- | reverse function identifier reverseId :: String reverseId = "reverse" +-- | iterate function identifier +iterateId :: String +iterateId = "iterate" + +-- | iteraten function identifier +iteratenId :: String +iteratenId = "iteraten" + +-- | iterate function identifier +generateId :: String +generateId = "generate" + +-- | iteraten function identifier +generatenId :: String +generatenId = "generaten" + -- | copy function identifier copyId :: String copyId = "copy" +-- | copyn function identifier +copynId :: String +copynId = "copyn" + -- | map function identifier mapId :: String mapId = "map" @@ -165,9 +189,22 @@ mapId = "map" zipWithId :: String zipWithId = "zipWith" +-- | foldl function identifier foldlId :: String foldlId = "foldl" +-- | foldr function identifier +foldrId :: String +foldrId = "foldr" + +-- | zip function identifier +zipId :: String +zipId = "zip" + +-- | unzip function identifier +unzipId :: String +unzipId = "unzip" + -- | hwxor function identifier hwxorId :: String hwxorId = "hwxor" @@ -184,6 +221,42 @@ hwnotId = "hwnot" hwandId :: String hwandId = "hwand" +lengthTId :: String +lengthTId = "lengthT" + +-- Numeric Operations + +-- | plus operation identifier +plusId :: String +plusId = "+" + +-- | times operation identifier +timesId :: String +timesId = "*" + +-- | negate operation identifier +negateId :: String +negateId = "negate" + +-- | minus operation identifier +minusId :: String +minusId = "-" + +-- | convert sizedword to ranged +fromSizedWordId :: String +fromSizedWordId = "fromSizedWord" + +toIntegerId :: String +toIntegerId = "to_integer" + +fromIntegerId :: String +fromIntegerId = "fromInteger" + +toSignedId :: String +toSignedId = "to_signed" + +toUnsignedId :: String +toUnsignedId = "to_unsigned" ------------------ -- VHDL type marks @@ -212,3 +285,11 @@ naturalTM = AST.unsafeVHDLBasicId "natural" -- | integer TypeMark integerTM :: AST.TypeMark integerTM = AST.unsafeVHDLBasicId "integer" + +-- | signed TypeMark +signedTM :: AST.TypeMark +signedTM = AST.unsafeVHDLBasicId "signed" + +-- | unsigned TypeMark +unsignedTM :: AST.TypeMark +unsignedTM = AST.unsafeVHDLBasicId "unsigned"