missinglisp 0.0.0 → 0.0.2

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 42f4de8720dddb978bf21be93ef48d8aab819a588ac139245dcbafd541251e32
-  data.tar.gz: e370720f4a3f0eadda1afa9f38fb371eb68be30b886e8274241786d0549dbda0
+  metadata.gz: 3d439126ef5936974b06ea17de05495349e19c0a11118edc19092e873a736436
+  data.tar.gz: f132a6e170876980329bd8b84d20aa1bd7e06f100bf3872b0c0e763535b30505
 SHA512:
-  metadata.gz: e15a0228df6251a9615609bafdf2f182193ac01b71ef840640e14690571d3309eefe791fa1a76cfdc20db972dbc674de9fb45a413782560ba5bbf1e2d1912e50
-  data.tar.gz: ca39b773ab93ad1e52a0867810faa28537761da5a7840988e9e8cf77f9cd17e1d8983147d3e320eb23748914e51878ae20f4e713742dcabb9971b5401d88908b
+  metadata.gz: 84dc4fadf2b03da0d3c6e155b8eacc056bd6565438a4dd08d32bfbdcb4197727ac3000317f8f0b612808af346fd77771385c7731be852a06af7de72f8fe170cb
+  data.tar.gz: 9995f555865a9813a2505c79f2abd9f6823fda4b81311ed312f314f3537f0020d2fe8162067b9bc3740726abc86c4753f02d7544ca990ef066a9584f7e2ca5c0

data/lib/missinglisp.rb

@@ -16,14 +16,27 @@ class Lisp
       gt: ->(a, b, *) { a > b },
       geq: ->(a, b, *) { a >= b },
 
+      # string
+      aref: ->(s, at, *) { s[at] },
+      concatenate: ->(_type, *ls) { ls.reduce(:+) },
+
+      # char
+      codeChar: ->(c, *) { c.chr },
+
+      readLine: ->(*) { $stdin.readline.chomp },
+
       p: ->(*ls) { p ls },
+      print: ->(*ls) { p ls },
+      writeLine: ->(s, *) { puts s },
 
+      t: true,
       nil: []
     }
   end
 
   def eval(exp, env)
     return exp if exp.is_a? Numeric
+    return exp if exp.is_a? String
     return env[exp] if exp.is_a? Symbol
 
     # list
@@ -33,8 +46,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 +62,24 @@ 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|
+      res = self.eval(stmt, env)
+    end
+
+    res
   end
 
   def parse(program)
@@ -57,6 +88,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 +108,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
 
@@ -84,9 +124,12 @@ class Lisp
     res = []
     cur = ''
     is_reading_digit = false
+    is_reading_string = false
     s.each_char do |c|
       case c
       when '_'
+        cur += ' ' and next if is_reading_string
+
         if cur != ''
           if is_reading_digit
             res.push cur.to_i
@@ -125,6 +168,25 @@ class Lisp
         end
 
         res.push :J
+      when 'Q'
+        if is_reading_string
+          res.push cur
+          cur = ''
+          is_reading_string = false
+          next
+        elsif is_reading_digit
+          res.push cur.to_i
+          cur = ''
+          is_reading_digit = false
+          is_reading_string = true
+          next
+        end
+
+        if cur != ''
+          cur += 'Q'
+        else
+          is_reading_string = true
+        end
       when '0'..'9'
         cur += c and next if cur != ''
 
@@ -155,7 +217,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.2
 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:
   - - ">="