missinglisp 0.0.0 → 0.0.1

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 42f4de8720dddb978bf21be93ef48d8aab819a588ac139245dcbafd541251e32
-  data.tar.gz: e370720f4a3f0eadda1afa9f38fb371eb68be30b886e8274241786d0549dbda0
+  metadata.gz: 2d943518d524706f9cac981ad41c1cb031a87016e286c12804d424af0528c121
+  data.tar.gz: bbc3ce8ab2de2fa384444a4b00c1cb3fbe1ea16fbc37470a56cf0e0828746134
 SHA512:
-  metadata.gz: e15a0228df6251a9615609bafdf2f182193ac01b71ef840640e14690571d3309eefe791fa1a76cfdc20db972dbc674de9fb45a413782560ba5bbf1e2d1912e50
-  data.tar.gz: ca39b773ab93ad1e52a0867810faa28537761da5a7840988e9e8cf77f9cd17e1d8983147d3e320eb23748914e51878ae20f4e713742dcabb9971b5401d88908b
+  metadata.gz: 7f1ab35b50356a81b4a146424a254eec5d9bf0e54ed3d7641ca38d25bacc5e96e75d0ac0522e5a91d013745c242118c28d0ea8922bcd037f210b499d1996b98d
+  data.tar.gz: 474e2c0137ebcab5b129088d9c4cdeaa06abf47f1f17ad173deccb4e86c800956f73f513d2df8b8a41cf7d5ebaf125a0421d54e15fafe1f87a0dd032a0691ccf

data/lib/missinglisp.rb

@@ -18,6 +18,7 @@ class Lisp
 
       p: ->(*ls) { p ls },
 
+      t: true,
       nil: []
     }
   end
@@ -33,8 +34,11 @@ class Lisp
     elsif exp[0] == :if
       _, test, e1, e2 = exp
       test = self.eval(test, env)
-      return self.eval(e1, env) if test.is_a?(Array) && !test.empty?
-      return self.eval(e1, env) unless test.is_a?(Array) || !test
+      truthy = if test.is_a?(Array) then !test.empty? else test end
+
+      if truthy
+        return self.eval(e1, env)
+      end
 
       return self.eval(e2, env)
     elsif exp[0] == :define
@@ -46,9 +50,25 @@ class Lisp
       return ->(*args) { self.eval(e, env.merge(Hash[params.zip(args)])) }
     end
 
-    args = exp[1..].map { |c| self.eval(c, env) }
-    env[exp.first]
-      .call(*args)
+    # function application
+    values = exp.map { |c| self.eval(c, env) }
+    values[0].call(*values[1..])
+  end
+
+  # Evaluates list of lisp values e.g. Ldefine_a_1JLp_a_J
+  def eval_stmts(exp, env)
+    if !exp.is_a?(Array)
+      STDERR.puts 'eval_stmts: not a list'
+      exit 1
+    end
+
+    res = nil
+    exp.each do |stmt|
+      # p stmt
+      res = self.eval(stmt, env)
+    end
+
+    res
   end
 
   def parse(program)
@@ -57,6 +77,15 @@ class Lisp
   end
 
   def _parse(tokens)
+    stmts = []
+    while !tokens.empty?
+      stmts << parse_stmt(tokens)
+    end
+
+    stmts
+  end
+
+  def parse_stmt(tokens)
     return if tokens.empty?
 
     token = tokens.shift
@@ -68,7 +97,7 @@ class Lisp
       while tokens.first != :J
         raise 'unexpected end of input' if tokens.empty?
 
-        list << _parse(tokens)
+        list << parse_stmt(tokens)
       end
       tokens.shift
 
@@ -155,7 +184,7 @@ module Kernel
   def eval_lisp(s)
     @l ||= Lisp.new
     @e ||= @l.initial_env
-    @l.eval(@l.parse(s), @e)
+    @l.eval_stmts(@l.parse(s), @e)
   end
 
   def method_missing(m, *args, &block)

metadata

@@ -1,14 +1,15 @@
 --- !ruby/object:Gem::Specification
 name: missinglisp
 version: !ruby/object:Gem::Version
-  version: 0.0.0
+  version: 0.0.1
 platform: ruby
 authors:
 - Yajima Soichi
 bindir: bin
 cert_chain: []
-date: 2025-05-10 00:00:00.000000000 Z
+date: 2025-05-11 00:00:00.000000000 Z
 dependencies: []
+description: Lisp programming using Ruby variable names
 email: jajima.jp@gmail.com
 executables: []
 extensions: []
@@ -18,7 +19,8 @@ files:
 homepage: https://github.com/jajimajp/missinglisp
 licenses:
 - MIT
-metadata: {}
+metadata:
+  source_code_uri: https://github.com/jajimajp/missinglisp
 rdoc_options: []
 require_paths:
 - lib
@@ -26,7 +28,7 @@ required_ruby_version: !ruby/object:Gem::Requirement
   requirements:
   - - ">="
     - !ruby/object:Gem::Version
-      version: '0'
+      version: '3.0'
 required_rubygems_version: !ruby/object:Gem::Requirement
   requirements:
   - - ">="