error with the latest Oxygen DLL

[Aurel]

Charles
When you say:
- producing more efficient binary

do you mean faster execution?

So i tried two graphic programs with new GetNum() and looks to me that is not
faster than is even slower..is that possible?

I will built right now timer function to test time of execution then  will see.
 

[Aurel]

After testing
difference are very small in execution but it looks that older DLL work
just a little bit faster then this new one.
it is not strange to me because execution of my small interpreter directly depend on
processing loop which read tokens from string array
so simply there is no significant speed up   

[Charles Pegge]

Aurel,

Something strange happening when ShellExecute is invoked. Will investigate further.

With regard to performance, the strategy is to reduce the number of string operations, in favour of integer operations, so the CPU has less work to do. That function is only one part of your parser.

PS:

ShellExecute is innocent. The problem was in the FileDialog prototype.

Cleanup for FileDialog:

Defext was defined as 'long', is now  a string
Also using strptr for all string parameters.

FileDialog for awinh.inc

Code: [Select]

'FileDialog( $ iDir , $ filter ,$ title , % parent ,% flag )
Function FileDialog(String Dir, filter , Title , long Hwnd, Flags, string defext) As String
Dim ofn As OPENFILENAME
Dim filename[255] As zstring
INT retval

ofn.lStructSize = 76
ofn.hwndOwner = hWnd
ofn.hInstance = GetModuleHandle(0)
ofn.lpstrFilter = strptr filter
ofn.lpstrCustomFilter= NULL
ofn.nMaxCustFilter = 0
ofn.nFilterIndex = 2
ofn.lpstrFile = strptr filename 'zstring buffer
ofn.nMaxFile = 255
ofn.lpstrFileTitle = NULL
ofn.nMaxFileTitle = 0
ofn.lpstrInitialDir = strptr dir
ofn.lpstrTitle = strptr title
IF Flags = 0 then ofn.Flags = OFN_EXPLORER Or OFN_FILEMUSTEXIST Or OFN_HIDEREADONLY
IF Flags = 1 then ofn.Flags = OFN_EXPLORER Or OFN_OVERWRITEPROMPT Or OFN_HIDEREADONLY
ofn.nFileOffset = 0
ofn.nFileExtension = 0
ofn.lpstrDefExt = strptr defext
ofn.lCustData = 0
ofn.lpfnHook = 0
ofn.lpTemplateName = NULL

' Execute the dialog box
IF Flags = 0 then retval = GetOpenFileName(ofn)
IF Flags = 1 then retval = GetSaveFileName(ofn)

Return filename

End Function


[Aurel]

Yes i also think that is something wrong with  shellExecute ...
so problem is in FileDialog 
hmm how then work with old DLL ?

ok i will fix things in FileDialog
thanks