Example #1
0
static void setDebugModuleName(configValue a)
{
	int i = 0;
	for ( i = 0; i < a.argNum; i++ )
	{
		add_debug_module(a.argument[i]);
	}
}
Example #2
0
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;
}
Example #3
0
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;
}