remove obsolete file
parent
3cdbb05fd3
commit
6937977801
|
@ -1,81 +0,0 @@
|
|||
IN: temporary
|
||||
USING: hashtables inference kernel lists math namespaces
|
||||
sequences test words ;
|
||||
|
||||
: dataflow-contains-op? ( object list -- ? )
|
||||
#! Check if some dataflow node contains a given operation.
|
||||
[ node-op swap hash = ] some-with? ;
|
||||
|
||||
: dataflow-contains-param? ( object list -- ? )
|
||||
#! Check if some dataflow node contains a given operation.
|
||||
[
|
||||
[
|
||||
node-op get #label = [
|
||||
node-param get dataflow-contains-param?
|
||||
] [
|
||||
node-param get =
|
||||
] ifte
|
||||
] bind
|
||||
] some-with? ;
|
||||
|
||||
[ t ] [
|
||||
\ + [ 2 + ] dataflow dataflow-contains-param? >boolean
|
||||
] unit-test
|
||||
|
||||
: inline-test
|
||||
car car ; inline
|
||||
|
||||
! [ t ] [
|
||||
! \ slot [ inline-test ] dataflow dataflow-contains-param? >boolean
|
||||
! ] unit-test
|
||||
|
||||
[ t ] [
|
||||
\ ifte [ [ drop ] [ + ] ifte ] dataflow dataflow-contains-op? >boolean
|
||||
] unit-test
|
||||
|
||||
: dataflow-consume-d-len ( object -- n )
|
||||
[ node-consume-d get length ] bind ;
|
||||
|
||||
: dataflow-produce-d-len ( object -- n )
|
||||
[ node-produce-d get length ] bind ;
|
||||
|
||||
[ t ] [ [ drop ] dataflow car dataflow-consume-d-len 1 = ] unit-test
|
||||
|
||||
[ t ] [ [ 2 ] dataflow car dataflow-produce-d-len 1 = ] unit-test
|
||||
|
||||
: dataflow-ifte-node-consume-d ( list -- node )
|
||||
\ ifte swap dataflow-contains-op? car [ node-consume-d get ] bind ;
|
||||
|
||||
[ t ] [
|
||||
[ [ swap ] [ nip "hi" ] ifte ] dataflow
|
||||
dataflow-ifte-node-consume-d length 1 =
|
||||
] unit-test
|
||||
|
||||
! [ t ] [
|
||||
! [ { [ drop ] [ no-method ] [ drop ] [ no-method ] } generic ] dataflow
|
||||
! \ dispatch swap dataflow-contains-op? car [
|
||||
! node-param get [
|
||||
! [ [ node-param get \ no-method = ] bind ] some?
|
||||
! ] some?
|
||||
! ] bind >boolean
|
||||
! ] unit-test
|
||||
|
||||
SYMBOL: #test
|
||||
|
||||
#test f "foobar" set-word-prop
|
||||
|
||||
[ 6 ] [
|
||||
{{
|
||||
[[ node-op #test ]]
|
||||
[[ node-param 5 ]]
|
||||
}} "foobar" [ [ node-param get ] bind 1 + ] apply-dataflow
|
||||
] unit-test
|
||||
|
||||
#test [ [ node-param get ] bind sq ] "foobar" set-word-prop
|
||||
|
||||
[ 25 ] [
|
||||
{{
|
||||
[[ node-op #test ]]
|
||||
[[ node-param 5 ]]
|
||||
}} "foobar" [ [ node-param get ] bind 1 + ] apply-dataflow
|
||||
] unit-test
|
Loading…
Reference in New Issue