OpenEuphoria

1. Manage C structures

• Posted by jmduro Sep 23, 2022
• 761 views

I have updated my previous structure manager so that it can use C syntax. It is available here: http://jean-marc.duro.pagesperso-orange.fr/Structures_v0.1.0_2022-09-23.zip

Here is the example code:

include std/dll.e 
include std/machine.e 
include std/console.e 
include common.e 
include structs.e 
 
sequence myStructure =  
"struct _mydata {" & 
"  int a;" & 
"  float b;" & 
"  char c;" & 
"} bar;" 
 
f_debug = open("debug.log", "w") 
debug_level = VERBOSE 
 
sequence struct = allocateStructure(myStructure) 
writeStructure(struct, {allocate_string("A string"), 12, 25.2} ) 
sequence s = readStructure(struct) 
printf(1, "s2[1] = %s, s2[2] = %d, s2[3] = %4.1f\n", {peek_string(s[1]), s[2], s[3]}) 
freeStructure(struct) 
 
close(f_debug) 
maybe_any_key() 

The parser is ready for nested structures and unions (see decompose_struct.ex, result below) but the manager can only deal with simple structures yet: one level, no union, no nesting.

sequence myStructure =  
"struct _mydata {" & 
"    int which_one;" & 
"    union _data {" & 
"            int a;" & 
"            float b;" & 
"            char c;" & 
"    } foo;" & 
"} bar;" 

vars = 
  [SU_TYPE] STRUCT 
  [SU_TYPE_NAME] "_mydata" 
  [SU_VAR_NAME] "bar" 
  [SU_BLOCK] 
  .  [1] "int which_one;" 
  .  [2] 
  .  .  [SU_TYPE] UNION 
  .  .  [SU_TYPE_NAME] "_data" 
  .  .  [SU_VAR_NAME] "foo" 
  .  .  [SU_BLOCK] {"int a;", "float b;", "char c;"} 

Jean-Marc

3. Re: Manage C structures

• Posted by petelomax Sep 23, 2022
• 728 views

writeStructure(struct, {allocate_string("A string"), 12, 25.2} ) 

Hmm, isn't that putting ptr/int/float into an int/float/char?
Also, wouldn't triple-quotes be better?

for i = 1 to length(rs)  do 
    printf(1,"%s",{i}) 
end for 

That's never going to work, maybe you meant printf(1,"%s",{rs[i]}), or printf(1,"%d ",{rs[i]}), or why not just try ?rs

5. Re: Manage C structures

• Posted by jmduro Sep 25, 2022
• 631 views

writeStructure(struct, {allocate_string("A string"), 12, 25.2} ) 

You are right Pete. I din't realize I declared first item as an int. It should have been a pointer.

Jean-Marc

7. Re: Manage C structures

• Posted by jmduro Sep 26, 2022
• 622 views

Before it gets deprecated by libffi, here is another release in pure Euphoria: http://jean-marc.duro.pagesperso-orange.fr/Structures_v0.2.0_2022-09-26.zip

It can read or write individual items in addition to writing or reading whole simple structures.

include std/dll.e 
include std/machine.e 
include std/console.e 
include common.e 
include structs.e 
 
sequence myStructure =  
"struct _mydata {" & 
"  pointer a;" & 
"  float b;" & 
"  char c;" & 
"} bar;" 
 
f_debug = open("debug.log", "w") 
debug_level = DEBUG 
 
sequence struct = allocateStructure(myStructure) 
writeStructure(struct, {allocate_string("A string"), 25.2, 'a'} ) 
sequence s = readStructure(struct) 
printf(1, "%s = \"%s\", %s = %4.1f, %s = '%s'\n", { 
  struct[SU_DEF][1][VAR_NAME], peek_string(s[1]), 
  struct[SU_DEF][2][VAR_NAME], s[2], 
  struct[SU_DEF][3][VAR_NAME], s[3] 
}) 
writeVariable(struct, "b", 40.0) 
s = readStructure(struct) 
atom b = readVariable(struct, "b") 
printf(1, "b = %4.1f\n", {b}) 
printf(1, "%s = \"%s\", %s = %4.1f, %s = '%s'\n", { 
  struct[SU_DEF][1][VAR_NAME], peek_string(s[1]), 
  struct[SU_DEF][2][VAR_NAME], s[2], 
  struct[SU_DEF][3][VAR_NAME], s[3] 
}) 
freeStructure(struct) 
 
close(f_debug) 
maybe_any_key() 

a = "A string", b = 25.2, c = 'a' 
b = 40.0 
a = "A string", b = 40.0, c = 'a' 
Press Any Key to continue... 

Jean-Marc