Add support for APL. Closes #308

components.js

@@ -67,6 +67,10 @@ var components = {
 			"title": "Apache Configuration",
 			"owner": "GuiTeK"
 		},
+		"apl": {
+			"title": "APL",
+			"owner": "ngn"
+		},
 		"applescript": {
 			"title": "AppleScript",
 			"owner": "Golmote"

components/prism-apl.js

@@ -0,0 +1,29 @@
+Prism.languages.apl = {
+	'comment': /(?:⍝|#[! ]).*$/m,
+	'string': /'(?:[^'\r\n]|'')*'/,
+	'number': /¯?(?:\d*\.?\d+(?:e[+¯]?\d+)?|¯|∞)(?:j¯?(?:\d*\.?\d+(?:e[\+¯]?\d+)?|¯|∞))?/i,
+	'statement': /:[A-Z][a-z][A-Za-z]*\b/,
+	'system-function': {
+		pattern: /⎕[A-Z]+/i,
+		alias: 'function'
+	},
+	'constant': /[⍬⌾#⎕⍞]/,
+	'function': /[-+×÷⌈⌊∣|⍳?*⍟○!⌹<≤=>≥≠≡≢∊⍷∪∩~∨∧⍱⍲⍴,⍪⌽⊖⍉↑↓⊂⊃⌷⍋⍒⊤⊥⍕⍎⊣⊢⍁⍂≈⍯↗¤→]/,
+	'monadic-operator': {
+		pattern: /[\\\/⌿⍀¨⍨⌶&∥]/,
+		alias: 'operator'
+	},
+	'dyadic-operator': {
+		pattern: /[.⍣⍠⍤∘⌸]/,
+		alias: 'operator'
+	},
+	'assignment': {
+		pattern: /←/,
+		alias: 'keyword'
+	},
+	'punctuation': /[\[;\]()◇⋄]/,
+	'dfn': {
+		pattern: /[{}⍺⍵⍶⍹∇⍫:]/,
+		alias: 'builtin'
+	}
+};

plugins/show-language/prism-show-language.js

@@ -5,7 +5,7 @@ if (typeof self === 'undefined' || !self.Prism || !self.document) {
 }
 
 // The languages map is built automatically with gulp
-var Languages = /*languages_placeholder[*/{"css":"CSS","clike":"C-like","javascript":"JavaScript","actionscript":"ActionScript","apacheconf":"Apache Configuration","applescript":"AppleScript","aspnet":"ASP.NET (C#)","autohotkey":"AutoHotkey","csharp":"C#","cpp":"C++","coffeescript":"CoffeeScript","css-extras":"CSS Extras","fsharp":"F#","http":"HTTP","latex":"LaTeX","lolcode":"LOLCODE","matlab":"MATLAB","nasm":"NASM","nsis":"NSIS","objectivec":"Objective-C","php":"PHP","php-extras":"PHP Extras","powershell":"PowerShell","jsx":"React JSX","rest":"reST (reStructuredText)","sas":"SAS","sass":"Sass (Sass)","scss":"Sass (Scss)","sql":"SQL","typescript":"TypeScript","vhdl":"VHDL","wiki":"Wiki markup","yaml":"YAML"}/*]*/;
+var Languages = /*languages_placeholder[*/{"css":"CSS","clike":"C-like","javascript":"JavaScript","actionscript":"ActionScript","apacheconf":"Apache Configuration","apl":"APL","applescript":"AppleScript","aspnet":"ASP.NET (C#)","autohotkey":"AutoHotkey","csharp":"C#","cpp":"C++","coffeescript":"CoffeeScript","css-extras":"CSS Extras","fsharp":"F#","http":"HTTP","latex":"LaTeX","lolcode":"LOLCODE","matlab":"MATLAB","nasm":"NASM","nsis":"NSIS","objectivec":"Objective-C","php":"PHP","php-extras":"PHP Extras","powershell":"PowerShell","jsx":"React JSX","rest":"reST (reStructuredText)","sas":"SAS","sass":"Sass (Sass)","scss":"Sass (Scss)","sql":"SQL","typescript":"TypeScript","vhdl":"VHDL","wiki":"Wiki markup","yaml":"YAML"}/*]*/;
 Prism.hooks.add('before-highlight', function(env) {
 	var pre = env.element.parentNode;
 	if (!pre || !/pre/i.test(pre.nodeName)) {

tests/languages/apl/assignment_feature.test

@@ -0,0 +1,13 @@
+a←1 2 3
+
+----------------------------------------------------
+
+[
+	"a",
+	["assignment", "←"],
+	["number", "1"], ["number", "2"], ["number", "3"]
+]
+
+----------------------------------------------------
+
+Checks for assignment.

tests/languages/apl/comment_feature.test

@@ -0,0 +1,15 @@
+⍝
+⍝ Foobar
+#!/usr/bin/env runapl
+
+----------------------------------------------------
+
+[
+	["comment", "⍝"],
+	["comment", "⍝ Foobar"],
+	["comment", "#!/usr/bin/env runapl"]
+]
+
+----------------------------------------------------
+
+Checks for comments.

tests/languages/apl/constant_feature.test

@@ -0,0 +1,19 @@
+⍬
+⌾
+#
+⎕
+⍞
+
+----------------------------------------------------
+
+[
+	["constant", "⍬"],
+	["constant", "⌾"],
+	["constant", "#"],
+	["constant", "⎕"],
+	["constant", "⍞"]
+]
+
+----------------------------------------------------
+
+Checks for constants.

tests/languages/apl/dfn_feature.test

@@ -0,0 +1,23 @@
+{0=⍴⍴⍺:'hello' ⋄ ∇¨⍵}
+
+----------------------------------------------------
+
+[
+	["dfn", "{"],
+	["number", "0"],
+	["function", "="],
+	["function", "⍴"],
+	["function", "⍴"],
+	["dfn", "⍺"],
+	["dfn", ":"],
+	["string", "'hello'"],
+	["punctuation", "⋄"],
+	["dfn", "∇"],
+	["monadic-operator", "¨"],
+	["dfn", "⍵"],
+	["dfn", "}"]
+]
+
+----------------------------------------------------
+
+Checks for Dfns.

tests/languages/apl/dyadic-operator_feature.test

@@ -0,0 +1,13 @@
+. ⍣ ⍠
+⍤ ∘ ⌸
+
+----------------------------------------------------
+
+[
+	["dyadic-operator", "."], ["dyadic-operator", "⍣"], ["dyadic-operator", "⍠"],
+	["dyadic-operator", "⍤"], ["dyadic-operator", "∘"], ["dyadic-operator", "⌸"]
+]
+
+----------------------------------------------------
+
+Checks for dyadic operators.

tests/languages/apl/function_feature.test

@@ -0,0 +1,41 @@
+- + × ÷
+⌈ ⌊ ∣ |
+⍳ ? *
+⍟ ○ ! ⌹
+< ≤ = >
+≥ ≠ ≡ ≢
+∊ ⍷ ∪ ∩
+~ ∨ ∧ ⍱
+⍲ ⍴ , ⍪
+⌽ ⊖ ⍉
+↑ ↓ ⊂ ⊃
+⌷ ⍋ ⍒
+⊤ ⊥ ⍕ ⍎
+⊣ ⊢ ⍁ ⍂
+≈ ⍯
+↗ ¤ →
+
+----------------------------------------------------
+
+[
+	["function", "-"], ["function", "+"], ["function", "×"], ["function", "÷"],
+	["function", "⌈"], ["function", "⌊"], ["function", "∣"], ["function", "|"],
+	["function", "⍳"], ["function", "?"], ["function", "*"],
+	["function", "⍟"], ["function", "○"], ["function", "!"], ["function", "⌹"],
+	["function", "<"], ["function", "≤"], ["function", "="], ["function", ">"],
+	["function", "≥"], ["function", "≠"], ["function", "≡"], ["function", "≢"],
+	["function", "∊"], ["function", "⍷"], ["function", "∪"], ["function", "∩"],
+	["function", "~"], ["function", "∨"], ["function", "∧"], ["function", "⍱"],
+	["function", "⍲"], ["function", "⍴"], ["function", ","], ["function", "⍪"],
+	["function", "⌽"], ["function", "⊖"], ["function", "⍉"],
+	["function", "↑"], ["function", "↓"], ["function", "⊂"], ["function", "⊃"],
+	["function", "⌷"], ["function", "⍋"], ["function", "⍒"],
+	["function", "⊤"], ["function", "⊥"], ["function", "⍕"], ["function", "⍎"],
+	["function", "⊣"], ["function", "⊢"], ["function", "⍁"], ["function", "⍂"],
+	["function", "≈"], ["function", "⍯"],
+	["function", "↗"], ["function", "¤"], ["function", "→"]
+]
+
+----------------------------------------------------
+
+Checks for functions.

tests/languages/apl/monadic-operator_feature.test

@@ -0,0 +1,15 @@
+\ / ⌿ ⍀
+¨ ⍨ ⌶
+& ∥
+
+----------------------------------------------------
+
+[
+	["monadic-operator", "\\"], ["monadic-operator", "/"], ["monadic-operator", "⌿"], ["monadic-operator", "⍀"],
+	["monadic-operator", "¨"], ["monadic-operator", "⍨"], ["monadic-operator", "⌶"],
+	["monadic-operator", "&"], ["monadic-operator", "∥"]
+]
+
+----------------------------------------------------
+
+Checks for monadic operators.

tests/languages/apl/number_feature.test

@@ -0,0 +1,27 @@
+42
+3.14159
+¯2
+∞
+3E12
+2.8e¯4
+0.1e+7
+2j3
+¯4.3e2J1.9e¯4
+
+----------------------------------------------------
+
+[
+	["number", "42"],
+	["number", "3.14159"],
+	["number", "¯2"],
+	["number", "∞"],
+	["number", "3E12"],
+	["number", "2.8e¯4"],
+	["number", "0.1e+7"],
+	["number", "2j3"],
+	["number", "¯4.3e2J1.9e¯4"]
+]
+
+----------------------------------------------------
+
+Checks for numbers.

tests/languages/apl/statement_feature.test

@@ -0,0 +1,13 @@
+:Ab
+:FooBar
+
+----------------------------------------------------
+
+[
+	["statement", ":Ab"],
+	["statement", ":FooBar"]
+]
+
+----------------------------------------------------
+
+Checks for statements.

tests/languages/apl/string_feature.test

@@ -0,0 +1,15 @@
+''
+'foobar'
+'fo''obar'
+
+----------------------------------------------------
+
+[
+	["string", "''"],
+	["string", "'foobar'"],
+	["string", "'fo''obar'"]
+]
+
+----------------------------------------------------
+
+Checks for strings.

tests/languages/apl/system-function_feature.test

@@ -0,0 +1,17 @@
+⎕IO
+⎕WA
+⎕CR
+⎕TCNL
+
+----------------------------------------------------
+
+[
+	["system-function", "⎕IO"],
+	["system-function", "⎕WA"],
+	["system-function", "⎕CR"],
+	["system-function", "⎕TCNL"]
+]
+
+----------------------------------------------------
+
+Checks for system functions.