Droopy's Lib ( Scripting Functions )

[ts-soft]

Alle loben die Lib, keiner meldet Bugs, obwohl ich schon reichlich gefunden
habe und die Lib deshalb nicht nutze, sondern nur den Source, der sehr
übersichtlich ist

Werde mal mit 2 Proceduren anfangen, die seit der ersten Version
enthalten sind:
Falsch, da nicht in allen Windows-Versionen enthalten:

Code: Alles auswählen

ProcedureDLL MakeSureDirectoryPathExists(Directory.s)
  
  ; Return 1 If success / 0 If fail 
  
  retour=MakeSureDirectoryPathExists_(Directory)
  ProcedureReturn retour
EndProcedure

Richtig:

Code: Alles auswählen

; Ersatzfunktion von IBSoftware;
Procedure ForceDirectories(Directory.s)
  If Len(Directory) > 0
    If (Right(Directory, 1) = "\")
      Directory = Left(Directory, Len(Directory) -1)
    EndIf
    If (Len(Directory) < 3) Or FileSize(Directory) = -2 Or GetPathPart(Directory) = Directory
      ProcedureReturn #False
    EndIf
    ForceDirectories(GetPathPart(Directory))
    CreateDirectory(Directory)
    ProcedureReturn #True
  EndIf
EndProcedure

Falsch, weil der Buffer fix auf 255 Byte festgelegt ist, was z.B. bei %Path
meist nicht reichen wird.

Code: Alles auswählen

ProcedureDLL.s GetEnvironmentVariable(Name.s)
  Buffer.s = Space(255) 
  If GetEnvironmentVariable_(Name, Buffer, 255)<>0
    ProcedureReturn Buffer 
  EndIf
EndProcedure

Richtig (by Me):

Code: Alles auswählen

Procedure.s GetEnv(szVariable.s)
  Protected Length.l, Buffer.s
  Length = GetEnvironmentVariable_(@szVariable, @Buffer, 0)
  If Length
    Buffer = Space(Length)
    GetEnvironmentVariable_(@szVariable, @Buffer, Length)
    ProcedureReturn Buffer
  EndIf
  ProcedureReturn ""
EndProcedure

Hab aber keine Lust, die restlchen Fehler auch noch zu beheben, vielleicht
kann der eine oder andere Benutzer der Lib noch falsche Funktionen
Posten, so das Droopy diese mal austauschen kann, damit diese Lib auch
zuverlässig funktioniert.

[Falko]

@ts-soft

Bislang hat immer der Bugs gepostet, der welche gefunden hat. Aber wenn du schon mehr weist, vielleicht wäre es gut erst alle aufzuführen, bevor man das (für Dich) ins Englische übersetzt.

Loben kann man ja trotzdem, oder?

Ich erwarte keine Antwort. Es war ist nur ein Tip.

MfG Falko

[ts-soft]

@ts-soft

Bislang hat immer der Bugs gepostet, der welche gefunden hat.

Aber anscheinend guckt sich keiner den Source an

Aber wenn du schon mehr weist, vielleicht wäre es gut erst alle aufzuführen, bevor man das (für Dich) ins Englische übersetzt.

Bin ehrlich gesagt zu Faul, den gesamten Source dort durchzugehen, weil es doch ne ganze Menge ist.
Selbst wenn die Lib fehlerfrei wäre, könnte ich sie nicht verwenden, da die Funktionsnamen so allgemein sind, das sie mit meinen eigenen Bausteinen ständig kollidieren. Solange die Funktionen keine Präfix erhalten sind für mich nur die Sourcen interessant.

Aber vielleicht hilft ja noch der eine oder andere, die Fehler zu beseitigen, so das sich Droopy seine Mühe auch wirklich lohnt. Ich denke mal, das er auch grossen Wert auf Fehlerfreiheit legt, aber bei der Menge an gesammelten Sources wird das Wohl schwierig.

[Falko]

Recht hast du und ich hab's in einfacher Form ins englische forum
gepostet. Ich hoffe du hast nix dagegen.
Natürlich war ich auch zu faul das ganze zu übersetzen.
Aber das bisschen Englisch sollte schon reichen

http://forums.purebasic.com/english/vie ... 411#118411

MfG Falko

[Falko]

@ts-soft

http://forums.purebasic.com/english/vie ... 420#118420