Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[REBOL] Re: make/deep functionality?

From: joel:neely:fedex at: 15-Jan-2003 11:17

Hi, Robert, I understand your frustration, but at least REBOL lets you build the variation you want! It is at least consistent (mostly ;-) with the principle that references are shared unless you explicitly ask for a COPY of the reference type. Robert M. Muench wrote:
> Hi, I have the following problem: > > Rebol [] > > my1!: make object! [ > a: [aa 1 bb []] > ] > > my2!: make object! [ > b: make my1! [] > ] > > c: d: none > > make-c: does [c: make my2! []] > make-d: does [d: make my2! [] append d/b/a/bb "Test"] > > make-c > > ?? c > ?? d > > make-d > > ?? c > ?? d > > Halt > > Why is c changed? And how can I avoid this? I need something like > a make/deep or so. This mixed constructor semantic really drives > me nuts... In 99% of all cases, where I use make! I need a new > object with all nested objects being new ones too. >
My experience is the exact converse; almost always when I write proto: make object! [ foo: make object! [...] ... ] a: make proto [gleep: 17] b: make proto [gleep: 42] I *really* want A and B to share the same FOO ! In fact, I once lost way too much time debugging a script that contained something similar to: exemplar: make object! [ bag-o-stuff: [] ... ] x: make exemplar [id: 0] y: make exemplar [id: 1] z: make exemplar [id: 2] because (given the normal "default is shared unless you explicitly request a COPY" rule) I *expected* that X and Y and Z all would share the same BAG-O-STUFF (which is what my algorithm depended on!) I understand that in your example there's some extra typing required, but at least you get the *choice* of controlling when you have or do not have sharing; you can easily define your own object factory to provide a totally unique instance on each evaluation as: object-factory: func [spec [block!]] [ make object! [ spec-block: copy/deep spec new: func [/extend extensions [block!]] [ make object! insert tail copy/deep spec-block either extend [ copy/deep extensions ][ [] ] ] ] ] my1-factory: object-factory [a: [aa 1 bb []]] my2-factory: object-factory [b: my1-factory/new []] c: d: none make-c: does [c: my2-factory/new] make-d: does [d: my2-factory/new append d/b/a/bb "test"] make-c ?? c ?? d make-d ?? c ?? d e: my2-factory/new/extend [fini: "That's all folks!"] ?? c ?? d ?? e The down side is that you have to, the up side is that you *get* to! -jn- -- ---------------------------------------------------------------------- Joel Neely joelDOTneelyATfedexDOTcom 901-263-4446