nydp 0.1.12 → 0.1.13

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 39e2357b8393c54fc0eea68f0edd2a8d6728ad3a
-  data.tar.gz: 27f90d034ee3a3fa44fe7c24e3a08638ac5b6781
+  metadata.gz: b34a690426dc8586b784561503f93638b4ca32bb
+  data.tar.gz: 4b994623f4c7d685119046f025c1a17adccc7a13
 SHA512:
-  metadata.gz: 18a8c415c0a4c6418a17122fd619cc840120e9a5d3fc0444185399e22d52fe4852c966f60cc67c304e7c2b38e7b449459d5cbac498caa67fe405de8eb56809a1
-  data.tar.gz: b959fde0c9b6e51957687eccdd7252cacea90e51a82d8d166242aaaa41835035ecec79987a3cbe4ee741b2097f131401f094739e5f1b4cb5e26789992cb31c95
+  metadata.gz: c32cbeb7b3013042d8712958e3cafe4062f7b75850e20c9162e273bdea45d1b38e9dc61fbcabb597dacdf512b535db8e227c323c8c23726677c56d58e4d626e0
+  data.tar.gz: d687ddbe01b2e0aaddeecbe7849a5d4aeb6cc3c7c253d11f57555e2386670ed8252ec5338b34ee0ab8e5b59932ec9c9c424283b4985614bf79f3485a726d9ba2

data/lib/lisp/core-100-utils.nydp

@@ -57,3 +57,16 @@
 (mac auto-hash names
   ; (auto-hash a b c) same as { a a b b c c }
   `(brace-list ,@(flatten:map λn(list n n) names)))
+
+(mac accum (accfn-name . body)
+  (w/uniq acc
+    `(let ,acc nil
+       (let ,accfn-name λa(push a ,acc)
+         ,@body
+         (rev ,acc)))))
+
+(mac ++ (place inc)
+  `(= ,place (+ ,place ,(or inc 1))))
+
+(def seqf (start incr)
+  (fn () (returning start (++ start incr))))

data/lib/lisp/tests/accum-examples.nydp

@@ -0,0 +1,7 @@
+(examples-for accum
+  ("accumulate the values passed to a given function and return the list"
+   (accum a
+          (a 1)
+          (a 2)
+          (a 3))
+   (1 2 3)))

data/lib/lisp/tests/plus-plus-examples.nydp

@@ -0,0 +1,15 @@
+(examples-for ++
+  ("increments a variable"
+   (let a 3
+     (++ a)
+     (++ a)
+     (++ a)
+     a)
+   6)
+  ("increments a variable by the specified amount"
+   (let a 5
+     (++ a 3)
+     (++ a 4)
+     (++ a 5)
+     a)
+   17))

data/lib/lisp/tests/seqf-examples.nydp

@@ -0,0 +1,5 @@
+(examples-for seqf
+  ("returns a function that returns the next number in a sequence when called"
+   (let s (seqf 10 2)
+     (list (s) (s) (s) (s)))
+   (10 12 14 16)))

data/lib/nydp.rb

@@ -33,9 +33,10 @@ module Nydp
     vm.thread
   end
 
-  def self.eval_src ns, src_txt
-    Nydp::Runner.new(VM.new, ns, Nydp::StringReader.new(src_txt)).run
-  end
+  def self.reader                    txt ; Nydp::StringReader.new txt                  ; end
+  def self.eval_src          ns, src_txt ; eval_with Nydp::Runner, ns, src_txt         ; end
+  def self.eval_src!         ns, src_txt ; eval_with Nydp::ExplodeRunner, ns, src_txt  ; end
+  def self.eval_with runner, ns, src_txt ; runner.new(VM.new, ns, reader(src_txt)).run ; end
 
   def self.repl
     puts "welcome to nydp"

data/lib/nydp/version.rb

@@ -1,3 +1,3 @@
 module Nydp
-  VERSION = "0.1.12"
+  VERSION = "0.1.13"
 end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: nydp
 version: !ruby/object:Gem::Version
-  version: 0.1.12
+  version: 0.1.13
 platform: ruby
 authors:
 - Conan Dalton
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2016-02-05 00:00:00.000000000 Z
+date: 2016-02-26 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: bundler
@@ -98,6 +98,7 @@ files:
 - lib/lisp/core-080-pretty-print.nydp
 - lib/lisp/core-090-hook.nydp
 - lib/lisp/core-100-utils.nydp
+- lib/lisp/tests/accum-examples.nydp
 - lib/lisp/tests/add-hook-examples.nydp
 - lib/lisp/tests/auto-hash-examples.nydp
 - lib/lisp/tests/best-examples.nydp
@@ -127,6 +128,7 @@ files:
 - lib/lisp/tests/list-tests.nydp
 - lib/lisp/tests/mapsum-examples.nydp
 - lib/lisp/tests/parser-tests.nydp
+- lib/lisp/tests/plus-plus-examples.nydp
 - lib/lisp/tests/pre-compile-examples.nydp
 - lib/lisp/tests/pretty-print-tests.nydp
 - lib/lisp/tests/quasiquote-examples.nydp
@@ -134,6 +136,7 @@ files:
 - lib/lisp/tests/relative-months-examples.nydp
 - lib/lisp/tests/returning-examples.nydp
 - lib/lisp/tests/rfnwith-tests.nydp
+- lib/lisp/tests/seqf-examples.nydp
 - lib/lisp/tests/sort-examples.nydp
 - lib/lisp/tests/string-tests.nydp
 - lib/lisp/tests/syntax-tests.nydp