1
|
{"version":3,"sources":["webpack:///./node_modules/highlight.js/lib/languages/tcl.js"],"names":["source","re","concat","args","joined","map","x","join","module","exports","hljs","TCL_IDENT","NUMBER","className","variants","BINARY_NUMBER_MODE","C_NUMBER_MODE","name","aliases","keywords","contains","COMMENT","beginKeywords","end","excludeEnd","begin","endsWithParent","BACKSLASH_ESCAPE","inherit","QUOTE_STRING_MODE","illegal"],"mappings":"oGASA,SAASA,EAAOC,GACd,OAAKA,EACa,iBAAPA,EAAwBA,EAE5BA,EAAGD,OAHM,KAkBlB,SAASE,IAAgB,2BAANC,EAAM,yBAANA,EAAM,gBACvB,IAAMC,EAASD,EAAKE,KAAI,SAACC,GAAD,OAAON,EAAOM,MAAIC,KAAK,IAC/C,OAAOH,EAoFTI,EAAOC,QA1EP,SAAaC,GACX,IArBgBT,EAqBVU,EAAY,yBAEZC,EAAS,CACbC,UAAW,SACXC,SAAU,CAACJ,EAAKK,mBAAoBL,EAAKM,gBAG3C,MAAO,CACLC,KAAM,MACNC,QAAS,CAAC,MACVC,SAAU,+6BAYVC,SAAU,CACRV,EAAKW,QAAQ,YAAa,KAC1BX,EAAKW,QAAQ,YAAa,KAC1B,CACEC,cAAe,OACfC,IAAK,QACLC,YAAY,EACZJ,SAAU,CACR,CACEP,UAAW,QACXY,MAAO,kDACPF,IAAK,eACLG,gBAAgB,EAChBF,YAAY,KAIlB,CACEX,UAAW,WACXC,SAAU,CACR,CACEW,MAAOvB,EACL,MAjEID,EAkEK,KAjEdC,EAAO,IAAKD,EAAI,OAkEXU,EACA,MACAA,EACA,OAGJ,CACEc,MAAO,2CACPF,IAAK,MACLH,SAAU,CACRR,MAKR,CACEC,UAAW,SACXO,SAAU,CAACV,EAAKiB,kBAChBb,SAAU,CACRJ,EAAKkB,QAAQlB,EAAKmB,kBAAmB,CAACC,QAAS,SAGnDlB","file":"highlight/tcl.js?v=b5b34e71de4ec8191d40","sourcesContent":["/**\n * @param {string} value\n * @returns {RegExp}\n * */\n\n/**\n * @param {RegExp | string } re\n * @returns {string}\n */\nfunction source(re) {\n if (!re) return null;\n if (typeof re === \"string\") return re;\n\n return re.source;\n}\n\n/**\n * @param {RegExp | string } re\n * @returns {string}\n */\nfunction optional(re) {\n return concat('(', re, ')?');\n}\n\n/**\n * @param {...(RegExp | string) } args\n * @returns {string}\n */\nfunction concat(...args) {\n const joined = args.map((x) => source(x)).join(\"\");\n return joined;\n}\n\n/*\nLanguage: Tcl\nDescription: Tcl is a very simple programming language.\nAuthor: Radek Liska <radekliska@gmail.com>\nWebsite: https://www.tcl.tk/about/language.html\n*/\n\nfunction tcl(hljs) {\n const TCL_IDENT = /[a-zA-Z_][a-zA-Z0-9_]*/;\n\n const NUMBER = {\n className: 'number',\n variants: [hljs.BINARY_NUMBER_MODE, hljs.C_NUMBER_MODE]\n };\n\n return {\n name: 'Tcl',\n aliases: ['tk'],\n keywords: 'after append apply array auto_execok auto_import auto_load auto_mkindex ' +\n 'auto_mkindex_old auto_qualify auto_reset bgerror binary break catch cd chan clock ' +\n 'close concat continue dde dict encoding eof error eval exec exit expr fblocked ' +\n 'fconfigure fcopy file fileevent filename flush for foreach format gets glob global ' +\n 'history http if incr info interp join lappend|10 lassign|10 lindex|10 linsert|10 list ' +\n 'llength|10 load lrange|10 lrepeat|10 lreplace|10 lreverse|10 lsearch|10 lset|10 lsort|10 '+\n 'mathfunc mathop memory msgcat namespace open package parray pid pkg::create pkg_mkIndex '+\n 'platform platform::shell proc puts pwd read refchan regexp registry regsub|10 rename '+\n 'return safe scan seek set socket source split string subst switch tcl_endOfWord '+\n 'tcl_findLibrary tcl_startOfNextWord tcl_startOfPreviousWord tcl_wordBreakAfter '+\n 'tcl_wordBreakBefore tcltest tclvars tell time tm trace unknown unload unset update '+\n 'uplevel upvar variable vwait while',\n contains: [\n hljs.COMMENT(';[ \\\\t]*#', '$'),\n hljs.COMMENT('^[ \\\\t]*#', '$'),\n {\n beginKeywords: 'proc',\n end: '[\\\\{]',\n excludeEnd: true,\n contains: [\n {\n className: 'title',\n begin: '[ \\\\t\\\\n\\\\r]+(::)?[a-zA-Z_]((::)?[a-zA-Z0-9_])*',\n end: '[ \\\\t\\\\n\\\\r]',\n endsWithParent: true,\n excludeEnd: true\n }\n ]\n },\n {\n className: \"variable\",\n variants: [\n {\n begin: concat(\n /\\$/,\n optional(/::/),\n TCL_IDENT,\n '(::',\n TCL_IDENT,\n ')*'\n )\n },\n {\n begin: '\\\\$\\\\{(::)?[a-zA-Z_]((::)?[a-zA-Z0-9_])*',\n end: '\\\\}',\n contains: [\n NUMBER\n ]\n }\n ]\n },\n {\n className: 'string',\n contains: [hljs.BACKSLASH_ESCAPE],\n variants: [\n hljs.inherit(hljs.QUOTE_STRING_MODE, {illegal: null})\n ]\n },\n NUMBER\n ]\n }\n}\n\nmodule.exports = tcl;\n"],"sourceRoot":""}
|
