Adding vendor libraries. Starting CSV reading library.

Author: mirvoxtm

docs/install/install_bern.ps1

@@ -7,7 +7,7 @@
 
 $ErrorActionPreference = 'Stop'
 
-$installDir = "C:\Beraan"
+$installDir = "C:\Bern"
 $repo = "mirvoxtm/Bern"
  $zipName = "Bern_win_1.0.1.zip"
  $exeName = "Bern.exe"

lib/vendor/csv.brn

@@ -0,0 +1,39 @@
+import core
+import strings
+
+def read_csv(file_name) do
+    content = read_file(file_name)
+    lines = split(content, "\n")
+    obj = #{}#
+    idx = 0
+    for line in lines do
+        fields = split(line, ",")
+        obj["" + idx] = fields
+        idx = idx + 1
+    end
+    return transform_csv(obj)
+end
+
+def transform_csv(raw_data) do
+    headers = raw_data["0"]
+    result = #{}#
+    idx = 1
+    
+    for idx < (:> raw_data) do
+        row = raw_data["" + idx]
+        row_obj = #{}#
+        field_idx = 0
+        
+        for field_idx < (:> headers) do
+            row_obj[headers[field_idx]] = row[field_idx]
+            field_idx = field_idx + 1
+        end
+        
+        result["" + (idx - 1)] = row_obj
+        idx = idx + 1
+    end
+    
+    return result
+end
+
+-- TODO: write_csv -- #{}# -> file

src/Language/Eval.hs

@@ -409,6 +409,11 @@ evaluate (Index expr idxExpr) table = do
                                 Just v  -> Right v
                                 Nothing -> Left ("Key not found: " ++ key)
                 Nothing -> Left "Index must be integer or string (in case of objects)"
+        (Object kvs, Integer i) ->
+            let key = show i in
+            case lookup key kvs of
+                Just v  -> Right v
+                Nothing -> Left ("Key not found: " ++ key)
         (Object kvs, Character c) ->
             case lookup [c] kvs of
                 Just v  -> Right v
@@ -911,6 +916,7 @@ evalUnaryOp SizeOf v
     | Just s <- valueToString v = Right (Integer (length s))
 evalUnaryOp SizeOf (List _ len) = Right (Integer len)
 evalUnaryOp SizeOf (Set _ len) = Right (Integer len)
+evalUnaryOp SizeOf (Object kvs) = Right (Integer (length kvs))
 evalUnaryOp _ _ = Left "Type error in unary operation"
 
 evalUnion :: BinaryOperation -> Value -> Value -> Either String Value

src/Parsing/Parser.hs

@@ -557,7 +557,7 @@ parseForIn = do
     _ <- symbol "for"
     varName <- lexeme $ some letterChar
     idxVar <- optional (symbol "," >> lexeme (some letterChar))
-    _ <- symbol ":"
+    _ <- symbol ":" <|> symbol "in"
     collection <- parseExpression
     _ <- symbol "do"
     body <- parseBlockCommands