static void setDebugModuleName(configValue a) { int i = 0; for ( i = 0; i < a.argNum; i++ ) { add_debug_module(a.argument[i]); } }
void window_sys_init(SINGLE_QSP_ARG_DECL) { char s[8]; Variable *vp; if( window_sys_inited ) return; #ifdef QUIP_DEBUG xdebug = add_debug_module(QSP_ARG "xsupp"); #endif /* QUIP_DEBUG */ add_event_func(QSP_ARG i_loop); set_discard_func( discard_events ); window_sys_inited=1; if( current_dop == NO_DISP_OBJ ){ current_dop = default_x_display(SINGLE_QSP_ARG); if( current_dop == NO_DISP_OBJ ){ NWARN("Couldn't open default display!?"); return; } } // Make sure DISPLAY_WIDTH and DISPLAY_HEIGHT are set... // If these have been set in the environment, leave be. vp = var_of(QSP_ARG "DISPLAY_WIDTH"); if( vp == NULL ){ sprintf(s,"%d",current_dop->do_width); ASSIGN_RESERVED_VAR("DISPLAY_WIDTH",s); } vp = var_of(QSP_ARG "DISPLAY_HEIGHT"); if( vp == NULL ){ sprintf(s,"%d",current_dop->do_height); ASSIGN_RESERVED_VAR("DISPLAY_HEIGHT",s); } //window_sys_inited=1; }
void _dataobj_init(SINGLE_QSP_ARG_DECL) // initiliaze the module { static int dobj_inited=0; if( dobj_inited ){ /* We need to call this from other menus * like fileio and rawvol, so no assertion here. */ return; } #ifdef QUIP_DEBUG debug_data = add_debug_module("data"); #endif // QUIP_DEBUG // BUG? this happens here on the main thread, but child threads // will need to be initialized elsewhere! INSURE_QS_DOBJ_ASCII_INFO(THIS_QSP) init_dobj_ascii_info(QS_DOBJ_ASCII_INFO(THIS_QSP) ); init_dobjs(); /* initialize items */ vl2_init_platform(SINGLE_QSP_ARG); // this initializes ram_area_p init_tmp_dps(); set_del_method(dobj_itp,(void (*)(QSP_ARG_DECL Item *))_delvec); init_dfuncs(SINGLE_QSP_ARG); set_obj_funcs( _get_obj, _dobj_of, _d_subscript, _c_subscript); init_dobj_expr_funcs(SINGLE_QSP_ARG); // /* BUG need to make context items sizables too!? */ add_sizable(dobj_itp,&dobj_sf, (Item * (*)(QSP_ARG_DECL const char *))_hunt_obj); add_positionable(dobj_itp,&dobj_pf, (Item * (*)(QSP_ARG_DECL const char *))_hunt_obj); add_interlaceable(dobj_itp,&dobj_if, (Item * (*)(QSP_ARG_DECL const char *))_hunt_obj); add_subscriptable(dobj_itp,&dobj_ssf, (Item * (*)(QSP_ARG_DECL const char *))_hunt_obj); // This was commented out - why? // Maybe because initial iOS implementation didn't include ports menu? /* set up additional port data type */ define_port_data_type(P_DATA,"data","name of data object", _recv_obj, (const char *(*)(QSP_ARG_DECL const char *))_pick_obj, (void (*)(QSP_ARG_DECL Port *,const void *,int)) _xmit_obj ); /* Version control */ // verdata(SINGLE_QSP_ARG); dobj_inited =1; }