Doppeltes Init vermeiden

ts-soft · **Registriert:** 08.09.2004 00:57 **Wohnort:** Berlin

Es gibt in PB ja eine menge Libs, die ein "Init" benötigen, z.B. InitNetWork().
Bei doppeltem Aufruf meckert der Compiler :mrgreen:

, deshalb werden diese
Funktionen bei Templates (Bausteinen) meist weggelassen. Hier ein kleines
WorkAround, um diese Problem zu umgehen.
Das Beispiel ist jetzt für InitNetwork(), funktioniert nach entsprechender Anpassung
natürlich auch für die anderen Initfunktionen.

Code:

CompilerIf Defined(InitNetworkEx, #PB_Procedure) = #False
Procedure InitNetworkEx()
  Static IsInit = #False

  If Not IsInit
    IsInit = InitNetwork()
  EndIf
  ProcedureReturn IsInit
EndProcedure

Macro InitNetwork()
  InitNetworkEx()
EndMacro
CompilerEndIf

; Beispiel, erzeugt normallerweise einen Fehler
InitNetwork()
InitNetwork()

Das ist jetzt nichts weltbewegendes, aber manchmal kommt man einfach nicht drauf :wink:

Der Code muss aber vor dem ersten InitNetwork() eingefügt werden!

NicTheQuick · **Verfasst:** 12.04.2012 13:25

Typisch. Verschachtelungen gehen natürlich mal wieder nicht in PB. /:->

Code:

Macro Init(_NAME_)
   CompilerIf Defined(Init#_NAME_#Ex, #PB_Procedure) = #False
   Procedure Init#_NAME_#Ex()
     Static IsInit = #False
   
     If Not IsInit
       IsInit = Init#_NAME_#()
     EndIf
     ProcedureReturn IsInit
   EndProcedure
   
   Macro Init#_NAME_#()
     Init#_NAME_#Ex()
   EndMacro
   CompilerEndIf
EndMacro

Init(Network)
Init(Sound)
Init(Sprite)

; Beispiel, erzeugt normallerweise einen Fehler
InitNetwork()
InitNetwork()

edel · **Registriert:** 28.07.2005 12:39

Ich wuerde es dann so machen :

Code:

Import ""
   PB_Network_Objects
EndImport

If Not PB_Network_Objects
   InitNetwork()
EndIf

ts-soft · **Registriert:** 08.09.2004 00:57 **Wohnort:** Berlin

Das funktioniert aber nur für Deinen Code, nicht für fremde Templates, die InitNetwork() enthalten.
Wenn das nicht benötigt wird, finde ich die Variante allerdings auch besser als meine.

RSBasic · **Registriert:** 05.10.2006 18:55 **Wohnort:** Überall

@ts-soft & @edel
:allright:

PureBoard

Doppeltes Init vermeiden

Wer ist online?