mobile_sys.pr

通信软件设计基础实验报告 简易手机软件系统

decision /*#E*/ 
smesarr!smessarr(j)!sn=a;
/*#SDTREF(SDL,D:\122\message_control.spr(3),1316(92,92))*/
(false):
/*#SDTREF(SDL,D:\122\message_control.spr(3),1298(80,100))*/
task {/*#E*/ 
j:=j+1;};
/*#SDTREF(SDL,D:\122\message_control.spr(3),1295(80,120))*/
decision /*#E*/ 
j>9;
/*#SDTREF(SDL,D:\122\message_control.spr(3),1322(107,82))*/
(false):
/*#SDTREF(SDL,D:\122\message_control.spr(3),1325(72,127))*/
(true):
/*#SDTREF(SDL,D:\122\message_control.spr(3),1292(70,140))*/
task /*#E*/ 
j:=0;
/*#SDTREF(SDL,D:\122\message_control.spr(3),1295(80,120))*/
enddecision;
/*#SDTREF(SDL,D:\122\message_control.spr(3),1331(37,92))*/
(true):
/*#SDTREF(SDL,D:\122\message_control.spr(3),1289(30,105))*/
task {/*#E*/ 
smesarr!smessarr(j)!mes:='';
smesarr!mesnum:=
smesarr!mesnum-1;
smesarr!smessarr(j)!sn:=0;
a:=a-1;
};
/*#SDTREF(SDL,D:\122\message_control.spr(3),1286(35,140))*/
decision /*#E*/ 
a>1;
/*#SDTREF(SDL,D:\122\message_control.spr(3),1337(27,150))*/
(true):
/*#SDTREF(SDL,D:\122\message_control.spr(3),1283(25,165))*/
nextstate /*#E*/ 
-;
/*#SDTREF(SDL,D:\122\message_control.spr(3),1340(57,150))*/
(false):
/*#SDTREF(SDL,D:\122\message_control.spr(3),1280(55,165))*/
nextstate /*#E*/ 
idle;
/*#SDTREF(SDL,D:\122\message_control.spr(3),1286(35,140))*/
enddecision;
/*#SDTREF(SDL,D:\122\message_control.spr(3),1301(55,85))*/
enddecision;
/*#SDTREF(SDL,D:\122\message_control.spr(3),1301(55,85))*/
join /*#E*/ 
grst17;
/*#SDTREF(SDL,D:\122\message_control.spr(3),1307(60,50))*/
endconnection 4;
/*#SDTREF(SDL,D:\122\message_control.spr,4)*/
endprocess message_control;
/*#SDTREF(SDL,D:\122\editsmes.spd,4)*/
procedure editsmes;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1553(115,25))*/
dcl i idx10,
       x  charstring,
       cde charstring;
dcl  index   idx70;
dcl   message  charstring,
         temp   charstring;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1454(20,25))*/
start /*#E*/ 
;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1451(20,40))*/
task /*#E*/ 
i:=0;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1448(15,55))*/
nextstate /*#E*/ 
waitediteditsmes;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1448(15,55))*/
state /*#E*/ 
waitediteditsmes;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1445(20,70))*/
input /*#E*/ 
digit1(cde);
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1442(20,85))*/
task /*#E*/ 
i:=i+1;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1439(5,100))*/
decision /*#E*/ 
i>4;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1472(37,100))*/
(true):
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1436(45,105))*/
task /*#E*/ 
i:=i-4;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1496(5,120))*/
(false):
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1439(5,100))*/
enddecision;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1433(20,120))*/
decision /*#E*/ 
cde=x;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1478(32,132))*/
(false):
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1430(15,140))*/
task {/*#E*/ 
x:=cde;
temp:=substring
(message,1,index);
temp:=temp // x;
message:=substring
(message,
index+1,
length(message)-index);
message:=temp//message;
index:=index+1;};
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1427(15,190))*/
output /*#E*/ 
display(messsage);
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1424(20,205))*/
nextstate /*#E*/ 
-;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1487(77,127))*/
(true):
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1421(55,150))*/
task {/*#E*/ 
index:=index-1;
temp:=substring
(message,1,index);
temp:=temp // x;
message:=substring
(message,
index+1,
length(message)-index);
message:=temp//message;
index:=index+1;};
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1418(60,195))*/
output /*#E*/ 
display(messsage);
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1415(65,210))*/
nextstate /*#E*/ 
-;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1433(20,120))*/
enddecision;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1412(45,70))*/
input /*#E*/ 
left_keystroke;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1409(65,85))*/
task /*#E*/ 
index:=index-1;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1406(70,100))*/
decision /*#E*/ 
index<1;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1508(77,115))*/
(true):
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1403(85,125))*/
task /*#E*/ 
index:=1;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1514(92,110))*/
(false):
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1406(70,100))*/
enddecision;
grst18:
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1400(100,145))*/
nextstate /*#E*/ 
-;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1397(80,70))*/
input /*#E*/ 
right_keystroke;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1394(100,85))*/
task /*#E*/ 
index:=index+1;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1391(115,100))*/
decision /*#E*/ 
index>70;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1526(127,112))*/
(true):
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1388(115,120))*/
task /*#E*/ 
index:=70;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1532(142,142))*/
(false):
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1391(115,100))*/
enddecision;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1400(100,145))*/
join /*#E*/ 
grst18;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1385(115,70))*/
input /*#E*/ 
hangup;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1382(135,85))*/
join /*#E*/ 
10;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1379(145,70))*/
input /*#E*/ 
cancel_keystroke;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1376(160,90))*/
join /*#E*/ 
11;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1373(150,130))*/
input /*#E*/ 
callout;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1370(155,150))*/
join /*#E*/ 
12;
/*#SDTREF(SDL,D:\122\editsmes.spd(1),1448(15,55))*/
endstate;
/*#SDTREF(SDL,D:\122\editsmes.spd(2),1592(25,115))*/
state /*#E*/ 
wait_hangup;
/*#SDTREF(SDL,D:\122\editsmes.spd(2),1589(25,135))*/
input /*#E*/ 
hangup;
/*#SDTREF(SDL,D:\122\editsmes.spd(2),1586(20,160))*/
nextstate /*#E*/ 
waitediteditsmes;
/*#SDTREF(SDL,D:\122\editsmes.spd(2),1592(25,115))*/
endstate;
/*#SDTREF(SDL,D:\122\editsmes.spd(2),1601(30,50))*/
connection /*#E*/ 
10:
/*#SDTREF(SDL,D:\122\editsmes.spd(2),1598(20,70))*/
task /*#E*/ 
messsage:='';
/*#SDTREF(SDL,D:\122\editsmes.spd(2),1595(15,95))*/
output /*#E*/ 
display(short_message
) via hardware_ssmes;
/*#SDTREF(SDL,D:\122\editsmes.spd(2),1592(25,115))*/
nextstate /*#E*/ 
wait_hangup;
/*#SDTREF(SDL,D:\122\editsmes.spd(2),1601(30,50))*/
endconnection 10;
/*#SDTREF(SDL,D:\122\editsmes.spd(2),1583(85,50))*/
connection /*#E*/ 
11:
/*#SDTREF(SDL,D:\122\editsmes.spd(2),1580(65,75))*/
task {/*#E*/ 
index:=index-1;
temp:=substring
(message,1,index);
temp:=temp // x;
message:=substring
(message,
index+1,
length(message)-index);
message:=temp//message;};
/*#SDTREF(SDL,D:\122\editsmes.spd(2),1577(80,120))*/
nextstate /*#E*/ 
-;
/*#SDTREF(SDL,D:\122\editsmes.spd(2),1583(85,50))*/
endconnection 11;
/*#SDTREF(SDL,D:\122\editsmes.spd(2),1574(150,55))*/
connection /*#E*/ 
12:
/*#SDTREF(SDL,D:\122\editsmes.spd(2),1571(130,75))*/
output /*#E*/ 
display
(message_phonenumber)
via hardware_ssmes;
/*#SDTREF(SDL,D:\122\editsmes.spd(2),1568(150,90))*/
return /*#E*/ 
;
/*#SDTREF(SDL,D:\122\editsmes.spd(2),1574(150,55))*/
endconnection 12;
/*#SDTREF(SDL,D:\122\editsmes.spd,4)*/
endprocedure editsmes;
/*#SDTREF(SDL,D:\122\editsmesarr.spd,4)*/
procedure editsmesarr;
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),251(40,25))*/
start /*#E*/ 
;
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),170(40,45))*/
task /*#E*/ 
j:=0;
grst19:
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),167(20,60))*/
output /*#E*/ 
display(smesarr!smessarr(j)!mes)
via hardware_rsmes;
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),164(25,75))*/
nextstate /*#E*/ 
display_smesarr.smessarr[j].mes;
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),164(25,75))*/
state /*#E*/ 
display_smesarr.smessarr[j].mes;
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),161(145,85))*/
input /*#E*/ 
down_keystroke;
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),158(145,100))*/
task /*#E*/ 
smesarr!smessarr(j)!sn:=a;
grst20:
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),155(135,115))*/
task {/*#E*/ 
j:=j+1;
a:=a-1;};
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),152(135,130))*/
decision /*#E*/ 
j>9;
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),191(117,137))*/
(false):
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),200(162,137))*/
(true):
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),146(150,160))*/
task /*#E*/ 
j:=0;
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),152(135,130))*/
enddecision;
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),149(110,160))*/
decision /*#E*/ 
smesarr!smessarr(j)!sn=a;
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),194(105,175))*/
(true):
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),167(20,60))*/
join /*#E*/ 
grst19;
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),197(135,115))*/
(false):
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),155(135,115))*/
join /*#E*/ 
grst20;
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),149(110,160))*/
enddecision;
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),143(15,95))*/
input /*#E*/ 
up_keystroke;
grst21:
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),140(20,110))*/
task {/*#E*/ 
smesarr!smessarr(j)!sn:=a;
j:=j-1;
a:=a-1;};
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),137(20,125))*/
decision /*#E*/ 
j<0;
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),215(22,140))*/
(false):
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),224(32,140))*/
(true):
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),131(30,160))*/
task /*#E*/ 
j:=9;
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),137(20,125))*/
enddecision;
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),134(15,145))*/
decision /*#E*/ 
smesarr!smessarr(j)!sn=a;
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),218(12,60))*/
(true):
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),167(20,60))*/
join /*#E*/ 
grst19;
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),221(42,107))*/
(false):
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),140(20,110))*/
join /*#E*/ 
grst21;
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),134(15,145))*/
enddecision;
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),128(50,95))*/
input /*#E*/ 
hangup;
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),125(45,120))*/
task {/*#E*/ 
smesarr!smessarr(j)!mes:='';
smesarr!mesnum:=
smesarr!mesnum-1;
smesarr!smessarr(j)!sn:=0;
};
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),155(135,115))*/
join /*#E*/ 
grst20;
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),122(75,95))*/
input /*#E*/ 
left_keystroke;
grst22:
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),119(100,115))*/
return /*#E*/ 
;
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),116(110,95))*/
input /*#E*/ 
right_keystroke;
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),119(100,115))*/
join /*#E*/ 
grst22;
/*#SDTREF(SDL,D:\122\editsmesarr.spd(1),164(25,75))*/
endstate;
/*#SDTREF(SDL,D:\122\editsmesarr.spd,4)*/
endprocedure editsmesarr;