2016-03-01 17:40:38 +00:00
/* A-Netz main
*
* ( C ) 2016 by Andreas Eversberg < jolly @ eversberg . eu >
* All Rights Reserved
*
* 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 , either 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 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 <stdio.h>
# include <stdint.h>
# include <getopt.h>
# include <stdlib.h>
# include <string.h>
2017-01-08 10:22:24 +00:00
# include <math.h>
2017-11-18 07:06:06 +00:00
# include "../libsample/sample.h"
2017-11-18 07:33:07 +00:00
# include "../libmobile/main_mobile.h"
2017-11-18 07:58:57 +00:00
# include "../libdebug/debug.h"
2017-11-13 19:00:52 +00:00
# include "../libtimer/timer.h"
2017-11-18 07:33:07 +00:00
# include "../libmobile/call.h"
2017-11-16 17:37:25 +00:00
# include "freiton.h"
# include "besetztton.h"
2016-03-01 17:40:38 +00:00
# include "anetz.h"
# include "dsp.h"
2016-03-02 18:47:40 +00:00
# include "stations.h"
2016-03-01 17:40:38 +00:00
# include "image.h"
/* settings */
2017-10-30 07:00:47 +00:00
static char operator [ 32 ] = " 010 " ;
static double page_gain = 1 ;
static int page_sequence = 0 ;
static double squelch_db = - INFINITY ;
2016-03-01 17:40:38 +00:00
void print_help ( const char * arg0 )
{
2017-08-30 15:42:49 +00:00
main_mobile_print_help ( arg0 , " [-V 12] " ) ;
2016-03-01 17:40:38 +00:00
/* - - */
2017-10-30 07:00:47 +00:00
printf ( " -O --operator <number> \n " ) ;
printf ( " Give number to dial when mobile station initiated a call. A-Netz does \n " ) ;
printf ( " not support automatic dialing, so operator assistance is required. \n " ) ;
printf ( " By default, the operator '%s' is dialed. \n " , operator ) ;
2016-11-27 05:47:06 +00:00
printf ( " -G --geo <lat>,<lon> \n " ) ;
2016-03-02 18:47:40 +00:00
printf ( " Give your coordinates of your location, to find closest base station. \n " ) ;
printf ( " (e.g. '--geo 51.186959,7.080194') Or use '--geo list' to get a list of \n " ) ;
printf ( " all base station locations. \n " ) ;
2017-01-08 10:22:24 +00:00
printf ( " -V --page-gain <dB> \n " ) ;
printf ( " Raise the gain of paging tones to compensate loss due to pre-emphasis \n " ) ;
printf ( " of the transmitter. (If you can't disable it.) \n " ) ;
2016-03-01 17:40:38 +00:00
printf ( " -P --page-sequence 0 | <ms> \n " ) ;
2016-11-29 06:50:32 +00:00
printf ( " Cycle paging tones, rather than sending simultaniously. Try 100. \n " ) ;
2016-03-01 17:40:38 +00:00
printf ( " (default = '%d') \n " , page_sequence ) ;
2017-10-09 18:49:14 +00:00
printf ( " -S --squelch <dB> | auto \n " ) ;
printf ( " Use given RF level to detect loss of signal. When the signal gets lost \n " ) ;
printf ( " and stays below this level, the connection is released. \n " ) ;
printf ( " Use 'auto' to do automatic noise floor calibration to detect loss. \n " ) ;
printf ( " Only works with SDR! (disabled by default) \n " ) ;
2016-03-01 17:40:38 +00:00
printf ( " \n station-id: Give (last) 5 digits of station-id, you don't need to enter it \n " ) ;
printf ( " for every start of this program. \n " ) ;
2017-08-30 15:42:49 +00:00
main_mobile_print_hotkeys ( ) ;
2016-03-01 17:40:38 +00:00
}
static int handle_options ( int argc , char * * argv )
{
int skip_args = 0 ;
2016-03-02 18:47:40 +00:00
char * p ;
2017-01-08 10:22:24 +00:00
double gain_db ;
2016-03-01 17:40:38 +00:00
static struct option long_options_special [ ] = {
2017-10-30 07:00:47 +00:00
{ " operator " , 1 , 0 , ' O ' } ,
2016-11-27 05:47:06 +00:00
{ " geo " , 1 , 0 , ' G ' } ,
2017-01-08 10:22:24 +00:00
{ " page-gain " , 1 , 0 , ' V ' } ,
2016-03-01 17:40:38 +00:00
{ " page-sequence " , 1 , 0 , ' P ' } ,
2017-10-09 18:49:14 +00:00
{ " squelch " , 1 , 0 , ' S ' } ,
2016-03-01 17:40:38 +00:00
{ 0 , 0 , 0 , 0 }
} ;
2017-10-30 07:00:47 +00:00
main_mobile_set_options ( " O:G:V:P:S: " , long_options_special ) ;
2016-03-01 17:40:38 +00:00
while ( 1 ) {
int option_index = 0 , c ;
c = getopt_long ( argc , argv , optstring , long_options , & option_index ) ;
if ( c = = - 1 )
break ;
switch ( c ) {
2017-10-30 07:00:47 +00:00
case ' O ' :
strncpy ( operator , optarg , sizeof ( operator ) - 1 ) ;
operator [ sizeof ( operator ) - 1 ] = ' \0 ' ;
skip_args + = 2 ;
break ;
2016-11-27 05:47:06 +00:00
case ' G ' :
2016-03-02 18:47:40 +00:00
if ( ! strcasecmp ( optarg , " list " ) ) {
station_list ( ) ;
exit ( 0 ) ;
}
if ( ( p = strchr ( optarg , ' , ' ) ) ) {
get_station_by_coordinates ( atof ( optarg ) , atof ( p + 1 ) ) ;
exit ( 0 ) ;
}
fprintf ( stderr , " Invalid geo parameter \n " ) ;
exit ( 0 ) ;
break ;
2017-01-08 10:22:24 +00:00
case ' V ' :
gain_db = atof ( optarg ) ;
page_gain = pow ( 10 , gain_db / 20.0 ) ;
skip_args + = 2 ;
break ;
2016-03-01 17:40:38 +00:00
case ' P ' :
page_sequence = atoi ( optarg ) ;
skip_args + = 2 ;
break ;
2017-10-09 18:49:14 +00:00
case ' S ' :
if ( ! strcasecmp ( optarg , " auto " ) )
squelch_db = 0.0 ;
else
squelch_db = atof ( optarg ) ;
2016-03-05 07:14:36 +00:00
skip_args + = 2 ;
break ;
2016-03-01 17:40:38 +00:00
default :
2017-08-30 15:42:49 +00:00
main_mobile_opt_switch ( c , argv [ 0 ] , & skip_args ) ;
2016-03-01 17:40:38 +00:00
}
}
free ( long_options ) ;
return skip_args ;
}
int main ( int argc , char * argv [ ] )
{
int rc ;
int skip_args ;
const char * station_id = " " ;
2016-04-25 18:20:54 +00:00
int i ;
2016-03-01 17:40:38 +00:00
2017-01-02 09:16:49 +00:00
/* a-netz does not use emphasis, so disable it */
uses_emphasis = 0 ;
2016-03-11 05:59:05 +00:00
/* init common tones */
init_freiton ( ) ;
init_besetzton ( ) ;
2017-08-30 15:42:49 +00:00
main_mobile_init ( ) ;
2016-03-01 17:40:38 +00:00
skip_args = handle_options ( argc , argv ) ;
argc - = skip_args ;
argv + = skip_args ;
if ( argc > 1 ) {
station_id = argv [ 1 ] ;
if ( strlen ( station_id ) ! = 5 & & strlen ( station_id ) ! = 7 ) {
printf ( " Given station ID '%s' does not have 7 or (the last) 5 digits \n " , station_id ) ;
return 0 ;
}
if ( strlen ( station_id ) > 5 )
station_id + = strlen ( station_id ) - 5 ;
}
2016-04-25 18:20:54 +00:00
if ( ! num_kanal ) {
2016-03-01 17:40:38 +00:00
printf ( " No channel ( \" Kanal \" ) is specified, I suggest channel 30. \n \n " ) ;
2016-05-08 05:23:05 +00:00
print_help ( argv [ - skip_args ] ) ;
2016-03-01 17:40:38 +00:00
return 0 ;
}
2017-05-14 10:27:56 +00:00
if ( use_sdr ) {
/* set audiodev */
for ( i = 0 ; i < num_kanal ; i + + )
audiodev [ i ] = " sdr " ;
num_audiodev = num_kanal ;
}
2017-01-04 13:14:02 +00:00
if ( num_kanal = = 1 & & num_audiodev = = 0 )
2017-05-14 10:27:56 +00:00
num_audiodev = 1 ; /* use default */
2017-01-04 13:14:02 +00:00
if ( num_kanal ! = num_audiodev ) {
2016-11-28 08:16:48 +00:00
fprintf ( stderr , " You need to specify as many sound devices as you have channels. \n " ) ;
2016-04-25 18:20:54 +00:00
exit ( 0 ) ;
}
2016-03-01 17:40:38 +00:00
if ( ! loopback )
print_image ( ) ;
dsp_init ( ) ;
anetz_init ( ) ;
/* create transceiver instance */
2016-04-25 18:20:54 +00:00
for ( i = 0 ; i < num_kanal ; i + + ) {
2017-10-30 07:00:47 +00:00
rc = anetz_create ( kanal [ i ] , audiodev [ i ] , use_sdr , samplerate , rx_gain , page_gain , page_sequence , do_pre_emphasis , do_de_emphasis , write_rx_wave , write_tx_wave , read_rx_wave , read_tx_wave , loopback , squelch_db , operator ) ;
2016-04-25 18:20:54 +00:00
if ( rc < 0 ) {
fprintf ( stderr , " Failed to create \" Sender \" instance. Quitting! \n " ) ;
goto fail ;
}
2017-10-12 17:43:15 +00:00
printf ( " Base station on channel %d ready, please tune transmitter to %.3f MHz and receiver to %.3f MHz. (%.3f MHz offset) \n " , kanal [ i ] , anetz_kanal2freq ( kanal [ i ] , 0 ) / 1e6 , anetz_kanal2freq ( kanal [ i ] , 1 ) / 1e6 , anetz_kanal2freq ( kanal [ i ] , 2 ) / 1e6 ) ;
2016-03-01 17:40:38 +00:00
}
2017-08-20 06:27:02 +00:00
main_mobile ( & quit , latency , interval , NULL , station_id , 5 ) ;
2016-03-01 17:40:38 +00:00
fail :
/* destroy transceiver instance */
while ( sender_head )
anetz_destroy ( sender_head ) ;
return 0 ;
}