Ready for Release -v0.1.0.0

.gitignore

@@ -1,4 +1,5 @@
 .stack-work/
 Haskull.cabal
 *~
-.vscode/
+.vscode/
+dist/

src/CodeGen.hs

@@ -41,8 +41,7 @@ module CodeGen (
   br,
   phi,
   cbr,
-  fcmp,
-  uitofp
+  fcmp
 
 )where 
 
@@ -321,6 +320,3 @@ phi ty incoming = instr $ ASTL.Phi ty incoming []
 
 fcmp :: IP.IntegerPredicate -> ASTL.Operand -> ASTL.Operand -> Codegen ASTL.Operand
 fcmp cond a b = instr $ ICmp cond a b []
-
-uitofp :: ASTL.Type -> ASTL.Operand -> Codegen ASTL.Operand
-uitofp ty a = instr $ ASTL.UIToFP a ty []

src/Emit.hs

@@ -90,9 +90,7 @@ fdiv :: ASTL.Operand -> ASTL.Operand -> Codegen ASTL.Operand
 fdiv a b = instr $ ASTL.UDiv False a b []
 
 lesser :: ASTL.Operand -> ASTL.Operand -> Codegen ASTL.Operand
-lesser a b = do
-  test <- fcmp IP.ULT a b
-  uitofp intL test
+lesser a b = fcmp IP.ULT a b
 
 externf :: ASTL.Name -> ASTL.Operand
 externf = ConstantOperand . C.GlobalReference intL

src/Parser.hs

@@ -85,7 +85,8 @@ opParser :: Parser Op
 opParser =  try plusParser 
     <|> try minusParser 
     <|> try mulParser 
-    <|> divideParser
+    <|> try divideParser
+    <|> lessthanParser
 
 plusParser = do
     reservedOp "+"
@@ -103,6 +104,10 @@ divideParser = do
     reservedOp "/"
     return Divide
 
+lessthanParser = do
+    reservedOp "<"
+    return LessThan
+
 -- | Variable Names and identifier -----
 -- NSS
 nameParser :: Parser Name 
@@ -212,7 +217,7 @@ singleParse :: Expr -> Parser BinOpCall
 singleParse (BinOpCallStmt a) = return a
 singleParse lhs = return $ BinOpCall Plus lhs (LiteralStmt (IntLiteral 0))
 
-precedenceTable = Map.fromList[(Plus,10),(Minus,10),(Mul,20),(Divide,20)]
+precedenceTable = Map.fromList[(Plus,10),(Minus,10),(Mul,20),(Divide,20),(LessThan,5)]
 
 getTokPrec op = (Map.lookup op precedenceTable)