static int aux_close (lua_State *L) {
ZZIP_FILE *f = tointernalfile(L, 1);
int ok = (zzip_fclose(f) == 0);
if (ok)
*(ZZIP_FILE **)lua_touserdata(L, 1) = NULL; /* mark file as closed */
return ok;
}
void msDBFClose(DBFHandle psDBF)
{
#ifdef SHAPELIB_DISABLED
/* -------------------------------------------------------------------- */
/* Write out header if not already written. */
/* -------------------------------------------------------------------- */
if( psDBF->bNoHeader )
writeHeader( psDBF );
flushRecord( psDBF );
/* -------------------------------------------------------------------- */
/* Update last access date, and number of records if we have */
/* write access. */
/* -------------------------------------------------------------------- */
if( psDBF->bUpdated )
{
uchar abyFileHeader[32];
fseek( psDBF->fp, 0, 0 );
fread( abyFileHeader, 32, 1, psDBF->fp );
abyFileHeader[1] = 95; /* YY */
abyFileHeader[2] = 7; /* MM */
abyFileHeader[3] = 26; /* DD */
abyFileHeader[4] = psDBF->nRecords % 256;
abyFileHeader[5] = (psDBF->nRecords/256) % 256;
abyFileHeader[6] = (psDBF->nRecords/(256*256)) % 256;
abyFileHeader[7] = (psDBF->nRecords/(256*256*256)) % 256;
fseek( psDBF->fp, 0, 0 );
fwrite( abyFileHeader, 32, 1, psDBF->fp );
}
#endif /* SHAPELIB_DISABLED */
/* -------------------------------------------------------------------- */
/* Close, and free resources. */
/* -------------------------------------------------------------------- */
if (psDBF->zfp) {
zzip_fclose( psDBF->zfp );
psDBF->zfp = 0;
}
if( psDBF->panFieldOffset != NULL )
{
free( psDBF->panFieldOffset );
free( psDBF->panFieldSize );
free( psDBF->panFieldDecimals );
free( psDBF->pachFieldType );
}
free( psDBF->pszHeader );
free( psDBF->pszCurrentRecord );
free(psDBF->pszStringField);
free( psDBF );
}
PSAR_ENTRY *LPP_PsarDecoder_getEntry(const char *filename)
{
if(!initialized) return NULL;
zzip_strings_t ext[] = {"", 0};
ZZIP_FILE *fd = zzip_open_ext_io(filename, O_RDONLY | (0x0), ZZIP_ONLYZIP, ext, &psar_handlers);
if(fd == NULL)
{
#ifdef DEBUG
dwrite_output("Function %s Line %d : Cannot open the file '%s' for read.\n", __FUNCTION__, __LINE__, filename);
#endif
return NULL;
}
PSAR_ENTRY *entry = (PSAR_ENTRY*)malloc(sizeof(PSAR_ENTRY));
if(!entry)
{
#ifdef DEBUG
dwrite_output("Function %s Line %d : Cannot allocate 'entry' to memory.\n", __FUNCTION__, __LINE__);
#endif
zzip_close(fd);
return NULL;
}
memset(entry, 0, sizeof(PSAR_ENTRY));
zzip_seek(fd, 0, SEEK_END);
entry->len = zzip_tell(fd);
zzip_rewind(fd);
if(entry->len <= 0)
{
free(entry);
zzip_fclose(fd);
#ifdef DEBUG
dwrite_output("Function %s Line %d : file len is lower than zero.\n", __FUNCTION__, __LINE__);
#endif
return NULL;
}
entry->data = (u8*)malloc(entry->len);
zzip_fread(entry->data, 1, entry->len, fd);
zzip_fclose(fd);
return(entry);
}
void RasterMapCache::Close(void) {
terrain_valid = false;
if(fpTerrain) {
if (ref_count==1) {
zzip_fclose(fpTerrain);
fpTerrain = NULL;
}
}
}
void CloseAirfieldDetails() {
if (zAirfieldDetails == NULL) {
return;
}
// file was OK, so save the registry
ContractLocalPath(szAirfieldDetailsFile);
_tcscpy(szAirfieldFile,szAirfieldDetailsFile);
zzip_fclose(zAirfieldDetails);
zAirfieldDetails = NULL;
};
bool
ReadAirspace(AirspaceDatabase &airspace_database, const char *path)
{
ZZIP_FILE *fp = zzip_fopen(path, "rt");
if (fp == NULL)
return false;
ReadAirspace(airspace_database, fp);
zzip_fclose(fp);
return true;
}
bool
RasterWeather::ExistsItem(const TCHAR* name, unsigned time_index) const
{
TCHAR rasp_filename[MAX_PATH];
GetFilename(rasp_filename, name, time_index);
ZZIP_FILE *zf = zzip_fopen(NarrowPathName(rasp_filename), "rb");
if (zf == NULL)
return false;
zzip_fclose(zf);
return true;
}
bool
ReadWayPointZipFile(const TCHAR *path, WayPointList &way_points,
RasterTerrain &terrain)
{
char path_ascii[MAX_PATH];
ZZIP_FILE *fp;
unicode2ascii(path, path_ascii, sizeof(path_ascii));
fp = zzip_fopen(path_ascii, "rt");
if (fp == NULL)
return false;
ReadWayPointFile(fp, path, way_points, terrain);
zzip_fclose(fp);
return true;
}
bool RasterMapCache::Open(const TCHAR* zfilename) {
terrain_valid = false;
if (_tcslen(zfilename)<=0) {
return false;
}
if (!fpTerrain) {
fpTerrain = zzip_fopen(zfilename, "rb");
if (!fpTerrain) {
return false;
}
if (!zzip_file_real(fpTerrain)) {
// don't allow cache mode on files in zip, because way too slow
zzip_fclose(fpTerrain);
fpTerrain = NULL; // was false
return false;
};
}
DWORD dwBytesRead;
dwBytesRead = zzip_fread(&TerrainInfo, 1, sizeof(TERRAIN_INFO),
fpTerrain);
if (dwBytesRead != sizeof(TERRAIN_INFO)) {
Close();
return false;
}
if (!TerrainInfo.StepSize) {
Close();
return false;
}
terrain_valid = true;
ClearTerrainCache();
return terrain_valid;
}
void LKReadLanguageFile() {
static bool doinit=true;
static TCHAR oldLang[4];
if (doinit) {
_tcscpy(LKLangSuffix,_T(""));
_tcscpy(oldLang,_T("XXX"));
doinit=false;
}
bool english=false;
TCHAR szFile1[MAX_PATH] = TEXT("\0");
_tcscpy(LKLangSuffix,_T(""));
GetRegistryString(szRegistryLanguageFile, szFile1, MAX_PATH);
tryeng:
if (_tcslen(szFile1)==0) {
_tcscpy(szFile1,_T("%LOCAL_PATH%\\\\_Language\\ENGLISH.LNG"));
english=true;
}
ExpandLocalPath(szFile1);
// SetRegistryString(szRegistryLanguageFile, TEXT("\0")); // ?
ZZIP_FILE *langFile = zzip_fopen(szFile1, "rb");
if (langFile == NULL) {
if (english) {
StartupStore(_T("--- CRITIC, NO ENGLISH LANGUAGE FILES!%s"),NEWLINE);
// critic point, no default language! BIG PROBLEM here!
for (unsigned short i=0; i<MAX_MESSAGES; i++) {
LKMessages[i]=NULL;
LKMessagesIndex[i]=-1;
}
return;
} else {
StartupStore(_T("--- NO LANGUAGE FILE FOUND <%s>, retrying with ENGlish!%s"),szFile1,NEWLINE);
_tcscpy(szFile1,_T(""));
goto tryeng;
}
return;
}
bool found=false;
TCHAR sTmp[200];
TCHAR mylang[30];
while (ReadULine(langFile, sTmp, countof(sTmp))) {
if (_tcslen(sTmp)<3) continue;
if ((sTmp[0]=='L')&&(sTmp[1]=='=')) {
_tcscpy(mylang,&sTmp[2]);
for (unsigned short i=0; i<_tcslen(mylang); i++) {
if (mylang[i]=='\r' || mylang[i]=='\n') {
mylang[i]='\0';
break;
}
}
found=true;
break;
}
}
if (found) {
if (_tcslen(mylang)>3) mylang[3]='\0';
_tcscpy(LKLangSuffix,mylang);
}
if (_tcscmp(oldLang,LKLangSuffix)!=0) {
if ( !LKLoadMessages(false) ) {
// force reload of english
if (_tcscmp(_T("ENG"),LKLangSuffix) == 0 ) {
StartupStore(_T("... CRITICAL, no english langauge available!%s"),NEWLINE);
} else {
StartupStore(_T("... LoadText failed, fallback to english language\n"));
_tcscpy(szFile1,_T("%LOCAL_PATH%\\\\_Language\\ENGLISH.LNG"));
SetRegistryString(szRegistryLanguageFile, szFile1);
_tcscpy(LKLangSuffix,_T("ENG"));
LKLoadMessages(false);
}
} else {
_tcscpy(oldLang,mylang);
// Now overload english messages filling gaps in translations
// only if current lang is not english of course: no reason to load it twice
if (_tcscmp(_T("ENG"),LKLangSuffix) != 0 ) {
_tcscpy(LKLangSuffix,_T("ENG"));
LKLoadMessages(true);
_tcscpy(LKLangSuffix,oldLang);
}
}
}
zzip_fclose(langFile);
return;
}
ZipSource::~ZipSource()
{
if (file != NULL)
zzip_fclose(file);
}
void TopologyStore::Open() {
StartupStore(TEXT("OpenTopology\n"));
XCSoarInterface::CreateProgressDialog(gettext(TEXT("Loading Topology File...")));
Poco::ScopedRWLock protect(lock, true);
// Start off by getting the names and paths
static TCHAR szOrigFile[MAX_PATH] = TEXT("\0");
static TCHAR szFile[MAX_PATH] = TEXT("\0");
static TCHAR Directory[MAX_PATH] = TEXT("\0");
for (int z=0; z<MAXTOPOLOGY; z++) {
topology_store[z] = 0;
}
GetRegistryString(szRegistryTopologyFile, szFile, MAX_PATH);
ExpandLocalPath(szFile);
_tcscpy(szOrigFile,szFile); // make copy of original
ContractLocalPath(szOrigFile);
// remove it in case it causes a crash (will restore later)
SetRegistryString(szRegistryTopologyFile, TEXT("\0"));
if (_tcslen(szFile)==0) {
// file is blank, so look for it in a map file
static TCHAR szMapFile[MAX_PATH] = TEXT("\0");
GetRegistryString(szRegistryMapFile, szMapFile, MAX_PATH);
if (_tcslen(szMapFile)==0) {
return;
}
ExpandLocalPath(szMapFile);
// Look for the file within the map zip file...
_tcscpy(Directory,szMapFile);
_tcscat(Directory,TEXT("/"));
szFile[0]=0;
_tcscat(szFile,Directory);
_tcscat(szFile,TEXT("topology.tpl"));
} else {
ExtractDirectory(Directory,szFile);
}
// Ready to open the file now..
static ZZIP_FILE* zFile;
char zfilename[MAX_PATH];
unicode2ascii(szFile, zfilename, MAX_PATH);
zFile = zzip_fopen(zfilename, "rt");
if (!zFile) {
StartupStore(TEXT("No topology file\n%s\n"), szFile);
return;
}
TCHAR ctemp[80];
TCHAR TempString[READLINE_LENGTH+1];
TCHAR ShapeName[50];
double ShapeRange;
long ShapeIcon;
long ShapeField;
TCHAR wShapeFilename[MAX_PATH];
TCHAR *Stop;
int numtopo = 0;
char ShapeFilename[MAX_PATH];
while(ReadString(zFile,READLINE_LENGTH,TempString)) {
if((_tcslen(TempString) > 0)
&& (_tcsstr(TempString,TEXT("*")) != TempString)) // Look For Comment
{
BYTE red, green, blue;
// filename,range,icon,field
// File name
PExtractParameter(TempString, ctemp, 0);
_tcscpy(ShapeName, ctemp);
_tcscpy(wShapeFilename, Directory);
_tcscat(wShapeFilename,ShapeName);
_tcscat(wShapeFilename,TEXT(".shp"));
#ifdef _UNICODE
WideCharToMultiByte( CP_ACP, 0, wShapeFilename,
_tcslen(wShapeFilename)+1,
ShapeFilename,
200, NULL, NULL);
#else
strcpy(ShapeFilename, wShapeFilename);
#endif
// Shape range
PExtractParameter(TempString, ctemp, 1);
ShapeRange = StrToDouble(ctemp,NULL);
// Shape icon
PExtractParameter(TempString, ctemp, 2);
ShapeIcon = _tcstol(ctemp, &Stop, 10);
// Shape field for text display
// sjt 02NOV05 - field parameter enabled
PExtractParameter(TempString, ctemp, 3);
if (_istalnum(ctemp[0])) {
ShapeField = _tcstol(ctemp, &Stop, 10);
ShapeField--;
} else {
ShapeField = -1;
}
// Red component of line / shading colour
PExtractParameter(TempString, ctemp, 4);
red = (BYTE)_tcstol(ctemp, &Stop, 10);
// Green component of line / shading colour
PExtractParameter(TempString, ctemp, 5);
green = (BYTE)_tcstol(ctemp, &Stop, 10);
// Blue component of line / shading colour
PExtractParameter(TempString, ctemp, 6);
blue = (BYTE)_tcstol(ctemp, &Stop, 10);
if ((red==64)
&& (green==96)
&& (blue==240)) {
// JMW update colours to ICAO standard
red = 85; // water colours
green = 160;
blue = 255;
}
if (ShapeField<0) {
Topology* newtopo;
newtopo = new Topology(ShapeFilename, Color(red,green,blue));
topology_store[numtopo] = newtopo;
} else {
TopologyLabel *newtopol;
newtopol = new TopologyLabel(ShapeFilename,
Color(red,green,blue),
ShapeField);
topology_store[numtopo] = newtopol;
}
if (ShapeIcon!=0)
topology_store[numtopo]->loadBitmap(ShapeIcon);
topology_store[numtopo]->scaleThreshold = ShapeRange;
numtopo++;
}
}
zzip_fclose(zFile);
// file was OK, so save it
SetRegistryString(szRegistryTopologyFile, szOrigFile);
}
void ReadWayPoints(void)
{
#if TESTBENCH
StartupStore(TEXT(". ReadWayPoints%s"),NEWLINE);
#endif
TCHAR szFile1[MAX_PATH] = TEXT("\0");
TCHAR szFile2[MAX_PATH] = TEXT("\0");
ZZIP_FILE *fp=NULL;
LockTaskData();
CloseWayPoints(); // BUGFIX 091104 duplicate waypoints entries
InitVirtualWaypoints(); // 091103
_tcscpy(szFile1,szWaypointFile);
_tcscpy(szWaypointFile,_T(""));
if (_tcslen(szFile1)>0) {
ExpandLocalPath(szFile1);
fp = openzip(szFile1, "rt");
} else {
}
if(fp != NULL)
{
globalFileNum = 0;
WpFileType[1]=ReadWayPointFile(fp, szFile1);
zzip_fclose(fp);
fp = 0;
// read OK, so set the registry to the actual file name
ContractLocalPath(szFile1);
_tcscpy(szWaypointFile,szFile1);
} else {
StartupStore(TEXT("--- No waypoint file 1%s"),NEWLINE);
}
// read additional waypoint file
// reset to empty until we verified it is existing
_tcscpy(szFile2,szAdditionalWaypointFile);
_tcscpy(szAdditionalWaypointFile,_T(""));
if (_tcslen(szFile2)>0){
ExpandLocalPath(szFile2);
fp = openzip(szFile2, "rt");
if(fp != NULL){
globalFileNum = 1;
WpFileType[2]=ReadWayPointFile(fp, szFile2);
zzip_fclose(fp);
fp = NULL;
// read OK, so set the registry to the actual file name
ContractLocalPath(szFile2);
_tcscpy(szAdditionalWaypointFile,szFile2);
} else {
StartupStore(TEXT("--- No waypoint file 2%s"),NEWLINE);
}
}
// each time we load WayPoint, we need to init WaypointCalc !!
InitWayPointCalc();
UnlockTaskData();
}
/**
* @brief Load language MSG file into memory
*
* @param fillup Switch value:
* - false - load from scratch removing anything existing
* - true - load over existing messages, adding only missing items filling up gaps
*
* @return @c false if language file problem, in this case english is reloaded from calling function
*/
bool LKLoadMessages(bool fillup) {
TCHAR sFile[MAX_PATH];
TCHAR sPath[MAX_PATH];
TCHAR suffix[20];
#if DEBUG_GETTEXT
int maxsize=0;
#endif
static bool doinit=true;
if (doinit) {
std::fill(std::begin(LKMessages), std::end(LKMessages), (TCHAR*)NULL);
doinit=false;
} else {
if (!fillup) {
// init data when reloading language files or changing it
// but not in fillup mode of course
LKUnloadMessage();
}
}
LocalPath(sPath,_T(LKD_LANGUAGE));
_tcscpy(suffix,_T("_MSG.TXT"));
_stprintf(sFile,_T("%s%s%s%s"), sPath, _T(DIRSEP), LKLangSuffix, suffix);
ZZIP_FILE *hFile = openzip(sFile, "rt");
if (hFile == NULL) {
StartupStore(_T("... LoadText Missing Language File: <%s>%s"),sFile,NEWLINE);
return false;
} else {
if (fillup)
StartupStore(_T(". Language fillup load file: <%s>%s"),sFile,NEWLINE);
else
StartupStore(_T(". Language load file: <%s>%s"),sFile,NEWLINE);
}
// search for beginning of code index, in the range _@M1_ _@M9999_
TCHAR sTmp[300];
TCHAR scapt[MAX_MESSAGE_SIZE+1];
TCHAR scaptraw[MAX_MESSAGE_SIZE+1];
bool havewarned=false;
while (ReadULine(hFile, sTmp, array_size(sTmp))) {
unsigned int slen=_tcslen(sTmp); // includes cr or lf or both
if ( (slen<9) || (sTmp[0]!='_') || (sTmp[1]!='@') || (sTmp[2]!='M') ) {
#if DEBUG_GETTEXT
if(slen>0 && sTmp[0]!='#') {
StartupStore(_T(".... MSG_ENG missing _@M line <%s>\n"),sTmp);
}
#endif
continue;
}
// get the item index number, quick conversion from unicode
unsigned short inumber = 0;
for (unsigned int i = 0; i < slen - 4 && isdigit(sTmp[3 + i]); i++) {
inumber = (inumber * 10) + ((char)sTmp[3 + i] - '0');
}
if (inumber >=MAX_MESSAGES) {
if (!havewarned) {
StartupStore(_T("...... ERROR LOADING NON-COMPATIBLE MSG FILE!%s"),NEWLINE);
havewarned=true;
}
StartupStore(_T("...... MSG token <%d> over limit! <%s>%s"),inumber,sTmp,NEWLINE);
continue;
}
int start=0;
for (unsigned i=3; i<slen; i++) {
if (sTmp[i]=='\"') {
start=i;
break;
}
}
int end=0;
if (start==0) {
#if DEBUG_GETTEXT
StartupStore(_T(".... MSG_ENG no start\n"));
#endif
continue;
}
for (unsigned i=start+1; i<slen; i++) {
if (sTmp[i]=='\"') {
sTmp[i]='\0';
end=i;
break;
}
}
if (end==0) {
#if DEBUG_GETTEXT
StartupStore(_T(".... MSG_ENG no end <%s> start=%d\n"),sTmp,start);
#endif
continue;
}
int newlen;
newlen=_tcslen(&sTmp[start+1]);
if (newlen>MAX_MESSAGE_SIZE) {
#if DEBUG_GETTEXT
StartupStore(_T(".... MSG_ENG caption too big, len=%d\n"),newlen);
#endif
continue;
}
if (newlen==0) {
#if DEBUG_GETTEXT
StartupStore(_T(".... MSG_ENG TOKEN # %d : caption is empty, null text.\n"),inumber);
#endif
continue;
}
#if DEBUG_GETTEXT
if (newlen>maxsize) maxsize=newlen;
#endif
// transcode special charcaters while loading from file
TCHAR tcode;
bool donetcode;
_tcscpy(scaptraw,&sTmp[start+1]);
unsigned j=0;
for (unsigned i=0; i<_tcslen(scaptraw); i++) {
donetcode=false;
if (scaptraw[i] == '\\') {
if ( (i+1) <_tcslen(scaptraw)) {
switch(scaptraw[i+1]) {
case 'n':
tcode='\n';
i++;
break;
case 'r':
tcode='\r';
i++;
break;
default:
tcode='\\';
break;
}
scapt[j++]=tcode;
donetcode=true;
}
}
if (!donetcode) {
scapt[j++]=scaptraw[i];
}
}
scapt[j]='\0';
if (LKMessages[inumber]) {
// only for debugging translations
#if TESTBENCH
if (!fillup)
StartupStore(_T("... INVALID LANGUAGE MESSAGE INDEX <%d> duplicated!\n"),inumber);
#endif
continue;
}
#if TESTBENCH
#if (WINDOWSPC>0)
// CAUTION, on a PNA this would freeze the device if language file is not updated!
// StartupStore is locking and unlocking threads at each run!!
if (fillup)
StartupStore(_T("... Fillup: message index %d is missing from translation\n"),inumber);
#endif
#endif
#ifndef UNICODE
LKASSERT(ValidateUTF8(scapt));
#endif
LKMessages[inumber] = (TCHAR *)malloc((_tcslen(scapt)+1)*sizeof(TCHAR));
LKASSERT(LKMessages[inumber]!=NULL);
_tcscpy(LKMessages[inumber],scapt);
if (inumber>=MAX_MESSAGES) {
#if TESTBENCH
StartupStore(_T("... TOO MANY MESSAGES, MAX %d%s"), MAX_MESSAGES, NEWLINE);
#endif
break;
}
}
zzip_fclose(hFile);
return true;
}
/**
* @brief Load language MSG file into memory
*
* @param fillup Switch value:
* - false - load from scratch removing anything existing
* - true - load over existing messages, adding only missing items filling up gaps
*
* @return @c false if language file problem, in this case english is reloaded from calling function
*/
bool LKLoadMessages(bool fillup) {
TCHAR sFile[MAX_PATH];
TCHAR sPath[MAX_PATH];
TCHAR suffix[20];
unsigned int i, j;
#if DEBUG_GETTEXT
int maxsize=0;
#endif
static bool doinit=true;
short mnumber=0;
#if ALPHADEBUG
short fillupstart=0;
#endif
if (doinit) {
for (i=0; i<MAX_MESSAGES; i++) {
LKMessages[i]=NULL;
LKMessagesIndex[i]=-1;
}
doinit=false;
} else {
if (!fillup) {
// init data when reloading language files or changing it
// but not in fillup mode of course
for (i=0; i<MAX_MESSAGES; i++) {
if (LKMessages[i] != NULL) free(LKMessages[i]);
LKMessages[i]=NULL;
LKMessagesIndex[i]=-1;
}
} else {
// in fillup mode we need to add at the bottom of message array
for (i=0; i<MAX_MESSAGES; i++) {
if (LKMessages[i]!=NULL) ++mnumber;
}
if (mnumber == MAX_MESSAGES) {
#if ALPHADEBUG
StartupStore(_T("... Fillup language MSG already full\n"));
#endif
return false;
}
#if ALPHADEBUG
fillupstart=mnumber;
StartupStore(_T("... Fillup language MSG starting from pos.%d\n"),mnumber);
#endif
}
}
LocalPath(sPath,_T(LKD_LANGUAGE));
_tcscpy(suffix,_T("_MSG.TXT"));
_stprintf(sFile,_T("%s\\%s%s"),sPath,LKLangSuffix,suffix);
ZZIP_FILE *hFile = zzip_fopen(sFile, "rb");
if (hFile == NULL) {
StartupStore(_T("... LoadText Missing Language File: <%s>%s"),sFile,NEWLINE);
return false;
} else {
if (fillup)
StartupStore(_T(". Language fillup load file: <%s>%s"),sFile,NEWLINE);
else
StartupStore(_T(". Language load file: <%s>%s"),sFile,NEWLINE);
}
// search for beginning of code index, in the range _@M1_ _@M9999_
TCHAR sTmp[300];
char snum[6];
TCHAR scapt[MAX_MESSAGE_SIZE+1];
TCHAR scaptraw[MAX_MESSAGE_SIZE+1];
bool havewarned=false;
while (ReadULine(hFile, sTmp, countof(sTmp))) {
unsigned int slen=_tcslen(sTmp); // includes cr or lf or both
if (slen<9) continue;
if ( (sTmp[0]!='_') || (sTmp[1]!='@') || (sTmp[2]!='M') ) {
#if DEBUG_GETTEXT
StartupStore(_T(".... MSG_ENG missing _@M line <%s>\n"),sTmp);
#endif
continue;
}
snum[0]=(char)sTmp[3];
snum[1]=(char)sTmp[4];
snum[2]=(char)sTmp[5];
snum[3]=(char)sTmp[6];
snum[4]=(char)'\0';
if (snum[3]=='_') snum[3]='\0';
if (snum[2]=='_') snum[2]='\0';
if (snum[1]=='_') snum[1]='\0';
unsigned short inumber;
inumber=atoi(snum);
if (inumber >=MAX_MESSAGES) {
if (!havewarned) {
StartupStore(_T("...... ERROR LOADING NON-COMPATIBLE MSG FILE!%s"),NEWLINE);
havewarned=true;
}
StartupStore(_T("...... MSG token <%d> over limit!%s"),inumber,NEWLINE);
continue;
}
int start=0;
for (i=3; i<slen; i++) {
if (sTmp[i]=='\"') {
start=i;
break;
}
}
int end=0;
if (start==0) {
#if DEBUG_GETTEXT
StartupStore(_T(".... MSG_ENG no start\n"));
#endif
continue;
}
for (i=start+1; i<slen; i++) {
if (sTmp[i]=='\"') {
sTmp[i]='\0';
end=i;
break;
}
}
if (end==0) {
#if DEBUG_GETTEXT
StartupStore(_T(".... MSG_ENG no end <%s> start=%d\n"),sTmp,start);
#endif
continue;
}
int newlen;
newlen=_tcslen(&sTmp[start+1]);
if (newlen>MAX_MESSAGE_SIZE) {
#if DEBUG_GETTEXT
StartupStore(_T(".... MSG_ENG caption too big, len=%d\n"),newlen);
#endif
continue;
}
if (newlen==0) {
#if DEBUG_GETTEXT
StartupStore(_T(".... MSG_ENG TOKEN # %d : caption is empty, null text.\n"),inumber);
#endif
continue;
}
#if DEBUG_GETTEXT
if (newlen>maxsize) maxsize=newlen;
#endif
// transcode special charcaters while loading from file
TCHAR tcode;
bool donetcode;
_tcscpy(scaptraw,&sTmp[start+1]);
for (i=0, j=0; i<_tcslen(scaptraw); i++) {
donetcode=false;
if (scaptraw[i] == '\\') {
if ( (i+1) <_tcslen(scaptraw)) {
switch(scaptraw[i+1]) {
case 'n':
tcode='\n';
break;
case 'r':
tcode='\r';
break;
default:
tcode=' ';
break;
}
scapt[j++]=tcode;
i++;
donetcode=true;
}
}
if (!donetcode) {
scapt[j++]=scaptraw[i];
}
}
scapt[j]='\0';
if (LKMessagesIndex[inumber]!= -1) {
// only for debugging translations
#if ALPHADEBUG
if (!fillup)
StartupStore(_T("... INVALID LANGUAGE MESSAGE INDEX <%d> duplicated!\n"),inumber);
#endif
continue;
}
LKMessagesIndex[inumber]=mnumber;
LKMessages[mnumber] = (TCHAR *)malloc((wcslen(scapt)+1)*sizeof(TCHAR));
_tcscpy(LKMessages[mnumber],scapt);
mnumber++;
if (mnumber>=MAX_MESSAGES) {
#if ALPHADEBUG
StartupStore(_T("... TOO MANY MESSAGES, MAX %d%s"), MAX_MESSAGES, NEWLINE);
#endif
break;
}
}
#if DEBUG_GETTEXT
StartupStore(_T("... LOADED %d MESSAGES, max size = %d\n"),mnumber-1,maxsize);
#endif
#if ALPHADEBUG
if (fillup) {
if ((mnumber-fillupstart-1)>0)
StartupStore(_T("... Fillup Loaded %d missing messages\n"),mnumber-fillupstart-1);
else
StartupStore(_T("... Fillup no messages to load, translation OK\n"));
}
#endif
zzip_fclose(hFile);
return true;
}
/** => zzip_fclose
*/
int
zzip_close(ZZIP_FILE* fp)
{
return zzip_fclose (fp);
}
TCHAR *LKgethelptext(const TCHAR *TextIn) {
static TCHAR sFile[MAX_PATH];
static TCHAR sPath[MAX_PATH];
static TCHAR sTmp[MAX_HELP+1];
static TCHAR sHelp[MAX_HELP+1];
bool foundnotfound=false;
if (TextIn == NULL) return (TCHAR *)TextIn;
short tlen=_tcslen(TextIn);
if (tlen<5 || tlen>8) return (TCHAR *)TextIn;
if ( (TextIn[0]!='_') || (TextIn[1]!='@') || (TextIn[tlen-1]!='_') ) return (TCHAR *)TextIn;
// get the item index number, quick conversion from unicode
char snum[6];
// char *pnum=(char *)&TextIn[3];
short i;
for (i=0; i<tlen-4; i++) {
/*
snum[i++]=*pnum; // advance to unicode 0
pnum++; // advance to next char
pnum++; // advance to next char
*/
snum[i] = (char)TextIn[3+i];
}
snum[i]='\0';
unsigned short inumber=atoi(snum);
#if DEBUG_GETTEXT
StartupStore(_T(".... Help item TextIn=<%s> snum= <%S> number=%d \n"),TextIn, snum, inumber);
#endif
if (inumber>9999) {
#if DEBUG_GETTEXT
StartupStore(_T(".... Help item snum= <%S> number=%d \n"),snum, inumber);
#endif
_stprintf(sHelp,_T("ERROR, wrong index number <%d> from XML: <%s>\r\n"),inumber,TextIn);
return (sHelp);
}
// get the type character
char ttype = TextIn[2];
TCHAR suffix[20];
if (ttype=='H') {
_tcscpy(suffix,_T("_HELP.TXT"));
LocalPath(sPath,_T(LKD_LANGUAGE));
_stprintf(sFile,_T("%s\\%s%s"),sPath,LKLangSuffix,suffix);
// Help File, dynamically handled
#if DEBUG_GETTEXT
StartupStore(_T("... Open Language file type <%C>: <%s>%s"),ttype,sFile,NEWLINE);
#endif
TCHAR sNum[10];
_stprintf(sNum,_T("%d"),inumber);
ZZIP_FILE *helpFile = zzip_fopen(sFile, "rb");
if (helpFile == NULL) {
#if ALPHADEBUG
StartupStore(_T("... Missing HELP FILE <%s>%s"),sFile,NEWLINE);
#endif
// we can only have one Help call at a time, from the user interface. Ok static sHelp.
_stprintf(sHelp,_T("ERROR, help file not found:\r\n%s\r\nCheck configuration!"),sFile);
return (sHelp);
}
// search for beginning of code index @000
bool found=false;
while (ReadULine(helpFile, sTmp, countof(sTmp))) {
int slen=_tcslen(sTmp); // includes cr or lf or both
if (slen<3|| slen>8) {
#if DEBUG_GETTEXT
StartupStore(_T("... skip line <3||>8 : %s\n"),sTmp);
#endif
continue;
}
if (sTmp[0]=='#') {
#if DEBUG_GETTEXT
StartupStore(_T("... skip remark: %s\n"),sTmp);
#endif
continue;
}
if (sTmp[0]=='@') {
for (i=1; i<slen; i++) {
if ( sTmp[i] < '0' || sTmp[i] > '9' ) {
sTmp[i] = '\0';
break;
}
}
// sTmp[slen-1]='\0'; // remove cr
if ( _tcscmp(&sTmp[1],sNum) == 0 ) {
#if DEBUG_GETTEXT
StartupStore(_T("... found correct index: %s\n"),sTmp);
#endif
found=true;
break;
} else {
// this one should be the very last line in the help file
if ( _tcscmp(&sTmp[1],_T("9999")) == 0 ) {
foundnotfound=true;
#if DEBUG_GETTEXT
StartupStore(_T("... found NOTFOUND index: %s\n"),&sTmp[1]);
#endif
// warning this means that placing 9999 not at the end of HELP file will
// make all other messages ignored! always check HELP file to have 9999 at the end
break;
} else {
#if DEBUG_GETTEXT
StartupStore(_T("... found wrong index: %s not %s\n"),&sTmp[1],sNum);
#endif
}
}
}
}
if (!found && !foundnotfound) {
#if DEBUG_GETTEXT
StartupStore(_T("... index <%s> not found in help file <%s>\n"),sNum,sFile);
#endif
_stprintf(sHelp,_T("ERROR: index <%s> not found in language help file:\r\n%s\r\n"),sNum,sFile);
zzip_fclose(helpFile);
return (sHelp);
}
// now load the help text for this index
_tcscpy(sHelp,_T(""));
int hlen=0;
while (ReadULine(helpFile, sTmp, countof(sTmp))) {
int slen=_tcslen(sTmp); // including cr or lf or both
if (slen==0 || sTmp[0]=='#') continue;
if (slen>2 && slen<9) {
// is it another index marker?
if (sTmp[0]=='@') {
if (hlen==0)
continue; // multihelp section, continue loading help
else
break; // another marker, close the help
}
}
if ( sTmp[slen-1]=='\r' ) {
sTmp[slen-1]='\0';
slen--;
}
// add it to the help, if possible
if ( (hlen+slen+2) > MAX_HELP) {
#if DEBUG_GETTEXT
StartupStore(_T("... help too long: truncating line <%s>\n"),sTmp);
#endif
_tcsncat(sHelp,sTmp,MAX_HELP-hlen-1);
break;
}
hlen+=slen;
#if DEBUG_GETTEXT
//StartupStore(_T(".. adding line <%s>\n"),sTmp);
#endif
_tcscat(sHelp,sTmp);
_tcscat(sHelp,_T("\r\n"));
}
zzip_fclose(helpFile);
return (sHelp);
} // end ttype == H
#if ALPHADEBUG
StartupStore(_T(".... Unknown Text type <%c> in <%s>%s"),ttype,TextIn,NEWLINE);
#endif
return (TCHAR *)TextIn;
}
void msSHPDiskTreeClose(SHPTreeHandle disktree)
{
zzip_fclose( disktree->zfp );
free( disktree );
}
