class Lisp::PrimTypeChecks
Public Class Methods
floatp_impl(args, env)
click to toggle source
# File lib/rubylisp/prim_type_checks.rb, line 34 def self.floatp_impl(args, env) val = args.car return Lisp::Boolean.with_value(val.type == :number && val.float?) end
functionp_impl(args, env)
click to toggle source
# File lib/rubylisp/prim_type_checks.rb, line 40 def self.functionp_impl(args, env) val = args.car return Lisp::Boolean.with_value(val.type == :function || val.type == :primitive) end
integerp_impl(args, env)
click to toggle source
# File lib/rubylisp/prim_type_checks.rb, line 28 def self.integerp_impl(args, env) val = args.car return Lisp::Boolean.with_value(val.type == :number && val.integer?) end
nilp_impl(args, env)
click to toggle source
# File lib/rubylisp/prim_type_checks.rb, line 46 def self.nilp_impl(args, env) return Lisp::Boolean.with_value(args.car.nil? || (args.car.pair? && args.car.empty?)) end
not_nilp_impl(args, env)
click to toggle source
# File lib/rubylisp/prim_type_checks.rb, line 51 def self.not_nilp_impl(args, env) return Lisp::FALSE if args.car.nil? return Lisp::TRUE unless args.car.pair? return Lisp::Boolean.with_value(args.car.pair? && !args.car.empty?) end
register()
click to toggle source
# File lib/rubylisp/prim_type_checks.rb, line 5 def self.register Primitive.register("list?", "1") {|args, env| Lisp::PrimTypeChecks::typep_impl(args.car, :pair) } Primitive.register("pair?", "1") {|args, env| Lisp::PrimTypeChecks::typep_impl(args.car, :pair) } Primitive.register("symbol?", "1") {|args, env| Lisp::PrimTypeChecks::typep_impl(args.car, :symbol) } Primitive.register("number?", "1") {|args, env| Lisp::PrimTypeChecks::typep_impl(args.car, :number) } Primitive.register("frame?", "1") {|args, env| Lisp::PrimTypeChecks::typep_impl(args.car, :frame) } Primitive.register("integer?", "1") {|args, env| Lisp::PrimTypeChecks::integerp_impl(args, env) } Primitive.register("float?", "1") {|args, env| Lisp::PrimTypeChecks::floatp_impl(args, env) } Primitive.register("function?", "1") {|args, env| Lisp::PrimTypeChecks::functionp_impl(args, env) } Primitive.register("nil?", "1") {|args, env| Lisp::PrimTypeChecks::nilp_impl(args, env) } Primitive.register("null?", "1") {|args, env| Lisp::PrimTypeChecks::nilp_impl(args, env) } Primitive.register("not-nil?", "1") {|args, env| Lisp::PrimTypeChecks::not_nilp_impl(args, env) } Primitive.register("not-null?", "1") {|args, env| Lisp::PrimTypeChecks::not_nilp_impl(args, env) } end
typep_impl(val, sym)
click to toggle source
# File lib/rubylisp/prim_type_checks.rb, line 23 def self.typep_impl(val, sym) return Lisp::Boolean.with_value(val.type == sym) end