1 ! Copyright (C) 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel present io math sequences assocs math.ranges
4 locals smalltalk.selectors smalltalk.ast smalltalk.classes ;
11 M: object selector-print dup present print ;
12 M: object selector-asString present ;
14 ! Some binary selectors
25 M: object selector-+ swap + ;
26 M: object selector-- swap - ;
27 M: object selector-* swap * ;
28 M: object selector-/ swap / ;
29 M: object selector-< swap < ;
30 M: object selector-> swap > ;
31 M: object selector-<= swap <= ;
32 M: object selector->= swap >= ;
33 M: object selector-= swap = ;
35 ! Some keyword selectors
38 SELECTOR: ifTrue:ifFalse:
40 M: object selector-ifTrue: [ call( -- result ) ] [ drop nil ] if ;
41 M: object selector-ifFalse: [ drop nil ] [ call( -- result ) ] if ;
42 M: object selector-ifTrue:ifFalse: [ drop call( -- result ) ] [ nip call( -- result ) ] if ;
47 M: sequence selector-at: nth ;
48 M: sequence selector-at:put: ( key value receiver -- receiver ) [ swapd set-nth ] keep ;
50 M: assoc selector-at: at ;
51 M: assoc selector-at:put: ( key value receiver -- receiver ) [ swapd set-at ] keep ;
55 M:: object selector-do: ( quot receiver -- nil )
56 receiver [ quot call( elt -- result ) drop ] each nil ;
61 M: object selector-to: swap [a,b] ;
62 M:: object selector-to:do: ( to quot from -- nil )
63 from to [a,b] [ quot call( i -- result ) drop ] each nil ;
67 SELECTOR: value:value:
68 SELECTOR: value:value:value:
69 SELECTOR: value:value:value:value:
71 M: object selector-value call( -- result ) ;
72 M: object selector-value: call( input -- result ) ;
73 M: object selector-value:value: call( input input -- result ) ;
74 M: object selector-value:value:value: call( input input input -- result ) ;
75 M: object selector-value:value:value:value: call( input input input input -- result ) ;
79 M: object selector-new new ;