1
0
mirror of https://github.com/f4exb/sdrangel.git synced 2024-11-04 16:01:14 -05:00
sdrangel/sdrbase/util/aprs.cpp
2024-04-03 15:14:14 +01:00

1211 lines
39 KiB
C++

///////////////////////////////////////////////////////////////////////////////////
// Copyright (C) 2021-2022 Jon Beniston, M7RCE <jon@beniston.com> //
// Copyright (C) 2022 Peter Beckman <beckman@angryox.com> //
// Copyright (C) 2023 Daniele Forsi <iu5hkx@gmail.com> //
// //
// This program is free software; you can redistribute it and/or modify //
// it under the terms of the GNU General Public License as published by //
// the Free Software Foundation as version 3 of the License, or //
// (at your option) any later version. //
// //
// This program is distributed in the hope that it will be useful, //
// but WITHOUT ANY WARRANTY; without even the implied warranty of //
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the //
// GNU General Public License V3 for more details. //
// //
// You should have received a copy of the GNU General Public License //
// along with this program. If not, see <http://www.gnu.org/licenses/>. //
///////////////////////////////////////////////////////////////////////////////////
#include <QRegExp>
#include <QRegularExpression>
#include <QStringList>
#include <QDateTime>
#include "aprs.h"
#include "util/units.h"
inline bool inRange(unsigned low, unsigned high, unsigned x)
{
return (low <= x && x <= high);
}
// Required for Mic-E Decoding
inline int charToIntAscii(QString&s, int idx)
{
char c = s.toLatin1().at(idx);
return int(c);
}
// See: http://www.aprs.org/doc/APRS101.PDF
// Currently we only decode what we want to display on the map
bool APRSPacket::decode(AX25Packet packet)
{
// Check type, PID and length of packet
if ((packet.m_type == "UI") && (packet.m_pid == "f0") && (packet.m_data.length() >= 1))
{
// Check destination address
QRegularExpression re("^(AIR.*|ALL.*|AP.*|BEACON|CQ.*|GPS.*|DF.*|DGPS.*|DRILL.*|DX.*|ID.*|JAVA.*|MAIL.*|MICE.*|QST.*|QTH.*|RTCM.*|SKY.*|SPACE.*|SPC.*|SYM.*|TEL.*|TEST.*|TLM.*|WX.*|ZIP.*)");
QRegularExpression re_mice("^[A-LP-Z0-9]{3}[L-Z0-9]{3}.?$"); // Mic-E Encoded Destination, 6-7 bytes
if (re.match(packet.m_to).hasMatch() || re_mice.match(packet.m_to).hasMatch())
{
m_from = packet.m_from;
m_to = packet.m_to;
m_via = packet.m_via;
m_data = packet.m_data;
// UTF-8 is supported: http://aprs.org/aprs12/utf-8.txt
QString data = QString::fromUtf8(packet.m_data);
if (packet.m_to.startsWith("GPS") || packet.m_to.startsWith("SPC") || packet.m_to.startsWith("SYM"))
{
// FIXME: Trailing letters xyz specify a symbol
}
// Source address SSID can be used to specify a symbol
// First byte of information field is data type ID
char dataType = data[0].toLatin1();
int idx = 1;
switch (dataType)
{
case '!': // Position without timestamp or Ultimeter 2000 WX Station
parsePosition(data, idx);
if (m_symbolCode == '_')
parseWeather(data, idx, false);
else if (m_symbolCode == '@')
parseStorm(data, idx);
else
{
parseDataExension(data, idx);
parseComment(data, idx);
}
break;
case '#': // Peet Bros U-II Weather Station
case '$': // Raw GPS data or Ultimeter 2000
case '%': // Agrelo DFJr / MicroFinder
break;
case ')': // Item
parseItem(data, idx);
parsePosition(data, idx);
parseDataExension(data, idx);
parseComment(data, idx);
break;
case '*': // Peet Bros U-II Weather Station
break;
case '/': // Position with timestamp (no APRS messaging)
parseTime(data, idx);
parsePosition(data, idx);
if (m_symbolCode == '_')
parseWeather(data, idx, false);
else if (m_symbolCode == '@')
parseStorm(data, idx);
else
{
parseDataExension(data, idx);
parseComment(data, idx);
}
break;
case ':': // Message
parseMessage(data, idx);
break;
case ';': // Object
parseObject(data, idx);
parseTime(data, idx);
parsePosition(data, idx);
if (m_symbolCode == '_')
parseWeather(data, idx, false);
else if (m_symbolCode == '@')
parseStorm(data, idx);
else
{
parseDataExension(data, idx);
parseComment(data, idx);
}
break;
case '<': // Station Capabilities
break;
case '=': // Position without timestamp (with APRS messaging)
parsePosition(data, idx);
if (m_symbolCode == '_')
parseWeather(data, idx, false);
else if (m_symbolCode == '@')
parseStorm(data, idx);
else
{
parseDataExension(data, idx);
parseComment(data, idx);
}
break;
case '>': // Status
parseStatus(data, idx);
break;
case '?': // Query
break;
case '@': // Position with timestamp (with APRS messaging)
parseTime(data, idx);
parsePosition(data, idx);
if (m_symbolCode == '_')
parseWeather(data, idx, false);
else if (m_symbolCode == '@')
parseStorm(data, idx);
else
{
parseDataExension(data, idx);
parseComment(data, idx);
}
break;
case 'T': // Telemetry data
parseTelemetry(data, idx);
break;
case '_': // Weather report (without position)
parseTimeMDHM(data, idx);
parseWeather(data, idx, true);
break;
case '`': // Mic-E Information Field Data (current)
case '\'': // Mic-E Information Field Data (old)
parseMicE(data, idx, m_to);
break;
case '{': // User-defined APRS packet format
break;
default:
return false;
}
if (m_hasSymbol)
{
int num = m_symbolCode - '!';
m_symbolImage = QString("aprs/aprs/aprs-symbols-24-%1-%2.png").arg(m_symbolTable == '/' ? 0 : 1).arg(num, 2, 10, QChar('0'));
}
return true;
} else {
qDebug() << "APRSPacket::decode: AX.25 Destination did not match known regexp " << m_to;
}
} else {
qDebug() << "APRSPacket::decode: Not APRS: type=" << packet.m_type << " pid=" << packet.m_pid << " length=" << packet.m_data.length();
}
return false;
}
int APRSPacket::charToInt(QString&s, int idx)
{
char c = s[idx].toLatin1();
return c == ' ' ? 0 : c - '0';
}
bool APRSPacket::parseTime(QString& info, int& idx)
{
if (info.length() < idx+7)
return false;
QDateTime currentDateTime;
if (info[idx+6]=='h')
{
// HMS format
if (info[idx].isDigit()
&& info[idx+1].isDigit()
&& info[idx+2].isDigit()
&& info[idx+3].isDigit()
&& info[idx+4].isDigit()
&& info[idx+5].isDigit())
{
int hour = charToInt(info, idx) * 10 + charToInt(info, idx+1);
int min = charToInt(info, idx+2) * 10 + charToInt(info, idx+3);
int sec = charToInt(info, idx+4) * 10 + charToInt(info, idx+5);
if (hour > 23)
return false;
if (min > 59)
return false;
if (sec > 60) // Can have 60 seconds when there's a leap second
return false;
m_utc = true;
m_timestamp = QDateTime(QDate::currentDate(), QTime(hour, min, sec));
m_hasTimestamp = true;
idx += 7;
return true;
}
else
return false;
}
else if ((info[idx+6]=='z') || (info[idx+6]=='/'))
{
// DHM format
if (info[idx].isDigit()
&& info[idx+1].isDigit()
&& info[idx+2].isDigit()
&& info[idx+3].isDigit()
&& info[idx+4].isDigit()
&& info[idx+5].isDigit())
{
int day = charToInt(info, idx) * 10 + charToInt(info, idx+1);
int hour = charToInt(info, idx+2) * 10 + charToInt(info, idx+3);
int min = charToInt(info, idx+4) * 10 + charToInt(info, idx+5);
if (day > 31)
return false;
if (hour > 23)
return false;
if (min > 59)
return false;
m_utc = info[idx+6]=='z';
currentDateTime = m_utc ? QDateTime::currentDateTimeUtc() : QDateTime::currentDateTime();
m_timestamp = QDateTime(QDate(currentDateTime.date().year(), currentDateTime.date().month(), day), QTime(hour, min, 0));
m_hasTimestamp = true;
idx += 7;
return true;
}
else
return false;
}
else
return false;
}
// Time format used in weather reports without position
bool APRSPacket::parseTimeMDHM(QString& info, int& idx)
{
if (info.length() < idx+8)
return false;
if (info[idx].isDigit()
&& info[idx+1].isDigit()
&& info[idx+2].isDigit()
&& info[idx+3].isDigit()
&& info[idx+4].isDigit()
&& info[idx+5].isDigit()
&& info[idx+6].isDigit()
&& info[idx+7].isDigit())
{
int month = charToInt(info, idx) * 10 + charToInt(info, idx+1);
int day = charToInt(info, idx+2) * 10 + charToInt(info, idx+3);
int hour = charToInt(info, idx+4) * 10 + charToInt(info, idx+5);
int min = charToInt(info, idx+6) * 10 + charToInt(info, idx+7);
if (month > 12)
return false;
if (day > 31)
return false;
if (hour > 23)
return false;
if (min > 59)
return false;
m_utc = true;
QDateTime currentDateTime = QDateTime::currentDateTimeUtc();
m_timestamp = QDateTime(QDate(currentDateTime.date().year(), month, day), QTime(hour, min, 0));
m_hasTimestamp = true;
return true;
}
else
return false;
}
// Position ambigutiy can be specified by using spaces instead of digits in lats and longs
bool APRSPacket::isLatLongChar(const QChar c)
{
return (c.isDigit() || c == ' ');
}
bool APRSPacket::parsePosition(QString& info, int& idx)
{
float latitude;
float longitude;
char table;
char code;
if (info.length() < idx+8+1+9+1)
return false;
// Latitude
if (info[idx].isDigit()
&& info[idx+1].isDigit()
&& isLatLongChar(info[idx+2])
&& isLatLongChar(info[idx+3])
&& (info[idx+4]=='.')
&& isLatLongChar(info[idx+5])
&& isLatLongChar(info[idx+6])
&& ((info[idx+7]=='N') || (info[idx+7]=='S')))
{
int deg = charToInt(info, idx) * 10 + charToInt(info, idx+1);
int min = charToInt(info, idx+2) * 10 + charToInt(info, idx+3);
int hundreths = charToInt(info, idx+5) * 10 + charToInt(info, idx+6);
bool north = (info[idx+7]=='N');
if (deg > 90)
return false;
else if ((deg == 90) && ((min != 0) || (hundreths != 0)))
return false;
latitude = ((float)deg) + min/60.0 + hundreths/60.0/100.0;
if (!north)
latitude = -latitude;
idx += 8;
}
else
return false;
// Symbol table identifier
table = info[idx++].toLatin1();
// Longitude
if (info[idx].isDigit()
&& info[idx+1].isDigit()
&& info[idx+2].isDigit()
&& isLatLongChar(info[idx+3])
&& isLatLongChar(info[idx+4])
&& (info[idx+5]=='.')
&& isLatLongChar(info[idx+6])
&& isLatLongChar(info[idx+7])
&& ((info[idx+8]=='E') || (info[idx+8]=='W')))
{
int deg = charToInt(info, idx) * 100 + charToInt(info, idx+1) * 10 + charToInt(info, idx+2);
int min = charToInt(info, idx+3) * 10 + charToInt(info, idx+4);
int hundreths = charToInt(info, idx+6) * 10 + charToInt(info, idx+7);
bool east = (info[idx+8]=='E');
if (deg > 180)
return false;
else if ((deg == 180) && ((min != 0) || (hundreths != 0)))
return false;
longitude = ((float)deg) + min/60.0 + hundreths/60.0/100.0;
if (!east)
longitude = -longitude;
idx += 9;
}
else
return false;
// Symbol table code
code = info[idx++].toLatin1();
// Update state as we have a valid position
m_latitude = latitude;
m_longitude = longitude;
m_hasPosition = true;
m_symbolTable = table;
m_symbolCode = code;
m_hasSymbol = true;
return true;
}
bool APRSPacket::parseDataExension(QString& info, int& idx)
{
int heightMap[] = {10, 20, 40, 80, 160, 320, 640, 1280, 2560, 5120};
QStringList directivityMap = {"Omni", "NE", "E", "SE", "S", "SW", "W", "NW", "N", ""};
int remainingLength = info.length() - idx;
if (remainingLength < 7)
return true;
QString s = info.right(remainingLength);
// Course and speed
QRegExp courseSpeed("^([0-9]{3})\\/([0-9]{3})");
if (courseSpeed.indexIn(s) >= 0)
{
m_course = courseSpeed.capturedTexts()[1].toInt();
m_speed = courseSpeed.capturedTexts()[2].toInt();
m_hasCourseAndSpeed = true;
idx += 7;
return true;
}
// Station radio details
QRegExp phg("^PHG([0-9])([0-9])([0-9])([0-9])");
if (phg.indexIn(s) >= 0)
{
// Transmitter power
int powerCode = phg.capturedTexts()[1].toInt();
int powerMap[] = {0, 1, 4, 9, 16, 25, 36, 49, 64, 81};
m_powerWatts = powerMap[powerCode];
// Antenna height
int heightCode = phg.capturedTexts()[2].toInt();
m_antennaHeightFt = heightMap[heightCode];
// Antenna gain
m_antennaGainDB = phg.capturedTexts()[3].toInt();
// Antenna directivity
int directivityCode = phg.capturedTexts()[4].toInt();
m_antennaDirectivity = directivityMap[directivityCode];
m_hasStationDetails = true;
idx += 7;
return true;
}
// Radio range
QRegExp rng("^RNG([0-9]{4})");
if (rng.indexIn(s) >= 0)
{
m_radioRangeMiles = rng.capturedTexts()[1].toInt();
m_hasRadioRange = true;
idx += 7;
return true;
}
// Omni-DF strength
QRegExp dfs("^DFS([0-9])([0-9])([0-9])([0-9])");
if (dfs.indexIn(s) >= 0)
{
// Strength S-points
m_dfStrength = dfs.capturedTexts()[1].toInt();
// Antenna height
int heightCode = dfs.capturedTexts()[2].toInt();
m_dfHeightFt = heightMap[heightCode];
// Antenna gain
m_dfGainDB = dfs.capturedTexts()[3].toInt();
// Antenna directivity
int directivityCode = dfs.capturedTexts()[4].toInt();
m_dfAntennaDirectivity = directivityMap[directivityCode];
m_hasDf = true;
idx += 7;
return true;
}
return true;
}
bool APRSPacket::parseComment(QString& info, int& idx)
{
int commentLength = info.length() - idx;
if (commentLength > 0)
{
m_comment = info.right(commentLength);
// Comment can contain altitude anywhere in it. Of the form /A=001234 in feet
QRegExp re("\\/A=([0-9]{6})");
int pos = re.indexIn(m_comment);
if (pos >= 0)
{
m_altitudeFt = re.capturedTexts()[1].toInt();
m_hasAltitude = true;
// Strip it out of comment if at start of string
if (pos == 0)
m_comment = m_comment.mid(9);
}
}
return true;
}
bool APRSPacket::parseInt(QString& info, int& idx, int chars, int& value, bool& hasValue)
{
int total = 0;
bool negative = false;
bool noValue = false;
for (int i = 0; i < chars; i++)
{
if (info[idx].isDigit())
{
total = total * 10;
total += info[idx].toLatin1() - '0';
}
else if ((i == 0) && (info[idx] == '-'))
negative = true;
else if ((info[idx] == '.') || (info[idx] == ' '))
noValue = true;
else
return false;
idx++;
}
if (!noValue)
{
if (negative)
value = -total;
else
value = total;
hasValue = true;
}
else
hasValue = false;
return true;
}
bool APRSPacket::parseWeather(QString& info, int& idx, bool positionLess)
{
if (!positionLess)
{
if (!parseInt(info, idx, 3, m_windDirection, m_hasWindDirection))
return false;
if (info[idx++] != '/')
return false;
if (!parseInt(info, idx, 3, m_windSpeed, m_hasWindSpeed))
return false;
}
// Weather data
bool done = false;
while (!done && (idx < info.length()))
{
switch (info[idx++].toLatin1())
{
case 'c': // Wind direction
if (!parseInt(info, idx, 3, m_windDirection, m_hasWindDirection))
return false;
break;
case 's': // Wind speed
if (!parseInt(info, idx, 3, m_windSpeed, m_hasWindSpeed))
return false;
break;
case 'g': // Gust
if (!parseInt(info, idx, 3, m_gust, m_hasGust))
return false;
break;
case 't': // Temp
if (!parseInt(info, idx, 3, m_temp, m_hasTemp))
{
qDebug() << "Failed parsing temp: idx" << idx;
return false;
}
break;
case 'r': // Rain last hour
if (!parseInt(info, idx, 3, m_rainLastHr, m_hasRainLastHr))
return false;
break;
case 'p': // Rain last 24 hours
if (!parseInt(info, idx, 3, m_rainLast24Hrs, m_hasRainLast24Hrs))
return false;
break;
case 'P': // Rain since midnight
if (!parseInt(info, idx, 3, m_rainSinceMidnight, m_hasRainSinceMidnight))
return false;
break;
case 'h': // Humidity
if (!parseInt(info, idx, 2, m_humidity, m_hasHumidity))
return false;
break;
case 'b': // Barometric pressure
if (!parseInt(info, idx, 5, m_barometricPressure, m_hasBarometricPressure))
return false;
break;
case 'L': // Luminosity <999
if (!parseInt(info, idx, 3, m_luminosity, m_hasLuminsoity))
return false;
break;
case 'l': // Luminosity >= 1000
if (!parseInt(info, idx, 3, m_luminosity, m_hasLuminsoity))
return false;
m_luminosity += 1000;
break;
case 'S': // Snowfall
if (!parseInt(info, idx, 3, m_snowfallLast24Hrs, m_hasSnowfallLast24Hrs))
return false;
break;
case '#': // Raw rain counter
if (!parseInt(info, idx, 3, m_rawRainCounter, m_hasRawRainCounter))
return false;
break;
case 'X': // Radiation level
if (!parseInt(info, idx, 3, m_radiationLevel, m_hasRadiationLevel))
return false;
break;
case 'F': // Floor water level
if (!parseInt(info, idx, 4, m_floodLevel, m_hasFloodLevel))
return false;
break;
case 'V': // Battery volts
if (!parseInt(info, idx, 3, m_batteryVolts, m_hasBatteryVolts))
return false;
break;
default:
done = true;
break;
}
}
if (done)
{
// APRS 1.1 spec says remaining fields are s/w and weather unit type
// But few real-world packets actually seem to conform to the spec
idx--;
int remaining = info.length() - idx;
m_weatherUnitType = info.right(remaining);
idx += remaining;
}
m_hasWeather = true;
return true;
}
bool APRSPacket::parseStorm(QString& info, int& idx)
{
bool unused;
if (!parseInt(info, idx, 3, m_stormDirection, unused))
return false;
if (info[idx++] != '/')
return false;
if (!parseInt(info, idx, 3, m_stormSpeed, unused))
return false;
if (info[idx++] != '/')
return false;
QString type = info.mid(idx, 2);
idx += 2;
if (type == "TS")
m_stormType = "Tropical storm";
else if (type == "HC")
m_stormType = "Hurrican";
else if (type == "TD")
m_stormType = "Tropical depression";
else
m_stormType = type;
if (info[idx++] != '/') // Sustained wind speed
return false;
if (!parseInt(info, idx, 3, m_stormSustainedWindSpeed, unused))
return false;
if (info[idx++] != '^') // Peak wind gusts
return false;
if (!parseInt(info, idx, 3, m_stormPeakWindGusts, unused))
return false;
if (info[idx++] != '/') // Central pressure
return false;
if (!parseInt(info, idx, 4, m_stormCentralPresure, unused))
return false;
if (info[idx++] != '>') // Radius hurrican winds
return false;
if (!parseInt(info, idx, 3, m_stormRadiusHurricanWinds, unused))
return false;
if (info[idx++] != '&') // Radius tropical storm winds
return false;
if (!parseInt(info, idx, 3, m_stormRadiusTropicalStormWinds, unused))
return false;
m_hasStormData = true;
// Optional field
if (info.length() >= idx + 4)
{
if (info[idx] != '%') // Radius whole gail
return true;
idx++;
if (!parseInt(info, idx, 3, m_stormRadiusWholeGail, m_hasStormRadiusWholeGail))
return false;
}
return true;
}
bool APRSPacket::parseObject(QString& info, int& idx)
{
if (info.length() < idx+10)
return false;
// Object names are 9 chars
m_objectName = info.mid(idx, 9).trimmed();
idx += 9;
if (info[idx] == '*')
m_objectLive = true;
else if (info[idx] == '_')
m_objectKilled = true;
else
return false;
idx++;
return true;
}
bool APRSPacket::parseItem(QString& info, int& idx)
{
if (info.length() < idx+3)
return false;
// Item names are 3-9 chars long, excluding ! or _
m_objectName = "";
int i;
for (i = 0; i < 10; i++)
{
if (info.length() >= idx)
{
QChar c = info[idx];
if (c == '!' || c == '_')
break;
else
{
m_objectName.append(c);
idx++;
}
}
}
if (i == 11)
return false;
if (info[idx] == '!')
m_objectLive = true;
else if (info[idx] == '_')
m_objectKilled = true;
idx++;
return true;
}
bool APRSPacket::parseStatus(QString& info, int& idx)
{
QString remaining = info.mid(idx);
QRegExp timestampRE("^([0-9]{6})z"); // DHM timestamp
QRegExp maidenheadRE("^([A-Z]{2}[0-9]{2}[A-Z]{0,2})[/\\\\]."); // Maidenhead grid locator and symbol
if (timestampRE.indexIn(remaining) >= 0)
{
parseTime(info, idx);
m_status = info.mid(idx);
idx += m_status.length();
}
else if (maidenheadRE.indexIn(remaining) >= 0)
{
m_maidenhead = maidenheadRE.capturedTexts()[1];
idx += m_maidenhead.length();
m_symbolTable = info[idx++].toLatin1();
m_symbolCode = info[idx++].toLatin1();
m_hasSymbol = true;
if (info[idx] == ' ')
{
idx++;
m_status = info.mid(idx);
idx += m_status.length();
}
}
else
{
m_status = remaining;
idx += m_status.length();
}
m_hasStatus = true;
// Check for beam heading and power in meteor scatter status reports
int len = m_status.length();
if (len >= 3)
{
if (m_status[len-3] == '^')
{
bool error = false;
char h = m_status[len-2].toLatin1();
char p = m_status[len-1].toLatin1();
if (isdigit(h))
m_beamHeading = (h - '0') * 10;
else if (isupper(h))
m_beamHeading = (h - 'A') * 10 + 100;
else
error = true;
switch (p)
{
case '1': m_beamPower = 10; break;
case '2': m_beamPower = 40; break;
case '3': m_beamPower = 90; break;
case '4': m_beamPower = 160; break;
case '5': m_beamPower = 250; break;
case '6': m_beamPower = 360; break;
case '7': m_beamPower = 490; break;
case '8': m_beamPower = 640; break;
case '9': m_beamPower = 810; break;
case ':': m_beamPower = 1000; break;
case ';': m_beamPower = 1210; break;
case '<': m_beamPower = 1440; break;
case '=': m_beamPower = 1690; break;
case '>': m_beamPower = 1960; break;
case '?': m_beamPower = 2250; break;
case '@': m_beamPower = 2560; break;
case 'A': m_beamPower = 2890; break;
case 'B': m_beamPower = 3240; break;
case 'C': m_beamPower = 3610; break;
case 'D': m_beamPower = 4000; break;
case 'E': m_beamPower = 4410; break;
case 'F': m_beamPower = 4840; break;
case 'G': m_beamPower = 5290; break;
case 'H': m_beamPower = 5760; break;
case 'I': m_beamPower = 6250; break;
case 'J': m_beamPower = 6760; break;
case 'K': m_beamPower = 7290; break;
default: error = true; break;
}
if (!error)
{
m_hasBeam = true;
m_status = m_status.left(len - 3);
}
}
}
return true;
}
bool APRSPacket::parseMessage(QString& info, int& idx)
{
if (info.length() < idx+10)
return false;
// Addressee is fixed width
if (info[idx+9] != ':')
return false;
m_addressee = info.mid(idx, 9).trimmed();
idx += 10;
// Message
m_message = info.mid(idx);
idx += m_message.length();
// Check if telemetry parameter/unit names
if (m_message.startsWith("PARM."))
{
bool done = false;
QString s("");
int i = 5;
while (!done)
{
if (i >= m_message.length())
{
if (!s.isEmpty())
m_telemetryNames.append(s);
done = true;
}
else if (m_message[i] == ',')
{
if (!s.isEmpty())
m_telemetryNames.append(s);
i++;
s = "";
}
else
s.append(m_message[i++]);
}
}
else if (m_message.startsWith("UNIT."))
{
bool done = false;
QString s("");
int i = 5;
while (!done)
{
if (i >= m_message.length())
{
if (!s.isEmpty())
m_telemetryLabels.append(s);
done = true;
}
else if (m_message[i] == ',')
{
if (!s.isEmpty())
m_telemetryLabels.append(s);
i++;
s = "";
}
else
s.append(m_message[i++]);
}
}
else if (m_message.startsWith("EQNS."))
{
bool done = false;
QString s("");
int i = 5;
QList <QString> telemetryCoefficients;
while (!done)
{
if (i >= m_message.length())
{
if (!s.isEmpty())
telemetryCoefficients.append(s);
done = true;
}
else if (m_message[i] == ',')
{
if (!s.isEmpty())
telemetryCoefficients.append(s);
i++;
s = "";
}
else
s.append(m_message[i++]);
}
m_hasTelemetryCoefficients = 0;
for (int j = 0; j < telemetryCoefficients.length() / 3; j++)
{
m_telemetryCoefficientsA[j] = telemetryCoefficients[j*3].toDouble();
m_telemetryCoefficientsB[j] = telemetryCoefficients[j*3+1].toDouble();
m_telemetryCoefficientsC[j] = telemetryCoefficients[j*3+2].toDouble();
m_hasTelemetryCoefficients++;
}
}
else if (m_message.startsWith("BITS."))
{
QString s("");
int i = 5;
for (int j = 0; j < 8; j++)
{
if (i >= m_message.length())
m_telemetryBitSense[j] = m_message[i] == '1';
else
m_telemetryBitSense[j] = true;
i++;
}
m_hasTelemetryBitSense = true;
m_telemetryProjectName = m_message.mid(i);
i += m_telemetryProjectName.length();
}
else
{
// Check for message number
QRegExp noRE("\\{([0-9]{1,5})$");
if (noRE.indexIn(m_message) >= 0)
{
m_messageNo = noRE.capturedTexts()[1];
m_message = m_message.left(m_message.length() - m_messageNo.length() - 1);
}
}
m_hasMessage = true;
return true;
}
bool APRSPacket::parseTelemetry(QString& info, int& idx)
{
if (info[idx] == '#')
{
// Telemetry report
idx++;
if ((info[idx] == 'M') && (info[idx+1] == 'I') && (info[idx+2] == 'C'))
idx += 3;
else if (isdigit(info[idx].toLatin1()) && isdigit(info[idx+1].toLatin1()) && isdigit(info[idx+2].toLatin1()))
{
m_seqNo = info.mid(idx, 3).toInt();
m_hasSeqNo = true;
idx += 3;
}
else
return false;
if (info[idx] == ',')
idx++;
parseInt(info, idx, 3, m_a1, m_a1HasValue);
if (info[idx++] != ',')
return false;
parseInt(info, idx, 3, m_a2, m_a2HasValue);
if (info[idx++] != ',')
return false;
parseInt(info, idx, 3, m_a3, m_a3HasValue);
if (info[idx++] != ',')
return false;
parseInt(info, idx, 3, m_a4, m_a4HasValue);
if (info[idx++] != ',')
return false;
parseInt(info, idx, 3, m_a5, m_a5HasValue);
if (info[idx++] != ',')
return false;
for (int i = 0; i < 8; i++)
m_b[i] = info[idx++] == '1';
m_bHasValue = true;
m_telemetryComment = info.mid(idx);
idx += m_telemetryComment.length();
m_hasTelemetry = true;
return true;
}
else
return false;
}
// Mic-E Implementation by Peter Beckman KM4BBB github:ooglek
bool APRSPacket::parseMicE(QString& info, int& idx, QString& dest)
{
info = info.toLatin1();
// Mic-E Location data is encoded in the AX.25 Destination Address
if (dest.length() < 6) {
qDebug() << "APRSPacket::parseMicE: Destination invalid length " << dest;
return false;
}
// Mic-E Information data is 8 bytes minimum, 13-14 with altitude
if (info.length() < idx+8) {
qDebug() << "APRSPacket::parseMicE: Information Data invalid length " << info;
return false;
}
QString latDigits = "";
QString messageBits = "";
int messageType = 0; // 0 = Standard, 1 = Custom
int longitudeOffset = 0;
// Assume South & East, as North & West are encoded using consecutive Characters, easier and shorter to code
float latitudeDirection = -1; // South
float longitudeDirection = 1; // East
QHash<QString, QString> messageTypeLookup = {
{"111", "Off Duty"},
{"110", "En Route"},
{"101", "In Service"},
{"100", "Returning"},
{"011", "Committed"},
{"010", "Special"},
{"001", "Priority"},
{"000", "Emergency"}
};
QRegularExpression re("^[A-LP-Z0-9]{3}[L-Z0-9]{3}.?$"); // 6-7 bytes
if (re.match(dest).hasMatch()) {
m_comment = "Mic-E";
for (int i = 0; i < 6; i++) {
int charInt = charToIntAscii(dest, i);
if (inRange(48, 57, charInt)) {
latDigits.append(QString::number(charInt % 48));
} else if (inRange(65, 74, charInt)) {
latDigits.append(QString::number(charInt % 65));
} else if (inRange(80, 89, charInt)) {
latDigits.append(QString::number(charInt % 80));
} else {
latDigits.append('0'); // Standard states "space" but we put a zero for math
}
// Message Type is encoded in 3 bits
if (i < 3) {
if (inRange(48, 57, charInt) || charInt == 76) { // 0-9 or L
messageBits.append('0');
} else if (inRange(80, 90, charInt)) { // P-Z, Standard
messageBits.append('1');
messageType = 0;
} else if (inRange(65, 75, charInt)) { // A-K, Custom
messageBits.append('1');
messageType = 1;
}
}
// Latitude Direction
if (i == 3 && inRange(80, 90, charInt)) {
latitudeDirection = 1; // North
}
// Longitude Offset
if (i == 4 && inRange(80, 90, charInt)) {
longitudeOffset = 100;
}
// Longitude Direction
if (i == 5 && inRange(80, 90, charInt)) {
longitudeDirection = -1; // West
}
}
if (messageTypeLookup.find(messageBits) != messageTypeLookup.end()) {
m_status = messageTypeLookup[messageBits];
if (messageType == 1) {
m_status.append(" (custom)");
}
m_hasStatus = true;
}
m_latitude = (latDigits.mid(0, 2).toFloat() + latDigits.mid(2, 2).toFloat()/60.00 + latDigits.mid(4, 2).toFloat()/60.0/100.0) * latitudeDirection;
m_hasPosition = true;
} else {
qDebug() << "APRSPacket::parseMicE: Destination invalid regexp match " << dest;
return false;
}
// Mic-E Data is encoded in ASCII Characters
if (inRange(38, 127, charToIntAscii(info, idx)) // 0: Longitude Degrees, 0-360
&& inRange(38, 97, charToIntAscii(info, idx+1)) // 1: Longitude Minutes, 0-59
&& inRange(28, 127, charToIntAscii(info, idx+2)) // 2: Longitude Hundreths of a minute, 0-99
&& inRange(28, 127, charToIntAscii(info, idx+3)) // 3: Speed (tens), 0-800
&& inRange(28, 125, charToIntAscii(info, idx+4)) // 4: Speed (ones), 0-9, and Course (hundreds), {0, 100, 200, 300}
&& inRange(28, 127, charToIntAscii(info, idx+5)) // 5: Course, 0-99 degrees
)
{
// Longitude; Degrees plus offset encoded in the AX.25 Destination
// Destination Byte 5, ASCII P through Z indicates an offset of +100
int deg = (charToIntAscii(info, idx) - 28) + longitudeOffset;
if (inRange(180, 189, deg))
deg -= 80;
if (inRange(190, 199, deg))
deg -= 190;
int min = (charToIntAscii(info, idx+1) - 28) % 60;
int hundreths = charToIntAscii(info, idx+2);
// Course and Speed
// Speed (SP+28, units of 10) can use two encodings: ASCII 28-47 and 108-127 are the same
// Speed & Course (DC+28, Speed units of 1, Course units of 100 e.g. 0, 100, 200, 300) uses two encodings
int speed = ((charToIntAscii(info, idx+3) - 28) * 10) % 800; // Speed in 10 kts units
float decoded_speed_course = (float)(charToIntAscii(info, idx+4) - 28) / 10.0;
speed += floor(decoded_speed_course); // Speed in 1 kt units, added to above
int course = (((charToIntAscii(info, idx+4) - 28) % 10) * 100) % 400;
course += charToIntAscii(info, idx+5) - 28;
m_longitude = (((float)deg) + min/60.00 + hundreths/60.0/100.0) * longitudeDirection;
m_hasPosition = true;
m_course = course;
m_speed = speed;
m_hasCourseAndSpeed = true;
} else {
qDebug() << "APRSPacket::parseMicE: Information Data invalid ASCII range " << info;
return false;
}
// 6: Symbol Code
// 7: Symbol Table ID, / = standard, \ = alternate, "," = Telemetry
if (inRange(33, 126, charToIntAscii(info, idx+6))
&& (charToIntAscii(info, idx+7) == 47 || charToIntAscii(info, idx+7) == 92)
)
{
m_symbolTable = info[idx+7].toLatin1();
m_symbolCode = info[idx+6].toLatin1();
m_hasSymbol = true;
}
// Altitude, encoded in Status Message in meters, converted to feet, above -10000 meters
// e.g. "4T} -> Doublequote is 34, digit 4 is 52, Capital T is 84. Subtract 33 from each -> 1, 19, 51
// Multiply -> (1 * 91 * 91) + (19 * 91) + (51 * 1) - 10000 = 61 meters Mean Sea Level (MSL)
// ASCII Integer Character Range is 33 to 127
float altitude = -10000;
// 4-5 bytes, we only need the 3 to get altitude, e.g. "4T}
// Some HTs prefix the altitude with ']' or '>', so we match that optionally but ignore it
QRegularExpression re_mice_altitude("[\\]>]?(.{3})}");
QRegularExpressionMatch altitude_str = re_mice_altitude.match(info);
if (altitude_str.hasMatch()) {
QList<int> micEAltitudeMultipliers = {91 * 91, 91, 1};
for (int i = 0; i < 3; i++) {
QString altmatch = altitude_str.captured(1);
int charInt = charToIntAscii(altmatch, i);
if (!inRange(33, 127, charInt)) {
qDebug() << "APRSPacket::parseMicE: Invalid Altitude Byte Found pos:" << QString::number(i) << " ascii int:" << QString::number(charInt);
break;
}
altitude += (float)(charInt - 33) * micEAltitudeMultipliers.at(i);
}
// Assume that the Mic-E transmission is Above Ground Level
if (altitude >= 0) {
m_altitudeFt = std::round(Units::metresToFeet(altitude));
m_hasAltitude = true;
}
}
// Mic-E Text Format
if (info.length() >= 9) {
QString mice_status = info.mid(9);
if (altitude_str.hasMatch() && mice_status.indexOf(altitude_str.captured(0)) != -1) {
mice_status.replace(altitude_str.captured(0), "");
}
m_comment += " " + mice_status;
// TODO Implement the APRS 1.2 Mic-E Text Format http://www.aprs.org/aprs12/mic-e-types.txt
// Consider the Kenwood leading characters
}
// TODO Implement Mic-E Telemetry Data -- need to modify regexp for the Symbol Table Identifier to include comma (,)
return true;
}