與紅/ REBOL

Question

字類型的處理塊參數調用時：

f [(h test) (h test2)] 

我想：

"<p><h1>test</h1><h1>test2</h1></p>" 

相反，我得到：

"<h1>test2</h1></p>" 

我不能看看爲什麼我的代碼不起作用。請注意，我想在下面使用g函數，因爲我有幾個像函數一樣的函數，每個函數都會調用g來分解它們。所以不要擺脫它，這是故意的。

html: copy "" 
emit: func [code] [repend html code] 

f: func [param [block!]] [ 
    html: copy "" 
    emit: func [code] [repend html code] 
    emit <p> 
    foreach p param [ 
     emit p 
    ] 
    emit </p> 
    return html 
] 

g: func ['arg [string! word!] /local html] [ 
    return h :arg 
] 

h: func ['arg [string! word!]] [ 
    either word? arg [ 
     text: to-string arg 
    ][ 
     text: arg 
    ] 

    html: copy "" 
    emit: func [code] [repend html code] 

    print text 
    emit <h1> 
    emit text 
    emit </h1> 
    return html 
] 

f [(h test) (h test2)] 

更新：

現在我得到了紅色的錯誤： 腳本錯誤：HTML是不是在指定的上下文

f: func[param [block!] /local html][ 
     html: copy "" 
     emit: func [code] [repend html code] 
     emit <p> 
     foreach p param [ 
      emit p 
     ] 
     emit </p> 
     return html 
    ] 

    g: func['arg [string! word!] /local html][ 
    return h :arg 
    ] 


    h: func['arg [string! word!] /local html][ 

     either word? arg [text: to-string arg][ 
     text: arg 
     ] 


     html: copy "" 
     emit: func [code] [repend html code] 

     print text 
     emit <h1> 
     emit text 
     emit </h1> 

     return html 

    ] 

    f [(h test) (h test2)] 

Answer 1

好吧，這裏一稍微優化版本爲紅色和雷博爾沒有本功能或功能

emit: func [code html] [repend html code] 

f: func[param [block!] /local html][ 
    html: copy "" 
    emit <p> html 
    foreach p param [ 
     emit p html 
    ] 
    emit </p> html 
    return html 
] 

g: func['arg [string! word!] l][ 
    return h :arg 
] 


h: func['arg [string! word!] /local html text][ 
    either word? arg [text: to-string arg][ 
     text: arg 
    ] 
    html: copy "" 
    print text 
    emit <h1> html 
    emit text html 
    emit </h1> html 
    return html 
] 

>>f [ [h test] [h test2]] 
test 
test2 
== "<p><h1>test</h1><h1>test2</h1></p>" 

Answer 2

你的問題是無處不在，新的全球html: copy ""使用初始化已經發布的html。如果你讓本地與規範塊手動或通過與本功能在Rebol2或功能紅色更換FUNC/本地HTML，它應該工作

>>f [ [h test] [h test2]] 
test 
test2 
== "<p><h1>test</h1><h1>test2</h1></p>" 
>>