1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
%
% anyremote configuration file for anyRemote performancs testing. (Server-mode)
%
% STATUS unknown
% XTEST no
% SOUND no
% ENV no
GuiAppName=parser test
GuiAppType=Example
GuiAppBinary=true
GuiAppProtocols=Server
GuiAppDesc=Test of anyRemote performance.
[Protocol]=Server
(Init)=\
Exec(echo Inited);
(Connect)=\
Set(parameter,debug,on);\
Exec(echo Connected);\
Set(status,0);\
Set(title,choose number of pings);\
Set(icons,List Example,\
1,fit,2,fit,3,fit,\
4,default,5,default,6,default,\
7,default,8,default,9,default,\
*,question,0,no,#,default);
(Disconnect)=\
Exec(echo Disconnected)
(Exit)=\
Exec(echo "hello from exit handler");
InCall($$)=\
Exec(echo "Incoming call from $(Param)");
EndCall($$)=\
Exec(echo "Call finished");
* *=Set(text,replace,Help,Choose number of pings\n1 - 10\n2 - 100\n3 - 1000);
Back=Set(text,close);
0=Make(exit);
1=Make(var,ping_number,by_value,10);\
Macro(STARTPING);
2=Make(var,ping_number,by_value,100);\
Macro(STARTPING);
3=Make(var,ping_number,by_value,1000);\
Macro(STARTPING);
STARTPING=\
Make(var,ping_done,by_value,0);\
Make(var,starttime,date "+%s");\
Set(status,0);\
Exec(echo "start $(starttime)");\
Macro(ONE_MORE);
Ping=\
Make(var,ping_done,expr $(ping_done) + 1);\
Exec(echo "ping $(ping_done) "`date "+%s"`);\
Set(status,$(ping_done));\
Make(var,is_done,if [ "x$(ping_done)" = "x$(ping_number)" ]; then echo DONE; else echo ONE_MORE; fi);\
Macro($(is_done));
ONE_MORE=\
Get(ping);
DONE=\
Make(var,endtime,date "+%s");\
Make(var,elapsed,expr $(endtime) - $(starttime));\
Exec(echo "end $(endtime)");\
Exec(echo "elapsed $(elapsed)");
[End]
|
