Class: Nydp::Core

Inherits:
Object
  • Object
show all
Defined in:
lib/nydp/core.rb

Instance Method Summary collapse

Instance Method Details

#load_rake_tasks ⇒ Object 



11
12
13
 
# File 'lib/nydp/core.rb', line 11

def load_rake_tasks
  load relative_path '../tasks/tests.rake'
end

#loadfiles ⇒ Object 



15
16
17
18
19
 
# File 'lib/nydp/core.rb', line 15

def loadfiles
  b = relative_path('../lisp/boot.nydp')
  t = relative_path('../lisp/test-runner.nydp')
  [b,t]
end

#name ⇒ Object 



5
 
# File 'lib/nydp/core.rb', line 5

def name ; "Nydp Core" ; end

#relative_path(name) ⇒ Object 



7
8
9
 
# File 'lib/nydp/core.rb', line 7

def relative_path name
  File.join File.expand_path(File.dirname(__FILE__)), name
end

#setup(ns) ⇒ Object 



25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
 
# File 'lib/nydp/core.rb', line 25

def setup ns
  Symbol.mk(:cons,  ns).assign(Nydp::Builtin::Cons.new)
  Symbol.mk(:car,   ns).assign(Nydp::Builtin::Car.new)
  Symbol.mk(:cdr,   ns).assign(Nydp::Builtin::Cdr.new)
  Symbol.mk(:+,     ns).assign(Nydp::Builtin::Plus.new)
  Symbol.mk(:-,     ns).assign(Nydp::Builtin::Minus.new)
  Symbol.mk(:*,     ns).assign(Nydp::Builtin::Times.new)
  Symbol.mk(:/,     ns).assign(Nydp::Builtin::Divide.new)
  Symbol.mk(:>,     ns).assign(Nydp::Builtin::GreaterThan.new)
  Symbol.mk(:<,     ns).assign(Nydp::Builtin::LessThan.new)
  Symbol.mk(:eval,  ns).assign(Nydp::Builtin::Eval.new(ns))
  Symbol.mk(:hash,  ns).assign(Nydp::Builtin::Hash.new)
  Symbol.mk(:apply, ns).assign(Nydp::Builtin::Apply.new)
  Symbol.mk(:error, ns).assign(Nydp::Builtin::Error.new)
  Symbol.mk(:quit,  ns).assign(Nydp::Builtin::Quit.new)
  Symbol.mk(:p,     ns).assign(Nydp::Builtin::Puts.new)
  Symbol.mk(:PI,    ns).assign Literal.new(3.1415)
  Symbol.mk(:nil,   ns).assign Nydp.NIL
  Symbol.mk(:t,     ns).assign Nydp.T
  Symbol.mk(:sym,   ns).assign Nydp::Builtin::ToSym.new(ns)
  Symbol.mk(:ensuring,      ns).assign(Nydp::Builtin::Ensuring.new)
  Symbol.mk(:inspect,       ns).assign(Nydp::Builtin::Inspect.new)
  Symbol.mk(:comment,       ns).assign(Nydp::Builtin::Comment.new)
  Symbol.mk(:millisecs,     ns).assign(Nydp::Builtin::Millisecs.new)
  Symbol.mk("load-tests",   ns).assign(Nydp::Builtin::LoadTests.new(ns))
  Symbol.mk("random-string",ns).assign(Nydp::Builtin::RandomString.new)
  Symbol.mk("to-string",    ns).assign(Nydp::Builtin::ToString.new)
  Symbol.mk("string-pieces",ns).assign(Nydp::Builtin::StringPieces.new)
  Symbol.mk("string-replace", ns).assign(Nydp::Builtin::StringReplace.new)
  Symbol.mk("string-split"  , ns).assign(Nydp::Builtin::StringSplit.new  )
  Symbol.mk("thread-locals" , ns).assign(Nydp::Builtin::ThreadLocals.new)
  Symbol.mk("type-of",      ns).assign(Nydp::Builtin::TypeOf.new(ns))
  Symbol.mk(:"eq?",         ns).assign(Nydp::Builtin::IsEqual.new)
  Symbol.mk(:"pair?",       ns).assign(Nydp::Builtin::IsPair.new)
  Symbol.mk(:"cdr-set",     ns).assign(Nydp::Builtin::CdrSet.new)
  Symbol.mk(:"hash-get",    ns).assign(Nydp::Builtin::HashGet.new)
  Symbol.mk(:"hash-set",    ns).assign(Nydp::Builtin::HashSet.new)
  Symbol.mk(:"hash-keys",   ns).assign(Nydp::Builtin::HashKeys.new)
  Symbol.mk(:"vm-info",     ns).assign Nydp::Builtin::VmInfo.new
  Symbol.mk(:"pre-compile", ns).assign Nydp::Builtin::PreCompile.new
end

#testfiles ⇒ Object 



21
22
23
 
# File 'lib/nydp/core.rb', line 21

def testfiles
  Dir.glob(relative_path '../lisp/tests/**/*.nydp')
end