Mehrere Rückgabewerte von Procedur

Maurizio555 · Beitrag von **Maurizio555** » 15.12.2004 20:30

Wenn ich möchte, daß eine Procedur mehrere Werte zurückliefert, übergebe ich ihr (außer den/die zu verarb. Wert/e) Zeiger auf Speicherbereiche. Dadurch, daß die Procedur nicht direkt auf Variabeln sondern auf "gezeigten" Bereichen schreibt, verlieren die "Ergebnisse" nicht Ihren Gültigkeitsbereich nach Verlassen der Proc. und man vermeidet Global-Variabeln (man sollte so wenig davon benutzen wie nur möglich).
Als Beispiel (unten) habe ich den Code von Falko, um aus einem Julianischen Tag das Gregorianische Datum zu errechnen, angepasst.
Kennt jemand in PB noch eine Möglichkeit, um mehrere Ergebnisse aus einer Proc zu erhalten (natürlich ohne Globals)?

Code: Alles auswählen

;Original-Code:
Procedure DMY(JD.l) 
  Global T.b,M.w,J.w 
  N1 = JD + 32044 
  N2 = N1 / 146097 
  N3 = N1 % 146097 
  N4 = N3 / 36524 - N3 / 146096 
  N5 = N3 - 36524*N4 
  N6 = N5 / 1461 
  N7 = N5 % 1461 
  N8 = N7 / 365 - N7 / 1460 
  N9 = N7 - 365*N8 
  N10 = (111*N9 + 41) / 3395 
  T = N9-30*N10-(7*(N10 + 1)) / 12 + 1 
  M1 = N10 + 3 
  J1 = 400*N2+100*N4+4*N6+N8-4800 
  M = ((M1 + 11) % 12)+1 
  J = J1+(M1 / 13) 
EndProcedure 
DMY(LANG) 
Debug T 
Debug M 
Debug J

;Angepasster Code:
Procedure GregorTag (JulianDay.l,*d,*m,*y)
  N1 = JulianDay + 32044 
  N2 = N1 / 146097 
  N3 = N1 % 146097 
  N4 = N3 / 36524 - N3 / 146096 
  N5 = N3 - 36524*N4 
  N6 = N5 / 1461 
  N7 = N5 % 1461 
  N8 = N7 / 365 - N7 / 1460 
  N9 = N7 - 365*N8 
  N10 = (111*N9 + 41) / 3395 
  PokeW(*d,( N9-30*N10-(7*(N10 + 1)) / 12 + 1 ))
  M1 = N10 + 3 
  J1 = 400*N2+100*N4+4*N6+N8-4800 
  PokeW(*m, ((M1 + 11) % 12)+1 )
  PokeW(*y, J1+(M1 / 13) )
EndProcedure

*d=AllocateMemory(2)
*m=AllocateMemory(2)
*y=AllocateMemory(2)
GregorTag(2453006,*d,*m,*y)
Debug PeekW(*d)
Debug PeekW(*m)
Debug PeekW(*y)

Code: Alles auswählen

ralle · Beitrag von **ralle** » 15.12.2004 20:46

Nope, da zumindest meiner Kenntis nach keine benutzerdefinierten Strukturen als Rückgabewerte verwendet werden können (ist schon ein bisl länger her, dass ich das mal probiert habe. Ist das mitlerweile in PB3.92 implementiert?)

NetSlayer · Beitrag von **NetSlayer** » 15.12.2004 21:03

Ich weiß nicht, ob das geht ralle, aber man kann ja den Pointer auf eine Structure zurückgeben, oder der Prozedur gleich einen Pointer auf eine Structure mitgeben, in die sie dann schreiben kann. Dürfte ja alles möglich sein.

Da Structures ja eh nur Pointer sind könnte Fred das AFAIK ziemlich schnell einbauen.

sbehrens · Beitrag von **sbehrens** » 15.12.2004 21:53

Konzept:
Man steckt alle Rückgabewerte in einen Wert, und filtert sie später wieder raus. Beispielsweise könnte man wenn man strings hat diese einfach mit einem Trennzeichen trennen ("|" oder Chr(0) usw.) oder falls man Zahlen hat, diese erst in Strings verwandeln, dann in einen String packen, den Rückgabewert wieder in die verschiedenen Strings aufteilen und diese Strings wieder in Zahlen umwandeln. Wäre eine Möglichkeit, oder? (Könnte etwas unsicher sein, an dem Konzept muss man noch arbeiten, ist mir nur spontan eingefallen. Aber bevor man mit einem übelst komplizierten Verfahren arbeitet...)

mfG
Basti

NetSlayer · Beitrag von **NetSlayer** » 15.12.2004 22:03

ptI hat geschrieben:Konzept:
Man steckt alle Rückgabewerte in einen Wert, und filtert sie später wieder raus. Beispielsweise könnte man wenn man strings hat diese einfach mit einem Trennzeichen trennen ("|" oder Chr(0) usw.) oder falls man Zahlen hat, diese erst in Strings verwandeln, dann in einen String packen, den Rückgabewert wieder in die verschiedenen Strings aufteilen und diese Strings wieder in Zahlen umwandeln. Wäre eine Möglichkeit, oder? (Könnte etwas unsicher sein, an dem Konzept muss man noch arbeiten, ist mir nur spontan eingefallen. Aber bevor man mit einem übelst komplizierten Verfahren arbeitet...)

mfG
Basti

Das ist aber nicht so die optimale Lösung, denn es ist verhältnismäßig langsam aus Zahlen Strings zu machen und aus diesen wieder Zahlen zu machen (Binär => ASCII => Binär), darum ist die Version mit dem Pointer wohl besser, da die Daten nicht verändert, bzw. vor der Verwendung bearbeitet/umgewandelt werden müssen.

PS: Du kannst nicht mehrere Strings in einem String mit einem 0-Zeichen trennen, denn die 0 suggeriert PB, dass der String dort zuende ist.

MARTIN · Beitrag von **MARTIN** » 15.12.2004 22:25

Ich bin mir nicht sicher ob ich das Problem richtig verstanden habe.
Warum nicht einfach zeiger auf eigene Struktur der Funktion übergeben, warum muss es unbedingt Ruckgabe wert.

Warum nicht einfach so:

Code: Alles auswählen

Structure mystruct
  ;hier felder von endsprechendem Typ
Endstructure

Procedure.l myprocedure(*data.mystruct)
   ;hier alles mögliche in die Struktur schreiben 
    ....
   ProcedureReturn 0;
EndProcedure
.....
Deftype.mystruct data
.....
myprocedure(@data)
.....
End

Ich doch so simpel. Die Funktion bearbeitet die Felder der Struktur und man kann so mehrere (in einem Aufruf) Ergibnise aus einer Funktion bekomen.

Kennt jemand in PB noch eine Möglichkeit, um mehrere Ergebnisse aus einer Proc zu erhalten

Das ist doch die Lösung.Warum hier Ruckgabewert benutzen.
Oder habe ich das Problemm falsch verstanden?

NetSlayer · Beitrag von **NetSlayer** » 15.12.2004 22:31

NetSlayer hat geschrieben:..., oder der Prozedur gleich einen Pointer auf eine Structure mitgeben, in die sie dann schreiben kann.

Jo, war auch mein Gedanke, wie du siehst

MARTIN · Beitrag von **MARTIN** » 15.12.2004 22:44

Also habe ich das doch richtig verstanden.
War etwas verwirren weil ,obwohl einen Zeiger zu übergeben wohl die eleganteste und einfachste Lösung ist, hat ptI vorgeschlagen, Ergibnise in die Ruckgabewert zu "kodieren" so als aus iregendeinem Grund nicht möglich wäre das ganze mit einen Zeiger zu lösen. Den Grund konnte ich aber nicht erkennen.

Laurin · Beitrag von **Laurin** » 15.12.2004 23:40

Ähm... kannst du das noch mal erklären? Ich hab nix verstanden.

Lars · Beitrag von **Lars** » 15.12.2004 23:56

Du kannst auch wirklich Werte zurück geben, wie das hier zeigt:

Code: Alles auswählen

Structure AddAndMultiplicateResult
  Sum.l
  Product.l
EndStructure

Procedure.l AddAndMultiplicate(a.l, b.l)
  result.AddAndMultiplicateResult
  
  result\Sum     = a + b
  result\Product = a * b
  
  ProcedureReturn result
EndProcedure

*result.AddAndMultiplicateResult = AddAndMultiplicate(10, 10)

Debug *result\Sum
Debug *result\Product

Was hier wichtig ist: Die Variable result ist hier die variable einer Procedur
und wird damit im Prinzip nach beenden der Procedur gelöscht. Direkt
nach Beenden kannst du noch darauf zugreifen, wenn du aber da mal ein
Delay(2000) zwischen Procedure Call und Debug einsetzt, siehst du, dass
die Variable schon gelöscht wurde.