// called by OnNewDocument()
// returns FALSE if the user cancels the dialog
BOOL CProjectDoc::doNewFromCarlaMenu(CString& sProjectPath)
{
	CWizNewFromCarla dlg(this);

	// stick in CCarlaLanguages's default font
	//getSourceLang()->getFont()->GetLogFont(&dlg.m_srcLangDisplayPage.m_logFont);

	if(IDOK != dlg.DoModal())
		return FALSE;

	// note that during the wizard we parsed in the carla.set file

	sProjectPath = dlg.m_projectPage.m_sProjectPath;
	SetDirectory(sProjectPath); // make this the working directory

	if(!getSourceLang() || !getSourceLang()->getAbrev().GetLength())
	{
		MessageBox( NULL, _T("This does not appear to be a valid CARLA.SET file (no \\src sMarker found)\n"), NULL, MB_OK);
		return FALSE;
	}

	CCarlaLanguage* pLang = m_pLangDocs[0]->getLang();
	ASSERTX(pLang);
	//pLang->setAbrev(dlg.m_srcLangDisplayPage.m_sAbrev);
	//pLang->setName(dlg.m_srcLangDisplayPage.m_sName);
	//pLang->setFont(&dlg.m_srcLangDisplayPage.m_logFont);
	pLang->readLangDisplayPage(dlg.m_srcLangDisplayPage);

	pLang->readCARLAMenuLangFile(dlg.m_cmenuPage.m_cCommentChar);

	if(m_pLangDocs.GetSize()==2)	// if there was a target lang specified
	{
		pLang = m_pLangDocs[1]->getLang();
		ASSERTX(pLang);
	//	pLang->readCARLAMenuLangFile(dlg.m_cmenuPage.m_cCommentChar);
	//	pLang->setAbrev(dlg.m_tarLangDisplayPage.m_sAbrev);
	//	pLang->setName(dlg.m_tarLangDisplayPage.m_sName);
		//pLang->setFont(&dlg.m_tarLangDisplayPage.m_logFont);
		pLang->readLangDisplayPage(dlg.m_tarLangDisplayPage);
		pLang->readCARLAMenuLangFile(dlg.m_cmenuPage.m_cCommentChar);

		// if there were two languages, tell the first one (the source) to copy in the
		// control files for transfering to the other language.  We skip asking to got
		// the other direction to, out of the lack of expecation that those files exist.
		// It might not do any harm to try, though, if someone comes up with a reason.
		m_pLangDocs[0]->getLang()->setConversionTargetLang(m_pLangDocs[1]->getLang());
	}



/*	getSourceLang()->setAbrev(dlg.m_srcLangDisplayPage.m_sAbrev);
	getSourceLang()->setName(dlg.m_srcLangDisplayPage.m_sName);
	getSourceLang()->setFont(&dlg.m_srcLangDisplayPage.m_logFont);
	getSourceLang()->readCARLAMenuLangFile();

	if(getTargetLang())
	{
		getTargetLang()->readCARLAMenuLangFile();
		getTargetLang()->setAbrev(dlg.m_tarLangDisplayPage.m_sAbrev);
		getTargetLang()->setName(dlg.m_tarLangDisplayPage.m_sName);
		getTargetLang()->setFont(&dlg.m_tarLangDisplayPage.m_logFont);

		// won't find any files because carlamenu is one-way transfer only,
		//		so leave this one out
		//			getTargetLang()->setConversionTargetLang(m_pSource);
		getSourceLang()->setConversionTargetLang(getTargetLang());
	}
*/
	return TRUE;
}
// called by the CPageCMenu::OnWizardNext() after the page where the user chooses
//	the carla.set file so that subsequent page can show some of the information
//	(e.g. abbreviation) we'll read in that file
BOOL CProjectDoc::readCarlaMenuSettings(CString& sPath, CString& sSrcAbrev, CString& sTargAbrev, char& cCommentChar)
{
	LPCTSTR lpzPath = LPCTSTR(sPath);
	USES_CONVERSION_U8;
	SFMFile f(T2CA(lpzPath), '*'); // comment won't be found in this kind of file

	if(!f.isOpen())
	{
		CString s(_T("Couldn't open CARLAMenu File named:"));
		s += sPath;
		MessageBox( NULL, s, NULL, MB_OK);
		return FALSE;
	}

	CString sMarker, sField;
	BOOL bEnabled;

	// note that we currently don't store the abreviations or control directories
	// instead, we store paths to each file relative to the project file

	while(f.getField(sMarker, sField, &bEnabled))
	{
		try
		{	// note: within CStudio we don't really have a set
			// source and target languages; we just have languages
			// that are at any one time assigned to be the source
			// or the target during processing.
			// The following make the languages found here be the
			// source or target initially,
			// according to how they were in the CARLAMenu settings file.
			if(sMarker == _T("src"))
			{
				sSrcAbrev = sField;
			}
			else if(sMarker == _T("trg"))
			{
				sTargAbrev = sField;
			}
			else if(sMarker == _T("comm"))	// notice, it's part of the whole cmenu project, not each lang as you would expect
			{
				sField.TrimLeft();
				if(sField.GetLength())
				{
#if !defined(rde270) && defined(_DEBUG)
				CString str(sField[0]);
				ASSERT(strlen(T2CU8(str)) <= 1);
#endif
					cCommentChar = (char)sField[0];
				}
			}
			else if(sMarker == _T("lang"))	// FIELD example: \lang xyz c:\srcinfo
			{							// we need to figure out if this is the src or trg lang
				CString sLang, sDir;	// and set the corresponding directory variable
				CParseStream stream(sField);
				THROW_STR_IF_NOT(stream.word(sLang, FALSE), sField);

				// for some reason, some \lang fields aren't the src or the target (see Cline:anufo).
				// I don't know what these are in there for or what to do with them

				if(sLang != sSrcAbrev && sLang != sTargAbrev)
				{
					//f.logSkip("CarlaMenu-Import",sMarker,sField, "Was neither the source nor target.");
				}
				else
				{

					if(!stream.word(sDir, FALSE))
					{								 // if the path isn't specified,
						sDir = getDirectory(lpzPath);// then expect the path to the langauge.set file to be the same as the carla.set file
					}
					// make sure the directory ends in a slash (CARLAMenu allows both ways)
					if(sDir[sDir.GetLength()-1] != '\\')	// look at last character
						sDir += _T("\\");

					/**** when I tried to make the langdoc this way, I get a failed assert
						  like the views weren't being setup correctly.
						CLangModelsDoc* pLangDoc = new CLangModelsDoc(sLang, sDir);
						// since we didn't do a new or open, need to create the window
						CFrameWnd* pf = ((CCarlaStudioApp*)AfxGetApp())->getLangDocTemplate()
								->CreateNewFrame( pLangDoc, NULL);
						pf->ActivateFrame();
					***/
					gsNewLangAbrev = sLang;
					gsDirContainingCarlaSet = sDir;
					CDocTemplate* pT = theApp.getDocTemplate(CLangModelsDoc::getRegFileTypeID());

					CLangModelsDoc* pLangDoc = (CLangModelsDoc*) pT->CreateNewDocument();
					ASSERTX(pLangDoc);
					gsNewLangAbrev = _T("");
					gsDirContainingCarlaSet = _T("");

					// during that previous construction the lang registered itself with this project
					if(sLang == sSrcAbrev)
						setSourceLangDoc(pLangDoc);
					else if(sLang == sTargAbrev)
						setTargetLangDoc(pLangDoc);
					else
						ASSERTX(FALSE);	// get this if a lang appeared that didn't have a corresponding \src or \trg
				}
			}

			else
				; //TRACE("CARLAMENU Skipping Field [%s]\n", sMarker);
		}
		catch(CString sError)
		{
			CString s(_T("loadCarlaMenuFile() Couldn't parse: "));
			s += sError;
			MessageBox( NULL, s, NULL, MB_OK);
		}
	}


	return TRUE;
}
예제 #3
0
  // override
// used when pasting into a list or undoing a deletion
CWListRowItem* CWClass::getCopy()
{
	CWClass* pNew = new CWClass(this);
	ASSERTX(pNew);
	return pNew;
}
예제 #4
0
VOID Emulate2Address(OPCODE opcode,
                     INS ins,
                     ADDRINT (*OpRM)(ADDRINT,ADDRINT*),
                     ADDRINT (*OpRV)(ADDRINT,ADDRINT),
                     VOID (*OpMV)(ADDRINT*,ADDRINT))
{
    if (INS_Opcode(ins) != opcode)
        return;
    if (INS_OperandIsMemory(ins, 0)
        // This will filter out segment overrides
        && INS_IsMemoryWrite(ins))
    {
        if (INS_OperandIsReg(ins, 1)
            && REG_is_gr(INS_OperandReg(ins, 1)))
        {
            // Source register, dst memory
            INS_InsertCall(ins,
                           IPOINT_BEFORE,
                           AFUNPTR(OpMV),
                           IARG_MEMORYWRITE_EA,
                           IARG_REG_VALUE,
                           INS_OperandReg(ins, 1),
                           IARG_END);
            INS_Delete(ins);
        }
        else
        {
            ASSERTX(!INS_OperandIsMemory(ins, 1));
        }
    }
    else if (INS_OperandIsReg(ins, 0))
    {
    	REG dst = INS_OperandReg(ins, 0);
    	if ((dst == REG_SEG_GS) || (dst == REG_SEG_FS))
    		return;
        if (INS_OperandIsReg(ins, 1))
        {
            // Source register, dst register
            INS_InsertCall(ins,
                           IPOINT_BEFORE,
                           AFUNPTR(OpRV),
                           IARG_REG_VALUE,
                           INS_OperandReg(ins, 0),
                           IARG_REG_VALUE,
                           INS_OperandReg(ins, 1),
                           IARG_RETURN_REGS,
                           INS_OperandReg(ins, 0),
                           IARG_END);
            INS_Delete(ins);
        }
        else if (INS_OperandIsMemory(ins, 1)
                 // This will filter out segment overrides
                 && INS_IsMemoryRead(ins))
        {
            // Source register, dst register
            INS_InsertCall(ins,
                           IPOINT_BEFORE,
                           AFUNPTR(OpRM),
                           IARG_REG_VALUE,
                           INS_OperandReg(ins, 0),
                           IARG_MEMORYREAD_EA,
                           IARG_RETURN_REGS,
                           INS_OperandReg(ins, 0),
                           IARG_END);
           INS_Delete(ins);
        }
    }
    
#if 0
    if (KnobCount == icount)
        fprintf(stderr,"Last one %s\n",INS_Disassemble(ins).c_str());
    else if (icount > KnobCount)
        return;
    icount++;
#endif

}
void CSentransProcess::processANAFile(CProcessStatus& status)
{

// (jdh 6/99) i think this is now defunct; an impossible condition
// if((m_iFunction == kAdjustSrcGlossing)
//		&& (status.m_pProcPrefs->getGoal() != CProcessingPrefs::kGlossedInterlinear))
//		return;

	// skip this process if there is nothing to do
	switch(m_iFunction)
	{
		case kDisambig:
			if(status.getInputLang()->getSentransDisambigModel().m_rules.getSize() ==0)
				return;
			break;
		case kAdjustSrcGlossing:
			if(status.getInputLang()->getSentransGlossAdjustmentModel().m_rules.getSize() ==0)
				return;
			break;

		// JDH 6/2/99 Added Sentrans Adjust Rules Set for analysis
		case kAdjustAnalysis:
			if(status.getInputLang()->getSentransAnaAdjustmentModel().m_rules.getSize() ==0)
				return;
			break;

		case kOtherRuleFile:	// jdh 15June2000
			if(!m_sOtherRuleFilePath.fileExists())
			{
				CString sMsg;
				sMsg.Format("The external SENTRANS rule file could not be found.\n\"%s\"", LPCTSTR(m_sOtherRuleFilePath));
				AfxMessageBox(sMsg);
				return;
			}
			break;

		//case kTransfer:
			// haven't handled this because we would have to travers the transfer models (just a little more work, probabl)
	}

	// remember, we could be operating on ana from any process, including another sentrans process

	try
	{
		CString sBase = getTempFileNameBase(status);
		m_sOutPath = status.makeTempPath(sBase,	".ana" );
		m_sLOGPath = status.makeTempPath(sBase,	".log" );

		m_sInPath = status.sANAPath;
		m_sOutPath.deleteFile();
		m_sLOGPath.deleteFile();

		if(!executeTool(status))
		{		throw(CProcessFailure(this, "SentransProccess failed"));
		}

		waitForCompletion(&status, &m_sLOGPath, &m_sOutPath);

		// register ana output so the user can view it
		CString sShortDesc, sLongDesc, sTabLabel;
		CCarlaLanguage *pOutANALang=NULL;
		switch(m_iFunction)
		{
			case kDisambig:
				sShortDesc = "Disambiguated ANA";
				sLongDesc = "ANA of the source-language file, after filtering through Sentrans disambiguation rules.";
				sTabLabel = "ST-Disamb ANA";
				pOutANALang = status.getInputLang();
				break;
			case kAdjustSrcGlossing: sShortDesc = "Gloss Adjusted ANA";
				sLongDesc = "ANA of the source-language file, after performing 'adjustment' transfer for glossing purposes.";
				sTabLabel = "ST-Gloss-Adj ANA";
				pOutANALang = status.getInputLang();
				break;

			// JDH 6/2/99 Added Sentrans Adjust Rules Set for analysis
			case kAdjustAnalysis: sShortDesc = "Analysis Adjusted ANA";
				sLongDesc = "ANA of the source-language file, after performing 'adjustment' transfer for analysis purposes.";
				sTabLabel = "ST-Anal-Adj ANA";
				pOutANALang = status.getInputLang();
				break;

			// jdh 15June2000
			case kOtherRuleFile: sShortDesc = "Other Rule File ANA";
				sLongDesc.Format("ANA of the source-language file, after running through Sentrans using the file: %s",LPCTSTR(m_sOtherRuleFilePath));
				sTabLabel = "ST-Anal-Other ANA";
				pOutANALang = status.getInputLang();
				break;

			case kTransfer: sShortDesc = "Transfered ANA";
				sLongDesc = "ANA of the target-language file, after performing Sentrans transfer.";
				sTabLabel = "ST-Trans ANA";
				pOutANALang = status.getOutputLang();
				break;
			default: ASSERTX(FALSE); break;
		}
		CResultStreamFile* anaStream =
			new CResultStreamFile(
					new CResultStreamDescriptor(this,
												sShortDesc, //short description
												sLongDesc, // long description
												sTabLabel // tab label
											),
					m_sOutPath.getFullPath(),
					pOutANALang);
		status.registerResultStream(anaStream);

		// when we're doing transfer, the log could reasonably be in either language font,
		// but what to do?
		registerLog(status, m_sLOGPath, status.getInputLang());
		status.sANAPath = m_sOutPath;
	}
	catch(CProcessFailure failure)
	{
		registerLog(status, m_sLOGPath);
		throw(failure);
	}
	catch(CString sError)
	{
		registerLog(status, m_sLOGPath);
		throw(CProcessFailure(this, sError));
	}
}
예제 #6
0
//jdh 3/13/2000 added in support of dictionary preprocessing for quickparse
const CProcessingPrefs* CProcessStatus::getProcPrefs()
{
	ASSERTX(m_pProcPrefs);
	return m_pProcPrefs;
}
예제 #7
0
VOID SwizzleArg(ADDRINT * arg)
{
    ASSERTX(SwizzleSpace(*arg));
    *arg = ProcessAddress(*arg, 0);
}
예제 #8
0
CCarlaLanguage* CLangModelsDoc::getLang()
{
	ASSERTX(m_pLang);
	return m_pLang;
}
예제 #9
0
// bDisabled is ignored on input; on return, it is false if a "\dis" was found
// at the beginning of the line.
// bEnabled can be null where it isn't relevant
BOOL SFMFile::getField(CString& marker, CString& contents, BOOL *bEnabled)
{
	ASSERTX(fin.is_open());
	const int kBuffSize = 5000;	// CURRENTLY MAX FIELD SIZE TOO!

	// suck up and thow away lines at the beginning of the file that start
	// with the comment character
	if( fin.peek() == m_cCommentChar)
	{
#ifndef rde270
		// these files are not wide characters... therefore CString won't be that helpful
		LPSTR sLeadingComments = (LPSTR)alloca(kBuffSize+2);
		LPSTR x = sLeadingComments;
		LPSTR xStart = x;
#else   // rde270
		CString sLeadingComments;
		LPTSTR x = sLeadingComments.GetBuffer(kBuffSize+2);
		LPTSTR xStart = x;
#endif  // rde270
		do
		{
			fin.getline(x, kBuffSize - (x-xStart), '\n');
			x += fin.gcount();
			if(fin.gcount())
			{
				*(x-1) = '\n'; // put a carriage return in place of the null terminator
				*x = '\0';		// null terminate in case the next getline fails
			}
		} while (fin.good() && fin.gcount() && fin.peek() != '\\');

#ifndef rde270
#else   // rde270
		sLeadingComments.ReleaseBuffer();
#endif  // rde270
	}


#ifndef rde270
	LPSTR sField = (LPSTR)alloca(kBuffSize+2);
	LPSTR buff = sField;
	LPSTR start_buff = buff;
#else   // rde270
	CString sField;
	//LPTSTR start_buff = sField.GetBuffer(kBuffSize+2);
	//LPTSTR buff = start_buff;
	LPTSTR buff = sField.GetBuffer(kBuffSize+2);
	LPTSTR start_buff = buff;
#endif  // rde270

	fin.eatwhite();
	LPSTR b = buff;

	do
	{
		fin.getline(b, kBuffSize - (b-buff), '\n');
		b += fin.gcount();
		if(fin.gcount())
		{
			*(b-1) = '\n'; // put a carriage return in place of the null terminator
			*b = '\0';		// null terminate in case the next getline fails
		}

		//strlen(buff);

	} while (fin.good() && fin.gcount() && fin.peek() != '\\');



	if( (kBuffSize-1) <= (b-buff))	// to long (and thus fin.gcount() == 0)
	{
		CString s;
		s.Format(_T("The file %s appears to have a line which is longer than the maximum of %d characters which Carla Studio can handle.\n"),
					(LPCTSTR)m_pathName, kBuffSize);
		throw(s);

	}

	if(!buff[0])	// end of file
	{
#ifndef rde270
#else
		sField.ReleaseBuffer(-1);
#endif
		return FALSE;
	}

	if(bEnabled)
	{
		*bEnabled = (strncmp(buff, "\\dis", 4) != 0); // if the first marker is '\dis', the rule is disabled
		if(!*bEnabled)
		{
			buff +=4;	// skip the \dis
		}
	}

	// eat white space before the SFM Code (will always be there after a \dis)
	while(*buff && _ismbcspace(*buff))
	{
		*buff='~'; // a hack so that iSpaceLoc, below, isn't set to the space between the "\dis" and marker
		++buff;
	}

	// say we had \dis sr blah, now we want \sr blah
	//  but don't do anything if \dis \sr foo
	if(bEnabled && !*bEnabled && *buff != '\\')
	{
		--buff;
		*buff= '\\';
	}

	BOOL bHaveEnvironment = FALSE;
	if(buff[0] == '/' || (buff[0] == '+' && buff[1] == '/') || /*sentrans*/(buff[0] == '&' && buff[1] == '/'))
	{
		bHaveEnvironment = TRUE;
	}

	USES_CONVERSION_U8;
	// some lines may begin with \dis and be followed by an environment
	// these must be treated special
	if(!bHaveEnvironment && buff[0] != '\\'
		&& bEnabled && *bEnabled)	// can't expect a \ if we started with a \dis
	{	//ASSERTX(FALSE);	//  line didn't have backslash as first non-whitespace char
		static CString sRest;

#ifndef rde270
		sRest = U82CT(start_buff);
#else   // rde270
		sRest = start_buff;
		sField.ReleaseBuffer(-1);
#endif  // rde270

		ostrstream sout;
		sout << "Carla Studio encountered a serious problem while trying to read\n   " << T2CA(m_pathName) << '\n';
		sout << "It was expecting to find an SFM marker, but found instead:\n";
		sout <<  start_buff << '\n';

		// to do: add line number?
#ifndef rde270
		// I'm just not sure if sout.str is going to be null terminated, so do it the long way.
		int nLen = sout.pcount();
		char* pSout = (char*)alloca(nLen + 1);
		strncpy(pSout, sout.str(), nLen);
		pSout[nLen] = '\0';
		CString sError(U82CT(pSout));
#else   // rde270
		CString sError (sout.str(), sout.pcount());
#endif// rde270
		sout.rdbuf()->freeze(0); // else get a memory leak
		throw(sError);
	}


	int iSpaceLoc ;
	if(bHaveEnvironment)
		iSpaceLoc = (buff-start_buff)-1;
	else
	{
		// figure out where the marker ends and field contents begin
#ifndef rde270
		LPSTR lpsz = strpbrk(sField, " \t\n");
		iSpaceLoc = (lpsz == NULL) ? -1 : (int)(lpsz - sField);
#else
		iSpaceLoc = sField.FindOneOf(" \t\n");
#endif
		if(iSpaceLoc <= 1)// [0] should be the slash, [1] at least one char
		{
#ifndef rde270
#else
			sField.ReleaseBuffer(-1);
#endif
			return FALSE;
		}
	}

	if(bHaveEnvironment)
		marker = _T("ENV");
	else
	{
		start_buff[iSpaceLoc] = '\0';
#ifndef rde270
		marker = U82CT(buff + 1); // +1 to skip the slash
#else
		marker = buff + 1; // +1 to skip the slash
#endif
		marker.TrimRight();
	}

#ifndef rde270
	contents = U82CT(start_buff + iSpaceLoc+1);
#else
	contents = start_buff + iSpaceLoc+1;
#endif

	contents.TrimLeft();
	contents.TrimRight();

#ifndef rde270
#else
	sField.ReleaseBuffer(-1);
#endif
	return TRUE;
}
예제 #10
0
INT32 RegIndex(REG reg)
{
    ASSERTX(GpReg(reg));
    
    return reg - REG_EDI;
}
예제 #11
0
void CInputDocView::OnUpdate(CView* pSender, LPARAM lHint, CObject* pHint)
{
	if(!m_pEditCtrls.GetSize())
		return;	// not setup yet

	ASSERTX(m_pBaseStream);
	// there is a bug here where the visible screen-full of text does not reset its
	// leading to that of the new font. (jan 99)

/*	 None of this had any effect!
	CHARRANGE csel;
	csel.cpMin=0;
	csel.cpMax=-1;
	m_pEditCtrls[0]->SetSel(csel);
	CFont* pf=m_pBaseStream->getFont();
	LOGFONT lf;
	pf->GetLogFont(&lf);
	CHARFORMAT cr;
	cr.dwMask = CFM_SIZE;
	cr.yHeight=lf.lfHeight;
	cr.cbSize = sizeof(CHARFORMAT);
	//m_pEditCtrls[0]->SetDefaultCharFormat(cr);
	m_pEditCtrls[0]->SetSelectionCharFormat(cr);
*/
	m_pEditCtrls[0]->SetFont(m_pBaseStream->getFont());
	m_pEditCtrls[0]->Invalidate();


	// set the fonts; fonts can change from one update to the next,
	// when the user changes the font, for, say, the source language
	CProjectDoc *pProjectDoc = theApp.getProject();

	CInputDoc* pDoc = (CInputDoc*) GetDocument();
	CProcessStatus* pResults = pDoc->getProcessResults();

	if(pResults)
	{
		// note that the first panel is not from a result stream; it is the source.
		int x = pResults->m_pResultStreams.GetSize();
		int y = m_pEditCtrls.GetSize();
	//	ASSERTX( x == y-1);

		for(int i=1; i< m_pEditCtrls.GetSize(); i++)
		{
			if(m_pEditCtrls[i]->m_hWnd)
			{	// note that the first panel is not from a result stream; it is the source.
				// thus, we have [i-1] for this index
				ASSERTX(::IsWindow(m_pEditCtrls[i]->m_hWnd));
				// there's a bug that sometime show up on this
				// call; the above assert is to narrow down the
				// problem, but I'm waiting for the bug to
				// reappear again. july 15
				CResultStream* pS = pDoc->getNthVisibleStream(i-1);

				// there is a bug here where iTotalExpectedStreams is too small, so this
				// fails.  I have removed the asserts until I find the problem because
				// it isn't really catastrophic

				// ASSERTX(pS);
				if(pS)
					m_pEditCtrls[i]->SetFont(pS->getFont(), FALSE);
				//	pResults->m_pResultStreams[i-1]->getFont(), FALSE);
				m_pEditCtrls[i]->Invalidate();
			}
		}
	}


	// disable the parse button if there is no open project
//	if(m_parseButton.m_hWnd)
//		m_parseButton.EnableWindow(pProjectDoc != NULL);

//	UpdateData(FALSE);	// run the DDX updating stuff
}
예제 #12
0
// if the user is trying to jump to Shoebox, the existing code was failing when you alt-tab
//  away from CS and then go back; basically, the RE ctrl no longer had the focus. Now use
//  something a little more explicit to get the appropriate control.
AsyncLoadRichEditCtrl* CInputDocView::GetSelCtrl()
{
	int iTab = m_tabCtrl.GetCurSel();
	ASSERTX(iTab <= m_pEditCtrls.GetSize());
	return m_pEditCtrls[iTab];
}
예제 #13
0
void CInputDocView::addPanel(CResultStream* pStream, int id)
#endif
{
	CRect r;//(0,0, 100, 100);
	GetClientRect(&r);
#ifndef rde270
	// change the dimensions a little so we don't get the annoying non-repaint of m_tabCtrl
	//  when we repaint the RECtrl after a chunk has been loaded offline.
	r.top = 21;
	AsyncLoadRichEditCtrl* pEC = new AsyncLoadRichEditCtrl;
#else   // rde270
	r.top = 25;
	r.right -= 5;
	r.bottom -= 5;
	CRichEditCtrl* pEC = new CRichEditCtrl;//CPanelRichEditCtrl;//
#endif
	//	CEdit* pEC = new CEdit;
	m_pEditCtrls.Add(pEC);



	DWORD dwFlags = ECO_SAVESEL | ES_AUTOVSCROLL | ES_MULTILINE |
				ES_NOHIDESEL   | WS_BORDER | WS_VSCROLL | WS_CHILD | WS_VISIBLE | ES_WANTRETURN;

#ifndef jdhhab621
	// a hack to get a scrollbar for pc-patr.  This could be generalized or put in the user's
	// control, but not without work that seems unjustified if it's just for pcpatr.

	if (pStream->getDescriptor()->getTabLabel().Find(_T("PATR")) != -1)
		dwFlags |= WS_HSCROLL | ES_AUTOHSCROLL;
#endif // jdhhab261

	pEC->Create(dwFlags,
				(RECT&)r,
				&m_tabCtrl,
				id);

	CFont* test = pStream->getFont();
	pEC->SetFont(test);

#ifndef rde270
	// delay StreamIn until after setting up of the associated tab (because during StreamIn
	//  our callback must have the pStream which is stored in the tab's lParam member.
#else   // rde270
	// NOTE: I'm not clear on whether StreamIn is done with the stream when it returns;
	// it doesn't seem to delete it, but you'd think it would need
	// to keep it around so it can get at large files when the user
	// scrolls down; maybe not.  Why it matters is, what if the cwCOOKIE
	// member points to a CResultsStream that I've deleted?
	// For now, I'm going to go on the assumption that the whole
	// file is read right here.
	pEC->StreamIn(SF_TEXT, pStream->getEditStreamIn()); // icon may be set in here

	// Set editing flags and limit

	CInputDoc* pDoc = (CInputDoc*) GetDocument();
	if(id==kBasePanelID && pDoc->m_bBaseIsEditable)
	{
		pEC->SetReadOnly(FALSE);
		const long kMaxAddableChars = 2000;
		long l = pEC->GetTextLength() + kMaxAddableChars;
		pEC->LimitText(l);
		pEC->SetEventMask( ENM_KEYEVENTS| ENM_CHANGE );// want to know when the user changes something
	}
	else
		pEC->SetReadOnly(TRUE);
#endif  // rde270


/*	ALL THIS WAS FOR CEDIT, NOT CRICHEDIT
	EDITSTREAM es =  pStream->getEditStreamIn();
	long sz = pEC->GetLimitText()-10;
	LPTSTR buff = new char [sz+1];
	ASSERTX(buff);
	long actual;
	(es.pfnCallback)((DWORD)(pStream), (unsigned char*)buff, sz, &actual);
	buff[actual] = '\0';
	CString sOverflowMsg = pStream->getOverflowMsg();
	if(actual > sz - sOverflowMsg.GetLength())
	{
		buff[sz-sOverflowMsg.GetLength()] = '\0';
		CString s = buff;
		s += sOverflowMsg;
		pEC->SetWindowText(s);
	}
	else
		pEC->SetWindowText(buff);


	// make it close
	(es.pfnCallback)((DWORD)(pStream), (unsigned char*)buff, 0, &actual);
	delete buff;
*/

	// make the tab for this item
	TC_ITEM tie;
	tie.mask = TCIF_TEXT |TCIF_PARAM ;
	tie.lParam = (LPARAM)pStream;
	tie.pszText = (LPTSTR)  LPCTSTR(pStream->getDescriptor()->getTabLabel());
	int iconEnum = pStream->getTabIconEnum();
	if(iconEnum>=0)
	{
		tie.mask |= TCIF_IMAGE;
		tie.iImage = iconEnum;
	}

#ifndef rde270
	// save the inserted tab's index (so it can be accessed by knowing the EC).
	int nIndex = m_tabCtrl.InsertItem(99, &tie );
	::SetWindowLong(pEC->GetSafeHwnd(),GWL_USERDATA,nIndex);
	if( -1 == nIndex )
#else   // rde270
	if (-1 == m_tabCtrl.InsertItem(99, &tie ))
#endif  // rde270
	{
		ASSERTX(FALSE);
	}
	else
	{
		//CToolTipCtrl* pTip = new CToolTipCtrl;
		//pTip->Create(this); // <--- or should it be the tab bar?
		//pTip->
		CToolTipCtrl* pTip = m_tabCtrl.GetToolTips();
		ASSERT(pTip);
		CRect r;
		m_tabCtrl.GetItemRect(m_tabCtrl.GetItemCount()-1, &r);
		CString s;
		s.Format(_T("%s"), (LPCTSTR)pStream->getToolTipText());
		pTip->AddTool(&m_tabCtrl, s, &r, id);
	}

#ifndef rde270
	// moved 'StreamIn' here because we want the tab already setup for when we get the
	//  'finished-a-chunk' callback.
	// use the 'AsyncLoadRichEdit' to stream it in [load asynchronously so we don't kill
	//  the UI for minutes (on big files).]
#pragma message("If you subclass CResultStream with something besides CResultStreamFile, this'll break!")
	CResultStreamFile* pStreamFile = (CResultStreamFile*)pStream;
	// ASSERT(pStreamFile->IsKindOf(RUNTIME_CLASS(CResultStreamFile)));
	// this assert is what *should* be, but the various streams are from the processor DLLs
	//  and for some reason IsKindOf doesn't appear to work across DLL boundaries.

	pEC->StreamIn(pStreamFile->getPath(), bSyncStreamIn, CInputDocView::OnStreamInChunkComplete, (DWORD_PTR)this);

	// Set editing flags and limit
	CInputDoc* pDoc = (CInputDoc*) GetDocument();
	if(id==kBasePanelID && pDoc->m_bBaseIsEditable)
	{
		pEC->SetReadOnly(FALSE);
		const long kMaxAddableChars = 2000;
		long l = pEC->GetTextLength() + kMaxAddableChars;
		pEC->LimitText(l);
		pEC->SetEventMask( ENM_KEYEVENTS| ENM_CHANGE );// want to know when the user changes something

		// if the editable file was imported as UTF-16, then we must make it 'modified' so
		//  it'll be saved as UTF-8 before processing (Ample, et al., can deal with UTF-8,
		//  but not UTF-16).
		if(     (pEC->FileEncoding() != eUTF8)
			&&  (pEC->FileEncoding() != eAnsi) )
			GetDocument()->SetModifiedFlag();
	}
	else
		pEC->SetReadOnly(TRUE);
#endif  // rde270
}
예제 #14
0
/////////////////////////////////////////////////////////////////////////////
// CWListCtrl message handlers
// we have this lower-case version because
//	CListCtrl::GetItemText doesn't appear to be virtual
CString CWListCtrl::getItemText(int nItem, int nCol)
{
	CWListRowItem* pItem = (CWListRowItem*)GetItemData(nItem);
	ASSERTX(pItem);
	return pItem->getText(nCol);
}
예제 #15
0
BOOL CSentransModel::loadFromFile(LPCTSTR lpszPathName,
								  CWCommonModel& commonModel,
								  BOOL bLogIfMissing)
{
	ASSERTX(lpszPathName);
	SFMFile f(lpszPathName, commonModel.m_cCommentChar);

	if(!f.ensureOpen("Sentrans File", bLogIfMissing))
		return FALSE;

	char cCommentChar = commonModel.m_cCommentChar;
#ifndef hab17a1
	CCommentOrTestDataCollector coOrTdCollector;
	BOOL bSeenSenTransField = FALSE; // 1.7a1 need to ignore comments from non-Sentrans specific items; using this flag to do so
#else // hab17a1
	CCommentCollector commentCollector;	// jdh 11/9/99
#endif //hab17a1

#ifndef hab211
	CWList * pLastList = 0;
#endif //hab211

	CString sMarker, sField;
	BOOL bEnabled;
	BOOL bIsDisambig = this->IsKindOf(RUNTIME_CLASS(CSentransDisambigModel));
try
	{
		while(f.getField(sMarker, sField, &bEnabled))
		{
			try
			{
				if(sMarker == "ru")
				{
					if(!bIsDisambig)
					{
#ifndef hab17a1
						coOrTdCollector.disgorge(((CSentransTransferModel*)this)->m_rules);
#else // hab17a1
						commentCollector.disgorge(((CSentransTransferModel*)this)->m_rules); // jdh 11/9/99
#endif // hab17a1
						CSentransTransferRule *r = new CSentransTransferRule(sField, bEnabled, cCommentChar);
						((CSentransTransferModel*)this)->m_rules.addItem(r);
#ifndef hab17a1
						bSeenSenTransField = TRUE;
#endif // hab17a1
					}
					else
					{
						CString s("SENTRANS-Disambig files can't have transfer rules.");
						f.logSkip("SENTRANS-Disambig", sMarker, sField, s);
					}
				}
#ifndef hab17a1
				else if(sMarker == "co" || sMarker == "cm")
#else // hab17a1
				else if(sMarker == "co")
#endif // hab17a1
				{
				 /*
				 // JDH 5/25/99 3:28:36 PM Added List Comment Capbility (\co)
					CListEntryComment *com = new CListEntryComment(sField);
					if(bIsDisambig)
						((CSentransDisambigModel*)this)->m_rules.addItem(com);
					else
						((CSentransTransferModel*)this)->m_rules.addItem(com);
					*/

				// jdh 11/9/99 changed to use the commentCollector because now have two lists (rules and \cl list)
#ifndef hab17a1
					coOrTdCollector.add(sField, "co");
#else // hab17a1
					commentCollector.add(sField);
#endif // hab17a1
				 }
				else if(sMarker == "am" || sMarker == "rej" || sMarker == "reject"
						|| sMarker == "amun" || sMarker == "rejun")
				{
					bool bAccept = (sMarker == "am" || sMarker == "amun" );
					bool bUnanimousEnvirons = (sMarker == "amun" || sMarker == "rejun");
					if(bIsDisambig)
					{
#ifndef hab17a1
						coOrTdCollector.disgorge(((CSentransDisambigModel*)this)->m_rules);
#else // hab17a1
						commentCollector.disgorge(((CSentransDisambigModel*)this)->m_rules);
#endif // hab17a1
						CSentransDisambigRule *r = new CSentransDisambigRule(sField, bAccept, bEnabled, bUnanimousEnvirons, cCommentChar);
						((CSentransDisambigModel*)this)->m_rules.addItem(r);
#ifndef hab17a1
						bSeenSenTransField = TRUE;
#endif // hab17a1
					}
					else
					{
						CString s("SENTRANS-Transfer files can't have disambiguation rules.");
						f.logSkip("SENTRANS-Transfer", sMarker, sField, s);
						//MessageBox( NULL, s, "Parsing Error", MB_OK);
					}
				}

				// various SentransDirectiveTypes

				// jdh 11/9/99 todo: add commentCollector.disgorge() in each of these
				else if(sMarker == "...")
				{
#ifndef hab17a1
					coOrTdCollector.disgorge(((CSentransDisambigModel*)this)->m_rules);
					bSeenSenTransField = TRUE;
#endif // hab17a1
					addRule( new CSentransDirective(CSentransDirective::kLimit, sField, bEnabled, cCommentChar));
				}
				else if(sMarker == "ruleset")
				{
#ifndef hab17a1
					coOrTdCollector.disgorge(((CSentransDisambigModel*)this)->m_rules);
					bSeenSenTransField = TRUE;
#endif // hab17a1
					addRule( new CSentransDirective(CSentransDirective::kBeginRuleSet, sField, bEnabled, cCommentChar));
				}
				else if(sMarker == "endruleset")
				{
#ifndef hab17a1
					coOrTdCollector.disgorge(((CSentransDisambigModel*)this)->m_rules);
					bSeenSenTransField = TRUE;
#endif // hab17a1
					addRule( new CSentransDirective(CSentransDirective::kEndRuleSet, sField, bEnabled, cCommentChar));
				}
				else if(sMarker == "ruleson")
				{
#ifndef hab17a1
					coOrTdCollector.disgorge(((CSentransDisambigModel*)this)->m_rules);
					bSeenSenTransField = TRUE;
#endif // hab17a1
					addRule( new CSentransDirective(CSentransDirective::kRulesOn, sField, bEnabled, cCommentChar));
				}
				else if(sMarker == "rulesoff")
				{
#ifndef hab17a1
					coOrTdCollector.disgorge(((CSentransDisambigModel*)this)->m_rules);
					bSeenSenTransField = TRUE;
#endif // hab17a1
					addRule( new CSentransDirective(CSentransDirective::kRulesOff, sField, bEnabled, cCommentChar));
				}

				// jdh 11/9/99 add \cl field
				else if(sMarker == "cl")
				{
#ifndef hab17a1
#ifndef hab264
					coOrTdCollector.disgorge(m_genericClasses);
#else
					coOrTdCollector.disgorge(commonModel.morphemeClasses);
#endif // hab264
#else // hab17a1
					commentCollector.disgorge(commonModel.morphemeClasses);
					bSeenSenTransField = TRUE;
#endif // hab17a1
					CWClass *c = new CWClass(sField, bEnabled, commonModel.m_cCommentChar);
					m_genericClasses.addItem(c);
				}

				// jdh 5/29/01 add \pat field
				else if(sMarker == "pat")
				{
#ifndef hab264
					coOrTdCollector.disgorge(m_patterns);
#else
					coOrTdCollector.disgorge(commonModel.morphemeClasses);	// why these, why here?  I just copied from the generic_class code above.
#endif // hab264
					CWClass *c = new CWClass(sField, bEnabled, commonModel.m_cCommentChar);
					m_patterns.addItem(c);
				}

				// punctuation fields
				else if(sMarker == "sentpunc")
				{
					m_sSentencePunctuation.setData(sField);
				}

				else if(sMarker == "punc")
				{
					m_sPunctuation.setData(sField);
				}
				else if(sMarker == "bpunc")
				{
					m_sBeginPunctuation.setData(sField);
				}
				else if(sMarker == "tagchar") // tagchar added feb 99
				{
					if(sField.GetLength()>0)
						m_cTagChar.setData(sField[0]);
				}
				else if(sMarker == "CarlaStudioPrefs")
					getRuleList()->readPrefsField(sField);

				// fields to ignore
				else if(sMarker == "id")
					{}	// skip it
				else if(sMarker == "_sh")	// shoebox
				{}	// skip it
				else if(sMarker == "mcl" /*|| sMarker == "cl" jdh commented out 11/9/99*/
						|| sMarker=="scl" ||
						sMarker == "ca" || sMarker=="ccl" || sMarker=="ap" || sMarker=="mp")
#ifndef hab17a1
					{
					  // skip these, which are duplicated in several files,  but don't bother the user
					  coOrTdCollector.removeAll();
					}
#else // hab17a1
					{} // skip these, which are duplicated in several files,  but don't bother the user
#endif // hab17a1
#ifndef hab17a1
				else if(sMarker == "td") // 1.7a1 hab test data
				{
				  coOrTdCollector.add(sField, "td");
				}
#endif //hab17a1
#ifndef hab211
				else if(sMarker == "CSbegca")
				{
				  pLastList = 0; // belongs in ad file
				}
				else if(sMarker == "CSbegmp")
				{
				  pLastList = 0; // belongs in ad file
				}
				else if(sMarker == "CSbegap")
				{
				  pLastList = 0; // belongs in ad file
				}
				else if(sMarker == "CSbegccl")
				{
				  pLastList = 0; // belongs in ad file
				}
				else if(sMarker == "CSbegmcl")
				{
				  pLastList = 0; // belongs in ad file
				}
				else if(sMarker == "CSbegcl")
				{
				  pLastList = &m_genericClasses;
				}
				else if(sMarker == "CSbegpat")	//jdh 5/29/01
				{
				  pLastList = &m_patterns;
				}
				else if(sMarker == "CSbegru")
				{
				  pLastList = &((CSentransTransferModel*)this)->m_rules;
				}
				else if(sMarker == "CSend") // CS-specific section end marker
				{
				  if (pLastList)
					{ // dump any comments or test data to list
					  coOrTdCollector.disgorge(*pLastList);
					  pLastList = 0;
					}
				  else
					coOrTdCollector.removeAll();
				}
#endif //hab211
				else
				{	if(bIsDisambig)
					{	f.logSkip("SENTRANS-Disambig", sMarker, sField);
					}
					else
						f.logSkip("SENTRANS-Transfer", sMarker, sField);
				}
			}
			catch(CString sProblemStr) // these ones we can keep going
			{
				f.logParseFailure("Sentrans", sMarker, sField);
			}
		}
예제 #16
0
// virtual override needed because we don't store the text in the list item itself
void CWListCtrl::setItemText(int nItem, int nSubItem, LPCTSTR pszText)
{
	CWListRowItem* pItem = (CWListRowItem*)GetItemData(nItem);
	ASSERTX(pItem);
	 pItem->setText(nSubItem, pszText);
}
예제 #17
0
// these two are useful, even though the languages themselves are
// directly availible, so that processors don't need to include
// CarlaLanguage.h, which is especially bad for DLLs
CModelFilesSet* CProcessStatus::getInputMFS()
{
	ASSERTX(m_pInputMFS);
	return m_pInputMFS;
	//return m_pInputLang->getMFS();<-- this call will cause a linking problem for dlls
}
예제 #18
0
//called by cProjectDoc OnSaveDocument.
void CLangModelsDoc::writeProjectDocLine(ofstream & fout)
{
	ASSERTX(!m_pLang->getFilePath().IsEmpty()); // should save language before calling this so the path is set
	fout << "\\" << getProjectDocMarker() << " " << m_pLang->getFilePath() << "\n";
}
CString CSentransProcess::getCommandLine(CProcessStatus& status)
{
	strstream sout;
	CModelFilesSet* pSourceMFS = status.getInputMFS();
	ASSERTX(pSourceMFS);
	CModelFilesSet* pTargetMFS = status.getOutputMFS(); // may be null


	if('|' != status.getInputMFS()->getCommentChar())
		sout << " -c " << status.getInputMFS()->getCommentChar() << " ";

/*	 m_bMonitorAmbiguities = FALSE;
	 m_bMonitorRulesApplied = FALSE;
	 m_bTraceRules = FALSE;
	 m_bOutputClassContents = FALSE;
*/
	if(m_bMonitorAmbiguities)
		sout << "-a ";
	if(m_bMonitorRulesApplied)
		sout << "-m ";

	// jdh 11/10/99
	if(status.m_pProcPrefs->m_dwFlags & CProcessingPrefs::kTrace)		// jdh 11/10/99
		sout << "-t ";
	else if(m_bTraceRules)
		sout << "-t ";

	if(m_bOutputClassContents)
		sout << "-v ";

	sout << "-i " << m_sInPath.getQuotedPath(); //.getShortPath();
	sout << " -r ";

	switch(m_iFunction)
	{
		case kDisambig:
			sout << pSourceMFS->getShortCtrlFilePath("disam.sen");
			break;

		case kAdjustSrcGlossing:
			ASSERTX(!status.getOutputMFS());
			// "adj" is now a bad name ("adj-gloss" would be better,
			// but to change it would break everyone
			sout << pSourceMFS->getShortCtrlFilePath("adj.sen");
			break;

		// jdh 15June2000
		case kOtherRuleFile:
			sout << m_sOtherRuleFilePath.getShortPath() << " ";
			break;


		// JDH 6/2/99Add Sentrans Adjust Rules Set for analysis
		case kAdjustAnalysis:
			sout << pSourceMFS->getShortCtrlFilePath("ana.sen");
			break;

		case kTransfer:
			ASSERTX(status.getOutputMFS());
			ASSERTX(pTargetMFS);
#ifndef hab17a1
			sout << ::shortenPath(pTargetMFS->getSentransTransferPath(pSourceMFS->getAbrev(), pTargetMFS->getAbrev()));
#else // hab17a1
			sout << ::shortenPath(pSourceMFS->getSentransTransferPath(pTargetMFS->getAbrev()));
#endif // hab17a1
			break;
		default: ASSERTX(FALSE); break;
	}
// I removed the short paths here just because we haven't
	// yet implemented the artificial creation of files to get
	// short paths if the file doesn't exist

//	sout << " -o " << m_sOutPath.getShortPath() << " ";
	sout << " -o " << m_sOutPath.getQuotedPath() << " ";

	//sout << " >> " <<  m_sLOGPath.getShortPath();
	sout << " > " <<  m_sLOGPath.getQuotedPath();

	CString s(sout.str(), sout.pcount());
	sout.rdbuf()->freeze(0); // else get a memory leak


	// !!!!!!!!!! TO DO: make sure the string is going to be short enough (under 128?)
	return s;
}