Ребол а / местный Объект - PullRequest
Новая
       10

Ребол а / местный Объект

0 голосов
/ 16 декабря 2009

Новая функция ниже не работает, если Obj локальный. Если я удаляю его из / local, он работает. Так что же делать, чтобы заставить его работать с местным Obj спасибо? Конечно, не трудно для вас. 

Person: make object! [

Person: func[FirstName LastName][
     Self/FirstName: FirstName
     Self/LastName: LastName
     Print Self/FirstName
     Print Self/LastName
]
FirstName: ""
LastName: ""

]



new: func[Class [Object!] Param-Block [block!] /local Obj][
    Constructor: to-word pick pick Class 1 2
    Obj: Make Class []
    params: copy ""
    foreach param Param-Block [
      if string? param [
        param: rejoin [{"} param {"}]
      ]
      append params param
      append params " "
    ]
    do rejoin [{do get in Obj Constructor} { } params]
    Obj
]
;FOR TEST
John: new Person["John" "Doe"]

даст 

>> probe John
make object! [
    Person: func [FirstName LastName][
        Self/FirstName: FirstName
        Self/LastName: LastName
        Print Self/FirstName
        Print Self/LastName
    ]
    FirstName: ""
    LastName: ""
]
>>

То есть FirstName и LastName вместо "John" означают "Doe"

1 Ответ

3 голосов
/ 28 декабря 2009

Это работает ... 

    rebol []

    Person: make object! [
        Person: func [ names] [
            Self/FirstName: names/1
            Self/LastName: names/2
        ]
        FirstName: copy ""
        LastName: copy ""
    ]

    new: func [class [object!] param-block [block!]
        /local obj constructor 
    ] [
        constructor: second first class
        obj: make class []
        do get in obj constructor copy param-block
        obj
    ]

    test: new person [ "John" "Doe" ]
    probe test

    make object! [
        Person: func [names][
            Self/FirstName: names/1
            Self/LastName: names/2
        ]
        FirstName: "John"
        LastName: "Doe"
    ]

    test2: new person [ "Dick" "Nixon" ]
    probe test2

    make object! [
        Person: func [names][
            Self/FirstName: names/1
            Self/LastName: names/2
        ]
        FirstName: "Dick"
        LastName: "Nixon"

]
...