DLL function Declaration

[Charles Pegge]

You can use extern blocks for all the imported functions. Then no need to repeat lib, calling-convention, external.

extern lib "user32.dll"
! Sleep(int ms)
 ...
extern lib cdecl "mylib.dll"
! f(sys a=1,b)
...
end extern

[Emil_halim]

Then no need to repeat lib, calling-convention, external.

is that mean there is no need to declare the following dummy function to allow optional parameters of
my imported dll functions when using extern blocks.

Code: [Select]

function g(sys a,b) external
print  a "   " b
end function


[Emil_halim]

Charles ,

con you confirmed that please.

[Charles Pegge]

Yes Emil, it will give you optional param with the syntax used above. However during the course of my checks, I found some anomalies, with mixed optional and default value calls, which I will need to fix. But for your optional params, it should be okay.

extern lib "tdll.dll"
! ff1(sys a=0,b,c,d) as sys1
end extern

ff1 2,3

------->

includepath "$/inc/"
$filename "tdll.dll"
$dll
include "RTL32.inc"

extern export
function ff1(sys a,b,c,d) as sys
string cm=","
print a cm b cm c cm d
end function

[Emil_halim]

Hi Charles,

i have an imported function declare as following

! CreateCamera alias "_CreateCamera@4" (sys EntityParent=0) as sys

inside extern block.

and this is a simple program that using the above declaration

Code: [Select]

//****************************************//
//           ************                 //
//      ***MagicPro library***            //
//           ************                 //
//****************************************//

includepath "$/inc/"
$ filename "Scaling.exe"
#include "RTL32.inc"

#include 'MagicPro.inc';

sys cam

    Init("MagicPro Test #1")
    Graphics3D(800,600)

    setMediaDir("ZipMedia.zip")
    setMediaDir("media")
    
    setAmbientLight(30.0,30.0,50.0)

    cam = CreateCamera
  
    while(!OIS_isKeyDown(KC_ESCAPE))
     {
        RenderWorld()  

     Sync()
     }
    
    
    EndGraphics()

when compiling got that funny errer

Unidentified operand
WORD: createcamera
Line: 23

so what is that.

[Emil_halim]

ok i mead this change

Code: [Select]

//includepath "$/inc/"
$ filename "MagicProTest1.exe"
#include "..\..\inc\RTL32.inc"

#include "MagicPro.inc"

it give an other error

Linker found unidentified name:
!: level 0

[Charles Pegge]

Spotted 2 errors

Need to replace single quotes with double quotes?

#include 'MagicPro.inc';

also:

while(!OIS_isKeyDown(KC_ESCAPE))

while not OIS_isKeyDown(KC_ESCAPE)

[Emil_halim]

thanks Charles ,

works now .

but i have an idea about includepath , noticed that when using it , any file in the o2bas folder did not seen
by Oxygen , SO you can use array of include paths and searching will be one after one.

[Peter]

while not OIS_isKeyDown(KC_ESCAPE)

Or: 
while  OIS_isKeyDown(KC_ESCAPE) =0

[Peter]

Emil,

MagicPro ?

What is it for?

[Emil_halim]

Hi Peter,

see my last post in this page  http://www.ogre3d.org/forums/viewtopic.php?f=11&t=25924&start=375 

[Emil_halim]

Charles,

I have this declaration

! LoadMesh alias "_LoadMesh@12"(char* file, sys EntityParent=0, char* meshName="") as sys

SO when calling it like this the program crash

Code: [Select]

ogrehead = LoadMesh("ogrehead.mesh")

but this works

Code: [Select]

ogrehead = LoadMesh("ogrehead.mesh",0,"")

any help , how to allow empty string "" to be as a default equat?

[Aurel]

maybe :
ogrehead = LoadMesh("ogrehead.mesh",0,NULL)

by the way  i read somewhere that char cannot have 0 length so probably must
be string with zero length.

[Charles Pegge]

Hi Emil, Altering the compiler for this one, creates logistical nightmares so the best solution is:


LoadMesh alias "_LoadMesh@12"(char* file="", sys EntityParent=0, char* meshName="") as sys
...
ogrehead = LoadMesh(file="ogrehead.mesh")



PS:

Another way is to check for null strings within the procedure you are calling (if this is your own library):

if not strptr MeshName then ...

[Emil_halim]

thanks Aurel,

thanks Charles ,

ok i got it.