How to translate this complex C struct to Adept?

[ghost]

https://github.com/smallbasic/smallbasic.plugins/blob/5ab2915cf044ccadd4587df6b55d447d69bceb6e/include/var.h#L52

The most useful information I could find is #249. But the struct var_s is much more complex.

[IsaacShelton]

Maybe something like this could work:

struct var_s (
    v union (
        // numeric
        n var_num_t,

        // integer
        i var_int_t,

        // pointer to sub/func variable
        ap struct (
            // address pointer
            p uint,
            // return var ID
            v uint,
        ),
        
        // associative array/map
        m struct (
            // pointer the map structure
            map ptr,
            count, size, id, lib_id, cls_id uint
        ),

        // reference variable
        ref *var_s,
        
        // object method
        fn struct (
            cb method,
            id uint,
        ),

        // generic ptr (string)
        p struct (
            ptr ubyte,
            length uint,
            owner ubyte,
        ),
        
        // array
        a struct (
            data *var_s,
            // the number of elements
            size uint,
            // the number of available element slots
            capacity uint,
            // upper and lower bounds
            ubound [MAXDIM] int,
            lbound [MAXDIM] int,
        )

        // next item in the free-list
        pool_next *var_s,
    )

    // number of dimensions
    maxdim ubyte,

    // variables type
    type ubyte,

    // non-zero if constant
    const_flag ubyte,

    // whether help in pooled memory
    pooled ubyte,
)

alias var_t = var_s

[IsaacShelton]

alias method = func(self *var_s, retval *var_s) void
alias var_num_t = double
alias var_int_t = long
define MAXDIM = 6

[ghost]

alias method = func(self *var_s, retval *var_s) void
alias var_num_t = double
alias var_int_t = long
define MAXDIM = 6

alias method = func(/*self*/ *var_s, /*retval*/ *var_s) void
alias var_num_t = double
alias var_int_t = long
define MAXDIM = 6

[ghost]

Full code:

alias method = func(/*self*/ *var_s, /*retval*/ *var_s) void
alias var_num_t = double
alias var_int_t = long
define MAXDIM = 6

struct var_s (
    v union (
        // numeric
        n var_num_t,

        // integer
        i var_int_t,

        // pointer to sub/func variable
        ap struct (
            // address pointer
            p uint,
            // return var ID
            v uint,
        ),
        
        // associative array/map
        m struct (
            // pointer the map structure
            map ptr,
            count, size, id, lib_id, cls_id uint
        ),

        // reference variable
        ref *var_s,
        
        // object method
        fn struct (
            cb method,
            id uint,
        ),

        // generic ptr (string)
        p struct (
            ptr ubyte,
            length uint,
            owner ubyte,
        ),
        
        // array
        a struct (
            data *var_s,
            // the number of elements
            size uint,
            // the number of available element slots
            capacity uint,
            // upper and lower bounds
            ubound [MAXDIM] int,
            lbound [MAXDIM] int,
        )

        // next item in the free-list
        pool_next *var_s,
    )

    // number of dimensions
    maxdim ubyte,

    // variables type
    type ubyte,

    // non-zero if constant
    const_flag ubyte,

    // whether help in pooled memory
    pooled ubyte,
)

alias var_t = var_s

Doesn't compile:

adept -c "test.adept" (in directory: C:\Users\Administrator\Downloads)
internal-warning: ast_elem_hash() - Cannot hash AST_ELEM_VAR_FIXED_ARRAY element, returning faux hash
internal-warning: ast_elem_hash() - Cannot hash AST_ELEM_VAR_FIXED_ARRAY element, returning faux hash
test.adept:9:11: error: Undeclared type 'var_num_t'
  9|         n var_num_t,
               ^^^^^^^^^
Compilation failed.

[IsaacShelton]

Hmm that's weird I'll take a look into it. Maybe the type resolution isn't going through for anonymous unions or something.

[IsaacShelton]

@iahung2 This bug is fixed in the latest nightly build

[ghost]

This code compiled fine:

alias method = func(/*self*/ *var_s, /*retval*/ *var_s) void
alias var_num_t = double
alias var_int_t = long
define MAXDIM = 6

struct var_s (
    v union (
        // numeric
        n var_num_t,

        // integer
        i var_int_t,

        // pointer to sub/func variable
        ap struct (
            // address pointer
            p uint,
            // return var ID
            v uint,
        ),
        
        // associative array/map
        m struct (
            // pointer the map structure
            map ptr,
            count, size, id, lib_id, cls_id uint
        ),

        // reference variable
        ref *var_s,
        
        // object method
        fn struct (
            cb method,
            id uint,
        ),

        // generic ptr (string)
        p struct (
            ptr_ ubyte,
            length uint,
            owner ubyte,
        ),
        
        // array
        a struct (
            data *var_s,
            // the number of elements
            size uint,
            // the number of available element slots
            capacity uint,
            // upper and lower bounds
            ubound [MAXDIM] int,
            lbound [MAXDIM] int,
        )

        // next item in the free-list
        pool_next *var_s,
    )

    // number of dimensions
    maxdim ubyte,

    // variables type
    type ubyte,

    // non-zero if constant
    const_flag ubyte,

    // whether help in pooled memory
    pooled ubyte,
)

alias var_t = var_s

Please note that in the p struct, ptr ubyte has to be changed to ptr_ ubyte since ptr is a data type.

[IsaacShelton]

It should work even if the field name is the same too (just the syntax highlighting will be off for it). Although it might be confusing