More stdlib

Author: MatheusRich

src/lit/stdlib/lit_array.cr

@@ -96,6 +96,26 @@ module Lit
             end
           )
         })
+      when "any?"
+        ::Lit::Native::Fn.new(name.lexeme, 1, ->(interpreter : Interpreter, arguments : ::Array(Value), token : Token) : Value {
+          fn = arguments[0]
+          if !fn.is_a?(Function)
+            raise RuntimeError.new(token, "Expected function as the first argument, got #{interpreter.type_of(fn)}.")
+          end
+          @elements.any? do |element|
+            fn.call(interpreter, [element], token).as(Bool)
+          end
+        })
+      when "all?"
+        ::Lit::Native::Fn.new(name.lexeme, 1, ->(interpreter : Interpreter, arguments : ::Array(Value), token : Token) : Value {
+          fn = arguments[0]
+          if !fn.is_a?(Function)
+            raise RuntimeError.new(token, "Expected function as the first argument, got #{interpreter.type_of(fn)}.")
+          end
+          @elements.all? do |element|
+            fn.call(interpreter, [element], token).as(Bool)
+          end
+        })
       when "sample"
         ::Lit::Native::Fn.new(name.lexeme, 0, ->(_interpreter : Interpreter, _arguments : ::Array(Value), _token : Token) : Value {
           @elements.sample

src/lit/stdlib/native.cr

@@ -136,6 +136,11 @@ module Lit
           ::Lit::Native::Fn.new("argv", 0, ->(interpreter : Interpreter, _arguments : ::Array(Value), _token : Token) : Value {
             interpreter.argv
           }),
+          ::Lit::Native::Fn.new("env", 0, ->(interpreter : Interpreter, _arguments : ::Array(Value), _token : Token) : Value {
+            LitMap.new(
+              ENV.to_h { |key, value| {key.as(Value), value.as(Value)} }
+            )
+          }),
         ]
       end
     end