分析下述算法功能

Status A(BiThrTree T，Status(*Visit)(TglemType e)){
p—T一＞lchild；
while(p!一T){
while(p一＞LTag==Link)p=p-＞lChild；
if(!Visit(p--＞data))return ERRoR；
while(p一＞RTag一=Thread&&p-＞rchild!=T){
p=p-＞rchild；
Visit(p--＞data)；
}
p=p-＞rchild；
}
return OK；
}