[REBOL] Re: Private Object Function

[CRS - Psy Sel/SPO, COUSSEMENT Christophe, CPN]

> Hi Gabriele,
> 
> how is this any ifferent from what you can do with the current stable
> version (2.3)? 
> The questions, however, remain. 
> a) The protection can be circumvented, in as much as I can use
> get-value's body to access add-one as well as value.
> b) The object o cannot be serialized together with the hidden words.
> 
> BTW, Christoph, what are you trying to accomplish?
         [In the context of the project I'm working on I would like to
implement a coherent OODBMS - which I announce in the list sometime ago. For
this I need to restrict the access to the object's internal implementation.
I should be able to determine which methods can be accessed from the
outside, which not, which should be inherited or not. The solution should
also be applicable for protecting object's properties.

        Regards,

        chr==] 


> Take Care,
> 
> Elan
> 
> I can still access "private" 
> 
> Gabriele Santilli wrote:
> > 
> > Hello COUSSEMENT Christoph!
> > 
> > On 15-Gen-01, you wrote:
> > 
> >  CC>>> o/add-one
> > 
> >  CC> here I should get something like...
> > 
> >  CC> ** Script Error: Invalid path value: add-one.
> >  CC> ** Where: o/add-one
> > 
> > The most recent /Core experimental allows you to write:
> > 
> >   o: make object! [
> >     ; public
> >     get-value: none
> >     ; private
> >     make object! [
> >       value: make integer! 1
> >       add-one: does [value: value + 1]
> >       set 'get-value does [
> >         add-one
> >         print value
> >       ]
> >     ]
> >   ]
> > 
> > or:
> > 
> >   o: make object! [
> >     ; public
> >     get-value: none
> >     ; private
> >     use [value add-one] [
> >       value: make integer! 1
> >       add-one: does [value: value + 1]
> >       get-value: does [
> >         add-one
> >         print value
> >       ]
> >     ]
> >   ]
> > 
> > Regards,
> >     Gabriele.
> > --
> > Gabriele Santilli <[EMAIL PROTECTED]> - Amigan - REBOL programmer
> > Amiga Group Italia sez. L'Aquila -- http://www.amyresource.it/AGI/
> > 
> > --
> > To unsubscribe from this list, please send an email to
> > [EMAIL PROTECTED] with "unsubscribe" in the
> > subject, without the quotes.
> -- 
> To unsubscribe from this list, please send an email to
> [EMAIL PROTECTED] with "unsubscribe" in the 
> subject, without the quotes.
-- 
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the 
subject, without the quotes.