w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-04-13 23:08:34 -04:00
Code Issues Packages Projects Releases Wiki Activity

Starting work toward operator management of Q65-Pileup's q3list.

Browse Source
This commit is contained in:
Joe Taylor 2023-03-01 12:01:53 -05:00
parent e1865d4a4d
commit 3dec36b9bd
2 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/get_q3list.f90
View File

@ -1,4 +1,4 @@
subroutine get_q3list(fname,nlist,list)
subroutine get_q3list(fname,bDiskData,nlist,list)
type q3list
character*6 call
@ -11,6 +11,7 @@ subroutine get_q3list(fname,nlist,list)
character*(*) fname
character*36 list(40)
character*8 grid6
logical*1 bDiskData
integer time
integer nt(8)
integer indx(MAX_CALLERS)

13
widgets/mainwindow.cpp
View File

@ -186,7 +186,7 @@ extern "C" {
void indexx_(float arr[], int* n, int indx[]);
void get_q3list_(char* fname, int* nlist, char* list, FCL len1, FCL len2);
void get_q3list_(char* fname, bool* bDiskData, int* nlist, char* list, FCL len1, FCL len2);
void jpl_setup_(char* fname, FCL len);
}
@ -3587,17 +3587,13 @@ void MainWindow::decodeDone ()
if(m_mode=="Q65" and (m_specOp==SpecOp::NA_VHF or m_specOp==SpecOp::ARRL_DIGI
or m_specOp==SpecOp::WW_DIGI or m_specOp==SpecOp::Q65_PILEUP)
and m_ActiveStationsWidget!=NULL) {
// Update the ActiveStations display for Q65 pileup situation...
int nlist=0;
char list[2000];
char line[36];
list[0]=0;
// QString t="1200 W9XYZ EN37";
auto fname {QDir::toNativeSeparators(m_config.writeable_data_dir ().absoluteFilePath ("tsil.3q"))};
// morse_(const_cast<char *> (m_config.my_callsign ().toLatin1().constData()),
// const_cast<int *> (icw), &m_ncw, (FCL)m_config.my_callsign().length());
get_q3list_(const_cast<char *> (fname.toLatin1().constData()), &nlist,
auto fname {QDir::toNativeSeparators(m_config.writeable_data_dir().absoluteFilePath("tsil.3q"))};
get_q3list_(const_cast<char *> (fname.toLatin1().constData()), &m_diskData, &nlist,
&list[0], (FCL)fname.length(), (FCL)2000);
QString t="";
QString t0="";
@ -3605,6 +3601,7 @@ void MainWindow::decodeDone ()
memcpy(line,&list[36*i],36);
t0=QString::fromLatin1(line)+"\n";
m_callers[i]=t0;
// qDebug() << "aa" << t0;
t+=t0;
}
m_ActiveStationsWidget->setClickOK(false);