Misc work in progress

.vscode/launch.json

@@ -17,6 +17,19 @@
       "environment": [],
       "console": "internalConsole",
     },
+    {
+      "name": "Debug Parser Perf (Windows)",
+      "type": "cppvsdbg",
+      "request": "launch",
+      "program": "${workspaceFolder}/build/debug/parser-perf.exe",
+      "args": [
+        "${workspaceFolder}/eohippus-vscode/test_folder/main.pony"
+      ],
+      "stopAtEntry": false,
+      "cwd": "${workspaceFolder}",
+      "environment": [],
+      "console": "internalConsole",
+    },
     {
       "name": "Debug CLI (Windows)",
       "type": "cppvsdbg",

corral.json

@@ -4,12 +4,12 @@
   ],
   "deps": [
     {
-      "locator": "github.com/ponylang/appdirs.git",
-      "version": "0.1.5"
+      "locator": "github.com/chalcolith/kiuatan.git",
+      "version": "1.5.5"
     },
     {
-      "locator": "github.com/chalcolith/kiuatan.git",
-      "version": "1.5.2"
+      "locator": "github.com/ponylang/appdirs.git",
+      "version": "0.1.5"
     },
     {
       "locator": "github.com/ponylang/logger.git",

eohippus/analyzer/eohippus_analyzer.pony

@@ -80,23 +80,23 @@ actor EohippusAnalyzer is Analyzer
 
     _analyze_dir(task_id, true, workspace_path, workspace_cache, _schedule(0))
 
-    var schedule = _schedule(250)
-    for pony_path in _context.pony_path_dirs.values() do
-      try
-        let info = FileInfo(pony_path)?
-        if info.directory then
-          task_id = _get_next_task_id()
-          _analyze_dir(task_id, false, pony_path, global_cache, schedule)
-        end
-      end
-    end
+    // var schedule = _schedule(250)
+    // for pony_path in _context.pony_path_dirs.values() do
+    //   try
+    //     let info = FileInfo(pony_path)?
+    //     if info.directory then
+    //       task_id = _get_next_task_id()
+    //       _analyze_dir(task_id, false, pony_path, global_cache, schedule)
+    //     end
+    //   end
+    // end
 
-    schedule = _schedule(500)
-    match _context.pony_packages_path
-    | let pony_packages_path: FilePath =>
-      task_id = _get_next_task_id()
-      _analyze_dir(task_id, false, pony_packages_path, global_cache, schedule)
-    end
+    // schedule = _schedule(500)
+    // match _context.pony_packages_path
+    // | let pony_packages_path: FilePath =>
+    //   task_id = _get_next_task_id()
+    //   _analyze_dir(task_id, false, pony_packages_path, global_cache, schedule)
+    // end
 
   be _analyze_dir(
     task_id: USize,

eohippus/parser/expression_builder.pony

@@ -16,7 +16,7 @@ class ExpressionBuilder
   let annotation: NamedRule = NamedRule("an annotation" where memoize' = true)
   let item: NamedRule = NamedRule("an expression" where memoize' = true)
   let infix: NamedRule = NamedRule("an infix expression" where memoize' = true)
-  let seq: NamedRule = NamedRule("an expression sequence")
+  let seq: NamedRule = NamedRule("an expression sequence" where memoize' = true)
   let tuple_pattern: NamedRule = NamedRule("a tuple destructuring pattern")
   let _method_params: NamedRule
   let _typedef_members: NamedRule

eohippus/parser/operator_builder.pony

@@ -5,9 +5,12 @@ class OperatorBuilder
   let _token: TokenBuilder
   let _keyword: KeywordBuilder
 
-  let prefix_op: NamedRule = NamedRule("a prefix operator")
-  let binary_op: NamedRule = NamedRule("a binary operator")
-  let postfix_op: NamedRule = NamedRule("a postfix operator")
+  let prefix_op: NamedRule =
+    NamedRule("a prefix operator" where memoize' = true)
+  let binary_op: NamedRule =
+    NamedRule("a binary operator" where memoize' = true)
+  let postfix_op: NamedRule =
+    NamedRule("a postfix operator" where memoize' = true)
 
   new create(
     trivia: TriviaBuilder,

eohippus/parser/token_builder.pony

@@ -40,7 +40,7 @@ class TokenBuilder
   let _trivia: TriviaBuilder
 
   let _tokens: Map[String, NamedRule]
-  let identifier: NamedRule = NamedRule("an identifier")
+  let identifier: NamedRule = NamedRule("an identifier" where memoize' = true)
 
   new create(context: Context, trivia: TriviaBuilder) =>
     _context = context

eohippus/parser/typedef_builder.pony

@@ -9,10 +9,10 @@ class TypedefBuilder
   let _type_type: TypeBuilder
   let _expression: ExpressionBuilder
 
-  let doc_string: NamedRule = NamedRule("a doc string")
+  let doc_string: NamedRule = NamedRule("a doc string" where memoize' = true)
   let method_params: NamedRule
   let members: NamedRule
-  let field: NamedRule = NamedRule("a field")
+  let field: NamedRule = NamedRule("a field" where memoize' = true)
   let method: NamedRule = NamedRule("a method" where memoize' = true)
   let typedef: NamedRule = NamedRule("a type definition" where memoize' = true)
   let typedef_primitive: NamedRule = NamedRule("a primitive type definition")

eohippus/test/parser-perf/main.pony

@@ -42,9 +42,9 @@ actor Main
             {(result: parser.Result, values: ast.NodeSeq) =>
               match result
               | let success: parser.Success =>
-                env.err.print(arg + " succeeded")
-              else
-                env.err.print(arg + " failed")
+                _env.out.print(arg + " succeeded")
+              | let failure: parser.Failure =>
+                _env.out.print(arg + " failed: " + failure.get_message())
               end
               self.print_time()
             })

make.ps1

@@ -5,7 +5,7 @@ param(
 
   [Parameter(HelpMessage="The target(s) to build or test (test, fmt, lsp, cli)")]
   [string]
-  $Target = 'test,parser-perf,fmt,lsp,cli',
+  $Target = 'test,perf,fmt,lsp,cli',
 
   [Parameter(HelpMessage="The build configuration (Release, Debug).")]
   [string]
@@ -94,7 +94,7 @@ function Build
   if ($targets -like 'test') {
     Run("corral.exe run -- ponyc $configFlag $ponyArgs --cpu `"$Arch`" --output `"$buildDir`" `"$rootDir\eohippus\test`"")
   }
-  if ($targets -like 'parser-perf') {
+  if ($targets -like 'perf') {
     Run("corral.exe run -- ponyc $configFlag $ponyArgs --cpu `"$Arch`" --output `"$buildDir`" `"$rootDir\eohippus\test\parser-perf`"")
   }
   if ($targets -like 'lsp') {