Das deutsche QBasic- und FreeBASIC-Forum

[chutullu]

Hallo Forum,

die neue Vers. unterstützt das Überladen von Operatoren. Ich möchte gern ein paar Arrayfunktionen schreiben welche an die PHP Syntax angelehnt sind.

So in der Art :

[MisterD]

du programmierst komisch o_O

in der ersten for schleife: test[]=a ist eine zuweisung eines integers als array, das funktioniert nicht.

die zweite forschleife: Assoziative arrays in Freebasic gibts nicht und wirds auch nicht geben, du könntest höchstens über preprozessoren sowas machen oder einfach über konstanten:

[chutullu]

[MisterD]

das geht einfach überhauptnicht so wie du dir das vorstellst. Du musst dir ne art Library schreiben, wo du dann halt sowas schreiben kannst wie
Dim myArray as array
myArray.add("Hallo") 'ne sub add(data as string)
myArray.add(123) 'ne sub add(data as integer), überladen halt
myArray.add(somethingElse) 'ne sub add(data as somethingElseType)

die add müsste eben entsprechend dem parameter typ speicher allozieren und die daten da reinkopieren oder sowas, gleichzeitig speichern, welcher typ an der stelle steht, dafür konstanten anlegen
ENUM types
TYPE_POINTER
TYPE_INTEGER
TYPE_STRING
TYPE_wasauchimmer
END ENUM

so oder so ähnlich ging das, die elemente werden dabei durchnummeriert, also TYPE_POINTER=1, TYPE_INTEGER=2, TYPE_STRING=3 usw

myArray.getType(2) 'würde dir eben ne konstante TYPE_INTEGER oder so geben, mit select verarbeiten dann
myArray.get(2) 'wäre in dem fall ein pointer auf die int-speicherstelle wo 123 steht

zum ausgeben zB:
SUB array_print_element(myArray as array, n as integer)
DIM data as any ptr
data=myArray.get(n)
SELECT CASE myArray.get(n)
CASE TYPE_POINTER: PRINT str(*cptr(any ptr ptr, data)+" (pointer)"
CASE TYPE_INTEGER: PRINT *cptr(integer ptr, data)
CASE TYPE_STRING: PRINT *cptr(zstring ptr, data)
END SELECT
END SUB
array_print_element(myArray, 2)
oder sowas ähnliches in der richtung

sub myArray.sort()

sub myArray.removeIndex(n as integer) 'um element n zu entfernen
'bsp: myArray.removeIndex(2)

eventuell dann noch für jeden typ ne removeItem:
sub myArray.removeItem(data as integer) 'um alle elemente, die data sind, zu entfernen
'sprich, den eintrag aus dem array entfernen und vor allem den allozierten speicher wieder freigeben
'als beispiel myArray.remove(123)
sub myArray.removeItem(data as string)
sub myArray.removeItem(data as somethingElseType)

und ganz wichtig, du musst das array von hand auflösen wenn du's nicht mehr brauchst, dazu so ne art funktion
sub myArray.deallocate()
was eben für ausnahmslos jedes noch im array vorhandene element ein removeIndex (oder removeItem) ausführt und der ganze speicher wieder freigegeben wird.

du hast auf jeden fall unendlich viel arbeit und wirst ebenfalls wenn du nicht aufpasst, massive memoryleaks produzieren, alleine schon weil freebasic intern bugs hat, die meldet dir der compiler aber dann als warning, irgendwas von wegen "dynamic types in function return" oder so, passiert wenn man zB n UDT mit nem Stringarray drin als funktionsrückgabe hat. du müsstest in so nem fall den rückgabeUDT mit zstring ptr array statt string array ausstatten und die ganzen strings wieder von hand allozieren und deallozieren, noch mal viel mehr arbeit.

also überleg dir, ob du sowas wirklich machen willst
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

[chutullu]

[MisterD]

was soll denn 1,2,3;4,5,6 darstellen? oO

und, naja, wenn du das so machst hast du am ende kein array sondern eine liste.. der aufwand, auf ein bestimmtes element auf diese art zuzugreifen wächst je mehr elemente drin sind, du kannst nicht mehr direkt zugreifen sondern musst alle vorgängerelemente durchlaufen. Was du da programmierst ist kein array sondern eine verkettete Liste.
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

[chutullu]

Besser gesagt eine verkettete Liste mit der Syntax wie ein Array in PHP.

{1,2,3;4,6,7}

bedeutet :

array[1][1] = 1
array[1][2] = 2
...
array[2][3] = 7

[ytwinky]

Hat das vllt. irgendwas mit der Initialisierung von Arrays zu tun:

[MisterD]

für normale arrays funktioniert das, ka.. aber das ganze überladen auf seine UDT-Arrays zu bringen wird glaube ich nicht so leicht möglich.. Michael! hack plz!
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

[Michael712]

Ähm...
Gib mir bis morgen Zeit, dann mach ich das
Hab grad nur nicht so viel Zeit
_________________

[volta]