Add language support for Simula

.gitmodules

@@ -1371,6 +1371,9 @@
 [submodule "vendor/grammars/vscode-scala-syntax"]
 	path = vendor/grammars/vscode-scala-syntax
 	url = https://github.com/scala/vscode-scala-syntax
+[submodule "vendor/grammars/vscode-simula"]
+	path = vendor/grammars/vscode-simula
+	url = https://github.com/eirslett/vscode-simula.git
 [submodule "vendor/grammars/vscode-singularity"]
 	path = vendor/grammars/vscode-singularity
 	url = https://github.com/onnovalkering/vscode-singularity

grammars.yml

@@ -1234,6 +1234,8 @@ vendor/grammars/vscode-ron:
 - source.ron
 vendor/grammars/vscode-scala-syntax:
 - source.scala
+vendor/grammars/vscode-simula:
+- source.sim
 vendor/grammars/vscode-singularity:
 - source.singularity
 vendor/grammars/vscode-slice:

lib/linguist/heuristics.yml

@@ -697,6 +697,12 @@ disambiguations:
   - language: Markdown
     # Markdown syntax for scdoc
     pattern: '^#+\s+(NAME|SYNOPSIS|DESCRIPTION)'
+- extensions: ['.sim']
+  rules:
+  - language: Simula
+    pattern: '(?i)\bbegin\b.*?\bend\b'
+  - language: YAML
+    pattern: '^[\{\[]'
 - extensions: ['.sol']
   rules:
   - language: Solidity

lib/linguist/languages.yml

@@ -1635,6 +1635,7 @@ Dockerfile:
   filenames:
   - Containerfile
   - Dockerfile
+  - Dockerfile.sim
   ace_mode: dockerfile
   codemirror_mode: dockerfile
   codemirror_mime_type: text/x-dockerfile
@@ -4204,6 +4205,7 @@ Makefile:
   - Makefile.frag
   - Makefile.in
   - Makefile.inc
+  - Makefile.sim
   - Makefile.wat
   - makefile
   - makefile.sco
@@ -6821,6 +6823,18 @@ Simple File Verification:
   codemirror_mode: properties
   codemirror_mime_type: text/x-properties
   language_id: 735623761
+Simula:
+  type: programming
+  color: "#B22F2F"
+  extensions:
+  - ".sim"
+  aliases:
+  - sim
+  tm_scope: source.simula
+  ace_mode: simula
+  codemirror_mode: simula
+  codemirror_mime_type: text/x-simula
+  language_id: 582204041
 Singularity:
   type: programming
   color: "#64E6AD"
@@ -8245,6 +8259,7 @@ YAML:
   - ".mir"
   - ".reek"
   - ".rviz"
+  - ".sim"
   - ".sublime-syntax"
   - ".syntax"
   - ".yaml"

samples/Simula/BottlesOfBeer.sim

@@ -0,0 +1,17 @@
+! License: MIT;
+begin
+    integer i;
+    for i := 99 step -1 until 1 do
+    begin
+        outint(i, 2);
+        outtext(" bottles of beer on the wall, ");
+        outint(i, 2);
+        outtext(" bottles of beer.");
+        outimage;
+        outtext("Take one down and pass it around, ");
+        outint(i - 1, 2);
+        outtext(" bottles of beer on the wall.");
+        outimage;
+    end;
+    outtext("No more bottles of beer on the wall, no more bottles of beer.");
+end-let's-drink;

samples/Simula/TicTacToe.sim

@@ -0,0 +1,108 @@
+! A simple Tic-Tac-Toe game. License: MIT;
+begin
+    ref(TicTacToe) game;
+    character player;
+
+    class TicTacToe;
+    begin
+        character array board(1:9);
+
+        procedure placeMark(mark, position);
+            value mark, position;
+            character mark; integer position;
+        begin
+            board(position) := mark;
+        end-of-place-mark;
+
+        boolean procedure checkWinner(player);
+            value player;
+            character player;
+        begin
+            integer position;
+            comment
+            There are 8 possible ways to win: 3 rows, 3 columns, and 2 diagonals.
+            For reasons of laziness, we just AI-generate them:
+            ;
+            if board(1) = player and board(2) = player and board(3) = player then
+                checkWinner := true
+            else if board(4) = player and board(5) = player and board(6) = player then
+                checkWinner := true
+            else if board(7) = player and board(8) = player and board(9) = player then
+                checkWinner := true
+            else if board(1) = player and board(4) = player and board(7) = player then
+                checkWinner := true
+            else if board(2) = player and board(5) = player and board(8) = player then
+                checkWinner := true
+            else if board(3) = player and board(6) = player and board(9) = player then
+                checkWinner := true
+            else if board(1) = player and board(5) = player and board(9) = player then
+                checkWinner := true
+            else if board(3) = player and board(5) = player and board(7) = player then
+                checkWinner := true
+            else
+                checkWinner := false;
+        end-of-checkWinner;
+
+        character procedure winner;
+        begin
+            if checkWinner('X') then winner := 'X'
+            else if checkWinner('O') then winner := 'O'
+            else winner := ' ';
+        end-of-winner;
+
+        procedure DrawTopBottom; begin
+            OutText("+---+---+---+");
+            OutImage;
+        end;
+
+        procedure draw;
+        begin
+            integer row;
+            OutImage;
+            DrawTopBottom;
+            for row := 0 step 1 until 2 do begin
+                OutText("| " );
+                OutChar(board(row * 3  + 1));
+                OutText(" | " );
+                OutChar(board(row * 3 + 2));
+                OutText(" | " );
+                OutChar(board(row * 3 + 3));
+                OutText(" |");
+                OutImage;
+                DrawTopBottom;
+            end
+        end-of-draw;
+
+        !populate the board with number placeholders;
+        board(1) := '1';
+        board(2) := '2';
+        board(3) := '3';
+        board(4) := '4';
+        board(5) := '5';
+        board(6) := '6';
+        board(7) := '7';
+        board(8) := '8';
+        board(9) := '9';
+    end-of-TicTacToe;
+
+
+    game :- new TicTacToe;
+    player := 'X';
+
+    while game.winner <> 'X' and game.winner <> 'O' do
+    begin
+        game.draw;
+        OutText("Player ");
+        OutChar(player);
+        OutText(" enter position: ");
+        OutImage;
+        game.placeMark(player, InInt);    
+        if player = 'X' then player := 'O' else player := 'X';
+    end;
+
+    game.draw;
+
+    OutText("The winner is: player ");
+    OutChar(game.winner);
+    OutImage;
+end-of-program