85

14. Функция аналогична FindTreeListLeftNode только поиск осуще­ ствляется для листьев.

void* FindTreeListLeftLeaf(NodeTreeList *node,int(*Compare) (void*,void*),void* param){

if(node==NULL) return NULL; if(node­>down!=NULL)

FindTreeListLeftLeaf(node­>down,Compare,param); else

if(Compare(node­>data,param) return node­>data; //это лист if(node­>right!=NULL)

FindTreeListLeftLeaf(node­>right,Compare,param);

}

7.2.2Механизм конструирования деревьев на основе строки формата

Пусть имеется следующая грамматика, описывающая строку форма­ та, задающую описание дерева в скобочной записи.

1.format=>node(node ,node,...node)

2.node => node(node, node,...node)

3.node=>%n

4.node=>%v

5.node=>string

node может описывать быть строкой (string), параметр типа переменная string (%v), типа узел (%n).

Примеры записи формата

1.A(B,C(D,E)) — описание дерева без параметров.

2.D(X(%v,C)) — описывается дерево с одним параметром типа string.

3.V(X,%n,D(F,%v) — описывается дерево с двумя параметрами.

Функция преобразования строки формата в древовидный список

void TranslateAscizToTreeList(TranslateStateTreeList *ts,char *format,...);

1.TranslateAscizToTreeList(ts,"A(B,C(D,E))");

87

void InitTranslateStateTreeList(TranslateStateTreeList *ts,int size_name,void*(CreateData(char*)))

{

ts­>CreateData=CreateData; ts­>name=new char[size_name+1]; ts­>size_name=size_name; ts­>open_parenthes='('; ts­>close_parenthes=')'; ts­>comma=',';

ts­>procent='%';

}

Функция удаления структуры TranslateStateTreeList

void DeleteTranslateStateTreeList(TranslateStateTreeList *ts){ delete []ts­>name;

}

Функция переопределение разделителей

void SetPunctuators(TranslateStateTreeList *ts,char openp,char closep,char comma,char procent){

ts­>open_parenthes=openp; //переопределение скобки открывающей ts­>close_parenthes=closep; //переопределение скобки закрывающей ts­>comma=comma;

ts­>procent=procent;

}

Функция сообщения об ошибке

void TranslateError(char *err){ printf("%s\n",err);

}

Функция конструирования древовидного списка

NodeTreeList *TranslateAscizToTreeList(TranslateStateTreeList *ts,char *for­ mat,...){

ts­>string=format; //начальные установки char *ch=ts­>string;

ts­>size_params=0;

88

ts­>top_param=0; va_list ap; va_start(ap,format);

while(*ch) { //взять все параметры из стека и занести в вектор параметров if(*ch==ts­>procent){ //это процент (взять параметр)

if(ts­>size_params<SIZEPARAMS){ ch++;

switch(*ch){ //взять параметры из стека case 'n':{ //указатель на узел

ts­>params[ts­>size_params++].pnode = va_arg(ap,NodeTreeList*); break;

}

case 'v':{ //указатель на любые данные ts­>params[ts­>size_params++].pdata = va_arg(ap,void*); break;

}

} //endswitch

}

} //endifch else ch++; }//end while

NodeTreeList *node=AscizToTreeList(ts); //рекурсивный разбор строки return node;

}

Функция рекурсивного разбора строки и конструирования древовид­ ного списка

NodeTreeList *AscizToTreeList(TranslateStateTreeList *ts){ NodeTreeList *node=NULL;

ts­>top=0;

while(*ts­>string){ //выделить имя узла if(*ts­>string==ts­>open_parenthes) break; //это скобка ( else

if(*ts­>string==ts­>comma) break; //это запятая else

if(*ts­>string==ts­>close_parenthes) break; else

if(ts­>top<ts­>size_name­1) ts­>name[ts­>top++]=*ts­>string++; else ts­>string++; //если имя длинное просто пропускаем

if(ts­>top_param<ts­>size_params) node=CreateTreeListNode((void*)(ts­>params[ts­>top_param++].pdata)); break;

case 'n': //узел должен быть корнем (вставить поддерево) if(ts­>top_param<ts­>size_params) node=ts­>params[ts­>top_param++].pnode;

break;

}

}

else{ //это имя

if(ts­>CreateData!=NULL) //если функция есть node=CreateTreeListNode(ts­>CreateData(ts­>name));

}

}

else{

TranslateError("No name of node"); return NULL;

}

//узел создан if(*ts­>string=='\0') return node; else

if(*ts­>string==ts­>open_parenthes){ //скобка открывающая ts­>string++;

node­>down=AscizToTreeList(ts); if(*ts­>string==ts­>close_parenthes) ts­>string++;

}

if(*ts­>string==ts­>comma){ //это запятая ts­>string++; node­>right=AscizToTreeList(ts);

}

if(*ts­>string==ts­>close_parenthes)return node; return node;

}