OpenEuphoria

Re: Attempting to subscript an atom Error

• Posted by irv Oct 16, 2022
• 669 views

type xfn(atom x) -- type is your friend 
return x > -1 
end type 
 
export xfn  
  xal_init_primitives_addon = define_c_func(prim,"+al_init_primitives_addon",{},C_BOOL),              
  xal_is_primitives_addon_initialized = define_c_func(prim,"+al_is_primitives_addon_initialized",{},C_BOOL),  
  xal_shutdown_primitives_addon = define_c_proc(prim,"+al_shutdown_primitives_addon",{}),  
  xal_draw_prim = define_c_func(prim,"+al_draw_prim",{C_POINTER,C_POINTER,C_POINTER,C_INT,C_INT,C_INT},C_INT)