Posted: Fri Feb 09, 2007 12:55 pm
Just learn to read.
Look at the links here in this thread

The most of the classes there are my productsOur classes.
http://www.purebasic-lounge.de/viewforum.php?f=95

Just learn to read.
The most of the classes there are my productsOur classes.
http://www.purebasic-lounge.de/viewforum.php?f=95
Use another language then ffs! You obviously take no notice of past threads where this has been brought up time after time. OOP in PB is not going to happen soon.hellhound66 wrote:@kale: Wolf is in a project that codes OOP in PB and we have got about 15000 lines of code. I think he knows all variants of programming OOP in PB. And none is really good.
You're right. Wise words.Brice Manuel wrote:In spite of everything, PB is in good hands. Fred has made it clear where he stands on the OOP issue, so we should respect his decision. Fred is a smart guy and knows where he wants to go with PB. We should trust him enough to let him do what he thinks is right for PB and the community.
...and all the other people are stupid?We should trust him enough to let him do what he thinks is right for PB and the community.
Code: Select all
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; AUTOMATICALLY GENERATED CODE, DO NOT MODIFY
; UNLESS YOU REALLY, REALLY, REALLY MEAN IT !!
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Structure declaration <<<<<
Structure Vector3
Coords.d[3] ; i,j,k
EndStructure
; <<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< The mutators <<<<<
Macro SetVector3Coords(VectorA, Index, P_Coords)
VectorA\Coords[Index] = P_Coords
EndMacro
; <<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< The observators <<<<<
Macro GetVector3Coords(VectorA, Index)
VectorA\Coords[Index]
EndMacro
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< The Update Static array operator <<<<<
Macro UpdateVector3Coords(VectorA, P_i, P_j, P_k)
SetVector3Coords(VectorA, 0, P_i)
SetVector3Coords(VectorA, 1, P_j)
SetVector3Coords(VectorA, 2, P_k)
EndMacro
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< The specials mutators <<<<<
Macro SetVector3i(VectorA, P_i)
SetVector3Coords(VectorA, 0, P_i)
EndMacro
Macro SetVector3j(VectorA, P_j)
SetVector3Coords(VectorA, 1, P_j)
EndMacro
Macro SetVector3k(VectorA, P_k)
SetVector3Coords(VectorA, 2, P_k)
EndMacro
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< The specials observators <<<<<
Macro GetVector3i(VectorA)
GetVector3Coords(VectorA, 0)
EndMacro
Macro GetVector3j(VectorA)
GetVector3Coords(VectorA, 1)
EndMacro
Macro GetVector3k(VectorA)
GetVector3Coords(VectorA, 2)
EndMacro
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< The Equal operator : A = B <<<<<
Macro EqualVector3(VectorA, VectorB)
For Index = 0 To 2
SetVector3Coords(VectorA, Index, GetVector3Coords(VectorB, Index))
Next
; CopyMemory(VectorB, VectorA, SizeOf(Vector3))
EndMacro
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< The Plus operator : R = A + B <<<<<
Macro PlusVector3(VectorR, VectorA, VectorB)
For Index = 0 To 2
SetVector3Coords(VectorR, Index, GetVector3Coords(VectorA, Index) + GetVector3Coords(VectorB, Index))
Next
EndMacro
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< The Minus operator : R = A - B <<<<<
Macro MinusVector3(VectorR, VectorA, VectorB)
For Index = 0 To 2
SetVector3Coords(VectorR, Index, GetVector3Coords(VectorA, Index) - GetVector3Coords(VectorB, Index))
Next
EndMacro
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< The Zero operator <<<<<
Macro ZeroVector3(VectorA)
For Index = 0 To 2
SetVector3Coords(VectorA, Index, 0)
Next
; RtlZeroMemory_(VectorA, SizeOf(Vector3))
EndMacro
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< The ProductByScalar operator : R = A * Scalar <<<<<
Macro ProductByScalarVector3(VectorR, VectorA, Scalar)
For Index = 0 To 2
SetVector3Coords(VectorR, Index, GetVector3Coords(VectorA, Index) * Scalar)
Next
EndMacro
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< The DivideByScalar operator : R = A / Scalar <<<<<
Macro DivideByScalarVector3(VectorR, VectorA, Scalar)
For Index = 0 To 2
SetVector3Coords(VectorR, Index, GetVector3Coords(VectorA, Index) / Scalar)
Next
EndMacro
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Read binary file operator <<<<<
Procedure ReadVector3(FileID.l, *VectorA.Vector3)
For Index = 0 To 2
SetVector3Coords(*VectorA, Index, ReadDouble(FileID))
Next
EndProcedure
; Macro ReadVector3(FileID, VectorA)
; ReadData(FileID, VectorA, SizeOf(Vector3))
; EndMacro
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Write binary file operator <<<<<
Procedure WriteVector3(FileID.l, *VectorA.Vector3)
For Index = 0 To 2
WriteDouble(FileID, GetVector3Coords(*VectorA, Index))
Next
EndProcedure
; Macro WriteVector3(FileID, VectorA)
; WriteData(FileID, VectorA, SizeOf(Vector3))
; EndMacro
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Read dynamic array on current file <<<<<
Procedure ReadDynamicArrayOfVector3(FileID.l, Array.Vector3(1))
Array_Max.l = ReadLong(FileID)
For Index = 0 to Array_Max
ReadVector3(FileID, Array(Index))
Next
EndProcedure
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Write dynamic array on current file <<<<<
Procedure WriteDynamicArrayOfVector3(FileID.l, Array.Vector3(1))
WriteLong(FileID, (PeekL(@Array() - 8) - 1))
For Index = 0 to (PeekL(@Array() - 8) - 1)
WriteVector3(FileID, Array(Index))
Next
EndProcedure
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Read linked list on current file <<<<<
Procedure ReadLinkedListOfVector3(FileID.l, LList.Vector3())
LList_Max.l = ReadLong(FileID)
For Index = 0 to LList_Max - 1
AddElement(LList())
ReadVector3(FileID, LList())
Next
EndProcedure
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Write linked list on current file <<<<<
Procedure WriteLinkedListOfVector3(FileID.l, LList.Vector3())
WriteLong(FileID, CountList(LList()))
ForEach LList()
WriteVector3(FileID, LList())
Next
EndProcedure
; <<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Debugging macro <<<<<
Macro DebugVector3(VectorA)
For Index = 0 To 2
Debug GetVector3Coords(VectorA, Index)
Next
EndMacro
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Code generated in : 00.078 seconds <<<<<
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
That's naive.If you don't like PB as is, so just don't use it.
Yes. This part is big.> a big part of the community wishs to have a new feature
I wonder how big, really? Maybe a poll should be started.
Its everytime allowed to ask/to have a wish.Especially when
the chef has constantly said he doesn't cook lobster and never will? Wink
I say go to a different restaurant where they cook the food you like.
Or one German! :roll:hellhound66 wrote:And there we have the second troll: Kale.
/edit: He is sillier than 3 irishmen.