void HLCmdLineApp::printDebugInfo ( const highlight::SyntaxReader *lang, const string & langDefPath ) { if (!lang) return; cerr << "\nLoading language definition:\n" << langDefPath; cerr << "\n\nDescription: " << lang->getDescription(); Diluculum::LuaState* luaState=lang->getLuaState(); if (luaState) { cerr << "\n\nLUA GLOBALS:\n" ; Diluculum::LuaValueMap::iterator it; Diluculum::LuaValueMap glob =luaState->globals(); for(it = glob.begin(); it != glob.end(); it++) { Diluculum::LuaValue first = it->first; Diluculum::LuaValue second = it->second; std::cerr << first.asString()<<": "; switch (second.type()) { case LUA_TSTRING: cerr << "string [ "<<second.asString()<<" ]"; break; case LUA_TNUMBER: cerr << "number [ "<<second.asNumber()<<" ]"; break; case LUA_TBOOLEAN: cerr << "boolean [ "<<second.asBoolean()<<" ]"; break; default: cerr << second.typeName(); } cerr << endl; } } /* cerr << "\nREGEX:\n"; highlight::RegexElement *re=NULL; for ( unsigned int i=0; i<lang->getRegexElements().size(); i++ ) { re = lang->getRegexElements() [i]; cerr << "State "<<re->open<<":\t"<<re->rex. <<"\n"; }*/ cerr << "\nKEYWORDS:\n"; highlight::KeywordMap::iterator it; highlight::KeywordMap keys=lang->getKeywords(); for ( it=keys.begin(); it!=keys.end(); it++ ) { cerr << " "<< it->first << "("<< it->second << ")"; } cerr <<"\n\n"; }
void Lua::LuaGraphTreeModel::loadLuaModel( QString name, const Diluculum::LuaValue value, LuaGraphTreeItem* parent ) { if ( value.type() == 5 ) { LuaGraphTreeItem* newParent = new LuaGraphTreeItem( QList<QVariant>() << name << "", parent ); parent->appendChild( newParent ); Diluculum::LuaValueMap tableValue = value.asTable(); for ( Diluculum::LuaValueMap::iterator i = tableValue.begin(); i != tableValue.end(); ++i ) { loadLuaModel( QString::fromStdString( i->first.asString() ), i->second, newParent ); } } else { Lua::LuaInterface* lua = Lua::LuaInterface::getInstance(); Diluculum::LuaValueList param; param.push_back( value ); std::string textValue = lua->callFunction( "tostring", param )[0].asString(); QList<QVariant> list = QList<QVariant>() << name << QString::fromStdString( textValue ); parent->appendChild( new LuaGraphTreeItem( list, parent ) ); } }
LoadResult SyntaxReader::load ( const string& langDefPath, const string& pluginReadFilePath, OutputType outputType, bool clear ) { currentPath=langDefPath; disableHighlighting=false; if (!Platform::fileExists(langDefPath)){ return LOAD_FAILED; } try { if (luaState) delete luaState; luaState=new Diluculum::LuaState(); Diluculum::LuaState& ls=*luaState; initLuaState(ls, langDefPath, pluginReadFilePath, outputType); lua_register (ls.getState(),"AddKeyword",luaAddKeyword); SyntaxReader **s = (SyntaxReader **)lua_newuserdata(ls.getState(), sizeof(SyntaxReader *)); *s=this; lua_setglobal(ls.getState(), GLOBAL_INSTANCE_NAME); // ececute script and read values ls.doFile (langDefPath); langDesc = ls["Description"].value().asString(); if (pluginChunks.size()){ Diluculum::LuaValueList params; params.push_back(langDesc); for (unsigned int i=0;i<pluginChunks.size();i++){ ls.call(*pluginChunks[i], params, "syntax user function"); } } Diluculum::LuaValueMap globals = ls.globals(); ignoreCase=readFlag(ls["IgnoreCase"]); reformatCode=readFlag(ls["EnableIndentation"]); disableHighlighting=readFlag(ls["DisableHighlighting"]); int idx=1; int keywordIdx=0; int kwId=0; char kwName[5]={0}; while (ls["Keywords"][idx].value() !=Diluculum::Nil) { keywordIdx=ls["Keywords"][idx]["Id"].value().asNumber(); snprintf(kwName, sizeof(kwName), "kw%c", ('a'+keywordIdx-1)); // TODO kwa -> kw1... kwId= generateNewKWClass ( kwName ); if (ls["Keywords"][idx]["List"].value()!=Diluculum::Nil) { int listIdx=1; Diluculum::LuaVariable luaList=ls["Keywords"][idx]["List"]; while (luaList[listIdx].value()!=Diluculum::Nil) { keywords.insert ( make_pair ( luaList[listIdx].value().asString(), kwId ) ); ++listIdx; } } else if (ls["Keywords"][idx]["Regex"].value()!=Diluculum::Nil) { string reString=StringTools::trim(ls["Keywords"][idx]["Regex"].value().asString()); int captGroup=-1; if (ls["Keywords"][idx]["Group"].value()!=Diluculum::Nil) { captGroup=ls["Keywords"][idx]["Group"].value().asNumber(); } regex.push_back ( new RegexElement ( KEYWORD, KEYWORD_END, reString, kwId, captGroup ) ); } idx++; } if (globals.count("Comments")) { int listIdx=1; int openDelimId=0; int closeDelimId=0; while (ls["Comments"][listIdx].value()!=Diluculum::Nil) { if (ls["Comments"][listIdx]["Block"].value().asBoolean()) { if (ls["Comments"][listIdx]["Nested"].value()!=Diluculum::Nil) allowNestedComments = ls["Comments"][listIdx]["Nested"].value().asBoolean(); string openDelim=StringTools::trim(ls["Comments"][listIdx]["Delimiter"][1].value().asString()); RegexElement* elem=new RegexElement ( ML_COMMENT,ML_COMMENT_END, openDelim, 0, -1 ); openDelimId=elem->instanceId; regex.push_back ( elem ); string closeDelim=StringTools::trim(ls["Comments"][listIdx]["Delimiter"][2].value().asString()); elem= new RegexElement ( ML_COMMENT_END,ML_COMMENT_END, closeDelim, 0, -1 ); closeDelimId=elem->instanceId; regex.push_back ( elem); delimiterDistinct[openDelimId]=openDelim!=closeDelim; delimiterDistinct[closeDelimId]=openDelim!=closeDelim; delimIds2[closeDelimId]=openDelimId; } else { regex.push_back ( new RegexElement ( SL_COMMENT, SL_COMMENT_END, StringTools::trim(ls["Comments"][listIdx]["Delimiter"][1].value().asString()), 0, -1 ) ); } ++listIdx; } } //move behind comment section because of fortran comments (^cC.*$) string re_digit = StringTools::trim(ls["Digits"].value().asString()); string re_identifier= StringTools::trim(ls["Identifiers"].value().asString()); // insert identifier and number regex after keyword regexes regex.push_back ( new RegexElement ( IDENTIFIER_BEGIN, IDENTIFIER_END, re_identifier ) ); regex.push_back ( new RegexElement ( NUMBER, NUMBER_END, re_digit ) ); if (globals.count("Strings")) { if (ls["Strings"]["RawPrefix"].value()!=Diluculum::Nil) { rawStringPrefix=ls["Strings"]["RawPrefix"].value().asString().at(0); } if (ls["Strings"]["Delimiter"].value()!=Diluculum::Nil) { RegexElement* elem=new RegexElement ( STRING,STRING_END, StringTools::trim( ls["Strings"]["Delimiter"].value().asString()), 0, -1 ); delimiterDistinct[elem->instanceId]=true; regex.push_back (elem ); } if (ls["Strings"]["Interpolation"].value()!=Diluculum::Nil) { RegexElement* elem=new RegexElement ( STRING_INTERPOLATION, STRING_INTERPOLATION_END, StringTools::trim( ls["Strings"]["Interpolation"].value().asString()), 0, -1 ); regex.push_back (elem ); } if (ls["Strings"]["DelimiterPairs"].value()!=Diluculum::Nil) { int listIdx=1; int openDelimId=0; int closeDelimId=0; while (ls["Strings"]["DelimiterPairs"][listIdx].value()!=Diluculum::Nil) { string openDelim=StringTools::trim(ls["Strings"]["DelimiterPairs"][listIdx]["Open"].value().asString()); RegexElement* elem =new RegexElement(STRING, STRING_END, openDelim, 0, -1); openDelimId=elem->instanceId; regex.push_back( elem ); string closeDelim=StringTools::trim(ls["Strings"]["DelimiterPairs"][listIdx]["Close"].value().asString()); elem = new RegexElement(STRING_END, STRING_END, closeDelim, 0, -1); closeDelimId=elem->instanceId; regex.push_back( elem ); delimIds2[closeDelimId]=openDelimId; if (ls["Strings"]["DelimiterPairs"][listIdx]["Raw"].value()!=Diluculum::Nil){ rawStringOpenDelims[openDelimId]=ls["Strings"]["DelimiterPairs"][listIdx]["Raw"].value().asBoolean(); } ++listIdx; } } string escRegex=(ls["Strings"]["Escape"].value()==Diluculum::Nil)?REGEX_ESCSEQ:ls["Strings"]["Escape"].value().asString(); regex.push_back ( new RegexElement ( ESC_CHAR,ESC_CHAR_END, StringTools::trim(escRegex), 0, -1 ) ); } if (globals.count("PreProcessor")) { regex.push_back ( new RegexElement ( DIRECTIVE,DIRECTIVE_END, StringTools::trim(ls["PreProcessor"]["Prefix"].value().asString()), 0, -1 ) ); if (ls["PreProcessor"]["Continuation"].value()!=Diluculum::Nil) { continuationChar=ls["PreProcessor"]["Continuation"].value().asString().at(0); } } if (globals.count("Operators")) { regex.push_back ( new RegexElement ( SYMBOL,SYMBOL_END, StringTools::trim( ls["Operators"].value().asString()), 0, -1 ) ); } if (globals.count("NestedSections")) { int listIdx=1; while (ls["NestedSections"][listIdx].value()!=Diluculum::Nil) { string lang= ls["NestedSections"][listIdx]["Lang"].value().asString(); string openDelim=StringTools::trim(ls["NestedSections"][listIdx]["Delimiter"][1].value().asString()); regex.insert(regex.begin(), 1, new RegexElement(EMBEDDED_CODE_BEGIN, EMBEDDED_CODE_BEGIN, openDelim, 0, -1, lang)); string closeDelim=StringTools::trim(ls["NestedSections"][listIdx]["Delimiter"][2].value().asString()); exitDelimiters[getNewPath(lang)] = closeDelim; ++listIdx; } } if (globals.count("HeaderInjection")) { headerInjection+= ls["HeaderInjection"].value().asString(); } if (globals.count("FooterInjection")) { footerInjection+= ls["FooterInjection"].value().asString(); } // load hook functions if (globals.count("OnStateChange")) { validateStateChangeFct=new Diluculum::LuaFunction(ls["OnStateChange"].value().asFunction()); } if (globals.count("Decorate")) { decorateFct=new Diluculum::LuaFunction(ls["Decorate"].value().asFunction()); } } catch (Diluculum::LuaError err) { luaErrorMsg = string(err.what()); return LOAD_FAILED_LUA; } return LOAD_OK; }