Example #1
0
void CAESAR_ITERATE_STATE(CAESAR_TYPE_STATE s1, 
			CAESAR_TYPE_LABEL l, 
			CAESAR_TYPE_STATE s2, 
			void (*callback) 
				(CAESAR_TYPE_STATE, CAESAR_TYPE_LABEL, CAESAR_TYPE_STATE)) {
    int i,c;
    if (edge_encode && s1->state[0]<0) return;
    if (edge_encode){
        int labels[state_labels];
        GBgetStateLabelsAll(model,s1->state,labels);
        {
            callback_struct_t context = { s1, l, s2, labels, callback };
            c=GBgetTransitionsAll(model,s1->state,iterate_transition,&context);
            if (c==0){
                int ofs=edge_labels;
                for(i=0;i<edge_labels;i++) l->label[i]=-1;
                for(i=0;i<N;i++) {
                    l->label[ofs+i] = s1->state[i];
                    /* for dummy deadlock
                    s2->state[i] = - 1;
                    */
                    /* for selfloop deadlock */
                    s2->state[i]=s1->state[i];
                }
                ofs+=N;
                for(i=0;i<state_labels;i++) l->label[ofs+i] = labels[i];
                callback(s1,l,s2);
            }
        }
    } else {
        callback_struct_t context = { s1, l, s2, NULL, callback };
	c=GBgetTransitionsAll(model,s1->state,iterate_transition,&context);
    }
}
Example #2
0
static void explore_state_index(void*context,int idx,int*src){
	model_t model=(model_t)context;
	int labels[state_labels];
	if (state_labels){
		GBgetStateLabelsAll(model,src,labels);
	}
	if(write_lts){
		if(write_state){
			enum_vec(output_handle,src,labels);
		} else {
			enum_seg(output_handle,0,idx,labels);
		}
	}
	switch(call_mode){
	case UseBlackBox:
		GBgetTransitionsAll(model,src,index_next,&idx);
		break;
	case UseGreyBox:
		for(int i=0;i<K;i++){
			GBgetTransitionsLong(model,i,src,index_next,&idx);
		}
		break;
	}
	explored++;
	if (explored%1000==0 && RTverbosity>=2) 
	  Warning(info,"explored %d visited %d trans %d",explored,visited,trans);
}
Example #3
0
void CAESAR_PRINT_STATE(CAESAR_TYPE_FILE f,CAESAR_TYPE_STATE s) {
	int i;
	chunk c;
	int labels[state_labels];
	
	if (state_format==0) {
		fprintf(f, "state [");
		for(i=0; i < N; i++) {
			if (i>0)
				fprintf(f, ",");
			fprintf(f, "%d", s->state[i]);
		}
		fprintf(f, "]\n");
	} else if (state_format==1) {
		GBgetStateLabelsAll(model,s->state,labels);
		fprintf(f, "state <");
		for(i=0; i < state_labels; i++) {
			if (i>0)
				fprintf(f, ";");
			c=GBchunkGet(model,lts_type_get_state_label_typeno(ltstype,i),labels[i]);
			char str[c.len*2+6];
			chunk2string(c,sizeof str,str);
			fprintf(f, "%s", str);
		}
		fprintf(f, ">");
	}
}
Example #4
0
static void 
write_trace_state(trc_env_t *env, int *state)
{
    int                 labels[env->state_labels];
    if (env->state_labels) GBgetStateLabelsAll(env->model, state, labels);
    lts_write_state (env->trace_handle, 0, state, labels);
}
Example #5
0
void
ta_pbfs (wctx_t *ctx)
{
    alg_local_t        *loc = ctx->local;
    alg_global_t       *sm = ctx->global;
    size_t              count;
    raw_data_t          state_data;
    int                 labels[SL];
    do {
        loc->counters.level_size = 0; // count states in next level
        loc->flip = 1 - loc->flip;
        for (size_t i = 0; i < W; i++) {
            size_t          current = (i << 1) + loc->flip;
            while ((state_data = isba_pop_int (sm->queues[current])) &&
                    !run_is_stopped (ctx->run)) {
                if (grab_waiting(ctx, state_data)) {
                    ta_explore_state (ctx);
                    if (EXPECT_FALSE(loc->lts && write_state)){
                        state_data_t pins_state = state_info_pins_state (ctx->state);
                        if (SL > 0)
                            GBgetStateLabelsAll (ctx->model, pins_state, labels);
                        lts_write_state (loc->lts, ctx->id, pins_state, labels);
                    }
                }
            }
        }
        count = sbfs_level (ctx, loc->counters.level_size);
    } while (count && !run_is_stopped(ctx->run));
}
Example #6
0
void CAESAR_DELTA_STATE(CAESAR_TYPE_FILE f,CAESAR_TYPE_STATE s1,CAESAR_TYPE_STATE s2) {
	int i;
	chunk c;
	int labels1[state_labels];
	int labels2[state_labels];
	
	if (state_format==0) {
		fprintf(f, "state [");
		for(i=0; i < N; i++) {
			if (i>0)
				fprintf(f, ",");
			if (s1->state[i] == s2->state[i])
				fprintf(f, "-");
			else
				fprintf(f, "%d:=%d", s1->state[i], s2->state[i]);
		}
		fprintf(f, "]\n");
	} else if (state_format==1) {
		GBgetStateLabelsAll(model,s1->state,labels1);
		GBgetStateLabelsAll(model,s2->state,labels2);
		fprintf(f, "state <");
		for(i=0; i < state_labels; i++) {
			if (i>0)
				fprintf(f, ";");
			if (s1->state[i] == s2->state[i])
				fprintf(f, "-");
			else {
				c=GBchunkGet(model,lts_type_get_state_label_typeno(ltstype,i),labels1[i]);
				{
					char str[c.len*2+6];
					chunk2string(c,sizeof str,str);
					fprintf(f, "%s", str);
				}
				fprintf(f, ":=");
				c=GBchunkGet(model,lts_type_get_state_label_typeno(ltstype,i),labels2[i]);
				{
					char str[c.len*2+6];
					chunk2string(c,sizeof str,str);
					fprintf(f, "%s", str);
				}
			}
		}
		fprintf(f, ">");
	}
}
Example #7
0
static void
sl_group (model_t model, sl_group_enum_t group, int *state, int *labels)
{
    switch (group) {
        case GB_SL_ALL:
            GBgetStateLabelsAll(model, state, labels);
            return;
        case GB_SL_GUARDS:
            get_guard_all(model, state, labels);
            return;
        default:
            return;
    }
}