gcomp/1CVS_Tables.cpp - master - MadDAD/TFS4OpenConf

gcomp/1CVS_Tables.cpp
154 строки3 KB
DmitryDreytser
Выгрузил исходники
01 фев 2017, 17:19
01 фев 2017, 17:19b9402b1
#include "Declarations.h"
#include "MMS.h"
#include "NameTable.h"


struct TObjectNameRecord;
typedef void (*TNameTrFunc)(GCString ObjectName, TObjectNameRecord* rec, GCString& Path);

struct TObjectNameRecord {
	char* Name;
	MMSObjectType Type;
	TNameTrFunc NameTrFunc;
	TObjectNameRecord* Children;
};



TObjectNameRecord* FindRecord(TObjectNameRecord* table, const char* Name)
{
	if( table == NULL ) return NULL;

	TObjectNameRecord* record = table;
	while( record->Name != NULL )
	{
		if( _stricoll(record->Name, Name) == 0 )
			return record;
		record++;
	}

	return NULL;
}

bool GetToken(GCString& Name, GCString& Token)
{
	Token = Name.SpanExcluding("./\\");
	if( Token.IsEmpty() ) return false;
	Name = Name.Mid(Token.GetLength());
	int len = Name.SpanIncluding("./\\").GetLength();
	if( len > 0 ) Name = Name.Mid(len);
	return true;
}

MMSObjectType ChildType(MMSObjectType Type)
{
	switch( Type )
	{
	case MMS_SbCnts: return MMS_SbCnt; break;
	case MMS_Documents: return MMS_Document; break;
	}
	return MMS_Object;
}

//����������, ��������, �������, � �.�.
void basic_object(GCString ObjectName, TObjectNameRecord* rec, GCString& Path)
{
	CNameTableRecord *nt_rec;
	CMMSObject mms_obj;
	GCString Token;

	if( !GetToken(ObjectName, Token) )
		return;

	//��� �������
	mms_obj.sID = Token;
	nt_rec = NameTable.Find(ChildType(rec->Type));
	Path = nt_rec->PrepareDirName(Path, &mms_obj);

	//��� ��������
	if( GetToken(ObjectName, Token) )
	{
		rec = FindRecord(rec->Children, Token);
		if( rec == NULL && ObjectName.CollateNoCase("��������") == 0 )
		{
			Path += "\\";
			Path += Token;
			Path += ".";
			Path += "��������.txt";
		}
		else if( rec != NULL )
		{
			if( rec->NameTrFunc != NULL )
				rec->NameTrFunc(ObjectName, rec, Path);
		}
	}
	else
	{
		nt_rec = NameTable.Find(NT_MetadataPart);
		Path = nt_rec->PrepareFileName(Path);
	}
}

/*
void mdp_object(GCString ObjectName, TObjectNameRecord* rec, GCString& Path)
{
	GCString Name, Token;
	if( !GetToken(ObjectName, Token) )
		return;

	//��� �������
	mms_obj.sID = Token;
	nt_rec = NameTable.Find(ChildType(rec->Type));
	Path = nt_rec->PrepareDirName(Path, &mms_obj);
}
*/


TObjectNameRecord ObjectWithDescr[] = {
	{"����������", NT_MetadataPart, NULL, NULL},
	{"��������",   NT_UserHelp,     NULL, NULL},
	{NULL}
};

TObjectNameRecord DialogForm[] = {
	{"������",   NT_FormModule, NULL, NULL},
	{"������",   NT_DialogForm, NULL, NULL},
	{"�������",  NT_MoxelSheet, NULL, NULL},
	{"��������", NT_UserHelp,   NULL, NULL},
	{NULL}
};

TObjectNameRecord Reference[] = {
	{"��������",    NT_UserHelp,         NULL, NULL},
	{"�����",       MMS_Object,          NULL, DialogForm},
	{"�����������", NT_SubcontoFolder,   NULL, DialogForm},
	{"�����������", NT_SubcontoListForm, NULL, DialogForm},
	{NULL}
};

TObjectNameRecord Names[] = {
	{"���������",  MMS_Consts,    NULL, ObjectWithDescr},
	{"����������", MMS_SbCnts,    basic_object, Reference},
	{"�������",    MMS_Registers, NULL, ObjectWithDescr},
	{NULL}
};



bool NameToPath(GCString Name, GCString& Path)
{
	TObjectNameRecord *record;
	GCString Token;

	if( !GetToken(Name, Token) ) return false;
	record = FindRecord(Names, Token);
	if( record == NULL ) return false;

	CNameTableRecord* nt_rec = NameTable.Find(record->Type);
	Path = nt_rec->PrepareDirName(Path);
	if( record->NameTrFunc != NULL )
		record->NameTrFunc(Name, record, Path);


	return true;
}