Start of an implementation of an elm parser in rust

TheJuanAndOnly99 · May 31, 2024 · 5d6388a · 5d6388a
1 parent f3978d0
commit 5d6388a
Show file tree

Hide file tree

Showing 8 changed files with 80 additions and 1 deletion.
diff --git a/Cargo.lock b/Cargo.lock
diff --git a/Cargo.toml b/Cargo.toml
@@ -1,6 +1,11 @@
 [workspace]
 resolver = "2"
-members = ["apps/cli", "crates/morphir-runtime", "crates/morphir-runtime-wasm"]
+members = [
+    "apps/cli",
+    "crates/morphir-elm-compiler-rs",
+    "crates/morphir-runtime",
+    "crates/morphir-runtime-wasm",
+]
 default-members = ["crates/morphir-runtime"]
 
 [workspace.package]
@@ -36,6 +41,8 @@ linked-data = "0.1.2"
 miette = "7.2.0"
 once_cell = "1.19.0"
 proptest = "1.4.0"
+pest = "2.6"
+pest_derive = "2.6"
 quickjs-wasm-rs = "3.0.0"
 ractor = "0.10.3"
 rdf-types = "0.22.4"

diff --git a/crates/morphir-elm-compiler-rs/Cargo.toml b/crates/morphir-elm-compiler-rs/Cargo.toml
@@ -0,0 +1,30 @@
+[package]
+name = "morphir-elm-compiler-rs"
+version.workspace = true
+description = "Morphir runtime"
+homepage.workspace = true
+keywords = ["morphir", "finos"]
+authors.workspace = true
+license.workspace = true
+edition.workspace = true
+
+[badges]
+maintnance = { status = "actively-developer" }
+
+[[bin]]
+name = "morphir-elmc"
+path = "src/main.rs"
+
+[lib]
+name = "morphir_elm_compiler_rs"
+path = "src/lib.rs"
+
+[features]
+
+[dependencies]
+tokio.workspace = true
+pest.workspace = true
+pest_derive.workspace = true
+
+[build-dependencies]
+deno_core.workspace = true
diff --git a/crates/morphir-elm-compiler-rs/moon.yml b/crates/morphir-elm-compiler-rs/moon.yml
@@ -0,0 +1 @@
+language: rust
diff --git a/crates/morphir-elm-compiler-rs/src/compiler.rs b/crates/morphir-elm-compiler-rs/src/compiler.rs
@@ -0,0 +1,5 @@
+use pest_derive::Parser;
+
+#[derive(Parser)]
+#[grammar = "elm.pest"]
+pub struct ElmParser;
diff --git a/crates/morphir-elm-compiler-rs/src/elm.pest b/crates/morphir-elm-compiler-rs/src/elm.pest
@@ -0,0 +1,12 @@
+//! Parsing rules for the Elm programming language.
+
+exposing_clause = { "exposing" ~ WHITE_SPACE ~ "(..)" }
+// TODO: Relax the casing in parsing and produce an error about improper casing in a later stage
+module_path_part = { (ASCII_ALPHA_UPPER ~ (ASCII_ALPHA | ASCII_DIGIT)*) }
+module_statement = { "module" ~ WHITE_SPACE ~ module_path ~ WHITE_SPACE ~ (exposing_clause) }
+module_path      = { module_path_part ~ ("." ~ module_path)* }
+statement        = { module_statement ~ trivia* }
+file             = { SOI ~ statement ~ EOI }
+INLINE_COMMENT   = { "--" ~ (!NEWLINE ~ ANY)* ~ NEWLINE }
+COMMENT          = { INLINE_COMMENT }
+trivia           = { WHITE_SPACE | COMMENT }
diff --git a/crates/morphir-elm-compiler-rs/src/lib.rs b/crates/morphir-elm-compiler-rs/src/lib.rs
@@ -0,0 +1 @@
+pub mod compiler;
diff --git a/crates/morphir-elm-compiler-rs/src/main.rs b/crates/morphir-elm-compiler-rs/src/main.rs
@@ -0,0 +1,13 @@
+pub(crate) mod compiler;
+
+use crate::compiler::{ElmParser, Rule};
+use pest::Parser;
+
+fn main() {
+    let file_contents: &'static str = r#"module Com.Example.Main exposing (..)
+    -- This is a comment
+    -- This is also a comment
+    "#;
+    let successful_parse = ElmParser::parse(Rule::file, &file_contents);
+    println!("{:?}", successful_parse);
+}