n5ac/mmsstv
1
0
Fork 0
mirror of https://github.com/n5ac/mmsstv.git synced 2025-12-06 04:12:03 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity
mmsstv/Hamlog5.cpp

633 lines
15 KiB
C++
Raw Permalink Normal View History

Added LGPL files received from AA6YQ
2013-07-05 22:15:14 +02:00
//Copyright+LGPL
//-----------------------------------------------------------------------------------------------------------------------------------------------
// Copyright 2000-2013 Makoto Mori, Nobuyuki Oba
//-----------------------------------------------------------------------------------------------------------------------------------------------
// This file is part of MMSSTV.
// MMSSTV is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License
// as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.
// MMSSTV 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 Lesser General Public License for more details.
// You should have received a copy of the GNU Lesser General Public License along with MMTTY. If not, see
// <http://www.gnu.org/licenses/>.
//-----------------------------------------------------------------------------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "ComLib.h"
#include "LogFile.h"
#include "Hamlog5.h"
#include "LogConv.h"
//--------------------------------------------
const LPCSTR g_Hamlog5Key[]={
"CALLS", "IGN", "DATE", "TIME", "CODE", "GL", "QSL", "FLAG", "HIS", "MY",
"FREQ", "MODE", "NAME", "QTH", "RMK1", "RMK2", NULL
};
const BYTE g_Hamlog5Len[]={
8, 12, 4, 2, 6, 6, 3, 2, 3, 3,
7, 4, 12, 28, 54, 54, 0
};
//--------------------------------------------
void __fastcall GetHamlog5FieldsLen(AnsiString &as)
{
as = "";
for( int i = 8; i < 15; i++ ){
if( i > 8 ) as += ",";
as += Log.m_LogSet.m_Hamlog5Len[i];
}
}
//--------------------------------------------
void __fastcall SetHamlog5FieldsLen(AnsiString &as)
{
LPSTR pBF = StrDupe(as.c_str());
LPSTR p, t;
p = pBF;
for( int i = 8; i < 15; i++ ){
p = StrDlm(t, p);
Log.m_LogSet.m_Hamlog5Len[i] = BYTE(atoin(t, -1));
}
delete pBF;
}
//--------------------------------------------
//<2F>R<EFBFBD><52><EFBFBD>X<EFBFBD>g<EFBFBD><67><EFBFBD>N<EFBFBD>^
CHamlog5::CHamlog5()
{
m_fCreate = FALSE;
m_RecMax = 0; // <20><><EFBFBD>R<EFBFBD>[<5B>h<EFBFBD><68>
m_FilMax = 0; // <20>t<EFBFBD>B<EFBFBD>[<5B><><EFBFBD>h<EFBFBD><68>
m_RecWidth = 0; // <20><><EFBFBD>R<EFBFBD>[<5B>h<EFBFBD>̕<EFBFBD>
m_FilOff = 0; // <20>w<EFBFBD>b<EFBFBD>_<EFBFBD>I<EFBFBD>t<EFBFBD>Z<EFBFBD>b<EFBFBD>g
m_bp = NULL;
m_OpenFlag = FALSE;
m_WriteFlag = FALSE; // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>݃t<DD83><74><EFBFBD>O
}
//--------------------------------------------
//<2F>f<EFBFBD>X<EFBFBD>g<EFBFBD><67><EFBFBD>N<EFBFBD>^
CHamlog5::~CHamlog5()
{
Close();
}
//--------------------------------------------
//<2F>w<EFBFBD>b<EFBFBD>_<EFBFBD>f<EFBFBD>[<5B>^<5E>Z<EFBFBD>b<EFBFBD>g<EFBFBD>A<EFBFBD>b<EFBFBD>v
BOOL CHamlog5::SetupHeader(void)
{
if( fread(&m_Head, 1, sizeof(m_Head), m_fp)!=sizeof(m_Head) ){
return FALSE; // <20>قȂ<D982><C882>t<EFBFBD>H<EFBFBD>[<5B>}<7D>b<EFBFBD>g
}
if( (m_Head.Type != 0x03)&&(m_Head.Type != 0x1a ) ) return FALSE;
m_RecMax = m_Head.RecMax;
m_FilOff = m_Head.FilOff;
m_RecWidth = m_Head.RecWidth;
if( !m_FilOff ) return FALSE;
hamlog5DBRHD slot;
ULONG fPos;
for( m_FilMax = 0; m_FilMax < HamlogDBMAX; m_FilMax++ ){
fPos = (32L*m_FilMax)+32L;
if( fPos > ULONG(m_FilOff) ) break;
if( fread(&slot, 1, sizeof(slot), m_fp)!=sizeof(slot) ) break;
if( slot.Name[0] == 0x0d ) break;
slot.Name[10] = 0;
m_StrTable[m_FilMax] = slot.Name;
m_TypeTable[m_FilMax] = slot.Type;
m_LenTable[m_FilMax] = USHORT(slot.Len);
}
for( int i = 8; (i < 15) && (i < m_FilMax); i++ ){
Log.m_LogSet.m_Hamlog5Len[i] = m_LenTable[i];
}
// if( (m_Head.Type == 0x1a) && !m_RecMax ){
// m_RecMax = (m_fStatus.m_size - ULONG(m_FilOff)) / ULONG(m_RecWidth);
// }
USHORT i;
USHORT Pos = 1;
for( i = 0; i < m_FilMax; i++ ){
m_PosTable[i] = Pos;
Pos += m_LenTable[i];
}
return TRUE;
}
//--------------------------------------------
//<2F>w<EFBFBD>b<EFBFBD>_<EFBFBD>f<EFBFBD>[<5B>^<5E>쐬
BOOL CHamlog5::MakeHeader(const LPCSTR _NT[], const BYTE _LT[])
{
hamlog5DBRHD slot;
memset(&m_Head, 0, sizeof(m_Head));
fseek(m_fp, 0, SEEK_SET);
fwrite(&m_Head, 1, sizeof(m_Head), m_fp);
m_FilOff = sizeof(m_Head);
m_RecWidth = 1;
for( m_FilMax = 0; _LT[m_FilMax]; m_FilMax++ ){
memset(&slot, 0, sizeof(slot));
strcpy(slot.Name, _NT[m_FilMax]);
slot.Len = _LT[m_FilMax];
slot.Type = 'C';
fwrite(&slot, 1, sizeof(slot), m_fp);
m_PosTable[m_FilMax] = m_RecWidth;
m_RecWidth += USHORT(_LT[m_FilMax]);
m_FilOff += USHORT(sizeof(slot));
m_StrTable[m_FilMax] = _NT[m_FilMax];
m_TypeTable[m_FilMax] = 'C';
m_LenTable[m_FilMax] = USHORT(_LT[m_FilMax]);
}
char Term = 0x0d;
fwrite(&Term, 1, 1, m_fp);
m_FilOff++;
m_Head.Type = 3;
SYSTEMTIME st;
::GetLocalTime(&st);
m_Head.Year = BYTE(st.wYear % 100);
m_Head.Mon = BYTE(st.wMonth);
m_Head.Day = BYTE(st.wDay);
m_Head.RecMax = 0;
m_Head.FilOff = m_FilOff;
m_Head.RecWidth = m_RecWidth;
fseek(m_fp, 0, SEEK_SET);
fwrite(&m_Head, 1, sizeof(m_Head), m_fp);
return TRUE;
}
//--------------------------------------------
//<2F>I<EFBFBD>[<5B>v<EFBFBD><76>
BOOL CHamlog5::Open(LPCSTR Name, BOOL fMsg)
{
if( (m_OpenFlag == TRUE) ) Close();
m_WriteFlag = FALSE; // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>݃t<DD83><74><EFBFBD>O
if( (m_fp = fopen(Name, "rb")) == NULL ){
if( fMsg ) ErrorMB("%s<><73><EFBFBD>I<EFBFBD>[<5B>v<EFBFBD><76><EFBFBD>ł<EFBFBD><C582>܂<EFBFBD><DC82><EFBFBD>.", Name);
return FALSE; // <20>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD><EFBFBD><EFBFBD>I<EFBFBD>[<5B>v<EFBFBD><76><EFBFBD>ł<EFBFBD><C582>Ȃ<EFBFBD>
}
m_OpenFlag = TRUE;
m_fCreate = FALSE;
if( SetupHeader() == FALSE ){
Close();
if( fMsg ) ErrorMB("<EFBFBD>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD>t<EFBFBD>H<EFBFBD>[<5B>}<7D>b<EFBFBD>g<EFBFBD><67><EFBFBD>F<EFBFBD><46><EFBFBD>ł<EFBFBD><C582>܂<EFBFBD><DC82><EFBFBD>.");
return FALSE;
}
if( m_bp ) delete m_bp;
m_bp = new char[m_RecWidth];
if( Seek(0) == FALSE ){
Close();
if( fMsg ) ErrorMB("<EFBFBD>f<EFBFBD>[<5B>^<5E>[<5B><><EFBFBD>R<EFBFBD>[<5B>h<EFBFBD><68><EFBFBD><EFBFBD><EFBFBD>݂<EFBFBD><DD82>܂<EFBFBD><DC82><EFBFBD>.");
return FALSE;
}
return TRUE;
}
//--------------------------------------------
//<2F>I<EFBFBD>[<5B>v<EFBFBD><76>
BOOL CHamlog5::Create(LPCSTR Name)
{
if( (m_OpenFlag == TRUE) ) Close();
m_WriteFlag = FALSE; // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>݃t<DD83><74><EFBFBD>O
if( (m_fp = fopen(Name, "wb")) == NULL ){
ErrorMB("%s<><73><EFBFBD>쐬<EFBFBD>ł<EFBFBD><C582>܂<EFBFBD><DC82><EFBFBD>.", Name);
return FALSE; // <20>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD><EFBFBD><EFBFBD>I<EFBFBD>[<5B>v<EFBFBD><76><EFBFBD>ł<EFBFBD><C582>Ȃ<EFBFBD>
}
m_OpenFlag = TRUE;
m_fCreate = TRUE;
if( MakeHeader(g_Hamlog5Key, Log.m_LogSet.m_Hamlog5Len) == FALSE ){
Close();
ErrorMB("%s<><73><EFBFBD>쐬<EFBFBD>ł<EFBFBD><C582>܂<EFBFBD><DC82><EFBFBD>.", Name);
return FALSE;
}
if( m_bp ) delete m_bp;
m_bp = new char[m_RecWidth];
return TRUE;
}
//--------------------------------------------
//<2F>N<EFBFBD><4E><EFBFBD>[<5B>Y
void CHamlog5::Close(void)
{
if( m_OpenFlag == TRUE ){
Update();
if( m_RecMax != m_Head.RecMax ){ // <20>f<EFBFBD>[<5B>^<5E><><EFBFBD>lj<EFBFBD><C789><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD>
m_Head.RecMax = m_RecMax;
fseek(m_fp, 0, SEEK_SET);
fwrite(&m_Head, 1, sizeof(m_Head), m_fp);
}
int r = fclose(m_fp);
m_fp = NULL;
if( r && m_fCreate ){
ErrorMB("<EFBFBD>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD>̍쐬<CC8D>Ɏ<EFBFBD><C98E>s<EFBFBD><73><EFBFBD>܂<EFBFBD><DC82><EFBFBD>.");
}
m_OpenFlag = FALSE;
}
if( m_bp != NULL ){
delete m_bp;
m_bp = NULL;
}
}
//--------------------------------------------
//<2F><><EFBFBD>R<EFBFBD>[<5B>h<EFBFBD>V<EFBFBD>[<5B>N
BOOL CHamlog5::Seek(ULONG Index)
{
if( m_OpenFlag == FALSE ) return FALSE;
if( Update() == FALSE ) return FALSE;
m_Index = Index;
m_Pos = (Index * ULONG(m_RecWidth)) + ULONG(m_FilOff);
fseek(m_fp, m_Pos, SEEK_SET);
if( Index < m_RecMax ){
if( fread(m_bp, 1, m_RecWidth, m_fp) != ULONG(m_RecWidth) ){
return FALSE;
}
}
else {
memset(m_bp, ' ', m_RecWidth);
}
return TRUE;
}
//--------------------------------------------
//<2F>}<7D>[<5B>N<EFBFBD>̃`<60>F<EFBFBD>b<EFBFBD>N
BOOL CHamlog5::IsData(void)
{
return (*m_bp == ' ') ? TRUE : FALSE;
}
//--------------------------------------------
//<2F>f<EFBFBD>[<5B>^<5E>̓ǂݍ<C782><DD8D><EFBFBD>
BOOL CHamlog5::GetData(USHORT SubIndex, AnsiString &cs)
{
char bf[1024];
if( SubIndex >= m_FilMax ) return FALSE;
int len = m_LenTable[SubIndex];
if( len >= 1023 ) len = 1023;
StrCopy(bf, m_bp + m_PosTable[SubIndex], len);
cs = bf;
return TRUE;
}
//--------------------------------------------
//<2F>f<EFBFBD>[<5B>^<5E>̓ǂݍ<C782><DD8D><EFBFBD>
BOOL CHamlog5::GetData(USHORT SubIndex, LPSTR pStore)
{
if( SubIndex >= m_FilMax ) return FALSE;
int len = m_LenTable[SubIndex];
if( len >= 1023 ) len = 1023;
StrCopy(pStore, m_bp + m_PosTable[SubIndex], len);
return TRUE;
}
//--------------------------------------------
//<2F>f<EFBFBD>[<5B>^<5E>̓ǂݍ<C782><DD8D><EFBFBD>
int CHamlog5::GetData(USHORT SubIndex, LPBYTE pData, int len)
{
if( SubIndex >= m_FilMax ) return 0;
int rlen = m_LenTable[SubIndex];
if( rlen >= 1023 ) rlen = 1023;
if( rlen > len ) rlen = len;
memcpy(pData, m_bp + m_PosTable[SubIndex], rlen);
return rlen;
}
//--------------------------------------------
//<2F>f<EFBFBD>[<5B>^<5E>̏<EFBFBD><CC8F><EFBFBD><EFBFBD><EFBFBD><EFBFBD>݁i<DD81>o<EFBFBD>b<EFBFBD>t<EFBFBD>@<40><><EFBFBD>X<EFBFBD>V<EFBFBD><56><EFBFBD><EFBFBD><EFBFBD>̂݁j
BOOL CHamlog5::SetData(USHORT SubIndex, LPCSTR p)
{
if( SubIndex >= m_FilMax ) return FALSE;
int len = m_LenTable[SubIndex];
LPSTR t;
int i;
for( i = 0, t = m_bp + m_PosTable[SubIndex]; i < len; i++, t++ ){
if( *p ){
*t = *p++;
}
else {
*t = ' ';
}
}
m_WriteFlag = TRUE;
return TRUE;
}
//--------------------------------------------
//<2F>f<EFBFBD>[<5B>^<5E>̏<EFBFBD><CC8F><EFBFBD><EFBFBD><EFBFBD><EFBFBD>݁i<DD81>o<EFBFBD>b<EFBFBD>t<EFBFBD>@<40><><EFBFBD>X<EFBFBD>V<EFBFBD><56><EFBFBD><EFBFBD><EFBFBD>̂݁j
BOOL CHamlog5::SetBinary(USHORT SubIndex, LPBYTE p)
{
if( SubIndex >= m_FilMax ) return FALSE;
int len = m_LenTable[SubIndex];
LPSTR t;
int i;
for( i = 0, t = m_bp + m_PosTable[SubIndex]; i < len; i++, t++ ){
*t = *p++;
}
m_WriteFlag = TRUE;
return TRUE;
}
//--------------------------------------------
//<2F>f<EFBFBD>[<5B>^<5E>̏<EFBFBD><CC8F><EFBFBD><EFBFBD><EFBFBD><EFBFBD>݁i<DD81>o<EFBFBD>b<EFBFBD>t<EFBFBD>@<40>̓<EFBFBD><CC93>e<EFBFBD>𔽉f<F094BD89><66><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>j
BOOL CHamlog5::Update(void)
{
if( m_OpenFlag == FALSE ) return FALSE;
if( m_WriteFlag == TRUE ){
m_WriteFlag = FALSE;
fseek(m_fp, m_Pos, SEEK_SET);
fwrite(m_bp, 1, m_RecWidth, m_fp);
if( m_Index >= m_RecMax ){
m_RecMax++;
}
}
return TRUE;
}
//--------------------------------------------
//<2F>f<EFBFBD>[<5B>^<5E>̃f<CC83>R<EFBFBD>[<5B>h
void CHamlog5::DecodeData(SDMMLOG *sp)
{
memset(sp, 0, sizeof(SDMMLOG));
char bf[1024];
int YY, MM, DD, HH, mm;
GetData(itemhamlog5DATE, LPBYTE(bf), 4);
YY = bf[1];
MM = bf[2];
DD = bf[3];
GetData(itemhamlog5TIME, LPBYTE(bf), 2);
HH = bf[0];
mm = bf[1] & 0x7f;
if( bf[1] & 0x80 ){
UTCtoJST(YY, MM, DD, HH);
}
sp->year = BYTE(YY);
sp->date = WORD(MM * 100 + DD);
sp->btime = WORD(((HH * 60 + mm) * 30));
if(!sp->btime) sp->btime++;
USHORT usFlag; // <20>R<EFBFBD>[<5B><><EFBFBD>T<EFBFBD>C<EFBFBD><43><EFBFBD>̌`<60><>
GetData(itemhamlog5FLAG, LPBYTE(&usFlag), sizeof(usFlag));
LPSTR t, p;
AnsiString call;
if( (usFlag & bithamlog5DX) && (usFlag & bithamlog5RevOdr) ){ // KH6/JE3HHT
AnsiString Add;
GetData(itemhamlog5IGN, bf);
p = bf;
if( *p != ' ' ){
p = StrDlm(t, p, ' ');
Add = t;
}
p = SkipSpace(p);
p = StrDlm(t, p, '/');
call = t;
GetData(itemhamlog5CALLS, bf); clipsp(bf);
if( !call.IsEmpty() ) call += '/';
call += SkipSpace(bf);
call += Add;
if( *p ){
call += '/';
call += p;
}
}
else { // JE3HHT/KH6
GetData(itemhamlog5CALLS, bf); clipsp(bf);
call = SkipSpace(bf);
GetData(itemhamlog5IGN, bf);
p = bf;
if( *p != ' ' ){
p = StrDlm(t, p, ' ');
call += t;
}
p = SkipSpace(p);
if( *p ){
call += '/';
call += p;
}
}
StrCopy(sp->call, call.c_str(), MLCALL);
GetData(itemhamlog5HIS, bf); clipsp(bf);
StrCopy(sp->ur, bf, MLRST);
GetData(itemhamlog5MY, bf); clipsp(bf);
StrCopy(sp->my, bf, MLRST);
GetData(itemhamlog5MODE, bf); clipsp(bf);
Log.SetMode(sp, bf);
GetData(itemhamlog5FREQ, bf); clipsp(bf);
Log.SetFreq(sp, bf);
GetData(itemhamlog5NAME, bf); clipsp(bf);
StrCopy(sp->name, bf, MLNAME);
GetData(itemhamlog5QTH, bf); clipsp(bf);
StrCopy(sp->qth, bf, MLQTH);
GetData(itemhamlog5RMK1, bf);
SetMMLOGKey(sp, bf);
clipsp(bf);
StrCopy(sp->rem, SkipSpace(bf), MLREM);
GetData(itemhamlog5RMK2, bf);
SetMMLOGKey(sp, bf);
clipsp(bf);
StrCopy(sp->qsl, SkipSpace(bf), MLQSL);
GetData(itemhamlog5QSL, LPBYTE(bf), 3);
sprintf(&bf[32], "QSL[%.3s]", bf);
Log.SetOptStr(2, sp, &bf[32]);
if( bf[0] == 'N' ){
sp->send = 'N';
}
else if( bf[1] == ' ' ){ // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if( (bf[0] == 'J')||(bf[0] == ' ') ){
sp->send = 0;
}
else {
sp->send = BYTE(tolower(bf[0]));
}
}
else { // <20><><EFBFBD><EFBFBD><EFBFBD>ς<EFBFBD>
sp->send = BYTE(toupper(bf[1]));
}
sp->recv = bf[2];
if( sp->recv == ' ' ) sp->recv = 0;
GetData(itemhamlog5CODE, LPBYTE(bf), 6); clipsp(bf);
StrCopy(sp->opt1, bf, 6);
GetData(itemhamlog5GL, LPBYTE(bf), 6); clipsp(bf);
StrCopy(sp->opt2, bf, 6);
if( !sp->etime ) sp->etime = sp->btime;
}
//--------------------------------------------
//<2F>f<EFBFBD>[<5B>^<5E>̃G<CC83><47><EFBFBD>R<EFBFBD>[<5B>h
void CHamlog5::EncodeData(SDMMLOG *sp)
{
char bf[1024];
int YY = sp->year;
int MM = sp->date / 100;
int DD = sp->date % 100;
int tim = sp->btime / 30;
int HH = tim / 60;
int mm = tim % 60;
switch(Log.m_LogSet.m_THTZ){
case 0:
if( !IsJA(sp->call) ){
JSTtoUTC(YY, MM, DD, HH);
mm |= 0x80;
}
break;
case 1:
JSTtoUTC(YY, MM, DD, HH);
mm |= 0x80;
break;
default:
break;
}
bf[0] = BYTE(YY > 50 ? 19 : 20);
bf[1] = BYTE(YY);
bf[2] = BYTE(MM);
bf[3] = BYTE(DD);
SetBinary(itemhamlog5DATE, LPBYTE(bf));
bf[0] = BYTE(HH);
bf[1] = BYTE(mm);
SetBinary(itemhamlog5TIME, LPBYTE(bf));
SetData(itemhamlog5NAME, sp->name);
SetData(itemhamlog5CODE, sp->opt1);
SetData(itemhamlog5GL, sp->opt2);
SetData(itemhamlog5QTH, sp->qth);
strcpy(bf, Log.GetModeString(sp->mode));
SetData(itemhamlog5MODE, bf);
strcpy(bf, Log.GetFreqString(sp->band, sp->fq));
SetData(itemhamlog5FREQ, bf);
SetData(itemhamlog5HIS, sp->ur);
SetData(itemhamlog5MY, sp->my);
AnsiString REM1, REM2;
REM1 = sp->rem;
REM2 = sp->qsl;
int l = GetLMode(sp->mode);
if( sp->ur[l] ) AddMMLOGKey(REM1, REM2, &sp->ur[l], "SN");
if( sp->my[l] ) AddMMLOGKey(REM1, REM2, &sp->my[l], "RN");
if( sp->etime ){
tim = sp->etime / 30;
sprintf(bf, "%02u%02u", tim / 60, tim % 60);
AddMMLOGKey(REM1, REM2, bf, "END");
}
if( sp->env ){
sprintf(bf, "%u", sp->env);
AddMMLOGKey(REM1, REM2, bf, "ENV");
}
AddMMLOGKey(REM1, REM2, sp->pow, "POW");
if( sp->cq ){
bf[0] = sp->cq; bf[1] = 0;
AddMMLOGKey(REM1, REM2, bf, "M");
}
strcpy(bf, Log.GetOptStr(2, sp));
char rbf[32];
char qsl[3];
if(RemoveL2(rbf, bf, "QSL", sizeof(rbf)-1) == TRUE){
qsl[0] = rbf[0];
qsl[1] = rbf[1];
qsl[2] = rbf[2];
}
else {
qsl[2] = sp->recv;
if( !qsl[2] ) qsl[2] = ' ';
if( sp->send == 'N' ){
qsl[0] = 'N';
qsl[1] = ' ';
}
else if( !sp->send ){
qsl[0] = 'J';
qsl[1] = ' ';
}
else if( (sp->send >= 0x60)||(sp->send == '?') ){
qsl[0] = BYTE(toupper(sp->send));
qsl[1] = ' ';
}
else if( isalpha(sp->send) ){
qsl[0] = sp->send;
qsl[1] = '*';
}
else {
qsl[0] = 'J';
qsl[1] = sp->send;
}
}
SetData(itemhamlog5QSL, qsl);
SetData(itemhamlog5RMK1, REM1.c_str());
SetData(itemhamlog5RMK2, REM2.c_str());
BOOL fJA = IsJA(sp->call);
USHORT usFlag = USHORT(fJA ? 0 : bithamlog5DX);
AnsiString Calls, Ign;
strcpy(bf, sp->call);
LPSTR pp, p2, t;
t = bf;
if( (pp = strchr(bf, '/')) != NULL ){ // KH6/JE3HHT or JE3HHT/KH6 <20>̌`<60><>
*pp = 0;
pp++;
int LenC = strlen(t);
int LenP = strlen(pp);
if( (p2 = strchr(pp, '/')) != NULL ){ // KH6/JE3HHT/P JE3HHT/QRP/3
// t = KH6, pp = JE3HHT, p2 = P
*p2 = 0; p2++;
if( fJA ){
Calls = t;
Ign = pp;
Ign += "/";
Ign += p2;
}
else {
Calls = pp;
Ign = t;
Ign += "/";
Ign += p2;
usFlag |= bithamlog5RevOdr;
}
}
else {
if( LenC < LenP ){
Calls = pp;
Ign = t;
if( usFlag ) usFlag |= bithamlog5RevOdr;
}
else {
Calls = t;
Ign = pp;
if( usFlag ) usFlag |= bithamlog5NorOdr;
}
}
}
else {
Calls = sp->call;
}
SetBinary(itemhamlog5FLAG, LPBYTE(&usFlag));
SetData(itemhamlog5CALLS, Calls.c_str());
LPCSTR pCall = Calls.c_str();
memset(bf, ' ', 12); bf[13] = 0;
l = strlen(pCall);
if( l > 8 ){
pCall += 8;
l -= 8;
memcpy(bf, pCall, l);
}
l = strlen(Ign.c_str());
if( l ){
if( l > 12 ) l = 12;
memcpy(&bf[12 - l], Ign.c_str(), l);
}
SetData(itemhamlog5IGN, bf);
}
Reference in a new issue Copy permalink