void CQuickParseView::OnQuickParseGo()
{
CWaitCursor wc;
//---- BRING THE CONTROL FILES UP TO DATE ON THE DISK (added feb 8, 99)
theApp.getProject()->synchronizeExternals();
CQuickParseDoc* pDoc = (CQuickParseDoc*)GetDocument();
UpdateData(TRUE); // get data out of form and into our members
m_sInput.TrimLeft();
if(m_sInput.IsEmpty())
return;
try
{
// sndPlaySound("QuickParse", SND_ASYNC );
CCarlaLanguage* pSourceLang = pDoc->m_pSourceLang;
ASSERTX(pSourceLang);
pSourceLang->prepareMFSForProcessors(); // among other things, get the comment character into the MFS
CSrcTextProcessingPrefs procPrefs(pSourceLang,
NULL,
CProcessingPrefs::kSourceAna);
CProcessStatus status( &procPrefs,
m_sInput,
pSourceLang,
pSourceLang->getMFS(),
NULL, // output lang
NULL); // output mfs
// jdh 3/14/2000 changed to this from some custom code
if (!status.setupTempDir(pSourceLang->getName()))
return; // assumes the user has already been informed
// added jdh 3/13/2000
m_bDidRefresh = FALSE; // will be set to TRUE if we refresh
BOOL bDidGetPreprocessedDicts = status.loadPreprocessedSrcDictsArrayFromLang();
if(!bDidGetPreprocessedDicts || m_bManualRefreshPending || getNeedDictPreprocessing(status))
if(!this->preprocessDicts(&status))
return;
prepareAmpleProcess();
loadAmpleOptions();
m_sOutput = ""; // in case of an exception
CString sTraceOutput;
CString sPath;
sPath.Format(_T("%s\\QP-Ample-Trace.log"), (LPCTSTR)status.getTempDirectory());
#ifndef hab218
if (m_bTrace && m_bManualParse)
{
m_sTraceMorphs = _T("");
loadAmpleOptions();
getManualParse(status, sPath, pSourceLang);
status.m_sRAWString = m_sInput;
loadAmpleOptions();
}
#endif // hab218
// DO THE PARSING
if(!m_bTrace)
{ // !!! this path is needed if we want to check for errors
m_pAmpleProcess->processRAWTextString(status, sPath);
}
else
{
m_pAmpleProcess->processRAWTextString(status, sPath);
// m_sOutput = status.m_sRAWString;
TRY
{
CFile log(sPath, CFile::modeRead);
DWORD sz = log.GetLength();
if(sz)
{
/* If the buffer is ridiculously big (e.g. > 1MB) then the likelyhood
* a stack overflow increases - so we truncate early rather than later
* let's say that 3 bytes for one UTF8 char is a good guess
*/
if (sz > MAX_TRACEOUTPUT * 3)
sz = MAX_TRACEOUTPUT * 3;
// on the heap rather than on the stack - stack overflows are easily created
char* buf = (char *) malloc(sz+2);
ASSERTX(buf);
int iReadBytes = log.Read(buf, sz);
buf[iReadBytes] = '\0'; //terminate it
USES_CONVERSION_U8;
sTraceOutput = U82CT(buf);
free(buf);
}
log.Close();
}
CATCH( CFileException, e )
{
#ifdef Before1_04
checkForFileError(PATH);
#else // hab 1.04
checkForFileError(sPath);
#endif // Before1_04
}
END_CATCH
}
// build the parse part of the answer
CAmpleResult* pAResult = CAmpleResult::buildResult(status.m_sRAWString);
if(pAResult)
{
#ifndef hab218
m_sOutput += pAResult->getStringRepresentation();
#else //hab218
m_sOutput = pAResult->getStringRepresentation();
#endif // hab218
delete pAResult;
}
else
m_sOutput.Format (_T("You have encountered a bug in either CarlaStudio or the Ample DLL. CarlaStudio could not understand the Ample DLL's answer, which was: %s"), (LPCTSTR)status.m_sRAWString);
// add the trace part of the answer
if(m_bTrace)
m_sOutput += sTraceOutput;
// do we need to truncate the result?
TRACE(_T("m_sOutput.GetLength() =%d"), m_sOutput.GetLength());
if(m_sOutput.GetLength() > MAX_TRACEOUTPUT)
{
m_sOutput = m_sOutput.Left(MAX_TRACEOUTPUT);
m_sOutput += _T("\r\n--Ample's output is too long to fit here. It has been truncated. ");
}
// jdh 3/14/2000 store this set of dictionaries. we do it only now in so that an error in processing them will be in the user's face
status.storePreprocessedSrcDictsArrayInLang();
}
BOOL CInputDoc::doRunProcessors(CRemoteCommand* pRemoteCmd/*=NULL*/)
{
CWnd* pWnd = getWindow();
if(pWnd)
pWnd->BringWindowToTop();
if(IsModified()) // if changed the contents of the file we're processing
OnSaveDocument(GetPathName());
CCarlaLanguage *pSourceLang = getProcessingPrefs()->getSrcLang(); // could be null
CCarlaLanguage *pTargetLang = getProcessingPrefs()->getTarLang(); // could be null
ASSERTX(m_strPathName.GetLength());
#define GOAL getProcessingPrefs()->getGoal()
// on remote calls, we can override user prefs. Sorry this is all so ugly
if(pRemoteCmd)
{
getProcessingPrefs()->setGoal(pRemoteCmd->iGoal);
pSourceLang = pRemoteCmd->pSourceLang ;
if(pSourceLang)
getProcessingPrefs()->setSrcLang(pSourceLang);
pTargetLang = pRemoteCmd->pTargetLang;
if(pTargetLang)
getProcessingPrefs()->setTarLang(pTargetLang);
SetModifiedFlag(TRUE);// will also fix the title
}
// make the new status structure, which keeps track of which files have been
// created and are in line for processing, among other things
if(m_pProcessStatus)
delete m_pProcessStatus;
m_pProcessStatus = new CProcessStatus(m_strPathName,
getProcessingPrefs(),
pSourceLang,
(pSourceLang!=0)?pSourceLang->getMFS():NULL,
pTargetLang,
(pTargetLang!=0)?pTargetLang->getMFS():NULL);
//----- ask Shoebox, if it is running, to do a save all
// note: if this was invoked by a call from CSRemote, then the send will hang us forever
// thus, we have this bRemoteCall flag to prevent that. If we are called from
// Shoebox, it will have saved everything anyways as part of its batch file command
if(!pRemoteCmd)
SendMessage(HWND_BROADCAST, wm_RemoteSaveAll, NULL, NULL);
//------ SETUP THE TEMP DIRECTORY ----------------------
if( getCanDoAnalysis() || getProcessingPrefs()->getDoTransfer()
|| getProcessingPrefs()->getDoInterlinearize()) // JDH 5/28/99 Added to allow Interlinearizing ANA files
{
ASSERTX(pSourceLang);
if (!m_pProcessStatus->setupTempDir(pSourceLang->getName()))
return FALSE;
}
else // synthesis only
{
ASSERTX(pTargetLang);
if (!m_pProcessStatus->setupTempDir(pTargetLang->getName()))
return FALSE;
}
// load stuff that processors will commonly need, but which doesn't really
// belong conceptually to the mfs into it, so that the processors can avoid
// having to know about CCarlaLanguage just to get at the comment character, for example
if(pSourceLang)
pSourceLang->prepareMFSForProcessors();
if(pTargetLang)
pTargetLang->prepareMFSForProcessors();
//---- SETUP PROGRESS BAR
if( getCanDoAnalysis())
m_pProcessStatus->expectSequenceWithCount(getSrcLang()->getAnalysisSequence()->getProcessorCount());
if( getProcessingPrefs()->getDoInterlinearize())
m_pProcessStatus->expectSequenceWithCount(getSrcLang()->getInterlinearSequence()->getProcessorCount());
if(getProcessingPrefs()->getDoTransfer())
{
CTransferProcessSequence* pTSeq = getSrcLang()->getTransferSequence( pTargetLang);
if(pTSeq)
m_pProcessStatus->expectSequenceWithCount(pTSeq->getProcessorCount());
}
if(getProcessingPrefs()->getDoSynthesis()) // actually, i think you *always* have a synth seq
{
CSynthesisProcessSequence* pSSeq = getSrcLang()->getSynthesisSequence();
if(pSSeq)
m_pProcessStatus->expectSequenceWithCount(pSSeq->getProcessorCount());
}
//---- BRING THE CONTROL FILES UP TO DATE ON THE DISK
theApp.getProject()->synchronizeExternals();
//---- ANALYSIS ----------------------------------------------------------
BOOL bOK = TRUE;
if( getCanDoAnalysis())
{
CProcessSequence* pAnalysisSequence = getSrcLang()->getAnalysisSequence();
m_pProcessStatus->setCurrentSequenceFunction(pAnalysisSequence->getFunctionCode());
m_pProcessStatus->setInputLang(pSourceLang);
m_pProcessStatus->setOutputLang(NULL);
// do the analysis
bOK = pAnalysisSequence->continueProcessing(m_pProcessStatus);
// copy the analyzed text to the user's directory
if(bOK )
{
CPathDescriptor newPath(pSourceLang->getMFS()->getOutputDirAnalyzedANA()+m_pProcessStatus->m_sFileNameRoot+".ana");
redirectOutputFile(GOAL, CProcessingPrefs::kSourceAna,
m_pProcessStatus->sANAPath,
newPath,
m_pProcessStatus);
}
}
//---- INTERLINEAR ----------------------------------------------------------
if(bOK && getProcessingPrefs()->getDoInterlinearize())
{
ASSERTX(pSourceLang);
CProcessSequence* pS = pSourceLang->getInterlinearSequence();
ASSERTX(pS);
m_pProcessStatus->setInputLang(pSourceLang);
#ifndef hab15a4
m_pProcessStatus->setOutputLang(pSourceLang); // hab 1999.09.17
// a final CC pass will use the Output Language;
// it needs to be set to the Source lang here (at least it worked for me...)
#else
m_pProcessStatus->setOutputLang(NULL);
#endif
m_pProcessStatus->setCurrentSequenceFunction(pS->getFunctionCode());
bOK = pS->continueProcessing(m_pProcessStatus);
if(bOK )//&& GOAL==CProcessingPrefs::kGlossedInterlinear)
{
CString sDestDir;
CPathDescriptor newPath ;
if(pRemoteCmd)
{
switch(pRemoteCmd->eOutputLocation)
{
case CRemoteCommand::csSameFolderAsInput:
sDestDir = ::getDirectory(m_strPathName);
break;
case CRemoteCommand::csSpecifiedPath:
case CRemoteCommand::csReplaceInput:
newPath = pRemoteCmd->sDesiredOutputPath;
break;
default: throw("Unknown OutputLocation setting");
break;
}
}
else if(getProcessingPrefs()->m_dwFlags & CProcessingPrefs::kOutputItxToSameDir) // for morris
sDestDir = ::getDirectory(m_strPathName);
else // copy to interlinear output dir
sDestDir = pSourceLang->getMFS()->getOutputDirInterlinear();
if(newPath.GetLength() == 0)
newPath = sDestDir+m_pProcessStatus->m_sFileNameRoot+".itx";
//m_pProcessStatus->sInterlinearPath.copyTo(newPath);
redirectOutputFile(GOAL, CProcessingPrefs::kGlossedInterlinear,
m_pProcessStatus->sInterlinearPath,
newPath,
m_pProcessStatus);
if(pRemoteCmd)
pRemoteCmd->sActualOutputPath=newPath;
}
}
//---- TRANSFER ----------------------------------------------------------
if(bOK && getProcessingPrefs()->getDoTransfer())
{
//CCarlaLanguage* pTarget = getProcessingPrefs()->getTarLang();
ASSERTX(pTargetLang);
CTransferProcessSequence* pTransferSequence = getSrcLang()->getTransferSequence(pTargetLang);
ASSERTX(pTransferSequence);
m_pProcessStatus->setInputLang(pSourceLang);
m_pProcessStatus->setOutputLang(pTargetLang);
m_pProcessStatus->setCurrentSequenceFunction(pTransferSequence->getFunctionCode());
bOK = pTransferSequence->continueProcessing(m_pProcessStatus);
if(bOK )//&& GOAL==CProcessingPrefs::kTargetANA)
{
//CPathDescriptor x = pTargetLang->getMFS()->getOutputDirTransferedANA();
//CString z = "s" + x + "v";
CPathDescriptor newPath(pTargetLang->getMFS()->getOutputDirTransferedANA()+m_pProcessStatus->m_sFileNameRoot+".ana");
redirectOutputFile(GOAL, CProcessingPrefs::kTargetANA,
m_pProcessStatus->sANAPath,
newPath,
m_pProcessStatus);
//m_pProcessStatus->sANAPath.copyTo(pTargetLang->getMFS()->getOutputDirTransferedANA()+m_pProcessStatus->m_sFileNameRoot+".ana");
if(pRemoteCmd)
pRemoteCmd->sActualOutputPath=newPath;
}
}
//---- SYNTHESIS ----------------------------------------------------------
if(bOK && getProcessingPrefs()->getDoSynthesis())
{
ASSERTX(pTargetLang);
//CCarlaLanguage* pTarget = getProcessingPrefs()->getTarLang();
CProcessSequence* pS = pTargetLang->getSynthesisSequence();
ASSERTX(pS);
#ifndef hab15a4
m_pProcessStatus->setInputLang(pTargetLang); // hab 1999.09.17
// a final CC pass will use the Input Language;
// it needs to be set to the Target lang here (at least it worked for me...)
#else
m_pProcessStatus->setInputLang(NULL);
#endif
m_pProcessStatus->setOutputLang(pTargetLang);
m_pProcessStatus->setCurrentSequenceFunction(pS->getFunctionCode());
bOK = pS->continueProcessing(m_pProcessStatus);
// copy the synthesized text to the user's directory
if(bOK)// && GOAL==CProcessingPrefs::kTargetText)
{
CPathDescriptor newPath;
CString sDestDir;
if(pRemoteCmd)
{
switch(pRemoteCmd->eOutputLocation)
{
case CRemoteCommand::csSameFolderAsInput:
sDestDir = ::getDirectory(m_strPathName);
break;
case CRemoteCommand::csSpecifiedPath:
newPath = pRemoteCmd->sDesiredOutputPath;
break;
// this case now allowed by csbridge, but would be if they scripted directly
case CRemoteCommand::csReplaceInput:
throw("Whoops. You probably didn't mean to say that CStudio should do a transfer that overwrites the initial file.");
break;
default: throw("Unknown OutputLocation setting");
break;
}
}
else
sDestDir = pTargetLang->getMFS()->getOutputDirSynthesizedText();
if(newPath.GetLength() == 0)
newPath = sDestDir+m_pProcessStatus->m_sFileNameRoot+"_"+pTargetLang->getAbrev()+".txt";
redirectOutputFile(GOAL, CProcessingPrefs::kTargetText,
m_pProcessStatus->sRAWPath,
newPath,
m_pProcessStatus);
if(pRemoteCmd)
pRemoteCmd->sActualOutputPath=newPath;
}
}
if(bOK)
m_pProcessStatus->finishedProcessing();
storeAvailablePanels();
loadResultPanels(bOK, m_pProcessStatus); // don't warn about missing files if there was an error already reported
m_pProcessStatus->closeProgressDialog();
ASSERTX(m_pView); //!!!!!!!WHO'S SETTING THIS?
m_pView->updatePanels();
#ifndef rde265
//----- ask Shoebox, to refresh all (if this isn't a remote command)
if(!pRemoteCmd)
#else
//----- ask Shoebox, if it is running, to do a save all
#endif // rde265
PostMessage(HWND_BROADCAST, wm_RemoteRefreshAll, NULL, NULL); // don't wait for it to finish that
return bOK;
}