Anonymous user
Reflection/List methods: Difference between revisions
→{{header|J}}
m (→{{header|J}}) |
|||
Line 270:
=={{header|J}}==
<lang j>
NB. define a stack class
coclass 'Stack'
create =: 3 : 'items =: i. 0'
push =: 3 : '# items =: items , < y'
top =: 3 : '> {: items'
pop =: 3 : ([;._2' a =. top 0; items =: }: items; a;')
destroy =: codestroy
cocurrent 'base'
names_Stack_'' NB. all names
create destroy pop push top
'p' names_Stack_ 3 NB. verbs that start with p
pop push
NB. make an object. The dyadic definition of cownew invokes the create verb
S =: conew~ 'Stack'
names__S'' NB. object specific names
COCREATOR items
pop__S NB. introspection: get the verbs definition
3 : 0
a =. top 0
items =: }: items
a
)
NB. get the search path of object S
copath S
┌─────┬─┐
│Stack│z│
└─────┴─┘
names__S 0 NB. get the object specific data
COCREATOR items
</lang>
| |||