steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

code-arrays: move to unmaintained

db4
Doug Coleman 2015-07-21 11:22:13 -07:00
parent 9ec74563ba
commit 1b4048232a
3 changed files with 0 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
extra/code-arrays/authors.txt
View File

@ -1 +0,0 @@
Doug Coleman

13
extra/code-arrays/code-arrays-tests.factor
View File

@ -1,13 +0,0 @@
! Copyright (C) 2011 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: code-arrays locals math tools.test ;
IN: code-arrays.tests
{ { 1 2 9 } } [ {{ 1 2 3 sq }} ] unit-test
{ { 1 2 { 9 } } } [ {{ 1 2 {{ 3 sq }} }} ] unit-test
{ H{ { 9 3 } { 4 1 } } } [ H{{ {{ 3 sq 3 }} {{ 2 sq 1 }} }} ] unit-test
:: local-code-arrays ( -- seq ) {{ 1 2 3 + }} ;
{ { 1 5 } } [ local-code-arrays ] unit-test

25
extra/code-arrays/code-arrays.factor
View File

@ -1,25 +0,0 @@
! Copyright (C) 2011 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: combinators.smart hashtables kernel parser quotations
sequences vectors ;
IN: code-arrays
: parse-code-array ( delimiter quot stack -- seq )
[ parse-until >quotation ] dip curry append! ;
DEFER: }}
DEFER: ]]
SYNTAX: {{ \ }} [ output>array ] parse-code-array ;
SYNTAX: [[ \ ]] [ [ ] output>sequence ] parse-code-array ;
SYNTAX: H{{ \ }} [ output>array >hashtable ] parse-code-array ;
SYNTAX: V{{ \ }} [ V{ } output>sequence ] parse-code-array ;
: vector ( seq -- vector ) >vector ;
: hashtable ( seq -- hashtable ) >hashtable ;
: quotation ( seq -- vector ) >quotation ;