An example project for the Heltec Turtle LoRa board (STM32L4 and SX1276 chips). The projects is only supported for the Nucleo-L432KC board platform in the mbed online and offline compiler environment. Visit www.radioshuttle.de (choose Turtle board) for instructions. Note that most source files and libraries are open source, however some files especially the RadioShuttle core protocol is copyrighted work. Check header for details.
Dependencies: mbed BufferedSerial SX1276GenericLib OLED_SSD1306 HELIOS_Si7021 NVProperty RadioShuttle-STM32L4 USBDeviceHT
Utils/utils.cpp
- Committer:
- Helmut Tschemernjak
- Date:
- 2019-06-06
- Revision:
- 62:86aaaf9fa55d
- Parent:
- 54:28ed5c68e5f6
File content as of revision 62:86aaaf9fa55d:
/* * Copyright (c) 2019 Helmut Tschemernjak * 30826 Garbsen (Hannover) Germany */ #include "main.h" #include "GenericPingPong.h" #include "RadioTest.h" #ifdef TOOLCHAIN_GCC #include <malloc.h> #endif volatile uint32_t PendingInterrupts; // global interrupt mask of received interrupts time_t cvt_date(char const *date, char const *time); static float GetBrownOutVolt(void); #ifdef FEATURE_SI7021 HELIOS_Si7021 *sensorSI7021; #endif BufferedSerial *ser; #ifdef FEATURE_USBSERIAL USBSerialBuffered *usb; #endif bool _useDprintf; void InitSerial(int timeout, DigitalOut *led, InterruptIn *intr) { _useDprintf = true; bool uartActive = true; #ifdef FEATURE_USBSERIAL DigitalOut rx(USBRX); // need to turn rx low to avoid floating signal rx = 0; DigitalIn uartRX(USBRX); uartActive = uartRX.read(); if (!uartActive) { usb = new USBSerialBuffered(); Timer t; t.start(); while(!usb->connected()) { if (led) *led = !*led; wait_ms(100); if (timeout) { if (t.read_ms() >= timeout || (intr && intr->read())) { delete usb; usb = NULL; DigitalOut rx(USBRX); rx = 0; // need to turn tx low to avoid floating signal break; } } } } #endif if (uartActive) { ser = new BufferedSerial(USBTX, USBRX); ser->baud(230400); ser->format(8); } time_t t = cvt_date(__DATE__, __TIME__); if (t > time(NULL)) { set_time(t); } } void RunStartup(void) { rprintf("\r\n"); int mbedversion = 9999; #ifdef MBED_LIBRARY_VERSION // not available in mbed head compiles mbedversion = MBED_LIBRARY_VERSION; #endif dprintf("Turtle: %d.%d (%s %s mbed: v%d)", MAJOR_VERSION, MINOR_VERSION, __DATE__, __TIME__, mbedversion); dprintf("SysClock: %u Hz.", (unsigned int)SystemCoreClock); #ifdef __ARMCC_VERSION dprintf("ARM Compiler Version: 0x%x", __ARMCC_VERSION); #elif __GNUC__ dprintf("GCC Compiler Version: %d.%d.%d", __GNUC__, __GNUC_MINOR__, __GNUC_PATCHLEVEL__); #endif const char *errstr; if (__HAL_RCC_GET_FLAG(RCC_FLAG_BORRST) != RESET) errstr = "RESET OCCURRED"; else errstr = "initalized"; dprintf("Brown Out Reset %s (%1.1f V)", errstr, GetBrownOutVolt()); dprintf("Voltage: %.2f (%s powered)", BatteryVoltage(), BatterySource()); dprintf("InitDefaults Done"); MemoryAvailable(true); __HAL_RCC_CLEAR_RESET_FLAGS(); #ifdef FEATURE_SI7021 sensorSI7021 = new HELIOS_Si7021(SI7021_SDA, SI7021_SCL); if (sensorSI7021->hasSensor()) { dprintf("%s: Rev(%d) %.2f°C Humidity: %.2f%%", sensorSI7021->getModelName(), sensorSI7021->getRevision(), sensorSI7021->readTemperature(), sensorSI7021->readHumidity()); } #endif } void printTimeStamp() { static LowPowerTimer *timer; if (!timer) { timer = new LowPowerTimer(); timer->start(); } time_t seconds = time(NULL); struct tm *tm = localtime(&seconds); int usecs = timer->read_us(); if (usecs < 0) { usecs = 0; timer->stop(); timer->reset(); timer->start(); } int msecs = usecs % 1000000; rprintf("%02d:%02d:%02d.%06d ", tm->tm_hour, tm->tm_min, tm->tm_sec, msecs); } void dprintf(const char *format, ...) { std::va_list arg; va_start(arg, format); VAprintf(true, true, _useDprintf, format, arg); va_end(arg); } void rprintf(const char *format, ...) { std::va_list arg; va_start(arg, format); VAprintf(false, false, _useDprintf, format, arg); va_end(arg); } void VAprintf(bool timstamp, bool newline, bool printEnabled, const char *format, va_list arg) { if (!printEnabled) return; if (timstamp) printTimeStamp(); #ifdef FEATURE_USBSERIAL if (usb) { usb->vprintf_irqsafe(format, arg); if (newline) usb->printf_irqsafe("\r\n"); } #endif if (ser) { // serial jas int r = 0; r = vsnprintf(NULL, 0, format, arg); if (r < 82) { char buffer[82+1]; vsnprintf(buffer, sizeof(buffer), format, arg); r = ser->write(buffer, r); } else { char *buffer = new char[r+1]; if (buffer) { vsnprintf(buffer, r+1, format, arg); r = ser->write(buffer, r); delete[] buffer; } else { error("%s %d cannot alloc memory (%d bytes)!\r\n", __FILE__, __LINE__, r+1); r = 0; } } if (newline) ser->write("\r\n", 2); } } char *ConsoleReadline(char *buf, int buflen, bool echo, int timeout_ms) { int count = 0; memset(buf, 0, buflen); #ifdef FEATURE_USBSERIAL if (usb == NULL && ser == NULL) return NULL; #else if (ser == NULL) return NULL; #endif Timer t; int start = 0; if (timeout_ms) { t.start(); start = t.read_ms(); } #ifdef FEATURE_USBSERIAL if (usb) { usb->flush(); while(usb->readable()) usb->getc(); // flush old chars } #endif if (ser) { while(ser->readable()) ser->getc(); // flush old chars } while(true) { if (timeout_ms && t.read_ms() - start > timeout_ms) return NULL; int c = -2; #ifdef FEATURE_USBSERIAL if (usb && usb->readable()) c = usb->getc(); #endif if (ser && ser->readable()) c = ser->getc(); if (c == -2) continue; if (c == 0 || c == -1 || c == '\r' || c == '\n' || c == 3 || c == 4) break; if (c == '\b' || c == 0x7f) { // backspace if (count < 1) continue; buf[--count] = 0; if (echo) rprintf("\b \b"); #ifdef FEATURE_USBSERIAL if (usb) usb->flush(); #endif continue; } if (echo) { rprintf("%c", c); #ifdef FEATURE_USBSERIAL if (usb) usb->flush(); #endif } start = t.read_ms(); buf[count] = c; if (count++ >= buflen-2) break; // dprintf("Got char: '%c'(%d)", c, c); } if (echo) rprintf("\r\n"); if (count) return buf; return NULL; } void dump(const char *title, void *data, int len) { dump(title, data, len, false); } void dump(const char *title, const void *data, int len, bool dwords) { dprintf("dump(\"%s\", 0x%x, %d bytes)", title, (unsigned int)data, len); int i, j, cnt; unsigned char *u; const int width = 16; const int seppos = 7; cnt = 0; u = (unsigned char *)data; while (len > 0) { rprintf("%08x: ", (unsigned int)data + cnt); if (dwords) { unsigned int *ip = ( unsigned int *)u; rprintf(" 0x%08x\r\n", *ip); u+= 4; len -= 4; cnt += 4; continue; } cnt += width; j = len < width ? len : width; for (i = 0; i < j; i++) { rprintf("%2.2x ", *(u + i)); if (i == seppos) rprintf(" "); } rprintf(" "); if (j < width) { i = width - j; if (i > seppos + 1) rprintf(" "); while (i--) { rprintf("%s", " "); } } for (i = 0; i < j; i++) { int c = *(u + i); if (c >= ' ' && c <= '~') rprintf("%c", c); else rprintf("."); if (i == seppos) rprintf(" "); } len -= width; u += width; rprintf("\r\n"); if (ser) wait_ms(5); // give the serial some time. } rprintf("--\r\n"); } /* * Convert compile time to system time */ time_t cvt_date(char const *date, char const *time) { char s_month[5]; int year; struct tm t; static const char month_names[] = "JanFebMarAprMayJunJulAugSepOctNovDec"; sscanf(date, "%s %d %d", s_month, &t.tm_mday, &year); sscanf(time, "%2d %*c %2d %*c %2d", &t.tm_hour, &t.tm_min, &t.tm_sec); // Find where is s_month in month_names. Deduce month value. t.tm_mon = (strstr(month_names, s_month) - month_names) / 3; t.tm_year = year - 1900; return (int)mktime(&t); } void InterruptMSG(enum InterruptDevice irqid) { help_atomic_or_relaxed(&PendingInterrupts, irqid); } uint32_t readclrPendingInterrupts() { return help_atomic_readclr_relaxed(&PendingInterrupts); } uint32_t readPendingInterrupts() { return help_atomic_load_relaxed(&PendingInterrupts); } const char * BatterySource(void) { const char *pwrSource = "Battery"; #ifdef BATPOWER_EN { DigitalIn pwr(BATPOWER_EN); if (pwr == BATPOWER_EXT) pwrSource = "USB"; } #endif return pwrSource; } float GetBrownOutVolt(void) { unsigned int *FlashOptionRegister = (unsigned int *)0x1FFF7800; int val = *FlashOptionRegister >> 8 & 0x7; // masking out the BOR bits 9-11 switch(val) { case 0: return 1.7; case 1: return 2.0; case 2: return 2.2; case 3: return 2.5; case 4: return 2.8; default: return 999; } } void MCUReset(void) { #define AIRCR_VECTKEY_MASK 0x05FA0000 SCB->AIRCR = AIRCR_VECTKEY_MASK | 0x04; // NVIC_GenerateSystemReset(); } #define FREEMEM_CELL 100 struct elem { /* Definition of a structure that is FREEMEM_CELL bytes in size.) */ struct elem *next; char dummy[FREEMEM_CELL-2]; }; size_t MemoryAvailable(bool print) { size_t counter; #ifdef TOOLCHAIN_GCC struct mallinfo mi = mallinfo(); extern char end[]; extern char _estack[]; counter = (_estack - end) - mi.uordblks; if (print) dprintf("MemoryAvailable: %d kB (%d bytes)", counter/1024, counter); return counter; #else struct elem *head, *current, *nextone; current = head = (struct elem*) malloc(sizeof(struct elem)); if (head == NULL) return 0; /*No memory available.*/ counter = 0; // __disable_irq(); do { counter++; current->next = (struct elem*) malloc(sizeof(struct elem)); current = current->next; } while (current != NULL); /* Now counter holds the number of type elem structures we were able to allocate. We must free them all before returning. */ current = head; do { nextone = current->next; free(current); current = nextone; } while (nextone != NULL); // __enable_irq(); if (print) dprintf("MemoryAvailable: %d kB (%d bytes)", (counter*FREEMEM_CELL)/1024, counter*FREEMEM_CELL); return counter*FREEMEM_CELL; #endif } static const char *cmds = \ "\r\nThe following commands are available:\r\n\r\n" \ " p -- Property Editor\r\n" \ " t -- LoRa PingPong Test\r\n" \ " x -- LoRa TX Continuous Wave Test\r\n" \ " d -- Hexdump of memory address [offset count]\r\n" " r -- Reset\r\n" \ " c -- Continue with RadioShuttle RadioTest\r\n" \ "\r\n" \ "waiting 10 secs ...\r\n" \ "\r\n"; void RunCommands(int timeout_ms) { bool cmdLoop = true; while(cmdLoop) { char buf[32]; rprintf(cmds); rprintf("Turtle$ "); if (ConsoleReadline(buf, sizeof(buf), true, timeout_ms) == NULL) { cmdLoop = false; break; } switch(buf[0]) { case 'p': case 'P': #ifdef FEATURE_NVPROPERTYEDITOR NVPropertyEditor(); #endif break; case 't': case 'T': #ifdef FEATURE_LORA_PING_PONG SX1276PingPong(); // basic LoRa raw ping/pong without RadioShuttle #endif break; #ifdef FEATURE_RADIOTESTSAMPLE case 'x': case 'X': RadioContinuesTX(); #endif break; case 'r': case 'R': MCUReset(); break; case 'd': case 'D': { char *addr = strchr(buf, ' '); if (addr) { *addr++ = 0; char *length = strchr(addr, ' '); if (length) { *length++ = 0; } unsigned long address = strtoll(addr, NULL, 0); unsigned long cnt = 32; if (length) cnt = strtoll(length, NULL, 0); dump("Hexdump", (void *)address, cnt); } } break; case 'c': case 'C': cmdLoop = false; break; default: break; } } rprintf("\r\n"); }