Rebol/Red中Block支持NEW-LINE，如何保留Tabs制表符？

你提到的NEW-LINE原生函数是用来控制块/括号在序列化（比如mold输出）时的换行标记，它属于块结构的格式控制，而制表符更多是文本内容层面的需求——原生确实没有对应的NEW-TAB函数，但可以通过以下几种方式实现：

方法1：直接嵌入制表符转义字符 #

在Rebol/Red中，制表符可以用转义序列^-（脱字符加减号）直接写入块中，当你处理块内容时，这个转义符会被解析为实际的制表符：

; 示例：在块中嵌入制表符
tabbed-block: [
    "Level 0 Item"
    ^- "Level 1 Subitem"
    ^- ^- "Level 2 Subitem"
]

; 输出验证
foreach entry tabbed-block [
    print entry
]

运行这段代码后，输出会自动带上对应的制表符缩进。

方法2：自定义制表符标记与处理函数 #

如果你需要像NEW-LINE那样给块结构标记制表符位置（而非直接嵌入文本），可以自定义一个标记（比如'tab符号），再写一个处理函数将标记替换为实际制表符：

; 带自定义制表符标记的块
marked-block: [
    "Main Section"
    'tab "Subsection 1"
    'tab 'tab "Detail 1a"
    "Another Main Section"
]

; 处理标记的函数
process-tab-markers: func [blk [block!]] [
    processed: copy []
    foreach item blk [
        either item = 'tab [
            append processed ^-  ; 替换标记为制表符
        ] [
            append processed item
        ]
    ]
    return processed
]

; 使用函数并验证输出
result: process-tab-markers marked-block
foreach entry result [
    print entry
]

补充说明 #

NEW-LINE的作用是改变块/括号在被mold（序列化）时的换行行为，它是修改块的内部格式元数据；而制表符本质是文本内容的一部分，所以原生没有提供类似的结构级标记函数。上面两种方法分别对应了「直接写入内容」和「自定义结构标记」两种场景，你可以根据实际需求选择。

内容的提问来源于stack exchange，提问作者user310291