Значение переменной extractSMSModem

;(evl / (evl /localdo=;(evl / (evl /localname=$t;value=f=;r=) (evl /ifcondition=(= $1 lte);do=;(evl (evl /setname=(-> $t r);value=(-> (evl (evl /interface/lte/at-chatas-value=yes;input=$3;number=$2;wait=yes)) output)))) (evl /ifcondition=(= $1 ppp-client);do=;(evl (evl /setname=(-> $t r);value=(-> (evl (evl /interface/ppp-client/at-chatas-value=$3;input=$3;number=$2)) output)))) (evl /ifcondition=(!= (~ (-> $t r) (. (^|  )OK( $ |  ))) true);do=;(evl (evl /setname=(-> $t f);value=true));else=;(evl (evl /setname=(-> $t f);value=false))) (evl /returnvalue=$t));name=$chat) (evl /localname=$nameFind;value=(evl (evl /toarrayvalue=))) (evl /foreachcounter=$i;do=;(evl / (evl /ifcondition=(= (evl (evl /interface/lte/getnumber=$i;value-name=disabled)) false);do=;(evl / (evl /localname=$tmp;value=(evl (<%% bad command name info (line 22 column 28) info;$i;once;as-value))) (evl /setname=$nameFind;value=(, $nameFind manufacturer=(-> $tmp manufacturer);model=(-> $tmp model);name=(evl (evl /interface/lte/getnumber=$i;value-name=name));revision=(-> $tmp revision);type=lte)))));in=(evl (evl /interface/lte/find))) (evl /foreachcounter=$i;do=;(evl / (evl /ifcondition=(= (evl (evl /interface/ppp-client/getnumber=$i;value-name=disabled)) false);do=;(evl / (evl /localname=$manufacturer) (evl /setname=$nameFind;value=(, $nameFind name=(evl (evl /interface/ppp-client/getnumber=$i;value-name=name));type=ppp-client)))));in=(evl (evl /interface/ppp-client/find))) (evl /ifcondition=(= (evl (evl /lenvalue=$nameFind)) 0);do=;(evl (evl /returnvalue=No found Modem))) (evl /localname=$output;value=(evl (<%% (evl /parsevalue=(. ({ " errorStr " =[:tostr  " " ]; " arr " =[:toarray  " " ]}))) ))) (evl /foreachcounter=$m;do=;(evl / (evl /localname=$tmp) (evl /localname=$tmp2) (evl /localname=$stStart) (evl /localname=$stEnd) (evl /localname=$mode) (evl /docommand=;(evl / (evl /setname=$tmp;value=(evl (<%% $chat (> $chat);(-> $m type);(-> $m name);ATE0))) (evl /setname=$tmp;value=(evl (<%% $chat (> $chat);(-> $m type);(-> $m name);ATV1))) (evl /setname=$tmp;value=(evl (<%% $chat (> $chat);(-> $m type);(-> $m name);AT+CMGF?))) (evl /ifcondition=(-> $tmp f);do=;(evl (evl /setname=$tmp2;value=(. wrong answer to AT+CMGF  )) (<%% bad command name throw (line 49 column 65) throw))) (evl /setname=$stStart;value=(evl (evl /findin=(-> $tmp r);key=+CMGF))) (evl /ifcondition=(!= (evl (evl /typeofvalue=$stStart)) num);do=;(evl (evl /setname=$tmp2;value=(. wrong answer to AT+CMGF  )) (<%% bad command name throw (line 51 column 81) throw))) (evl /setname=$stEnd;value=(evl (evl /findfrom=$stStart;in=(-> $tmp r);key=(.  )))) (evl /ifcondition=(!= (evl (evl /typeofvalue=$stEnd)) num);do=;(evl (evl /setname=$tmp2;value=(. wrong answer to AT+CMGF  )) (<%% bad command name throw (line 53 column 79) throw))) (evl /setname=$tmp2;value=(evl (evl /pickbegin=(+ $stStart 7);counter=(-> $tmp r)))) (evl /ifcondition=(= $tmp2 0);do=;(evl (evl /setname=$mode;value=false));else=;(evl (evl /setname=$mode;value=true))) (evl /ifcondition=$mode;do=;(evl (evl /setname=$tmp;value=(evl (<%% $chat (> $chat);(-> $m type);(-> $m name);AT+CMGF=0))))) (evl /ifcondition=(-> $tmp f);do=;(evl (evl /setname=$tmp2;value=(. wrong answer to AT+CMGF=0  )) (<%% bad command name throw (line 58 column 67) throw))) (evl /localname=$curStruct;value=index=(evl (evl /toarrayvalue=));pdu=(evl (evl /toarrayvalue=))) (evl /setname=$tmp;value=(evl (<%% $chat (> $chat);(-> $m type);(-> $m name);AT+CMGL=4))) (evl /ifcondition=(! (-> $tmp f));do=;(evl / (evl /localname=$flagend;value=true) (evl /setname=$stStart;value=(evl (evl /findin=(-> $tmp r);key=+CMGL))) (evl /ifcondition=(!= (evl (evl /typeofvalue=$stStart)) num);do=;(evl (evl /setname=$flagend;value=false))) (evl /setname=$stStart) (evl /whilecondition=$flagend;do=;(evl / (evl /setname=$stStart;value=(evl (evl /findfrom=$stStart;in=(-> $tmp r);key=+CMGL))) (evl /ifcondition=(!= (evl (evl /typeofvalue=$stStart)) num);do=;(evl (evl /setname=$tmp2;value=(. wrong answer to AT+CMGL  )) (<%% bad command name throw (line 78 column 81) throw))) (evl /setname=$stEnd;value=(evl (evl /findfrom=$stStart;in=(-> $tmp r);key=(.  )))) (evl /ifcondition=(!= (evl (evl /typeofvalue=$stEnd)) num);do=;(evl (evl /setname=$tmp2;value=(. wrong answer to AT+CMGL  )) (<%% bad command name throw (line 80 column 79) throw))) (evl /setname=$tmp2;value=(evl (evl /pickbegin=$stStart;counter=(-> $tmp r);end=$stEnd))) (evl /localname=$stat;value=(evl (evl /tonumvalue=(evl (evl /pickbegin=(+ (evl (evl /findin=$tmp2;key=,)) 1);counter=$tmp2))))) (evl /ifcondition=(or (= $stat 0) (= $stat 1));do=;(evl / (evl /setname=$stStart;value=(evl (evl /findin=$tmp2;key=,,))) (evl /ifcondition=(!= (evl (evl /typeofvalue=$stStart)) num);do=;(evl (evl /setname=$stStart;value=(+ (evl (evl /findin=$tmp2;key=(. , " " ,))) 4)));else=;(evl (evl /setname=$stStart;value=(+ $stStart 2)))) (evl /localname=$length;value=(evl (evl /tonumvalue=(evl (evl /pickbegin=$stStart;counter=$tmp2;end=(evl (evl /lenvalue=$tmp2))))))) (evl /localname=$index;value=(evl (evl /tonumvalue=(evl (evl /pickbegin=(+ (evl (evl /findin=$tmp2;key= )) 1);counter=$tmp2;end=(evl (evl /findin=$tmp2;key=,))))))) (evl /setname=$stStart;value=(+ $stEnd 2)) (evl /localname=$coretka;value=true) (evl /whilecondition=$coretka;do=;(evl / (evl /ifcondition=(or (= (evl (evl /pickbegin=$stStart;counter=(-> $tmp r))) ) (= (evl (evl /pickbegin=$stStart;counter=(-> $tmp r))) ));do=;(evl / (evl /setname=$stStart;value=(+ $stStart 1)));else=;(evl (evl /setname=$coretka;value=false))))) (evl /setname=$stEnd;value=(evl (evl /findfrom=$stStart;in=(-> $tmp r);key=(.  )))) (evl /ifcondition=(!= (evl (evl /typeofvalue=$stEnd)) num);do=;(evl (evl /setname=$tmp2;value=(. wrong answer to AT+CMGL  )) (<%% bad command name throw (line 95 column 79) throw))) (evl /setname=$tmp2;value=(evl (evl /pickbegin=$stStart;counter=(-> $tmp r);end=$stEnd))) (evl /setname=$length;value=(* (+ $length 1 (evl (evl /tonumvalue=(. 0x (evl (evl /pickbegin=0;counter=$tmp2;end=2)))))) 2)) (evl /ifcondition=(!= $length (evl (evl /lenvalue=$tmp2)));do=;(evl (evl /setname=$tmp2;value=(. wrong length in CMGL  )) (<%% bad command name throw (line 98 column 74) throw))) (evl /setname=(-> $curStruct pdu);value=(, (-> $curStruct pdu) mode=sms;name=(-> $m name);pdu=$tmp2)) (evl /setname=(-> $curStruct index);value=(, (-> $curStruct index) $index)))) (evl /setname=$tmp2;value=(evl (evl /pickbegin=$stEnd;counter=(-> $tmp r);end=(evl (evl /lenvalue=(-> $tmp r)))))) (evl /ifcondition=(and (!= (~ $tmp2 (. \ +CMGL)) true) (= (~ $tmp2 (. (^|  )OK( $ |  ))) true));do=;(evl (evl /setname=$flagend;value=false))))));else=;(evl (evl /localname=$simFill) (evl /docommand=;(evl / (evl /setname=$tmp;value=(evl (<%% $chat (> $chat);(-> $m type);(-> $m name);AT+CMGD=?))) (evl /ifcondition=(-> $tmp f);do=;(evl (<%% bad command name throw (line 108 column 23) throw))) (evl /setname=$stStart;value=(evl (evl /findin=(-> $tmp r);key=+CMGD))) (evl /ifcondition=(!= (evl (evl /typeofvalue=$stStart)) num);do=;(evl (<%% bad command name throw (line 110 column 39) throw))) (evl /setname=$stEnd;value=(evl (evl /findfrom=$stStart;in=(-> $tmp r);key=(.  )))) (evl /ifcondition=(!= (evl (evl /typeofvalue=$stEnd)) num);do=;(evl (<%% bad command name throw (line 112 column 37) throw))) (evl /setname=$tmp2;value=(evl (evl /pickbegin=$stStart;counter=(-> $tmp r);end=$stEnd))) (evl /setname=$stStart;value=(evl (evl /findin=$tmp2;key=())) (evl /ifcondition=(!= (evl (evl /typeofvalue=$stStart)) num);do=;(evl (<%% bad command name throw (line 115 column 39) throw))) (evl /setname=$stEnd;value=(evl (evl /findin=$tmp2;key=)))) (evl /ifcondition=(!= (evl (evl /typeofvalue=$stEnd)) num);do=;(evl (<%% bad command name throw (line 117 column 37) throw))) (evl /setname=$simFill;value=(evl (evl /toarrayvalue=(evl (evl /pickbegin=(+ $stStart 1);counter=$tmp2;end=$stEnd))))));on-error=;(evl (evl /setname=$tmp2;value=(. wrong answer to AT+CMGD=?  )) (<%% bad command name throw (line 119 column 57) throw))) (evl /foreachcounter=$i;do=;(evl (evl /docommand=;(evl / (evl /setname=$tmp;value=(evl (<%% $chat (> $chat);(-> $m type);(-> $m name);(. AT+CMGR= (evl (evl /tostrvalue=$i)))))) (evl /ifcondition=(-> $tmp f);do=;(evl (<%% bad command name throw (line 122 column 23) throw))) (evl /setname=$stStart;value=(evl (evl /findin=(-> $tmp r);key=+CMGR))) (evl /ifcondition=(!= (evl (evl /typeofvalue=$stStart)) num);do=;(evl (<%% bad command name throw (line 124 column 39) throw))) (evl /setname=$stEnd;value=(evl (evl /findfrom=$stStart;in=(-> $tmp r);key=(.  )))) (evl /ifcondition=(!= (evl (evl /typeofvalue=$stEnd)) num);do=;(evl (<%% bad command name throw (line 126 column 37) throw))) (evl /setname=$tmp2;value=(evl (evl /pickbegin=$stStart;counter=(-> $tmp r);end=$stEnd))) (evl /localname=$stat;value=(evl (evl /tonumvalue=(evl (evl /pickbegin=(+ (evl (evl /findin=$tmp2;key= )) 1);counter=$tmp2))))) (evl /ifcondition=(or (= $stat 0) (= $stat 1));do=;(evl / (evl /setname=$stStart;value=(evl (evl /findin=$tmp2;key=,,))) (evl /ifcondition=(!= (evl (evl /typeofvalue=$stStart)) num);do=;(evl (evl /setname=$stStart;value=(+ (evl (evl /findin=$tmp2;key=(. , " " ,))) 4)));else=;(evl (evl /setname=$stStart;value=(+ $stStart 2)))) (evl /localname=$length;value=(evl (evl /tonumvalue=(evl (evl /pickbegin=$stStart;counter=$tmp2;end=(evl (evl /lenvalue=$tmp2))))))) (evl /setname=$stStart;value=(+ $stEnd 2)) (evl /localname=$coretka;value=true) (evl /whilecondition=$coretka;do=;(evl / (evl /ifcondition=(or (= (evl (evl /pickbegin=$stStart;counter=(-> $tmp r))) ) (= (evl (evl /pickbegin=$stStart;counter=(-> $tmp r))) ));do=;(evl / (evl /setname=$stStart;value=(+ $stStart 1)));else=;(evl (evl /setname=$coretka;value=false))))) (evl /setname=$stEnd;value=(evl (evl /findfrom=$stStart;in=(-> $tmp r);key=(.  )))) (evl /ifcondition=(!= (evl (evl /typeofvalue=$stEnd)) num);do=;(evl (<%% bad command name throw (line 140 column 37) throw))) (evl /setname=$tmp2;value=(evl (evl /pickbegin=$stStart;counter=(-> $tmp r);end=$stEnd))) (evl /setname=$length;value=(* (+ $length 1 (evl (evl /tonumvalue=(. 0x (evl (evl /pickbegin=0;counter=$tmp2;end=2)))))) 2)) (evl /ifcondition=(!= $length (evl (evl /lenvalue=$tmp2)));do=;(evl (<%% bad command name throw (line 143 column 35) throw))) (evl /setname=(-> $curStruct pdu);value=(, (-> $curStruct pdu) mode=sms;name=(-> $m name);pdu=$tmp2)) (evl /setname=(-> $curStruct index);value=(, (-> $curStruct index) $i)))));on-error=;(evl (evl /setname=$tmp2;value=(. wrong answer to AT+CMGR= $i ; simfill= (evl (evl /tostrvalue=$simFill))  )) (<%% bad command name throw (line 146 column 92) throw))));in=$simFill))) (evl /ifcondition=(> (evl (evl /lenvalue=(-> $curStruct index))) 0);do=;(evl / (evl /setname=$tmp;value=(evl (<%% $chat (> $chat);(-> $m type);(-> $m name);AT+CMGD=1,1))) (evl /ifcondition=(-> $tmp f);do=;(evl / (evl /foreachcounter=$i;do=;(evl / (evl /localname=$iterError;value=5) (evl /whilecondition=(> $iterError 0);do=;(evl / (evl /setname=$tmp;value=(evl (<%% $chat (> $chat);(-> $m type);(-> $m name);(. AT+CMGD= (evl (evl /tostrvalue=$i)))))) (evl /setname=$iterError;value=(- $iterError 1)) (evl /ifcondition=(! (-> $tmp f));do=;(evl (evl /setname=$iterError;value=0))))) (evl /ifcondition=(-> $tmp f);do=;(evl (evl /ifcondition=(!= (~ (-> $m model) R11e) true);do=;(evl / (evl /setname=$tmp2;value=(. wrong answer in CMGD  )) (<%% bad command name throw (line 159 column 40) throw));else=;(evl (evl /setname=(-> $tmp f);value=false))))));in=(-> $curStruct index)))))) (evl /ifcondition=$mode;do=;(evl (evl /setname=$tmp;value=(evl (<%% $chat (> $chat);(-> $m type);(-> $m name);AT+CMGF=1))))) (evl /ifcondition=(-> $tmp f);do=;(evl (evl /setname=$tmp2;value=(. wrong answer to AT+CMGF=1  )) (<%% bad command name throw (line 163 column 67) throw))) (evl /ifcondition=(> (evl (evl /lenvalue=(-> $curStruct index))) 0);do=;(evl / (evl /setname=(-> $output arr);value=(, (-> $output arr) (-> $curStruct pdu))))));on-error=;(evl / (evl /localname=$es;value=(-> $tmp r)) (evl /ifcondition=(= (-> $m type) ppp-client);do=;(evl / (evl /localname=$man;value=(evl (<%% $chat (> $chat);(-> $m type);(-> $m name);AT+GMI))) (evl /ifcondition=(-> $man f);do=;(evl (evl /setname=$man;value=(evl (<%% $chat (> $chat);(-> $m type);(-> $m name);AT+CGMI))))) (evl /ifcondition=(-> $man f);do=;(evl (evl /setname=$man;value=no information));else=;(evl (evl /setname=$man;value=(-> $man r)))) (evl /localname=$mod;value=(evl (<%% $chat (> $chat);(-> $m type);(-> $m name);AT+GMM))) (evl /ifcondition=(-> $mod f);do=;(evl (evl /setname=$mod;value=(evl (<%% $chat (> $chat);(-> $m type);(-> $m name);AT+CGMM))))) (evl /ifcondition=(-> $mod f);do=;(evl (evl /setname=$mod;value=no information));else=;(evl (evl /setname=$mod;value=(-> $mod r)))) (evl /localname=$rev;value=(evl (<%% $chat (> $chat);(-> $m type);(-> $m name);AT+GMR))) (evl /ifcondition=(-> $rev f);do=;(evl (evl /setname=$rev;value=(evl (<%% $chat (> $chat);(-> $m type);(-> $m name);AT+CGMR))))) (evl /ifcondition=(-> $rev f);do=;(evl (evl /setname=$rev;value=no information));else=;(evl (evl /setname=$rev;value=(-> $rev r)))) (evl /setname=$m;value=(, $m manufacturer=$man;model=$mod;revision=$rev)))) (evl /setname=(-> $output errorStr);value=(. (-> $output errorStr) Modem:  (evl (evl /tostrvalue=$m))   Error:  $tmp2 Returned:   $es  )))));in=$nameFind) (evl /returnvalue=$output))