/'
    array.bi
'/

#Ifndef __ARRAY__
#Define __ARRAY__
'
Enum atype
Undefined    = 0

aString  = 1
aPtr
End Enum

Dim Shared As UInteger num    =-1  ' íóìåðàöèÿ ìàññèâîâ

Type Array
    Declare Constructor()
    
    Declare Operator []( index_ As Integer ) ByRef As Array
    
    Declare Operator Let( rhs As String )
    Declare Operator Let( rhs As Any ptr )
    
    Declare Operator Cast() As String
    Declare Operator Cast() As Sub()
    
    ad(Any)As String    '
    td(Any)As byte
    As UInteger i,ii    ' èíäåêñû ìàññèâà
    
End Type

Constructor Array()
    Static As UInteger count
    count = num
    count += 1
    num = count
    
    ReDim ad(0) As String
    reDim td(0) As Byte
End Constructor

Operator Array.[]( index_ As Integer ) ByRef As Array
    'switch = true
    If index_ <= 0 Then index_ = 0

    'If triger Then ii = index : triger = false Else i = index_ : triger = true
    i = index_

    If index_ >= UBound(ad) Then
  ReDim Preserve ad(index_ +1) As String
  ReDim Preserve td(index_ +1) As byte
    EndIf

    'If typeData(index_) = aArray Or typeData(index_) = aPointer Then
    '    Return *(CPtr( Array Ptr, cInt(*ad(index_))))
    '    'Return toArray(ad(index_))
    'Else
  Return This
    'EndIf
End Operator

Operator Array.Let( rhs As String )
    If @This <> @rhs Then
  ad(i) = rhs
  td(i) = aString
  ? "Let ";i,ad(i)
    EndIf
End Operator

Operator Array.Let( rhs As Any Ptr )
    If @This <> @rhs Then
  ad(i) = Str(@rhs)
  td(i) = aPtr
  ? "Let ";i,ad(i)
    EndIf
End Operator

Operator Array.Cast() As String
    If td(i) = aArray Then
  ? "Cast 0 ";i,"AD"
  Return "AD"
    Else
  ? "Cast 1 ";i,ad(i)
  Return ad(i)
    EndIf
End Operator

Operator Array.Cast() As Sub()
    ? "Cast 1 ";i,ad(i)
    Return CPtr( Sub() , cast( Integer , ad(i)))
End Operator

#EndIf
__ARRAY__

#Ifdef __FB_MAIN__
'
Dim As Array a
a[0] = "wer"
? a[0]

Sub su()
    ? "SUB"
End Sub

a[1] = @su
Dim s As Sub() = a[1]
? a[1]

s() ' здесь зависает программа
sleep
#endif

Sub cm( )
    ? "SUB"
End Sub

? @cm

Dim s(3) As String  
s(0) = Str(@cm)
? s(0)

Dim su As Sub() = CPtr( Sub() , cast( Integer , s(0) ))
? @su : ?

su()

Sleep

Operator Array.Let( rhs As Any Ptr )
    If @This <> @rhs Then
  ad(i) = Str(@rhs) ' <- здесь что присваивается? Убери собаку и будет работать.
  td(i) = aPtr
  ? "Let ";i,ad(i)
    EndIf
End Operator

type p
declare sub d()
#macro hit() 'вот тутова
#endmacro
end type

sub p.d()
end sub

p.hit()  что-то вроде этого

dim as p tt
tt.hit() чтоб вызов макроса был как процедуры

Type Array extends object

. . .

'[ Other
    Declare function  notnone    () As Array

'[ Other
function Array.notnone() As Array
    Dim at As Array
    
    If This.lenght = 1 Then
  If this.td(0)= aUndefined Then
   ReDim ad(0) As string
   ReDim td(0) As byte
  EndIf
    ElseIf This.lenght > 1 Then
  Dim j As Integer, k As Integer = 0 : num-=1
  
  For j = 0 To This.lenght - 1
   If this.td(j) <> aUndefined Then
    at[k] = This[j] : k+=1
   EndIf
  Next
  
  This = at
    Else
  ReDim ad(0) As string
  ReDim td(0) As byte
    EndIf
    
    Return at
End Function