void test_log(void) {
log_term("log_term ");
log_term("without CR\n");
log_term("log_term with CR\n");
log_term("log_term with CR\n");
log_info("log_info ");
log_info("without CR\n");
log_info("log_info with CR\n");
log_info("log_info with CR\n");
log_warn("log_warn ");
log_warn("without CR\n");
log_warn("log_warn with CR\n");
log_warn("log_warn with CR\n");
log_error("log_error ");
log_error("without CR\n");
log_error("log_error with CR\n");
log_error("log_error with CR\n");
// log_errno supports only single lines without CR
log_errno("log_errno without CR");
printf("--> log_debug() messages appear only with -v option set\n");
log_debug("log_debug ");
log_debug("without CR\n");
log_debug("log_debug with CR\n");
log_debug("log_debug with CR\n");
}
/* Functions. */
int main()
{
int ret;
pid_t cpid;
if( ( ret = log_init( LOGFILE ) ) )
{
printf( strerror( ret ) );
exit( EXIT_FAILURE );
}
cpid = fork();
if( cpid < 0 )
{
LOG( "Process failed to fork, quiting." );
log_term();
exit( EXIT_FAILURE );
}
if( !cpid )
{
LOG( "Process forked successfully, running gpsProcess from child." );
gpsProcess();
LOG( "gpsProcess terminated." );
exit( EXIT_SUCCESS );
}
else
{
LOG( "Parent process will sleep for 30 seconds." );
sleep( 30 );
LOG( "Parent woke up. Will terminate child now." );
kill( cpid, SIGTERM );
}
LOG( "Waiting for child to terminate." );
waitpid( cpid, NULL, 0 );
LOG( "Closing log file." );
log_term();
return EXIT_SUCCESS;
}
/**
* Function representing the <log_exp> productions
*/
attr RecursiveDescentParser::log_exp() {
attr retVal;
if(errorCondition) return retVal;
if(token == TK_LEFT_PARENTHESES)
{
#if DEBUG_PARSER
std::cout << "<log_exp> --> <log_term><log_exp_prime>\n";
#endif
attr logTerm = log_term();
retVal = log_exp_prime( logTerm );
}
else
{
errorHandler();
}
return retVal;
}
/**
* Function representing the <log_exp_prime> productions
*/
attr RecursiveDescentParser::log_exp_prime(attr lhs) {
attr retVal, rhs, logTerm;
if(errorCondition) return retVal;
switch(token.getType()) {
case TK_LOGIC_OR:
#if DEBUG_PARSER
std::cout << "<log_exp_prime> --> ||<log_term><log_exp_prime>\n";
#endif
token = scanner->getToken();
logTerm = log_term();
rhs = log_exp_prime(logTerm);
retVal.addr = symTab.getNextAddress();
iCode.threeAddressCode(retVal, TAC_OR, lhs, rhs);
break;
case TK_RIGHT_PARENTHESES:
case TK_SEMICOLON:
case TK_INT:
case TK_CHAR:
case TK_IDENTIFIER:
case TK_IF:
case TK_WHILE:
case TK_RETURN:
case TK_PRINTF:
case TK_SCANF:
case TK_LEFT_BRACE:
#if DEBUG_PARSER
std::cout << "<log_exp_prime> --> e\n";
#endif
retVal = lhs;
break;
default:
errorHandler();
}
return retVal;
}
void log_init (char *path, char *logfilename)
{
struct stat st;
strlcpy (g_log_dir, "", sizeof(g_log_dir));
g_log_fp = NULL;
strlcpy (g_open_fname, "", sizeof(g_open_fname));
if (strlen(path) == 0) {
return;
}
if (strlen(logfilename) != 0) {
strlcpy (g_logfilename, logfilename, sizeof(g_logfilename));
}
if (stat(path,&st) == 0) {
// Exists, but is it a directory?
if (S_ISDIR(st.st_mode)) {
// Specified directory exists.
strlcpy (g_log_dir, path, sizeof(g_log_dir));
}
else {
text_color_set(DW_COLOR_ERROR);
dw_printf ("Log file location \"%s\" is not a directory.\n", path);
dw_printf ("Using current working directory \".\" instead.\n");
strlcpy (g_log_dir, ".", sizeof(g_log_dir));
}
}
else {
// Doesn't exist. Try to create it.
// parent directory must exist.
// We don't create multiple levels like "mkdir -p"
#if __WIN32__
if (_mkdir (path) == 0) {
#else
if (mkdir (path, 0777) == 0) {
#endif
// Success.
text_color_set(DW_COLOR_INFO);
dw_printf ("Log file location \"%s\" has been created.\n", path);
strlcpy (g_log_dir, path, sizeof(g_log_dir));
}
else {
text_color_set(DW_COLOR_ERROR);
dw_printf ("Failed to create log file location \"%s\".\n", path);
dw_printf ("%s\n", strerror(errno));
dw_printf ("Using current working directory \".\" instead.\n");
strlcpy (g_log_dir, ".", sizeof(g_log_dir));
}
}
}
/*------------------------------------------------------------------
*
* Function: log_write
*
* Purpose: Save information to log file.
*
* Inputs: chan - Radio channel where heard.
*
* A - Explode information from APRS packet.
*
* pp - Received packet object.
*
* alevel - audio level.
*
* retries - Amount of effort to get a good CRC.
*
*------------------------------------------------------------------*/
void log_write (int chan, decode_aprs_t *A, packet_t pp, alevel_t alevel, retry_t retries)
{
time_t now; // make 'now' a parameter so we can process historical data ???
char fname[20];
struct tm tm;
if (strlen(g_log_dir) == 0) return;
// Generate the file name from current date, UTC.
now = time(NULL);
(void)gmtime_r (&now, &tm);
// Microsoft doesn't recognize %F as equivalent to %Y-%m-%d
if (strlen(g_logfilename) != 0) {
strftime (fname, sizeof(fname), g_logfilename, &tm);
}
else {
strftime (fname, sizeof(fname), "%Y-%m-%d.log", &tm);
}
// Close current file if name has changed
if (g_log_fp != NULL && strcmp(fname, g_open_fname) != 0) {
log_term ();
}
// Open for append if not already open.
if (g_log_fp == NULL) {
char full_path[120];
struct stat st;
int already_there;
strlcpy (full_path, g_log_dir, sizeof(full_path));
#if __WIN32__
strlcat (full_path, "\\", sizeof(full_path));
#else
strlcat (full_path, "/", sizeof(full_path));
#endif
strlcat (full_path, fname, sizeof(full_path));
// See if it already exists.
// This is used later to write a header if it did not exist already.
already_there = stat(full_path,&st) == 0;
text_color_set(DW_COLOR_INFO);
dw_printf("Opening log file \"%s\".\n", fname);
g_log_fp = fopen (full_path, "a");
if (g_log_fp != NULL) {
strlcpy (g_open_fname, fname, sizeof(g_open_fname));
}
else {
text_color_set(DW_COLOR_ERROR);
dw_printf("Can't open log file \"%s\" for write.\n", full_path);
dw_printf ("%s\n", strerror(errno));
strlcpy (g_open_fname, "", sizeof(g_open_fname));
return;
}
// Write a header suitable for importing into a spreadsheet
// only if this will be the first line.
if ( ! already_there) {
fprintf (g_log_fp, "chan,utime,isotime,source,heard,level,error,dti,name,symbol,latitude,longitude,speed,course,altitude,frequency,offset,tone,system,status,comment\n");
}
}
if (g_log_fp != NULL) {
char itime[24];
char heard[AX25_MAX_ADDR_LEN+1];
int h;
char stemp[256];
char slat[16], slon[16], sspd[12], scse[12], salt[12];
char sfreq[20], soffs[10], stone[10];
char sdti[10];
char sname[24];
char ssymbol[8];
char smfr[60];
char sstatus[40];
char stelemetry[200];
char scomment[256];
char alevel_text[32];
// Microsoft doesn't recognize %T as equivalent to %H:%M:%S
strftime (itime, sizeof(itime), "%Y-%m-%dT%H:%M:%SZ", &tm);
/* Who are we hearing? Original station or digipeater? */
/* Similar code in direwolf.c. Combine into one function? */
strlcpy(heard, "", sizeof(heard));
if (pp != NULL) {
if (ax25_get_num_addr(pp) == 0) {
/* Not AX.25. No station to display below. */
h = -1;
strlcpy (heard, "", sizeof(heard));
}
else {
h = ax25_get_heard(pp);
ax25_get_addr_with_ssid(pp, h, heard);
}
if (h >= AX25_REPEATER_2 &&
strncmp(heard, "WIDE", 4) == 0 &&
isdigit(heard[4]) &&
heard[5] == '\0') {
ax25_get_addr_with_ssid(pp, h-1, heard);
strlcat (heard, "?", sizeof(heard));
}
}
ax25_alevel_to_text (alevel, alevel_text);
// Might need to quote anything that could contain comma or quote.
strlcpy(sdti, "", sizeof(sdti));
if (pp != NULL) {
stemp[0] = ax25_get_dti(pp);
stemp[1] = '\0';
quote_for_csv (sdti, sizeof(sdti), stemp);
}
quote_for_csv (sname, sizeof(sname), (strlen(A->g_name) > 0) ? A->g_name : A->g_src);
stemp[0] = A->g_symbol_table;
stemp[1] = A->g_symbol_code;
stemp[2] = '\0';
quote_for_csv (ssymbol, sizeof(ssymbol), stemp);
quote_for_csv (smfr, sizeof(smfr), A->g_mfr);
quote_for_csv (sstatus, sizeof(sstatus), A->g_mic_e_status);
quote_for_csv (stelemetry, sizeof(stelemetry), A->g_telemetry);
quote_for_csv (scomment, sizeof(scomment), A->g_comment);
strlcpy (slat, "", sizeof(slat)); if (A->g_lat != G_UNKNOWN) snprintf (slat, sizeof(slat), "%.6f", A->g_lat);
strlcpy (slon, "", sizeof(slon)); if (A->g_lon != G_UNKNOWN) snprintf (slon, sizeof(slon), "%.6f", A->g_lon);
strlcpy (sspd, "", sizeof(sspd)); if (A->g_speed_mph != G_UNKNOWN) snprintf (sspd, sizeof(sspd), "%.1f", DW_MPH_TO_KNOTS(A->g_speed_mph));
strlcpy (scse, "", sizeof(scse)); if (A->g_course != G_UNKNOWN) snprintf (scse, sizeof(scse), "%.1f", A->g_course);
strlcpy (salt, "", sizeof(salt)); if (A->g_altitude_ft != G_UNKNOWN) snprintf (salt, sizeof(salt), "%.1f", DW_FEET_TO_METERS(A->g_altitude_ft));
strlcpy (sfreq, "", sizeof(sfreq)); if (A->g_freq != G_UNKNOWN) snprintf (sfreq, sizeof(sfreq), "%.3f", A->g_freq);
strlcpy (soffs, "", sizeof(soffs)); if (A->g_offset != G_UNKNOWN) snprintf (soffs, sizeof(soffs), "%+d", A->g_offset);
strlcpy (stone, "", sizeof(stone)); if (A->g_tone != G_UNKNOWN) snprintf (stone, sizeof(stone), "%.1f", A->g_tone);
if (A->g_dcs != G_UNKNOWN) snprintf (stone, sizeof(stone), "D%03o", A->g_dcs);
fprintf (g_log_fp, "%d,%d,%s,%s,%s,%s,%d,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s\n",
chan, (int)now, itime,
A->g_src, heard, alevel_text, (int)retries, sdti,
sname, ssymbol,
slat, slon, sspd, scse, salt,
sfreq, soffs, stone,
smfr, sstatus, stelemetry, scomment);
fflush (g_log_fp);
}
} /* end log_write */
