Skip to content

Provide highlighting of Oberon source code #4198

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 1 commit into
base: main
Choose a base branch
from
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
1 change: 1 addition & 0 deletions SUPPORTED_LANGUAGES.md
Original file line number Diff line number Diff line change
Expand Up @@ -162,6 +162,7 @@ The table below shows the full list of languages (and corresponding classes/alia
| Oak | oak | [highlightjs-oak](https://github.com/timlabs/highlightjs-oak) |
| Object Constraint Language | ocl | [highlightjs-ocl](https://github.com/nhomble/highlightjs-ocl) |
| OCaml | ocaml, ml | |
| Oberon | obn, mod | [highlightjs-oberon](https://github.com/miasapkarl/highlightjs-oberon) |
| Objective C | objectivec, mm, objc, obj-c, obj-c++, objective-c++ | |
| Odin | odin | [highlightjs-odin](https://github.com/NinjasCL/highlightjs-odin) |
| OpenGL Shading Language | glsl | |
Expand Down
64 changes: 64 additions & 0 deletions src/languages/oberon.js
Original file line number Diff line number Diff line change
@@ -0,0 +1,64 @@
/*
Language: Oberon
Description: Syntax highlighting for the final version of Oberon (also known as Oberon-07)
Author: Karl Landstrom <[email protected]>
Website: https://miasap.se/obnc/oberon-report.html
Category: system
*/

export default function(hljs)
{
const COMMENT = hljs.COMMENT(/\(\*/, /\*\)/, {contains: ["self"]});

const STRING = {
scope: "string",
variants: [
{begin: '"', end: '"'},
{begin: /\b\d[A-Z0-9]*X/}
]
};

const NUMBER = {
scope: "number",
variants: [
{begin: /\b\d+\.\d*(E[+-]?\d+)?/},
{begin: /\b\d[A-Z0-9]*H/},
{begin: /\b\d+/}
]
};

const PUNCTUATION = {
scope: "punctuation",
begin: /[][(){}.,:;]/
};

const MODULE_OR_PROCEDURE_DECLARATION = {
match: [
/\b(?:MODULE|PROCEDURE)/,
/\s+/,
/\b\w+/],
scope: {1: "keyword", 3: "title"}
};

const RESERVED_WORDS = ["ARRAY", "BEGIN", "BY", "CASE", "CONST", "DIV", "DO", "ELSE", "ELSIF", "END", "FALSE", "FOR", "IF", "IMPORT", "IN", "IS", "MOD", "MODULE", "NIL", "OF", "OR", "POINTER", "PROCEDURE", "RECORD", "REPEAT", "RETURN", "THEN", "TO", "TRUE", "TYPE", "UNTIL", "VAR", "WHILE"];

const PREDEFINED_TYPES = ["BOOLEAN", "BYTE", "CHAR", "INTEGER", "REAL", "SET"];

const PREDEFINED_PROCEDURES = ["ABS", "ASR", "ASSERT", "CHR", "DEC", "EXCL", "FLOOR", "FLT", "INC", "INCL", "LEN", "LSL", "NEW", "ODD", "ORD", "PACK", "ROR", "UNPK"];

return {
name: "Oberon",
keywords: {
keyword: RESERVED_WORDS,
built_in: PREDEFINED_PROCEDURES,
type: PREDEFINED_TYPES
},
contains: [
COMMENT,
STRING,
NUMBER,
PUNCTUATION,
MODULE_OR_PROCEDURE_DECLARATION
]
};
}
77 changes: 77 additions & 0 deletions test/detect/oberon/default.txt
Original file line number Diff line number Diff line change
@@ -0,0 +1,77 @@
MODULE M;
(*a non-nested comment*)
(*a (*nested*) comment*)

IMPORT Math;

CONST
(*strings*)
str = "a string";
null = 0X;
linefeed = 0AX;

(*integers*)
i1 = 0;
i2 = 12;
i3 = -12;
i4 = 0H;
i5 = 01H;
i6 = 0AH;
i7 = 0A7H;

(*real numbers*)
r1 = 1.;
r2 = 1.2;
r3 = 1.23;
r4 = 1.E0;
r5 = 1.2E+10;
r6 = 1.23E-10;

TYPE
T = POINTER TO RECORD END;

VAR
b: BOOLEAN;
y: BYTE;
ch: CHAR;
i: INTEGER;
r: REAL;
A: SET;
s: ARRAY 32 OF CHAR;
x: T;

PROCEDURE Func(): INTEGER;
BEGIN
A := {1, 2, 4};
x := NIL;
s[0] := 0X;
CASE 1 DIV 2 MOD 3 OF 0, 1: END;
FOR i := 0 TO 100 BY 10 DO END;
IF (0 IN {}) OR (x IS T) & TRUE THEN
ELSIF FALSE THEN
ELSE
END;
REPEAT UNTIL TRUE;
WHILE FALSE DO END;
r := ABS(r);
i := ASR(i, 1);
ASSERT(TRUE);
ch := CHR(0);
DEC(i);
EXCL(A, 0);
i := FLOOR(r);
r := FLT(i);
INC(i);
INCL(A, 0);
i := LEN(s);
i := LSL(i, 1);
NEW(x);
b := ODD(i);
i := ORD(ch);
PACK(r, 1);
i := ROR(i, 1);
UNPK(r, i)
RETURN 0
END Func;

END M.
77 changes: 77 additions & 0 deletions test/markup/oberon/default.expect.txt
Original file line number Diff line number Diff line change
@@ -0,0 +1,77 @@
<span class="hljs-keyword">MODULE</span> <span class="hljs-title">M</span>;
<span class="hljs-comment">(*a non-nested comment*)</span>
<span class="hljs-comment">(*a <span class="hljs-comment">(*nested*)</span> comment*)</span>

<span class="hljs-keyword">IMPORT</span> Math;

<span class="hljs-keyword">CONST</span>
<span class="hljs-comment">(*strings*)</span>
str = <span class="hljs-string">&quot;a string&quot;</span>;
null = <span class="hljs-string">0X</span>;
linefeed = <span class="hljs-string">0AX</span>;

<span class="hljs-comment">(*integers*)</span>
i1 = <span class="hljs-number">0</span>;
i2 = <span class="hljs-number">12</span>;
i3 = -<span class="hljs-number">12</span>;
i4 = <span class="hljs-number">0H</span>;
i5 = <span class="hljs-number">01H</span>;
i6 = <span class="hljs-number">0AH</span>;
i7 = <span class="hljs-number">0A7H</span>;

<span class="hljs-comment">(*real numbers*)</span>
r1 = <span class="hljs-number">1.</span>;
r2 = <span class="hljs-number">1.2</span>;
r3 = <span class="hljs-number">1.23</span>;
r4 = <span class="hljs-number">1.E0</span>;
r5 = <span class="hljs-number">1.2E+10</span>;
r6 = <span class="hljs-number">1.23E-10</span>;

<span class="hljs-keyword">TYPE</span>
T = <span class="hljs-keyword">POINTER</span> <span class="hljs-keyword">TO</span> <span class="hljs-keyword">RECORD</span> <span class="hljs-keyword">END</span>;

<span class="hljs-keyword">VAR</span>
b: <span class="hljs-type">BOOLEAN</span>;
y: <span class="hljs-type">BYTE</span>;
ch: <span class="hljs-type">CHAR</span>;
i: <span class="hljs-type">INTEGER</span>;
r: <span class="hljs-type">REAL</span>;
A: <span class="hljs-type">SET</span>;
s: <span class="hljs-keyword">ARRAY</span> <span class="hljs-number">32</span> <span class="hljs-keyword">OF</span> <span class="hljs-type">CHAR</span>;
x: T;

<span class="hljs-keyword">PROCEDURE</span> <span class="hljs-title">Func</span>(): <span class="hljs-type">INTEGER</span>;
<span class="hljs-keyword">BEGIN</span>
A := {<span class="hljs-number">1</span>, <span class="hljs-number">2</span>, <span class="hljs-number">4</span>};
x := <span class="hljs-keyword">NIL</span>;
s[<span class="hljs-number">0</span>] := <span class="hljs-string">0X</span>;
<span class="hljs-keyword">CASE</span> <span class="hljs-number">1</span> <span class="hljs-keyword">DIV</span> <span class="hljs-number">2</span> <span class="hljs-keyword">MOD</span> <span class="hljs-number">3</span> <span class="hljs-keyword">OF</span> <span class="hljs-number">0</span>, <span class="hljs-number">1</span>: <span class="hljs-keyword">END</span>;
<span class="hljs-keyword">FOR</span> i := <span class="hljs-number">0</span> <span class="hljs-keyword">TO</span> <span class="hljs-number">100</span> <span class="hljs-keyword">BY</span> <span class="hljs-number">10</span> <span class="hljs-keyword">DO</span> <span class="hljs-keyword">END</span>;
<span class="hljs-keyword">IF</span> (<span class="hljs-number">0</span> <span class="hljs-keyword">IN</span> {}) <span class="hljs-keyword">OR</span> (x <span class="hljs-keyword">IS</span> T) &amp; <span class="hljs-keyword">TRUE</span> <span class="hljs-keyword">THEN</span>
<span class="hljs-keyword">ELSIF</span> <span class="hljs-keyword">FALSE</span> <span class="hljs-keyword">THEN</span>
<span class="hljs-keyword">ELSE</span>
<span class="hljs-keyword">END</span>;
<span class="hljs-keyword">REPEAT</span> <span class="hljs-keyword">UNTIL</span> <span class="hljs-keyword">TRUE</span>;
<span class="hljs-keyword">WHILE</span> <span class="hljs-keyword">FALSE</span> <span class="hljs-keyword">DO</span> <span class="hljs-keyword">END</span>;
r := <span class="hljs-built_in">ABS</span>(r);
i := <span class="hljs-built_in">ASR</span>(i, <span class="hljs-number">1</span>);
<span class="hljs-built_in">ASSERT</span>(<span class="hljs-keyword">TRUE</span>);
ch := <span class="hljs-built_in">CHR</span>(<span class="hljs-number">0</span>);
<span class="hljs-built_in">DEC</span>(i);
<span class="hljs-built_in">EXCL</span>(A, <span class="hljs-number">0</span>);
i := <span class="hljs-built_in">FLOOR</span>(r);
r := <span class="hljs-built_in">FLT</span>(i);
<span class="hljs-built_in">INC</span>(i);
<span class="hljs-built_in">INCL</span>(A, <span class="hljs-number">0</span>);
i := <span class="hljs-built_in">LEN</span>(s);
i := <span class="hljs-built_in">LSL</span>(i, <span class="hljs-number">1</span>);
<span class="hljs-built_in">NEW</span>(x);
b := <span class="hljs-built_in">ODD</span>(i);
i := <span class="hljs-built_in">ORD</span>(ch);
<span class="hljs-built_in">PACK</span>(r, <span class="hljs-number">1</span>);
i := <span class="hljs-built_in">ROR</span>(i, <span class="hljs-number">1</span>);
<span class="hljs-built_in">UNPK</span>(r, i)
<span class="hljs-keyword">RETURN</span> <span class="hljs-number">0</span>
<span class="hljs-keyword">END</span> Func;

<span class="hljs-keyword">END</span> M.
77 changes: 77 additions & 0 deletions test/markup/oberon/default.txt
Original file line number Diff line number Diff line change
@@ -0,0 +1,77 @@
MODULE M;
(*a non-nested comment*)
(*a (*nested*) comment*)

IMPORT Math;

CONST
(*strings*)
str = "a string";
null = 0X;
linefeed = 0AX;

(*integers*)
i1 = 0;
i2 = 12;
i3 = -12;
i4 = 0H;
i5 = 01H;
i6 = 0AH;
i7 = 0A7H;

(*real numbers*)
r1 = 1.;
r2 = 1.2;
r3 = 1.23;
r4 = 1.E0;
r5 = 1.2E+10;
r6 = 1.23E-10;

TYPE
T = POINTER TO RECORD END;

VAR
b: BOOLEAN;
y: BYTE;
ch: CHAR;
i: INTEGER;
r: REAL;
A: SET;
s: ARRAY 32 OF CHAR;
x: T;

PROCEDURE Func(): INTEGER;
BEGIN
A := {1, 2, 4};
x := NIL;
s[0] := 0X;
CASE 1 DIV 2 MOD 3 OF 0, 1: END;
FOR i := 0 TO 100 BY 10 DO END;
IF (0 IN {}) OR (x IS T) & TRUE THEN
ELSIF FALSE THEN
ELSE
END;
REPEAT UNTIL TRUE;
WHILE FALSE DO END;
r := ABS(r);
i := ASR(i, 1);
ASSERT(TRUE);
ch := CHR(0);
DEC(i);
EXCL(A, 0);
i := FLOOR(r);
r := FLT(i);
INC(i);
INCL(A, 0);
i := LEN(s);
i := LSL(i, 1);
NEW(x);
b := ODD(i);
i := ORD(ch);
PACK(r, 1);
i := ROR(i, 1);
UNPK(r, i)
RETURN 0
END Func;

END M.