How to bind 'self in parse rules ?

[newbie]

I have an object with a parse rule, and I want to access self/property of that object withing the rule.

Without binding I have this message
** Script Error: self word has no context

So how to bind self within the context of parse rule ?

[Guest]

forgot to mention that's I used compose/deep that's why I have a problem:

obj: make object! [
PROPERTY: TRUE
code: to-block "(self/property: false)"
rules: Compose/deep ["do something" (code)]
probe rules
test: "do something"
parse test rules
]

In console this gives
>> obj: make object! [
[        PROPERTY: TRUE
[        rules: Compose/deep ["do something" (to-block "(bind self 'self self/property: false)")]
[        probe rules
[        test: "do something"
[        parse test rules
[    ]
["do something" (bind self 'self self/property: false)]
** Script Error: bind word has no context
** Near: bind self 'self self/property: false

[Gabriele]

Your problem is not COMPOSE/DEEP, your problem is TO-BLOCK. Do you really need that?

[Guest]

>Your problem is not COMPOSE/DEEP, your problem is TO-BLOCK. Do you really need that?
In case do-something is generated dynamically
In the case of constant code have found this which works (I don't know if it's the most elegant way though):
o: make object! [
property: false
set-property: func [b [block!]][do compose [(B)]]
do-something: [(do bind [set-property [self/property: true]] 'self)]
rules: compose/deep ["do something" (do-something)]
probe rules
test: "do something"
parse test rules
]

>> o: make object! [
[    property: false
[    set-property: func [b [block!]][do compose [(B)]]
[    do-something: [(do bind [set-property [self/property: true]] 'self)]
[    rules: compose/deep ["do something" (do-something)]
[    probe rules
[    test: "do something"
[    parse test rules
[    ]
["do something" (do bind [set-property [self/property: true]] 'self)]
>> o/property
== true
 

[Guest]

In the case the code is dynamically generated I can't find a solution as this doesn't work:
o: make object! [
property: false
set-property: func [b [block!]][do compose [(B)]]
do-something: [(do bind [set-property [self/property: true]] 'self)]
rules: compose/deep ["do something" (to-block "(do bind [set-property [self/property: true]] 'self)")]
probe rules
test: "do something"
parse test rules
]

>> o: make object! [
[    property: false
[    set-property: func [b [block!]][do compose [(B)]]
[    do-something: [(do bind [set-property [self/property: true]] 'self)]
[    rules: compose/deep ["do something" (to-block "(do bind [set-property [self/property: true]] 'self)")]
[    probe rules
[    test: "do something"
[    parse test rules
[    ]
["do something" (do bind [set-property [self/property: true]] 'self)]
** Script Error: do word has no context
** Near: do bind [set-property [self/property: true]] 'self
>>
 

[Gabriele]

You don't need to use strings to dynamically generate code. Use blocks directly.

Code:

>> b: []
== []
>> insert b 'print
== []
>> insert tail b "Hello"
== []
>> do b
Hello

Anyway, if you really need to use strings, use LOAD instead of TO-BLOCK, since the latter does not bind words to the global context, and does not add new words to the global context. You still have to use BIND to bind words to other contexts though.