void TCpDoc::SaveForNlpWin(const PSOut& SOut){ SOut->PutStr("DocId:"); SOut->PutStr(DocNm); SOut->PutLn(); SOut->PutStr(HeadlineStr); SOut->PutLn(); for (int ParStrN=0; ParStrN<ParStrV.Len(); ParStrN++){ SOut->PutStr(ParStrV[ParStrN]); SOut->PutLn(); } }
void TPartialGS::Dump(const TStr& FName) { PSOut out = TFOut::New(FName); for (int i = 0; i < R.Len(); i++) { for (int j = 0; j < i; j++) { out->PutStr(TFlt::GetStr(0.0, 20, 18)); out->PutCh(' '); } for (int j = 0; j < R[i].Len(); j++) { out->PutStr(TFlt::GetStr(R[i][j], 20, 18)); out->PutCh(' '); } out->PutCh('\n'); } }
void TBowMd::SaveXmlCfy(const PSOut& SOut, const TFltStrPrV& WgtCatNmPrV){ SOut->PutStr("<Classification>"); SOut->PutLn(); for (int WCPrN=0; WCPrN<WgtCatNmPrV.Len(); WCPrN++){ double Wgt=WgtCatNmPrV[WCPrN].Val1; TStr CatNm=WgtCatNmPrV[WCPrN].Val2; //printf("%d. %.3f '%s'\n", 1+WCPrN, Wgt, CatNm.CStr()); SOut->PutStr("<Category "); TChA Ln; Ln+=TInt::GetStr(1+WCPrN, "Rank=\"%d\""); Ln+=TFlt::GetStr(Wgt, " Weight=\"%.3f\""); Ln+=TStr::GetStr(CatNm, " Category=\"%s\""); SOut->PutStr(Ln); SOut->PutStr("/>"); SOut->PutLn(); } SOut->PutStr("</Classification>"); SOut->PutLn(); }
void TSAppSrvFun::LogReqRes(const TStrKdV& FldNmValPrV, const PHttpResp& HttpResp) { if (LogRqFolder == "") return; try { TDir::GenDir(LogRqFolder); TStr TimeNow = TTm::GetCurLocTm().GetWebLogDateTimeStr(true); TimeNow.ChangeChAll(':', '.'); PSOut Output = TFOut::New(LogRqFolder + "/" + TimeNow + ".txt", false); Output->PutStr(FunNm.CStr()); Output->PutCh('\n'); for (int N=0; N < FldNmValPrV.Len(); N++) Output->PutStrFmt(" %s: %s\n", FldNmValPrV[N].Key.CStr(), FldNmValPrV[N].Dat.CStr()); Output->PutCh('\n'); Output->PutStr(HttpResp->GetBodyAsStr(), false); } catch (...) { /*const PNotify& Notify = RqEnv->GetWebSrv()->GetNotify(); Notify->OnStatus("Unable to log request for function '" + GetFunNm() + "'!");*/ } }
void TBowMd::SaveTxtCfy(const PSOut& SOut, const TFltStrPrV& WgtCatNmPrV){ for (int WCPrN=0; WCPrN<WgtCatNmPrV.Len(); WCPrN++){ double Wgt=WgtCatNmPrV[WCPrN].Val1; TStr CatNm=WgtCatNmPrV[WCPrN].Val2; //printf("%d. %.3f '%s'\n", 1+WCPrN, Wgt, CatNm.CStr()); TChA Ln; Ln+=TInt::GetStr(1+WCPrN, "%d."); Ln+=TFlt::GetStr(Wgt, " %.3f"); Ln+=TStr::GetStr(CatNm, " '%s'"); SOut->PutStr(Ln); SOut->PutLn(); } }
void OnNotify(const TNotifyType& Type, const TStr& MsgStr){ TStr LogStr=TNotify::GetTypeStr(Type)+": "+MsgStr; LogSOut->PutStr(LogStr); LogSOut->PutDosLn(); printf("%s\n", LogStr.CStr()); }