equal
deleted
inserted
replaced
15 |
15 |
16 function getNextChar: char; forward; |
16 function getNextChar: char; forward; |
17 function getCurrChar: char; forward; |
17 function getCurrChar: char; forward; |
18 |
18 |
19 type |
19 type |
20 TNetState = (netDisconnected, netConnecting, netLoggedIn); |
20 TNetState = (netDisconnected, netConnecting); |
21 TParserState = record |
21 TParserState = record |
22 cmd: TCmdType; |
22 cmd: TCmdType; |
23 l: LongInt; |
23 l: LongInt; |
24 netState: TNetState; |
24 netState: TNetState; |
25 buf: shortstring; |
25 buf: shortstring; |
126 sendUI(mtNetData, @cmd, sizeof(cmd)); |
126 sendUI(mtNetData, @cmd, sizeof(cmd)); |
127 handleTail() |
127 handleTail() |
128 end; |
128 end; |
129 |
129 |
130 procedure handler_SMS; |
130 procedure handler_SMS; |
131 begin |
131 var cmd: TCmdParamS; |
132 writeln('handler_SMS'); |
132 f: boolean; |
133 handleTail() |
133 begin |
|
134 cmd.cmd:= state.cmd; |
|
135 cmd.str1:= getShortString; |
|
136 if cmd.str1[0] = #0 then exit; |
|
137 sendUI(mtNetData, @cmd, sizeof(cmd)); |
|
138 |
|
139 cmd.cmd:= Succ(state.cmd); |
|
140 repeat |
|
141 cmd.str1:= getShortString; |
|
142 f:= cmd.str1[0] <> #0; |
|
143 if f then |
|
144 sendUI(mtNetData, @cmd, sizeof(cmd)); |
|
145 until not f |
134 end; |
146 end; |
135 |
147 |
136 procedure handler__i; |
148 procedure handler__i; |
137 var cmd: TCmdParami; |
149 var cmd: TCmdParami; |
138 s: shortstring; |
150 s: shortstring; |