MORPH
SIGN IN SIGN UP
kanaka / mal UNCLAIMED

mal - Make a Lisp

0 0 0 Assembly
Normal View History Raw
ruby.2 step 1
2021-11-19 20:32:12 -07:00
module Mal
module Types
ruby.2 step A; functional self-hosting of mal on mal; refactor if internal mal fn arg passing;
2021-12-10 17:56:47 -07:00
class Args < ::Array
end
ruby.2 step 8
2021-12-01 14:33:46 -07:00
class List < ::Array
ruby.2 step A; functional self-hosting of mal on mal; refactor if internal mal fn arg passing;
2021-12-10 17:56:47 -07:00
def meta
@meta ||= Types::Nil.instance
end
def meta=(value)
@meta = value
end
ruby.2 step 8
2021-12-01 14:33:46 -07:00
def to_list
self
end
end
class Vector < ::Array
ruby.2 step A; functional self-hosting of mal on mal; refactor if internal mal fn arg passing;
2021-12-10 17:56:47 -07:00
def meta
@meta ||= Types::Nil.instance
end
def meta=(value)
@meta = value
end
ruby.2 step 8
2021-12-01 14:33:46 -07:00
def to_list
List.new(self)
end
end
ruby.2 step A; functional self-hosting of mal on mal; refactor if internal mal fn arg passing;
2021-12-10 17:56:47 -07:00
class Hashmap < ::Hash
def meta
@meta ||= Types::Nil.instance
end
def meta=(value)
@meta = value
end
end
ruby.2 step 1
2021-11-19 20:32:12 -07:00
ruby.2 step 6 (and fixes for comments and fn creation)
2021-11-30 20:32:59 -07:00
class Base < ::Struct.new(:value)
ruby.2 step 4 & 5
2021-11-26 17:00:10 -07:00
def inspect
ruby.2 step 6 (and fixes for comments and fn creation)
2021-11-30 20:32:59 -07:00
value.inspect
ruby.2 step 4 & 5
2021-11-26 17:00:10 -07:00
end
end
ruby.2 step 3
2021-11-22 11:34:21 -07:00
ruby.2 step 6 (and fixes for comments and fn creation)
2021-11-30 20:32:59 -07:00
class String < Base; end
class Atom < Base
def inspect
"Atom<#{value.inspect}>"
end
end
class Keyword < Base
ruby.2 step 3
2021-11-22 11:34:21 -07:00
def self.for(value)
@_keywords ||= {}
if @_keywords.key?(value)
@_keywords[value]
else
@_keywords[value] = new(value)
end
end
end
ruby.2 step 2
2021-11-21 15:57:26 -07:00
ruby.2 step 6 (and fixes for comments and fn creation)
2021-11-30 20:32:59 -07:00
class Number < Base
ruby.2 step 2
2021-11-21 15:57:26 -07:00
def +(other)
self.class.new(value + other.value)
end
def -(other)
self.class.new(value - other.value)
end
def *(other)
self.class.new(value * other.value)
end
def /(other)
self.class.new(value / other.value)
end
end
ruby.2 step 6 (and fixes for comments and fn creation)
2021-11-30 20:32:59 -07:00
class Symbol < Base
ruby.2 step 3
2021-11-22 11:34:21 -07:00
def self.for(value)
@_symbols ||= {}
if @_symbols.key?(value)
@_symbols[value]
else
@_symbols[value] = new(value)
end
end
ruby.2 step 6 (and fixes for comments and fn creation)
2021-11-30 20:32:59 -07:00
def inspect
value
end
ruby.2 step 3
2021-11-22 11:34:21 -07:00
end
ruby.2 step 1
2021-11-19 20:32:12 -07:00
ruby.2 step 6 (and fixes for comments and fn creation)
2021-11-30 20:32:59 -07:00
class Nil < Base
ruby.2 step 3
2021-11-22 11:34:21 -07:00
def self.instance
ruby.2 step 4 & 5
2021-11-26 17:00:10 -07:00
@_instance ||= new(nil)
ruby.2 step 3
2021-11-22 11:34:21 -07:00
end
ruby.2 step 4 & 5
2021-11-26 17:00:10 -07:00
def inspect
"nil"
ruby.2 step 1
2021-11-19 20:32:12 -07:00
end
end
ruby.2 step 6 (and fixes for comments and fn creation)
2021-11-30 20:32:59 -07:00
class True < Base
ruby.2 step 3
2021-11-22 11:34:21 -07:00
def self.instance
ruby.2 step 4 & 5
2021-11-26 17:00:10 -07:00
@_instance ||= new(true)
ruby.2 step 1
2021-11-19 20:32:12 -07:00
end
end
ruby.2 step 6 (and fixes for comments and fn creation)
2021-11-30 20:32:59 -07:00
class False < Base
ruby.2 step 3
2021-11-22 11:34:21 -07:00
def self.instance
ruby.2 step 4 & 5
2021-11-26 17:00:10 -07:00
@_instance ||= new(false)
end
end
class Callable
def initialize(&block)
@fn = block
end
ruby.2 step A; functional self-hosting of mal on mal; refactor if internal mal fn arg passing;
2021-12-10 17:56:47 -07:00
def call(args = nil)
args = Types::Args.new if args.nil?
raise unless args.is_a?(Types::Args)
@fn.call(*args)
ruby.2 step 4 & 5
2021-11-26 17:00:10 -07:00
end
def inspect
ruby.2 step A; functional self-hosting of mal on mal; refactor if internal mal fn arg passing;
2021-12-10 17:56:47 -07:00
raise NotImplementedError, "invalid callable"
ruby.2 step 4 & 5
2021-11-26 17:00:10 -07:00
end
ruby.2 step 8
2021-12-01 14:33:46 -07:00
def is_mal_fn?
false
end
def is_macro?
false
end
ruby.2 step A; functional self-hosting of mal on mal; refactor if internal mal fn arg passing;
2021-12-10 17:56:47 -07:00
def meta
@meta ||= Types::Nil.instance
end
def meta=(value)
@meta = value
end
ruby.2 step 4 & 5
2021-11-26 17:00:10 -07:00
end
class Builtin < Callable
ruby.2 step A; functional self-hosting of mal on mal; refactor if internal mal fn arg passing;
2021-12-10 17:56:47 -07:00
attr_reader :name
def initialize(name, &block)
@name = name
@fn = block
end
ruby.2 step 4 & 5
2021-11-26 17:00:10 -07:00
def inspect
ruby.2 step A; functional self-hosting of mal on mal; refactor if internal mal fn arg passing;
2021-12-10 17:56:47 -07:00
"#<builtin '#{name}'>"
ruby.2 step 4 & 5
2021-11-26 17:00:10 -07:00
end
ruby.2 step 8
2021-12-01 14:33:46 -07:00
end
class Function < Callable
attr_reader :ast, :params, :env
def initialize(ast, params, env, &block)
@ast = ast
@params = params
@env = env
@fn = block
end
def inspect
"#<function>"
end
ruby.2 step 4 & 5
2021-11-26 17:00:10 -07:00
def is_mal_fn?
ruby.2 step 8
2021-12-01 14:33:46 -07:00
true
end
def to_macro
Macro.new(ast, params, env, &@fn)
ruby.2 step 4 & 5
2021-11-26 17:00:10 -07:00
end
end
ruby.2 step 8
2021-12-01 14:33:46 -07:00
class Macro < Callable
ruby.2 step 4 & 5
2021-11-26 17:00:10 -07:00
attr_reader :ast, :params, :env
def initialize(ast, params, env, &block)
@ast = ast
@params = params
@env = env
@fn = block
end
def inspect
ruby.2 step 8
2021-12-01 14:33:46 -07:00
"#<macro>"
ruby.2 step 3
2021-11-22 11:34:21 -07:00
end
ruby.2 step 4 & 5
2021-11-26 17:00:10 -07:00
def is_mal_fn?
true
ruby.2 step 1
2021-11-19 20:32:12 -07:00
end
ruby.2 step 8
2021-12-01 14:33:46 -07:00
def is_macro?
true
end
ruby.2 step 1
2021-11-19 20:32:12 -07:00
end
end
end
Reference in New Issue Copy Permalink