PureBoard

Code: Alles auswählen

Interface Str
  
  Delete ()
  String ()
EndInterface

DeclareModule Str
  
  Declare New (String$ = #Empty$)
EndDeclareModule

Module Str
  
  Structure SString
    
    *VTABLE
    
    String$
  EndStructure
  
  Procedure IDelete (*this. SString)
    
    FreeMemory (*this)
  EndProcedure
  
  Procedure New (String$ = #Empty$)
    
    Protected *this. SString
    
    *this = AllocateMemory (SizeOf (SString))
    
    If *this
      
      *this \ VTABLE = ? VTABLE_SSTRING
      
      *this \ String$ = String$
      
      ProcedureReturn *this
    EndIf
  EndProcedure
  
  Procedure$ IString (*this. SString)
    
    ProcedureReturn *this \ String$
  EndProcedure
  
  DataSection
    
    VTABLE_SString:
    
    Data. i @ IDelete ()
    Data. i @ IString ()
  EndDataSection
EndModule

Text. Str = Str::New ("Hallo, Welt!")

Debug Text \ String ()

Code: Alles auswählen

Interface Str
  Delete ()
  String.s () ; für Strings wie in Procedure.s IString() bzw. Procedure$ IString()
EndInterface

Code: Alles auswählen

*this = AllocateStructure(SString)

Code: Alles auswählen

FreeStructure (*this)

Code: Alles auswählen

Interface Statistic
	Add(Value.f)
	Count.i()
	Free()
	Mean.f()
	String.s()
EndInterface

DeclareModule Statistic
	Declare.i New()
EndDeclareModule

Module Statistic
	
	Structure StatisticData
		*Methodes
		List Value.f()
	EndStructure
	
	Procedure Add(*This.StatisticData, Value.f)
		AddElement(*This\Value())
		*This\Value() = Value
	EndProcedure
	
	Procedure.i Count(*This.StatisticData)
		ProcedureReturn ListSize(*This\Value())
	EndProcedure
	
	Procedure.i Free(*This.StatisticData)
		FreeStructure(*This)
	EndProcedure
	
	Procedure.f Mean(*This.StatisticData)
		Protected Sum.f
		ForEach *This\Value()
			Sum + *This\Value()
		Next
		ProcedureReturn Sum / Count(*This)
	EndProcedure
	
	Procedure.s String(*This.StatisticData)
		Protected String.s
		If FirstElement(*This\Value())
			String = StrF(*This\Value())
			While NextElement(*This\Value())
				String + ", "+StrF(*This\Value())
			Wend
		EndIf
		ProcedureReturn String
	EndProcedure
	
	Procedure.i New()
		Protected *This.StatisticData = AllocateStructure(StatisticData)
		*This\Methodes = ?Methodes
		ProcedureReturn *This
	EndProcedure

	DataSection
		Methodes:
		Data.i @Add()
		Data.i @Count()
		Data.i @Free()
		Data.i @Mean()
		Data.i @String()
	EndDataSection
	
EndModule


Table.Statistic = Statistic::New()
Table\Add(2.0)
Table\Add(4.0)
Table\Add(5.0)
Debug Table\String()
Debug Table\Count()
Debug Table\Mean()
Table\Free()

Code: Alles auswählen

Interface Str

  Delete ()
  String. s ()
EndInterface