Shorten the array syntax

2025-05-30 12:57:04 +02:00
parent bd41736697
commit 96bcfdcbb4
4 changed files with 304 additions and 304 deletions
--- a/1
+++ b/1
@ -111,6 +111,7 @@ task :backport do
      .gsub(/^from ([[:alnum:]]+) import/, 'FROM \1 IMPORT')
      .gsub(/ \^([[:alnum:]])/, ' POINTER TO \1')
      .gsub(/(then|do)$/) { |match| match.upcase }
+      .gsub(/(:|=) \[([[:digit:]]+)\]/, '\1 ARRAY[1..\2] OF ')
      .each_line do |line|
        if line.start_with? 'PROCEDURE'
          current_procedure = line[10...line.index('(')]