UNPKG

2.15 kBJavaScriptView Raw
1hljs.registerLanguage("ada",(()=>{"use strict";return e=>{
2const n="[A-Za-z](_?[A-Za-z0-9.])*",s="[]\\{\\}%#'\"",a=e.COMMENT("--","$"),r={
3begin:"\\s+:\\s+",end:"\\s*(:=|;|\\)|=>|$)",illegal:s,contains:[{
4beginKeywords:"loop for declare others",endsParent:!0},{className:"keyword",
5beginKeywords:"not null constant access function procedure in out aliased exception"
6},{className:"type",begin:n,endsParent:!0,relevance:0}]};return{name:"Ada",
7case_insensitive:!0,keywords:{
8keyword:["abort","else","new","return","abs","elsif","not","reverse","abstract","end","accept","entry","select","access","exception","of","separate","aliased","exit","or","some","all","others","subtype","and","for","out","synchronized","array","function","overriding","at","tagged","generic","package","task","begin","goto","pragma","terminate","body","private","then","if","procedure","type","case","in","protected","constant","interface","is","raise","use","declare","range","delay","limited","record","when","delta","loop","rem","while","digits","renames","with","do","mod","requeue","xor"],
9literal:["True","False"]},contains:[a,{className:"string",begin:/"/,end:/"/,
10contains:[{begin:/""/,relevance:0}]},{className:"string",begin:/'.'/},{
11className:"number",
12begin:"\\b(\\d(_|\\d)*#\\w+(\\.\\w+)?#([eE][-+]?\\d(_|\\d)*)?|\\d(_|\\d)*(\\.\\d(_|\\d)*)?([eE][-+]?\\d(_|\\d)*)?)",
13relevance:0},{className:"symbol",begin:"'"+n},{className:"title",
14begin:"(\\bwith\\s+)?(\\bprivate\\s+)?\\bpackage\\s+(\\bbody\\s+)?",
15end:"(is|$)",keywords:"package body",excludeBegin:!0,excludeEnd:!0,illegal:s},{
16begin:"(\\b(with|overriding)\\s+)?\\b(function|procedure)\\s+",
17end:"(\\bis|\\bwith|\\brenames|\\)\\s*;)",
18keywords:"overriding function procedure with is renames return",returnBegin:!0,
19contains:[a,{className:"title",
20begin:"(\\bwith\\s+)?\\b(function|procedure)\\s+",end:"(\\(|\\s+|$)",
21excludeBegin:!0,excludeEnd:!0,illegal:s},r,{className:"type",
22begin:"\\breturn\\s+",end:"(\\s+|;|$)",keywords:"return",excludeBegin:!0,
23excludeEnd:!0,endsParent:!0,illegal:s}]},{className:"type",
24begin:"\\b(sub)?type\\s+",end:"\\s+",keywords:"type",excludeBegin:!0,illegal:s
25},r]}}})());
\No newline at end of file