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

1526 lines
35 KiB
C++
Raw Permalink Normal View History

Added source file to repo as received from AA6YQ
2013-07-05 22:00:12 +02:00
//Copyright+LGPL
//-----------------------------------------------------------------------------------------------------------------------------------------------
// Copyright 2000-2013 Makoto Mori, Nobuyuki Oba
//-----------------------------------------------------------------------------------------------------------------------------------------------
// This file is part of MMTTY.
// MMTTY 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.
// MMTTY 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/>.
//-----------------------------------------------------------------------------------------------------------------------------------------------
/************************************************************************
MMCG
Copyright (C) JE3HHT 1993.
Modifed on 2000 for MMTTY by JE3HHT
************************************************************************/
#include <vcl.h>
#pragma hdrstop
#include "ComLib.h"
#include "Mmcg.h"
#include "string.h"
#include "stdlib.h"
#include "Country.h"
CMMCG mmcg;
static LPCSTR ptbl[]={
"",
"<EFBFBD>k<EFBFBD>C<EFBFBD><EFBFBD>", "<EFBFBD>X<EFBFBD><EFBFBD>","<EFBFBD><EFBFBD><EFBFBD>茧","<EFBFBD>H<EFBFBD>c<EFBFBD><EFBFBD>","<EFBFBD>R<EFBFBD>`<60><>","<EFBFBD>{<7B>錧","<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>","<EFBFBD>V<EFBFBD><EFBFBD><EFBFBD><EFBFBD>",
"<EFBFBD><EFBFBD><EFBFBD>쌧", "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s","<EFBFBD>_<EFBFBD>ސ쌧","<EFBFBD><EFBFBD><EFBFBD>t<EFBFBD><EFBFBD>","<EFBFBD><EFBFBD><EFBFBD>ʌ<EFBFBD>","<EFBFBD><EFBFBD><EFBFBD>錧","<EFBFBD>Ȗ،<EFBFBD>","<EFBFBD>Q<EFBFBD>n<EFBFBD><EFBFBD>",
"<EFBFBD>R<EFBFBD><EFBFBD><EFBFBD><EFBFBD>","<EFBFBD>É<EFBFBD><EFBFBD><EFBFBD>","<EFBFBD>򕌌<EFBFBD>","<EFBFBD><EFBFBD><EFBFBD>m<EFBFBD><EFBFBD>","<EFBFBD>O<EFBFBD>d<EFBFBD><EFBFBD>","<EFBFBD><EFBFBD><EFBFBD>s<EFBFBD>{","<EFBFBD><EFBFBD><EFBFBD>ꌧ","<EFBFBD>ޗnj<EFBFBD>",
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>{","<EFBFBD>a<EFBFBD>̎R<EFBFBD><EFBFBD>","<EFBFBD><EFBFBD><EFBFBD>Ɍ<EFBFBD>","<EFBFBD>x<EFBFBD>R<EFBFBD><EFBFBD>","<EFBFBD><EFBFBD><EFBFBD>䌧","<EFBFBD>ΐ쌧","<EFBFBD><EFBFBD><EFBFBD>R<EFBFBD><EFBFBD>","<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>",
"<EFBFBD>R<EFBFBD><EFBFBD><EFBFBD><EFBFBD>","<EFBFBD><EFBFBD><EFBFBD>挧","<EFBFBD>L<EFBFBD><EFBFBD><EFBFBD><EFBFBD>","<EFBFBD><EFBFBD><EFBFBD>쌧","<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>","<EFBFBD><EFBFBD><EFBFBD>Q<EFBFBD><EFBFBD>","<EFBFBD><EFBFBD><EFBFBD>m<EFBFBD><EFBFBD>","<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>",
"<EFBFBD><EFBFBD><EFBFBD>ꌧ","<EFBFBD><EFBFBD><EFBFBD>茧","<EFBFBD>F<EFBFBD>{<7B><>","<EFBFBD>啪<EFBFBD><EFBFBD>","<EFBFBD>{<7B>茧","<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>","<EFBFBD><EFBFBD><EFBFBD>ꌧ"
};
static LPCSTR ptbleng[]={
"",
"Hokkaido", "Aomori","Iwate","Akita","Yamagata","Miyazaki","Fukushima","Nigata",
"Nagano", "Tokyo","Kanagawa","Chiba","Saitama","Ibaragi","Tochigi","Gunma",
"Yamanashi","Shizuoka","Gifu","Aichi","Mie","Kyoto","Shiga","Nara",
"Osaka","Wakayama","Hyogo","Toyama","Fukui","Ishikawa","Okayama","Shimane",
"Yamaguchi","Tottri","Hiroshima","Kagawa","Tokushima","Ehime","Kochi","Fukuoka",
"Saga","Nagasaki","Kumamoto","Oita","Miyazaki","Kagoshima","Okinawa"
};
CMMCG::CMMCG()
{
m_bp = NULL;
m_Max = 0;
m_Cnt = 0;
m_sinc = 0;
m_mask = -1;
}
CMMCG::~CMMCG()
{
Free();
}
void CMMCG::Free(void)
{
if( m_bp != NULL ){
int i;
MMCG *mp;
for( mp = m_bp, i = 0; i < m_Cnt; i++, mp++ ){
if( mp->Code != NULL ) delete[] mp->Code;
if( mp->QTH != NULL ) delete[] mp->QTH;
if( mp->Key != NULL ) delete[] mp->Key;
}
m_bp = NULL;
}
if( m_fp != NULL ){
delete[] m_fp;
m_fp = NULL;
}
m_Max = m_Cnt = m_FindCnt = 0;
}
void CMMCG::Alloc(int n)
{
if( n >= m_Max ){
int max = m_Max ? m_Max * 2 : 256;
MMCG *np = (MMCG *)new BYTE[sizeof(MMCG) * max];
if( m_bp != NULL ){
memcpy(np, m_bp, sizeof(MMCG) * m_Cnt);
delete[] m_bp;
}
m_bp = np;
m_Max = max;
}
}
/*#$%
======================================================
<EFBFBD><EFBFBD><EFBFBD>[<EFBFBD>}<EFBFBD>Ԃ<EFBFBD><EFBFBD>𒲐<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
LPSTR CMMCG::adjspl(LPSTR p)
{
static char bf[50];
LPCSTR tp[]={
"TSU","TU",
"CHA","CYA",
"CHI","CI",
"CHU","CYU",
"CHO","CYO",
"JYA","JA",
"JYU","JU",
"JYO","JO",
"SHA","SYA",
"SHI","SI",
"SHU","SYU",
"SHE","SYE",
"SHO","SYO",
};
int i, f;
char *t;
for( t = bf; *p;){
for( f = 0, i = 0; i < AN(tp); i+=2 ){
if( !strncmp(p, tp[i], strlen(tp[i])) ){
strcpy(t, tp[i+1]);
t += strlen(t);
p += strlen(tp[i]);
f++;
break;
}
}
if( !f ){
*t++ = *p++;
}
}
*t = 0;
return(bf);
}
/*#$%
======================================================
<EFBFBD>Ō<EFBFBD><EFBFBD>̃<EFBFBD><EFBFBD>[<EFBFBD>}<EFBFBD>Ԃ<EFBFBD><EFBFBD>Ō<EFBFBD><EFBFBD><EFBFBD><EFBFBD>N<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>f<EFBFBD>O<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
int CMMCG::chkspl(LPCSTR p)
{
static char *tp[]={
"TS","CH","JY","SH",
};
int i;
i = strlen(p);
if( i >= 2 ){
p += (i-2);
for( i = 0; i < AN(tp); i++ ){
if( !strcmp(tp[i], p) ) return 0;
}
}
return 1;
}
/*#$%
======================================================
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̍Ō<EFBFBD><EFBFBD>̈<EFBFBD><EFBFBD>v<EFBFBD>𒲂ׂ<EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
int CMMCG::LastMatch(LPSTR t, LPSTR s)
{
t = lastp(t) - strlen(s) + 1;
return !strcmp(t, s);
}
/*#$%
======================================================
<EFBFBD><EFBFBD><EFBFBD>͂<EFBFBD><EFBFBD>ꂽ<EFBFBD>p<EFBFBD>s<EFBFBD>g<EFBFBD>𐳋K<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
int CMMCG::NormQth(LPSTR p)
{
int i;
LPCSTR *cp;
for( i = 1, cp = &ptbl[1]; i < AN(ptbl); i++, cp++ ){
if( !strncmp(p, *cp, strlen(*cp)) ){
if( *(p + strlen(*cp)) ){
strcpy(p, p + strlen(*cp));
return 1;
}
}
}
return 0;
}
/*#$%
======================================================
<EFBFBD>G<EFBFBD><EFBFBD><EFBFBD>A<EFBFBD>}<EFBFBD>X<EFBFBD>N<EFBFBD><EFBFBD><EFBFBD>ݒ肷<EFBFBD><EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
void CMMCG::SetMask(void)
{
LPCSTR p;
m_mask = -1;
if( m_Call[0] ){ /* <20>G<EFBFBD><47><EFBFBD>A<EFBFBD>}<7D>X<EFBFBD>N */
p = m_Call;
if( (m_Call[0] == '7') && (m_Call[1] != 'J') ){
m_mask = 1;
p += 3;
}
for( ; *p; p++ ){
if( isdigit(*(LPUSTR)p) ) m_mask = ((*p) & 0x0f);
}
}
}
/*#$%
======================================================
<EFBFBD>R<EFBFBD>[<EFBFBD>h<EFBFBD><EFBFBD><EFBFBD>猟<EFBFBD><EFBFBD><EFBFBD>Ώۂɂ<EFBFBD><EFBFBD>邩<EFBFBD>ǂ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ׂ<EFBFBD>
------------------------------------------------------
p : <EFBFBD>R<EFBFBD>[<EFBFBD>h<EFBFBD>̃|<EFBFBD>C<EFBFBD><EFBFBD><EFBFBD>^
------------------------------------------------------
------------------------------------------------------
======================================================
*/
int CMMCG::isfind(LPCSTR p)
{
const char _tt[]={
-1,
8, /* 01 */
7, 7, 7, 7, 7, 7, /* 02-07 */
0, 0, /* 08-09 */
1, 1, 1, 1, 1, 1, 1, 1, /* 10-17 */
2, 2, 2, 2, /* 18-21 */
3, 3, 3, 3, 3, 3, /* 22-27 */
9, 9, 9, /* 28-30 */
4, 4, 4, 4, 4, /* 31-35 */
5, 5, 5, 5, /* 36-39 */
6, 6, 6, 6, 6, 6, 6, 6, /* 40-47 */
};
if( m_mask == -1 ){
return 1;
}
else {
return( (_tt[atoin(p, 2)] == m_mask) ? 1 : 0 );
}
}
/*#$%
======================================================
<EFBFBD>w<EFBFBD><EFBFBD><EFBFBD>ʒu<EFBFBD>̕<EFBFBD><EFBFBD><EFBFBD><EFBFBD>̎<EFBFBD><EFBFBD>ނ𓾂<EFBFBD>
------------------------------------------------------
p : <EFBFBD>o<EFBFBD>b<EFBFBD>t<EFBFBD>@<EFBFBD>̃|<EFBFBD>C<EFBFBD><EFBFBD><EFBFBD>^
x : <EFBFBD>ʒu
------------------------------------------------------
------------------------------------------------------
======================================================
*/
int CMMCG::_ischrtyp(char *p, int x)
{
int xx, jis;
for( jis = xx = 0; xx < x; xx++, p++ ){
if( jis ){
jis = 0;
}
else if( _mbsbtype((unsigned char *)p, 0) == _MBC_LEAD ){
jis = 1;
}
}
if( jis ){ /* KANJI2 */
return 2;
}
else if( _mbsbtype((unsigned char *)p, 0) == _MBC_LEAD ){ /* KANJI1 */
return 1;
}
else { /* ANK */
return 0;
}
}
/*#$%
======================================================
<EFBFBD>f<EFBFBD>[<EFBFBD>^<EFBFBD>t<EFBFBD>@<EFBFBD>C<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǂݍ<EFBFBD><EFBFBD><EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
void CMMCG::LoadDef(LPCSTR pFileName)
{
FILE *fp;
char hbf[512];
LPSTR t, p;
Free();
if( (fp = fopen(pFileName, "rt"))!=NULL ){
while( !feof(fp) ){
if( fgets(hbf, 512, fp)!=NULL ){
if( hbf[0] == '$' ) break;
ClipLF(hbf);
if( hbf[0] != '!' ){
p = StrDlm(t, hbf, TAB);
clipsp(t);
Alloc(m_Cnt);
m_bp[m_Cnt].Code = StrDupe(t);
if( p != NULL ){
p = StrDlm(t, p, TAB);
if( *t == '%' ) *t = 0;
clipsp(t);
m_bp[m_Cnt].QTH = StrDupe(SkipSpace(t));
}
else {
m_bp[m_Cnt].QTH = StrDupe("");
}
if( p != NULL ){
clipsp(p);
m_bp[m_Cnt].Key = StrDupe(SkipSpace(p));
}
else {
m_bp[m_Cnt].Key = StrDupe("");
}
m_Cnt++;
}
}
}
fclose(fp);
m_fp = (MMCG **)new BYTE[sizeof(MMCG*)*m_Cnt];
}
else {
WarningMB((sys.m_WinFontCharset != SHIFTJIS_CHARSET )?"'%s' was not found.\r\n\r\nYou cannot use a JCC/JCG list function.\r\nThis is not a problem if you do not need it":"'%s'<27><><EFBFBD><EFBFBD><EFBFBD>‚<EFBFBD><C282><EFBFBD><EFBFBD>܂<EFBFBD><DC82><EFBFBD>.", pFileName);
}
}
/*#$%
======================================================
<EFBFBD>R<EFBFBD>[<EFBFBD>h<EFBFBD><EFBFBD><EFBFBD>猧<EFBFBD><EFBFBD><EFBFBD>𓾂<EFBFBD>
------------------------------------------------------
code : <EFBFBD>R<EFBFBD>[<EFBFBD>h<EFBFBD>̃|<EFBFBD>C<EFBFBD><EFBFBD><EFBFBD>^
------------------------------------------------------
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̃|<EFBFBD>C<EFBFBD><EFBFBD><EFBFBD>^
------------------------------------------------------
======================================================
*/
LPCSTR CMMCG::getprf(LPCSTR pCode)
{
int n;
n = atoin(pCode, 2);
if( sys.m_WinFontCharset != SHIFTJIS_CHARSET ){
return(ptbleng[n]);
}
else {
return(ptbl[n]);
}
}
/*#$%
======================================================
<EFBFBD>S<EFBFBD><EFBFBD><EFBFBD>𓾂<EFBFBD>
------------------------------------------------------
p : <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>R<EFBFBD>[<EFBFBD>h<EFBFBD>̃|<EFBFBD>C<EFBFBD><EFBFBD><EFBFBD>^
------------------------------------------------------
QTH<EFBFBD>̃|<EFBFBD>C<EFBFBD><EFBFBD><EFBFBD>^
------------------------------------------------------
======================================================
*/
void CMMCG::GetGun(LPSTR t, LPCSTR pCode)
{
strcpy(wbf, pCode);
wbf[5] = 0;
MMCG *mp = m_bp;
int i;
for( i = 0; i < m_Cnt; i++, mp++ ){
if( !strcmp(mp->Code, wbf) ){
strcpy(t, mp->QTH);
return;
}
}
*t = 0;
}
/*#$%
======================================================
<EFBFBD>p<EFBFBD>s<EFBFBD>g<EFBFBD>̕<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>𓾂<EFBFBD>
------------------------------------------------------
cp : <EFBFBD>f<EFBFBD>[<EFBFBD>^<EFBFBD>̃|<EFBFBD>C<EFBFBD><EFBFBD><EFBFBD>^
------------------------------------------------------
QTH<EFBFBD>̃|<EFBFBD>C<EFBFBD><EFBFBD><EFBFBD>^
------------------------------------------------------
======================================================
*/
LPCSTR CMMCG::GetQTH(MMCG *mp)
{
char bf[512];
if( sys.m_WinFontCharset != SHIFTJIS_CHARSET ){
char qth[128];
strcpy(qth, mp->Key);
LPSTR t;
LPSTR p = qth;
while(*p){
p = StrDlm(t, p, ',');
}
if( strlen(mp->Code) == 6 ){
if( isalpha((unsigned char)LastC(mp->Code)) ){ /* <20><><EFBFBD><EFBFBD><EFBFBD>R<EFBFBD>[<5B>h */
strcpy(bf, t);
strcat(bf, ",");
GetGun(qth, mp->Code);
strcat(bf, qth);
}
else { /* <20><><EFBFBD>ߎw<DF8E><77><EFBFBD>s<EFBFBD>s */
strcpy(bf, t);
}
}
else { /* <20>s<EFBFBD><73><EFBFBD>{<7B><><EFBFBD><EFBFBD><EFBFBD>lj<EFBFBD> */
if( *t ){
sprintf( bf, "%s,%s", t, getprf(mp->Code));
}
else {
sprintf( bf, "%s", getprf(mp->Code));
}
}
}
else {
if( strlen(mp->Code) == 6 ){
if( isalpha((unsigned char)LastC(mp->Code)) ){ /* <20><><EFBFBD><EFBFBD><EFBFBD>R<EFBFBD>[<5B>h */
GetGun(bf, mp->Code);
strcat(bf, mp->QTH);
}
else { /* <20><><EFBFBD>ߎw<DF8E><77><EFBFBD>s<EFBFBD>s */
strcpy(bf, mp->QTH);
}
}
else { /* <20>s<EFBFBD><73><EFBFBD>{<7B><><EFBFBD><EFBFBD><EFBFBD>lj<EFBFBD> */
sprintf( bf, "%s%s", getprf(mp->Code), mp->QTH);
}
}
bf[MLQTH] = 0;
m_QTH = bf;
return m_QTH.c_str();
}
/*#$%
======================================================
<EFBFBD>f<EFBFBD>[<EFBFBD>^<EFBFBD>̌<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><EFBFBD><EFBFBD>i<EFBFBD><EFBFBD><EFBFBD>ׂāj
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
void CMMCG::FindAll(void)
{
MMCG *mp;
int i;
m_FindCnt = 0;
mp = m_bp;
for( i = 0; i < m_Cnt; i++, mp++ ){
if( isfind(mp->Code) ){
m_fp[m_FindCnt] = mp;
m_FindCnt++;
}
}
}
/*#$%
======================================================
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>f<EFBFBD>[<EFBFBD>^<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>݂<EFBFBD><EFBFBD>邩<EFBFBD><EFBFBD><EFBFBD>ׂ<EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
int CMMCG::isEnt(MMCG *mp)
{
int i;
for( i = 0; i < m_FindCnt; i++ ){
if( m_fp[i] == mp ) return 1;
}
return 0;
}
/*#$%
======================================================
<EFBFBD>f<EFBFBD>[<EFBFBD>^<EFBFBD>̌<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
void CMMCG::FindQTH(LPSTR pKey)
{
MMCG *mp;
int i;
int len, kj;
LPSTR t, p;
kj = _mbsbtype((unsigned char *)pKey, 0) == _MBC_LEAD ? 1 : 0;
if( kj ) NormQth(pKey);
len = strlen(pKey);
m_FindCnt = 0;
mp = m_bp;
char bf[256];
for( i = 0; i < m_Cnt; i++, mp++ ){
if( isfind(mp->Code) ){
if( kj ){
if( strstr(mp->QTH, pKey) != NULL ){
m_fp[m_FindCnt] = mp;
m_FindCnt++;
goto _nx;
}
}
strcpy(bf, mp->Key);
for( p = bf; *p; ){
p = StrDlm(t, p, ',');
if( (!strncmp(t, pKey, len)) || (m_sinc && (strstr(t, pKey)!=NULL)) ){
m_fp[m_FindCnt] = mp;
m_FindCnt++;
break;
}
}
_nx:;
}
}
}
/*#$%
======================================================
<EFBFBD>f<EFBFBD>[<EFBFBD>^<EFBFBD>̌<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
void CMMCG::FindNumb(LPSTR pKey)
{
MMCG *mp;
int i;
int len;
m_FindCnt = 0;
len = strlen(pKey);
mp = m_bp;
for( i = 0; i < m_Cnt; i++, mp++ ){
if( (!strncmp(mp->Code, pKey, len)) || (m_sinc && (strstr(mp->Code, pKey)!=NULL)) ){
m_fp[m_FindCnt] = mp;
m_FindCnt++;
}
}
}
/*#$%
======================================================
<EFBFBD>f<EFBFBD>[<EFBFBD>^<EFBFBD>̌<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
void CMMCG::Find(LPSTR p)
{
if( *p ){
if( isdigit(*(LPUSTR)p) ){
FindNumb(p);
}
else {
jstrupr(p);
if( chkspl(p) ) FindQTH(adjspl(p));
}
}
else {
FindAll();
}
}
#if 0
/*#$%
======================================================
<EFBFBD><EFBFBD><EFBFBD>`<EFBFBD>̈<EFBFBD><EFBFBD><EFBFBD><EFBFBD>m<EFBFBD>ۂ<EFBFBD><EFBFBD><EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
int allocdef(int blk)
{
if( cseg == 0 ){
if( (cseg=__malloc(blk))!=0 ){ /* <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̊m<CC8A><6D> */
return(NOERR);
}
return(ERR);
}
return(NOERR);
}
/*#$%
======================================================
<EFBFBD><EFBFBD><EFBFBD>`<EFBFBD>̈<EFBFBD><EFBFBD><EFBFBD><EFBFBD>J<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
void freedef(void)
{
if( cseg ){
__free(cseg);
cseg = 0;
}
}
#define XW 60
#define YW 16
/*#$%
======================================================
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>f<EFBFBD>[<EFBFBD>^<EFBFBD>̃<EFBFBD><EFBFBD>j<EFBFBD><EFBFBD><EFBFBD>[<EFBFBD>\<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>I<EFBFBD>[<EFBFBD>v<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
VEWP *opencc(void)
{
cc.xw = XW-1;
cc.yw = YW-1;
cc.x = (crt.hmax-cc.xw+2)/2;
cc.y = (crt.vmax-cc.yw+2)/2;
cc.yt = cc.y;
cc.ye = cc.y + cc.yw;
cc.tb = cc.cy = 0;
cc.xe = cc.x + cc.xw - 1;
if( (cc.vp=openvew(cc.x, cc.y, cc.x+cc.xw, cc.ye, _menuwcol))!=NULL ){
_dprintf( cc.x, cc.yt, " <20><><EFBFBD><EFBFBD>>" );
cc.x++;
cc.y++;
/* _dprintf( cc.x, cc.ye, "<ESC><3E><><EFBFBD>~, <CR><3E><><EFBFBD><EFBFBD>, <<3C><>><<3C><>><3E>I<EFBFBD><49>, <SPC><3E>ر, <HOME><3E>ر/ALL" );*/
_dprintf( cc.x, cc.ye, "<ESC><3E><><EFBFBD>~,<CR><3E><><EFBFBD><EFBFBD>,<SPC><3E>ر,<F1><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>@,<F2><HOME><3E>ر/ALL" );
}
return(cc.vp);
}
/*#$%
======================================================
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>f<EFBFBD>[<EFBFBD>^<EFBFBD>̃<EFBFBD><EFBFBD>j<EFBFBD><EFBFBD><EFBFBD>[<EFBFBD>\<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>N<EFBFBD><EFBFBD><EFBFBD>[<EFBFBD>Y<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
void closecc(void)
{
if( cc.vp ){
closevew(cc.vp);
cc.vp = NULL;
}
}
/*#$%
======================================================
<EFBFBD>P<EFBFBD>s<EFBFBD>̕\<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><EFBFBD>
------------------------------------------------------
y : <EFBFBD>\<EFBFBD><EFBFBD><EFBFBD>ʒu
tp: <EFBFBD>e<EFBFBD>[<EFBFBD>u<EFBFBD><EFBFBD><EFBFBD>ԍ<EFBFBD>
------------------------------------------------------
------------------------------------------------------
======================================================
*/
static void near dspone(int y, int tp)
{
CD cd;
int l;
uchar bf[60];
/*0123456789012345678901234567890123456789012345678901234567*/
/*250119__ <20><><EFBFBD><EFBFBD><EFBFBD>{__ <20><><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><73><EFBFBD>{<7B><><EFBFBD><EFBFBD>______ ABENO______________*/
/*12345678 12345678 12345678901234567890 1234567890123456789*/
_fills(cc.x, y, cc.xe, y);
if( tp < cc.fn ){
getdat(cc.ctbl[tp], &cd);
l = strlen(cd.code);
_dprintf(cc.x, y, "%-.8s", cd.code );
_dprintf(cc.x+9, y, "%-.8s", getprf(cd.code));
if( l == 6 ){
if( isalpha(lastc(cd.code)) ){ /* <20><><EFBFBD><EFBFBD> */
GetGun(bf, cd.code);
}
else { /* <20><><EFBFBD><EFBFBD> */
bf[0] = 0;
}
strcat(bf, cd.qth);
_dprintf(cc.x+18, y, "%-.20s", bf );
}
else {
_dprintf(cc.x+18, y, "%-.20s", cd.qth );
}
_dprintf(cc.x+39, y, "%-.19s", cd.key );
}
}
/*#$%
======================================================
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>f<EFBFBD>[<EFBFBD>^<EFBFBD>̕\<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
static void near dspcc(void)
{
int y, cp;
CD cd;
for( cp = cc.tb, y = cc.y; y < cc.ye; y++, cp++ ){
dspone(y, cp);
}
}
/*#$%
======================================================
<EFBFBD>J<EFBFBD>[<EFBFBD>\<EFBFBD><EFBFBD><EFBFBD>̕\<EFBFBD><EFBFBD>
------------------------------------------------------
sw : 0-OFF, 1-ON
------------------------------------------------------
------------------------------------------------------
======================================================
*/
static void near ecursor(int sw)
{
int at;
at = sw ? _menuccol : CRT_ATTR_NORMAL;
_afill(cc.x, cc.y + cc.cy, cc.xe, cc.y + cc.cy, at );
}
/*#$%
======================================================
<EFBFBD>J<EFBFBD>[<EFBFBD>\<EFBFBD><EFBFBD><EFBFBD>̃A<EFBFBD>b<EFBFBD>v
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
static void near cup(void)
{
if( cc.cy ){
cc.cy--;
}
else if( cc.tb ){
cc.tb--;
_scrdwn(cc.x, cc.y, cc.xe, cc.ye-1);
dspone(cc.y, cc.tb);
}
}
/*#$%
======================================================
<EFBFBD>J<EFBFBD>[<EFBFBD>\<EFBFBD><EFBFBD><EFBFBD>̃_<EFBFBD>E<EFBFBD><EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
static void near cdown(void)
{
if( (cc.tb + cc.cy) < (cc.fn - 1) ){
if( cc.cy < (cc.yw - 2) ){
cc.cy++;
}
else {
cc.tb++;
_scrup(cc.x, cc.y, cc.xe, cc.ye-1);
dspone(cc.ye-1, cc.tb+cc.cy);
}
}
}
/*#$%
======================================================
<EFBFBD>w<EFBFBD><EFBFBD><EFBFBD>ʒu<EFBFBD>ւ̂r<EFBFBD>d<EFBFBD>d<EFBFBD>j
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
static void near cdseek(int tp)
{
if( tp >= cc.fn ) tp = cc.fn - 1;
if( tp < 0 ) tp = 0;
cc.tb = tp;
cc.cy = 0;
dspcc();
}
/*#$%
======================================================
<EFBFBD>y<EFBFBD>[<EFBFBD>W<EFBFBD>A<EFBFBD>b<EFBFBD>v
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
static void near pup(void)
{
CD cd;
int tp, m;
tp = cc.tb + cc.cy;
getdat(cc.ctbl[tp], &cd);
m = atoin(cd.code, 2);
for( tp--; tp >= 0; tp-- ){
getdat(cc.ctbl[tp], &cd);
if( m != atoin(cd.code, 2) ){
cdseek(tp);
return;
}
}
cdseek(0);
}
/*#$%
======================================================
<EFBFBD>y<EFBFBD>[<EFBFBD>W<EFBFBD>_<EFBFBD>E<EFBFBD><EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
static void near pdown(void)
{
CD cd;
int tp, m;
tp = cc.tb + cc.cy;
getdat(cc.ctbl[tp], &cd);
m = atoin(cd.code, 2);
for( tp++; tp < cc.fn; tp++ ){
getdat(cc.ctbl[tp], &cd);
if( m != atoin(cd.code, 2) ){
cdseek(tp);
return;
}
}
cdseek(32767);
}
/*#$%
======================================================
<EFBFBD>o<EFBFBD>b<EFBFBD>t<EFBFBD>@<EFBFBD><EFBFBD><EFBFBD>e<EFBFBD>̕\<EFBFBD><EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
static void near dspbf(void)
{
_dprintf(cc.x+5, cc.yt, "%-40s", kbf );
_dprintf(cc.xe - 15, cc.yt, sinc ? "<EFBFBD>܂<EFBFBD>":"<EFBFBD>擪");
_dprintf(cc.xe - 10, cc.yt, (m_mask != -1) ? "%u<>ر" : "ALL ", m_mask );
_dprintf(cc.xe-4, cc.yt, "%4u", cc.fn );
}
/*#$%
======================================================
<EFBFBD>l<EFBFBD>l<EFBFBD>b<EFBFBD>f<EFBFBD>̏<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
void mmcg(void)
{
int c;
int xx;
loaddat();
if( nosel == 1 ){
strcpy(kbf, _dspopt(optnmb, &cc.sd));
findnosel(jstrupr(kbf));
setdat();
return;
}
if( opencc() == NULL ) return;
find1st();
if( nosel == 2 ){
if( cc.fn == 1 ) setdat();
closecc();
return;
}
dspcc();
xx = strlen(kbf);
_cursor(ON);
while(1){
dspbf();
_locate(cc.x+5 + xx, cc.yt);
ecursor(ON);
c = _bgetch();
ecursor(OFF);
switch(c){
case K_RU:
pdown();
break;
case K_RD:
pup();
break;
case K_UP:
cup();
break;
case K_DOWN:
cdown();
break;
case ESC:
goto _ex;
case K_CR:
setdat();
goto _ex;
case K_BS:
if( xx ){
xx--;
if( xx && (_ischrtyp(kbf, xx)==2) ) xx--;
kbf[xx] = 0;
find(kbf);
dspcc();
}
break;
case ' ':
kbf[0] = 0;
xx = 0;
findall();
dspcc();
break;
case K_F1:
sinc = sinc ? 0 : 1;
find(kbf);
dspcc();
break;
case K_F2:
case K_HOME:
if( mask == -1 ){
setmask();
}
else {
mask = -1;
}
find(kbf);
dspcc();
break;
default:
if( (c > 0x0020) && (c <= 0x00ff) ){
if( xx < 40 ){
kbf[xx] = c;
xx++;
kbf[xx] = 0;
if( _ischrtyp(kbf, xx-1) != 1 ){
finds(kbf);
}
dspcc();
}
}
break;
}
}
_ex:;
closecc();
}
/*#$%
======================================================
<EFBFBD>f<EFBFBD>[<EFBFBD>^<EFBFBD>̌<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><EFBFBD><EFBFBD>i<EFBFBD><EFBFBD><EFBFBD>ׂāj
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
void findall(void)
{
CD cd;
int cp, np;
cc.tb = cc.cy = cc.fn = 0;
for( cp = 0; cp < cc.cwp; cp = np){
np = getdat(cp, &cd);
if( isfind(cd.code) ){
cc.ctbl[cc.fn] = cp;
cc.fn++;
if( cc.fn >= CTMAX ) break;
}
}
}
/*#$%
======================================================
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>f<EFBFBD>[<EFBFBD>^<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>݂<EFBFBD><EFBFBD>邩<EFBFBD><EFBFBD><EFBFBD>ׂ<EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
int isEnt(int n)
{
int i;
for( i = 0; i < cc.fn; i++ ){
if( cc.ctbl[i] == n ){
return(ON);
}
}
return(OFF);
}
/*#$%
======================================================
<EFBFBD>f<EFBFBD>[<EFBFBD>^<EFBFBD>̌<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
void findqth(uchar *key)
{
CD cd;
int cp, np;
int len, kj;
uchar *t, *p;
if( (kj = iskanji(*key))!=0 ) NormQth(key);
len = strlen(key);
cc.tb = cc.cy = cc.fn = 0;
for( cp = 0; cp < cc.cwp; cp = np){
np = getdat(cp, &cd);
if( isfind(cd.code) ){
if( kj ){
if( jstrstr(cd.qth, key) != NULL ){
cc.ctbl[cc.fn] = cp;
cc.fn++;
goto _nx;
}
}
for( p = cd.key; *p; ){
p = strdm(&t, p);
if( (!strncmp(t, key, len)) || (sinc && (strstr(t, key)!=NULL)) ){
cc.ctbl[cc.fn] = cp;
cc.fn++;
break;
}
}
_nx:;
if( cc.fn >= CTMAX ) break;
}
if( _bkbhit() ) break;
}
}
/*#$%
======================================================
<EFBFBD>f<EFBFBD>[<EFBFBD>^<EFBFBD>̌<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
void findqths(uchar *key)
{
CD cd;
int cp;
int len, fn, nn, f, kj;
uchar *t, *p;
if( (kj = iskanji(*key))!=0 ){
if( NormQth(key) ){
findqth(key);
return;
}
}
len = strlen(key);
fn = cc.fn;
cc.tb = cc.cy = cc.fn = 0;
f = OFF;
if( lastc(key) == '\\' ){
f = ON;
*lastp(key) = 0;
}
for( nn = 0; nn < fn; nn++){
cp = cc.ctbl[nn];
getdat(cp, &cd);
if( kj ){
if( jstrstr(cd.qth, key) != NULL ){
cc.ctbl[cc.fn] = cp;
cc.fn++;
goto _nx;
}
}
for( p = cd.key; *p; ){
p = strdm(&t, p);
if( f ){
if( (!strcmp(t, key)) || (sinc && (LastMatch(t,key))) ){
cc.ctbl[cc.fn] = cp;
cc.fn++;
break;
}
}
else {
if( (!strncmp(t, key, len)) || (sinc && (strstr(t, key)!=NULL)) ){
cc.ctbl[cc.fn] = cp;
cc.fn++;
break;
}
}
}
_nx:;
if( cc.fn >= CTMAX ) break;
}
}
/*#$%
======================================================
<EFBFBD>f<EFBFBD>[<EFBFBD>^<EFBFBD>̌<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
void findnmb(uchar *key)
{
CD cd;
int cp, np;
int len;
cc.tb = cc.cy = cc.fn = 0;
len = strlen(key);
for( cp = 0; cp < cc.cwp; cp = np){
np = getdat(cp, &cd);
if( (!strncmp(cd.code, key, len)) || (sinc && (strstr(cd.code, key)!=NULL)) ){
cc.ctbl[cc.fn] = cp;
cc.fn++;
if( cc.fn >= CTMAX ) break;
}
}
}
/*#$%
======================================================
<EFBFBD>f<EFBFBD>[<EFBFBD>^<EFBFBD>̌<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
void findnmbs(uchar *key)
{
CD cd;
int cp;
int len, fn, nn, f;
fn = cc.fn;
cc.tb = cc.cy = cc.fn = 0;
f = OFF;
if( lastc(key) == '\\' ){
f = ON;
*lastp(key) = 0;
}
len = strlen(key);
for( nn = 0; nn < fn; nn++){
cp = cc.ctbl[nn];
getdat(cp, &cd);
if( f ){
if( (!strcmp(cd.code, key)) || (sinc && LastMatch(cd.code, key)) ){
cc.ctbl[cc.fn] = cp;
cc.fn++;
}
}
else {
if( (!strncmp(cd.code, key, len)) || (sinc && (strstr(cd.code, key)!=NULL)) ){
cc.ctbl[cc.fn] = cp;
cc.fn++;
}
}
}
if( f ) strcat(key, "\\");
}
/*#$%
======================================================
<EFBFBD>f<EFBFBD>[<EFBFBD>^<EFBFBD>̌<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
void findnosel(uchar *key)
{
CD cd;
int cp, np;
cc.tb = cc.cy = cc.fn = 0;
for( cp = 0; cp < cc.cwp; cp = np){
np = getdat(cp, &cd);
if( !strcmp(cd.code, key) ){
cc.ctbl[cc.fn] = cp;
cc.fn++;
break;
}
}
}
/*#$%
======================================================
<EFBFBD>f<EFBFBD>[<EFBFBD>^<EFBFBD>̌<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
void find(uchar *p)
{
dspbf();
if( *p ){
if( isdigit(*p) ){
findnmb(p);
}
else {
jstrupr(p);
if( chkspl(p) ) findqth(adjspl(p));
}
}
else {
findall();
}
}
/*#$%
======================================================
<EFBFBD>f<EFBFBD>[<EFBFBD>^<EFBFBD>̌<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
void finds(uchar *p)
{
dspbf();
if( *p ){
if( isdigit(*p) ){
findnmbs(p);
if( !cc.fn ) findnmb(p);
}
else {
jstrupr(p);
if( chkspl(p) ) findqths(adjspl(p));
}
}
else {
findall();
}
}
/*#$%
======================================================
<EFBFBD>ŏ<EFBFBD><EFBFBD>̌<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
void find1st(void)
{
uchar *p;
uchar far *s;
setmask();
kbf[0] = 0;
if( setmac ){
if( dtname[0] && (ishex(dtname)==NOERR) ){
s = (uchar far *)htoln(dtname, -1);
for( p = kbf; *s; s++, p++ ){
*p = *s;
}
*p = 0;
}
}
else {
p = _dspopt(optnmb, &cc.sd);
if( *p && isdigit(*p) ){
strcpy(kbf, p);
}
else if( cc.sd.qth[0] ){
strcpy(kbf, cc.sd.qth);
}
}
find(jstrupr(kbf));
}
/*#$%
======================================================
<EFBFBD>f<EFBFBD>[<EFBFBD>^<EFBFBD><EFBFBD><EFBFBD>Z<EFBFBD>b<EFBFBD>g<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
------------------------------------------------------
------------------------------------------------------
------------------------------------------------------
======================================================
*/
void setdat(void)
{
CD cd;
uchar far *t;
uchar *p;
if( cc.fn ){
if( !dtname[0] ) return;
getdat(cc.ctbl[cc.tb+cc.cy], &cd);
if( setmac ){
if( ishex(dtname)!=NOERR ) return;
t = (uchar far *)htoln(dtname,-1);
if( ocpy ){
for( p = cd.code; *p; p++, t++ ){
*t = *p;
}
*t = 0;
}
if( qcpy ){
for( p = getqth(&cd); *p; p++, t++ ){
*t = *p;
}
*t = 0;
}
}
else {
if( ocpy ) strcpy(_ptropt(optnmb, &cc.sd), cd.code);
if( qcpy ) strcpy(cc.sd.qth, getqth(&cd));
savedat();
}
}
}
/*#$%
================================================================
<EFBFBD>P<EFBFBD>s<EFBFBD>̃A<EFBFBD>X<EFBFBD>L<EFBFBD>[<EFBFBD>Z<EFBFBD>[<EFBFBD>u<EFBFBD>̏<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><EFBFBD>
----------------------------------------------------------------
fp : <EFBFBD>t<EFBFBD>@<EFBFBD>C<EFBFBD><EFBFBD><EFBFBD>|<EFBFBD>C<EFBFBD><EFBFBD><EFBFBD>^
sp : <EFBFBD>f<EFBFBD>[<EFBFBD>^<EFBFBD>̃|<EFBFBD>C<EFBFBD><EFBFBD><EFBFBD>^
----------------------------------------------------------------
ERR
----------------------------------------------------------------
================================================================
*/
void _sputdat(uchar *bf, SD *sp)
{
sinit(bf);
sputf("\042%s\042,\042%s\042,\042%s\042,\042%s\042,\042%s\042,\042%s\042,",
_strydate(sp->year, sp->date), _strtimes(sp->btime), sp->call, sp->ur, sp->my, _strband(sp->band, sp->fq));
sputf("\042%s\042,\042%s\042,\042%s\042,\042%s\042,\042%s\042,\042%s\042,",
_strmode(sp->mode), sp->pow, sp->name, sp->qth, sp->rem, sp->qsl );
sputf("\042%s\042,\042%.1s\042,\042%.1s\042,\042%.1s\042,\042%u\042,", _strtime(sp->etime), &sp->send, &sp->recv, &sp->cq, sp->env);
sputf("\042%s\042,\042%s\042,", sp->opt1, sp->opt2 );
sputf("\042%s\042,", _dspopt(2, sp));
sputf("\042%s\042", _dspopt(3, sp));
}
/*#$%
================================================================
<EFBFBD>P<EFBFBD>s<EFBFBD>̃A<EFBFBD>X<EFBFBD>L<EFBFBD>[<EFBFBD>Z<EFBFBD>[<EFBFBD>u<EFBFBD>̏<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><EFBFBD>
----------------------------------------------------------------
fp : <EFBFBD>t<EFBFBD>@<EFBFBD>C<EFBFBD><EFBFBD><EFBFBD>|<EFBFBD>C<EFBFBD><EFBFBD><EFBFBD>^
sp : <EFBFBD>f<EFBFBD>[<EFBFBD>^<EFBFBD>̃|<EFBFBD>C<EFBFBD><EFBFBD><EFBFBD>^
----------------------------------------------------------------
ERR
----------------------------------------------------------------
================================================================
*/
int _fputdat(FILE *fp, SD *sp)
{
_sputdat(hbf, sp);
fputs(hbf, fp);
fputs("\r\n", fp);
return(ferror(fp));
}
/*#$%
================================================================
<EFBFBD>A<EFBFBD>X<EFBFBD>L<EFBFBD>[<EFBFBD>f<EFBFBD>[<EFBFBD>^<EFBFBD><EFBFBD><EFBFBD>o<EFBFBD>^<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
----------------------------------------------------------------
p : <EFBFBD>o<EFBFBD>b<EFBFBD>t<EFBFBD>@<EFBFBD>̃|<EFBFBD>C<EFBFBD><EFBFBD><EFBFBD>^
----------------------------------------------------------------
ERR
----------------------------------------------------------------
================================================================
*/
int _aputdat(uchar *p, SD *sp)
{
uchar *t;
int y, m, d;
_fillmem(sp, sizeof(SD), 0);
p = strdm(&t, p); /* DATE */
if( sscanf(t, "%u.%u.%u", &y, &m, &d )!=3 ) return(ERR);
sp->year = y;
sp->date = (m * 100) + d;
p = strdm(&t, p); /* BGN */
if( sscanf(t, "%u.%u", &d, &y) != 2 ){
d = atoin(t, -1);
y = 0;
}
m = d / 100;
d = d % 100;
y /= 2;
sp->btime = (((m * 60) + d) * 30) + y;
p = strdm(&t, p); /* CALL */
strcpy(sp->call, t);
p = strdm(&t, p); /* UR */
strcpy(sp->ur, t);
p = strdm(&t, p); /* MY */
strcpy(sp->my, t);
p = strdm(&t, p); /* BAND */
sp->band = _bandno(&sp->fq, t);
p = strdm(&t, p); /* MODE */
sp->mode = _modeno(t);
p = strdm(&t, p); /* POW */
strcpy(sp->pow, t);
p = strdm(&t, p); /* NAME */
strcpy(sp->name, t);
p = strdm(&t, p); /* QTH */
strcpy(sp->qth, t);
p = strdm(&t, p); /* REM */
strcpy(sp->rem, t);
p = strdm(&t, p); /* QSL */
strcpy(sp->qsl, t);
p = strdm(&t, p); /* ETIME*/
d = atoin(t, -1);
m = d / 100;
d = d % 100;
sp->etime = ((m * 60) + d) * 30;
p = strdm(&t, p); /* S */
sp->send = *t;
p = strdm(&t, p); /* R */
sp->recv = *t;
p = strdm(&t, p); /* M */
sp->cq = *t;
p = strdm(&t, p); /* ENV */
sp->env = atoin(t, -1);
p = strdm(&t, p); /* OPT1 */
strcpy(sp->opt1, t);
p = strdm(&t, p); /* OPT2 */
strcpy(sp->opt2, t);
p = strdm(&t, p); /* USR1 */
if( *t ) strcpy(_ptropt(2,sp), t);
p = strdm(&t, p); /* USR2 */
if( *t ) strcpy(_ptropt(3,sp), t);
return(NOERR);
}
/*#$%
================================================================
<EFBFBD><EFBFBD><EFBFBD>n<EFBFBD>f<EFBFBD>[<EFBFBD>^<EFBFBD><EFBFBD><EFBFBD>ǂݍ<EFBFBD><EFBFBD><EFBFBD>
----------------------------------------------------------------
----------------------------------------------------------------
----------------------------------------------------------------
================================================================
*/
int loaddat(void)
{
int r;
FILE *fp;
r = ERR;
_fillmem(&cc.sd, sizeof(SD), 0);
if( !dtname[0] ) return(NOERR);
if( setmac ) return(NOERR);
if( (fp = fopen(dtname, "rt"))!=NULL ){
if( (fgets(hbf, 256, fp))!=NULL ){
cliplf(hbf);
_aputdat(hbf, &cc.sd);
r = NOERR;
}
fclose(fp);
}
return(r);
}
/*#$%
================================================================
<EFBFBD>w<EFBFBD><EFBFBD><EFBFBD>̃f<EFBFBD>[<EFBFBD>^<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
----------------------------------------------------------------
----------------------------------------------------------------
----------------------------------------------------------------
================================================================
*/
void savedat(void)
{
FILE *fp;
if( (fp = fopen(dtname, "wb"))!=NULL ){
_fputdat(fp, &cc.sd);
fclose(fp);
}
}
#endif
Reference in a new issue Copy permalink