67 lines
1.8 KiB
Ruby
67 lines
1.8 KiB
Ruby
# This Source Code Form is subject to the terms of the Mozilla Public License,
|
|
# v. 2.0. If a copy of the MPL was not distributed with this file, You can
|
|
# obtain one at https://mozilla.org/MPL/2.0/.
|
|
# frozen_string_literal: true
|
|
|
|
require 'open3'
|
|
require 'rake/clean'
|
|
|
|
STAGES = Dir.glob('boot/stage*')
|
|
.collect { |stage| File.basename stage }
|
|
.sort { |a, b| a.delete_prefix('stage').to_i <=> b.delete_prefix('stage').to_i }
|
|
.drop(1) # First assembly stage does not count.
|
|
|
|
CLOBBER.include 'build'
|
|
|
|
def run(exe)
|
|
ENV.fetch('QEMU', '').split << exe
|
|
end
|
|
|
|
directory 'build'
|
|
|
|
task default: :boot
|
|
|
|
desc 'Final stage'
|
|
task boot: "build/valid/#{STAGES.last}/cl"
|
|
task boot: "boot/#{STAGES.last}/cl.elna" do |t|
|
|
groupped = t.prerequisites.group_by { |stage| File.extname stage }.transform_values(&:first)
|
|
exe = groupped['']
|
|
expected = groupped[''] + '.s'
|
|
source = groupped['.elna']
|
|
|
|
cat_arguments = ['cat', source]
|
|
diff_arguments = ['diff', '-Nur', '--text', expected, '-']
|
|
Open3.pipeline(cat_arguments, run(exe), diff_arguments)
|
|
end
|
|
|
|
desc 'Convert previous stage language into the current stage language'
|
|
task :convert do
|
|
File.open('boot/stage22/cl.elna', 'w') do |current_stage|
|
|
seen_proc = false
|
|
File.readlines('boot/stage21/cl.elna').each do |line|
|
|
seen_proc = true if line.start_with? 'proc'
|
|
seen_proc = false if line.start_with? 'end'
|
|
if line.start_with?('begin') && !seen_proc
|
|
current_stage << <<~FUN
|
|
|
|
proc f();
|
|
var
|
|
x: ElnaLocation;
|
|
y: ElnaLocation;
|
|
begin
|
|
y.line := 1;
|
|
y.column := 3;
|
|
x := y;
|
|
printf("# %i %i %i %i\\n\\0", x.line, x.column, y.line, y.column)
|
|
end;
|
|
|
|
begin
|
|
f();
|
|
FUN
|
|
else
|
|
current_stage << line
|
|
end
|
|
end
|
|
end
|
|
end
|