/*********************************************************************** THIS FILE IS AUTOMATICALLY GENERATED. DO NOT MODIFY DEVELOPER: Zihan Chen(vczh) ***********************************************************************/ #include "VlppGlrParserCompiler.h" /*********************************************************************** .\AST\ASTCPPGEN.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; using namespace stream; /*********************************************************************** GenerateAstFileNames ***********************************************************************/ void GenerateAstFileNames(AstSymbolManager& manager, Ptr parserOutput) { auto globalName = manager.Global().name; for (auto group : manager.FileGroups().Values()) { auto astOutput = Ptr(new CppAstGenOutput); astOutput->astH = globalName + group->Name() + L".h"; astOutput->astCpp = globalName + group->Name() + L".cpp"; astOutput->builderH = globalName + group->Name() + L"_Builder.h"; astOutput->builderCpp = globalName + group->Name() + L"_Builder.cpp"; astOutput->emptyH = globalName + group->Name() + L"_Empty.h"; astOutput->emptyCpp = globalName + group->Name() + L"_Empty.cpp"; astOutput->copyH = globalName + group->Name() + L"_Copy.h"; astOutput->copyCpp = globalName + group->Name() + L"_Copy.cpp"; astOutput->traverseH = globalName + group->Name() + L"_Traverse.h"; astOutput->traverseCpp = globalName + group->Name() + L"_Traverse.cpp"; astOutput->jsonH = globalName + group->Name() + L"_Json.h"; astOutput->jsonCpp = globalName + group->Name() + L"_Json.cpp"; parserOutput->astOutputs.Add(group, astOutput); } } /*********************************************************************** Utility ***********************************************************************/ void CollectVisitorsAndConcreteClasses(AstDefFileGroup* group, List& visitors, List& concreteClasses) { for (auto name : group->SymbolOrder()) { if (auto classSymbol = dynamic_cast(group->Symbols()[name])) { if (classSymbol->derivedClasses.Count() > 0) { visitors.Add(classSymbol); } if (!classSymbol->baseClass && classSymbol->derivedClasses.Count() == 0) { concreteClasses.Add(classSymbol); } } } } /*********************************************************************** Forward Declarations ***********************************************************************/ extern void WriteTypeForwardDefinitions(AstDefFileGroup* group, const WString& prefix, stream::StreamWriter& writer); extern void WriteTypeDefinitions(AstDefFileGroup* group, const WString& prefix, stream::StreamWriter& writer); extern void WriteVisitorImpl(AstDefFileGroup* group, const WString& prefix, stream::StreamWriter& writer); extern void WriteTypeReflectionDeclaration(AstDefFileGroup* group, const WString& prefix, stream::StreamWriter& writer); extern void WriteTypeReflectionImplementation(AstDefFileGroup* group, const WString& prefix, stream::StreamWriter& writer); /*********************************************************************** WriteAstHeaderFile ***********************************************************************/ void WriteAstHeaderFile(AstDefFileGroup* group, stream::StreamWriter& writer) { WriteFileComment(group->Name(), writer); auto&& headerGuard = group->Owner()->Global().headerGuard; if (headerGuard != L"") { writer.WriteString(L"#ifndef "); writer.WriteLine(headerGuard + L"_" + wupper(group->Name()) + L"_AST"); writer.WriteString(L"#define "); writer.WriteLine(headerGuard + L"_" + wupper(group->Name()) + L"_AST"); } else { writer.WriteLine(L"#pragma once"); } writer.WriteLine(L""); for (auto include : group->Owner()->Global().includes) { if (include.Length() > 0 && include[0] == L'<') { writer.WriteLine(L"#include " + include); } else { writer.WriteLine(L"#include \"" + include + L"\""); } } writer.WriteLine(L""); { WString prefix = WriteNssBegin(group->cppNss, writer); WriteTypeForwardDefinitions(group, prefix, writer); WriteTypeDefinitions(group, prefix, writer); WriteNssEnd(group->cppNss, writer); } { List refNss; refNss.Add(L"vl"); refNss.Add(L"reflection"); refNss.Add(L"description"); WString prefix = WriteNssBegin(refNss, writer); WriteTypeReflectionDeclaration(group, prefix, writer); WriteNssEnd(refNss, writer); } if (headerGuard != L"") { writer.WriteString(L"#endif"); } } /*********************************************************************** WriteAstCppFile ***********************************************************************/ void WriteAstCppFile(AstDefFileGroup* group, const WString& astHeaderName, stream::StreamWriter& writer) { WriteFileComment(group->Name(), writer); writer.WriteLine(L"#include \"" + astHeaderName + L"\""); writer.WriteLine(L""); { WString prefix = WriteNssBegin(group->cppNss, writer); writer.WriteLine(L"/***********************************************************************"); writer.WriteLine(L"Visitor Pattern Implementation"); writer.WriteLine(L"***********************************************************************/"); WriteVisitorImpl(group, prefix, writer); WriteNssEnd(group->cppNss, writer); } { List refNss; refNss.Add(L"vl"); refNss.Add(L"reflection"); refNss.Add(L"description"); WString prefix = WriteNssBegin(refNss, writer); WriteTypeReflectionImplementation(group, prefix, writer); WriteNssEnd(refNss, writer); } } /*********************************************************************** WriteAstUtilityHeaderFile ***********************************************************************/ void WriteAstUtilityHeaderFile( AstDefFileGroup* group, Ptr output, const WString& extraNss, stream::StreamWriter& writer, Func callback ) { WriteFileComment(group->Name(), writer); auto&& headerGuard = group->Owner()->Global().headerGuard; if (headerGuard != L"") { writer.WriteString(L"#ifndef "); writer.WriteLine(headerGuard + L"_" + wupper(group->Name()) + L"_AST_" + wupper(extraNss)); writer.WriteString(L"#define "); writer.WriteLine(headerGuard + L"_" + wupper(group->Name()) + L"_AST_" + wupper(extraNss)); } else { writer.WriteLine(L"#pragma once"); } writer.WriteLine(L""); writer.WriteLine(L"#include \"" + output->astH + L"\""); writer.WriteLine(L""); { List cppNss; CopyFrom(cppNss, group->cppNss); cppNss.Add(extraNss); WString prefix = WriteNssBegin(cppNss, writer); callback(prefix); WriteNssEnd(cppNss, writer); } if (headerGuard != L"") { writer.WriteString(L"#endif"); } } /*********************************************************************** WriteAstUtilityCppFile ***********************************************************************/ void WriteAstUtilityCppFile( AstDefFileGroup* group, const WString& utilityHeaderFile, const WString& extraNss, stream::StreamWriter& writer, Func callback ) { WriteFileComment(group->Name(), writer); writer.WriteLine(L"#include \"" + utilityHeaderFile + L"\""); writer.WriteLine(L""); { List cppNss; CopyFrom(cppNss, group->cppNss); cppNss.Add(extraNss); WString prefix = WriteNssBegin(cppNss, writer); callback(prefix); WriteNssEnd(cppNss, writer); } } /*********************************************************************** WriteParserUtilityHeaderFile ***********************************************************************/ void WriteParserUtilityHeaderFile( AstSymbolManager& manager, Ptr output, const WString& guardPostfix, stream::StreamWriter& writer, Func callback ) { WriteFileComment(manager.Global().name, writer); if (manager.Global().headerGuard != L"") { writer.WriteString(L"#ifndef "); writer.WriteLine(manager.Global().headerGuard + L"_AST_" + guardPostfix); writer.WriteString(L"#define "); writer.WriteLine(manager.Global().headerGuard + L"_AST_" + guardPostfix); } else { writer.WriteLine(L"#pragma once"); } writer.WriteLine(L""); for (auto group : manager.FileGroups().Values()) { writer.WriteLine(L"#include \"" + output->astOutputs[group]->astH + L"\""); } writer.WriteLine(L""); WString prefix = WriteNssBegin(manager.Global().cppNss, writer); callback(prefix); WriteNssEnd(manager.Global().cppNss, writer); if (manager.Global().headerGuard != L"") { writer.WriteString(L"#endif"); } } /*********************************************************************** WriteParserUtilityCppFile ***********************************************************************/ void WriteParserUtilityCppFile( AstSymbolManager& manager, const WString& utilityHeaderFile, stream::StreamWriter& writer, Func callback ) { WriteFileComment(manager.Global().name, writer); writer.WriteLine(L"#include \"" + utilityHeaderFile + L"\""); writer.WriteLine(L""); WString prefix = WriteNssBegin(manager.Global().cppNss, writer); callback(prefix); WriteNssEnd(manager.Global().cppNss, writer); } /*********************************************************************** WriteAstFiles ***********************************************************************/ void WriteAstFiles(AstDefFileGroup* group, Ptr output, collections::Dictionary& files) { { WString fileH = GenerateToStream([&](StreamWriter& writer) { WriteAstHeaderFile(group, writer); }); WString fileCpp = GenerateToStream([&](StreamWriter& writer) { WriteAstCppFile(group, output->astH, writer); }); files.Add(output->astH, fileH); files.Add(output->astCpp, fileCpp); } { WString fileH = GenerateToStream([&](StreamWriter& writer) { WriteAstBuilderHeaderFile(group, output, writer); }); WString fileCpp = GenerateToStream([&](StreamWriter& writer) { WriteAstBuilderCppFile(group, output, writer); }); files.Add(output->builderH, fileH); files.Add(output->builderCpp, fileCpp); } { WString fileH = GenerateToStream([&](StreamWriter& writer) { WriteEmptyVisitorHeaderFile(group, output, writer); }); WString fileCpp = GenerateToStream([&](StreamWriter& writer) { WriteEmptyVisitorCppFile(group, output, writer); }); files.Add(output->emptyH, fileH); files.Add(output->emptyCpp, fileCpp); } { WString fileH = GenerateToStream([&](StreamWriter& writer) { WriteCopyVisitorHeaderFile(group, output, writer); }); WString fileCpp = GenerateToStream([&](StreamWriter& writer) { WriteCopyVisitorCppFile(group, output, writer); }); files.Add(output->copyH, fileH); files.Add(output->copyCpp, fileCpp); } { WString fileH = GenerateToStream([&](StreamWriter& writer) { WriteTraverseVisitorHeaderFile(group, output, writer); }); WString fileCpp = GenerateToStream([&](StreamWriter& writer) { WriteTraverseVisitorCppFile(group, output, writer); }); files.Add(output->traverseH, fileH); files.Add(output->traverseCpp, fileCpp); } { WString fileH = GenerateToStream([&](StreamWriter& writer) { WriteJsonVisitorHeaderFile(group, output, writer); }); WString fileCpp = GenerateToStream([&](StreamWriter& writer) { WriteJsonVisitorCppFile(group, output, writer); }); files.Add(output->jsonH, fileH); files.Add(output->jsonCpp, fileCpp); } } void WriteAstFiles(AstSymbolManager& manager, Ptr output, collections::Dictionary& files) { for (auto group : manager.FileGroups().Values()) { WriteAstFiles(group, output->astOutputs[group], files); } { WString fileH = GenerateToStream([&](StreamWriter& writer) { WriteAstAssemblerHeaderFile(manager, output, writer); }); WString fileCpp = GenerateToStream([&](StreamWriter& writer) { WriteAstAssemblerCppFile(manager, output, writer); }); files.Add(output->assemblyH, fileH); files.Add(output->assemblyCpp, fileCpp); } } } } } /*********************************************************************** .\AST\ASTCPPGEN_ASSEMBLER.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; using namespace stream; extern void PrintCppType(AstDefFileGroup* fileGroupContext, AstSymbol* propSymbol, stream::StreamWriter& writer); LazyList GetAllSymbols(AstSymbolManager& manager) { return Range(0, manager.Symbols().Count()) .SelectMany([&manager](vint index) { return From(manager.Symbols().GetByIndex(index)); }) ; } /*********************************************************************** WriteAstAssemblerHeaderFile ***********************************************************************/ void WriteAstAssemblerHeaderFile(AstSymbolManager& manager, Ptr output, stream::StreamWriter& writer) { WriteParserUtilityHeaderFile(manager, output, L"ASSEMBLER", writer, [&](const WString& prefix) { { vint index = 0; writer.WriteLine(prefix + L"enum class " + manager.Global().name + L"Classes : vl::vint32_t"); writer.WriteLine(prefix + L"{"); for (auto typeSymbol : GetAllSymbols(manager)) { if (auto classSymbol = dynamic_cast(typeSymbol)) { output->classIds.Add(classSymbol, (vint32_t)index); writer.WriteLine(prefix + L"\t" + classSymbol->Name() + L" = " + itow(index) + L","); index++; } } writer.WriteLine(prefix + L"};"); } { vint index = 0; writer.WriteLine(L""); writer.WriteLine(prefix + L"enum class " + manager.Global().name + L"Fields : vl::vint32_t"); writer.WriteLine(prefix + L"{"); for (auto typeSymbol : GetAllSymbols(manager)) { if (auto classSymbol = dynamic_cast(typeSymbol)) { for (auto propSymbol : classSymbol->Props().Values()) { output->fieldIds.Add(propSymbol, (vint32_t)index); writer.WriteLine(prefix + L"\t" + classSymbol->Name() + L"_" + propSymbol->Name() + L" = " + itow(index) + L","); index++; } } } writer.WriteLine(prefix + L"};"); } { writer.WriteLine(L""); writer.WriteLine(prefix + L"extern const wchar_t* " + manager.Global().name + L"TypeName(" + manager.Global().name + L"Classes type);"); writer.WriteLine(prefix + L"extern const wchar_t* " + manager.Global().name + L"CppTypeName(" + manager.Global().name + L"Classes type);"); writer.WriteLine(prefix + L"extern const wchar_t* " + manager.Global().name + L"FieldName(" + manager.Global().name + L"Fields field);"); writer.WriteLine(prefix + L"extern const wchar_t* " + manager.Global().name + L"CppFieldName(" + manager.Global().name + L"Fields field);"); } { writer.WriteLine(L""); writer.WriteLine(prefix + L"class " + manager.Global().name + L"AstInsReceiver : public vl::glr::AstInsReceiverBase"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"protected:"); writer.WriteLine(prefix + L"\tvl::Ptr CreateAstNode(vl::vint32_t type) override;"); writer.WriteLine(prefix + L"\tvoid SetField(vl::glr::ParsingAstBase* object, vl::vint32_t field, vl::Ptr value) override;"); writer.WriteLine(prefix + L"\tvoid SetField(vl::glr::ParsingAstBase* object, vl::vint32_t field, const vl::regex::RegexToken& token, vl::vint32_t tokenIndex) override;"); writer.WriteLine(prefix + L"\tvoid SetField(vl::glr::ParsingAstBase* object, vl::vint32_t field, vl::vint32_t enumItem, bool weakAssignment) override;"); writer.WriteLine(prefix + L"\tvl::Ptr ResolveAmbiguity(vl::vint32_t type, vl::collections::Array>& candidates) override;"); writer.WriteLine(prefix + L"};"); } }); } /*********************************************************************** WriteAstAssemblerCppFile ***********************************************************************/ void WriteAstAssemblerCppFile(AstSymbolManager& manager, Ptr output, stream::StreamWriter& writer) { WriteParserUtilityCppFile(manager, output->assemblyH, writer, [&](const WString& prefix) { writer.WriteLine(L""); writer.WriteLine(L"/***********************************************************************"); writer.WriteLine(manager.Global().name + L"AstInsReceiver : public vl::glr::AstInsReceiverBase"); writer.WriteLine(L"***********************************************************************/"); /*********************************************************************** CreateAstNode ***********************************************************************/ { writer.WriteLine(L""); writer.WriteLine(prefix + L"vl::Ptr " + manager.Global().name + L"AstInsReceiver::CreateAstNode(vl::vint32_t type)"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"\tauto cppTypeName = " + manager.Global().name + L"CppTypeName((" + manager.Global().name + L"Classes)type);"); writer.WriteLine(prefix + L"\tswitch((" + manager.Global().name + L"Classes)type)"); writer.WriteLine(prefix + L"\t{"); for (auto typeSymbol : GetAllSymbols(manager)) { if (auto classSymbol = dynamic_cast(typeSymbol)) { if (classSymbol->derivedClasses.Count() == 0) { writer.WriteLine(prefix + L"\tcase " + manager.Global().name + L"Classes::" + classSymbol->Name() + L":"); writer.WriteString(prefix + L"\t\treturn vl::Ptr(new "); PrintCppType(nullptr, classSymbol, writer); writer.WriteLine(L");"); } } } writer.WriteLine(prefix + L"\tdefault:"); writer.WriteLine(prefix + L"\t\treturn vl::glr::AssemblyThrowCannotCreateAbstractType(type, cppTypeName);"); writer.WriteLine(prefix + L"\t}"); writer.WriteLine(prefix + L"}"); } /*********************************************************************** SetField(Object) ***********************************************************************/ { writer.WriteLine(L""); writer.WriteLine(prefix + L"void " + manager.Global().name + L"AstInsReceiver::SetField(vl::glr::ParsingAstBase* object, vl::vint32_t field, vl::Ptr value)"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"\tauto cppFieldName = " + manager.Global().name + L"CppFieldName((" + manager.Global().name + L"Fields)field);"); List props; for (auto typeSymbol : GetAllSymbols(manager)) { if (auto classSymbol = dynamic_cast(typeSymbol)) { for (auto [propSymbol, index] : indexed(classSymbol->Props().Values())) { if (propSymbol->propType != AstPropType::Token) { if (dynamic_cast(propSymbol->propSymbol)) { props.Add(propSymbol); } } } } } if (props.Count() > 0) { writer.WriteLine(prefix + L"\tswitch((" + manager.Global().name + L"Fields)field)"); writer.WriteLine(prefix + L"\t{"); for (auto propSymbol : props) { auto classSymbol = propSymbol->Parent(); writer.WriteLine(prefix + L"\tcase " + manager.Global().name + L"Fields::" + classSymbol->Name() + L"_" + propSymbol->Name() + L":"); writer.WriteString(prefix + L"\t\treturn vl::glr::AssemblerSetObjectField(&"); PrintCppType(nullptr, classSymbol, writer); writer.WriteString(L"::"); writer.WriteString(propSymbol->Name()); writer.WriteLine(L", object, field, value, cppFieldName);"); } writer.WriteLine(prefix + L"\tdefault:"); writer.WriteLine(prefix + L"\t\treturn vl::glr::AssemblyThrowFieldNotObject(field, cppFieldName);"); writer.WriteLine(prefix + L"\t}"); } else { writer.WriteLine(prefix + L"\treturn vl::glr::AssemblyThrowFieldNotObject(field, cppFieldName);"); } writer.WriteLine(prefix + L"}"); } /*********************************************************************** SetField(Token) ***********************************************************************/ { writer.WriteLine(L""); writer.WriteLine(prefix + L"void " + manager.Global().name + L"AstInsReceiver::SetField(vl::glr::ParsingAstBase* object, vl::vint32_t field, const vl::regex::RegexToken& token, vl::vint32_t tokenIndex)"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"\tauto cppFieldName = " + manager.Global().name + L"CppFieldName((" + manager.Global().name + L"Fields)field);"); List props; for (auto typeSymbol : GetAllSymbols(manager)) { if (auto classSymbol = dynamic_cast(typeSymbol)) { for (auto [propSymbol, index] : indexed(classSymbol->Props().Values())) { if (propSymbol->propType == AstPropType::Token) { props.Add(propSymbol); } } } } if (props.Count() > 0) { writer.WriteLine(prefix + L"\tswitch((" + manager.Global().name + L"Fields)field)"); writer.WriteLine(prefix + L"\t{"); for (auto propSymbol : props) { auto classSymbol = propSymbol->Parent(); writer.WriteLine(prefix + L"\tcase " + manager.Global().name + L"Fields::" + classSymbol->Name() + L"_" + propSymbol->Name() + L":"); writer.WriteString(prefix + L"\t\treturn vl::glr::AssemblerSetTokenField(&"); PrintCppType(nullptr, classSymbol, writer); writer.WriteString(L"::"); writer.WriteString(propSymbol->Name()); writer.WriteLine(L", object, field, token, tokenIndex, cppFieldName);"); } writer.WriteLine(prefix + L"\tdefault:"); writer.WriteLine(prefix + L"\t\treturn vl::glr::AssemblyThrowFieldNotToken(field, cppFieldName);"); writer.WriteLine(prefix + L"\t}"); } else { writer.WriteLine(prefix + L"\treturn vl::glr::AssemblyThrowFieldNotToken(field, cppFieldName);"); } writer.WriteLine(prefix + L"}"); } /*********************************************************************** SetField(Enum) ***********************************************************************/ { writer.WriteLine(L""); writer.WriteLine(prefix + L"void " + manager.Global().name + L"AstInsReceiver::SetField(vl::glr::ParsingAstBase* object, vl::vint32_t field, vl::vint32_t enumItem, bool weakAssignment)"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"\tauto cppFieldName = " + manager.Global().name + L"CppFieldName((" + manager.Global().name + L"Fields)field);"); List props; for (auto typeSymbol : GetAllSymbols(manager)) { if (auto classSymbol = dynamic_cast(typeSymbol)) { for (auto [propSymbol, index] : indexed(classSymbol->Props().Values())) { if (propSymbol->propType == AstPropType::Type) { if (dynamic_cast(propSymbol->propSymbol)) { props.Add(propSymbol); } } } } } if (props.Count() > 0) { writer.WriteLine(prefix + L"\tswitch((" + manager.Global().name + L"Fields)field)"); writer.WriteLine(prefix + L"\t{"); for (auto propSymbol : props) { auto classSymbol = propSymbol->Parent(); writer.WriteLine(prefix + L"\tcase " + manager.Global().name + L"Fields::" + classSymbol->Name() + L"_" + propSymbol->Name() + L":"); writer.WriteString(prefix + L"\t\treturn vl::glr::AssemblerSetEnumField(&"); PrintCppType(nullptr, classSymbol, writer); writer.WriteString(L"::"); writer.WriteString(propSymbol->Name()); writer.WriteLine(L", object, field, enumItem, weakAssignment, cppFieldName);"); } writer.WriteLine(prefix + L"\tdefault:"); writer.WriteLine(prefix + L"\t\treturn vl::glr::AssemblyThrowFieldNotEnum(field, cppFieldName);"); writer.WriteLine(prefix + L"\t}"); } else { writer.WriteLine(prefix + L"\treturn vl::glr::AssemblyThrowFieldNotEnum(field, cppFieldName);"); } writer.WriteLine(prefix + L"}"); } /*********************************************************************** TypeName ***********************************************************************/ { writer.WriteLine(L""); writer.WriteLine(prefix + L"const wchar_t* " + manager.Global().name + L"TypeName(" + manager.Global().name + L"Classes type)"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"\tconst wchar_t* results[] = {"); Array idToClasses(output->classIds.Count()); for (auto [k, v] : output->classIds) { idToClasses[v] = k; } for (auto classSymbol : idToClasses) { writer.WriteLine(prefix + L"\t\tL\"" + classSymbol->Name() + L"\","); } writer.WriteLine(prefix + L"\t};"); writer.WriteLine(prefix + L"\tvl::vint index = (vl::vint)type;"); writer.WriteLine(prefix + L"\treturn 0 <= index && index < " + itow(idToClasses.Count()) + L" ? results[index] : nullptr;"); writer.WriteLine(prefix + L"}"); } /*********************************************************************** CppTypeName ***********************************************************************/ { writer.WriteLine(L""); writer.WriteLine(prefix + L"const wchar_t* " + manager.Global().name + L"CppTypeName(" + manager.Global().name + L"Classes type)"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"\tconst wchar_t* results[] = {"); Array idToClasses(output->classIds.Count()); for (auto [k, v] : output->classIds) { idToClasses[v] = k; } for (auto classSymbol : idToClasses) { writer.WriteString(prefix + L"\t\tL\""); PrintCppType(nullptr, classSymbol, writer); writer.WriteLine(L"\","); } writer.WriteLine(prefix + L"\t};"); writer.WriteLine(prefix + L"\tvl::vint index = (vl::vint)type;"); writer.WriteLine(prefix + L"\treturn 0 <= index && index < " + itow(idToClasses.Count()) + L" ? results[index] : nullptr;"); writer.WriteLine(prefix + L"}"); } /*********************************************************************** FieldName ***********************************************************************/ { writer.WriteLine(L""); writer.WriteLine(prefix + L"const wchar_t* " + manager.Global().name + L"FieldName(" + manager.Global().name + L"Fields field)"); writer.WriteLine(prefix + L"{"); if (output->fieldIds.Count() > 0) { writer.WriteLine(prefix + L"\tconst wchar_t* results[] = {"); Array idToFields(output->fieldIds.Count()); for (auto [k, v] : output->fieldIds) { idToFields[v] = k; } for (auto propSymbol : idToFields) { auto classSymbol = propSymbol->Parent(); writer.WriteLine(prefix + L"\t\tL\"" + classSymbol->Name() + L"::" + propSymbol->Name() + L"\","); } writer.WriteLine(prefix + L"\t};"); writer.WriteLine(prefix + L"\tvl::vint index = (vl::vint)field;"); writer.WriteLine(prefix + L"\treturn 0 <= index && index < " + itow(idToFields.Count()) + L" ? results[index] : nullptr;"); } else { writer.WriteLine(prefix + L"\treturn nullptr;"); } writer.WriteLine(prefix + L"}"); } /*********************************************************************** CppFieldName ***********************************************************************/ { writer.WriteLine(L""); writer.WriteLine(prefix + L"const wchar_t* " + manager.Global().name + L"CppFieldName(" + manager.Global().name + L"Fields field)"); writer.WriteLine(prefix + L"{"); if (output->fieldIds.Count() > 0) { writer.WriteLine(prefix + L"\tconst wchar_t* results[] = {"); Array idToFields(output->fieldIds.Count()); for (auto [k, v] : output->fieldIds) { idToFields[v] = k; } for (auto propSymbol : idToFields) { auto classSymbol = propSymbol->Parent(); writer.WriteString(prefix + L"\t\tL\""); PrintCppType(nullptr, classSymbol, writer); writer.WriteLine(L"::" + propSymbol->Name() + L"\","); } writer.WriteLine(prefix + L"\t};"); writer.WriteLine(prefix + L"\tvl::vint index = (vl::vint)field;"); writer.WriteLine(prefix + L"\treturn 0 <= index && index < " + itow(idToFields.Count()) + L" ? results[index] : nullptr;"); } else { writer.WriteLine(prefix + L"\treturn nullptr;"); } writer.WriteLine(prefix + L"}"); } /*********************************************************************** ResolveAmbiguity ***********************************************************************/ { writer.WriteLine(L""); writer.WriteLine(prefix + L"vl::Ptr " + manager.Global().name + L"AstInsReceiver::ResolveAmbiguity(vl::vint32_t type, vl::collections::Array>& candidates)"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"\tauto cppTypeName = " + manager.Global().name + L"CppTypeName((" + manager.Global().name + L"Classes)type);"); Dictionary resolvables; for (auto typeSymbol : GetAllSymbols(manager)) { if (auto classSymbol = dynamic_cast(typeSymbol)) { auto current = classSymbol; while (current) { if (current->derivedClass_ToResolve) { resolvables.Add(classSymbol, current->derivedClass_ToResolve); break; } current = current->baseClass; } } } if (resolvables.Count() > 0) { writer.WriteLine(prefix + L"\tswitch((" + manager.Global().name + L"Classes)type)"); writer.WriteLine(prefix + L"\t{"); for (auto typeSymbol : GetAllSymbols(manager)) { if (auto classSymbol = dynamic_cast(typeSymbol)) { if (resolvables.Keys().Contains(classSymbol)) { auto ambiguousClassSymbol = resolvables[classSymbol]; writer.WriteLine(prefix + L"\tcase " + manager.Global().name + L"Classes::" + classSymbol->Name() + L":"); writer.WriteString(prefix + L"\t\treturn vl::glr::AssemblerResolveAmbiguity<"); PrintCppType(nullptr, classSymbol, writer); writer.WriteString(L", "); PrintCppType(nullptr, ambiguousClassSymbol, writer); writer.WriteLine(L">(type, candidates, cppTypeName);"); } } } writer.WriteLine(prefix + L"\tdefault:"); writer.WriteLine(prefix + L"\t\treturn vl::glr::AssemblyThrowTypeNotAllowAmbiguity(type, cppTypeName);"); writer.WriteLine(prefix + L"\t}"); } else { writer.WriteLine(prefix + L"\treturn vl::glr::AssemblyThrowTypeNotAllowAmbiguity(type, cppTypeName);"); } writer.WriteLine(prefix + L"}"); } }); } } } } /*********************************************************************** .\AST\ASTCPPGEN_BUILDER.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; using namespace stream; extern void PrintCppType(AstDefFileGroup* fileGroupContext, AstSymbol* propSymbol, stream::StreamWriter& writer); /*********************************************************************** WriteAstBuilderHeaderFile ***********************************************************************/ void WriteAstBuilderHeaderFile(AstDefFileGroup* group, Ptr output, stream::StreamWriter& writer) { WriteAstUtilityHeaderFile(group, output, L"builder", writer, [&](const WString& prefix) { for(auto typeSymbol : group->Symbols().Values()) { if (auto classSymbol = dynamic_cast(typeSymbol)) { if (classSymbol->Props().Count() > 0) { WString className = L"Make" + classSymbol->Name(); writer.WriteString(prefix + L"class " + className); writer.WriteString(L" : public vl::glr::ParsingAstBuilder<"); PrintCppType(group, classSymbol, writer); writer.WriteLine(L">"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"public:"); auto currentClass = classSymbol; while (currentClass) { for (auto propSymbol : currentClass->Props().Values()) { switch (propSymbol->propType) { case AstPropType::Token: writer.WriteLine(prefix + L"\t" + className + L"& " + propSymbol->Name() + L"(const vl::WString& value);"); break; case AstPropType::Type: if (dynamic_cast(propSymbol->propSymbol)) { writer.WriteString(prefix + L"\t" + className + L"& " + propSymbol->Name() + L"("); PrintCppType(group, propSymbol->propSymbol, writer); writer.WriteLine(L" value);"); break; } case AstPropType::Array: writer.WriteString(prefix + L"\t" + className + L"& " + propSymbol->Name() + L"(const vl::Ptr<"); PrintCppType(group, propSymbol->propSymbol, writer); writer.WriteLine(L">& value);"); break; } } currentClass = currentClass->baseClass; } writer.WriteLine(prefix + L"};"); writer.WriteLine(L""); } } } }); } /*********************************************************************** WriteAstBuilderCppFile ***********************************************************************/ void WriteAstBuilderCppFile(AstDefFileGroup* group, Ptr output, stream::StreamWriter& writer) { WriteAstUtilityCppFile(group, output->builderH, L"builder", writer, [&](const WString& prefix) { for (auto typeSymbol : group->Symbols().Values()) { if (auto classSymbol = dynamic_cast(typeSymbol)) { if (classSymbol->Props().Count() > 0) { WString className = L"Make" + classSymbol->Name(); writer.WriteLine(L""); writer.WriteLine(L"/***********************************************************************"); writer.WriteLine(className); writer.WriteLine(L"***********************************************************************/"); auto currentClass = classSymbol; while (currentClass) { for (auto propSymbol : currentClass->Props().Values()) { writer.WriteLine(L""); switch (propSymbol->propType) { case AstPropType::Token: writer.WriteLine(prefix + className + L"& " + className + L"::" + propSymbol->Name() + L"(const vl::WString& value)"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"\tnode->" + propSymbol->Name() + L".value = value;"); writer.WriteLine(prefix + L"\treturn *this;"); writer.WriteLine(prefix + L"}"); break; case AstPropType::Type: if (dynamic_cast(propSymbol->propSymbol)) { writer.WriteString(prefix + className + L"& " + className + L"::" + propSymbol->Name() + L"("); PrintCppType(group, propSymbol->propSymbol, writer); writer.WriteLine(L" value)"); } if (dynamic_cast(propSymbol->propSymbol)) { writer.WriteString(prefix + className + L"& " + className + L"::" + propSymbol->Name() + L"(const vl::Ptr<"); PrintCppType(group, propSymbol->propSymbol, writer); writer.WriteLine(L">& value)"); } writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"\tnode->" + propSymbol->Name() + L" = value;"); writer.WriteLine(prefix + L"\treturn *this;"); writer.WriteLine(prefix + L"}"); break; case AstPropType::Array: writer.WriteString(prefix + className + L"& " + className + L"::" + propSymbol->Name() + L"(const vl::Ptr<"); PrintCppType(group, propSymbol->propSymbol, writer); writer.WriteLine(L">& value)"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"\tnode->" + propSymbol->Name() + L".Add(value);"); writer.WriteLine(prefix + L"\treturn *this;"); writer.WriteLine(prefix + L"}"); break; } } currentClass = currentClass->baseClass; } } } } }); } } } } /*********************************************************************** .\AST\ASTCPPGEN_CLASSES.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; using namespace stream; /*********************************************************************** WriteTypeForwardDefinitions ***********************************************************************/ void WriteTypeForwardDefinitions(AstDefFileGroup* group, const WString& prefix, stream::StreamWriter& writer) { for (auto [name, index] : indexed(group->Symbols().Keys())) { if (dynamic_cast(group->Symbols().Values()[index])) { writer.WriteString(prefix); writer.WriteString(L"class "); writer.WriteString(group->classPrefix); writer.WriteString(name); writer.WriteLine(L";"); } } } /*********************************************************************** PrintCppType ***********************************************************************/ void PrintNss(List& nss, stream::StreamWriter& writer) { for (auto&& ns : nss) { writer.WriteString(ns); writer.WriteString(L"::"); } } enum class PrintTypePurpose { TypeName, ReflectionName, Value, }; void PrintAstType(AstDefFileGroup* fileGroupContext, AstPropType propType, AstSymbol* propSymbol, PrintTypePurpose purpose, stream::StreamWriter& writer) { if (propType == AstPropType::Token) { writer.WriteString(L"vl::glr::ParsingToken"); return; } if (propType == AstPropType::Array) { writer.WriteString(L"vl::collections::List(propSymbol)) { writer.WriteString(L"vl::Ptr<"); } auto group = propSymbol->Owner()->Owner(); if (purpose == PrintTypePurpose::ReflectionName) { PrintNss(group->refNss, writer); } else { if (fileGroupContext != group) { PrintNss(group->cppNss, writer); } } writer.WriteString(group->classPrefix); writer.WriteString(propSymbol->Name()); if (propType == AstPropType::Array) { writer.WriteString(L">>"); } else if (purpose == PrintTypePurpose::Value && dynamic_cast(propSymbol)) { writer.WriteString(L">"); } } void PrintFieldType(AstDefFileGroup* fileGroupContext, AstPropType propType, AstSymbol* propSymbol, stream::StreamWriter& writer) { PrintAstType(fileGroupContext, propType, propSymbol, PrintTypePurpose::Value, writer); } void PrintCppType(AstDefFileGroup* fileGroupContext, AstSymbol* propSymbol, stream::StreamWriter& writer) { PrintAstType(fileGroupContext, AstPropType::Type, propSymbol, PrintTypePurpose::TypeName, writer); } /*********************************************************************** WriteTypeDefinitions ***********************************************************************/ void WriteTypeDefinitions(AstDefFileGroup* group, const WString& prefix, stream::StreamWriter& writer) { for (auto name : group->SymbolOrder()) { auto typeSymbol = group->Symbols()[name]; if (auto enumSymbol = dynamic_cast(typeSymbol)) { writer.WriteLine(L""); writer.WriteString(prefix); writer.WriteString(L"enum class "); writer.WriteString(group->classPrefix); writer.WriteLine(name); writer.WriteString(prefix); writer.WriteLine(L"{"); { writer.WriteString(prefix); writer.WriteLine(L"\tUNDEFINED_ENUM_ITEM_VALUE = -1,"); } for (auto itemName : enumSymbol->ItemOrder()) { auto itemSymbol = enumSymbol->Items()[itemName]; writer.WriteString(prefix); writer.WriteString(L"\t"); writer.WriteString(itemName); writer.WriteString(L" = "); writer.WriteString(itow(itemSymbol->value)); writer.WriteLine(L","); } writer.WriteString(prefix); writer.WriteLine(L"};"); } } for (auto name : group->SymbolOrder()) { auto typeSymbol = group->Symbols()[name]; if (auto classSymbol = dynamic_cast(typeSymbol)) { writer.WriteLine(L""); writer.WriteString(prefix); writer.WriteString(L"class "); writer.WriteString(group->classPrefix); writer.WriteString(name); if (classSymbol->derivedClasses.Count() > 0) { writer.WriteString(L" abstract"); } writer.WriteString(L" : public "); if (classSymbol->baseClass) { PrintCppType(group, classSymbol->baseClass, writer); } else { writer.WriteString(L"vl::glr::ParsingAstBase"); } writer.WriteString(L", vl::reflection::Description<"); writer.WriteString(group->classPrefix); writer.WriteString(name); writer.WriteLine(L">"); writer.WriteString(prefix); writer.WriteLine(L"{"); writer.WriteString(prefix); writer.WriteLine(L"public:"); if (classSymbol->derivedClasses.Count() > 0) { writer.WriteString(prefix); writer.WriteLine(L"\tclass IVisitor : public virtual vl::reflection::IDescriptable, vl::reflection::Description"); writer.WriteString(prefix); writer.WriteLine(L"\t{"); writer.WriteString(prefix); writer.WriteLine(L"\tpublic:"); for (auto childSymbol : classSymbol->derivedClasses) { writer.WriteString(prefix); writer.WriteString(L"\t\tvirtual void Visit("); PrintCppType(group, childSymbol, writer); writer.WriteLine(L"* node) = 0;"); } writer.WriteString(prefix); writer.WriteLine(L"\t};"); writer.WriteLine(L""); writer.WriteString(prefix); writer.WriteString(L"\tvirtual void Accept("); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"::IVisitor* visitor) = 0;"); writer.WriteLine(L""); } for (auto propName : classSymbol->PropOrder()) { auto propSymbol = classSymbol->Props()[propName]; writer.WriteString(prefix); writer.WriteString(L"\t"); PrintFieldType(group, propSymbol->propType, propSymbol->propSymbol, writer); writer.WriteString(L" "); writer.WriteString(propName); if (dynamic_cast(propSymbol->propSymbol)) { writer.WriteString(L" = "); PrintCppType(group, propSymbol->propSymbol, writer); writer.WriteString(L"::UNDEFINED_ENUM_ITEM_VALUE"); } writer.WriteLine(L";"); } if (classSymbol->baseClass) { writer.WriteLine(L""); writer.WriteString(prefix); writer.WriteString(L"\tvoid Accept("); PrintCppType(group, classSymbol->baseClass, writer); writer.WriteLine(L"::IVisitor* visitor) override;"); } writer.WriteString(prefix); writer.WriteLine(L"};"); } } } /*********************************************************************** WriteVisitorImpl ***********************************************************************/ void WriteVisitorImpl(AstDefFileGroup* group, const WString& prefix, stream::StreamWriter& writer) { for (auto name : group->SymbolOrder()) { if (auto classSymbol = dynamic_cast(group->Symbols()[name])) { if (classSymbol->baseClass) { writer.WriteLine(L""); writer.WriteString(prefix); writer.WriteString(L"void "); PrintCppType(group, classSymbol, writer); writer.WriteString(L"::Accept("); PrintCppType(group, classSymbol->baseClass, writer); writer.WriteLine(L"::IVisitor* visitor)"); writer.WriteString(prefix); writer.WriteLine(L"{"); writer.WriteString(prefix); writer.WriteLine(L"\tvisitor->Visit(this);"); writer.WriteString(prefix); writer.WriteLine(L"}"); } } } } /*********************************************************************** WriteTypeReflectionDeclaration ***********************************************************************/ void WriteTypeReflectionDeclaration(AstDefFileGroup* group, const WString& prefix, stream::StreamWriter& writer) { writer.WriteLine(L"#ifndef VCZH_DEBUG_NO_REFLECTION"); for (auto&& name : group->SymbolOrder()) { auto typeSymbol = group->Symbols()[name]; writer.WriteString(prefix); writer.WriteString(L"DECL_TYPE_INFO("); PrintCppType(nullptr, typeSymbol, writer); writer.WriteLine(L")"); if (auto classSymbol = dynamic_cast(typeSymbol)) { if (classSymbol->derivedClasses.Count() > 0) { writer.WriteString(prefix); writer.WriteString(L"DECL_TYPE_INFO("); PrintCppType(nullptr, typeSymbol, writer); writer.WriteLine(L"::IVisitor)"); } } } writer.WriteLine(L""); writer.WriteLine(L"#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA"); writer.WriteLine(L""); for (auto&& name : group->SymbolOrder()) { if (auto classSymbol = dynamic_cast(group->Symbols()[name])) { if (classSymbol->derivedClasses.Count() > 0) { writer.WriteString(prefix); writer.WriteString(L"BEGIN_INTERFACE_PROXY_NOPARENT_SHAREDPTR("); PrintCppType(nullptr, classSymbol, writer); writer.WriteLine(L"::IVisitor)"); for (auto childSymbol : classSymbol->derivedClasses) { writer.WriteString(prefix); writer.WriteString(L"\tvoid Visit("); PrintCppType(nullptr, childSymbol, writer); writer.WriteLine(L"* node) override"); writer.WriteString(prefix); writer.WriteLine(L"\t{"); writer.WriteString(prefix); writer.WriteLine(L"\t\tINVOKE_INTERFACE_PROXY(Visit, node);"); writer.WriteString(prefix); writer.WriteLine(L"\t}"); writer.WriteLine(L""); } writer.WriteString(prefix); writer.WriteString(L"END_INTERFACE_PROXY("); PrintCppType(nullptr, classSymbol, writer); writer.WriteLine(L"::IVisitor)"); writer.WriteLine(L""); } } } writer.WriteLine(L"#endif"); writer.WriteLine(L"#endif"); writer.WriteString(prefix); writer.WriteLine(L"/// Load all reflectable AST types, only available when VCZH_DEBUG_NO_REFLECTION is off."); writer.WriteString(prefix); writer.WriteLine(L"/// Returns true if this operation succeeded."); writer.WriteString(prefix); writer.WriteString(L"extern bool "); writer.WriteString(group->Owner()->Global().name); writer.WriteString(group->Name()); writer.WriteLine(L"LoadTypes();"); } /*********************************************************************** WriteTypeReflectionImplementation ***********************************************************************/ void WriteTypeReflectionImplementation(AstDefFileGroup* group, const WString& prefix, stream::StreamWriter& writer) { writer.WriteLine(L"#ifndef VCZH_DEBUG_NO_REFLECTION"); writer.WriteLine(L""); for (auto&& name : group->SymbolOrder()) { auto typeSymbol = group->Symbols()[name]; writer.WriteString(prefix); writer.WriteString(L"IMPL_TYPE_INFO_RENAME("); PrintCppType(nullptr, typeSymbol, writer); writer.WriteString(L", "); PrintAstType(nullptr, AstPropType::Type, typeSymbol, PrintTypePurpose::ReflectionName, writer); writer.WriteLine(L")"); if (auto classSymbol = dynamic_cast(typeSymbol)) { if (classSymbol->derivedClasses.Count() > 0) { writer.WriteString(prefix); writer.WriteString(L"IMPL_TYPE_INFO_RENAME("); PrintCppType(nullptr, typeSymbol, writer); writer.WriteString(L"::IVisitor"); writer.WriteString(L", "); PrintAstType(nullptr, AstPropType::Type, typeSymbol, PrintTypePurpose::ReflectionName, writer); writer.WriteLine(L"::IVisitor)"); } } } writer.WriteLine(L""); writer.WriteLine(L"#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA"); for (auto&& name : group->SymbolOrder()) { auto typeSymbol = group->Symbols()[name]; writer.WriteLine(L""); if (auto enumSymbol = dynamic_cast(typeSymbol)) { writer.WriteString(prefix); writer.WriteString(L"BEGIN_ENUM_ITEM("); PrintCppType(nullptr, enumSymbol, writer); writer.WriteLine(L")"); writer.WriteString(prefix); writer.WriteString(L"\tENUM_ITEM_NAMESPACE("); PrintCppType(nullptr, enumSymbol, writer); writer.WriteLine(L")"); for (auto itemName : enumSymbol->ItemOrder()) { writer.WriteString(prefix); writer.WriteString(L"\tENUM_NAMESPACE_ITEM("); writer.WriteString(itemName); writer.WriteLine(L")"); } writer.WriteString(prefix); writer.WriteString(L"END_ENUM_ITEM("); PrintCppType(nullptr, enumSymbol, writer); writer.WriteLine(L")"); } if (auto classSymbol = dynamic_cast(typeSymbol)) { writer.WriteString(prefix); writer.WriteString(L"BEGIN_CLASS_MEMBER("); PrintCppType(nullptr, classSymbol, writer); writer.WriteLine(L")"); if (classSymbol->baseClass) { writer.WriteString(prefix); writer.WriteString(L"\tCLASS_MEMBER_BASE("); PrintCppType(nullptr, classSymbol->baseClass, writer); writer.WriteLine(L")"); } else { writer.WriteLine(prefix + L"\tCLASS_MEMBER_BASE(vl::glr::ParsingAstBase)"); } writer.WriteLine(L""); if (classSymbol->derivedClasses.Count() == 0) { writer.WriteString(prefix); writer.WriteString(L"\tCLASS_MEMBER_CONSTRUCTOR(vl::Ptr<"); PrintCppType(nullptr, classSymbol, writer); writer.WriteLine(L">(), NO_PARAMETER)"); writer.WriteLine(L""); } for (auto propName : classSymbol->PropOrder()) { auto propSymbol = classSymbol->Props()[propName]; writer.WriteString(prefix); writer.WriteString(L"\tCLASS_MEMBER_FIELD("); writer.WriteString(propSymbol->Name()); writer.WriteLine(L")"); } writer.WriteString(prefix); writer.WriteString(L"END_CLASS_MEMBER("); PrintCppType(nullptr, classSymbol, writer); writer.WriteLine(L")"); } } for (auto&& name : group->SymbolOrder()) { if (auto classSymbol = dynamic_cast(group->Symbols()[name])) { if (classSymbol->derivedClasses.Count() > 0) { writer.WriteLine(L""); writer.WriteString(prefix); writer.WriteString(L"BEGIN_INTERFACE_MEMBER("); PrintCppType(nullptr, classSymbol, writer); writer.WriteLine(L"::IVisitor)"); for (auto childSymbol : classSymbol->derivedClasses) { writer.WriteString(prefix); writer.WriteString(L"\tCLASS_MEMBER_METHOD_OVERLOAD(Visit, {L\"node\"}, void("); PrintCppType(nullptr, classSymbol, writer); writer.WriteString(L"::IVisitor::*)("); PrintCppType(nullptr, childSymbol, writer); writer.WriteLine(L"* node))"); } writer.WriteString(prefix); writer.WriteString(L"END_INTERFACE_MEMBER("); PrintCppType(nullptr, classSymbol, writer); writer.WriteLine(L")"); } } } writer.WriteLine(L""); writer.WriteLine(L"#endif"); writer.WriteLine(L""); writer.WriteLine(L"#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA"); writer.WriteString(prefix); writer.WriteString(L"class "); writer.WriteString(group->Owner()->Global().name); writer.WriteString(group->Name()); writer.WriteLine(L"TypeLoader : public vl::Object, public ITypeLoader"); writer.WriteString(prefix); writer.WriteLine(L"{"); writer.WriteString(prefix); writer.WriteLine(L"public:"); writer.WriteString(prefix); writer.WriteLine(L"\tvoid Load(ITypeManager* manager)"); writer.WriteString(prefix); writer.WriteLine(L"\t{"); for (auto&& name : group->SymbolOrder()) { auto typeSymbol = group->Symbols()[name]; writer.WriteString(prefix); writer.WriteString(L"\t\tADD_TYPE_INFO("); PrintCppType(nullptr, typeSymbol, writer); writer.WriteLine(L")"); if (auto classSymbol = dynamic_cast(typeSymbol)) { if (classSymbol->derivedClasses.Count() > 0) { writer.WriteString(prefix); writer.WriteString(L"\t\tADD_TYPE_INFO("); PrintCppType(nullptr, classSymbol, writer); writer.WriteLine(L"::IVisitor)"); } } } writer.WriteString(prefix); writer.WriteLine(L"\t}"); writer.WriteLine(L""); writer.WriteString(prefix); writer.WriteLine(L"\tvoid Unload(ITypeManager* manager)"); writer.WriteString(prefix); writer.WriteLine(L"\t{"); writer.WriteString(prefix); writer.WriteLine(L"\t}"); writer.WriteString(prefix); writer.WriteLine(L"};"); writer.WriteLine(L"#endif"); writer.WriteLine(L"#endif"); writer.WriteLine(L""); writer.WriteString(prefix); writer.WriteString(L"bool "); writer.WriteString(group->Owner()->Global().name); writer.WriteString(group->Name()); writer.WriteLine(L"LoadTypes()"); writer.WriteString(prefix); writer.WriteLine(L"{"); writer.WriteLine(L"#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA"); writer.WriteString(prefix); writer.WriteLine(L"\tif (auto manager = GetGlobalTypeManager())"); writer.WriteString(prefix); writer.WriteLine(L"\t{"); writer.WriteString(prefix); writer.WriteString(L"\t\tauto loader = Ptr(new "); writer.WriteString(group->Owner()->Global().name); writer.WriteString(group->Name()); writer.WriteLine(L"TypeLoader);"); writer.WriteString(prefix); writer.WriteLine(L"\t\treturn manager->AddTypeLoader(loader);"); writer.WriteString(prefix); writer.WriteLine(L"\t}"); writer.WriteLine(L"#endif"); writer.WriteString(prefix); writer.WriteLine(L"\treturn false;"); writer.WriteString(prefix); writer.WriteLine(L"}"); } } } } /*********************************************************************** .\AST\ASTCPPGEN_COPYVISITOR.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; using namespace stream; extern void PrintCppType(AstDefFileGroup* fileGroupContext, AstSymbol* propSymbol, stream::StreamWriter& writer); extern void CollectVisitorsAndConcreteClasses(AstDefFileGroup* group, List& visitors, List& concreteClasses); /*********************************************************************** WriteCopyFieldFunctionBody ***********************************************************************/ void WriteCopyFieldFunctionBody(AstDefFileGroup* group, AstClassSymbol* fieldSymbol, const WString& prefix, stream::StreamWriter& writer) { if (fieldSymbol->baseClass) { writer.WriteString(prefix + L"\tCopyFields(static_cast<"); PrintCppType(group, fieldSymbol->baseClass, writer); writer.WriteString(L"*>(from), static_cast<"); PrintCppType(group, fieldSymbol->baseClass, writer); writer.WriteLine(L"*>(to));"); } for (auto propSymbol : fieldSymbol->Props().Values()) { switch (propSymbol->propType) { case AstPropType::Token: writer.WriteLine(prefix + L"\tto->" + propSymbol->Name() + L" = from->" + propSymbol->Name() + L";"); break; case AstPropType::Array: writer.WriteLine(prefix + L"\tfor (auto&& listItem : from->" + propSymbol->Name() + L")"); writer.WriteLine(prefix + L"\t{"); writer.WriteLine(prefix + L"\t\tto->" + propSymbol->Name() + L".Add(CopyNode(listItem.Obj()));"); writer.WriteLine(prefix + L"\t}"); break; case AstPropType::Type: if (dynamic_cast(propSymbol->propSymbol)) { writer.WriteLine(prefix + L"\tto->" + propSymbol->Name() + L" = CopyNode(from->" + propSymbol->Name() + L".Obj());"); } else { writer.WriteLine(prefix + L"\tto->" + propSymbol->Name() + L" = from->" + propSymbol->Name() + L";"); } break; } } } /*********************************************************************** WriteCopyVisitorHeaderFile ***********************************************************************/ void WriteCopyVisitorHeaderFile(AstDefFileGroup* group, Ptr output, stream::StreamWriter& writer) { WriteAstUtilityHeaderFile(group, output, L"copy_visitor", writer, [&](const WString& prefix) { List visitors, concreteClasses; CollectVisitorsAndConcreteClasses(group, visitors, concreteClasses); writer.WriteLine(prefix + L"/// A copy visitor, overriding all abstract methods with AST copying code."); writer.WriteLine(prefix + L"class " + group->Name() + L"Visitor"); writer.WriteLine(prefix + L"\t: public virtual vl::glr::CopyVisitorBase"); for (auto visitorSymbol : visitors) { writer.WriteString(prefix + L"\t, protected virtual "); PrintCppType(group, visitorSymbol, writer); writer.WriteLine(L"::IVisitor"); } writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"protected:"); for (auto typeSymbol : group->Symbols().Values()) { if (auto classSymbol = dynamic_cast(typeSymbol)) { writer.WriteString(prefix + L"\tvoid CopyFields("); PrintCppType(group, classSymbol, writer); writer.WriteString(L"* from, "); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* to);"); } } writer.WriteLine(L""); writer.WriteLine(prefix + L"protected:"); for (auto classSymbol : concreteClasses) { writer.WriteString(prefix + L"\tvirtual void Visit("); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* node);"); } writer.WriteLine(L""); for (auto visitorSymbol : visitors) { for (auto classSymbol : visitorSymbol->derivedClasses) { writer.WriteString(prefix + L"\tvoid Visit("); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* node) override;"); } writer.WriteLine(L""); } writer.WriteLine(prefix + L"public:"); for (auto classSymbol : From(visitors) .Where([](AstClassSymbol* visitor) { return visitor->baseClass == nullptr; }) .Concat(concreteClasses) ) { writer.WriteString(prefix + L"\tvirtual vl::Ptr<"); PrintCppType(group, classSymbol, writer); writer.WriteString(L"> CopyNode("); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* node);"); } writer.WriteLine(L""); for (auto classSymbol : From(group->Symbols().Values()) .Select([](AstSymbol* derivedClass) { return dynamic_cast(derivedClass); }) .Where([](AstClassSymbol* derivedClass) { return derivedClass && derivedClass->baseClass != nullptr; }) ) { writer.WriteString(prefix + L"\tvl::Ptr<"); PrintCppType(group, classSymbol, writer); writer.WriteString(L"> CopyNode("); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* node);"); } writer.WriteLine(prefix + L"};"); }); } /*********************************************************************** WriteCopyVisitorCppFile ***********************************************************************/ void WriteCopyVisitorCppFile(AstDefFileGroup* group, Ptr output, stream::StreamWriter& writer) { WriteAstUtilityCppFile(group, output->copyH, L"copy_visitor", writer, [&](const WString& prefix) { List visitors, concreteClasses; CollectVisitorsAndConcreteClasses(group, visitors, concreteClasses); for (auto typeSymbol : group->Symbols().Values()) { if (auto classSymbol = dynamic_cast(typeSymbol)) { writer.WriteString(prefix + L"void " + group->Name() + L"Visitor::CopyFields("); PrintCppType(group, classSymbol, writer); writer.WriteString(L"* from, "); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* to)"); writer.WriteLine(prefix + L"{"); WriteCopyFieldFunctionBody(group, classSymbol, prefix, writer); writer.WriteLine(prefix + L"}"); writer.WriteLine(L""); } } for (auto classSymbol : concreteClasses) { writer.WriteString(prefix + L"void " + group->Name() + L"Visitor::Visit("); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* node)"); writer.WriteLine(prefix + L"{"); writer.WriteString(prefix + L"\tauto newNode = vl::Ptr(new "); PrintCppType(group, classSymbol, writer); writer.WriteLine(L");"); writer.WriteLine(prefix + L"\tCopyFields(node, newNode.Obj());"); writer.WriteLine(prefix + L"\tthis->result = newNode;"); writer.WriteLine(prefix + L"}"); writer.WriteLine(L""); } for (auto visitorSymbol : visitors) { for (auto classSymbol : visitorSymbol->derivedClasses) { writer.WriteString(prefix + L"void " + group->Name() + L"Visitor::Visit("); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* node)"); writer.WriteLine(prefix + L"{"); if (classSymbol->derivedClasses.Count() == 0) { writer.WriteString(prefix + L"\tauto newNode = vl::Ptr(new "); PrintCppType(group, classSymbol, writer); writer.WriteLine(L");"); writer.WriteLine(prefix + L"\tCopyFields(node, newNode.Obj());"); writer.WriteLine(prefix + L"\tthis->result = newNode;"); } else { writer.WriteString(prefix + L"\tnode->Accept(static_cast<"); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"::IVisitor*>(this));"); } writer.WriteLine(prefix + L"}"); writer.WriteLine(L""); } } for (auto classSymbol : visitors) { if (!classSymbol->baseClass) { writer.WriteString(prefix + L"vl::Ptr<"); PrintCppType(group, classSymbol, writer); writer.WriteString(L"> " + group->Name() + L"Visitor::CopyNode("); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* node)"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"\tif (!node) return nullptr;"); writer.WriteString(prefix + L"\tnode->Accept(static_cast<"); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"::IVisitor*>(this));"); writer.WriteLine(prefix + L"\tthis->result->codeRange = node->codeRange;"); writer.WriteString(prefix + L"\treturn this->result.Cast<"); PrintCppType(group, classSymbol, writer); writer.WriteLine(L">();"); writer.WriteLine(prefix + L"}"); writer.WriteLine(L""); } } for (auto classSymbol : concreteClasses) { writer.WriteString(prefix + L"vl::Ptr<"); PrintCppType(group, classSymbol, writer); writer.WriteString(L"> " + group->Name() + L"Visitor::CopyNode("); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* node)"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"\tif (!node) return nullptr;"); writer.WriteLine(prefix + L"\tVisit(node);"); writer.WriteLine(prefix + L"\tthis->result->codeRange = node->codeRange;"); writer.WriteString(prefix + L"\treturn this->result.Cast<"); PrintCppType(group, classSymbol, writer); writer.WriteLine(L">();"); writer.WriteLine(prefix + L"}"); writer.WriteLine(L""); } for (auto classSymbol : From(group->Symbols().Values()) .Select([](AstSymbol* derivedClass) { return dynamic_cast(derivedClass); }) .Where([](AstClassSymbol* derivedClass) { return derivedClass && derivedClass->baseClass != nullptr; }) ) { auto rootBaseClass = classSymbol; while (rootBaseClass->baseClass) { rootBaseClass = rootBaseClass->baseClass; } writer.WriteString(prefix + L"vl::Ptr<"); PrintCppType(group, classSymbol, writer); writer.WriteString(L"> " + group->Name() + L"Visitor::CopyNode("); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* node)"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"\tif (!node) return nullptr;"); writer.WriteString(prefix + L"\treturn CopyNode(static_cast<"); PrintCppType(group, rootBaseClass, writer); writer.WriteString(L"*>(node)).Cast<"); PrintCppType(group, classSymbol, writer); writer.WriteLine(L">();"); writer.WriteLine(prefix + L"}"); writer.WriteLine(L""); } }); } } } } /*********************************************************************** .\AST\ASTCPPGEN_EMPTYVISITOR.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; using namespace stream; extern void PrintCppType(AstDefFileGroup* fileGroupContext, AstSymbol* propSymbol, stream::StreamWriter& writer); /*********************************************************************** WriteEmptyVisitorHeaderFile ***********************************************************************/ void WriteEmptyVisitorHeaderFile(AstDefFileGroup* group, Ptr output, stream::StreamWriter& writer) { WriteAstUtilityHeaderFile(group, output, L"empty_visitor", writer, [&](const WString& prefix) { for (auto name : group->SymbolOrder()) { if (auto classSymbol = dynamic_cast(group->Symbols()[name])) { if (classSymbol->derivedClasses.Count() > 0) { writer.WriteLine(prefix + L"/// An empty visitor, overriding all abstract methods with empty implementations."); writer.WriteString(prefix + L"class " + name + L"Visitor : public vl::Object, public "); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"::IVisitor"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"protected:"); writer.WriteLine(prefix + L"\t// Dispatch (virtual) --------------------------------"); for (auto childSymbol : classSymbol->derivedClasses) { if (childSymbol->derivedClasses.Count() > 0) { writer.WriteString(prefix + L"\tvirtual void Dispatch("); PrintCppType(group, childSymbol, writer); writer.WriteLine(L"* node) = 0;"); } } writer.WriteLine(L""); writer.WriteLine(prefix + L"public:"); writer.WriteLine(prefix + L"\t// Visitor Members -----------------------------------"); for (auto childSymbol : classSymbol->derivedClasses) { writer.WriteString(prefix + L"\tvoid Visit("); PrintCppType(group, childSymbol, writer); writer.WriteLine(L"* node) override;"); } writer.WriteLine(prefix + L"};"); writer.WriteLine(L""); } } } }); } /*********************************************************************** WriteEmptyVisitorCppFile ***********************************************************************/ void WriteEmptyVisitorCppFile(AstDefFileGroup* group, Ptr output, stream::StreamWriter& writer) { WriteAstUtilityCppFile(group, output->emptyH, L"empty_visitor", writer, [&](const WString& prefix) { for (auto name : group->SymbolOrder()) { if (auto classSymbol = dynamic_cast(group->Symbols()[name])) { if (classSymbol->derivedClasses.Count() > 0) { writer.WriteLine(L""); writer.WriteLine(L"/***********************************************************************"); writer.WriteLine(classSymbol->Name() + L"Visitor"); writer.WriteLine(L"***********************************************************************/"); writer.WriteLine(L""); writer.WriteLine(prefix + L"// Visitor Members -----------------------------------"); for (auto childSymbol : classSymbol->derivedClasses) { writer.WriteLine(L""); writer.WriteString(prefix + L"void " + classSymbol->Name() + L"Visitor::Visit("); PrintCppType(group, childSymbol, writer); writer.WriteLine(L"* node)"); writer.WriteLine(prefix + L"{"); if (childSymbol->derivedClasses.Count() > 0) { writer.WriteLine(prefix + L"\tDispatch(node);"); } writer.WriteLine(prefix + L"}"); } } } } }); } } } } /*********************************************************************** .\AST\ASTCPPGEN_JSONVISITOR.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; using namespace stream; extern void PrintCppType(AstDefFileGroup* fileGroupContext, AstSymbol* propSymbol, stream::StreamWriter& writer); extern void CollectVisitorsAndConcreteClasses(AstDefFileGroup* group, List& visitors, List& concreteClasses); /*********************************************************************** WriteVisitFieldFunctionBody ***********************************************************************/ void WritePrintFieldsFunctionBody(AstDefFileGroup* group, AstClassSymbol* fieldSymbol, const WString& prefix, stream::StreamWriter& writer) { for (auto propSymbol : fieldSymbol->Props().Values()) { writer.WriteLine(prefix + L"\tBeginField(L\"" + propSymbol->Name() + L"\");"); switch (propSymbol->propType) { case AstPropType::Token: writer.WriteLine(prefix + L"\tWriteToken(node->" + propSymbol->Name() + L");"); break; case AstPropType::Array: writer.WriteLine(prefix + L"\tBeginArray();"); writer.WriteLine(prefix + L"\tfor (auto&& listItem : node->" + propSymbol->Name() + L")"); writer.WriteLine(prefix + L"\t{"); writer.WriteLine(prefix + L"\t\tBeginArrayItem();"); writer.WriteLine(prefix + L"\t\tPrint(listItem.Obj());"); writer.WriteLine(prefix + L"\t\tEndArrayItem();"); writer.WriteLine(prefix + L"\t}"); writer.WriteLine(prefix + L"\tEndArray();"); break; case AstPropType::Type: if (auto enumPropSymbol = dynamic_cast(propSymbol->propSymbol)) { writer.WriteLine(prefix + L"\tswitch (node->" + propSymbol->Name() + L")"); writer.WriteLine(prefix + L"\t{"); for (auto enumItemSymbol : enumPropSymbol->Items().Values()) { writer.WriteString(prefix + L"\tcase "); PrintCppType(nullptr, enumPropSymbol, writer); writer.WriteLine(L"::" + enumItemSymbol->Name() + L":"); writer.WriteLine(prefix + L"\t\tWriteString(L\"" + enumItemSymbol->Name() + L"\");"); writer.WriteLine(prefix + L"\t\tbreak;"); } writer.WriteLine(prefix + L"\tdefault:"); writer.WriteLine(prefix + L"\t\tWriteNull();"); writer.WriteLine(prefix + L"\t}"); } if (dynamic_cast(propSymbol->propSymbol)) { writer.WriteLine(prefix + L"\tPrint(node->" + propSymbol->Name() + L".Obj());"); } break; } writer.WriteLine(prefix + L"\tEndField();"); } } void WriteNullAndReturn(const WString& prefix, stream::StreamWriter& writer) { writer.WriteLine(prefix + L"\tif (!node)"); writer.WriteLine(prefix + L"\t{"); writer.WriteLine(prefix + L"\t\tWriteNull();"); writer.WriteLine(prefix + L"\t\treturn;"); writer.WriteLine(prefix + L"\t}"); } void WriteVisitFunctionBody(AstDefFileGroup* group, AstClassSymbol* fieldSymbol, const WString& prefix, stream::StreamWriter& writer) { WriteNullAndReturn(prefix, writer); List order; { auto current = fieldSymbol; while (current) { order.Add(current); current = current->baseClass; } } writer.WriteLine(prefix + L"\tBeginObject();"); writer.WriteLine(prefix + L"\tWriteType(L\"" + fieldSymbol->Name() + L"\", node);"); for (auto classSymbol : From(order).Reverse()) { writer.WriteString(prefix + L"\tPrintFields(static_cast<"); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"*>(node));"); } writer.WriteLine(prefix + L"\tEndObject();"); } /*********************************************************************** WriteJsonVisitorHeaderFile ***********************************************************************/ void WriteJsonVisitorHeaderFile(AstDefFileGroup* group, Ptr output, stream::StreamWriter& writer) { WriteAstUtilityHeaderFile(group, output, L"json_visitor", writer, [&](const WString& prefix) { List visitors, concreteClasses; CollectVisitorsAndConcreteClasses(group, visitors, concreteClasses); writer.WriteLine(prefix + L"/// A JSON visitor, overriding all abstract methods with AST to JSON serialization code."); writer.WriteLine(prefix + L"class " + group->Name() + L"Visitor"); writer.WriteLine(prefix + L"\t: public vl::glr::JsonVisitorBase"); for (auto visitorSymbol : visitors) { writer.WriteString(prefix + L"\t, protected virtual "); PrintCppType(group, visitorSymbol, writer); writer.WriteLine(L"::IVisitor"); } writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"protected:"); for (auto typeSymbol : group->Symbols().Values()) { if (auto classSymbol = dynamic_cast(typeSymbol)) { writer.WriteString(prefix + L"\tvirtual void PrintFields("); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* node);"); } } writer.WriteLine(L""); writer.WriteLine(prefix + L"protected:"); for (auto visitorSymbol : visitors) { for (auto classSymbol : visitorSymbol->derivedClasses) { writer.WriteString(prefix + L"\tvoid Visit("); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* node) override;"); } writer.WriteLine(L""); } writer.WriteLine(prefix + L"public:"); writer.WriteLine(prefix + L"\t" + group->Name() + L"Visitor(vl::stream::StreamWriter& _writer);"); writer.WriteLine(L""); for (auto classSymbol : From(visitors) .Where([](AstClassSymbol* visitor) { return !visitor->baseClass; }) .Concat(concreteClasses) ) { writer.WriteString(prefix + L"\tvoid Print("); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* node);"); } writer.WriteLine(prefix + L"};"); }); } /*********************************************************************** WriteJsonVisitorCppFile ***********************************************************************/ void WriteJsonVisitorCppFile(AstDefFileGroup* group, Ptr output, stream::StreamWriter& writer) { WriteAstUtilityCppFile(group, output->jsonH, L"json_visitor", writer, [&](const WString& prefix) { List visitors, concreteClasses; CollectVisitorsAndConcreteClasses(group, visitors, concreteClasses); for (auto typeSymbol : group->Symbols().Values()) { if (auto classSymbol = dynamic_cast(typeSymbol)) { writer.WriteString(prefix + L"void " + group->Name() + L"Visitor::PrintFields("); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* node)"); writer.WriteLine(prefix + L"{"); WritePrintFieldsFunctionBody(group, classSymbol, prefix, writer); writer.WriteLine(prefix + L"}"); } } writer.WriteLine(L""); for (auto visitorSymbol : visitors) { for (auto classSymbol : visitorSymbol->derivedClasses) { writer.WriteString(prefix + L"void " + group->Name() + L"Visitor::Visit("); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* node)"); writer.WriteLine(prefix + L"{"); if (classSymbol->derivedClasses.Count() == 0) { WriteVisitFunctionBody(group, classSymbol, prefix, writer); } else { writer.WriteString(prefix + L"\tnode->Accept(static_cast<"); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"::IVisitor*>(this));"); } writer.WriteLine(prefix + L"}"); writer.WriteLine(L""); } } writer.WriteLine(prefix + group->Name() + L"Visitor::" + group->Name() + L"Visitor(vl::stream::StreamWriter& _writer)"); writer.WriteLine(prefix + L"\t: vl::glr::JsonVisitorBase(_writer)"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"}"); writer.WriteLine(L""); for (auto classSymbol : visitors) { if (!classSymbol->baseClass) { writer.WriteString(prefix + L"void " + group->Name() + L"Visitor::Print("); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* node)"); writer.WriteLine(prefix + L"{"); WriteNullAndReturn(prefix, writer); writer.WriteString(prefix + L"\tnode->Accept(static_cast<"); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"::IVisitor*>(this));"); writer.WriteLine(prefix + L"}"); writer.WriteLine(L""); } } for (auto classSymbol : concreteClasses) { writer.WriteString(prefix + L"void " + group->Name() + L"Visitor::Print("); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* node)"); writer.WriteLine(prefix + L"{"); WriteVisitFunctionBody(group, classSymbol, prefix, writer); writer.WriteLine(prefix + L"}"); writer.WriteLine(L""); } }); } } } } /*********************************************************************** .\AST\ASTCPPGEN_TRAVERSEVISITOR.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; using namespace stream; extern void PrintCppType(AstDefFileGroup* fileGroupContext, AstSymbol* propSymbol, stream::StreamWriter& writer); extern void CollectVisitorsAndConcreteClasses(AstDefFileGroup* group, List& visitors, List& concreteClasses); /*********************************************************************** WriteVisitFieldFunctionBody ***********************************************************************/ void WriteVisitFieldFunctionBody(AstDefFileGroup* group, AstClassSymbol* fieldSymbol, const WString& prefix, stream::StreamWriter& writer) { writer.WriteLine(prefix + L"\tif (!node) return;"); List order; { auto current = fieldSymbol; while (current) { order.Add(current); current = current->baseClass; } } writer.WriteLine(prefix + L"\tTraverse(static_cast(node));"); for (auto classSymbol : From(order).Reverse()) { writer.WriteString(prefix + L"\tTraverse(static_cast<"); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"*>(node));"); } { auto current = fieldSymbol; while (current) { for (auto propSymbol : current->Props().Values()) { switch (propSymbol->propType) { case AstPropType::Token: writer.WriteLine(prefix + L"\tTraverse(node->" + propSymbol->Name() + L");"); break; case AstPropType::Array: writer.WriteLine(prefix + L"\tfor (auto&& listItem : node->" + propSymbol->Name() + L")"); writer.WriteLine(prefix + L"\t{"); writer.WriteLine(prefix + L"\t\tInspectInto(listItem.Obj());"); writer.WriteLine(prefix + L"\t}"); break; case AstPropType::Type: if (dynamic_cast(propSymbol->propSymbol)) { writer.WriteLine(prefix + L"\tInspectInto(node->" + propSymbol->Name() + L".Obj());"); } break; } } current = current->baseClass; } } for (auto classSymbol : order) { writer.WriteString(prefix + L"\tFinishing(static_cast<"); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"*>(node));"); } writer.WriteLine(prefix + L"\tFinishing(static_cast(node));"); } /*********************************************************************** WriteTraverseVisitorHeaderFile ***********************************************************************/ void WriteTraverseVisitorHeaderFile(AstDefFileGroup* group, Ptr output, stream::StreamWriter& writer) { WriteAstUtilityHeaderFile(group, output, L"traverse_visitor", writer, [&](const WString& prefix) { List visitors, concreteClasses; CollectVisitorsAndConcreteClasses(group, visitors, concreteClasses); writer.WriteLine(prefix + L"/// A traverse visitor, overriding all abstract methods with AST visiting code."); writer.WriteLine(prefix + L"class " + group->Name() + L"Visitor"); writer.WriteLine(prefix + L"\t: public vl::Object"); for (auto visitorSymbol : visitors) { writer.WriteString(prefix + L"\t, protected virtual "); PrintCppType(group, visitorSymbol, writer); writer.WriteLine(L"::IVisitor"); } writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"protected:"); writer.WriteLine(prefix + L"\tvirtual void Traverse(vl::glr::ParsingToken& token);"); writer.WriteLine(prefix + L"\tvirtual void Traverse(vl::glr::ParsingAstBase* node);"); for (auto typeSymbol : group->Symbols().Values()) { if (auto classSymbol = dynamic_cast(typeSymbol)) { writer.WriteString(prefix + L"\tvirtual void Traverse("); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* node);"); } } writer.WriteLine(L""); writer.WriteLine(prefix + L"protected:"); writer.WriteLine(prefix + L"\tvirtual void Finishing(vl::glr::ParsingAstBase* node);"); for (auto typeSymbol : group->Symbols().Values()) { if (auto classSymbol = dynamic_cast(typeSymbol)) { writer.WriteString(prefix + L"\tvirtual void Finishing("); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* node);"); } } writer.WriteLine(L""); writer.WriteLine(prefix + L"protected:"); for (auto visitorSymbol : visitors) { for (auto classSymbol : visitorSymbol->derivedClasses) { writer.WriteString(prefix + L"\tvoid Visit("); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* node) override;"); } writer.WriteLine(L""); } writer.WriteLine(prefix + L"public:"); for (auto classSymbol : From(visitors) .Where([](AstClassSymbol* visitor) { return !visitor->baseClass; }) .Concat(concreteClasses) ) { writer.WriteString(prefix + L"\tvoid InspectInto("); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* node);"); } writer.WriteLine(prefix + L"};"); }); } /*********************************************************************** WriteTraverseVisitorCppFile ***********************************************************************/ void WriteTraverseVisitorCppFile(AstDefFileGroup* group, Ptr output, stream::StreamWriter& writer) { WriteAstUtilityCppFile(group, output->traverseH, L"traverse_visitor", writer, [&](const WString& prefix) { List visitors, concreteClasses; CollectVisitorsAndConcreteClasses(group, visitors, concreteClasses); writer.WriteLine(prefix + L"void " + group->Name() + L"Visitor::Traverse(vl::glr::ParsingToken& token) {}"); writer.WriteLine(prefix + L"void " + group->Name() + L"Visitor::Traverse(vl::glr::ParsingAstBase* node) {}"); for (auto typeSymbol : group->Symbols().Values()) { if (auto classSymbol = dynamic_cast(typeSymbol)) { writer.WriteString(prefix + L"void " + group->Name() + L"Visitor::Traverse("); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* node) {}"); } } writer.WriteLine(L""); writer.WriteLine(prefix + L"void " + group->Name() + L"Visitor::Finishing(vl::glr::ParsingAstBase* node) {}"); for (auto typeSymbol : group->Symbols().Values()) { if (auto classSymbol = dynamic_cast(typeSymbol)) { writer.WriteString(prefix + L"void " + group->Name() + L"Visitor::Finishing("); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* node) {}"); } } writer.WriteLine(L""); for (auto visitorSymbol : visitors) { for (auto classSymbol : visitorSymbol->derivedClasses) { writer.WriteString(prefix + L"void " + group->Name() + L"Visitor::Visit("); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* node)"); writer.WriteLine(prefix + L"{"); if (classSymbol->derivedClasses.Count() == 0) { WriteVisitFieldFunctionBody(group, classSymbol, prefix, writer); } else { writer.WriteString(prefix + L"\tnode->Accept(static_cast<"); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"::IVisitor*>(this));"); } writer.WriteLine(prefix + L"}"); writer.WriteLine(L""); } } for (auto classSymbol : visitors) { if (!classSymbol->baseClass) { writer.WriteString(prefix + L"void " + group->Name() + L"Visitor::InspectInto("); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* node)"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"\tif (!node) return;"); writer.WriteString(prefix + L"\tnode->Accept(static_cast<"); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"::IVisitor*>(this));"); writer.WriteLine(prefix + L"}"); writer.WriteLine(L""); } } for (auto classSymbol : concreteClasses) { writer.WriteString(prefix + L"void " + group->Name() + L"Visitor::InspectInto("); PrintCppType(group, classSymbol, writer); writer.WriteLine(L"* node)"); writer.WriteLine(prefix + L"{"); WriteVisitFieldFunctionBody(group, classSymbol, prefix, writer); writer.WriteLine(prefix + L"}"); writer.WriteLine(L""); } }); } } } } /*********************************************************************** .\AST\ASTSYMBOL.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; /*********************************************************************** AstSymbol ***********************************************************************/ AstSymbol::AstSymbol(AstDefFile* _file, const WString& _name) : ownerFile(_file) , name(_name) { } /*********************************************************************** AstEnumItemSymbol ***********************************************************************/ AstEnumItemSymbol::AstEnumItemSymbol(AstEnumSymbol* _parent, const WString& name) : AstSymbol(_parent->Owner(), name) , parent(_parent) { } /*********************************************************************** AstEnumSymbol ***********************************************************************/ AstEnumSymbol::AstEnumSymbol(AstDefFile* _file, const WString& _name) : AstSymbol(_file, _name) { } AstEnumItemSymbol* AstEnumSymbol::CreateItem(const WString& itemName, ParsingTextRange codeRange) { auto symbol = new AstEnumItemSymbol(this, itemName); symbol->value = items.map.Count(); if (!items.Add(itemName, symbol)) { ownerFile->AddError( ParserErrorType::DuplicatedEnumItem, codeRange, ownerFile->Name(), name, itemName ); } return symbol; } /*********************************************************************** AstClassPropSymbol ***********************************************************************/ AstClassPropSymbol::AstClassPropSymbol(AstClassSymbol* _parent, const WString& name) : AstSymbol(_parent->Owner(), name) , parent(_parent) { } bool AstClassPropSymbol::SetPropType(AstPropType _type, const WString& typeName, ParsingTextRange codeRange) { propType = _type; if (_type == AstPropType::Token) return true; auto& symbols = parent->Owner()->Owner()->Symbols(); vint index = symbols.Keys().IndexOf(typeName); if (index == -1) { ownerFile->AddError( ParserErrorType::FieldTypeNotExists, codeRange, ownerFile->Name(), parent->Name(), name ); return false; } propSymbol = symbols.Values()[index]; if (parent->Owner() != propSymbol->Owner() && !propSymbol->isPublic) { ownerFile->AddError( ParserErrorType::FieldTypeNotPublic, codeRange, ownerFile->Name(), parent->Name(), name ); return false; } if (_type == AstPropType::Type) return true; if (!dynamic_cast(propSymbol)) { ownerFile->AddError( ParserErrorType::FieldTypeNotClass, codeRange, parent->Owner()->Name(), parent->Name(), name ); return false; } return true; } /*********************************************************************** AstClassSymbol ***********************************************************************/ AstClassSymbol::AstClassSymbol(AstDefFile* _file, const WString& _name) : AstSymbol(_file, _name) { } bool AstClassSymbol::SetBaseClass(const WString& typeName, ParsingTextRange codeRange) { auto& symbols = ownerFile->Owner()->Symbols(); vint index = symbols.Keys().IndexOf(typeName); if (index == -1) { ownerFile->AddError( ParserErrorType::BaseClassNotExists, codeRange, ownerFile->Name(), name, typeName ); return false; } auto newBaseClass = dynamic_cast(symbols.Values()[index]); if (!newBaseClass) { ownerFile->AddError( ParserErrorType::BaseClassNotClass, codeRange, ownerFile->Name(), name, typeName ); return false; } else if (ownerFile != newBaseClass->Owner() && !newBaseClass->isPublic) { ownerFile->AddError( ParserErrorType::BaseClassNotPublic, codeRange, ownerFile->Name(), name, typeName ); return false; } if (newBaseClass->derivedClass_Common) { newBaseClass = newBaseClass->derivedClass_Common; } List visited; visited.Add(newBaseClass); // TODO: (enumerable) foreach:alterable for (vint i = 0; i < visited.Count(); i++) { auto currentSymbol = visited[i]; if (currentSymbol == this) { ownerFile->AddError( ParserErrorType::BaseClassCyclicDependency, codeRange, ownerFile->Name(), name ); return false; } if (currentSymbol->baseClass) { visited.Add(currentSymbol->baseClass); } } baseClass = newBaseClass; newBaseClass->derivedClasses.Add(this); return true; } AstClassSymbol* AstClassSymbol::CreateDerivedClass_ToResolve(ParsingTextRange codeRange) { if (!derivedClass_ToResolve) { auto derived = ownerFile->CreateClass(name + L"ToResolve", false, codeRange); derived->classType = AstClassType::Generated_ToResolve; derived->baseClass = this; derivedClasses.Add(derived); auto prop = derived->CreateProp(L"candidates", codeRange); prop->propType = AstPropType::Array; prop->propSymbol = this; derivedClass_ToResolve = derived; } return derivedClass_ToResolve; } AstClassSymbol* AstClassSymbol::CreateDerivedClass_Common(ParsingTextRange codeRange) { if (!derivedClass_Common) { auto derived = ownerFile->CreateClass(name + L"Common", isPublic, codeRange); derived->classType = AstClassType::Generated_Common; derived->baseClass = this; derivedClasses.Add(derived); derivedClass_Common = derived; } return derivedClass_Common; } AstClassPropSymbol* AstClassSymbol::CreateProp(const WString& propName, ParsingTextRange codeRange) { auto symbol = new AstClassPropSymbol(this, propName); if (!props.Add(propName, symbol)) { ownerFile->AddError( ParserErrorType::DuplicatedClassProp, codeRange, ownerFile->Name(), name, propName ); } return symbol; } /*********************************************************************** FindCommonBaseClass ***********************************************************************/ AstClassSymbol* FindCommonBaseClass(AstClassSymbol* c1, AstClassSymbol* c2) { if (c1 == c2) return c1; if (!c1) return c2; if (!c2) return c1; // find common base classes vint n1 = 0, n2 = 0; { auto c = c1; while (c) { n1++; c = c->baseClass; } } { auto c = c2; while (c) { n2++; c = c->baseClass; } } while (n1 > n2) { n1--; c1 = c1->baseClass; } while (n2 > n1) { n2--; c2 = c2->baseClass; } while (c1 && c2) { if (c1 == c2) return c1; c1 = c1->baseClass; c2 = c2->baseClass; } return nullptr; } /*********************************************************************** FindPropSymbol ***********************************************************************/ AstClassPropSymbol* FindPropSymbol(AstClassSymbol*& type, const WString& name) { auto currentType = type; while (currentType) { vint index = currentType->Props().Keys().IndexOf(name); if (index != -1) { return currentType->Props().Values()[index]; } currentType = currentType->baseClass; } return nullptr; } /*********************************************************************** AstDefFile ***********************************************************************/ template T* AstDefFile::CreateSymbol(const WString& symbolName, ParsingTextRange codeRange) { auto symbol = new T(this, symbolName); if (!symbols.Add(symbolName, symbol)) { AddError( ParserErrorType::DuplicatedSymbolInFile, codeRange, name, symbolName ); } else if (ownerGroup->symbolMap.Keys().Contains(symbolName)) { AddError( ParserErrorType::DuplicatedSymbolInFileGroup, codeRange, name, symbolName, ownerGroup->symbolMap[symbolName]->Owner()->name ); } else { ownerGroup->symbolMap.Add(symbolName, symbol); ownerGroup->ownerManager->symbolGroup.Add(symbolName, symbol); } return symbol; } AstDefFile::AstDefFile(AstDefFileGroup* _ownerGroup, const WString& _name) : ownerGroup(_ownerGroup) , name(_name) { } AstEnumSymbol* AstDefFile::CreateEnum(const WString& symbolName, bool isPublic, ParsingTextRange codeRange) { auto symbol = CreateSymbol(symbolName, codeRange); symbol->isPublic = isPublic; return symbol; } AstClassSymbol* AstDefFile::CreateClass(const WString& symbolName, bool isPublic, ParsingTextRange codeRange) { auto symbol = CreateSymbol(symbolName, codeRange); symbol->isPublic = isPublic; return symbol; } /*********************************************************************** AstDefFileGroup ***********************************************************************/ AstDefFileGroup::AstDefFileGroup(AstSymbolManager* _ownerManager, const WString& _name) : ownerManager(_ownerManager) , name(_name) { } bool AstDefFileGroup::AddDependency(const WString& dependency, ParsingTextRange codeRange) { if (dependencies.Contains(dependency)) return true; if (!ownerManager->FileGroups().Keys().Contains(dependency)) { AddError( ParserErrorType::FileGroupDependencyNotExists, codeRange, name, dependency ); return false; } List visited; visited.Add(dependency); // TODO: (enumerable) foreach for (vint i = 0; i < visited.Count(); i++) { auto currentName = visited[i]; if (currentName == name) { AddError( ParserErrorType::FileGroupCyclicDependency, codeRange, name, dependency ); return false; } auto current = ownerManager->FileGroups()[currentName]; // TODO: (enumerable) foreach for (vint j = 0; j < current->dependencies.Count(); j++) { auto dep = current->dependencies[j]; if (!visited.Contains(dep)) { visited.Add(dep); } } } dependencies.Add(dependency); return true; } AstDefFile* AstDefFileGroup::CreateFile(const WString& name) { auto file = new AstDefFile(this, name); if (!files.Add(name, file)) { AddError( ParserErrorType::DuplicatedFile, {}, name ); } return file; } /*********************************************************************** AstSymbolManager ***********************************************************************/ AstSymbolManager::AstSymbolManager(ParserSymbolManager& _global) : global(_global) { } AstDefFileGroup* AstSymbolManager::CreateFileGroup(const WString& name) { auto fileGroup = new AstDefFileGroup(this, name); if (!fileGroups.Add(name, fileGroup)) { global.AddError( ParserErrorType::DuplicatedFileGroup, { ParserDefFileType::AstGroup,name }, name ); } return fileGroup; } } } } /*********************************************************************** .\AST\ASTSYMBOL_CREATEPARSERGENRULEAST.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; /*********************************************************************** CreateParserGenRuleAst ***********************************************************************/ AstDefFile* CreateParserGenRuleAst(AstSymbolManager& manager) { auto _group = manager.CreateFileGroup(L"RuleAst"); auto _ast = _group->CreateFile(L"Ast"); Fill(_group->cppNss, L"vl", L"glr", L"parsergen"); Fill(_group->refNss, L"glr", L"parsergen"); _group->classPrefix = L"Glr"; /////////////////////////////////////////////////////////////////////////////////// // Condition /////////////////////////////////////////////////////////////////////////////////// auto _Condition = _ast->CreateClass(L"Condition"); auto _RefCondition = _ast->CreateClass(L"RefCondition"); _RefCondition->SetBaseClass(L"Condition"); _RefCondition->CreateProp(L"name")->SetPropType(AstPropType::Token); auto _NotCondition = _ast->CreateClass(L"NotCondition"); _NotCondition->SetBaseClass(L"Condition"); _NotCondition->CreateProp(L"condition")->SetPropType(AstPropType::Type, L"Condition"); auto _AndCondition = _ast->CreateClass(L"AndCondition"); _AndCondition->SetBaseClass(L"Condition"); _AndCondition->CreateProp(L"first")->SetPropType(AstPropType::Type, L"Condition"); _AndCondition->CreateProp(L"second")->SetPropType(AstPropType::Type, L"Condition"); auto _OrCondition = _ast->CreateClass(L"OrCondition"); _OrCondition->SetBaseClass(L"Condition"); _OrCondition->CreateProp(L"first")->SetPropType(AstPropType::Type, L"Condition"); _OrCondition->CreateProp(L"second")->SetPropType(AstPropType::Type, L"Condition"); /////////////////////////////////////////////////////////////////////////////////// // Switch /////////////////////////////////////////////////////////////////////////////////// auto _SwitchValue = _ast->CreateEnum(L"SwitchValue"); _SwitchValue->CreateItem(L"False"); _SwitchValue->CreateItem(L"True"); auto _Switch = _ast->CreateClass(L"SwitchItem"); _Switch->CreateProp(L"name")->SetPropType(AstPropType::Token); _Switch->CreateProp(L"value")->SetPropType(AstPropType::Type, L"SwitchValue"); /////////////////////////////////////////////////////////////////////////////////// // Syntax /////////////////////////////////////////////////////////////////////////////////// auto _Syntax = _ast->CreateClass(L"Syntax"); auto _RefType = _ast->CreateEnum(L"RefType"); _RefType->CreateItem(L"Id"); _RefType->CreateItem(L"Literal"); _RefType->CreateItem(L"ConditionalLiteral"); auto _RefSyntax = _ast->CreateClass(L"RefSyntax"); _RefSyntax->SetBaseClass(L"Syntax"); _RefSyntax->CreateProp(L"refType")->SetPropType(AstPropType::Type, L"RefType"); _RefSyntax->CreateProp(L"literal")->SetPropType(AstPropType::Token); _RefSyntax->CreateProp(L"field")->SetPropType(AstPropType::Token); auto _UseSyntax = _ast->CreateClass(L"UseSyntax"); _UseSyntax->SetBaseClass(L"Syntax"); _UseSyntax->CreateProp(L"name")->SetPropType(AstPropType::Token); auto _LoopSyntax = _ast->CreateClass(L"LoopSyntax"); _LoopSyntax->SetBaseClass(L"Syntax"); _LoopSyntax->CreateProp(L"syntax")->SetPropType(AstPropType::Type, L"Syntax"); _LoopSyntax->CreateProp(L"delimiter")->SetPropType(AstPropType::Type, L"Syntax"); auto _OptionalPriority = _ast->CreateEnum(L"OptionalPriority"); _OptionalPriority->CreateItem(L"Equal"); _OptionalPriority->CreateItem(L"PreferTake"); _OptionalPriority->CreateItem(L"PreferSkip"); auto _OptionalSyntax = _ast->CreateClass(L"OptionalSyntax"); _OptionalSyntax->SetBaseClass(L"Syntax"); _OptionalSyntax->CreateProp(L"priority")->SetPropType(AstPropType::Type, L"OptionalPriority"); _OptionalSyntax->CreateProp(L"syntax")->SetPropType(AstPropType::Type, L"Syntax"); auto _SequenceSyntax = _ast->CreateClass(L"SequenceSyntax"); _SequenceSyntax->SetBaseClass(L"Syntax"); _SequenceSyntax->CreateProp(L"first")->SetPropType(AstPropType::Type, L"Syntax"); _SequenceSyntax->CreateProp(L"second")->SetPropType(AstPropType::Type, L"Syntax"); auto _AlternativeSyntax = _ast->CreateClass(L"AlternativeSyntax"); _AlternativeSyntax->SetBaseClass(L"Syntax"); _AlternativeSyntax->CreateProp(L"first")->SetPropType(AstPropType::Type, L"Syntax"); _AlternativeSyntax->CreateProp(L"second")->SetPropType(AstPropType::Type, L"Syntax"); /////////////////////////////////////////////////////////////////////////////////// // Conditional Clause /////////////////////////////////////////////////////////////////////////////////// auto _PushConditionSyntax = _ast->CreateClass(L"PushConditionSyntax"); _PushConditionSyntax->SetBaseClass(L"Syntax"); _PushConditionSyntax->CreateProp(L"switches")->SetPropType(AstPropType::Array, L"SwitchItem"); _PushConditionSyntax->CreateProp(L"syntax")->SetPropType(AstPropType::Type, L"Syntax"); auto _TestConditionBranch = _ast->CreateClass(L"TestConditionBranch"); _TestConditionBranch->CreateProp(L"condition")->SetPropType(AstPropType::Type, L"Condition"); _TestConditionBranch->CreateProp(L"syntax")->SetPropType(AstPropType::Type, L"Syntax"); auto _TestConditionSyntax = _ast->CreateClass(L"TestConditionSyntax"); _TestConditionSyntax->SetBaseClass(L"Syntax"); _TestConditionSyntax->CreateProp(L"branches")->SetPropType(AstPropType::Array, L"TestConditionBranch"); /////////////////////////////////////////////////////////////////////////////////// // Clause /////////////////////////////////////////////////////////////////////////////////// auto _Clause = _ast->CreateClass(L"Clause"); auto _AssignmentType = _ast->CreateEnum(L"AssignmentType"); _AssignmentType->CreateItem(L"Strong"); _AssignmentType->CreateItem(L"Weak"); auto _Assignment = _ast->CreateClass(L"Assignment"); _Assignment->CreateProp(L"type")->SetPropType(AstPropType::Type, L"AssignmentType"); _Assignment->CreateProp(L"field")->SetPropType(AstPropType::Token); _Assignment->CreateProp(L"value")->SetPropType(AstPropType::Token); auto _CreateClause = _ast->CreateClass(L"CreateClause"); _CreateClause->SetBaseClass(L"Clause"); _CreateClause->CreateProp(L"type")->SetPropType(AstPropType::Token); _CreateClause->CreateProp(L"syntax")->SetPropType(AstPropType::Type, L"Syntax"); _CreateClause->CreateProp(L"assignments")->SetPropType(AstPropType::Array, L"Assignment"); auto _PartialClause = _ast->CreateClass(L"PartialClause"); _PartialClause->SetBaseClass(L"Clause"); _PartialClause->CreateProp(L"type")->SetPropType(AstPropType::Token); _PartialClause->CreateProp(L"syntax")->SetPropType(AstPropType::Type, L"Syntax"); _PartialClause->CreateProp(L"assignments")->SetPropType(AstPropType::Array, L"Assignment"); auto _ReuseClause = _ast->CreateClass(L"ReuseClause"); _ReuseClause->SetBaseClass(L"Clause"); _ReuseClause->CreateProp(L"syntax")->SetPropType(AstPropType::Type, L"Syntax"); _ReuseClause->CreateProp(L"assignments")->SetPropType(AstPropType::Array, L"Assignment"); /////////////////////////////////////////////////////////////////////////////////// // Left Recursion Clauses /////////////////////////////////////////////////////////////////////////////////// auto _Lrp = _ast->CreateClass(L"LeftRecursionPlaceholder"); _Lrp->CreateProp(L"flag")->SetPropType(AstPropType::Token); auto _LrpClause = _ast->CreateClass(L"LeftRecursionPlaceholderClause"); _LrpClause->SetBaseClass(L"Clause"); _LrpClause->CreateProp(L"flags")->SetPropType(AstPropType::Array, L"LeftRecursionPlaceholder"); auto LriConfig = _ast->CreateEnum(L"LeftRecursionConfiguration"); LriConfig->CreateItem(L"Single"); LriConfig->CreateItem(L"Multiple"); auto LriContinuationType = _ast->CreateEnum(L"LeftRecursionInjectContinuationType"); LriContinuationType->CreateItem(L"Optional"); LriContinuationType->CreateItem(L"Required"); auto _LriContinuation = _ast->CreateClass(L"LeftRecursionInjectContinuation"); auto _LriClause = _ast->CreateClass(L"LeftRecursionInjectClause"); _LriContinuation->CreateProp(L"flags")->SetPropType(AstPropType::Array, L"LeftRecursionPlaceholder"); _LriContinuation->CreateProp(L"configuration")->SetPropType(AstPropType::Type, L"LeftRecursionConfiguration"); _LriContinuation->CreateProp(L"type")->SetPropType(AstPropType::Type, L"LeftRecursionInjectContinuationType"); _LriContinuation->CreateProp(L"injectionTargets")->SetPropType(AstPropType::Array, L"LeftRecursionInjectClause"); _LriClause->SetBaseClass(L"Clause"); _LriClause->CreateProp(L"rule")->SetPropType(AstPropType::Type, L"RefSyntax"); _LriClause->CreateProp(L"continuation")->SetPropType(AstPropType::Type, L"LeftRecursionInjectContinuation"); auto _PmClause = _ast->CreateClass(L"PrefixMergeClause"); _PmClause->SetBaseClass(L"Clause"); _PmClause->CreateProp(L"rule")->SetPropType(AstPropType::Type, L"RefSyntax"); /////////////////////////////////////////////////////////////////////////////////// // Rule /////////////////////////////////////////////////////////////////////////////////// auto _Rule = _ast->CreateClass(L"Rule"); _Rule->CreateProp(L"attPublic")->SetPropType(AstPropType::Token); _Rule->CreateProp(L"attParser")->SetPropType(AstPropType::Token); _Rule->CreateProp(L"name")->SetPropType(AstPropType::Token); _Rule->CreateProp(L"type")->SetPropType(AstPropType::Token); _Rule->CreateProp(L"clauses")->SetPropType(AstPropType::Array, L"Clause"); /////////////////////////////////////////////////////////////////////////////////// // File /////////////////////////////////////////////////////////////////////////////////// auto _File = _ast->CreateClass(L"SyntaxFile"); _File->CreateProp(L"switches")->SetPropType(AstPropType::Array, L"SwitchItem"); _File->CreateProp(L"rules")->SetPropType(AstPropType::Array, L"Rule"); return _ast; } } } } /*********************************************************************** .\AST\ASTSYMBOL_CREATEPARSERGENTYPEAST.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; /*********************************************************************** CreateParserGenTypeAst ***********************************************************************/ AstDefFile* CreateParserGenTypeAst(AstSymbolManager& manager) { auto _group = manager.CreateFileGroup(L"TypeAst"); auto _ast = _group->CreateFile(L"Ast"); Fill(_group->cppNss, L"vl", L"glr", L"parsergen"); Fill(_group->refNss, L"glr", L"parsergen"); _group->classPrefix = L"Glr"; auto _type = _ast->CreateClass(L"Type"); _type->CreateProp(L"attPublic")->SetPropType(AstPropType::Token); _type->CreateProp(L"name")->SetPropType(AstPropType::Token); auto _enumItem = _ast->CreateClass(L"EnumItem"); _enumItem->CreateProp(L"name")->SetPropType(AstPropType::Token); auto _enum = _ast->CreateClass(L"Enum"); _enum->SetBaseClass(L"Type"); _enum->CreateProp(L"items")->SetPropType(AstPropType::Array, L"EnumItem"); auto _propType = _ast->CreateEnum(L"PropType"); _propType->CreateItem(L"Token"); _propType->CreateItem(L"Type"); _propType->CreateItem(L"Array"); auto _classProp = _ast->CreateClass(L"ClassProp"); _classProp->CreateProp(L"name")->SetPropType(AstPropType::Token); _classProp->CreateProp(L"propType")->SetPropType(AstPropType::Type, L"PropType"); _classProp->CreateProp(L"propTypeName")->SetPropType(AstPropType::Token); auto _class = _ast->CreateClass(L"Class"); _class->SetBaseClass(L"Type"); _class->CreateProp(L"attAmbiguous")->SetPropType(AstPropType::Token); _class->CreateProp(L"baseClass")->SetPropType(AstPropType::Token); _class->CreateProp(L"props")->SetPropType(AstPropType::Array, L"ClassProp"); auto _file = _ast->CreateClass(L"AstFile"); _file->CreateProp(L"types")->SetPropType(AstPropType::Array, L"Type"); return _ast; } } } } /*********************************************************************** .\LEXER\LEXERCPPGEN.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; using namespace stream; using namespace regex; /*********************************************************************** WriteLexerHeaderFile ***********************************************************************/ void WriteLexerHeaderFile(LexerSymbolManager& manager, Ptr output, stream::StreamWriter& writer) { WriteFileComment(manager.Global().name, writer); if (manager.Global().headerGuard != L"") { writer.WriteString(L"#ifndef "); writer.WriteLine(manager.Global().headerGuard + L"_LEXER"); writer.WriteString(L"#define "); writer.WriteLine(manager.Global().headerGuard + L"_LEXER"); } else { writer.WriteLine(L"#pragma once"); } writer.WriteLine(L""); for (auto include : manager.Global().includes) { if (include.Length() > 0 && include[0] == L'<') { writer.WriteLine(L"#include " + include); } else { writer.WriteLine(L"#include \"" + include + L"\""); } } writer.WriteLine(L""); WString prefix = WriteNssBegin(manager.Global().cppNss, writer); { vint index = 0; writer.WriteLine(prefix + L"enum class " + manager.Global().name + L"Tokens : vl::vint32_t"); writer.WriteLine(prefix + L"{"); for (auto tokenName : manager.TokenOrder()) { auto tokenSymbol = manager.Tokens()[tokenName]; output->tokenIds.Add(tokenSymbol, (vint32_t)index); writer.WriteLine(prefix + L"\t" + tokenSymbol->Name() + L" = " + itow(index) + L","); index++; } writer.WriteLine(prefix + L"};"); } { writer.WriteLine(L""); writer.WriteLine(prefix + L"constexpr vl::vint " + manager.Global().name + L"TokenCount = " + itow(manager.Tokens().Count()) + L";"); writer.WriteLine(prefix + L"extern bool " + manager.Global().name + L"TokenDeleter(vl::vint token);"); writer.WriteLine(prefix + L"extern const wchar_t* " + manager.Global().name + L"TokenId(" + manager.Global().name + L"Tokens token);"); writer.WriteLine(prefix + L"extern const wchar_t* " + manager.Global().name + L"TokenDisplayText(" + manager.Global().name + L"Tokens token);"); writer.WriteLine(prefix + L"extern const wchar_t* " + manager.Global().name + L"TokenRegex(" + manager.Global().name + L"Tokens token);"); WriteLoadDataFunctionHeader(prefix, manager.Global().name + L"LexerData", writer); } WriteNssEnd(manager.Global().cppNss, writer); if (manager.Global().headerGuard != L"") { writer.WriteString(L"#endif"); } } /*********************************************************************** WriteLexerCppFile ***********************************************************************/ void WriteLexerCppFile(LexerSymbolManager& manager, Ptr output, stream::StreamWriter& writer) { WriteFileComment(manager.Global().name, writer); writer.WriteLine(L"#include \"" + output->lexerH + L"\""); writer.WriteLine(L""); WString prefix = WriteNssBegin(manager.Global().cppNss, writer); { writer.WriteLine(prefix + L"bool " + manager.Global().name + L"TokenDeleter(vl::vint token)"); writer.WriteLine(prefix + L"{"); List discarded; for (auto tokenSymbol : manager.Tokens().Values()) { if (tokenSymbol->discarded) { discarded.Add(tokenSymbol->Name()); } } if (discarded.Count() > 0) { writer.WriteLine(prefix + L"\tswitch((" + manager.Global().name + L"Tokens)token)"); writer.WriteLine(prefix + L"\t{"); for (auto tokenName : discarded) { writer.WriteLine(prefix + L"\tcase " + manager.Global().name + L"Tokens::" + tokenName + L":"); } writer.WriteLine(prefix + L"\t\treturn true;"); writer.WriteLine(prefix + L"\tdefault:"); writer.WriteLine(prefix + L"\t\treturn false;"); writer.WriteLine(prefix + L"\t}"); } else { writer.WriteLine(prefix + L"\treturn false;"); } writer.WriteLine(prefix + L"}"); } { writer.WriteLine(L""); writer.WriteLine(prefix + L"const wchar_t* " + manager.Global().name + L"TokenId(" + manager.Global().name + L"Tokens token)"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"\tstatic const wchar_t* results[] = {"); for (auto tokenName : manager.TokenOrder()) { writer.WriteLine(prefix + L"\t\tL\"" + tokenName + L"\","); } writer.WriteLine(prefix + L"\t};"); writer.WriteLine(prefix + L"\tvl::vint index = (vl::vint)token;"); writer.WriteLine(prefix + L"\treturn 0 <= index && index < " + manager.Global().name + L"TokenCount ? results[index] : nullptr;"); writer.WriteLine(prefix + L"}"); } { writer.WriteLine(L""); writer.WriteLine(prefix + L"const wchar_t* " + manager.Global().name + L"TokenDisplayText(" + manager.Global().name + L"Tokens token)"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"\tstatic const wchar_t* results[] = {"); for (auto tokenName : manager.TokenOrder()) { auto displayText = manager.Tokens()[tokenName]->displayText; if (displayText == L"") { writer.WriteLine(prefix + L"\t\tnullptr,"); } else { writer.WriteString(prefix + L"\t\tL\""); WriteCppStringBody(displayText, writer); writer.WriteLine(L"\","); } } writer.WriteLine(prefix + L"\t};"); writer.WriteLine(prefix + L"\tvl::vint index = (vl::vint)token;"); writer.WriteLine(prefix + L"\treturn 0 <= index && index < " + manager.Global().name + L"TokenCount ? results[index] : nullptr;"); writer.WriteLine(prefix + L"}"); } { writer.WriteLine(L""); writer.WriteLine(prefix + L"const wchar_t* " + manager.Global().name + L"TokenRegex(" + manager.Global().name + L"Tokens token)"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"\tstatic const wchar_t* results[] = {"); for (auto tokenName : manager.TokenOrder()) { writer.WriteString(prefix + L"\t\tL\""); WriteCppStringBody(manager.Tokens()[tokenName]->regex, writer); writer.WriteLine(L"\","); } writer.WriteLine(prefix + L"\t};"); writer.WriteLine(prefix + L"\tvl::vint index = (vl::vint)token;"); writer.WriteLine(prefix + L"\treturn 0 <= index && index < " + manager.Global().name + L"TokenCount ? results[index] : nullptr;"); writer.WriteLine(prefix + L"}"); } { MemoryStream lexerData; { RegexLexer lexer( From(manager.TokenOrder()) .Select([&](const WString& name) { return manager.Tokens()[name]->regex; }) ); lexer.Serialize(lexerData); } lexerData.SeekFromBegin(0); writer.WriteLine(L""); WriteLoadDataFunctionCpp(prefix, manager.Global().name + L"LexerData", lexerData, true, writer); } WriteNssEnd(manager.Global().cppNss, writer); } /*********************************************************************** WriteLexerFiles ***********************************************************************/ void WriteLexerFiles(LexerSymbolManager& manager, Ptr output, collections::Dictionary& files) { WString fileH = GenerateToStream([&](StreamWriter& writer) { WriteLexerHeaderFile(manager, output, writer); }); WString fileCpp = GenerateToStream([&](StreamWriter& writer) { WriteLexerCppFile(manager, output, writer); }); files.Add(output->lexerH, fileH); files.Add(output->lexerCpp, fileCpp); } } } } /*********************************************************************** .\LEXER\LEXERSYMBOL.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; /*********************************************************************** TokenSymbol ***********************************************************************/ TokenSymbol::TokenSymbol(LexerSymbolManager* _ownerManager, const WString& _name) : ownerManager(_ownerManager) , name(_name) { } /*********************************************************************** LexerSymbolManager ***********************************************************************/ LexerSymbolManager::LexerSymbolManager(ParserSymbolManager& _global) : global(_global) { } TokenSymbol* LexerSymbolManager::CreateToken(const WString& _name, const WString& _regex, ParsingTextRange codeRange) { auto token = new TokenSymbol(this, _name); token->regex = _regex; if (!tokens.Add(_name, token)) { AddError( ParserErrorType::DuplicatedToken, codeRange, _name ); } try { auto expr = regex_internal::ParseRegexExpression(wtou32(_regex)); if (!expr->expression->HasNoExtension()) { AddError( ParserErrorType::TokenRegexNotPure, codeRange, _name ); } Array buffer(_regex.Length() + 1); memset(&buffer[0], 0, sizeof(char32_t) * buffer.Count()); vint writing = 0; List expanding; expanding.Add(expr->expression.Obj()); while (expanding.Count() > 0) { auto current = expanding[expanding.Count() - 1]; if (auto charset = dynamic_cast(current)) { if (charset->ranges.Count() == 1 && !charset->reverse) { auto range = charset->ranges[0]; if (range.begin == range.end) { expanding.RemoveAt(expanding.Count() - 1); buffer[writing++] = range.begin; continue; } } } else if (auto sequence = dynamic_cast(current)) { expanding.RemoveAt(expanding.Count() - 1); expanding.Add(sequence->right.Obj()); expanding.Add(sequence->left.Obj()); continue; } goto FINISHED_CALCULATING_DISPLAY_TEXT; } FINISHED_CALCULATING_DISPLAY_TEXT: if (expanding.Count() == 0) { token->displayText = u32tow(&buffer[0]); if (tokensByDisplayText.Keys().Contains(token->displayText)) { AddError( ParserErrorType::DuplicatedTokenByDisplayText, codeRange, _name ); } else { tokensByDisplayText.Add(token->displayText, token); } } } catch (const regex_internal::RegexException& e) { AddError( ParserErrorType::InvalidTokenRegex, codeRange, _name, (e.Message() + L" : " + itow(e.position) + L" : " + _regex) ); } return token; } TokenSymbol* LexerSymbolManager::CreateDiscardedToken(const WString& _name, const WString& _regex, ParsingTextRange codeRange) { auto token = CreateToken(_name, _regex, codeRange); token->discarded = true; return token; } } } } /*********************************************************************** .\LEXER\LEXERSYMBOL_CREATEPARSERGENLEXER.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; /*********************************************************************** CreateParserGenAst ***********************************************************************/ void CreateParserGenLexer(LexerSymbolManager& manager) { manager.CreateToken(L"ATT_AMBIGUOUS", L"@ambiguous"); manager.CreateToken(L"ATT_PUBLIC", L"@public"); manager.CreateToken(L"ATT_PARSER", L"@parser"); manager.CreateToken(L"CLASS", L"class"); manager.CreateToken(L"ENUM", L"enum"); manager.CreateToken(L"VAR", L"var"); manager.CreateToken(L"SWITCH", L"switch"); manager.CreateToken(L"TOKEN", L"token"); manager.CreateToken(L"AS", L"as"); manager.CreateToken(L"PARTIAL", L"partial"); manager.CreateToken(L"OPEN_ROUND", L"/("); manager.CreateToken(L"CLOSE_ROUND", L"/)"); manager.CreateToken(L"OPEN_SQUARE", L"/["); manager.CreateToken(L"CLOSE_SQUARE", L"/]"); manager.CreateToken(L"OPEN_CURLY", L"/{"); manager.CreateToken(L"CLOSE_CURLY", L"/}"); manager.CreateToken(L"OPEN_PUSH", L"!/("); manager.CreateToken(L"OPEN_TEST", L"/?/("); manager.CreateToken(L"AND", L"&&"); manager.CreateToken(L"OR", L"/|/|"); manager.CreateToken(L"COMMA", L","); manager.CreateToken(L"COLON", L":"); manager.CreateToken(L"SEMICOLON", L";"); manager.CreateToken(L"INFER", L"::="); manager.CreateToken(L"ALTERNATIVE", L"/|"); manager.CreateToken(L"USE", L"!"); manager.CreateToken(L"ASSIGN", L"="); manager.CreateToken(L"WEAK_ASSIGN", L"/?="); manager.CreateToken(L"POSITIVE", L"/+"); manager.CreateToken(L"NEGATIVE", L"-"); manager.CreateToken(L"LS_PH", L"left_recursion_placeholder"); manager.CreateToken(L"LS_I", L"left_recursion_inject"); manager.CreateToken(L"LS_IM", L"left_recursion_inject_multiple"); manager.CreateToken(L"LS_PM", L"prefix_merge"); manager.CreateToken(L"ID", L"[a-zA-Z_][a-zA-Z0-9_]*"); manager.CreateToken(L"STRING", L"(\"[^\"]*\")+"); manager.CreateToken(L"CONDITIONAL_LITERAL", L"(\'[^\']*\')+"); manager.CreateDiscardedToken(L"SPACE", L"/s+"); manager.CreateDiscardedToken(L"COMMENT", L"////[^/r/n]*"); } } } } /*********************************************************************** .\PARSERGEN\COMPILEAST.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; /*********************************************************************** CompileAst ***********************************************************************/ class CreateAstSymbolVisitor :public Object, public virtual GlrType::IVisitor { protected: AstDefFile* astDefFile; public: CreateAstSymbolVisitor(AstDefFile* _astDefFile) : astDefFile(_astDefFile) { } void Visit(GlrEnum* node) override { auto symbol = astDefFile->CreateEnum(node->name.value, node->attPublic, node->name.codeRange); symbol->isPublic = node->attPublic; } void Visit(GlrClass* node) override { auto symbol = astDefFile->CreateClass(node->name.value, node->attPublic, node->name.codeRange); symbol->isPublic = node->attPublic; if (node->attAmbiguous) { symbol->CreateDerivedClass_ToResolve(node->name.codeRange); if (node->props.Count() > 0) { symbol->CreateDerivedClass_Common(node->name.codeRange); } } } }; class FillAstSymbolVisitor :public Object, public virtual GlrType::IVisitor { protected: AstDefFile* astDefFile; public: FillAstSymbolVisitor(AstDefFile* _astDefFile) : astDefFile(_astDefFile) { } void Visit(GlrEnum* node) override { auto enumSymbol = dynamic_cast(astDefFile->Symbols()[node->name.value]); for (auto item : node->items) { enumSymbol->CreateItem(item->name.value, item->name.codeRange); } } void FillClassSymbolBaseClass(GlrClass* node, AstClassSymbol* classSymbol) { if (node->baseClass) { classSymbol->SetBaseClass(node->baseClass.value, node->baseClass.codeRange); } } void FillClassSymbolProps(GlrClass* node, AstClassSymbol* classSymbol) { for (auto prop : node->props) { auto propSymbol = classSymbol->CreateProp(prop->name.value, prop->name.codeRange); switch (prop->propType) { case GlrPropType::Token: propSymbol->SetPropType(AstPropType::Token); break; case GlrPropType::Type: propSymbol->SetPropType(AstPropType::Type, prop->propTypeName.value, prop->propTypeName.codeRange); break; case GlrPropType::Array: propSymbol->SetPropType(AstPropType::Array, prop->propTypeName.value, prop->propTypeName.codeRange); break; default:; } } } void Visit(GlrClass* node) override { auto classSymbol = dynamic_cast(astDefFile->Symbols()[node->name.value]); FillClassSymbolBaseClass(node, classSymbol); if (node->attAmbiguous && classSymbol->derivedClass_Common) { classSymbol = classSymbol->derivedClass_Common; } FillClassSymbolProps(node, classSymbol); } }; void CompileAst(AstSymbolManager& astManager, collections::List>>& files) { for (auto [astDefFile, file] : files) { CreateAstSymbolVisitor visitor(astDefFile); for (auto type : file->types) { type->Accept(&visitor); } } if (astManager.Global().Errors().Count() == 0) { for (auto [astDefFile, file] : files) { FillAstSymbolVisitor visitor(astDefFile); for (auto type : file->types) { type->Accept(&visitor); } } } } void CompileAst(AstSymbolManager& astManager, AstDefFile* astDefFile, Ptr file) { List>> files; files.Add({ astDefFile,file }); CompileAst(astManager, files); } } } } /*********************************************************************** .\PARSERGEN\COMPILELEXER.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; using namespace stream; using namespace regex; /*********************************************************************** UnescapeLiteral ***********************************************************************/ WString UnescapeLiteral(const WString& literal, wchar_t quot) { Array buffer(literal.Length()); wchar_t* writing = &buffer[0]; for (vint i = 1; i < literal.Length() - 1; i++) { wchar_t c = literal[i]; *writing++ = c; if (c == quot) { i++; } } *writing = 0; return &buffer[0]; } /*********************************************************************** CompileLexer ***********************************************************************/ void CompileLexer(LexerSymbolManager& lexerManager, const WString& input) { Regex regexToken(L"^(/s*|(discard/s)?/s*(/$?[a-zA-Z_]/w*)/s*:(/.+))$"); Regex regexFragment(L"/{(/$[a-zA-Z_]/w*)/}"); vint _discard = regexToken.CaptureNames().IndexOf(L"discard"); vint _name = regexToken.CaptureNames().IndexOf(L"name"); vint _regex = regexToken.CaptureNames().IndexOf(L"regex"); vint _fragment = regexFragment.CaptureNames().IndexOf(L"fragment"); Dictionary fragments; StringReader reader(input); vint lineIndex = 0; while (!reader.IsEnd()) { auto line = reader.ReadLine(); ParsingTextRange codeRange = { {lineIndex,0}, {lineIndex,0} }; if (auto match = regexToken.MatchHead(line)) { if (match->Groups().Keys().Contains(_name)) { auto tokenName = match->Groups()[_name][0].Value(); auto tokenRegex = match->Groups()[_regex][0].Value(); auto tokenDiscard = match->Groups().Keys().Contains(_discard); if (tokenName[0] == L'$') { if (tokenDiscard) { lexerManager.AddError( ParserErrorType::InvalidTokenDefinition, codeRange, line ); } else if (fragments.Keys().Contains(tokenName)) { lexerManager.AddError( ParserErrorType::DuplicatedTokenFragment, codeRange, tokenName ); } else { fragments.Add(tokenName, tokenRegex); } } else { WString resolvedRegex; List> matches; regexFragment.Cut(tokenRegex, false, matches); for (auto&& fragment : matches) { if (fragment->Success()) { auto fragmentName = fragment->Groups()[_fragment][0].Value(); vint index = fragments.Keys().IndexOf(fragmentName); if (index == -1) { lexerManager.AddError( ParserErrorType::TokenFragmentNotExists, codeRange, fragmentName ); } else { resolvedRegex += fragments.Values()[index]; } } else { resolvedRegex += fragment->Result().Value(); } } if (tokenDiscard) { lexerManager.CreateDiscardedToken(tokenName, resolvedRegex, codeRange); } else { lexerManager.CreateToken(tokenName, resolvedRegex, codeRange); } } } } else if (line.Length() < 2 || line.Left(2) != L"//") { lexerManager.AddError( ParserErrorType::InvalidTokenDefinition, codeRange, line ); } lineIndex++; } } } } } /*********************************************************************** .\PARSERGEN\COMPILESYNTAX.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; using namespace compile_syntax; extern void ResolveName(VisitorContext& context, VisitorSwitchContext& sContext, Ptr syntaxFile); extern void ValidateSwitchesAndConditions(VisitorContext& context, VisitorSwitchContext& sContext, Ptr syntaxFile); extern void ValidatePartialRules(VisitorContext& context, Ptr syntaxFile); extern void CalculateRuleAndClauseTypes(VisitorContext& context); extern void CalculateFirstSet(VisitorContext& context, Ptr syntaxFile); extern void ValidateTypes(VisitorContext& context, Ptr syntaxFile); extern void ValidateStructure(VisitorContext& context, Ptr syntaxFile); extern void ValidatePrefixMerge(VisitorContext& context, Ptr syntaxFile); extern Ptr RewriteSyntax_Switch(VisitorContext& context, VisitorSwitchContext& sContext, SyntaxSymbolManager& syntaxManager, Ptr syntaxFile); extern Ptr RewriteSyntax_PrefixMerge(VisitorContext& context, SyntaxSymbolManager& syntaxManager, Ptr syntaxFile); extern void CompileSyntax(VisitorContext& context, Ptr output, Ptr syntaxFile); /*********************************************************************** CompileSyntax ***********************************************************************/ bool NeedRewritten_Switch(Ptr syntaxFile) { return syntaxFile->switches.Count() > 0; } bool NeedRewritten_PrefixMerge(Ptr syntaxFile) { return !From(syntaxFile->rules) .SelectMany([](auto rule) { return From(rule->clauses); }) .FindType() .IsEmpty(); } void CreateSyntaxSymbols(LexerSymbolManager& lexerManager, SyntaxSymbolManager& syntaxManager, vint fileIndex, Ptr syntaxFile) { for (auto rule : syntaxFile->rules) { if (lexerManager.Tokens().Keys().Contains(rule->name.value)) { syntaxManager.AddError( ParserErrorType::RuleNameConflictedWithToken, rule->codeRange, rule->name.value ); } else { auto ruleSymbol = syntaxManager.CreateRule( rule->name.value, fileIndex, rule->attPublic, rule->attParser, rule->codeRange ); } for (auto clause : rule->clauses) { if (auto lrpClause = clause.Cast()) { for (auto flag : lrpClause->flags) { if (!syntaxManager.lrpFlags.Contains(flag->flag.value)) { syntaxManager.lrpFlags.Add(flag->flag.value); } } } } } } bool VerifySyntax_UntilSwitch(VisitorContext& context, VisitorSwitchContext& sContext, Ptr syntaxFile) { ResolveName(context, sContext, syntaxFile); if (context.syntaxManager.Global().Errors().Count() > 0) return false; ValidateSwitchesAndConditions(context, sContext, syntaxFile); if (context.syntaxManager.Global().Errors().Count() > 0) return false; ValidatePartialRules(context, syntaxFile); if (context.syntaxManager.Global().Errors().Count() > 0) return false; CalculateRuleAndClauseTypes(context); if (context.syntaxManager.Global().Errors().Count() > 0) return false; return true; } bool VerifySyntax_UntilPrefixMerge(VisitorContext& context, Ptr syntaxFile) { CalculateFirstSet(context, syntaxFile); if (context.syntaxManager.Global().Errors().Count() > 0) return false; ValidateTypes(context, syntaxFile); if (context.syntaxManager.Global().Errors().Count() > 0) return false; ValidateStructure(context, syntaxFile); if (context.syntaxManager.Global().Errors().Count() > 0) return false; ValidatePrefixMerge(context, syntaxFile); if (context.syntaxManager.Global().Errors().Count() > 0) return false; return true; } Ptr CompileSyntax(AstSymbolManager& astManager, LexerSymbolManager& lexerManager, SyntaxSymbolManager& syntaxManager, Ptr output, collections::List>& files) { // merge files to single syntax file auto syntaxFile = Ptr(new GlrSyntaxFile); for (auto [file, index] : indexed(files)) { CopyFrom(syntaxFile->switches, file->switches, true); CopyFrom(syntaxFile->rules, file->rules, true); CreateSyntaxSymbols(lexerManager, syntaxManager, index, file); } auto rawSyntaxFile = syntaxFile; if (syntaxManager.Global().Errors().Count() > 0) goto FINISHED_COMPILING; if (NeedRewritten_Switch(syntaxFile)) { VisitorContext context(astManager, lexerManager, syntaxManager); VisitorSwitchContext sContext; if (!VerifySyntax_UntilSwitch(context, sContext, syntaxFile)) goto FINISHED_COMPILING; syntaxFile = RewriteSyntax_Switch(context, sContext, syntaxManager, syntaxFile); if (context.syntaxManager.Global().Errors().Count() > 0) goto FINISHED_COMPILING; } if (NeedRewritten_PrefixMerge(syntaxFile)) { VisitorContext context(astManager, lexerManager, syntaxManager); VisitorSwitchContext sContext; if (!VerifySyntax_UntilSwitch(context, sContext, syntaxFile)) goto FINISHED_COMPILING; if (!VerifySyntax_UntilPrefixMerge(context, syntaxFile)) goto FINISHED_COMPILING; syntaxFile = RewriteSyntax_PrefixMerge(context, syntaxManager, syntaxFile); if (context.syntaxManager.Global().Errors().Count() > 0) goto FINISHED_COMPILING; } { VisitorContext context(astManager, lexerManager, syntaxManager); VisitorSwitchContext sContext; if (!VerifySyntax_UntilSwitch(context, sContext, syntaxFile)) goto FINISHED_COMPILING; if (!VerifySyntax_UntilPrefixMerge(context, syntaxFile)) goto FINISHED_COMPILING; CompileSyntax(context, output, syntaxFile); } FINISHED_COMPILING: return rawSyntaxFile == syntaxFile ? nullptr : syntaxFile; } Ptr CompileSyntax(AstSymbolManager& astManager, LexerSymbolManager& lexerManager, SyntaxSymbolManager& syntaxManager, Ptr output, Ptr file) { List> files; files.Add(file); return CompileSyntax(astManager, lexerManager, syntaxManager, output, files); } } } } /*********************************************************************** .\PARSERGEN\COMPILESYNTAX_CALCULATEFIRSTSET.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; using namespace compile_syntax; /*********************************************************************** DirectFirstSetVisitor ***********************************************************************/ class DirectFirstSetVisitor : public Object , protected virtual GlrSyntax::IVisitor , protected virtual GlrClause::IVisitor { private: bool couldBeEmpty = false; protected: VisitorContext& context; RuleSymbol* ruleSymbol; GlrClause* currentClause = nullptr; RuleSymbol* TryGetRuleSymbol(const WString& name) { vint index = context.syntaxManager.Rules().Keys().IndexOf(name); if (index == -1) return nullptr; return context.syntaxManager.Rules().Values()[index]; } void AddStartLiteral(const ParsingToken& literal) { context.ruleBeginsWithLiteral.Add(ruleSymbol, literal); context.clauseBeginsWithLiteral.Add(currentClause, literal); } void AddStartTokenOrRule(const ParsingToken& literal) { if (auto startRule = TryGetRuleSymbol(literal.value)) { context.directStartRules.Add(ruleSymbol, { startRule,currentClause }); context.clauseToStartRules.Add(currentClause, startRule); if (ruleSymbol == startRule && !context.leftRecursiveClauses.Contains(ruleSymbol, currentClause)) { context.leftRecursiveClauses.Add(ruleSymbol, currentClause); } } else { AddStartLiteral(literal); } } public: DirectFirstSetVisitor( VisitorContext& _context, RuleSymbol* _ruleSymbol ) : context(_context) , ruleSymbol(_ruleSymbol) { } void VisitClause(Ptr clause) { currentClause = clause.Obj(); clause->Accept(this); } protected: //////////////////////////////////////////////////////////////////////// // GlrSyntax::IVisitor //////////////////////////////////////////////////////////////////////// void Visit(GlrRefSyntax* node) override { if (node->refType == GlrRefType::Id) { AddStartTokenOrRule(node->literal); } else { AddStartLiteral(node->literal); } couldBeEmpty = false; } void Visit(GlrUseSyntax* node) override { AddStartTokenOrRule(node->name); couldBeEmpty = false; } void Visit(GlrLoopSyntax* node) override { node->syntax->Accept(this); couldBeEmpty = true; } void Visit(GlrOptionalSyntax* node) override { node->syntax->Accept(this); couldBeEmpty = true; } void Visit(GlrSequenceSyntax* node) override { node->first->Accept(this); if (couldBeEmpty) node->second->Accept(this); } void Visit(GlrAlternativeSyntax* node) override { node->first->Accept(this); bool firstCouldBeEmpty = couldBeEmpty; node->second->Accept(this); bool secondCouldBeEmpty = couldBeEmpty; couldBeEmpty = firstCouldBeEmpty || secondCouldBeEmpty; } void Visit(GlrPushConditionSyntax* node) override { CHECK_FAIL(L"GlrPushConditionSyntax should have been removed after RewriteSyntax_Switch()!"); } void Visit(GlrTestConditionSyntax* node) override { CHECK_FAIL(L"GlrTestConditionSyntax should have been removed after RewriteSyntax_Switch()!"); } //////////////////////////////////////////////////////////////////////// // GlrClause::IVisitor //////////////////////////////////////////////////////////////////////// void Visit(GlrCreateClause* node) override { node->syntax->Accept(this); } void Visit(GlrPartialClause* node) override { node->syntax->Accept(this); } void Visit(GlrReuseClause* node) override { node->syntax->Accept(this); if (node->assignments.Count() == 0) { auto nodeSyntax = node->syntax.Obj(); auto pushSyntax = dynamic_cast(nodeSyntax); if (pushSyntax) nodeSyntax = pushSyntax->syntax.Obj(); if (auto useSyntax = dynamic_cast(nodeSyntax)) { if (auto startRule = TryGetRuleSymbol(useSyntax->name.value)) { context.directSimpleUseRules.Add(ruleSymbol, { startRule,currentClause }); context.simpleUseClauseToReferencedRules.Add(currentClause, startRule); } } } } void Visit(GlrLeftRecursionPlaceholderClause* node) override { } void Visit(GlrLeftRecursionInjectClause* node) override { node->rule->Accept(this); } void Visit(GlrPrefixMergeClause* node) override { node->rule->Accept(this); } }; /*********************************************************************** CalculateFirstSet ***********************************************************************/ void CalculateFirstSet_DirectStartRules(VisitorContext& context, Ptr syntaxFile) { for (auto rule : syntaxFile->rules) { auto ruleSymbol = context.syntaxManager.Rules()[rule->name.value]; DirectFirstSetVisitor visitor(context, ruleSymbol); for (auto clause : rule->clauses) { visitor.VisitClause(clause); } } } void CalculateFirstSet_RuleClosure(const RulePathDependencies& direct, RulePathDependencies& indirect, PathToLastRuleMap& pathToLastRules) { for (auto [rule, index] : indexed(direct.Keys())) { auto&& startRules = direct.GetByIndex(index); for (auto [startRule, clause] : startRules) { indirect.Add(rule, { startRule,clause }); pathToLastRules.Add({ rule,startRule }, { rule,clause }); } } while (true) { vint offset = 0; // TODO: (enumerable) foreach:alterable for (auto [rule, index] : indexed(indirect.Keys())) { auto&& startRules1 = indirect.GetByIndex(index); for (auto [startRule1, clause1] : startRules1) { if (rule == startRule1) continue; vint index2 = direct.Keys().IndexOf(startRule1); if (index2 != -1) { auto&& startRules2 = direct.GetByIndex(index2); for (auto [startRule2, clause2] : startRules2) { if (rule == startRule2 || startRule1 == startRule2) continue; if (!pathToLastRules.Contains({ rule,startRule2 }, { startRule1,clause2 })) { offset++; if (!indirect.Contains(rule, { startRule2,clause2 })) { indirect.Add(rule, { startRule2,clause2 }); } pathToLastRules.Add({ rule,startRule2 }, { startRule1,clause2 }); } } } } } if (offset == 0) { break; } } } void CalculateFirstSet_IndirectStartRules(VisitorContext& context) { CalculateFirstSet_RuleClosure( context.directStartRules, context.indirectStartRules, context.indirectStartPathToLastRules ); } void CalculateFirstSet_IndirectSimpleUseRules(VisitorContext& context) { CalculateFirstSet_RuleClosure( context.directSimpleUseRules, context.indirectSimpleUseRules, context.indirectSimpleUsePathToLastRules ); } template void CalculateFirstSet_MoveFromDirectClauses( SortedList& clauses, Group& indirectClauses, Group& directClauses, RuleSymbol* rule, RuleSymbol* startRule ) { vint index = directClauses.Keys().IndexOf(startRule); if (index != -1) { for (auto clause : directClauses.GetByIndex(index)) { if (!clauses.Contains(clause)) { clauses.Add(clause); indirectClauses.Add(rule, clause); } } } } void CalculateFirstSet_IndirectLrpPmClauses(VisitorContext& context) { for (auto [rule, index] : indexed(context.indirectStartRules.Keys())) { SortedList lriClauses; SortedList lrpClauses; SortedList pmClauses; CalculateFirstSet_MoveFromDirectClauses(lriClauses, context.indirectLriClauses, context.directLriClauses, rule, rule); CalculateFirstSet_MoveFromDirectClauses(lrpClauses, context.indirectLrpClauses, context.directLrpClauses, rule, rule); CalculateFirstSet_MoveFromDirectClauses(pmClauses, context.indirectPmClauses, context.directPmClauses, rule, rule); auto&& startRules = context.indirectStartRules.GetByIndex(index); for (auto startRule : startRules) { CalculateFirstSet_MoveFromDirectClauses(lriClauses, context.indirectLriClauses, context.directLriClauses, rule, startRule.ruleSymbol); CalculateFirstSet_MoveFromDirectClauses(lrpClauses, context.indirectLrpClauses, context.directLrpClauses, rule, startRule.ruleSymbol); CalculateFirstSet_MoveFromDirectClauses(pmClauses, context.indirectPmClauses, context.directPmClauses, rule, startRule.ruleSymbol); } } } void CalculateFirstSet(VisitorContext& context, Ptr syntaxFile) { CalculateFirstSet_DirectStartRules(context, syntaxFile); CalculateFirstSet_IndirectStartRules(context); CalculateFirstSet_IndirectSimpleUseRules(context); CalculateFirstSet_IndirectLrpPmClauses(context); } } } } /*********************************************************************** .\PARSERGEN\COMPILESYNTAX_CALCULATETYPES.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; using namespace compile_syntax; /*********************************************************************** ValidatePartialRules ***********************************************************************/ void ValidatePartialRules(VisitorContext& context, Ptr syntaxFile) { for (auto rule : syntaxFile->rules) { List> partialClauses; CopyFrom(partialClauses, From(rule->clauses).FindType()); if (partialClauses.Count() == 0) continue; auto ruleSymbol = context.syntaxManager.Rules()[rule->name.value]; ruleSymbol->isPartial = partialClauses.Count() > 0; if (partialClauses.Count() != rule->clauses.Count()) { context.syntaxManager.AddError( ParserErrorType::RuleMixedPartialClauseWithOtherClause, rule->codeRange, ruleSymbol->Name() ); } AstClassSymbol* partialType = nullptr; for (auto clause : partialClauses) { vint index = context.clauseTypes.Keys().IndexOf(clause.Obj()); if (index != -1) { auto type = context.clauseTypes.Values()[index]; if (!partialType) { partialType = type; } else if (type && partialType != type) { context.syntaxManager.AddError( ParserErrorType::RuleWithDifferentPartialTypes, rule->codeRange, ruleSymbol->Name(), partialType->Name(), type->Name() ); break; } } } } } /*********************************************************************** CalculateRuleAndClauseTypes ***********************************************************************/ WString GetRuleTypes(const IEnumerable& rules) { return From(rules) .Select([](auto r) { return r->ruleType; }) .Where([](auto rt) { return rt != nullptr; }) .Select([](auto rt) { return rt->Name(); }) .Aggregate(WString::Empty, [](auto a, auto b) {return a == WString::Empty ? b : a + L", " + b; }) ; } void CalculateRuleAndClauseTypes(VisitorContext& context) { // find cyclic dependencies in "Rule ::= !Rule" auto&& rules = context.syntaxManager.Rules().Values(); PartialOrderingProcessor pop; pop.InitWithGroup(rules, context.ruleReuseDependencies); pop.Sort(); // remove cyclic dependended rules from ruleReuseDependencies // TODO: in order to remove the while(ruleTypeChanged) below // we need to determine the type following the order from PartialOrderingProcessor // instead of doing a tricky way to solve non-cyclic reusing before cyclic reusing // and having to while(ruleTypeChanged) because non-cyclic reusing could depends on the result from cyclic reusing List> cyclicReuseDependencies; for (auto&& component : pop.components) { if (component.nodeCount == 1) continue; for (vint i = 0; i < component.nodeCount - 1; i++) { for (vint j = i + 1; j < component.nodeCount; j++) { auto r1 = rules[component.firstNode[i]]; auto r2 = rules[component.firstNode[j]]; context.ruleReuseDependencies.Remove(r1, r2); context.ruleReuseDependencies.Remove(r2, r1); } } List cyclicRules; for (vint i = 0; i < component.nodeCount; i++) { cyclicRules.Add(rules[component.firstNode[i]]); } cyclicReuseDependencies.Add(std::move(cyclicRules)); } // do not update explicitly specified rule type SortedList explicitlyTypedRules; for (auto rule : rules) { if (rule->ruleType) { explicitlyTypedRules.Add(rule); } } // define updateRuleType function, check clause type added to rule auto updateRuleType = [&context, &explicitlyTypedRules](RuleSymbol* rule, AstClassSymbol* newClauseType, bool promptIfNull, bool* ruleTypeChanged = nullptr) { auto newRuleType = FindCommonBaseClass(rule->ruleType, newClauseType); if (explicitlyTypedRules.Contains(rule)) { if (rule->ruleType != newRuleType) { context.syntaxManager.AddError( ParserErrorType::RuleExplicitTypeIsNotCompatibleWithClauseType, context.astRules[rule]->codeRange, rule->Name(), (rule->ruleType ? rule->ruleType->Name() : WString::Empty), (newClauseType ? newClauseType->Name() : WString::Empty) ); return false; } } else { if (promptIfNull && !newRuleType) { context.syntaxManager.AddError( ParserErrorType::RuleCannotResolveToDeterministicType, context.astRules[rule]->codeRange, rule->Name(), (rule->ruleType ? rule->ruleType->Name() : WString::Empty), (newClauseType ? newClauseType->Name() : WString::Empty) ); return false; } if (ruleTypeChanged && newRuleType && rule->ruleType != newRuleType) { *ruleTypeChanged = true; } rule->ruleType = newRuleType; } return true; }; // calculate types for rules from clauses with known types for (auto rule : rules) { for (auto clause : context.astRules[rule]->clauses) { vint index = context.clauseTypes.Keys().IndexOf(clause.Obj()); if (index != -1) { auto newClauseType = context.clauseTypes.Values()[index]; if (!updateRuleType(rule, newClauseType, true)) { break; } } } } if (context.global.Errors().Count() > 0) return; bool ruleTypeChanged = true; while(ruleTypeChanged) { ruleTypeChanged = false; // calculate types for rules that contain reuse dependency for (auto&& component : pop.components) { for (vint i = 0; i < component.nodeCount; i++) { auto rule = rules[component.firstNode[i]]; vint index = context.ruleReuseDependencies.Keys().IndexOf(rule); if (index != -1) { AstClassSymbol* type = nullptr; for (auto dep : context.ruleReuseDependencies.GetByIndex(index)) { type = FindCommonBaseClass(type, dep->ruleType); } if (type && !updateRuleType(rule, type, true, &ruleTypeChanged)) { break; } } } } if (context.global.Errors().Count() > 0) return; // calculate types for rules that contain cyclic reuse dependency for (auto&& cyclicRules : cyclicReuseDependencies) { AstClassSymbol* type = nullptr; for (auto rule : cyclicRules) { type = FindCommonBaseClass(type, rule->ruleType); } if (!type) { auto ruleTypes = GetRuleTypes(cyclicRules); for (auto rule : cyclicRules) { context.syntaxManager.AddError( ParserErrorType::CyclicDependedRuleTypeIncompatible, context.astRules[rule]->codeRange, rule->Name(), ruleTypes ); } } else { for (auto rule : cyclicRules) { updateRuleType(rule, type, false, &ruleTypeChanged); } } } if (context.global.Errors().Count() > 0) break; } // prompt errors for (auto rule : rules) { if (!rule->ruleType) { context.syntaxManager.AddError( ParserErrorType::RuleCannotResolveToDeterministicType, context.astRules[rule]->codeRange, rule->Name() ); } } // calculate types for reuse clauses for (auto astRule : context.astRules.Values()) { for (auto clause : From(astRule->clauses).FindType()) { vint index = context.clauseReuseDependencies.Keys().IndexOf(clause.Obj()); if (index == -1) { context.syntaxManager.AddError( ParserErrorType::ReuseClauseContainsNoUseRule, clause->codeRange, astRule->name.value ); } else { AstClassSymbol* type = nullptr; for (auto dep : context.clauseReuseDependencies.GetByIndex(index)) { type = FindCommonBaseClass(type, dep->ruleType); } if (type) { context.clauseTypes.Add(clause.Obj(), type); } else { auto ruleTypes = GetRuleTypes(context.clauseReuseDependencies.GetByIndex(index)); context.syntaxManager.AddError( ParserErrorType::ReuseClauseCannotResolveToDeterministicType, clause->codeRange, astRule->name.value, ruleTypes ); } } } } } } } } /*********************************************************************** .\PARSERGEN\COMPILESYNTAX_COMPILESYNTAX.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; using namespace compile_syntax; /*********************************************************************** CompileSyntaxVisitor ***********************************************************************/ class CompileSyntaxVisitor : public Object , protected virtual GlrSyntax::IVisitor , protected virtual GlrClause::IVisitor { using StatePair = AutomatonBuilder::StatePair; protected: AutomatonBuilder automatonBuilder; VisitorContext& context; Ptr output; AstClassSymbol* clauseType; StatePair result; StatePair Build(GlrSyntax* node) { node->Accept(this); return result; } StatePair Build(const Ptr& node) { node->Accept(this); return result; } public: CompileSyntaxVisitor( VisitorContext& _context, Ptr _output, RuleSymbol* _ruleSymbol ) : automatonBuilder(_ruleSymbol) , context(_context) , output(_output) { } void AssignClause(const Ptr& node) { node->Accept(this); } protected: //////////////////////////////////////////////////////////////////////// // GlrSyntax::IVisitor //////////////////////////////////////////////////////////////////////// void Visit(GlrRefSyntax* node) override { vint32_t field = -1; if (node->field) { auto propSymbol = FindPropSymbol(clauseType, node->field.value); field = output->fieldIds[propSymbol]; } switch (node->refType) { case GlrRefType::Id: { vint index = context.lexerManager.TokenOrder().IndexOf(node->literal.value); if (index != -1) { auto token = context.lexerManager.Tokens()[node->literal.value]; auto displayText = token->displayText == L"" ? token->Name() : L"\"" + token->displayText + L"\""; result = automatonBuilder.BuildTokenSyntax((vint32_t)index, displayText, {}, field); return; } } { vint index = context.syntaxManager.Rules().Keys().IndexOf(node->literal.value); if (index != -1) { auto rule = context.syntaxManager.Rules().Values()[index]; if (rule->isPartial) { result = automatonBuilder.BuildPartialRuleSyntax(rule); } else if (field == -1) { result = automatonBuilder.BuildDiscardRuleSyntax(rule); } else { result = automatonBuilder.BuildFieldRuleSyntax(rule, field); } return; } } CHECK_FAIL(L"Should not reach here!"); break; case GlrRefType::Literal: { vint index = context.literalTokens[node]; auto token = context.lexerManager.Tokens()[context.lexerManager.TokenOrder()[index]]; auto displayText = token->displayText == L"" ? token->Name() : L"\"" + token->displayText + L"\""; result = automatonBuilder.BuildTokenSyntax((vint32_t)index, displayText, {}, field); } break; case GlrRefType::ConditionalLiteral: { vint index = context.literalTokens[node]; auto token = context.lexerManager.Tokens()[context.lexerManager.TokenOrder()[index]]; auto condition = UnescapeLiteral(node->literal.value, L'\''); auto displayText = token->displayText == L"" ? token->Name() : L"\"" + token->displayText + L"\""; result = automatonBuilder.BuildTokenSyntax((vint32_t)index, displayText, condition, field); } break; default:; } } void Visit(GlrUseSyntax* node) override { auto rule = context.syntaxManager.Rules()[node->name.value]; result = automatonBuilder.BuildUseSyntax(rule); } void Visit(GlrLoopSyntax* node) override { result = automatonBuilder.BuildLoopSyntax( [this, node]() { return Build(node->syntax); }, [this, node]() { return Build(node->delimiter); }, node->delimiter ); } void Visit(GlrOptionalSyntax* node) override { result = automatonBuilder.BuildOptionalSyntax( node->priority == GlrOptionalPriority::PreferTake, node->priority == GlrOptionalPriority::PreferSkip, [this, node]() { return Build(node->syntax); } ); } template void CollectElements(GlrSyntax* node, List>& elements) { if (auto pair = dynamic_cast(node)) { CollectElements(pair->first.Obj(), elements); CollectElements(pair->second.Obj(), elements); } else { elements.Add([this, node]() { return Build(node); }); } } void Visit(GlrSequenceSyntax* node) override { List> elements; CollectElements(node, elements); result = automatonBuilder.BuildSequenceSyntax(elements); } void Visit(GlrAlternativeSyntax* node) override { List> elements; CollectElements(node, elements); result = automatonBuilder.BuildAlternativeSyntax(elements); } void Visit(GlrPushConditionSyntax* node) override { CHECK_FAIL(L"GlrPushConditionSyntax should have been removed after RewriteSyntax_Switch()!"); } void Visit(GlrTestConditionSyntax* node) override { CHECK_FAIL(L"GlrTestConditionSyntax should have been removed after RewriteSyntax_Switch()!"); } //////////////////////////////////////////////////////////////////////// // GlrClause::IVisitor //////////////////////////////////////////////////////////////////////// StatePair BuildAssignments(StatePair pair, List>& assignments) { for (auto node : assignments) { auto propSymbol = FindPropSymbol(clauseType, node->field.value); auto enumSymbol = dynamic_cast(propSymbol->propSymbol); auto enumItem = (vint32_t)enumSymbol->ItemOrder().IndexOf(node->value.value); auto field = output->fieldIds[propSymbol]; pair = automatonBuilder.BuildAssignment(pair, enumItem, field, (node->type == GlrAssignmentType::Weak)); } return pair; } void Visit(GlrCreateClause* node) override { clauseType = context.clauseTypes[node]; result = automatonBuilder.BuildClause([this, node]() { return automatonBuilder.BuildCreateClause( output->classIds[clauseType], [this, node]() { return BuildAssignments(Build(node->syntax), node->assignments); } ); }); } void Visit(GlrPartialClause* node) override { clauseType = context.clauseTypes[node]; result = automatonBuilder.BuildClause([this, node]() { return automatonBuilder.BuildPartialClause( [this, node]() { return BuildAssignments(Build(node->syntax), node->assignments); } ); }); } void Visit(GlrReuseClause* node) override { clauseType = context.clauseTypes[node]; result = automatonBuilder.BuildClause([this, node]() { return automatonBuilder.BuildReuseClause( [this, node]() { return BuildAssignments(Build(node->syntax), node->assignments); } ); }); } WString FlagIndexToName(vint32_t flag) { return context.syntaxManager.lrpFlags[flag]; } void CollectFlagsInOrder(SortedList& flags, List>& placeholders) { CopyFrom( flags, From(placeholders) .Select([this](Ptr flag) { return (vint32_t)context.syntaxManager.lrpFlags.IndexOf(flag->flag.value); }) .Distinct() ); } void Visit(GlrLeftRecursionPlaceholderClause* node) override { SortedList flags; CollectFlagsInOrder(flags, node->flags); result = automatonBuilder.BuildClause([this, &flags]() { return automatonBuilder.BuildLrpClause( flags, { this,&CompileSyntaxVisitor::FlagIndexToName } ); }); } using StateBuilder = Func; StateBuilder CompileLriTarget(SortedList& flags, GlrLeftRecursionInjectClause* lriTarget) { StateBuilder useOrLriSyntax; auto rule = context.syntaxManager.Rules()[lriTarget->rule->literal.value]; if (flags.Count() == 0) { useOrLriSyntax = [this, rule]() { return automatonBuilder.BuildUseSyntax(rule); }; } else { useOrLriSyntax = [this, rule, &flags]() { return automatonBuilder.BuildLriSyntax( flags, rule, { this,&CompileSyntaxVisitor::FlagIndexToName } ); }; } if (!lriTarget->continuation) { return useOrLriSyntax; } else { auto cont = lriTarget->continuation; return [this, useOrLriSyntax, cont]() { bool optional = cont->type == GlrLeftRecursionInjectContinuationType::Optional; SortedList flags; CollectFlagsInOrder(flags, cont->flags); List targetRules; for (auto lriTarget : cont->injectionTargets) { targetRules.Add(CompileLriTarget(flags, lriTarget.Obj())); } return automatonBuilder.BuildLriClauseSyntax( useOrLriSyntax, optional, std::move(targetRules)); }; } } void Visit(GlrLeftRecursionInjectClause* node) override { result = automatonBuilder.BuildClause([this, node]() { SortedList flags; return automatonBuilder.BuildReuseClause(CompileLriTarget(flags, node)); }); } void Visit(GlrPrefixMergeClause* node) override { CHECK_FAIL(L"GlrPrefixMergeClause should have been removed after RewriteSyntax_PrefixMerge()!"); } }; /*********************************************************************** CompileSyntax ***********************************************************************/ void CompileSyntax(VisitorContext& context, Ptr output, Ptr syntaxFile) { for (auto rule : syntaxFile->rules) { auto ruleSymbol = context.syntaxManager.Rules()[rule->name.value]; CompileSyntaxVisitor visitor(context, output, ruleSymbol); for (auto clause : rule->clauses) { visitor.AssignClause(clause); } } } } } } /*********************************************************************** .\PARSERGEN\COMPILESYNTAX_RESOLVENAME.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; using namespace compile_syntax; /*********************************************************************** ResolveNameVisitor ***********************************************************************/ class ResolveNameVisitor : public Object , protected virtual GlrSyntax::IVisitor , protected virtual GlrCondition::IVisitor , protected virtual GlrClause::IVisitor { protected: VisitorContext& context; VisitorSwitchContext& sContext; SortedList& accessedSwitches; RuleSymbol* ruleSymbol; GlrReuseClause* reuseClause = nullptr; public: ResolveNameVisitor( VisitorContext& _context, VisitorSwitchContext& _sContext, SortedList& _accessedSwitches, RuleSymbol* _ruleSymbol ) : context(_context) , sContext(_sContext) , accessedSwitches(_accessedSwitches) , ruleSymbol(_ruleSymbol) { } AstClassSymbol* GetRuleClass(ParsingToken& typeName) { vint index = context.astManager.Symbols().Keys().IndexOf(typeName.value); if (index == -1) { context.syntaxManager.AddError( ParserErrorType::TypeNotExistsInRule, typeName.codeRange, ruleSymbol->Name(), typeName.value ); return nullptr; } auto&& resolvedSymbols = context.astManager.Symbols().GetByIndex(index); if (resolvedSymbols.Count() > 1) { context.syntaxManager.AddError( ParserErrorType::TypeNotUniqueInRule, typeName.codeRange, ruleSymbol->Name(), typeName.value ); return nullptr; } auto classSymbol = dynamic_cast(resolvedSymbols[0]); if (!classSymbol) { context.syntaxManager.AddError( ParserErrorType::TypeNotClassInRule, typeName.codeRange, ruleSymbol->Name(), typeName.value ); return nullptr; } if (classSymbol->derivedClass_Common) { classSymbol = classSymbol->derivedClass_Common; } return classSymbol; } void ResolveClause(Ptr clause) { context.clauseToRules.Add(clause.Obj(), ruleSymbol); clause->Accept(this); } protected: //////////////////////////////////////////////////////////////////////// // GlrSyntax::IVisitor //////////////////////////////////////////////////////////////////////// void Visit(GlrRefSyntax* node) override { switch (node->refType) { case GlrRefType::Id: { vint tokenIndex = context.lexerManager.TokenOrder().IndexOf(node->literal.value); vint ruleIndex = context.syntaxManager.Rules().Keys().IndexOf(node->literal.value); if (tokenIndex == -1 && ruleIndex == -1) { context.syntaxManager.AddError( ParserErrorType::TokenOrRuleNotExistsInRule, node->codeRange, ruleSymbol->Name(), node->literal.value ); } else if (ruleIndex != -1) { auto refRuleSymbol = context.syntaxManager.Rules().Values()[ruleIndex]; if (ruleSymbol->fileIndex != refRuleSymbol->fileIndex && !refRuleSymbol->isPublic) { context.syntaxManager.AddError( ParserErrorType::ReferencedRuleNotPublicInRuleOfDifferentFile, node->codeRange, ruleSymbol->Name(), node->literal.value ); } } } break; case GlrRefType::Literal: { if (node->literal.value.Length() > 2) { auto literalValue = UnescapeLiteral(node->literal.value, L'\"'); for (auto&& [tokenName, tokenIndex] : indexed(context.lexerManager.TokenOrder())) { auto tokenSymbol = context.lexerManager.Tokens()[tokenName]; if (tokenSymbol->displayText == literalValue) { if (tokenSymbol->discarded) { context.syntaxManager.AddError( ParserErrorType::LiteralIsDiscardedToken, node->codeRange, ruleSymbol->Name(), node->literal.value ); } else { context.literalTokens.Add(node, (vint32_t)tokenIndex); } return; } } } context.syntaxManager.AddError( ParserErrorType::LiteralNotValidToken, node->codeRange, ruleSymbol->Name(), node->literal.value ); } break; case GlrRefType::ConditionalLiteral: { if (node->literal.value.Length() > 2) { auto literalValue = UnescapeLiteral(node->literal.value, L'\''); auto&& lexer = context.GetCachedLexer(); List tokens; lexer.Parse(literalValue).ReadToEnd(tokens); if (tokens.Count() == 1 && tokens[0].token != -1 && tokens[0].completeToken) { auto tokenSymbol = context.lexerManager.Tokens()[context.lexerManager.TokenOrder()[tokens[0].token]]; if (tokenSymbol->displayText != L"") { context.syntaxManager.AddError( ParserErrorType::ConditionalLiteralIsDisplayText, node->codeRange, ruleSymbol->Name(), node->literal.value ); } if (tokenSymbol->discarded) { context.syntaxManager.AddError( ParserErrorType::ConditionalLiteralIsDiscardedToken, node->codeRange, ruleSymbol->Name(), node->literal.value ); } context.literalTokens.Add(node, (vint32_t)tokens[0].token); return; } } context.syntaxManager.AddError( ParserErrorType::ConditionalLiteralNotValidToken, node->codeRange, ruleSymbol->Name(), node->literal.value ); } break; default:; } } void VisitReuseSyntax(ParsingToken& name, bool addRuleReuseDependency) { vint ruleIndex = context.syntaxManager.Rules().Keys().IndexOf(name.value); if (ruleIndex == -1) { context.syntaxManager.AddError( ParserErrorType::TokenOrRuleNotExistsInRule, name.codeRange, ruleSymbol->Name(), name.value ); } else { auto usedRuleSymbol = context.syntaxManager.Rules().Values()[ruleIndex]; if (ruleSymbol->fileIndex != usedRuleSymbol->fileIndex && !usedRuleSymbol->isPublic) { context.syntaxManager.AddError( ParserErrorType::ReferencedRuleNotPublicInRuleOfDifferentFile, name.codeRange, ruleSymbol->Name(), name.value ); } if (addRuleReuseDependency) { if (!context.ruleReuseDependencies.Contains(ruleSymbol, usedRuleSymbol)) { context.ruleReuseDependencies.Add(ruleSymbol, usedRuleSymbol); } } if (reuseClause) { if (!context.clauseReuseDependencies.Contains(reuseClause, usedRuleSymbol)) { context.clauseReuseDependencies.Add(reuseClause, usedRuleSymbol); } } } } void Visit(GlrUseSyntax* node) override { VisitReuseSyntax(node->name, reuseClause != nullptr); } void Visit(GlrLoopSyntax* node) override { node->syntax->Accept(this); if (node->delimiter) { node->delimiter->Accept(this); } } void Visit(GlrOptionalSyntax* node) override { node->syntax->Accept(this); } void Visit(GlrSequenceSyntax* node) override { node->first->Accept(this); node->second->Accept(this); } void Visit(GlrAlternativeSyntax* node) override { node->first->Accept(this); node->second->Accept(this); } void VisitSwitchItems(List>& switches) { for (auto&& switchItem : switches) { if (!sContext.switches.Keys().Contains(switchItem->name.value)) { context.syntaxManager.AddError( ParserErrorType::SwitchNotExists, switchItem->name.codeRange, ruleSymbol->Name(), switchItem->name.value ); } else if (!accessedSwitches.Contains(switchItem->name.value)) { accessedSwitches.Add(switchItem->name.value); } } } void Visit(GlrPushConditionSyntax* node) override { VisitSwitchItems(node->switches); node->syntax->Accept(this); } void Visit(GlrTestConditionSyntax* node) override { for (auto&& branch : node->branches) { branch->condition->Accept(this); if (branch->syntax) { branch->syntax->Accept(this); } } } //////////////////////////////////////////////////////////////////////// // GlrCondition::IVisitor //////////////////////////////////////////////////////////////////////// void Visit(GlrRefCondition* node) override { if (!sContext.switches.Keys().Contains(node->name.value)) { context.syntaxManager.AddError( ParserErrorType::SwitchNotExists, node->name.codeRange, ruleSymbol->Name(), node->name.value ); } else if (!accessedSwitches.Contains(node->name.value)) { accessedSwitches.Add(node->name.value); } } void Visit(GlrNotCondition* node) override { node->condition->Accept(this); } void Visit(GlrAndCondition* node) override { node->first->Accept(this); node->second->Accept(this); } void Visit(GlrOrCondition* node) override { node->first->Accept(this); node->second->Accept(this); } //////////////////////////////////////////////////////////////////////// // GlrClause::IVisitor //////////////////////////////////////////////////////////////////////// void Visit(GlrCreateClause* node) override { if (auto classSymbol = GetRuleClass(node->type)) { context.ruleKnownTypes.Add(ruleSymbol, classSymbol); context.clauseTypes.Add(node, classSymbol); } node->syntax->Accept(this); } void Visit(GlrPartialClause* node) override { if (auto classSymbol = GetRuleClass(node->type)) { context.ruleKnownTypes.Add(ruleSymbol, classSymbol); context.clauseTypes.Add(node, classSymbol); } node->syntax->Accept(this); } void Visit(GlrReuseClause* node) override { reuseClause = node; node->syntax->Accept(this); } void Visit(GlrLeftRecursionPlaceholderClause* node) override { for (auto flag : node->flags) { auto name = flag->flag.value; if (!ruleSymbol->lrFlags.Contains(name)) { ruleSymbol->lrFlags.Add(name); } } context.directLrpClauses.Add(ruleSymbol, node); } void VisitLriClause(GlrLeftRecursionInjectClause* node) { VisitReuseSyntax( node->rule->literal, (!node->continuation || node->continuation->type == GlrLeftRecursionInjectContinuationType::Optional) ); if (node->continuation) { for (auto lriTarget : node->continuation->injectionTargets) { VisitLriClause(lriTarget.Obj()); } } } void Visit(GlrLeftRecursionInjectClause* node) override { VisitLriClause(node); context.directLriClauses.Add(ruleSymbol, node); } void Visit(GlrPrefixMergeClause* node) override { VisitReuseSyntax(node->rule->literal, true); context.directPmClauses.Add(ruleSymbol, node); } }; /*********************************************************************** ResolveName ***********************************************************************/ bool IsLegalNameBeforeWithSwitch(const WString& name) { if (wcsstr(name.Buffer(), L"_SWITCH")) return false; if (wcsstr(name.Buffer(), L"SWITCH_")) return false; return true; } bool IsLegalNameBeforeWithPrefixMerge(const WString& name) { if (wcsstr(name.Buffer(), L"_LRI")) return false; if (wcsstr(name.Buffer(), L"_LRIP")) return false; if (wcsstr(name.Buffer(), L"LRI_")) return false; if (wcsstr(name.Buffer(), L"LRIP_")) return false; return true; } void ResolveName(VisitorContext& context, VisitorSwitchContext& sContext, Ptr syntaxFile) { for (auto switchItem : syntaxFile->switches) { if (sContext.switches.Keys().Contains(switchItem->name.value)) { context.syntaxManager.AddError( ParserErrorType::DuplicatedSwitch, switchItem->name.codeRange, switchItem->name.value ); } else { sContext.switches.Add( switchItem->name.value, { (switchItem->value == GlrSwitchValue::True), switchItem.Obj() }); } } for (auto rule : syntaxFile->rules) { context.astRules.Add(context.syntaxManager.Rules()[rule->name.value], rule.Obj()); } SortedList accessedSwitches; for (auto rule : syntaxFile->rules) { auto ruleSymbol = context.syntaxManager.Rules()[rule->name.value]; ResolveNameVisitor visitor(context, sContext, accessedSwitches, ruleSymbol); if (rule->type) { ruleSymbol->ruleType = visitor.GetRuleClass(rule->type); } for (auto clause : rule->clauses) { visitor.ResolveClause(clause); } } { vint index = 0; for (auto&& switchName : sContext.switches.Keys()) { if (index == accessedSwitches.Count() || switchName != accessedSwitches[index]) { context.syntaxManager.AddError( ParserErrorType::UnusedSwitch, sContext.switches[switchName].value->codeRange, switchName ); } else { index++; } } } if (sContext.switches.Count() > 0) { for (auto rule : syntaxFile->rules) { if (!IsLegalNameBeforeWithSwitch(rule->name.value)) { context.syntaxManager.AddError( ParserErrorType::SyntaxInvolvesSwitchWithIllegalRuleName, rule->name.codeRange, rule->name.value ); } } } if (context.directPmClauses.Count() > 0) { for (auto rule : syntaxFile->rules) { if (!IsLegalNameBeforeWithPrefixMerge(rule->name.value)) { context.syntaxManager.AddError( ParserErrorType::SyntaxInvolvesPrefixMergeWithIllegalRuleName, rule->name.codeRange, rule->name.value ); } for (auto lrp : From(rule->clauses).FindType()) { for (auto p : lrp->flags) { if (!IsLegalNameBeforeWithPrefixMerge(p->flag.value)) { context.syntaxManager.AddError( ParserErrorType::SyntaxInvolvesPrefixMergeWithIllegalPlaceholderName, p->flag.codeRange, rule->name.value, p->flag.value ); } } } } } } } } } /*********************************************************************** .\PARSERGEN\COMPILESYNTAX_REWRITESYNTAX_PREFIXMERGE.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; using namespace compile_syntax; extern void CalculateFirstSet_IndirectStartRules(VisitorContext& context); extern void CalculateFirstSet_IndirectSimpleUseRules(VisitorContext& context); namespace rewritesyntax_prefixmerge { struct RewritingPrefixConflict { // all clauses are simple use clauses, RuleSymbol* in values are the rule referenced by keys SortedList unaffectedClauses; // clauses that are not affected by prefix extraction SortedList prefixClauses; // simple use clauses that are prefix themselves Group conflictedClauses; // c1 -> c2 if c1's prefix is prefix clause c2 }; struct PrefixRuleWithClause { RuleSymbol* ruleSymbol = nullptr; GlrClause* clause = nullptr; bool operator==(PrefixRuleWithClause& p) const { return ruleSymbol == p.ruleSymbol && clause == p.clause; } }; struct RewritingContext { List pmRules; // all rules that need to be rewritten Dictionary skippedRules; // skipped RuleSymbol -> GlrRule SortedList protectedSkippedClause; // a simple use clause that belongs to one of the skipped rules Dictionary originRules; // rewritten RuleSymbol -> GlrRule ends with _LRI_Original, which is the same GlrRule object before rewritten Dictionary lriRules; // rewritten RuleSymbol -> GlrRule containing left_recursion_inject clauses Dictionary fixedAstRules; // RuleSymbol -> GlrRule relationship after rewritten Group extractPrefixClauses; // RuleSymbol -> {rule to be extracted, clause begins with rule} Dictionary, GlrRule*> extractedPrefixRules; // {rewritten RuleSymbol, prefix RuleSymbol} -> GlrRule ends with _LRI_Prefix Dictionary> extractedConflicts; // rewritten RuleSymbol -> all needed information if prefix extraction affects how it generates left_recursion_inject clauses }; Ptr GetConflict(const RewritingContext& rContext, RuleSymbol* ruleSymbol) { vint indexConflict = rContext.extractedConflicts.Keys().IndexOf(ruleSymbol); if (indexConflict == -1) { return nullptr; } else { return rContext.extractedConflicts.Values()[indexConflict]; } } Ptr EnsureGetConflict(RewritingContext& rContext, RuleSymbol* ruleSymbol) { auto conflict = GetConflict(rContext, ruleSymbol); if (!conflict) { conflict = Ptr(new RewritingPrefixConflict); rContext.extractedConflicts.Add(ruleSymbol, conflict); } return conflict; } /*********************************************************************** FillMissingPrefixMergeClauses ***********************************************************************/ void RemoveDirectReferences(RulePathDependencies& references, RuleSymbol* ruleSymbol, GlrClause* clause) { vint index = references.Keys().IndexOf(ruleSymbol); if (index != -1) { auto&& values = const_cast&>(references.GetByIndex(index)); // TODO: (enumerable) foreach:indexed(alterable(reversed)) for (vint i = values.Count() - 1; i >= 0; i--) { if (values[i].clause == clause) { values.RemoveAt(i); } } if (values.Count() == 0) { references.Remove(ruleSymbol); } } } void FillMissingPrefixMergeClauses(VisitorContext& vContext, SyntaxSymbolManager& syntaxManager, Ptr rewritten) { // find position of thses clauses in rules for (auto clauseRaw : vContext.clauseToConvertedToPrefixMerge) { auto ruleSymbol = vContext.clauseToRules[clauseRaw]; auto ruleRaw = vContext.astRules[ruleSymbol]; vint ruleIndex = rewritten->rules.IndexOf(ruleRaw); vint clauseIndex = ruleRaw->clauses.IndexOf(clauseRaw); auto clause = ruleRaw->clauses[clauseIndex]; // create new rule and replace the clause with prefix_merge auto newRule = Ptr(new GlrRule); rewritten->rules.Insert(ruleIndex, newRule); newRule->codeRange = clauseRaw->codeRange; newRule->name = ruleRaw->name; newRule->name.value += L"_LRI_Isolated_" + itow(clauseIndex); newRule->clauses.Add(clause); auto newPM = Ptr(new GlrPrefixMergeClause); newPM->codeRange = clauseRaw->codeRange; ruleRaw->clauses[clauseIndex] = newPM; { auto startRule = Ptr(new GlrRefSyntax); newPM->rule = startRule; startRule->refType = GlrRefType::Id; startRule->literal.value = newRule->name.value; } // remove direct references RemoveDirectReferences(vContext.directStartRules, ruleSymbol, clause.Obj()); RemoveDirectReferences(vContext.directSimpleUseRules, ruleSymbol, clause.Obj()); // fix rule and clause symbols auto newRuleSymbol = syntaxManager.CreateRule( newRule->name.value, ruleSymbol->fileIndex, true, ruleSymbol->isParser, ruleRaw->name.codeRange ); newRuleSymbol->isPartial = ruleSymbol->isPartial; newRuleSymbol->ruleType = vContext.clauseTypes[clause.Obj()]; vContext.astRules.Add(newRuleSymbol, newRule.Obj()); vContext.clauseTypes.Add(newPM.Obj(), newRuleSymbol->ruleType); vContext.clauseToRules.Set(clause.Obj(), newRuleSymbol); vContext.clauseToRules.Add(newPM.Obj(), ruleSymbol); vContext.clauseToStartRules.Add(newPM.Obj(), newRuleSymbol); // fix directPmClauses // indirectPmClauses // directStartRules vContext.directPmClauses.Add(ruleSymbol, newPM.Obj()); vContext.indirectPmClauses.Add(ruleSymbol, newPM.Obj()); vContext.directStartRules.Add(ruleSymbol, { newRuleSymbol,newPM.Obj() }); for (auto key : syntaxManager.Rules().Values()) { if (vContext.indirectStartPathToLastRules.Contains({ key,ruleSymbol })) { vContext.indirectPmClauses.Add(key, newPM.Obj()); } } } // fix indirectStartRules // indirectSimpleUseRules // indirectStartPathToLastRules // indirectSimpleUsePathToLastRules vContext.indirectStartRules.Clear(); vContext.indirectSimpleUseRules.Clear(); vContext.indirectStartPathToLastRules.Clear(); vContext.indirectSimpleUsePathToLastRules.Clear(); CalculateFirstSet_IndirectStartRules(vContext); CalculateFirstSet_IndirectSimpleUseRules(vContext); } /*********************************************************************** CollectSkippedTargets ***********************************************************************/ void CollectSkippedTargets(const VisitorContext& vContext, RewritingContext& rContext, Ptr rewritten) { // when a rule // is not a prefix of a rewritten rule // has no direct prefix_merge clause // has only one clause which starts with prefix_merge clause // skip rewriting it // if the only clause of a skipped rule is a simple use clause referencing a rule to be rewritten // the name it referenced should not be changed in RenamePrefix List lastRemovedCandidates; Dictionary candidateProtectedClauses; for (auto rule : rewritten->rules) { auto ruleSymbol = vContext.syntaxManager.Rules()[rule->name.value]; if (vContext.indirectPmClauses.Keys().Contains(ruleSymbol)) { if (!vContext.directPmClauses.Keys().Contains(ruleSymbol)) { GlrClause* uniqueQualifiedClause = nullptr; for (auto clause : rule->clauses) { vint index = vContext.clauseToStartRules.Keys().IndexOf(clause.Obj()); if (index == -1) continue; auto&& startRules = vContext.clauseToStartRules.GetByIndex(index); for (auto startRule : startRules) { if (vContext.indirectPmClauses.Keys().Contains(startRule)) { if (!uniqueQualifiedClause) { uniqueQualifiedClause = clause.Obj(); break; } else { goto DO_NOT_SKIP; } break; } } } if (uniqueQualifiedClause) { rContext.skippedRules.Add(ruleSymbol, rule.Obj()); if (vContext.simpleUseClauseToReferencedRules.Keys().Contains(uniqueQualifiedClause)) { candidateProtectedClauses.Add(ruleSymbol, uniqueQualifiedClause); } } continue; DO_NOT_SKIP: lastRemovedCandidates.Add(ruleSymbol); } } } while (lastRemovedCandidates.Count() > 0) { List newRemovedCandidates; for (auto ruleSymbol : lastRemovedCandidates) { vint indexStart = vContext.directStartRules.Keys().IndexOf(ruleSymbol); if (indexStart != -1) { for (auto startRuleSymbol : vContext.directStartRules.GetByIndex(indexStart)) { if (rContext.skippedRules.Keys().Contains(startRuleSymbol.ruleSymbol)) { rContext.skippedRules.Remove(startRuleSymbol.ruleSymbol); newRemovedCandidates.Add(startRuleSymbol.ruleSymbol); } } } } CopyFrom(lastRemovedCandidates, newRemovedCandidates); } for (auto [ruleSymbol, rule] : rContext.skippedRules) { vint index = candidateProtectedClauses.Keys().IndexOf(ruleSymbol); if (index != -1) { rContext.protectedSkippedClause.Add(candidateProtectedClauses.Values()[index]); } } } /*********************************************************************** CollectRewritingTargets ***********************************************************************/ void CollectRewritingTargets(const VisitorContext& vContext, RewritingContext& rContext, Ptr rewritten) { for (auto rule : rewritten->rules) { auto ruleSymbol = vContext.syntaxManager.Rules()[rule->name.value]; if (vContext.indirectPmClauses.Keys().Contains(ruleSymbol)) { if (rContext.skippedRules.Keys().Contains(ruleSymbol)) { continue; } rContext.pmRules.Add(ruleSymbol); vint indexStart = vContext.directStartRules.Keys().IndexOf(ruleSymbol); vint indexSimpleUse = vContext.directSimpleUseRules.Keys().IndexOf(ruleSymbol); if (indexStart != -1 && indexSimpleUse != -1) { // all clauses should be simple use to enable prefix detection if (vContext.directSimpleUseRules.GetByIndex(indexSimpleUse).Count() != rule->clauses.Count()) continue; Ptr conflict; for (auto [startRule, startClause] : vContext.directStartRules.GetByIndex(indexStart)) { // prefix_merge clauses and left recursive clauses are not involved in prefix detection/extraction if (dynamic_cast(startClause)) continue; if (vContext.leftRecursiveClauses.Contains(ruleSymbol, startClause)) continue; // find all clause pair "!X" and "Y ...", see if X is a prefix of Y for (auto [simpleUseRule, simpleUseClause] : vContext.directSimpleUseRules.GetByIndex(indexSimpleUse)) { // ignore if X is Y if (startRule == simpleUseRule) continue; // ignore if X is not a prefix of Y vint indexExtract = vContext.indirectStartPathToLastRules.Keys().IndexOf({ startRule,simpleUseRule }); if (indexExtract == -1) continue; // ignore if Y ::= X directly or indirectly for (auto [extractRule, extractClause] : vContext.indirectStartPathToLastRules.GetByIndex(indexExtract)) { // ignore if Y ::= X directly or indirectly if (vContext.directSimpleUseRules.Contains(extractRule, { simpleUseRule,extractClause })) continue; // prefix extraction needed if (!rContext.extractPrefixClauses.Contains(extractRule, { simpleUseRule,extractClause })) { rContext.extractPrefixClauses.Add(extractRule, { simpleUseRule,extractClause }); } // fill conflict information for ruleSymbol if (!conflict) { conflict = EnsureGetConflict(rContext, ruleSymbol); } if (!conflict->prefixClauses.Contains(simpleUseClause)) { conflict->prefixClauses.Add(simpleUseClause); } if (!conflict->conflictedClauses.Contains(startClause, simpleUseClause)) { conflict->conflictedClauses.Add(startClause, simpleUseClause); } } } } if (conflict) { for (auto clause : rule->clauses) { if (!conflict->prefixClauses.Contains(clause.Obj()) && !conflict->conflictedClauses.Contains(clause.Obj())) { conflict->unaffectedClauses.Add(clause.Obj()); } } } } } } } /*********************************************************************** CreateRewrittenRules ***********************************************************************/ void CreateRewrittenRules(const VisitorContext& vContext, RewritingContext& rContext, Ptr rewritten) { for (auto ruleSymbol : rContext.pmRules) { auto originRule = vContext.astRules[ruleSymbol]; rContext.originRules.Add(ruleSymbol, originRule); auto lri = Ptr(new GlrRule); rewritten->rules.Add(lri); rContext.lriRules.Add(ruleSymbol, lri.Obj()); lri->codeRange = originRule->codeRange; lri->attPublic = originRule->attPublic; lri->attParser = originRule->attParser; lri->codeRange = originRule->name.codeRange; lri->name = originRule->name; originRule->attPublic = {}; originRule->attParser = {}; originRule->name.value += L"_LRI_Original"; } // TODO: (enumerable) foreach for (auto [ruleSymbol, index] : indexed(rContext.extractPrefixClauses.Keys())) { auto originRule = vContext.astRules[ruleSymbol]; auto&& prefixClauses = rContext.extractPrefixClauses.GetByIndex(index); for (auto [prefixRuleSymbol, prefixClause] : From(prefixClauses) .OrderByKey([](auto&& p) {return p.ruleSymbol->Name(); })) { if (!rContext.extractedPrefixRules.Keys().Contains({ ruleSymbol,prefixRuleSymbol })) { auto ep = Ptr(new GlrRule); rewritten->rules.Insert(rewritten->rules.IndexOf(originRule), ep); rContext.extractedPrefixRules.Add({ ruleSymbol,prefixRuleSymbol }, ep.Obj()); ep->codeRange = originRule->codeRange; ep->name.codeRange = originRule->name.codeRange; ep->name.value = ruleSymbol->Name() + L"_" + prefixRuleSymbol->Name() + L"_LRI_Prefix"; } } } } /*********************************************************************** FixRuleTypes ***********************************************************************/ void FixRuleTypes(const VisitorContext& vContext, RewritingContext& rContext, SyntaxSymbolManager& syntaxManager) { CopyFrom(rContext.fixedAstRules, vContext.astRules); for (auto ruleSymbol : rContext.pmRules) { auto originRule = rContext.originRules[ruleSymbol]; auto lriRule = rContext.lriRules[ruleSymbol]; auto originSymbol = syntaxManager.CreateRule( originRule->name.value, ruleSymbol->fileIndex, ruleSymbol->isPublic, ruleSymbol->isParser, originRule->codeRange ); originSymbol->isPartial = ruleSymbol->isPartial; originSymbol->ruleType = ruleSymbol->ruleType; rContext.fixedAstRules.Set(originSymbol, originRule); rContext.fixedAstRules.Set(ruleSymbol, lriRule); } for (auto [pair, epRule] : rContext.extractedPrefixRules) { auto originRule = rContext.originRules[pair.key]; auto epRuleSymbol = syntaxManager.CreateRule( epRule->name.value, pair.key->fileIndex, false, false, originRule->codeRange ); epRuleSymbol->ruleType = pair.value->ruleType; rContext.fixedAstRules.Add(epRuleSymbol, epRule); } for (auto [ruleSymbol, rule] : rContext.fixedAstRules) { if (!rule->type) { rule->type.value = ruleSymbol->ruleType->Name(); } } for (auto ruleSymbol : syntaxManager.Rules().Values()) { ruleSymbol->assignedNonArrayField = false; ruleSymbol->lrFlags.Clear(); } } /*********************************************************************** RewriteExtractedPrefixRules ***********************************************************************/ void RewriteExtractedPrefixRules(const VisitorContext& vContext, RewritingContext& rContext, SyntaxSymbolManager& syntaxManager) { for (auto [pair, epRule] : rContext.extractedPrefixRules) { { auto lrpClause = Ptr(new GlrLeftRecursionPlaceholderClause); lrpClause->codeRange = epRule->codeRange; epRule->clauses.Add(lrpClause); auto lrp = Ptr(new GlrLeftRecursionPlaceholder); lrpClause->flags.Add(lrp); lrp->flag.value = L"LRIP_" + pair.key->Name() + L"_" + pair.value->Name(); syntaxManager.lrpFlags.Add(lrp->flag.value); } { auto reuseClause = Ptr(new GlrReuseClause); reuseClause->codeRange = epRule->codeRange; epRule->clauses.Add(reuseClause); auto useSyntax = Ptr(new GlrUseSyntax); reuseClause->syntax = useSyntax; useSyntax->name.value = rContext.originRules[pair.value]->name.value; } } } /*********************************************************************** RewriteRules (Common) ***********************************************************************/ using PMClauseRecord = GenericRuleClausePath; struct PMInjectRecord { RuleSymbol* pmRule = nullptr; RuleSymbol* injectIntoRule = nullptr; }; void RewriteRules_AddPmClause( const VisitorContext& vContext, RuleSymbol* ruleSymbol, GlrPrefixMergeClause* pmClause, Group& pmClauses ) { auto pmRule = vContext.clauseToRules[pmClause]; if (ruleSymbol == pmRule) { if (!pmClauses.Contains(pmClause->rule->literal.value, { ruleSymbol,pmClause })) { pmClauses.Add(pmClause->rule->literal.value, { ruleSymbol,pmClause }); } } else { for (auto [indirectStartRule, indirectClause] : vContext.indirectStartPathToLastRules[{ ruleSymbol, pmRule }]) { if (!pmClauses.Contains(pmClause->rule->literal.value, { ruleSymbol,pmClause })) { pmClauses.Add(pmClause->rule->literal.value, { ruleSymbol,pmClause }); } } } } Ptr RewriteRules_CollectUnaffectedIndirectPmClauses( const VisitorContext& vContext, const RewritingContext& rContext, RuleSymbol* initiatedRuleSymbol, RuleSymbol* ruleSymbol, SortedList& visited, Group& pmClauses ) { auto conflict = initiatedRuleSymbol == ruleSymbol ? GetConflict(rContext, ruleSymbol) : nullptr; if (!visited.Contains(ruleSymbol)) { visited.Add(ruleSymbol); if (conflict) { for (auto [simpleUseRule, simpleUseClause] : vContext.directSimpleUseRules[ruleSymbol]) { if (conflict->unaffectedClauses.Contains(simpleUseClause)) { RewriteRules_CollectUnaffectedIndirectPmClauses(vContext, rContext, initiatedRuleSymbol, simpleUseRule, visited, pmClauses); } else { vint indexConflicted = conflict->conflictedClauses.Keys().IndexOf(simpleUseClause); if (indexConflicted == -1) continue; auto&& prefixClauses = conflict->conflictedClauses.GetByIndex(indexConflicted); for (auto pmClause : From(vContext.indirectPmClauses[ruleSymbol]).Except( From(prefixClauses) .SelectMany([&](GlrClause* prefixClause) { return From(vContext.indirectPmClauses[vContext.simpleUseClauseToReferencedRules[prefixClause]]); }) )) { RewriteRules_AddPmClause(vContext, simpleUseRule, pmClause, pmClauses); } } } } else { for (auto pmClause : vContext.indirectPmClauses[ruleSymbol]) { RewriteRules_AddPmClause(vContext, ruleSymbol, pmClause, pmClauses); } } } return conflict; } void RewriteRules_CheckPath( const VisitorContext& vContext, RuleSymbol* startSymbol, RuleSymbol* endSymbol, bool& hasSimpleUseTransition, bool& hasNonSimpleUseTransition ) { // check the path from startSymbol to endSymbol // hasSimpleUseTransition and hasNonSimpleUseTransition must be false before non-recursive calling from outside // if a transition is found // either of one will be set to true // meaning such transition is counted bool isEndSymbolLeftRecursive = vContext.leftRecursiveClauses.Keys().Contains(endSymbol); if (isEndSymbolLeftRecursive) { // if endSymbol is left recursive // then we find a non-simple-use transition from startSymbol to endSymbol hasNonSimpleUseTransition = true; } if (startSymbol == endSymbol) { // if startSymbol is endSymbol // then we find a simple-use transition // which does not actually transit hasSimpleUseTransition = true; } else { // otherwise we look through all possible path from startSymbol to endSymbol vint index = vContext.indirectStartPathToLastRules.Keys().IndexOf({ startSymbol,endSymbol }); if (index != -1) { for (auto [lastRuleSymbol, clause] : vContext.indirectStartPathToLastRules.GetByIndex(index)) { if (vContext.simpleUseClauseToReferencedRules.Keys().Contains(clause)) { // if we find a simple-use clause // we check how all transitions look like from startSymbol to lastRuleSymbol RewriteRules_CheckPath(vContext, startSymbol, lastRuleSymbol, hasSimpleUseTransition, hasNonSimpleUseTransition); } else { // if we find a non-simple-use clause // then we find a non-simple-use transition from startSymbol to endSymbol hasNonSimpleUseTransition = true; } } } } } void RewriteRules_CollectFlags( const VisitorContext& vContext, RuleSymbol* ruleSymbol, const List& pmClauses, Dictionary& flags, bool& generateOptionalLri ) { for (auto [injectIntoRule, pmClause] : pmClauses) { auto pmRule = vContext.clauseToRules[pmClause]; bool hasSimpleUseTransition = false; bool hasNonSimpleUseTransition = false; RewriteRules_CheckPath(vContext, ruleSymbol, pmRule, hasSimpleUseTransition, hasNonSimpleUseTransition); if (hasSimpleUseTransition) { generateOptionalLri = true; } if (hasNonSimpleUseTransition) { flags.Add(L"LRI_" + pmRule->Name(), { pmRule,injectIntoRule }); } } } bool RewriteRules_HasMultiplePaths( const VisitorContext& vContext, RuleSymbol* fromRule, RuleSymbol* toRule, Dictionary, vint>& pathCounter ) { Pair key = { fromRule, toRule }; vint index = pathCounter.Keys().IndexOf(key); if (index != -1) return pathCounter.Values()[index]; RuleSymbol* currentRule = toRule; bool hasMultiplePaths = false; while (currentRule != fromRule) { index = vContext.indirectStartPathToLastRules.Keys().IndexOf({ fromRule,currentRule }); if (index == -1) goto FINISHED; auto&& lastRules = vContext.indirectStartPathToLastRules.GetByIndex(index); if (lastRules.Count() > 1) { hasMultiplePaths = true; goto FINISHED; } currentRule = lastRules[0].ruleSymbol; } FINISHED: pathCounter.Add(key, hasMultiplePaths); return hasMultiplePaths; } /*********************************************************************** RewriteRules (AST Creation) ***********************************************************************/ Ptr CreateLriClause( const WString& ruleName ) { auto lriClause = Ptr(new GlrLeftRecursionInjectClause); auto lriStartRule = Ptr(new GlrRefSyntax); lriClause->rule = lriStartRule; lriStartRule->refType = GlrRefType::Id; lriStartRule->literal.value = ruleName; return lriClause; } Ptr CreateLriContinuation( const VisitorContext& vContext, const RewritingContext& rContext, RuleSymbol* ruleSymbol, const PMInjectRecord& pmInjectRecord, const WString& flag, Dictionary, vint>& pathCounter, bool generateOptionalLri ) { auto lriCont = Ptr(new GlrLeftRecursionInjectContinuation); if (RewriteRules_HasMultiplePaths(vContext, ruleSymbol, pmInjectRecord.pmRule, pathCounter)) { lriCont->configuration = GlrLeftRecursionConfiguration::Multiple; } else { lriCont->configuration = GlrLeftRecursionConfiguration::Single; } if (generateOptionalLri) { lriCont->type = GlrLeftRecursionInjectContinuationType::Optional; } else { lriCont->type = GlrLeftRecursionInjectContinuationType::Required; } auto lriContFlag = Ptr(new GlrLeftRecursionPlaceholder); lriCont->flags.Add(lriContFlag); lriContFlag->flag.value = flag; vint injectIntoOriginIndex = rContext.originRules.Keys().IndexOf(pmInjectRecord.injectIntoRule); auto lriContTargetName = injectIntoOriginIndex == -1 ? pmInjectRecord.injectIntoRule->Name() : rContext.originRules.Values()[injectIntoOriginIndex]->name.value ; auto lriContTarget = CreateLriClause(lriContTargetName); lriCont->injectionTargets.Add(lriContTarget); return lriCont; } /*********************************************************************** RewriteRules (Unaffected) ***********************************************************************/ void RewriteRules_GenerateUnaffectedLRIClauses( const VisitorContext& vContext, const RewritingContext& rContext, RuleSymbol* ruleSymbol, GlrRule* lriRule, Dictionary, vint>& pathCounter, Group& pmClauses, SortedList& knownOptionalStartRules ) { // TODO: (enumerable) foreach on group for (auto [pmName, pmIndex] : indexed(pmClauses.Keys())) { // if originRule is not left recursive // do not generate lriClause for the flag created for originRule, because there is no continuation // if a pmName does generate some lriClause // it becomes GLRICT::Optional // otherwise // it becomse GLRICT::Required // generate useSyntax instead of lriClause Dictionary flags; bool generateOptionalLri = false; RewriteRules_CollectFlags( vContext, ruleSymbol, pmClauses.GetByIndex(pmIndex), flags, generateOptionalLri ); if (generateOptionalLri && flags.Count() == 0) { auto reuseClause = Ptr(new GlrReuseClause); reuseClause->codeRange = lriRule->codeRange; lriRule->clauses.Add(reuseClause); auto useSyntax = Ptr(new GlrUseSyntax); reuseClause->syntax = useSyntax; useSyntax->name.value = pmName; } for (auto [flag, pmInjectRecord] : flags) { auto lriClause = CreateLriClause(pmName); lriRule->clauses.Add(lriClause); auto lriCont = CreateLriContinuation( vContext, rContext, ruleSymbol, pmInjectRecord, flag, pathCounter, generateOptionalLri ); lriClause->continuation = lriCont; if (generateOptionalLri) { generateOptionalLri = false; knownOptionalStartRules.Add(pmName); } } } } /*********************************************************************** RewriteRules (Affected) ***********************************************************************/ void RewriteRules_GenerateAffectedLRIClausesSubgroup( const VisitorContext& vContext, const RewritingContext& rContext, RuleSymbol* conflictedRuleSymbol, RuleSymbol* prefixRuleSymbol, SortedList& lripFlags, GlrRule* lriRule, Dictionary, vint>& pathCounter, SortedList& knownOptionalStartRules ) { Group pmClauses; { SortedList visited; auto conflict = RewriteRules_CollectUnaffectedIndirectPmClauses( vContext, rContext, prefixRuleSymbol, prefixRuleSymbol, visited, pmClauses ); if (conflict) { vContext.syntaxManager.AddError( ParserErrorType::PrefixExtractionAffectedRuleReferencedAnother, rContext.originRules[vContext.syntaxManager.Rules()[lriRule->name.value]]->codeRange, lriRule->name.value, conflictedRuleSymbol->Name(), prefixRuleSymbol->Name() ); return; } } // TODO: (enumerable) foreach on group for (auto [pmName, pmIndex] : indexed(pmClauses.Keys())) { // if originRule is not left recursive // left_recursion_inject directly into conflictedRuleSymbol // if a pmName does generate some lriClause // it becomes GLRICT::Optional // otherwise // it becomse GLRICT::Required // generate useSyntax instead of lriClause auto&& pmClauseRecords = pmClauses.GetByIndex(pmIndex); Dictionary flags; bool omittedSelf = false; bool generateOptionalLri = false; RewriteRules_CollectFlags( vContext, prefixRuleSymbol, pmClauseRecords, flags, generateOptionalLri ); if (generateOptionalLri) { // TODO: add test case for omittedSelf == true for (auto lripFlag : lripFlags) { auto lriClause = CreateLriClause(pmName); lriRule->clauses.Add(lriClause); auto lriCont = CreateLriContinuation( vContext, rContext, conflictedRuleSymbol, { prefixRuleSymbol,conflictedRuleSymbol }, lripFlag, pathCounter, false ); lriClause->continuation = lriCont; } } if (knownOptionalStartRules.Contains(pmName)) { generateOptionalLri = false; } for (auto [flag, pmInjectRecord] : flags) { { // Since there is no switches in pmClauses // So there is no switches in pmInjectRecord as well // because flags comes from pmClauses, collected by RewriteRules_CollectFlags above auto lriClause = CreateLriClause(pmName); lriRule->clauses.Add(lriClause); auto lriCont = CreateLriContinuation( vContext, rContext, prefixRuleSymbol, { pmInjectRecord.pmRule,prefixRuleSymbol }, flag, pathCounter, generateOptionalLri ); lriClause->continuation = lriCont; for (auto lripFlag : lripFlags) { auto lriCont2 = CreateLriContinuation( vContext, rContext, conflictedRuleSymbol, { prefixRuleSymbol,conflictedRuleSymbol }, lripFlag, pathCounter, true ); auto branchStart = lriCont->injectionTargets[0]; if (branchStart->continuation) { // TODO: add test case auto newBranchStart = CreateLriClause(branchStart->rule->literal.value); newBranchStart->continuation = lriCont2; lriCont->injectionTargets.Add(newBranchStart); } else { branchStart->continuation = lriCont2; } } if (generateOptionalLri) { generateOptionalLri = false; } } } } } void RewriteRules_GenerateAffectedLRIClauses( const VisitorContext& vContext, const RewritingContext& rContext, RuleSymbol* ruleSymbol, GlrRule* lriRule, Ptr conflict, Dictionary, vint>& pathCounter, SortedList& knownOptionalStartRules ) { // TODO: (enumerable) foreach on group for (auto [conflictedClause, conflictedIndex] : indexed(conflict->conflictedClauses.Keys())) { auto conflictedRuleSymbol = vContext.simpleUseClauseToReferencedRules[conflictedClause]; auto&& prefixClauses = conflict->conflictedClauses.GetByIndex(conflictedIndex); for (auto prefixClause : prefixClauses) { auto prefixRuleSymbol = vContext.simpleUseClauseToReferencedRules[prefixClause]; SortedList lripFlags; for (auto extracted : vContext.indirectStartPathToLastRules[{conflictedRuleSymbol, prefixRuleSymbol}]) { lripFlags.Add(L"LRIP_" + extracted.ruleSymbol->Name() + L"_" + prefixRuleSymbol->Name()); } RewriteRules_GenerateAffectedLRIClausesSubgroup( vContext, rContext, conflictedRuleSymbol, prefixRuleSymbol, lripFlags, lriRule, pathCounter, knownOptionalStartRules ); } } } /*********************************************************************** RewriteRules ***********************************************************************/ bool CompareLri(Ptr c1, Ptr c2); bool CompareLriTargest(List>& targets1, List>& targets2) { if (targets1.Count() != targets2.Count()) return false; for (auto [target, i] : indexed(targets1)) { if (!CompareLri(targets1[i], targets2[i])) return false; } return true; } bool CompareLri(Ptr c1, Ptr c2) { if (c1->rule->literal.value != c2->rule->literal.value) return false; if ((c1->continuation == nullptr) != (c2->continuation == nullptr)) return false; if (!c1->continuation) return true; auto cont1 = c1->continuation; auto cont2 = c2->continuation; if (cont1->flags.Count() != cont2->flags.Count()) return false; // TODO: (enumerable) foreach:indexed, flag not used, considering Linq:Zip, Any for (auto [flag, i] : indexed(cont1->flags)) { if (cont1->flags[i]->flag.value != cont2->flags[i]->flag.value) return false; } return CompareLriTargest(cont1->injectionTargets, cont2->injectionTargets); } void OptimizeLri(List>& lriClauses) { for (auto lriClause : lriClauses) { if (lriClause->continuation) { OptimizeLri(lriClause->continuation->injectionTargets); } } List> results, candidates; for (auto [prefixRuleName, subLriClauses] : From(lriClauses) .GroupBy([](auto lriClause) {return lriClause->rule->literal.value; }) ) { CopyFrom(candidates, From(subLriClauses).Reverse()); while (candidates.Count() > 0) { auto candidate = candidates[candidates.Count() - 1]; candidates.RemoveAt(candidates.Count() - 1); // TODO: (enumerable) foreach:indexed(alterable(reversed)) for (vint i = candidates.Count() - 1; i >= 0; i--) { auto compare = candidates[i]; if (CompareLriTargest(candidate->continuation->injectionTargets, compare->continuation->injectionTargets)) { List> flags; CopyFrom( flags, From(candidate->continuation->flags) .Concat(compare->continuation->flags) ); CopyFrom( candidate->continuation->flags, From(flags) .GroupBy([](auto flag) { return flag->flag.value; }) .Select([](auto pair) { return pair.value.First(); }) ); if (compare->continuation->configuration == GlrLeftRecursionConfiguration::Multiple) { candidate->continuation->configuration = GlrLeftRecursionConfiguration::Multiple; } if(compare->continuation->type==GlrLeftRecursionInjectContinuationType::Optional) { candidate->continuation->type = GlrLeftRecursionInjectContinuationType::Optional; } candidates.RemoveAt(i); } } results.Add(candidate); } } CopyFrom(lriClauses, results); } void RewriteRules(const VisitorContext& vContext, const RewritingContext& rContext, SyntaxSymbolManager& syntaxManager) { Dictionary, vint> pathCounter; for (auto [ruleSymbol, originRule] : rContext.originRules) { auto lriRule = rContext.lriRules[ruleSymbol]; Ptr conflict; Group pmClauses; { SortedList visited; conflict = RewriteRules_CollectUnaffectedIndirectPmClauses( vContext, rContext, ruleSymbol, ruleSymbol, visited, pmClauses ); } SortedList knownOptionalStartRules; RewriteRules_GenerateUnaffectedLRIClauses( vContext, rContext, ruleSymbol, lriRule, pathCounter, pmClauses, knownOptionalStartRules ); if (conflict) { RewriteRules_GenerateAffectedLRIClauses( vContext, rContext, ruleSymbol, lriRule, conflict, pathCounter, knownOptionalStartRules ); } List> otherClauses; List> lriClauses; for (auto clause : lriRule->clauses) { if (auto lriClause = clause.Cast()) { lriClauses.Add(lriClause); } else { otherClauses.Add(clause); } } if (lriClauses.Count() > 0) { OptimizeLri(lriClauses); CopyFrom( lriRule->clauses, From(otherClauses) .Concat( From(lriClauses).Select([](auto clause)->Ptr {return clause; }) ) ); } } } /*********************************************************************** FixPrefixMergeClauses ***********************************************************************/ void FixPrefixMergeClauses(const VisitorContext& vContext, const RewritingContext& rContext, SyntaxSymbolManager& syntaxManager) { for (auto ruleSymbol : vContext.directPmClauses.Keys()) { auto originRule = rContext.originRules[ruleSymbol]; auto lrpClause = Ptr(new GlrLeftRecursionPlaceholderClause); lrpClause->codeRange = originRule->codeRange; originRule->clauses.Insert(0, lrpClause); auto lrp = Ptr(new GlrLeftRecursionPlaceholder); lrp->flag.value = L"LRI_" + ruleSymbol->Name(); lrpClause->flags.Add(lrp); syntaxManager.lrpFlags.Add(lrp->flag.value); for (vint i = 0; i < originRule->clauses.Count(); i++) { if (auto pmClause = originRule->clauses[i].Cast()) { if (ruleSymbol->isPartial) { auto partialClause = Ptr(new GlrPartialClause); originRule->codeRange = originRule->codeRange; originRule->clauses[i] = partialClause; partialClause->type.value = ruleSymbol->ruleType->Name(); auto refSyntax = Ptr(new GlrRefSyntax); refSyntax->refType = GlrRefType::Id; refSyntax->literal.value = pmClause->rule->literal.value; partialClause->syntax = refSyntax; } else { auto reuseClause = Ptr(new GlrReuseClause); originRule->codeRange = originRule->codeRange; originRule->clauses[i] = reuseClause; auto useSyntax = Ptr(new GlrUseSyntax); useSyntax->name.value = pmClause->rule->literal.value; reuseClause->syntax = useSyntax; } } } } } /*********************************************************************** RenamePrefix ***********************************************************************/ class RenamePrefixVisitor : public Object , protected virtual GlrSyntax::IVisitor , protected virtual GlrClause::IVisitor { protected: const RewritingContext& rContext; RuleSymbol* ruleSymbol; const SyntaxSymbolManager& syntaxManager; public: RenamePrefixVisitor( const RewritingContext& _rContext, RuleSymbol* _ruleSymbol, const SyntaxSymbolManager& _syntaxManager ) : rContext(_rContext) , ruleSymbol(_ruleSymbol) , syntaxManager(_syntaxManager) { } void FixClause(Ptr clause) { clause->Accept(this); } protected: void FixStartRule(ParsingToken& ruleName) { auto startRuleSymbol = syntaxManager.Rules()[ruleName.value]; vint index = rContext.extractedPrefixRules.Keys().IndexOf({ ruleSymbol,startRuleSymbol }); if (index != -1) { auto epRule = rContext.extractedPrefixRules.Values()[index]; ruleName.value = epRule->name.value; return; } index = rContext.originRules.Keys().IndexOf(startRuleSymbol); if (index != -1) { auto originRule = rContext.originRules.Values()[index]; ruleName.value = originRule->name.value; } } //////////////////////////////////////////////////////////////////////// // GlrSyntax::IVisitor //////////////////////////////////////////////////////////////////////// void Visit(GlrRefSyntax* node) override { if (node->refType == GlrRefType::Id) { vint index = syntaxManager.Rules().Keys().IndexOf(node->literal.value); if (index != -1) { FixStartRule(node->literal); } } } void Visit(GlrUseSyntax* node) override { FixStartRule(node->name); } void Visit(GlrLoopSyntax* node) override { } void Visit(GlrOptionalSyntax* node) override { } void Visit(GlrSequenceSyntax* node) override { node->first->Accept(this); } void Visit(GlrAlternativeSyntax* node) override { } void Visit(GlrPushConditionSyntax* node) override { node->syntax->Accept(this); } void Visit(GlrTestConditionSyntax* node) override { } //////////////////////////////////////////////////////////////////////// // GlrClause::IVisitor //////////////////////////////////////////////////////////////////////// void Visit(GlrCreateClause* node) override { node->syntax->Accept(this); } void Visit(GlrPartialClause* node) override { node->syntax->Accept(this); } void Visit(GlrReuseClause* node) override { node->syntax->Accept(this); } void Visit(GlrLeftRecursionPlaceholderClause* node) override { } void Visit(GlrLeftRecursionInjectClause* node) override { } void Visit(GlrPrefixMergeClause* node) override { } }; void RenamePrefix(RewritingContext& rContext, const SyntaxSymbolManager& syntaxManager) { for (auto [ruleSymbol, originRule] : From(rContext.originRules).Concat(rContext.skippedRules)) { RenamePrefixVisitor visitor(rContext, ruleSymbol, syntaxManager); for (auto clause : originRule->clauses) { if (rContext.protectedSkippedClause.Contains(clause.Obj())) { continue; } // !(a; b) should be moved from rule X_LRI_Original to left_recursion_inject clauses in rule X if (auto reuseClause = clause.Cast()) { if (auto pushSyntax = reuseClause->syntax.Cast()) { reuseClause->syntax = pushSyntax->syntax; } } visitor.FixClause(clause); } } } } /*********************************************************************** RewriteSyntax ***********************************************************************/ Ptr RewriteSyntax_PrefixMerge(VisitorContext& context, SyntaxSymbolManager& syntaxManager, Ptr syntaxFile) { using namespace rewritesyntax_prefixmerge; // merge files to single syntax file auto rewritten = Ptr(new GlrSyntaxFile); CopyFrom(rewritten->rules, syntaxFile->rules); // find clauses that need to be converted to prefix_merge and fix VisitorContext FillMissingPrefixMergeClauses(context, syntaxManager, rewritten); // find rules that need to be rewritten using left_recursion_inject RewritingContext rewritingContext; CollectSkippedTargets(context, rewritingContext, rewritten); CollectRewritingTargets(context, rewritingContext, rewritten); // create rewritten rules, rename origin rules CreateRewrittenRules(context, rewritingContext, rewritten); // fix rule types (fix syntaxManager.rules, clear RuleSymbol fields) FixRuleTypes(context, rewritingContext, syntaxManager); // create clauses in rewritten X_Y_LRI_Prefix rules RewriteExtractedPrefixRules(context, rewritingContext, syntaxManager); // create left_recursion_inject clauses in rewritten rules RewriteRules(context, rewritingContext, syntaxManager); // convert prefix_merge to left_recursion_placeholder and reuse clauses (fix syntaxManager.lrpFlags) FixPrefixMergeClauses(context, rewritingContext, syntaxManager); // rename rule references in origin rules RenamePrefix(rewritingContext, syntaxManager); return rewritten; } } } } /*********************************************************************** .\PARSERGEN\COMPILESYNTAX_REWRITESYNTAX_SWITCH.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; using namespace compile_syntax; namespace rewritesyntax_switch { struct GeneratedRule { GlrRule* ruleToExpand = nullptr; Ptr> switchValues; }; struct RewritingContext { Group> generatedRules; Group> expandedCombinedRules; Group> expandedFirstLevelRules; Dictionary> combinedRulesByName; Group validCombinedClauses; Group invalidCombinedClauses; }; class EmptySyntax : public GlrSyntax { public: void Accept(GlrSyntax::IVisitor* visitor) override { CHECK_FAIL(L"vl::glr::parsergen::rewritesyntax_switch::EmptySyntax::Accept(GlrSyntax::IVisitor*)#EmptySyntax should not be used!"); } }; Ptr> ApplySwitches(Ptr> currentValues, GlrPushConditionSyntax* node) { auto newValues = Ptr(new Dictionary); if (currentValues) { CopyFrom(*newValues.Obj(), *currentValues.Obj()); } for (auto switchItem : node->switches) { newValues->Set(switchItem->name.value, switchItem->value == GlrSwitchValue::True); } return newValues; } /*********************************************************************** EvaluateConditionVisitor **********************************************************************/ class EvaluateConditionVisitor : public Object , protected GlrCondition::IVisitor { // this visitor evaluates a condition with given switch values protected: Dictionary& workingSwitchValues; void Visit(GlrRefCondition* node) override { vint index = workingSwitchValues.Keys().IndexOf(node->name.value); CHECK_ERROR( index != -1, L"vl::glr::parsergen::rewritesyntax_switch::EvaluateConditionVisitor::Visit(GlrRefCondition*)#" L"Internal error: specified switch value is unevaluated" ); result = workingSwitchValues.Values()[index]; } void Visit(GlrNotCondition* node) override { node->condition->Accept(this); result = !result; } void Visit(GlrAndCondition* node) override { node->first->Accept(this); bool first = result; node->second->Accept(this); bool second = result; result = first && second; } void Visit(GlrOrCondition* node) override { node->first->Accept(this); bool first = result; node->second->Accept(this); bool second = result; result = first || second; } public: bool result = false; EvaluateConditionVisitor( Dictionary& _workingSwitchValues ) : workingSwitchValues(_workingSwitchValues) { } bool Evaluate(GlrCondition* condition) { condition->Accept(this); return result; } }; /*********************************************************************** ExpandSwitchSyntaxVisitor ***********************************************************************/ class ExpandSwitchSyntaxVisitor : public traverse_visitor::RuleAstVisitor { // this visitor look into all rules which is affected by switch values // and find all possible switch combination for these rules protected: struct Identification { RuleSymbol* workingRule = nullptr; Ptr> workingSwitchValues = nullptr; Ptr generatedRule; }; VisitorContext& vContext; VisitorSwitchContext& sContext; RewritingContext& rContext; SortedList scannedUnaffectedRules; Identification identification; protected: void TraverseRule(const ParsingToken& ruleName) { // check if it is a rule vint index = vContext.syntaxManager.Rules().Keys().IndexOf(ruleName.value); if (index == -1) return; auto ruleSymbol = vContext.syntaxManager.Rules().Values()[index]; auto rule = vContext.astRules[ruleSymbol]; // check if it is affected index = sContext.ruleAffectedSwitches.Keys().IndexOf(ruleSymbol); if (index == -1) { InspectIntoUnaffectedRule(rule); } else { InspectIntoAffectedRule( rule, sContext.ruleAffectedSwitches.GetByIndex(index), identification.workingSwitchValues ); } } void Traverse(GlrRefSyntax* node) override { if (node->refType == GlrRefType::Id) { TraverseRule(node->literal); } } void Traverse(GlrUseSyntax* node) override { TraverseRule(node->name); } void Visit(GlrTestConditionSyntax* node) override { CHECK_ERROR( identification.workingSwitchValues, L"vl::glr::parsergen::rewritesyntax_switch::ExpandSwitchSyntaxVisitor::Visit(GlrTestConditionSyntax*)#" L"Internal error: switch values are unevaluated" ); EvaluateConditionVisitor visitor(*identification.workingSwitchValues.Obj()); for (auto branch : node->branches) { // inspect into the branch only when it satisfies the condition if (!branch || visitor.Evaluate(branch->condition.Obj())) { InspectInto(branch->syntax.Obj()); } } } void Visit(GlrPushConditionSyntax* node) override { // inspect into the syntax with updated values auto oldValues = identification.workingSwitchValues; auto newValues = ApplySwitches(oldValues, node); identification.workingSwitchValues = newValues; traverse_visitor::RuleAstVisitor::Visit(node); identification.workingSwitchValues = oldValues; } public: ExpandSwitchSyntaxVisitor( VisitorContext& _vContext, VisitorSwitchContext& _sContext, RewritingContext& _rContext ) : vContext(_vContext) , sContext(_sContext) , rContext(_rContext) { } void InspectIntoAffectedRule( GlrRule* rule, const List& affectedSwitches, Ptr> currentSwitchValues ) { // an affected rule respond to switch values // collect switch values that the rule cares auto workingSwitchValues = Ptr(new Dictionary); for (auto&& name : affectedSwitches) { vint index = -1; if (currentSwitchValues) { index = currentSwitchValues->Keys().IndexOf(name); } if (index == -1) { workingSwitchValues->Set(name, sContext.switches[name].key); } else { workingSwitchValues->Set(name, currentSwitchValues->Values()[index]); } } // skip if the rule with collected switch values has been inspected auto workingRule = vContext.syntaxManager.Rules()[rule->name.value]; vint index = rContext.generatedRules.Keys().IndexOf(workingRule); if (index != -1) { for (auto generatedRule : rContext.generatedRules.GetByIndex(index)) { if (CompareEnumerable(*generatedRule->switchValues.Obj(), *workingSwitchValues.Obj()) == 0) { return; } } } // make a record of the collected switch values auto generatedRule = Ptr(new GeneratedRule); generatedRule->ruleToExpand = rule; generatedRule->switchValues = workingSwitchValues; rContext.generatedRules.Add(workingRule, generatedRule); // inspect into the rule with collected switch values auto oldId = identification; identification.workingRule = workingRule; identification.workingSwitchValues = workingSwitchValues; identification.generatedRule = generatedRule; InspectInto(rule); identification = oldId; } void InspectIntoUnaffectedRule(GlrRule* rule) { // an unaffected rule does not respond to switch values // skip if it has been inspected auto workingRule = vContext.syntaxManager.Rules()[rule->name.value]; if (scannedUnaffectedRules.Contains(workingRule)) return; scannedUnaffectedRules.Add(workingRule); auto oldId = identification; identification = {}; identification.workingRule = workingRule; InspectInto(rule); identification = oldId; } }; /*********************************************************************** ExpandClauseVisitor ***********************************************************************/ class ExpandClauseVisitor : public copy_visitor::RuleAstVisitor { // this visitor expand syntax with given switch values // the expanded syntax does not include GlrPushConditionSyntax // GlrTestConditionSyntax will be possibly converts to GlrAlternativeSyntax // only with branches whose condition is evaluated to true under given switch values // EmptySyntax will be generated for ?(true: ; | false: allOtherBranches) // CancelBranch will be thrown for ?(false: allBranches) protected: struct CancelBranch {}; VisitorContext& vContext; VisitorSwitchContext& sContext; Ptr> workingSwitchValues; protected: void FixRuleName(ParsingToken& name) { // check if it is an affected rule vint index = vContext.syntaxManager.Rules().Keys().IndexOf(name.value); if (index == -1) return; auto ruleSymbol = vContext.syntaxManager.Rules().Values()[index]; index = sContext.ruleAffectedSwitches.Keys().IndexOf(ruleSymbol); if (index == -1) return; // for an affected rule // the name referencing the rule need to be changed // by appending switch values after it SortedList switchNames; CopyFrom(switchNames, sContext.ruleAffectedSwitches.GetByIndex(index)); name.value += L"_SWITCH"; for (auto&& switchName : switchNames) { vint index = workingSwitchValues->Keys().IndexOf(switchName); auto value = index == -1 ? sContext.switches[switchName].key : workingSwitchValues->Values()[index]; name.value += (value ? L"_1" : L"_0") + switchName; } } void ExpandSyntaxToList(Ptr syntax, List>& items) { try { items.Add(CopyNode(syntax.Obj())); } catch (CancelBranch) { } } void BuildAlt(bool optional, List>& items) { // build syntax [items...] if (items.Count() == 0) { // if there is no branch if (optional) { // optional of nothing is EmptySyntax result = Ptr(new EmptySyntax); return; } else { // non-optional of nothing results in an exception result = nullptr; throw CancelBranch(); } } else if (items.Count() == 1) { // if there is only on branch, just use it result = items[0]; } else { // otherwise create alternative syntax for them auto alt = Ptr(new GlrAlternativeSyntax); alt->first = items[0]; alt->second = items[1]; // TODO: (enumerable) Linq:Skip for (vint i = 2; i < items.Count(); i++) { auto newAlt = Ptr(new GlrAlternativeSyntax); newAlt->first = alt; newAlt->second = items[i]; alt = newAlt; } result = alt; } if (optional) { // make it optional if necessary auto opt = Ptr(new GlrOptionalSyntax); opt->priority = GlrOptionalPriority::Equal; opt->syntax = result.Cast(); result = opt; } } protected: void Visit(GlrRefSyntax* node) override { // only need to fix rule name for GlrRefSyntax copy_visitor::RuleAstVisitor::Visit(node); if (node->refType == GlrRefType::Id) { FixRuleName(result.Cast()->literal); } } void Visit(GlrUseSyntax* node) override { // only need to fix rule name for GlrUseSyntax copy_visitor::RuleAstVisitor::Visit(node); FixRuleName(result.Cast()->name); } void Visit(GlrLoopSyntax* node) override { Ptr syntax, delimiter; try { syntax = CopyNode(node->syntax.Obj()); } catch (CancelBranch) { } try { delimiter = CopyNode(node->delimiter.Obj()); } catch (CancelBranch) { } if (syntax && delimiter) { auto loop = Ptr(new GlrLoopSyntax); loop->codeRange = node->codeRange; loop->syntax = syntax; loop->delimiter = delimiter; result = loop; } else if (syntax) { auto loop = Ptr(new GlrLoopSyntax); loop->codeRange = syntax->codeRange; loop->syntax = syntax; result = loop; } else if (delimiter) { auto loop = Ptr(new GlrLoopSyntax); loop->codeRange = delimiter->codeRange; loop->syntax = delimiter; result = loop; } else { result = Ptr(new EmptySyntax); } } void Visit(GlrOptionalSyntax* node) override { try { copy_visitor::RuleAstVisitor::Visit(node); } catch (CancelBranch) { result = Ptr(new EmptySyntax); } } void Visit(GlrAlternativeSyntax* node) override { // alternative syntax converts to alternative syntax List> items; ExpandSyntaxToList(node->first, items); ExpandSyntaxToList(node->second, items); BuildAlt(false, items); } void Visit(GlrTestConditionSyntax* node) override { // test condition syntax converts alternative syntax with optional if necessary bool optional = false; List> items; EvaluateConditionVisitor visitor(*workingSwitchValues.Obj()); for (auto branch : node->branches) { if (!branch || visitor.Evaluate(branch->condition.Obj())) { if (branch->syntax) { ExpandSyntaxToList(branch->syntax, items); } else { optional = true; } } } BuildAlt(optional, items); } void Visit(GlrPushConditionSyntax* node) override { // push condition syntax will be replaced by the syntax inside it auto oldValues = workingSwitchValues; auto newValues = ApplySwitches(oldValues, node); workingSwitchValues = newValues; node->syntax->Accept(this); workingSwitchValues = oldValues; } public: ExpandClauseVisitor( VisitorContext& _vContext, VisitorSwitchContext& _sContext, Ptr> _workingSwitchValues ) : vContext(_vContext) , sContext(_sContext) , workingSwitchValues(_workingSwitchValues) { } Ptr ExpandClause(GlrClause* node) { try { return CopyNode(node); } catch (CancelBranch) { return nullptr; } } }; /*********************************************************************** DeductEmptySyntaxVisitor ***********************************************************************/ class DeductEmptySyntaxVisitor : public copy_visitor::RuleAstVisitor { // this visitor rewrite a syntax by removing EmptySyntax // but it is possible that the whole syntax is evaluated to EmptySyntax // in this case it is rewritten to EmptySyntax protected: Ptr CopyNodeSafe(Ptr node) { if (node.Cast()) { return node; } else { return CopyNode(node.Obj()); } } protected: void Visit(GlrRefSyntax* node) override { result = Ptr(node); } void Visit(GlrUseSyntax* node) override { result = Ptr(node); } void Visit(GlrLoopSyntax* node) override { node->syntax = CopyNodeSafe(node->syntax); node->delimiter = CopyNodeSafe(node->delimiter); result = Ptr(node); bool syntax = !node->syntax.Cast(); bool delimiter = !node->delimiter.Cast(); if (syntax && delimiter) { // if both are not empty, nothing need to worry } else if (syntax) { // if only syntax is not empty, it is {syntax} node->delimiter = nullptr; } else if (delimiter) { // if only delimiter is empty, it is {delimiter} node->syntax = node->delimiter; node->delimiter = nullptr; } else { // if both are empty, it is empty result = node->syntax; } } void Visit(GlrOptionalSyntax* node) override { node->syntax = CopyNodeSafe(node->syntax); result = Ptr(node); if (node->syntax.Cast()) { // if the optional body is empty, it is empty result = node->syntax; } } void Visit(GlrSequenceSyntax* node) override { node->first = CopyNodeSafe(node->first); node->second = CopyNodeSafe(node->second); result = Ptr(node); bool first = !node->first.Cast(); bool second = !node->second.Cast(); if (first && second) { // if both are not empty, nothing need to worry } else if (first) { // if only first is not empty, it is second result = node->first; } else if (second) { // if only second is empty, it is second result = node->second; } else { // if both are empty, it is empty result = node->first; } } void Visit(GlrAlternativeSyntax* node) override { node->first = CopyNodeSafe(node->first); node->second = CopyNodeSafe(node->second); result = Ptr(node); bool first = !node->first.Cast(); bool second = !node->second.Cast(); if (first && second) { // if both are not empty, nothing need to worry } else if (first) { // if only first is not empty, it is [first] auto opt = Ptr(new GlrOptionalSyntax); opt->priority = GlrOptionalPriority::Equal; opt->syntax = node->first; result = opt; } else if (second) { // if only second is not empty, it is [second] auto opt = Ptr(new GlrOptionalSyntax); opt->priority = GlrOptionalPriority::Equal; opt->syntax = node->second; result = opt; } else { // if both are empty, it is empty result = node->first; } } void Visit(GlrPushConditionSyntax* node) override { CHECK_FAIL(L"vl::glr::parsergen::rewritesyntax_switch::DeductEmptySyntaxVisitor::Visit(GlrPushConditionSyntax*)#This should have been removed."); } void Visit(GlrTestConditionSyntax* node) override { CHECK_FAIL(L"vl::glr::parsergen::rewritesyntax_switch::DeductEmptySyntaxVisitor::Visit(GlrTestConditionSyntax*)#This should have been removed."); } }; /*********************************************************************** DeductAndVerifyClauseVisitor **********************************************************************/ class DeductAndVerifyClauseVisitor : public Object , protected GlrClause::IVisitor { // this visitor remove EmptySyntax in clauses // if it is not possible, it returns false protected: void Verify(Ptr& syntax) { auto deducted = DeductEmptySyntaxVisitor().CopyNode(syntax.Obj()); if (deducted.Cast()) { result = false; } else { syntax = deducted; result = true; } } void Visit(GlrCreateClause* node) override { Verify(node->syntax); } void Visit(GlrPartialClause* node) override { Verify(node->syntax); } void Visit(GlrReuseClause* node) override { Verify(node->syntax); } void Visit(GlrLeftRecursionPlaceholderClause* node) override { result = true; } void Visit(GlrLeftRecursionInjectClause* node) override { result = true; } void Visit(GlrPrefixMergeClause* node) override { result = true; } public: bool result = false; bool Evaluate(GlrClause* node) { node->Accept(this); return result; } }; /*********************************************************************** RewriteSyntax ***********************************************************************/ WString CreateRuleName(Ptr rule, const wchar_t* tag, Dictionary& switchValues) { auto ruleName = rule->name.value + tag; for (auto [name, value] : switchValues) { ruleName += (value ? L"_1" : L"_0") + name; } return ruleName; } Ptr CreateRule(RuleSymbol* ruleSymbol, Ptr rule, const WString& name, bool applyAttributes) { auto newRule = Ptr(new GlrRule); newRule->codeRange = rule->codeRange; if (applyAttributes) { newRule->attPublic = rule->attPublic; newRule->attParser = rule->attParser; } newRule->name = rule->name; newRule->name.value = name; newRule->type = rule->type; newRule->type.value = ruleSymbol->ruleType->Name(); return newRule; } Ptr CreateRule(RuleSymbol* ruleSymbol, Ptr rule, const wchar_t* tag, Dictionary& switchValues) { return CreateRule(ruleSymbol, rule, CreateRuleName(rule, tag, switchValues), true); } void AddRules(RuleSymbol* ruleSymbol, Ptr rewritten, Group>& expandedRules) { vint index = expandedRules.Keys().IndexOf(ruleSymbol); if (index != -1) { for (auto expandedRule : From(expandedRules.GetByIndex(index)) .OrderByKey([](auto&& a) { return a->name.value; }) ) { rewritten->rules.Add(expandedRule); } } } void CreateRuleSymbols(SyntaxSymbolManager& syntaxManager, Group>& expandedRules) { // TODO: (enumerable) foreach on group, sort pairs instead of calling Get for (auto ruleSymbol : From(expandedRules.Keys()) .OrderByKey([](auto&& a) { return a->Name(); }) ) { for (auto rule : expandedRules[ruleSymbol]) { auto newRuleSymbol = syntaxManager.CreateRule( rule->name.value, ruleSymbol->fileIndex, ruleSymbol->isPublic, ruleSymbol->isParser, rule->name.codeRange ); } } } } Ptr RewriteSyntax_Switch(VisitorContext& context, VisitorSwitchContext& sContext, SyntaxSymbolManager& syntaxManager, Ptr syntaxFile) { using namespace rewritesyntax_switch; if (sContext.ruleAffectedSwitches.Count() == syntaxManager.Rules().Count()) { CHECK_FAIL(L"vl::glr::parsergen::RewriteSyntax_Switch(...)#Internal error: This function should not be called when there is no switch used in any rule."); } RewritingContext rewritingContext; { // find out all expansion of rules affected by switch values ExpandSwitchSyntaxVisitor visitor(context, sContext, rewritingContext); for (auto rule : syntaxFile->rules) { auto ruleSymbol = syntaxManager.Rules()[rule->name.value]; if (!sContext.ruleAffectedSwitches.Keys().Contains(ruleSymbol)) { visitor.InspectIntoUnaffectedRule(rule.Obj()); } } } auto rewritten = Ptr(new GlrSyntaxFile); for (auto rule : syntaxFile->rules) { auto ruleSymbol = syntaxManager.Rules()[rule->name.value]; vint index = rewritingContext.generatedRules.Keys().IndexOf(ruleSymbol); if (index == -1) { // if a rule is unaffected // just remove GlrPushConditionSyntax in clauses // rules it references could be renamed auto newRule = Ptr(new GlrRule); newRule->codeRange = rule->codeRange; newRule->attPublic = rule->attPublic; newRule->attParser = rule->attParser; newRule->name = rule->name; newRule->type = rule->type; ExpandClauseVisitor visitor(context, sContext, nullptr); for (auto clause : rule->clauses) { if (auto newClause = visitor.ExpandClause(clause.Obj())) { newRule->clauses.Add(newClause); } } if (newRule->clauses.Count() == 0) { // a rewritten rule must have at least on clause syntaxManager.AddError( ParserErrorType::SwitchUnaffectedRuleExpandedToNoClause, rule->codeRange, rule->name.value ); } else { rewritten->rules.Add(newRule); } } else { // if a rule is affected // all instances of possible switch values will be converted to a new rule // such rule has switch values encoded in its name for(auto generatedRule : rewritingContext.generatedRules.GetByIndex(index)) { SortedList referencedCombinedRules; auto newRule = CreateRule(ruleSymbol, rule, L"_SWITCH", *generatedRule->switchValues.Obj()); // rewrite all clauses with given switch values for (auto clause : rule->clauses) { auto switchValues = generatedRule->switchValues; // if this clause is affected by some switches // prepare switch values for combined rules vint clauseIndex = sContext.clauseAffectedSwitches.Keys().IndexOf(clause.Obj()); if (clauseIndex == -1) { switchValues = Ptr(new Dictionary); } else { auto&& switches = sContext.clauseAffectedSwitches.GetByIndex(clauseIndex); if (switches.Count() != generatedRule->switchValues->Count()) { switchValues = Ptr(new Dictionary); for (auto&& switchName : switches) { switchValues->Add(switchName, generatedRule->switchValues->Get(switchName)); } } } if (switchValues == generatedRule->switchValues) { // if this clause is affected by all switches // expand this clause into the new rule ExpandClauseVisitor visitor(context, sContext, switchValues); if (auto newClause = visitor.ExpandClause(clause.Obj())) { if (DeductAndVerifyClauseVisitor().Evaluate(newClause.Obj())) { // only add the rewritten clause to the generated rule if it is valid // a clause could be invalid if all branches evaluated to nothing due to GlrTestConditionSyntax newRule->clauses.Add(newClause); } } } else { // if this clause is affected by some switches // expand this clause into a combined rule bool validClause = false; auto combinedRuleName = CreateRuleName(rule, L"_SWITCH_COMBINED", *switchValues.Obj()); if (rewritingContext.validCombinedClauses.Contains(combinedRuleName, clause.Obj())) { validClause = true; } else if (!rewritingContext.invalidCombinedClauses.Contains(combinedRuleName, clause.Obj())) { ExpandClauseVisitor visitor(context, sContext, switchValues); if (auto newClause = visitor.ExpandClause(clause.Obj())) { if (DeductAndVerifyClauseVisitor().Evaluate(newClause.Obj())) { // only add the rewritten clause to the generated rule if it is valid // a clause could be invalid if all branches evaluated to nothing due to GlrTestConditionSyntax Ptr combinedRule; vint ruleIndex = rewritingContext.combinedRulesByName.Keys().IndexOf(combinedRuleName); if (ruleIndex == -1) { combinedRule = CreateRule(ruleSymbol, rule, combinedRuleName, false); rewritingContext.expandedCombinedRules.Add(ruleSymbol, combinedRule); rewritingContext.combinedRulesByName.Add(combinedRuleName, combinedRule); } else { combinedRule = rewritingContext.combinedRulesByName.Values()[ruleIndex]; } combinedRule->clauses.Add(newClause); validClause = true; } } if (validClause) { rewritingContext.validCombinedClauses.Add(combinedRuleName, clause.Obj()); } else { rewritingContext.invalidCombinedClauses.Add(combinedRuleName, clause.Obj()); } } // this clause might be invalid in the current context if (validClause) { if (!referencedCombinedRules.Contains(combinedRuleName)) { referencedCombinedRules.Add(combinedRuleName); } } } } for (auto ruleName : referencedCombinedRules) { // add all used combined rules in order of name if (ruleSymbol->isPartial) { auto refSyntax = Ptr(new GlrRefSyntax); refSyntax->literal = rule->name; refSyntax->literal.value = ruleName; refSyntax->refType = GlrRefType::Id; auto partialClause = Ptr(new GlrPartialClause); partialClause->codeRange = rule->codeRange; partialClause->type = rule->name; partialClause->type.value = ruleSymbol->ruleType->Name(); partialClause->syntax = refSyntax; newRule->clauses.Add(partialClause); } else { auto useSyntax = Ptr(new GlrUseSyntax); useSyntax->name = rule->name; useSyntax->name.value = ruleName; auto reuseClause = Ptr(new GlrReuseClause); reuseClause->codeRange = rule->codeRange; reuseClause->syntax = useSyntax; newRule->clauses.Add(reuseClause); } } if (newRule->clauses.Count() == 0) { // a rewritten rule must have at least on clause syntaxManager.AddError( ParserErrorType::SwitchAffectedRuleExpandedToNoClause, rule->codeRange, rule->name.value, newRule->name.value ); } else { rewritingContext.expandedFirstLevelRules.Add(ruleSymbol, newRule); } } // add rules AddRules(ruleSymbol, rewritten, rewritingContext.expandedCombinedRules); AddRules(ruleSymbol, rewritten, rewritingContext.expandedFirstLevelRules); } } // add symbols for generated rules CreateRuleSymbols(syntaxManager, rewritingContext.expandedCombinedRules); CreateRuleSymbols(syntaxManager, rewritingContext.expandedFirstLevelRules); // remove symbols for rule affected by switch values // because they are expanded to other rules for (auto ruleSymbol : rewritingContext.generatedRules.Keys()) { syntaxManager.RemoveRule(ruleSymbol->Name()); } return rewritten; } } } } /*********************************************************************** .\PARSERGEN\COMPILESYNTAX_VALIDATEPREFIXMERGE.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; using namespace compile_syntax; /*********************************************************************** ValidateDirectPrefixMergeRuleVisitor ***********************************************************************/ class ValidateDirectPrefixMergeRuleVisitor : public Object , protected virtual GlrSyntax::IVisitor , protected virtual GlrClause::IVisitor { protected: VisitorContext& context; RuleSymbol* ruleSymbol; public: ValidateDirectPrefixMergeRuleVisitor( VisitorContext& _context, RuleSymbol* _ruleSymbol ) : context(_context) , ruleSymbol(_ruleSymbol) { } void ValidateClause(Ptr clause) { clause->Accept(this); } protected: void NotBeginWithARule(ParsingAstBase* node) { // TODO: Should accept and generate !prefix_merge equivalent effect for this clause automatically context.syntaxManager.AddError( ParserErrorType::RuleMixedPrefixMergeWithClauseNotSyntacticallyBeginWithARule, node->codeRange, ruleSymbol->Name() ); } void VerifyStartRule(ParsingAstBase* node, RuleSymbol* startRule) { if (ruleSymbol != startRule && !context.indirectPmClauses.Keys().Contains(startRule)) { // TODO: Should accept and generate !prefix_merge equivalent effect for this clause automatically // When this is not a left-recursive clause context.syntaxManager.AddError( ParserErrorType::RuleMixedPrefixMergeWithClauseNotBeginWithIndirectPrefixMerge, node->codeRange, ruleSymbol->Name(), startRule->Name() ); } } //////////////////////////////////////////////////////////////////////// // GlrSyntax::IVisitor //////////////////////////////////////////////////////////////////////// void Visit(GlrRefSyntax* node) override { if (node->refType != GlrRefType::Id) { NotBeginWithARule(node); } else { vint index = context.syntaxManager.Rules().Keys().IndexOf(node->literal.value); if (index == -1) { NotBeginWithARule(node); } else { VerifyStartRule(node, context.syntaxManager.Rules().Values()[index]); } } } void Visit(GlrUseSyntax* node) override { VerifyStartRule(node, context.syntaxManager.Rules()[node->name.value]); } void Visit(GlrLoopSyntax* node) override { NotBeginWithARule(node); } void Visit(GlrOptionalSyntax* node) override { NotBeginWithARule(node); } void Visit(GlrSequenceSyntax* node) override { node->first->Accept(this); } void Visit(GlrAlternativeSyntax* node) override { NotBeginWithARule(node); } void Visit(GlrPushConditionSyntax* node) override { CHECK_FAIL(L"GlrPushConditionSyntax should have been removed after RewriteSyntax_Switch()!"); } void Visit(GlrTestConditionSyntax* node) override { CHECK_FAIL(L"GlrTestConditionSyntax should have been removed after RewriteSyntax_Switch()!"); } //////////////////////////////////////////////////////////////////////// // GlrClause::IVisitor //////////////////////////////////////////////////////////////////////// void Visit(GlrCreateClause* node) override { node->syntax->Accept(this); } void Visit(GlrPartialClause* node) override { node->syntax->Accept(this); } void Visit(GlrReuseClause* node) override { node->syntax->Accept(this); } void Visit(GlrLeftRecursionPlaceholderClause* node) override { NotBeginWithARule(node); } void Visit(GlrLeftRecursionInjectClause* node) override { NotBeginWithARule(node); } void Visit(GlrPrefixMergeClause* node) override { } }; /*********************************************************************** ValidateDeducingPrefixMergeRuleVisitor ***********************************************************************/ class ValidateDeducingPrefixMergeRuleVisitor : public Object , protected virtual GlrSyntax::IVisitor , protected virtual GlrClause::IVisitor { protected: using NonSimpleUseDeduction = Pair; VisitorContext& context; RuleSymbol* ruleSymbol; Ptr> result; bool couldBeEmpty = false; public: ValidateDeducingPrefixMergeRuleVisitor( VisitorContext& _context, RuleSymbol* _ruleSymbol ) : context(_context) , ruleSymbol(_ruleSymbol) { } void ValidateClause(Ptr clause) { clause->Accept(this); } protected: void TryAppendResult(const ParsingToken& name, RuleSymbol* refRuleSymbol) { if (context.directPmClauses.Keys().Contains(refRuleSymbol)) { if (!result) result = Ptr(new List); result->Add({ &name,refRuleSymbol }); } } void VisitRuleRef(const ParsingToken& name) { vint index = context.syntaxManager.Rules().Keys().IndexOf(name.value); if (index == -1) return; auto refRuleSymbol = context.syntaxManager.Rules().Values()[index]; TryAppendResult(name, refRuleSymbol); index = context.indirectSimpleUseRules.Keys().IndexOf(refRuleSymbol); if (index == -1) return; for (auto [simpleUseSymbol, _] : context.indirectSimpleUseRules.GetByIndex(index)) { TryAppendResult(name, simpleUseSymbol); } } void VisitPotentialEmptySyntax() { // a clause is not allowed to produce an empty sequence // since this syntax could produce an empty sequence // therefore there should be other non-parallel part of syntax in this clause that produces a non-empty sequence // it doesn't need to check the error here result = nullptr; couldBeEmpty = true; } //////////////////////////////////////////////////////////////////////// // GlrSyntax::IVisitor //////////////////////////////////////////////////////////////////////// void Visit(GlrRefSyntax* node) override { result = nullptr; couldBeEmpty = false; if (node->refType != GlrRefType::Id) return; VisitRuleRef(node->literal); } void Visit(GlrUseSyntax* node) override { result = nullptr; couldBeEmpty = false; VisitRuleRef(node->name); } void Visit(GlrLoopSyntax* node) override { VisitPotentialEmptySyntax(); } void Visit(GlrOptionalSyntax* node) override { VisitPotentialEmptySyntax(); } void Visit(GlrSequenceSyntax* node) override { node->first->Accept(this); auto firstResult = result; bool firstEmpty = couldBeEmpty; node->second->Accept(this); auto secondResult = result; auto secondEmpty = couldBeEmpty; couldBeEmpty = firstEmpty && secondEmpty; if (!firstEmpty && !secondEmpty) { result = nullptr; } else if (!firstEmpty) { result = firstResult; } else if (!secondEmpty) { result = secondResult; } else { result = nullptr; } } void Visit(GlrAlternativeSyntax* node) override { node->first->Accept(this); auto firstResult = result; bool firstEmpty = couldBeEmpty; node->second->Accept(this); auto secondResult = result; auto secondEmpty = couldBeEmpty; couldBeEmpty = firstEmpty || secondEmpty; if (couldBeEmpty) { VisitPotentialEmptySyntax(); } else { if (firstResult && secondResult) { CopyFrom(*firstResult.Obj(), *secondResult.Obj(), true); result = firstResult; } else if (firstResult) { result = firstResult; } else if (secondResult) { result = secondResult; } else { result = nullptr; } } } void Visit(GlrPushConditionSyntax* node) override { CHECK_FAIL(L"GlrPushConditionSyntax should have been removed after RewriteSyntax_Switch()!"); } void Visit(GlrTestConditionSyntax* node) override { CHECK_FAIL(L"GlrTestConditionSyntax should have been removed after RewriteSyntax_Switch()!"); } //////////////////////////////////////////////////////////////////////// // GlrClause::IVisitor //////////////////////////////////////////////////////////////////////// void Visit(GlrCreateClause* node) override { node->syntax->Accept(this); } void Visit(GlrPartialClause* node) override { node->syntax->Accept(this); } void Visit(GlrReuseClause* node) override { if (!dynamic_cast(node->syntax.Obj())) { node->syntax->Accept(this); } } void Visit(GlrLeftRecursionPlaceholderClause* node) override { } void Visit(GlrLeftRecursionInjectClause* node) override { if (!node->continuation || node->continuation->type == GlrLeftRecursionInjectContinuationType::Optional) { VisitRuleRef(node->rule->literal); } } void Visit(GlrPrefixMergeClause* node) override { } }; /*********************************************************************** ValidatePrefixMerge ***********************************************************************/ void ValidatePrefixMerge(VisitorContext& context, Ptr syntaxFile) { for (auto rule : syntaxFile->rules) { auto ruleSymbol = context.syntaxManager.Rules()[rule->name.value]; if (context.directPmClauses.Keys().Contains(ruleSymbol)) { ValidateDirectPrefixMergeRuleVisitor visitor(context, ruleSymbol); for (auto clause : rule->clauses) { visitor.ValidateClause(clause); } } { ValidateDeducingPrefixMergeRuleVisitor visitor(context, ruleSymbol); for (auto clause : rule->clauses) { visitor.ValidateClause(clause); } } vint indexPm = context.indirectPmClauses.Keys().IndexOf(ruleSymbol); vint indexLrp = context.indirectLrpClauses.Keys().IndexOf(ruleSymbol); vint indexLri = context.indirectLriClauses.Keys().IndexOf(ruleSymbol); if (indexPm != -1) { auto rulePm = context.clauseToRules[context.indirectPmClauses.GetByIndex(indexPm)[0]]; if (indexLrp != -1) { auto ruleLrp = context.clauseToRules[context.indirectLrpClauses.GetByIndex(indexLrp)[0]]; context.syntaxManager.AddError( ParserErrorType::RuleIndirectlyBeginsWithPrefixMergeMixedLeftRecursionMarkers, rule->name.codeRange, ruleSymbol->Name(), rulePm->Name(), ruleLrp->Name() ); } if (indexLri != -1) { auto ruleLri = context.clauseToRules[context.indirectLriClauses.GetByIndex(indexLri)[0]]; context.syntaxManager.AddError( ParserErrorType::RuleIndirectlyBeginsWithPrefixMergeMixedLeftRecursionMarkers, rule->name.codeRange, ruleSymbol->Name(), rulePm->Name(), ruleLri->Name() ); } if (ruleSymbol->isPartial) { context.syntaxManager.AddError( ParserErrorType::PartialRuleIndirectlyBeginsWithPrefixMerge, rule->name.codeRange, ruleSymbol->Name(), rulePm->Name() ); } if (!context.directPmClauses.Keys().Contains(ruleSymbol)) { for (auto clause : rule->clauses) { ParsingToken firstDirectLiteral; RuleSymbol* firstIndirectNonPmRule = nullptr; GlrPrefixMergeClause* firstIndirectlyPmClause = nullptr; // test if this clause directly begins with and literal vint index = context.clauseBeginsWithLiteral.Keys().IndexOf(clause.Obj()); if (index != -1) { firstDirectLiteral = context.clauseBeginsWithLiteral.GetByIndex(index)[0]; } // find all direct start rules from this clause index = context.clauseToStartRules.Keys().IndexOf(clause.Obj()); if (index != -1) { List visiting; SortedList visited; CopyFrom(visiting, context.clauseToStartRules.GetByIndex(index)); // TODO: (enumerable) visiting/visited for (vint i = 0; i < visiting.Count(); i++) { auto visitingRule = visiting[i]; if (visited.Contains(visitingRule)) continue; visited.Add(visitingRule); // test if the visiting rule begins with prefix_merge index = context.indirectPmClauses.Keys().IndexOf(visitingRule); if (index != -1) { if (!firstIndirectlyPmClause) { firstIndirectlyPmClause = context.indirectPmClauses.GetByIndex(index)[0]; } } else { // if the visiting rule itself partial begins with prefix_merge // then an errors should be generated for this rule // here we assume it never happens in order to reduce the number of errors if (!firstIndirectNonPmRule) { firstIndirectNonPmRule = visitingRule; } } if ((firstDirectLiteral || firstIndirectNonPmRule) && firstIndirectlyPmClause) break; } } if (firstDirectLiteral && firstIndirectlyPmClause) { context.syntaxManager.AddError( ParserErrorType::ClausePartiallyIndirectlyBeginsWithPrefixMergeAndLiteral, clause->codeRange, ruleSymbol->Name(), context.clauseToRules[firstIndirectlyPmClause]->Name(), firstDirectLiteral.value ); } else if (firstIndirectNonPmRule && firstIndirectlyPmClause) { context.syntaxManager.AddError( ParserErrorType::ClausePartiallyIndirectlyBeginsWithPrefixMergeAndRule, clause->codeRange, ruleSymbol->Name(), context.clauseToRules[firstIndirectlyPmClause]->Name(), firstIndirectNonPmRule->Name() ); } else if (!context.leftRecursiveClauses.Contains(ruleSymbol, clause.Obj())) { // safe to add the clause since errors have been detected in ClausePartiallyIndirectlyBeginsWithPrefixMerge vint index = context.clauseToStartRules.Keys().IndexOf(clause.Obj()); if (index != -1) { for (auto ruleSymbol : context.clauseToStartRules.GetByIndex(index)) { if (context.indirectPmClauses.Keys().IndexOf(ruleSymbol) != -1) { goto SKIP_ADDING; } } } context.clauseToConvertedToPrefixMerge.Add(clause.Obj()); SKIP_ADDING:; } } } } } } } } } /*********************************************************************** .\PARSERGEN\COMPILESYNTAX_VALIDATESTRUCTURE.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; using namespace compile_syntax; /*********************************************************************** ValidateStructureCountingVisitor ***********************************************************************/ class ValidateStructureCountingVisitor : public Object , protected virtual GlrSyntax::IVisitor , protected virtual GlrClause::IVisitor { protected: VisitorContext& context; RuleSymbol* ruleSymbol; GlrClause* clause = nullptr; GlrLeftRecursionPlaceholderClause* lrpClause = nullptr; vint optionalCounter = 0; vint loopCounter = 0; bool lastSyntaxPiece = true; bool prioritySyntaxOccurred = false; vint syntaxMinLength = 0; vint syntaxMinUseRuleCount = 0; vint syntaxMaxUseRuleCount = 0; public: ValidateStructureCountingVisitor( VisitorContext& _context, RuleSymbol* _ruleSymbol ) : context(_context) , ruleSymbol(_ruleSymbol) { } void ValidateClause(Ptr clause) { optionalCounter = 0; loopCounter = 0; lastSyntaxPiece = true; prioritySyntaxOccurred = false; clause->Accept(this); } protected: //////////////////////////////////////////////////////////////////////// // GlrSyntax::IVisitor //////////////////////////////////////////////////////////////////////// void Visit(GlrRefSyntax* node) override { syntaxMinLength = 1; syntaxMinUseRuleCount = 0; syntaxMaxUseRuleCount = 0; if (loopCounter > 0) { auto clauseType = context.clauseTypes[clause]; if (node->field) { auto prop = FindPropSymbol(clauseType, node->field.value); if (prop->propType != AstPropType::Array) { context.syntaxManager.AddError( ParserErrorType::NonArrayFieldAssignedInLoop, node->codeRange, ruleSymbol->Name(), clauseType->Name(), prop->Name() ); } } if (node->refType == GlrRefType::Id) { vint ruleIndex = context.syntaxManager.Rules().Keys().IndexOf(node->literal.value); if (ruleIndex != -1) { auto fieldRule = context.syntaxManager.Rules().Values()[ruleIndex]; if (fieldRule->isPartial && fieldRule->assignedNonArrayField) { context.syntaxManager.AddError( ParserErrorType::NonLoopablePartialRuleUsedInLoop, node->codeRange, ruleSymbol->Name(), clauseType->Name(), fieldRule->Name() ); } } } } } void Visit(GlrUseSyntax* node) override { syntaxMinLength = 1; syntaxMinUseRuleCount = 1; syntaxMaxUseRuleCount = 1; if (loopCounter > 0) { context.syntaxManager.AddError( ParserErrorType::UseRuleUsedInLoopBody, node->codeRange, ruleSymbol->Name(), node->name.value ); } if (optionalCounter > 0) { context.syntaxManager.AddError( ParserErrorType::UseRuleUsedInOptionalBody, node->codeRange, ruleSymbol->Name(), node->name.value ); } } void Visit(GlrLoopSyntax* node) override { vint bodyMinLength = 0, bodyMaxUseRuleCount = 0; vint delimiterMinLength = 0, delimiterMaxUseRuleCount = 0; loopCounter++; node->syntax->Accept(this); bodyMinLength = syntaxMinLength; bodyMaxUseRuleCount = syntaxMaxUseRuleCount; if (node->delimiter) { node->delimiter->Accept(this); delimiterMinLength = syntaxMinLength; delimiterMaxUseRuleCount = syntaxMaxUseRuleCount; } if (delimiterMinLength + bodyMinLength == 0) { context.syntaxManager.AddError( ParserErrorType::LoopBodyCouldExpandToEmptySequence, node->codeRange, ruleSymbol->Name() ); } syntaxMinLength = 0; syntaxMinUseRuleCount = 0; syntaxMaxUseRuleCount = bodyMaxUseRuleCount * 2 + delimiterMaxUseRuleCount * 2; loopCounter--; } void Visit(GlrOptionalSyntax* node) override { if (node->priority != GlrOptionalPriority::Equal) { if (prioritySyntaxOccurred) { context.syntaxManager.AddError( ParserErrorType::MultiplePrioritySyntaxInAClause, node->codeRange, ruleSymbol->Name() ); } else { prioritySyntaxOccurred = true; } } optionalCounter++; node->syntax->Accept(this); if (syntaxMinLength == 0) { context.syntaxManager.AddError( ParserErrorType::OptionalBodyCouldExpandToEmptySequence, node->codeRange, ruleSymbol->Name() ); } if (node->priority == GlrOptionalPriority::PreferSkip && lastSyntaxPiece) { context.syntaxManager.AddError( ParserErrorType::NegativeOptionalEndsAClause, node->codeRange, ruleSymbol->Name() ); } syntaxMinLength = 0; syntaxMinUseRuleCount = 0; optionalCounter--; } void Visit(GlrSequenceSyntax* node) override { node->second->Accept(this); vint secondMinLength = syntaxMinLength; vint secondMinUseRuleCount = syntaxMinUseRuleCount; vint secondMaxUseRuleCount = syntaxMaxUseRuleCount; bool last = lastSyntaxPiece; lastSyntaxPiece = last && secondMinLength == 0; node->first->Accept(this); vint firstMinLength = syntaxMinLength; vint firstMinUseRuleCount = syntaxMinUseRuleCount; vint firstMaxUseRuleCount = syntaxMaxUseRuleCount; lastSyntaxPiece = last; syntaxMinLength = firstMinLength + secondMinLength; syntaxMinUseRuleCount = firstMinUseRuleCount + secondMinUseRuleCount; syntaxMaxUseRuleCount = firstMaxUseRuleCount + secondMaxUseRuleCount; } void Visit(GlrAlternativeSyntax* node) override { node->first->Accept(this); vint firstMinLength = syntaxMinLength; vint firstMinUseRuleCount = syntaxMinUseRuleCount; vint firstMaxUseRuleCount = syntaxMaxUseRuleCount; node->second->Accept(this); vint secondMinLength = syntaxMinLength; vint secondMinUseRuleCount = syntaxMinUseRuleCount; vint secondMaxUseRuleCount = syntaxMaxUseRuleCount; syntaxMinLength = firstMinLength < secondMinLength ? firstMinLength : secondMinLength; syntaxMinUseRuleCount = firstMinUseRuleCount < secondMinUseRuleCount ? firstMinUseRuleCount : secondMinUseRuleCount; syntaxMaxUseRuleCount = firstMaxUseRuleCount > secondMaxUseRuleCount ? firstMaxUseRuleCount : secondMaxUseRuleCount; } void Visit(GlrPushConditionSyntax* node) override { CHECK_FAIL(L"GlrPushConditionSyntax should have been removed after RewriteSyntax_Switch()!"); } void Visit(GlrTestConditionSyntax* node) override { CHECK_FAIL(L"GlrTestConditionSyntax should have been removed after RewriteSyntax_Switch()!"); } //////////////////////////////////////////////////////////////////////// // GlrClause::IVisitor //////////////////////////////////////////////////////////////////////// void CheckAfterClause(GlrClause* node, bool reuseClause) { if (syntaxMinLength == 0) { context.syntaxManager.AddError( ParserErrorType::ClauseCouldExpandToEmptySequence, node->codeRange, ruleSymbol->Name() ); } if (reuseClause) { if (syntaxMinUseRuleCount == 0) { context.syntaxManager.AddError( ParserErrorType::ClauseNotCreateObject, node->codeRange, ruleSymbol->Name() ); } if (syntaxMaxUseRuleCount > 1) { context.syntaxManager.AddError( ParserErrorType::ClauseTooManyUseRule, node->codeRange, ruleSymbol->Name() ); } } } void Visit(GlrCreateClause* node) override { clause = node; node->syntax->Accept(this); CheckAfterClause(node, false); } void Visit(GlrPartialClause* node) override { clause = node; node->syntax->Accept(this); CheckAfterClause(node, false); } void Visit(GlrReuseClause* node) override { clause = node; node->syntax->Accept(this); CheckAfterClause(node, true); } void Visit(GlrLeftRecursionPlaceholderClause* node) override { if (!lrpClause) { lrpClause = node; } else { context.syntaxManager.AddError( ParserErrorType::TooManyLeftRecursionPlaceholderClauses, node->codeRange, ruleSymbol->Name() ); } } void Visit(GlrLeftRecursionInjectClause* node) override { } void Visit(GlrPrefixMergeClause* node) override { } }; /*********************************************************************** ValidateStructureRelationshipVisitor ***********************************************************************/ class ValidateStructureRelationshipVisitor : public Object , protected virtual GlrSyntax::IVisitor , protected virtual GlrClause::IVisitor { protected: VisitorContext& context; RuleSymbol* ruleSymbol; GlrClause* clause = nullptr; Dictionary fieldCounters; public: ValidateStructureRelationshipVisitor( VisitorContext& _context, RuleSymbol* _ruleSymbol ) : context(_context) , ruleSymbol(_ruleSymbol) { } void ValidateClause(Ptr clause) { clause->Accept(this); } protected: void AddFieldCounter(const WString& name, vint counter) { vint index = fieldCounters.Keys().IndexOf(name); if (index == -1) { fieldCounters.Add(name, counter); } else { const_cast&>(fieldCounters.Values())[index] += counter; } } //////////////////////////////////////////////////////////////////////// // GlrSyntax::IVisitor //////////////////////////////////////////////////////////////////////// void Visit(GlrRefSyntax* node) override { if (node->field) { AddFieldCounter(node->field.value, 1); } } void Visit(GlrUseSyntax* node) override { } void Visit(GlrLoopSyntax* node) override { node->syntax->Accept(this); if (node->delimiter) { node->delimiter->Accept(this); } } void Visit(GlrOptionalSyntax* node) override { node->syntax->Accept(this); } void Visit(GlrSequenceSyntax* node) override { node->first->Accept(this); node->second->Accept(this); } void Visit(GlrAlternativeSyntax* node) override { Dictionary currentCounters(std::move(fieldCounters)); node->first->Accept(this); Dictionary firstCounters(std::move(fieldCounters)); node->second->Accept(this); Dictionary secondCounters(std::move(fieldCounters)); vint firstIndex = 0; vint secondIndex = 0; fieldCounters = std::move(currentCounters); while (true) { bool firstAvailable = firstIndex < firstCounters.Count(); bool secondAvailable = secondIndex < secondCounters.Count(); if (firstAvailable && secondAvailable) { auto firstKey = firstCounters.Keys()[firstIndex]; auto secondKey = secondCounters.Keys()[secondIndex]; auto compare = firstKey <=> secondKey; if (compare == std::strong_ordering::less) { secondAvailable = false; } else if (compare == std::strong_ordering::greater) { firstAvailable = false; } } if (firstAvailable && secondAvailable) { vint firstValue = firstCounters.Values()[firstIndex]; vint secondValue = secondCounters.Values()[secondIndex]; AddFieldCounter(firstCounters.Keys()[firstIndex], (firstValue > secondValue ? firstValue : secondValue)); firstIndex++; secondIndex++; } else if (firstAvailable) { AddFieldCounter(firstCounters.Keys()[firstIndex], firstCounters.Values()[firstIndex]); firstIndex++; } else if (secondAvailable) { AddFieldCounter(secondCounters.Keys()[secondIndex], secondCounters.Values()[secondIndex]); secondIndex++; } else { break; } } } void Visit(GlrPushConditionSyntax* node) override { CHECK_FAIL(L"GlrPushConditionSyntax should have been removed after RewriteSyntax_Switch()!"); } void Visit(GlrTestConditionSyntax* node) override { CHECK_FAIL(L"GlrTestConditionSyntax should have been removed after RewriteSyntax_Switch()!"); } //////////////////////////////////////////////////////////////////////// // GlrClause::IVisitor //////////////////////////////////////////////////////////////////////// void CheckAfterClause(GlrClause* node) { auto clauseType = context.clauseTypes[clause]; for (auto [key, value] : fieldCounters) { auto prop = FindPropSymbol(clauseType, key); if (prop->propType != AstPropType::Array && value > 1) { context.syntaxManager.AddError( ParserErrorType::FieldAssignedMoreThanOnce, node->codeRange, ruleSymbol->Name(), clauseType->Name(), prop->Name() ); } } } void Visit(GlrCreateClause* node) override { clause = node; node->syntax->Accept(this); CheckAfterClause(node); } void Visit(GlrPartialClause* node) override { clause = node; node->syntax->Accept(this); CheckAfterClause(node); } void Visit(GlrReuseClause* node) override { clause = node; node->syntax->Accept(this); CheckAfterClause(node); } void Visit(GlrLeftRecursionPlaceholderClause* node) override { } void Visit(GlrLeftRecursionInjectClause* node) override { } void Visit(GlrPrefixMergeClause* node) override { } }; /*********************************************************************** ValidateStructure ***********************************************************************/ void ValidateStructure(VisitorContext& context, Ptr syntaxFile) { for (auto rule : syntaxFile->rules) { auto ruleSymbol = context.syntaxManager.Rules()[rule->name.value]; ValidateStructureCountingVisitor visitor1(context, ruleSymbol); for (auto clause : rule->clauses) { ValidateStructureRelationshipVisitor visitor2(context, ruleSymbol); visitor1.ValidateClause(clause); visitor2.ValidateClause(clause); } } } } } } /*********************************************************************** .\PARSERGEN\COMPILESYNTAX_VALIDATESWITCHESANDCONDITIONS.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; using namespace compile_syntax; /*********************************************************************** CollectRuleAffectedSwitchesVisitorBase ***********************************************************************/ class CollectRuleAffectedSwitchesVisitorBase : public traverse_visitor::RuleAstVisitor { protected: VisitorContext& context; VisitorSwitchContext& sContext; RuleSymbol* ruleSymbol = nullptr; GlrClause* currentClause = nullptr; List pushedSwitches; public: CollectRuleAffectedSwitchesVisitorBase( VisitorContext& _context, VisitorSwitchContext& _sContext ) : context(_context) , sContext(_sContext) { } void ValidateRule(Ptr rule) { ruleSymbol = context.syntaxManager.Rules()[rule->name.value]; for (auto clause : rule->clauses) { currentClause = clause.Obj(); clause->Accept(this); currentClause = nullptr; } } protected: void Traverse(GlrPushConditionSyntax* node) override { for (auto switchItem : node->switches) { pushedSwitches.Add(switchItem->name.value); } } void Finishing(GlrPushConditionSyntax* node) override { for (vint i = 0; i < node->switches.Count(); i++) { pushedSwitches.RemoveAt(pushedSwitches.Count() - 1); } } }; /*********************************************************************** CollectRuleAffectedSwitchesFirstPassVisitor ***********************************************************************/ class CollectRuleAffectedSwitchesFirstPassVisitor : public CollectRuleAffectedSwitchesVisitorBase { public: CollectRuleAffectedSwitchesFirstPassVisitor( VisitorContext& _context, VisitorSwitchContext& _sContext ) : CollectRuleAffectedSwitchesVisitorBase(_context, _sContext) { } protected: //////////////////////////////////////////////////////////////////////// // GlrCondition::IVisitor //////////////////////////////////////////////////////////////////////// void Traverse(GlrRefCondition* node) override { if (!pushedSwitches.Contains(node->name.value)) { if (!sContext.clauseAffectedSwitches.Contains(currentClause, node->name.value)) { sContext.clauseAffectedSwitches.Add(currentClause, node->name.value); } if (!sContext.ruleAffectedSwitches.Contains(ruleSymbol, node->name.value)) { sContext.ruleAffectedSwitches.Add(ruleSymbol, node->name.value); } } } }; /*********************************************************************** CollectRuleAffectedSwitchesSecondPassVisitor ***********************************************************************/ class CollectRuleAffectedSwitchesSecondPassVisitor : public CollectRuleAffectedSwitchesVisitorBase { public: bool updated = false; CollectRuleAffectedSwitchesSecondPassVisitor( VisitorContext& _context, VisitorSwitchContext& _sContext ) : CollectRuleAffectedSwitchesVisitorBase(_context, _sContext) { } protected: //////////////////////////////////////////////////////////////////////// // GlrSyntax::IVisitor //////////////////////////////////////////////////////////////////////// void VisitRule(const WString& name) { vint index = context.syntaxManager.Rules().Keys().IndexOf(name); if (index != -1) { auto refRuleSymbol = context.syntaxManager.Rules().Values()[index]; vint indexSwitch = sContext.ruleAffectedSwitches.Keys().IndexOf(refRuleSymbol); if (indexSwitch != -1) { // TODO: (enumerable) operate on GetByIndex returned list object directly for (auto&& name : sContext.ruleAffectedSwitches.GetByIndex(indexSwitch)) { if (!pushedSwitches.Contains(name)) { if (!sContext.clauseAffectedSwitches.Contains(currentClause, name)) { updated = true; sContext.clauseAffectedSwitches.Add(currentClause, name); } if (ruleSymbol != refRuleSymbol && !sContext.ruleAffectedSwitches.Contains(ruleSymbol, name)) { updated = true; sContext.ruleAffectedSwitches.Add(ruleSymbol, name); } } } } } } void Traverse(GlrRefSyntax* node) override { VisitRule(node->literal.value); } void Traverse(GlrUseSyntax* node) override { VisitRule(node->name.value); } }; /*********************************************************************** VerifySwitchesAndConditionsVisitor ***********************************************************************/ class CollectTestedSwitchesVisitor : public traverse_visitor::RuleAstVisitor { protected: VisitorContext& context; VisitorSwitchContext& sContext; public: SortedList testedSwitches; CollectTestedSwitchesVisitor( VisitorContext& _context, VisitorSwitchContext& _sContext ) : context(_context) , sContext(_sContext) { } protected: //////////////////////////////////////////////////////////////////////// // GlrCondition::IVisitor //////////////////////////////////////////////////////////////////////// void Traverse(GlrRefCondition* node) override { if (!testedSwitches.Contains(node->name.value)) { testedSwitches.Add(node->name.value); } } //////////////////////////////////////////////////////////////////////// // GlrSyntax::IVisitor //////////////////////////////////////////////////////////////////////// void VisitRule(const WString& name) { vint index = context.syntaxManager.Rules().Keys().IndexOf(name); if (index != -1) { auto refRuleSymbol = context.syntaxManager.Rules().Values()[index]; vint index = sContext.ruleAffectedSwitches.Keys().IndexOf(refRuleSymbol); if (index != -1) { for (auto switchName : sContext.ruleAffectedSwitches.GetByIndex(index)) { if (!testedSwitches.Contains(switchName)) { testedSwitches.Add(switchName); } } } } } void Traverse(GlrRefSyntax* node) override { VisitRule(node->literal.value); } void Traverse(GlrUseSyntax* node) override { VisitRule(node->name.value); } }; class VerifySwitchesAndConditionsVisitor : public traverse_visitor::RuleAstVisitor { protected: VisitorContext& context; VisitorSwitchContext& sContext; RuleSymbol* ruleSymbol = nullptr; public: VerifySwitchesAndConditionsVisitor( VisitorContext& _context, VisitorSwitchContext& _sContext ) : context(_context) , sContext(_sContext) { } void ValidateRule(Ptr rule) { ruleSymbol = context.syntaxManager.Rules()[rule->name.value]; for (auto clause : rule->clauses) { clause->Accept(this); } } protected: //////////////////////////////////////////////////////////////////////// // GlrSyntax::IVisitor //////////////////////////////////////////////////////////////////////// void Traverse(GlrPushConditionSyntax* node) override { CollectTestedSwitchesVisitor visitor(context, sContext); node->syntax->Accept(&visitor); for (auto switchItem : node->switches) { if (!visitor.testedSwitches.Contains(switchItem->name.value)) { context.syntaxManager.AddError( ParserErrorType::PushedSwitchIsNotTested, node->codeRange, ruleSymbol->Name(), switchItem->name.value ); } } } //////////////////////////////////////////////////////////////////////// // GlrClause::IVisitor //////////////////////////////////////////////////////////////////////// void Traverse(GlrPrefixMergeClause* node) override { auto pmRuleSymbol = context.syntaxManager.Rules()[node->rule->literal.value]; vint index = sContext.ruleAffectedSwitches.Keys().IndexOf(pmRuleSymbol); if(index != -1) { context.syntaxManager.AddError( ParserErrorType::PrefixMergeAffectedBySwitches, node->codeRange, ruleSymbol->Name(), pmRuleSymbol->Name(), sContext.ruleAffectedSwitches.GetByIndex(index)[0] ); } } }; /*********************************************************************** ValidateSwitchesAndConditions ***********************************************************************/ void ValidateSwitchesAndConditions(VisitorContext& context, VisitorSwitchContext& sContext, Ptr syntaxFile) { for (auto rule : syntaxFile->rules) { CollectRuleAffectedSwitchesFirstPassVisitor visitor(context, sContext); visitor.ValidateRule(rule); } while (true) { CollectRuleAffectedSwitchesSecondPassVisitor visitor(context, sContext); for (auto rule : syntaxFile->rules) { visitor.ValidateRule(rule); } if (!visitor.updated) break; }; for (auto rule : syntaxFile->rules) { VerifySwitchesAndConditionsVisitor visitor(context, sContext); visitor.ValidateRule(rule); } if (sContext.ruleAffectedSwitches.Count() == context.syntaxManager.Rules().Count()) { context.syntaxManager.AddError( ParserErrorType::SwitchUnaffectedRuleNotExist, syntaxFile->codeRange ); } } } } } /*********************************************************************** .\PARSERGEN\COMPILESYNTAX_VALIDATETYPES.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; using namespace compile_syntax; bool ConvertibleTo(AstClassSymbol* from, AstClassSymbol* to) { while (from) { if (from == to) return true; from = from->baseClass; } return false; } /*********************************************************************** ValidateTypesVisitor ***********************************************************************/ class ValidateTypesVisitor : public Object , protected virtual GlrSyntax::IVisitor , protected virtual GlrClause::IVisitor { protected: VisitorContext& context; RuleSymbol* ruleSymbol; GlrClause* clause = nullptr; AstClassPropSymbol* FindField(AstClassSymbol*& clauseType, ParsingToken& name) { clauseType = context.clauseTypes[clause]; if (auto prop = FindPropSymbol(clauseType, name.value)) { if (prop->propType != AstPropType::Array) { ruleSymbol->assignedNonArrayField = true; } return prop; } else { context.syntaxManager.AddError( ParserErrorType::FieldNotExistsInClause, name.codeRange, ruleSymbol->Name(), clauseType->Name(), name.value ); return nullptr; } } public: ValidateTypesVisitor( VisitorContext& _context, RuleSymbol* _ruleSymbol ) : context(_context) , ruleSymbol(_ruleSymbol) { } void ValidateClause(Ptr clause) { clause->Accept(this); } protected: //////////////////////////////////////////////////////////////////////// // GlrSyntax::IVisitor //////////////////////////////////////////////////////////////////////// void Visit(GlrRefSyntax* node) override { vint ruleIndex = node->refType == GlrRefType::Id ? context.syntaxManager.Rules().Keys().IndexOf(node->literal.value) : -1; auto clauseType = context.clauseTypes[clause]; auto fieldRule = ruleIndex == -1 ? nullptr : context.syntaxManager.Rules().Values()[ruleIndex]; if (fieldRule && fieldRule->isPartial) { if (!ConvertibleTo(clauseType, fieldRule->ruleType)) { context.syntaxManager.AddError( ParserErrorType::ClauseTypeMismatchedToPartialRule, node->codeRange, ruleSymbol->Name(), clauseType->Name(), fieldRule->Name(), fieldRule->ruleType->Name() ); } } if (node->field) { AstClassSymbol* clauseType = nullptr; if (auto prop = FindField(clauseType, node->field)) { if (fieldRule) { if (fieldRule->isPartial) { context.syntaxManager.AddError( ParserErrorType::PartialRuleUsedOnField, node->codeRange, ruleSymbol->Name(), clauseType->Name(), fieldRule->Name(), node->field.value ); } if (auto propClassSymbol = dynamic_cast(prop->propSymbol)) { if (ConvertibleTo(fieldRule->ruleType, propClassSymbol)) { goto PASS_FIELD_TYPE; } } context.syntaxManager.AddError( ParserErrorType::RuleTypeMismatchedToField, node->codeRange, ruleSymbol->Name(), clauseType->Name(), node->field.value, fieldRule->ruleType->Name() ); PASS_FIELD_TYPE:; } else { if (prop->propType != AstPropType::Token) { context.syntaxManager.AddError( ParserErrorType::RuleTypeMismatchedToField, node->codeRange, ruleSymbol->Name(), clauseType->Name(), node->field.value, L"token" ); } } } } } void Visit(GlrUseSyntax* node) override { auto fieldRule = context.syntaxManager.Rules()[node->name.value]; if (fieldRule->isPartial) { context.syntaxManager.AddError( ParserErrorType::UseRuleWithPartialRule, node->codeRange, ruleSymbol->Name(), node->name.value ); } if (!dynamic_cast(clause)) { context.syntaxManager.AddError( ParserErrorType::UseRuleInNonReuseClause, node->codeRange, ruleSymbol->Name(), node->name.value ); } } void Visit(GlrLoopSyntax* node) override { node->syntax->Accept(this); if (node->delimiter) { node->delimiter->Accept(this); } } void Visit(GlrOptionalSyntax* node) override { node->syntax->Accept(this); } void Visit(GlrSequenceSyntax* node) override { node->first->Accept(this); node->second->Accept(this); } void Visit(GlrAlternativeSyntax* node) override { node->first->Accept(this); node->second->Accept(this); } void Visit(GlrPushConditionSyntax* node) override { CHECK_FAIL(L"GlrPushConditionSyntax should have been removed after RewriteSyntax_Switch()!"); } void Visit(GlrTestConditionSyntax* node) override { CHECK_FAIL(L"GlrTestConditionSyntax should have been removed after RewriteSyntax_Switch()!"); } //////////////////////////////////////////////////////////////////////// // GlrClause::IVisitor //////////////////////////////////////////////////////////////////////// void Visit(GlrAssignment* node) { AstClassSymbol* clauseType = nullptr; if (auto prop = FindField(clauseType, node->field)) { if (auto enumPropSymbol = dynamic_cast(prop->propSymbol)) { if (!enumPropSymbol->Items().Keys().Contains(node->value.value)) { context.syntaxManager.AddError( ParserErrorType::EnumItemMismatchedToField, node->codeRange, ruleSymbol->Name(), clauseType->Name(), node->field.value, node->value.value ); } } else { context.syntaxManager.AddError( ParserErrorType::AssignmentToNonEnumField, node->codeRange, ruleSymbol->Name(), clauseType->Name(), node->field.value ); } } } void Visit(GlrCreateClause* node) override { clause = node; node->syntax->Accept(this); for (auto assignment : node->assignments) { Visit(assignment.Obj()); } } void Visit(GlrPartialClause* node) override { clause = node; node->syntax->Accept(this); for (auto assignment : node->assignments) { Visit(assignment.Obj()); } } void Visit(GlrReuseClause* node) override { clause = node; node->syntax->Accept(this); for (auto assignment : node->assignments) { Visit(assignment.Obj()); } } void Visit(GlrLeftRecursionPlaceholderClause* node) override { } void Visit(GlrLeftRecursionInjectClause* node) override { } void Visit(GlrPrefixMergeClause* node) override { auto prefixRule = context.syntaxManager.Rules()[node->rule->literal.value]; if (prefixRule->isPartial) { context.syntaxManager.AddError( ParserErrorType::PartialRuleInPrefixMerge, node->rule->codeRange, ruleSymbol->Name(), node->rule->literal.value ); } } }; /*********************************************************************** LriVerifyTypesVisitor ***********************************************************************/ class LriVerifyTypesVisitor : public empty_visitor::ClauseVisitor { protected: VisitorContext& context; RuleSymbol* ruleSymbol; public: LriVerifyTypesVisitor( VisitorContext& _context, RuleSymbol* _ruleSymbol ) : context(_context) , ruleSymbol(_ruleSymbol) { } void ValidateClause(Ptr clause) { clause->Accept(this); } //////////////////////////////////////////////////////////////////////// // GlrClause::IVisitor //////////////////////////////////////////////////////////////////////// void Visit(GlrLeftRecursionInjectClause* node) override { auto prefixRule = context.syntaxManager.Rules()[node->rule->literal.value]; if (prefixRule->isPartial) { context.syntaxManager.AddError( ParserErrorType::PartialRuleInLeftRecursionInject, node->rule->codeRange, ruleSymbol->Name(), node->rule->literal.value ); } for (auto lriTarget : node->continuation->injectionTargets) { auto target = lriTarget->rule; for (auto lriFlag : node->continuation->flags) { List lrpClauses; { vint index = context.indirectLrpClauses.Keys().IndexOf(context.syntaxManager.Rules()[target->literal.value]); if (index != -1) { CopyFrom( lrpClauses, From(context.indirectLrpClauses.GetByIndex(index)) .Where([lriFlag](auto&& lrp) { return !From(lrp->flags) .Where([lriFlag](auto&& flag) { return flag->flag.value == lriFlag->flag.value; }) .IsEmpty(); })); } } if (lrpClauses.Count() == 0) { context.syntaxManager.AddError( ParserErrorType::LeftRecursionPlaceholderNotFoundInRule, target->codeRange, ruleSymbol->Name(), lriFlag->flag.value, target->literal.value ); } else if (lrpClauses.Count() > 1 && node->continuation->configuration == GlrLeftRecursionConfiguration::Single) { context.syntaxManager.AddError( ParserErrorType::LeftRecursionPlaceholderNotUnique, target->codeRange, ruleSymbol->Name(), lriFlag->flag.value, target->literal.value ); } for (auto lrpClause : lrpClauses) { auto lrpClauseRule = context.clauseToRules[lrpClause]; if (!ConvertibleTo(prefixRule->ruleType, lrpClauseRule->ruleType)) { context.syntaxManager.AddError( ParserErrorType::LeftRecursionPlaceholderTypeMismatched, target->codeRange, ruleSymbol->Name(), lriFlag->flag.value, target->literal.value, lrpClauseRule->Name() ); } } } if (lriTarget->continuation) { Visit(lriTarget.Obj()); } } } }; /*********************************************************************** LriPrefixTestingVisitor ***********************************************************************/ class LriPrefixTestingVisitor : public empty_visitor::ClauseVisitor { protected: VisitorContext& context; RuleSymbol* ruleSymbol; Group lriEndings; public: LriPrefixTestingVisitor( VisitorContext& _context, RuleSymbol* _ruleSymbol ) : context(_context) , ruleSymbol(_ruleSymbol) { } void ValidateClause(Ptr clause) { clause->Accept(this); } //////////////////////////////////////////////////////////////////////// // GlrClause::IVisitor //////////////////////////////////////////////////////////////////////// void SearchLriEndings(List& visiting, GlrLeftRecursionInjectClause* node) { visiting.Add(node); if (!node->continuation || node->continuation->type == GlrLeftRecursionInjectContinuationType::Optional) { for (auto lri : visiting) { if (!lriEndings.Contains(lri, node->rule->literal.value)) { lriEndings.Add(lri, node->rule->literal.value); } } } if (node->continuation) { for (auto target : node->continuation->injectionTargets) { SearchLriEndings(visiting, target.Obj()); } } visiting.RemoveAt(visiting.Count() - 1); } void VerifyPrefix(GlrLeftRecursionInjectClause* node) { if (node->continuation) { for (auto t1 : node->continuation->injectionTargets) { auto k1 = context.syntaxManager.Rules()[t1->rule->literal.value]; vint i1 = lriEndings.Keys().IndexOf(t1.Obj()); if (i1 == -1) continue; for (auto t2 : node->continuation->injectionTargets) { auto k2 = context.syntaxManager.Rules()[t2->rule->literal.value]; vint i2 = lriEndings.Keys().IndexOf(t2.Obj()); if (i2 == -1) continue; if (t1 != t2 && context.indirectStartPathToLastRules.Keys().Contains({ k2, k1 })) { auto&& e1 = lriEndings.GetByIndex(i1); auto&& e2 = lriEndings.GetByIndex(i2); if (!From(e1).Intersect(e2).IsEmpty()) { context.syntaxManager.AddError( ParserErrorType::LeftRecursionInjectTargetIsPrefixOfAnotherSameEnding, node->codeRange, ruleSymbol->Name(), node->continuation->flags[0]->flag.value, k1->Name(), k2->Name() ); } } } } } } void Visit(GlrLeftRecursionInjectClause* node) override { { List visiting; SearchLriEndings(visiting, node); } VerifyPrefix(node); } }; /*********************************************************************** ValidateTypes ***********************************************************************/ void ValidateTypes(VisitorContext& context, Ptr syntaxFile) { for (auto rule : syntaxFile->rules) { auto ruleSymbol = context.syntaxManager.Rules()[rule->name.value]; ValidateTypesVisitor vtVisitor(context, ruleSymbol); for (auto clause : rule->clauses) { vtVisitor.ValidateClause(clause); { LriVerifyTypesVisitor lvtVisitor(context, ruleSymbol); lvtVisitor.ValidateClause(clause); } { LriPrefixTestingVisitor lptVisitor(context, ruleSymbol); lptVisitor.ValidateClause(clause); } } } } } } } /*********************************************************************** .\PARSERGEN_GLOBAL\PARSERCPPGEN.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; using namespace stream; /*********************************************************************** GenerateParserFileNames ***********************************************************************/ Ptr GenerateParserFileNames(ParserSymbolManager& manager) { auto parserOutput = Ptr(new CppParserGenOutput); parserOutput->assemblyH = manager.name + L"_Assembler.h"; parserOutput->assemblyCpp = manager.name + L"_Assembler.cpp"; parserOutput->lexerH = manager.name + L"_Lexer.h"; parserOutput->lexerCpp = manager.name + L"_Lexer.cpp"; return parserOutput; } /*********************************************************************** WriteCppStringBody ***********************************************************************/ void WriteCppStringBody(const WString& body, stream::StreamWriter& writer) { for (vint i = 0; i < body.Length(); i++) { auto c = body[i]; switch (c) { case L'\t': writer.WriteString(L"\\t"); break; case L'\r': writer.WriteString(L"\\r"); break; case L'\n': writer.WriteString(L"\\n"); break; case L'\\': writer.WriteString(L"\\\\"); break; case L'\"': writer.WriteString(L"\\\""); break; case L'\'': writer.WriteString(L"\\\'"); break; default: writer.WriteChar(c); } } } /*********************************************************************** Utility ***********************************************************************/ void WriteFileComment(const WString& name, stream::StreamWriter& writer) { writer.WriteLine(L"/***********************************************************************"); writer.WriteLine(L"This file is generated by: Vczh Parser Generator"); writer.WriteLine(L"From parser definition:" + name); writer.WriteLine(L"Licensed under https://github.com/vczh-libraries/License"); writer.WriteLine(L"***********************************************************************/"); writer.WriteLine(L""); } void WriteNssName(const collections::List& cppNss, stream::StreamWriter& writer) { for (auto [ns, index] : indexed(cppNss)) { if (index != 0) writer.WriteString(L"::"); writer.WriteString(ns); } } WString WriteNssBegin(const collections::List& cppNss, stream::StreamWriter& writer) { if (cppNss.Count() == 0) { return WString::Empty; } writer.WriteString(L"namespace "); WriteNssName(cppNss, writer); writer.WriteLine(WString::Empty); writer.WriteLine(L"{"); return WString::Unmanaged(L"\t"); } void WriteNssEnd(const collections::List& cppNss, stream::StreamWriter& writer) { if (cppNss.Count() == 0) { return; } writer.WriteLine(L"}"); } extern void WriteLoadDataFunctionHeader(const WString& prefix, const WString& functionName, stream::StreamWriter& writer) { writer.WriteLine(prefix + L"extern void " + functionName + L"(vl::stream::IStream& outputStream);"); } extern void WriteLoadDataFunctionCpp(const WString& prefix, const WString& functionName, stream::MemoryStream& rawData, bool compressData, stream::StreamWriter& writer) { MemoryStream compressedData; if (compressData) { CompressStream(rawData, compressedData); } else { CopyStream(rawData, compressedData); } compressedData.SeekFromBegin(0); vint lengthBeforeCompressing = (vint)rawData.Size(); vint length = (vint)compressedData.Size(); const vint block = 256; vint remain = length % block; vint solidRows = length / block; vint rows = solidRows + (remain ? 1 : 0); writer.WriteLine(prefix + L"void " + functionName + L"(vl::stream::IStream& outputStream)"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"\tstatic const vl::vint dataLength = " + itow(length) + L"; // " + itow(lengthBeforeCompressing) + L" bytes before compressing"); writer.WriteLine(prefix + L"\tstatic const vl::vint dataBlock = " + itow(block) + L";"); writer.WriteLine(prefix + L"\tstatic const vl::vint dataRemain = " + itow(remain) + L";"); writer.WriteLine(prefix + L"\tstatic const vl::vint dataSolidRows = " + itow(solidRows) + L";"); writer.WriteLine(prefix + L"\tstatic const vl::vint dataRows = " + itow(rows) + L";"); writer.WriteLine(prefix + L"\tstatic const char* compressed[] = {"); { char buffer[block]; const wchar_t* hex = L"0123456789ABCDEF"; for (vint i = 0; i < rows; i++) { vint size = i == solidRows ? remain : block; vint read = compressedData.Read(buffer, size); CHECK_ERROR(size == read, L"vl::glr::parsergen::WriteLexerCppFile()#Failed to read compressed data."); writer.WriteString(prefix + L"\t\t\""); for (vint j = 0; j < size; j++) { vuint8_t byte = buffer[j]; writer.WriteString(L"\\x"); writer.WriteChar(hex[byte / 16]); writer.WriteChar(hex[byte % 16]); } writer.WriteLine(L"\","); } } writer.WriteLine(prefix + L"\t};"); writer.WriteLine(prefix + L"\tvl::glr::DecompressSerializedData(compressed, " + WString(compressData ? L"true" : L"false") + L", dataSolidRows, dataRows, dataBlock, dataRemain, outputStream);"); writer.WriteLine(prefix + L"}"); } } } } /*********************************************************************** .\PARSERGEN_GLOBAL\PARSERSYMBOL.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { /*********************************************************************** Utility ***********************************************************************/ void InitializeParserSymbolManager(ParserSymbolManager& manager) { manager.name = L"ParserGen"; Fill(manager.includes, L"../AstBase.h", L"../SyntaxBase.h"); Fill(manager.cppNss, L"vl", L"glr", L"parsergen"); manager.headerGuard = L"VCZH_PARSER2_PARSERGEN"; } } } } /*********************************************************************** .\PARSERGEN_GENERATED\PARSERGENRULEAST.CPP ***********************************************************************/ /*********************************************************************** This file is generated by: Vczh Parser Generator From parser definition:RuleAst Licensed under https://github.com/vczh-libraries/License ***********************************************************************/ namespace vl::glr::parsergen { /*********************************************************************** Visitor Pattern Implementation ***********************************************************************/ void GlrRefCondition::Accept(GlrCondition::IVisitor* visitor) { visitor->Visit(this); } void GlrNotCondition::Accept(GlrCondition::IVisitor* visitor) { visitor->Visit(this); } void GlrAndCondition::Accept(GlrCondition::IVisitor* visitor) { visitor->Visit(this); } void GlrOrCondition::Accept(GlrCondition::IVisitor* visitor) { visitor->Visit(this); } void GlrRefSyntax::Accept(GlrSyntax::IVisitor* visitor) { visitor->Visit(this); } void GlrUseSyntax::Accept(GlrSyntax::IVisitor* visitor) { visitor->Visit(this); } void GlrLoopSyntax::Accept(GlrSyntax::IVisitor* visitor) { visitor->Visit(this); } void GlrOptionalSyntax::Accept(GlrSyntax::IVisitor* visitor) { visitor->Visit(this); } void GlrSequenceSyntax::Accept(GlrSyntax::IVisitor* visitor) { visitor->Visit(this); } void GlrAlternativeSyntax::Accept(GlrSyntax::IVisitor* visitor) { visitor->Visit(this); } void GlrPushConditionSyntax::Accept(GlrSyntax::IVisitor* visitor) { visitor->Visit(this); } void GlrTestConditionSyntax::Accept(GlrSyntax::IVisitor* visitor) { visitor->Visit(this); } void GlrCreateClause::Accept(GlrClause::IVisitor* visitor) { visitor->Visit(this); } void GlrPartialClause::Accept(GlrClause::IVisitor* visitor) { visitor->Visit(this); } void GlrReuseClause::Accept(GlrClause::IVisitor* visitor) { visitor->Visit(this); } void GlrLeftRecursionPlaceholderClause::Accept(GlrClause::IVisitor* visitor) { visitor->Visit(this); } void GlrLeftRecursionInjectClause::Accept(GlrClause::IVisitor* visitor) { visitor->Visit(this); } void GlrPrefixMergeClause::Accept(GlrClause::IVisitor* visitor) { visitor->Visit(this); } } namespace vl::reflection::description { #ifndef VCZH_DEBUG_NO_REFLECTION IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrCondition, glr::parsergen::GlrCondition) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrCondition::IVisitor, glr::parsergen::GlrCondition::IVisitor) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrRefCondition, glr::parsergen::GlrRefCondition) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrNotCondition, glr::parsergen::GlrNotCondition) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrAndCondition, glr::parsergen::GlrAndCondition) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrOrCondition, glr::parsergen::GlrOrCondition) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrSwitchValue, glr::parsergen::GlrSwitchValue) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrSwitchItem, glr::parsergen::GlrSwitchItem) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrSyntax, glr::parsergen::GlrSyntax) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrSyntax::IVisitor, glr::parsergen::GlrSyntax::IVisitor) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrRefType, glr::parsergen::GlrRefType) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrRefSyntax, glr::parsergen::GlrRefSyntax) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrUseSyntax, glr::parsergen::GlrUseSyntax) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrLoopSyntax, glr::parsergen::GlrLoopSyntax) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrOptionalPriority, glr::parsergen::GlrOptionalPriority) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrOptionalSyntax, glr::parsergen::GlrOptionalSyntax) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrSequenceSyntax, glr::parsergen::GlrSequenceSyntax) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrAlternativeSyntax, glr::parsergen::GlrAlternativeSyntax) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrPushConditionSyntax, glr::parsergen::GlrPushConditionSyntax) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrTestConditionBranch, glr::parsergen::GlrTestConditionBranch) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrTestConditionSyntax, glr::parsergen::GlrTestConditionSyntax) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrClause, glr::parsergen::GlrClause) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrClause::IVisitor, glr::parsergen::GlrClause::IVisitor) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrAssignmentType, glr::parsergen::GlrAssignmentType) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrAssignment, glr::parsergen::GlrAssignment) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrCreateClause, glr::parsergen::GlrCreateClause) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrPartialClause, glr::parsergen::GlrPartialClause) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrReuseClause, glr::parsergen::GlrReuseClause) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrLeftRecursionPlaceholder, glr::parsergen::GlrLeftRecursionPlaceholder) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrLeftRecursionPlaceholderClause, glr::parsergen::GlrLeftRecursionPlaceholderClause) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrLeftRecursionConfiguration, glr::parsergen::GlrLeftRecursionConfiguration) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrLeftRecursionInjectContinuationType, glr::parsergen::GlrLeftRecursionInjectContinuationType) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrLeftRecursionInjectContinuation, glr::parsergen::GlrLeftRecursionInjectContinuation) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrLeftRecursionInjectClause, glr::parsergen::GlrLeftRecursionInjectClause) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrPrefixMergeClause, glr::parsergen::GlrPrefixMergeClause) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrRule, glr::parsergen::GlrRule) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrSyntaxFile, glr::parsergen::GlrSyntaxFile) #ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrCondition) CLASS_MEMBER_BASE(vl::glr::ParsingAstBase) END_CLASS_MEMBER(vl::glr::parsergen::GlrCondition) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrRefCondition) CLASS_MEMBER_BASE(vl::glr::parsergen::GlrCondition) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(name) END_CLASS_MEMBER(vl::glr::parsergen::GlrRefCondition) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrNotCondition) CLASS_MEMBER_BASE(vl::glr::parsergen::GlrCondition) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(condition) END_CLASS_MEMBER(vl::glr::parsergen::GlrNotCondition) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrAndCondition) CLASS_MEMBER_BASE(vl::glr::parsergen::GlrCondition) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(first) CLASS_MEMBER_FIELD(second) END_CLASS_MEMBER(vl::glr::parsergen::GlrAndCondition) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrOrCondition) CLASS_MEMBER_BASE(vl::glr::parsergen::GlrCondition) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(first) CLASS_MEMBER_FIELD(second) END_CLASS_MEMBER(vl::glr::parsergen::GlrOrCondition) BEGIN_ENUM_ITEM(vl::glr::parsergen::GlrSwitchValue) ENUM_ITEM_NAMESPACE(vl::glr::parsergen::GlrSwitchValue) ENUM_NAMESPACE_ITEM(False) ENUM_NAMESPACE_ITEM(True) END_ENUM_ITEM(vl::glr::parsergen::GlrSwitchValue) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrSwitchItem) CLASS_MEMBER_BASE(vl::glr::ParsingAstBase) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(name) CLASS_MEMBER_FIELD(value) END_CLASS_MEMBER(vl::glr::parsergen::GlrSwitchItem) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrSyntax) CLASS_MEMBER_BASE(vl::glr::ParsingAstBase) END_CLASS_MEMBER(vl::glr::parsergen::GlrSyntax) BEGIN_ENUM_ITEM(vl::glr::parsergen::GlrRefType) ENUM_ITEM_NAMESPACE(vl::glr::parsergen::GlrRefType) ENUM_NAMESPACE_ITEM(Id) ENUM_NAMESPACE_ITEM(Literal) ENUM_NAMESPACE_ITEM(ConditionalLiteral) END_ENUM_ITEM(vl::glr::parsergen::GlrRefType) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrRefSyntax) CLASS_MEMBER_BASE(vl::glr::parsergen::GlrSyntax) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(refType) CLASS_MEMBER_FIELD(literal) CLASS_MEMBER_FIELD(field) END_CLASS_MEMBER(vl::glr::parsergen::GlrRefSyntax) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrUseSyntax) CLASS_MEMBER_BASE(vl::glr::parsergen::GlrSyntax) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(name) END_CLASS_MEMBER(vl::glr::parsergen::GlrUseSyntax) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrLoopSyntax) CLASS_MEMBER_BASE(vl::glr::parsergen::GlrSyntax) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(syntax) CLASS_MEMBER_FIELD(delimiter) END_CLASS_MEMBER(vl::glr::parsergen::GlrLoopSyntax) BEGIN_ENUM_ITEM(vl::glr::parsergen::GlrOptionalPriority) ENUM_ITEM_NAMESPACE(vl::glr::parsergen::GlrOptionalPriority) ENUM_NAMESPACE_ITEM(Equal) ENUM_NAMESPACE_ITEM(PreferTake) ENUM_NAMESPACE_ITEM(PreferSkip) END_ENUM_ITEM(vl::glr::parsergen::GlrOptionalPriority) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrOptionalSyntax) CLASS_MEMBER_BASE(vl::glr::parsergen::GlrSyntax) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(priority) CLASS_MEMBER_FIELD(syntax) END_CLASS_MEMBER(vl::glr::parsergen::GlrOptionalSyntax) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrSequenceSyntax) CLASS_MEMBER_BASE(vl::glr::parsergen::GlrSyntax) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(first) CLASS_MEMBER_FIELD(second) END_CLASS_MEMBER(vl::glr::parsergen::GlrSequenceSyntax) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrAlternativeSyntax) CLASS_MEMBER_BASE(vl::glr::parsergen::GlrSyntax) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(first) CLASS_MEMBER_FIELD(second) END_CLASS_MEMBER(vl::glr::parsergen::GlrAlternativeSyntax) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrPushConditionSyntax) CLASS_MEMBER_BASE(vl::glr::parsergen::GlrSyntax) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(switches) CLASS_MEMBER_FIELD(syntax) END_CLASS_MEMBER(vl::glr::parsergen::GlrPushConditionSyntax) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrTestConditionBranch) CLASS_MEMBER_BASE(vl::glr::ParsingAstBase) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(condition) CLASS_MEMBER_FIELD(syntax) END_CLASS_MEMBER(vl::glr::parsergen::GlrTestConditionBranch) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrTestConditionSyntax) CLASS_MEMBER_BASE(vl::glr::parsergen::GlrSyntax) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(branches) END_CLASS_MEMBER(vl::glr::parsergen::GlrTestConditionSyntax) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrClause) CLASS_MEMBER_BASE(vl::glr::ParsingAstBase) END_CLASS_MEMBER(vl::glr::parsergen::GlrClause) BEGIN_ENUM_ITEM(vl::glr::parsergen::GlrAssignmentType) ENUM_ITEM_NAMESPACE(vl::glr::parsergen::GlrAssignmentType) ENUM_NAMESPACE_ITEM(Strong) ENUM_NAMESPACE_ITEM(Weak) END_ENUM_ITEM(vl::glr::parsergen::GlrAssignmentType) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrAssignment) CLASS_MEMBER_BASE(vl::glr::ParsingAstBase) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(type) CLASS_MEMBER_FIELD(field) CLASS_MEMBER_FIELD(value) END_CLASS_MEMBER(vl::glr::parsergen::GlrAssignment) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrCreateClause) CLASS_MEMBER_BASE(vl::glr::parsergen::GlrClause) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(type) CLASS_MEMBER_FIELD(syntax) CLASS_MEMBER_FIELD(assignments) END_CLASS_MEMBER(vl::glr::parsergen::GlrCreateClause) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrPartialClause) CLASS_MEMBER_BASE(vl::glr::parsergen::GlrClause) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(type) CLASS_MEMBER_FIELD(syntax) CLASS_MEMBER_FIELD(assignments) END_CLASS_MEMBER(vl::glr::parsergen::GlrPartialClause) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrReuseClause) CLASS_MEMBER_BASE(vl::glr::parsergen::GlrClause) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(syntax) CLASS_MEMBER_FIELD(assignments) END_CLASS_MEMBER(vl::glr::parsergen::GlrReuseClause) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrLeftRecursionPlaceholder) CLASS_MEMBER_BASE(vl::glr::ParsingAstBase) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(flag) END_CLASS_MEMBER(vl::glr::parsergen::GlrLeftRecursionPlaceholder) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrLeftRecursionPlaceholderClause) CLASS_MEMBER_BASE(vl::glr::parsergen::GlrClause) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(flags) END_CLASS_MEMBER(vl::glr::parsergen::GlrLeftRecursionPlaceholderClause) BEGIN_ENUM_ITEM(vl::glr::parsergen::GlrLeftRecursionConfiguration) ENUM_ITEM_NAMESPACE(vl::glr::parsergen::GlrLeftRecursionConfiguration) ENUM_NAMESPACE_ITEM(Single) ENUM_NAMESPACE_ITEM(Multiple) END_ENUM_ITEM(vl::glr::parsergen::GlrLeftRecursionConfiguration) BEGIN_ENUM_ITEM(vl::glr::parsergen::GlrLeftRecursionInjectContinuationType) ENUM_ITEM_NAMESPACE(vl::glr::parsergen::GlrLeftRecursionInjectContinuationType) ENUM_NAMESPACE_ITEM(Optional) ENUM_NAMESPACE_ITEM(Required) END_ENUM_ITEM(vl::glr::parsergen::GlrLeftRecursionInjectContinuationType) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrLeftRecursionInjectContinuation) CLASS_MEMBER_BASE(vl::glr::ParsingAstBase) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(flags) CLASS_MEMBER_FIELD(configuration) CLASS_MEMBER_FIELD(type) CLASS_MEMBER_FIELD(injectionTargets) END_CLASS_MEMBER(vl::glr::parsergen::GlrLeftRecursionInjectContinuation) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrLeftRecursionInjectClause) CLASS_MEMBER_BASE(vl::glr::parsergen::GlrClause) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(rule) CLASS_MEMBER_FIELD(continuation) END_CLASS_MEMBER(vl::glr::parsergen::GlrLeftRecursionInjectClause) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrPrefixMergeClause) CLASS_MEMBER_BASE(vl::glr::parsergen::GlrClause) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(rule) END_CLASS_MEMBER(vl::glr::parsergen::GlrPrefixMergeClause) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrRule) CLASS_MEMBER_BASE(vl::glr::ParsingAstBase) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(attPublic) CLASS_MEMBER_FIELD(attParser) CLASS_MEMBER_FIELD(name) CLASS_MEMBER_FIELD(type) CLASS_MEMBER_FIELD(clauses) END_CLASS_MEMBER(vl::glr::parsergen::GlrRule) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrSyntaxFile) CLASS_MEMBER_BASE(vl::glr::ParsingAstBase) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(switches) CLASS_MEMBER_FIELD(rules) END_CLASS_MEMBER(vl::glr::parsergen::GlrSyntaxFile) BEGIN_INTERFACE_MEMBER(vl::glr::parsergen::GlrCondition::IVisitor) CLASS_MEMBER_METHOD_OVERLOAD(Visit, {L"node"}, void(vl::glr::parsergen::GlrCondition::IVisitor::*)(vl::glr::parsergen::GlrRefCondition* node)) CLASS_MEMBER_METHOD_OVERLOAD(Visit, {L"node"}, void(vl::glr::parsergen::GlrCondition::IVisitor::*)(vl::glr::parsergen::GlrNotCondition* node)) CLASS_MEMBER_METHOD_OVERLOAD(Visit, {L"node"}, void(vl::glr::parsergen::GlrCondition::IVisitor::*)(vl::glr::parsergen::GlrAndCondition* node)) CLASS_MEMBER_METHOD_OVERLOAD(Visit, {L"node"}, void(vl::glr::parsergen::GlrCondition::IVisitor::*)(vl::glr::parsergen::GlrOrCondition* node)) END_INTERFACE_MEMBER(vl::glr::parsergen::GlrCondition) BEGIN_INTERFACE_MEMBER(vl::glr::parsergen::GlrSyntax::IVisitor) CLASS_MEMBER_METHOD_OVERLOAD(Visit, {L"node"}, void(vl::glr::parsergen::GlrSyntax::IVisitor::*)(vl::glr::parsergen::GlrRefSyntax* node)) CLASS_MEMBER_METHOD_OVERLOAD(Visit, {L"node"}, void(vl::glr::parsergen::GlrSyntax::IVisitor::*)(vl::glr::parsergen::GlrUseSyntax* node)) CLASS_MEMBER_METHOD_OVERLOAD(Visit, {L"node"}, void(vl::glr::parsergen::GlrSyntax::IVisitor::*)(vl::glr::parsergen::GlrLoopSyntax* node)) CLASS_MEMBER_METHOD_OVERLOAD(Visit, {L"node"}, void(vl::glr::parsergen::GlrSyntax::IVisitor::*)(vl::glr::parsergen::GlrOptionalSyntax* node)) CLASS_MEMBER_METHOD_OVERLOAD(Visit, {L"node"}, void(vl::glr::parsergen::GlrSyntax::IVisitor::*)(vl::glr::parsergen::GlrSequenceSyntax* node)) CLASS_MEMBER_METHOD_OVERLOAD(Visit, {L"node"}, void(vl::glr::parsergen::GlrSyntax::IVisitor::*)(vl::glr::parsergen::GlrAlternativeSyntax* node)) CLASS_MEMBER_METHOD_OVERLOAD(Visit, {L"node"}, void(vl::glr::parsergen::GlrSyntax::IVisitor::*)(vl::glr::parsergen::GlrPushConditionSyntax* node)) CLASS_MEMBER_METHOD_OVERLOAD(Visit, {L"node"}, void(vl::glr::parsergen::GlrSyntax::IVisitor::*)(vl::glr::parsergen::GlrTestConditionSyntax* node)) END_INTERFACE_MEMBER(vl::glr::parsergen::GlrSyntax) BEGIN_INTERFACE_MEMBER(vl::glr::parsergen::GlrClause::IVisitor) CLASS_MEMBER_METHOD_OVERLOAD(Visit, {L"node"}, void(vl::glr::parsergen::GlrClause::IVisitor::*)(vl::glr::parsergen::GlrCreateClause* node)) CLASS_MEMBER_METHOD_OVERLOAD(Visit, {L"node"}, void(vl::glr::parsergen::GlrClause::IVisitor::*)(vl::glr::parsergen::GlrPartialClause* node)) CLASS_MEMBER_METHOD_OVERLOAD(Visit, {L"node"}, void(vl::glr::parsergen::GlrClause::IVisitor::*)(vl::glr::parsergen::GlrReuseClause* node)) CLASS_MEMBER_METHOD_OVERLOAD(Visit, {L"node"}, void(vl::glr::parsergen::GlrClause::IVisitor::*)(vl::glr::parsergen::GlrLeftRecursionPlaceholderClause* node)) CLASS_MEMBER_METHOD_OVERLOAD(Visit, {L"node"}, void(vl::glr::parsergen::GlrClause::IVisitor::*)(vl::glr::parsergen::GlrLeftRecursionInjectClause* node)) CLASS_MEMBER_METHOD_OVERLOAD(Visit, {L"node"}, void(vl::glr::parsergen::GlrClause::IVisitor::*)(vl::glr::parsergen::GlrPrefixMergeClause* node)) END_INTERFACE_MEMBER(vl::glr::parsergen::GlrClause) #endif #ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA class ParserGenRuleAstTypeLoader : public vl::Object, public ITypeLoader { public: void Load(ITypeManager* manager) { ADD_TYPE_INFO(vl::glr::parsergen::GlrCondition) ADD_TYPE_INFO(vl::glr::parsergen::GlrCondition::IVisitor) ADD_TYPE_INFO(vl::glr::parsergen::GlrRefCondition) ADD_TYPE_INFO(vl::glr::parsergen::GlrNotCondition) ADD_TYPE_INFO(vl::glr::parsergen::GlrAndCondition) ADD_TYPE_INFO(vl::glr::parsergen::GlrOrCondition) ADD_TYPE_INFO(vl::glr::parsergen::GlrSwitchValue) ADD_TYPE_INFO(vl::glr::parsergen::GlrSwitchItem) ADD_TYPE_INFO(vl::glr::parsergen::GlrSyntax) ADD_TYPE_INFO(vl::glr::parsergen::GlrSyntax::IVisitor) ADD_TYPE_INFO(vl::glr::parsergen::GlrRefType) ADD_TYPE_INFO(vl::glr::parsergen::GlrRefSyntax) ADD_TYPE_INFO(vl::glr::parsergen::GlrUseSyntax) ADD_TYPE_INFO(vl::glr::parsergen::GlrLoopSyntax) ADD_TYPE_INFO(vl::glr::parsergen::GlrOptionalPriority) ADD_TYPE_INFO(vl::glr::parsergen::GlrOptionalSyntax) ADD_TYPE_INFO(vl::glr::parsergen::GlrSequenceSyntax) ADD_TYPE_INFO(vl::glr::parsergen::GlrAlternativeSyntax) ADD_TYPE_INFO(vl::glr::parsergen::GlrPushConditionSyntax) ADD_TYPE_INFO(vl::glr::parsergen::GlrTestConditionBranch) ADD_TYPE_INFO(vl::glr::parsergen::GlrTestConditionSyntax) ADD_TYPE_INFO(vl::glr::parsergen::GlrClause) ADD_TYPE_INFO(vl::glr::parsergen::GlrClause::IVisitor) ADD_TYPE_INFO(vl::glr::parsergen::GlrAssignmentType) ADD_TYPE_INFO(vl::glr::parsergen::GlrAssignment) ADD_TYPE_INFO(vl::glr::parsergen::GlrCreateClause) ADD_TYPE_INFO(vl::glr::parsergen::GlrPartialClause) ADD_TYPE_INFO(vl::glr::parsergen::GlrReuseClause) ADD_TYPE_INFO(vl::glr::parsergen::GlrLeftRecursionPlaceholder) ADD_TYPE_INFO(vl::glr::parsergen::GlrLeftRecursionPlaceholderClause) ADD_TYPE_INFO(vl::glr::parsergen::GlrLeftRecursionConfiguration) ADD_TYPE_INFO(vl::glr::parsergen::GlrLeftRecursionInjectContinuationType) ADD_TYPE_INFO(vl::glr::parsergen::GlrLeftRecursionInjectContinuation) ADD_TYPE_INFO(vl::glr::parsergen::GlrLeftRecursionInjectClause) ADD_TYPE_INFO(vl::glr::parsergen::GlrPrefixMergeClause) ADD_TYPE_INFO(vl::glr::parsergen::GlrRule) ADD_TYPE_INFO(vl::glr::parsergen::GlrSyntaxFile) } void Unload(ITypeManager* manager) { } }; #endif #endif bool ParserGenRuleAstLoadTypes() { #ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA if (auto manager = GetGlobalTypeManager()) { auto loader = Ptr(new ParserGenRuleAstTypeLoader); return manager->AddTypeLoader(loader); } #endif return false; } } /*********************************************************************** .\PARSERGEN_GENERATED\PARSERGENRULEAST_BUILDER.CPP ***********************************************************************/ /*********************************************************************** This file is generated by: Vczh Parser Generator From parser definition:RuleAst Licensed under https://github.com/vczh-libraries/License ***********************************************************************/ namespace vl::glr::parsergen::builder { /*********************************************************************** MakeAlternativeSyntax ***********************************************************************/ MakeAlternativeSyntax& MakeAlternativeSyntax::first(const vl::Ptr& value) { node->first = value; return *this; } MakeAlternativeSyntax& MakeAlternativeSyntax::second(const vl::Ptr& value) { node->second = value; return *this; } /*********************************************************************** MakeAndCondition ***********************************************************************/ MakeAndCondition& MakeAndCondition::first(const vl::Ptr& value) { node->first = value; return *this; } MakeAndCondition& MakeAndCondition::second(const vl::Ptr& value) { node->second = value; return *this; } /*********************************************************************** MakeAssignment ***********************************************************************/ MakeAssignment& MakeAssignment::field(const vl::WString& value) { node->field.value = value; return *this; } MakeAssignment& MakeAssignment::type(GlrAssignmentType value) { node->type = value; return *this; } MakeAssignment& MakeAssignment::value(const vl::WString& value) { node->value.value = value; return *this; } /*********************************************************************** MakeCreateClause ***********************************************************************/ MakeCreateClause& MakeCreateClause::assignments(const vl::Ptr& value) { node->assignments.Add(value); return *this; } MakeCreateClause& MakeCreateClause::syntax(const vl::Ptr& value) { node->syntax = value; return *this; } MakeCreateClause& MakeCreateClause::type(const vl::WString& value) { node->type.value = value; return *this; } /*********************************************************************** MakeLeftRecursionInjectClause ***********************************************************************/ MakeLeftRecursionInjectClause& MakeLeftRecursionInjectClause::continuation(const vl::Ptr& value) { node->continuation = value; return *this; } MakeLeftRecursionInjectClause& MakeLeftRecursionInjectClause::rule(const vl::Ptr& value) { node->rule = value; return *this; } /*********************************************************************** MakeLeftRecursionInjectContinuation ***********************************************************************/ MakeLeftRecursionInjectContinuation& MakeLeftRecursionInjectContinuation::configuration(GlrLeftRecursionConfiguration value) { node->configuration = value; return *this; } MakeLeftRecursionInjectContinuation& MakeLeftRecursionInjectContinuation::flags(const vl::Ptr& value) { node->flags.Add(value); return *this; } MakeLeftRecursionInjectContinuation& MakeLeftRecursionInjectContinuation::injectionTargets(const vl::Ptr& value) { node->injectionTargets.Add(value); return *this; } MakeLeftRecursionInjectContinuation& MakeLeftRecursionInjectContinuation::type(GlrLeftRecursionInjectContinuationType value) { node->type = value; return *this; } /*********************************************************************** MakeLeftRecursionPlaceholder ***********************************************************************/ MakeLeftRecursionPlaceholder& MakeLeftRecursionPlaceholder::flag(const vl::WString& value) { node->flag.value = value; return *this; } /*********************************************************************** MakeLeftRecursionPlaceholderClause ***********************************************************************/ MakeLeftRecursionPlaceholderClause& MakeLeftRecursionPlaceholderClause::flags(const vl::Ptr& value) { node->flags.Add(value); return *this; } /*********************************************************************** MakeLoopSyntax ***********************************************************************/ MakeLoopSyntax& MakeLoopSyntax::delimiter(const vl::Ptr& value) { node->delimiter = value; return *this; } MakeLoopSyntax& MakeLoopSyntax::syntax(const vl::Ptr& value) { node->syntax = value; return *this; } /*********************************************************************** MakeNotCondition ***********************************************************************/ MakeNotCondition& MakeNotCondition::condition(const vl::Ptr& value) { node->condition = value; return *this; } /*********************************************************************** MakeOptionalSyntax ***********************************************************************/ MakeOptionalSyntax& MakeOptionalSyntax::priority(GlrOptionalPriority value) { node->priority = value; return *this; } MakeOptionalSyntax& MakeOptionalSyntax::syntax(const vl::Ptr& value) { node->syntax = value; return *this; } /*********************************************************************** MakeOrCondition ***********************************************************************/ MakeOrCondition& MakeOrCondition::first(const vl::Ptr& value) { node->first = value; return *this; } MakeOrCondition& MakeOrCondition::second(const vl::Ptr& value) { node->second = value; return *this; } /*********************************************************************** MakePartialClause ***********************************************************************/ MakePartialClause& MakePartialClause::assignments(const vl::Ptr& value) { node->assignments.Add(value); return *this; } MakePartialClause& MakePartialClause::syntax(const vl::Ptr& value) { node->syntax = value; return *this; } MakePartialClause& MakePartialClause::type(const vl::WString& value) { node->type.value = value; return *this; } /*********************************************************************** MakePrefixMergeClause ***********************************************************************/ MakePrefixMergeClause& MakePrefixMergeClause::rule(const vl::Ptr& value) { node->rule = value; return *this; } /*********************************************************************** MakePushConditionSyntax ***********************************************************************/ MakePushConditionSyntax& MakePushConditionSyntax::switches(const vl::Ptr& value) { node->switches.Add(value); return *this; } MakePushConditionSyntax& MakePushConditionSyntax::syntax(const vl::Ptr& value) { node->syntax = value; return *this; } /*********************************************************************** MakeRefCondition ***********************************************************************/ MakeRefCondition& MakeRefCondition::name(const vl::WString& value) { node->name.value = value; return *this; } /*********************************************************************** MakeRefSyntax ***********************************************************************/ MakeRefSyntax& MakeRefSyntax::field(const vl::WString& value) { node->field.value = value; return *this; } MakeRefSyntax& MakeRefSyntax::literal(const vl::WString& value) { node->literal.value = value; return *this; } MakeRefSyntax& MakeRefSyntax::refType(GlrRefType value) { node->refType = value; return *this; } /*********************************************************************** MakeReuseClause ***********************************************************************/ MakeReuseClause& MakeReuseClause::assignments(const vl::Ptr& value) { node->assignments.Add(value); return *this; } MakeReuseClause& MakeReuseClause::syntax(const vl::Ptr& value) { node->syntax = value; return *this; } /*********************************************************************** MakeRule ***********************************************************************/ MakeRule& MakeRule::attParser(const vl::WString& value) { node->attParser.value = value; return *this; } MakeRule& MakeRule::attPublic(const vl::WString& value) { node->attPublic.value = value; return *this; } MakeRule& MakeRule::clauses(const vl::Ptr& value) { node->clauses.Add(value); return *this; } MakeRule& MakeRule::name(const vl::WString& value) { node->name.value = value; return *this; } MakeRule& MakeRule::type(const vl::WString& value) { node->type.value = value; return *this; } /*********************************************************************** MakeSequenceSyntax ***********************************************************************/ MakeSequenceSyntax& MakeSequenceSyntax::first(const vl::Ptr& value) { node->first = value; return *this; } MakeSequenceSyntax& MakeSequenceSyntax::second(const vl::Ptr& value) { node->second = value; return *this; } /*********************************************************************** MakeSwitchItem ***********************************************************************/ MakeSwitchItem& MakeSwitchItem::name(const vl::WString& value) { node->name.value = value; return *this; } MakeSwitchItem& MakeSwitchItem::value(GlrSwitchValue value) { node->value = value; return *this; } /*********************************************************************** MakeSyntaxFile ***********************************************************************/ MakeSyntaxFile& MakeSyntaxFile::rules(const vl::Ptr& value) { node->rules.Add(value); return *this; } MakeSyntaxFile& MakeSyntaxFile::switches(const vl::Ptr& value) { node->switches.Add(value); return *this; } /*********************************************************************** MakeTestConditionBranch ***********************************************************************/ MakeTestConditionBranch& MakeTestConditionBranch::condition(const vl::Ptr& value) { node->condition = value; return *this; } MakeTestConditionBranch& MakeTestConditionBranch::syntax(const vl::Ptr& value) { node->syntax = value; return *this; } /*********************************************************************** MakeTestConditionSyntax ***********************************************************************/ MakeTestConditionSyntax& MakeTestConditionSyntax::branches(const vl::Ptr& value) { node->branches.Add(value); return *this; } /*********************************************************************** MakeUseSyntax ***********************************************************************/ MakeUseSyntax& MakeUseSyntax::name(const vl::WString& value) { node->name.value = value; return *this; } } /*********************************************************************** .\PARSERGEN_GENERATED\PARSERGENRULEAST_COPY.CPP ***********************************************************************/ /*********************************************************************** This file is generated by: Vczh Parser Generator From parser definition:RuleAst Licensed under https://github.com/vczh-libraries/License ***********************************************************************/ namespace vl::glr::parsergen::copy_visitor { void RuleAstVisitor::CopyFields(GlrAlternativeSyntax* from, GlrAlternativeSyntax* to) { CopyFields(static_cast(from), static_cast(to)); to->first = CopyNode(from->first.Obj()); to->second = CopyNode(from->second.Obj()); } void RuleAstVisitor::CopyFields(GlrAndCondition* from, GlrAndCondition* to) { CopyFields(static_cast(from), static_cast(to)); to->first = CopyNode(from->first.Obj()); to->second = CopyNode(from->second.Obj()); } void RuleAstVisitor::CopyFields(GlrAssignment* from, GlrAssignment* to) { to->field = from->field; to->type = from->type; to->value = from->value; } void RuleAstVisitor::CopyFields(GlrClause* from, GlrClause* to) { } void RuleAstVisitor::CopyFields(GlrCondition* from, GlrCondition* to) { } void RuleAstVisitor::CopyFields(GlrCreateClause* from, GlrCreateClause* to) { CopyFields(static_cast(from), static_cast(to)); for (auto&& listItem : from->assignments) { to->assignments.Add(CopyNode(listItem.Obj())); } to->syntax = CopyNode(from->syntax.Obj()); to->type = from->type; } void RuleAstVisitor::CopyFields(GlrLeftRecursionInjectClause* from, GlrLeftRecursionInjectClause* to) { CopyFields(static_cast(from), static_cast(to)); to->continuation = CopyNode(from->continuation.Obj()); to->rule = CopyNode(from->rule.Obj()); } void RuleAstVisitor::CopyFields(GlrLeftRecursionInjectContinuation* from, GlrLeftRecursionInjectContinuation* to) { to->configuration = from->configuration; for (auto&& listItem : from->flags) { to->flags.Add(CopyNode(listItem.Obj())); } for (auto&& listItem : from->injectionTargets) { to->injectionTargets.Add(CopyNode(listItem.Obj())); } to->type = from->type; } void RuleAstVisitor::CopyFields(GlrLeftRecursionPlaceholder* from, GlrLeftRecursionPlaceholder* to) { to->flag = from->flag; } void RuleAstVisitor::CopyFields(GlrLeftRecursionPlaceholderClause* from, GlrLeftRecursionPlaceholderClause* to) { CopyFields(static_cast(from), static_cast(to)); for (auto&& listItem : from->flags) { to->flags.Add(CopyNode(listItem.Obj())); } } void RuleAstVisitor::CopyFields(GlrLoopSyntax* from, GlrLoopSyntax* to) { CopyFields(static_cast(from), static_cast(to)); to->delimiter = CopyNode(from->delimiter.Obj()); to->syntax = CopyNode(from->syntax.Obj()); } void RuleAstVisitor::CopyFields(GlrNotCondition* from, GlrNotCondition* to) { CopyFields(static_cast(from), static_cast(to)); to->condition = CopyNode(from->condition.Obj()); } void RuleAstVisitor::CopyFields(GlrOptionalSyntax* from, GlrOptionalSyntax* to) { CopyFields(static_cast(from), static_cast(to)); to->priority = from->priority; to->syntax = CopyNode(from->syntax.Obj()); } void RuleAstVisitor::CopyFields(GlrOrCondition* from, GlrOrCondition* to) { CopyFields(static_cast(from), static_cast(to)); to->first = CopyNode(from->first.Obj()); to->second = CopyNode(from->second.Obj()); } void RuleAstVisitor::CopyFields(GlrPartialClause* from, GlrPartialClause* to) { CopyFields(static_cast(from), static_cast(to)); for (auto&& listItem : from->assignments) { to->assignments.Add(CopyNode(listItem.Obj())); } to->syntax = CopyNode(from->syntax.Obj()); to->type = from->type; } void RuleAstVisitor::CopyFields(GlrPrefixMergeClause* from, GlrPrefixMergeClause* to) { CopyFields(static_cast(from), static_cast(to)); to->rule = CopyNode(from->rule.Obj()); } void RuleAstVisitor::CopyFields(GlrPushConditionSyntax* from, GlrPushConditionSyntax* to) { CopyFields(static_cast(from), static_cast(to)); for (auto&& listItem : from->switches) { to->switches.Add(CopyNode(listItem.Obj())); } to->syntax = CopyNode(from->syntax.Obj()); } void RuleAstVisitor::CopyFields(GlrRefCondition* from, GlrRefCondition* to) { CopyFields(static_cast(from), static_cast(to)); to->name = from->name; } void RuleAstVisitor::CopyFields(GlrRefSyntax* from, GlrRefSyntax* to) { CopyFields(static_cast(from), static_cast(to)); to->field = from->field; to->literal = from->literal; to->refType = from->refType; } void RuleAstVisitor::CopyFields(GlrReuseClause* from, GlrReuseClause* to) { CopyFields(static_cast(from), static_cast(to)); for (auto&& listItem : from->assignments) { to->assignments.Add(CopyNode(listItem.Obj())); } to->syntax = CopyNode(from->syntax.Obj()); } void RuleAstVisitor::CopyFields(GlrRule* from, GlrRule* to) { to->attParser = from->attParser; to->attPublic = from->attPublic; for (auto&& listItem : from->clauses) { to->clauses.Add(CopyNode(listItem.Obj())); } to->name = from->name; to->type = from->type; } void RuleAstVisitor::CopyFields(GlrSequenceSyntax* from, GlrSequenceSyntax* to) { CopyFields(static_cast(from), static_cast(to)); to->first = CopyNode(from->first.Obj()); to->second = CopyNode(from->second.Obj()); } void RuleAstVisitor::CopyFields(GlrSwitchItem* from, GlrSwitchItem* to) { to->name = from->name; to->value = from->value; } void RuleAstVisitor::CopyFields(GlrSyntax* from, GlrSyntax* to) { } void RuleAstVisitor::CopyFields(GlrSyntaxFile* from, GlrSyntaxFile* to) { for (auto&& listItem : from->rules) { to->rules.Add(CopyNode(listItem.Obj())); } for (auto&& listItem : from->switches) { to->switches.Add(CopyNode(listItem.Obj())); } } void RuleAstVisitor::CopyFields(GlrTestConditionBranch* from, GlrTestConditionBranch* to) { to->condition = CopyNode(from->condition.Obj()); to->syntax = CopyNode(from->syntax.Obj()); } void RuleAstVisitor::CopyFields(GlrTestConditionSyntax* from, GlrTestConditionSyntax* to) { CopyFields(static_cast(from), static_cast(to)); for (auto&& listItem : from->branches) { to->branches.Add(CopyNode(listItem.Obj())); } } void RuleAstVisitor::CopyFields(GlrUseSyntax* from, GlrUseSyntax* to) { CopyFields(static_cast(from), static_cast(to)); to->name = from->name; } void RuleAstVisitor::Visit(GlrSwitchItem* node) { auto newNode = vl::Ptr(new GlrSwitchItem); CopyFields(node, newNode.Obj()); this->result = newNode; } void RuleAstVisitor::Visit(GlrTestConditionBranch* node) { auto newNode = vl::Ptr(new GlrTestConditionBranch); CopyFields(node, newNode.Obj()); this->result = newNode; } void RuleAstVisitor::Visit(GlrAssignment* node) { auto newNode = vl::Ptr(new GlrAssignment); CopyFields(node, newNode.Obj()); this->result = newNode; } void RuleAstVisitor::Visit(GlrLeftRecursionPlaceholder* node) { auto newNode = vl::Ptr(new GlrLeftRecursionPlaceholder); CopyFields(node, newNode.Obj()); this->result = newNode; } void RuleAstVisitor::Visit(GlrLeftRecursionInjectContinuation* node) { auto newNode = vl::Ptr(new GlrLeftRecursionInjectContinuation); CopyFields(node, newNode.Obj()); this->result = newNode; } void RuleAstVisitor::Visit(GlrRule* node) { auto newNode = vl::Ptr(new GlrRule); CopyFields(node, newNode.Obj()); this->result = newNode; } void RuleAstVisitor::Visit(GlrSyntaxFile* node) { auto newNode = vl::Ptr(new GlrSyntaxFile); CopyFields(node, newNode.Obj()); this->result = newNode; } void RuleAstVisitor::Visit(GlrRefCondition* node) { auto newNode = vl::Ptr(new GlrRefCondition); CopyFields(node, newNode.Obj()); this->result = newNode; } void RuleAstVisitor::Visit(GlrNotCondition* node) { auto newNode = vl::Ptr(new GlrNotCondition); CopyFields(node, newNode.Obj()); this->result = newNode; } void RuleAstVisitor::Visit(GlrAndCondition* node) { auto newNode = vl::Ptr(new GlrAndCondition); CopyFields(node, newNode.Obj()); this->result = newNode; } void RuleAstVisitor::Visit(GlrOrCondition* node) { auto newNode = vl::Ptr(new GlrOrCondition); CopyFields(node, newNode.Obj()); this->result = newNode; } void RuleAstVisitor::Visit(GlrRefSyntax* node) { auto newNode = vl::Ptr(new GlrRefSyntax); CopyFields(node, newNode.Obj()); this->result = newNode; } void RuleAstVisitor::Visit(GlrUseSyntax* node) { auto newNode = vl::Ptr(new GlrUseSyntax); CopyFields(node, newNode.Obj()); this->result = newNode; } void RuleAstVisitor::Visit(GlrLoopSyntax* node) { auto newNode = vl::Ptr(new GlrLoopSyntax); CopyFields(node, newNode.Obj()); this->result = newNode; } void RuleAstVisitor::Visit(GlrOptionalSyntax* node) { auto newNode = vl::Ptr(new GlrOptionalSyntax); CopyFields(node, newNode.Obj()); this->result = newNode; } void RuleAstVisitor::Visit(GlrSequenceSyntax* node) { auto newNode = vl::Ptr(new GlrSequenceSyntax); CopyFields(node, newNode.Obj()); this->result = newNode; } void RuleAstVisitor::Visit(GlrAlternativeSyntax* node) { auto newNode = vl::Ptr(new GlrAlternativeSyntax); CopyFields(node, newNode.Obj()); this->result = newNode; } void RuleAstVisitor::Visit(GlrPushConditionSyntax* node) { auto newNode = vl::Ptr(new GlrPushConditionSyntax); CopyFields(node, newNode.Obj()); this->result = newNode; } void RuleAstVisitor::Visit(GlrTestConditionSyntax* node) { auto newNode = vl::Ptr(new GlrTestConditionSyntax); CopyFields(node, newNode.Obj()); this->result = newNode; } void RuleAstVisitor::Visit(GlrCreateClause* node) { auto newNode = vl::Ptr(new GlrCreateClause); CopyFields(node, newNode.Obj()); this->result = newNode; } void RuleAstVisitor::Visit(GlrPartialClause* node) { auto newNode = vl::Ptr(new GlrPartialClause); CopyFields(node, newNode.Obj()); this->result = newNode; } void RuleAstVisitor::Visit(GlrReuseClause* node) { auto newNode = vl::Ptr(new GlrReuseClause); CopyFields(node, newNode.Obj()); this->result = newNode; } void RuleAstVisitor::Visit(GlrLeftRecursionPlaceholderClause* node) { auto newNode = vl::Ptr(new GlrLeftRecursionPlaceholderClause); CopyFields(node, newNode.Obj()); this->result = newNode; } void RuleAstVisitor::Visit(GlrLeftRecursionInjectClause* node) { auto newNode = vl::Ptr(new GlrLeftRecursionInjectClause); CopyFields(node, newNode.Obj()); this->result = newNode; } void RuleAstVisitor::Visit(GlrPrefixMergeClause* node) { auto newNode = vl::Ptr(new GlrPrefixMergeClause); CopyFields(node, newNode.Obj()); this->result = newNode; } vl::Ptr RuleAstVisitor::CopyNode(GlrCondition* node) { if (!node) return nullptr; node->Accept(static_cast(this)); this->result->codeRange = node->codeRange; return this->result.Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrSyntax* node) { if (!node) return nullptr; node->Accept(static_cast(this)); this->result->codeRange = node->codeRange; return this->result.Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrClause* node) { if (!node) return nullptr; node->Accept(static_cast(this)); this->result->codeRange = node->codeRange; return this->result.Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrSwitchItem* node) { if (!node) return nullptr; Visit(node); this->result->codeRange = node->codeRange; return this->result.Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrTestConditionBranch* node) { if (!node) return nullptr; Visit(node); this->result->codeRange = node->codeRange; return this->result.Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrAssignment* node) { if (!node) return nullptr; Visit(node); this->result->codeRange = node->codeRange; return this->result.Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrLeftRecursionPlaceholder* node) { if (!node) return nullptr; Visit(node); this->result->codeRange = node->codeRange; return this->result.Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrLeftRecursionInjectContinuation* node) { if (!node) return nullptr; Visit(node); this->result->codeRange = node->codeRange; return this->result.Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrRule* node) { if (!node) return nullptr; Visit(node); this->result->codeRange = node->codeRange; return this->result.Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrSyntaxFile* node) { if (!node) return nullptr; Visit(node); this->result->codeRange = node->codeRange; return this->result.Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrAlternativeSyntax* node) { if (!node) return nullptr; return CopyNode(static_cast(node)).Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrAndCondition* node) { if (!node) return nullptr; return CopyNode(static_cast(node)).Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrCreateClause* node) { if (!node) return nullptr; return CopyNode(static_cast(node)).Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrLeftRecursionInjectClause* node) { if (!node) return nullptr; return CopyNode(static_cast(node)).Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrLeftRecursionPlaceholderClause* node) { if (!node) return nullptr; return CopyNode(static_cast(node)).Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrLoopSyntax* node) { if (!node) return nullptr; return CopyNode(static_cast(node)).Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrNotCondition* node) { if (!node) return nullptr; return CopyNode(static_cast(node)).Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrOptionalSyntax* node) { if (!node) return nullptr; return CopyNode(static_cast(node)).Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrOrCondition* node) { if (!node) return nullptr; return CopyNode(static_cast(node)).Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrPartialClause* node) { if (!node) return nullptr; return CopyNode(static_cast(node)).Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrPrefixMergeClause* node) { if (!node) return nullptr; return CopyNode(static_cast(node)).Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrPushConditionSyntax* node) { if (!node) return nullptr; return CopyNode(static_cast(node)).Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrRefCondition* node) { if (!node) return nullptr; return CopyNode(static_cast(node)).Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrRefSyntax* node) { if (!node) return nullptr; return CopyNode(static_cast(node)).Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrReuseClause* node) { if (!node) return nullptr; return CopyNode(static_cast(node)).Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrSequenceSyntax* node) { if (!node) return nullptr; return CopyNode(static_cast(node)).Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrTestConditionSyntax* node) { if (!node) return nullptr; return CopyNode(static_cast(node)).Cast(); } vl::Ptr RuleAstVisitor::CopyNode(GlrUseSyntax* node) { if (!node) return nullptr; return CopyNode(static_cast(node)).Cast(); } } /*********************************************************************** .\PARSERGEN_GENERATED\PARSERGENRULEAST_EMPTY.CPP ***********************************************************************/ /*********************************************************************** This file is generated by: Vczh Parser Generator From parser definition:RuleAst Licensed under https://github.com/vczh-libraries/License ***********************************************************************/ namespace vl::glr::parsergen::empty_visitor { /*********************************************************************** ConditionVisitor ***********************************************************************/ // Visitor Members ----------------------------------- void ConditionVisitor::Visit(GlrRefCondition* node) { } void ConditionVisitor::Visit(GlrNotCondition* node) { } void ConditionVisitor::Visit(GlrAndCondition* node) { } void ConditionVisitor::Visit(GlrOrCondition* node) { } /*********************************************************************** SyntaxVisitor ***********************************************************************/ // Visitor Members ----------------------------------- void SyntaxVisitor::Visit(GlrRefSyntax* node) { } void SyntaxVisitor::Visit(GlrUseSyntax* node) { } void SyntaxVisitor::Visit(GlrLoopSyntax* node) { } void SyntaxVisitor::Visit(GlrOptionalSyntax* node) { } void SyntaxVisitor::Visit(GlrSequenceSyntax* node) { } void SyntaxVisitor::Visit(GlrAlternativeSyntax* node) { } void SyntaxVisitor::Visit(GlrPushConditionSyntax* node) { } void SyntaxVisitor::Visit(GlrTestConditionSyntax* node) { } /*********************************************************************** ClauseVisitor ***********************************************************************/ // Visitor Members ----------------------------------- void ClauseVisitor::Visit(GlrCreateClause* node) { } void ClauseVisitor::Visit(GlrPartialClause* node) { } void ClauseVisitor::Visit(GlrReuseClause* node) { } void ClauseVisitor::Visit(GlrLeftRecursionPlaceholderClause* node) { } void ClauseVisitor::Visit(GlrLeftRecursionInjectClause* node) { } void ClauseVisitor::Visit(GlrPrefixMergeClause* node) { } } /*********************************************************************** .\PARSERGEN_GENERATED\PARSERGENRULEAST_JSON.CPP ***********************************************************************/ /*********************************************************************** This file is generated by: Vczh Parser Generator From parser definition:RuleAst Licensed under https://github.com/vczh-libraries/License ***********************************************************************/ namespace vl::glr::parsergen::json_visitor { void RuleAstVisitor::PrintFields(GlrAlternativeSyntax* node) { BeginField(L"first"); Print(node->first.Obj()); EndField(); BeginField(L"second"); Print(node->second.Obj()); EndField(); } void RuleAstVisitor::PrintFields(GlrAndCondition* node) { BeginField(L"first"); Print(node->first.Obj()); EndField(); BeginField(L"second"); Print(node->second.Obj()); EndField(); } void RuleAstVisitor::PrintFields(GlrAssignment* node) { BeginField(L"field"); WriteToken(node->field); EndField(); BeginField(L"type"); switch (node->type) { case vl::glr::parsergen::GlrAssignmentType::Strong: WriteString(L"Strong"); break; case vl::glr::parsergen::GlrAssignmentType::Weak: WriteString(L"Weak"); break; default: WriteNull(); } EndField(); BeginField(L"value"); WriteToken(node->value); EndField(); } void RuleAstVisitor::PrintFields(GlrClause* node) { } void RuleAstVisitor::PrintFields(GlrCondition* node) { } void RuleAstVisitor::PrintFields(GlrCreateClause* node) { BeginField(L"assignments"); BeginArray(); for (auto&& listItem : node->assignments) { BeginArrayItem(); Print(listItem.Obj()); EndArrayItem(); } EndArray(); EndField(); BeginField(L"syntax"); Print(node->syntax.Obj()); EndField(); BeginField(L"type"); WriteToken(node->type); EndField(); } void RuleAstVisitor::PrintFields(GlrLeftRecursionInjectClause* node) { BeginField(L"continuation"); Print(node->continuation.Obj()); EndField(); BeginField(L"rule"); Print(node->rule.Obj()); EndField(); } void RuleAstVisitor::PrintFields(GlrLeftRecursionInjectContinuation* node) { BeginField(L"configuration"); switch (node->configuration) { case vl::glr::parsergen::GlrLeftRecursionConfiguration::Multiple: WriteString(L"Multiple"); break; case vl::glr::parsergen::GlrLeftRecursionConfiguration::Single: WriteString(L"Single"); break; default: WriteNull(); } EndField(); BeginField(L"flags"); BeginArray(); for (auto&& listItem : node->flags) { BeginArrayItem(); Print(listItem.Obj()); EndArrayItem(); } EndArray(); EndField(); BeginField(L"injectionTargets"); BeginArray(); for (auto&& listItem : node->injectionTargets) { BeginArrayItem(); Print(listItem.Obj()); EndArrayItem(); } EndArray(); EndField(); BeginField(L"type"); switch (node->type) { case vl::glr::parsergen::GlrLeftRecursionInjectContinuationType::Optional: WriteString(L"Optional"); break; case vl::glr::parsergen::GlrLeftRecursionInjectContinuationType::Required: WriteString(L"Required"); break; default: WriteNull(); } EndField(); } void RuleAstVisitor::PrintFields(GlrLeftRecursionPlaceholder* node) { BeginField(L"flag"); WriteToken(node->flag); EndField(); } void RuleAstVisitor::PrintFields(GlrLeftRecursionPlaceholderClause* node) { BeginField(L"flags"); BeginArray(); for (auto&& listItem : node->flags) { BeginArrayItem(); Print(listItem.Obj()); EndArrayItem(); } EndArray(); EndField(); } void RuleAstVisitor::PrintFields(GlrLoopSyntax* node) { BeginField(L"delimiter"); Print(node->delimiter.Obj()); EndField(); BeginField(L"syntax"); Print(node->syntax.Obj()); EndField(); } void RuleAstVisitor::PrintFields(GlrNotCondition* node) { BeginField(L"condition"); Print(node->condition.Obj()); EndField(); } void RuleAstVisitor::PrintFields(GlrOptionalSyntax* node) { BeginField(L"priority"); switch (node->priority) { case vl::glr::parsergen::GlrOptionalPriority::Equal: WriteString(L"Equal"); break; case vl::glr::parsergen::GlrOptionalPriority::PreferSkip: WriteString(L"PreferSkip"); break; case vl::glr::parsergen::GlrOptionalPriority::PreferTake: WriteString(L"PreferTake"); break; default: WriteNull(); } EndField(); BeginField(L"syntax"); Print(node->syntax.Obj()); EndField(); } void RuleAstVisitor::PrintFields(GlrOrCondition* node) { BeginField(L"first"); Print(node->first.Obj()); EndField(); BeginField(L"second"); Print(node->second.Obj()); EndField(); } void RuleAstVisitor::PrintFields(GlrPartialClause* node) { BeginField(L"assignments"); BeginArray(); for (auto&& listItem : node->assignments) { BeginArrayItem(); Print(listItem.Obj()); EndArrayItem(); } EndArray(); EndField(); BeginField(L"syntax"); Print(node->syntax.Obj()); EndField(); BeginField(L"type"); WriteToken(node->type); EndField(); } void RuleAstVisitor::PrintFields(GlrPrefixMergeClause* node) { BeginField(L"rule"); Print(node->rule.Obj()); EndField(); } void RuleAstVisitor::PrintFields(GlrPushConditionSyntax* node) { BeginField(L"switches"); BeginArray(); for (auto&& listItem : node->switches) { BeginArrayItem(); Print(listItem.Obj()); EndArrayItem(); } EndArray(); EndField(); BeginField(L"syntax"); Print(node->syntax.Obj()); EndField(); } void RuleAstVisitor::PrintFields(GlrRefCondition* node) { BeginField(L"name"); WriteToken(node->name); EndField(); } void RuleAstVisitor::PrintFields(GlrRefSyntax* node) { BeginField(L"field"); WriteToken(node->field); EndField(); BeginField(L"literal"); WriteToken(node->literal); EndField(); BeginField(L"refType"); switch (node->refType) { case vl::glr::parsergen::GlrRefType::ConditionalLiteral: WriteString(L"ConditionalLiteral"); break; case vl::glr::parsergen::GlrRefType::Id: WriteString(L"Id"); break; case vl::glr::parsergen::GlrRefType::Literal: WriteString(L"Literal"); break; default: WriteNull(); } EndField(); } void RuleAstVisitor::PrintFields(GlrReuseClause* node) { BeginField(L"assignments"); BeginArray(); for (auto&& listItem : node->assignments) { BeginArrayItem(); Print(listItem.Obj()); EndArrayItem(); } EndArray(); EndField(); BeginField(L"syntax"); Print(node->syntax.Obj()); EndField(); } void RuleAstVisitor::PrintFields(GlrRule* node) { BeginField(L"attParser"); WriteToken(node->attParser); EndField(); BeginField(L"attPublic"); WriteToken(node->attPublic); EndField(); BeginField(L"clauses"); BeginArray(); for (auto&& listItem : node->clauses) { BeginArrayItem(); Print(listItem.Obj()); EndArrayItem(); } EndArray(); EndField(); BeginField(L"name"); WriteToken(node->name); EndField(); BeginField(L"type"); WriteToken(node->type); EndField(); } void RuleAstVisitor::PrintFields(GlrSequenceSyntax* node) { BeginField(L"first"); Print(node->first.Obj()); EndField(); BeginField(L"second"); Print(node->second.Obj()); EndField(); } void RuleAstVisitor::PrintFields(GlrSwitchItem* node) { BeginField(L"name"); WriteToken(node->name); EndField(); BeginField(L"value"); switch (node->value) { case vl::glr::parsergen::GlrSwitchValue::False: WriteString(L"False"); break; case vl::glr::parsergen::GlrSwitchValue::True: WriteString(L"True"); break; default: WriteNull(); } EndField(); } void RuleAstVisitor::PrintFields(GlrSyntax* node) { } void RuleAstVisitor::PrintFields(GlrSyntaxFile* node) { BeginField(L"rules"); BeginArray(); for (auto&& listItem : node->rules) { BeginArrayItem(); Print(listItem.Obj()); EndArrayItem(); } EndArray(); EndField(); BeginField(L"switches"); BeginArray(); for (auto&& listItem : node->switches) { BeginArrayItem(); Print(listItem.Obj()); EndArrayItem(); } EndArray(); EndField(); } void RuleAstVisitor::PrintFields(GlrTestConditionBranch* node) { BeginField(L"condition"); Print(node->condition.Obj()); EndField(); BeginField(L"syntax"); Print(node->syntax.Obj()); EndField(); } void RuleAstVisitor::PrintFields(GlrTestConditionSyntax* node) { BeginField(L"branches"); BeginArray(); for (auto&& listItem : node->branches) { BeginArrayItem(); Print(listItem.Obj()); EndArrayItem(); } EndArray(); EndField(); } void RuleAstVisitor::PrintFields(GlrUseSyntax* node) { BeginField(L"name"); WriteToken(node->name); EndField(); } void RuleAstVisitor::Visit(GlrRefCondition* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"RefCondition", node); PrintFields(static_cast(node)); PrintFields(static_cast(node)); EndObject(); } void RuleAstVisitor::Visit(GlrNotCondition* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"NotCondition", node); PrintFields(static_cast(node)); PrintFields(static_cast(node)); EndObject(); } void RuleAstVisitor::Visit(GlrAndCondition* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"AndCondition", node); PrintFields(static_cast(node)); PrintFields(static_cast(node)); EndObject(); } void RuleAstVisitor::Visit(GlrOrCondition* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"OrCondition", node); PrintFields(static_cast(node)); PrintFields(static_cast(node)); EndObject(); } void RuleAstVisitor::Visit(GlrRefSyntax* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"RefSyntax", node); PrintFields(static_cast(node)); PrintFields(static_cast(node)); EndObject(); } void RuleAstVisitor::Visit(GlrUseSyntax* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"UseSyntax", node); PrintFields(static_cast(node)); PrintFields(static_cast(node)); EndObject(); } void RuleAstVisitor::Visit(GlrLoopSyntax* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"LoopSyntax", node); PrintFields(static_cast(node)); PrintFields(static_cast(node)); EndObject(); } void RuleAstVisitor::Visit(GlrOptionalSyntax* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"OptionalSyntax", node); PrintFields(static_cast(node)); PrintFields(static_cast(node)); EndObject(); } void RuleAstVisitor::Visit(GlrSequenceSyntax* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"SequenceSyntax", node); PrintFields(static_cast(node)); PrintFields(static_cast(node)); EndObject(); } void RuleAstVisitor::Visit(GlrAlternativeSyntax* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"AlternativeSyntax", node); PrintFields(static_cast(node)); PrintFields(static_cast(node)); EndObject(); } void RuleAstVisitor::Visit(GlrPushConditionSyntax* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"PushConditionSyntax", node); PrintFields(static_cast(node)); PrintFields(static_cast(node)); EndObject(); } void RuleAstVisitor::Visit(GlrTestConditionSyntax* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"TestConditionSyntax", node); PrintFields(static_cast(node)); PrintFields(static_cast(node)); EndObject(); } void RuleAstVisitor::Visit(GlrCreateClause* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"CreateClause", node); PrintFields(static_cast(node)); PrintFields(static_cast(node)); EndObject(); } void RuleAstVisitor::Visit(GlrPartialClause* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"PartialClause", node); PrintFields(static_cast(node)); PrintFields(static_cast(node)); EndObject(); } void RuleAstVisitor::Visit(GlrReuseClause* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"ReuseClause", node); PrintFields(static_cast(node)); PrintFields(static_cast(node)); EndObject(); } void RuleAstVisitor::Visit(GlrLeftRecursionPlaceholderClause* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"LeftRecursionPlaceholderClause", node); PrintFields(static_cast(node)); PrintFields(static_cast(node)); EndObject(); } void RuleAstVisitor::Visit(GlrLeftRecursionInjectClause* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"LeftRecursionInjectClause", node); PrintFields(static_cast(node)); PrintFields(static_cast(node)); EndObject(); } void RuleAstVisitor::Visit(GlrPrefixMergeClause* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"PrefixMergeClause", node); PrintFields(static_cast(node)); PrintFields(static_cast(node)); EndObject(); } RuleAstVisitor::RuleAstVisitor(vl::stream::StreamWriter& _writer) : vl::glr::JsonVisitorBase(_writer) { } void RuleAstVisitor::Print(GlrCondition* node) { if (!node) { WriteNull(); return; } node->Accept(static_cast(this)); } void RuleAstVisitor::Print(GlrSyntax* node) { if (!node) { WriteNull(); return; } node->Accept(static_cast(this)); } void RuleAstVisitor::Print(GlrClause* node) { if (!node) { WriteNull(); return; } node->Accept(static_cast(this)); } void RuleAstVisitor::Print(GlrSwitchItem* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"SwitchItem", node); PrintFields(static_cast(node)); EndObject(); } void RuleAstVisitor::Print(GlrTestConditionBranch* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"TestConditionBranch", node); PrintFields(static_cast(node)); EndObject(); } void RuleAstVisitor::Print(GlrAssignment* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"Assignment", node); PrintFields(static_cast(node)); EndObject(); } void RuleAstVisitor::Print(GlrLeftRecursionPlaceholder* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"LeftRecursionPlaceholder", node); PrintFields(static_cast(node)); EndObject(); } void RuleAstVisitor::Print(GlrLeftRecursionInjectContinuation* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"LeftRecursionInjectContinuation", node); PrintFields(static_cast(node)); EndObject(); } void RuleAstVisitor::Print(GlrRule* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"Rule", node); PrintFields(static_cast(node)); EndObject(); } void RuleAstVisitor::Print(GlrSyntaxFile* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"SyntaxFile", node); PrintFields(static_cast(node)); EndObject(); } } /*********************************************************************** .\PARSERGEN_GENERATED\PARSERGENRULEAST_TRAVERSE.CPP ***********************************************************************/ /*********************************************************************** This file is generated by: Vczh Parser Generator From parser definition:RuleAst Licensed under https://github.com/vczh-libraries/License ***********************************************************************/ namespace vl::glr::parsergen::traverse_visitor { void RuleAstVisitor::Traverse(vl::glr::ParsingToken& token) {} void RuleAstVisitor::Traverse(vl::glr::ParsingAstBase* node) {} void RuleAstVisitor::Traverse(GlrAlternativeSyntax* node) {} void RuleAstVisitor::Traverse(GlrAndCondition* node) {} void RuleAstVisitor::Traverse(GlrAssignment* node) {} void RuleAstVisitor::Traverse(GlrClause* node) {} void RuleAstVisitor::Traverse(GlrCondition* node) {} void RuleAstVisitor::Traverse(GlrCreateClause* node) {} void RuleAstVisitor::Traverse(GlrLeftRecursionInjectClause* node) {} void RuleAstVisitor::Traverse(GlrLeftRecursionInjectContinuation* node) {} void RuleAstVisitor::Traverse(GlrLeftRecursionPlaceholder* node) {} void RuleAstVisitor::Traverse(GlrLeftRecursionPlaceholderClause* node) {} void RuleAstVisitor::Traverse(GlrLoopSyntax* node) {} void RuleAstVisitor::Traverse(GlrNotCondition* node) {} void RuleAstVisitor::Traverse(GlrOptionalSyntax* node) {} void RuleAstVisitor::Traverse(GlrOrCondition* node) {} void RuleAstVisitor::Traverse(GlrPartialClause* node) {} void RuleAstVisitor::Traverse(GlrPrefixMergeClause* node) {} void RuleAstVisitor::Traverse(GlrPushConditionSyntax* node) {} void RuleAstVisitor::Traverse(GlrRefCondition* node) {} void RuleAstVisitor::Traverse(GlrRefSyntax* node) {} void RuleAstVisitor::Traverse(GlrReuseClause* node) {} void RuleAstVisitor::Traverse(GlrRule* node) {} void RuleAstVisitor::Traverse(GlrSequenceSyntax* node) {} void RuleAstVisitor::Traverse(GlrSwitchItem* node) {} void RuleAstVisitor::Traverse(GlrSyntax* node) {} void RuleAstVisitor::Traverse(GlrSyntaxFile* node) {} void RuleAstVisitor::Traverse(GlrTestConditionBranch* node) {} void RuleAstVisitor::Traverse(GlrTestConditionSyntax* node) {} void RuleAstVisitor::Traverse(GlrUseSyntax* node) {} void RuleAstVisitor::Finishing(vl::glr::ParsingAstBase* node) {} void RuleAstVisitor::Finishing(GlrAlternativeSyntax* node) {} void RuleAstVisitor::Finishing(GlrAndCondition* node) {} void RuleAstVisitor::Finishing(GlrAssignment* node) {} void RuleAstVisitor::Finishing(GlrClause* node) {} void RuleAstVisitor::Finishing(GlrCondition* node) {} void RuleAstVisitor::Finishing(GlrCreateClause* node) {} void RuleAstVisitor::Finishing(GlrLeftRecursionInjectClause* node) {} void RuleAstVisitor::Finishing(GlrLeftRecursionInjectContinuation* node) {} void RuleAstVisitor::Finishing(GlrLeftRecursionPlaceholder* node) {} void RuleAstVisitor::Finishing(GlrLeftRecursionPlaceholderClause* node) {} void RuleAstVisitor::Finishing(GlrLoopSyntax* node) {} void RuleAstVisitor::Finishing(GlrNotCondition* node) {} void RuleAstVisitor::Finishing(GlrOptionalSyntax* node) {} void RuleAstVisitor::Finishing(GlrOrCondition* node) {} void RuleAstVisitor::Finishing(GlrPartialClause* node) {} void RuleAstVisitor::Finishing(GlrPrefixMergeClause* node) {} void RuleAstVisitor::Finishing(GlrPushConditionSyntax* node) {} void RuleAstVisitor::Finishing(GlrRefCondition* node) {} void RuleAstVisitor::Finishing(GlrRefSyntax* node) {} void RuleAstVisitor::Finishing(GlrReuseClause* node) {} void RuleAstVisitor::Finishing(GlrRule* node) {} void RuleAstVisitor::Finishing(GlrSequenceSyntax* node) {} void RuleAstVisitor::Finishing(GlrSwitchItem* node) {} void RuleAstVisitor::Finishing(GlrSyntax* node) {} void RuleAstVisitor::Finishing(GlrSyntaxFile* node) {} void RuleAstVisitor::Finishing(GlrTestConditionBranch* node) {} void RuleAstVisitor::Finishing(GlrTestConditionSyntax* node) {} void RuleAstVisitor::Finishing(GlrUseSyntax* node) {} void RuleAstVisitor::Visit(GlrRefCondition* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(node->name); Finishing(static_cast(node)); Finishing(static_cast(node)); Finishing(static_cast(node)); } void RuleAstVisitor::Visit(GlrNotCondition* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(static_cast(node)); InspectInto(node->condition.Obj()); Finishing(static_cast(node)); Finishing(static_cast(node)); Finishing(static_cast(node)); } void RuleAstVisitor::Visit(GlrAndCondition* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(static_cast(node)); InspectInto(node->first.Obj()); InspectInto(node->second.Obj()); Finishing(static_cast(node)); Finishing(static_cast(node)); Finishing(static_cast(node)); } void RuleAstVisitor::Visit(GlrOrCondition* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(static_cast(node)); InspectInto(node->first.Obj()); InspectInto(node->second.Obj()); Finishing(static_cast(node)); Finishing(static_cast(node)); Finishing(static_cast(node)); } void RuleAstVisitor::Visit(GlrRefSyntax* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(node->field); Traverse(node->literal); Finishing(static_cast(node)); Finishing(static_cast(node)); Finishing(static_cast(node)); } void RuleAstVisitor::Visit(GlrUseSyntax* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(node->name); Finishing(static_cast(node)); Finishing(static_cast(node)); Finishing(static_cast(node)); } void RuleAstVisitor::Visit(GlrLoopSyntax* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(static_cast(node)); InspectInto(node->delimiter.Obj()); InspectInto(node->syntax.Obj()); Finishing(static_cast(node)); Finishing(static_cast(node)); Finishing(static_cast(node)); } void RuleAstVisitor::Visit(GlrOptionalSyntax* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(static_cast(node)); InspectInto(node->syntax.Obj()); Finishing(static_cast(node)); Finishing(static_cast(node)); Finishing(static_cast(node)); } void RuleAstVisitor::Visit(GlrSequenceSyntax* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(static_cast(node)); InspectInto(node->first.Obj()); InspectInto(node->second.Obj()); Finishing(static_cast(node)); Finishing(static_cast(node)); Finishing(static_cast(node)); } void RuleAstVisitor::Visit(GlrAlternativeSyntax* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(static_cast(node)); InspectInto(node->first.Obj()); InspectInto(node->second.Obj()); Finishing(static_cast(node)); Finishing(static_cast(node)); Finishing(static_cast(node)); } void RuleAstVisitor::Visit(GlrPushConditionSyntax* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(static_cast(node)); for (auto&& listItem : node->switches) { InspectInto(listItem.Obj()); } InspectInto(node->syntax.Obj()); Finishing(static_cast(node)); Finishing(static_cast(node)); Finishing(static_cast(node)); } void RuleAstVisitor::Visit(GlrTestConditionSyntax* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(static_cast(node)); for (auto&& listItem : node->branches) { InspectInto(listItem.Obj()); } Finishing(static_cast(node)); Finishing(static_cast(node)); Finishing(static_cast(node)); } void RuleAstVisitor::Visit(GlrCreateClause* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(static_cast(node)); for (auto&& listItem : node->assignments) { InspectInto(listItem.Obj()); } InspectInto(node->syntax.Obj()); Traverse(node->type); Finishing(static_cast(node)); Finishing(static_cast(node)); Finishing(static_cast(node)); } void RuleAstVisitor::Visit(GlrPartialClause* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(static_cast(node)); for (auto&& listItem : node->assignments) { InspectInto(listItem.Obj()); } InspectInto(node->syntax.Obj()); Traverse(node->type); Finishing(static_cast(node)); Finishing(static_cast(node)); Finishing(static_cast(node)); } void RuleAstVisitor::Visit(GlrReuseClause* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(static_cast(node)); for (auto&& listItem : node->assignments) { InspectInto(listItem.Obj()); } InspectInto(node->syntax.Obj()); Finishing(static_cast(node)); Finishing(static_cast(node)); Finishing(static_cast(node)); } void RuleAstVisitor::Visit(GlrLeftRecursionPlaceholderClause* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(static_cast(node)); for (auto&& listItem : node->flags) { InspectInto(listItem.Obj()); } Finishing(static_cast(node)); Finishing(static_cast(node)); Finishing(static_cast(node)); } void RuleAstVisitor::Visit(GlrLeftRecursionInjectClause* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(static_cast(node)); InspectInto(node->continuation.Obj()); InspectInto(node->rule.Obj()); Finishing(static_cast(node)); Finishing(static_cast(node)); Finishing(static_cast(node)); } void RuleAstVisitor::Visit(GlrPrefixMergeClause* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(static_cast(node)); InspectInto(node->rule.Obj()); Finishing(static_cast(node)); Finishing(static_cast(node)); Finishing(static_cast(node)); } void RuleAstVisitor::InspectInto(GlrCondition* node) { if (!node) return; node->Accept(static_cast(this)); } void RuleAstVisitor::InspectInto(GlrSyntax* node) { if (!node) return; node->Accept(static_cast(this)); } void RuleAstVisitor::InspectInto(GlrClause* node) { if (!node) return; node->Accept(static_cast(this)); } void RuleAstVisitor::InspectInto(GlrSwitchItem* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(node->name); Finishing(static_cast(node)); Finishing(static_cast(node)); } void RuleAstVisitor::InspectInto(GlrTestConditionBranch* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); InspectInto(node->condition.Obj()); InspectInto(node->syntax.Obj()); Finishing(static_cast(node)); Finishing(static_cast(node)); } void RuleAstVisitor::InspectInto(GlrAssignment* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(node->field); Traverse(node->value); Finishing(static_cast(node)); Finishing(static_cast(node)); } void RuleAstVisitor::InspectInto(GlrLeftRecursionPlaceholder* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(node->flag); Finishing(static_cast(node)); Finishing(static_cast(node)); } void RuleAstVisitor::InspectInto(GlrLeftRecursionInjectContinuation* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); for (auto&& listItem : node->flags) { InspectInto(listItem.Obj()); } for (auto&& listItem : node->injectionTargets) { InspectInto(listItem.Obj()); } Finishing(static_cast(node)); Finishing(static_cast(node)); } void RuleAstVisitor::InspectInto(GlrRule* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(node->attParser); Traverse(node->attPublic); for (auto&& listItem : node->clauses) { InspectInto(listItem.Obj()); } Traverse(node->name); Traverse(node->type); Finishing(static_cast(node)); Finishing(static_cast(node)); } void RuleAstVisitor::InspectInto(GlrSyntaxFile* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); for (auto&& listItem : node->rules) { InspectInto(listItem.Obj()); } for (auto&& listItem : node->switches) { InspectInto(listItem.Obj()); } Finishing(static_cast(node)); Finishing(static_cast(node)); } } /*********************************************************************** .\PARSERGEN_GENERATED\PARSERGENRULEPARSER.CPP ***********************************************************************/ /*********************************************************************** This file is generated by: Vczh Parser Generator From parser definition:ParserGen Licensed under https://github.com/vczh-libraries/License ***********************************************************************/ namespace vl::glr::parsergen { void ParserGenRuleParserData(vl::stream::IStream& outputStream) { static const vl::vint dataLength = 14903; // 207517 bytes before compressing static const vl::vint dataBlock = 256; static const vl::vint dataRemain = 55; static const vl::vint dataSolidRows = 58; static const vl::vint dataRows = 59; static const char* compressed[] = { "\x9D\x2A\x03\x00\x2F\x3A\x00\x00\x27\x00\x01\x82\x80\x08\x0B\x82\x81\x82\x06\x89\x82\x88\x0A\x86\x06\x84\x0A\x0A\x97\x0A\x9C\x0A\x82\x12\x84\x80\x09\xAD\x0A\x92\x1A\x81\x2A\x84\x2B\x0A\xDC\x0A\x9F\x2A\x83\x32\x84\x34\x0A\x8C\x4A\x8F\x4A\x82\x4A\x84\x4B\x0A\xA1\x4A\x87\x5A\x86\x56\x84\x5C\x0A\xC5\x1E\x09\x8F\x7D\x9E\x9F\x9E\x0A\x80\x3F\x9F\x91\xA3\xA2\x9F\xA2\x46\xFF\x48\xA6\xAB\xA3\xA1\xA6\xA2\x0A\xC9\x8A\xB1\xA9\xA7\xA7\xA2\xAA\x4C\xD8\x8E\xA1\xAA\x81\x02\xAC\xA8\x3C\xD5\x9F\xB7\xA1\xB1\xAD\xB3\xAD\x67\xE0\x86\x92\xA6\xA8\xA3\xB0\xB7\x69\xE4\xAB\xA2\xB1\xB8\xBB\xB8\xB3\x77\xE8\x86\x9E\xA9\x84\xBD\xBC\xB5\x03\xEC\xAF\xB3\xA5\xBC\xC3\xBE\xB9\x81\xF4\x87\xD6\xB9\xC0\xBF\x80\x01\x5D\x83\xED\xA6\xCD\xC2\xBD\xCA\xC0\x02\x82\xC5\xD3\xCC\xCA\xCA\xCF\xCD\x9F\x8B\xD4\xD9\xCA\xC7\xC8\xC4\xD2\x8E\xA8\xD6\xCA\xD8\xC9\x82\xCC\xD1\x9D\xA0\xF2\xD0\xD1\xD6\xD0\xC6\xD6\xA7\xAE\xE5\xD8\xD7\xDA\xDD\xD4\xDF\xAB\xC0\xED\xC2\xAB\xDA\xE1\xDC\xE2\xBF\xC8\xC1\xEA\xE3\xE7\xD6\xDB\xD1\xC6\xBD\xCC\xE7\xEE\xE4\xDC\xE9\xE9\xD2\xD5\xD1\xF7", "\xEA\xE8\xEC\xEF\xE2\xDE\xB1\xF4\xD3\xDF\xE2\xF1\xF3\xDA\x02\x83\x11\xC4\xF6\xEE\xF1\xF6\xF4\xDB\xEE\xF1\xF0\xF1\xF4\xF9\xEF\xFB\xE0\x84\x2B\xE3\xFC\xFF\xF0\xF7\xF9\xFF\x75\x71\x81\x01\xFB\x7E\x7D\x7F\x7B\x01\x86\x05\x80\x82\x07\x80\x8D\x82\x80\x0F\xB8\x79\x72\x84\xCB\x54\x8D\x70\x78\x16\x94\x78\x87\x86\x13\x9C\x85\x86\x87\x17\x9D\x82\x8B\x87\x23\xA1\x84\x8B\x89\x26\xA9\x8A\x85\x89\x2B\xA8\x8D\x8A\x8A\xD9\x60\x87\x73\x01\x0B\x8E\x86\x83\x8D\x0C\xB8\x86\x8D\x8E\x3C\xBB\x8E\x8C\x84\x3A\x80\x9D\x8E\x90\x3F\x99\x81\x8C\x8B\x47\xAE\x89\x90\x8C\xDF\x48\x9D\x92\x92\x4F\x8C\x92\x7C\x91\x54\x86\x91\x97\x8B\x58\x8B\x99\x97\x75\x0C\x7D\x56\x7E\x8C\x5A\xA1\x97\x96\x98\x53\x96\x95\x98\x98\x63\xA9\x97\x9A\x93\x6B\x90\x9D\x9A\x94\x5F\xAC\x91\x9E\x9B\x73\xB0\x91\x82\x99\x75\x9B\x9F\x9A\x9E\x79\xA4\x9D\x9E\x9A\x7F\xBB\x9E\x9D\x42\x09\x35\x85\x94\x9A\x82\x80\xA7\x9C\xA2\x81\x8D\xAB\xA2\x9C\x8F\xB4\x91\xA6\x9D\x11\x8C\xA3\xA4\x9F\x97\x83\xA5\xA4\xA4\x9B\x92\xAD\xA7\x70\x0A\x06\xA8\x9D\xA6\x8A\x9F\xA8\xA6\xA9\x9A\x81\x93\xAA\x41", "\x0B\x22\xA6\xA4\xAA\xA5\xAA\xAF\xAB\x40\x0C\x2E\xAC\xA6\xAC\xB7\x83\x9B\xA8\xAE\x9E\xBC\xA4\xA6\xAF\xC7\x4D\x06\xAD\xAF\xBA\xB3\xA5\xB1\xAE\x45\x86\xB9\xB0\xB2\x00\x0E\x4E\x94\xA9\x89\x91\xBE\xA2\x41\x0F\x03\xBF\xAF\xB1\xC4\x8B\xB9\xB7\xA1\xCC\xBB\xA8\xB7\xB5\xDA\xA0\xBC\xB7\xB6\xDE\xA1\xB7\xA8\xB0\xA9\x9F\xB7\xBA\xBA\xE9\xA6\xBD\xBB\xB8\xE2\xA5\xB0\xBF\xBA\xEE\xB1\xAC\xBA\xBD\xF5\x92\xB9\x40\x04\xD6\xB4\xB3\xBF\xBB\xF2\x81\xCA\xB3\xBF\xF8\x80\x01\x05\xBF\x00\xC3\xC2\xC0\xB3\x12\x08\xC5\xC2\xBC\x13\x06\xA0\x47\xB3\xB0\xBA\xB5\xC7\xB4\xE8\x8F\xCA\xC3\xC6\xDD\x9C\xC4\xBA\xC7\xF1\xA0\xCE\xBF\xC2\x1F\xDD\xC6\xC9\xC9\x28\xE1\xC7\xCA\xCA\x29\xE3\xC2\xC9\xC2\x2B\xFE\xB5\x06\xC3\x16\xD9\xC5\xCF\xBD\x37\xF9\xB8\xC4\xCE\x3B\xFF\x86\x06\xA1\x12\x54\xC6\xCD\xCF\x04\xF9\xC5\xD0\xD1\x24\xEC\xCA\xD2\xCB\x31\xF0\xCD\xCA\xD3\x4B\xD0\xDC\xD3\xD3\x1A\xCD\xD5\xD4\xD5\x46\xC9\xDE\xBC\x42\x7B\x48\xDF\xCB\xD5\x51\xE0\xD3\xD6\xB8\x19\x34\xCE\xD6\xD5\x46\xDA\x06\xD8\xB4\x67\xD8\xDD\xD9\xD8\x59\xDF\xD1\xDC\xDA\x6F\xE3\xD6\xDE\xD4\x78", "\xE2\xD9\xDF\xDC\x6E\xEC\xDE\xDF\xC5\x7F\xC3\xD1\xE0\xCF\x09\x5B\x0B\xD8\xE0\x88\xC2\xE9\xE0\xE1\x8B\xFF\x84\x46\xD0\x8C\xCA\xE2\xE5\xE4\x02\x5D\x07\xE3\xE4\x3F\xBB\x40\xE5\x40\x1F\x17\xE4\xE6\xCE\x83\xE0\xED\xE3\xD1\xA1\xE4\xE3\xEA\xD6\x7B\xF5\xD9\xE9\xE9\xA8\xFA\xDE\xE8\xDF\x70\xEA\xEF\xEA\xEC\xB0\xF7\xD3\xED\xE9\x20\x1E\xE2\xE8\xE6\xA6\xFC\xED\xE9\xED\xAB\xE3\xE1\x0A\xA1\x16\x5B\xED\xEF\xE7\xC7\xFB\xE8\xF3\xEF\xB4\xCD\xFC\xEA\xDC\xCE\xE7\xE0\xF7\xF3\x74\xD4\xFD\xDE\xF4\xD5\xD8\xFB\xB7\x08\xBA\xC9\xFE\xF4\xF3\xD6\xF1\xE1\x80\x09\xDD\xE0\xFA\xF6\xB8\x25\x25\xF3\xF7\xF9\xB6\xC0\xF7\xEC\xFB\xC1\xFE\xEB\xFA\xFC\xD9\xF4\xF7\xF6\xFD\xE2\xF0\xFF\xF9\x90\x26\x2A\xF5\xFF\xF2\xF3\x60\x83\xFF\x4A\x74\x81\xEF\x41\x85\x80\xE6\x78\x7D\xFB\x51\x7A\x81\xF8\x42\x87\x7E\x0F\x99\x7D\x03\xFB\x71\x83\x05\xA1\x7E\x82\x0F\x58\x21\xD7\x17\x8E\x80\x04\xA0\x38\x05\xFE\x70\x82\x07\x83\x86\x80\x12\x89\x85\x82\x1D\x85\x86\x08\xAA\x82\x82\x14\x94\x83\x84\x2B\x87\x84\x0C\xAD\x83\x86\x0C\x93\x86\x7D\x38\x8C\x82\x0B\xB9\x8C\x83\x17\xAC\x87", "\x38\x29\x01\x84\x0D\x80\x0A\x04\x21\xB6\x83\x87\x3A\x95\x85\x0A\xB2\x8F\x87\x25\x87\x85\x89\x3E\x8C\x8A\x14\xCF\x8B\x04\x23\x8E\x8E\x84\x4F\x93\x88\x16\xDB\x81\x87\x2C\x9E\x8C\x8B\x43\x9A\x89\x17\xE0\x87\x89\x02\xAC\x06\x8A\x51\x9F\x8B\x18\xEB\x81\x8C\x35\xAD\x8C\x8C\x57\x8C\x8D\x19\xD0\x8C\x86\xFD\x75\x8F\x86\x49\x94\x8D\x1E\xE2\x8F\x8C\x39\xB1\x8D\x8F\x80\x93\x8C\x1F\x82\x9E\x8C\x42\xB0\x8E\x87\x1A\x26\x7A\xBC\x2E\x08\x8D\x3B\x88\x89\x21\x2F\x0D\x93\x1E\x85\x9F\x8E\x43\xBE\x89\x8D\x87\x8E\x92\x12\x85\x60\x06\x49\xBD\x82\x93\x00\x11\x06\x27\xA3\x7C\x22\x45\x94\x90\x93\x97\x80\x97\x20\x95\x9C\x94\x54\x81\x95\x95\xAA\x87\x95\x2C\x99\x93\x92\x5A\x9F\x95\x96\x2B\x93\x05\xF7\x34\x03\x94\x3C\xB7\x97\x97\x76\x98\x97\x2B\xAE\x96\x93\x61\x81\x2D\x06\xBD\x8F\x91\x30\xC0\x9E\x97\x65\x8E\x9D\x99\xD0\x8A\x99\x34\x9B\x93\x97\x54\x82\x9D\x98\xD8\x90\x97\x35\xDA\x9C\x98\x69\x9E\x9C\x9A\xDB\x85\x62\x0D\x5D\x77\x07\xEE\x78\x05\x7B\x39\x06\x52\x0E\x49\x90\x9D\xD2\x7B\x04\x9D\x00\x1C\x06\xA1\x3D\x00\x9E\x79\x7E\x06\x50\x3F\x06", "\x50\x10\x70\x91\x09\x7A\xB2\x91\x9C\xD5\x86\x98\x40\x83\xAD\x9B\x76\x8F\x9F\x9B\x7A\x85\xA1\x42\x87\xA6\xA1\x69\x80\x02\x08\xFE\x96\x94\x43\x8B\xAE\xA1\x55\x84\x9C\x9B\x13\xB6\xA1\x40\xFE\x53\x09\x88\x96\x9A\xA1\x1A\xB4\x3C\x11\x1E\xA2\xA1\xD2\x45\x0C\xA4\xD9\x97\xA2\x4A\x9B\xA8\xA3\x8A\xBF\x98\xA4\x2F\xB9\xA1\x4C\xAE\xAC\x58\x23\x28\xA5\xA5\x08\xA1\xA4\x4C\x92\xA4\xA7\x8F\xB2\xA4\xA7\x39\xAF\x8B\x11\x37\xAB\xA4\x82\xBF\xA6\xA7\x3D\xA5\xA7\x51\xCA\xA9\xA9\x94\xAC\xA5\xA8\x3B\xA8\xAA\x40\x48\x0D\x7B\x24\x1D\x7A\x09\xDD\x6B\x0A\xA1\x4C\x04\xA9\x29\x4D\x08\x9E\x4E\x10\x9F\x13\x06\x50\x0B\xAE\xB4\x3E\x23\xC6\x72\x0A\xA1\x53\x06\xAD\xA8\x8C\xA9\xA8\x40\xAD\xA0\x5C\xDB\x54\x0B\xB6\x8B\xAE\xA9\x46\xAD\xA8\x4E\xF2\xAC\xAE\x8A\xB3\xAF\xAD\x7D\xBA\xA7\x5D\xFB\xAE\x7B\x2A\x06\x50\x24\xC6\x77\x0A\x5D\xFA\xA0\xAB\xC1\x8D\xB4\xB1\x4F\xB1\xB1\x5E\xFF\xA8\xAE\x85\x98\x0B\xB1\x94\xA4\xB2\x60\x90\xB3\xB3\xC0\xB3\xA1\xB3\x8F\xA0\xB5\x50\x59\x08\xB2\xCF\xB1\xAE\xAF\xA6\xB2\xA9\x6A\x80\xB8\xB5\xD6\x9B\xB0\xA1\x5A\x05\xB6\x6B\x9F", "\xBB\xB5\xCA\x8E\xB2\xB2\x6E\xB6\xB4\x67\xB9\xBA\xB2\xDA\xB3\xB4\x59\x5B\x1D\x7A\x48\x26\x99\x39\x2E\x1D\x7E\x0B\x86\x44\x24\x71\xAA\xBD\xB4\x30\x30\x99\x0C\x86\x42\x0E\x6C\xDD\x36\x24\xE3\x64\x0E\x50\x65\x13\xBA\x6F\xAF\xB5\xB7\xDE\xA7\xB4\xBB\xBF\xAC\xB8\x78\xE3\xBB\xBB\xF2\x9F\xBE\xBC\xE2\xA8\xBC\x6B\xE4\xB7\xBC\x66\x66\x0A\xBB\xC9\x27\x0C\x7C\xE9\xBD\xBC\xFA\xB6\xBB\xBD\xEA\xBA\xB6\x68\x9D\xB1\xBC\xFC\xB5\xBE\xBF\xF7\xBA\xBD\x01\xA8\x2B\xB8\x71\x69\x0B\xBE\x00\xC3\x3A\x1A\x08\xC2\xC1\xFE\x8D\xC4\xBD\x01\xDE\xB9\x84\xD7\x3B\x0C\x06\xD2\xC3\x38\x6C\x16\xC1\x68\xDD\xBB\xC2\xEF\x6D\x0D\x7B\x6E\x1D\x7B\x1B\x5D\x70\x0E\x43\x71\x0A\xC3\xA0\x92\x0C\x3C\xF3\x06\x50\x3A\x28\xC2\x21\x75\x06\x52\x1D\x06\x57\x0E\x78\xB8\x0F\xC5\xBC\xBD\xC0\x84\x89\xCF\xC1\xFC\x97\xC5\xC7\xFF\xA0\xCB\x84\xB8\xBF\x41\x3C\x38\xC7\xB6\xFC\xBB\xC6\x90\xBC\xCF\xC7\x26\xFA\xC6\xC7\x4F\xC1\xCA\x74\x7A\x0D\x7B\x3D\x07\xCB\xB7\x48\xD9\xC4\x91\xD8\xCC\xCA\xE4\x7C\x0F\xCA\xFB\xBA\xC9\x92\xD0\xCB\xCB\x21\x7D\x08\xCC\x1C\xC5\xCD\x9A\xE3\xC2\xCB\x28", "\xC3\xCC\xCD\x6F\xC2\xCE\x9C\xD9\xC6\x20\x3F\x28\xCE\xC1\x4E\xCA\xCC\x9E\xEE\xC3\x89\x3F\x37\xCA\xC9\x79\xD0\xCC\x93\xFC\xCB\xC9\x42\xC1\xD3\xCE\x5D\xCB\xCD\xE9\x00\x1F\xCE\x32\xC2\xD7\x38\x81\x0D\xD3\x69\x82\x12\xD3\x38\xF4\xC9\xD1\x00\x03\x11\xA5\x83\xD0\x94\x42\x1B\xD6\xD0\x84\xC7\xD3\xA5\xE1\xCF\x41\x42\x1F\xD2\xD4\x98\xDD\x3A\x21\x27\xDD\xC3\x43\x2C\xD2\xCF\x80\xDD\xC0\x22\x2F\xDF\xD1\x14\x89\x14\xD6\x88\xC4\xD5\x90\x0A\x18\xD7\x51\xCA\xD6\xD7\x7B\xD0\xD6\xA3\xB9\xDF\xD7\x54\xC3\xD8\xD8\xDD\x2B\x11\xF7\x2A\x25\xC1\xE3\x0D\x15\x7B\x8E\x06\x50\x4B\x4D\xD8\xD4\xE4\x50\x10\x9E\x91\x06\x52\x4B\x54\xDD\xC3\x49\x06\x54\x12\x86\x55\x11\xAF\xC6\xDD\xCC\x61\xC9\x38\x26\xDC\xC6\xDF\x72\x17\x13\xDC\x5D\xEE\xDD\xD8\xEF\xC1\xD9\x1E\x98\x1D\x7B\x4C\x1D\x7A\x13\xDD\x7B\x12\xA1\x1C\x1D\xDD\x02\x9D\x10\x9E\x9E\x06\x53\x27\x77\xC0\x14\x43\x72\x26\x78\xA2\x1D\xDE\xBC\xC4\xDB\xE1\xD1\x63\x12\xE1\xB1\xCA\xDC\xA7\xFC\xB4\x14\x88\xC7\xDC\xDC\x96\xD8\xE3\xC4\x8C\xE1\xE3\x3C\xA5\x16\xE2\xE5\xD5\xD5\xA8\xA3\xE2\xE2\x50\xE5\xE4\xB0", "\xA6\x00\xE5\xC6\xF1\xDD\xE2\x85\xB4\x21\xDD\x22\xE7\xE4\xC9\xB1\xE4\xE6\x8E\xD7\xE4\xE5\x37\xF0\xDE\xCE\xDE\x78\x15\x3B\xE9\x12\xE5\x1B\xE8\xD9\xCE\x8D\xEA\xE2\x93\xF5\xE3\xA2\xAA\x00\xEA\xD1\xB6\xE1\xE4\xA6\xEB\xE3\xE7\x2D\xE2\xE9\xD3\xD2\xEB\x85\x55\x0A\xED\xDA\x50\xE3\xE9\xD4\xC5\xE8\xEA\xA2\xC8\x7C\x15\xDD\x6D\x15\xF7\x36\x20\xE7\x84\x2F\x16\x50\xB0\x17\xE9\xC1\x31\x10\x9E\x59\x06\x53\x16\x77\xD4\x16\xA1\x35\x16\x50\x5B\x2A\xEA\xE6\xA0\x97\x15\xF7\x38\x25\xEC\x83\x39\x15\x7B\xBA\x06\x53\x2E\x77\xE4\x3E\x5E\x30\x9D\x17\x86\x5E\x17\x9D\xBF\x16\x50\x60\x06\x51\x18\x84\xEE\xE9\xD0\xDC\xE3\xE6\xC9\xCB\xEC\xEA\x93\xF8\xE7\xD4\x98\xD2\x19\xEE\x43\x1D\x7B\xC4\x1D\x79\x31\x06\x56\x19\xC8\xCF\x47\x18\xF0\x88\x1A\xA1\x49\x17\xCE\x65\x06\x53\x19\x86\x4C\x18\x3C\xCD\x16\x50\x67\x26\xF4\xF2\x78\xE7\xE8\xEE\xBA\xFA\xF2\xE6\x8F\x1E\x50\xD0\x17\xF5\xEF\x99\xF9\xEB\xCD\xC3\xFF\xF2\xBB\xF6\xF1\xD7\xE0\xB1\x1B\xEE\x52\x1D\x7B\xD3\x1D\x78\x35\x06\x55\x1A\xE1\xFF\x46\x1A\xF0\x97\x1A\xA1\x58\x17\xCF\x6C\x06\x52\x1B\x86\x5B\x1A", "\xF5\xDE\xE5\xF9\xA7\xE4\xFF\xFC\x5B\xE7\xFB\xF2\xDA\xEC\xFD\xD3\x9C\x1D\x7B\xDD\x1D\x7A\x37\x5D\x7F\x1A\x43\x60\x1B\xFC\xDD\x21\x1C\x3C\xE2\x16\x51\x71\x37\xCC\x1C\x86\x25\x0E\x86\x26\x0E\xF0\x47\x0E\x86\x28\x0E\xF8\x7D\x7E\xE6\x79\x7E\xE5\x74\x7C\xE8\x7A\x80\x0E\x8C\x80\x0F\x86\x7C\x0D\x83\x47\xE9\x09\x80\x14\x8D\x5A\xEA\x06\x28\xEB\x08\x81\x0B\x80\x81\xC8\x7A\x7E\x95\x78\x79\x21\x85\x81\xEB\x74\x42\xEC\x0D\x3D\xED\x0D\x3D\xEE\x0D\x3D\xEF\x06\x28\xF0\x0E\x81\xC3\x11\x0F\xF0\x42\x0F\x86\x23\x0F\x77\x64\x0F\x86\x25\x0F\x86\x26\x0F\x32\x85\x82\x13\x8F\x81\x19\x82\x81\x44\x80\x82\x29\x47\x0F\x3F\x87\x82\x42\x8B\x84\x11\x86\x84\x23\x89\x7C\x24\x8A\x84\x4D\x83\x84\x4E\x86\x34\xF8\x06\x28\xF9\x09\x84\x4F\x82\x82\xB9\x7A\x7C\x5B\x86\x82\x5F\x81\x84\x53\x8C\x5C\xFA\x0A\x85\x5D\x81\x85\x61\x85\x84\x54\x8B\x86\xCC\x5B\x0F\x66\x8C\x7B\x60\x87\x86\x50\x83\x87\x5C\x80\x87\x62\x80\x84\x6A\x8C\x84\x78\x85\x85\xFC\x5C\x0F\x6F\x8E\x85\x72\x85\x87\x80\x86\x87\x79\x83\x86\x86\x8B\x87\x6C\x87\x88\x52\x88\x88\xCB\x1D\x0F\x86\x2E", "\x0F\x7F\x88\x86\x81\x81\x87\x84\x8C\x87\x83\x87\x89\xC8\x67\x67\x00\x0E\x17\x02\x1C\x89\x82\x82\x89\x95\x89\x88\x8C\x8A\x88\x69\x86\x89\xA0\x88\x89\x41\x21\x00\x9E\x80\x00\xEA\x11\x20\x04\x0B\x8A\xAD\x8F\x20\x07\x00\x8B\xF4\x1A\x00\xB4\x89\x10\x0D\x07\x8B\xA7\x83\x3A\x10\x0B\x8A\x04\x25\x3A\x15\x0A\x8B\x03\x18\x01\xC2\x82\x10\x1B\x0B\x8A\xAB\x8D\x5A\x1C\x05\x8C\x9C\x3C\x8C\x00\x02\x02\xCE\x85\x88\xA3\x83\x8D\x8B\x85\x8D\xA5\x82\x8A\xD6\x83\x89\x77\x89\x8D\xA1\x8A\x87\xDC\x88\x8A\xC8\x35\x02\xC8\x8C\x5F\x26\x03\x8E\xE0\x84\x89\xE7\x8B\x8D\xD7\x8E\x8D\xEB\x84\x8A\xDA\x82\x8D\x29\x47\x02\xE6\x8B\x8B\x74\x88\x8E\xF4\x8F\x89\xF5\x8A\x8E\x7A\x68\x02\xF3\x89\x8F\xF0\x8D\x8E\xD4\x80\x90\xDF\x87\x8F\xF6\x8E\x8F\xA6\x86\x90\xD8\x87\x1D\x29\x0D\x8F\xF8\x8D\x90\x05\x9E\x90\xFA\x8D\x8D\xEE\x86\x87\x2A\x0C\x90\x0F\x97\x91\x11\x9A\x50\x2B\x06\x91\x19\x94\x90\x1D\x9E\x50\x2C\x0C\x91\x2D\x0C\x91\xFF\x81\x14\x2E\x04\x92\x07\x90\x91\x25\x92\x91\x01\x9F\x8E\x29\x98\x91\x2B\x99\x8E\x31\x9E\x91\x33\x98\x69\x2F\x08\x92\x09\x9E\x92", "\x39\x9A\x10\x30\x08\x93\xEC\x86\x34\x31\x0E\x93\x13\x92\x93\x2F\x9F\x91\x2A\x95\x94\x35\x97\x94\x3B\x9C\x70\x32\x02\x94\x2D\x9C\x92\x03\x93\x10\x33\x0E\x94\x51\x98\x3C\x34\x04\x95\x02\x99\x95\x3A\x9B\x2D\x35\x08\x95\x5B\x93\x94\x34\x98\x94\x62\x9B\x94\x61\x94\x96\x08\x9B\x1C\x36\x0E\x95\x50\x9A\x95\x6B\x9F\x95\x4F\x94\x94\x66\x9A\x94\x3F\x9D\x96\x74\x91\x20\x37\x0A\x96\x0A\x58\x03\x78\x95\x96\x73\x9A\x50\x39\x0B\x97\x67\x90\x96\x81\x9F\x96\x7C\x92\x98\x72\x92\x2E\x3A\x00\x98\x87\x94\x98\x83\x92\x1D\x3B\x0A\x98\x30\x93\x96\x7D\x95\x98\x8C\x9B\x98\x55\x91\x10\x3C\x00\x99\xAD\x5D\x03\x9A\x99\x94\x91\x91\x97\x9F\x93\x99\x8D\x9C\x96\x70\x92\x9A\x96\x97\x1D\x3E\x0D\x99\x4F\x4F\x03\xAA\x90\x9A\x46\x91\x9A\x86\x90\x9B\xC7\x10\x04\xAD\x96\x9A\xB2\x97\x99\xAF\x99\x9B\x9E\x9A\x9B\x92\x91\x9B\xBC\x9E\x9A\x4C\x41\x04\xB5\x93\x44\x42\x03\x9C\x95\x97\x9B\x3E\x43\x04\xC6\x98\x9B\xBB\x9D\x9C\xBD\x97\x9C\xBF\x96\x7E\x44\x0B\x9C\xA4\x94\x99\xB8\x95\x04\xD4\x9E\x96\xCC\x9F\x9C\xDB\x90\x9C\xDC\x9E\x43\x46\x09\x9D\x44\x37\x04\xE2", "\x95\x9A\xBE\x9E\x9C\xDE\x99\x9E\xB6\x91\x9D\xE7\x9F\x9D\x46\x38\x04\xE5\x93\x3A\x49\x01\x9F\xA3\x9A\x9D\xD5\x95\x9F\x79\x4A\x04\xF4\x97\x9A\xF6\x9D\x9F\x75\x96\x9D\xF7\x98\x50\x4B\x0B\x9F\xC8\x9E\x9F\xE6\x90\x9D\x12\x8C\x04\x04\xAC\x9E\x08\xA3\x30\x4D\x0B\xA0\xE8\x9B\x9E\x11\xAD\x9E\xEA\x94\xA1\x2B\x4E\x04\x10\xAE\x9E\xFF\x9E\x50\x4F\x09\xA1\x15\xAD\xA0\x1F\xAD\x9D\x12\xAA\xA1\x01\x20\x05\x1E\xAB\x2D\x51\x07\xA2\x16\xAB\xA2\x20\xA3\xA2\x21\xA1\xA0\x05\xAB\xA1\xFC\x94\x1F\x52\x0A\xA2\xFE\x23\x05\x36\xA2\xA2\x2C\xAA\xA3\x2D\xAB\xA3\x30\xAC\xA0\x3C\xAD\x75\x54\x09\xA3\x3F\xA3\xA1\x3D\xA7\xA4\x41\xA5\xA4\x24\xA6\x10\x55\x04\xA4\x06\xA0\xA0\x4F\xA8\x9F\x07\xA9\xA4\x51\xA3\xA3\x53\xAA\xA4\x2F\xA5\xA5\x3F\x26\x05\x4E\xA2\xA3\x31\xA7\xA5\x5A\xA0\xA4\x58\xAE\xA2\xCB\x17\x05\x5D\xA0\xA6\x5E\xA2\xA6\x61\xA6\xA4\x54\xA9\xA6\x6C\xA3\xA6\x3E\xAB\xA6\x03\x38\x05\x1C\x99\x05\x67\xA0\xA5\x6E\xAB\xA4\x52\xA8\xA7\x68\xAD\xA7\x0F\x2A\x05\x77\xAB\xA7\x82\xA6\xA5\x7C\xA5\xA8\x83\xAF\x23\x5B\x01\xA8\x84\xA7\xA8\x6A\xA9\xA7\x59\xAE", "\xA8\x64\xA1\xA7\x90\xA2\xA9\x7E\xA1\x24\x5C\x0C\x91\x5D\x0A\xA8\x5F\xA6\xA8\x8B\xAD\xA9\x9B\xAC\xA8\x6F\xA2\xA7\x8F\xA5\xA9\x9E\xAD\xA8\xA4\xA1\x10\x5E\x0A\xA9\xA6\xAC\xA9\x05\x4F\x05\xAA\xA2\x81\x60\x0F\xAA\x7A\xA5\xAA\xA1\xA3\xA9\x48\xA0\xA7\xB7\xA1\xA6\x61\x02\xAB\xA3\xAC\xAA\x54\x22\x06\xBC\xA6\x7E\x63\x01\xAC\x94\xAE\xAB\xB5\xA7\xAA\x54\x24\x06\xC4\xA9\xAB\xB6\xAD\xA6\x09\x15\x06\xCB\xA2\x1D\x66\x01\xAD\xB8\xAE\xAC\xC6\xAF\x44\x67\x04\xAD\xA2\xA1\xA9\xCC\xAA\x50\x68\x0A\xAD\xCD\xA5\xAD\xE2\xA1\x14\x69\x00\xAE\x09\x1A\x06\xE6\xA7\xAD\xBD\xA0\xAA\x03\x3B\x06\xE9\xAC\xAE\xEB\xA4\xAB\x4F\x4C\x06\xEF\xA2\xAF\xF1\xAF\xA9\xF6\xAC\xAD\xD6\xA3\x10\x6D\x05\xAF\xF8\xAF\xAF\xDE\x3E\x06\x1C\x9F\x06\xFE\xAB\xAA\xF0\xAA\xAF\xE3\xA1\xAE\xDB\xA5\xAC\x07\xBC\xB0\xF9\xAE\xB0\x18\x90\x07\x1C\x91\x07\x05\xB2\x2F\x72\x05\xB1\xB3\xA0\xB0\xC7\xAA\xAE\x08\xBB\xB0\xDD\xAE\x91\x73\x08\xB1\xF7\xA6\xB0\x0F\xBE\x2F\x74\x02\xB2\x1D\xBA\xB0\x2A\xB8\xAC\x1B\xBD\xB0\x1F\xB1\x24\x75\x08\xB2\x10\xB4\xB2\x00\xB6\x07\x32\xBF\xB2\x25\xBB\xAF", "\x39\xB9\xB0\x2C\xB9\xB1\x34\xBF\xB3\x2D\xBB\xB3\xDA\x87\x07\x37\xBA\xB3\x1A\xB0\x1E\x78\x05\xB4\x3C\xBC\xB1\xC3\x19\x07\x1C\x9A\x07\x4A\xB3\x25\x7B\x01\xB5\x2B\xBC\xB4\x38\xB7\xB4\x23\xB1\xB4\x58\xBB\x2D\x7C\x04\xB5\x3D\xB9\xB5\x3E\xB2\x2F\x7D\x0E\xB5\x56\xB6\xB4\x40\xB1\xB6\x68\xB9\x81\x7E\x0C\x91\x7F\x04\xB6\x2E\xB6\xB6\x5A\xBF\xB3\x80\x0E\xB6\x42\xB5\xB5\x6F\xBB\xB4\x77\xBE\xB1\x84\x51\x08\x74\xBB\xB5\x33\xB1\xB7\xBB\x92\x08\x7D\xB7\xB6\x60\xB5\xB8\x29\xBF\xB5\xDB\x23\x08\x83\xB0\xB8\x69\xB7\xB8\x0F\x24\x08\x1C\x95\x08\x1C\x96\x08\x8B\xBD\xB8\x7F\xB6\xB9\x57\xB4\xB8\x8E\xB9\x8F\x87\x05\xB9\x86\xB7\xB9\x9F\xBE\x2F\x88\x0C\x91\x89\x0E\xB9\x9B\xB5\xB7\x88\xB2\x2E\x8A\x01\x8D\xE0\x1D\x08\xAC\xB9\x1C\x90\x0F\xBA\xCB\x13\x09\xCE\x86\x09\xB2\xB3\xB3\x99\x0E\x8B\x44\x3E\x09\xCE\x81\x0A\xCE\x84\x0A\xAA\xA5\x0A\xCE\x88\x0A\xCE\x8B\x0A\xB7\xB9\xB9\x8C\xB1\xBA\x5D\x7E\x0A\x1C\x9F\x0A\xA6\xB0\xBA\x2B\x40\x0B\xCF\xB8\xBC\x98\xB0\xB7\xD5\xB8\xB7\x08\x51\x0B\x1C\x92\x0B\xAA\xA3\x0B\xD3\xB6\xBD\xCA\xB8\xBD\x3F\x24\x0B\xDF", "\xB2\xBE\x9A\xB0\xBD\xE8\xB4\xBD\xE1\xB3\x25\xB5\x0C\x91\xB6\x05\xBE\x7A\xB6\xBE\xC9\xB6\x7E\xB7\x05\xB0\xB8\x0B\xA0\xB9\x0C\x91\xBA\x00\xBF\x76\xB8\xBA\x65\xB1\x86\xBB\x05\xB0\xBC\x0B\xA0\xBD\x0C\x91\xBE\x0C\xBF\xA9\xBA\xBE\xA7\xB8\x91\xBF\x05\xB0\x04\x0F\x8B\x03\x11\x8B\xCF\x12\x15\x90\x1B\x2F\x83\x15\xC1\x06\x1F\x33\xA4\x22\x15\x85\x29\x10\x20\x45\x18\x12\xC6\x1D\x14\xCA\x10\xFC\x25\x18\x18\xC3\x10\x1A\xC0\x2B\x1C\xCA\x10\x1F\xC2\x1A\x10\xC3\xC1\x49\x1F\xC2\x22\xC1\xC3\x83\x12\x15\x21\xCB\x1D\x36\xC5\xC3\x49\x17\xC3\xDE\x19\xC3\x85\x1E\xC3\xA2\x10\xC4\x30\xC6\x14\x3C\xC2\x15\x23\xC6\xC1\x20\xCA\xC3\x44\xCA\xC4\x43\x15\xC4\x46\xC6\x14\x27\xC2\x10\x29\xC9\x31\x2B\xCE\xC1\x83\x1E\xC4\x4F\xCF\x13\x58\xC9\xC5\x3D\x1B\xC5\x5C\xC1\xC5\x01\x15\xC2\xA2\x1E\xC5\x59\xC0\xC6\x00\x03\xC5\xF7\x25\xC5\x06\x1D\xC2\xCF\x14\xC6\x4F\xC6\xC6\x62\xCF\x1C\x66\xC8\xC6\xF5\x2A\xC6\x03\x1C\xC6\xD6\x12\xC3\x38\xC4\xC3\x3F\xC9\x14\x34\x2D\xC7\x50\xCE\x30\x5D\x21\xC4\x49\x1D\xC1\x06\x16\xC6\x52\x1A\xC7\x3D\xCC\xC7\x84\xC6\x14\x7F\xCD", "\xC8\x43\x16\xC6\xC9\x82\x15\x83\xC3\xC4\x43\x16\xC8\x8F\x17\xC5\x4C\xCA\xC5\x9B\xCE\x13\x6E\xC6\xC4\x9F\xC2\xC4\x33\xC1\xC8\x48\xC3\xC6\x9D\xCD\xC5\xA7\xCF\x0F\x73\xCF\x27\x76\xC2\x10\x78\xCB\x1D\xA1\xCB\xC3\xA9\xC1\xCB\xA4\xC6\x10\x71\xC6\x1D\xB4\xC1\xC9\x0A\x14\xC7\x04\x3D\xCA\x01\x1F\xCA\xDE\x1A\xC8\x5C\xCF\x13\xC2\xC3\xCC\x3D\x1F\xC8\x96\xCF\x13\x66\xCD\x30\x85\x15\xC9\xA3\xC7\xC9\x0A\x19\x3B\x85\x15\xCC\xC6\xC4\xCD\xC3\xC8\xCC\xCF\xCA\xCC\x0A\x1C\xCC\xA2\x1E\xCC\x7B\xC6\x14\x98\xC2\x10\xD2\xC6\xCA\x80\xCD\xC4\xB3\xC7\xCE\xE5\xCC\xC9\xE9\xCE\xC9\xE8\xC0\xC9\xDA\xC5\xCA\x6D\xCD\xCE\xC9\xCC\xCE\xEB\xCD\x13\xAB\xCB\xC1\x85\xCC\xC2\x83\x1A\x1F\xF5\xCF\x0F\xD6\xCF\xC5\x0A\x16\x38\x26\xC1\xD0\xAC\xC9\xCF\x09\x18\x4C\xF8\xC0\xCE\x0A\x18\xD0\xA2\x19\x8C\x93\x11\xCE\x01\x13\x4E\xD3\xC9\xCA\xC9\x83\xC9\x06\xD6\x10\x12\xDE\xC2\xA9\xC6\xC6\x02\xD2\x1A\x1C\xD5\xD0\x0A\xD7\xD0\x17\xC4\xD0\x03\xD5\x38\x20\xD0\xCD\x22\xD9\xC4\xFD\xC9\xCB\xEA\xCE\xCE\xF4\xCE\xD2\xA8\xCB\xD2\xF2\xC9\xCD\x3E\x16\xC6\x07\x3A\xD2\x30\xDF\x0F", "\x2C\xDF\xD2\xF3\xC6\xCF\x0A\x15\x2D\x38\xDD\xD3\x3A\xD3\xD3\xDF\xCA\xCB\x09\x13\x33\x41\xD4\xD3\x31\xD9\xD3\x3B\xDE\xD3\x09\x1D\x39\x49\xD5\xD4\x2D\xD2\xD4\x4D\xDA\xCA\x0A\x13\x3C\x51\xDB\xC8\x4B\xC2\xD3\xFD\xC6\xD3\x9A\xCC\xD5\x4C\xDB\xD1\x0A\x17\xD3\xE4\xC1\xD6\x60\xD2\xD4\x66\xC1\x34\x2A\xC7\xD1\x03\x15\x44\x59\xD6\xCC\x4B\xD4\xD5\x62\xD9\x10\x6A\xD4\xC5\x6C\xD2\x10\x6E\xD5\xD6\x72\xD7\xD6\x4A\xD6\xD5\x74\xD7\xD2\x3F\x10\xD1\x44\x43\xD2\x09\x1A\x39\x7A\xDD\xD7\x55\xD9\xD8\x73\xD6\x10\x86\xD1\xCF\x7C\xD2\xD5\x3C\xDD\xD7\x70\xC4\xD8\x8C\xDF\xD5\x66\xD7\xD9\x68\xDB\xCB\x80\xDE\x13\x82\xD0\xCC\x89\xC9\xCA\xFF\xC9\xC5\x8A\xDF\xD8\x5A\xD6\xD4\x06\x14\xD6\x8E\xD9\xD3\x66\xC0\xD4\x87\xD0\xD9\x4E\xD6\x10\x48\xDD\xDA\xA5\xDF\xCE\x06\x10\xD5\xB2\xD0\xD7\x7E\xD6\x10\x58\xD7\xDB\x70\xDE\xD5\x6F\xDD\xDB\x63\xD6\xD9\x99\xDF\xD7\x09\xD8\xD2\x06\x19\xD7\xA9\xD3\xDC\x06\x15\xD7\x69\xC7\xD7\x01\x18\xDC\xB8\xCB\xD8\x03\x1C\xDC\x75\xCE\xDC\x83\xD5\xDC\x81\xDA\x10\xD0\xD5\xDD\x21\xD7\xDC\x9B\xDD\x13\x82\xDB\xDD\xDE\x19\x8C\x88", "\xC6\xDD\x55\x45\x18\x0E\xD3\x18\x82\xD7\xDE\x0D\xDE\x30\xEB\xD2\xDC\x92\xD1\xDC\x25\xD4\x2D\x94\xD3\x10\xB1\xD2\xC7\x0A\x16\xDB\xF8\xD9\x10\xBB\xDB\xDF\xA7\xD5\xDF\x02\x18\xDA\xD6\x19\xD6\xDF\xDF\x0F\xE1\xD0\xE0\x01\x14\xDD\xBD\xC6\xDD\xE2\xD7\xC4\xCB\xD5\xE0\x07\xE8\xDD\x9C\xDA\x10\xF7\x43\xD1\x5D\xD4\xD2\x1E\xD8\xE1\x76\xDD\xDD\x03\x1C\xD0\xFE\xD3\x10\x1D\xDF\xE1\xC6\x80\xE1\x0B\xD0\xDF\xAE\xD3\xD4\xA4\xD8\xDB\xA3\xD8\xD9\x88\xD2\xDD\x01\xE6\xE2\xB3\xD1\xD9\x27\xE5\xD5\xAB\xD0\xE3\x2A\xE4\xD4\x31\xEF\xDA\xF6\xD6\xE3\x70\xDB\xE2\xCA\xD3\x10\xFA\xD1\xDD\x29\xED\xE3\x2E\xE1\x10\xFD\xD2\xE4\x2C\xE3\xE3\x45\xE6\x30\x3C\xE6\xCC\x3E\xE1\xDF\x09\x12\xE0\xB0\xC8\xE3\x37\xE7\xE1\xC4\xDB\xD6\x1C\xE8\xD7\x4D\xE3\xCC\x4F\xE7\xE2\x04\xE2\xE1\xE0\xDA\xDD\x5B\xEC\xC5\x5D\xE9\xE3\xB9\xD3\xDD\x24\xE9\x10\x0D\xEC\xC8\x42\xD5\xD1\xEA\xDA\x10\x8D\xD9\xC7\x14\xDA\x10\xE5\xD9\xE5\x01\x11\xE7\xDB\x11\xDA\x6F\xC0\xE7\x63\xE2\xDA\x54\xE4\xE4\x56\xE5\xD9\xBF\xDE\xE4\x7F\xE6\xCC\x93\xD3\xDF\x03\x18\xE7\xDE\x15\xE6\x55\xEA\xDA\x9A\xD0", "\xE6\x06\xEA\xCF\x88\xE2\x10\x8A\xE2\xCA\x4A\xE3\xE4\x84\xE1\xE8\x89\xED\xE7\x4F\xCC\xE8\xC0\xD0\xCF\x03\xEC\xE7\x83\xEC\xE5\x85\xE3\xCC\xF7\xC8\xE5\xC6\xD7\xC7\x83\x1A\xE7\xA0\xC5\xEA\x64\xEE\xEA\x7E\xE8\xE9\xA4\xEA\xE9\x2F\xE3\xEA\xAF\xE2\xEB\x00\xD9\x10\xAC\xD9\xDC\x2D\xE8\xEB\x65\xCA\x10\xF7\xD8\xE4\x7B\xD9\xE4\x66\xE6\xC6\x41\xE3\xE5\xBE\xED\xE9\x4B\xE7\xE4\xC8\xE4\xEC\x8D\xEF\xE3\xB5\xEC\xDB\x99\xEE\xEC\x9F\xEF\xDF\xB6\xE1\xEB\xD4\xE6\xE8\x11\x19\xE6\xDE\xD7\xED\xCA\xE9\xEC\x46\xCF\xE5\xA8\xE9\xDD\x6A\xEC\xE9\xAD\xE0\xEE\x0E\xE8\xE6\x90\xE1\xE1\xD2\xE3\xEB\xD9\xEE\xEE\xC3\xE1\xEF\xBD\xEE\xE8\x51\xE6\xEE\x96\xE6\xE6\x34\xEF\xD3\xF6\xE2\xCB\xE8\xE9\x14\x66\xC1\xEC\xCD\xE2\xEF\x97\xE4\xEF\xB5\xDB\xEF\x5B\xDF\xEE\xB9\xEA\xDB\x06\xF6\xCE\xFD\xE5\xCB\x03\x12\xE5\x8B\xE0\xEB\xDF\xE4\xF0\x0F\xFB\xF0\x53\xD3\xEF\xD0\xE9\xE0\xDC\xED\xD6\x16\xF2\xE3\xF8\xEB\xE4\x0A\xE6\x25\xBE\xC7\xDD\xED\xE7\xEB\x08\xFF\xEB\x57\xEB\xE1\xA9\xEA\xE5\x16\xE9\xD3\xE9\xD5\x18\x82\xD5\xE9\x6C\xED\xD7\xAC\xE2\xF2\xD6\xD1\x44\x2D\xF2\xD4", "\x35\xFC\xEF\x27\xF3\xF1\x02\xFF\xF1\x0D\xFC\xF0\x14\xF1\xED\xBC\xE3\xF0\x3F\xF8\xDB\x35\xEE\xED\xE7\xED\xF3\xE1\xE0\xEC\x1D\xF1\xD7\x18\xF0\xE5\x05\xFA\xF4\xF7\xEF\xEC\x52\xF3\x10\xCC\xE1\xF1\x41\xF7\xF1\x5E\xE2\xDF\x25\xF8\xED\x47\xF5\xED\x15\xF4\xF5\x3C\xF1\xF6\xDA\xE9\xF2\xCD\xD6\xE7\x24\xF5\xF4\x40\xFC\xF4\xE9\xE2\x10\x21\xF8\x26\x23\xFB\xE6\x07\xF6\xF6\xF0\xE7\xF5\x70\xFB\xF1\x2C\xFF\xF5\x3E\xF1\xF5\x5D\xF5\xEF\x64\xFE\xF0\x02\x1B\xEB\xC2\xE8\xF7\x01\x10\xF0\x5A\xF3\xF4\x9C\x3F\xF4\x67\xE2\x10\x59\xF5\xF5\x62\xF4\xF4\x85\xFF\xF7\xD6\xEC\xF7\x4D\xF8\xF6\xDC\xDB\xF2\xCF\xDC\xF8\xE2\xEA\xF2\xE4\xED\xED\x96\xFF\xF6\x1A\xFB\xEE\x62\xE1\xF8\xA6\xD3\xF6\x19\xEA\xEB\x08\xE0\x00\x88\xF2\xFA\x00\x07\xEC\xDE\x16\xC6\x8F\xFE\xEF\x5E\xF2\xE2\x01\x10\xF1\xAE\xF1\xF7\x4E\x23\xF7\xAB\xFA\xFB\x50\x2C\xFB\x93\xE3\xFA\xE3\xE3\xE1\xE5\xE9\xF3\x34\xF9\xCA\xD8\xC4\xF9\x03\x1A\x36\xCD\xC9\xCA\x82\xDA\x4B\xC6\xF7\xE2\x3B\xFE\xC8\x4B\xEC\xFC\xDD\xCE\xFC\x0A\x10\xFD\xA1\xF5\xF6\x7E\xFD\xF6\x76\xF9\xF0\xA8\xFC\xF6\x56\xFA\xFC\x83", "\xFC\xF8\xF9\xE7\xD4\xE6\xFB\xE4\xB0\xF0\xF9\xD3\xE9\xF1\x00\x03\xFB\x75\xFD\xFD\x48\xF5\xFB\x93\xFE\xFD\x86\xFC\xE4\xA6\xFC\xF5\xC5\xEB\xED\xA4\xF5\xFC\xDB\xF1\xFF\xE4\x7A\xF8\x5E\x7C\xE2\x70\xFA\x62\x7C\xA0\x6A\x7C\x00\x06\xF7\x4C\x12\xE0\x7F\xFF\x42\x7B\xF7\x68\x79\x95\x7E\x00\xA7\x7A\xFA\x69\xFF\x35\x6A\xD3\x75\x80\x3A\x72\x20\x2B\x7E\xEE\x71\x00\xEF\x7C\xE7\x74\x7F\x01\x7F\xFE\x78\x7C\x0E\x8B\xFF\x18\x7F\x82\x6A\x7B\x74\x7E\x01\xB7\x7E\x05\x8B\x25\x0C\x82\x04\x86\x75\xFC\x7B\xF8\x61\x72\xFF\x7F\x1C\x53\x7F\x50\x16\x81\x3F\x09\xF9\x65\x80\xAE\x0F\x1C\x5E\x66\x99\x62\x6C\x93\x08\x07\xBE\x08\x21\x87\xCC\x4B\x73\x64\x1E\x81\xB8\x68\x08\xA9\x7F\xAD\x7E\xF1\x63\x7E\xFD\x66\x7A\x22\x83\x09\xAE\x7A\xDA\x7A\xFA\x18\x80\x8A\x73\x82\x82\x7F\xF0\x52\x83\x07\x8B\xE7\x4F\x6B\x16\x92\x7F\x91\x7E\xC8\x5F\x82\x28\x8D\x01\xA3\x80\x00\x8F\x82\x68\x83\xFE\x40\x7D\x06\x8A\xFF\x4E\x82\x1A\x8F\x70\xFD\x7D\x00\xB5\x7E\x37\x87\x00\xEE\x7C\x0B\x82\x13\x2E\x83\x0E\xB5\x82\x30\x83\x01\xEA\x76\x0C\x91\x74\x34\x86\x3A\x3C\x67\x9C\x64", "\x04\xFF\x07\xCB\x62\x0D\x82\x6C\xD5\x6E\x72\x98\x7A\x10\x2C\x76\x19\x75\x73\xBF\x7E\xBA\x43\x85\x01\x83\x03\x86\x0A\x82\x11\x7E\x3B\x83\x20\x11\x18\x2B\x8E\xE9\x6D\x7F\xFD\x68\x82\x24\x84\x0E\x9E\x84\x32\x89\x09\x87\x0B\x18\x89\x83\x7B\x85\x03\x9B\x84\x36\x8D\x04\xA9\x85\x29\x97\x7D\xAB\x78\x14\xA7\x82\x51\x87\xF7\x65\x83\xEA\x7C\x1A\x2F\x86\xE4\x5C\x83\xCB\x71\x01\xA1\x75\x42\x0B\x85\xB9\x80\xEC\x7C\x82\x18\x85\x05\xA9\x7E\x41\x12\x85\x2A\x84\x14\xB4\x84\xF0\x75\xFE\x41\x7C\x41\x07\x85\xCB\x80\x02\x83\x08\xC2\x7B\x1D\x66\x60\x30\x9A\x83\xA3\x80\x15\xBD\x82\x81\x0D\xFA\x54\x83\x31\x90\x86\xAE\x87\x0D\xBB\x70\x67\x88\x0B\xD8\x85\x2D\x9A\x86\xC4\x80\xB6\x6B\x7D\x6B\x81\x02\xCA\x85\x38\x81\x83\xAF\x79\x16\xA0\x87\x6C\x82\x0E\x9A\x83\x2D\x93\x87\xE7\x85\x1E\x8B\x7C\x72\x88\x0F\xBA\x87\xFD\x70\x7F\xA7\x7A\x20\x2C\x87\xC4\x7B\x0B\xEC\x7D\x3A\x98\x7A\xF2\x84\x13\x92\x78\x5E\x88\x10\xCE\x87\xC4\x06\x86\x03\x0D\x55\x0E\x87\x81\x86\x10\xFE\x86\x3B\x9B\x86\xB0\x86\x19\x88\x87\x36\x8F\x0E\xF4\x84\x3C\x86\x83\x01\x89\x20", "\x25\x87\x76\x88\x0E\x96\x8B\x2B\x98\x7F\x10\x8A\x20\xBD\x86\x61\x86\x0B\x9A\x8B\x4A\x9D\x7B\x2D\x89\x25\xA2\x89\x97\x8B\xF4\x6E\x7C\x48\x94\x6D\x03\x0E\x59\x32\x88\x00\x04\x11\xA1\x85\x47\x99\x87\xF0\x87\x0E\xA9\x13\x3C\x85\x0D\x8A\x0B\x46\x8D\x85\x1E\x89\x29\x87\x89\xBC\x71\x07\x9C\x78\x3F\x8A\x88\x4C\x81\x03\x82\x81\xB4\x7A\xF9\x6B\x7A\x2F\x86\x08\x3D\x8B\x16\xBF\x88\x93\x8A\x0F\x89\x82\xDE\x7B\x7C\x2E\x88\x2A\x98\x83\x90\x8E\x15\xCD\x8B\xDE\x76\x7D\xCF\x82\x2C\x85\x88\x6F\x8E\x07\x94\x84\x20\x92\x83\x45\x8F\x17\xB4\x89\x8A\x82\x0D\xCC\x8B\x1F\x8C\x77\x68\x8F\x28\x90\x7B\x8B\x80\x14\x98\x89\x59\x97\x8B\xA5\x7B\x27\xA3\x88\x82\x83\x0C\xDC\x89\x50\x9F\x8A\x56\x89\x2E\xB0\x82\xC0\x81\x08\xF9\x70\xC8\x68\x8C\x29\x80\x27\x82\x09\x5A\x1E\x0C\x94\x8F\x4E\x96\x8C\x35\x83\xC9\x42\x16\xB3\x81\x10\x65\x1A\x33\x9B\x8C\x8C\x8E\x20\x1E\x8C\x8D\x6D\xCF\x13\x0F\xC8\x64\x1F\x98\x85\x2B\x90\x85\x05\x82\x09\xAB\x7F\x6A\x8D\x81\xAD\x89\x35\xB0\x6A\xD3\x86\xDD\x37\x66\x63\x94\x75\x01\x0F\x35\xB8\x83\xD8\x8B\x13\xBA\x8F\x50\x9C", "\x8D\x99\x8D\x9F\x45\x85\x47\x88\x18\x93\x87\x55\x99\x64\x9C\x88\x00\x06\x8F\xDB\x88\x00\xA0\x8E\x5B\x82\x6C\xA3\x89\x38\x88\x80\xA1\x84\x1B\xA8\x83\x60\x07\x84\xCF\x0F\xBD\x72\x8C\x63\x68\x1D\xD6\x0E\x60\x7D\x86\x46\x0B\x11\x88\x85\x0B\x8B\x13\xCE\x8C\x55\x9F\x7C\x03\x09\x3A\x87\x8E\x81\x06\x1E\x99\x7C\x7A\x82\x08\xEA\x8A\x31\x91\x89\xD5\x72\x11\xBB\x88\x75\x98\x7E\x8D\x89\xF6\x4A\x09\xFA\x88\x16\xFC\x8F\x7A\x93\x8A\xEE\x8C\x00\x8E\x8B\xCB\x8B\xFA\x18\x8F\x7F\x80\x00\x06\x93\x3B\x1D\x8F\xED\x02\xD8\x03\x8F\x67\x7D\x67\xE2\x89\x3B\x8A\x08\x07\x93\xF3\x1D\x82\x7F\x92\x8F\x02\x0F\x42\xBA\x8E\x13\x86\xF3\x56\x8E\x33\x97\x8F\xFD\x60\x2F\x87\x91\x04\x9B\x21\x86\x08\x89\x8E\x7D\x27\x95\x42\xBF\x81\x87\x0B\xEA\x4B\x71\x7C\x87\x81\x55\x89\x92\x0E\x87\x17\x9D\x21\xD5\x88\x23\x33\x91\x88\x8A\x94\x09\x8F\x1B\x91\x1A\x83\x0A\x8E\x9D\x91\x02\x0F\x47\x8F\x8F\x8D\x0B\x0E\xF3\x8A\x4F\x8A\x8A\xCC\x81\x20\x3A\x8B\x2B\x8B\x16\xDA\x88\x92\x95\x8B\x33\x8A\x2D\x85\x8C\x96\x87\x12\xD9\x89\x32\x85\x89\x54\x95\x2B\xB7\x88\x0B\x89\x10", "\x4B\x91\x27\x9D\x8B\x4B\x89\x23\x82\x8C\x23\x9E\x24\xE1\x90\x4A\x88\x8B\x56\x94\x23\x8F\x92\x98\x87\x12\xD4\x85\x89\x83\x08\x5E\x93\x21\xB4\x8B\x2E\x84\x01\xE3\x92\x94\x9C\x8B\x49\x90\x00\x2E\x92\xD7\x79\x26\xC8\x88\x98\x86\x8C\x7E\x88\x3C\xA4\x8B\x38\x91\x15\xCC\x93\xFD\x62\x94\x92\x89\x4A\xAC\x85\xBD\x88\x25\xF4\x93\x38\x9B\x89\x7D\x94\x51\x91\x86\x36\x9D\x15\x9B\x81\x16\x80\x00\x84\x93\x2C\xAA\x92\x33\x96\x29\xE4\x88\x85\x85\x93\x80\x97\x4F\x90\x93\x78\x8F\x14\x8B\x96\xA1\x98\x93\xA3\x90\x20\x89\x94\x4C\x94\x26\xD7\x91\x57\x8A\x95\x5C\x90\x2B\xAD\x95\x4D\x99\x27\xB0\x96\x54\x80\x00\x0F\x8D\x3F\x85\x93\x3B\x9D\x28\x8C\x8A\xE4\x78\x90\x4A\x93\x56\xBE\x93\x3C\x9B\x25\xB7\x97\xA7\x8E\x95\x5B\x89\x4B\x9F\x89\x5D\x96\x2A\xDF\x90\xB1\x89\x88\xCD\x92\x4E\xAC\x8B\x5F\x9F\x26\xA6\x84\xAF\x93\x94\xBE\x92\x4C\xA8\x8A\x9D\x88\x26\xC2\x96\xA4\x87\x8C\xC9\x89\x32\xB1\x94\x38\x9E\x2D\xA7\x97\x49\x80\x91\x39\x6A\x44\x80\x97\xB4\x81\x2D\x85\x95\xE7\x67\x8F\x02\x97\x2C\x87\x91\x48\x96\x2E\xD8\x97\x9C\x99\x96\x7F\x8B\x48\xB9", "\x8E\xD7\x79\x29\xCD\x90\xB2\x9E\x8B\xE8\x92\xA8\x6A\x97\x6A\x9A\x28\xC1\x84\xA5\x89\x96\x8E\x96\x2E\xBA\x96\xB8\x84\x30\xBC\x89\xB9\x87\x7F\x8B\x8B\x61\x83\x91\xBC\x8F\x30\x8F\x8D\xB8\x97\x87\xD7\x90\x61\xB8\x97\x80\x9D\xD7\x03\x9B\x83\x88\x80\x96\x18\x47\x89\x8E\x19\x9B\x13\xA1\x9B\x4E\x94\x91\x72\x7E\xBA\x7C\x90\xB4\x86\x32\xAC\x9B\xEA\x68\x99\xBB\x7E\xBA\x42\x93\x03\x90\x33\x91\x86\xDA\x64\x99\x68\x8D\x66\xAC\x8C\xB5\x7B\x32\xB4\x99\x8E\x8D\x91\xB8\x88\x00\x3A\x98\xD8\x87\x33\xAF\x98\x62\x9D\x99\xEB\x93\x68\xBB\x8C\xB5\x73\x33\xCC\x8E\xFB\x6A\x9A\xBF\x8D\x68\xA2\x98\x20\x91\x10\x48\x99\xC3\x90\x9A\xD5\x8D\x2A\x8D\x9A\xEF\x02\xD8\x2D\x9A\x20\x89\x65\xCB\x8E\xCC\x61\x9B\x24\x8A\x10\x1F\x66\x60\x76\x95\x6F\x8B\x20\x27\x26\x46\x89\x10\x6B\x9B\x78\x9E\x82\x85\x0B\x6C\xB0\x6A\xB9\x96\xCC\x02\x6D\x3A\x2C\x9B\x06\x0B\x9D\x38\x9B\x81\x0D\x3F\x7B\x9A\x40\x1D\x9B\x6F\x9E\x20\x1A\x20\x09\x99\x10\x6F\x26\xDF\x81\x08\x86\x99\x70\x83\x09\xC7\x1A\x38\xA3\x71\xDC\x98\x8F\x06\x0C\x97\x07\x9D\x4D\x4F\xE6\x09\x08\xF7\x13\x9C", "\x7B\x96\xBA\x49\x25\xC6\x91\x10\x69\x1F\xE4\x99\x95\xDE\x8A\x21\x34\x96\xC1\x66\xFD\x04\x9E\x41\x05\x9D\xA1\x99\x21\x05\x1E\xCE\x9F\x8C\x15\x9E\x41\x1C\x96\xA9\x9F\x75\xAE\x9D\x81\x07\x46\x13\x9D\xED\x8C\x9D\xBC\x63\xE4\x79\x9C\xEB\x62\x14\x82\x6D\xEF\x8C\x91\x93\x9B\x74\xBC\x49\xD9\x92\x10\x65\x27\xE4\x86\x9E\xAC\x98\x79\xA6\x9D\x81\x0A\x3C\xD6\x0E\x18\x1C\x61\x3C\x81\x7A\x81\x08\xF2\x65\x36\x8A\x09\xD8\x94\x9E\x09\x0C\x87\x57\x9E\x3A\x75\x3D\x89\x09\xD8\x9F\x9E\xD6\x9D\x11\xA2\x9F\x84\x0A\xC8\x5A\x9D\xF7\x86\x08\x61\x9E\x7C\x89\x09\x4B\x88\x3E\x8A\x08\xFB\x83\x08\x61\x9F\x7D\x82\x09\xB0\x96\xC6\x6A\x9F\x21\x67\x9F\xF0\x9C\x7B\x99\x9F\xF0\x99\x10\x3A\x82\x0E\x9E\x81\x3E\x82\xB0\x61\x15\x84\x0A\x21\xA4\x92\x00\xBB\x8F\x0A\x0C\x44\xAD\x8E\x00\x07\x40\x84\xA1\x02\xAA\x08\x0D\xA4\x55\x0F\xA0\x42\x1A\x10\x03\xA2\x04\xA9\x08\x06\xA5\x82\x88\xA0\x0C\xA0\x41\x9A\xA2\x03\xBC\xA0\x14\xA1\x21\x16\xA1\xF9\x80\x42\x86\x09\x04\xA4\xA1\x26\x95\x21\x1D\xA0\x11\xAB\x41\xA9\xA1\x42\x10\x9D\x01\x0F\x84\x99\x91\x09\xA2\x3B\xC5", "\x84\x72\x86\x08\xF6\x9B\x1A\xBA\x9E\x1C\xAC\x3F\xF5\x93\x0D\xB1\x60\x3D\xA3\x20\x36\x8C\x04\x94\xC2\x34\xA3\x40\x0B\xA0\x43\xA4\x44\x89\xA3\x22\xA5\x42\xC2\xA2\x11\xA2\x08\x4B\xA0\xD4\x41\x08\x25\xAF\x44\x81\x08\x0C\xA0\x00\x51\xA5\x86\xB6\x65\x2A\xAD\x2C\x0A\x0B\x02\xB7\xA2\x60\xA0\x04\xA7\x92\x81\x0C\xCD\x03\x09\x19\xAA\x89\x2C\xA7\x83\xAE\xA0\x59\x99\x46\x97\xA3\x1A\xA7\xA2\xA2\x9E\x83\xAE\xA2\x5A\x11\x47\xED\xA0\x0A\xB4\xA3\x72\x8E\x8E\xB3\xA1\x26\xA8\x46\x86\x0B\x08\xBB\xA3\x6F\xA5\x8F\x83\x09\x3F\xA1\x10\x05\xA1\x1D\xBE\xA3\x2D\xA0\x8F\xAC\xA2\x44\xAA\x46\x8A\xA5\x4E\x87\xA4\x83\xA1\x91\x93\x8C\x15\xA9\x47\x8C\xA7\x1C\xB3\xA4\x2F\xA0\x78\xAA\x87\x84\x0C\xCB\x6E\x91\xFD\x81\xA2\x52\x62\xDF\x49\x09\x4F\xAE\x3D\x8F\x76\x0F\xA2\x08\xA4\xA5\x7D\xA6\x80\x4F\xA8\x3F\xF3\x9D\x0C\x9A\xA1\xA3\xA5\x95\x81\x09\xB0\x9A\xE0\x2C\xA7\xFE\x85\xA5\x09\x0B\x30\x84\xA4\x00\x06\x48\xB9\xA6\x1C\xB7\xA3\x98\xA6\x20\x0B\xA0\x5D\xA2\x49\xD3\xA3\x84\x9F\xA5\x80\xA6\x91\x96\x96\x4B\xA0\x4C\xC6\xA6\x2F\xBA\xA3\x85\xA4\x8B\x84\xA7", "\x46\xA1\x4C\xC3\x44\x32\xB1\xA6\x7C\xA5\x60\x82\x09\x5D\xAD\x4B\xDA\xA2\x35\xB0\xA6\xBC\xA4\x8B\x97\xA3\x69\xA7\x49\xCE\xA6\x37\xB0\x8F\xD7\xA1\x9C\x99\xA6\xA1\x99\x4E\xDD\xA4\x1C\xA9\x08\x2F\x94\x9B\x9C\xA3\x78\xA5\x4C\xC4\xA0\x3C\xAD\xA7\xF3\xA0\x9F\xAB\xA6\x7A\xA4\x4D\xE6\xA5\x7A\x9A\xA7\x81\xA5\x33\x80\xA8\x65\xA6\x45\x8A\x08\x3F\xA5\xA7\xF6\xA7\x9C\x82\xA8\x70\xAE\x4E\x82\x0B\x15\xA8\x9D\x01\x0A\x9E\xAB\xA6\x88\xA0\x00\x12\xA9\x40\xA0\x00\x0B\xA4\xA2\x96\xA8\x82\xA0\x00\x1A\xA9\x3D\xA4\x91\x1E\xAD\x9F\x89\xA9\xE5\x73\x50\xD5\xA6\x40\x01\xA9\x08\xA8\xA4\xA5\xA8\x7F\xA7\x52\xAB\xAB\x48\xAE\xA8\x0A\x08\xA5\x8D\xA7\x97\xA5\x50\x89\x0A\x4C\xA9\xA6\x26\xAD\xA6\x97\xA8\x05\xAC\x45\xA4\x92\x4F\xBD\xA9\xE2\xA1\xA8\xAB\xA7\x2B\xA1\xE2\x0E\x9E\x30\xBA\x70\x46\xA8\xC4\x48\xAB\x80\x05\x54\xCC\xAB\x52\xBD\xA2\x26\x69\x93\x91\xAA\x85\xAA\x4E\x97\xA9\x43\xA1\x08\x0B\xA7\xAA\x95\xAA\x8E\xAA\x55\xDD\xA8\x17\xBE\xAA\x43\xAF\xA3\x94\xA5\x94\xA3\x56\x8B\x9C\x17\xAC\x9C\x1C\xAB\x81\xA8\xAB\x9C\xA0\x00\x6B\xA8\x4B\xA1\x08\x6E", "\xAC\xA6\xAD\xAB\xB3\xA4\x57\xEB\xA5\x5C\xA4\x91\x57\xA7\xAE\xA5\xAA\x81\x0A\x57\xD2\xA8\x33\xB8\xA9\x6F\xAD\xA2\xA2\xAA\x5C\x4E\x52\xA4\x93\x46\xAC\xAB\x87\xA9\xB0\x89\xAC\xB9\xAB\x58\x86\xAF\x60\xBF\xAB\xD8\xA7\xA2\x97\xA3\xC6\xAB\x57\x91\xAB\x63\xAF\xA4\x09\x0E\x6B\x81\x08\xCD\xA0\x00\x0A\x74\x65\xB0\x9B\x90\xAB\xAB\xAC\xAB\x71\x61\x49\xA2\xA8\x89\x9E\xAC\x97\xAC\x3D\xB9\x6F\xC2\xAE\x45\xD1\x64\x6B\xA4\xAC\x85\x6F\xB5\x93\x7B\xD0\xAA\x55\xA4\xAF\x36\xA9\xAD\x77\x72\xB6\x80\x72\xDD\xA2\xCE\x3C\xAD\x6E\xAC\xA8\x5C\xA0\xF6\x5F\xAC\x83\x06\x5B\x96\xAE\x69\xAE\xAD\xC0\xAB\x9D\xA8\xAD\xE3\xA0\x5A\xA5\xAC\x59\xB1\xAD\xC9\xAF\xA2\x82\xAE\xDC\xA0\x00\x45\xAE\x60\xAC\xAE\x82\x74\xB6\x81\xAE\xDF\xA5\x5D\xDC\xAF\x72\xAF\xAE\x54\xAB\xBA\x98\xAE\xCC\xA4\x5C\xDC\xAF\x15\xBF\xAE\x33\xA8\xAF\xAB\xAD\xE8\xAC\x51\xD7\xA2\x75\xA3\xAE\xE4\xAB\xD3\x6C\xAE\xB6\xA7\x45\xE2\xAC\x78\xB1\xAF\xBD\xAB\xBE\x81\xAD\x2B\xA9\xF5\x2B\x9F\x40\x17\x9C\x06\x08\xC0\x83\x08\xD4\x86\x10\x1E\x9D\x80\xAA\x08\x04\xB3\x20\x06\xB0\xBE\x97\x11\x12\x76", "\x41\x18\x79\x0C\x9C\xBD\x74\x9C\x85\x0B\x39\x8A\xB2\x42\x0B\xB0\x02\x0E\x6A\xB8\x98\x81\x0D\x49\x09\x09\x87\xA6\x08\x5B\x9D\x94\x06\x08\x11\xBE\x23\x88\xB3\x85\xA6\xB1\x09\x08\xC3\x81\x08\xED\x76\x61\x89\x08\x8B\xA2\x08\x2A\xB1\x94\x0A\x08\xC9\x96\x10\x1E\x72\x40\x16\xB1\x01\x09\xC1\xB0\xB1\x12\x79\x10\x3A\xB1\xE7\x8A\x08\x19\x6A\xBE\x9A\xAF\x75\xA1\x64\xF6\x86\x7E\xB2\xAB\x45\xB1\x20\x2F\xAE\xEA\xA9\x64\x9D\xAC\x77\xAB\xA0\x4D\xB6\xBE\xA9\xAF\xD6\xA9\x10\x4D\xB3\x92\xA3\xAF\xAA\xAD\xCA\xA2\x75\x21\xB7\x51\xD1\xB0\x77\xB6\xB2\x5F\xB3\xCB\x8E\xAF\x29\xBA\x65\xCD\xAF\x6D\xB8\xB2\x11\x68\xB9\x9C\xB2\x8E\xAD\x64\xE8\xAC\x60\xA8\xB2\xEB\xAB\xCD\xAC\xAA\x30\xB7\x64\xA4\x90\x9D\xB2\xB3\x81\xAE\xCB\xB5\xB2\x20\xB2\x66\xE7\xB3\x7D\xA2\x08\x4D\xB1\xD0\xBD\xB2\xE3\xAF\x67\xE9\xB2\x99\xA4\xB4\x64\xB0\xA3\x6A\xB3\x31\xBF\x66\xF6\xB3\xA0\xB7\xAE\x85\xB0\x00\x3A\xB2\x3C\xB0\x67\x89\x0B\x95\xB1\xB4\x82\xB0\xBA\x94\xB4\xF5\xA5\x66\xB3\xAC\xA3\xB1\xAC\xED\xAC\xCF\x96\xB4\xF3\xA2\x6A\xD9\xAF\xA7\xA2\xAD\xFB\xAD\xD4\xBB\xAD\x3D", "\xBE\x57\x83\x0B\x9D\xA7\xB5\x5A\xAF\x8A\xAD\xB2\x52\xBD\x69\xAB\xB7\xA6\xB5\xAC\x92\xB3\xD1\xBE\xB3\x44\xB8\x5F\x81\x09\xF3\x9E\xB5\x0A\x0E\x6D\x8C\x9E\x85\x07\x37\x86\x09\xB1\xA3\x08\xC7\xB2\x20\x3A\x9B\xBC\x9A\x10\x4B\xB7\x40\x09\x9C\xCF\xB2\x21\x10\xB6\x81\x02\x4F\x52\x9D\x40\x10\x9E\xD6\xB1\x20\x14\x07\xE5\x89\x8C\x3C\x62\xFC\x9C\x81\x3C\x65\x1A\x1C\xB7\x1D\xA8\xC2\x59\xB4\x2B\x54\x0F\xC9\x43\x20\x81\x0A\x1E\x66\x0D\x63\xB5\xB6\xAB\xA0\xEB\xB2\x21\x17\x06\x77\xB6\x6D\x9A\x92\xB9\xA0\x00\xD8\x04\xDE\x83\x09\x64\x40\xF1\x77\xB5\x36\x1A\xB7\xAE\xA4\xBF\x77\xB6\x85\x0A\x0D\x00\xBB\x2C\xB7\x6A\x03\xB9\x21\x1B\x06\x83\xB2\x57\x80\x9D\xC2\xA1\x08\xDC\x04\xE1\x9A\x90\xE4\x29\x6D\x9F\x65\x50\x1B\xA5\xC1\x2D\xE2\x8A\x09\x6E\x0C\x70\x82\x6E\x61\x3A\xB8\x09\x0E\x1B\x0C\xB9\x6F\xB0\x00\x58\x29\xB6\xB6\x68\xC9\x0E\x07\x9A\x2B\x93\xB4\x1F\x3C\x63\xED\x8F\xB8\x00\x07\x1B\x0C\xB9\x5D\xA0\x61\xB0\xB8\x38\x0C\xB8\x61\x9B\xDA\x89\xB9\x70\x08\x73\xD2\xB4\xCC\xA2\x08\xE2\x04\xE1\xA4\x90\x67\xBF\x70\xE3\x07\xC8\xAA\x08\xF4\x24", "\xE5\x89\x10\x85\x09\x4F\x4A\xBA\x2C\x4A\x08\xFD\x27\xE7\x80\x00\x72\x0C\x70\xBA\x81\x47\x32\xBA\xE5\x02\xE8\x8A\x08\x9B\x22\x75\xE6\x06\xD6\xA9\x08\x54\x2A\xEA\xA7\x07\xAF\xB6\x10\x63\x28\xC8\xA6\x08\xE8\x05\xE3\x8A\x09\xBA\x22\x75\xE9\x07\xCC\xAA\x08\xA4\x2A\xEA\xAA\x06\x86\xBB\x40\xEF\x2E\xD3\xA1\x12\x24\x96\xD4\x12\xBB\x75\x04\x76\x83\x0B\xAA\x32\xBA\xEC\x05\xEF\x82\x08\x57\x32\x75\xED\x04\xC3\xB0\x78\x19\x32\xEA\xAE\x07\xC3\xBA\x10\x25\x32\xD4\xAF\x07\x0C\xB8\x74\x81\x09\x13\x32\x75\xF0\x04\xC3\xA3\x88\x29\x3F\xEE\x83\x13\x33\xA1\x10\x05\x3A\xE6\xBF\x11\x43\xA4\xC5\x12\xBB\x78\x0C\x70\xC3\xA1\x8C\x32\xBA\xF2\x04\xE1\x97\xA3\x33\x32\x75\xF3\x06\xEA\xAA\x08\xAC\xBF\xE7\xB4\x07\xD7\xB9\x10\x1E\x36\xD4\xB5\x07\xB4\xBE\x20\x36\xBD\x9F\xB6\x0F\x39\xBF\x40\x0A\x36\x52\xBF\x1E\x3E\xBC\x81\x00\x7C\xBF\xB8\x3E\x05\xBD\x0A\x0E\xDE\x12\xBB\x7C\x08\x7C\x89\x0A\xBE\x32\xBA\xFA\x04\xE1\x88\x7D\x7F\x32\x75\xFB\x04\xE3\xA9\x08\x62\x3A\xEA\x9D\x0E\xC4\x73\x70\x52\xB8\x3F\x17\xBC\x0A\x0F\xE3\x1F\xBC\x2A\x10\xF1\x49\x3A\xD4", "\xBD\x07\x91\xBA\x21\x20\x3A\xA9\xBE\x0F\x0C\xBA\x9B\x96\x3B\xDA\xBC\xE1\xBC\x65\xC1\x32\x75\x80\x02\x1E\x69\x46\x8A\x61\xF0\x23\xBF\xEE\x03\x7F\xF5\xBD\x00\x17\xBF\xA6\xA3\x20\x06\x3C\xA9\xB2\x00\x00\xC0\x27\xAA\x08\x03\xC7\xE7\x83\x00\x03\xC6\x10\x40\x07\x82\x9A\x81\xDD\x0F\xDE\xA8\xB9\x6D\x11\x14\x3E\x8E\x04\xD0\x27\x41\x0C\x6E\x8B\x0F\x0A\xC6\x28\x3C\x62\x05\xC4\xB7\x02\x08\x02\xE0\x0F\xA0\x0A\xC8\x13\xC3\x70\x01\x0A\xD8\x9F\x7E\x81\x11\xA0\x04\x72\xA6\xC3\x71\x11\x90\xA8\xA0\x94\xBF\x11\xA0\x0A\x03\xC9\x46\x0F\x84\x8E\xC6\x1C\x87\x6E\xC0\xE9\x07\x71\xF0\x27\xF6\x8B\xC1\xF5\xA3\x07\xC5\x19\x12\xC4\x1F\x41\x08\x89\x82\xC2\x53\x14\xE4\xAC\x75\x7B\xBC\x44\x7E\x9D\x11\xD4\xB2\xAA\xA7\x41\x39\xA1\x10\xC0\x82\xB3\xC2\x18\xBA\xC0\xC3\x0A\x07\xA1\x9A\x2D\xCF\x84\xE8\x7C\x2E\xA2\x8D\x55\xC0\xD5\x8A\x8E\xA3\x8A\x10\x22\xC1\x72\x01\x0A\x4D\xA8\x00\x1F\xC0\x1B\xAD\x89\x64\xC1\x2C\xA0\xC2\x99\xA9\x0C\xDD\x0F\x21\xA6\x83\xB2\xC0\x95\x01\x0A\xB0\x7A\xF6\x61\xC2\x88\x79\x8C\x3B\xA6\x19\xDB\xC0\x0A\x0A\xC0\xAD\xC3\x00\x1C", "\x79\x94\x9C\x38\xAB\xC3\xD6\xB6\xC7\x86\xC5\x07\x13\x10\xFD\xC2\x1D\xD1\xC0\x27\xB6\x78\x0E\xB9\x18\xC9\x10\x12\xBF\x22\xD3\xA9\x82\x68\x12\xD6\x63\xBE\x31\x24\x5A\xAA\x26\xCF\xB0\x76\xC5\xC2\x83\xC5\x07\x1E\x58\xF0\xC3\x44\x2B\xA0\x99\xC3\x04\xCA\x08\xAB\x98\x84\xF4\x0F\x02\xA9\x91\x67\xC2\x21\x1B\xB1\x83\xBE\x62\xDD\x1F\x15\xBF\xC3\x27\xC3\xC6\xB2\xA4\x2A\x18\xF8\x66\x63\x15\xA8\xC4\xD2\x9F\xD7\xA7\xB7\x00\x1A\xE0\x3E\xC7\x23\xCA\xC5\x09\x0C\xE8\x97\xB6\xA4\xB1\x86\xAF\x93\xA1\x66\x08\xB8\xC7\x38\x01\x0B\xA6\xBA\x82\x8F\x11\x1A\xCF\xC6\x3F\xA3\x48\x01\x0B\xA8\xB5\x8D\xC1\x10\x67\xB8\xC6\x01\xBF\x41\x01\x0B\xAB\xBD\x8D\x82\x0B\x49\x2F\xC3\x9E\xB4\x12\xFD\x85\x80\x09\x39\xB1\xC5\x42\x03\x2A\x9C\xC3\x48\x10\x79\x42\xCF\x89\x83\x09\xD8\xB1\xC2\x03\x0C\xAB\x31\xC7\x80\x05\x88\xC3\xA1\x3D\xC8\x28\x03\x8D\x1D\xC0\xC5\x84\x0F\x55\x7B\xC4\x95\x03\x88\xF4\xC0\x19\xC6\x09\xB0\x2F\x85\x83\x0A\x5A\x26\xC8\x96\xC1\x1A\xFC\xC0\x85\x0C\x56\x0D\xCB\x90\x19\x7A\x3C\x66\x12\xC0\xC7\xE8\x9A\x58\x16\xCB\x8F\x0A\xC4\x19\xCF\x18", "\xEE\xC6\x83\x09\x71\xF8\xC6\x40\x0A\x2E\xE5\xC1\x20\x03\x9D\xF4\x01\x80\xDC\x85\x17\xC6\x08\xD0\x28\x1D\xFC\x1C\x05\x78\x35\xE6\xB5\x75\x3B\x20\xA3\x1A\xC1\x69\xC3\x7F\xC1\x10\x57\x2E\xF1\x19\x2E\x32\xCB\x48\x2F\x90\x8A\xAC\x93\xD4\x12\x7C\x21\xCA\x3F\x14\xA2\x87\x97\x5C\xC9\x10\x07\x33\x2D\xA3\x1D\x69\xC3\x29\xD2\xC6\x85\x09\x78\xBC\xA1\xE9\x11\xAB\x32\x7B\x24\xCE\x28\x45\x76\x5D\xC5\xC8\x13\x2A\x74\x35\xC9\xDB\xA3\x30\x83\xC2\xDE\x49\x46\xA2\x7B\xC9\x0A\xCB\x20\x0E\xBC\x9C\xC3\x10\x14\xBD\x4A\xC0\x00\x12\xB3\x14\xF6\xB5\x7F\xA6\x8A\x83\x0A\xE8\xAC\xCB\x43\x17\xE5\xB2\xCA\x23\xB6\x10\x68\xCA\x56\xC2\x08\x2E\x36\x78\x27\xBD\xB7\xC2\x8A\xD3\x9E\xAE\xBB\xAC\x2F\xCE\xA1\x19\x7B\x4E\x9C\x94\x93\x29\xD6\x7D\xCA\x69\xC8\xA1\x3E\xAE\x81\x0A\x88\xDE\xCB\x13\x2A\xC4\x65\x2D\x2E\xC2\x09\x1A\x3E\x91\xD4\x12\xD5\x81\x9B\x8A\xC5\x32\xD1\xCD\x80\x06\x65\x1D\xCD\x77\x04\xB1\x02\x0A\x91\x4A\xC5\x73\xC2\x8E\x8A\x0A\x9F\x26\xCD\xE0\x0A\x18\xE0\xCC\x55\xBA\x8D\x8A\x0A\xA6\x30\xCD\xC9\x0A\xE7\xA3\xC3\x1E\xBA\x10\x7B\x26\x66\xC1", "\x08\x84\xBE\x24\xFF\x10\x6A\xC9\x3F\xBC\xCD\x42\x14\xB1\x41\x11\x28\x05\xBF\xE2\xCF\x20\x64\xC4\x73\xC3\xB0\x0A\x0D\xDA\xAD\xCD\x84\x03\x6D\x42\xCC\x95\x10\xC7\xD6\xCA\x11\xD5\x71\xE9\xC6\x10\x5E\x34\x6E\xCB\x0E\x2B\xB9\x3B\xC3\x9F\xDF\xC0\x00\x6C\x35\x67\xCF\xBE\x6F\xCE\xEC\x86\x08\xD5\xCA\x10\x5B\x99\x51\xD4\xBE\xD6\xCF\xE0\x2F\xCA\xB6\xBB\x9E\xA8\xB2\x41\x13\xC5\x77\xC2\x21\x0F\x39\xCE\xCF\x72\x6F\xC9\xDC\xB5\xCF\x29\xB1\x10\xC9\xCC\x84\x23\x89\xBF\xB0\x79\xCC\x22\x2B\xC9\x20\x12\xC9\xEB\x01\x14\x3F\x38\xF9\x94\x0F\x14\xBE\x3A\xC9\xD0\x35\xC3\xA0\x81\x08\xD9\x20\xD0\x0F\x12\xBA\x1D\xCD\x09\xD8\x85\xD3\xC9\x42\x10\x3B\x0F\xD1\x21\x3C\x3B\xB7\xC6\x77\xD6\xCD\xCD\xAE\x65\x15\xD0\x00\x3A\xBE\xBC\xC5\x40\x62\x6E\x67\x63\xCD\x00\x04\xFE\xAC\xD0\xEF\x11\x97\x81\x09\x66\xDC\xCE\x02\xC2\x0E\xE0\x0F\x05\x38\x94\xF0\xCA\x7D\xC9\xCE\x0A\x0A\xF1\x3D\xD1\xEE\x05\x95\xC0\xA1\x42\x15\xD1\x00\x04\x35\xC0\xD3\x84\x0E\x78\x43\xD0\x78\x03\xCB\x6F\xC8\x49\xCD\xB3\xA2\xCD\x79\x4E\xD1\x72\x0E\xCB\xD9\xC1\x20\x08\xD2\xDF\xC8\xA3", "\x82\x09\xE8\x36\xD2\xCB\x0F\x2E\xD9\xD2\x1F\xDB\x2F\xB0\xD0\x13\x28\xD2\xC8\xCD\x36\xC9\x09\xD2\x30\xA6\xC3\x0F\x60\xC3\xD3\x48\xD2\x3A\xCB\xD2\x83\x0A\x7A\x6D\xD3\x71\x1C\xCC\x51\xD4\xC2\x69\xD0\xD7\x36\xA7\xD2\x0E\x91\x3D\xD1\x48\xD7\xC3\xB3\xD3\x81\x02\x7B\x3D\xD2\xED\x3D\xD1\xA5\xCE\x2A\xC6\x08\x24\xDE\x9E\xB0\xD1\xF0\x3D\xD1\xCF\x3D\x47\xF6\x33\xA7\xC3\x10\x48\xD0\x7E\xC5\xCA\xD3\x3D\x47\xD8\x3F\x1E\xD1\x69\x14\xD6\x40\x1A\xCB\x5A\xD1\x45\xCC\x23\xC2\xC0\x00\x02\xD6\x9A\xCF\x10\xDC\x3D\x4F\xD7\x0E\x52\xDD\xA8\xFF\xCB\x8F\x00\x3F\xAA\xD1\x28\x24\xD5\x4B\xD6\xA6\xE0\x0F\xFB\x31\xD5\xB2\xC3\x15\xE9\xD1\xF9\x38\xAB\x81\x12\xA9\xD5\x9A\x29\xD7\xFE\x3D\xD5\x07\x1B\x35\xD6\x99\x51\xDC\x3F\xC3\xD1\x48\x28\xCC\x1B\xD9\xA2\x80\x42\x41\xC7\xCD\x3F\xD7\x54\xC3\x08\x01\x46\x90\xBB\xBF\xBE\xA4\x92\x09\x0A\x49\xD2\xD6\x81\x04\x80\x4F\xD4\x78\x0B\xD6\xB9\xB4\x3C\xC6\x40\x6F\xD9\x1C\x60\xD4\x97\xC3\xD4\x02\x08\x01\x64\xD7\xE5\x00\xAE\xE9\xD2\x15\xC9\x08\x17\x43\x5D\xC3\x0E\x70\xD2\xA7\xDB\xD5\x40\x1B\x40\xF2\xD7\x38\x20", "\xD7\xED\xC8\xAE\x81\x09\x07\x59\xD7\xD2\x08\x5C\xFF\xD5\xFC\xC9\x10\x29\x42\xF1\x0B\x41\x3D\xD2\xEF\xB3\xD0\x70\xDD\xAA\x83\xCA\x41\x0F\x41\xC6\x19\x06\x7D\xD1\xBF\xBB\xB0\xB9\xD4\x79\xD6\x41\xC6\x18\x07\x7D\xD1\xE0\xC7\xAD\xC7\xCC\x8F\xBD\xD2\x3F\x14\x07\x49\xD7\x1B\xB9\xFD\x29\xD0\x12\x40\xD8\xD7\x0D\xC9\x82\xB6\x7B\xDD\x5A\x4D\xB1\x58\xD6\xB6\x57\x46\x20\xF3\x34\xE3\x1D\x64\xFE\xCA\xC3\xC3\x08\x59\x46\x78\x25\x43\x1E\xD7\x6B\x46\x1E\x30\xCF\xD9\xD2\x9E\x0F\x46\xC8\x5E\x3E\xB3\xCF\xA9\x51\xCE\x44\xC6\x18\x12\x7D\xD1\xE5\xCB\x97\x81\x0B\xCA\xCC\xD6\xE4\xCF\x12\xF4\xC5\x07\x1C\x6C\x56\xCF\xD3\xC0\x00\xA2\xCE\x55\xCA\x8F\x55\x4D\xA1\xD2\x0F\xB5\x21\xD1\x06\x0F\x6A\xDA\xD7\x77\xD7\x0C\xDC\xD8\x7D\x02\x37\x9D\xCF\x6A\xD3\xD2\x18\xDC\x00\x66\xD9\x80\x0A\xBE\x56\xDD\x37\xE9\xD1\x5E\x4F\x9D\xC3\x0C\x7C\xCF\xCE\x02\x0F\x6A\xEE\xD6\x82\xD6\x10\x14\x02\xDB\xCF\x10\xF2\xC8\x6F\xCE\xDB\xE8\xC9\xA2\xC4\x45\xDD\xC7\x0E\xE2\xB9\x6E\xC9\x08\x7E\xDC\xB2\xCB\x47\xE1\xD2\x0E\x0E\xD2\x71\xC6\x09\x81\xD5\x94\xA0\x03\xDF\xC3\xB0", "\xAB\x46\x8C\x59\xBE\x0C\xDA\x36\xED\xCD\x8A\xC5\x47\x9D\xCD\x22\x7D\xD0\xB7\x30\xB6\x9D\xDC\x24\x29\xD1\x21\x4D\x33\xFD\x49\x1E\xDA\x77\x25\xDE\x40\x09\xB6\x2B\xB1\x45\xCD\x4A\x94\xD1\x14\x4A\xC4\x00\x10\xDD\x7C\xDE\xA1\x3A\xCC\x61\xC6\x99\xA4\x22\x6E\xD7\xDA\xBD\xDB\x85\x35\xD7\x1C\xB2\xAA\x83\x19\x02\xDD\xD8\x06\x09\xE9\x86\x09\x17\xB4\xB6\xD2\x4B\xF1\x4F\x17\x8C\xDC\x78\xC7\xD1\x81\x18\x78\x46\x1C\x71\xC2\x08\xCC\xD9\x77\xC0\xB5\xE7\xD5\x30\x67\xD4\x15\xC4\xCF\x7F\x4E\x75\xFF\x10\x21\xDC\xB9\x82\x0A\xF7\xD9\x8D\x29\xD1\x35\x62\xDE\x2A\x1F\x79\x6B\xDF\xF9\xDB\xCD\x20\xD8\x00\x0A\x4F\xF5\xD0\x9F\x3D\xD1\x9D\xC5\xDF\x01\x0C\x1B\xC3\x09\x91\x23\xBD\xA4\x22\xFE\xC2\x08\x10\x2D\x7F\xEB\x21\x00\xE0\x8D\xA9\xD2\x7E\x4B\xDF\xDD\x0C\xF6\x2B\xDE\x02\xE3\xA6\xC5\xC9\x87\x48\xE0\xE0\x09\x52\xF8\xDF\x87\x22\x92\xB7\xDA\x40\x03\x52\xEB\xDE\x4E\x7D\xD0\xED\x3B\xBE\xCE\xCE\x40\x1C\xDF\xF1\xDC\x89\x1E\xE1\x80\x0C\xC0\xAC\xD8\x13\x20\xE1\x52\x49\x45\xC9\x54\xDA\xD9\x13\x0A\x0B\x8D\xDD\xD7\x00\x07\x52\x4F\xDD\xEB\x07\xAB\xD6", "\xCF\xD8\xD8\xDA\x29\xD1\x56\x73\xE1\xA0\x02\xAC\x93\xE3\x0D\xF7\xE1\x45\xCA\x59\x7B\xE0\x85\x04\xAD\xB6\xE0\x6D\xCD\xDE\x02\x0F\x5B\x43\xE2\x78\xD6\x87\xB7\xE3\xFB\xC5\xCA\xF4\x53\x89\xC6\x08\x84\xD6\xC4\x9E\xD8\x79\xD2\x58\x52\xE3\x20\x34\x41\xCE\xC7\xC3\xC3\xDE\xF6\xC1\x08\x27\x59\x8B\xC2\x08\x91\xD5\xC5\x86\x09\xF4\xDF\xE2\x00\x01\x69\x62\xE3\x80\x09\xB3\xE5\xE3\x40\x14\xDC\x30\xD5\x6B\x5D\xCD\xB9\x5D\xA3\xC8\xDA\x0F\xFE\xDC\xE4\xCA\x70\x5D\xCC\xCA\x5D\xA3\x82\x02\xEE\x59\xD6\x16\xD9\x7E\xE3\x5D\xCE\xCC\x08\x19\xDD\x19\xDF\xE3\x06\x0C\xEB\x86\x08\xAB\x22\xC0\xC3\x22\x22\xE3\x08\xD8\xC8\x86\xCC\x23\x48\xE2\x10\x2F\xE0\xCB\xCE\x04\x97\xDB\x48\x2D\xDB\xCE\xC4\xC9\xD2\xDD\xFC\xD2\x04\x99\xE0\xF4\x88\xE4\x48\xED\xC2\xE4\xCE\xED\x4B\xE3\xAC\x79\x94\xC0\x01\x4E\xE1\xAE\xF1\xDE\x26\x0A\xE5\xDD\x09\x03\x2A\xE4\x56\xEF\xC4\xB0\xD0\xEF\x48\xE5\x1D\x03\x96\xFA\xC4\xF2\xC2\x0A\x30\xE4\x78\x01\x01\xBA\xE1\x21\x1E\xE3\xA2\xC6\x0A\x3E\xE5\x72\x02\x47\x9C\xE2\x4F\xE4\xCE\x55\x06\xCC\xCB\x0F\x42\x49\xE6\x1E\xB1\x45\xCC\x5F", "\xCE\xCC\xBD\x3D\xD3\x48\x4B\xDF\xAC\xE5\x61\xCD\xCD\x81\x04\xBE\x1D\xCF\xFD\x5D\xD1\xB3\xDB\x82\xEC\xE4\x5A\xDA\xB5\xFB\x5D\x67\xC7\x60\x3D\xD7\x2E\x74\xDE\x85\x0C\xC8\xA1\xE3\x13\x2D\xE7\x29\xE4\x3C\xCE\xC0\x16\xE9\x10\x26\xBB\xF2\xC9\xD1\xC1\x04\x7B\xD3\x13\xF0\xC1\xCF\xF1\xDC\x31\x0B\x50\xFC\xE2\x20\x3A\xC6\x77\xE4\x42\x03\xEB\x40\x05\xC8\x04\xEB\x39\x05\x06\x43\xE1\x20\x08\xE9\x3F\xF0\xE1\xC7\x03\x41\x4C\xC9\x7B\xE4\x9E\xC8\x07\x82\x4A\xCF\x03\x0B\xA2\xD2\xE5\x27\x26\xC9\xD0\xD9\xFC\xC9\x06\xCD\xE3\x38\x19\x4D\xCE\xCD\xD1\xB8\xE0\x79\xCD\x06\x21\xEB\x36\x63\xE5\x4A\xE5\xCA\xF1\xDD\x34\x09\xE9\xD2\x08\x3B\x64\xE9\x23\xE8\xC6\xD5\x04\x4C\xF7\x0E\xF3\x4B\xA6\xC9\x09\x5A\xEA\xB5\xD9\x07\x4D\xE1\x0A\x0F\x52\xA7\xD1\x9D\x14\xDD\x0D\x3F\xE9\x47\x0A\xE5\x25\xEB\x98\xF0\xD1\x70\x06\xD4\x89\x09\x93\x42\xEA\x03\x0F\x8C\xC5\xCB\x72\x0D\xD4\x86\x0A\x06\xF6\xCE\x25\xE8\x8E\xDA\xDB\x74\x0A\xCA\xED\x04\x43\xE6\x08\x99\x53\x7D\xE5\xE8\x6D\xEE\xA1\x8F\xDA\x2A\xF3\x07\x5F\xEB\x20\x00\x56\xB1\xE1\xC8\xB0\xE1\x3D\x0A\xE5\xF9", "\x01\xAD\xC2\x09\x6C\x5B\xBE\xE8\x2A\x41\x05\xE9\x45\xCB\x1F\x32\xEB\x1F\x11\xC5\xB3\xD2\x5D\xF0\xCE\xE4\xCD\x1F\x3B\xEA\x2A\x1D\xAF\x3D\xD3\x5F\xE6\xC7\xA2\xD3\xB0\xDD\x0E\x82\x56\x3C\x07\xEE\xA1\xB1\xDF\x01\x00\x8C\x5B\xC9\x80\x08\xC5\xFE\xEA\xDC\xC4\xCF\x03\x02\xB2\xF4\x0E\x8A\x5D\xD8\xBB\xE5\xFC\xC5\x00\x9A\xE9\x40\x17\x59\xCE\xE2\xCC\xA9\xD3\x01\x01\xED\x0F\x11\x64\x64\xEC\x33\xE9\xA2\x89\x00\x6A\xE1\x12\x61\xE6\xB2\xD1\xE6\xF2\xCB\x00\x2F\xEC\x7B\x96\xED\x01\x09\x66\x46\xEC\x3C\xE1\xBF\x8F\x00\x6E\xE6\x18\xBF\xEC\x68\x7B\xED\xD3\xD4\x9E\x93\x03\x6F\xF5\x00\xBF\xEE\x69\x7D\xD1\x8A\xC7\xD7\xA9\xD3\x05\x00\x63\xAD\xC1\x21\x13\x5A\xE3\x1C\xDC\x80\xED\xFC\xD8\x00\xD0\xEC\x3E\x32\xE3\xB7\xC5\xDD\x88\xEC\x79\xD9\x00\xD9\xE9\x40\x2B\x5A\xEA\xE4\xD3\xC5\xCA\x06\x01\xEF\x0F\x15\x6D\x64\xEF\x9D\xE9\xA2\x9B\x00\x7A\xE1\x12\x74\xE3\x46\xDD\xEF\x80\x0B\xB7\xC5\xC8\x07\x0F\xEF\x43\x14\x6F\x6B\xEE\x83\x0A\xD4\xDA\xD9\x07\x18\xEF\x3F\x12\x8F\xF2\xEE\x65\xE1\xBF\x9E\x00\x80\xF4\x12\x8A\x5B\xBF\xEF\xE3\x14\xDF\x01\x07\xF0", "\x08\x1F\xED\x90\x5B\xB9\xFC\xEC\x18\xE2\x02\x07\xF3\x08\x1F\xED\x7C\xE4\xBB\xED\xEA\x96\xD5\x02\x07\xF2\x09\x1F\xED\x83\xE3\x3E\xCA\x09\x87\xC1\xBF\xA8\x03\x81\xF2\x17\xF4\xCB\x20\x33\xEE\x34\xE9\x02\x60\x61\xD8\x8D\x01\x27\xF0\x3C\x1F\xB8\x83\x04\xE2\xB0\xE2\x0B\x11\xF1\xCC\x13\xC6\xEA\xF1\x14\xDF\x02\x2E\xF1\xF6\x78\xF1\xCB\x08\xB1\x0D\xEE\xF2\xC4\x03\x60\x62\xC5\xAA\x08\xAB\x5D\x47\xC2\xF2\xEB\xE0\xC3\xB7\x02\x91\xF4\x0F\x85\xE6\x53\xC1\x09\x25\xFE\xDD\xF1\xDE\x0E\x0F\xF2\x01\x17\x11\x03\xEC\x2A\xFF\xD8\xB0\xE1\x0F\x18\xF2\x0F\x11\x12\x1B\xF3\xCB\xE1\xBF\xC0\x00\x98\xE1\x12\xB4\x5A\xC9\xDE\xEC\x18\xE3\x04\x67\xF3\x90\x15\x04\x63\xF5\xB4\xE4\xCE\x23\x0E\xE6\xBF\x13\x25\x11\xF3\xAC\xEC\x3C\xC9\x03\x3A\xF4\x25\x39\x5E\x9A\xF3\xED\xF1\xDC\x09\x3C\xF3\x27\x0F\xDB\x9B\x06\x33\x5C\xF2\x32\xB4\x3C\xD1\x02\x3E\xF4\x05\x3F\xEF\x2D\xEA\xD4\x03\x08\xD1\xE4\xE6\x0B\xE3\xE5\xFC\xF1\x16\x1F\xED\xBE\x5A\xCA\xC0\x01\xCB\x29\x10\x78\xE8\x8C\xDB\x02\xBF\xED\x3B\x00\x5F\x1E\xDC\xE9\x86\x09\xD6\xD4\xF4\x00\x05\x0B\x21\xF4\xF0", "\x05\xCC\x9A\xF5\xA9\xE3\x08\x40\xE0\x46\xDF\x03\x55\xF9\x1C\x29\x07\x60\xEF\xF5\x80\xB1\x45\xE1\x02\x5A\xFB\x1C\x46\x5C\xA9\xE4\xF3\x30\xE3\x0C\x3C\xF5\xE1\x0D\x0A\x37\xF7\x9A\xEC\xD9\x65\x03\xD8\xC7\x0E\xE7\x5F\xEB\xF2\xF1\xFC\xC7\x03\xCA\xF2\x3A\x1A\x5F\x66\xF9\xE7\xF1\xDD\x1A\x11\xF6\xD7\x0E\x7B\x54\xF7\x05\xF4\x9E\xEB\x03\x6F\xED\x03\xBF\xED\x7D\x6E\xF5\x09\xFC\xB2\xEF\x03\x6F\xF1\x03\xBF\xEF\x9B\xD0\xF4\x81\x08\xEB\x81\x0B\xA4\xFB\xE6\x02\x0B\x0E\x3F\xED\x3A\x0F\xDB\x81\x62\xA6\xFF\xCF\x03\x0D\x23\xF1\xDF\x3B\x00\xE4\xE2\x14\xBE\xE2\x08\xB1\x2C\x3C\xF8\x02\x1F\xF9\x10\x7C\x01\xBF\xE7\x0E\x01\xFE\x20\x2D\xF6\x34\xEC\x44\x25\xC9\xBE\xE9\xD1\x7D\x07\xE0\xEF\x16\x87\xF0\xF0\xA9\xD2\x1F\x04\xF8\x06\x0A\x10\x12\xF9\xEB\x03\x5C\x43\xF1\xFC\xC3\x04\x18\xF9\x48\x28\xE7\x75\xF1\x10\x1D\xF8\x93\xEC\xD9\x87\x01\xE4\xC3\x13\x7C\xED\x99\xA6\xF9\x95\xF0\xE1\x8B\x02\xE5\xFF\x11\x85\xEA\xE9\xAE\xF9\x97\xEC\xD9\x8F\x02\xE6\xD4\x12\x8B\xE5\xF3\xC0\xF4\xCB\xD3\x04\x3A\xFD\x3B\x0B\x06\x67\x46\xF3\x80\x01\x7D\xF0\xD1\x97\x01", "\xE8\xE0\x0E\x67\x04\xF4\x84\xDC\x79\xDB\x04\x4A\xF9\x39\x2F\xE9\x9E\xFB\xB8\xA9\xD3\x27\x11\xFA\xCB\x0C\x1A\x0D\xFA\x40\xF0\xC3\xA3\x06\xCE\xE7\x05\xBF\xEF\x1A\x2A\xE5\xA2\xF4\xD6\x93\xC9\x42\x09\x05\x3A\xFD\x15\x3F\xED\x6D\x03\xF6\x9B\xF0\x12\xE1\x08\xAF\x02\xE7\xF3\x05\xDF\xEF\x0D\x2A\xE5\x84\xC3\x08\xC6\x2C\x3C\xF5\x04\x6C\xF3\x25\x28\xCB\x40\x11\xC9\x09\xEB\x88\x3E\xFA\x81\x0A\xA1\x81\xFF\x1C\x20\xFC\x03\x0E\xB9\x24\xCF\x5B\x0C\xF7\xF4\x0D\xE1\xE9\xFC\x29\xD1\x17\x0D\xFD\x00\x17\x93\x83\x08\x50\xD1\xDF\xBB\x07\xC0\xFC\x05\xC9\xF6\x10\x17\xFF\xDF\xE5\xDE\xCC\x13\x1C\x1C\x48\xCF\xF4\xF8\xA0\xFF\xB6\x04\x07\x1C\x4D\x44\xC3\x09\xA3\xC6\xF8\xD2\x0E\x2F\x1C\xFC\xAB\xFA\x21\x3E\xC9\xF8\xD0\x0C\x1B\xFB\x94\x04\x30\x1E\xF8\x86\xC1\x06\x30\x6B\x84\xC4\xE2\x2A\xF8\xFD\x03\x0E\xD3\xDA\xDA\x63\x0C\xFB\xF4\x0C\x57\xFD\xCC\xC0\xFC\xA5\xE4\xCF\x65\x05\xFC\x81\x12\x57\xE8\xFE\xD1\xD7\xED\xC0\x00\x68\x0D\xFC\x8F\x11\x3C\x0B\xE9\x01\x09\xF9\xDE\xE4\x18\xE5\x0D\x55\xFD\x90\x16\x07\xD8\xF8\x00\x1A\xFE\x93\xE1\xBF\xDA\x06\xF7", "\xE3\x12\x7A\xEB\x7D\xE3\xFF\x58\xFA\xB5\xDF\x07\xF9\xF3\xC1\x3A\xFB\xFD\xCD\xD7\xF7\xF4\x25\x04\x01\xFC\xED\xE9\x30\xE1\x1D\x34\xFF\xEE\x08\x00\x77\xFD\xAD\xAC\xD9\xEE\x03\xFE\x70\x1E\x0C\x00\xFE\x7E\xA2\x54\x9E\x73\x03\x02\x81\x72\x00\x01\x05\x80\xAE\x59\x8A\x68\x0F\x09\x80\xCB\x04\x05\x0C\x00\xA6\x6F\x29\x69\x3F\x00\x01\x83\x07\xD8\x74\xF4\x7C\xDE\x64\x67\x02\x03\x0D\x3D\xFB\x49\x04\xF7\x76\x06\x86\x10\x3C\x74\xA8\x7B\x01\x0E\x01\xB4\x07\x0F\x7A\x08\x83\x10\x07\x7D\x5A\x6C\x03\x07\x02\xA3\x0F\x13\x80\x7D\x79\xA2\x51\x00\x2F\x83\x83\x06\xE2\x6A\x80\x02\x04\x0B\x88\xEA\x56\x00\x35\x81\x90\x0C\x02\x31\x80\x00\x01\x88\x14\x9E\x5B\x00\x37\x31\x74\x7F\x20\x23\x7F\x50\x68\x0C\x7C\x01\x05\x81\x44\x0F\xF8\x7D\xDF\x68\x7A\x1D\x01\x0F\x83\x24\x30\x00\x40\x83\x13\x80\xEF\x41\x04\x22\x02\x14\x8F\x23\x05\x79\x38\x80\x66\x29\xA2\x67\x00\x5A\x80\x95\x08\x03\x00\x81\x52\x74\x8C\x6C\x02\x21\x81\xDD\x04\x0F\x04\x06\xA9\x68\x31\x00\x1A\x80\x1E\x26\x79\x5D\x80\x00\x05\x06\x9A\x6D\x36\x02\x1B\x89\x1C\x04\x01\x40\x80\x9E\x60\xC3", "\x7B\x00\x4C\x81\xE9\x03\xFE\x5A\x75\xA8\x78\x0F\x01\x06\x81\x01\x37\x32\x19\x38\x04\x34\x7F\x7F\x81\x8A\x63\x04\x21\x81\x48\x01\x21\x8A\x10\x0D\x01\x88\x83\x78\x61\xBF\x4A\x01\x61\x83\x13\x0E\x08\x89\x04\x52\x01\x24\x89\x10\x25\x7D\x0C\x69\x47\x01\x06\x96\x01\x97\x82\x41\x07\x05\x1A\x82\x20\x59\x8A\x68\x05\x21\x81\x5D\x01\x28\x83\x10\x1C\x01\xA4\x81\x89\x54\x9E\x5F\x01\x61\x80\x19\x0A\x0A\x82\x04\xBB\x7A\xFA\x7E\xF6\x68\x71\x66\x01\x18\x8B\x06\x33\x82\x01\x06\x19\x0D\x0A\x82\x04\xEF\x79\x59\x7C\xAF\x21\x81\x72\x00\x2F\x80\x00\x1E\x7B\xB6\x80\x71\x71\xBF\x74\x01\x61\x81\x1E\x06\x0C\xB0\x01\xF4\x7C\x8F\x66\x10\x19\x1B\xE4\x67\x1E\x0D\x07\x86\x04\x7C\x02\x31\x84\xEF\x46\x0F\x15\x19\x53\x66\xF1\x57\x83\xBC\x0D\x91\x62\x10\x1D\x83\xAD\x7E\x0F\x1F\x61\x27\x2B\xA6\x7F\x10\x12\x04\x86\x04\xE7\x81\x39\x86\x34\x09\x81\x02\x04\x35\x81\xBF\x7F\x01\xE0\x82\x40\x00\x08\x06\x83\x76\x03\x81\x7B\x96\x43\x04\xFB\x65\xFC\x62\x08\x35\x83\x3F\x08\xBF\x76\x3C\x3B\x83\x02\x04\xB8\x14\x9E\x43\x02\x00\x84\x95\x03\xF0\x5A\x7A\x04\x85", "\x40\x08\xB6\x71\x6F\x84\x01\x42\x8D\x1D\x3B\x01\x7C\x78\x96\x62\x10\x0E\x65\xF1\x6D\x21\x02\x11\x83\x0C\x2A\x19\x42\x01\x6D\x24\x67\x86\x01\x42\x87\x08\x06\x83\x17\x7E\xF1\x02\xA6\x42\x04\x33\x19\x23\x73\x47\x27\x84\x60\x71\x3A\x83\x47\x01\x66\x06\x07\x47\x81\xBF\x49\x02\x09\x86\x22\x06\x0C\xBF\x01\x07\x7B\x9B\x68\x12\xAE\x84\x29\x12\x4E\x8D\x12\xAA\x84\x29\x11\x4A\x86\x10\x18\x84\x30\x70\x23\x0B\x11\x8C\x0B\x7A\x82\x40\x0D\x11\xAE\x83\x44\x0F\x8D\x19\x10\x3F\x69\x4C\x85\x42\x0D\x08\x06\x83\xDD\x04\x54\x83\x10\x04\x85\x38\x7F\x51\x8B\x2D\x16\x85\x02\x04\x95\x10\x14\xBE\x10\x5E\x84\x36\x8C\x13\xA0\x85\x0A\x04\xE9\x72\xFD\x50\x02\x09\x85\x24\x06\x0C\x80\x02\x07\x79\xA2\x66\xF9\x69\x68\x93\x01\x42\x84\x09\x06\x83\x81\x03\x81\x7F\x65\x1E\x83\xA6\x72\x56\x82\x2E\x31\x5E\x03\x07\x5D\x81\x15\xA3\x0E\x7C\x86\x40\x0E\x16\xA6\x70\x4F\x13\xA4\x66\x10\x0E\x85\x7F\x84\xEF\x0F\x9A\x46\x04\x8C\x1B\x57\x81\x14\x17\x02\x54\x84\x78\x0D\x18\x83\x85\x29\x69\x26\x0A\x17\xBE\x0B\x93\x87\x40\x0D\xA9\x49\x86\xC8\x0F\x66\x83\x10\x37", "\x66\x9C\x85\x01\x1E\x19\x82\x04\x66\x84\x1A\x7A\x09\x09\x84\x9B\x02\x31\x8A\xF1\x46\x0F\x94\x1B\xB3\x29\xA2\x5D\x02\x09\x86\x27\x06\x0C\xA0\x7C\xC6\x0C\x68\x87\x15\xA9\x68\xA0\x03\x65\x8F\x2E\x16\x6B\x02\x06\x6D\x84\x18\xA4\x10\xBC\x85\x40\x0D\x1A\xA1\x86\xDE\x0E\xC2\x63\x10\x06\x86\x1B\x74\x09\x14\xB1\x43\x04\x8B\x85\x72\x8B\x42\x1C\x6C\x17\x85\x8A\x61\x0A\x3A\x86\x05\x0C\x74\x81\x10\x33\x6C\xC4\x86\xBC\x08\x1D\x83\x04\x44\x6D\x76\x83\x30\x1B\x87\xA4\x85\x8A\x62\x0A\x09\x84\xA3\x02\x31\x84\x08\x07\x78\x3D\x6D\xE7\x79\xA2\x65\x02\x09\x86\x29\x06\x0C\x85\x02\x07\x79\x77\x87\x1B\xA4\x67\xA8\x00\x75\x83\x25\x0C\x6D\x01\x06\x7C\x8F\x1B\xAB\x10\xF8\x84\x00\x09\x1E\x8E\x87\x43\x11\xD5\x63\x10\x32\x84\x30\x71\x2A\x09\x10\xAA\x02\x91\x85\x72\x04\x20\x82\x04\xCF\x18\x79\x6C\x0A\x36\x87\xF4\x05\x75\x63\x10\x32\x83\x30\x71\x2B\x09\x10\xAE\x02\x09\x8B\x72\x04\x21\x82\x04\x5F\x6D\xFC\x60\x0B\x37\x30\x47\x79\x80\x0B\x6D\x06\x04\x06\x86\x77\x8C\x2C\x23\x88\x03\x07\x43\x80\x20\xB3\x11\x25\x8B\x40\x0E\x9D\x71\x6F\xB3\x01\x86", "\x82\x2E\x2A\x88\x02\x07\x8B\x80\xC3\x75\x02\x32\x8A\xBF\x08\x6E\x24\x88\x63\x87\x94\x06\x08\x07\x78\x3B\x89\x8A\x8D\x23\xB4\x07\x29\x7E\xF1\x04\x6F\x1E\x84\x29\x6B\x2D\x09\x10\xB8\x02\xC6\x80\x22\x07\xE0\x70\x6D\x03\x04\xBF\x1E\x18\x84\x0D\x50\x8A\x40\x08\x6F\x13\x89\xA5\x0F\x95\x81\x13\xA9\x68\xBA\x01\x42\x8B\x0B\x06\x83\x89\x03\x81\x78\x9E\x51\x89\x43\x89\xE9\x03\x26\x96\x89\x65\x8B\xE8\x02\x25\x86\x04\x91\x6C\x0C\x7D\x0B\x10\x88\x09\x06\x22\x07\xE0\x6B\x89\x13\x89\x8A\x6E\x0B\x06\x83\xC0\x02\x31\x81\xF3\x7D\x68\x77\x6E\x40\x06\x9E\x66\x88\xDB\x09\x9F\x81\x10\x01\x1C\x58\x8B\xE8\x04\x28\xAC\x89\x29\x6A\x30\x00\x27\x86\x04\x8D\x03\x81\x77\x28\xB5\x89\xE4\x67\x30\x06\x0C\x85\x03\xC6\x82\x23\x0F\xDB\x5D\x5F\x06\x07\x9F\x8B\x22\xA9\x10\x98\x8B\x40\x0F\x28\xBB\x87\x43\x12\xE7\x56\x10\x07\x89\x80\x8A\xB8\x01\xB8\x42\x04\xFD\x80\x44\x7B\x28\x81\x09\xA7\x89\x40\x0D\x22\xAC\x6C\xC8\x03\xAA\x8C\x21\x98\x7A\x0A\x04\x8D\x82\xFD\x49\x03\xB2\x89\x40\x02\x09\x3F\x76\xA9\x89\x41\x89\x26\x81\x09\x94\x00\xAF\x85\x2B\xBF\x8A", "\x43\x0A\x25\x0F\xDB\x55\x1C\x09\x05\xC2\x14\x9E\x4A\x03\x20\x88\xD1\x09\xB8\x43\x04\xC8\x89\xA9\x8E\x2F\x19\x5E\x06\x06\xB2\x81\xBF\x4D\x03\xCD\x89\xE9\x0D\x9F\x43\x04\x6D\x88\xCB\x60\x0D\x39\x8A\x54\x0B\xB6\x81\x0F\xA9\x68\xD1\x02\x31\x83\x0D\x06\x83\x98\x03\x81\x7D\x2D\x81\x04\x1B\x8A\xF4\x75\x0D\x09\x84\xD6\x02\x31\x89\x09\x07\x78\xE6\x5E\x41\x0D\x2B\x92\x7F\xD8\x00\xB8\x8A\x09\x34\x8B\x0A\x07\xAB\x82\xFD\x59\x03\xE0\x88\xD4\x7A\xE9\x75\x8B\x42\x88\x79\x6A\x0D\x20\x8B\x9E\x00\x9F\x76\x75\x09\x04\x3D\x1C\x79\x6B\x0D\x20\x8B\xDD\x07\xFA\x56\x10\x0B\x8C\xD2\x8B\xBB\x0B\xB9\x43\x04\x0D\x8D\xFC\x6C\x0D\x39\x88\xEF\x0B\x85\x63\x10\x29\x1D\xE4\x66\x37\x09\x10\x9F\x03\x1C\x8F\x75\x0E\x31\x82\x04\x6C\x1C\x79\x61\x0E\x09\x84\xE2\x01\xC9\x81\x14\x27\x8C\x01\x04\xE9\x61\xBF\x64\x03\x09\x85\x39\x0E\x32\x8A\x04\x20\x8E\x41\x09\x32\x84\x87\xE7\x03\xCD\x89\x10\x39\x8C\x03\x06\xCC\x8B\x29\x97\x07\xE9\x02\xCF\x8A\x33\x8A\x04\x42\x8C\xA8\x87\x1C\x2B\x03\x46\x8D\xD0\x8A\x10\x20\x68\x15\x8D\xC1\x09\x34\x81\x04\xAD\x6D\xD4\x83", "\x25\x13\x8D\x00\x00\xDD\x15\x28\xBC\x0E\x50\x8C\x37\x74\x2C\x81\x04\xED\x01\xD3\x82\x10\x32\x1D\x09\x05\xD5\x83\x34\x86\x0D\x64\x8E\x41\x0A\x35\x96\x8D\xF4\x07\xDA\x81\xFC\x69\x68\xEF\x02\x1D\x8B\x1C\x21\x02\xF4\x7E\xDB\x8A\xFC\x71\x6F\xF4\x02\xDC\x83\x1C\x26\x02\x75\x8E\x0B\x79\xA2\x79\x03\x7A\x8F\x71\x0B\x0A\x3D\x8D\xC6\x65\xFC\x6E\x0F\x01\x8E\xD2\x04\x2C\x00\xC6\x24\x5C\x76\x8F\xF6\x7C\xB2\x43\x00\xCB\x47\x07\x86\x10\x36\x02\x8B\x8E\x42\x0D\x38\xA4\x7F\x30\x70\x02\x01\x39\x85\x1E\x95\x8D\x42\x07\x39\xAC\x7F\xA8\x79\x03\x0B\x39\x81\x08\xC2\x00\xE1\x86\x10\x20\x8E\x57\x80\x00\x02\x01\x23\x8E\xA7\x1E\xE9\x80\xEB\x4E\x77\xAC\x8D\x90\x0C\x0C\x2E\x8E\xB9\x78\x79\x6C\x01\x31\x8E\x43\x09\x34\x04\x3B\xB7\x7C\xD2\x7D\x08\x08\x3B\x97\x1F\xBB\x8D\x2B\x70\xC3\x66\x00\xBF\x8C\x95\x0B\x0D\x01\x8F\x24\x81\xEA\x8B\x02\x05\x8F\xDD\x04\x38\x08\x3C\xA9\x68\x30\x00\xF3\x80\x1E\x25\x03\xCF\x8C\x79\x65\x03\x12\x8F\xC9\x06\x3A\x01\x3C\xBA\x80\xA9\x8E\x0E\x08\x3D\x8B\x07\xEF\x03\xF6\x89\xA2\x7F\x00\xDF\x8F\x70\x04\x0F\x22\x8F\xE4", "\x64\x11\x05\x3E\x87\x07\xF9\x01\xF0\x8B\x0E\xB0\x70\x49\x00\xC3\x5D\x1D\x3E\x03\x07\x7B\xE5\x80\x0F\x92\x7F\x4A\x02\xFC\x88\x21\x35\x8F\x4E\x7D\xFC\x6B\x04\x2B\x8F\x3C\x61\x18\x87\x39\x96\x81\xC2\x81\x25\x70\x40\x97\x07\x05\x02\x00\x9D\x3F\xB0\x70\x55\x03\x01\x97\x71\x4A\x90\x55\x7C\x79\x6A\x05\x0E\x90\x3F\x34\x04\x95\xED\x70\x70\x5F\x00\x05\x95\x89\x56\x90\x51\x75\x8A\x64\x06\x1A\x90\xA2\x44\x07\x9B\x99\x69\x68\x69\x02\xFE\x89\x1C\x1E\x00\x09\x87\xE5\x80\x08\xA9\x8E\x6A\x01\xF1\x8F\x06\x0B\x47\xC6\x3B\x0D\x3C\x38\x92\x82\x30\x71\x1C\x05\x3C\xB6\x01\x30\x93\x85\x52\x43\x96\x8E\x34\x90\xCB\x68\x07\x05\x8F\x7D\x01\x0E\x97\xA4\x7B\x90\x9E\x8C\xB9\x72\xFD\x7F\x01\xC5\x8C\x21\x02\x44\xA0\x58\x44\x92\xDA\x86\x44\xA8\x71\x86\x01\xF1\x8B\x08\x0B\x91\xCC\x4D\x13\x93\x10\x17\x8E\x9C\x83\xBD\x5D\x08\x05\x8F\x92\x00\x15\x92\x10\x3D\x00\x56\x92\x40\x07\x39\x81\x83\x66\x7C\x89\x85\x3C\x99\x02\x5E\x91\x40\x0B\x08\xAB\x4F\x3C\x92\x32\x80\xC3\x5B\x02\xC5\x8C\x28\x09\x46\x80\x00\x49\x01\x18\x91\x10\x23\x91\xE2\x85\xF1\x87\x0A", "\x33\x91\x96\x80\x1B\x99\x10\x30\x5F\x06\x06\xD9\x8A\x34\xA9\x10\x80\x93\x15\x9F\x35\x9E\x0F\x82\x90\xDC\x79\xA2\x69\x02\x26\x93\xB6\x03\xA2\x5F\x8C\x29\x6A\x2A\x03\x47\xAC\x02\x73\x91\x15\x0B\x24\x8A\x04\x3B\x8C\x0C\x7E\x0A\x33\x91\xB0\x03\x1C\x90\x0A\x86\x0F\x8F\x90\xA5\x39\xA2\x72\x02\x8D\x93\x70\x07\x05\x17\x92\x09\x04\xD6\x85\x94\x73\x02\x73\x91\x2D\x03\x47\xA7\x82\xC6\x0F\x8A\x60\x49\x8B\x7E\x0C\x5C\x2E\x03\x47\x99\x01\x09\x86\x2C\x98\x32\x9C\x89\x0C\x5F\x2E\x03\x47\x9A\x01\xB9\x90\xD2\x89\xA2\x7D\x02\x0C\x5E\x2F\x03\x47\x9B\x01\x5E\x8A\x42\x0F\x77\x32\x73\xA5\x92\xBF\x02\xA3\x73\x92\xF1\x6D\x30\x0C\x70\x42\x03\x73\x90\x17\x09\x4C\x89\x04\x99\x90\xCB\x64\x0C\x0C\x5C\xC5\x03\x1C\x99\x0A\x86\x0F\xCF\x92\x40\x0A\x4A\xB0\x68\xC7\x00\xC3\x58\x0C\x33\x91\x5E\x01\x42\x87\xBC\x42\x04\xCB\x91\xFC\x6A\x0C\x0D\x93\xEF\x0B\x3A\x91\x10\x00\x8D\x2C\x6F\x32\x0C\x70\x4C\x03\x73\x90\x2C\x86\x3C\x32\x93\x00\x01\x36\x92\xFD\x4E\x03\x0C\x5F\x33\x03\x47\xA0\x01\xEA\x92\x30\x94\x9E\x51\x03\x0C\x5E\x34\x03\x47\xA1\x01\x09\x85", "\xF5\x66\x6D\x51\x60\x46\x30\x07\x66\x6E\x66\x31\xF5\x5D\xD3\x6C\x03\x4B\x48\x86\x64\xCD\x02\x84\x46\x42\x86\x0A\xD4\x69\x51\x86\x0F\x0E\x34\x46\x94\xA1\x5B\x06\xBE\x45\xE3\x3F\x51\xAF\x65\x0E\x36\x24\x32\x51\xA7\x5D\xE5\x05\x28\x38\x6D\x55\x70\x44\x05\xD7\x6D\x13\x3F\x60\x9D\x66\x43\x31\x36\x5C\x05\x4B\x61\xCD\x3A\xC8\x38\x94\xF7\x5B\x4E\x94\x82\x77\x5B\x24\x5C\x5B\x01\x54\x92\x05\x24\x5C\x57\x05\x54\xAC\x60\xF7\x5B\x82\x60\x00\x0B\x68\xFF\x02\x0E\x4C\x15\x0E\x95\x34\x61\x52\x97\x6F\x4B\x49\xAC\x4B\x0F\x37\x83\x41\x05\x3E\x40\x57\x0E\x03\x4E\x34\xA9\x60\x53\x0D\x55\xAA\x3D\x5C\x95\x47\x92\xD8\x05\x95\x63\x95\x50\x05\x56\xAB\x50\x96\x42\x59\x9E\x3E\x6A\x95\x7E\x91\x08\x54\xF2\x71\x50\xBB\x60\x03\x56\x87\x72\x95\x9D\x64\x5D\x95\xC0\x68\x95\x03\x06\x53\x92\xD8\x3A\x95\x65\x60\x5B\x97\x57\xAE\x95\x63\x6A\x5D\x91\x58\x82\x36\x14\x94\x61\x9E\x57\x83\x96\xE3\x4C\x60\x92\x3D\x4A\x41\x78\x97\x62\x9E\x86\x4A\x96\xC1\x49\x63\x91\x59\xA0\x53\x6C\x07\x2E\x56\xC4\x3B\x52\x0E\x34\x66\x9D\x83\x66\x5B\x1A\x48\x5B\x0D\x59\x92", "\x05\x1A\x4A\x43\x31\x5A\x81\x05\xA3\x95\x3D\x5C\x15\x30\x62\x4E\x04\x6A\x93\x14\x24\x48\x5C\x07\x02\x5C\x16\x2E\x96\x52\x04\xBC\x51\x14\x0B\x50\x0E\x37\x15\x5C\x16\x36\x96\x52\x07\x15\x5C\x15\x3A\x96\x41\x04\x6F\x92\x4A\x70\x06\x02\x67\x50\x0E\x26\x7B\x94\xC3\x95\x50\x05\x5C\xBF\x96\x03\x04\x71\x99\x58\xA7\x52\x53\x6C\x73\x90\xBF\x4E\x97\x37\x96\x9B\x40\x3D\x52\x97\xC6\x95\x5C\x94\x5D\x88\x97\x2C\x64\x76\x9B\x8C\x5A\x97\x1E\x94\x3B\x6D\x51\xAE\x49\x0E\x34\x78\x95\x5D\x86\x0F\x7A\x4B\x77\x96\x5E\xA6\x5B\x6E\x48\x57\x09\x5E\xA3\x97\xD9\x5B\x7A\x9C\x5D\xAA\x97\xE7\x95\x7B\x91\x86\x65\x97\x3D\x68\x7D\x9F\x96\x76\x97\x81\x96\x2D\x52\x45\x61\x07\xFE\x62\x54\x03\x44\x5C\x05\xC5\x4A\x52\x01\x60\xBF\x03\xFD\x59\x50\x09\x90\x4C\x05\x07\x9A\x51\x05\x88\x5C\x05\x85\x62\x43\x34\x2F\x4E\x4C\x3F\x32\xBA\x51\x14\x12\x98\x90\x52\xF4\x44\x61\x95\x52\xD6\x5B\x85\x9B\x48\x59\x98\xF7\x5A\x86\x93\x10\x16\x62\x6C\x04\x88\x92\x15\x16\x62\x0E\x34\x89\x91\x14\x26\x98\x9A\x52\xB5\x58\x28\x47\x05\x2B\x9A\x4F\x08\xF8\x0E\x34\x2F\x99\x50", "\x01\x63\xA4\x47\xC8\x6F\x26\x59\x6D\x7B\x4E\x4C\x04\x8E\x96\x14\x3C\x32\x5C\x04\x8F\x91\x14\x3E\x98\x2D\x65\xF4\x40\x64\x87\x60\xE6\x5B\x90\x99\xC1\x37\x5B\xD4\x46\x50\x4F\x0F\x0A\x38\x5C\x04\x93\x91\x14\x0E\x99\xE6\x58", }; vl::glr::DecompressSerializedData(compressed, true, dataSolidRows, dataRows, dataBlock, dataRemain, outputStream); } const wchar_t* RuleParserRuleName(vl::vint index) { static const wchar_t* results[] = { L"Cond0", L"Cond1", L"Cond2", L"Cond", L"SwitchItem", L"Switches", L"OptionalBody", L"TestBranch", L"Token", L"Syntax0", L"Syntax1", L"Syntax2", L"Syntax", L"AssignmentOp", L"Assignment", L"Clause", L"Placeholder", L"RuleName", L"LriConfig", L"LriContinuationBody", L"LriContinuation", L"LriTarget", L"Rule", L"File", }; return results[index]; } const wchar_t* RuleParserStateLabel(vl::vint index) { static const wchar_t* results[] = { L"[0][Cond0] BEGIN ", L"[1][Cond0] END [ENDING]", L"[2][Cond0]< \"!\" @ Cond0 >", L"[3][Cond0]< \"!\" Cond0 @ >", L"[4][Cond0]< ID @ >", L"[5][Cond0]<< \"(\" !Cond \")\" @ >>", L"[6][Cond0]<< \"(\" !Cond @ \")\" >>", L"[7][Cond0]<< \"(\" @ !Cond \")\" >>", L"[8][Cond1] BEGIN ", L"[9][Cond1] END [ENDING]", L"[10][Cond1]< Cond1 \"&&\" @ Cond0 >", L"[11][Cond1]< Cond1 \"&&\" Cond0 @ >", L"[12][Cond1]< Cond1 @ \"&&\" Cond0 >", L"[13][Cond1]<< !Cond0 @ >>", L"[14][Cond2] BEGIN ", L"[15][Cond2] END [ENDING]", L"[16][Cond2]< Cond2 \"||\" @ Cond1 >", L"[17][Cond2]< Cond2 \"||\" Cond1 @ >", L"[18][Cond2]< Cond2 @ \"||\" Cond1 >", L"[19][Cond2]<< !Cond1 @ >>", L"[20][Cond] BEGIN ", L"[21][Cond] END [ENDING]", L"[22][Cond]<< !Cond2 @ >>", L"[23][SwitchItem] BEGIN ", L"[24][SwitchItem] END [ENDING]", L"[25][SwitchItem]< \"!\" @ ID >", L"[26][SwitchItem]< \"!\" ID @ >", L"[27][SwitchItem]< ID @ >", L"[28][Switches] BEGIN ", L"[29][Switches] END [ENDING]", L"[30][Switches]\"switch\" @ { SwitchItem ; \",\" } \";\"", L"[31][Switches]\"switch\" { SwitchItem ; \",\" @ } \";\"", L"[32][Switches]\"switch\" { SwitchItem ; \",\" } \";\" @", L"[33][Switches]\"switch\" { SwitchItem @ ; \",\" } \";\"", L"[34][OptionalBody] BEGIN ", L"[35][OptionalBody] END [ENDING]", L"[36][OptionalBody]\"[\" @ Syntax \"]\"", L"[37][OptionalBody]\"[\" Syntax \"]\" @", L"[38][OptionalBody]\"[\" Syntax @ \"]\"", L"[39][TestBranch] BEGIN ", L"[40][TestBranch] END [ENDING]", L"[41][TestBranch]< Cond \":\" ( Syntax1 @ | \";\" ) >", L"[42][TestBranch]< Cond \":\" ( Syntax1 | \";\" @ ) >", L"[43][TestBranch]< Cond \":\" @ ( Syntax1 | \";\" ) >", L"[44][TestBranch]< Cond @ \":\" ( Syntax1 | \";\" ) >", L"[45][Token] BEGIN ", L"[46][Token] END [ENDING]", L"[47][Token]CONDITIONAL_LITERAL @", L"[48][Token]ID @", L"[49][Token]STRING @", L"[50][Syntax0] BEGIN ", L"[51][Syntax0] END [ENDING]", L"[52][Syntax0]< \"!\" @ ID >", L"[53][Syntax0]< \"!\" ID @ >", L"[54][Syntax0]< \"!(\" @ { SwitchItem ; \",\" } \";\" Syntax \")\" >", L"[55][Syntax0]< \"!(\" { SwitchItem ; \",\" @ } \";\" Syntax \")\" >", L"[56][Syntax0]< \"!(\" { SwitchItem ; \",\" } \";\" @ Syntax \")\" >", L"[57][Syntax0]< \"!(\" { SwitchItem ; \",\" } \";\" Syntax \")\" @ >", L"[58][Syntax0]< \"!(\" { SwitchItem ; \",\" } \";\" Syntax @ \")\" >", L"[59][Syntax0]< \"!(\" { SwitchItem @ ; \",\" } \";\" Syntax \")\" >", L"[60][Syntax0]< \"+\" @ OptionalBody >", L"[61][Syntax0]< \"+\" OptionalBody @ >", L"[62][Syntax0]< \"-\" @ OptionalBody >", L"[63][Syntax0]< \"-\" OptionalBody @ >", L"[64][Syntax0]< \"?(\" @ TestBranch { \"|\" TestBranch } \")\" >", L"[65][Syntax0]< \"?(\" TestBranch @ { \"|\" TestBranch } \")\" >", L"[66][Syntax0]< \"?(\" TestBranch { \"|\" @ TestBranch } \")\" >", L"[67][Syntax0]< \"?(\" TestBranch { \"|\" TestBranch @ } \")\" >", L"[68][Syntax0]< \"?(\" TestBranch { \"|\" TestBranch } \")\" @ >", L"[69][Syntax0]< \"{\" @ Syntax [ \";\" Syntax ] \"}\" >", L"[70][Syntax0]< \"{\" Syntax @ [ \";\" Syntax ] \"}\" >", L"[71][Syntax0]< \"{\" Syntax [ \";\" @ Syntax ] \"}\" >", L"[72][Syntax0]< \"{\" Syntax [ \";\" Syntax @ ] \"}\" >", L"[73][Syntax0]< \"{\" Syntax [ \";\" Syntax ] \"}\" @ >", L"[74][Syntax0]< OptionalBody @ >", L"[75][Syntax0]< Token @ [ \":\" ID ] >", L"[76][Syntax0]< Token [ \":\" @ ID ] >", L"[77][Syntax0]< Token [ \":\" ID @ ] >", L"[78][Syntax0]<< \"(\" !Syntax \")\" @ >>", L"[79][Syntax0]<< \"(\" !Syntax @ \")\" >>", L"[80][Syntax0]<< \"(\" @ !Syntax \")\" >>", L"[81][Syntax1] BEGIN ", L"[82][Syntax1] END [ENDING]", L"[83][Syntax1]< Syntax1 @ Syntax0 >", L"[84][Syntax1]< Syntax1 Syntax0 @ >", L"[85][Syntax1]<< !Syntax0 @ >>", L"[86][Syntax2] BEGIN ", L"[87][Syntax2] END [ENDING]", L"[88][Syntax2]< Syntax2 \"|\" @ Syntax1 >", L"[89][Syntax2]< Syntax2 \"|\" Syntax1 @ >", L"[90][Syntax2]< Syntax2 @ \"|\" Syntax1 >", L"[91][Syntax2]<< !Syntax1 @ >>", L"[92][Syntax] BEGIN ", L"[93][Syntax] END [ENDING]", L"[94][Syntax]<< !Syntax2 @ >>", L"[95][AssignmentOp] BEGIN ", L"[96][AssignmentOp] END [ENDING]", L"[97][AssignmentOp]\"=\" @", L"[98][AssignmentOp]\"?=\" @", L"[99][Assignment] BEGIN ", L"[100][Assignment] END [ENDING]", L"[101][Assignment]< ID @ AssignmentOp ID >", L"[102][Assignment]< ID AssignmentOp @ ID >", L"[103][Assignment]< ID AssignmentOp ID @ >", L"[104][Clause] BEGIN ", L"[105][Clause] END [ENDING]", L"[106][Clause]< \"!\" \"prefix_merge\" \"(\" @ RuleName \")\" >", L"[107][Clause]< \"!\" \"prefix_merge\" \"(\" RuleName \")\" @ >", L"[108][Clause]< \"!\" \"prefix_merge\" \"(\" RuleName @ \")\" >", L"[109][Clause]< \"!\" \"prefix_merge\" @ \"(\" RuleName \")\" >", L"[110][Clause]< \"!\" @ \"prefix_merge\" \"(\" RuleName \")\" >", L"[111][Clause]< \"!\" @ RuleName LriContinuation >", L"[112][Clause]< \"!\" RuleName @ LriContinuation >", L"[113][Clause]< \"!\" RuleName LriContinuation @ >", L"[114][Clause]< \"left_recursion_placeholder\" \"(\" @ Placeholder { \",\" Placeholder } \")\" >", L"[115][Clause]< \"left_recursion_placeholder\" \"(\" Placeholder @ { \",\" Placeholder } \")\" >", L"[116][Clause]< \"left_recursion_placeholder\" \"(\" Placeholder { \",\" @ Placeholder } \")\" >", L"[117][Clause]< \"left_recursion_placeholder\" \"(\" Placeholder { \",\" Placeholder @ } \")\" >", L"[118][Clause]< \"left_recursion_placeholder\" \"(\" Placeholder { \",\" Placeholder } \")\" @ >", L"[119][Clause]< \"left_recursion_placeholder\" @ \"(\" Placeholder { \",\" Placeholder } \")\" >", L"[120][Clause]< Syntax \"as\" \"partial\" @ ID [ \"{\" { Assignment ; \",\" } \"}\" ] >", L"[121][Clause]< Syntax \"as\" \"partial\" ID @ [ \"{\" { Assignment ; \",\" } \"}\" ] >", L"[122][Clause]< Syntax \"as\" \"partial\" ID [ \"{\" @ { Assignment ; \",\" } \"}\" ] >", L"[123][Clause]< Syntax \"as\" \"partial\" ID [ \"{\" { Assignment ; \",\" @ } \"}\" ] >", L"[124][Clause]< Syntax \"as\" \"partial\" ID [ \"{\" { Assignment ; \",\" } \"}\" @ ] >", L"[125][Clause]< Syntax \"as\" \"partial\" ID [ \"{\" { Assignment @ ; \",\" } \"}\" ] >", L"[126][Clause]< Syntax \"as\" @ \"partial\" ID [ \"{\" { Assignment ; \",\" } \"}\" ] >", L"[127][Clause]< Syntax \"as\" @ ID [ \"{\" { Assignment ; \",\" } \"}\" ] >", L"[128][Clause]< Syntax \"as\" ID @ [ \"{\" { Assignment ; \",\" } \"}\" ] >", L"[129][Clause]< Syntax \"as\" ID [ \"{\" @ { Assignment ; \",\" } \"}\" ] >", L"[130][Clause]< Syntax \"as\" ID [ \"{\" { Assignment ; \",\" @ } \"}\" ] >", L"[131][Clause]< Syntax \"as\" ID [ \"{\" { Assignment ; \",\" } \"}\" @ ] >", L"[132][Clause]< Syntax \"as\" ID [ \"{\" { Assignment @ ; \",\" } \"}\" ] >", L"[133][Clause]< Syntax @ \"as\" \"partial\" ID [ \"{\" { Assignment ; \",\" } \"}\" ] >", L"[134][Clause]< Syntax @ \"as\" ID [ \"{\" { Assignment ; \",\" } \"}\" ] >", L"[135][Clause]< Syntax @ [ \"{\" { Assignment ; \",\" } \"}\" ] >", L"[136][Clause]< Syntax [ \"{\" @ { Assignment ; \",\" } \"}\" ] >", L"[137][Clause]< Syntax [ \"{\" { Assignment ; \",\" @ } \"}\" ] >", L"[138][Clause]< Syntax [ \"{\" { Assignment ; \",\" } \"}\" @ ] >", L"[139][Clause]< Syntax [ \"{\" { Assignment @ ; \",\" } \"}\" ] >", L"[140][Placeholder] BEGIN ", L"[141][Placeholder] END [ENDING]", L"[142][Placeholder]< ID @ >", L"[143][RuleName] BEGIN ", L"[144][RuleName] END [ENDING]", L"[145][RuleName]< ID @ >", L"[146][LriConfig] BEGIN ", L"[147][LriConfig] END [ENDING]", L"[148][LriConfig]\"left_recursion_inject\" @", L"[149][LriConfig]\"left_recursion_inject_multiple\" @", L"[150][LriContinuationBody] BEGIN ", L"[151][LriContinuationBody] END [ENDING]", L"[152][LriContinuationBody]LriConfig \"(\" @ Placeholder { \",\" Placeholder } \")\" LriTarget { \"|\" LriTarget }", L"[153][LriContinuationBody]LriConfig \"(\" Placeholder @ { \",\" Placeholder } \")\" LriTarget { \"|\" LriTarget }", L"[154][LriContinuationBody]LriConfig \"(\" Placeholder { \",\" @ Placeholder } \")\" LriTarget { \"|\" LriTarget }", L"[155][LriContinuationBody]LriConfig \"(\" Placeholder { \",\" Placeholder @ } \")\" LriTarget { \"|\" LriTarget }", L"[156][LriContinuationBody]LriConfig \"(\" Placeholder { \",\" Placeholder } \")\" @ LriTarget { \"|\" LriTarget }", L"[157][LriContinuationBody]LriConfig \"(\" Placeholder { \",\" Placeholder } \")\" LriTarget @ { \"|\" LriTarget }", L"[158][LriContinuationBody]LriConfig \"(\" Placeholder { \",\" Placeholder } \")\" LriTarget { \"|\" @ LriTarget }", L"[159][LriContinuationBody]LriConfig \"(\" Placeholder { \",\" Placeholder } \")\" LriTarget { \"|\" LriTarget @ }", L"[160][LriContinuationBody]LriConfig @ \"(\" Placeholder { \",\" Placeholder } \")\" LriTarget { \"|\" LriTarget }", L"[161][LriContinuation] BEGIN ", L"[162][LriContinuation] END [ENDING]", L"[163][LriContinuation]< \"[\" @ LriContinuationBody \"]\" >", L"[164][LriContinuation]< \"[\" LriContinuationBody \"]\" @ >", L"[165][LriContinuation]< \"[\" LriContinuationBody @ \"]\" >", L"[166][LriContinuation]< LriContinuationBody @ >", L"[167][LriTarget] BEGIN ", L"[168][LriTarget] END [ENDING]", L"[169][LriTarget]< \"(\" @ RuleName LriContinuation \")\" >", L"[170][LriTarget]< \"(\" RuleName @ LriContinuation \")\" >", L"[171][LriTarget]< \"(\" RuleName LriContinuation \")\" @ >", L"[172][LriTarget]< \"(\" RuleName LriContinuation @ \")\" >", L"[173][LriTarget]< RuleName @ >", L"[174][Rule] BEGIN ", L"[175][Rule] END [ENDING]", L"[176][Rule]< [ \"@public\" @ ] [ \"@parser\" ] ID [ \":\" ID ] { \"::=\" Clause } \";\" >", L"[177][Rule]< [ \"@public\" ] [ \"@parser\" @ ] ID [ \":\" ID ] { \"::=\" Clause } \";\" >", L"[178][Rule]< [ \"@public\" ] [ \"@parser\" ] ID @ [ \":\" ID ] { \"::=\" Clause } \";\" >", L"[179][Rule]< [ \"@public\" ] [ \"@parser\" ] ID [ \":\" @ ID ] { \"::=\" Clause } \";\" >", L"[180][Rule]< [ \"@public\" ] [ \"@parser\" ] ID [ \":\" ID @ ] { \"::=\" Clause } \";\" >", L"[181][Rule]< [ \"@public\" ] [ \"@parser\" ] ID [ \":\" ID ] { \"::=\" @ Clause } \";\" >", L"[182][Rule]< [ \"@public\" ] [ \"@parser\" ] ID [ \":\" ID ] { \"::=\" Clause @ } \";\" >", L"[183][Rule]< [ \"@public\" ] [ \"@parser\" ] ID [ \":\" ID ] { \"::=\" Clause } \";\" @ >", L"[184][File] BEGIN ", L"[185][File] END [ENDING]", L"[186][File]< [ Switches @ ] Rule { Rule } >", L"[187][File]< [ Switches ] Rule @ { Rule } >", L"[188][File]< [ Switches ] Rule { Rule @ } >", }; return results[index]; } RuleParser::RuleParser() : vl::glr::ParserBase(&ParserGenTokenDeleter, &ParserGenLexerData, &ParserGenRuleParserData) { } vl::WString RuleParser::GetClassName(vl::vint32_t classIndex) const { return vl::WString::Unmanaged(ParserGenTypeName((ParserGenClasses)classIndex)); } vl::vint32_t RuleParser::FindCommonBaseClass(vl::vint32_t class1, vl::vint32_t class2) const { return -1; } vl::Ptr RuleParser::ParseFile(const vl::WString& input, vl::vint codeIndex) const { return ParseWithString(input, this, codeIndex); } vl::Ptr RuleParser::ParseFile(vl::collections::List& tokens, vl::vint codeIndex) const { return ParseWithTokens(tokens, this, codeIndex); } } /*********************************************************************** .\PARSERGEN_GENERATED\PARSERGENTYPEAST.CPP ***********************************************************************/ /*********************************************************************** This file is generated by: Vczh Parser Generator From parser definition:TypeAst Licensed under https://github.com/vczh-libraries/License ***********************************************************************/ namespace vl::glr::parsergen { /*********************************************************************** Visitor Pattern Implementation ***********************************************************************/ void GlrEnum::Accept(GlrType::IVisitor* visitor) { visitor->Visit(this); } void GlrClass::Accept(GlrType::IVisitor* visitor) { visitor->Visit(this); } } namespace vl::reflection::description { #ifndef VCZH_DEBUG_NO_REFLECTION IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrType, glr::parsergen::GlrType) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrType::IVisitor, glr::parsergen::GlrType::IVisitor) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrEnumItem, glr::parsergen::GlrEnumItem) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrEnum, glr::parsergen::GlrEnum) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrPropType, glr::parsergen::GlrPropType) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrClassProp, glr::parsergen::GlrClassProp) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrClass, glr::parsergen::GlrClass) IMPL_TYPE_INFO_RENAME(vl::glr::parsergen::GlrAstFile, glr::parsergen::GlrAstFile) #ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrType) CLASS_MEMBER_BASE(vl::glr::ParsingAstBase) CLASS_MEMBER_FIELD(attPublic) CLASS_MEMBER_FIELD(name) END_CLASS_MEMBER(vl::glr::parsergen::GlrType) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrEnumItem) CLASS_MEMBER_BASE(vl::glr::ParsingAstBase) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(name) END_CLASS_MEMBER(vl::glr::parsergen::GlrEnumItem) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrEnum) CLASS_MEMBER_BASE(vl::glr::parsergen::GlrType) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(items) END_CLASS_MEMBER(vl::glr::parsergen::GlrEnum) BEGIN_ENUM_ITEM(vl::glr::parsergen::GlrPropType) ENUM_ITEM_NAMESPACE(vl::glr::parsergen::GlrPropType) ENUM_NAMESPACE_ITEM(Token) ENUM_NAMESPACE_ITEM(Type) ENUM_NAMESPACE_ITEM(Array) END_ENUM_ITEM(vl::glr::parsergen::GlrPropType) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrClassProp) CLASS_MEMBER_BASE(vl::glr::ParsingAstBase) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(name) CLASS_MEMBER_FIELD(propType) CLASS_MEMBER_FIELD(propTypeName) END_CLASS_MEMBER(vl::glr::parsergen::GlrClassProp) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrClass) CLASS_MEMBER_BASE(vl::glr::parsergen::GlrType) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(attAmbiguous) CLASS_MEMBER_FIELD(baseClass) CLASS_MEMBER_FIELD(props) END_CLASS_MEMBER(vl::glr::parsergen::GlrClass) BEGIN_CLASS_MEMBER(vl::glr::parsergen::GlrAstFile) CLASS_MEMBER_BASE(vl::glr::ParsingAstBase) CLASS_MEMBER_CONSTRUCTOR(vl::Ptr(), NO_PARAMETER) CLASS_MEMBER_FIELD(types) END_CLASS_MEMBER(vl::glr::parsergen::GlrAstFile) BEGIN_INTERFACE_MEMBER(vl::glr::parsergen::GlrType::IVisitor) CLASS_MEMBER_METHOD_OVERLOAD(Visit, {L"node"}, void(vl::glr::parsergen::GlrType::IVisitor::*)(vl::glr::parsergen::GlrEnum* node)) CLASS_MEMBER_METHOD_OVERLOAD(Visit, {L"node"}, void(vl::glr::parsergen::GlrType::IVisitor::*)(vl::glr::parsergen::GlrClass* node)) END_INTERFACE_MEMBER(vl::glr::parsergen::GlrType) #endif #ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA class ParserGenTypeAstTypeLoader : public vl::Object, public ITypeLoader { public: void Load(ITypeManager* manager) { ADD_TYPE_INFO(vl::glr::parsergen::GlrType) ADD_TYPE_INFO(vl::glr::parsergen::GlrType::IVisitor) ADD_TYPE_INFO(vl::glr::parsergen::GlrEnumItem) ADD_TYPE_INFO(vl::glr::parsergen::GlrEnum) ADD_TYPE_INFO(vl::glr::parsergen::GlrPropType) ADD_TYPE_INFO(vl::glr::parsergen::GlrClassProp) ADD_TYPE_INFO(vl::glr::parsergen::GlrClass) ADD_TYPE_INFO(vl::glr::parsergen::GlrAstFile) } void Unload(ITypeManager* manager) { } }; #endif #endif bool ParserGenTypeAstLoadTypes() { #ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA if (auto manager = GetGlobalTypeManager()) { auto loader = Ptr(new ParserGenTypeAstTypeLoader); return manager->AddTypeLoader(loader); } #endif return false; } } /*********************************************************************** .\PARSERGEN_GENERATED\PARSERGENTYPEAST_BUILDER.CPP ***********************************************************************/ /*********************************************************************** This file is generated by: Vczh Parser Generator From parser definition:TypeAst Licensed under https://github.com/vczh-libraries/License ***********************************************************************/ namespace vl::glr::parsergen::builder { /*********************************************************************** MakeAstFile ***********************************************************************/ MakeAstFile& MakeAstFile::types(const vl::Ptr& value) { node->types.Add(value); return *this; } /*********************************************************************** MakeClass ***********************************************************************/ MakeClass& MakeClass::attAmbiguous(const vl::WString& value) { node->attAmbiguous.value = value; return *this; } MakeClass& MakeClass::baseClass(const vl::WString& value) { node->baseClass.value = value; return *this; } MakeClass& MakeClass::props(const vl::Ptr& value) { node->props.Add(value); return *this; } MakeClass& MakeClass::attPublic(const vl::WString& value) { node->attPublic.value = value; return *this; } MakeClass& MakeClass::name(const vl::WString& value) { node->name.value = value; return *this; } /*********************************************************************** MakeClassProp ***********************************************************************/ MakeClassProp& MakeClassProp::name(const vl::WString& value) { node->name.value = value; return *this; } MakeClassProp& MakeClassProp::propType(GlrPropType value) { node->propType = value; return *this; } MakeClassProp& MakeClassProp::propTypeName(const vl::WString& value) { node->propTypeName.value = value; return *this; } /*********************************************************************** MakeEnum ***********************************************************************/ MakeEnum& MakeEnum::items(const vl::Ptr& value) { node->items.Add(value); return *this; } MakeEnum& MakeEnum::attPublic(const vl::WString& value) { node->attPublic.value = value; return *this; } MakeEnum& MakeEnum::name(const vl::WString& value) { node->name.value = value; return *this; } /*********************************************************************** MakeEnumItem ***********************************************************************/ MakeEnumItem& MakeEnumItem::name(const vl::WString& value) { node->name.value = value; return *this; } /*********************************************************************** MakeType ***********************************************************************/ MakeType& MakeType::attPublic(const vl::WString& value) { node->attPublic.value = value; return *this; } MakeType& MakeType::name(const vl::WString& value) { node->name.value = value; return *this; } } /*********************************************************************** .\PARSERGEN_GENERATED\PARSERGENTYPEAST_COPY.CPP ***********************************************************************/ /*********************************************************************** This file is generated by: Vczh Parser Generator From parser definition:TypeAst Licensed under https://github.com/vczh-libraries/License ***********************************************************************/ namespace vl::glr::parsergen::copy_visitor { void TypeAstVisitor::CopyFields(GlrAstFile* from, GlrAstFile* to) { for (auto&& listItem : from->types) { to->types.Add(CopyNode(listItem.Obj())); } } void TypeAstVisitor::CopyFields(GlrClass* from, GlrClass* to) { CopyFields(static_cast(from), static_cast(to)); to->attAmbiguous = from->attAmbiguous; to->baseClass = from->baseClass; for (auto&& listItem : from->props) { to->props.Add(CopyNode(listItem.Obj())); } } void TypeAstVisitor::CopyFields(GlrClassProp* from, GlrClassProp* to) { to->name = from->name; to->propType = from->propType; to->propTypeName = from->propTypeName; } void TypeAstVisitor::CopyFields(GlrEnum* from, GlrEnum* to) { CopyFields(static_cast(from), static_cast(to)); for (auto&& listItem : from->items) { to->items.Add(CopyNode(listItem.Obj())); } } void TypeAstVisitor::CopyFields(GlrEnumItem* from, GlrEnumItem* to) { to->name = from->name; } void TypeAstVisitor::CopyFields(GlrType* from, GlrType* to) { to->attPublic = from->attPublic; to->name = from->name; } void TypeAstVisitor::Visit(GlrEnumItem* node) { auto newNode = vl::Ptr(new GlrEnumItem); CopyFields(node, newNode.Obj()); this->result = newNode; } void TypeAstVisitor::Visit(GlrClassProp* node) { auto newNode = vl::Ptr(new GlrClassProp); CopyFields(node, newNode.Obj()); this->result = newNode; } void TypeAstVisitor::Visit(GlrAstFile* node) { auto newNode = vl::Ptr(new GlrAstFile); CopyFields(node, newNode.Obj()); this->result = newNode; } void TypeAstVisitor::Visit(GlrEnum* node) { auto newNode = vl::Ptr(new GlrEnum); CopyFields(node, newNode.Obj()); this->result = newNode; } void TypeAstVisitor::Visit(GlrClass* node) { auto newNode = vl::Ptr(new GlrClass); CopyFields(node, newNode.Obj()); this->result = newNode; } vl::Ptr TypeAstVisitor::CopyNode(GlrType* node) { if (!node) return nullptr; node->Accept(static_cast(this)); this->result->codeRange = node->codeRange; return this->result.Cast(); } vl::Ptr TypeAstVisitor::CopyNode(GlrEnumItem* node) { if (!node) return nullptr; Visit(node); this->result->codeRange = node->codeRange; return this->result.Cast(); } vl::Ptr TypeAstVisitor::CopyNode(GlrClassProp* node) { if (!node) return nullptr; Visit(node); this->result->codeRange = node->codeRange; return this->result.Cast(); } vl::Ptr TypeAstVisitor::CopyNode(GlrAstFile* node) { if (!node) return nullptr; Visit(node); this->result->codeRange = node->codeRange; return this->result.Cast(); } vl::Ptr TypeAstVisitor::CopyNode(GlrClass* node) { if (!node) return nullptr; return CopyNode(static_cast(node)).Cast(); } vl::Ptr TypeAstVisitor::CopyNode(GlrEnum* node) { if (!node) return nullptr; return CopyNode(static_cast(node)).Cast(); } } /*********************************************************************** .\PARSERGEN_GENERATED\PARSERGENTYPEAST_EMPTY.CPP ***********************************************************************/ /*********************************************************************** This file is generated by: Vczh Parser Generator From parser definition:TypeAst Licensed under https://github.com/vczh-libraries/License ***********************************************************************/ namespace vl::glr::parsergen::empty_visitor { /*********************************************************************** TypeVisitor ***********************************************************************/ // Visitor Members ----------------------------------- void TypeVisitor::Visit(GlrEnum* node) { } void TypeVisitor::Visit(GlrClass* node) { } } /*********************************************************************** .\PARSERGEN_GENERATED\PARSERGENTYPEAST_JSON.CPP ***********************************************************************/ /*********************************************************************** This file is generated by: Vczh Parser Generator From parser definition:TypeAst Licensed under https://github.com/vczh-libraries/License ***********************************************************************/ namespace vl::glr::parsergen::json_visitor { void TypeAstVisitor::PrintFields(GlrAstFile* node) { BeginField(L"types"); BeginArray(); for (auto&& listItem : node->types) { BeginArrayItem(); Print(listItem.Obj()); EndArrayItem(); } EndArray(); EndField(); } void TypeAstVisitor::PrintFields(GlrClass* node) { BeginField(L"attAmbiguous"); WriteToken(node->attAmbiguous); EndField(); BeginField(L"baseClass"); WriteToken(node->baseClass); EndField(); BeginField(L"props"); BeginArray(); for (auto&& listItem : node->props) { BeginArrayItem(); Print(listItem.Obj()); EndArrayItem(); } EndArray(); EndField(); } void TypeAstVisitor::PrintFields(GlrClassProp* node) { BeginField(L"name"); WriteToken(node->name); EndField(); BeginField(L"propType"); switch (node->propType) { case vl::glr::parsergen::GlrPropType::Array: WriteString(L"Array"); break; case vl::glr::parsergen::GlrPropType::Token: WriteString(L"Token"); break; case vl::glr::parsergen::GlrPropType::Type: WriteString(L"Type"); break; default: WriteNull(); } EndField(); BeginField(L"propTypeName"); WriteToken(node->propTypeName); EndField(); } void TypeAstVisitor::PrintFields(GlrEnum* node) { BeginField(L"items"); BeginArray(); for (auto&& listItem : node->items) { BeginArrayItem(); Print(listItem.Obj()); EndArrayItem(); } EndArray(); EndField(); } void TypeAstVisitor::PrintFields(GlrEnumItem* node) { BeginField(L"name"); WriteToken(node->name); EndField(); } void TypeAstVisitor::PrintFields(GlrType* node) { BeginField(L"attPublic"); WriteToken(node->attPublic); EndField(); BeginField(L"name"); WriteToken(node->name); EndField(); } void TypeAstVisitor::Visit(GlrEnum* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"Enum", node); PrintFields(static_cast(node)); PrintFields(static_cast(node)); EndObject(); } void TypeAstVisitor::Visit(GlrClass* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"Class", node); PrintFields(static_cast(node)); PrintFields(static_cast(node)); EndObject(); } TypeAstVisitor::TypeAstVisitor(vl::stream::StreamWriter& _writer) : vl::glr::JsonVisitorBase(_writer) { } void TypeAstVisitor::Print(GlrType* node) { if (!node) { WriteNull(); return; } node->Accept(static_cast(this)); } void TypeAstVisitor::Print(GlrEnumItem* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"EnumItem", node); PrintFields(static_cast(node)); EndObject(); } void TypeAstVisitor::Print(GlrClassProp* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"ClassProp", node); PrintFields(static_cast(node)); EndObject(); } void TypeAstVisitor::Print(GlrAstFile* node) { if (!node) { WriteNull(); return; } BeginObject(); WriteType(L"AstFile", node); PrintFields(static_cast(node)); EndObject(); } } /*********************************************************************** .\PARSERGEN_GENERATED\PARSERGENTYPEAST_TRAVERSE.CPP ***********************************************************************/ /*********************************************************************** This file is generated by: Vczh Parser Generator From parser definition:TypeAst Licensed under https://github.com/vczh-libraries/License ***********************************************************************/ namespace vl::glr::parsergen::traverse_visitor { void TypeAstVisitor::Traverse(vl::glr::ParsingToken& token) {} void TypeAstVisitor::Traverse(vl::glr::ParsingAstBase* node) {} void TypeAstVisitor::Traverse(GlrAstFile* node) {} void TypeAstVisitor::Traverse(GlrClass* node) {} void TypeAstVisitor::Traverse(GlrClassProp* node) {} void TypeAstVisitor::Traverse(GlrEnum* node) {} void TypeAstVisitor::Traverse(GlrEnumItem* node) {} void TypeAstVisitor::Traverse(GlrType* node) {} void TypeAstVisitor::Finishing(vl::glr::ParsingAstBase* node) {} void TypeAstVisitor::Finishing(GlrAstFile* node) {} void TypeAstVisitor::Finishing(GlrClass* node) {} void TypeAstVisitor::Finishing(GlrClassProp* node) {} void TypeAstVisitor::Finishing(GlrEnum* node) {} void TypeAstVisitor::Finishing(GlrEnumItem* node) {} void TypeAstVisitor::Finishing(GlrType* node) {} void TypeAstVisitor::Visit(GlrEnum* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(static_cast(node)); for (auto&& listItem : node->items) { InspectInto(listItem.Obj()); } Traverse(node->attPublic); Traverse(node->name); Finishing(static_cast(node)); Finishing(static_cast(node)); Finishing(static_cast(node)); } void TypeAstVisitor::Visit(GlrClass* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(node->attAmbiguous); Traverse(node->baseClass); for (auto&& listItem : node->props) { InspectInto(listItem.Obj()); } Traverse(node->attPublic); Traverse(node->name); Finishing(static_cast(node)); Finishing(static_cast(node)); Finishing(static_cast(node)); } void TypeAstVisitor::InspectInto(GlrType* node) { if (!node) return; node->Accept(static_cast(this)); } void TypeAstVisitor::InspectInto(GlrEnumItem* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(node->name); Finishing(static_cast(node)); Finishing(static_cast(node)); } void TypeAstVisitor::InspectInto(GlrClassProp* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); Traverse(node->name); Traverse(node->propTypeName); Finishing(static_cast(node)); Finishing(static_cast(node)); } void TypeAstVisitor::InspectInto(GlrAstFile* node) { if (!node) return; Traverse(static_cast(node)); Traverse(static_cast(node)); for (auto&& listItem : node->types) { InspectInto(listItem.Obj()); } Finishing(static_cast(node)); Finishing(static_cast(node)); } } /*********************************************************************** .\PARSERGEN_GENERATED\PARSERGENTYPEPARSER.CPP ***********************************************************************/ /*********************************************************************** This file is generated by: Vczh Parser Generator From parser definition:ParserGen Licensed under https://github.com/vczh-libraries/License ***********************************************************************/ namespace vl::glr::parsergen { void ParserGenTypeParserData(vl::stream::IStream& outputStream) { static const vl::vint dataLength = 2930; // 42808 bytes before compressing static const vl::vint dataBlock = 256; static const vl::vint dataRemain = 114; static const vl::vint dataSolidRows = 11; static const vl::vint dataRows = 12; static const char* compressed[] = { "\x38\xA7\x00\x00\x6A\x0B\x00\x00\x27\x00\x01\x82\x80\x08\x03\x82\x81\x82\x06\x89\x82\x84\x0A\x84\x06\x85\x09\x0A\x9A\x0A\x82\x1A\x80\x16\x84\x16\x0A\xB0\x47\x09\x8F\x7D\x8E\x8F\x8E\x0A\x80\x1F\x9F\x81\x93\x92\x8F\x92\x26\xFF\x68\x86\x9B\x93\x91\x96\x92\x0A\xA9\xAA\x91\x99\x97\x97\x92\x9A\x2C\xB8\xAE\x9A\x90\x9C\x8D\x9A\x9E\x37\xBE\xB9\x82\xAB\x9C\xA1\x9E\x83\x32\xB6\xA0\x80\xAB\xA6\xA1\xA0\xA4\x3F\xCE\x8D\xB0\xA3\xA4\xA9\xA2\xAB\x47\x83\x89\xAC\xA3\x9A\xA9\xAE\xAC\x4F\xDA\x91\xA0\xB3\xAA\xB1\xAA\xB3\x57\xE8\x99\xA1\x92\x81\x00\xAE\xA5\x5F\xEA\xA1\xA2\x8B\xAE\xAC\xB9\xBB\x6F\xF9\xB6\xBA\xB4\xB1\xB8\xBB\xB1\x72\xE5\xBF\xA7\xB3\xC1\xB5\xC3\xB5\x01\xF5\xBD\xB8\xBB\xBD\xC7\xC4\xBE\x81\xFE\x89\xC0\xC7\xC3\xBB\xC8\xC2\x97\x86\xD9\xC8\xC2\x94\xCB\xCC\xCB\x9D\x98\xE1\xDA\xC3\xD4\xCE\xC5\xC8\x8C\x8F\xCE\xC8\xD0\xCD\xCA\xC1\xCF\xAF\xA5\xE0\xCE\xB9\x84\xDA\xD5\xDB\xAC\xAB\xEE\xD2\xC2\xD9\xDB\xD3\xDD\xA9\xB9\xF8\xC0\xED\xD0\xD8\xDF\xDF\xC6\xC1\xC4\xFA\xD9\xE5\xE1\xDF\xE3\x9E\xCF\xCA\xED\xEC\xE2\xEA\xE6\xE4\xD6\xD5\xD8\xFB", "\xE1\xEC\xEE\xD0\xEF\xA4\xE0\xE6\xDD\xE4\xF7\xED\xF3\xF0\xE7\xE3\xE6\xEB\xF8\xF4\xF6\xF5\xF6\xF0\xEF\xF2\xE0\xD2\xF4\xF9\xF4\xD0\x02\x0A\xB6\xC2\xEC\xFB\xE7\xE0\xEA\xFF\x59\x71\x81\x7D\xBE\x77\x75\x82\x7B\xF6\x48\x87\x81\x7C\x09\x8C\x8B\x80\x67\x03\x3A\x77\x75\x74\x0C\x75\x63\x86\x82\xD0\x58\x83\x76\x80\xFD\x40\x8D\x84\x87\xFE\x5F\x84\x81\x86\x0E\xA4\x83\x7F\x83\x0D\xA7\x86\x89\x8A\x2C\xA8\x8E\x8B\x8A\x2F\x9B\x83\x8A\x8C\x06\xB0\x86\x8C\x8D\x1A\x97\x85\x88\x8E\x3B\xBA\x8A\x88\x8F\x3F\xBE\x8D\x8B\x8D\x42\xB1\x85\x90\x91\xDA\x75\x80\x93\x90\x4B\x86\x99\x91\x8E\x4F\xBD\x81\x95\x90\xD5\x45\x02\x87\x94\x4C\x87\x9D\x90\x92\x03\x8A\x9A\x97\x97\x58\x8E\x9D\x94\x94\x63\x92\x95\x98\x95\x67\x99\x91\x98\x97\x22\x9E\x9B\x9B\x96\x70\xA0\x99\x9A\x98\x6D\xA4\x95\x9E\x99\x77\xA8\x99\x9E\x9A\x73\xAC\x91\x8B\x9F\x1E\x80\xA0\x89\xA0\x84\x83\xA0\x02\x01\x57\xBD\x91\x9F\x9B\x72\xBB\x94\x9E\xA0\x33\x8D\xA0\xA6\x9B\x8A\x8A\x4B\x46\x85\x8C\x99\xA5\xA6\xA6\x8E\xBE\x95\xA1\xA4\x9C\x93\xA2\x68\x42\x06\x7B\x72\xA8\x9E\xA7\xBA\x99\xA8\x9F", "\x9D\x8B\xAB\xA7\xAB\xAD\x92\xA1\x41\x02\x89\xB1\xA1\xAB\xA7\x94\xB6\xA0\xAF\xAA\x8F\xB8\xA6\x9E\xA0\x0A\x35\xAC\xAE\xA7\x86\x8B\x02\xB2\xAF\xA8\x88\xBA\xAA\xB2\xAC\x83\xBE\xAA\xAE\xD0\x8E\xB2\xAE\xA1\xA0\xBB\xAC\xB1\xAF\xD4\xB9\xA2\xB7\xAD\xD9\xBF\xA7\xB4\xB1\xD5\x91\xBF\xB7\xB3\xDB\x96\xBD\xB4\x69\x0E\x58\xA6\xB9\xB8\xE5\xA2\xB7\xBB\xB2\xEF\x8D\xB3\xBB\xB4\xEC\xB3\xBC\xB5\xBD\xF1\x98\xB8\xBC\xBE\x0D\x07\xB9\xBC\xB8\xDA\xB6\xBB\xB9\xC0\xFF\xA4\xB2\xC2\xBB\xFB\x84\xC9\xC2\x68\x0E\x0A\x49\x7F\xBD\x0A\xD1\xCE\xB5\xC1\xF4\x92\xC9\xB0\xC5\x10\xD3\xCB\xC3\xC5\x1B\xF0\xBD\xC6\xBC\x18\xC3\xCA\xC6\xC5\x1E\xD1\x70\x06\xBF\x1F\xFA\xB4\xC8\xC8\x29\xC0\xC3\xCB\xCB\x1C\xEB\xCA\xC8\xCC\x25\xF4\xCC\xCA\xCC\x2E\xF1\xC6\xCC\xB6\x11\x28\xC8\xCE\xC1\x21\xC8\xCF\xCD\xC5\x3B\xF9\xC5\xCE\xCE\x48\xC7\xDA\xD3\xCD\x45\xC0\xDD\xCA\xD3\x43\xD9\xC9\xD0\xD3\x53\xF3\xC7\xC6\x04\x3E\xCD\xD4\xD1\xD5\x46\xD4\xDB\xD2\xD5\x5F\xDD\xD0\xDA\xD7\x20\xD0\x4A\xBA\xD0\x5A\xD2\xD1\xD8\xD4\x69\xE2\xCC\xD4\xDB\x6F\xDB\xDB\xDA\xDC\x64\xE3\xD6\xDE\xD8\x78", "\xF0\xD3\xDE\xDA\x75\xC4\xB4\x05\xD6\x71\xFC\xD7\xDE\xDE\x7D\xC4\xE3\xE0\xDD\x87\xC2\xE9\xDC\xE2\x8B\xC9\x45\x04\xE0\x7B\xEE\xD1\xE4\xDA\x81\xD2\xE5\xE0\xE3\x86\xCD\xE6\xE5\xE2\x9B\xDA\xE4\xE7\xE4\xED\xA1\xE7\xC2\xE8\x41\xE4\xEF\xD0\xE6\xA8\xCA\xE9\xE7\xEA\xA9\xDD\xEC\xEA\xEA\xAD\xDF\xE7\xE4\xEC\xB4\xEE\xE1\xEE\xE9\x51\xE6\xB6\x04\xE4\xB3\xF6\xE5\xEE\xEC\xD8\x97\x0C\xEC\xE7\xC0\xDE\xE8\xED\xDB\xC5\xEF\xEE\xEF\xF2\x1F\x98\x0E\xC3\xED\x85\x92\x47\xDB\xF1\x95\xC9\xF0\xF5\xE9\xA3\xD9\xF8\xF7\xF6\xA7\xFF\xE4\xF4\xE8\xDA\xDD\xFC\xF3\xF7\xBD\xD6\xFE\xF5\xF8\xB9\xE6\xF3\xFA\xF6\x1B\x03\xF6\xF0\xFA\xC8\xE4\xF4\xF2\xFC\xEF\xDC\xF9\xF8\xFD\xCA\xEA\xFA\xFC\xFE\xCE\x5C\x0E\xF9\xFE\xFC\x67\x7E\xFD\x71\x70\x7F\xEA\x41\x83\x7D\x03\x86\x81\x01\xE0\x79\x80\x06\xA2\x7B\x7F\x0B\x85\x7E\xA0\x1D\x0F\x7F\xEB\x4F\x87\x80\x10\x8D\x82\x04\x91\x83\x7E\x0E\xB5\x7F\x82\x1E\x80\x81\x08\x96\x87\x7F\x11\x82\x80\x84\x1A\x9D\x82\xA1\x1E\x05\x83\x13\x84\x67\x03\x2D\x88\x80\x0A\xB3\x85\x85\x14\x9F\x85\x86\x34\x84\x82\x0D\xA2\x8B\x86\x12\xBA\x81", "\x87\x0A\x9D\x84\xB7\x20\x01\x87\x0C\x80\x8E\x81\x38\x89\x8B\x0F\xD1\x31\x05\x22\x98\x87\x89\x26\x92\x86\x12\xC1\x87\x89\x0D\x82\x88\x81\x14\x33\x79\x14\xC6\x85\x87\x11\x0E\x8B\x8B\x50\x97\x88\x17\xCB\x84\x8C\x2A\x93\x88\x89\x13\x64\x07\x17\xE2\x81\x8C\x7C\x65\x03\x8D\x55\x8A\x85\x1C\xB7\x85\x8C\x34\xA6\x8A\x34\x26\x10\x8F\x19\xD6\x83\x8E\x1E\xBD\x8E\x87\x77\x81\x92\x1D\x83\x9C\x8F\x3D\xAA\x80\x20\x5A\x80\x02\x45\x09\x98\x3B\x14\x3A\x8D\x8E\x85\x90\x92\x1C\x86\x94\x8E\x41\x91\x96\x92\x93\x92\x91\x25\x84\x99\x92\x4C\x9B\x97\x92\x9C\x9F\x91\x27\xA1\x9E\x8E\x4A\xA5\x92\x87\x2A\x0F\x90\x69\x2B\x0A\x94\x52\x80\x96\x95\x2E\x9A\x93\x29\x9E\x93\x96\x58\x92\x8A\x96\x17\x2D\x94\x28\xBB\x93\x94\x5E\xA2\x97\x97\xB5\x9E\x95\x30\xBD\x94\x98\x60\xAF\x92\x98\xC7\x85\x9B\x30\xC6\x91\x96\x5A\x97\x7D\x05\xBA\x8A\x86\x0B\x51\x9C\x99\x5B\x8E\x9D\x99\xB6\x83\x8F\x35\xD6\x99\x9B\x36\xA6\x93\x5A\x2F\x1E\x5C\x0C\x4F\x75\x3A\x19\x3E\x5B\x06\xD4\x8B\x9A\x3A\xC9\x95\x9A\x6D\x9D\x98\x8C\xF0\x8C\x8D\x3C\xFF\x88\x9A\x64\xB5\x9A\x99\xEC\x8B", "\x9F\x3D\xED\x9E\x9A\x1D\xB4\x01\x9D\xF9\x81\xA3\x3E\xFA\x9C\x9A\x7B\x85\xA0\x9F\x03\xA2\xA2\x41\x35\x00\xA1\x84\x8E\xA7\xA0\xFC\x93\x9F\x37\x8F\xAE\x9C\x83\x95\xA0\xA1\x06\x36\x06\xBF\x37\x04\x9D\x00\x79\x06\x5F\x3A\x0D\xA0\x44\x84\xA7\xA3\x88\xB2\x9F\xA4\xF4\x83\xA6\x42\xA5\xA4\xA5\x7E\x9B\x9C\xA5\x2B\xAE\xA7\x3B\xA8\xA3\xA2\x04\xBB\x03\x8D\x3C\x1E\x5D\x0F\x1D\xAF\x43\x1F\x3E\x58\x08\x22\xB0\xA4\x45\xB2\xA6\xA2\xA2\x98\xA2\xA8\x2A\xBC\x59\x10\x6B\x82\x08\x7F\x43\x0C\xA7\x82\x45\x0A\xBF\x46\x01\xA8\xA3\xA6\xA1\xA5\x48\xB9\xAA\x55\xAD\xA2\xA3\x89\x47\x10\xAA\x01\x21\x5B\x9A\x32\x24\x57\x84\x18\x6E\x2B\x56\x5E\x2A\x4C\x0F\x66\x21\xB2\xBD\x4C\xAC\x0A\x39\xA6\x57\x6C\xA3\x20\xB7\x9D\x50\xAE\x09\x3B\xA7\x5C\x8A\x22\xAD\xB7\xA9\x26\xAE\x02\x27\xAD\x5F\x74\xA2\x21\xBE\xB7\xAF\xAF\x0A\x22\xB1\x64\x69\xAD\x2F\x11\x78\xAE\x20\xFD\x43\xAC\x62\x89\x21\xB3\xBE\x26\x54\x2D\xCF\x20\xB1\x40\x69\x56\xB2\xB0\x99\xB5\x21\x5C\x37\xB0\x00\x22\xBF\xB1\x81\x1C\xB1\x32\x84\xA1\x20\x63\x87\xB6\x24\xCD\x80\x06\x58\x92\xAD\xB6\x42\x15", "\xBC\xB5\x91\x2E\xB4\xB6\xBB\x2B\xB7\x6E\x0E\xB3\xB2\x83\x3A\xAE\xAF\xB2\xA9\x22\x6B\xEB\xAA\x20\xDD\x86\x39\xB5\x00\x06\xBB\x73\x48\xB5\x42\xE0\xB6\xB2\x21\xA4\x48\xB6\x42\x4D\xB5\xB7\x8F\x2E\xB2\xAE\x83\xB3\xBB\x91\x25\xB7\x21\xED\xBD\xB3\x20\xBF\xAB\xB0\x57\x32\x21\x42\xB5\xA9\x24\xB9\xDE\xA1\xBA\x41\x51\xBB\x37\xF2\x8D\xB7\xBC\x0A\x23\xB9\x8D\x5C\xB1\x20\xEC\x91\x36\xBD\x91\x24\xB9\x42\x54\xB3\x58\xFA\x80\x06\xBE\xED\xA3\xBC\x7C\xFB\xBC\x2A\xFC\xBB\xB3\xC0\x6D\xBC\x28\x7F\xC6\x32\x26\xE5\xB2\x22\x26\x0B\xCF\x39\x83\x82\xC6\x24\xE4\x86\xC6\x38\x17\xD2\xC0\x82\x83\x21\xC2\xDE\xAA\xBB\x20\xEC\xA7\xBA\x42\x19\xC4\xBC\x0A\xE3\x20\xB9\xF2\xB8\x42\x7F\x80\xC2\xC5\x84\x24\xC1\x25\x2F\xCF\xC3\x89\xDA\xB1\xB7\xE7\x89\x24\xC5\xCB\xA3\xC5\x81\xA6\xCF\x22\xF4\xBB\xAE\xC5\x3B\xC6\xBD\x85\xF1\xBC\x2A\x07\xF2\xC3\x24\x31\xC7\xC9\x47\x3E\xCE\xB8\xEB\x90\xB9\xC8\xEF\xA3\xCA\x70\xE9\xB6\xC6\x83\x38\xC5\xC4\x42\xD3\xC4\x81\xB5\xCE\xC9\x1B\xD0\xC9\xBF\x1B\xCB\x23\x97\x87\xC2\xCB\x04\xE8\xAC\xC7\x1E\x29\xCA\x92\xCC\xC5\xBA\x8F", "\x2E\xB1\xC4\xCF\x2A\xCF\x91\xA8\xC4\xCB\x2E\xD6\xCB\xCC\x0C\xC1\xCD\x40\x1D\xC3\xBF\xEF\x82\x27\xCA\x30\xC8\xCF\x92\xB4\xCD\x2E\x39\xF2\xC4\xCE\x5E\x2E\xB5\xCF\x09\xDA\x21\x45\xFD\x2E\xB5\x86\xBB\x34\xA4\xDC\x2E\xB5\x4B\x4F\xD6\x52\x94\xD8\xD2\x57\x2C\x98\xB3\x81\x22\xB0\xB9\xA0\xDA\xC7\x96\x86\x2A\xB8\x44\x49\x26\xD2\x03\x26\xD6\x41\x2A\xD3\x20\x54\xDD\xB9\x21\xAC\xCF\xD6\x41\x2E\xD1\x20\x38\xF1\xD5\xD6\x0A\x37\xD4\x41\x1A\xD6\xCD\x55\xC4\xCF\xD4\xBF\xDE\xD7\x94\xB0\xD1\xD9\x56\xFC\xA9\xD7\xC7\xC0\xD9\x42\x11\xD1\x20\x5D\xCC\xDF\x50\xC9\xD3\xD6\x42\x30\xBD\xD3\x59\x55\xDD\xD3\x80\x1E\x5D\x48\x2E\xB7\xDA\x81\x01\x16\x5F\xC8\xAE\x79\xB7\xA4\xB1\x3B\x0C\xC4\x8D\xDB\x21\x22\x12\xBF\x66\xD8\xDD\x90\x03\x16\x5F\x11\xC8\x93\xB5\xE4\xD2\x34\xE5\x9C\xD7\xDA\x86\xDC\x36\x68\xA9\x9D\xDB\x7C\xE1\x22\xD7\xD3\x8D\xDD\x42\x04\x1E\x5E\x5D\xE1\x9A\xE0\x06\x25\x11\xC1\x8A\x27\xE0\x84\xC2\x26\x10\xFE\x47\x08\xBA\xFE\xDE\xE0\x4F\xE0\xDE\x39\xC8\xB4\xDC\x69\x21\x29\xC2\x8D\xF0\x59\xC3\xC8\xB8\x38\x0F\x91\xCA\xD6\x91\xC4\xD6\xE2", "\x09\x2A\xB9\xC8\x94\x4C\xD7\x0F\x61\x24\xD6\xA3\xB3\x5A\xAE\xB0\xE6\xE4\x01\xB0\xE4\xDA\x2E\xEE\x38\x9C\xAB\xE3\x55\x68\xF9\xE2\x80\x70\xD4\xE1\xB7\xCF\xD2\xB4\x9C\xC2\x20\xB9\x21\x22\xB7\xA4\xD5\x3C\x86\xD7\x82\xEF\xDA\xB8\xA1\x22\x68\x8D\x69\x21\x8C\xFE\x5F\xD9\x46\xC2\x35\x48\x27\x6C\x90\x82\x46\xE8\xD7\x4C\xF7\x7B\x69\x82\x24\xEB\x00\x7C\x83\xEC\x01\x2E\xD3\xCF\x81\x4A\xED\xA3\xCE\x38\xED\x00\x0A\xB2\xA0\x1B\x46\x6C\x83\x3C\xE4\x34\x65\xE3\x21\xD4\x86\x51\x25\xC7\x55\xEB\x5A\x0F\x13\xB6\x73\x21\x22\x79\xBF\xDC\x5C\xEB\x06\x21\xF1\xD8\x82\x8D\xED\x80\x3B\xED\xE6\x06\x39\x02\x67\xF8\x52\xEF\x80\x08\xF3\xED\x19\x95\xEF\x40\x7E\xE6\xEC\x85\x2D\x7D\xEB\x13\x7C\xF3\x40\x12\xFB\xF1\x00\x7E\x7E\xF0\x01\x5B\x75\x42\x79\xE3\xEF\x69\x56\xE9\x21\xAA\xE6\x21\xE3\xFC\xEE\x38\x16\xA8\xF3\x20\x1D\xEA\x21\xEC\x83\x25\xF2\xDA\xD5\x3F\xDC\x76\xE7\xE5\x5B\x0A\x25\xF0\x83\x3F\x6D\xF4\x03\x39\x89\xA9\x53\x52\xDC\x83\x05\xF8\xF3\x61\x84\xF6\x41\x3B\xFD\xF4\x01\x92\x7E\x20\xA7\xFD\xF1\x75\x5E\x87\xF6\x41\x59\xFB\x20\x30\x88\xF9", "\x18\xDF\xF2\x20\x0A\xA2\xF9\x9E\xE6\xE6\x22\xED\xDA\xF1\x41\x37\x9D\xFD\x50\xEB\xE0\xFF\xE0\xD7\x71\xFC\x83\x22\xF5\xFA\x06\x32\xDC\xCA\x81\x4A\xB8\xD1\xB5\xFB\x20\x4D\x47\x7E\x27\x50\x7C\x9B\x73\x7F\x09\x1B\x48\xCB\x75\x1D\xBA\x62\x5A\x04\x82\x10\x01\x8C\x7E\x19\x4F\x80\x03\x1F\x79\x10\x81\x46\xCA\x73\x10\xEE\x75\x81\x01\x1E\x48\x89\x4C\x6F\xC1\x75\x1D\x17\x82\x10\x6A\x42\x80\x18\x19\x48\xD0\x4F\x7E\x86\x21\x82\x01\x19\x47\x02\x8D\x70\xFB\x7E\x2E\x23\x86\x10\x19\x80\x7D\x85\x23\x4E\x28\x88\x1D\x31\x83\x10\x2C\x8A\x81\x27\x53\x83\x02\x1B\x83\x34\x87\x52\x40\x82\x10\xE4\x75\x28\x1B\x26\x4E\x28\x80\x73\xA2\x5A\x7F\x02\x1C\x7D\x3C\x8F\x4F\xA0\x77\x31\x08\x88\x81\x06\x8B\x50\x9E\x5C\x51\x28\x80\x67\xA2\x53\x85\x02\x15\x72\xD1\x11\x12\x1F\x58\x82\x37\x58\x82\xAE\x5B\x85\x0A\x19\x83\xF8\x70\x5E\x9E\x5E\x53\x28\x84\x74\x15\x1A\x10\x43\x86\x84\x0A\x1B\x54\x37\x81\x1D\x5F\x71\x73\x07\x8D\x72\x69\x82\x10\x4F\x55\x87\xA2\x10\x77\xFB\x6A\x10\x1C\x8C\x83\x52\x5E\x87\x17\x37\x6F\x03\x13\x88\x41\x82\x71\x86\x80\x2F\x25\x82", "\x83\x55\x83\x10\x49\x02\x6A\x06\x1C\x04\x9E\x5B\x77\xC8\x5F\x88\xA9\x61\x89\x02\x1E\x04\x94\x83\x10\x51\x0E\x59\x8A\x7F\x81\x06\x1A\x89\x22\x8C\x89\x01\x13\x05\x9F\x82\x10\x56\x0E\x59\xB3\x79\x89\x70\x88\x8A\x00\x08\x05\xAB\x85\x28\x9A\x7E\x76\x09\x16\x8A\x01\x14\x73\x5F\x8A\x10\x5B\x05\x8B\x86\x27\x7F\x01\x18\x5C\x01\x76\x10\x27\x8C\x83\x5E\x05\x55\x01\x15\x8C\x54\x82\x80\x5F\x0E\x59\x61\x0E\x59\xCF\x78\x8B\x06\x1C\x8C\x5D\x82\x8B\x63\x0E\x59\x65\x0E\x59\xD2\x73\x10\xC4\x87\x86\xB2\x87\x06\x9E\x59\x06\x9E\x54\x81\xDE\x8A\x10\xD6\x8B\x82\xB2\x8B\x06\x93\x71\x1D\xE9\x77\x8E\x09\x19\x8E\x00\x0C\x8B\x5A\x7A\x10\x6D\x0D\x8E\xA2\x1F\x7F\xD4\x83\x10\x2E\x82\x10\xC7\x81\x84\x6F\x0A\x8C\x00\x0D\x8F\x01\x1E\x83\x72\x89\x10\x70\x0E\x59\x72\x0E\x59\x12\x8B\x8F\x02\x14\x90\xD0\x62\x80\x74\x0E\x59\x76\x0E\x59\x4E\x80\x8F\x06\x10\x91\x68\x87\x90\x06\x18\x07\x9E\x5A\x07\x9E\x56\x90\x00\x08\x5C\x10\x91\x87\xBE\x76\x10\x7C\x08\x8F\xA4\x1C\x84\xC3\x8C\x70\x7A\x8C\x91\x03\x1E\x07\x2A\x9C\x19\x8A\x8E\x90\x01\x16\x83\xD7\x62\x72", "\x0F\x65\x71\xE3\x6F\x16\x1E\x7F\x11\xA2\x5C\x16\x41\x99\x74\xED\x63\x94\xDA\x64\x94\xE8\x67\x77\x24\x1A\x94\x3D\x6D\x6E\xA1\x6E\x59\x48\x7F\x7A\x28\x88\x74\xFE\x69\x6F\xFF\x09\x61\x6C\x18\x95\x1C\x7D\x6E\x5A\x90\x8C\x6C\x1C\x67\x2C\x10\x96\x26\x11\x61\x5F\x9D\x6E\x64\x91\x12\x67\x92\x7C\x9D\x69\x96\x29\x7F\x16\x59\x76\x12\xCA\x5C\x16\x71\x91\x12\x73\x95\x5C\xED\x6E\x85\x2C\x18\x97\x26\x1A\x6B\x6C\x1C\x97\x2F\x7F\x16\xF4\x86\x12\x30\x7C\x16\x83\x9D\x6E", }; vl::glr::DecompressSerializedData(compressed, true, dataSolidRows, dataRows, dataBlock, dataRemain, outputStream); } const wchar_t* TypeParserRuleName(vl::vint index) { static const wchar_t* results[] = { L"EnumItem", L"Enum", L"ClassPropType", L"classProp", L"ClassBody", L"Class", L"Type", L"File", }; return results[index]; } const wchar_t* TypeParserStateLabel(vl::vint index) { static const wchar_t* results[] = { L"[0][EnumItem] BEGIN ", L"[1][EnumItem] END [ENDING]", L"[2][EnumItem]< ID \",\" @ >", L"[3][EnumItem]< ID @ \",\" >", L"[4][Enum] BEGIN ", L"[5][Enum] END [ENDING]", L"[6][Enum]< [ \"@public\" @ ] \"enum\" ID \"{\" { EnumItem } \"}\" >", L"[7][Enum]< [ \"@public\" ] \"enum\" @ ID \"{\" { EnumItem } \"}\" >", L"[8][Enum]< [ \"@public\" ] \"enum\" ID \"{\" @ { EnumItem } \"}\" >", L"[9][Enum]< [ \"@public\" ] \"enum\" ID \"{\" { EnumItem @ } \"}\" >", L"[10][Enum]< [ \"@public\" ] \"enum\" ID \"{\" { EnumItem } \"}\" @ >", L"[11][Enum]< [ \"@public\" ] \"enum\" ID @ \"{\" { EnumItem } \"}\" >", L"[12][ClassPropType] BEGIN ", L"[13][ClassPropType] END [ENDING]", L"[14][ClassPropType]\"token\" @", L"[15][ClassPropType]ID \"[\" \"]\" @", L"[16][ClassPropType]ID \"[\" @ \"]\"", L"[17][ClassPropType]ID @", L"[18][ClassPropType]ID @ \"[\" \"]\"", L"[19][classProp] BEGIN ", L"[20][classProp] END [ENDING]", L"[21][classProp]< \"var\" @ ID \":\" ClassPropType \";\" >", L"[22][classProp]< \"var\" ID \":\" @ ClassPropType \";\" >", L"[23][classProp]< \"var\" ID \":\" ClassPropType \";\" @ >", L"[24][classProp]< \"var\" ID \":\" ClassPropType @ \";\" >", L"[25][classProp]< \"var\" ID @ \":\" ClassPropType \";\" >", L"[26][ClassBody] BEGIN ", L"[27][ClassBody] END [ENDING]", L"[28][ClassBody]ID @ [ \":\" ID ] \"{\" { classProp } \"}\"", L"[29][ClassBody]ID [ \":\" @ ID ] \"{\" { classProp } \"}\"", L"[30][ClassBody]ID [ \":\" ID @ ] \"{\" { classProp } \"}\"", L"[31][ClassBody]ID [ \":\" ID ] \"{\" @ { classProp } \"}\"", L"[32][ClassBody]ID [ \":\" ID ] \"{\" { classProp @ } \"}\"", L"[33][ClassBody]ID [ \":\" ID ] \"{\" { classProp } \"}\" @", L"[34][Class] BEGIN ", L"[35][Class] END [ENDING]", L"[36][Class]< [ \"@public\" @ ] [ \"@ambiguous\" ] \"class\" ClassBody >", L"[37][Class]< [ \"@public\" ] [ \"@ambiguous\" @ ] \"class\" ClassBody >", L"[38][Class]< [ \"@public\" ] [ \"@ambiguous\" ] \"class\" @ ClassBody >", L"[39][Class]< [ \"@public\" ] [ \"@ambiguous\" ] \"class\" ClassBody @ >", L"[40][Type] BEGIN ", L"[41][Type] END [ENDING]", L"[42][Type]<< ( !Enum @ | !Class ) >>", L"[43][Type]<< ( !Enum | !Class @ ) >>", L"[44][File] BEGIN ", L"[45][File] END [ENDING]", L"[46][File]< Type @ { Type } >", L"[47][File]< Type { Type @ } >", }; return results[index]; } TypeParser::TypeParser() : vl::glr::ParserBase(&ParserGenTokenDeleter, &ParserGenLexerData, &ParserGenTypeParserData) { } vl::WString TypeParser::GetClassName(vl::vint32_t classIndex) const { return vl::WString::Unmanaged(ParserGenTypeName((ParserGenClasses)classIndex)); } vl::vint32_t TypeParser::FindCommonBaseClass(vl::vint32_t class1, vl::vint32_t class2) const { return -1; } vl::Ptr TypeParser::ParseFile(const vl::WString& input, vl::vint codeIndex) const { return ParseWithString(input, this, codeIndex); } vl::Ptr TypeParser::ParseFile(vl::collections::List& tokens, vl::vint codeIndex) const { return ParseWithTokens(tokens, this, codeIndex); } } /*********************************************************************** .\PARSERGEN_GENERATED\PARSERGEN_ASSEMBLER.CPP ***********************************************************************/ /*********************************************************************** This file is generated by: Vczh Parser Generator From parser definition:ParserGen Licensed under https://github.com/vczh-libraries/License ***********************************************************************/ namespace vl::glr::parsergen { /*********************************************************************** ParserGenAstInsReceiver : public vl::glr::AstInsReceiverBase ***********************************************************************/ vl::Ptr ParserGenAstInsReceiver::CreateAstNode(vl::vint32_t type) { auto cppTypeName = ParserGenCppTypeName((ParserGenClasses)type); switch((ParserGenClasses)type) { case ParserGenClasses::AlternativeSyntax: return vl::Ptr(new vl::glr::parsergen::GlrAlternativeSyntax); case ParserGenClasses::AndCondition: return vl::Ptr(new vl::glr::parsergen::GlrAndCondition); case ParserGenClasses::Assignment: return vl::Ptr(new vl::glr::parsergen::GlrAssignment); case ParserGenClasses::AstFile: return vl::Ptr(new vl::glr::parsergen::GlrAstFile); case ParserGenClasses::Class: return vl::Ptr(new vl::glr::parsergen::GlrClass); case ParserGenClasses::ClassProp: return vl::Ptr(new vl::glr::parsergen::GlrClassProp); case ParserGenClasses::CreateClause: return vl::Ptr(new vl::glr::parsergen::GlrCreateClause); case ParserGenClasses::Enum: return vl::Ptr(new vl::glr::parsergen::GlrEnum); case ParserGenClasses::EnumItem: return vl::Ptr(new vl::glr::parsergen::GlrEnumItem); case ParserGenClasses::LeftRecursionInjectClause: return vl::Ptr(new vl::glr::parsergen::GlrLeftRecursionInjectClause); case ParserGenClasses::LeftRecursionInjectContinuation: return vl::Ptr(new vl::glr::parsergen::GlrLeftRecursionInjectContinuation); case ParserGenClasses::LeftRecursionPlaceholder: return vl::Ptr(new vl::glr::parsergen::GlrLeftRecursionPlaceholder); case ParserGenClasses::LeftRecursionPlaceholderClause: return vl::Ptr(new vl::glr::parsergen::GlrLeftRecursionPlaceholderClause); case ParserGenClasses::LoopSyntax: return vl::Ptr(new vl::glr::parsergen::GlrLoopSyntax); case ParserGenClasses::NotCondition: return vl::Ptr(new vl::glr::parsergen::GlrNotCondition); case ParserGenClasses::OptionalSyntax: return vl::Ptr(new vl::glr::parsergen::GlrOptionalSyntax); case ParserGenClasses::OrCondition: return vl::Ptr(new vl::glr::parsergen::GlrOrCondition); case ParserGenClasses::PartialClause: return vl::Ptr(new vl::glr::parsergen::GlrPartialClause); case ParserGenClasses::PrefixMergeClause: return vl::Ptr(new vl::glr::parsergen::GlrPrefixMergeClause); case ParserGenClasses::PushConditionSyntax: return vl::Ptr(new vl::glr::parsergen::GlrPushConditionSyntax); case ParserGenClasses::RefCondition: return vl::Ptr(new vl::glr::parsergen::GlrRefCondition); case ParserGenClasses::RefSyntax: return vl::Ptr(new vl::glr::parsergen::GlrRefSyntax); case ParserGenClasses::ReuseClause: return vl::Ptr(new vl::glr::parsergen::GlrReuseClause); case ParserGenClasses::Rule: return vl::Ptr(new vl::glr::parsergen::GlrRule); case ParserGenClasses::SequenceSyntax: return vl::Ptr(new vl::glr::parsergen::GlrSequenceSyntax); case ParserGenClasses::SwitchItem: return vl::Ptr(new vl::glr::parsergen::GlrSwitchItem); case ParserGenClasses::SyntaxFile: return vl::Ptr(new vl::glr::parsergen::GlrSyntaxFile); case ParserGenClasses::TestConditionBranch: return vl::Ptr(new vl::glr::parsergen::GlrTestConditionBranch); case ParserGenClasses::TestConditionSyntax: return vl::Ptr(new vl::glr::parsergen::GlrTestConditionSyntax); case ParserGenClasses::UseSyntax: return vl::Ptr(new vl::glr::parsergen::GlrUseSyntax); default: return vl::glr::AssemblyThrowCannotCreateAbstractType(type, cppTypeName); } } void ParserGenAstInsReceiver::SetField(vl::glr::ParsingAstBase* object, vl::vint32_t field, vl::Ptr value) { auto cppFieldName = ParserGenCppFieldName((ParserGenFields)field); switch((ParserGenFields)field) { case ParserGenFields::AlternativeSyntax_first: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrAlternativeSyntax::first, object, field, value, cppFieldName); case ParserGenFields::AlternativeSyntax_second: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrAlternativeSyntax::second, object, field, value, cppFieldName); case ParserGenFields::AndCondition_first: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrAndCondition::first, object, field, value, cppFieldName); case ParserGenFields::AndCondition_second: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrAndCondition::second, object, field, value, cppFieldName); case ParserGenFields::AstFile_types: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrAstFile::types, object, field, value, cppFieldName); case ParserGenFields::Class_props: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrClass::props, object, field, value, cppFieldName); case ParserGenFields::CreateClause_assignments: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrCreateClause::assignments, object, field, value, cppFieldName); case ParserGenFields::CreateClause_syntax: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrCreateClause::syntax, object, field, value, cppFieldName); case ParserGenFields::Enum_items: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrEnum::items, object, field, value, cppFieldName); case ParserGenFields::LeftRecursionInjectClause_continuation: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrLeftRecursionInjectClause::continuation, object, field, value, cppFieldName); case ParserGenFields::LeftRecursionInjectClause_rule: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrLeftRecursionInjectClause::rule, object, field, value, cppFieldName); case ParserGenFields::LeftRecursionInjectContinuation_flags: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrLeftRecursionInjectContinuation::flags, object, field, value, cppFieldName); case ParserGenFields::LeftRecursionInjectContinuation_injectionTargets: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrLeftRecursionInjectContinuation::injectionTargets, object, field, value, cppFieldName); case ParserGenFields::LeftRecursionPlaceholderClause_flags: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrLeftRecursionPlaceholderClause::flags, object, field, value, cppFieldName); case ParserGenFields::LoopSyntax_delimiter: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrLoopSyntax::delimiter, object, field, value, cppFieldName); case ParserGenFields::LoopSyntax_syntax: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrLoopSyntax::syntax, object, field, value, cppFieldName); case ParserGenFields::NotCondition_condition: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrNotCondition::condition, object, field, value, cppFieldName); case ParserGenFields::OptionalSyntax_syntax: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrOptionalSyntax::syntax, object, field, value, cppFieldName); case ParserGenFields::OrCondition_first: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrOrCondition::first, object, field, value, cppFieldName); case ParserGenFields::OrCondition_second: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrOrCondition::second, object, field, value, cppFieldName); case ParserGenFields::PartialClause_assignments: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrPartialClause::assignments, object, field, value, cppFieldName); case ParserGenFields::PartialClause_syntax: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrPartialClause::syntax, object, field, value, cppFieldName); case ParserGenFields::PrefixMergeClause_rule: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrPrefixMergeClause::rule, object, field, value, cppFieldName); case ParserGenFields::PushConditionSyntax_switches: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrPushConditionSyntax::switches, object, field, value, cppFieldName); case ParserGenFields::PushConditionSyntax_syntax: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrPushConditionSyntax::syntax, object, field, value, cppFieldName); case ParserGenFields::ReuseClause_assignments: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrReuseClause::assignments, object, field, value, cppFieldName); case ParserGenFields::ReuseClause_syntax: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrReuseClause::syntax, object, field, value, cppFieldName); case ParserGenFields::Rule_clauses: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrRule::clauses, object, field, value, cppFieldName); case ParserGenFields::SequenceSyntax_first: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrSequenceSyntax::first, object, field, value, cppFieldName); case ParserGenFields::SequenceSyntax_second: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrSequenceSyntax::second, object, field, value, cppFieldName); case ParserGenFields::SyntaxFile_rules: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrSyntaxFile::rules, object, field, value, cppFieldName); case ParserGenFields::SyntaxFile_switches: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrSyntaxFile::switches, object, field, value, cppFieldName); case ParserGenFields::TestConditionBranch_condition: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrTestConditionBranch::condition, object, field, value, cppFieldName); case ParserGenFields::TestConditionBranch_syntax: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrTestConditionBranch::syntax, object, field, value, cppFieldName); case ParserGenFields::TestConditionSyntax_branches: return vl::glr::AssemblerSetObjectField(&vl::glr::parsergen::GlrTestConditionSyntax::branches, object, field, value, cppFieldName); default: return vl::glr::AssemblyThrowFieldNotObject(field, cppFieldName); } } void ParserGenAstInsReceiver::SetField(vl::glr::ParsingAstBase* object, vl::vint32_t field, const vl::regex::RegexToken& token, vl::vint32_t tokenIndex) { auto cppFieldName = ParserGenCppFieldName((ParserGenFields)field); switch((ParserGenFields)field) { case ParserGenFields::Assignment_field: return vl::glr::AssemblerSetTokenField(&vl::glr::parsergen::GlrAssignment::field, object, field, token, tokenIndex, cppFieldName); case ParserGenFields::Assignment_value: return vl::glr::AssemblerSetTokenField(&vl::glr::parsergen::GlrAssignment::value, object, field, token, tokenIndex, cppFieldName); case ParserGenFields::Class_attAmbiguous: return vl::glr::AssemblerSetTokenField(&vl::glr::parsergen::GlrClass::attAmbiguous, object, field, token, tokenIndex, cppFieldName); case ParserGenFields::Class_baseClass: return vl::glr::AssemblerSetTokenField(&vl::glr::parsergen::GlrClass::baseClass, object, field, token, tokenIndex, cppFieldName); case ParserGenFields::ClassProp_name: return vl::glr::AssemblerSetTokenField(&vl::glr::parsergen::GlrClassProp::name, object, field, token, tokenIndex, cppFieldName); case ParserGenFields::ClassProp_propTypeName: return vl::glr::AssemblerSetTokenField(&vl::glr::parsergen::GlrClassProp::propTypeName, object, field, token, tokenIndex, cppFieldName); case ParserGenFields::CreateClause_type: return vl::glr::AssemblerSetTokenField(&vl::glr::parsergen::GlrCreateClause::type, object, field, token, tokenIndex, cppFieldName); case ParserGenFields::EnumItem_name: return vl::glr::AssemblerSetTokenField(&vl::glr::parsergen::GlrEnumItem::name, object, field, token, tokenIndex, cppFieldName); case ParserGenFields::LeftRecursionPlaceholder_flag: return vl::glr::AssemblerSetTokenField(&vl::glr::parsergen::GlrLeftRecursionPlaceholder::flag, object, field, token, tokenIndex, cppFieldName); case ParserGenFields::PartialClause_type: return vl::glr::AssemblerSetTokenField(&vl::glr::parsergen::GlrPartialClause::type, object, field, token, tokenIndex, cppFieldName); case ParserGenFields::RefCondition_name: return vl::glr::AssemblerSetTokenField(&vl::glr::parsergen::GlrRefCondition::name, object, field, token, tokenIndex, cppFieldName); case ParserGenFields::RefSyntax_field: return vl::glr::AssemblerSetTokenField(&vl::glr::parsergen::GlrRefSyntax::field, object, field, token, tokenIndex, cppFieldName); case ParserGenFields::RefSyntax_literal: return vl::glr::AssemblerSetTokenField(&vl::glr::parsergen::GlrRefSyntax::literal, object, field, token, tokenIndex, cppFieldName); case ParserGenFields::Rule_attParser: return vl::glr::AssemblerSetTokenField(&vl::glr::parsergen::GlrRule::attParser, object, field, token, tokenIndex, cppFieldName); case ParserGenFields::Rule_attPublic: return vl::glr::AssemblerSetTokenField(&vl::glr::parsergen::GlrRule::attPublic, object, field, token, tokenIndex, cppFieldName); case ParserGenFields::Rule_name: return vl::glr::AssemblerSetTokenField(&vl::glr::parsergen::GlrRule::name, object, field, token, tokenIndex, cppFieldName); case ParserGenFields::Rule_type: return vl::glr::AssemblerSetTokenField(&vl::glr::parsergen::GlrRule::type, object, field, token, tokenIndex, cppFieldName); case ParserGenFields::SwitchItem_name: return vl::glr::AssemblerSetTokenField(&vl::glr::parsergen::GlrSwitchItem::name, object, field, token, tokenIndex, cppFieldName); case ParserGenFields::Type_attPublic: return vl::glr::AssemblerSetTokenField(&vl::glr::parsergen::GlrType::attPublic, object, field, token, tokenIndex, cppFieldName); case ParserGenFields::Type_name: return vl::glr::AssemblerSetTokenField(&vl::glr::parsergen::GlrType::name, object, field, token, tokenIndex, cppFieldName); case ParserGenFields::UseSyntax_name: return vl::glr::AssemblerSetTokenField(&vl::glr::parsergen::GlrUseSyntax::name, object, field, token, tokenIndex, cppFieldName); default: return vl::glr::AssemblyThrowFieldNotToken(field, cppFieldName); } } void ParserGenAstInsReceiver::SetField(vl::glr::ParsingAstBase* object, vl::vint32_t field, vl::vint32_t enumItem, bool weakAssignment) { auto cppFieldName = ParserGenCppFieldName((ParserGenFields)field); switch((ParserGenFields)field) { case ParserGenFields::Assignment_type: return vl::glr::AssemblerSetEnumField(&vl::glr::parsergen::GlrAssignment::type, object, field, enumItem, weakAssignment, cppFieldName); case ParserGenFields::ClassProp_propType: return vl::glr::AssemblerSetEnumField(&vl::glr::parsergen::GlrClassProp::propType, object, field, enumItem, weakAssignment, cppFieldName); case ParserGenFields::LeftRecursionInjectContinuation_configuration: return vl::glr::AssemblerSetEnumField(&vl::glr::parsergen::GlrLeftRecursionInjectContinuation::configuration, object, field, enumItem, weakAssignment, cppFieldName); case ParserGenFields::LeftRecursionInjectContinuation_type: return vl::glr::AssemblerSetEnumField(&vl::glr::parsergen::GlrLeftRecursionInjectContinuation::type, object, field, enumItem, weakAssignment, cppFieldName); case ParserGenFields::OptionalSyntax_priority: return vl::glr::AssemblerSetEnumField(&vl::glr::parsergen::GlrOptionalSyntax::priority, object, field, enumItem, weakAssignment, cppFieldName); case ParserGenFields::RefSyntax_refType: return vl::glr::AssemblerSetEnumField(&vl::glr::parsergen::GlrRefSyntax::refType, object, field, enumItem, weakAssignment, cppFieldName); case ParserGenFields::SwitchItem_value: return vl::glr::AssemblerSetEnumField(&vl::glr::parsergen::GlrSwitchItem::value, object, field, enumItem, weakAssignment, cppFieldName); default: return vl::glr::AssemblyThrowFieldNotEnum(field, cppFieldName); } } const wchar_t* ParserGenTypeName(ParserGenClasses type) { const wchar_t* results[] = { L"AlternativeSyntax", L"AndCondition", L"Assignment", L"AstFile", L"Class", L"ClassProp", L"Clause", L"Condition", L"CreateClause", L"Enum", L"EnumItem", L"LeftRecursionInjectClause", L"LeftRecursionInjectContinuation", L"LeftRecursionPlaceholder", L"LeftRecursionPlaceholderClause", L"LoopSyntax", L"NotCondition", L"OptionalSyntax", L"OrCondition", L"PartialClause", L"PrefixMergeClause", L"PushConditionSyntax", L"RefCondition", L"RefSyntax", L"ReuseClause", L"Rule", L"SequenceSyntax", L"SwitchItem", L"Syntax", L"SyntaxFile", L"TestConditionBranch", L"TestConditionSyntax", L"Type", L"UseSyntax", }; vl::vint index = (vl::vint)type; return 0 <= index && index < 34 ? results[index] : nullptr; } const wchar_t* ParserGenCppTypeName(ParserGenClasses type) { const wchar_t* results[] = { L"vl::glr::parsergen::GlrAlternativeSyntax", L"vl::glr::parsergen::GlrAndCondition", L"vl::glr::parsergen::GlrAssignment", L"vl::glr::parsergen::GlrAstFile", L"vl::glr::parsergen::GlrClass", L"vl::glr::parsergen::GlrClassProp", L"vl::glr::parsergen::GlrClause", L"vl::glr::parsergen::GlrCondition", L"vl::glr::parsergen::GlrCreateClause", L"vl::glr::parsergen::GlrEnum", L"vl::glr::parsergen::GlrEnumItem", L"vl::glr::parsergen::GlrLeftRecursionInjectClause", L"vl::glr::parsergen::GlrLeftRecursionInjectContinuation", L"vl::glr::parsergen::GlrLeftRecursionPlaceholder", L"vl::glr::parsergen::GlrLeftRecursionPlaceholderClause", L"vl::glr::parsergen::GlrLoopSyntax", L"vl::glr::parsergen::GlrNotCondition", L"vl::glr::parsergen::GlrOptionalSyntax", L"vl::glr::parsergen::GlrOrCondition", L"vl::glr::parsergen::GlrPartialClause", L"vl::glr::parsergen::GlrPrefixMergeClause", L"vl::glr::parsergen::GlrPushConditionSyntax", L"vl::glr::parsergen::GlrRefCondition", L"vl::glr::parsergen::GlrRefSyntax", L"vl::glr::parsergen::GlrReuseClause", L"vl::glr::parsergen::GlrRule", L"vl::glr::parsergen::GlrSequenceSyntax", L"vl::glr::parsergen::GlrSwitchItem", L"vl::glr::parsergen::GlrSyntax", L"vl::glr::parsergen::GlrSyntaxFile", L"vl::glr::parsergen::GlrTestConditionBranch", L"vl::glr::parsergen::GlrTestConditionSyntax", L"vl::glr::parsergen::GlrType", L"vl::glr::parsergen::GlrUseSyntax", }; vl::vint index = (vl::vint)type; return 0 <= index && index < 34 ? results[index] : nullptr; } const wchar_t* ParserGenFieldName(ParserGenFields field) { const wchar_t* results[] = { L"AlternativeSyntax::first", L"AlternativeSyntax::second", L"AndCondition::first", L"AndCondition::second", L"Assignment::field", L"Assignment::type", L"Assignment::value", L"AstFile::types", L"Class::attAmbiguous", L"Class::baseClass", L"Class::props", L"ClassProp::name", L"ClassProp::propType", L"ClassProp::propTypeName", L"CreateClause::assignments", L"CreateClause::syntax", L"CreateClause::type", L"Enum::items", L"EnumItem::name", L"LeftRecursionInjectClause::continuation", L"LeftRecursionInjectClause::rule", L"LeftRecursionInjectContinuation::configuration", L"LeftRecursionInjectContinuation::flags", L"LeftRecursionInjectContinuation::injectionTargets", L"LeftRecursionInjectContinuation::type", L"LeftRecursionPlaceholder::flag", L"LeftRecursionPlaceholderClause::flags", L"LoopSyntax::delimiter", L"LoopSyntax::syntax", L"NotCondition::condition", L"OptionalSyntax::priority", L"OptionalSyntax::syntax", L"OrCondition::first", L"OrCondition::second", L"PartialClause::assignments", L"PartialClause::syntax", L"PartialClause::type", L"PrefixMergeClause::rule", L"PushConditionSyntax::switches", L"PushConditionSyntax::syntax", L"RefCondition::name", L"RefSyntax::field", L"RefSyntax::literal", L"RefSyntax::refType", L"ReuseClause::assignments", L"ReuseClause::syntax", L"Rule::attParser", L"Rule::attPublic", L"Rule::clauses", L"Rule::name", L"Rule::type", L"SequenceSyntax::first", L"SequenceSyntax::second", L"SwitchItem::name", L"SwitchItem::value", L"SyntaxFile::rules", L"SyntaxFile::switches", L"TestConditionBranch::condition", L"TestConditionBranch::syntax", L"TestConditionSyntax::branches", L"Type::attPublic", L"Type::name", L"UseSyntax::name", }; vl::vint index = (vl::vint)field; return 0 <= index && index < 63 ? results[index] : nullptr; } const wchar_t* ParserGenCppFieldName(ParserGenFields field) { const wchar_t* results[] = { L"vl::glr::parsergen::GlrAlternativeSyntax::first", L"vl::glr::parsergen::GlrAlternativeSyntax::second", L"vl::glr::parsergen::GlrAndCondition::first", L"vl::glr::parsergen::GlrAndCondition::second", L"vl::glr::parsergen::GlrAssignment::field", L"vl::glr::parsergen::GlrAssignment::type", L"vl::glr::parsergen::GlrAssignment::value", L"vl::glr::parsergen::GlrAstFile::types", L"vl::glr::parsergen::GlrClass::attAmbiguous", L"vl::glr::parsergen::GlrClass::baseClass", L"vl::glr::parsergen::GlrClass::props", L"vl::glr::parsergen::GlrClassProp::name", L"vl::glr::parsergen::GlrClassProp::propType", L"vl::glr::parsergen::GlrClassProp::propTypeName", L"vl::glr::parsergen::GlrCreateClause::assignments", L"vl::glr::parsergen::GlrCreateClause::syntax", L"vl::glr::parsergen::GlrCreateClause::type", L"vl::glr::parsergen::GlrEnum::items", L"vl::glr::parsergen::GlrEnumItem::name", L"vl::glr::parsergen::GlrLeftRecursionInjectClause::continuation", L"vl::glr::parsergen::GlrLeftRecursionInjectClause::rule", L"vl::glr::parsergen::GlrLeftRecursionInjectContinuation::configuration", L"vl::glr::parsergen::GlrLeftRecursionInjectContinuation::flags", L"vl::glr::parsergen::GlrLeftRecursionInjectContinuation::injectionTargets", L"vl::glr::parsergen::GlrLeftRecursionInjectContinuation::type", L"vl::glr::parsergen::GlrLeftRecursionPlaceholder::flag", L"vl::glr::parsergen::GlrLeftRecursionPlaceholderClause::flags", L"vl::glr::parsergen::GlrLoopSyntax::delimiter", L"vl::glr::parsergen::GlrLoopSyntax::syntax", L"vl::glr::parsergen::GlrNotCondition::condition", L"vl::glr::parsergen::GlrOptionalSyntax::priority", L"vl::glr::parsergen::GlrOptionalSyntax::syntax", L"vl::glr::parsergen::GlrOrCondition::first", L"vl::glr::parsergen::GlrOrCondition::second", L"vl::glr::parsergen::GlrPartialClause::assignments", L"vl::glr::parsergen::GlrPartialClause::syntax", L"vl::glr::parsergen::GlrPartialClause::type", L"vl::glr::parsergen::GlrPrefixMergeClause::rule", L"vl::glr::parsergen::GlrPushConditionSyntax::switches", L"vl::glr::parsergen::GlrPushConditionSyntax::syntax", L"vl::glr::parsergen::GlrRefCondition::name", L"vl::glr::parsergen::GlrRefSyntax::field", L"vl::glr::parsergen::GlrRefSyntax::literal", L"vl::glr::parsergen::GlrRefSyntax::refType", L"vl::glr::parsergen::GlrReuseClause::assignments", L"vl::glr::parsergen::GlrReuseClause::syntax", L"vl::glr::parsergen::GlrRule::attParser", L"vl::glr::parsergen::GlrRule::attPublic", L"vl::glr::parsergen::GlrRule::clauses", L"vl::glr::parsergen::GlrRule::name", L"vl::glr::parsergen::GlrRule::type", L"vl::glr::parsergen::GlrSequenceSyntax::first", L"vl::glr::parsergen::GlrSequenceSyntax::second", L"vl::glr::parsergen::GlrSwitchItem::name", L"vl::glr::parsergen::GlrSwitchItem::value", L"vl::glr::parsergen::GlrSyntaxFile::rules", L"vl::glr::parsergen::GlrSyntaxFile::switches", L"vl::glr::parsergen::GlrTestConditionBranch::condition", L"vl::glr::parsergen::GlrTestConditionBranch::syntax", L"vl::glr::parsergen::GlrTestConditionSyntax::branches", L"vl::glr::parsergen::GlrType::attPublic", L"vl::glr::parsergen::GlrType::name", L"vl::glr::parsergen::GlrUseSyntax::name", }; vl::vint index = (vl::vint)field; return 0 <= index && index < 63 ? results[index] : nullptr; } vl::Ptr ParserGenAstInsReceiver::ResolveAmbiguity(vl::vint32_t type, vl::collections::Array>& candidates) { auto cppTypeName = ParserGenCppTypeName((ParserGenClasses)type); return vl::glr::AssemblyThrowTypeNotAllowAmbiguity(type, cppTypeName); } } /*********************************************************************** .\PARSERGEN_GENERATED\PARSERGEN_LEXER.CPP ***********************************************************************/ /*********************************************************************** This file is generated by: Vczh Parser Generator From parser definition:ParserGen Licensed under https://github.com/vczh-libraries/License ***********************************************************************/ namespace vl::glr::parsergen { bool ParserGenTokenDeleter(vl::vint token) { switch((ParserGenTokens)token) { case ParserGenTokens::COMMENT: case ParserGenTokens::SPACE: return true; default: return false; } } const wchar_t* ParserGenTokenId(ParserGenTokens token) { static const wchar_t* results[] = { L"ATT_AMBIGUOUS", L"ATT_PUBLIC", L"ATT_PARSER", L"CLASS", L"ENUM", L"VAR", L"SWITCH", L"TOKEN", L"AS", L"PARTIAL", L"OPEN_ROUND", L"CLOSE_ROUND", L"OPEN_SQUARE", L"CLOSE_SQUARE", L"OPEN_CURLY", L"CLOSE_CURLY", L"OPEN_PUSH", L"OPEN_TEST", L"AND", L"OR", L"COMMA", L"COLON", L"SEMICOLON", L"INFER", L"ALTERNATIVE", L"USE", L"ASSIGN", L"WEAK_ASSIGN", L"POSITIVE", L"NEGATIVE", L"LS_PH", L"LS_I", L"LS_IM", L"LS_PM", L"ID", L"STRING", L"CONDITIONAL_LITERAL", L"SPACE", L"COMMENT", }; vl::vint index = (vl::vint)token; return 0 <= index && index < ParserGenTokenCount ? results[index] : nullptr; } const wchar_t* ParserGenTokenDisplayText(ParserGenTokens token) { static const wchar_t* results[] = { L"@ambiguous", L"@public", L"@parser", L"class", L"enum", L"var", L"switch", L"token", L"as", L"partial", L"(", L")", L"[", L"]", L"{", L"}", L"!(", L"?(", L"&&", L"||", L",", L":", L";", L"::=", L"|", L"!", L"=", L"?=", L"+", L"-", L"left_recursion_placeholder", L"left_recursion_inject", L"left_recursion_inject_multiple", L"prefix_merge", nullptr, nullptr, nullptr, nullptr, nullptr, }; vl::vint index = (vl::vint)token; return 0 <= index && index < ParserGenTokenCount ? results[index] : nullptr; } const wchar_t* ParserGenTokenRegex(ParserGenTokens token) { static const wchar_t* results[] = { L"@ambiguous", L"@public", L"@parser", L"class", L"enum", L"var", L"switch", L"token", L"as", L"partial", L"/(", L"/)", L"/[", L"/]", L"/{", L"/}", L"!/(", L"/?/(", L"&&", L"/|/|", L",", L":", L";", L"::=", L"/|", L"!", L"=", L"/?=", L"/+", L"-", L"left_recursion_placeholder", L"left_recursion_inject", L"left_recursion_inject_multiple", L"prefix_merge", L"[a-zA-Z_][a-zA-Z0-9_]*", L"(\"[^\"]*\")+", L"(\'[^\']*\')+", L"/s+", L"////[^/r/n]*", }; vl::vint index = (vl::vint)token; return 0 <= index && index < ParserGenTokenCount ? results[index] : nullptr; } void ParserGenLexerData(vl::stream::IStream& outputStream) { static const vl::vint dataLength = 2348; // 39623 bytes before compressing static const vl::vint dataBlock = 256; static const vl::vint dataRemain = 44; static const vl::vint dataSolidRows = 9; static const vl::vint dataRows = 10; static const char* compressed[] = { "\xC7\x9A\x00\x00\x24\x09\x00\x00\x94\x00\x01\x81\x21\x84\x81\x80\x20\x82\x01\x04\x88\x04\x89\x04\x84\x82\x05\x0F\x84\x8B\x04\x8C\x04\x81\x06\x8B\x04\x8E\x04\x9F\x04\x80\x11\x8E\x82\x21\x20\x84\x82\x13\x94\x83\x10\x82\x25\x04\xA6\x0A\x94\x87\x11\x96\x82\x28\x30\x84\x89\x13\x9C\x82\x14\x9B\x04\xAB\x39\x84\x8C\x14\x9C\x83\x16\x3F\x84\xAE\x02\xA4\x87\x15\xA2\x82\x30\x04\xB9\x04\x8A\x1C\xA4\x83\x1D\x4F\x84\xBC\x12\xA4\x85\x1D\xAA\x82\x3E\x58\x84\x9F\x1B\xAC\x83\x82\x83\x04\x83\x81\x9A\x24\x83\x2D\xB2\x82\x5C\x68\x84\x9D\x2B\xB4\x82\x2E\xB7\x04\xDF\x31\xA4\x80\x34\xB8\x83\x30\x77\x84\xA2\x3A\xB4\x83\x31\xBE\x82\x64\x00\xC4\x85\x33\xC4\x82\x32\xC3\x04\xE7\x09\xC4\x88\x34\xC4\x83\x34\x8F\x84\xAA\x32\xC4\x83\x35\xCA\x82\x6C\x18\xC4\x8D\x3B\xCC\x82\x36\xCF\x04\xEF\x21\xC4\x80\x3C\xD0\x83\x38\xA7\x84\xB2\x2A\xD4\x83\x39\xD6\x82\x74\x30\xC4\x95\x33\xDC\x82\x3A\xDB\x04\xF7\x39\xC4\x88\x3C\xDC\x83\x3C\x04\xFA\x04\x9B\x33\xE4\x80\x3E\xE3\x04\xFD\x09\xE4\x8E\x3C\x83\x7F\x7F\x10\x00\x0F\xEF\xED\x0C\x81\xEB\x80\xD3\xFF\x57\xF2", "\xE3\xEB\xEF\x06\x82\x1B\x4E\xD3\xF1\x04\x84\x0E\x87\x80\x10\xD8\xD3\xF7\x04\x83\x08\x82\x0C\xE2\xCF\xDE\x11\xFF\x7C\x08\x83\x0A\xF4\x96\x34\xF1\xE1\x81\x85\x80\x0D\x12\x74\x75\x46\x7A\xCF\x40\x84\x83\x3F\x07\x04\x46\x80\x00\x02\x0A\x84\x43\x00\x0E\xBF\x71\x84\x00\x0B\x95\x84\x41\x06\x13\x96\x81\x43\x42\x12\x9D\x80\x01\x01\x04\x46\x03\x84\x01\x19\x93\x87\x45\x40\x12\x19\x44\x7D\x76\x2C\xAD\x8E\x8B\x8B\x30\xB1\x82\x8F\x8C\x34\xB5\x86\x8F\x8D\x35\x9C\x47\x80\x8E\x3C\xB8\x8E\x47\x8E\x3D\x81\x92\x93\x90\x44\x85\x9F\x70\x49\x40\x83\x98\x90\x77\x35\x8B\x99\x77\x92\x50\xA5\x41\x41\x94\x53\x92\x90\x00\x95\x57\xA2\x45\x97\x96\x59\x9C\x98\x97\x97\x56\xA0\x99\x92\x91\x64\xA5\x96\x8E\x93\x65\xA8\x9D\x90\x7D\x62\x9D\x9E\x99\x9B\x70\x96\x97\x4A\x97\x61\xB5\x94\x9F\x9D\x6E\xA6\x9A\x9F\x9E\x34\xAA\x96\x92\x9F\x33\xBE\x94\x0A\x9D\x6F\x84\xA1\x9C\x9E\x87\x85\xA8\xA2\xA1\x2B\xBC\x9E\xA2\xA3\x80\x84\x91\xA5\x8C\x7E\x89\xA6\xA4\xA3\x8B\x99\xAA\xA3\xA6\x29\x78\x9F\xA3\xA7\x8F\x93\xA2\x92\xA8\x2F\x95\xA8\xA7\xA6\x97\x9A\xAB\x4A\xA6", "\xA9\x9B\xA0\xAB\xAB\x7A\xA4\xAD\x8E\xAC\x2D\xA6\xAC\xAB\xA9\xAD\xAD\xAE\x4B\xAD\x9E\xB0\xAE\xAD\x91\xB4\xB8\x81\xB3\x93\xF4\x71\x4C\xAC\xAA\xB8\x89\xBC\x94\x4D\xC7\xAD\x9F\xAF\xB3\xD0\x91\xB2\xB7\xB4\xD4\x95\xB6\xB7\xB5\xD8\x99\xBA\xB7\xB6\xDC\x9D\xBE\xB7\xB7\xE0\xA1\xB2\xBB\xB8\xE4\xA5\xB6\xBB\xB9\xE8\xA9\xBA\xBB\xBA\x44\xB7\x43\x98\xBB\xF0\xB1\xBE\xAE\x4E\xEF\xA0\xAD\x4D\xBD\xF2\xB9\xB4\xB4\x50\xF8\xBA\xBE\xBF\xBF\x00\xC1\xCC\xBB\x50\xFD\x82\xC6\xC3\xC1\x08\xC3\x96\x51\xC1\x09\xCD\xCE\xC3\xC3\x10\xD1\xC2\xC7\xC4\x14\xD5\xC6\xC7\xC5\x18\xD9\xC4\x9B\xB0\x67\x8D\xA4\xA4\x9B\xA7\x89\x5D\xB2\xB2\xC8\xA3\xCA\xA6\xC6\xD3\x5C\xCB\x98\xC3\x47\xA0\xC6\xC9\xC9\x30\xF9\xA4\xCA\xB3\x3D\xB1\x04\x42\xCD\x01\x78\xC0\x02\xCE\x3C\xF7\xCE\xCD\x40\x32\x3F\xCB\xCE\xD0\x3D\xF9\xC4\xD3\xD1\x46\xC9\xD3\xD2\xD2\x45\xCB\xDE\xD1\xD3\x50\xC8\xDF\xD2\xD4\x51\xCC\xD4\xD7\xD5\x56\xD9\xD3\xD6\xD6\x55\xDB\xDE\xD5\x76\x33\x04\x41\xD9\x40\x63\xC0\x05\xDB\xD9\x62\xE9\xD4\xDA\xDA\x66\xC4\x44\x0C\xDB\x68\xEB\xD2\xDD\xDB\x73\xF1\xD4\xDF\xDD\x76", "\xF9\xD0\xDF\xDE\x75\xFC\xD8\xDE\xDF\x7A\xFD\xD2\xE3\xDF\x83\xC1\xE4\xE3\xE1\x86\xC6\xEF\x89\x0D\x04\x4C\xE7\x82\xE3\x4C\xBF\x30\xE4\xCA\x94\xD5\xE2\x8E\x0D\x1E\xD6\xEA\xE7\xE6\xDE\xB7\x09\xE4\xE7\x19\xCB\x5C\xC8\xB9\x38\x1F\xE0\xE9\xCB\xA3\xC1\xA6\xE9\xAD\xF4\x4D\x5F\xCA\xCC\xAF\xF3\xC4\xA1\xE5\x2A\xFD\x9B\xE8\x8B\xB6\xB1\xC2\xED\xEC\xBC\xF0\xC4\xEF\xED\x37\xB5\xE9\xEC\xEC\xBA\xFD\xED\x98\x54\xC7\xBF\xE9\xEA\x8C\xC2\xEE\xC5\xF3\xF3\xC4\xD8\x93\x56\xF1\xC0\xD0\xC5\xEE\xEA\xA3\xC3\xFB\xEE\x9B\x56\x54\xFE\xF6\xAB\x94\xD7\xFC\xF1\xF5\xA8\xD1\xE1\xF7\xA9\x59\x5F\xF7\xFB\xF2\x08\xE2\xFF\xC5\xF6\xCE\xEB\xF0\xF7\xF6\xF2\xCA\xF1\xE4\xB0\xE4\xFF\x3A\xF6\xFA\xF4\xD6\x9C\x57\xF7\xF6\x66\x4D\xF3\x07\x49\x51\xAF\x33\x7C\x7F\x00\x87\x76\x02\x8B\x8C\x81\x06\x8E\x87\x81\x10\x91\x82\x04\x93\x84\x82\x80\x62\x2F\x7E\x15\x94\x82\xFB\x30\x43\x80\xF3\x64\x62\x08\xFD\x68\x83\x01\x98\x85\x47\xAE\x66\x82\x68\x41\x7C\x68\xD6\x5E\x67\x84\x15\xAE\x84\x85\x2B\x8D\x84\x0C\xAF\x82\x87\x1A\xB1\x87\x86\x34\x99\x7D\x90\x43\x0A\x87\x0C\x91\x61", "\x71\x80\x61\x8B\xDC\x6F\x65\x70\x21\x88\x76\x88\x40\x85\x8A\x12\xC7\x8B\x89\x24\x8C\x8F\x89\x4E\x91\x88\x12\xEC\x67\x5A\x22\x3D\x86\x87\x01\x70\x73\xE4\x53\x3B\x8B\xE7\x1D\x88\x8B\x0B\x85\x08\x41\x62\x87\x40\x32\x91\x76\x8C\x68\x83\x8E\x1A\x81\x29\x8C\x36\xAB\x88\x00\x6D\x90\x8F\x1B\xF1\x84\x8F\x39\xB6\x8E\x8D\x78\x92\x8D\x1E\xF5\x8B\x8F\x3B\xBA\x8F\x8F\x7C\x80\x92\x1F\x81\x94\x91\x41\x86\x95\x8F\x88\x84\x84\x18\xBD\x46\x09\x2B\x8B\x91\x82\x47\x0E\x93\x23\x93\x9A\x5A\x24\x12\x92\x81\x1B\x85\x55\xFE\x7B\x73\x84\xF9\x49\x51\x09\x21\x8A\x91\xC5\x19\x9E\x45\x0E\x84\x5A\x84\x6D\x4A\x09\x28\xC4\x71\x81\x34\x5B\x91\x7E\xAB\x91\x94\x2A\x97\x91\x60\x52\xAC\x70\x7E\x04\x92\x95\x27\xDB\x7B\x09\xED\x6D\x93\x63\xAF\x99\x96\xA6\x4C\x0A\x96\x4F\xBE\x91\x7C\xB4\x98\x75\x30\x9E\x83\x97\x66\x80\x05\x09\xC7\x88\x66\x2D\xCA\x98\x96\x66\x8F\x7E\x09\xC5\x99\x9B\xC9\x14\x9C\x9B\xD3\x53\x9F\x94\xA2\x85\x94\x2C\xCE\x96\x99\x80\x0F\x09\x9A\x38\x50\x08\x41\x6A\x91\x20\x76\x80\x06\x9D\xF0\x8B\x9E\x3C\x81\x21\x0B\x79\xAF\x9E\x9E\xF1\x8D", "\x9C\x3E\xFB\x9A\x9F\x7E\xB7\x9E\x9F\xF9\x9F\x9E\x40\x81\xA4\xA0\x7E\x83\xA6\xA0\x05\xA0\xA0\x42\x8B\xAA\xA1\x86\x87\xA6\xA1\x09\xAF\xA2\x44\xD9\x32\x0A\x82\x15\xA1\x20\x17\xA0\x01\x46\x9B\xA6\xA3\x8E\x98\xA6\xA3\x1A\xA4\x23\x14\x20\xAC\xA3\x8F\xA6\xA1\xA4\x27\xA5\xA4\x4A\xAB\xAA\xA5\x96\xA4\xA7\xA5\x29\xB0\xA4\x4B\xB2\xAE\xA5\x98\xB6\xA3\xA6\x37\xB5\xA4\x4E\xBB\xAA\xA6\x9D\x99\x39\x8E\x3F\xB4\x3D\x21\x89\x93\xA8\x41\x84\xAF\x90\x46\xA9\xA9\x51\xCB\xA8\xA8\xA6\x87\xAF\xA9\x4A\xAD\xAA\x54\xD0\xAD\x9B\x6B\x54\x09\x99\x55\xB2\x81\x15\x58\xA9\xAB\xAA\x96\x0C\xAB\xD2\x80\xAE\xFE\x4B\x90\x9D\x72\xBB\x92\x53\x57\x01\x97\x2F\xFF\x44\xAD\x94\x5A\x9F\xAC\x70\xA9\x53\x5A\xF8\x75\x9B\xB2\x84\x20\x0B\x6F\xA6\xAC\x2B\xC8\x9C\x7C\x0E\xAD\xAD\x7C\x7A\xA7\x55\x16\x79\xA3\x76\xBE\xA1\x9C\x47\xA6\x8E\xAF\xF7\x64\x24\x9C\xB5\x86\xB2\x80\x7F\xA3\xAF\xF7\x66\x2D\xB1\xDE\x73\xAA\x52\xF9\x69\x2E\x30\xF1\xA4\xB0\x11\x81\x49\xA2\xA0\xB6\x9D\x3D\x90\xAC\xA0\x89\xA1\xB4\xB4\xA8\xA6\xB5\x69\xA7\xBA\xB5\xD4\xAC\xB7\xB5\xAB\xB1\xB6\x6B\xE2", "\xAF\x44\x1E\xBD\xAD\xAB\xF9\x5D\xA4\x4D\xBB\xB7\xA5\x91\xB9\xA4\xB7\x3C\xA0\xBA\x6E\xBF\xB4\xB9\xE0\x85\xBB\xB8\xC6\xA9\xB8\x72\xCB\xB2\xB8\x90\x95\x8C\xB6\xB8\xB1\xB8\xC2\x6C\x27\xB6\xE9\x8C\x87\x2D\xD5\xB6\xB9\xC2\x72\x29\xBA\xED\xA3\x52\xAC\x89\xA0\xB1\x67\x9C\xB9\x81\xB0\x9D\xB8\x9C\xC1\x63\x9F\x08\xF5\x25\xB2\xF2\x87\xB2\x62\xDF\x8A\xB3\x7B\xE8\xB2\xBF\xC0\xAD\xBD\x55\x97\xAA\x49\x64\xF8\x27\xBF\xF1\xB2\xAF\xB1\xAE\x95\xAD\x7D\xFE\xB4\xC0\x2E\x7B\x2C\x4B\xF9\xBF\xBA\x80\xE2\xBD\xBF\x63\x7E\x2D\xBC\xDE\xB5\x71\x60\x67\xB1\xC2\x21\x44\x34\xC2\x15\xD9\xC2\x8C\x07\x38\xC2\xCB\x71\xBD\x7C\xE9\xBB\xB2\x7D\xEE\xB6\xAD\x04\xC1\x49\xBC\x92\xA4\xC4\xA1\x0A\x3D\xC0\xF0\x66\xBB\xBE\x1D\x63\x75\x63\x22\xC5\xC0\x15\xEF\x66\xC4\xB3\x51\xB1\xA2\x10\x3D\xC5\x11\xDA\xC6\x5F\x93\x3D\xC3\x8F\xC3\xC4\xC9\x22\xE1\x5F\xC3\x29\xC1\xC6\x35\xA3\xCC\xC8\x74\x99\x60\xC9\x28\xCD\xC8\x9E\x16\x3D\xC6\xE8\xB0\x58\xCA\x3A\xD6\x49\x66\x55\xCD\xBC\x23\xD7\x64\x33\x42\xD6\x78\x78\xD9\xCA\x53\xCF\x1C\xCE\xC6\x30\xCF\x60\x96\x8B\xC9\xC4\x29", "\xE8\xCB\x49\xA2\x29\x7A\x97\x8D\x65\x35\x30\xD7\x63\xCD\x69\xC9\xCB\x80\xE7\xCD\x4C\xD4\x10\xC7\xC9\x63\xCC\xCE\x9B\xF2\x7B\x35\x3F\xF3\xCF\xD0\x47\xC1\xD1\x9E\x9C\x99\x50\xD7\x3C\xCE\xC9\x18\x78\xCE\x92\xF6\xAF\xD0\x4D\x71\x36\xB2\x00\xC0\x9A\xA0\xA7\x54\x37\x4A\xEE\xB8\xC7\x88\xA4\xCE\x7B\xB7\x3E\xD2\x9A\x6F\xC0\xB2\x9B\xC5\xD5\x8D\xA0\xD2\x58\x51\xC3\xD4\x50\xBA\x3D\xC9\xA6\xEC\xA9\xD5\x37\xE7\x55\x37\x2D\xCC\xD7\xA4\xB6\x40\x38\x1A\xEA\xD6\x99\xBA\xD1\xC7\xA2\xEA\xB4\x78\xE2\x3D\x72\x38\xC0\xD3\xD4\x5D\xC3\xDE\xD6\x5B\xC1\x27\x38\x9E\xC1\xDB\xCA\x4C\xDB\xC9\x1A\xCB\x4A\x39\xB9\xCA\xD8\x66\xEC\xCD\x39\x5F\xCE\xD9\x4F\xDA\xDA\xBD\xAD\xE6\xAF\x0E\x6B\xE4\x62\xDA\xB6\x63\xDC\x41\x00\x16\xDD\x6C\xE7\xD1\xC0\xD4\xD4\xD3\xA6\x01\x1D\xDD\x6F\xE8\xD8\x7B\xF1\xDB\xCF\xA6\x02\x15\xDE\x1F\xE1\xDA\xC1\xF9\xCC\xC0\x00\x03\x1D\xDF\x55\xFF\xDF\xC4\xAE\xDB\x78\x21\x05\xE7\xC7\x83\xF9\xC2\xDD\xDE\xCD\x4D\x21\x10\xD7\xCE\x45\xFB\xD2\xE0\xAF\xDC\x4A\x21\x06\xEF\xDC\x4D\xF9\xCF\x10\xC4\xCC\xE3\xB7\xC8\xC2\x5E\x49\xC2\xDA\xDE", "\x23\xC8\x12\xC8\xA4\xE1\x5E\x93\xD3\xD8\xE5\xE3\xA9\x12\xC8\xF7\xD3\x7C\x88\xEE\x4A\x11\x2B\xEF\xAC\xCD\xEF\x71\xE1\x36\xF9\xE7\x65\x8B\x07\xDE\xC3\xA1\xD6\xE6\x2C\x4C\x17\xE7\x9F\xC3\xE9\xAB\xC5\xEF\xAD\x46\x08\xEB\xE7\x7E\xAC\xEA\xB7\x8E\x1A\x96\xA8\xDA\x92\xEA\x23\xE1\x97\x23\x14\xE6\x62\x97\xE9\xDD\xDA\x11\xFA\xE6\xD2\x97\xEF\xEA\x98\xEF\x60\x12\x48\xE6\xD6\xC6\x5E\xE8\xDE\xB3\xD9\xE8\x4F\x91\x03\xBE\xD5\xE2\x98\xEA\xB3\x92\x17\xE9\x63\xE7\xE6\xDE\x98\xE6\x4B\x49\x29\xEE\xB1\x1D\xF4\xD5\xCF\x99\xEF\xED\xE7\x41\x4C\x1F\xFF\x1C\x1F\x09\x7E\x1F\x0F\x3A\x0A\xF6\x1F\x8A\x1F\x03\x3B\x5B\x19\x3B\x07\x00\x25\x20\x01\x3B\x56\x7B\xE9\x30\x01\x89\x01\x23\x40\x00\x07\x44\x00\x1A\x21\x21\xEF\x01\x20\x43\x99\xEF\x25\x40\x70\x31\x20\xFB\x01\x20\x3F\x01\x3A\x3E\x87\x66\x31\x21\xED\x18\x4A\xF3\x9A\xFD\x50\x00\x38\xFA\xF4\xB8\x9C\x43\x53\xFC\x20\x00\x79\x01\x21\x3C\x14\x6D\x3D\xF7\x4B\x5A\xF3\x9C\x3B\xF4\x21\x41\x41\x22\xF7\xAB\x4C\xF9\xEA\xD3\xFB\x52\x10\x47\x5C\x3D\x5C\x5C\xF5\x40\x51\xFA\xFA\xE9\xEE\x4C\x44\x2F\x6A\xF9", "\xEF\xCE\xFE\xFB\xEE\xD0\x44\x4B\x09\x5A\x51\xF7\x9A\xF2\x44\xF5\xC8\x24\x20\x0D\x41\x21\x43\x78\x4A\xF3\xDB\xC4\x55\x20\x89\x41\x25\xD8\x81\x2A\x46\x34\xF3\x3F\x58\x3F\x20\x00", }; vl::glr::DecompressSerializedData(compressed, true, dataSolidRows, dataRows, dataBlock, dataRemain, outputStream); } } /*********************************************************************** .\PARSERGEN_PRINTER\SYNTAXASTTOCODE.CPP ***********************************************************************/ namespace vl::glr::parsergen { using namespace collections; using namespace stream; namespace ast_printer { class SyntaxAstToStringVisitor : public Object , protected virtual GlrCondition::IVisitor , protected virtual GlrSyntax::IVisitor , protected virtual GlrClause::IVisitor { protected: TextWriter& writer; vint priority = -1; public: SyntaxAstToStringVisitor( TextWriter& _writer ) : writer(_writer) { } void VisitClause(Ptr clause) { clause->Accept(this); } protected: void VisitString(const WString& str) { writer.WriteString(str); } void VisitConditionalLiteral(const WString& str) { writer.WriteString(str); } void VisitSyntax(GlrSyntax* node, vint _priority = 2) { vint oldPriority = priority; priority = _priority; node->Accept(this); priority = oldPriority; } void VisitCondition(GlrCondition* node, vint _priority = 2) { vint oldPriority = priority; priority = _priority; node->Accept(this); priority = oldPriority; } void VisitSwitchItems(List>& switches) { for (auto [switchItem, index] : indexed(switches)) { if (index != 0) writer.WriteString(L", "); if (switchItem->value == GlrSwitchValue::False) writer.WriteChar(L'!'); writer.WriteString(switchItem->name.value); } } //////////////////////////////////////////////////////////////////////// // GlrCondition::IVisitor //////////////////////////////////////////////////////////////////////// void Visit(GlrRefCondition* node) override { writer.WriteString(node->name.value); } void Visit(GlrNotCondition* node) override { writer.WriteChar(L'!'); VisitCondition(node->condition.Obj(), 0); } void Visit(GlrAndCondition* node) override { if (priority < 1) writer.WriteChar(L'('); VisitCondition(node->first.Obj(), 1); writer.WriteString(L"&&"); VisitCondition(node->second.Obj(), 1); if (priority < 1) writer.WriteChar(L')'); } void Visit(GlrOrCondition* node) override { if (priority < 2) writer.WriteChar(L'('); VisitCondition(node->first.Obj(), 2); writer.WriteString(L"||"); VisitCondition(node->second.Obj(), 2); if (priority < 2) writer.WriteChar(L')'); } //////////////////////////////////////////////////////////////////////// // GlrSyntax::IVisitor //////////////////////////////////////////////////////////////////////// void Visit(GlrRefSyntax* node) override { switch (node->refType) { case GlrRefType::Id: writer.WriteString(node->literal.value); break; case GlrRefType::Literal: VisitString(node->literal.value); break; case GlrRefType::ConditionalLiteral: VisitConditionalLiteral(node->literal.value); break; default:; } if (node->field) { writer.WriteChar(L':'); writer.WriteString(node->field.value); } } void Visit(GlrUseSyntax* node) override { writer.WriteChar(L'!'); writer.WriteString(node->name.value); } void Visit(GlrLoopSyntax* node) override { writer.WriteChar(L'{'); VisitSyntax(node->syntax.Obj()); if (node->delimiter) { writer.WriteString(L" ; "); VisitSyntax(node->delimiter.Obj()); } writer.WriteChar(L'}'); } void Visit(GlrOptionalSyntax* node) override { switch (node->priority) { case GlrOptionalPriority::PreferTake: writer.WriteChar(L'+'); break; case GlrOptionalPriority::PreferSkip: writer.WriteChar(L'-'); break; case GlrOptionalPriority::Equal: break; default:; } writer.WriteChar(L'['); VisitSyntax(node->syntax.Obj()); writer.WriteChar(L']'); } void Visit(GlrSequenceSyntax* node) override { if (priority < 1) writer.WriteChar(L'('); VisitSyntax(node->first.Obj(), 1); writer.WriteChar(L' '); VisitSyntax(node->second.Obj(), 1); if (priority < 1) writer.WriteChar(L')'); } void Visit(GlrAlternativeSyntax* node) override { if (priority < 2) writer.WriteChar(L'('); VisitSyntax(node->first.Obj(), 2); writer.WriteString(L" | "); VisitSyntax(node->second.Obj(), 2); if (priority < 2) writer.WriteChar(L')'); } void Visit(GlrPushConditionSyntax* node) override { writer.WriteString(L"!("); VisitSwitchItems(node->switches); writer.WriteString(L"; "); VisitSyntax(node->syntax.Obj()); writer.WriteChar(L')'); } void Visit(GlrTestConditionSyntax* node) override { writer.WriteString(L"?("); for (auto [branch, index] : indexed(node->branches)) { if (index != 0) writer.WriteString(L" | "); VisitCondition(branch->condition.Obj()); writer.WriteString(L": "); if (branch->syntax) { VisitSyntax(branch->syntax.Obj()); } else { writer.WriteChar(L';'); } } writer.WriteChar(L')'); } //////////////////////////////////////////////////////////////////////// // GlrClause::IVisitor //////////////////////////////////////////////////////////////////////// void Visit(List>& assignments) { if (assignments.Count() > 0) { writer.WriteString(L" {"); for (auto [assignment, index] : indexed(assignments)) { if (index != 0) writer.WriteString(L", "); writer.WriteString(assignment->field.value); if (assignment->type == GlrAssignmentType::Weak) { writer.WriteString(L" ?= "); } else { writer.WriteString(L" = "); } VisitString(assignment->value.value); } writer.WriteChar(L'}'); } } void Visit(GlrCreateClause* node) override { VisitSyntax(node->syntax.Obj()); writer.WriteString(L" as "); writer.WriteString(node->type.value); Visit(node->assignments); } void Visit(GlrPartialClause* node) override { VisitSyntax(node->syntax.Obj()); writer.WriteString(L" as partial "); writer.WriteString(node->type.value); Visit(node->assignments); } void Visit(GlrReuseClause* node) override { VisitSyntax(node->syntax.Obj()); Visit(node->assignments); } void Visit(GlrLeftRecursionPlaceholderClause* node) override { writer.WriteString(L"left_recursion_placeholder("); for (auto [flag, index] : indexed(node->flags)) { if (index != 0) writer.WriteString(L", "); writer.WriteString(flag->flag.value); } writer.WriteChar(L')'); } void VisitLriCont(GlrLeftRecursionInjectContinuation* node) { if (node->type == GlrLeftRecursionInjectContinuationType::Optional) { writer.WriteChar(L'['); } writer.WriteString(L"left_recursion_inject"); if (node->configuration == GlrLeftRecursionConfiguration::Multiple) { writer.WriteString(L"_multiple"); } writer.WriteChar(L'('); for (auto [lriFlag, index] : indexed(node->flags)) { if (index != 0) writer.WriteString(L", "); writer.WriteString(lriFlag->flag.value); } writer.WriteString(L") "); for (auto [target, index] : indexed(node->injectionTargets)) { if (index != 0) writer.WriteString(L" | "); VisitLriTarget(target.Obj()); } if (node->type == GlrLeftRecursionInjectContinuationType::Optional) { writer.WriteChar(L']'); } } void VisitLriTarget(GlrLeftRecursionInjectClause* node) { if (node->continuation) { writer.WriteChar(L'('); writer.WriteString(node->rule->literal.value); writer.WriteChar(L' '); VisitLriCont(node->continuation.Obj()); writer.WriteChar(L')'); } else { writer.WriteString(node->rule->literal.value); } } void Visit(GlrLeftRecursionInjectClause* node) override { writer.WriteChar(L'!'); writer.WriteString(node->rule->literal.value); writer.WriteChar(L' '); VisitLriCont(node->continuation.Obj()); } void Visit(GlrPrefixMergeClause* node) override { writer.WriteString(L"!prefix_merge("); writer.WriteString(node->rule->literal.value); writer.WriteString(L")"); } }; } /*********************************************************************** SyntaxAstToCode ***********************************************************************/ void SyntaxAstToCode( Ptr file, TextWriter& writer ) { if (file->switches.Count() > 0) { writer.WriteString(L"switch "); for (auto [switchItem, index] : indexed(file->switches)) { if (index != 0) writer.WriteString(L", "); if (switchItem->value == GlrSwitchValue::False) writer.WriteChar(L'!'); writer.WriteString(switchItem->name.value); } writer.WriteLine(L";"); writer.WriteLine(L""); } ast_printer::SyntaxAstToStringVisitor visitor(writer); for (auto rule : file->rules) { if (rule->attPublic) { writer.WriteString(L"@public "); } if (rule->attParser) { writer.WriteString(L"@parser "); } writer.WriteString(rule->name.value); if (rule->type) { writer.WriteString(L" : "); writer.WriteString(rule->type.value); } writer.WriteLine(L""); for (auto clause : rule->clauses) { writer.WriteString(L" ::= "); visitor.VisitClause(clause); writer.WriteLine(L""); } writer.WriteLine(L" ;"); writer.WriteLine(L""); } } } /*********************************************************************** .\PARSERGEN_PRINTER\TYPEASTTOCODE.CPP ***********************************************************************/ namespace vl::glr::parsergen { using namespace collections; using namespace stream; namespace ast_printer { class TypeAstToStringVisitor : public Object , protected virtual GlrType::IVisitor { protected: TextWriter& writer; public: TypeAstToStringVisitor( TextWriter& _writer ) : writer(_writer) { } void VisitType(Ptr clause) { clause->Accept(this); } protected: //////////////////////////////////////////////////////////////////////// // GlrType::IVisitor //////////////////////////////////////////////////////////////////////// void Visit(GlrEnum* node) override { if (node->attPublic) { writer.WriteString(L"@public "); } writer.WriteString(L"enum "); writer.WriteString(node->name.value); writer.WriteLine(L""); writer.WriteLine(L"{"); for (auto item : node->items) { writer.WriteString(L" "); writer.WriteString(item->name.value); writer.WriteLine(L","); } writer.WriteLine(L"}"); } void Visit(GlrClass* node) override { if (node->attPublic) { writer.WriteString(L"@public "); } if (node->attAmbiguous) { writer.WriteString(L"@ambiguous "); } writer.WriteString(L"class "); writer.WriteString(node->name.value); if (node->baseClass) { writer.WriteString(L" : "); writer.WriteString(node->baseClass.value); } writer.WriteLine(L""); writer.WriteLine(L"{"); for (auto prop : node->props) { writer.WriteString(L" var "); writer.WriteString(prop->name.value); writer.WriteString(L" : "); switch (prop->propType) { case GlrPropType::Token: writer.WriteString(L"token"); break; case GlrPropType::Type: writer.WriteString(prop->propTypeName.value); break; case GlrPropType::Array: writer.WriteString(prop->propTypeName.value); writer.WriteString(L"[]"); break; default:; } writer.WriteLine(L";"); } writer.WriteLine(L"}"); } }; } /*********************************************************************** TypeAstToCode ***********************************************************************/ void TypeAstToCode( Ptr file, TextWriter& writer ) { ast_printer::TypeAstToStringVisitor visitor(writer); for (auto type : file->types) { visitor.VisitType(type); writer.WriteLine(L""); } } } /*********************************************************************** .\PARSERGEN_PRINTER\TYPESYMBOLTOAST.CPP ***********************************************************************/ namespace vl::glr::parsergen { /*********************************************************************** TypeAstToCode ***********************************************************************/ Ptr TypeSymbolToAst( const AstSymbolManager& manager, bool createGeneratedTypes ) { auto generated = Ptr(new GlrAstFile); for (auto groupName : manager.FileGroupOrder()) { auto group = manager.FileGroups()[groupName]; for (auto typeName : group->SymbolOrder()) { auto symbol = group->Symbols()[typeName]; if (auto enumSymbol = dynamic_cast(symbol)) { auto enumType = Ptr(new GlrEnum); generated->types.Add(enumType); if (enumSymbol->isPublic) enumType->attPublic.value = L"@public"; enumType->name.value = enumSymbol->Name(); for (auto itemName : enumSymbol->ItemOrder()) { auto itemSymbol = enumSymbol->Items()[itemName]; auto enumItem = Ptr(new GlrEnumItem); enumType->items.Add(enumItem); enumItem->name.value = itemSymbol->Name(); } } if (auto classSymbol = dynamic_cast(symbol)) { if (!createGeneratedTypes && classSymbol->classType != AstClassType::Defined) { continue; } auto classType = Ptr(new GlrClass); generated->types.Add(classType); if (classSymbol->isPublic) classType->attPublic.value = L"@public"; if (classSymbol->derivedClass_ToResolve) classType->attAmbiguous.value = L"@ambiguous"; classType->name.value = classSymbol->Name(); if (classSymbol->baseClass) { if (!createGeneratedTypes && classSymbol->baseClass->classType == AstClassType::Generated_Common) { classType->baseClass.value = classSymbol->baseClass->baseClass->Name(); } else { classType->baseClass.value = classSymbol->baseClass->Name(); } } if (!createGeneratedTypes && classSymbol->derivedClass_Common) { classSymbol = classSymbol->derivedClass_Common; } for (auto propName : classSymbol->PropOrder()) { auto propSymbol = classSymbol->Props()[propName]; auto classProp = Ptr(new GlrClassProp); classType->props.Add(classProp); classProp->name.value = propSymbol->Name(); switch (propSymbol->propType) { case AstPropType::Token: classProp->propType = GlrPropType::Token; break; case AstPropType::Type: classProp->propType = GlrPropType::Type; break; case AstPropType::Array: classProp->propType = GlrPropType::Array; break; } if (propSymbol->propSymbol) classProp->propTypeName.value = propSymbol->propSymbol->Name(); } } } } return generated; } } /*********************************************************************** .\SYNTAX\SYNTAXCPPGEN.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; using namespace stream; using namespace regex; /*********************************************************************** GenerateSyntaxFileNames ***********************************************************************/ Ptr GenerateSyntaxFileNames(SyntaxSymbolManager& manager, Ptr output) { auto syntaxOutput = Ptr(new CppSyntaxGenOutput); syntaxOutput->syntaxH = manager.Global().name + manager.name + L".h"; syntaxOutput->syntaxCpp = manager.Global().name + manager.name + L".cpp"; output->syntaxOutputs.Add(&manager, syntaxOutput); return syntaxOutput; } WString AstClassSymbolToString(AstClassSymbol* astType) { return GenerateToStream([&](StreamWriter& writer) { WriteNssName(astType->Owner()->Owner()->cppNss, writer); writer.WriteString(L"::"); writer.WriteString(astType->Owner()->Owner()->classPrefix); writer.WriteString(astType->Name()); }); } /*********************************************************************** WriteSyntaxHeaderFile ***********************************************************************/ void WriteSyntaxHeaderFile(SyntaxSymbolManager& manager, automaton::Executable& executable, automaton::Metadata& metadata, Ptr output, stream::StreamWriter& writer) { WriteFileComment(manager.Global().name, writer); if (manager.Global().headerGuard != L"") { writer.WriteString(L"#ifndef "); writer.WriteLine(manager.Global().headerGuard + L"_" + wupper(manager.name) + L"_SYNTAX"); writer.WriteString(L"#define "); writer.WriteLine(manager.Global().headerGuard + L"_" + wupper(manager.name) + L"_SYNTAX"); } else { writer.WriteLine(L"#pragma once"); } writer.WriteLine(L""); writer.WriteLine(L"#include \"" + output->assemblyH + L"\""); writer.WriteLine(L"#include \"" + output->lexerH +L"\""); writer.WriteLine(L""); WString prefix = WriteNssBegin(manager.Global().cppNss, writer); { writer.WriteLine(prefix + L"enum class " + manager.name + L"States"); writer.WriteLine(prefix + L"{"); for (auto&& [ruleName, index] : indexed(metadata.ruleNames)) { writer.WriteLine(prefix + L"\t" + ruleName + L" = " + itow(executable.ruleStartStates[index]) + L","); } writer.WriteLine(prefix + L"};"); } { writer.WriteLine(L""); writer.WriteLine(prefix + L"const wchar_t* " + manager.name + L"RuleName(vl::vint index);"); writer.WriteLine(prefix + L"const wchar_t* " + manager.name + L"StateLabel(vl::vint index);"); WriteLoadDataFunctionHeader(prefix, manager.Global().name + manager.name + L"Data", writer); } { writer.WriteLine(L""); writer.WriteLine(prefix + L"class " + manager.name); writer.WriteString(prefix+L"\t: public vl::glr::ParserBase<"); writer.WriteString(manager.Global().name + L"Tokens, "); writer.WriteString(manager.name + L"States, "); writer.WriteLine(manager.Global().name + L"AstInsReceiver>"); writer.WriteLine(prefix + L"\t, protected vl::glr::automaton::IExecutor::ITypeCallback"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"protected:"); writer.WriteLine(prefix + L"\tvl::WString GetClassName(vl::vint32_t classIndex) const override;"); writer.WriteLine(prefix + L"\tvl::vint32_t FindCommonBaseClass(vl::vint32_t class1, vl::vint32_t class2) const override;"); writer.WriteLine(prefix + L"public:"); writer.WriteLine(prefix + L"\t" + manager.name + L"();"); writer.WriteLine(L""); for (auto ruleName : manager.RuleOrder()) { auto ruleSymbol = manager.Rules()[ruleName]; if (ruleSymbol->isParser) { auto astType = AstClassSymbolToString(ruleSymbol->ruleType); writer.WriteLine(prefix + L"\tvl::Ptr<" + astType + L"> Parse" + ruleName + L"(const vl::WString& input, vl::vint codeIndex = -1) const;"); writer.WriteLine(prefix + L"\tvl::Ptr<" + astType + L"> Parse" + ruleName + L"(vl::collections::List& tokens, vl::vint codeIndex = -1) const;"); } } writer.WriteLine(prefix + L"};"); } WriteNssEnd(manager.Global().cppNss, writer); if (manager.Global().headerGuard != L"") { writer.WriteString(L"#endif"); } } /*********************************************************************** WriteSyntaxCppFile ***********************************************************************/ void WriteSyntaxCppFile(SyntaxSymbolManager& manager, automaton::Executable& executable, automaton::Metadata& metadata, Ptr output, stream::StreamWriter& writer) { WriteFileComment(manager.Global().name, writer); writer.WriteLine(L"#include \"" + output->syntaxOutputs[&manager]->syntaxH + L"\""); writer.WriteLine(L""); WString prefix = WriteNssBegin(manager.Global().cppNss, writer); { MemoryStream syntaxData; executable.Serialize(syntaxData); syntaxData.SeekFromBegin(0); WriteLoadDataFunctionCpp(prefix, manager.Global().name + manager.name + L"Data", syntaxData, true, writer); } { writer.WriteLine(L""); writer.WriteLine(prefix + L"const wchar_t* " + manager.name + L"RuleName(vl::vint index)"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"\tstatic const wchar_t* results[] = {"); for (auto&& ruleName : metadata.ruleNames) { writer.WriteString(prefix + L"\t\tL\""); WriteCppStringBody(ruleName, writer); writer.WriteLine(L"\","); } writer.WriteLine(prefix + L"\t};"); writer.WriteLine(prefix + L"\treturn results[index];"); writer.WriteLine(prefix + L"}"); } { writer.WriteLine(L""); writer.WriteLine(prefix + L"const wchar_t* " + manager.name + L"StateLabel(vl::vint index)"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"\tstatic const wchar_t* results[] = {"); for (auto&& stateLabel : metadata.stateLabels) { writer.WriteString(prefix + L"\t\tL\""); WriteCppStringBody(stateLabel, writer); writer.WriteLine(L"\","); } writer.WriteLine(prefix + L"\t};"); writer.WriteLine(prefix + L"\treturn results[index];"); writer.WriteLine(prefix + L"}"); } { writer.WriteLine(L""); writer.WriteLine(prefix + manager.name + L"::"+ manager.name + L"()"); writer.WriteString(prefix + L"\t: vl::glr::ParserBase<"); writer.WriteString(manager.Global().name + L"Tokens, "); writer.WriteString(manager.name + L"States, "); writer.WriteString(manager.Global().name + L"AstInsReceiver>("); writer.WriteString(L"&" + manager.Global().name + L"TokenDeleter, "); writer.WriteString(L"&" + manager.Global().name + L"LexerData, "); writer.WriteLine(L"&" + manager.Global().name + manager.name + L"Data)"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"}"); } { writer.WriteLine(L""); writer.WriteLine(prefix + L"vl::WString " + manager.name + L"::GetClassName(vl::vint32_t classIndex) const"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"\treturn vl::WString::Unmanaged(" + manager.Global().name + L"TypeName((" + manager.Global().name + L"Classes)classIndex));"); writer.WriteLine(prefix + L"}"); } { writer.WriteLine(L""); writer.WriteLine(prefix + L"vl::vint32_t " + manager.name + L"::FindCommonBaseClass(vl::vint32_t class1, vl::vint32_t class2) const"); writer.WriteLine(prefix + L"{"); if ( output->classIds.Count() == 0 || From(output->classIds.Keys()) .Where([](auto c) { return c->derivedClass_ToResolve != nullptr; }) .IsEmpty() ) { writer.WriteLine(prefix + L"\treturn -1;"); } else { Array idToClasses(output->classIds.Count()); for (auto [k, v] : output->classIds) { idToClasses[v] = k; } writer.WriteLine(prefix + L"\tstatic vl::vint32_t results[" + itow(idToClasses.Count()) + L"][" + itow(idToClasses.Count()) + L"] = {"); for (auto [c1, i1] : indexed(idToClasses)) { writer.WriteString(prefix + L"\t\t{"); for (auto [c2, i2] : indexed(idToClasses)) { if (auto baseClass = FindCommonBaseClass(c1, c2)) { writer.WriteString(itow(output->classIds[baseClass]) + L", "); } else { writer.WriteString(L"-1, "); } } writer.WriteLine(L"},"); } writer.WriteLine(prefix + L"\t};"); writer.WriteLine(prefix + L"\treturn vl::glr::AssemblerFindCommonBaseClass(class1, class2, results);"); } writer.WriteLine(prefix + L"}"); } for (auto ruleName : manager.RuleOrder()) { auto ruleSymbol = manager.Rules()[ruleName]; if (ruleSymbol->isParser) { auto astType = AstClassSymbolToString(ruleSymbol->ruleType); writer.WriteLine(L""); writer.WriteLine(prefix + L"vl::Ptr<" + astType + L"> " + manager.name + L"::Parse" + ruleName + L"(const vl::WString& input, vl::vint codeIndex) const"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"\t return ParseWithString<" + astType + L", " + manager.name + L"States::" + ruleName + L">(input, this, codeIndex);"); writer.WriteLine(prefix + L"}"); writer.WriteLine(L""); writer.WriteLine(prefix + L"vl::Ptr<" + astType + L"> " + manager.name + L"::Parse" + ruleName + L"(vl::collections::List& tokens, vl::vint codeIndex) const"); writer.WriteLine(prefix + L"{"); writer.WriteLine(prefix + L"\t return ParseWithTokens<" + astType + L", " + manager.name + L"States::" + ruleName + L">(tokens, this, codeIndex);"); writer.WriteLine(prefix + L"}"); } } WriteNssEnd(manager.Global().cppNss, writer); } /*********************************************************************** WriteLexerFiles ***********************************************************************/ void WriteSyntaxFiles(SyntaxSymbolManager& manager, automaton::Executable& executable, automaton::Metadata& metadata, Ptr output, collections::Dictionary& files) { WString fileH = GenerateToStream([&](StreamWriter& writer) { WriteSyntaxHeaderFile(manager, executable, metadata, output, writer); }); WString fileCpp = GenerateToStream([&](StreamWriter& writer) { WriteSyntaxCppFile(manager, executable, metadata, output, writer); }); files.Add(output->syntaxOutputs[&manager]->syntaxH, fileH); files.Add(output->syntaxOutputs[&manager]->syntaxCpp, fileCpp); } } } } /*********************************************************************** .\SYNTAX\SYNTAXSYMBOL.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; /*********************************************************************** StateSymbol ***********************************************************************/ StateSymbol::StateSymbol(RuleSymbol* _rule, vint32_t _clauseId) : ownerManager(_rule->Owner()) , rule(_rule) , clauseId(_clauseId) { } void StateSymbol::GetOutEdgesInStableOrder(collections::List& orderedStates, EdgeList& orderedEdges) { CopyFrom(orderedEdges, From(outEdges) .OrderBy([&](EdgeSymbol* e1, EdgeSymbol* e2) { std::strong_ordering result = e1->input.type <=> e2->input.type; if (result == 0) { switch (e1->input.type) { case EdgeInputType::Token: result = e1->input.token <=> e2->input.token; if (result == 0) { if (e1->input.condition && e2->input.condition) { result = e1->input.condition.Value() <=> e2->input.condition.Value(); } else if (e1->input.condition) { result = std::strong_ordering::greater; } else if (e2->input.condition) { result = std::strong_ordering::less; } } break; case EdgeInputType::Rule: result = ownerManager->RuleOrder().IndexOf(e1->input.rule->Name()) <=> ownerManager->RuleOrder().IndexOf(e2->input.rule->Name()); break; default:; } } if (result != 0) return result; return orderedStates.IndexOf(e1->To()) <=> orderedStates.IndexOf(e2->To()); })); } /*********************************************************************** EdgeSymbol ***********************************************************************/ EdgeSymbol::EdgeSymbol(StateSymbol* _from, StateSymbol* _to) : ownerManager(_from->Owner()) , fromState(_from) , toState(_to) { fromState->outEdges.Add(this); toState->inEdges.Add(this); } /*********************************************************************** RuleSymbol ***********************************************************************/ RuleSymbol::RuleSymbol(SyntaxSymbolManager* _ownerManager, const WString& _name, vint _fileIndex) : ownerManager(_ownerManager) , name(_name) , fileIndex(_fileIndex) { } /*********************************************************************** SyntaxSymbolManager ***********************************************************************/ SyntaxSymbolManager::SyntaxSymbolManager(ParserSymbolManager& _global) : global(_global) { } RuleSymbol* SyntaxSymbolManager::CreateRule(const WString& name, vint fileIndex, bool isPublic, bool isParser, ParsingTextRange codeRange) { CHECK_ERROR(states.Count() + edges.Count() == 0, L"vl::gre::parsergen::SyntaxSymbolManager::CreateRule(const WString&)#Cannot create new rules after building the automaton."); auto rule = new RuleSymbol(this, name, fileIndex); if (!rules.Add(name, rule)) { AddError( ParserErrorType::DuplicatedRule, codeRange, name ); } rule->isPublic = isPublic; rule->isParser = isParser; return rule; } void SyntaxSymbolManager::RemoveRule(const WString& name) { rules.Remove(name); } StateSymbol* SyntaxSymbolManager::CreateState(RuleSymbol* rule, vint32_t clauseId) { CHECK_ERROR(phase == SyntaxPhase::EpsilonNFA, L"vl::gre::parsergen::SyntaxSymbolManager::CreateState(RuleSymbol*)#Cannot change the automaton after calling BuildCompactSyntax()."); auto symbol = Ptr(new StateSymbol(rule, clauseId)); states.Add(symbol); return symbol.Obj(); } EdgeSymbol* SyntaxSymbolManager::CreateEdge(StateSymbol* from, StateSymbol* to) { CHECK_ERROR(phase == SyntaxPhase::EpsilonNFA, L"vl::gre::parsergen::SyntaxSymbolManager::CreateEdge(StateSymbol*, StateSymbol*)#Cannot change the automaton after calling BuildCompactSyntax()."); auto symbol = Ptr(new EdgeSymbol(from, to)); edges.Add(symbol); return symbol.Obj(); } void SyntaxSymbolManager::BuildCompactNFA() { CHECK_ERROR(global.Errors().Count() == 0, L"vl::gre::parsergen::SyntaxSymbolManager::BuildCompactSyntax()#BuildCompactNFA() cannot be called before errors are resolved."); CHECK_ERROR(phase == SyntaxPhase::EpsilonNFA, L"vl::gre::parsergen::SyntaxSymbolManager::BuildCompactSyntax()#BuildCompactNFA() can only be called on epsilon NFA."); BuildCompactNFAInternal(); phase = SyntaxPhase::CompactNFA; } void SyntaxSymbolManager::BuildCrossReferencedNFA() { CHECK_ERROR(global.Errors().Count() == 0, L"vl::gre::parsergen::SyntaxSymbolManager::BuildCompactSyntax()#BuildCrossReferencedNFA() cannot be called before errors are resolved."); CHECK_ERROR(phase == SyntaxPhase::CompactNFA, L"vl::gre::parsergen::SyntaxSymbolManager::BuildCompactSyntax()#BuildCrossReferencedNFA() can only be called on compact NFA."); BuildCrossReferencedNFAInternal(); phase = SyntaxPhase::CrossReferencedNFA; } void SyntaxSymbolManager::GetStatesInStableOrder(collections::List& order) { Group groupedStates; { List visited; for (auto ruleName : rules.order) { auto ruleSymbol = rules.map[ruleName]; for (auto startState : ruleSymbol->startStates) { if (!visited.Contains(startState)) { vint startIndex = visited.Add(startState); // TODO: (enumerable) Linq:Skip for (vint i = startIndex; i < visited.Count(); i++) { auto state = visited[i]; groupedStates.Add(state->Rule(), state); for (auto edge : state->OutEdges()) { auto target = edge->To(); if (!visited.Contains(target)) { visited.Add(target); } } } } } } } { vint counter = 0; for (auto ruleName : rules.order) { auto ruleSymbol = rules.map[ruleName]; auto orderedStates = From(groupedStates[ruleSymbol]) .OrderByKey([](StateSymbol* s) { return s->label; }); for (auto state : orderedStates) { order.Add(state); } } } } WString SyntaxSymbolManager::GetStateGlobalLabel(StateSymbol* state, vint index) { return L"[" + itow(index) + L"][" + state->Rule()->Name() + L"]" + state->label + (state->endingState ? L"[ENDING]" : L""); } } } } /*********************************************************************** .\SYNTAX\SYNTAXSYMBOLWRITER.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; /*********************************************************************** AutomatonBuilder ***********************************************************************/ AutomatonBuilder::AutomatonBuilder(RuleSymbol* _ruleSymbol) : ruleSymbol(_ruleSymbol) { } /*********************************************************************** AutomatonBuilder (Syntax) ***********************************************************************/ AutomatonBuilder::StatePair AutomatonBuilder::BuildTokenSyntax(vint32_t tokenId, const WString& displayText, Nullable condition, vint32_t field) { StatePair pair; pair.begin = CreateState(); pair.end = CreateState(); startPoses.Add(pair.begin, clauseDisplayText.Length()); { auto edge = CreateEdge(pair.begin, pair.end); edge->input.type = EdgeInputType::Token; edge->input.token = tokenId; edge->input.condition = condition; if (field != -1) { edge->insAfterInput.Add({ AstInsType::Token }); edge->insAfterInput.Add({ AstInsType::Field,field }); } } clauseDisplayText += displayText; endPoses.Add(pair.end, clauseDisplayText.Length()); return pair; } AutomatonBuilder::StatePair AutomatonBuilder::BuildRuleSyntaxInternal(RuleSymbol* rule, vint32_t field, automaton::ReturnRuleType ruleType) { #define ERROR_MESSAGE_PREFIX L"vl::glr::parsergen::AutomatonBuilder::BuildRuleSyntaxInternal(RuleSymbol*, vint32_t, ReturnRuleType)#" StatePair pair; pair.begin = CreateState(); pair.end = CreateState(); startPoses.Add(pair.begin, clauseDisplayText.Length()); { auto edge = CreateEdge(pair.begin, pair.end); edge->input.type = EdgeInputType::Rule; edge->input.rule = rule; edge->input.ruleType = ruleType; switch (ruleType) { case automaton::ReturnRuleType::Field: CHECK_ERROR(field != -1, ERROR_MESSAGE_PREFIX L"Field must set for ReturnRuleType::Field."); edge->insAfterInput.Add({ AstInsType::Field,field }); break; case automaton::ReturnRuleType::Partial: CHECK_ERROR(field == -1, ERROR_MESSAGE_PREFIX L"Field must not set for ReturnRuleType::Partial."); break; case automaton::ReturnRuleType::Discard: CHECK_ERROR(field == -1, ERROR_MESSAGE_PREFIX L"Field must not set for ReturnRuleType::Discard."); edge->insAfterInput.Add({ AstInsType::DiscardValue }); break; case automaton::ReturnRuleType::Reuse: CHECK_ERROR(field == -1, ERROR_MESSAGE_PREFIX L"Field must not set for ReturnRuleType::Reuse."); edge->insAfterInput.Add({ AstInsType::ReopenObject }); break; } } switch (ruleType) { case automaton::ReturnRuleType::Reuse: clauseDisplayText += L"!" + rule->Name(); break; default: clauseDisplayText += rule->Name(); break; } endPoses.Add(pair.end, clauseDisplayText.Length()); return pair; #undef ERROR_MESSAGE_PREFIX } AutomatonBuilder::StatePair AutomatonBuilder::BuildFieldRuleSyntax(RuleSymbol* rule, vint32_t field) { return BuildRuleSyntaxInternal(rule, field, automaton::ReturnRuleType::Field); } AutomatonBuilder::StatePair AutomatonBuilder::BuildPartialRuleSyntax(RuleSymbol* rule) { return BuildRuleSyntaxInternal(rule, -1, automaton::ReturnRuleType::Partial); } AutomatonBuilder::StatePair AutomatonBuilder::BuildDiscardRuleSyntax(RuleSymbol* rule) { return BuildRuleSyntaxInternal(rule, -1, automaton::ReturnRuleType::Discard); } AutomatonBuilder::StatePair AutomatonBuilder::BuildUseSyntax(RuleSymbol* rule) { return BuildRuleSyntaxInternal(rule, -1, automaton::ReturnRuleType::Reuse); } AutomatonBuilder::StatePair AutomatonBuilder::BuildLoopSyntax(const StateBuilder& loopBody, const StateBuilder& loopDelimiter, bool hasDelimiter) { /* * +--------------------+ * | V * S --+--+--(loopBody)--+--+--> E * ^ | * +--------------+ */ /* * +-------------------------+ * | V * S --+--+--( loopBody )--+--+--> E * ^ | * +--(loopDelimiter)--+ */ StatePair pair, bodyPair, delimiterPair; pair.begin = CreateState(); pair.end = CreateState(); startPoses.Add(pair.begin, clauseDisplayText.Length()); clauseDisplayText += L"{ "; bodyPair = loopBody(); if (hasDelimiter) { clauseDisplayText += L" ; "; delimiterPair = loopDelimiter(); } clauseDisplayText += L" }"; CreateEdge(pair.begin, bodyPair.begin); CreateEdge(bodyPair.end, pair.end); CreateEdge(pair.begin, pair.end); if (hasDelimiter) { CreateEdge(bodyPair.end, delimiterPair.begin); CreateEdge(delimiterPair.end, bodyPair.begin); } else { CreateEdge(bodyPair.end, bodyPair.begin); } endPoses.Add(pair.end, clauseDisplayText.Length()); return pair; } AutomatonBuilder::StatePair AutomatonBuilder::BuildOptionalSyntax(bool preferTake, bool preferSkip, const StateBuilder& optionalBody) { /* * +------------------+ * | V * S --+--(optionalBody)--+--> E */ StatePair pair; pair.begin = CreateState(); pair.end = CreateState(); startPoses.Add(pair.begin, clauseDisplayText.Length()); if (!preferTake && !preferSkip) { clauseDisplayText += L"[ "; } else if (preferTake) { clauseDisplayText += L"+[ "; } else if (preferSkip) { clauseDisplayText += L"-[ "; } auto bodyPair = optionalBody(); clauseDisplayText += L" ]"; auto takeEdge = CreateEdge(pair.begin, bodyPair.begin); CreateEdge(bodyPair.end, pair.end); auto skipEdge = CreateEdge(pair.begin, pair.end); if (preferTake) { takeEdge->important = true; } if (preferSkip) { skipEdge->important = true; } endPoses.Add(pair.end, clauseDisplayText.Length()); return pair; } AutomatonBuilder::StatePair AutomatonBuilder::BuildSequenceSyntax(collections::List& elements) { /* * S --(a)--> ? --(b)--> E */ CHECK_ERROR(elements.Count() > 0, L"vl::glr::parsergen::AutomatonBuilder::BuildSequenceSyntax(List&)#Elements must not be empty."); auto pair = elements[0](); // TODO: (enumerable) Linq:Skip for (vint i = 1; i < elements.Count(); i++) { clauseDisplayText += L" "; auto nextPair = elements[i](); CreateEdge(pair.end, nextPair.begin); pair.end = nextPair.end; } return pair; } AutomatonBuilder::StatePair AutomatonBuilder::BuildAlternativeSyntax(collections::List& elements) { /* * +--(a)--+ * | V * S --+--(b)--+--> E */ CHECK_ERROR(elements.Count() > 0, L"vl::glr::parsergen::AutomatonBuilder::BuildAlternativeSyntax(List&)#Elements must not be empty."); StatePair pair; pair.begin = CreateState(); pair.end = CreateState(); startPoses.Add(pair.begin, clauseDisplayText.Length()); clauseDisplayText += L"( "; // TODO: (enumerable) foreach:indexed for (vint i = 0; i < elements.Count(); i++) { if (i > 0) clauseDisplayText += L" | "; auto branchPair = elements[i](); CreateEdge(pair.begin, branchPair.begin); CreateEdge(branchPair.end, pair.end); } clauseDisplayText += L" )"; endPoses.Add(pair.end, clauseDisplayText.Length()); return pair; } /*********************************************************************** AutomatonBuilder (Clause) ***********************************************************************/ AutomatonBuilder::StatePair AutomatonBuilder::BuildClause(const StateBuilder& compileSyntax) { ruleSymbol->NewClause(); clauseDisplayText = L""; startPoses.Clear(); endPoses.Clear(); auto pair = compileSyntax(); ruleSymbol->startStates.Add(pair.begin); pair.end->endingState = true; vint l = clauseDisplayText.Length(); for (auto [state, pos] : startPoses) { state->label = clauseDisplayText.Left(pos) + L"@ " + clauseDisplayText.Right(l - pos); } for (auto [state, pos] : endPoses) { state->label = clauseDisplayText.Left(pos) + L" @" + clauseDisplayText.Right(l - pos); } return pair; } AutomatonBuilder::StatePair AutomatonBuilder::BuildAssignment(StatePair pair, vint32_t enumItem, vint32_t field, bool weakAssignment) { auto withState = CreateState(); auto edge = CreateEdge(pair.end, withState); edge->insBeforeInput.Add({ AstInsType::EnumItem,enumItem }); edge->insBeforeInput.Add({ (weakAssignment ? AstInsType::FieldIfUnassigned : AstInsType::Field),field}); endPoses.Add(withState, clauseDisplayText.Length()); return { pair.begin,withState }; } AutomatonBuilder::StatePair AutomatonBuilder::BuildCreateClause(vint32_t classId, const StateBuilder& compileSyntax) { StatePair pair; pair.begin = CreateState(); pair.end = CreateState(); startPoses.Add(pair.begin, clauseDisplayText.Length()); clauseDisplayText += L"< "; auto bodyPair = compileSyntax(); clauseDisplayText += L" >"; { auto edge = CreateEdge(pair.begin, bodyPair.begin); edge->insBeforeInput.Add({ AstInsType::BeginObject,classId }); } { auto edge = CreateEdge(bodyPair.end, pair.end); edge->insBeforeInput.Add({ AstInsType::EndObject }); } endPoses.Add(pair.end, clauseDisplayText.Length()); return pair; } AutomatonBuilder::StatePair AutomatonBuilder::BuildPartialClause(const StateBuilder& compileSyntax) { return compileSyntax(); } AutomatonBuilder::StatePair AutomatonBuilder::BuildReuseClause(const StateBuilder& compileSyntax) { StatePair pair; pair.begin = CreateState(); pair.end = CreateState(); startPoses.Add(pair.begin, clauseDisplayText.Length()); clauseDisplayText += L"<< "; auto bodyPair = compileSyntax(); clauseDisplayText += L" >>"; { auto edge = CreateEdge(pair.begin, bodyPair.begin); edge->insBeforeInput.Add({ AstInsType::DelayFieldAssignment }); } { auto edge = CreateEdge(bodyPair.end, pair.end); edge->insBeforeInput.Add({ AstInsType::EndObject }); } endPoses.Add(pair.end, clauseDisplayText.Length()); return pair; } AutomatonBuilder::StatePair AutomatonBuilder::BuildLrpClause(collections::SortedList& flags, const Func& flagName) { /* * S --+--(lrp:(a,b))--+--> E */ StatePair pair; pair.begin = CreateState(); pair.end = CreateState(); startPoses.Add(pair.begin, clauseDisplayText.Length()); { auto edge = CreateEdge(pair.begin, pair.end); edge->input.type = EdgeInputType::LrPlaceholder; CopyFrom(edge->input.flags, flags); } clauseDisplayText += L"lrp:("; // TODO: (enumerable) Linq:Aggregate for (vint i = 0; i < flags.Count(); i++) { if (i > 0) clauseDisplayText += L","; clauseDisplayText += flagName(flags[i]); } clauseDisplayText += L")"; endPoses.Add(pair.end, clauseDisplayText.Length()); return pair; } AutomatonBuilder::StatePair AutomatonBuilder::BuildLriSyntax(collections::SortedList& flags, RuleSymbol* rule, const Func& flagName) { StatePair pair; pair.begin = CreateState(); pair.end = CreateState(); startPoses.Add(pair.begin, clauseDisplayText.Length()); { auto edge = CreateEdge(pair.begin, pair.end); edge->input.type = EdgeInputType::LrInject; CopyFrom(edge->input.flags, flags); edge->input.rule = rule; edge->input.ruleType = automaton::ReturnRuleType::Reuse; edge->insAfterInput.Add({ AstInsType::ReopenObject }); } clauseDisplayText += L"lri:("; // TODO: (enumerable) Linq:Aggregate for (vint i = 0; i < flags.Count(); i++) { if (i > 0) clauseDisplayText += L","; clauseDisplayText += flagName(flags[i]); } clauseDisplayText += L")->" + rule->Name(); endPoses.Add(pair.end, clauseDisplayText.Length()); return pair; } AutomatonBuilder::StatePair AutomatonBuilder::BuildLriSkip() { StatePair pair; pair.begin = CreateState(); pair.end = CreateState(); startPoses.Add(pair.begin, clauseDisplayText.Length()); { auto edge = CreateEdge(pair.begin, pair.end); edge->input.type = EdgeInputType::Epsilon; } clauseDisplayText += L"lri:"; endPoses.Add(pair.end, clauseDisplayText.Length()); return pair; } AutomatonBuilder::StatePair AutomatonBuilder::BuildLriClauseSyntax(StateBuilder useOrLriSyntax, bool optional, collections::List&& continuations) { /* * +--(lri:c:ReopenObject)--+ * | | * +--(lri:a:ReopenObject)--+--(lri:d:ReopenObject)--+--+ * | | | | * | +------------------------+ | {<-- if optional} * | V * S --(rule:ReopenObject)--+--(lri:b:ReopenObject)------------------------------+--> E * | ^ * +----------------------------------------------------+ {<-- if optional} */ if (optional) { continuations.Add([this]() { return BuildLriSkip(); }); } List seqs; seqs.Add(useOrLriSyntax); seqs.Add([this, &continuations]() { return BuildAlternativeSyntax(continuations); }); return BuildSequenceSyntax(seqs); } } } } /*********************************************************************** .\SYNTAX\SYNTAXSYMBOL_AUTOMATON.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; using namespace stream; /*********************************************************************** SyntaxSymbolManager::BuildAutomaton ***********************************************************************/ void SyntaxSymbolManager::BuildAutomaton(vint tokenCount, automaton::Executable& executable, automaton::Metadata& metadata) { CHECK_ERROR(global.Errors().Count() == 0, L"vl::gre::parsergen::SyntaxSymbolManager::BuildAutomaton(Executable&, Metadata&)#BuildAutomaton() cannot be called before errors are resolved."); CHECK_ERROR(phase == SyntaxPhase::CrossReferencedNFA, L"vl::gre::parsergen::SyntaxSymbolManager::BuildAutomaton(Executable&, Metadata&)#BuildAutomaton() can only be called on cross referenced NFA."); // metadata.ruleNames List rulesInOrder; CopyFrom(rulesInOrder, From(rules.order).Select([this](auto&& name) { return rules.map[name]; })); metadata.ruleNames.Resize(rulesInOrder.Count()); for (auto [rule, index] : indexed(rulesInOrder)) { metadata.ruleNames[index] = rule->Name(); } // metadata.stateLabels List statesInOrder; GetStatesInStableOrder(statesInOrder); metadata.stateLabels.Resize(statesInOrder.Count()); for (auto [state, index] : indexed(statesInOrder)) { metadata.stateLabels[index] = GetStateGlobalLabel(state, index); } executable.tokenCount = (vint32_t)tokenCount; executable.ruleCount = (vint32_t)rulesInOrder.Count(); // executable.ruleStartStates executable.ruleStartStates.Resize(rulesInOrder.Count()); for (auto [rule, index] : indexed(rulesInOrder)) { executable.ruleStartStates[index] = (vint32_t)statesInOrder.IndexOf(rule->startStates[0]); } // executable.states executable.states.Resize(statesInOrder.Count()); for (auto [state, index] : indexed(statesInOrder)) { auto&& stateDesc = executable.states[index]; stateDesc.rule = (vint32_t)rulesInOrder.IndexOf(state->Rule()); stateDesc.clause = state->ClauseId(); stateDesc.endingState = state->endingState; } List edgesInOrder; List returnEdgesInOrder; List returnIndicesInOrder; List astInsInOrder; // executable.transitions vint inputCount = automaton::Executable::TokenBegin + tokenCount; executable.transitions.Resize(statesInOrder.Count() * inputCount); for (auto [state, stateIndex] : indexed(statesInOrder)) { for (vint input = 0; input < inputCount; input++) { auto&& transition = executable.transitions[stateIndex * inputCount + input]; auto orderedEdges = From(state->OutEdges()) .Where([&](EdgeSymbol* edge) { switch (input) { case automaton::Executable::EndingInput: return edge->input.type == EdgeInputType::Ending; case automaton::Executable::LeftrecInput: return edge->input.type == EdgeInputType::LeftRec; default: return edge->input.type == EdgeInputType::Token && edge->input.token == input - automaton::Executable::TokenBegin; } }) .OrderByKey([&](EdgeSymbol* e) { return statesInOrder.IndexOf(e->To()); }); transition.start = (vint32_t)edgesInOrder.Count(); CopyFrom(edgesInOrder, orderedEdges, true); transition.count = (vint32_t)edgesInOrder.Count() - transition.start; if (transition.count == 0) { transition.start = -1; continue; } } } // executable.stringLiteralBuffer { MemoryStream stringLiteralBuffer; { StreamWriter stringLiteralWriter(stringLiteralBuffer); for (auto edge : edgesInOrder) { if (edge->input.condition) { stringLiteralWriter.WriteString(edge->input.condition.Value()); } } } { stringLiteralBuffer.SeekFromBegin(0); StreamReader stringLiteralReader(stringLiteralBuffer); executable.stringLiteralBuffer = stringLiteralReader.ReadToEnd(); } } // executable.edges executable.edges.Resize(edgesInOrder.Count()); vint32_t stringLiteralIndex = 0; for (auto [edge, edgeIndex] : indexed(edgesInOrder)) { auto&& edgeDesc = executable.edges[edgeIndex]; edgeDesc.fromState = (vint32_t)statesInOrder.IndexOf(edge->From()); edgeDesc.toState = (vint32_t)statesInOrder.IndexOf(edge->To()); if (edge->input.condition) { vint32_t length = (vint32_t)edge->input.condition.Value().Length(); edgeDesc.condition.start = stringLiteralIndex; edgeDesc.condition.count = length; stringLiteralIndex += length; } switch (edge->importancy) { case EdgeImportancy::HighPriority: edgeDesc.priority = automaton::EdgePriority::HighPriority; break; case EdgeImportancy::LowPriority: edgeDesc.priority = automaton::EdgePriority::LowPriority; break; default:; } edgeDesc.insBeforeInput.start = (vint32_t)astInsInOrder.Count(); CopyFrom(astInsInOrder, edge->insBeforeInput, true); edgeDesc.insBeforeInput.count = (vint32_t)astInsInOrder.Count() - edgeDesc.insBeforeInput.start; edgeDesc.insAfterInput.start = (vint32_t)astInsInOrder.Count(); CopyFrom(astInsInOrder, edge->insAfterInput, true); edgeDesc.insAfterInput.count = (vint32_t)astInsInOrder.Count() - edgeDesc.insAfterInput.start; edgeDesc.returnIndices.start = (vint32_t)returnIndicesInOrder.Count(); for (auto returnEdge : edge->returnEdges) { vint index = returnEdgesInOrder.IndexOf(returnEdge); if (index == -1) { index = returnEdgesInOrder.Add(returnEdge); } returnIndicesInOrder.Add((vint32_t)index); } edgeDesc.returnIndices.count = (vint32_t)returnIndicesInOrder.Count() - edgeDesc.returnIndices.start; if (edgeDesc.insBeforeInput.count == 0) edgeDesc.insBeforeInput.start = -1; if (edgeDesc.insAfterInput.count == 0) edgeDesc.insAfterInput.start = -1; if (edgeDesc.returnIndices.count == 0) edgeDesc.returnIndices.start = -1; } // executable.returns executable.returns.Resize(returnEdgesInOrder.Count()); for (auto [edge, edgeIndex] : indexed(returnEdgesInOrder)) { auto&& returnDesc = executable.returns[edgeIndex]; returnDesc.consumedRule = (vint32_t)rulesInOrder.IndexOf(edge->input.rule); returnDesc.returnState = (vint32_t)statesInOrder.IndexOf(edge->To()); switch (edge->importancy) { case EdgeImportancy::HighPriority: returnDesc.priority = automaton::EdgePriority::HighPriority; break; case EdgeImportancy::LowPriority: returnDesc.priority = automaton::EdgePriority::LowPriority; break; default:; } returnDesc.ruleType = edge->input.ruleType; returnDesc.insAfterInput.start = (vint32_t)astInsInOrder.Count(); CopyFrom(astInsInOrder, edge->insAfterInput, true); returnDesc.insAfterInput.count = (vint32_t)astInsInOrder.Count() - returnDesc.insAfterInput.start; if (returnDesc.insAfterInput.count == 0) returnDesc.insAfterInput.start = -1; } // executable.returnIndices CopyFrom(executable.returnIndices, returnIndicesInOrder); // executable.astInstructions CopyFrom(executable.astInstructions, astInsInOrder); } } } } /*********************************************************************** .\SYNTAX\SYNTAXSYMBOL_CREATEPARSERGENRULESYNTAX.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; using namespace syntax_writer; extern syntax_writer::Token tok(ParserGenTokens id); extern syntax_writer::Token tok(ParserGenTokens id, ParserGenFields field); /*********************************************************************** CreateParserGenRuleSyntax ***********************************************************************/ void CreateParserGenRuleSyntax(AstSymbolManager& ast, SyntaxSymbolManager& manager) { auto createRule = [&](const wchar_t* ruleName) { return manager.CreateRule(WString::Unmanaged(ruleName), -1, false, false); }; manager.name = L"RuleParser"; auto _cond0 = createRule(L"Cond0"); auto _cond1 = createRule(L"Cond1"); auto _cond2 = createRule(L"Cond2"); auto _cond = createRule(L"Cond"); auto _switchItem = createRule(L"SwitchItem"); auto _switches = createRule(L"Switches"); auto _optionalBody = createRule(L"OptionalBody"); auto _testBranch = createRule(L"TestBranch"); auto _token = createRule(L"Token"); auto _syntax0 = createRule(L"Syntax0"); auto _syntax1 = createRule(L"Syntax1"); auto _syntax2 = createRule(L"Syntax2"); auto _syntax = createRule(L"Syntax"); auto _assignmentOp = createRule(L"AssignmentOp"); auto _assignment = createRule(L"Assignment"); auto _clause = createRule(L"Clause"); auto _placeholder = createRule(L"Placeholder"); auto _ruleName = createRule(L"RuleName"); auto _lriConfig = createRule(L"LriConfig"); auto _lriContinuationBody = createRule(L"LriContinuationBody"); auto _lriContinuation = createRule(L"LriContinuation"); auto _lriTarget = createRule(L"LriTarget"); auto _rule = createRule(L"Rule"); auto _file = createRule(L"File"); _switches->isPartial = true; _optionalBody->isPartial = true; _token->isPartial = true; _assignmentOp->isPartial = true; _lriConfig->isPartial = true; _lriContinuationBody->isPartial = true; _file->isParser = true; _file->ruleType = dynamic_cast(ast.Symbols()[L"SyntaxFile"][0]); using T = ParserGenTokens; using C = ParserGenClasses; using F = ParserGenFields; /////////////////////////////////////////////////////////////////////////////////// // Condition /////////////////////////////////////////////////////////////////////////////////// // ID:name as RefCondition Clause{ _cond0 } = create(tok(T::ID, F::RefCondition_name), C::RefCondition); // "(" !Cond ")" Clause{ _cond0 } = tok(T::OPEN_ROUND) + use(_cond) + tok(T::CLOSE_ROUND); // "!" Cond0:syntax as NotCondition Clause{ _cond0 } = create(tok(T::USE) + rule(_cond0, F::NotCondition_condition), C::NotCondition); // !Cond0 Clause{ _cond1 } = use(_cond0); // Cond1:first "&&" Cond0:second as AndCondition Clause{ _cond1 } = create(rule(_cond1, F::AndCondition_first) + tok(T::AND) + rule(_cond0, F::AndCondition_second), C::AndCondition); // !Cond1 Clause{ _cond2 } = use(_cond1); // Cond2:first "||" Cond1:second as OrCondition Clause{ _cond2 } = create(rule(_cond2, F::OrCondition_first) + tok(T::OR) + rule(_cond1, F::OrCondition_second), C::OrCondition); // !Cond2 Clause{ _cond } = use(_cond2); /////////////////////////////////////////////////////////////////////////////////// // Switch /////////////////////////////////////////////////////////////////////////////////// // ID:name as SwitchItem {value = True} Clause{ _switchItem } = create(tok(T::ID, F::SwitchItem_name), C::SwitchItem).with(F::SwitchItem_value, GlrSwitchValue::True); // "!" ID:name as SwitchItem {value = False} Clause{ _switchItem } = create(tok(T::USE) + tok(T::ID, F::SwitchItem_name), C::SwitchItem).with(F::SwitchItem_value, GlrSwitchValue::False); // "switch" {SwitchItem:switches ; ","} ";" as partial File Clause{ _switches } = partial(tok(T::SWITCH) + loop(rule(_switchItem, F::SyntaxFile_switches), tok(T::COMMA)) + tok(T::SEMICOLON)); /////////////////////////////////////////////////////////////////////////////////// // Syntax (primitive) /////////////////////////////////////////////////////////////////////////////////// // "[" Syntax:syntax "]" as partial OptionalSyntax Clause{ _optionalBody } = partial(tok(T::OPEN_SQUARE) + rule(_syntax, F::OptionalSyntax_syntax) + tok(T::CLOSE_SQUARE)); // ID:literal as partial RefSyntax {refType = Id} Clause{ _token } = partial(tok(T::ID, F::RefSyntax_literal)).with(F::RefSyntax_refType, GlrRefType::Id); // STRING:literal as partial RefSyntax {refType = Literal} Clause{ _token } = partial(tok(T::STRING, F::RefSyntax_literal)).with(F::RefSyntax_refType, GlrRefType::Literal); // CONDITIONAL_LITERAL:literal as partial RefSyntax {refType = ConditionalLiteral} Clause{ _token } = partial(tok(T::CONDITIONAL_LITERAL, F::RefSyntax_literal)).with(F::RefSyntax_refType, GlrRefType::ConditionalLiteral); // Token [":" ID:field] as RefSyntax Clause{ _syntax0 } = create(prule(_token) + opt(tok(T::COLON) + tok(T::ID, F::RefSyntax_field)), C::RefSyntax); // "!" ID:name as UseSyntax Clause{ _syntax0 } = create(tok(T::USE) + tok(T::ID, F::UseSyntax_name), C::UseSyntax); // "{" Syntax:syntax [";" syntax:delimiter] "}" as LoopSyntax Clause{ _syntax0 } = create(tok(T::OPEN_CURLY) + rule(_syntax, F::LoopSyntax_syntax) + opt(tok(T::SEMICOLON) + rule(_syntax, F::LoopSyntax_delimiter)) + tok(T::CLOSE_CURLY), C::LoopSyntax); // "+" OptionalBody as OptionalSyntax {priority = PreferTake} Clause{ _syntax0 } = create(tok(T::POSITIVE) + prule(_optionalBody), C::OptionalSyntax).with(F::OptionalSyntax_priority, GlrOptionalPriority::PreferTake); // "-" OptionalBody as OptionalSyntax {priority = PreferSkip} Clause{ _syntax0 } = create(tok(T::NEGATIVE) + prule(_optionalBody), C::OptionalSyntax).with(F::OptionalSyntax_priority, GlrOptionalPriority::PreferSkip); // OptionalBody as OptionalSyntax {priority = Equal} Clause{ _syntax0 } = create(prule(_optionalBody), C::OptionalSyntax).with(F::OptionalSyntax_priority, GlrOptionalPriority::Equal); /////////////////////////////////////////////////////////////////////////////////// // Syntax (conditional) /////////////////////////////////////////////////////////////////////////////////// // "!(" {SwitchItem:switches ; ","} ";" Syntax:syntax ")" as PushConditionSyntax Clause{ _syntax0 } = create(tok(T::OPEN_PUSH) + loop(rule(_switchItem, F::PushConditionSyntax_switches), tok(T::COMMA)) + tok(T::SEMICOLON) + rule(_syntax, F::PushConditionSyntax_syntax) + tok(T::CLOSE_ROUND), C::PushConditionSyntax); // Condition:condition ":" (Syntax1:syntax | ";") as TestConditionBranch Clause{ _testBranch } = create(rule(_cond, F::TestConditionBranch_condition) + tok(T::COLON) + (rule(_syntax1, F::TestConditionBranch_syntax) | tok(T::SEMICOLON)), C::TestConditionBranch); // "?(" TestBranch:branches {"|" TestBranch:branches} ")" as TestConditionSyntax Clause{ _syntax0 } = create(tok(T::OPEN_TEST) + rule(_testBranch, F::TestConditionSyntax_branches) + loop(tok(T::ALTERNATIVE) + rule(_testBranch, F::TestConditionSyntax_branches)) + tok(T::CLOSE_ROUND), C::TestConditionSyntax); /////////////////////////////////////////////////////////////////////////////////// // Syntax (others) /////////////////////////////////////////////////////////////////////////////////// // "(" !Syntax ")" Clause{ _syntax0 } = tok(T::OPEN_ROUND) + use(_syntax) + tok(T::CLOSE_ROUND); // !Syntax0 Clause{ _syntax1 } = use(_syntax0); // Syntax1:first Syntax0:second as SequenceSyntax Clause{ _syntax1 } = create(rule(_syntax1, F::SequenceSyntax_first) + rule(_syntax0, F::SequenceSyntax_second), C::SequenceSyntax); // !Syntax1 Clause{ _syntax2 } = use(_syntax1); // Syntax2:first "|" Syntax1:second as AlternativeSyntax Clause{ _syntax2 } = create(rule(_syntax2, F::AlternativeSyntax_first) + tok(T::ALTERNATIVE) + rule(_syntax1, F::AlternativeSyntax_second), C::AlternativeSyntax); // !Syntax2 Clause{ _syntax } = use(_syntax2); /////////////////////////////////////////////////////////////////////////////////// // Clause /////////////////////////////////////////////////////////////////////////////////// // "=" as partial Assignment {type = Strong} Clause{ _assignmentOp } = partial(tok(T::ASSIGN)).with(F::Assignment_type, GlrAssignmentType::Strong); // "?=" as partial Assignment {type = Weak} Clause{ _assignmentOp } = partial(tok(T::WEAK_ASSIGN)).with(F::Assignment_type, GlrAssignmentType::Weak); // ID:field AssignmentOp STRING:value as Assignment Clause{ _assignment } = create(tok(T::ID, F::Assignment_field) + prule(_assignmentOp) + tok(T::ID, F::Assignment_value), C::Assignment); // Syntax:syntax "as" ID:type ["{" {Assignment:assignments ; ","} "}"] as CreateClause Clause{ _clause } = create(rule(_syntax, F::CreateClause_syntax) + tok(T::AS) + tok(T::ID, F::CreateClause_type) + opt(tok(T::OPEN_CURLY) + loop(rule(_assignment, F::CreateClause_assignments), tok(T::COMMA)) + tok(T::CLOSE_CURLY)), C::CreateClause); // Syntax:syntax "as" "partial" ID:type ["{" {Assignment:assignments ; ","} "}"] as PartialClause Clause{ _clause } = create(rule(_syntax, F::PartialClause_syntax) + tok(T::AS) + tok(T::PARTIAL) + tok(T::ID, F::PartialClause_type) + opt(tok(T::OPEN_CURLY) + loop(rule(_assignment, F::PartialClause_assignments), tok(T::COMMA)) + tok(T::CLOSE_CURLY)), C::PartialClause); // Syntax:syntax ["{" {Assignment:assignments ; ","} "}"] as ReuseClause Clause{ _clause } = create(rule(_syntax, F::ReuseClause_syntax) + opt(tok(T::OPEN_CURLY) + loop(rule(_assignment, F::ReuseClause_assignments), tok(T::COMMA)) + tok(T::CLOSE_CURLY)), C::ReuseClause); /////////////////////////////////////////////////////////////////////////////////// // Clause (left recursive) /////////////////////////////////////////////////////////////////////////////////// // ID:flag as LeftRecursionPlaceholder Clause{ _placeholder } = create(tok(T::ID, F::LeftRecursionPlaceholder_flag), C::LeftRecursionPlaceholder); // ID:literal as RefSyntax {refType = ID} Clause{ _ruleName } = create(tok(T::ID, F::RefSyntax_literal), C::RefSyntax).with(F::RefSyntax_refType, GlrRefType::Id); // "left_recursion_placeholder" "(" RuleName:flags {"," ruleName:flags} ")" as LeftRecursionPlaceholderClause Clause{ _clause } = create( tok(T::LS_PH) + tok(T::OPEN_ROUND) + rule(_placeholder, F::LeftRecursionPlaceholderClause_flags) + loop(tok(T::COMMA) + rule(_placeholder, F::LeftRecursionPlaceholderClause_flags)) + tok(T::CLOSE_ROUND), C::LeftRecursionPlaceholderClause); // "left_recursion_inject" as partial LeftRecursionInjectContinuation {configuration = Single} Clause{ _lriConfig } = partial(tok(T::LS_I)).with(F::LeftRecursionInjectContinuation_configuration, GlrLeftRecursionConfiguration::Single); // "left_recursion_inject_multiple" as partial LeftRecursionInjectContinuation {configuration = Multiple} Clause{ _lriConfig } = partial(tok(T::LS_IM)).with(F::LeftRecursionInjectContinuation_configuration, GlrLeftRecursionConfiguration::Multiple); // LriConfig "(" Placeholder:flag {"," Placeholder:flag} ")" LriTarget:injectionTargets {"|" LriTarget:injectionTargets} as partial LeftRecursionInjectContinuation Clause{ _lriContinuationBody } = partial( prule(_lriConfig) + tok(T::OPEN_ROUND) + rule(_placeholder, F::LeftRecursionInjectContinuation_flags) + loop(tok(T::COMMA) + rule(_placeholder, F::LeftRecursionInjectContinuation_flags)) + tok(T::CLOSE_ROUND) + rule(_lriTarget, F::LeftRecursionInjectContinuation_injectionTargets) + loop(tok(T::ALTERNATIVE) + rule(_lriTarget, F::LeftRecursionInjectContinuation_injectionTargets)) ); // LriContinuationBody as LeftRecursionInjectionContinuation {type = Required} Clause{ _lriContinuation } = create(prule(_lriContinuationBody), C::LeftRecursionInjectContinuation).with(F::LeftRecursionInjectContinuation_type, GlrLeftRecursionInjectContinuationType::Required); // "[" LriContinuationBody as LeftRecursionInjectionContinuation "]" {type = Optional} Clause{ _lriContinuation } = create(tok(T::OPEN_SQUARE) + prule(_lriContinuationBody) + tok(T::CLOSE_SQUARE), C::LeftRecursionInjectContinuation).with(F::LeftRecursionInjectContinuation_type, GlrLeftRecursionInjectContinuationType::Optional); // RuleName:rule as LeftRecursionInjectClause Clause{ _lriTarget } = create(rule(_ruleName, F::LeftRecursionInjectClause_rule), C::LeftRecursionInjectClause); // "(" RuleName:rule LriContinuation:continuation ")" as LeftRecursionInjectClause Clause{ _lriTarget } = create(tok(T::OPEN_ROUND) + rule(_ruleName, F::LeftRecursionInjectClause_rule) + rule(_lriContinuation, F::LeftRecursionInjectClause_continuation) + tok(T::CLOSE_ROUND), C::LeftRecursionInjectClause); // "!" RuleName:rule LriContinuation:continuation as LeftRecursionInjectClause Clause{ _clause } = create(tok(T::USE) + rule(_ruleName, F::LeftRecursionInjectClause_rule) + rule(_lriContinuation, F::LeftRecursionInjectClause_continuation), C::LeftRecursionInjectClause); // "!" "prefix_merge" "(" RuleName:rule ")" as PrefixMergeClause Clause{ _clause } = create(tok(T::USE) + tok(T::LS_PM) + tok(T::OPEN_ROUND) + rule(_ruleName, F::PrefixMergeClause_rule) + tok(T::CLOSE_ROUND), C::PrefixMergeClause); /////////////////////////////////////////////////////////////////////////////////// // File /////////////////////////////////////////////////////////////////////////////////// // ["@public"] ["@parser"] ID:name {"::=" Clause:clauses} ";" as Rule Clause{ _rule } = create(opt(tok(T::ATT_PUBLIC, F::Rule_attPublic)) + opt(tok(T::ATT_PARSER, F::Rule_attParser)) + tok(T::ID, F::Rule_name) + opt(tok(T::COLON) + tok(T::ID, F::Rule_type)) + loop(tok(T::INFER) + rule(_clause, F::Rule_clauses)) + tok(T::SEMICOLON), C::Rule); // [Switches] Rule:rules {Rule:rules} as SyntaxFile Clause{ _file } = create(opt(prule(_switches)) + rule(_rule, F::SyntaxFile_rules) + loop(rule(_rule, F::SyntaxFile_rules)), C::SyntaxFile); } } } } /*********************************************************************** .\SYNTAX\SYNTAXSYMBOL_CREATEPARSERGENTYPESYNTAX.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; using namespace syntax_writer; extern syntax_writer::Token tok(ParserGenTokens id); extern syntax_writer::Token tok(ParserGenTokens id, ParserGenFields field); /*********************************************************************** CreateParserGenTypeSyntax ***********************************************************************/ void CreateParserGenTypeSyntax(AstSymbolManager& ast, SyntaxSymbolManager& manager) { auto createRule = [&](const wchar_t* ruleName) { return manager.CreateRule(WString::Unmanaged(ruleName), -1, false, false); }; manager.name = L"TypeParser"; auto _enumItem = createRule(L"EnumItem"); auto _enum = createRule(L"Enum"); auto _classPropType = createRule(L"ClassPropType"); auto _classProp = createRule(L"classProp"); auto _classBody = createRule(L"ClassBody"); auto _class = createRule(L"Class"); auto _type = createRule(L"Type"); auto _file = createRule(L"File"); _classPropType->isPartial = true; _classBody->isPartial = true; _file->isParser = true; _file->ruleType = dynamic_cast(ast.Symbols()[L"AstFile"][0]); using T = ParserGenTokens; using C = ParserGenClasses; using F = ParserGenFields; // ID:name "," as EnumItem Clause{ _enumItem } = create(tok(T::ID, F::EnumItem_name) + tok(T::COMMA), C::EnumItem); // ["@public"] "enum" ID:name "{" {EnumItem} "}" as Enum Clause{ _enum } = create(opt(tok(T::ATT_PUBLIC, F::Type_attPublic)) + tok(T::ENUM) + tok(T::ID, F::Type_name) + tok(T::OPEN_CURLY) + loop(rule(_enumItem, F::Enum_items)) + tok(T::CLOSE_CURLY), C::Enum); // "token" as partial ClassProp {propType = "Token"} Clause{ _classPropType } = partial(tok(T::TOKEN)).with(F::ClassProp_propType, GlrPropType::Token); // ID:propTypeName as partial ClassProp {propType = "Type"} Clause{ _classPropType } = partial(tok(T::ID, F::ClassProp_propTypeName)).with(F::ClassProp_propType, GlrPropType::Type); // ID:propTypeName "[" "]" as partial ClassProp {propType = "Array"} Clause{ _classPropType } = partial(tok(T::ID, F::ClassProp_propTypeName) + tok(T::OPEN_SQUARE) + tok(T::CLOSE_SQUARE)).with(F::ClassProp_propType, GlrPropType::Array); // "var" ID:name ":" ClassPropType ";" as ClassProp Clause{ _classProp } = create(tok(T::VAR) + tok(T::ID, F::ClassProp_name) + tok(T::COLON) + prule(_classPropType) + tok(T::SEMICOLON), C::ClassProp); // ID:name [":" ID:baseClass] "{" {ClassProp} "}" as partial Class Clause{ _classBody } = partial(tok(T::ID, F::Type_name) + opt(tok(T::COLON) + tok(T::ID, F::Class_baseClass)) + tok(T::OPEN_CURLY) + loop(rule(_classProp, F::Class_props)) + tok(T::CLOSE_CURLY)); // ["@public"] ["@ambiguous"] "class" ClassBody {ambiguity = Yes} Clause{ _class } = create(opt(tok(T::ATT_PUBLIC, F::Type_attPublic)) + opt(tok(T::ATT_AMBIGUOUS, F::Class_attAmbiguous)) + tok(T::CLASS) + prule(_classBody), C::Class); // !Class | !Enum Clause{ _type } = use(_enum) | use(_class); // type:types {type:types} as AstFile Clause{ _file } = create(rule(_type, F::AstFile_types) + loop(rule(_type, F::AstFile_types)), C::AstFile); } } } } /*********************************************************************** .\SYNTAX\SYNTAXSYMBOL_CREATEPARSERGENUTILITY.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { syntax_writer::Token tok(ParserGenTokens id) { auto d = ParserGenTokenDisplayText(id); auto n = ParserGenTokenId(id); return syntax_writer::tok( id, (d ? L"\"" + WString::Unmanaged(d) + L"\"" : WString::Unmanaged(n)) ); } syntax_writer::Token tok(ParserGenTokens id, ParserGenFields field) { auto d = ParserGenTokenDisplayText(id); auto n = ParserGenTokenId(id); return syntax_writer::tok( id, (d ? L"\"" + WString::Unmanaged(d) + L"\"" : WString::Unmanaged(n)), field ); } } } } /*********************************************************************** .\SYNTAX\SYNTAXSYMBOL_NFACOMPACT.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; /*********************************************************************** StateSymbolSet ***********************************************************************/ struct StateSymbolSet { private: static const SortedList EmptyStates; Ptr> states; public: StateSymbolSet() = default; StateSymbolSet(const StateSymbolSet&) = delete; StateSymbolSet& operator=(const StateSymbolSet&) = delete; StateSymbolSet(StateSymbolSet&& set) { states = set.states; set.states = nullptr; } StateSymbolSet& operator=(StateSymbolSet&& set) { states = set.states; set.states = nullptr; return *this; } StateSymbolSet Copy() const { StateSymbolSet set; set.states = states; return set; } bool Add(StateSymbol* state) { if (states) { if (states->Contains(state)) return false; states->Add(state); return true; } else { states = Ptr(new SortedList); states->Add(state); return true; } } const SortedList& States() const { return states ? *states.Obj() : EmptyStates; } std::strong_ordering operator<=>(const StateSymbolSet& set) const { if (!states && !set.states) return std::strong_ordering::equal; if (!states) return std::strong_ordering::less; if (!set.states) return std::strong_ordering::greater; return CompareEnumerable(*states.Obj(), *set.states.Obj()); } bool operator==(const StateSymbolSet& set) const { return (*this <=> set) == 0; } }; const SortedList StateSymbolSet::EmptyStates; /*********************************************************************** CompactSyntaxBuilder ***********************************************************************/ class CompactSyntaxBuilder { using StateList = collections::List>; using EdgeList = collections::List>; protected: RuleSymbol* rule; StateList& newStates; EdgeList& newEdges; Dictionary oldToNew; Dictionary newToOld; void BuildEpsilonEliminatedEdgesInternal( StateSymbol* walkingOldState, StateSymbol* newState, StateSymbol* endState, List& visited, List& accumulatedEdges) { /* * walkingOldState : a state in the epsilon-NFA * newState : a state in the compact-NFA * it represents the mirrored walkingOldState in the first call when accumulatedEdges is empty * in future recursive calls, walkingOldState keeps changing, but newState stays the same * endState : the ending state of the rule * visited : stores any new discovered epsilon-NFA states * duplicated states will not be added to this list * accumulatedEdges : epsilon edges from the first walkingOldState to the current walkingOldState */ for (auto edge : walkingOldState->OutEdges()) { accumulatedEdges.Add(edge); switch (edge->input.type) { case EdgeInputType::Token: case EdgeInputType::Rule: case EdgeInputType::LrPlaceholder: case EdgeInputType::LrInject: { // a new edge is created, accumulating multiple epsilon edges, ending with such edge auto targetNewState = CreateCompactState(edge->To()); if (!visited.Contains(targetNewState)) { visited.Add(targetNewState); } auto newEdge = Ptr(new EdgeSymbol(newState, targetNewState)); newEdges.Add(newEdge); newEdge->input = edge->input; newEdge->important |= edge->important; for (auto accumulatedEdge : accumulatedEdges) { CopyFrom(newEdge->insBeforeInput, accumulatedEdge->insBeforeInput, true); CopyFrom(newEdge->insAfterInput, accumulatedEdge->insAfterInput, true); newEdge->important |= accumulatedEdge->important; } } break; case EdgeInputType::Epsilon: BuildEpsilonEliminatedEdgesInternal(edge->To(), newState, endState, visited, accumulatedEdges); break; case EdgeInputType::Ending: // Ending is ignored because it doesn't exist in epsilon-NFA break; default: CHECK_FAIL(L"Unhandled!"); } accumulatedEdges.RemoveAt(accumulatedEdges.Count() - 1); } if (walkingOldState->endingState) { // if accumulated epsilon edges lead to the epsilon-NFA ending state // create an Ending edge to the compact-NFA ending state // when a non-epsilon edge connects to the ending state directly // this is triggered by examing the epsilon-NFA ending state directly // at this moment accumulatedEdges is an empty collection auto newEdge = Ptr(new EdgeSymbol(newState, endState)); newEdge->input.type = EdgeInputType::Ending; for (auto accumulatedEdge : accumulatedEdges) { CopyFrom(newEdge->insBeforeInput, accumulatedEdge->insBeforeInput, true); CopyFrom(newEdge->insAfterInput, accumulatedEdge->insAfterInput, true); newEdge->important |= accumulatedEdge->important; } for (auto endingEdge : newState->OutEdges()) { if (endingEdge != newEdge && endingEdge->input.type == EdgeInputType::Ending) { if ( CompareEnumerable(endingEdge->insBeforeInput, newEdge->insBeforeInput) == 0 && CompareEnumerable(endingEdge->insAfterInput, newEdge->insAfterInput) == 0) { CHECK_ERROR(newEdge->important == endingEdge->important, L"It is not possible to have two equal ending edges with different priority."); newState->outEdges.Remove(newEdge.Obj()); endState->inEdges.Remove(newEdge.Obj()); goto DISCARD_ENDING_EDGE; } } } newEdges.Add(newEdge); DISCARD_ENDING_EDGE:; } } public: CompactSyntaxBuilder(RuleSymbol* _rule, StateList& _newStates, EdgeList& _newEdges) : rule(_rule) , newStates(_newStates) , newEdges(_newEdges) { } StateSymbol* CreateCompactState(StateSymbol* state) { vint index = oldToNew.Keys().IndexOf(state); if (index != -1) { return oldToNew.Values()[index]; } else { auto newState = Ptr(new StateSymbol(rule, state->ClauseId())); newState->label = state->label; newStates.Add(newState); oldToNew.Add(state, newState.Obj()); newToOld.Add(newState.Obj(), state); return newState.Obj(); } } void BuildEpsilonEliminatedEdges( StateSymbol* newState, StateSymbol* endState, List& visited) { List accumulatedEdges; BuildEpsilonEliminatedEdgesInternal(newToOld[newState], newState, endState, visited, accumulatedEdges); } }; /*********************************************************************** SyntaxSymbolManager::BuildLeftRecEdge ***********************************************************************/ void SyntaxSymbolManager::BuildLeftRecEdge(EdgeSymbol* newEdge, EdgeSymbol* endingEdge, EdgeSymbol* lrecPrefixEdge) { newEdge->important |= endingEdge->important; newEdge->important |= lrecPrefixEdge->important; newEdge->input.type = EdgeInputType::LeftRec; CopyFrom(newEdge->insBeforeInput, endingEdge->insBeforeInput, true); CopyFrom(newEdge->insAfterInput, endingEdge->insAfterInput, true); CopyFrom(newEdge->insBeforeInput, lrecPrefixEdge->insBeforeInput, true); CopyFrom(newEdge->insAfterInput, lrecPrefixEdge->insAfterInput, true); // TODO: (enumerable) foreach:indexed(alterable(reversed)) for (vint i = newEdge->insBeforeInput.Count() - 1; i >= 0; i--) { if (newEdge->insBeforeInput[i].type == AstInsType::BeginObject) { newEdge->insBeforeInput.Insert(i, { AstInsType::LriStore }); newEdge->insBeforeInput.Insert(i + 2, { AstInsType::LriFetch }); } } // TODO: (enumerable) foreach:indexed(alterable(reversed)) for (vint i = newEdge->insAfterInput.Count() - 1; i >= 0; i--) { if (newEdge->insAfterInput[i].type == AstInsType::BeginObject) { newEdge->insBeforeInput.Insert(i, { AstInsType::LriStore }); newEdge->insBeforeInput.Insert(i + 2, { AstInsType::LriFetch }); } } } /*********************************************************************** SyntaxSymbolManager::EliminateLeftRecursion ***********************************************************************/ void SyntaxSymbolManager::EliminateLeftRecursion(RuleSymbol* rule, StateSymbol* startState, StateSymbol* endState, StateList& newStates, EdgeList& newEdges) { /* * Move the single rule prefix from the rule begin state * if it is left recursive * * [BEFORE] (r is the current rule) * +-> ... -> A --------(ending)-+ * | | * S -+-(r)----> ... -> B -(ending)-+-> E * | --- | * +-(r)----> ... -> C -(ending)-+ * * [AFTER] (the epsilon edge doesn't exist, it is for demo only) * +----(epsilon)----------+ * | | * | +-(leftrec)-> ... -> B -(ending)---+ * v | v * S-> ... -> A -+-----------------------(ending)-> E * ^ | ^ * | +-(leftrec)-> ... -> C -(ending)---+ * | | * +----(epsilon)----------+ */ List lrecEdges; for (auto edge : startState->OutEdges()) { if (edge->input.type != EdgeInputType::Rule) continue; if (edge->input.rule != rule) continue; lrecEdges.Add(edge); } for (auto lrecEdge : lrecEdges) { for (auto endingEdge : endState->InEdges()) { auto state = endingEdge->From(); auto newEdge = Ptr(new EdgeSymbol(state, lrecEdge->To())); newEdges.Add(newEdge); BuildLeftRecEdge(newEdge.Obj(), endingEdge, lrecEdge); } } for (auto lrecEdge : lrecEdges) { lrecEdge->From()->outEdges.Remove(lrecEdge); lrecEdge->To()->inEdges.Remove(lrecEdge); newEdges.Remove(lrecEdge); } } /*********************************************************************** SyntaxSymbolManager::EliminateSingleRulePrefix ***********************************************************************/ void SyntaxSymbolManager::EliminateSingleRulePrefix(RuleSymbol* rule, StateSymbol* startState, StateSymbol* endState, StateList& newStates, EdgeList& newEdges) { /* * Move the single rule prefix from the rule begin state * if there is any single rule clause consist of the same rule * * [BEFORE] * +-(x)-> A --------(ending)-+ * | | * S -+-(x)-> ... -> B -(ending)-+-> E * | | * +-(x)-> ... -> C -(ending)-+ * * [AFTER] * +-(leftrec)-> ... -> B -(ending)---+ * | v * S-(x)-> A -+-----------------------(ending)-> E * | ^ * +-(leftrec)-> ... -> C -(ending)---+ */ Group prefixEdges; List continuationEdges, eliminatedEdges; // identify prefix edge and continuation edge // prefix edges are clauses (x) // continuation edges are all qualified clauses with prefix (x) except prefix edges for (auto edge : startState->OutEdges()) { if (edge->input.type != EdgeInputType::Rule) continue; if (edge->input.rule == rule) continue; auto state = edge->To(); if (state->InEdges().Count() > 1) continue; if (state->OutEdges().Count() == 1 && state->OutEdges()[0]->input.type == EdgeInputType::Ending) { prefixEdges.Add(edge->input.rule, edge); } else { continuationEdges.Add(edge); } } // TODO: (enumerable) foreach on group for (auto [ruleSymbol, prefixIndex] : indexed(prefixEdges.Keys())) { auto&& prefixEdgesOfRule = prefixEdges.GetByIndex(prefixIndex); CHECK_ERROR(prefixEdgesOfRule.Count() == 1, L"Multiple prefix edges under the same rule is not supported yet."); // TODO: // prefixEdge means the clause could consume only one rule // multiple prefixEdge could be // the rule has multiple such clauses // there is one clause but it looks like "([a] | [b]) c" // where both [a] and [b] create an epsilon edge to c // and after removing epsilon edges they become both edge consuming c // in this case we need to create a prefix edges to replace all others // it also means unresolvable ambiguity // maybe a better solution is to define it as a kind of invalid syntax } // for all prefixEdge and continuationEdge under the same rule // if their insBeforeInput are different // move prefixEdge's insBeforeInput to insAfterInput with help from LriStore and LriFetch SortedList compatibleInsBeforeInputPrefixRules; // TODO: (enumerable) foreach on group for (auto [ruleSymbol, prefixIndex] : indexed(prefixEdges.Keys())) { // see if all prefixEdges are compatible auto&& prefixEdgesOfRule = prefixEdges.GetByIndex(prefixIndex); auto prefixEdge = prefixEdgesOfRule[0]; for (auto otherPrefixEdge : From(prefixEdgesOfRule).Skip(1)) { if (CompareEnumerable(prefixEdge->insBeforeInput, otherPrefixEdge->insBeforeInput) != 0) { goto INCOMPATIBLE; } } // see if all continuationEdges are compatible for (auto continuationEdge : continuationEdges) { if (continuationEdge->input.rule == prefixEdge->input.rule) { if (CompareEnumerable(prefixEdge->insBeforeInput, continuationEdge->insBeforeInput) != 0) { goto INCOMPATIBLE; } } } compatibleInsBeforeInputPrefixRules.Add(ruleSymbol); INCOMPATIBLE:; } // for all prefixEdge that fails the above test // combine insBeforeInput with insAfterInput with the help from LriStore and LriFetch // properly move instructions from prefixEdge to endingEdge // TODO: (enumerable) foreach on group for (auto [ruleSymbol, prefixIndex] : indexed(prefixEdges.Keys())) { bool compatible = compatibleInsBeforeInputPrefixRules.Contains(ruleSymbol); for (auto prefixEdge : prefixEdges.GetByIndex(prefixIndex)) { List ins; if (!compatible && prefixEdge->insBeforeInput.Count() > 0) { ins.Add({ AstInsType::LriStore }); CopyFrom(ins, prefixEdge->insBeforeInput, true); ins.Add({ AstInsType::LriFetch }); prefixEdge->insBeforeInput.Clear(); } CopyFrom(ins, prefixEdge->insAfterInput, true); prefixEdge->insAfterInput.Clear(); auto endingEdge = prefixEdge->To()->OutEdges()[0]; CopyFrom(ins, endingEdge->insBeforeInput, true); CopyFrom(endingEdge->insBeforeInput, ins); } } // for all qualified continuationEdge // create a new edge to run continuationEdge's instruction properly after prefixEdge // remove continuationEdge for (auto continuationEdge : continuationEdges) { vint prefixIndex = prefixEdges.Keys().IndexOf(continuationEdge->input.rule); if (prefixIndex == -1) continue; bool compatible = compatibleInsBeforeInputPrefixRules.Contains(continuationEdge->input.rule); bool eliminated = false; for (auto prefixEdge : prefixEdges.GetByIndex(prefixIndex)) { // important and insSwitch happen before shifting into the rule if (continuationEdge->important != prefixEdge->important) continue; eliminated = true; auto state = prefixEdge->To(); auto newEdge = Ptr(new EdgeSymbol(state, continuationEdge->To())); newEdges.Add(newEdge); newEdge->input.type = EdgeInputType::LeftRec; newEdge->important = continuationEdge->important; if (compatible) { CopyFrom(newEdge->insAfterInput, continuationEdge->insAfterInput); } else if (continuationEdge->insBeforeInput.Count() > 0) { // for incompatible continuationEdge // combine insBeforeInput with insAfterInput with the help from LriStore and LriFetch newEdge->insAfterInput.Add({ AstInsType::LriStore }); CopyFrom(newEdge->insAfterInput, continuationEdge->insBeforeInput, true); newEdge->insAfterInput.Add({ AstInsType::LriFetch }); CopyFrom(newEdge->insAfterInput, continuationEdge->insAfterInput, true); } } if (eliminated) { eliminatedEdges.Add(continuationEdge); } } for (auto eliminatedEdge : eliminatedEdges) { vint prefixIndex = prefixEdges.Keys().IndexOf(eliminatedEdge->input.rule); if (prefixIndex == -1) continue; eliminatedEdge->From()->outEdges.Remove(eliminatedEdge); eliminatedEdge->To()->inEdges.Remove(eliminatedEdge); newEdges.Remove(eliminatedEdge); } } /*********************************************************************** SyntaxSymbolManager::EliminateEpsilonEdges ***********************************************************************/ StateSymbol* SyntaxSymbolManager::EliminateEpsilonEdges(RuleSymbol* rule, StateList& newStates, EdgeList& newEdges) { /* * For any transition that goes through some epsilon edge and ends with a non-epsilon edge * we copy all instructions from epsilon edges and the non-epsilon edge in order * and create a new edge directly pointing to the toState of the non-epsilon edge * * [BEFORE] * +-(x)-> B * | * A -(e1)-+-(e2)-> C -+-(y)-> E * | | * +-(e3)-> D -+ * * [AFTER] * +-(e1,x)-> B * | * A -+-(e1,e2,y)-> E * | ^ * +-(e1,e3,y)---+ */ // epsilon-NFAs are per clause // now we need to create a start state and an ending state // to connect all epsilon-NFAs of its clauses together auto psuedoState = CreateState(rule, -1); for (auto startState : rule->startStates) { CreateEdge(psuedoState, startState); } CompactSyntaxBuilder builder(rule, newStates, newEdges); auto compactStartState = builder.CreateCompactState(psuedoState); compactStartState->label = L" BEGIN "; auto compactEndState = Ptr(new StateSymbol(rule, -1)); compactEndState->label = L" END "; compactEndState->endingState = true; newStates.Add(compactEndState); List visited; visited.Add(compactStartState); // all epsilon-NFAs of its clauses become one connected epsilon-NFA of this rule // we can build the compact-NFA out of this epsilon-NFA starting from the start state // TODO: (enumerable) foreach:alterable for (vint i = 0; i < visited.Count(); i++) { auto current = visited[i]; builder.BuildEpsilonEliminatedEdges(current, compactEndState.Obj(), visited); } // optimize EliminateLeftRecursion(rule, compactStartState, compactEndState.Obj(), newStates, newEdges); EliminateSingleRulePrefix(rule, compactStartState, compactEndState.Obj(), newStates, newEdges); return compactStartState; } /*********************************************************************** SyntaxSymbolManager::BuildCompactNFAInternal ***********************************************************************/ void SyntaxSymbolManager::BuildCompactNFAInternal() { StateList newStates; EdgeList newEdges; for (auto ruleSymbol : rules.map.Values()) { auto startState = EliminateEpsilonEdges(ruleSymbol, newStates, newEdges); ruleSymbol->startStates.Clear(); ruleSymbol->startStates.Add(startState); } CopyFrom(states, newStates); CopyFrom(edges, newEdges); // only when a state has any important out edge // its out edges are marked accordingly for (auto state : states) { bool competition = false; for (auto edge : state->OutEdges()) { if (edge->important) { competition = true; break; } } if (competition) { for (auto edge : state->OutEdges()) { edge->importancy = edge->important ? EdgeImportancy::HighPriority : EdgeImportancy::LowPriority; } } } } } } } /*********************************************************************** .\SYNTAX\SYNTAXSYMBOL_NFACROSSREFERENCED.CPP ***********************************************************************/ namespace vl { namespace glr { namespace parsergen { using namespace collections; /*********************************************************************** SyntaxSymbolManager::FixCrossReferencedRuleEdge ***********************************************************************/ void SyntaxSymbolManager::FixCrossReferencedRuleEdge(StateSymbol* startState, collections::Group& orderedEdges, collections::List& accumulatedEdges) { auto lastEdge = accumulatedEdges[accumulatedEdges.Count() - 1]; auto lastRule = lastEdge->input.rule; auto ruleBegin = lastRule->startStates[0]; vint index = orderedEdges.Keys().IndexOf(ruleBegin); if (index == -1) return; for (auto edge : orderedEdges.GetByIndex(index)) { switch (edge->input.type) { case EdgeInputType::Token: case EdgeInputType::LrPlaceholder: // multiple Rule edges followed by one Token or LrPlaceholder edge create a cross-referenced edge if (edge->returnEdges.Count() == 0) { auto newEdge = Ptr(new EdgeSymbol(startState, edge->To())); edges.Add(newEdge); newEdge->input = edge->input; newEdge->importancy = edge->importancy; for (auto acc : accumulatedEdges) { CopyFrom(newEdge->insBeforeInput, acc->insBeforeInput, true); newEdge->returnEdges.Add(acc); } CopyFrom(newEdge->insBeforeInput, edge->insBeforeInput, true); CopyFrom(newEdge->insAfterInput, edge->insAfterInput, true); } break; case EdgeInputType::Rule: if (accumulatedEdges.Contains(edge)) { AddError( ParserErrorType::RuleIsIndirectlyLeftRecursive, {}, edge->input.rule->Name() ); } else { accumulatedEdges.Add(edge); FixCrossReferencedRuleEdge(startState, orderedEdges, accumulatedEdges); accumulatedEdges.RemoveAt(accumulatedEdges.Count() - 1); } break; case EdgeInputType::Epsilon: case EdgeInputType::Ending: case EdgeInputType::LeftRec: // Epsilon edges do not exist in compact-NFA // Ending and LeftRec edges are not involved break; case EdgeInputType::LrInject: CHECK_FAIL(L"LrInject is impossible from a start state"); break; default: CHECK_FAIL(L"Unhandled!"); } } } /*********************************************************************** SyntaxSymbolManager::FixLeftRecursionInjectEdge ***********************************************************************/ void SyntaxSymbolManager::FixLeftRecursionInjectEdge(StateSymbol* startState, EdgeSymbol* injectEdge) { #define ERROR_MESSAGE_PREFIX L"vl::glr::parsergen::SyntaxSymbolManager::FixLeftRecursionInjectEdge(StateSymbol*, EdgeSymbol*)#" // search for all qualified placeholder edge starts from inject targets List placeholderEdges; for (auto outEdge : startState->OutEdges()) { if (outEdge->input.type == EdgeInputType::LrPlaceholder) { if (!From(outEdge->input.flags).Intersect(injectEdge->input.flags).IsEmpty()) { placeholderEdges.Add(outEdge); } } } // calculate all return edges and ending states for each placeholder edge // return edges: // injectEdge // return edge begins from inject target // ... // return edge begins from most inner rule that contains placeholder // ending states: // to state of return edge begins from inject target // ... // to state of return edge begins from most inner rule that contains placeholder // to state from placeholder edge Array> endingStatesArray(placeholderEdges.Count()); Array> returnEdgesArray(placeholderEdges.Count()); for(auto [placeholderEdge, index] : indexed(placeholderEdges)) { auto& endingStates = endingStatesArray[index]; auto& returnEdges = returnEdgesArray[index]; // check if placeholderEdge does nothing more than using rules if (placeholderEdge->insAfterInput.Count() > 0) { // EdgeInputType::LrPlaceholder is created from a left_recursion_placeholder clause // This is ensured by the semantic CHECK_FAIL(ERROR_MESSAGE_PREFIX L"Internal error: EdgeInputType::LrPlaceholder edge should have empty insAfterInput."); } for (vint i = 0; i <= placeholderEdge->returnEdges.Count(); i++) { auto returnEdge = i == 0 ? injectEdge : placeholderEdge->returnEdges[i - 1] ; auto endingState = i == placeholderEdge->returnEdges.Count() ? placeholderEdge->To() : placeholderEdge->returnEdges[i]->To() ; for (auto outEdge : endingState->OutEdges()) { if (outEdge->input.type == EdgeInputType::Ending && outEdge->insAfterInput.Count() > 0) { // EdgeInputType::Ending is created from accumulating multiple EdgeInputType::Epsilon edges leading to an ending state // EdgeInputType::Epsilon always have empty insAfterInput CHECK_FAIL(ERROR_MESSAGE_PREFIX L"Internal error: EdgeInputType::Ending edge should have empty insAfterInput."); } } returnEdges.Add(returnEdge); endingStates.Add(endingState); } } // calculate all acceptable Token input from inject edge // key: // token // the number of return edges carried into this edge, at least 1 // value: // index of placeholder edge // the LeftRec edge before the Token edge (optional) // the Token edge that consume this input using InputKey = Pair; using InputValue = Tuple; Group acceptableInputs; // calculate all acceptable Ending input from inject edge // value: // index of placeholder edge // the additional Ending edge using EndingInputValue = Pair; List acceptableEndingInputs; for(auto [placeholderEdge, index] : indexed(placeholderEdges)) { auto& endingStates = endingStatesArray[index]; auto& returnEdges = returnEdgesArray[index]; // TODO: (enumerable) foreach:indexed(reversed) for (vint i = returnEdges.Count() - 1; i >= 0; i--) { auto endingState = endingStates[i]; auto returnEdge = returnEdges[i]; EdgeSymbol* endingEdge = nullptr; for (auto outEdge : endingState->OutEdges()) { switch (outEdge->input.type) { case EdgeInputType::Ending: endingEdge = outEdge; if (returnEdge == injectEdge) { // all possible Ending input are comsumed // an ending edge should be created if // the injection edge cannot be skipped // the injection edge to state has Ending input // an optional injection can be skipped // a non-optional injection can be skipped by surrounding syntax auto endingEdgeAfterInject = From(injectEdge->To()->OutEdges()) .Where([](auto edge) { return edge->input.type == EdgeInputType::Ending; }) .First(nullptr); if (endingEdgeAfterInject) { // find if there is a state in the same rule that looks like: // +-------------------(ending)---------------------+ // | | // S -+ +->E // | | // +-{-(leftrec)-> X} -(lri:ThisEdge)-> T -(ending)-+ // or // +-(same rule)-> Y -----------------(ending)------------------+ // | | // S -+ +->E // | | // +-(same rule)-{-(leftrec)-> X} -(lri:ThisEdge)-> T -(ending)-+ List visiting; SortedList visited; visiting.Add(injectEdge->From()); // TODO: (enumerable) visiting/visited for (vint i = 0; i < visiting.Count(); i++) { auto visitingState = visiting[i]; if (visited.Contains(visitingState)) continue; visited.Add(visitingState); for (auto siblingEdge : visitingState->OutEdges()) { if (siblingEdge->input.type == EdgeInputType::Ending) { goto SKIP_SEARCHING; } } for (auto commingEdge : visitingState->InEdges()) { if (commingEdge->From()->Rule() != injectEdge->From()->Rule()) continue; switch (commingEdge->input.type) { case EdgeInputType::LeftRec: visiting.Add(commingEdge->From()); break; case EdgeInputType::Rule: { auto expectedReturnRule = commingEdge->input.rule; for (auto siblingCommingEdge : commingEdge->From()->OutEdges()) { if (siblingCommingEdge == commingEdge) continue; if (siblingCommingEdge->input.type != EdgeInputType::Rule) continue; if (siblingCommingEdge->input.rule != expectedReturnRule) continue; if (!From(siblingCommingEdge->To()->OutEdges()) .Where([](auto edge) { return edge->input.type == EdgeInputType::Ending; }) .IsEmpty()) { goto SKIP_SEARCHING; } } } break; default:; } } } { // if there is no such state // an Ending edge is needed acceptableEndingInputs.Add({ index,endingEdgeAfterInject }); } SKIP_SEARCHING:; } } break; // find if there is any LeftRec from this state case EdgeInputType::LeftRec: { // compact everything on top of this LeftRec and create an Input for (auto tokenEdge : outEdge->To()->OutEdges()) { if (tokenEdge->input.type == EdgeInputType::Token) { acceptableInputs.Add({ tokenEdge->input.token,i + 1 }, { index,outEdge,tokenEdge }); } } } break; // find if there is any Token from this state case EdgeInputType::Token: acceptableInputs.Add({ outEdge->input.token,i + 1 }, { index,nullptr,outEdge }); break; default:; } } if (!endingEdge) { // stop searching if there is no Ending input // since there will be no more {Ending} Token edge to compact break; } } } auto prepareLriEdgeInstructions = [&](vint placeholderIndex, vint returnEdgeCount, List& instructionPrefix) { auto placeholderEdge = placeholderEdges[placeholderIndex]; auto& endingStates = endingStatesArray[placeholderIndex]; auto& returnEdges = returnEdgesArray[placeholderIndex]; // search for all possible "LrPlaceholder {Ending} LeftRec Token" transitions // for each transition, compact edges and put injectEdge properly in returnEdges // here insBeforeInput has been ensured to be: // EndObject // LriStore // DelayFieldAssignment // placeholderEdge->insBeforeInput // LriFetch // loop {endingEdge->insBeforeInput returnEdge->insAfterInput} // --LeftRec--> ... // EndObject is for the ReopenObject in the use rule transition before // DelayFieldAssignment is for the ReopenObject in injectEdge->insAfterInput // injectEdge is the last returnEdge // there is no instruction in injectEdge->insBeforeInput instructionPrefix.Add({ AstInsType::EndObject }); instructionPrefix.Add({ AstInsType::LriStore }); instructionPrefix.Add({ AstInsType::DelayFieldAssignment }); CopyFrom(instructionPrefix, placeholderEdge->insBeforeInput, true); instructionPrefix.Add({ AstInsType::LriFetch }); // TODO: (enumerable) foreach:reversed for (vint i = returnEdges.Count() - 1; i >= returnEdgeCount; i--) { auto endingState = endingStates[i]; auto returnEdge = returnEdges[i]; auto endingEdge = From(endingState->OutEdges()) .Where([](auto edge) { return edge->input.type == EdgeInputType::Ending; }) .First(); CopyFrom(instructionPrefix, endingEdge->insBeforeInput, true); CopyFrom(instructionPrefix, returnEdge->insAfterInput, true); } }; for (auto [placeholderIndex, endingEdgeAfterInject] : acceptableEndingInputs) { auto newEdge = Ptr(new EdgeSymbol(injectEdge->From(), endingEdgeAfterInject->To())); edges.Add(newEdge); newEdge->input = endingEdgeAfterInject->input; newEdge->importancy = endingEdgeAfterInject->importancy; prepareLriEdgeInstructions(placeholderIndex, 0, newEdge->insBeforeInput); CopyFrom(newEdge->insBeforeInput, endingEdgeAfterInject->insBeforeInput, true); CopyFrom(newEdge->insBeforeInput, endingEdgeAfterInject->insAfterInput, true); } // TODO: (enumerable) foreach on group for (auto [input, inputIndex] : indexed(acceptableInputs.Keys())) { auto [inputToken, returnEdgeCount] = input; auto&& placeholderRecords = acceptableInputs.GetByIndex(inputIndex); // group inputs by lrEdge, tokenEdge, carried return edges // if there are multiple inputs from the same key // it means such input creates an ambiguity // // it usually happens in clauses like Prefix lri(flags) Target // where multiple valid flags found in Target at the same time // // if we could indentify some inputs here where excluded return edges are all reuse edges // then we can only create edges for one of them struct Entry { EdgeSymbol* lrEdge; EdgeSymbol* tokenEdge; List* returnEdges; vint returnEdgeCount; std::strong_ordering operator<=>(const Entry& entry)const { std::strong_ordering result = lrEdge <=> entry.lrEdge; if (result != 0) return result; result = tokenEdge <=> entry.tokenEdge; if (result != 0) return result; return CompareEnumerable( From(*returnEdges).Take(returnEdgeCount), From(*entry.returnEdges).Take(returnEdgeCount) ); } bool operator==(const Entry& entry) const { return (*this <=> entry) == 0; } }; Group simpleUseRecords; // search for placeholder edges where their excluded return edges are all reuse edges // TODO: (enumerable) foreach on group for (vint recordIndex = 0; recordIndex < placeholderRecords.Count(); recordIndex++) { auto [placeholderIndex, lrEdge, tokenEdge] = placeholderRecords[recordIndex]; Entry entry{ lrEdge,tokenEdge,&returnEdgesArray[placeholderIndex],returnEdgeCount }; if(From(*entry.returnEdges) .Skip(returnEdgeCount) .All([](EdgeSymbol* edge) {return edge->input.ruleType == automaton::ReturnRuleType::Reuse; }) ) { simpleUseRecords.Add(entry, recordIndex); } } // for each group, if there are more than one placeholder edges // mark them as deleted except the first one SortedList recordsToRemove; // TODO: (enumerable) foreach on group for (vint recordGroup = 0; recordGroup < simpleUseRecords.Count(); recordGroup++) { auto&& records = simpleUseRecords.GetByIndex(recordGroup); if (records.Count() > 1) { CopyFrom(recordsToRemove, From(records).Skip(1)); } } // delete them in Group // this way is not recommended but the group is going to be discarded very soon // TODO: (enumerable) foreach:reversed for (vint i = recordsToRemove.Count() - 1; i >= 0; i--) { const_cast&>(placeholderRecords).RemoveAt(recordsToRemove[i]); } // convert reminaings for (auto [placeholderIndex, lrEdge, tokenEdge] : placeholderRecords) { auto newEdge = Ptr(new EdgeSymbol(injectEdge->From(), tokenEdge->To())); edges.Add(newEdge); newEdge->input = tokenEdge->input; newEdge->importancy = tokenEdge->importancy; CopyFrom(newEdge->returnEdges, From(returnEdgesArray[placeholderIndex]).Take(returnEdgeCount), true); CopyFrom(newEdge->returnEdges, tokenEdge->returnEdges, true); prepareLriEdgeInstructions(placeholderIndex, returnEdgeCount, newEdge->insBeforeInput); if (lrEdge) { // newEdge consumes a token // lrEdge->insAfterInput happens before consuming this token // so it should be copied to newEdge->insBeforeInput CopyFrom(newEdge->insBeforeInput, lrEdge->insBeforeInput, true); CopyFrom(newEdge->insBeforeInput, lrEdge->insAfterInput, true); } CopyFrom(newEdge->insBeforeInput, tokenEdge->insBeforeInput, true); CopyFrom(newEdge->insAfterInput, tokenEdge->insAfterInput, true); } } // report an error if nothing is created if (acceptableInputs.Count() == 0 && acceptableEndingInputs.Count() == 0) { AddError( ParserErrorType::LeftRecursionInjectHasNoContinuation, {}, injectEdge->fromState->Rule()->Name(), lrpFlags[injectEdge->input.flags[0]], startState->Rule()->Name() ); } #undef ERROR_MESSAGE_PREFIX } /*********************************************************************** SyntaxSymbolManager::BuildCrossReferencedNFAInternal ***********************************************************************/ void SyntaxSymbolManager::BuildCrossReferencedNFAInternal() { List states; GetStatesInStableOrder(states); Group orderedEdges; for (auto state : states) { List edges; state->GetOutEdgesInStableOrder(states, edges); for (auto edge : edges) { orderedEdges.Add(state, edge); } } // compact multiple shift (Rule) edges and an input (Token or LrPlaceholder) edge to one edge // when a cross-referenced edge is executed, for each Rule edge: // insBeforeInput instructions are executed // insAfterInput instructions are executed in its returnEdges for (auto state : states) { vint index = orderedEdges.Keys().IndexOf(state); if (index != -1) { for (auto edge : orderedEdges.GetByIndex(index)) { if (edge->input.type == EdgeInputType::Rule) { List accumulatedEdges; accumulatedEdges.Add(edge); FixCrossReferencedRuleEdge(edge->From(), orderedEdges, accumulatedEdges); } } } } // convert LrInject to Token for (auto state : states) { vint index = orderedEdges.Keys().IndexOf(state); if (index != -1) { for (auto edge : orderedEdges.GetByIndex(index)) { if (edge->input.type == EdgeInputType::LrInject) { auto startState = edge->input.rule->startStates[0]; FixLeftRecursionInjectEdge(startState, edge); } } } } } } } }