Add an argument parser

Rakefile

@@ -4,8 +4,13 @@ require 'open3'
 
 DFLAGS = ['--warn-no-deprecated', '-L/usr/lib64/gcc-12']
 BINARY = 'build/bin/elna'
-TESTS = FileList['tests/*.elna']
-  .map { |test| (Pathname.new('build') + test).sub_ext('').to_path }
+TESTS = FileList['tests/*.eln'].flat_map do |test|
+  build = Pathname.new 'build'
+  test_basename = Pathname.new(test).basename('')
+
+  [build + 'riscv' + test_basename].map { |path| path.sub_ext('').to_path }
+end
+
 SOURCES = FileList['source/**/*.d']
 
 directory 'build'
@@ -13,20 +18,25 @@ directory 'build'
 CLEAN.include 'build'
 CLEAN.include '.dub'
 
-rule(/build\/tests\/.+/ => ->(file) { test_for_out(file) }) do |t|
+rule(/build\/riscv\/[^\/\.]+$/ => ->(file) { test_for_out(file, '.o') }) do |t|
+  sh '/opt/riscv/bin/riscv32-unknown-elf-ld',
+    '-o', t.name,
+    '-L/opt/riscv/lib/gcc/riscv32-unknown-elf/13.2.0/',
+    '-L/opt/riscv/riscv32-unknown-elf/lib',
+    '/opt/riscv/riscv32-unknown-elf/lib/crt0.o',
+    '/opt/riscv/lib/gcc/riscv32-unknown-elf/13.2.0/crtbegin.o',
+    t.source,
+    '--start-group', '-lgcc', '-lc', '-lgloss', '--end-group',
+    '/opt/riscv/lib/gcc/riscv32-unknown-elf/13.2.0/crtend.o'
+end
+
+rule(/build\/riscv\/.+\.o$/ => ->(file) { test_for_object(file, '.eln') }) do |t|
   Pathname.new(t.name).dirname.mkpath
-  sh BINARY, t.source
-  sh 'gcc', '-o', t.name, "#{t.name}.o"
-  # Open3.pipeline [BINARY, t.source], ['gcc', '-x', 'assembler', '-o', t.name,  '-']
+  sh BINARY, '-o', t.name, t.source
 end
 
 file BINARY => SOURCES do |t|
-  sh({ 'DFLAGS' => (DFLAGS * ' ') }, 'dub', 'build', '--compiler=gdc-12')
-end
-
-file 'build/tests/sample' => BINARY do |t|
-  sh t.source
-  sh 'gcc', '-o', t.name, 'build/tests/sample.o'
+  sh({ 'DFLAGS' => (DFLAGS * ' ') }, 'dub', 'build', '--compiler=gdc')
 end
 
 task default: BINARY
@@ -38,20 +48,29 @@ task test: BINARY do
     expected = Pathname
       .new(test)
       .sub_ext('.txt')
-      .sub(/^build\/tests\//, 'tests/expectations/')
-      .read
-      .to_i
+      .sub(/^build\/[[:alpha:]]+\//, 'tests/expectations/')
+      .to_path
 
     puts "Running #{test}"
-    system test
-    actual = $?.exitstatus
+    if test.include? '/riscv/'
+      spike = [
+        '/opt/riscv/bin/spike',
+        '--isa=RV32IMAC',
+        '/opt/riscv/riscv32-unknown-elf/bin/pk',
+        test
+      ]
+      diff = ['diff', '-Nur', '--color', expected, '-']
+      tail = ['tail', '-n', '1']
 
-    fail "#{test}: Expected #{expected}, got #{actual}" unless expected == actual
+      last_stdout, wait_threads = Open3.pipeline_r spike, tail, diff
+    else
+      raise 'Unsupported test platform'
+    end
+    print last_stdout.read
+    last_stdout.close
+
+    fail unless wait_threads.last.value.exitstatus.zero?
   end
-
-  # system './build/tests/sample'
-  # actual = $?.exitstatus
-  # fail "./build/tests/sample: Expected 3, got #{actual}" unless 3 == actual
 end
 
 desc 'Run unittest blocks'
@@ -59,11 +78,18 @@ task unittest: SOURCES do |t|
   sh('dub', 'test', '--compiler=gdc-12')
 end
 
-def test_for_out(out_file)
+def test_for_object(out_file, extension)
   test_source = Pathname
     .new(out_file)
-    .sub_ext('.elna')
-    .sub(/^build\//, '')
+    .sub_ext(extension)
+    .sub(/^build\/[[:alpha:]]+\//, 'tests/')
     .to_path
   [test_source, BINARY]
 end
+
+def test_for_out(out_file, extension)
+  Pathname
+    .new(out_file)
+    .sub_ext(extension)
+    .to_path
+end