rem: _IMPEXP_BE int32 current_workspace()
add: current_workspace()
context: _IMPEXP_BE int32 current_workspace(){	PortLink::ReplyData replydata;	int32 index;		BPrivate::BAppServerLink *link=new BPrivate::BAppServerLink();	link->SetOpCode(AS_CURRENT_WORKSPACE);	link->FlushWithReply(&replydata);		index=*((int32*)replydata.buffer);		delete link;	return index;}