PureBasic Forums - English

Code: Select all

structure token
   type.i ; if the type would change then i have to empty and fill one of those guys here:
   number.d
   string.s
endstructure

Code: Select all

Public Function CreateSimpleIfStm(IfClause As Object, ThenClause As Object, Optional ElseClause As Object = Nothing) As SimpleIfStm
    Dim Obj As New SimpleIfStm
    
    Set Obj.IfClause = IfClause
    Set Obj.ThenClause = ThenClause
    Set Obj.ElseClause = ElseClause
    
    Set CreateSimpleIfStm = Obj
End Function

Public Function CreateSimpleWhileStm(WhileClause As Object, DoClause As Object) As SimpleWhileStm
    Dim Obj As New SimpleWhileStm
    
    Set Obj.WhileClause = WhileClause
    Set Obj.DoClause = DoClause
        
    Set CreateSimpleWhileStm = Obj
End Function

Public Function CreateSimpleStmList(CurrentStm As Object, Optional NextStm As Object = Nothing) As SimpleStmList
    Dim Obj As New SimpleStmList
    
    Set Obj.CurrentStm = CurrentStm
    ' currentstm is nothing
    If Not NextStm Is Nothing Then
        Set Obj.NextStm = NextStm
    End If
            
    Set CreateSimpleStmList = Obj
End Function

Code: Select all

#define GET_VAL( val, type ) \
    {                                                   \
        ASSERT( ( pIP + sizeof(type) ) <= pMethodEnd ); \
        val = ( *((type *&)(pIP))++ );                  \
    }

Code: Select all

SUB MATH
   A = 15
   B = 1 + A
   MSGBOX B
END SUB

Code: Select all

Structure SomeStructure
	StructureUnion
		Quad.q      ; 8 bytes
		Char.c[4]   ; 4 characters, each 2 bytes
		String.s{4} ; 4 characters, each 2 bytes
	EndStructureUnion
EndStructure

Define SomeStructure.SomeStructure
SomeStructure\String = "TEST"

Debug SomeStructure\String
Debug SomeStructure\Quad

SomeStructure\Char[0] - 18 ; decrease the first character by 18: T -> B
SomeStructure\Char[3] + 1 ; increase the last character by 1: T -> U

Debug SomeStructure\Quad
Debug SomeStructure\String

Code: Select all

Structure variant_type
   type.i
   StructureUnion
      string.s
      quad.q
   EndStructureUnion
EndStructure

Code: Select all

Structure variant_type
   type.i
   string.s
   quad.q
EndStructure

Code: Select all

Structure variant_type
  type.i
  StructureUnion
    bVal.b
    wVal.w
    iVal.i
    lVal.l
    qVal.q
    fltVal.f
    dblVal.d
  EndStructureUnion
  sVal.s
EndStructure

*mem1.variant_type = AllocateStructure(variant_type)
*mem1\type = #PB_String ; I use a read constant from PB for Type
*mem1\sVal = "Hello World!"
Debug *mem1\sVal

*mem2.variant_type = AllocateStructure(variant_type)
*mem2\type = #PB_Long ; I use a read constant from PB for Type
*mem2\lVal = 100
Debug *mem2\lVal

; Memory for string is automatic released
FreeStructure(*mem1)
; No Memory for string used
FreeStructure(*mem2)

Code: Select all

#Undef = $0
#Integ = $001
#Strin = $102
#Float = $003

#aList = $200
#Table = $400 ; (as an array)
#Bundl = $B00


Structure Variant
   Cfg.I
   Dta.I
EndStructure

Procedure VariantCreate(Cfg.I = #Undef)
   Define *This.Variant
   *This = AllocateMemory(SizeOf(Variant) )
   *This\Cfg = Cfg
   ProcedureReturn *This
EndProcedure

Procedure VariantDestroy(*This.Variant)
   Define I
   Define CpnQty
   If *This\Cfg & $100
      CpnQty = *This\Cfg & $7FFFF000
      CpnQty >> 12
      If CpnQty = 1
         If *This\Cfg & $400
            VariantDestroy(*This\Dta)
         Else
            FreeMemory(*This\Dta)
         Endif
      Else
         For I = 1 To CpnQty
            *That = PeekI(*This\Dta + SizeOf(Integer) * (I - 1) )
            If *This\Cfg & $400
               VariantDestroy(*That) ; recursivity
            Else
               FreeMemory(*That)
            EndIf
         Next
         FreeMemory(*This\Dta)
      EndIf
   EndIf
   FreeMemory(*This)
EndProcedure

Code: Select all

Procedure IntegerCreate(Dta.I = 0)
    Define *This.Variant = VariantCreate($1000 |  #Integ)
    *This\Dta = Dta
   ProcedureReturn *This
EndProcedure

Procedure StringCreate(Dta.S = "")
   Define *This.Variant = VariantCreate($1000 | #Strin)
   *This\Dta = AllocateMemory(StringByteLength(Dta + "Z") )
   PokeS(*This\Dta, Dta)
EndProcedure