Add simple language infrastructure

simple tests of PEGTL based on the PEGTL reversed Hello, World! example

CMakeLists.txt

@@ -134,10 +134,11 @@ add_subdirectory(src)
 
 include_directories(src)
 include_directories(src/algebra)
+include_directories(src/language)
 include_directories(src/mesh)
 include_directories(src/output)
-include_directories(src/utils)
 include_directories(src/scheme)
+include_directories(src/utils)
 
 include_directories(src/experimental)
 
@@ -219,5 +220,6 @@ target_link_libraries(
   pastis
   kokkos
   PastisUtils
+  PastisLanguage
   PastisMesh
   PastisExperimental)

src/CMakeLists.txt

@@ -7,6 +7,10 @@ include_directories(${CMAKE_CURRENT_BINARY_DIR})
 add_subdirectory(utils)
 include_directories(utils)
 
+# Pastis language
+add_subdirectory(language)
+include_directories(language)
+
 # Pastis algebra
 #add_subdirectory(algebra)
 include_directories(algebra)

src/language/CMakeLists.txt

+include_directories(${CMAKE_CURRENT_SOURCE_DIR})
+include_directories(${CMAKE_CURRENT_BINARY_DIR})
+
+# ------------------- Source files --------------------
+
+add_library(
+  PastisLanguage
+  PastisParser.cpp)
+
+#include_directories(${PASTIS_SOURCE_DIR}/utils)
+
+# Additional dependencies
+#add_dependencies(PastisMesh)

src/language/PastisParser.cpp

+#include <PastisParser.hpp>
+#include <iostream>
+
+#define TAO_PEGTL_NAMESPACE language
+#include <pegtl.hpp>
+namespace language
+{
+using namespace tao::language;
+
+// clang-format off
+//struct prefix : string< 'H', 'e', 'l', 'l', 'o', ',', ' ' > {};
+struct prefix : TAO_PEGTL_STRING("Hello, ") {};
+struct name : plus< alpha > {};
+struct grammar
+    : must< prefix, name, star< sor< space, digit, string < '+' >, string < '-' >, string < '/' >, string < '*' > > >, one< '!' >, eof >
+{
+};
+// clang-format on
+
+template< typename Rule >
+struct action
+    : nothing< Rule >
+{
+};
+
+template<>
+struct action< name >
+{
+  template< typename Input >
+  static void apply( const Input& in, std::string& v )
+  {
+    v = in.string();
+  }
+};
+}
+
+void parser(const std::string& in_flow) {
+    std::string name;
+    language::string_input in( in_flow , std::string("source_name"));
+    language::parse< language::grammar, language::action >( in, name );
+
+    std::cout << in_flow << " -> ";
+    std::cout << "Good bye, " << name << "!" << std::endl;
+}

src/language/PastisParser.hpp

+#ifndef PASTIS_PARSER_HPP
+#define PASTIS_PARSER_HPP
+
+#include <string>
+
+void parser(const std::string& in_flow);
+
+#endif // PASTIS_PARSER_HPP

src/main.cpp

@@ -29,6 +29,7 @@
 #include <MeshNodeBoundary.hpp>
 
 #include <GmshReader.hpp>
+#include <PastisParser.hpp>
 
 #include <CLI/CLI.hpp>
 #include <limits>
@@ -36,6 +37,11 @@
 
 int main(int argc, char *argv[])
 {
+  if (argc == 2) {
+    parser(argv[1]);
+    return 0;
+  }
+
   long unsigned number = 10;
   std::string filename;
   {