Promela BCL-6 A Protocol

/*
*PROMELAValidationModel
*协议层验证
*
*验证BCL可靠性协议Aversion5.0
*
*Yuhuang
*2007-7-26
*/

/*
*本版本特点：采用集合点来通信,允许ACK、DATA丢包，实现了队列自动重发。
*加入了对传输介质的模拟。介质可以丢包，导致包失序。
*
*未完全模拟的问题：ACK、DATA失序问题
*/


/**************数据结构定义*************/

/*序号范围定义*/
#defineWIN9
/*发送队列大小定义*/
#defineQSIZE4


/*消息类型定义*/
mtype={ACK,DATA}


/*
*{ACK,s_seqno}
*/
chansevts=[0]of{mtype,byte};
chanrevts=[0]of{mtype,byte};


/*
*{DATA,r_seqno}
*数据队列
*/
chansdata=[0]of{mtype,byte};
chanrdata=[0]of{mtype,byte};


/*发送记录队列*/
/*当ACK发生的时候，ACK（含）之前的内容都被清除*/
bytehead_seq;
bytetail_seq;
bytecur_seq;
/*
#defineinc(x)(x=(x+1)%WIN)
*/



proctypesender2media()
{
byteseq;

do
::sdata?DATA,seq->
if
::rdata!DATA,seq
::skip
fi
od
}


proctypereceiver2media()
{
byteseq;
do
::revts?ACK,seq->
if
::sevts!ACK,seq
::skip
fi
od
}







proctypesender(byteid)
{

bytes;

head_seq=0;
tail_seq=0;
cur_seq=0;

do
::(tail_seq+WIN-head_seq+1)%WIN!=QSIZE->/*队列不为满，允许发送*/
if
::sdata!DATA,cur_seq/*normalsendaction*/
fi;

progress_2:cur_seq=(cur_seq+1)%WIN;
tail_seq=(tail_seq+1)%WIN;;/*更新tail,head保持不变*/

::sevts?ACK,s->
/*进行ACK失序处理*/
/*若s不在当前的head_seq~tail_seq范围内,则简单忽略之*/
if
::(head_seq<tail_seq)->/*顺序递增情景*/
if
::(s>tail_seq||s<head_seq)->
gotoendofack
::else
fi
::(head_seq>tail_seq)->/*非递增情景*/
if
::(s<head_seq&&s>tail_seq)->
gotoendofack
::else
fi
::else
fi;

assert(s<WIN);
head_seq=(s+1)%WIN;/*根据ACK更新head_seq,暗含了累积更新*/
cur_seq=head_seq;
endofack:skip



::((cur_seq!=tail_seq)&&(tail_seq-head_seq)!=0)->
/*队列不为空，允许发送.此情景配合timeout时重发使用*/
/*第一个判断是为了防止发送不存在内容*/

if
::sdata!DATA,cur_seq/*normalsendaction*/
fi;
cur_seq=(cur_seq+1)%WIN;

::timeout->/*超时*/
/*更新指针，准备重发队列*/
cur_seq=head_seq;
/*尝试重发队列*/
if
::sdata!DATA,cur_seq/*normalsendaction*/
fi;
cur_seq=(cur_seq+1)%WIN;/*发送了一个包，更新cur_seq*/
/*这里不用更新tail_seq,因为这个值只在有新的包加入到队列的时候才更新*/
od
}


proctypereceiver(byteid)
{
byteexpected_seqno;
bytes;

expected_seqno=0;

do
::rdata?DATA,s->
if
::(s!=expected_seqno)->/*非期望数据包*/
if
::revts!ACK,(expected_seqno+WIN-1)%WIN/*someackswaslost,ackagain!*/
fi
::(s==expected_seqno)->/*期望数据包*/
if
::revts!ACK,expected_seqno->/*ack*/
expected_seqno=(expected_seqno+1)%WIN
fi
fi

od

}


init
{
atomic{
runsender(0);
runsender2media();
runreceiver(1);
runreceiver2media();
}

}