X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=GlobalNameTable.hs;h=49b717cfb37994133d0e9470cf25640b46e2890e;hb=3ad8feb4ca1eecfb53bed973d7e0f1c3b4145d0f;hp=6317ebcee9a5125ef01519728edc8f8de05d700f;hpb=4e34d6b1baa6e0754432254fabc2fa822b755f0b;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git diff --git a/GlobalNameTable.hs b/GlobalNameTable.hs index 6317ebc..49b717c 100644 --- a/GlobalNameTable.hs +++ b/GlobalNameTable.hs @@ -18,7 +18,15 @@ mkGlobalNameTable = Map.fromList globalNameTable :: NameTable globalNameTable = mkGlobalNameTable [ ("!" , (2, genExprFCall exId ) ) + , ("replace" , (3, genExprFCall replaceId ) ) , ("head" , (1, genExprFCall headId ) ) + , ("last" , (1, genExprFCall lastId ) ) + , ("tail" , (1, genExprFCall tailId ) ) + , ("init" , (1, genExprFCall initId ) ) + , ("take" , (2, genExprFCall takeId ) ) + , ("drop" , (2, genExprFCall dropId ) ) + , ("+>" , (2, genExprFCall plusgtId ) ) + , ("empty" , (0, genExprFCall emptyId ) ) , ("hwxor" , (2, genExprOp2 AST.Xor ) ) , ("hwand" , (2, genExprOp2 AST.And ) ) , ("hwor" , (2, genExprOp2 AST.Or ) )