2023-10-03 11:14:36 +08:00
|
|
|
/*
|
|
|
|
|
Language: Clean
|
|
|
|
|
Author: Camil Staps <info@camilstaps.nl>
|
|
|
|
|
Category: functional
|
|
|
|
|
Website: http://clean.cs.ru.nl
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
/** @type LanguageFn */
|
|
|
|
|
function clean(hljs) {
|
|
|
|
|
const KEYWORDS = [
|
|
|
|
|
"if",
|
|
|
|
|
"let",
|
|
|
|
|
"in",
|
|
|
|
|
"with",
|
|
|
|
|
"where",
|
|
|
|
|
"case",
|
|
|
|
|
"of",
|
|
|
|
|
"class",
|
|
|
|
|
"instance",
|
|
|
|
|
"otherwise",
|
|
|
|
|
"implementation",
|
|
|
|
|
"definition",
|
|
|
|
|
"system",
|
|
|
|
|
"module",
|
|
|
|
|
"from",
|
|
|
|
|
"import",
|
|
|
|
|
"qualified",
|
|
|
|
|
"as",
|
|
|
|
|
"special",
|
|
|
|
|
"code",
|
|
|
|
|
"inline",
|
|
|
|
|
"foreign",
|
|
|
|
|
"export",
|
|
|
|
|
"ccall",
|
|
|
|
|
"stdcall",
|
|
|
|
|
"generic",
|
|
|
|
|
"derive",
|
|
|
|
|
"infix",
|
|
|
|
|
"infixl",
|
|
|
|
|
"infixr"
|
|
|
|
|
];
|
|
|
|
|
return {
|
|
|
|
|
name: 'Clean',
|
|
|
|
|
aliases: [
|
|
|
|
|
'icl',
|
|
|
|
|
'dcl'
|
|
|
|
|
],
|
|
|
|
|
keywords: {
|
|
|
|
|
keyword: KEYWORDS,
|
|
|
|
|
built_in:
|
|
|
|
|
'Int Real Char Bool',
|
|
|
|
|
literal:
|
|
|
|
|
'True False'
|
|
|
|
|
},
|
|
|
|
|
contains: [
|
|
|
|
|
hljs.C_LINE_COMMENT_MODE,
|
|
|
|
|
hljs.C_BLOCK_COMMENT_MODE,
|
|
|
|
|
hljs.APOS_STRING_MODE,
|
|
|
|
|
hljs.QUOTE_STRING_MODE,
|
|
|
|
|
hljs.C_NUMBER_MODE,
|
|
|
|
|
{ // relevance booster
|
|
|
|
|
begin: '->|<-[|:]?|#!?|>>=|\\{\\||\\|\\}|:==|=:|<>' }
|
|
|
|
|
]
|
|
|
|
|
};
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
module.exports = clean;
|
