kopia lustrzana https://github.com/jamescoxon/dl-fldigi
831 wiersze
21 KiB
C++
831 wiersze
21 KiB
C++
//
|
|
// Digital Modem Program for the Fast Light Toolkit
|
|
//
|
|
// Copyright W1HKJ, Dave Freese 2006
|
|
//
|
|
// This library is free software; you can redistribute it and/or
|
|
// modify it under the terms of the GNU Library General Public
|
|
// License as published by the Free Software Foundation; either
|
|
// version 2 of the License, or (at your option) any later version.
|
|
//
|
|
// This library 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
|
|
// Library General Public License for more details.
|
|
//
|
|
// You should have received a copy of the GNU Library General Public
|
|
// License along with this library; if not, write to the Free Software
|
|
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
|
|
// USA.
|
|
//
|
|
// Please report all bugs and problems to "w1hkj@w1hkj.com".
|
|
//
|
|
|
|
#include <config.h>
|
|
|
|
#include <iostream>
|
|
#include <iomanip>
|
|
#include <sstream>
|
|
#include <cstdlib>
|
|
#include <getopt.h>
|
|
#include <sys/types.h>
|
|
#ifndef __CYGWIN__
|
|
# include <sys/ipc.h>
|
|
# include <sys/msg.h>
|
|
#endif
|
|
#include <sys/utsname.h>
|
|
#include <unistd.h>
|
|
#include <dirent.h>
|
|
#include <exception>
|
|
#include <signal.h>
|
|
#include <locale.h>
|
|
|
|
#include <FL/Fl.H>
|
|
#include <FL/Enumerations.H>
|
|
#include <FL/Fl_Window.H>
|
|
#include <FL/Fl_Shared_Image.H>
|
|
#include <FL/x.H>
|
|
|
|
#include "gettext.h"
|
|
#include "main.h"
|
|
#include "waterfall.h"
|
|
#include "fft.h"
|
|
#include "soundconf.h"
|
|
#include "complex.h"
|
|
#include "fl_digi.h"
|
|
#include "rigio.h"
|
|
#include "globals.h"
|
|
#include "psk.h"
|
|
#include "cw.h"
|
|
#include "mfsk.h"
|
|
#include "confdialog.h"
|
|
#include "configuration.h"
|
|
#include "macros.h"
|
|
#include "status.h"
|
|
#include "fileselect.h"
|
|
#include "timeops.h"
|
|
#include "debug.h"
|
|
#include "pskrep.h"
|
|
|
|
#if USE_HAMLIB
|
|
#include "rigclass.h"
|
|
#endif
|
|
#include "rigsupport.h"
|
|
|
|
#include "log.h"
|
|
|
|
#include "qrunner.h"
|
|
#include "stacktrace.h"
|
|
|
|
#if USE_XMLRPC
|
|
#include "xmlrpc.h"
|
|
#endif
|
|
|
|
using namespace std;
|
|
|
|
string appname;
|
|
|
|
string scDevice[2];
|
|
|
|
char szHomedir[120] = "";
|
|
char szPskMailDir[120] = "";
|
|
string PskMailDir;
|
|
string PskMailFile;
|
|
string ArqFilename;
|
|
string HomeDir;
|
|
string xmlfname;
|
|
|
|
|
|
PTT *push2talk = (PTT *)0;
|
|
#if USE_HAMLIB
|
|
Rig *xcvr = (Rig *)0;
|
|
#endif
|
|
|
|
bool tlfio = false;
|
|
cLogfile *logfile = 0;;
|
|
cLogfile *Maillogfile = (cLogfile *)0;
|
|
FILE *server;
|
|
FILE *client;
|
|
bool mailserver = false, mailclient = false, arqmode = false;
|
|
|
|
RXMSGSTRUC rxmsgst;
|
|
int rxmsgid = -1;
|
|
|
|
TXMSGSTRUC txmsgst;
|
|
int txmsgid = -1;
|
|
|
|
string option_help, version_text;
|
|
|
|
qrunner *cbq[NUM_QRUNNER_THREADS];
|
|
|
|
void arqchecks(void);
|
|
void generate_option_help(void);
|
|
int parse_args(int argc, char **argv, int& idx);
|
|
void generate_version_text(void);
|
|
void debug_exec(char** argv);
|
|
void set_platform_ui(void);
|
|
double speed_test(int converter, unsigned repeat);
|
|
static void setup_signal_handlers(void);
|
|
|
|
int main(int argc, char ** argv)
|
|
{
|
|
appname = argv[0];
|
|
debug_exec(argv);
|
|
CREATE_THREAD_ID(); // only call this once
|
|
SET_THREAD_ID(FLMAIN_TID);
|
|
|
|
for (int i = 0; i < NUM_QRUNNER_THREADS; i++) {
|
|
cbq[i] = new qrunner;
|
|
cbq[i]->attach();
|
|
}
|
|
|
|
set_unexpected(handle_unexpected);
|
|
set_terminate(diediedie);
|
|
setup_signal_handlers();
|
|
|
|
#ifndef ENABLE_NLS
|
|
setlocale(LC_TIME, "");
|
|
#endif
|
|
|
|
#ifdef __CYGWIN__
|
|
fl_filename_expand(szHomedir, 119, "$USERPROFILE/fldigi.files/");
|
|
HomeDir = szHomedir;
|
|
#else
|
|
fl_filename_expand(szHomedir, 119, "$HOME/.fldigi/");
|
|
HomeDir = szHomedir;
|
|
#endif
|
|
|
|
set_platform_ui();
|
|
|
|
generate_option_help();
|
|
generate_version_text();
|
|
int arg_idx;
|
|
if (Fl::args(argc, argv, arg_idx, parse_args) != argc) {
|
|
cerr << PACKAGE_NAME << ": unrecognized option `" << argv[arg_idx]
|
|
<< "'\nTry `" << PACKAGE_NAME
|
|
<< " --help' for more information.\n";
|
|
exit(EXIT_FAILURE);
|
|
}
|
|
|
|
{
|
|
DIR *dir = opendir(HomeDir.c_str());
|
|
if (dir == 0) {
|
|
if ( mkdir(HomeDir.c_str(), 0777) == -1) {
|
|
cerr << _("Could not make directory ") << HomeDir << ": "
|
|
<< strerror(errno) << endl;
|
|
exit(EXIT_FAILURE);
|
|
}
|
|
} else
|
|
closedir(dir);
|
|
}
|
|
|
|
bool have_config = progdefaults.readDefaultsXML();
|
|
try {
|
|
debug::start(string(HomeDir).append("status_log.txt").c_str());
|
|
time_t t = time(NULL);
|
|
LOG(debug::QUIET_LEVEL, _("%s log started on %s"), PACKAGE_STRING, ctime(&t));
|
|
}
|
|
catch (const char* error) {
|
|
cerr << error << '\n';
|
|
debug::stop();
|
|
}
|
|
|
|
xmlfname = HomeDir;
|
|
xmlfname.append("rig.xml");
|
|
|
|
string lfname = HomeDir;
|
|
lfname.append("fldigi.log");
|
|
logfile = new cLogfile(lfname);
|
|
logfile->log_to_file_start();
|
|
|
|
#ifndef __CYGWIN__
|
|
txmsgid = msgget( (key_t) progdefaults.tx_msgid, 0666 );
|
|
#else
|
|
txmsgid = -1;
|
|
#endif
|
|
|
|
fl_filename_expand(szPskMailDir, 119, "$HOME/");
|
|
PskMailDir = szPskMailDir;
|
|
checkTLF();
|
|
|
|
FL_LOCK_E(); // start the gui thread!!
|
|
Fl::visual(FL_RGB); // insure 24 bit color operation
|
|
|
|
fl_register_images();
|
|
Fl::set_fonts(0);
|
|
|
|
rigcontrol = createRigDialog();
|
|
|
|
if (!have_config) {
|
|
double speed = speed_test(SRC_SINC_FASTEST, 8);
|
|
|
|
if (speed > 150.0) { // fast
|
|
progdefaults.slowcpu = false;
|
|
progdefaults.sample_converter = SRC_SINC_BEST_QUALITY;
|
|
}
|
|
else if (speed > 60.0) { // ok
|
|
progdefaults.slowcpu = false;
|
|
progdefaults.sample_converter = SRC_SINC_MEDIUM_QUALITY;
|
|
}
|
|
else if (speed > 20.0) { // slow
|
|
progdefaults.slowcpu = true;
|
|
progdefaults.sample_converter = SRC_SINC_FASTEST;
|
|
}
|
|
else { // recycle me
|
|
progdefaults.slowcpu = true;
|
|
progdefaults.sample_converter = SRC_LINEAR;
|
|
}
|
|
|
|
LOG_INFO("speed factor=%f, slowcpu=%d, sample_converter=\"%s\"", speed,
|
|
progdefaults.slowcpu, src_get_name(progdefaults.sample_converter));
|
|
}
|
|
if (progdefaults.XmlRigFilename.empty())
|
|
progdefaults.XmlRigFilename = xmlfname;
|
|
|
|
progStatus.loadLastState();
|
|
|
|
Fl::scheme(progdefaults.ui_scheme.c_str());
|
|
create_fl_digi_main();
|
|
FSEL::create();
|
|
|
|
createConfig();
|
|
progdefaults.testCommPorts();
|
|
|
|
macros.loadDefault();
|
|
|
|
#if USE_HAMLIB
|
|
xcvr = new Rig();
|
|
#endif
|
|
|
|
push2talk = new PTT();
|
|
|
|
progdefaults.setDefaults();
|
|
|
|
atexit(sound_close);
|
|
sound_init();
|
|
trx_start();
|
|
|
|
progdefaults.initInterface();
|
|
|
|
#ifdef __CYGWIN__
|
|
fl_digi_main->icon((char*)LoadIcon(fl_display, MAKEINTRESOURCE(IDI_ICON)));
|
|
#endif
|
|
|
|
// OS X will prevent the main window from being resized if we change its
|
|
// size *after* it has been shown. With some X11 window managers, OTOH,
|
|
// the main window will not be restored at its exact saved position if
|
|
// we move it *after* it has been shown.
|
|
#ifndef __APPLE__
|
|
fl_digi_main->show(argc, argv);
|
|
progStatus.initLastState();
|
|
#else
|
|
progStatus.initLastState();
|
|
fl_digi_main->show(argc, argv);
|
|
#endif
|
|
|
|
arq_init();
|
|
|
|
#if USE_XMLRPC
|
|
XML_RPC_Server::start(progdefaults.xmlrpc_address.c_str(), progdefaults.xmlrpc_port.c_str());
|
|
#endif
|
|
|
|
if (progdefaults.usepskrep)
|
|
if (!pskrep_start())
|
|
LOG_ERROR("Could not start PSK reporter: %s", pskrep_error());
|
|
|
|
int ret = Fl::run();
|
|
|
|
arq_close();
|
|
|
|
#if USE_XMLRPC
|
|
XML_RPC_Server::stop();
|
|
#endif
|
|
|
|
if (progdefaults.usepskrep)
|
|
pskrep_stop();
|
|
|
|
for (int i = 0; i < NUM_QRUNNER_THREADS; i++) {
|
|
cbq[i]->detach();
|
|
delete cbq[i];
|
|
}
|
|
FSEL::destroy();
|
|
debug::stop();
|
|
|
|
return ret;
|
|
}
|
|
|
|
|
|
void generate_option_help(void) {
|
|
ostringstream help;
|
|
help << "Usage:\n"
|
|
<< " " << PACKAGE_NAME << " [option...]\n\n";
|
|
|
|
help << PACKAGE_NAME << " options:\n\n"
|
|
<< " --config-dir DIRECTORY\n"
|
|
<< " Look for configuration files in DIRECTORY\n"
|
|
<< " The default is: " << HomeDir << "\n\n"
|
|
|
|
#ifndef __CYGWIN__
|
|
<< " --rx-ipc-key KEY\n"
|
|
<< " Set the receive message queue key\n"
|
|
<< " May be given in hex if prefixed with \"0x\"\n"
|
|
<< " The default is: " << progdefaults.rx_msgid
|
|
<< " or 0x" << hex << progdefaults.rx_msgid << dec << "\n\n"
|
|
|
|
<< " --tx-ipc-key KEY\n"
|
|
<< " Set the transmit message queue key\n"
|
|
<< " May be given in hex if prefixed with \"0x\"\n"
|
|
<< " The default is: " << progdefaults.tx_msgid
|
|
<< " or 0x" << hex << progdefaults.tx_msgid << dec << "\n\n"
|
|
#endif
|
|
|
|
<< " --arq-server-address HOSTNAME\n"
|
|
<< " Set the ARQ TCP server address\n"
|
|
<< " The default is: " << progdefaults.arq_address << "\n\n"
|
|
<< " --arq-server-port PORT\n"
|
|
<< " Set the ARQ TCP server port\n"
|
|
<< " The default is: " << progdefaults.arq_port << "\n\n"
|
|
|
|
#if USE_XMLRPC
|
|
<< " --xmlrpc-server-address HOSTNAME\n"
|
|
<< " Set the XML-RPC server address\n"
|
|
<< " The default is: " << progdefaults.xmlrpc_address << "\n\n"
|
|
<< " --xmlrpc-server-port PORT\n"
|
|
<< " Set the XML-RPC server port\n"
|
|
<< " The default is: " << progdefaults.xmlrpc_port << "\n\n"
|
|
<< " --xmlrpc-allow REGEX\n"
|
|
<< " Allow only the methods whose names match REGEX\n\n"
|
|
<< " --xmlrpc-deny REGEX\n"
|
|
<< " Allow only the methods whose names don't match REGEX\n\n"
|
|
<< " --xmlrpc-list\n"
|
|
<< " List all available methods\n\n"
|
|
#endif
|
|
|
|
<< " --debug-level LEVEL\n"
|
|
<< " Set the event log verbosity\n\n"
|
|
|
|
<< " --version\n"
|
|
<< " Print version information\n\n"
|
|
|
|
<< " --help\n"
|
|
<< " Print this option help\n\n";
|
|
|
|
// Fl::help looks ugly so we'll write our own
|
|
|
|
help << "Standard FLTK options:\n\n"
|
|
|
|
<< " -bg COLOR, -background COLOR\n"
|
|
<< " Set the background color\n"
|
|
|
|
<< " -bg2 COLOR, -background2 COLOR\n"
|
|
<< " Set the secondary (text) background color\n\n"
|
|
|
|
<< " -di DISPLAY, -display DISPLAY\n"
|
|
<< " Set the X display to use DISPLAY,\n"
|
|
<< " format is ``host:n.n''\n\n"
|
|
|
|
<< " -dn, -dnd or -nodn, -nodnd\n"
|
|
<< " Enable or disable drag and drop copy and paste in text fields\n\n"
|
|
|
|
<< " -fg COLOR, -foreground COLOR\n"
|
|
<< " Set the foreground color\n\n"
|
|
|
|
<< " -g GEOMETRY, -geometry GEOMETRY\n"
|
|
<< " Set the initial window size and position\n"
|
|
<< " GEOMETRY format is ``WxH+X+Y''\n"
|
|
<< " ** " << PACKAGE_NAME << " may override this setting **\n\n"
|
|
|
|
<< " -i, -iconic\n"
|
|
<< " Start " << PACKAGE_NAME << " in iconified state\n\n"
|
|
|
|
<< " -k, -kbd or -nok, -nokbd\n"
|
|
<< " Enable or disable visible keyboard focus in non-text widgets\n\n"
|
|
|
|
<< " -na CLASSNAME, -name CLASSNAME\n"
|
|
<< " Set the window class to CLASSNAME\n\n"
|
|
|
|
<< " -ti WINDOWTITLE, -title WINDOWTITLE\n"
|
|
<< " Set the window title\n\n";
|
|
|
|
help << "Additional UI options:\n\n"
|
|
|
|
<< " --font FONT[:SIZE]\n"
|
|
<< " Set the widget font and (optionally) size\n"
|
|
<< " The default is: " << Fl::get_font(FL_HELVETICA)
|
|
<< ':' << FL_NORMAL_SIZE << "\n\n"
|
|
|
|
;
|
|
|
|
option_help = help.str();
|
|
}
|
|
|
|
void exit_cb(void*) { fl_digi_main->do_callback(); }
|
|
|
|
int parse_args(int argc, char **argv, int& idx)
|
|
{
|
|
// Only handle long options
|
|
if ( !(strlen(argv[idx]) >= 2 && strncmp(argv[idx], "--", 2) == 0) )
|
|
return 0;
|
|
|
|
enum { OPT_ZERO,
|
|
#ifndef __CYGWIN__
|
|
OPT_RX_IPC_KEY, OPT_TX_IPC_KEY,
|
|
#endif
|
|
OPT_CONFIG_DIR,
|
|
OPT_ARQ_ADDRESS, OPT_ARQ_PORT,
|
|
#if USE_XMLRPC
|
|
OPT_CONFIG_XMLRPC_ADDRESS, OPT_CONFIG_XMLRPC_PORT,
|
|
OPT_CONFIG_XMLRPC_ALLOW, OPT_CONFIG_XMLRPC_DENY, OPT_CONFIG_XMLRPC_LIST,
|
|
#endif
|
|
OPT_FONT, OPT_WFALL_HEIGHT, OPT_WFALL_WIDTH,
|
|
OPT_WINDOW_WIDTH, OPT_WINDOW_HEIGHT,
|
|
// OPT_TOGGLE_CHECK,
|
|
#if USE_PORTAUDIO
|
|
OPT_FRAMES_PER_BUFFER,
|
|
#endif
|
|
OPT_DEBUG_LEVEL,
|
|
OPT_EXIT_AFTER,
|
|
OPT_DEPRECATED, OPT_HELP, OPT_VERSION };
|
|
|
|
const char shortopts[] = "+";
|
|
static struct option longopts[] = {
|
|
#ifndef __CYGWIN__
|
|
{ "rx-ipc-key", 1, 0, OPT_RX_IPC_KEY },
|
|
{ "tx-ipc-key", 1, 0, OPT_TX_IPC_KEY },
|
|
#endif
|
|
{ "config-dir", 1, 0, OPT_CONFIG_DIR },
|
|
{ "experimental", 0, 0, OPT_DEPRECATED },
|
|
|
|
{ "arq-server-address", 1, 0, OPT_ARQ_ADDRESS },
|
|
{ "arq-server-port", 1, 0, OPT_ARQ_PORT },
|
|
|
|
#if USE_XMLRPC
|
|
{ "xmlrpc-server", 0, 0, OPT_DEPRECATED },
|
|
{ "xmlrpc-server-address", 1, 0, OPT_CONFIG_XMLRPC_ADDRESS },
|
|
{ "xmlrpc-server-port", 1, 0, OPT_CONFIG_XMLRPC_PORT },
|
|
{ "xmlrpc-allow", 1, 0, OPT_CONFIG_XMLRPC_ALLOW },
|
|
{ "xmlrpc-deny", 1, 0, OPT_CONFIG_XMLRPC_DENY },
|
|
{ "xmlrpc-list", 0, 0, OPT_CONFIG_XMLRPC_LIST },
|
|
#endif
|
|
{ "font", 1, 0, OPT_FONT },
|
|
|
|
{ "wfall-width", 1, 0, OPT_WFALL_WIDTH },
|
|
{ "wfall-height", 1, 0, OPT_WFALL_HEIGHT },
|
|
{ "window-width", 1, 0, OPT_WINDOW_WIDTH },
|
|
{ "window-height", 1, 0, OPT_WINDOW_HEIGHT },
|
|
{ "twoscopes", 0, 0, OPT_DEPRECATED },
|
|
|
|
#if USE_PORTAUDIO
|
|
{ "frames-per-buf",1, 0, OPT_FRAMES_PER_BUFFER },
|
|
#endif
|
|
{ "exit-after", 1, 0, OPT_EXIT_AFTER },
|
|
|
|
{ "debug-level", 1, 0, OPT_DEBUG_LEVEL },
|
|
|
|
{ "help", 0, 0, OPT_HELP },
|
|
{ "version", 0, 0, OPT_VERSION },
|
|
{ 0 }
|
|
};
|
|
|
|
int longindex;
|
|
optind = idx;
|
|
int c = getopt_long(argc, argv, shortopts, longopts, &longindex);
|
|
|
|
switch (c) {
|
|
case -1:
|
|
return 0;
|
|
case 0:
|
|
// handle options with non-0 flag here
|
|
return 0;
|
|
|
|
#ifndef __CYGWIN__
|
|
case OPT_RX_IPC_KEY: case OPT_TX_IPC_KEY:
|
|
{
|
|
errno = 0;
|
|
int key = strtol(optarg, NULL, (strncasecmp(optarg, "0x", 2) ? 10 : 16));
|
|
if (errno || key <= 0)
|
|
cerr << "Hmm, " << key << " doesn't look like a valid IPC key\n";
|
|
if (c == OPT_RX_IPC_KEY)
|
|
progdefaults.rx_msgid = key;
|
|
else
|
|
progdefaults.tx_msgid = key;
|
|
}
|
|
break;
|
|
#endif
|
|
|
|
case OPT_CONFIG_DIR:
|
|
HomeDir = optarg;
|
|
if (*HomeDir.rbegin() != '/')
|
|
HomeDir += '/';
|
|
break;
|
|
|
|
case OPT_ARQ_ADDRESS:
|
|
progdefaults.arq_address = optarg;
|
|
break;
|
|
case OPT_ARQ_PORT:
|
|
progdefaults.arq_port = optarg;
|
|
break;
|
|
|
|
#if USE_XMLRPC
|
|
case OPT_CONFIG_XMLRPC_ADDRESS:
|
|
progdefaults.xmlrpc_address = optarg;
|
|
break;
|
|
case OPT_CONFIG_XMLRPC_PORT:
|
|
progdefaults.xmlrpc_port = optarg;
|
|
break;
|
|
case OPT_CONFIG_XMLRPC_ALLOW:
|
|
progdefaults.xmlrpc_allow = optarg;
|
|
break;
|
|
case OPT_CONFIG_XMLRPC_DENY:
|
|
if (!progdefaults.xmlrpc_allow.empty())
|
|
cerr << "W: --" << longopts[longindex].name
|
|
<< " cannot be used together with --"
|
|
<< longopts[OPT_CONFIG_XMLRPC_ALLOW-1].name
|
|
<< " and will be ignored\n";
|
|
else
|
|
progdefaults.xmlrpc_deny = optarg;
|
|
break;
|
|
case OPT_CONFIG_XMLRPC_LIST:
|
|
XML_RPC_Server::list_methods(cout);
|
|
exit(EXIT_SUCCESS);
|
|
#endif
|
|
|
|
case OPT_FONT:
|
|
{
|
|
char *p;
|
|
if ((p = strchr(optarg, ':'))) {
|
|
*p = '\0';
|
|
FL_NORMAL_SIZE = strtol(p + 1, 0, 10);
|
|
}
|
|
}
|
|
Fl::set_font(FL_HELVETICA, optarg);
|
|
break;
|
|
|
|
case OPT_WFALL_WIDTH:
|
|
progdefaults.wfwidth = strtol(optarg, NULL, 10);
|
|
break;
|
|
|
|
case OPT_WFALL_HEIGHT:
|
|
progdefaults.wfheight = strtol(optarg, NULL, 10);
|
|
break;
|
|
|
|
case OPT_WINDOW_WIDTH:
|
|
WNOM = strtol(optarg, NULL, 10);
|
|
break;
|
|
|
|
case OPT_WINDOW_HEIGHT:
|
|
HNOM = strtol(optarg, NULL, 10);
|
|
break;
|
|
|
|
#if USE_PORTAUDIO
|
|
case OPT_FRAMES_PER_BUFFER:
|
|
progdefaults.PortFramesPerBuffer = strtol(optarg, 0, 10);
|
|
break;
|
|
#endif // USE_PORTAUDIO
|
|
|
|
case OPT_EXIT_AFTER:
|
|
Fl::add_timeout(strtod(optarg, 0), exit_cb);
|
|
break;
|
|
|
|
case OPT_DEBUG_LEVEL:
|
|
{
|
|
int v = strtol(optarg, 0, 10);
|
|
debug::level = (debug::level_e)CLAMP(v, 0, debug::LOG_NLEVELS-1);
|
|
}
|
|
break;
|
|
|
|
case OPT_DEPRECATED:
|
|
cerr << "W: the --" << longopts[longindex].name
|
|
<< " option has been deprecated and will be removed in a future version\n";
|
|
break;
|
|
|
|
case OPT_HELP:
|
|
cout << option_help;
|
|
exit(EXIT_SUCCESS);
|
|
|
|
case OPT_VERSION:
|
|
cout << version_text;
|
|
exit(EXIT_SUCCESS);
|
|
|
|
case '?': default:
|
|
cerr << "Try `" << PACKAGE_NAME << " --help' for more information.\n";
|
|
exit(EXIT_FAILURE);
|
|
}
|
|
|
|
// Increment idx by the number of args we used and return that number.
|
|
// We must check whether the option argument is in the same argv element
|
|
// as the option name itself, i.e., --opt=arg.
|
|
c = longopts[longindex].has_arg ? 2 : 1;
|
|
if (c == 2) {
|
|
string arg = argv[idx];
|
|
string::size_type p;
|
|
if ((p = arg.rfind(optarg)) != string::npos && arg[p-1] == '=')
|
|
c = 1;
|
|
}
|
|
idx += c;
|
|
return c;
|
|
}
|
|
|
|
void generate_version_text(void)
|
|
{
|
|
ostringstream s;
|
|
s << PACKAGE_STRING << '\n'
|
|
<< "Copyright (c) 2008 " PACKAGE_AUTHORS "\n" <<
|
|
_("License GPLv2+: GNU GPL version 2 or later <http://www.gnu.org/licenses/old-licenses/gpl-2.0.html>\n"
|
|
"This is free software: you are free to change and redistribute it.\n"
|
|
"There is NO WARRANTY, to the extent permitted by law.\n");
|
|
|
|
s << _("\nSystem: ");
|
|
struct utsname u;
|
|
if (uname(&u) != -1) {
|
|
s << u.sysname << ' ' << u.nodename
|
|
<< ' ' << u.release << ' ' << u.version << ' '
|
|
<< u.machine << '\n';
|
|
}
|
|
|
|
#include "versions.h"
|
|
#ifdef HAVE_VERSIONS_H
|
|
s /*<< "\nConfigured with: " << COMPILE_CFG*/ << '\n'
|
|
<< "Built on " << COMPILE_DATE << " by " << COMPILE_USER
|
|
<< '@' << COMPILE_HOST << " with:\n"
|
|
<< COMPILER << '\n'
|
|
<< "CFLAGS=" << CFLAGS << '\n'
|
|
<< "LDFLAGS=" << LDFLAGS << '\n';
|
|
#endif // HAVE_VERSIONS_H
|
|
|
|
s << "Libraries:\n"
|
|
<< "FLTK " << FL_MAJOR_VERSION << '.' << FL_MINOR_VERSION << '.'
|
|
<< FL_PATCH_VERSION << '\n';
|
|
|
|
s << src_get_version() << '\n';
|
|
|
|
#if USE_HAMLIB
|
|
s << hamlib_version << '\n';
|
|
#endif
|
|
|
|
#if USE_PORTAUDIO
|
|
s << Pa_GetVersionText() << ' ' << Pa_GetVersion() << '\n';
|
|
#endif
|
|
|
|
#if USE_SNDFILE
|
|
char sndfile_version[32];
|
|
sf_command(NULL, SFC_GET_LIB_VERSION, sndfile_version, sizeof(sndfile_version));
|
|
s << sndfile_version << '\n';
|
|
#endif
|
|
|
|
version_text = s.str();
|
|
}
|
|
|
|
// When debugging is enabled, reexec with malloc debugging hooks enabled, unless
|
|
// the env var FLDIGI_NO_EXEC is set, or our parent process is gdb.
|
|
void debug_exec(char** argv)
|
|
{
|
|
#if !defined(NDEBUG) && !defined(__CYGWIN__)
|
|
if (getenv("FLDIGI_NO_EXEC"))
|
|
return;
|
|
|
|
char ppath[32], lname[32];
|
|
ssize_t n;
|
|
snprintf(ppath, sizeof(ppath), "/proc/%u/exe", getppid());
|
|
if ((n = readlink(ppath, lname, sizeof(lname))) > 0) {
|
|
lname[n] = '\0';
|
|
if (strstr(lname, "gdb")) {
|
|
cerr << "Not using malloc debugging hooks\n";
|
|
return;
|
|
}
|
|
}
|
|
|
|
setenv("FLDIGI_NO_EXEC", "1", 0);
|
|
setenv("MALLOC_CHECK_", "3", 0);
|
|
setenv("MALLOC_PERTURB_", "42", 0);
|
|
if (execvp(*argv, argv) == -1)
|
|
perror("execvp");
|
|
#endif
|
|
}
|
|
|
|
void set_platform_ui(void)
|
|
{
|
|
#if defined (__linux__)
|
|
FL_NORMAL_SIZE = 12;
|
|
#elif defined(__APPLE__)
|
|
FL_NORMAL_SIZE = 12;
|
|
progdefaults.WaterfallFontsize = 12;
|
|
progdefaults.RxFontsize = 12;
|
|
progdefaults.TxFontsize = 12;
|
|
#elif defined(__CYGWIN__)
|
|
Fl::set_font(FL_HELVETICA, "Tahoma");
|
|
FL_NORMAL_SIZE = 11;
|
|
progdefaults.WaterfallFontnbr = FL_HELVETICA;
|
|
progdefaults.WaterfallFontsize = 12;
|
|
progdefaults.RxFontsize = 12;
|
|
progdefaults.TxFontsize = 12;
|
|
#endif
|
|
}
|
|
|
|
// Convert 1 second of 1-channel silence from IN_RATE Hz to OUT_RATE Hz,
|
|
// Repeat test "repeat" times. Return (repeat / elapsed_time),
|
|
// the faster-than-realtime factor averaged over "repeat" runs.
|
|
// Some figures for SRC_SINC_FASTEST:
|
|
// Pentium 4 2.8GHz: 70
|
|
// Pentium 3 550MHz: 13
|
|
// UltraSparc II 270MHz: 3.5
|
|
#define IN_RATE 48000
|
|
#define OUT_RATE 8000
|
|
double speed_test(int converter, unsigned repeat)
|
|
{
|
|
SRC_DATA src;
|
|
src.src_ratio = (double)OUT_RATE / IN_RATE;
|
|
src.input_frames = IN_RATE;
|
|
src.output_frames = OUT_RATE;
|
|
src.data_in = new float[src.input_frames];
|
|
src.data_out = new float[src.output_frames];
|
|
|
|
memset(src.data_in, 0, src.input_frames * sizeof(float));
|
|
|
|
// warm up
|
|
src_simple(&src, converter, 1);
|
|
|
|
struct timespec t0, t1;
|
|
#ifdef _POSIX_MONOTONIC_CLOCK
|
|
clock_gettime(CLOCK_MONOTONIC, &t0);
|
|
#else
|
|
clock_gettime(CLOCK_REALTIME, &t0);
|
|
#endif
|
|
for (unsigned i = 0; i < repeat; i++)
|
|
src_simple(&src, converter, 1);
|
|
#ifdef _POSIX_MONOTONIC_CLOCK
|
|
clock_gettime(CLOCK_MONOTONIC, &t1);
|
|
#else
|
|
clock_gettime(CLOCK_REALTIME, &t1);
|
|
#endif
|
|
|
|
delete [] src.data_in;
|
|
delete [] src.data_out;
|
|
|
|
t0 = t1 - t0;
|
|
return repeat / (t0.tv_sec + t0.tv_nsec/1e9);
|
|
}
|
|
|
|
static void setup_signal_handlers(void)
|
|
{
|
|
struct sigaction action;
|
|
memset(&action, 0, sizeof(struct sigaction));
|
|
|
|
// no child stopped notifications, no zombies
|
|
#ifdef __CYGWIN__
|
|
action.sa_handler = SIG_IGN;
|
|
#else
|
|
action.sa_handler = SIG_DFL;
|
|
action.sa_flags = SA_NOCLDSTOP | SA_NOCLDWAIT;
|
|
#endif
|
|
sigaction(SIGCHLD, &action, NULL);
|
|
action.sa_flags = 0;
|
|
|
|
action.sa_handler = handle_signal;
|
|
sigaction(SIGSEGV, &action, NULL);
|
|
sigaction(SIGILL, &action, NULL);
|
|
sigaction(SIGABRT, &action, NULL);
|
|
sigaction(SIGUSR2, &action, NULL);
|
|
|
|
action.sa_handler = SIG_IGN;
|
|
sigaction(SIGPIPE, &action, NULL);
|
|
|
|
sigemptyset(&action.sa_mask);
|
|
sigaddset(&action.sa_mask, SIGUSR2);
|
|
pthread_sigmask(SIG_BLOCK, &action.sa_mask, NULL);
|
|
}
|
|
|
|
#ifdef ENABLE_NLS
|
|
int setup_nls(void)
|
|
{
|
|
static int nls_set_up = 0;
|
|
if (nls_set_up)
|
|
return nls_set_up;
|
|
|
|
setlocale (LC_MESSAGES, "");
|
|
setlocale (LC_CTYPE, "");
|
|
setlocale (LC_TIME, "");
|
|
// setting LC_NUMERIC might break the config read/write routines
|
|
|
|
const char* ldir;
|
|
char buf[4096];
|
|
if (!(ldir = getenv("FLDIGI_LOCALE_DIR"))) {
|
|
if (getcwd(buf, sizeof(buf) - strlen("/locale") - 1)) {
|
|
strcpy(buf + strlen(buf), "/locale");
|
|
struct stat s;
|
|
if (stat(buf, &s) != -1 && S_ISDIR(s.st_mode))
|
|
ldir = buf;
|
|
else
|
|
ldir = LOCALEDIR;
|
|
}
|
|
}
|
|
|
|
bindtextdomain(PACKAGE, ldir);
|
|
/* fltk-1.1.x only knows about Latin-1 */
|
|
bind_textdomain_codeset(PACKAGE, "ISO-8859-1");
|
|
textdomain(PACKAGE);
|
|
|
|
return nls_set_up = 1;
|
|
}
|
|
#endif
|