globals.h (745B)

      1 #ifndef WIG_GLOBALS
      2 #define WIG_GLOBALS
      3 
      4 #include <libguile.h>
      5 
      6 extern SCM scm_count_widgets;
      7 extern SCM scm_compile_widgets;
      8 
      9 #define scm_wig_count_widgets(scm_widgets)                                     \
     10 	scm_call_1(scm_count_widgets, scm_widgets)
     11 
     12 #define scm_wig_compile_widgets(scm_widgets, scm_w, scm_h, scm_bv)             \
     13 	scm_call_4(scm_compile_widgets, scm_widgets, scm_from_uint32(scm_w),   \
     14 	           scm_from_uint32(scm_h), scm_bv)
     15 
     16 #define scm_c_pointer_to_bytevector(ptr, len)                                  \
     17 	scm_pointer_to_bytevector(scm_from_pointer(ptr, NULL),                 \
     18 	                          scm_from_size_t(len), scm_from_size_t(0),    \
     19 	                          scm_from_utf8_symbol("u8"))
     20 
     21 #endif