ProcedureDLL.s CheckFileExtension(FileName.s, Extension.s)
; On considère que le chemin initiale est bon
GoodPath.s = FileName
; on découpe l'info du nom de fichier
Path.s = GetPathPart(FileName)
Name.s = GetFilePart(FileName)
Ext.s = GetExtensionPart(FileName)
; S'il y a des problèmes on reconstruit le chemin
If Ext = ""
GoodPath = Path + Name + "." + Extension
EndIf
If Ext <> Extension
GoodPath = Path + StringField(Name,1,".") + "." + Extension
EndIf
ProcedureReturn GoodPath
EndProcedure
The current version of Tailbite available for PB v4 is a very early beta from feb 9. I'm not sure El_Choni plans to do heavy development on it right now while PureBasic is "in flux" with changes being made regularly that could well break work that he did just a day or two earlier. For example, the string problem you report was not present in the earliest betas, I think up to 8 or so and now the string lib isn't compatible. Bottom line is I'm pretty sure no more releases are planned for Tailbite until PB v4 is in release. But it's pretty close now!
(just my opinion fwiw, I don't really know anything)
btw, if you're handy you could generate the lib keeping all source files and generate the batch file, go through them to see if you can spot the problem. The .desc file would be a good place to start, or maybe something needs linked in that isn't getting included.
TailBite is handling strings incorrectly for the moment (PB 4 has changed string handling for PB lib functions). It's the main problem I'm dealing with, and I'll release a new beta as soon as this is fixed, and then focus on the rest of the bugs.
DarkDragon wrote:He told me in the week after Easter that maybe it would be ready in the same week.
That's great info.
No, it's not, lies es nochmal: In der Woche nach Ostern hab ich El_Choni gefragt und er hat gesagt, dass es in der selben Woche eventuell noch rauskommt. Wurde aber nichts draus wie du siehst.