Gforth-如何获取字符串的代码点

Question

我知道gforth在堆栈中存储字符作为它们的代码点，但我正在学习的材料中没有显示任何有助于将每个字符转换为代码点的单词。

我还想求和字符串的代码点。我应该用什么来做这件事？

Answer 1

在Forth中，我们区分原始字符(通常是覆盖ASCII的八位字节(和扩展字符(通常为Unicode(。

任何字符在堆栈中总是表示为其代码点，但扩展字符在内存中的表示方式取决于实现。

另请参阅扩展字符字集：

扩展字符存储在存储器中，编码为一个或多个基元字符(pchars(。

因此，要将字符转换为代码点，从内存中读取该字符就足够了。

要读取原始字符，我们使用c@ ( c-addr -- char )

: sum-codes ( c-addr u -- sum ) 0 -rot over + swap ?do i c@ + 1 chars +loop ;
 test
"test passed" sum-codes .

注意：Gforth的最新版本支持原生字符串文字。在此之前，您需要将单词s"用作s" test passed"。

要读取扩展字符，我们可以使用xc@+ ( xc-addr1 -- xc-addr2 xchar )

: sum-xcodes ( c-addr u -- sum )
over + >r 0 swap
begin ( sum xc-addr ) dup r@ u< while
xc@+ ( sum xc-addr2 xchar ) swap >r + r>
repeat drop rdrop
;
 test
"test ⇦ ⇨ ⇧ ⇩" 2dup dump cr sum-xcodes . cr

dump显示在Gforth中，扩展字符以UTF-8编码存储在存储器中。