QString Porting::renameClass(const QString &className) const
{
if (className == QLatin1String("QSplitter")) // We don't want a Q3Splitter, ever!
return className;
int index = findRule(m_renamedClasses, className);
return index == -1 ? className : m_renamedClasses.at(index).second;
}
inline void PDPolySource::fillList() {
const GroebnerRule & rule1 = d_give.fact(d_numbers.first);
const GroebnerRule & rule2 = d_give.fact(d_numbers.second);
#if 0
if(findRule(id1,d_numbers.first,d_active)) {
if(findRule(id2,d_numbers.second,d_active)) {
#endif
MatcherMonomial matcher;
const Monomial & LHS1 = rule1.LHS(); // id1.poly().mono();
const Monomial & LHS2 = rule2.LHS(); // id2.poly().mono();
if(UserOptions::s_UseSubMatch) {
matcher.subMatch(LHS1,d_numbers.first,LHS2,d_numbers.second,d_list);
};
matcher.overlapMatch(LHS1,d_numbers.first,LHS2,d_numbers.second,d_list);
#if 0
};
};
#endif
};
int intSysMain()
{
Rule *rule;
char str[128];
int key;
int i;
if (is.sitChange)
key = 0;
else
key = 1;
if (is.sitChange)
{
is.sitChange = 0;
rule = findRule(&is);
printf("%s\n", printStates(&is, str));
if (!rule)
{
is.emf = 0;
printf("No rule found\n");
strcpy(ruleDesc, "Suitable response rule not found!");
roboThought = "Damn it! I don't know what to do!!!";
return 1;
}
else
{
printf("Response - %d %s\n", rule->respid, emfName[rule->respid]);
}
is.emf = emf[rule->respid];
*ruleDesc = 0;
for (i=0; i<rule->numsit; ++i)
{
strcat(ruleDesc, rule->sit[i]);
if (i < rule->numsit-1)
strcat(ruleDesc, ", ");
}
strcat(ruleDesc, " --> ");
strcat(ruleDesc, emfName[rule->respid]);
roboThought = rule->respdesc;
}
if (is.emf)
is.emf(key);
return 1;
}
// file announce callback
void
DataPriorityController::operator() (rapid::FileAnnounce const * announcement)
{
MIRO_LOG(LL_DEBUG, "DPC: Received Fileannonuce");
const Rule &rule = findRule(announcement->fileLocator);
if (!rule.m_autoAdd) {
MIRO_LOG_OSTR(LL_DEBUG, "DPC: Not an auto-add file: '" << rule.m_extension << "'"
<< " - " << announcement->fileLocator);
return;
}
MIRO_LOG(LL_DEBUG, "DPC: adding file to queue");
int retval = m_queue.putFile(announcement->fileUuid, rule.m_channel, rule.m_priority);
if (retval != 0) {
MIRO_LOG_OSTR(LL_ERROR, "DPC: Error putting file in queue: " << retval);
}
}
void VCompDialog::okButton( WWindow* )
{
_eName->getText( *_fn );
// _fn->toLower();
if( _fn->isMask() ) {
WMessageDialog::messagef( this, MsgError, MsgOk, _viperError, "'%s' cannot be a wildcard", (const char*)*_fn );
} else if( !_fn->legal() ) {
WMessageDialog::messagef( this, MsgError, MsgOk, _viperError, "'%s' is not a legal filename", (const char*)*_fn );
} else if( !checkName() ) {
//error issued by checkName()
} else if( streq( _fn->ext(), ".tgt" ) ) {
quit( TRUE );
} else if( !legalExt() ) {
//error issued by legalExt()
} else if( !findRule() ) {
//this will work since extension has been verified
} else {
quit( TRUE );
}
}
TopGenerator::TopGenerator(const DataMap &data)
: lang(data.getLang().lang)
{
DynArray<TypeDef::Kind *> kind_list(DoReserve,1024);
for(auto &synt : data.getLang().synts.getRange() )
for(auto &kind : synt.kinds.getRange() )
kind_list.append_copy(&kind);
ulen len=kind_list.getLen();
table.extend_default(len);
ulen count=0;
while( count<len )
{
bool flag=false;
for(ulen ind=count; ind<len ;ind++)
{
auto *kind=kind_list[ind];
if( auto *rule=findRule(kind) )
{
defRule(kind,rule);
if( ind>count ) Swap(kind_list[ind],kind_list[count]);
count++;
flag=true;
}
}
if( !flag )
{
Printf(Exception,"App::TopGenerator::TopGenerator(...) : bad lang");
}
}
}
YY_ACTION(void) yy_1_definition(char *yytext, int yyleng)
{
yyprintf((stderr, "do yy_1_definition\n"));
if (push(beginRule(findRule(yytext)))->rule.expression)
fprintf(stderr, "rule '%s' redefined\n", yytext); ;
}
YY_ACTION(void) yy_2_primary(char *yytext, int yyleng)
{
yyprintf((stderr, "do yy_2_primary\n"));
Node *name= makeName(findRule(yytext)); name->name.variable= pop(); push(name); ;
}
YY_ACTION(void) yy_3_primary(char *yytext, int yyleng)
{
yyprintf((stderr, "do yy_3_primary\n"));
push(makeName(findRule(yytext))); ;
}
QString Porting::renameEnumerator(const QString &enumName) const
{
int index = findRule(m_renamedEnums, enumName);
return index == -1 ? QString() : m_renamedEnums.at(index).second;
}
QString Porting::renameHeader(const QString &headerName) const
{
int index = findRule(m_renamedHeaders, headerName);
return index == -1 ? headerName : m_renamedHeaders.at(index).second;
}
//====================>>> makefileMaker::saveMakefile <<<=========================
void makefileMaker::saveMakefile()
{
bool isBorland = false; // set up Borland stuff
char resName[50];
resName[0] = 0;
libsBCC.erase();
//builds the file named makefile using infos stored in project
cmdw = ((videApp*)theApp)->GetMsgWindow();
// Now, change directory, drive
int ix = strlen(makeName);
while (ix > 0)
{
if (makeName[ix] == '\\' || makeName[ix] == '/')
{
break;
}
--ix;
}
if (ix > 0)
{
char dirPath[maxFileNameSize];
vOS vos;
strcpy(dirPath, makeName); // copy the makefile name
makeName[ix] = 0; // strip the name
if (dirPath[1] == ':') // a drive
{
int drive = dirPath[0]; // need to change drive, too.
if (drive > 'a')
drive = drive - ' ';
vos.vChDrive(drive-'A');
}
vos.vChDir(dirPath); // change dir
}
ofstream mkf(makeName); // where to write makefile
//header
char buff[256];
char date[20];
char time[40];
vGetLocalTime(time);
vGetLocalDate(date);
isBorland = (stricmp(cc,"BCC32") == 0);
if (isBorland)
cmdw->AddLine("Building Borland Makefile...");
else
cmdw->AddLine("Building Makefile -- Running compiler to generate dependencies...");
mkf << "#=======================================================================\n";
mkf << "#@V@:Note: File automatically generated by VIDE: ";
mkf << "(" << time << " " << date << ") (" << cc << ").\n";
mkf << "# This file regenerated each time you run VIDE, so save under a\n";
mkf << "# new name if you hand edit, or it will be overwritten.\n";
mkf << "#=======================================================================\n\n";
mkf << "# Standard defines:\n";
if (isBorland)
{
#ifdef V_VersionWindows
mkf << ".AUTODEPEND\n\n"
<< "# Borland C++ tools\n"
<< "IMPLIB\t= $(BCCROOT)\\bin\\Implib\n"
<< "ILINK32\t= $(BCCROOT)\\bin\\ILink32\n"
<< "TLIB\t= $(BCCROOT)\\bin\\TLib\n"
<< "BRC32\t= $(BCCROOT)\\bin\\Brc32\n"
<< "TASM32\t= $(BCROOT)\\bin\\Tasm32\n"
<< "CC \t= $(BCCROOT)\\bin\\" << cc << "\n\n";
if (*((videApp*)theApp)->getBCCPath())
mkf << "BCCROOT\t= " << ((videApp*)theApp)->getBCCPath() << "\n\n";
else
mkf << "BCCROOT\t= C:\\borland\\bcc55\n\n";
#endif
}
else // gnu stuff
{
mkf << "CC \t=\t" << cc << "\n\n";
mkf << "WRES\t=\twindres\n\n";
}
// HomeV
mkf << "HOMEV\t=\t" << fixBackSlash(homeV,isBorland) << endl;
//Dirs
if (isBorland)
mkf << "VPATH\t=\t$(HOMEV)\\include" << endl;
else
mkf << "VPATH\t=\t$(HOMEV)/include" << endl;
mkf << "oDir\t=\t" << fixBackSlash(ObjDir,isBorland) << endl; //Obj Dir
mkf << "Bin\t=\t" << fixBackSlash(BinDir,isBorland) << endl; //Bin Dir
mkf << "Src\t=\t" << fixBackSlash(SrcDir, isBorland) << endl; //Src Dir
mkf << "libDirs\t=";
int nxtld = libDirs.size();
if (isBorland && nxtld > 0)
mkf << "\t-L";
for (int ixx = 0 ; ixx < nxtld ; ++ixx)
{
if (isBorland) // put out ; separated list
{
mkf << fixBackSlash(libDirs.list[ixx],isBorland);
if (ixx + 1 < nxtld)
mkf << ";";
}
else
{
mkf << "\t-L" << fixBackSlash(libDirs.list[ixx],isBorland);
if (ixx + 1 < nxtld)
mkf << " \\";
mkf << endl;
}
}
if (isBorland)
mkf << endl;
mkf << endl;
mkf << "incDirs\t=";
int nxtid = incDirs.size();
if (isBorland && nxtid > 0)
mkf << "\t-I";
for (int ixa = 0 ; ixa < nxtid ; ++ixa)
{
if (isBorland) // put out ; separated list
{
mkf << fixBackSlash(incDirs.list[ixa],isBorland);
if (ixa + 1 < nxtid)
mkf << ";";
}
else
{
mkf << "\t-I" << fixBackSlash(incDirs.list[ixa],isBorland);
if (ixa + 1 < nxtid)
mkf << " \\";
mkf << endl;
}
}
if (isBorland)
mkf << endl;
mkf << endl;
//Libs
if (isBorland)
{
mkf << "LIBS\t=\t" << fixBCCLibs() << endl;
}
else
mkf << "LIBS\t=\t" << Libs << endl;
//C_FLAGS & paths to includes
mkf << "C_FLAGS\t=\t" << fixBackSlash(cFlags,isBorland);
//defines
int nxtcd = curDefs.size();
for (int ixb = 0 ; ixb < nxtcd ; ++ixb)
{
mkf << "\\\n\t" << curDefs.list[ixb];
}
mkf << endl << endl;
//sources
int nxtof = objFiles.size();
mkf << "SRCS\t=";
for (int ixc = 0 ; ixc < nxtof ; ++ixc)
{
if (isBorland)
mkf << "\\\n\t$(Src)\\" << fixBackSlash(objFiles.list[ixc], isBorland);
else
mkf << "\\\n\t$(Src)/" << objFiles.list[ixc];
}
mkf << endl << endl;
//objects
mkf << "EXOBJS\t=";
for (int ixd = 0 ; ixd < nxtof ; ++ixd)
{
char *objn;
if (isBorland)
{
objn = fixBackSlash(srcN2ObjN(objFiles.list[ixd],".obj"),isBorland);
mkf << "\\" << endl << "\t$(oDir)\\" << objn;
if (strstr(objn,".res") != 0)
strcpy(resName,srcN2ObjN(objFiles.list[ixd],".obj"));
}
else
{
objn = srcN2ObjN(objFiles.list[ixd],".o");
mkf << "\\" << endl << "\t$(oDir)/" << objn;
}
}
mkf << endl << endl;
mkf << "ALLOBJS\t=\t$(EXOBJS)" << endl;
if (isBorland)
{
mkf << "BCCJUNK\t=\t*.il* *.csm *.tds\n";
mkf << "ALLBIN\t=\t$(Bin)\\" << exeName << endl;
mkf << "ALLTGT\t=\t$(Bin)\\" << exeName << endl << endl;
}
else
{
mkf << "ALLBIN\t=\t$(Bin)/" << exeName << endl;
mkf << "ALLTGT\t=\t$(Bin)/" << exeName << endl << endl;
}
// Options
mkf << "# User defines:" << endl;
int nxtOpts = curOpts.size();
for (int ixe = 0 ; ixe < nxtOpts ; ++ixe)
{
fixTabs(buff,curOpts.list[ixe]);
mkf << buff << endl;
}
mkf << endl;
mkf << "#@# Targets follow ---------------------------------"
<< endl << endl;
//target file
//all:
mkf << "all:\t$(ALLTGT)" << endl << endl;
//objs:
mkf << "objs:\t$(ALLOBJS)" << endl << endl;
//cleanobjs:
mkf << "cleanobjs:\n\trm -f $(ALLOBJS)" << endl << endl;
// cleanbin
if (isBorland)
mkf << "cleanbin:\n\trm -f $(ALLBIN) $(BCCJUNK)" << endl << endl;
else
mkf << "cleanbin:\n\trm -f $(ALLBIN)" << endl << endl;
// clean
mkf << "clean:\tcleanobjs cleanbin" << endl << endl;
// cleanall
mkf << "cleanall:\tcleanobjs cleanbin" << endl << endl;
mkf << "#@# User Targets follow ---------------------------------"
<< endl << endl;
for (int ixf = 0 ; userTargets.list[ixf] != 0 ; ++ixf)
{
fixTabs(buff,userTargets.list[ixf]);
mkf << buff << endl;
}
mkf << endl;
mkf << "#@# Dependency rules follow -----------------------------"
<< endl << endl;
//dependency rules
// allow user to override the all: target with a #all comment
if (!(userTargets.list[0] && strstr(userTargets.list[0],"#all")!=0))
{
bool isStaticLib = false;
char ext[32];
// check for a static library
splitFileName(exeName,0,0,ext); // get the extention
if (stricmp(ext,".a") == 0
#ifdef V_VersionWindows
|| stricmp(ext,".lib") == 0 ||
stricmp(ext,".LIB") == 0
#endif
)
isStaticLib = true; // found a static lib
if (isBorland)
{
#ifdef V_VersionWindows
mkf << "$(Bin)\\" << exeName << " : $(EXOBJS)" << endl ;
if (isStaticLib)
{
mkf << " rm -f $<\n";
mkf << " $(TLIB) $< @&&|\n";
for (int ixg = 0 ; objFiles.list[ixg] != 0 ; ixg++)
{
char* objn = srcN2ObjN(objFiles.list[ixg],".obj");
if (ixg != 0)
mkf << " &\n";
mkf << " +$(oDir)\\" << srcN2ObjN(objFiles.list[ixg],".obj");
}
mkf << " \n|\n\n";
}
else // standard linker commands
{
mkf << " $(ILINK32) @&&|\n" << " $(LIBS) $(incDirs) $(libDirs) +\n";
mkf << "$(BCC32STARTUP)";
for (int ixg = 0 ; objFiles.list[ixg] != 0 ; ixg++)
{
char* objn = srcN2ObjN(objFiles.list[ixg],".obj");
if (strstr(objn,".res") == 0)
mkf << " +\n$(oDir)\\" << srcN2ObjN(objFiles.list[ixg],".obj");
}
mkf << "\n$<,$*\n";
for (int ixa = 0 ; libsBCC.list[ixa] != 0 ; ixa++)
{
if (ixa != 0)
mkf << " +\n";
mkf << libsBCC.list[ixa] ;
}
if (*resName) // had a .res file
mkf << "\n\n$(oDir)\\" << resName << "\n\n|\n";
else
mkf << "\n\n\n\n|\n";
}
#endif
}
else // gnu compatible;
{
mkf << "$(Bin)/" << exeName << ": $(EXOBJS)" << endl;
if (isStaticLib)
{
mkf << "\trm -f $(Bin)/" << exeName << endl;
mkf << "\tar cr $(Bin)/" << exeName << " $(EXOBJS)\n";
mkf << "\tranlib $(Bin)" << exeName << endl;
}
else
{
mkf << "\t$(CC) -o $(Bin)/"
<< exeName << " $(EXOBJS) $(incDirs) $(libDirs) $(LIBS)" << endl ;
}
}
}
if (isBorland)
{
// now count on autodependency for borland
for (int ixg = 0 ; objFiles.list[ixg] != 0 ; ixg++)
{
mkf << "$(oDir)\\" << srcN2ObjN(objFiles.list[ixg],".obj");
mkf << " : $(Src)\\" << objFiles.list[ixg] << endl;
// check for .rc files
if (strstr(objFiles.list[ixg],".rc") != 0
|| strstr(objFiles.list[ixg],".RC") != 0)
{
mkf << " $(BRC32) -r $(incDirs) -fo$@ $(Src)\\"
<< objFiles.list[ixg] << "\n\n";
}
else // it is a .rc file
{
mkf << " $(CC) -c $(C_FLAGS) $(incDirs) -o$@ $(Src)\\"
<< objFiles.list[ixg] << "\n\n";
}
}
}
else
{
rules.erase(); // fix by chorn - 03/08/99
for (int ixg = 0 ; objFiles.list[ixg] != 0 ; ixg++)
{
#ifdef V_VersionWindows
if (strstr(objFiles.list[ixg],".rc") != 0
|| strstr(objFiles.list[ixg],".RC") != 0)
{
mkf << "\n$(oDir)/" << srcN2ObjN(objFiles.list[ixg],".o");
mkf << " : $(Src)/" << objFiles.list[ixg] << endl;
mkf << "\t$(WRES) $(Src)/" << objFiles.list[ixg];
mkf << " $(oDir)/" << srcN2ObjN(objFiles.list[ixg],".o");
mkf << "\n";
}
else
{
findRule(objFiles.list[ixg]);
}
#else
findRule(objFiles.list[ixg]);
#endif
}
int lim = rules.size();
for (int ixh = 0 ; ixh < lim ; ++ixh)
{
mkf << endl << "$(oDir)/" << rules.list[ixh] << endl;
// check for continuation lines
while (*(rules.list[ixh]+strlen(rules.list[ixh])-1) == '\\')
{
++ixh;
if (rules.list[ixh])
mkf << rules.list[ixh] << endl;
}
mkf << "\t$(CC) $(C_FLAGS) $(incDirs) -c -o $@ $<" << endl;
}
}
mkf.close();
strcpy(buff,makeName);
strcat(buff," ("); strcat(buff,time); strcat(buff," ");
strcat(buff,date);
strcat(buff,") - Makefile saved.");
cmdw->AddLine(buff);
}
YY_ACTION(void) yy_1_definition(GREG *G, char *yytext, int yyleng, yythunk *thunk, YY_XTYPE YY_XVAR)
{
yyprintf((stderr, "do yy_1_definition\n"));
if (push(beginRule(findRule(yytext)))->rule.expression)
fprintf(stderr, "rule '%s' redefined\n", yytext); ;
}
YY_ACTION(void) yy_2_primary(GREG *G, char *yytext, int yyleng, yythunk *thunk, YY_XTYPE YY_XVAR)
{
yyprintf((stderr, "do yy_2_primary\n"));
Node *name= makeName(findRule(yytext)); name->name.variable= pop(); push(name); ;
}
YY_ACTION(void) yy_3_primary(GREG *G, char *yytext, int yyleng, yythunk *thunk, YY_XTYPE YY_XVAR)
{
yyprintf((stderr, "do yy_3_primary\n"));
push(makeName(findRule(yytext))); ;
}
