C027_Support - support library for C027 helper functions for Buf…

Users » Prez » Code » C027_Support

support library for C027 helper functions for Buffer Pipes, Buffered Serial Port (rtos capable) and GPS parsing. It includes modem APIs for USSD, SMS and Sockets.

Fork of C027_Support by u-blox

MDM.cpp@134:2fbd5723e063, 2016-01-12 (annotated)

Committer:: msinig
Date:: Tue Jan 12 08:37:29 2016 +0000
Revision:: 134:2fbd5723e063
Parent:: 133:57b208dd96fb
Child:: 135:cbccf4052d45

added features for connection manager

Who changed what in which revision?

User	Revision	Line number	New contents of line
mazgch	18:e5697801df29	1	#include "mbed.h"
mazgch	18:e5697801df29	2	#include "MDM.h"
mazgch	74:208e3e32d263	3	#ifdef TARGET_UBLOX_C027
mazgch	74:208e3e32d263	4	#include "C027_api.h"
mazgch	74:208e3e32d263	5	#endif
mazgch	85:dd8f4f0d0ca9	6	#include "MDMAPN.h"
mazgch	125:25a292afbac6	7
mazgch	74:208e3e32d263	8	#define PROFILE "0" //!< this is the psd profile used
mazgch	74:208e3e32d263	9	#define MAX_SIZE 128 //!< max expected messages
mazgch	103:197fa7920ad8	10	// num sockets
mazgch	104:c64ba749a422	11	#define NUMSOCKETS (sizeof(_sockets)/sizeof(*_sockets))
mazgch	104:c64ba749a422	12	//! test if it is a socket is ok to use
mazgch	104:c64ba749a422	13	#define ISSOCKET(s) (((s) >= 0) && ((s) < NUMSOCKETS) && (_sockets[s].handle != SOCKET_ERROR))
mazgch	75:ce6e12067d0c	14	//! check for timeout
mazgch	75:ce6e12067d0c	15	#define TIMEOUT(t, ms) ((ms != TIMEOUT_BLOCKING) && (ms < t.read_ms()))
mazgch	80:34985b4d821e	16	//! registration ok check helper
mazgch	79:291df065e345	17	#define REG_OK(r) ((r == REG_HOME) \|\| (r == REG_ROAMING))
mazgch	80:34985b4d821e	18	//! registration done check helper (no need to poll further)
mazgch	79:291df065e345	19	#define REG_DONE(r) ((r == REG_HOME) \|\| (r == REG_ROAMING) \|\| (r == REG_DENIED))
mazgch	95:8282dbbe1492	20	//! helper to make sure that lock unlock pair is always balaced
mazgch	95:8282dbbe1492	21	#define LOCK() { lock()
mazgch	95:8282dbbe1492	22	//! helper to make sure that lock unlock pair is always balaced
mazgch	95:8282dbbe1492	23	#define UNLOCK() } unlock()
mazgch	79:291df065e345	24
mazgch	74:208e3e32d263	25	#ifdef MDM_DEBUG
mazgch	95:8282dbbe1492	26	#if 1 // colored terminal output using ANSI escape sequences
mazgch	95:8282dbbe1492	27	#define COL(c) "\033[" c
mazgch	95:8282dbbe1492	28	#else
mazgch	95:8282dbbe1492	29	#define COL(c)
mazgch	95:8282dbbe1492	30	#endif
mazgch	95:8282dbbe1492	31	#define DEF COL("39m")
mazgch	95:8282dbbe1492	32	#define BLA COL("30m")
mazgch	95:8282dbbe1492	33	#define RED COL("31m")
mazgch	95:8282dbbe1492	34	#define GRE COL("32m")
mazgch	95:8282dbbe1492	35	#define YEL COL("33m")
mazgch	95:8282dbbe1492	36	#define BLU COL("34m")
mazgch	95:8282dbbe1492	37	#define MAG COL("35m")
mazgch	95:8282dbbe1492	38	#define CYA COL("36m")
mazgch	95:8282dbbe1492	39	#define WHY COL("37m")
mazgch	95:8282dbbe1492	40
mazgch	74:208e3e32d263	41	void dumpAtCmd(const char* buf, int len)
mazgch	21:c4d64830bf02	42	{
mazgch	75:ce6e12067d0c	43	::printf(" %3d \"", len);
mazgch	21:c4d64830bf02	44	while (len --) {
mazgch	21:c4d64830bf02	45	char ch = *buf++;
mazgch	75:ce6e12067d0c	46	if ((ch > 0x1F) && (ch != 0x7F)) { // is printable
mazgch	75:ce6e12067d0c	47	if (ch == '%') ::printf("%%");
mazgch	75:ce6e12067d0c	48	else if (ch == '"') ::printf("\\\"");
mazgch	75:ce6e12067d0c	49	else if (ch == '\\') ::printf("\\\\");
mazgch	75:ce6e12067d0c	50	else putchar(ch);
mazgch	75:ce6e12067d0c	51	} else {
mazgch	75:ce6e12067d0c	52	if (ch == '\a') ::printf("\\a"); // BEL (0x07)
mazgch	75:ce6e12067d0c	53	else if (ch == '\b') ::printf("\\b"); // Backspace (0x08)
mazgch	75:ce6e12067d0c	54	else if (ch == '\t') ::printf("\\t"); // Horizontal Tab (0x09)
mazgch	75:ce6e12067d0c	55	else if (ch == '\n') ::printf("\\n"); // Linefeed (0x0A)
mazgch	75:ce6e12067d0c	56	else if (ch == '\v') ::printf("\\v"); // Vertical Tab (0x0B)
mazgch	75:ce6e12067d0c	57	else if (ch == '\f') ::printf("\\f"); // Formfeed (0x0C)
mazgch	75:ce6e12067d0c	58	else if (ch == '\r') ::printf("\\r"); // Carriage Return (0x0D)
mazgch	76:f7c3dd568dae	59	else ::printf("\\x%02x", (unsigned char)ch);
mazgch	75:ce6e12067d0c	60	}
mazgch	21:c4d64830bf02	61	}
mazgch	75:ce6e12067d0c	62	::printf("\"\r\n");
mazgch	21:c4d64830bf02	63	}
mazgch	74:208e3e32d263	64
mazgch	117:74e4e0109a9e	65	void MDMParser::_debugPrint(int level, const char* color, const char* format, ...)
mazgch	117:74e4e0109a9e	66	{
mazgch	117:74e4e0109a9e	67	if (_debugLevel >= level)
mazgch	117:74e4e0109a9e	68	{
mazgch	117:74e4e0109a9e	69	va_list args;
mazgch	117:74e4e0109a9e	70	va_start (args, format);
mazgch	117:74e4e0109a9e	71	if (color) ::printf(color);
mazgch	117:74e4e0109a9e	72	::vprintf(format, args);
mazgch	117:74e4e0109a9e	73	if (color) ::printf(DEF);
mazgch	117:74e4e0109a9e	74	va_end (args);
mazgch	117:74e4e0109a9e	75	}
mazgch	117:74e4e0109a9e	76	}
mazgch	117:74e4e0109a9e	77
mazgch	117:74e4e0109a9e	78	#define ERROR(...) _debugPrint(0, RED, __VA_ARGS__)
mazgch	117:74e4e0109a9e	79	#define INFO(...) _debugPrint(1, GRE, __VA_ARGS__)
mazgch	117:74e4e0109a9e	80	#define TRACE(...) _debugPrint(2, DEF, __VA_ARGS__)
mazgch	117:74e4e0109a9e	81	#define TEST(...) _debugPrint(3, CYA, __VA_ARGS__)
mazgch	74:208e3e32d263	82
mazgch	74:208e3e32d263	83	#else
mazgch	74:208e3e32d263	84
mazgch	75:ce6e12067d0c	85	#define ERROR(...) (void)0 // no tracing
mazgch	95:8282dbbe1492	86	#define TEST(...) (void)0 // no tracing
mazgch	74:208e3e32d263	87	#define INFO(...) (void)0 // no tracing
mazgch	74:208e3e32d263	88	#define TRACE(...) (void)0 // no tracing
mazgch	74:208e3e32d263	89
mazgch	31:a0bed6c1e05d	90	#endif
mazgch	21:c4d64830bf02	91
mazgch	44:9d12223b78ff	92	MDMParser* MDMParser::inst;
mazgch	44:9d12223b78ff	93
mazgch	21:c4d64830bf02	94	MDMParser::MDMParser(void)
mazgch	21:c4d64830bf02	95	{
mazgch	44:9d12223b78ff	96	inst = this;
mazgch	31:a0bed6c1e05d	97	memset(&_dev, 0, sizeof(_dev));
mazgch	31:a0bed6c1e05d	98	memset(&_net, 0, sizeof(_net));
mazgch	54:7ba8e4c218e2	99	_net.lac = 0xFFFF;
mazgch	54:7ba8e4c218e2	100	_net.ci = 0xFFFFFFFF;
mazgch	35:9275215a3a5b	101	_ip = NOIP;
mazgch	76:f7c3dd568dae	102	_init = false;
mazgch	31:a0bed6c1e05d	103	memset(_sockets, 0, sizeof(_sockets));
mazgch	104:c64ba749a422	104	for (int socket = 0; socket < NUMSOCKETS; socket ++)
mazgch	103:197fa7920ad8	105	_sockets[socket].handle = SOCKET_ERROR;
mazgch	74:208e3e32d263	106	#ifdef MDM_DEBUG
mazgch	76:f7c3dd568dae	107	_debugLevel = 1;
mazgch	74:208e3e32d263	108	_debugTime.start();
mazgch	74:208e3e32d263	109	#endif
mazgch	74:208e3e32d263	110	}
mazgch	74:208e3e32d263	111
mazgch	18:e5697801df29	112	int MDMParser::send(const char* buf, int len)
mazgch	18:e5697801df29	113	{
mazgch	74:208e3e32d263	114	#ifdef MDM_DEBUG
mazgch	74:208e3e32d263	115	if (_debugLevel >= 3) {
mazgch	75:ce6e12067d0c	116	::printf("%10.3f AT send ", _debugTime.read_ms()*0.001);
mazgch	74:208e3e32d263	117	dumpAtCmd(buf,len);
mazgch	74:208e3e32d263	118	}
mazgch	21:c4d64830bf02	119	#endif
mazgch	18:e5697801df29	120	return _send(buf, len);
mazgch	18:e5697801df29	121	}
mazgch	18:e5697801df29	122
mazgch	21:c4d64830bf02	123	int MDMParser::sendFormated(const char* format, ...) {
mazgch	21:c4d64830bf02	124	char buf[MAX_SIZE];
mazgch	21:c4d64830bf02	125	va_list args;
mazgch	21:c4d64830bf02	126	va_start(args, format);
mazgch	21:c4d64830bf02	127	int len = vsnprintf(buf,sizeof(buf), format, args);
mazgch	21:c4d64830bf02	128	va_end(args);
mazgch	21:c4d64830bf02	129	return send(buf, len);
mazgch	21:c4d64830bf02	130	}
mazgch	21:c4d64830bf02	131
mazgch	26:07be5faf8925	132	int MDMParser::waitFinalResp(_CALLBACKPTR cb /* = NULL*/,
mazgch	26:07be5faf8925	133	void* param /* = NULL*/,
mazgch	26:07be5faf8925	134	int timeout_ms /= 5000/)
mazgch	26:07be5faf8925	135	{
mazgch	69:4d6fa520dfca	136	char buf[MAX_SIZE + 64 /* add some more space for framing */];
mazgch	21:c4d64830bf02	137	Timer timer;
mazgch	21:c4d64830bf02	138	timer.start();
mazgch	21:c4d64830bf02	139	do {
mazgch	21:c4d64830bf02	140	int ret = getLine(buf, sizeof(buf));
mazgch	74:208e3e32d263	141	#ifdef MDM_DEBUG
mazgch	74:208e3e32d263	142	if ((_debugLevel >= 3) && (ret != WAIT) && (ret != NOT_FOUND))
mazgch	21:c4d64830bf02	143	{
mazgch	31:a0bed6c1e05d	144	int len = LENGTH(ret);
mazgch	31:a0bed6c1e05d	145	int type = TYPE(ret);
mazgch	95:8282dbbe1492	146	const char* s = (type == TYPE_UNKNOWN)? YEL "UNK" DEF :
mazgch	95:8282dbbe1492	147	(type == TYPE_TEXT) ? MAG "TXT" DEF :
mazgch	95:8282dbbe1492	148	(type == TYPE_OK ) ? GRE "OK " DEF :
mazgch	95:8282dbbe1492	149	(type == TYPE_ERROR) ? RED "ERR" DEF :
mazgch	95:8282dbbe1492	150	(type == TYPE_PLUS) ? CYA " + " DEF :
mazgch	95:8282dbbe1492	151	(type == TYPE_PROMPT) ? BLU " > " DEF :
mazgch	95:8282dbbe1492	152	"..." ;
mazgch	75:ce6e12067d0c	153	::printf("%10.3f AT read %s", _debugTime.read_ms()*0.001, s);
mazgch	74:208e3e32d263	154	dumpAtCmd(buf, len);
mazgch	21:c4d64830bf02	155	}
mazgch	21:c4d64830bf02	156	#endif
mazgch	21:c4d64830bf02	157	if ((ret != WAIT) && (ret != NOT_FOUND))
mazgch	18:e5697801df29	158	{
mazgch	21:c4d64830bf02	159	int type = TYPE(ret);
mazgch	21:c4d64830bf02	160	// handle unsolicited commands here
mazgch	21:c4d64830bf02	161	if (type == TYPE_PLUS) {
mazgch	21:c4d64830bf02	162	const char* cmd = buf+3;
mazgch	54:7ba8e4c218e2	163	int a, b, c, d, r;
mazgch	23:05a1aeeb5fd9	164	char s[32];
msinig	133:57b208dd96fb	165
mazgch	31:a0bed6c1e05d	166	// SMS Command ---------------------------------
mazgch	31:a0bed6c1e05d	167	// +CNMI: <mem>,<index>
mazgch	31:a0bed6c1e05d	168	if (sscanf(cmd, "CMTI: \"%*[^\"]\",%d", &a) == 1) {
mazgch	31:a0bed6c1e05d	169	TRACE("New SMS at index %d\r\n", a);
mazgch	21:c4d64830bf02	170	// Socket Specific Command ---------------------------------
mazgch	21:c4d64830bf02	171	// +UUSORD: <socket>,<length>
mazgch	103:197fa7920ad8	172	} else if ((sscanf(cmd, "UUSORD: %d,%d", &a, &b) == 2)) {
mazgch	103:197fa7920ad8	173	int socket = _findSocket(a);
mazgch	103:197fa7920ad8	174	TRACE("Socket %d: handle %d has %d bytes pending\r\n", socket, a, b);
mazgch	103:197fa7920ad8	175	if (socket != SOCKET_ERROR)
mazgch	103:197fa7920ad8	176	_sockets[socket].pending = b;
mazgch	69:4d6fa520dfca	177	// +UUSORF: <socket>,<length>
mazgch	103:197fa7920ad8	178	} else if ((sscanf(cmd, "UUSORF: %d,%d", &a, &b) == 2)) {
mazgch	103:197fa7920ad8	179	int socket = _findSocket(a);
mazgch	103:197fa7920ad8	180	TRACE("Socket %d: handle %d has %d bytes pending\r\n", socket, a, b);
mazgch	103:197fa7920ad8	181	if (socket != SOCKET_ERROR)
mazgch	103:197fa7920ad8	182	_sockets[socket].pending = b;
mazgch	21:c4d64830bf02	183	// +UUSOCL: <socket>
mazgch	103:197fa7920ad8	184	} else if ((sscanf(cmd, "UUSOCL: %d", &a) == 1)) {
mazgch	103:197fa7920ad8	185	int socket = _findSocket(a);
mazgch	103:197fa7920ad8	186	TRACE("Socket %d: handle %d closed by remote host\r\n", socket, a);
mazgch	103:197fa7920ad8	187	if ((socket != SOCKET_ERROR) && _sockets[socket].connected)
msinig	133:57b208dd96fb	188	_sockets[socket].connected = false;
msinig	133:57b208dd96fb	189	// +UULOC: <date>,<time>,<lat>,<long>,<alt>,<uncertainty>,<speed>, <direction>,<vertical_acc>,<sensor_used>,<SV_used>,<antenna_status>, <jamming_status>
msinig	133:57b208dd96fb	190	}else if (sscanf(cmd, "UULOC: %d/%d/%d,%d:%d:%d.%d,%f,%f,%d,%d,%d,%d,%d,%d,%d,%d,%*d",\
msinig	133:57b208dd96fb	191	&_loc.time.tm_mday, &_loc.time.tm_mon, &_loc.time.tm_year, &_loc.time.tm_hour, &_loc.time.tm_min, &_loc.time.tm_sec,\
msinig	133:57b208dd96fb	192	&_loc.latitue, &_loc.longitude, &_loc.altitutude, &_loc.uncertainty, &_loc.speed, &_loc.direction, &_loc.verticalAcc, \
msinig	133:57b208dd96fb	193	&_loc.sensorUsed, &_loc.svUsed) == 15) {
msinig	133:57b208dd96fb	194	_loc.time.tm_mon -= 1;
msinig	133:57b208dd96fb	195	_loc.time.tm_wday=0;
msinig	133:57b208dd96fb	196	_loc.time.tm_yday=0;
msinig	133:57b208dd96fb	197	_loc.validData = true;
msinig	133:57b208dd96fb	198	TRACE("Parsed UULOC position\r\n");
msinig	133:57b208dd96fb	199	}
msinig	133:57b208dd96fb	200	if (_dev.dev == DEV_LISA_C2) {
mazgch	21:c4d64830bf02	201	// CDMA Specific -------------------------------------------
mazgch	21:c4d64830bf02	202	// +CREG: <n><SID>,<NID>,<stat>
mazgch	54:7ba8e4c218e2	203	if (sscanf(cmd, "CREG: %*d,%d,%d,%d",&a,&b,&c) == 3) {
mazgch	54:7ba8e4c218e2	204	// _net.sid = a;
mazgch	54:7ba8e4c218e2	205	// _net.nid = b;
mazgch	79:291df065e345	206	if (c == 0) _net.csd = REG_NONE; // not registered, home network
mazgch	79:291df065e345	207	else if (c == 1) _net.csd = REG_HOME; // registered, home network
mazgch	79:291df065e345	208	else if (c == 2) _net.csd = REG_NONE; // not registered, but MT is currently searching a new operator to register to
mazgch	79:291df065e345	209	else if (c == 3) _net.csd = REG_DENIED; // registration denied
mazgch	79:291df065e345	210	else if (c == 5) _net.csd = REG_ROAMING; // registered, roaming
mazgch	79:291df065e345	211	_net.psd = _net.csd; // fake PSD registration (CDMA is always registered)
mazgch	31:a0bed6c1e05d	212	_net.act = ACT_CDMA;
mazgch	84:a05edb010176	213	// +CSS: <mode>[,<format>,<oper>[,<AcT>]]
mazgch	21:c4d64830bf02	214	} else if (sscanf(cmd, "CSS %c,%2s,%d",s) == 1) {
mazgch	31:a0bed6c1e05d	215	//_net.reg = (strcmp("Z", s) == 0) ? REG_UNKNOWN : REG_HOME;
mazgch	21:c4d64830bf02	216	}
mazgch	21:c4d64830bf02	217	} else {
mazgch	21:c4d64830bf02	218	// GSM/UMTS Specific -------------------------------------------
mazgch	79:291df065e345	219	// +UUPSDD: <profile_id>
mazgch	79:291df065e345	220	if (sscanf(cmd, "UUPSDD: %d",&a) == 1) {
mazgch	79:291df065e345	221	if (*PROFILE == a) _ip = NOIP;
mazgch	79:291df065e345	222	} else {
mazgch	79:291df065e345	223	// +CREG\|CGREG: <n>,<stat>[,<lac>,<ci>[,AcT[,<rac>]]] // reply to AT+CREG\|AT+CGREG
mazgch	79:291df065e345	224	// +CREG\|CGREG: <stat>[,<lac>,<ci>[,AcT[,<rac>]]] // URC
mazgch	79:291df065e345	225	b = 0xFFFF; c = 0xFFFFFFFF; d = -1;
mazgch	79:291df065e345	226	r = sscanf(cmd, "%s %*d,%d,\"%X\",\"%X\",%d",s,&a,&b,&c,&d);
mazgch	79:291df065e345	227	if (r <= 1)
mazgch	79:291df065e345	228	r = sscanf(cmd, "%s %d,\"%X\",\"%X\",%d",s,&a,&b,&c,&d);
mazgch	79:291df065e345	229	if (r >= 2) {
mazgch	79:291df065e345	230	Reg *reg = !strcmp(s, "CREG:") ? &_net.csd :
mazgch	123:66cef6353b13	231	!strcmp(s, "CGREG:") ? &_net.psd :
mazgch	123:66cef6353b13	232	!strcmp(s, "CEREG:") ? &_net.eps : NULL;
mazgch	79:291df065e345	233	if (reg) {
mazgch	79:291df065e345	234	// network status
mazgch	79:291df065e345	235	if (a == 0) *reg = REG_NONE; // 0: not registered, home network
mazgch	79:291df065e345	236	else if (a == 1) *reg = REG_HOME; // 1: registered, home network
mazgch	79:291df065e345	237	else if (a == 2) *reg = REG_NONE; // 2: not registered, but MT is currently searching a new operator to register to
mazgch	79:291df065e345	238	else if (a == 3) *reg = REG_DENIED; // 3: registration denied
mazgch	79:291df065e345	239	else if (a == 4) *reg = REG_UNKNOWN; // 4: unknown
mazgch	79:291df065e345	240	else if (a == 5) *reg = REG_ROAMING; // 5: registered, roaming
mazgch	123:66cef6353b13	241	else if (a == 6) *reg = REG_HOME; // 6: registered, sms only, home
mazgch	79:291df065e345	242	if ((r >= 3) && (b != 0xFFFF)) _net.lac = b; // location area code
mazgch	79:291df065e345	243	if ((r >= 4) && (c != 0xFFFFFFFF)) _net.ci = c; // cell ID
mazgch	79:291df065e345	244	// access technology
mazgch	79:291df065e345	245	if (r >= 5) {
mazgch	79:291df065e345	246	if (d == 0) _net.act = ACT_GSM; // 0: GSM
mazgch	79:291df065e345	247	else if (d == 1) _net.act = ACT_GSM; // 1: GSM COMPACT
mazgch	79:291df065e345	248	else if (d == 2) _net.act = ACT_UTRAN; // 2: UTRAN
mazgch	79:291df065e345	249	else if (d == 3) _net.act = ACT_EDGE; // 3: GSM with EDGE availability
mazgch	79:291df065e345	250	else if (d == 4) _net.act = ACT_UTRAN; // 4: UTRAN with HSDPA availability
mazgch	79:291df065e345	251	else if (d == 5) _net.act = ACT_UTRAN; // 5: UTRAN with HSUPA availability
mazgch	79:291df065e345	252	else if (d == 6) _net.act = ACT_UTRAN; // 6: UTRAN with HSDPA and HSUPA availability
mazgch	123:66cef6353b13	253	else if (d == 7) _net.act = ACT_LTE; // 7: LTE
mazgch	79:291df065e345	254	}
mazgch	79:291df065e345	255	}
mazgch	54:7ba8e4c218e2	256	}
mazgch	21:c4d64830bf02	257	}
mazgch	21:c4d64830bf02	258	}
mazgch	21:c4d64830bf02	259	}
mazgch	21:c4d64830bf02	260	if (cb) {
mazgch	21:c4d64830bf02	261	int len = LENGTH(ret);
mazgch	21:c4d64830bf02	262	int ret = cb(type, buf, len, param);
mazgch	21:c4d64830bf02	263	if (WAIT != ret)
mazgch	21:c4d64830bf02	264	return ret;
mazgch	21:c4d64830bf02	265	}
mazgch	95:8282dbbe1492	266	if (type == TYPE_OK)
mazgch	95:8282dbbe1492	267	return RESP_OK;
mazgch	95:8282dbbe1492	268	if (type == TYPE_ERROR)
mazgch	95:8282dbbe1492	269	return RESP_ERROR;
msinig	134:2fbd5723e063	270	if (type == TYPE_ERROR_CME)
msinig	134:2fbd5723e063	271	return RESP_ERROR_CME;
mazgch	95:8282dbbe1492	272	if (type == TYPE_PROMPT)
mazgch	95:8282dbbe1492	273	return RESP_PROMPT;
mazgch	21:c4d64830bf02	274	}
mazgch	21:c4d64830bf02	275	// relax a bit
mazgch	95:8282dbbe1492	276	wait_ms(10);
mazgch	21:c4d64830bf02	277	}
mazgch	75:ce6e12067d0c	278	while (!TIMEOUT(timer, timeout_ms));
mazgch	21:c4d64830bf02	279	return WAIT;
mazgch	21:c4d64830bf02	280	}
mazgch	21:c4d64830bf02	281
mazgch	31:a0bed6c1e05d	282	int MDMParser::_cbString(int type, const char* buf, int len, char* str)
mazgch	21:c4d64830bf02	283	{
mazgch	37:cc3433329d66	284	if (str && (type == TYPE_UNKNOWN)) {
mazgch	31:a0bed6c1e05d	285	if (sscanf(buf, "\r\n%s\r\n", str) == 1)
mazgch	31:a0bed6c1e05d	286	/nothing/;
mazgch	21:c4d64830bf02	287	}
mazgch	21:c4d64830bf02	288	return WAIT;
mazgch	21:c4d64830bf02	289	}
mazgch	21:c4d64830bf02	290
mazgch	31:a0bed6c1e05d	291	int MDMParser::_cbInt(int type, const char* buf, int len, int* val)
mazgch	31:a0bed6c1e05d	292	{
mazgch	37:cc3433329d66	293	if (val && (type == TYPE_UNKNOWN)) {
mazgch	31:a0bed6c1e05d	294	if (sscanf(buf, "\r\n%d\r\n", val) == 1)
mazgch	31:a0bed6c1e05d	295	/nothing/;
mazgch	31:a0bed6c1e05d	296	}
mazgch	31:a0bed6c1e05d	297	return WAIT;
mazgch	31:a0bed6c1e05d	298	}
mazgch	31:a0bed6c1e05d	299
mazgch	31:a0bed6c1e05d	300	// ----------------------------------------------------------------
mazgch	31:a0bed6c1e05d	301
mazgch	57:869bd35f44cc	302	bool MDMParser::connect(
mazgch	57:869bd35f44cc	303	const char* simpin,
mazgch	80:34985b4d821e	304	const char* apn, const char* username,
mazgch	80:34985b4d821e	305	const char* password, Auth auth,
mazgch	74:208e3e32d263	306	PinName pn)
mazgch	57:869bd35f44cc	307	{
mazgch	75:ce6e12067d0c	308	bool ok = init(simpin, NULL, pn);
mazgch	74:208e3e32d263	309	#ifdef MDM_DEBUG
mazgch	75:ce6e12067d0c	310	if (_debugLevel >= 1) dumpDevStatus(&_dev);
mazgch	74:208e3e32d263	311	#endif
mazgch	75:ce6e12067d0c	312	if (!ok)
mazgch	57:869bd35f44cc	313	return false;
mazgch	75:ce6e12067d0c	314	ok = registerNet();
mazgch	74:208e3e32d263	315	#ifdef MDM_DEBUG
mazgch	75:ce6e12067d0c	316	if (_debugLevel >= 1) dumpNetStatus(&_net);
mazgch	74:208e3e32d263	317	#endif
mazgch	75:ce6e12067d0c	318	if (!ok)
mazgch	57:869bd35f44cc	319	return false;
mazgch	80:34985b4d821e	320	IP ip = join(apn,username,password,auth);
mazgch	74:208e3e32d263	321	#ifdef MDM_DEBUG
mazgch	74:208e3e32d263	322	if (_debugLevel >= 1) dumpIp(ip);
mazgch	74:208e3e32d263	323	#endif
mazgch	57:869bd35f44cc	324	if (ip == NOIP)
mazgch	57:869bd35f44cc	325	return false;
mazgch	57:869bd35f44cc	326	return true;
mazgch	57:869bd35f44cc	327	}
mazgch	57:869bd35f44cc	328
mazgch	74:208e3e32d263	329	bool MDMParser::init(const char* simpin, DevStatus* status, PinName pn)
mazgch	21:c4d64830bf02	330	{
mazgch	74:208e3e32d263	331	int i = 10;
mazgch	95:8282dbbe1492	332	LOCK();
mazgch	76:f7c3dd568dae	333	memset(&_dev, 0, sizeof(_dev));
mazgch	74:208e3e32d263	334	if (pn != NC) {
mazgch	74:208e3e32d263	335	INFO("Modem::wakeup\r\n");
mazgch	74:208e3e32d263	336	DigitalOut pin(pn, 1);
mazgch	74:208e3e32d263	337	while (i--) {
mazgch	79:291df065e345	338	// SARA-U2/LISA-U2 50..80us
mazgch	95:8282dbbe1492	339	pin = 0; ::wait_us(50);
mazgch	95:8282dbbe1492	340	pin = 1; ::wait_ms(10);
mazgch	79:291df065e345	341
mazgch	98:c786461edd40	342	// SARA-G35 >5ms, LISA-C2 > 150ms, LEON-G2 >5ms
mazgch	95:8282dbbe1492	343	pin = 0; ::wait_ms(150);
mazgch	95:8282dbbe1492	344	pin = 1; ::wait_ms(100);
mazgch	79:291df065e345	345
mazgch	79:291df065e345	346	// purge any messages
mazgch	101:edfeb8af206e	347	purge();
mazgch	95:8282dbbe1492	348
mazgch	101:edfeb8af206e	349	// check interface
mazgch	74:208e3e32d263	350	sendFormated("AT\r\n");
mazgch	101:edfeb8af206e	351	int r = waitFinalResp(NULL,NULL,1000);
mazgch	95:8282dbbe1492	352	if(RESP_OK == r) break;
mazgch	74:208e3e32d263	353	}
mazgch	75:ce6e12067d0c	354	if (i < 0) {
mazgch	95:8282dbbe1492	355	ERROR("No Reply from Modem\r\n");
mazgch	95:8282dbbe1492	356	goto failure;
mazgch	75:ce6e12067d0c	357	}
mazgch	21:c4d64830bf02	358	}
mazgch	76:f7c3dd568dae	359	_init = true;
mazgch	75:ce6e12067d0c	360
mazgch	74:208e3e32d263	361	INFO("Modem::init\r\n");
mazgch	21:c4d64830bf02	362	// echo off
mazgch	21:c4d64830bf02	363	sendFormated("AT E0\r\n");
mazgch	52:8071747a7cb3	364	if(RESP_OK != waitFinalResp())
mazgch	95:8282dbbe1492	365	goto failure;
mazgch	21:c4d64830bf02	366	// enable verbose error messages
mazgch	21:c4d64830bf02	367	sendFormated("AT+CMEE=2\r\n");
mazgch	52:8071747a7cb3	368	if(RESP_OK != waitFinalResp())
mazgch	95:8282dbbe1492	369	goto failure;
mazgch	21:c4d64830bf02	370	// set baud rate
mazgch	21:c4d64830bf02	371	sendFormated("AT+IPR=115200\r\n");
mazgch	52:8071747a7cb3	372	if (RESP_OK != waitFinalResp())
mazgch	95:8282dbbe1492	373	goto failure;
mazgch	112:89b5b21db71e	374	// wait some time until baudrate is applied
mazgch	112:89b5b21db71e	375	wait_ms(200); // SARA-G > 40ms
mazgch	21:c4d64830bf02	376	// identify the module
mazgch	21:c4d64830bf02	377	sendFormated("ATI\r\n");
mazgch	52:8071747a7cb3	378	if (RESP_OK != waitFinalResp(_cbATI, &_dev.dev))
mazgch	95:8282dbbe1492	379	goto failure;
mazgch	32:8f12ac182bbb	380	if (_dev.dev == DEV_UNKNOWN)
mazgch	95:8282dbbe1492	381	goto failure;
mazgch	32:8f12ac182bbb	382	// device specific init
mazgch	125:25a292afbac6	383	if (_dev.dev == DEV_LISA_C2) {
mazgch	32:8f12ac182bbb	384	// get the manufacturer
mazgch	32:8f12ac182bbb	385	sendFormated("AT+GMI\r\n");
mazgch	52:8071747a7cb3	386	if (RESP_OK != waitFinalResp(_cbString, _dev.manu))
mazgch	95:8282dbbe1492	387	goto failure;
mazgch	32:8f12ac182bbb	388	// get the model identification
mazgch	32:8f12ac182bbb	389	sendFormated("AT+GMM\r\n");
mazgch	52:8071747a7cb3	390	if (RESP_OK != waitFinalResp(_cbString, _dev.model))
mazgch	95:8282dbbe1492	391	goto failure;
mazgch	32:8f12ac182bbb	392	// get the sw version
mazgch	32:8f12ac182bbb	393	sendFormated("AT+GMR\r\n");
mazgch	52:8071747a7cb3	394	if (RESP_OK != waitFinalResp(_cbString, _dev.ver))
mazgch	95:8282dbbe1492	395	goto failure;
mazgch	95:8282dbbe1492	396	// get the pseudo ESN or MEID
mazgch	21:c4d64830bf02	397	sendFormated("AT+GSN\r\n");
mazgch	52:8071747a7cb3	398	if (RESP_OK != waitFinalResp(_cbString, _dev.meid))
mazgch	95:8282dbbe1492	399	goto failure;
mazgch	50:d76aece8038f	400	#if 0
mazgch	50:d76aece8038f	401	// enable power saving
mazgch	50:d76aece8038f	402	if (_dev.lpm != LPM_DISABLED) {
mazgch	50:d76aece8038f	403	// enable power saving (requires flow control, cts at least)
mazgch	50:d76aece8038f	404	sendFormated("AT+UPSV=1,1280\r\n");
mazgch	52:8071747a7cb3	405	if (RESP_OK != waitFinalResp())
mazgch	95:8282dbbe1492	406	goto failure;
mazgch	50:d76aece8038f	407	_dev.lpm = LPM_ACTIVE;
mazgch	50:d76aece8038f	408	}
mazgch	50:d76aece8038f	409	#endif
mazgch	26:07be5faf8925	410	} else {
mazgch	125:25a292afbac6	411	if ((_dev.dev == DEV_LISA_U2) \|\| (_dev.dev == DEV_LEON_G2) \|\|
mazgch	125:25a292afbac6	412	(_dev.dev == DEV_TOBY_L2)) {
mazgch	35:9275215a3a5b	413	// enable the network identification feature
mazgch	21:c4d64830bf02	414	sendFormated("AT+UGPIOC=20,2\r\n");
mazgch	52:8071747a7cb3	415	if (RESP_OK != waitFinalResp())
mazgch	95:8282dbbe1492	416	goto failure;
mazgch	125:25a292afbac6	417	} else if ((_dev.dev == DEV_SARA_U2) \|\| (_dev.dev == DEV_SARA_G35)) {
mazgch	35:9275215a3a5b	418	// enable the network identification feature
mazgch	21:c4d64830bf02	419	sendFormated("AT+UGPIOC=16,2\r\n");
mazgch	52:8071747a7cb3	420	if (RESP_OK != waitFinalResp())
mazgch	95:8282dbbe1492	421	goto failure;
mazgch	21:c4d64830bf02	422	}
mazgch	21:c4d64830bf02	423	// check the sim card
mazgch	31:a0bed6c1e05d	424	for (int i = 0; (i < 5) && (_dev.sim != SIM_READY); i++) {
mazgch	21:c4d64830bf02	425	sendFormated("AT+CPIN?\r\n");
mazgch	31:a0bed6c1e05d	426	int ret = waitFinalResp(_cbCPIN, &_dev.sim);
mazgch	62:a02f026bdd7c	427	// having an error here is ok (sim may still be initializing)
mazgch	52:8071747a7cb3	428	if ((RESP_OK != ret) && (RESP_ERROR != ret))
mazgch	95:8282dbbe1492	429	goto failure;
mazgch	31:a0bed6c1e05d	430	// Enter PIN if needed
mazgch	77:55788e619858	431	if (_dev.sim == SIM_PIN) {
mazgch	57:869bd35f44cc	432	if (!simpin) {
mazgch	75:ce6e12067d0c	433	ERROR("SIM PIN not available\r\n");
mazgch	95:8282dbbe1492	434	goto failure;
mazgch	31:a0bed6c1e05d	435	}
mazgch	130:3189949981ec	436	sendFormated("AT+CPIN=\"%s\"\r\n", simpin);
mazgch	52:8071747a7cb3	437	if (RESP_OK != waitFinalResp(_cbCPIN, &_dev.sim))
mazgch	95:8282dbbe1492	438	goto failure;
mazgch	62:a02f026bdd7c	439	} else if (_dev.sim != SIM_READY) {
mazgch	95:8282dbbe1492	440	wait_ms(1000);
mazgch	62:a02f026bdd7c	441	}
mazgch	21:c4d64830bf02	442	}
mazgch	77:55788e619858	443	if (_dev.sim != SIM_READY) {
mazgch	77:55788e619858	444	if (_dev.sim == SIM_MISSING)
mazgch	77:55788e619858	445	ERROR("SIM not inserted\r\n");
mazgch	95:8282dbbe1492	446	goto failure;
mazgch	77:55788e619858	447	}
mazgch	32:8f12ac182bbb	448	// get the manufacturer
mazgch	32:8f12ac182bbb	449	sendFormated("AT+CGMI\r\n");
mazgch	52:8071747a7cb3	450	if (RESP_OK != waitFinalResp(_cbString, _dev.manu))
mazgch	95:8282dbbe1492	451	goto failure;
mazgch	32:8f12ac182bbb	452	// get the model identification
mazgch	32:8f12ac182bbb	453	sendFormated("AT+CGMM\r\n");
mazgch	52:8071747a7cb3	454	if (RESP_OK != waitFinalResp(_cbString, _dev.model))
mazgch	95:8282dbbe1492	455	goto failure;
mazgch	126:bfbb9e19f6e0	456	// get the version
mazgch	126:bfbb9e19f6e0	457	sendFormated("ATI9\r\n");
mazgch	52:8071747a7cb3	458	if (RESP_OK != waitFinalResp(_cbString, _dev.ver))
mazgch	126:bfbb9e19f6e0	459	goto failure;
mazgch	21:c4d64830bf02	460	// Returns the ICCID (Integrated Circuit Card ID) of the SIM-card.
mazgch	21:c4d64830bf02	461	// ICCID is a serial number identifying the SIM.
mazgch	21:c4d64830bf02	462	sendFormated("AT+CCID\r\n");
mazgch	52:8071747a7cb3	463	if (RESP_OK != waitFinalResp(_cbCCID, _dev.ccid))
mazgch	95:8282dbbe1492	464	goto failure;
mazgch	21:c4d64830bf02	465	// Returns the product serial number, IMEI (International Mobile Equipment Identity)
mazgch	21:c4d64830bf02	466	sendFormated("AT+CGSN\r\n");
mazgch	52:8071747a7cb3	467	if (RESP_OK != waitFinalResp(_cbString, _dev.imei))
mazgch	95:8282dbbe1492	468	goto failure;
mazgch	50:d76aece8038f	469	// enable power saving
mazgch	50:d76aece8038f	470	if (_dev.lpm != LPM_DISABLED) {
mazgch	50:d76aece8038f	471	// enable power saving (requires flow control, cts at least)
mazgch	50:d76aece8038f	472	sendFormated("AT+UPSV=1\r\n");
mazgch	52:8071747a7cb3	473	if (RESP_OK != waitFinalResp())
mazgch	95:8282dbbe1492	474	goto failure;
mazgch	50:d76aece8038f	475	_dev.lpm = LPM_ACTIVE;
mazgch	50:d76aece8038f	476	}
mazgch	79:291df065e345	477	// enable the psd registration unsolicited result code
mazgch	79:291df065e345	478	sendFormated("AT+CGREG=2\r\n");
mazgch	79:291df065e345	479	if (RESP_OK != waitFinalResp())
mazgch	95:8282dbbe1492	480	goto failure;
mazgch	21:c4d64830bf02	481	}
mazgch	79:291df065e345	482	// enable the network registration unsolicited result code
mazgch	125:25a292afbac6	483	sendFormated("AT+CREG=%d\r\n", (_dev.dev == DEV_LISA_C2) ? 1 : 2);
mazgch	79:291df065e345	484	if (RESP_OK != waitFinalResp())
mazgch	95:8282dbbe1492	485	goto failure;
mazgch	31:a0bed6c1e05d	486	// Setup SMS in text mode
mazgch	31:a0bed6c1e05d	487	sendFormated("AT+CMGF=1\r\n");
mazgch	52:8071747a7cb3	488	if (RESP_OK != waitFinalResp())
mazgch	95:8282dbbe1492	489	goto failure;
mazgch	31:a0bed6c1e05d	490	// setup new message indication
mazgch	75:ce6e12067d0c	491	sendFormated("AT+CNMI=2,1\r\n");
mazgch	52:8071747a7cb3	492	if (RESP_OK != waitFinalResp())
mazgch	95:8282dbbe1492	493	goto failure;
mazgch	21:c4d64830bf02	494	// Request IMSI (International Mobile Subscriber Identification)
mazgch	21:c4d64830bf02	495	sendFormated("AT+CIMI\r\n");
mazgch	52:8071747a7cb3	496	if (RESP_OK != waitFinalResp(_cbString, _dev.imsi))
mazgch	95:8282dbbe1492	497	goto failure;
mazgch	28:4d9509e3b1cf	498	if (status)
mazgch	31:a0bed6c1e05d	499	memcpy(status, &_dev, sizeof(DevStatus));
mazgch	95:8282dbbe1492	500	UNLOCK();
mazgch	31:a0bed6c1e05d	501	return true;
mazgch	95:8282dbbe1492	502	failure:
mazgch	95:8282dbbe1492	503	unlock();
mazgch	95:8282dbbe1492	504	return false;
mazgch	31:a0bed6c1e05d	505	}
mazgch	31:a0bed6c1e05d	506
mazgch	74:208e3e32d263	507	bool MDMParser::powerOff(void)
mazgch	74:208e3e32d263	508	{
mazgch	95:8282dbbe1492	509	bool ok = false;
mazgch	76:f7c3dd568dae	510	if (_init) {
mazgch	95:8282dbbe1492	511	LOCK();
mazgch	76:f7c3dd568dae	512	INFO("Modem::powerOff\r\n");
mazgch	76:f7c3dd568dae	513	sendFormated("AT+CPWROFF\r\n");
mazgch	95:8282dbbe1492	514	if (RESP_OK == waitFinalResp(NULL,NULL,120*1000)) {
mazgch	95:8282dbbe1492	515	_init = false;
mazgch	95:8282dbbe1492	516	ok = true;
mazgch	95:8282dbbe1492	517	}
mazgch	95:8282dbbe1492	518	UNLOCK();
mazgch	76:f7c3dd568dae	519	}
mazgch	95:8282dbbe1492	520	return ok;
mazgch	74:208e3e32d263	521	}
mazgch	74:208e3e32d263	522
mazgch	32:8f12ac182bbb	523	int MDMParser::_cbATI(int type, const char* buf, int len, Dev* dev)
mazgch	31:a0bed6c1e05d	524	{
mazgch	37:cc3433329d66	525	if ((type == TYPE_UNKNOWN) && dev) {
mazgch	125:25a292afbac6	526	if (strstr(buf, "SARA-G35")) *dev = DEV_SARA_G35;
msinig	133:57b208dd96fb	527	else if (strstr(buf, "LISA-U200-03S")) *dev = DEV_LISA_U2_03S;
msinig	133:57b208dd96fb	528	else if (strstr(buf, "LISA-U2")) *dev = DEV_LISA_U2;
mazgch	125:25a292afbac6	529	else if (strstr(buf, "LISA-C2")) *dev = DEV_LISA_C2;
mazgch	125:25a292afbac6	530	else if (strstr(buf, "SARA-U2")) *dev = DEV_SARA_U2;
mazgch	125:25a292afbac6	531	else if (strstr(buf, "LEON-G2")) *dev = DEV_LEON_G2;
mazgch	125:25a292afbac6	532	else if (strstr(buf, "TOBY-L2")) *dev = DEV_TOBY_L2;
mazgch	125:25a292afbac6	533	else if (strstr(buf, "MPCI-L2")) *dev = DEV_MPCI_L2;
mazgch	28:4d9509e3b1cf	534	}
mazgch	31:a0bed6c1e05d	535	return WAIT;
mazgch	31:a0bed6c1e05d	536	}
mazgch	31:a0bed6c1e05d	537
mazgch	31:a0bed6c1e05d	538	int MDMParser::_cbCPIN(int type, const char* buf, int len, Sim* sim)
mazgch	31:a0bed6c1e05d	539	{
mazgch	75:ce6e12067d0c	540	if (sim) {
mazgch	75:ce6e12067d0c	541	if (type == TYPE_PLUS){
mazgch	75:ce6e12067d0c	542	char s[16];
mazgch	75:ce6e12067d0c	543	if (sscanf(buf, "\r\n+CPIN: %[^\r]\r\n", s) >= 1)
mazgch	75:ce6e12067d0c	544	*sim = (0 == strcmp("READY", s)) ? SIM_READY : SIM_PIN;
mazgch	75:ce6e12067d0c	545	} else if (type == TYPE_ERROR) {
mazgch	75:ce6e12067d0c	546	if (strstr(buf, "+CME ERROR: SIM not inserted"))
mazgch	75:ce6e12067d0c	547	*sim = SIM_MISSING;
mazgch	31:a0bed6c1e05d	548	}
mazgch	31:a0bed6c1e05d	549	}
mazgch	31:a0bed6c1e05d	550	return WAIT;
mazgch	21:c4d64830bf02	551	}
mazgch	21:c4d64830bf02	552
mazgch	26:07be5faf8925	553	int MDMParser::_cbCCID(int type, const char* buf, int len, char* ccid)
mazgch	26:07be5faf8925	554	{
mazgch	26:07be5faf8925	555	if ((type == TYPE_PLUS) && ccid){
mazgch	26:07be5faf8925	556	if (sscanf(buf, "\r\n+CCID: %[^\r]\r\n", ccid) == 1)
mazgch	31:a0bed6c1e05d	557	/TRACE("Got CCID: %s\r\n", ccid)/;
mazgch	26:07be5faf8925	558	}
mazgch	26:07be5faf8925	559	return WAIT;
mazgch	26:07be5faf8925	560	}
mazgch	26:07be5faf8925	561
mazgch	75:ce6e12067d0c	562	bool MDMParser::registerNet(NetStatus* status /= NULL/, int timeout_ms /= 180000/)
mazgch	75:ce6e12067d0c	563	{
mazgch	75:ce6e12067d0c	564	Timer timer;
mazgch	75:ce6e12067d0c	565	timer.start();
mazgch	75:ce6e12067d0c	566	INFO("Modem::register\r\n");
mazgch	75:ce6e12067d0c	567	while (!checkNetStatus(status) && !TIMEOUT(timer, timeout_ms))
mazgch	95:8282dbbe1492	568	wait_ms(1000);
mazgch	79:291df065e345	569	if (_net.csd == REG_DENIED) ERROR("CSD Registration Denied\r\n");
mazgch	79:291df065e345	570	if (_net.psd == REG_DENIED) ERROR("PSD Registration Denied\r\n");
mazgch	123:66cef6353b13	571	if (_net.eps == REG_DENIED) ERROR("EPS Registration Denied\r\n");
mazgch	123:66cef6353b13	572	return REG_OK(_net.csd) \|\| REG_OK(_net.psd) \|\| REG_OK(_net.eps);
mazgch	75:ce6e12067d0c	573	}
mazgch	75:ce6e12067d0c	574
mazgch	28:4d9509e3b1cf	575	bool MDMParser::checkNetStatus(NetStatus* status /= NULL/)
mazgch	21:c4d64830bf02	576	{
mazgch	95:8282dbbe1492	577	bool ok = false;
mazgch	95:8282dbbe1492	578	LOCK();
mazgch	75:ce6e12067d0c	579	memset(&_net, 0, sizeof(_net));
mazgch	75:ce6e12067d0c	580	_net.lac = 0xFFFF;
mazgch	75:ce6e12067d0c	581	_net.ci = 0xFFFFFFFF;
mazgch	21:c4d64830bf02	582	// check registration
mazgch	21:c4d64830bf02	583	sendFormated("AT+CREG?\r\n");
mazgch	88:135fb4bb7aac	584	waitFinalResp(); // don't fail as service could be not subscribed
mazgch	125:25a292afbac6	585	if (_dev.dev != DEV_LISA_C2) {
mazgch	79:291df065e345	586	// check PSD registration
mazgch	79:291df065e345	587	sendFormated("AT+CGREG?\r\n");
mazgch	88:135fb4bb7aac	588	waitFinalResp(); // don't fail as service could be not subscribed
mazgch	125:25a292afbac6	589	if ((_dev.dev == DEV_TOBY_L2) \|\| (_dev.dev == DEV_MPCI_L2)) {
mazgch	125:25a292afbac6	590	// check EPS network registration
mazgch	125:25a292afbac6	591	sendFormated("AT+CEREG?\r\n");
mazgch	125:25a292afbac6	592	waitFinalResp(); // don't fail as service could be not subscribed
mazgch	125:25a292afbac6	593	}
mazgch	79:291df065e345	594	}
mazgch	123:66cef6353b13	595	if (REG_OK(_net.csd) \|\| REG_OK(_net.psd) \|\| REG_OK(_net.eps))
mazgch	75:ce6e12067d0c	596	{
mazgch	75:ce6e12067d0c	597	// check modem specific status messages
mazgch	125:25a292afbac6	598	if (_dev.dev == DEV_LISA_C2) {
mazgch	75:ce6e12067d0c	599	sendFormated("AT+CSS?\r\n");
mazgch	75:ce6e12067d0c	600	if (RESP_OK != waitFinalResp())
mazgch	95:8282dbbe1492	601	goto failure;
mazgch	81:3966a5c17037	602	while (1) {
mazgch	81:3966a5c17037	603	// get the Telephone number
mazgch	81:3966a5c17037	604	sendFormated("AT$MDN?\r\n");
mazgch	81:3966a5c17037	605	if (RESP_OK != waitFinalResp(_cbString, _net.num))
mazgch	95:8282dbbe1492	606	goto failure;
mazgch	81:3966a5c17037	607	// check if we have a Mobile Directory Number
mazgch	81:3966a5c17037	608	if (*_net.num && (memcmp(_net.num, "000000", 6) != 0))
mazgch	81:3966a5c17037	609	break;
mazgch	81:3966a5c17037	610
mazgch	81:3966a5c17037	611	INFO("Device not yet activated\r\n");
mazgch	81:3966a5c17037	612	INFO("Make sure you have a valid contract with the network operator for this device.\r\n");
mazgch	81:3966a5c17037	613	// Check if the the version contains a V for Verizon
mazgch	81:3966a5c17037	614	// Verizon: E0.V.xx.00.xxR,
mazgch	81:3966a5c17037	615	// Sprint E0.S.xx.00.xxR
mazgch	81:3966a5c17037	616	if (_dev.ver[3] == 'V') {
mazgch	81:3966a5c17037	617	int i;
mazgch	81:3966a5c17037	618	INFO("Start device over-the-air activation (this can take a few minutes)\r\n");
mazgch	81:3966a5c17037	619	sendFormated("AT+CDV=*22899\r\n");
mazgch	81:3966a5c17037	620	i = 1;
mazgch	82:055dcfcf9dcc	621	if ((RESP_OK != waitFinalResp(_cbUACTIND, &i, 120*1000)) \|\| (i == 1)) {
mazgch	81:3966a5c17037	622	ERROR("Device over-the-air activation failed\r\n");
mazgch	95:8282dbbe1492	623	goto failure;
mazgch	81:3966a5c17037	624	}
mazgch	81:3966a5c17037	625	INFO("Device over-the-air activation successful\r\n");
mazgch	81:3966a5c17037	626
mazgch	81:3966a5c17037	627	INFO("Start PRL over-the-air update (this can take a few minutes)\r\n");
mazgch	81:3966a5c17037	628	sendFormated("AT+CDV=*22891\r\n");
mazgch	81:3966a5c17037	629	i = 1;
mazgch	82:055dcfcf9dcc	630	if ((RESP_OK != waitFinalResp(_cbUACTIND, &i, 120*1000)) \|\| (i == 1)) {
mazgch	81:3966a5c17037	631	ERROR("PRL over-the-air update failed\r\n");
mazgch	95:8282dbbe1492	632	goto failure;
mazgch	81:3966a5c17037	633	}
mazgch	81:3966a5c17037	634	INFO("PRL over-the-air update successful\r\n");
mazgch	81:3966a5c17037	635
mazgch	81:3966a5c17037	636	} else {
mazgch	81:3966a5c17037	637	// Sprint or Aeris
mazgch	81:3966a5c17037	638	INFO("Wait for OMA-DM over-the-air activation (this can take a few minutes)\r\n");
mazgch	95:8282dbbe1492	639	wait_ms(120*1000);
mazgch	81:3966a5c17037	640	}
mazgch	81:3966a5c17037	641	}
mazgch	75:ce6e12067d0c	642	// get the the Network access identifier string
mazgch	75:ce6e12067d0c	643	char nai[64];
mazgch	75:ce6e12067d0c	644	sendFormated("AT$QCMIPNAI?\r\n");
mazgch	75:ce6e12067d0c	645	if (RESP_OK != waitFinalResp(_cbString, nai))
mazgch	95:8282dbbe1492	646	goto failure;
mazgch	75:ce6e12067d0c	647	} else {
mazgch	75:ce6e12067d0c	648	sendFormated("AT+COPS?\r\n");
mazgch	75:ce6e12067d0c	649	if (RESP_OK != waitFinalResp(_cbCOPS, &_net))
mazgch	95:8282dbbe1492	650	goto failure;
mazgch	95:8282dbbe1492	651	// get the MSISDNs related to this subscriber
mazgch	75:ce6e12067d0c	652	sendFormated("AT+CNUM\r\n");
mazgch	75:ce6e12067d0c	653	if (RESP_OK != waitFinalResp(_cbCNUM, _net.num))
mazgch	95:8282dbbe1492	654	goto failure;
mazgch	75:ce6e12067d0c	655	}
mazgch	95:8282dbbe1492	656	// get the signal strength indication
mazgch	75:ce6e12067d0c	657	sendFormated("AT+CSQ\r\n");
mazgch	75:ce6e12067d0c	658	if (RESP_OK != waitFinalResp(_cbCSQ, &_net))
mazgch	95:8282dbbe1492	659	goto failure;
mazgch	75:ce6e12067d0c	660	}
mazgch	28:4d9509e3b1cf	661	if (status) {
mazgch	31:a0bed6c1e05d	662	memcpy(status, &_net, sizeof(NetStatus));
mazgch	25:4045d02e44f1	663	}
mazgch	123:66cef6353b13	664	ok = REG_DONE(_net.csd) &&
mazgch	123:66cef6353b13	665	(REG_DONE(_net.psd) \|\| REG_DONE(_net.eps));
mazgch	95:8282dbbe1492	666	UNLOCK();
mazgch	95:8282dbbe1492	667	return ok;
mazgch	95:8282dbbe1492	668	failure:
mazgch	95:8282dbbe1492	669	unlock();
mazgch	95:8282dbbe1492	670	return false;
mazgch	31:a0bed6c1e05d	671	}
mazgch	31:a0bed6c1e05d	672
mazgch	31:a0bed6c1e05d	673	int MDMParser::_cbCOPS(int type, const char* buf, int len, NetStatus* status)
mazgch	31:a0bed6c1e05d	674	{
mazgch	31:a0bed6c1e05d	675	if ((type == TYPE_PLUS) && status){
mazgch	31:a0bed6c1e05d	676	int act = 99;
msinig	134:2fbd5723e063	677	int mode = 99;
mazgch	31:a0bed6c1e05d	678	// +COPS: <mode>[,<format>,<oper>[,<AcT>]]
msinig	134:2fbd5723e063	679	if (sscanf(buf, "\r\n+COPS: %d,%*d,\"%[^\"]\",%d",&mode,status->opr,&act) >= 1) {
mazgch	31:a0bed6c1e05d	680	if (act == 0) status->act = ACT_GSM; // 0: GSM,
mazgch	31:a0bed6c1e05d	681	else if (act == 2) status->act = ACT_UTRAN; // 2: UTRAN
mazgch	123:66cef6353b13	682	else if (act == 7) status->act = ACT_LTE; // 2: UTRAN
msinig	134:2fbd5723e063	683	if (mode == 0) status->regStatus = COPS_AUTOMATIC_REG;
msinig	134:2fbd5723e063	684	else if (mode == 1) status->regStatus = COPS_MANUAL_REG;
msinig	134:2fbd5723e063	685	else if (mode == 2) status->regStatus = COPS_DISABLED_REG;
mazgch	31:a0bed6c1e05d	686	}
mazgch	31:a0bed6c1e05d	687	}
mazgch	31:a0bed6c1e05d	688	return WAIT;
mazgch	31:a0bed6c1e05d	689	}
mazgch	31:a0bed6c1e05d	690
mazgch	31:a0bed6c1e05d	691	int MDMParser::_cbCNUM(int type, const char* buf, int len, char* num)
mazgch	31:a0bed6c1e05d	692	{
mazgch	31:a0bed6c1e05d	693	if ((type == TYPE_PLUS) && num){
mazgch	31:a0bed6c1e05d	694	int a;
mazgch	31:a0bed6c1e05d	695	if ((sscanf(buf, "\r\n+CNUM: \"My Number\",\"%31[^\"]\",%d", num, &a) == 2) &&
mazgch	31:a0bed6c1e05d	696	((a == 129) \|\| (a == 145))) {
mazgch	31:a0bed6c1e05d	697	}
mazgch	31:a0bed6c1e05d	698	}
mazgch	31:a0bed6c1e05d	699	return WAIT;
mazgch	31:a0bed6c1e05d	700	}
mazgch	31:a0bed6c1e05d	701
mazgch	54:7ba8e4c218e2	702	int MDMParser::_cbCSQ(int type, const char* buf, int len, NetStatus* status)
mazgch	31:a0bed6c1e05d	703	{
mazgch	54:7ba8e4c218e2	704	if ((type == TYPE_PLUS) && status){
mazgch	54:7ba8e4c218e2	705	int a,b;
mazgch	54:7ba8e4c218e2	706	char _ber[] = { 49, 43, 37, 25, 19, 13, 7, 0 }; // see 3GPP TS 45.008 [20] subclause 8.2.4
mazgch	31:a0bed6c1e05d	707	// +CSQ: <rssi>,<qual>
mazgch	54:7ba8e4c218e2	708	if (sscanf(buf, "\r\n+CSQ: %d,%d",&a,&b) == 2) {
mazgch	121:8da935c2c08c	709	if (a != 99) status->rssi = -113 + 2*a; // 0: -113 1: -111 ... 30: -53 dBm with 2 dBm steps, 31: >-51 dBm
mazgch	54:7ba8e4c218e2	710	if ((b != 99) && (b < sizeof(_ber))) status->ber = _ber[b]; //
mazgch	31:a0bed6c1e05d	711	}
mazgch	31:a0bed6c1e05d	712	}
mazgch	31:a0bed6c1e05d	713	return WAIT;
mazgch	31:a0bed6c1e05d	714	}
mazgch	21:c4d64830bf02	715
mazgch	124:65eb7d58f2da	716
mazgch	124:65eb7d58f2da	717	int MDMParser::_cbUACTIND(int type, const char* buf, int len, int* i)
mazgch	124:65eb7d58f2da	718	{
mazgch	124:65eb7d58f2da	719	if ((type == TYPE_PLUS) && i){
mazgch	124:65eb7d58f2da	720	int a;
mazgch	124:65eb7d58f2da	721	if (sscanf(buf, "\r\n+UACTIND: %d", &a) == 1) {
mazgch	124:65eb7d58f2da	722	*i = a;
mazgch	124:65eb7d58f2da	723	}
mazgch	124:65eb7d58f2da	724	}
mazgch	124:65eb7d58f2da	725	return WAIT;
mazgch	124:65eb7d58f2da	726	}
mazgch	124:65eb7d58f2da	727
mazgch	21:c4d64830bf02	728	// ----------------------------------------------------------------
mazgch	21:c4d64830bf02	729	// internet connection
mazgch	21:c4d64830bf02	730
mazgch	128:0415646a9934	731	bool MDMParser::_activateProfile(const char* apn, const char* username, const char* password, Auth auth)
mazgch	128:0415646a9934	732	{
mazgch	128:0415646a9934	733	// Set up the APN
mazgch	128:0415646a9934	734	if (*apn) {
mazgch	128:0415646a9934	735	sendFormated("AT+UPSD=" PROFILE ",1,\"%s\"\r\n", apn);
mazgch	128:0415646a9934	736	if (RESP_OK != waitFinalResp())
mazgch	128:0415646a9934	737	return false;
mazgch	128:0415646a9934	738	}
mazgch	128:0415646a9934	739	if (*username) {
mazgch	128:0415646a9934	740	sendFormated("AT+UPSD=" PROFILE ",2,\"%s\"\r\n", username);
mazgch	128:0415646a9934	741	if (RESP_OK != waitFinalResp())
mazgch	128:0415646a9934	742	return false;
mazgch	128:0415646a9934	743	}
mazgch	128:0415646a9934	744	if (*password) {
mazgch	128:0415646a9934	745	sendFormated("AT+UPSD=" PROFILE ",3,\"%s\"\r\n", password);
mazgch	128:0415646a9934	746	if (RESP_OK != waitFinalResp())
mazgch	128:0415646a9934	747	return false;
mazgch	128:0415646a9934	748	}
mazgch	128:0415646a9934	749	// Set up the dynamic IP address assignment.
mazgch	128:0415646a9934	750	sendFormated("AT+UPSD=" PROFILE ",7,\"0.0.0.0\"\r\n");
mazgch	128:0415646a9934	751	if (RESP_OK != waitFinalResp())
mazgch	128:0415646a9934	752	return false;
mazgch	128:0415646a9934	753	// try different Authentication Protocols
mazgch	128:0415646a9934	754	// 0 = none
mazgch	128:0415646a9934	755	// 1 = PAP (Password Authentication Protocol)
mazgch	128:0415646a9934	756	// 2 = CHAP (Challenge Handshake Authentication Protocol)
mazgch	128:0415646a9934	757	for (int i = AUTH_NONE; i <= AUTH_CHAP; i ++) {
mazgch	128:0415646a9934	758	if ((auth == AUTH_DETECT) \|\| (auth == i)) {
mazgch	128:0415646a9934	759	// Set up the Authentication Protocol
mazgch	128:0415646a9934	760	sendFormated("AT+UPSD=" PROFILE ",6,%d\r\n",i);
mazgch	128:0415646a9934	761	if (RESP_OK != waitFinalResp())
mazgch	128:0415646a9934	762	return false;
mazgch	128:0415646a9934	763	// Activate the profile and make connection
mazgch	128:0415646a9934	764	sendFormated("AT+UPSDA=" PROFILE ",3\r\n");
mazgch	128:0415646a9934	765	if (RESP_OK == waitFinalResp(NULL,NULL,150*1000))
mazgch	128:0415646a9934	766	return true;
mazgch	128:0415646a9934	767	}
mazgch	128:0415646a9934	768	}
mazgch	128:0415646a9934	769	return false;
mazgch	128:0415646a9934	770	}
mazgch	128:0415646a9934	771
mazgch	131:965a7cbc1e58	772	bool MDMParser::_activateProfileReuseExternal(void)
mazgch	131:965a7cbc1e58	773	{
mazgch	131:965a7cbc1e58	774	int cid = -1;
mazgch	131:965a7cbc1e58	775	sendFormated("AT+CGDCONT?\r\n");
mazgch	131:965a7cbc1e58	776	if (RESP_OK != waitFinalResp(_cbCGDCONT, &cid))
mazgch	131:965a7cbc1e58	777	return false;
mazgch	131:965a7cbc1e58	778	if (cid == -1)
mazgch	131:965a7cbc1e58	779	return false;
mazgch	131:965a7cbc1e58	780	// we found a context that provides us a valid IP so lets reuse it for the internal IP stack
mazgch	131:965a7cbc1e58	781	sendFormated("AT+UPSD=" PROFILE ",100,%d\r\n", cid);
mazgch	131:965a7cbc1e58	782	if (RESP_OK != waitFinalResp())
mazgch	131:965a7cbc1e58	783	return false;
mazgch	131:965a7cbc1e58	784	// Activate the profile and make connection
mazgch	131:965a7cbc1e58	785	sendFormated("AT+UPSDA=" PROFILE ",3\r\n");
mazgch	131:965a7cbc1e58	786	return (RESP_OK == waitFinalResp(NULL,NULL,150*1000));
mazgch	131:965a7cbc1e58	787	}
mazgch	131:965a7cbc1e58	788
mazgch	128:0415646a9934	789	bool MDMParser::_activateProfileByCid(int cid, const char* apn, const char* username, const char* password, Auth auth)
mazgch	128:0415646a9934	790	{
mazgch	128:0415646a9934	791	sendFormated("AT+CGDCONT=%d,\"IP\",\"%s\"\r\n", cid, apn);
mazgch	128:0415646a9934	792	if (RESP_OK != waitFinalResp())
mazgch	128:0415646a9934	793	return false;
mazgch	128:0415646a9934	794	sendFormated("AT+UAUTHREQ=%d,%d,\"%s\",\"%s\"\r\n", cid, auth, username, password);
mazgch	128:0415646a9934	795	if (RESP_OK != waitFinalResp())
mazgch	128:0415646a9934	796	return false;
mazgch	128:0415646a9934	797	sendFormated("AT+UPSD=" PROFILE ",100,%d\r\n", cid);
mazgch	128:0415646a9934	798	if (RESP_OK != waitFinalResp())
mazgch	128:0415646a9934	799	return false;
mazgch	128:0415646a9934	800	// Activate the profile and make connection
mazgch	128:0415646a9934	801	sendFormated("AT+UPSDA=" PROFILE ",3\r\n");
mazgch	128:0415646a9934	802	return (RESP_OK == waitFinalResp(NULL,NULL,150*1000));
mazgch	128:0415646a9934	803	}
mazgch	128:0415646a9934	804
mazgch	131:965a7cbc1e58	805	int MDMParser::_cbCGDCONT(int type, const char* buf, int len, int* cid)
mazgch	131:965a7cbc1e58	806	{
mazgch	131:965a7cbc1e58	807	// accept with and without leading \r\n in +CGDCONT:
mazgch	131:965a7cbc1e58	808	if ((type == TYPE_PLUS) && (buf[0] == '\r') && (buf[1] == '\n') && (len >= 2))
mazgch	131:965a7cbc1e58	809	buf += 2, len -= 2, type = TYPE_UNKNOWN;
mazgch	131:965a7cbc1e58	810	if (type == TYPE_UNKNOWN) {
mazgch	131:965a7cbc1e58	811	int a,b,c,d,t;
mazgch	131:965a7cbc1e58	812	//+CGDCONT: <cid>,"IP","<apn name>","<ip adr>",0,0,0,0,0,0
mazgch	131:965a7cbc1e58	813	if (sscanf(buf, "+CGDCONT: %d,\"IP\",\"%[^\"]\",\"" IPSTR "\",%d,%d,%d,%d,%d,%*d", &t, &a,&b,&c,&d) == 5) {
mazgch	131:965a7cbc1e58	814	if (IPADR(a,b,c,d) != NOIP)
mazgch	131:965a7cbc1e58	815	*cid = t;
mazgch	131:965a7cbc1e58	816	}
mazgch	131:965a7cbc1e58	817	}
mazgch	131:965a7cbc1e58	818	return WAIT;
mazgch	131:965a7cbc1e58	819	}
mazgch	131:965a7cbc1e58	820
mazgch	79:291df065e345	821	MDMParser::IP MDMParser::join(const char* apn /= NULL/, const char* username /= NULL/,
mazgch	79:291df065e345	822	const char* password /= NULL/, Auth auth /= AUTH_DETECT/)
mazgch	21:c4d64830bf02	823	{
mazgch	95:8282dbbe1492	824	LOCK();
mazgch	78:caf0014375cb	825	INFO("Modem::join\r\n");
mazgch	32:8f12ac182bbb	826	_ip = NOIP;
mazgch	125:25a292afbac6	827	if (_dev.dev == DEV_LISA_C2) {
mazgch	76:f7c3dd568dae	828	// make a dumy dns lookup (which will fail, so ignore the result)
mazgch	76:f7c3dd568dae	829	sendFormated("AT+UDNSRN=0,\"u-blox.com\"\r\n");
mazgch	76:f7c3dd568dae	830	waitFinalResp();
mazgch	76:f7c3dd568dae	831	// This fake lookup will enable the IP connection and we
mazgch	76:f7c3dd568dae	832	// should have an IP after this, so we check it
mazgch	76:f7c3dd568dae	833
mazgch	21:c4d64830bf02	834	//Get local IP address
mazgch	21:c4d64830bf02	835	sendFormated("AT+CMIP?\r\n");
mazgch	52:8071747a7cb3	836	if (RESP_OK != waitFinalResp(_cbCMIP, &_ip))
mazgch	95:8282dbbe1492	837	goto failure;
mazgch	125:25a292afbac6	838
mazgch	21:c4d64830bf02	839	} else {
mazgch	21:c4d64830bf02	840	// check gprs attach status
mazgch	72:d1e943ad6558	841	sendFormated("AT+CGATT=1\r\n");
mazgch	74:208e3e32d263	842	if (RESP_OK != waitFinalResp(NULL,NULL,3601000))
mazgch	95:8282dbbe1492	843	goto failure;
mazgch	31:a0bed6c1e05d	844	// Check the profile
mazgch	31:a0bed6c1e05d	845	int a = 0;
mazgch	79:291df065e345	846	bool force = true;
mazgch	31:a0bed6c1e05d	847	sendFormated("AT+UPSND=" PROFILE ",8\r\n");
mazgch	52:8071747a7cb3	848	if (RESP_OK != waitFinalResp(_cbUPSND, &a))
mazgch	95:8282dbbe1492	849	goto failure;
mazgch	79:291df065e345	850	if (a == 1 && force) {
mazgch	31:a0bed6c1e05d	851	// disconnect the profile already if it is connected
mazgch	31:a0bed6c1e05d	852	sendFormated("AT+UPSDA=" PROFILE ",4\r\n");
mazgch	58:e38a2e942fbb	853	if (RESP_OK != waitFinalResp(NULL,NULL,40*1000))
mazgch	95:8282dbbe1492	854	goto failure;
mazgch	79:291df065e345	855	a = 0;
mazgch	31:a0bed6c1e05d	856	}
mazgch	79:291df065e345	857	if (a == 0) {
mazgch	84:a05edb010176	858	bool ok = false;
mazgch	84:a05edb010176	859	// try to lookup the apn settings from our local database by mccmnc
mazgch	84:a05edb010176	860	const char* config = NULL;
mazgch	88:135fb4bb7aac	861	if (!apn && !username && !password)
mazgch	88:135fb4bb7aac	862	config = apnconfig(_dev.imsi);
mazgch	84:a05edb010176	863	do {
mazgch	84:a05edb010176	864	if (config) {
mazgch	85:dd8f4f0d0ca9	865	apn = _APN_GET(config);
mazgch	85:dd8f4f0d0ca9	866	username = _APN_GET(config);
mazgch	85:dd8f4f0d0ca9	867	password = _APN_GET(config);
mazgch	79:291df065e345	868	}
mazgch	125:25a292afbac6	869	// convert pointer to empty strings
mazgch	125:25a292afbac6	870	apn = apn ? apn : "";
mazgch	125:25a292afbac6	871	username = username ? username : "";
mazgch	125:25a292afbac6	872	password = password ? password : "";
mazgch	125:25a292afbac6	873	auth = (username && password) ? auth : AUTH_NONE;
mazgch	125:25a292afbac6	874	TRACE("Testing APN Settings(\"%s\",\"%s\",\"%s\",%d)\r\n", apn, username, password, auth);
mazgch	128:0415646a9934	875	if ((_dev.dev != DEV_TOBY_L2) && (_dev.dev != DEV_MPCI_L2))
mazgch	128:0415646a9934	876	ok = _activateProfile(apn, username, password, auth);
mazgch	131:965a7cbc1e58	877	else {
mazgch	131:965a7cbc1e58	878	ok = _activateProfileReuseExternal();
mazgch	131:965a7cbc1e58	879	if (ok)
mazgch	131:965a7cbc1e58	880	TRACE("Reusing External Context\r\n");
mazgch	131:965a7cbc1e58	881	else
mazgch	131:965a7cbc1e58	882	ok = _activateProfileByCid(1, apn, username, password, auth);
mazgch	131:965a7cbc1e58	883	}
mazgch	99:3116d3e900ed	884	} while (!ok && config && *config); // maybe use next setting ?
mazgch	84:a05edb010176	885	if (!ok) {
mazgch	79:291df065e345	886	ERROR("Your modem APN/password/username may be wrong\r\n");
mazgch	95:8282dbbe1492	887	goto failure;
mazgch	79:291df065e345	888	}
mazgch	74:208e3e32d263	889	}
mazgch	21:c4d64830bf02	890	//Get local IP address
mazgch	21:c4d64830bf02	891	sendFormated("AT+UPSND=" PROFILE ",0\r\n");
mazgch	52:8071747a7cb3	892	if (RESP_OK != waitFinalResp(_cbUPSND, &_ip))
mazgch	95:8282dbbe1492	893	goto failure;
mazgch	31:a0bed6c1e05d	894	}
mazgch	95:8282dbbe1492	895	UNLOCK();
mazgch	32:8f12ac182bbb	896	return _ip;
mazgch	95:8282dbbe1492	897	failure:
mazgch	95:8282dbbe1492	898	unlock();
mazgch	95:8282dbbe1492	899	return NOIP;
mazgch	31:a0bed6c1e05d	900	}
mazgch	31:a0bed6c1e05d	901
mazgch	84:a05edb010176	902	int MDMParser::_cbUDOPN(int type, const char* buf, int len, char* mccmnc)
mazgch	84:a05edb010176	903	{
mazgch	84:a05edb010176	904	if ((type == TYPE_PLUS) && mccmnc) {
mazgch	84:a05edb010176	905	if (sscanf(buf, "\r\n+UDOPN: 0,\"%[^\"]\"", mccmnc) == 1)
mazgch	84:a05edb010176	906	;
mazgch	84:a05edb010176	907	}
mazgch	84:a05edb010176	908	return WAIT;
mazgch	84:a05edb010176	909	}
mazgch	84:a05edb010176	910
mazgch	32:8f12ac182bbb	911	int MDMParser::_cbCMIP(int type, const char* buf, int len, IP* ip)
mazgch	32:8f12ac182bbb	912	{
mazgch	102:fb982ff9da82	913	if ((type == TYPE_UNKNOWN) && ip) {
mazgch	32:8f12ac182bbb	914	int a,b,c,d;
mazgch	102:fb982ff9da82	915	if (sscanf(buf, "\r\n" IPSTR, &a,&b,&c,&d) == 4)
mazgch	32:8f12ac182bbb	916	*ip = IPADR(a,b,c,d);
mazgch	32:8f12ac182bbb	917	}
mazgch	32:8f12ac182bbb	918	return WAIT;
mazgch	32:8f12ac182bbb	919	}
mazgch	32:8f12ac182bbb	920
mazgch	31:a0bed6c1e05d	921	int MDMParser::_cbUPSND(int type, const char* buf, int len, int* act)
mazgch	31:a0bed6c1e05d	922	{
mazgch	31:a0bed6c1e05d	923	if ((type == TYPE_PLUS) && act) {
mazgch	31:a0bed6c1e05d	924	if (sscanf(buf, "\r\n+UPSND: %d,%d,%d", act) == 1)
mazgch	31:a0bed6c1e05d	925	/nothing/;
mazgch	21:c4d64830bf02	926	}
mazgch	31:a0bed6c1e05d	927	return WAIT;
mazgch	31:a0bed6c1e05d	928	}
mazgch	31:a0bed6c1e05d	929
mazgch	31:a0bed6c1e05d	930	int MDMParser::_cbUPSND(int type, const char* buf, int len, IP* ip)
mazgch	31:a0bed6c1e05d	931	{
mazgch	31:a0bed6c1e05d	932	if ((type == TYPE_PLUS) && ip) {
mazgch	31:a0bed6c1e05d	933	int a,b,c,d;
mazgch	31:a0bed6c1e05d	934	// +UPSND=<profile_id>,<param_tag>[,<dynamic_param_val>]
mazgch	31:a0bed6c1e05d	935	if (sscanf(buf, "\r\n+UPSND: " PROFILE ",0,\"" IPSTR "\"", &a,&b,&c,&d) == 4)
mazgch	31:a0bed6c1e05d	936	*ip = IPADR(a,b,c,d);
mazgch	31:a0bed6c1e05d	937	}
mazgch	31:a0bed6c1e05d	938	return WAIT;
mazgch	31:a0bed6c1e05d	939	}
mazgch	31:a0bed6c1e05d	940
mazgch	31:a0bed6c1e05d	941	int MDMParser::_cbUDNSRN(int type, const char* buf, int len, IP* ip)
mazgch	31:a0bed6c1e05d	942	{
mazgch	31:a0bed6c1e05d	943	if ((type == TYPE_PLUS) && ip) {
mazgch	31:a0bed6c1e05d	944	int a,b,c,d;
mazgch	95:8282dbbe1492	945	if (sscanf(buf, "\r\n+UDNSRN: \"" IPSTR "\"", &a,&b,&c,&d) == 4)
mazgch	31:a0bed6c1e05d	946	*ip = IPADR(a,b,c,d);
mazgch	31:a0bed6c1e05d	947	}
mazgch	31:a0bed6c1e05d	948	return WAIT;
mazgch	21:c4d64830bf02	949	}
mazgch	21:c4d64830bf02	950
mazgch	21:c4d64830bf02	951	bool MDMParser::disconnect(void)
mazgch	21:c4d64830bf02	952	{
mazgch	95:8282dbbe1492	953	bool ok = false;
mazgch	95:8282dbbe1492	954	LOCK();
mazgch	74:208e3e32d263	955	INFO("Modem::disconnect\r\n");
mazgch	95:8282dbbe1492	956	if (_ip != NOIP) {
mazgch	125:25a292afbac6	957	if (_dev.dev == DEV_LISA_C2) {
mazgch	95:8282dbbe1492	958	// There something to do here
mazgch	95:8282dbbe1492	959	_ip = NOIP;
mazgch	95:8282dbbe1492	960	ok = true;
mazgch	95:8282dbbe1492	961	} else {
mazgch	95:8282dbbe1492	962	sendFormated("AT+UPSDA=" PROFILE ",4\r\n");
mazgch	95:8282dbbe1492	963	if (RESP_OK != waitFinalResp()) {
mazgch	95:8282dbbe1492	964	_ip = NOIP;
mazgch	95:8282dbbe1492	965	ok = true;
mazgch	95:8282dbbe1492	966	}
mazgch	95:8282dbbe1492	967	}
mazgch	21:c4d64830bf02	968	}
mazgch	95:8282dbbe1492	969	UNLOCK();
mazgch	95:8282dbbe1492	970	return ok;
mazgch	21:c4d64830bf02	971	}
mazgch	21:c4d64830bf02	972
mazgch	31:a0bed6c1e05d	973	MDMParser::IP MDMParser::gethostbyname(const char* host)
mazgch	21:c4d64830bf02	974	{
mazgch	31:a0bed6c1e05d	975	IP ip = NOIP;
mazgch	31:a0bed6c1e05d	976	int a,b,c,d;
mazgch	31:a0bed6c1e05d	977	if (sscanf(host, IPSTR, &a,&b,&c,&d) == 4)
mazgch	31:a0bed6c1e05d	978	ip = IPADR(a,b,c,d);
mazgch	31:a0bed6c1e05d	979	else {
mazgch	95:8282dbbe1492	980	LOCK();
mazgch	31:a0bed6c1e05d	981	sendFormated("AT+UDNSRN=0,\"%s\"\r\n", host);
mazgch	52:8071747a7cb3	982	if (RESP_OK != waitFinalResp(_cbUDNSRN, &ip))
mazgch	95:8282dbbe1492	983	ip = NOIP;
mazgch	95:8282dbbe1492	984	UNLOCK();
mazgch	21:c4d64830bf02	985	}
mazgch	31:a0bed6c1e05d	986	return ip;
mazgch	21:c4d64830bf02	987	}
mazgch	21:c4d64830bf02	988
mazgch	21:c4d64830bf02	989	// ----------------------------------------------------------------
mazgch	21:c4d64830bf02	990	// sockets
mazgch	21:c4d64830bf02	991
mazgch	103:197fa7920ad8	992	int MDMParser::_cbUSOCR(int type, const char* buf, int len, int* handle)
mazgch	21:c4d64830bf02	993	{
mazgch	103:197fa7920ad8	994	if ((type == TYPE_PLUS) && handle) {
mazgch	108:254bf037f83f	995	// +USOCR: socket
mazgch	108:254bf037f83f	996	if (sscanf(buf, "\r\n+USOCR: %d", handle) == 1)
mazgch	108:254bf037f83f	997	/nothing/;
mazgch	21:c4d64830bf02	998	}
mazgch	21:c4d64830bf02	999	return WAIT;
mazgch	21:c4d64830bf02	1000	}
mazgch	21:c4d64830bf02	1001
mazgch	63:42cb563a25bc	1002	int MDMParser::socketSocket(IpProtocol ipproto, int port)
mazgch	21:c4d64830bf02	1003	{
mazgch	103:197fa7920ad8	1004	int socket;
mazgch	95:8282dbbe1492	1005	LOCK();
mazgch	103:197fa7920ad8	1006	// find an free socket
mazgch	103:197fa7920ad8	1007	socket = _findSocket();
mazgch	47:9a89e5195721	1008	TRACE("socketSocket(%d)\r\n", ipproto);
mazgch	95:8282dbbe1492	1009	if (socket != SOCKET_ERROR) {
mazgch	106:18aeacdae391	1010	if (ipproto == IPPROTO_UDP) {
mazgch	106:18aeacdae391	1011	// sending port can only be set on 2G/3G modules
mazgch	125:25a292afbac6	1012	if ((port != -1) && (_dev.dev != DEV_LISA_C2)) {
mazgch	106:18aeacdae391	1013	sendFormated("AT+USOCR=17,%d\r\n", port);
mazgch	106:18aeacdae391	1014	} else {
mazgch	106:18aeacdae391	1015	sendFormated("AT+USOCR=17\r\n");
mazgch	106:18aeacdae391	1016	}
mazgch	103:197fa7920ad8	1017	} else /(ipproto == IPPROTO_TCP)/ {
mazgch	103:197fa7920ad8	1018	sendFormated("AT+USOCR=6\r\n");
mazgch	103:197fa7920ad8	1019	}
mazgch	103:197fa7920ad8	1020	int handle = SOCKET_ERROR;
mazgch	103:197fa7920ad8	1021	if ((RESP_OK == waitFinalResp(_cbUSOCR, &handle)) &&
mazgch	103:197fa7920ad8	1022	(handle != SOCKET_ERROR)) {
mazgch	103:197fa7920ad8	1023	TRACE("Socket %d: handle %d was created\r\n", socket, handle);
mazgch	103:197fa7920ad8	1024	_sockets[socket].handle = handle;
mazgch	103:197fa7920ad8	1025	_sockets[socket].timeout_ms = TIMEOUT_BLOCKING;
mazgch	103:197fa7920ad8	1026	_sockets[socket].connected = false;
mazgch	103:197fa7920ad8	1027	_sockets[socket].pending = 0;
mazgch	103:197fa7920ad8	1028	}
mazgch	103:197fa7920ad8	1029	else
mazgch	103:197fa7920ad8	1030	socket = SOCKET_ERROR;
mazgch	95:8282dbbe1492	1031	}
mazgch	95:8282dbbe1492	1032	UNLOCK();
mazgch	21:c4d64830bf02	1033	return socket;
mazgch	21:c4d64830bf02	1034	}
mazgch	21:c4d64830bf02	1035
mazgch	21:c4d64830bf02	1036	bool MDMParser::socketConnect(int socket, const char * host, int port)
mazgch	21:c4d64830bf02	1037	{
mazgch	31:a0bed6c1e05d	1038	IP ip = gethostbyname(host);
mazgch	31:a0bed6c1e05d	1039	if (ip == NOIP)
mazgch	21:c4d64830bf02	1040	return false;
mazgch	21:c4d64830bf02	1041	// connect to socket
mazgch	95:8282dbbe1492	1042	bool ok = false;
mazgch	95:8282dbbe1492	1043	LOCK();
mazgch	103:197fa7920ad8	1044	if (ISSOCKET(socket) && (!_sockets[socket].connected)) {
mazgch	95:8282dbbe1492	1045	TRACE("socketConnect(%d,%s,%d)\r\n", socket,host,port);
mazgch	103:197fa7920ad8	1046	sendFormated("AT+USOCO=%d,\"" IPSTR "\",%d\r\n", _sockets[socket].handle, IPNUM(ip), port);
mazgch	95:8282dbbe1492	1047	if (RESP_OK == waitFinalResp())
mazgch	103:197fa7920ad8	1048	ok = _sockets[socket].connected = true;
mazgch	95:8282dbbe1492	1049	}
mazgch	95:8282dbbe1492	1050	UNLOCK();
mazgch	95:8282dbbe1492	1051	return ok;
mazgch	21:c4d64830bf02	1052	}
mazgch	21:c4d64830bf02	1053
mazgch	44:9d12223b78ff	1054	bool MDMParser::socketIsConnected(int socket)
mazgch	44:9d12223b78ff	1055	{
mazgch	95:8282dbbe1492	1056	bool ok = false;
mazgch	95:8282dbbe1492	1057	LOCK();
mazgch	103:197fa7920ad8	1058	ok = ISSOCKET(socket) && _sockets[socket].connected;
mazgch	107:436ee320efd6	1059	TRACE("socketIsConnected(%d) %s\r\n", socket, ok?"yes":"no");
mazgch	95:8282dbbe1492	1060	UNLOCK();
mazgch	95:8282dbbe1492	1061	return ok;
mazgch	44:9d12223b78ff	1062	}
mazgch	44:9d12223b78ff	1063
mazgch	66:69072b3c5bca	1064	bool MDMParser::socketSetBlocking(int socket, int timeout_ms)
mazgch	44:9d12223b78ff	1065	{
mazgch	95:8282dbbe1492	1066	bool ok = false;
mazgch	95:8282dbbe1492	1067	LOCK();
mazgch	103:197fa7920ad8	1068	TRACE("socketSetBlocking(%d,%d)\r\n", socket,timeout_ms);
mazgch	95:8282dbbe1492	1069	if (ISSOCKET(socket)) {
mazgch	95:8282dbbe1492	1070	_sockets[socket].timeout_ms = timeout_ms;
mazgch	95:8282dbbe1492	1071	ok = true;
mazgch	95:8282dbbe1492	1072	}
mazgch	95:8282dbbe1492	1073	UNLOCK();
mazgch	95:8282dbbe1492	1074	return ok;
mazgch	44:9d12223b78ff	1075	}
mazgch	44:9d12223b78ff	1076
mazgch	21:c4d64830bf02	1077	bool MDMParser::socketClose(int socket)
mazgch	21:c4d64830bf02	1078	{
mazgch	95:8282dbbe1492	1079	bool ok = false;
mazgch	95:8282dbbe1492	1080	LOCK();
mazgch	103:197fa7920ad8	1081	if (ISSOCKET(socket) && _sockets[socket].connected) {
mazgch	95:8282dbbe1492	1082	TRACE("socketClose(%d)\r\n", socket);
mazgch	103:197fa7920ad8	1083	sendFormated("AT+USOCL=%d\r\n", _sockets[socket].handle);
mazgch	95:8282dbbe1492	1084	if (RESP_OK == waitFinalResp()) {
mazgch	103:197fa7920ad8	1085	_sockets[socket].connected = false;
mazgch	95:8282dbbe1492	1086	ok = true;
mazgch	95:8282dbbe1492	1087	}
mazgch	95:8282dbbe1492	1088	}
mazgch	95:8282dbbe1492	1089	UNLOCK();
mazgch	95:8282dbbe1492	1090	return ok;
mazgch	21:c4d64830bf02	1091	}
mazgch	21:c4d64830bf02	1092
mazgch	21:c4d64830bf02	1093	bool MDMParser::socketFree(int socket)
mazgch	21:c4d64830bf02	1094	{
mazgch	95:8282dbbe1492	1095	// make sure it is closed
mazgch	21:c4d64830bf02	1096	socketClose(socket);
mazgch	95:8282dbbe1492	1097	bool ok = true;
mazgch	95:8282dbbe1492	1098	LOCK();
mazgch	103:197fa7920ad8	1099	if (ISSOCKET(socket)) {
mazgch	103:197fa7920ad8	1100	TRACE("socketFree(%d)\r\n", socket);
mazgch	103:197fa7920ad8	1101	_sockets[socket].handle = SOCKET_ERROR;
mazgch	103:197fa7920ad8	1102	_sockets[socket].timeout_ms = TIMEOUT_BLOCKING;
mazgch	103:197fa7920ad8	1103	_sockets[socket].connected = false;
mazgch	103:197fa7920ad8	1104	_sockets[socket].pending = 0;
mazgch	95:8282dbbe1492	1105	ok = true;
mazgch	95:8282dbbe1492	1106	}
mazgch	95:8282dbbe1492	1107	UNLOCK();
mazgch	95:8282dbbe1492	1108	return ok;
mazgch	21:c4d64830bf02	1109	}
mazgch	21:c4d64830bf02	1110
mazgch	69:4d6fa520dfca	1111	#define USO_MAX_WRITE 1024 //!< maximum number of bytes to write to socket
mazgch	69:4d6fa520dfca	1112
mazgch	21:c4d64830bf02	1113	int MDMParser::socketSend(int socket, const char * buf, int len)
mazgch	21:c4d64830bf02	1114	{
mazgch	47:9a89e5195721	1115	TRACE("socketSend(%d,,%d)\r\n", socket,len);
mazgch	68:33a96cf64986	1116	int cnt = len;
mazgch	68:33a96cf64986	1117	while (cnt > 0) {
mazgch	69:4d6fa520dfca	1118	int blk = USO_MAX_WRITE;
mazgch	68:33a96cf64986	1119	if (cnt < blk)
mazgch	68:33a96cf64986	1120	blk = cnt;
mazgch	95:8282dbbe1492	1121	bool ok = false;
mazgch	95:8282dbbe1492	1122	LOCK();
mazgch	103:197fa7920ad8	1123	if (ISSOCKET(socket)) {
mazgch	103:197fa7920ad8	1124	sendFormated("AT+USOWR=%d,%d\r\n",_sockets[socket].handle,blk);
mazgch	103:197fa7920ad8	1125	if (RESP_PROMPT == waitFinalResp()) {
mazgch	103:197fa7920ad8	1126	wait_ms(50);
mazgch	103:197fa7920ad8	1127	send(buf, blk);
mazgch	103:197fa7920ad8	1128	if (RESP_OK == waitFinalResp())
mazgch	103:197fa7920ad8	1129	ok = true;
mazgch	103:197fa7920ad8	1130	}
mazgch	95:8282dbbe1492	1131	}
mazgch	95:8282dbbe1492	1132	UNLOCK();
mazgch	95:8282dbbe1492	1133	if (!ok)
mazgch	21:c4d64830bf02	1134	return SOCKET_ERROR;
mazgch	68:33a96cf64986	1135	buf += blk;
mazgch	68:33a96cf64986	1136	cnt -= blk;
mazgch	21:c4d64830bf02	1137	}
mazgch	68:33a96cf64986	1138	return (len - cnt);
mazgch	21:c4d64830bf02	1139	}
mazgch	21:c4d64830bf02	1140
mazgch	21:c4d64830bf02	1141	int MDMParser::socketSendTo(int socket, IP ip, int port, const char * buf, int len)
mazgch	21:c4d64830bf02	1142	{
mazgch	103:197fa7920ad8	1143	TRACE("socketSendTo(%d," IPSTR ",%d,,%d)\r\n", socket,IPNUM(ip),port,len);
mazgch	68:33a96cf64986	1144	int cnt = len;
mazgch	68:33a96cf64986	1145	while (cnt > 0) {
mazgch	69:4d6fa520dfca	1146	int blk = USO_MAX_WRITE;
mazgch	68:33a96cf64986	1147	if (cnt < blk)
mazgch	68:33a96cf64986	1148	blk = cnt;
mazgch	95:8282dbbe1492	1149	bool ok = false;
mazgch	95:8282dbbe1492	1150	LOCK();
mazgch	103:197fa7920ad8	1151	if (ISSOCKET(socket)) {
mazgch	103:197fa7920ad8	1152	sendFormated("AT+USOST=%d,\"" IPSTR "\",%d,%d\r\n",_sockets[socket].handle,IPNUM(ip),port,blk);
mazgch	103:197fa7920ad8	1153	if (RESP_PROMPT == waitFinalResp()) {
mazgch	103:197fa7920ad8	1154	wait_ms(50);
mazgch	103:197fa7920ad8	1155	send(buf, blk);
mazgch	103:197fa7920ad8	1156	if (RESP_OK == waitFinalResp())
mazgch	103:197fa7920ad8	1157	ok = true;
mazgch	103:197fa7920ad8	1158	}
mazgch	95:8282dbbe1492	1159	}
mazgch	95:8282dbbe1492	1160	UNLOCK();
mazgch	95:8282dbbe1492	1161	if (!ok)
mazgch	21:c4d64830bf02	1162	return SOCKET_ERROR;
mazgch	68:33a96cf64986	1163	buf += blk;
mazgch	68:33a96cf64986	1164	cnt -= blk;
mazgch	21:c4d64830bf02	1165	}
mazgch	68:33a96cf64986	1166	return (len - cnt);
mazgch	21:c4d64830bf02	1167	}
mazgch	21:c4d64830bf02	1168
mazgch	21:c4d64830bf02	1169	int MDMParser::socketReadable(int socket)
mazgch	21:c4d64830bf02	1170	{
mazgch	95:8282dbbe1492	1171	int pending = SOCKET_ERROR;
mazgch	95:8282dbbe1492	1172	LOCK();
mazgch	103:197fa7920ad8	1173	if (ISSOCKET(socket) && _sockets[socket].connected) {
mazgch	95:8282dbbe1492	1174	TRACE("socketReadable(%d)\r\n", socket);
mazgch	95:8282dbbe1492	1175	// allow to receive unsolicited commands
mazgch	95:8282dbbe1492	1176	waitFinalResp(NULL, NULL, 0);
mazgch	103:197fa7920ad8	1177	if (_sockets[socket].connected)
mazgch	95:8282dbbe1492	1178	pending = _sockets[socket].pending;
mazgch	95:8282dbbe1492	1179	}
mazgch	95:8282dbbe1492	1180	UNLOCK();
mazgch	95:8282dbbe1492	1181	return pending;
mazgch	21:c4d64830bf02	1182	}
mazgch	21:c4d64830bf02	1183
mazgch	21:c4d64830bf02	1184	int MDMParser::_cbUSORD(int type, const char* buf, int len, char* out)
mazgch	21:c4d64830bf02	1185	{
mazgch	21:c4d64830bf02	1186	if ((type == TYPE_PLUS) && out) {
mazgch	21:c4d64830bf02	1187	int sz, sk;
mazgch	21:c4d64830bf02	1188	if ((sscanf(buf, "\r\n+USORD: %d,%d,", &sk, &sz) == 2) &&
mazgch	21:c4d64830bf02	1189	(buf[len-sz-2] == '\"') && (buf[len-1] == '\"')) {
mazgch	21:c4d64830bf02	1190	memcpy(out, &buf[len-1-sz], sz);
mazgch	21:c4d64830bf02	1191	}
mazgch	21:c4d64830bf02	1192	}
mazgch	21:c4d64830bf02	1193	return WAIT;
mazgch	21:c4d64830bf02	1194	}
mazgch	21:c4d64830bf02	1195
mazgch	21:c4d64830bf02	1196	int MDMParser::socketRecv(int socket, char* buf, int len)
mazgch	21:c4d64830bf02	1197	{
mazgch	21:c4d64830bf02	1198	int cnt = 0;
mazgch	47:9a89e5195721	1199	TRACE("socketRecv(%d,,%d)\r\n", socket, len);
mazgch	95:8282dbbe1492	1200	#ifdef MDM_DEBUG
mazgch	21:c4d64830bf02	1201	memset(buf, '\0', len);
mazgch	95:8282dbbe1492	1202	#endif
mazgch	44:9d12223b78ff	1203	Timer timer;
mazgch	44:9d12223b78ff	1204	timer.start();
mazgch	21:c4d64830bf02	1205	while (len) {
mazgch	69:4d6fa520dfca	1206	int blk = MAX_SIZE; // still need space for headers and unsolicited commands
mazgch	21:c4d64830bf02	1207	if (len < blk) blk = len;
mazgch	95:8282dbbe1492	1208	bool ok = false;
mazgch	95:8282dbbe1492	1209	LOCK();
mazgch	95:8282dbbe1492	1210	if (ISSOCKET(socket)) {
mazgch	103:197fa7920ad8	1211	if (_sockets[socket].connected) {
mazgch	95:8282dbbe1492	1212	if (_sockets[socket].pending < blk)
mazgch	95:8282dbbe1492	1213	blk = _sockets[socket].pending;
mazgch	95:8282dbbe1492	1214	if (blk > 0) {
mazgch	103:197fa7920ad8	1215	sendFormated("AT+USORD=%d,%d\r\n",_sockets[socket].handle, blk);
mazgch	95:8282dbbe1492	1216	if (RESP_OK == waitFinalResp(_cbUSORD, buf)) {
mazgch	95:8282dbbe1492	1217	_sockets[socket].pending -= blk;
mazgch	95:8282dbbe1492	1218	len -= blk;
mazgch	95:8282dbbe1492	1219	cnt += blk;
mazgch	95:8282dbbe1492	1220	buf += blk;
mazgch	95:8282dbbe1492	1221	ok = true;
mazgch	95:8282dbbe1492	1222	}
mazgch	95:8282dbbe1492	1223	} else if (!TIMEOUT(timer, _sockets[socket].timeout_ms)) {
mazgch	95:8282dbbe1492	1224	ok = (WAIT == waitFinalResp(NULL,NULL,0)); // wait for URCs
mazgch	95:8282dbbe1492	1225	} else {
mazgch	95:8282dbbe1492	1226	len = 0;
mazgch	95:8282dbbe1492	1227	ok = true;
mazgch	95:8282dbbe1492	1228	}
mazgch	103:197fa7920ad8	1229	} else {
mazgch	95:8282dbbe1492	1230	len = 0;
mazgch	95:8282dbbe1492	1231	ok = true;
mazgch	21:c4d64830bf02	1232	}
mazgch	21:c4d64830bf02	1233	}
mazgch	95:8282dbbe1492	1234	UNLOCK();
mazgch	107:436ee320efd6	1235	if (!ok) {
mazgch	107:436ee320efd6	1236	TRACE("socketRecv: ERROR\r\n");
mazgch	95:8282dbbe1492	1237	return SOCKET_ERROR;
mazgch	107:436ee320efd6	1238	}
mazgch	21:c4d64830bf02	1239	}
mazgch	107:436ee320efd6	1240	TRACE("socketRecv: %d \"%*s\"\r\n", cnt, cnt, buf-cnt);
mazgch	21:c4d64830bf02	1241	return cnt;
mazgch	21:c4d64830bf02	1242	}
mazgch	21:c4d64830bf02	1243
mazgch	21:c4d64830bf02	1244	int MDMParser::_cbUSORF(int type, const char* buf, int len, USORFparam* param)
mazgch	21:c4d64830bf02	1245	{
mazgch	21:c4d64830bf02	1246	if ((type == TYPE_PLUS) && param) {
mazgch	21:c4d64830bf02	1247	int sz, sk, p, a,b,c,d;
mazgch	95:8282dbbe1492	1248	int r = sscanf(buf, "\r\n+USORF: %d,\"" IPSTR "\",%d,%d,",
mazgch	95:8282dbbe1492	1249	&sk,&a,&b,&c,&d,&p,&sz);
mazgch	95:8282dbbe1492	1250	if ((r == 7) && (buf[len-sz-2] == '\"') && (buf[len-1] == '\"')) {
mazgch	21:c4d64830bf02	1251	memcpy(param->buf, &buf[len-1-sz], sz);
mazgch	21:c4d64830bf02	1252	param->ip = IPADR(a,b,c,d);
mazgch	21:c4d64830bf02	1253	param->port = p;
mazgch	21:c4d64830bf02	1254	}
mazgch	21:c4d64830bf02	1255	}
mazgch	21:c4d64830bf02	1256	return WAIT;
mazgch	21:c4d64830bf02	1257	}
mazgch	21:c4d64830bf02	1258
mazgch	63:42cb563a25bc	1259	int MDMParser::socketRecvFrom(int socket, IP* ip, int* port, char* buf, int len)
mazgch	21:c4d64830bf02	1260	{
mazgch	21:c4d64830bf02	1261	int cnt = 0;
mazgch	63:42cb563a25bc	1262	TRACE("socketRecvFrom(%d,,%d)\r\n", socket, len);
mazgch	95:8282dbbe1492	1263	#ifdef MDM_DEBUG
mazgch	21:c4d64830bf02	1264	memset(buf, '\0', len);
mazgch	95:8282dbbe1492	1265	#endif
mazgch	44:9d12223b78ff	1266	Timer timer;
mazgch	44:9d12223b78ff	1267	timer.start();
mazgch	21:c4d64830bf02	1268	while (len) {
mazgch	69:4d6fa520dfca	1269	int blk = MAX_SIZE; // still need space for headers and unsolicited commands
mazgch	21:c4d64830bf02	1270	if (len < blk) blk = len;
mazgch	95:8282dbbe1492	1271	bool ok = false;
mazgch	95:8282dbbe1492	1272	LOCK();
mazgch	95:8282dbbe1492	1273	if (ISSOCKET(socket)) {
mazgch	95:8282dbbe1492	1274	if (_sockets[socket].pending < blk)
mazgch	95:8282dbbe1492	1275	blk = _sockets[socket].pending;
mazgch	95:8282dbbe1492	1276	if (blk > 0) {
mazgch	103:197fa7920ad8	1277	sendFormated("AT+USORF=%d,%d\r\n",_sockets[socket].handle, blk);
mazgch	95:8282dbbe1492	1278	USORFparam param;
mazgch	95:8282dbbe1492	1279	param.buf = buf;
mazgch	95:8282dbbe1492	1280	if (RESP_OK == waitFinalResp(_cbUSORF, &param)) {
mazgch	95:8282dbbe1492	1281	_sockets[socket].pending -= blk;
mazgch	95:8282dbbe1492	1282	*ip = param.ip;
mazgch	95:8282dbbe1492	1283	*port = param.port;
mazgch	95:8282dbbe1492	1284	len -= blk;
mazgch	95:8282dbbe1492	1285	cnt += blk;
mazgch	95:8282dbbe1492	1286	buf += blk;
mazgch	95:8282dbbe1492	1287	len = 0; // done
mazgch	95:8282dbbe1492	1288	ok = true;
mazgch	95:8282dbbe1492	1289	}
mazgch	95:8282dbbe1492	1290	} else if (!TIMEOUT(timer, _sockets[socket].timeout_ms)) {
mazgch	95:8282dbbe1492	1291	ok = (WAIT == waitFinalResp(NULL,NULL,0)); // wait for URCs
mazgch	95:8282dbbe1492	1292	} else {
mazgch	95:8282dbbe1492	1293	len = 0; // no more data and socket closed or timed-out
mazgch	95:8282dbbe1492	1294	ok = true;
mazgch	21:c4d64830bf02	1295	}
mazgch	95:8282dbbe1492	1296	}
mazgch	95:8282dbbe1492	1297	UNLOCK();
mazgch	107:436ee320efd6	1298	if (!ok) {
mazgch	107:436ee320efd6	1299	TRACE("socketRecv: ERROR\r\n");
mazgch	95:8282dbbe1492	1300	return SOCKET_ERROR;
mazgch	107:436ee320efd6	1301	}
mazgch	21:c4d64830bf02	1302	}
mazgch	44:9d12223b78ff	1303	timer.stop();
mazgch	44:9d12223b78ff	1304	timer.reset();
mazgch	107:436ee320efd6	1305	TRACE("socketRecv: %d \"%*s\"\r\n", cnt, cnt, buf-cnt);
mazgch	21:c4d64830bf02	1306	return cnt;
mazgch	21:c4d64830bf02	1307	}
mazgch	21:c4d64830bf02	1308
mazgch	103:197fa7920ad8	1309	int MDMParser::_findSocket(int handle) {
mazgch	104:c64ba749a422	1310	for (int socket = 0; socket < NUMSOCKETS; socket ++) {
mazgch	103:197fa7920ad8	1311	if (_sockets[socket].handle == handle)
mazgch	103:197fa7920ad8	1312	return socket;
mazgch	103:197fa7920ad8	1313	}
mazgch	103:197fa7920ad8	1314	return SOCKET_ERROR;
mazgch	103:197fa7920ad8	1315	}
mazgch	103:197fa7920ad8	1316
mazgch	21:c4d64830bf02	1317	// ----------------------------------------------------------------
mazgch	31:a0bed6c1e05d	1318
mazgch	31:a0bed6c1e05d	1319	int MDMParser::_cbCMGL(int type, const char* buf, int len, CMGLparam* param)
mazgch	21:c4d64830bf02	1320	{
mazgch	31:a0bed6c1e05d	1321	if ((type == TYPE_PLUS) && param && param->num) {
mazgch	31:a0bed6c1e05d	1322	// +CMGL: <ix>,...
mazgch	31:a0bed6c1e05d	1323	int ix;
mazgch	31:a0bed6c1e05d	1324	if (sscanf(buf, "\r\n+CMGL: %d,", &ix) == 1)
mazgch	31:a0bed6c1e05d	1325	{
mazgch	31:a0bed6c1e05d	1326	*param->ix++ = ix;
mazgch	31:a0bed6c1e05d	1327	param->num--;
mazgch	31:a0bed6c1e05d	1328	}
mazgch	29:53d346010624	1329	}
mazgch	29:53d346010624	1330	return WAIT;
mazgch	21:c4d64830bf02	1331	}
mazgch	21:c4d64830bf02	1332
mazgch	31:a0bed6c1e05d	1333	int MDMParser::smsList(const char* stat /= "ALL"/, int* ix /=NULL/, int num /= 0/) {
mazgch	95:8282dbbe1492	1334	int ret = -1;
mazgch	95:8282dbbe1492	1335	LOCK();
mazgch	31:a0bed6c1e05d	1336	sendFormated("AT+CMGL=\"%s\"\r\n", stat);
mazgch	31:a0bed6c1e05d	1337	CMGLparam param;
mazgch	31:a0bed6c1e05d	1338	param.ix = ix;
mazgch	31:a0bed6c1e05d	1339	param.num = num;
mazgch	95:8282dbbe1492	1340	if (RESP_OK == waitFinalResp(_cbCMGL, &param))
mazgch	95:8282dbbe1492	1341	ret = num - param.num;
mazgch	95:8282dbbe1492	1342	UNLOCK();
mazgch	95:8282dbbe1492	1343	return ret;
mazgch	21:c4d64830bf02	1344	}
mazgch	21:c4d64830bf02	1345
mazgch	21:c4d64830bf02	1346	bool MDMParser::smsSend(const char* num, const char* buf)
mazgch	21:c4d64830bf02	1347	{
mazgch	95:8282dbbe1492	1348	bool ok = false;
mazgch	95:8282dbbe1492	1349	LOCK();
mazgch	80:34985b4d821e	1350	sendFormated("AT+CMGS=\"%s\"\r\n",num);
mazgch	95:8282dbbe1492	1351	if (RESP_PROMPT == waitFinalResp(NULL,NULL,150*1000)) {
mazgch	95:8282dbbe1492	1352	send(buf, strlen(buf));
mazgch	95:8282dbbe1492	1353	const char ctrlZ = 0x1A;
mazgch	95:8282dbbe1492	1354	send(&ctrlZ, sizeof(ctrlZ));
mazgch	95:8282dbbe1492	1355	ok = (RESP_OK == waitFinalResp());
mazgch	21:c4d64830bf02	1356	}
mazgch	95:8282dbbe1492	1357	UNLOCK();
mazgch	95:8282dbbe1492	1358	return ok;
mazgch	21:c4d64830bf02	1359	}
mazgch	21:c4d64830bf02	1360
mazgch	21:c4d64830bf02	1361	bool MDMParser::smsDelete(int ix)
mazgch	21:c4d64830bf02	1362	{
mazgch	95:8282dbbe1492	1363	bool ok = false;
mazgch	95:8282dbbe1492	1364	LOCK();
mazgch	21:c4d64830bf02	1365	sendFormated("AT+CMGD=%d\r\n",ix);
mazgch	95:8282dbbe1492	1366	ok = (RESP_OK == waitFinalResp());
mazgch	95:8282dbbe1492	1367	UNLOCK();
mazgch	95:8282dbbe1492	1368	return ok;
mazgch	21:c4d64830bf02	1369	}
mazgch	21:c4d64830bf02	1370
mazgch	21:c4d64830bf02	1371	int MDMParser::_cbCMGR(int type, const char* buf, int len, CMGRparam* param)
mazgch	21:c4d64830bf02	1372	{
mazgch	21:c4d64830bf02	1373	if (param) {
mazgch	21:c4d64830bf02	1374	if (type == TYPE_PLUS) {
mazgch	21:c4d64830bf02	1375	if (sscanf(buf, "\r\n+CMGR: \"%*[^\"]\",\"%[^\"]", param->num) == 1) {
mazgch	21:c4d64830bf02	1376	}
mazgch	37:cc3433329d66	1377	} else if ((type == TYPE_UNKNOWN) && (buf[len-2] == '\r') && (buf[len-1] == '\n')) {
mazgch	21:c4d64830bf02	1378	memcpy(param->buf, buf, len-2);
mazgch	21:c4d64830bf02	1379	param->buf[len-2] = '\0';
mazgch	21:c4d64830bf02	1380	}
mazgch	21:c4d64830bf02	1381	}
mazgch	21:c4d64830bf02	1382	return WAIT;
mazgch	21:c4d64830bf02	1383	}
mazgch	21:c4d64830bf02	1384
mazgch	21:c4d64830bf02	1385	bool MDMParser::smsRead(int ix, char* num, char* buf, int len)
mazgch	21:c4d64830bf02	1386	{
mazgch	95:8282dbbe1492	1387	bool ok = false;
mazgch	95:8282dbbe1492	1388	LOCK();
mazgch	21:c4d64830bf02	1389	CMGRparam param;
mazgch	21:c4d64830bf02	1390	param.num = num;
mazgch	21:c4d64830bf02	1391	param.buf = buf;
mazgch	21:c4d64830bf02	1392	sendFormated("AT+CMGR=%d\r\n",ix);
mazgch	95:8282dbbe1492	1393	ok = (RESP_OK == waitFinalResp(_cbCMGR, &param));
mazgch	95:8282dbbe1492	1394	UNLOCK();
mazgch	95:8282dbbe1492	1395	return ok;
mazgch	21:c4d64830bf02	1396	}
mazgch	54:7ba8e4c218e2	1397
mazgch	54:7ba8e4c218e2	1398	// ----------------------------------------------------------------
mazgch	70:0a87d256cd24	1399
mazgch	70:0a87d256cd24	1400	int MDMParser::_cbCUSD(int type, const char* buf, int len, char* resp)
mazgch	70:0a87d256cd24	1401	{
mazgch	70:0a87d256cd24	1402	if ((type == TYPE_PLUS) && resp) {
mazgch	70:0a87d256cd24	1403	// +USD: \"%[^\"]\",\"%[^\"]\",,\"%[^\"]\",%d,%d,%d,%d,\"*[^\"]\",%d,%d"..);
mazgch	70:0a87d256cd24	1404	if (sscanf(buf, "\r\n+CUSD: %d,\"%[^\"]\",%d", resp) == 1) {
mazgch	70:0a87d256cd24	1405	/nothing/
mazgch	70:0a87d256cd24	1406	}
mazgch	70:0a87d256cd24	1407	}
mazgch	70:0a87d256cd24	1408	return WAIT;
mazgch	70:0a87d256cd24	1409	}
mazgch	70:0a87d256cd24	1410
mazgch	70:0a87d256cd24	1411	bool MDMParser::ussdCommand(const char* cmd, char* buf)
mazgch	70:0a87d256cd24	1412	{
mazgch	95:8282dbbe1492	1413	bool ok = false;
mazgch	95:8282dbbe1492	1414	LOCK();
mazgch	70:0a87d256cd24	1415	*buf = '\0';
mazgch	125:25a292afbac6	1416	if (_dev.dev != DEV_LISA_C2) {
mazgch	95:8282dbbe1492	1417	sendFormated("AT+CUSD=1,\"%s\"\r\n",cmd);
mazgch	95:8282dbbe1492	1418	ok = (RESP_OK == waitFinalResp(_cbCUSD, buf));
mazgch	70:0a87d256cd24	1419	}
mazgch	95:8282dbbe1492	1420	UNLOCK();
mazgch	95:8282dbbe1492	1421	return ok;
mazgch	70:0a87d256cd24	1422	}
mazgch	80:34985b4d821e	1423
mazgch	80:34985b4d821e	1424	// ----------------------------------------------------------------
mazgch	70:0a87d256cd24	1425
mazgch	115:d8d94b73c725	1426	int MDMParser::_cbUDELFILE(int type, const char* buf, int len, void*)
mazgch	115:d8d94b73c725	1427	{
mazgch	115:d8d94b73c725	1428	if ((type == TYPE_ERROR) && strstr(buf, "+CME ERROR: FILE NOT FOUND"))
mazgch	115:d8d94b73c725	1429	return RESP_OK; // file does not exist, so all ok...
mazgch	115:d8d94b73c725	1430	return WAIT;
mazgch	115:d8d94b73c725	1431	}
mazgch	115:d8d94b73c725	1432
mazgch	80:34985b4d821e	1433	bool MDMParser::delFile(const char* filename)
mazgch	80:34985b4d821e	1434	{
mazgch	95:8282dbbe1492	1435	bool ok = false;
mazgch	95:8282dbbe1492	1436	LOCK();
mazgch	80:34985b4d821e	1437	sendFormated("AT+UDELFILE=\"%s\"\r\n", filename);
mazgch	115:d8d94b73c725	1438	ok = (RESP_OK == waitFinalResp(_cbUDELFILE));
mazgch	95:8282dbbe1492	1439	UNLOCK();
mazgch	95:8282dbbe1492	1440	return ok;
mazgch	80:34985b4d821e	1441	}
mazgch	80:34985b4d821e	1442
mazgch	80:34985b4d821e	1443	int MDMParser::writeFile(const char* filename, const char* buf, int len)
mazgch	80:34985b4d821e	1444	{
mazgch	95:8282dbbe1492	1445	bool ok = false;
mazgch	95:8282dbbe1492	1446	LOCK();
mazgch	80:34985b4d821e	1447	sendFormated("AT+UDWNFILE=\"%s\",%d\r\n", filename, len);
mazgch	95:8282dbbe1492	1448	if (RESP_PROMPT == waitFinalResp()) {
mazgch	95:8282dbbe1492	1449	send(buf, len);
mazgch	95:8282dbbe1492	1450	ok = (RESP_OK == waitFinalResp());
mazgch	95:8282dbbe1492	1451	}
mazgch	95:8282dbbe1492	1452	UNLOCK();
mazgch	95:8282dbbe1492	1453	return ok ? len : -1;
mazgch	80:34985b4d821e	1454	}
mazgch	80:34985b4d821e	1455
mazgch	80:34985b4d821e	1456	int MDMParser::readFile(const char* filename, char* buf, int len)
mazgch	80:34985b4d821e	1457	{
mazgch	80:34985b4d821e	1458	URDFILEparam param;
mazgch	80:34985b4d821e	1459	param.filename = filename;
mazgch	80:34985b4d821e	1460	param.buf = buf;
mazgch	80:34985b4d821e	1461	param.sz = len;
mazgch	80:34985b4d821e	1462	param.len = 0;
mazgch	95:8282dbbe1492	1463	LOCK();
mazgch	95:8282dbbe1492	1464	sendFormated("AT+URDFILE=\"%s\"\r\n", filename, len);
mazgch	105:f6bb2a20de70	1465	if (RESP_OK != waitFinalResp(_cbURDFILE, &param))
mazgch	95:8282dbbe1492	1466	param.len = -1;
mazgch	95:8282dbbe1492	1467	UNLOCK();
mazgch	80:34985b4d821e	1468	return param.len;
mazgch	80:34985b4d821e	1469	}
mazgch	80:34985b4d821e	1470
mazgch	80:34985b4d821e	1471	int MDMParser::_cbURDFILE(int type, const char* buf, int len, URDFILEparam* param)
mazgch	80:34985b4d821e	1472	{
mazgch	80:34985b4d821e	1473	if ((type == TYPE_PLUS) && param && param->filename && param->buf) {
mazgch	80:34985b4d821e	1474	char filename[48];
mazgch	80:34985b4d821e	1475	int sz;
mazgch	80:34985b4d821e	1476	if ((sscanf(buf, "\r\n+URDFILE: \"%[^\"]\",%d,", filename, &sz) == 2) &&
mazgch	80:34985b4d821e	1477	(0 == strcmp(param->filename, filename)) &&
mazgch	80:34985b4d821e	1478	(buf[len-sz-2] == '\"') && (buf[len-1] == '\"')) {
mazgch	80:34985b4d821e	1479	param->len = (sz < param->sz) ? sz : param->sz;
mazgch	80:34985b4d821e	1480	memcpy(param->buf, &buf[len-1-sz], param->len);
mazgch	80:34985b4d821e	1481	}
mazgch	80:34985b4d821e	1482	}
mazgch	80:34985b4d821e	1483	return WAIT;
mazgch	80:34985b4d821e	1484	}
msinig	133:57b208dd96fb	1485	// ----------------------------------------------------------------
msinig	133:57b208dd96fb	1486	int MDMParser::cellLocSrvHttp (const char* token, const char* server_1, const char* server_2, int days/* = 14*/, \
msinig	133:57b208dd96fb	1487	int period/* = 4/, int resolution/ = 1*/)
msinig	133:57b208dd96fb	1488	{
msinig	133:57b208dd96fb	1489	bool ok = false;
msinig	133:57b208dd96fb	1490	LOCK();
msinig	133:57b208dd96fb	1491	if (_dev.dev == DEV_LISA_U2_03S \|\| _dev.dev == DEV_SARA_U2 ){
msinig	133:57b208dd96fb	1492	sendFormated("AT+UGSRV=\"%s\",\"%s\",\"%s\"\r\n", server_1, server_2, token, days, period, resolution);
msinig	133:57b208dd96fb	1493	ok = (RESP_OK == waitFinalResp());
msinig	133:57b208dd96fb	1494	} else
msinig	133:57b208dd96fb	1495	ok = false; //command not supported by module
msinig	133:57b208dd96fb	1496	UNLOCK();
msinig	133:57b208dd96fb	1497	return ok;
msinig	133:57b208dd96fb	1498	}
msinig	133:57b208dd96fb	1499
msinig	133:57b208dd96fb	1500	int MDMParser::cellLocSrvUdp(const char* server_1 /= "cell-live1.services.u-blox.com"/, int port /= 46434/, \
msinig	133:57b208dd96fb	1501	int latency/* = 1000/, int mode/ = 0*/)
msinig	133:57b208dd96fb	1502	{
msinig	133:57b208dd96fb	1503	bool ok = false;
msinig	133:57b208dd96fb	1504	LOCK();
msinig	133:57b208dd96fb	1505	if (_dev.dev != DEV_TOBY_L2){
msinig	133:57b208dd96fb	1506	sendFormated("AT+UGAOP=\"%s\",%d,%d,%d\r\n", server_1, port, latency, mode);
msinig	133:57b208dd96fb	1507	ok = (RESP_OK == waitFinalResp());
msinig	133:57b208dd96fb	1508	} else
msinig	133:57b208dd96fb	1509	ok = false; //command not supported by module
msinig	133:57b208dd96fb	1510	UNLOCK();
msinig	133:57b208dd96fb	1511	return ok;
msinig	133:57b208dd96fb	1512	}
msinig	133:57b208dd96fb	1513
msinig	133:57b208dd96fb	1514	int MDMParser::cellLocUnsolIndication(int mode)
msinig	133:57b208dd96fb	1515	{
msinig	133:57b208dd96fb	1516	bool ok = false;
msinig	133:57b208dd96fb	1517	LOCK();
msinig	133:57b208dd96fb	1518	if (_dev.dev == DEV_LISA_U2_03S){
msinig	133:57b208dd96fb	1519	sendFormated("AT+ULOCIND=%d\r\n", mode);
msinig	133:57b208dd96fb	1520	ok = (RESP_OK == waitFinalResp());
msinig	133:57b208dd96fb	1521	} else
msinig	133:57b208dd96fb	1522	ok = false; //command not supported by module
msinig	133:57b208dd96fb	1523	UNLOCK();
msinig	133:57b208dd96fb	1524	return ok;
msinig	133:57b208dd96fb	1525	}
msinig	133:57b208dd96fb	1526
msinig	133:57b208dd96fb	1527	int MDMParser::cellLocConfigSensor(int scanMode)
msinig	133:57b208dd96fb	1528	{
msinig	133:57b208dd96fb	1529	bool ok = false;
msinig	133:57b208dd96fb	1530	LOCK();
msinig	133:57b208dd96fb	1531	if (_dev.dev != DEV_TOBY_L2){
msinig	133:57b208dd96fb	1532	sendFormated("AT+ULOCCELL=%d\r\n", scanMode);
msinig	133:57b208dd96fb	1533	ok = (RESP_OK == waitFinalResp());
msinig	133:57b208dd96fb	1534	}else
msinig	133:57b208dd96fb	1535	ok = false; //command not supported by module
msinig	133:57b208dd96fb	1536	UNLOCK();
msinig	133:57b208dd96fb	1537	return ok;
msinig	133:57b208dd96fb	1538	}
msinig	133:57b208dd96fb	1539
msinig	133:57b208dd96fb	1540	int MDMParser::cellLocRequest(int sensor, int timeout, int accuracy, int numHypotesis /* =1*/)
msinig	133:57b208dd96fb	1541	{
msinig	133:57b208dd96fb	1542	bool ok = false;
msinig	133:57b208dd96fb	1543
msinig	133:57b208dd96fb	1544	LOCK();
msinig	133:57b208dd96fb	1545	_loc.validData = false;
msinig	133:57b208dd96fb	1546	if (_dev.dev == DEV_LISA_U2_03S){
msinig	133:57b208dd96fb	1547	sendFormated("AT+ULOC=2,%d,1,%d,%d,%d\r\n", sensor, timeout, accuracy, numHypotesis);
msinig	133:57b208dd96fb	1548	ok = (RESP_OK == waitFinalResp());
msinig	133:57b208dd96fb	1549	} else if (_dev.dev != DEV_TOBY_L2){
msinig	133:57b208dd96fb	1550	sendFormated("AT+ULOC=2,%d,1,%d,%d\r\n", sensor, timeout, accuracy);
msinig	133:57b208dd96fb	1551	ok = (RESP_OK == waitFinalResp());
msinig	133:57b208dd96fb	1552	}
msinig	133:57b208dd96fb	1553	else ok = false; //command not supported by module
msinig	133:57b208dd96fb	1554
msinig	133:57b208dd96fb	1555
msinig	133:57b208dd96fb	1556	UNLOCK();
msinig	133:57b208dd96fb	1557	return ok;
msinig	133:57b208dd96fb	1558	}
msinig	133:57b208dd96fb	1559
msinig	133:57b208dd96fb	1560	int MDMParser::cellLocGet(CellLocData *data){
msinig	133:57b208dd96fb	1561	waitFinalResp(NULL,NULL,0);
msinig	133:57b208dd96fb	1562	if (_loc.validData){
msinig	133:57b208dd96fb	1563	memcpy(data, &_loc, sizeof(_loc));
msinig	133:57b208dd96fb	1564	_loc.validData = false;
msinig	133:57b208dd96fb	1565	return true;
msinig	133:57b208dd96fb	1566	}
msinig	133:57b208dd96fb	1567	return false;
msinig	133:57b208dd96fb	1568	}
msinig	133:57b208dd96fb	1569
mazgch	70:0a87d256cd24	1570	// ----------------------------------------------------------------
mazgch	74:208e3e32d263	1571	bool MDMParser::setDebug(int level)
mazgch	74:208e3e32d263	1572	{
mazgch	74:208e3e32d263	1573	#ifdef MDM_DEBUG
mazgch	123:66cef6353b13	1574	_debugLevel = (level < -1) ? -1 :
mazgch	123:66cef6353b13	1575	(level > 3) ? 3 :
mazgch	123:66cef6353b13	1576	level;
mazgch	74:208e3e32d263	1577	#endif
mazgch	123:66cef6353b13	1578	return _debugLevel == level;
mazgch	74:208e3e32d263	1579	}
mazgch	74:208e3e32d263	1580
mazgch	73:2b32e0a21df2	1581	void MDMParser::dumpDevStatus(MDMParser::DevStatus* status,
mazgch	73:2b32e0a21df2	1582	_DPRINT dprint, void* param)
mazgch	54:7ba8e4c218e2	1583	{
mazgch	75:ce6e12067d0c	1584	dprint(param, "Modem::devStatus\r\n");
msinig	133:57b208dd96fb	1585	const char* txtDev[] = { "Unknown", "SARA-G35", "LISA-U2", "LISA-U2-03S", "LISA-C2",
mazgch	125:25a292afbac6	1586	"SARA-U2", "LEON-G2", "TOBY-L2", "MPCI-L2" };
mazgch	98:c786461edd40	1587	if (status->dev < sizeof(txtDev)/sizeof(*txtDev) && (status->dev != DEV_UNKNOWN))
mazgch	73:2b32e0a21df2	1588	dprint(param, " Device: %s\r\n", txtDev[status->dev]);
mazgch	54:7ba8e4c218e2	1589	const char* txtLpm[] = { "Disabled", "Enabled", "Active" };
mazgch	54:7ba8e4c218e2	1590	if (status->lpm < sizeof(txtLpm)/sizeof(*txtLpm))
mazgch	73:2b32e0a21df2	1591	dprint(param, " Power Save: %s\r\n", txtLpm[status->lpm]);
mazgch	75:ce6e12067d0c	1592	const char* txtSim[] = { "Unknown", "Missing", "Pin", "Ready" };
mazgch	98:c786461edd40	1593	if (status->sim < sizeof(txtSim)/sizeof(*txtSim) && (status->sim != SIM_UNKNOWN))
mazgch	73:2b32e0a21df2	1594	dprint(param, " SIM: %s\r\n", txtSim[status->sim]);
mazgch	54:7ba8e4c218e2	1595	if (*status->ccid)
mazgch	73:2b32e0a21df2	1596	dprint(param, " CCID: %s\r\n", status->ccid);
mazgch	54:7ba8e4c218e2	1597	if (*status->imei)
mazgch	73:2b32e0a21df2	1598	dprint(param, " IMEI: %s\r\n", status->imei);
mazgch	54:7ba8e4c218e2	1599	if (*status->imsi)
mazgch	73:2b32e0a21df2	1600	dprint(param, " IMSI: %s\r\n", status->imsi);
mazgch	54:7ba8e4c218e2	1601	if (*status->meid)
mazgch	73:2b32e0a21df2	1602	dprint(param, " MEID: %s\r\n", status->meid); // LISA-C
mazgch	54:7ba8e4c218e2	1603	if (*status->manu)
mazgch	73:2b32e0a21df2	1604	dprint(param, " Manufacturer: %s\r\n", status->manu);
mazgch	54:7ba8e4c218e2	1605	if (*status->model)
mazgch	73:2b32e0a21df2	1606	dprint(param, " Model: %s\r\n", status->model);
mazgch	54:7ba8e4c218e2	1607	if (*status->ver)
mazgch	73:2b32e0a21df2	1608	dprint(param, " Version: %s\r\n", status->ver);
mazgch	54:7ba8e4c218e2	1609	}
mazgch	54:7ba8e4c218e2	1610
mazgch	73:2b32e0a21df2	1611	void MDMParser::dumpNetStatus(MDMParser::NetStatus *status,
mazgch	73:2b32e0a21df2	1612	_DPRINT dprint, void* param)
mazgch	54:7ba8e4c218e2	1613	{
mazgch	75:ce6e12067d0c	1614	dprint(param, "Modem::netStatus\r\n");
mazgch	54:7ba8e4c218e2	1615	const char* txtReg[] = { "Unknown", "Denied", "None", "Home", "Roaming" };
mazgch	98:c786461edd40	1616	if (status->csd < sizeof(txtReg)/sizeof(*txtReg) && (status->csd != REG_UNKNOWN))
mazgch	79:291df065e345	1617	dprint(param, " CSD Registration: %s\r\n", txtReg[status->csd]);
mazgch	98:c786461edd40	1618	if (status->psd < sizeof(txtReg)/sizeof(*txtReg) && (status->psd != REG_UNKNOWN))
mazgch	79:291df065e345	1619	dprint(param, " PSD Registration: %s\r\n", txtReg[status->psd]);
mazgch	123:66cef6353b13	1620	if (status->eps < sizeof(txtReg)/sizeof(*txtReg) && (status->eps != REG_UNKNOWN))
mazgch	123:66cef6353b13	1621	dprint(param, " EPS Registration: %s\r\n", txtReg[status->eps]);
mazgch	123:66cef6353b13	1622	const char* txtAct[] = { "Unknown", "GSM", "Edge", "3G", "CDMA", "LTE" };
mazgch	98:c786461edd40	1623	if (status->act < sizeof(txtAct)/sizeof(*txtAct) && (status->act != ACT_UNKNOWN))
mazgch	73:2b32e0a21df2	1624	dprint(param, " Access Technology: %s\r\n", txtAct[status->act]);
mazgch	54:7ba8e4c218e2	1625	if (status->rssi)
mazgch	73:2b32e0a21df2	1626	dprint(param, " Signal Strength: %d dBm\r\n", status->rssi);
mazgch	54:7ba8e4c218e2	1627	if (status->ber)
mazgch	73:2b32e0a21df2	1628	dprint(param, " Bit Error Rate: %d\r\n", status->ber);
mazgch	54:7ba8e4c218e2	1629	if (*status->opr)
mazgch	73:2b32e0a21df2	1630	dprint(param, " Operator: %s\r\n", status->opr);
mazgch	54:7ba8e4c218e2	1631	if (status->lac != 0xFFFF)
mazgch	73:2b32e0a21df2	1632	dprint(param, " Location Area Code: %04X\r\n", status->lac);
mazgch	54:7ba8e4c218e2	1633	if (status->ci != 0xFFFFFFFF)
mazgch	73:2b32e0a21df2	1634	dprint(param, " Cell ID: %08X\r\n", status->ci);
mazgch	54:7ba8e4c218e2	1635	if (*status->num)
mazgch	73:2b32e0a21df2	1636	dprint(param, " Phone Number: %s\r\n", status->num);
mazgch	54:7ba8e4c218e2	1637	}
mazgch	54:7ba8e4c218e2	1638
mazgch	73:2b32e0a21df2	1639	void MDMParser::dumpIp(MDMParser::IP ip,
mazgch	73:2b32e0a21df2	1640	_DPRINT dprint, void* param)
mazgch	54:7ba8e4c218e2	1641	{
mazgch	57:869bd35f44cc	1642	if (ip != NOIP)
mazgch	75:ce6e12067d0c	1643	dprint(param, "Modem:IP " IPSTR "\r\n", IPNUM(ip));
mazgch	54:7ba8e4c218e2	1644	}
mazgch	70:0a87d256cd24	1645
mazgch	21:c4d64830bf02	1646	// ----------------------------------------------------------------
mazgch	21:c4d64830bf02	1647	int MDMParser::_parseMatch(Pipe<char>* pipe, int len, const char* sta, const char* end)
mazgch	18:e5697801df29	1648	{
mazgch	18:e5697801df29	1649	int o = 0;
mazgch	21:c4d64830bf02	1650	if (sta) {
mazgch	21:c4d64830bf02	1651	while (*sta) {
mazgch	21:c4d64830bf02	1652	if (++o > len) return WAIT;
mazgch	21:c4d64830bf02	1653	char ch = pipe->next();
mazgch	21:c4d64830bf02	1654	if (*sta++ != ch) return NOT_FOUND;
mazgch	21:c4d64830bf02	1655	}
mazgch	21:c4d64830bf02	1656	}
mazgch	21:c4d64830bf02	1657	if (!end) return o; // no termination
mazgch	35:9275215a3a5b	1658	// at least any char
mazgch	35:9275215a3a5b	1659	if (++o > len) return WAIT;
mazgch	35:9275215a3a5b	1660	pipe->next();
mazgch	35:9275215a3a5b	1661	// check the end
mazgch	21:c4d64830bf02	1662	int x = 0;
mazgch	21:c4d64830bf02	1663	while (end[x]) {
mazgch	21:c4d64830bf02	1664	if (++o > len) return WAIT;
mazgch	21:c4d64830bf02	1665	char ch = pipe->next();
mazgch	21:c4d64830bf02	1666	x = (end[x] == ch) ? x + 1 :
mazgch	21:c4d64830bf02	1667	(end[0] == ch) ? 1 :
mazgch	21:c4d64830bf02	1668	0;
mazgch	21:c4d64830bf02	1669	}
mazgch	21:c4d64830bf02	1670	return o;
mazgch	21:c4d64830bf02	1671	}
mazgch	21:c4d64830bf02	1672
mazgch	21:c4d64830bf02	1673	int MDMParser::_parseFormated(Pipe<char>* pipe, int len, const char* fmt)
mazgch	21:c4d64830bf02	1674	{
mazgch	21:c4d64830bf02	1675	int o = 0;
mazgch	21:c4d64830bf02	1676	int num = 0;
mazgch	21:c4d64830bf02	1677	if (fmt) {
mazgch	21:c4d64830bf02	1678	while (*fmt) {
mazgch	21:c4d64830bf02	1679	if (++o > len) return WAIT;
mazgch	21:c4d64830bf02	1680	char ch = pipe->next();
mazgch	21:c4d64830bf02	1681	if (*fmt == '%') {
mazgch	21:c4d64830bf02	1682	fmt++;
mazgch	21:c4d64830bf02	1683	if (*fmt == 'd') { // numeric
mazgch	21:c4d64830bf02	1684	fmt ++;
mazgch	21:c4d64830bf02	1685	num = 0;
mazgch	21:c4d64830bf02	1686	while (ch >= '0' && ch <= '9') {
mazgch	21:c4d64830bf02	1687	num = num * 10 + (ch - '0');
mazgch	21:c4d64830bf02	1688	if (++o > len) return WAIT;
mazgch	21:c4d64830bf02	1689	ch = pipe->next();
mazgch	21:c4d64830bf02	1690	}
mazgch	21:c4d64830bf02	1691	}
mazgch	21:c4d64830bf02	1692	else if (*fmt == 'c') { // char buffer (takes last numeric as length)
mazgch	21:c4d64830bf02	1693	fmt ++;
mazgch	21:c4d64830bf02	1694	while (num --) {
mazgch	21:c4d64830bf02	1695	if (++o > len) return WAIT;
mazgch	21:c4d64830bf02	1696	ch = pipe->next();
mazgch	21:c4d64830bf02	1697	}
mazgch	21:c4d64830bf02	1698	}
mazgch	80:34985b4d821e	1699	else if (*fmt == 's') {
mazgch	80:34985b4d821e	1700	fmt ++;
mazgch	80:34985b4d821e	1701	if (ch != '\"') return NOT_FOUND;
mazgch	80:34985b4d821e	1702	do {
mazgch	80:34985b4d821e	1703	if (++o > len) return WAIT;
mazgch	80:34985b4d821e	1704	ch = pipe->next();
mazgch	80:34985b4d821e	1705	} while (ch != '\"');
mazgch	80:34985b4d821e	1706	if (++o > len) return WAIT;
mazgch	80:34985b4d821e	1707	ch = pipe->next();
mazgch	80:34985b4d821e	1708	}
mazgch	21:c4d64830bf02	1709	}
mazgch	21:c4d64830bf02	1710	if (*fmt++ != ch) return NOT_FOUND;
mazgch	18:e5697801df29	1711	}
mazgch	18:e5697801df29	1712	}
mazgch	21:c4d64830bf02	1713	return o;
mazgch	21:c4d64830bf02	1714	}
mazgch	21:c4d64830bf02	1715
mazgch	21:c4d64830bf02	1716	int MDMParser::_getLine(Pipe<char>* pipe, char* buf, int len)
mazgch	21:c4d64830bf02	1717	{
mazgch	21:c4d64830bf02	1718	int unkn = 0;
mazgch	21:c4d64830bf02	1719	int sz = pipe->size();
mazgch	21:c4d64830bf02	1720	int fr = pipe->free();
mazgch	21:c4d64830bf02	1721	if (len > sz)
mazgch	21:c4d64830bf02	1722	len = sz;
mazgch	21:c4d64830bf02	1723	while (len > 0)
mazgch	21:c4d64830bf02	1724	{
mazgch	21:c4d64830bf02	1725	static struct {
mazgch	21:c4d64830bf02	1726	const char* fmt; int type;
mazgch	21:c4d64830bf02	1727	} lutF[] = {
mazgch	21:c4d64830bf02	1728	{ "\r\n+USORD: %d,%d,\"%c\"", TYPE_PLUS },
mazgch	95:8282dbbe1492	1729	{ "\r\n+USORF: %d,\"" IPSTR "\",%d,%d,\"%c\"", TYPE_PLUS },
mazgch	80:34985b4d821e	1730	{ "\r\n+URDFILE: %s,%d,\"%c\"", TYPE_PLUS },
mazgch	21:c4d64830bf02	1731	};
mazgch	21:c4d64830bf02	1732	static struct {
mazgch	21:c4d64830bf02	1733	const char* sta; const char* end; int type;
mazgch	21:c4d64830bf02	1734	} lut[] = {
mazgch	21:c4d64830bf02	1735	{ "\r\nOK\r\n", NULL, TYPE_OK },
mazgch	21:c4d64830bf02	1736	{ "\r\nERROR\r\n", NULL, TYPE_ERROR },
msinig	134:2fbd5723e063	1737	{ "\r\n+CME ERROR:", "\r\n", TYPE_ERROR_CME },
mazgch	21:c4d64830bf02	1738	{ "\r\n+CMS ERROR:", "\r\n", TYPE_ERROR },
mazgch	21:c4d64830bf02	1739	{ "\r\nRING\r\n", NULL, TYPE_RING },
mazgch	21:c4d64830bf02	1740	{ "\r\nCONNECT\r\n", NULL, TYPE_CONNECT },
mazgch	21:c4d64830bf02	1741	{ "\r\nNO CARRIER\r\n", NULL, TYPE_NOCARRIER },
mazgch	21:c4d64830bf02	1742	{ "\r\nNO DIALTONE\r\n", NULL, TYPE_NODIALTONE },
mazgch	21:c4d64830bf02	1743	{ "\r\nBUSY\r\n", NULL, TYPE_BUSY },
mazgch	21:c4d64830bf02	1744	{ "\r\nNO ANSWER\r\n", NULL, TYPE_NOANSWER },
mazgch	21:c4d64830bf02	1745	{ "\r\n+", "\r\n", TYPE_PLUS },
mazgch	21:c4d64830bf02	1746	{ "\r\n@", NULL, TYPE_PROMPT }, // Sockets
mazgch	21:c4d64830bf02	1747	{ "\r\n>", NULL, TYPE_PROMPT }, // SMS
mazgch	80:34985b4d821e	1748	{ "\n>", NULL, TYPE_PROMPT }, // File
mazgch	21:c4d64830bf02	1749	};
mazgch	21:c4d64830bf02	1750	for (int i = 0; i < sizeof(lutF)/sizeof(*lutF); i ++) {
mazgch	21:c4d64830bf02	1751	pipe->set(unkn);
mazgch	21:c4d64830bf02	1752	int ln = _parseFormated(pipe, len, lutF[i].fmt);
mazgch	21:c4d64830bf02	1753	if (ln == WAIT && fr)
mazgch	21:c4d64830bf02	1754	return WAIT;
mazgch	21:c4d64830bf02	1755	if ((ln != NOT_FOUND) && (unkn > 0))
mazgch	31:a0bed6c1e05d	1756	return TYPE_UNKNOWN \| pipe->get(buf, unkn);
mazgch	21:c4d64830bf02	1757	if (ln > 0)
mazgch	21:c4d64830bf02	1758	return lutF[i].type \| pipe->get(buf, ln);
mazgch	21:c4d64830bf02	1759	}
mazgch	21:c4d64830bf02	1760	for (int i = 0; i < sizeof(lut)/sizeof(*lut); i ++) {
mazgch	21:c4d64830bf02	1761	pipe->set(unkn);
mazgch	21:c4d64830bf02	1762	int ln = _parseMatch(pipe, len, lut[i].sta, lut[i].end);
mazgch	21:c4d64830bf02	1763	if (ln == WAIT && fr)
mazgch	21:c4d64830bf02	1764	return WAIT;
mazgch	21:c4d64830bf02	1765	if ((ln != NOT_FOUND) && (unkn > 0))
mazgch	31:a0bed6c1e05d	1766	return TYPE_UNKNOWN \| pipe->get(buf, unkn);
mazgch	21:c4d64830bf02	1767	if (ln > 0)
mazgch	21:c4d64830bf02	1768	return lut[i].type \| pipe->get(buf, ln);
mazgch	21:c4d64830bf02	1769	}
mazgch	21:c4d64830bf02	1770	// UNKNOWN
mazgch	21:c4d64830bf02	1771	unkn ++;
mazgch	21:c4d64830bf02	1772	len--;
mazgch	21:c4d64830bf02	1773	}
mazgch	18:e5697801df29	1774	return WAIT;
mazgch	18:e5697801df29	1775	}
mazgch	18:e5697801df29	1776
mazgch	18:e5697801df29	1777	// ----------------------------------------------------------------
mazgch	18:e5697801df29	1778	// Serial Implementation
mazgch	18:e5697801df29	1779	// ----------------------------------------------------------------
mazgch	18:e5697801df29	1780
mazgch	76:f7c3dd568dae	1781	/*! Helper Dev Null Device
mazgch	76:f7c3dd568dae	1782	Small helper class used to shut off stderr/stdout. Sometimes stdin/stdout
mazgch	76:f7c3dd568dae	1783	is shared with the serial port of the modem. Having printfs inbetween the
mazgch	76:f7c3dd568dae	1784	AT commands you cause a failure of the modem.
mazgch	76:f7c3dd568dae	1785	*/
mazgch	76:f7c3dd568dae	1786	class DevNull : public Stream {
mazgch	76:f7c3dd568dae	1787	public:
mazgch	76:f7c3dd568dae	1788	DevNull() : Stream(_name+1) { } //!< Constructor
mazgch	76:f7c3dd568dae	1789	void claim(const char* mode, FILE* file)
mazgch	76:f7c3dd568dae	1790	{ freopen(_name, mode, file); } //!< claim a stream
mazgch	76:f7c3dd568dae	1791	protected:
mazgch	76:f7c3dd568dae	1792	virtual int _getc() { return EOF; } //!< Nothing
mazgch	76:f7c3dd568dae	1793	virtual int _putc(int c) { return c; } //!< Discard
mazgch	76:f7c3dd568dae	1794	static const char* _name; //!< File name
mazgch	76:f7c3dd568dae	1795	};
mazgch	76:f7c3dd568dae	1796	const char* DevNull::_name = "/null"; //!< the null device name
mazgch	76:f7c3dd568dae	1797	static DevNull null; //!< the null device
mazgch	76:f7c3dd568dae	1798
mazgch	19:2b5d097ca15d	1799	MDMSerial::MDMSerial(PinName tx /= MDMTXD/, PinName rx /= MDMRXD/,
mazgch	19:2b5d097ca15d	1800	int baudrate /= MDMBAUD/,
mazgch	43:a89a7a505991	1801	#if DEVICE_SERIAL_FC
mazgch	19:2b5d097ca15d	1802	PinName rts /= MDMRTS/, PinName cts /= MDMCTS/,
mazgch	43:a89a7a505991	1803	#endif
mazgch	18:e5697801df29	1804	int rxSize /= 256/, int txSize /= 128/) :
mazgch	35:9275215a3a5b	1805	SerialPipe(tx, rx, rxSize, txSize)
mazgch	18:e5697801df29	1806	{
mazgch	76:f7c3dd568dae	1807	if (rx == USBRX)
mazgch	76:f7c3dd568dae	1808	null.claim("r", stdin);
mazgch	76:f7c3dd568dae	1809	if (tx == USBTX) {
mazgch	76:f7c3dd568dae	1810	null.claim("w", stdout);
mazgch	76:f7c3dd568dae	1811	null.claim("w", stderr);
mazgch	74:208e3e32d263	1812	#ifdef MDM_DEBUG
mazgch	76:f7c3dd568dae	1813	_debugLevel = -1;
mazgch	76:f7c3dd568dae	1814	#endif
mazgch	76:f7c3dd568dae	1815	}
mazgch	74:208e3e32d263	1816	#ifdef TARGET_UBLOX_C027
mazgch	74:208e3e32d263	1817	_onboard = (tx == MDMTXD) && (rx == MDMRXD);
mazgch	74:208e3e32d263	1818	if (_onboard)
mazgch	74:208e3e32d263	1819	c027_mdm_powerOn(false);
mazgch	74:208e3e32d263	1820	#endif
mazgch	18:e5697801df29	1821	baud(baudrate);
mazgch	35:9275215a3a5b	1822	#if DEVICE_SERIAL_FC
mazgch	35:9275215a3a5b	1823	if ((rts != NC) \|\| (cts != NC))
mazgch	35:9275215a3a5b	1824	{
mazgch	35:9275215a3a5b	1825	Flow flow = (cts == NC) ? RTS :
mazgch	35:9275215a3a5b	1826	(rts == NC) ? CTS : RTSCTS ;
mazgch	35:9275215a3a5b	1827	set_flow_control(flow, rts, cts);
mazgch	35:9275215a3a5b	1828	if (cts != NC) _dev.lpm = LPM_ENABLED;
mazgch	35:9275215a3a5b	1829	}
mazgch	35:9275215a3a5b	1830	#endif
mazgch	18:e5697801df29	1831	}
mazgch	18:e5697801df29	1832
mazgch	76:f7c3dd568dae	1833	MDMSerial::~MDMSerial(void)
mazgch	76:f7c3dd568dae	1834	{
mazgch	76:f7c3dd568dae	1835	powerOff();
mazgch	76:f7c3dd568dae	1836	#ifdef TARGET_UBLOX_C027
mazgch	76:f7c3dd568dae	1837	if (_onboard)
mazgch	76:f7c3dd568dae	1838	c027_mdm_powerOff();
mazgch	76:f7c3dd568dae	1839	#endif
mazgch	76:f7c3dd568dae	1840	}
mazgch	76:f7c3dd568dae	1841
mazgch	18:e5697801df29	1842	int MDMSerial::_send(const void* buf, int len)
mazgch	18:e5697801df29	1843	{
mazgch	35:9275215a3a5b	1844	return put((const char)buf, len, true/=blocking*/);
mazgch	18:e5697801df29	1845	}
mazgch	18:e5697801df29	1846
mazgch	18:e5697801df29	1847	int MDMSerial::getLine(char* buffer, int length)
mazgch	18:e5697801df29	1848	{
mazgch	18:e5697801df29	1849	return _getLine(&_pipeRx, buffer, length);
mazgch	18:e5697801df29	1850	}
mazgch	18:e5697801df29	1851
mazgch	18:e5697801df29	1852	// ----------------------------------------------------------------
mazgch	18:e5697801df29	1853	// USB Implementation
mazgch	18:e5697801df29	1854	// ----------------------------------------------------------------
mazgch	18:e5697801df29	1855
mazgch	18:e5697801df29	1856	#ifdef HAVE_MDMUSB
mazgch	76:f7c3dd568dae	1857	MDMUsb::MDMUsb(void)
mazgch	74:208e3e32d263	1858	{
mazgch	74:208e3e32d263	1859	#ifdef MDM_DEBUG
mazgch	74:208e3e32d263	1860	_debugLevel = 1;
mazgch	74:208e3e32d263	1861	#endif
mazgch	74:208e3e32d263	1862	#ifdef TARGET_UBLOX_C027
mazgch	74:208e3e32d263	1863	_onboard = true;
mazgch	74:208e3e32d263	1864	c027_mdm_powerOn(true);
mazgch	74:208e3e32d263	1865	#endif
mazgch	74:208e3e32d263	1866	}
mazgch	76:f7c3dd568dae	1867
mazgch	76:f7c3dd568dae	1868	MDMUsb::~MDMUsb(void)
mazgch	76:f7c3dd568dae	1869	{
mazgch	76:f7c3dd568dae	1870	powerOff();
mazgch	76:f7c3dd568dae	1871	#ifdef TARGET_UBLOX_C027
mazgch	76:f7c3dd568dae	1872	if (_onboard)
mazgch	76:f7c3dd568dae	1873	c027_mdm_powerOff();
mazgch	76:f7c3dd568dae	1874	#endif
mazgch	76:f7c3dd568dae	1875	}
mazgch	76:f7c3dd568dae	1876
mazgch	76:f7c3dd568dae	1877	int MDMUsb::_send(const void* buf, int len) { return 0; }
mazgch	76:f7c3dd568dae	1878
mazgch	18:e5697801df29	1879	int MDMUsb::getLine(char* buffer, int length) { return NOT_FOUND; }
mazgch	76:f7c3dd568dae	1880
msinig	133:57b208dd96fb	1881	#endif

Repository toolbox

Export to desktop IDE

Repository details

Type:	Library
Created:	03 Oct 2016
Imports:	1
Forks:	0
Commits:	140
Dependents:	0
Dependencies:	0
Followers:	1

MDM.cpp@134:2fbd5723e063, 2016-01-12 (annotated)

Who changed what in which revision?

Repository toolbox

Repository details

Important Information for this Arm website

Access Warning