fbdoc: update examples/manual from wiki

Author: jayrm

examples/manual/check/KeyPgDim_2.bas

@@ -10,13 +10,12 @@
 
 '$lang: "qb"
 
-'' All variables beginning with A through N default to the INTEGER data type
-'' All other variables will default to the SINGLE data type
+'' All variables beginning with A through N will default to the INTEGER data type
+'' All other variables default to the SINGLE data type
 DefInt I-N
 
+Dim I, J, X, Y, T$, D As Double
 '' I and J are INTEGERs
 '' X and Y are SINGLEs
 '' T$ is STRING
 '' D is DOUBLE
-
-Dim I, J, X, Y, T$, D As Double

examples/manual/operator/let-list2.bas

@@ -0,0 +1,32 @@
+'' examples/manual/operator/let-list2.bas
+''
+'' NOTICE: This file is part of the FreeBASIC Compiler package and can't
+''         be included in other distributions without authorization.
+''
+'' See Also: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgOpLetlist
+'' --------
+
+Type Parent
+	Dim As Integer p1, p2
+End Type
+
+Type Child Extends Parent
+	Dim As Integer c1, c2
+End Type
+
+Type GrandChild Extends Child
+	Dim As Integer gc1, gc2
+End Type
+
+Dim As GrandChild gc = Type(1, 2, 3, 4, 5, 6)
+
+Dim As Integer i1, i2
+Dim As Integer j1, j2
+Dim As Parent p
+Dim As Child c
+
+Let(c, i1, i2) = gc
+Print c.p1, c.p2, c.c1, c.c2, i1, i2
+
+Let(p, j1, j2) = gc
+Print p.p1, p.p2, j1, j2

examples/manual/udt/extendszstring1.bas

@@ -0,0 +1,36 @@
+'' examples/manual/udt/extendszstring1.bas
+''
+'' NOTICE: This file is part of the FreeBASIC Compiler package and can't
+''         be included in other distributions without authorization.
+''
+'' See Also: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgExtendsZstring
+'' --------
+
+Type myZstring Extends ZString
+  Public:
+	Declare Constructor (ByRef z As Const ZString = "")
+	Declare Operator Cast () ByRef As Const ZString
+	Declare Operator Let (ByRef z As Const ZString)
+  Private:
+	Dim As String s
+End Type
+
+Constructor myZstring (ByRef z As Const ZString = "")
+  This.s = z
+End Constructor
+
+Operator myZstring.Cast () ByRef As Const ZString
+  Return *StrPtr(This.s)
+End Operator
+
+Operator myZstring.Let (ByRef z As Const ZString)
+  This.s = z
+End Operator
+
+Dim As myZstring z = "FreeBASIC"
+Print "'" & z & "'"
+
+z &= " compiler"
+Print "'" & z & "'"
+
+Sleep

examples/manual/udt/extendszstring2.bas

@@ -0,0 +1,77 @@
+'' examples/manual/udt/extendszstring2.bas
+''
+'' NOTICE: This file is part of the FreeBASIC Compiler package and can't
+''         be included in other distributions without authorization.
+''
+'' See Also: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgExtendsZstring
+'' --------
+
+Type vZstring Extends ZString
+  Public:
+	Declare Constructor (ByVal pz As Const ZString Ptr = 0)
+	Declare Operator Cast () ByRef As ZString
+	Declare Operator Let (ByVal pz As Const ZString Ptr)
+	Declare Operator [] (ByVal index As Integer) ByRef As UByte
+	Declare Destructor ()
+  Private:
+	Dim As ZString Ptr p
+	Dim As UInteger l
+End Type
+
+Constructor vZstring (ByVal pz As Const ZString Ptr = 0)
+  This.l = Len(*pz)
+  This.p = CAllocate(This.l + 1, SizeOf(ZString))
+  *This.p = *pz
+End Constructor
+
+Operator vZstring.Cast () ByRef As ZString
+  Return *This.p
+End Operator
+
+Operator vZstring.Let (ByVal pz As Const ZString Ptr)
+  If This.l < Len(*pz) Then
+	Deallocate(This.p)
+	This.l = Len(*pz)
+	This.p = CAllocate(This.l + 1, SizeOf(ZString))
+  End If
+  *This.p = *pz
+End Operator
+
+Operator vZstring.[] (ByVal index As Integer) ByRef As UByte
+  Return This.p[index]
+End Operator
+
+Destructor vZstring ()
+  Deallocate(This.p)
+End Destructor
+
+Operator Len (ByRef v As vZstring) As Integer
+  Return Len(Type<String>(v))        '' found nothing better than this ('vZstring.l' being private)
+End Operator
+
+Dim As vZstring v = "FreeBASIC"
+Print "'" & v & "'", Len(v)
+
+Dim As ZString * 256 z
+z = *StrPtr(v)                       '' 'error 24: Invalid data types' without 'Extends Zstring'
+Print "'" & z & "'", Len(z)
+
+v &= Space(2)
+Print "'" & v & "'", Len(v)
+RSet v, "FreeBASIC"                  '' 'error 24: Invalid data types' without 'Extends Zstring'
+Print "'" & v & "'", Len(v)          ''     ('Cast' must return a modifiable reference)
+
+Select Case v                        '' 'error 24: Invalid data types' without 'Extends Zstring'
+Case Type<vZstring>(Trim(v) & "  ")
+  Print "Left justified"
+Case Type<vZstring>("  " & Trim(v))
+  Print "Right justified"
+End Select
+
+v[0] = Asc("-")
+Print "'" & v & "'", Len(v)
+
+'Print "'" & Right(v, 5) & "'"      '' 'Right' does not yet support types with 'Extends Zstring'
+Print "'" & Right(Str(v), 5) & "'"  '' workaround
+
+Sleep