Adding basic support for Mathematica (#2921)

Co-authored-by: Michael Schmidt <mitchi5000.ms@googlemail.com>

Author: msollami

components.js

@@ -1346,6 +1346,15 @@
 			"require": "markup",
 			"owner": "Golmote"
 		},
+		"wolfram": {
+			"title": "Wolfram language",
+			"alias": ["mathematica", "nb", "wl"],
+			"aliasTitles": {
+				"mathematica": "Mathematica",
+				"nb": "Mathematica Notebook"
+			},
+			"owner": "msollami"
+		},
 		"xeora": {
 			"title": "Xeora",
 			"require": "markup",

components.json

@@ -0,0 +1,29 @@
+Prism.languages.wolfram = {
+	'comment': // Allow one level of nesting - note: regex taken from applescipt
+		/\(\*(?:\(\*(?:[^*]|\*(?!\)))*\*\)|(?!\(\*)[\s\S])*?\*\)/,
+	'string': {
+		pattern: /"(?:\\.|[^"\\\r\n])*"/,
+		greedy: true
+	},
+	'keyword': /\b(?:Abs|AbsArg|Accuracy|Block|Do|For|Function|If|Manipulate|Module|Nest|NestList|None|Return|Switch|Table|Which|While)\b/,
+	'context': {
+		pattern: /\w+`+\w*/,
+		alias: 'class-name'
+	},
+	'blank': {
+		pattern: /\b\w+_\b/,
+		alias: 'regex'
+	},
+	'global-variable': {
+		pattern: /\$\w+/,
+		alias: 'variable'
+	},
+	'boolean': /\b(?:True|False)\b/,
+	'number': /(?:\b(?=\d)|\B(?=\.))(?:0[bo])?(?:(?:\d|0x[\da-f])[\da-f]*(?:\.\d*)?|\.\d+)(?:e[+-]?\d+)?j?\b/i,
+	'operator': /\/\.|\;|\=\.|\^\=|\^\:\=|\:\=|\<\<|\>\>|\<\||\|\>|\:\>|\|\-\>|\-\>|\<\-|\@\@\@|\@\@|\@|\/\@|\=\!\=|\=\=\=|\=\=|\=|\+|\-|\^|\*|\[\/-+%=]=?|\!\=|\*\*?=?|\/\/?=?|<[<=>]?|>[=>]?|[&|^~]/,
+	'punctuation': /[\|{}[\];(),.:]/
+};
+
+Prism.languages.mathematica = Prism.languages.wolfram;
+Prism.languages.wl = Prism.languages.wolfram;
+Prism.languages.nb = Prism.languages.wolfram;

components/prism-wolfram.js

@@ -0,0 +1,31 @@
+<h2>Comments</h2>
+<pre><code>
+(* This is a comment *)
+</code></pre>
+
+<h2>Strings</h2>
+<pre><code>
+"foo bar baz"
+</code></pre>
+
+<h2>Numbers</h2>
+<pre><code>
+7
+3.14
+10.
+.001
+1e100
+3.14e-10
+2147483647
+</code></pre>
+
+<h2>Full example</h2>
+<pre><code>
+(* Most operators are supported *)
+f /@ {1, 2, 3};
+f @@ Range[10];
+f @@@ y;
+Module[{x=1}, 
+    Return @ $Failed
+]
+</code></pre>

components/prism-wolfram.min.js

@@ -239,6 +239,9 @@
 		"url": "uri",
 		"vb": "visual-basic",
 		"vba": "visual-basic",
+		"mathematica": "wolfram",
+		"nb": "wolfram",
+		"wl": "wolfram",
 		"xeoracube": "xeora",
 		"yml": "yaml"
 	}/*]*/;

examples/prism-wolfram.html

@@ -230,6 +230,9 @@
 		"vb": "Visual Basic",
 		"wasm": "WebAssembly",
 		"wiki": "Wiki markup",
+		"wolfram": "Wolfram language",
+		"nb": "Mathematica Notebook",
+		"wl": "Wolfram language",
 		"xeoracube": "XeoraCube",
 		"xml-doc": "XML doc (.net)",
 		"xojo": "Xojo (REALbasic)",