OpenEuphoria

1. wrapping C code - my exercise in incompetence.

• Posted by ssallen Mar 12, 2013
• 3219 views

Hello benevolent Eu masters. As mentioned previously, I am working on wrapping the ASSIMP library. Things are going moderately, kinda, OK but I am having some issues with either total incompetence or some deeper and more sinister, intellectual defect. What I present here, is my humble efforts at peeking and poking my way through the mother of all C structures. So much peeking and poking in fact that I somewhat suspect it could be considered sexual harrassment in some states.

Anyways, I have the following C Structures which I am trying to get all the data out of and place in Eu sequences. Some of it works perfectly and some doesn't work at all as noted.

C:

struct aiScene 
{ 
 
        /** Any combination of the AI_SCENE_FLAGS_XXX flags. By default  
        * this value is 0, no flags are set. Most applications will 
        * want to reject all scenes with the AI_SCENE_FLAGS_INCOMPLETE  
        * bit set. 
        */ 
        unsigned int mFlags; 
 
 
        /** The root node of the hierarchy.  
        *  
        * There will always be at least the root node if the import 
        * was successful (and no special flags have been set).  
        * Presence of further nodes depends on the format and content  
        * of the imported file. 
        */ 
        C_STRUCT aiNode* mRootNode; 
 
 
 
        /** The number of meshes in the scene. */ 
        unsigned int mNumMeshes; 
 
        /** The array of meshes.  
        * 
        * Use the indices given in the aiNode structure to access  
        * this array. The array is mNumMeshes in size. If the 
        * AI_SCENE_FLAGS_INCOMPLETE flag is not set there will always  
        * be at least ONE material. 
        */ 
        C_STRUCT aiMesh** mMeshes; 
 
 
 
        /** The number of materials in the scene. */ 
        unsigned int mNumMaterials; 
 
        /** The array of materials.  
        *  
        * Use the index given in each aiMesh structure to access this 
        * array. The array is mNumMaterials in size. If the 
        * AI_SCENE_FLAGS_INCOMPLETE flag is not set there will always  
        * be at least ONE material. 
        */ 
        C_STRUCT aiMaterial** mMaterials; 
 
 
 
        /** The number of animations in the scene. */ 
        unsigned int mNumAnimations;  
 
        /** The array of animations.  
        * 
        * All animations imported from the given file are listed here. 
        * The array is mNumAnimations in size. 
        */ 
        C_STRUCT aiAnimation** mAnimations; 
 
 
 
        /** The number of textures embedded into the file */ 
        unsigned int mNumTextures; 
 
        /** The array of embedded textures. 
        *  
        * Not many file formats embed their textures into the file. 
        * An example is Quake's MDL format (which is also used by 
        * some GameStudio versions) 
        */ 
        C_STRUCT aiTexture** mTextures; 
 
 
        /** The number of light sources in the scene. Light sources 
        * are fully optional, in most cases this attribute will be 0  
        */ 
        unsigned int mNumLights; 
 
        /** The array of light sources. 
        *  
        * All light sources imported from the given file are 
        * listed here. The array is mNumLights in size. 
        */ 
        C_STRUCT aiLight** mLights; 
 
 
        /** The number of cameras in the scene. Cameras 
        * are fully optional, in most cases this attribute will be 0  
        */ 
        unsigned int mNumCameras; 
 
        /** The array of cameras. 
        *  
        * All cameras imported from the given file are listed here. 
        * The array is mNumCameras in size. The first camera in the 
        * array (if existing) is the default camera view into 
        * the scene. 
        */ 
        C_STRUCT aiCamera** mCameras; 
} 
 
aiMaterial 
    /** List of all material properties loaded. */ 
    C_STRUCT aiMaterialProperty** mProperties; 
 
    /** Number of properties in the data base */ 
    unsigned int mNumProperties; 
 
         /** Storage allocated */ 
    unsigned int mNumAllocated; 
 
 
aiMaterialProperty 
struct aiMaterialProperty 
{ 
    /** Specifies the name of the property (key) 
     *  Keys are generally case insensitive.  
     */ 
    C_STRUCT aiString mKey; 
 
        /** Textures: Specifies their exact usage semantic. 
         * For non-texture properties, this member is always 0  
         * (or, better-said, #aiTextureType_NONE). 
         */ 
        unsigned int mSemantic; 
 
        /** Textures: Specifies the index of the texture. 
         *  For non-texture properties, this member is always 0. 
         */ 
        unsigned int mIndex; 
 
    /** Size of the buffer mData is pointing to, in bytes. 
         *  This value may not be 0. 
     */ 
    unsigned int mDataLength; 
 
    /** Type information for the property. 
     * 
     * Defines the data layout inside the data buffer. This is used 
         * by the library internally to perform debug checks and to  
         * utilize proper type conversions.  
         * (It's probably a hacky solution, but it works.) 
     */ 
    C_ENUM aiPropertyTypeInfo mType; 
 
    /** Binary buffer to hold the property's value. 
     * The size of the buffer is always mDataLength. 
     */ 
    char* mData; 

3. Re: wrapping C code - my exercise in incompetence.

• Posted by ssallen Mar 12, 2013
• 3160 views

So my question is... where am I going wrong in my get_mat_properties() routine? Am I pointing in the wrong place? If so, why does my get_aiString_sequence() consistently give me the correct value? Ugh, this is the better part of the memory blob, the mesh chunk is even worse. :)

Thanks,

Steve A.

5. Re: wrapping C code - my exercise in incompetence.

• Posted by ssallen Mar 12, 2013
• 3096 views

Yep, I will post it tomorrow. Its on my work computer unfortunately.

7. Re: wrapping C code - my exercise in incompetence.

• Posted by ghaberek (admin) Mar 12, 2013
• 3158 views

That's exactly what I was thinking. We can (for the time being) assume size_t is an unsigned int (4 bytes). So the aiString structure should be 1028 bytes.

Those are constants for define_c_func/proc and are not meant to be sizes in and of themselves. You can, however, shift them down to their respected sizes quite easily:

public function sizeof( atom x ) 
    -- returns 1, 2, 4, or 8 
    return and_bits( x, #FF ) 
end function 
 
public constant SIGNED = 1, UNSIGNED = 2, FLOAT = 3 
 
public function sign( atom x ) 
    -- returns SIGNED, UNSIGNED, or FLOAT 
    return and_bits( x / #1000000, #FF ) 
end function 

Although it's not perfect, since C_DWORDLONG (which is an 8 byte unsigned int) has the same value as C_DOUBLE (which is an 8-byte float).

Edit: this will not be necessary on Euphoria 4.1, since it includes its own sizeof() function and native structure support.

-Greg

9. Re: wrapping C code - my exercise in incompetence.

• Posted by ssallen Mar 13, 2013
• 3003 views

Hello again, here is my get_aiString_Sequence method.

function get_aiString_sequence(atom loc) 
 
	sequence aiStr 
 
	aiStr = AI_STRING 
	aiStr[1] = peek4u(loc)         -- t_size 
	if aiStr[1] < 1 then 
		aiStr[2] = "bad length" 
	else 
		aiStr[2] = peek_string(loc+4)	-- string 
	end if 
	 
	if length(aiStr[2]) != aiStr[1] then 
		-- Handle:  length doesn't match! 
	end if 
	 
	return aiStr 
 
end function 
 

11. Re: wrapping C code - my exercise in incompetence.

• Posted by ssallen Mar 13, 2013
• 2976 views

loc += length(tprop[1][2]) + 5 

loc += 1024 + 4 -- MAXLEN + size_t 

Oh, that makes sense. I just assumed since the first item in the structure was size that it would be the length of the buffer. I'll give this a run and report back. Thanks everyone!

Steve A.

13. Re: wrapping C code - my exercise in incompetence.

• Posted by ghaberek (admin) Mar 13, 2013
• 2977 views

ASSIMP_API C_STRUCT aiLogStream aiGetPredefinedLogStream( 
        C_ENUM aiDefaultLogStream pStreams, 
        const char* file); 

It's passing the structure by value instead of by reference, which is another big no-no in many books. Unfortunately, Euphoria is completely incapable of dealing with this correctly. I have dealt with this first-hand, see: define_c_func/proc and 64-bit return types.

I had to resort to writing a "shim" library (dll/so) in C to push the structure from the stack (pass-by-value) to the heap (pass-by-reference, a.k.a. pointers) and back again. I'm afraid you may have to do the same. I'd be glad to help, if you need. You may also be able to use Assembly code to do this, but I've had no such luck. I'm still quite rusty when it comes to Assembly.

typedef void (*aiLogStreamCallback)(const char* /* message */, char* /* user */);   

That is not a real function. It is a typedef, which defines how your function should look when passing its reference to other functions. You just need to setup a call_back() and pass that value to whatever function(s) call for it.

public function aiLogStreamCallback( atom pMessage /* char* */, atom pUser /* char* */ ) 
     
    sequence message = peek_string( pMessage ) 
    sequence user = peek_string( pUser ) 
 
    -- do what you need here 
 
    return 0 
end function 
constant alLogStreamCallback_cb = call_back( routine_id("aiLogStreamCallback") ) 

-Greg

15. Re: wrapping C code - my exercise in incompetence.

• Posted by jmduro Jan 08, 2016
• 2437 views

In Euphoria 4.1, both have different values. Can't this be changed in 4.05 ?

Jean-Marc

17. Re: wrapping C code - my exercise in incompetence.

• Posted by jmduro Jan 08, 2016
• 2399 views

I'm afraid it does not. I try to adapt functions I used in my Low-level Windows wrapper to automatically fill or parse structures according to the computers processor and the compiler release. When I use Eu4.05, I get the same value for both C_DOUBLE and C_DWORDLONG, even with your functions. In one case, I have to deal with a float, in another with a 64-bit integer.

I'm wondering if Eu4.05 knows #03000002 or not (C_DWORDLONG). Maybe I should not care as I use the decimal values.

Jean-Marc

19. Re: wrapping C code - my exercise in incompetence.

• Posted by jmduro Jan 08, 2016
• 2409 views

Thank you Jim,

I will try to exploit following tables for what I intend to do:

Jean-Marc

21. Re: wrapping C code - my exercise in incompetence.

• Posted by K_D_R Jan 09, 2016
• 2340 views

atom p = NULL 
atom s1 = allocate_string("A string") 
p = allocateStructure(p, {C_POINTER, C_INT, C_FLOAT} ) 
writeStructure(p, {C_POINTER, C_INT, C_INT}, {s1, 12, 25.2} ) 
sequence s2 = readStructure(p, {C_POINTER, C_INT, C_INT} ) 
printf(1, "s2[1] = %s, s2[2] = %d, s2[3] = %4.1f\n", {peek_string(s2[1]), s2[2], s2[3]}) 
freeStructure(p, {C_POINTER, C_INT, C_INT} ) 

test_structures.ex crashed on my system:

 
Ubuntu 15.10, 64-bit 
 
Euphoria Interpreter v4.1.0 development 
   64-bit Linux, Using System Memory 
   Revision Date: 2015-02-02 14:18:53, Id: 5861:57179171dbed 
 
kenneth@kenneth-desktop:~/euprogs/Structures$ ls 
eu_types.ods  ex.err  functions.e  structures.e  test_structures.ex 
kenneth@kenneth-desktop:~/euprogs/Structures$ eui test_structures.ex 
 
/home/kenneth/euprogs/Structures/structures.e:22 in function allocateStructure()  
A machine-level exception occurred during execution of this statement (signal 11)  
 
... called from /home/kenneth/euprogs/Structures/test_structures.ex:10  
 
--> See ex.err 
ex.err: 
/home/kenneth/euprogs/Structures/structures.e:22 in function allocateStructure()  
A machine-level exception occurred during execution of this statement (signal 11)  
    p = 0 
    def = {50331649,16777220,50331652} 
    lg = 0 
    i = 1 
 
... called from /home/kenneth/euprogs/Structures/test_structures.ex:10  
 
 
Public & Export & Global & Local Variables 
 
 /home/kenneth/euphoria-4.1.0-Linux-x64/include/std/memconst.e: 
    DEP_really_works = 0 
    use_DEP = 1 
    FREE_RID = 2 
    kernel_dll = <no value> 
    memDLL_id = <no value> 
    VirtualAlloc_rid = <no value> 
    VirtualLock_rid = <no value> 
    VirtualUnlock_rid = <no value> 
    VirtualProtect_rid = <no value> 
    GetLastError_rid = <no value> 
    GetSystemInfo_rid = <no value> 
 
 /home/kenneth/euphoria-4.1.0-Linux-x64/include/std/memory.e: 
    edges_only = <no value> 
    check_calls = 1 
    VirtualFree_rid = <no value> 
 
 /home/kenneth/euphoria-4.1.0-Linux-x64/include/std/types.e: 
    Defined_Sets = { 
                     {98'b',99'c',100'd',102'f',103'g',104'h',106'j',107'k', 
108'l',109'm',110'n',112'p',113'q',114'r',115's',116't',118'v',119'w',120'x', 
121'y',122'z',66'B',67'C',68'D',70'F',71'G',72'H',74'J',75'K',76'L',77'M', 
78'N',80'P',81'Q',82'R',83'S',84'T',86'V',87'W',88'X',89'Y',90'Z'}, 
                     {97'a',101'e',105'i',111'o',117'u',65'A',69'E',73'I', 
79'O',85'U'}, 
                     { 
                       {48'0',57'9'}, 
                       {65'A',70'F'}, 
                       {97'a',102'f'} 
                     }, 
                     {32' ',9,10,13,11,160}, 
                     { 
                       {32' ',47'/'}, 
                       {58':',63'?'}, 
                       {91'[',96'`'}, 
                       {123'{',126'~'} 
                     }, 
                     { 
                       {32' ',126'~'} 
                     }, 
                     { 
                       {32' ',126'~'}, 
                       {32' ',32' '}, 
                       {9,9}, 
                       {10,10}, 
                       {13,13}, 
                       {8,8}, 
                       {7,7} 
                     }, 
                     { 
                       {97'a',122'z'} 
                     }, 
                     { 
                       {65'A',90'Z'} 
                     }, 
                     { 
                       {48'0',57'9'}, 
                       {97'a',122'z'}, 
                       {65'A',90'Z'} 
                     }, 
                     { 
                       {48'0',57'9'}, 
                       {97'a',122'z'}, 
                       {65'A',90'Z'}, 
                       {95'_',95'_'} 
                     }, 
                     { 
                       {97'a',122'z'}, 
                       {65'A',90'Z'} 
                     }, 
                     { 
                       {0,127} 
                     }, 
                     { 
                       {0,31}, 
                       {127,127} 
                     }, 
                     { 
                       {48'0',57'9'} 
                     }, 
                     { 
                       {33'!',126'~'} 
                     }, 
                     { 
                       {0,255} 
                     }, 
                     {95'_'}, 
                     {1,0} 
                   } 
 
 /home/kenneth/euphoria-4.1.0-Linux-x64/include/std/machine.e: 
    FREE_ARRAY_RID = 1 
    page_size = 4096 
 
 /home/kenneth/euphoria-4.1.0-Linux-x64/include/std/convert.e: 
    mem = 18919424 
    decimal_mark = 46'.' 
 
 /home/kenneth/euphoria-4.1.0-Linux-x64/include/std/datetime.e: 
    yydiff = 80'P' 
    month_names = { 
                    {74'J',97'a',110'n',117'u',97'a',114'r',121'y'}, 
                    {70'F',101'e',98'b',114'r',117'u',97'a',114'r',121'y'}, 
                    {77'M',97'a',114'r',99'c',104'h'}, 
                    {65'A',112'p',114'r',105'i',108'l'}, 
                    {77'M',97'a',121'y'}, 
                    {74'J',117'u',110'n',101'e'}, 
                    {74'J',117'u',108'l',121'y'}, 
                    {65'A',117'u',103'g',117'u',115's',116't'}, 
                    {83'S',101'e',112'p',116't',101'e',109'm',98'b',101'e', 
114'r'}, 
                    {79'O',99'c',116't',111'o',98'b',101'e',114'r'}, 
                    {78'N',111'o',118'v',101'e',109'm',98'b',101'e',114'r'}, 
                    {68'D',101'e',99'c',101'e',109'm',98'b',101'e',114'r'} 
                  } 
    month_abbrs = { 
                    {74'J',97'a',110'n'}, 
                    {70'F',101'e',98'b'}, 
                    {77'M',97'a',114'r'}, 
                    {65'A',112'p',114'r'}, 
                    {77'M',97'a',121'y'}, 
                    {74'J',117'u',110'n'}, 
                    {74'J',117'u',108'l'}, 
                    {65'A',117'u',103'g'}, 
                    {83'S',101'e',112'p'}, 
                    {79'O',99'c',116't'}, 
                    {78'N',111'o',118'v'}, 
                    {68'D',101'e',99'c'} 
                  } 
    day_names = { 
                  {83'S',117'u',110'n',100'd',97'a',121'y'}, 
                  {77'M',111'o',110'n',100'd',97'a',121'y'}, 
                  {84'T',117'u',101'e',115's',100'd',97'a',121'y'}, 
                  {87'W',101'e',100'd',110'n',101'e',115's',100'd',97'a', 
121'y'}, 
                  {84'T',104'h',117'u',114'r',115's',100'd',97'a',121'y'}, 
                  {70'F',114'r',105'i',100'd',97'a',121'y'}, 
                  {83'S',97'a',116't',117'u',114'r',100'd',97'a',121'y'} 
                } 
    day_abbrs = { 
                  {83'S',117'u',110'n'}, 
                  {77'M',111'o',110'n'}, 
                  {84'T',117'u',101'e'}, 
                  {87'W',101'e',100'd'}, 
                  {84'T',104'h',117'u'}, 
                  {70'F',114'r',105'i'}, 
                  {83'S',97'a',116't'} 
                } 
    ampm = { 
             {65'A',77'M'}, 
             {80'P',77'M'} 
           } 
 
 /home/kenneth/euphoria-4.1.0-Linux-x64/include/std/filesys.e: 
    STAT_VER = 0 
    my_dir = -2 
    InitCurDir = {47'/',104'h',111'o',109'm',101'e',47'/',107'k',101'e',110'n', 
110'n',101'e',116't',104'h',47'/',101'e',117'u',112'p',114'r',111'o',103'g', 
115's',47'/',83'S',116't',114'r',117'u',99'c',116't',117'u',114'r',101'e', 
115's',47'/'} 
    file_counters = {} 
 
 /home/kenneth/euphoria-4.1.0-Linux-x64/include/std/pretty.e: 
    pretty_end_col = <no value> 
    pretty_chars = <no value> 
    pretty_start_col = <no value> 
    pretty_level = <no value> 
    pretty_file = <no value> 
    pretty_ascii = <no value> 
    pretty_indent = <no value> 
    pretty_ascii_min = <no value> 
    pretty_ascii_max = <no value> 
    pretty_line_count = <no value> 
    pretty_line_max = <no value> 
    pretty_dots = <no value> 
    pretty_line_breaks = <no value> 
    pretty_printing = <no value> 
    pretty_fp_format = <no value> 
    pretty_int_format = <no value> 
    pretty_line = <no value> 
 
 /home/kenneth/euphoria-4.1.0-Linux-x64/include/std/serialize.e: 
    mem0 = 15736832 
    mem1 = 15736833 
    mem2 = 15736834 
    mem3 = 15736835 
    mem4 = 15736836 
    mem5 = 15736837 
    mem6 = 15736838 
    mem7 = 15736839 
 
 /home/kenneth/euphoria-4.1.0-Linux-x64/include/std/text.e: 
    lower_case_SET = {} 
    upper_case_SET = {} 
    encoding_NAME = {65'A',83'S',67'C',73'I',73'I'} 
 
 /home/kenneth/euphoria-4.1.0-Linux-x64/include/std/io.e: 
    mem0 = 17715200 
    mem1 = 17715201 
    mem2 = 17715202 
    mem3 = 17715203 
 
 /home/kenneth/euphoria-4.1.0-Linux-x64/include/std/scinot.e: 
    NATIVE_FORMAT = 3 
 
 /home/kenneth/euphoria-4.1.0-Linux-x64/include/std/get.e: 
    input_file = <no value> 
    input_string = <no value> 
    string_next = <no value> 
    ch = <no value> 
    leading_whitespace = <no value> 
 
 /home/kenneth/euphoria-4.1.0-Linux-x64/include/std/eumem.e: 
    ram_space = {} 
    ram_free_list = 0 
    free_rid = 6 
 
 /home/kenneth/euphoria-4.1.0-Linux-x64/include/std/primes.e: 
    list_of_primes = {2,3} 
 
 /home/kenneth/euphoria-4.1.0-Linux-x64/include/std/graphcst.e: 
    true_fgcolor = {0,4,2,6,1,5,3,7,8,12,10,14,9,13,11,15,16,20,18,22,17, 
21,19,23,24,28,26,28,25,29,17,31} 
    true_bgcolor = {0,4,2,6,1,5,3,7,8,12,10,14,9,13,11,15,16,20,18,22,17, 
21,19,23,24,28,26,28,25,29,17,31} 
 
 /home/kenneth/euprogs/Structures/test_structures.ex: 
    p = 0 
    s1 = 15777792 
    s2 = <no value> 
 

23. Re: wrapping C code - my exercise in incompetence.

• Posted by jimcbrown (admin) Jan 11, 2016
• 2260 views

Hmm. Can you give the output of running 'make test' so we can see which (if any) of the ifdef tests are failing?

A short and simple example that demonstrates the bug would help too.

25. Re: wrapping C code - my exercise in incompetence.

• Posted by jimcbrown (admin) Jan 11, 2016
• 2244 views

Looks like all the tests passed.

Can you come up with a simpler test case?

Also, can you file a ticket for this bug?

27. Re: wrapping C code - my exercise in incompetence.

• Posted by jimcbrown (admin) Jan 11, 2016
• 2237 views

Thanks for doing this.

So if I understand the ticket correctly, jmduro is wrong - there is no bug with the ifdefs.

29. Re: wrapping C code - my exercise in incompetence.

• Posted by jmduro Jan 12, 2016
• 2234 views

Could you explain please? When I extract the portion between ifdefs, I still don't understand where I have to correct the code because I didn't catch the logic behind ifdef management.

ifdef EU4_0 then 
    case C_INT, C_BOOL, C_LONG, 
         C_HRESULT, C_LPARAM, 
         C_WPARAM then               -- 32-bit signed   (#01000004) 
      lg += 4 
    case C_UINT, C_DWORD, C_HANDLE, 
         C_HWND, C_POINTER, C_SIZE_T, 
         C_ULONG then                -- 32-bit unsigned (#02000004) 
      lg += 4 
elsifdef EU4_1 then 
    case C_BOOL, C_INT then          -- 32-bit signed   (#01000004) 
      lg += 4 
    case C_DWORD, C_UINT then        -- 32-bit unsigned (#02000004) 
      lg += 4 
    case C_DWORDLONG, C_LONGLONG then -- 64-bit integer (#03000002) 
      lg += 8 
  ifdef BITS32 then     -- 32-bit 
    case C_LONG, C_HRESULT then      -- 32-bit signed   (#01000008) 
      lg += 4 
    case C_ULONG, C_SIZE_T then      -- 32-bit unsigned (#02000008) 
      lg += 4 
    case C_POINTER, C_HANDLE, C_HWND, 
         C_LPARAM, C_WPARAM then     -- 32-bit pointer  (#03000001) 
      lg += 4 
  elsifdef BITS64 then  -- 64-bit 
    case C_LONG, C_HRESULT then      -- 64-bit signed   (#01000008) 
      lg += 8 
    case C_ULONG, C_SIZE_T then      -- 64-bit unsigned (#02000008) 
      lg += 8 
    case C_POINTER, C_HANDLE, C_HWND, 
         C_LPARAM, C_WPARAM then     -- 64-bit pointer  (#03000001) 
      lg += 8 
  end ifdef 
end ifdef 
 

In my case, Eu 4.1 on x86-64, the interpreter should see

    case C_BOOL, C_INT then          -- 32-bit signed   (#01000004) 
      lg += 4 
    case C_DWORD, C_UINT then        -- 32-bit unsigned (#02000004) 
      lg += 4 
    case C_DWORDLONG, C_LONGLONG then -- 64-bit integer (#03000002) 
      lg += 8 
    case C_LONG, C_HRESULT then      -- 64-bit signed   (#01000008) 
      lg += 8 
    case C_ULONG, C_SIZE_T then      -- 64-bit unsigned (#02000008) 
      lg += 8 
    case C_POINTER, C_HANDLE, C_HWND, 
         C_LPARAM, C_WPARAM then     -- 64-bit pointer  (#03000001) 
      lg += 8 
 

Do I have to understand that on a 64-bit system, both BITS32 and BITS64 are defined ?

Jean-Marc

31. Re: wrapping C code - my exercise in incompetence.

• Posted by jimcbrown (admin) Jan 12, 2016
• 2232 views

    case C_BOOL, C_INT then          -- 32-bit signed   (#01000004) 
      lg += 4 
    case C_DWORD, C_UINT then        -- 32-bit unsigned (#02000004) 
      lg += 4 
    case C_DWORDLONG, C_LONGLONG then -- 64-bit integer (#03000002) 
      lg += 8 
    case C_LONG, C_HRESULT then      -- 64-bit signed   (#01000008) 
      lg += 8 
    case C_ULONG, C_SIZE_T then      -- 64-bit unsigned (#02000008) 
      lg += 8 
    case C_POINTER, C_HANDLE, C_HWND, 
         C_LPARAM, C_WPARAM then     -- 64-bit pointer  (#03000001) 
      lg += 8 
 

On 64bit, C_HANDLE is defined as a C_LONGLONG (#03000002), not as a C_POINTER (#03000001)

See http://scm.openeuphoria.org/hg/euphoria/file/16462e686646/include/std/dll.e#l68 and http://scm.openeuphoria.org/hg/euphoria/file/16462e686646/include/std/dll.e#l64

Sounds reasonable.

Nope.

33. Re: wrapping C code - my exercise in incompetence.

• Posted by jmduro Jan 12, 2016
• 2205 views

Now I understand better what's going on. In std/dll.e of my OE 4.1 release (2015-02-13), C_HANDLE is defined as a C_POINTER, not as a C_LONGLONG, both in the 32-bit and 64-bit versions.

	--** handle sizeof pointer 
	C_HANDLE  = C_POINTER, 

Jean-Marc

35. Re: wrapping C code - my exercise in incompetence.

• Posted by jmduro Jan 12, 2016
• 2167 views

If you look a the tables above (#19), you'll see that some variables have different numeric values in 4.05 and 4.1: C_LONG, C_ULONG, etc.

Jean-Marc

37. Re: wrapping C code - my exercise in incompetence.

• Posted by jmduro Jan 15, 2016
• 2107 views

I will correct my code. However, ifdefs (or switch statement) still have a bug. This is not allowed:

switch def[i] do 
ifdef EU4_0 then  -- error if ifdef follows immediatly switch statement 
  case C_LPARAM, C_WPARAM then 
    free(values[i]) 
elsifdef EU4_1 then 
  case C_LONG_PTR, C_HANDLE, 
       C_HWND then                 -- 32-bit signed   (#01000008) 
    free(values[i]) 
end ifdef 
end switch