FreeBASIC Cptr

'Passing string parameters to subroutine
'https://www.freebasic.net/forum/viewtopic.php?t=32316
'by fxm ≫ Jul 19, 2023 5:22
'
'In FreeBASIC, a var-len string 's' has a descriptor under the hood ('@s' = address of its descriptor) that contains 3 data:
'FreeBASIC では、var-len 文字列 's' の内部には 3 つのデータを含む記述子 ('@s' = その記述子のアドレス) があります：
'- address of the string character data,
'文字列文字データのアドレス
'- number of used character,
'使用文字数
'- number of usable characters.
'使用可能な文字数

Type descriptor
    Dim As ZString Ptr address
    Dim As Integer used
    Dim As Integer usable
End Type

Dim As String s = "FreeBASIC"
Dim As descriptor Ptr ps = CPtr(Any Ptr, @s)

Print ps->address
Print ps->used
Print ps->usable
Print
Print *ps->address

Sleep

'About pointer related
'by fxm ≫ Nov 04, 2023 9:11
'https://www.freebasic.net/forum/viewtopic.php?p=301048#p301048

'文字列文字データへの一種のポインタを絶対に使用したい場合は、
'文字列文字データへの記述子内のポインタへのポインタを使用します。

Dim As String myStr = "This is a string"
Dim toToStr As ZString Ptr Ptr  'ポインタへのポインタ(マルチレベル間接指定)

toToStr = CPtr(Any Ptr, @myStr)
? "toToStr  : "; toToStr
? "*toToStr : "; *toToStr
? "**toToStr: "; **toToStr
?
myStr = "The string is changed to very very ---------------------------------------------------------------long."
? "toToStr  : "; toToStr
? "*toToStr : "; *toToStr
? "**toToStr: "; **toToStr
Sleep

'About pointer related
'by fxm ≫ Nov 04, 2023 9:11
'https://www.freebasic.net/forum/viewtopic.php?p=301048#p301048

'代わりに、文字列文字データへの記述子内のポインターへの参照を使うと、
'明示的な二重逆参照を回避できます (最初の逆参照は暗黙的になります)。

Dim As String myStr = "This is a string"
Dim ByRef As ZString Ptr toStr = *CPtr(ZString Ptr Ptr, 0)  'ポインタへのポインタ(マルチレベル間接指定)

@toStr = CPtr(ZString Ptr Ptr, @myStr)
? "toStr : "; toStr
? "*toStr: "; *toStr
?
myStr = "The string is changed to very very ---------------------------------------------------------------long."
? "toStr : "; toStr
? "*toStr: "; *toStr
Sleep