@openstage/glyph-element 0.2.0

package/dist/chunks/haskell-eGGgAkgA.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"haskell-eGGgAkgA.js","names":[],"sources":["../../../../node_modules/highlight.js/es/languages/haskell.js"],"sourcesContent":["/*\nLanguage: Haskell\nAuthor: Jeremy Hull <sourdrums@gmail.com>\nContributors: Zena Treep <zena.treep@gmail.com>\nWebsite: https://www.haskell.org\nCategory: functional\n*/\n\nfunction haskell(hljs) {\n\n  /* See:\n     - https://www.haskell.org/onlinereport/lexemes.html\n     - https://downloads.haskell.org/ghc/9.0.1/docs/html/users_guide/exts/binary_literals.html\n     - https://downloads.haskell.org/ghc/9.0.1/docs/html/users_guide/exts/numeric_underscores.html\n     - https://downloads.haskell.org/ghc/9.0.1/docs/html/users_guide/exts/hex_float_literals.html\n  */\n  const decimalDigits = '([0-9]_*)+';\n  const hexDigits = '([0-9a-fA-F]_*)+';\n  const binaryDigits = '([01]_*)+';\n  const octalDigits = '([0-7]_*)+';\n  const ascSymbol = '[!#$%&*+.\\\\/<=>?@\\\\\\\\^~-]';\n  const uniSymbol = '(\\\\p{S}|\\\\p{P})'; // Symbol or Punctuation\n  const special = '[(),;\\\\[\\\\]`|{}]';\n  const symbol = `(${ascSymbol}|(?!(${special}|[_:\"']))${uniSymbol})`;\n\n  const COMMENT = { variants: [\n    // Double dash forms a valid comment only if it's not part of legal lexeme.\n    // See: Haskell 98 report: https://www.haskell.org/onlinereport/lexemes.html\n    //\n    // The commented code does the job, but we can't use negative lookbehind,\n    // due to poor support by Safari browser.\n    // > hljs.COMMENT(`(?<!${symbol})--+(?!${symbol})`, '$'),\n    // So instead, we'll add a no-markup rule before the COMMENT rule in the rules list\n    // to match the problematic infix operators that contain double dash.\n    hljs.COMMENT('--+', '$'),\n    hljs.COMMENT(\n      /\\{-/,\n      /-\\}/,\n      { contains: [ 'self' ] }\n    )\n  ] };\n\n  const PRAGMA = {\n    className: 'meta',\n    begin: /\\{-#/,\n    end: /#-\\}/\n  };\n\n  const PREPROCESSOR = {\n    className: 'meta',\n    begin: '^#',\n    end: '$'\n  };\n\n  const CONSTRUCTOR = {\n    className: 'type',\n    begin: '\\\\b[A-Z][\\\\w\\']*', // TODO: other constructors (build-in, infix).\n    relevance: 0\n  };\n\n  const LIST = {\n    begin: '\\\\(',\n    end: '\\\\)',\n    illegal: '\"',\n    contains: [\n      PRAGMA,\n      PREPROCESSOR,\n      {\n        className: 'type',\n        begin: '\\\\b[A-Z][\\\\w]*(\\\\((\\\\.\\\\.|,|\\\\w+)\\\\))?'\n      },\n      hljs.inherit(hljs.TITLE_MODE, { begin: '[_a-z][\\\\w\\']*' }),\n      COMMENT\n    ]\n  };\n\n  const RECORD = {\n    begin: /\\{/,\n    end: /\\}/,\n    contains: LIST.contains\n  };\n\n  const NUMBER = {\n    className: 'number',\n    relevance: 0,\n    variants: [\n      // decimal floating-point-literal (subsumes decimal-literal)\n      { match: `\\\\b(${decimalDigits})(\\\\.(${decimalDigits}))?` + `([eE][+-]?(${decimalDigits}))?\\\\b` },\n      // hexadecimal floating-point-literal (subsumes hexadecimal-literal)\n      { match: `\\\\b0[xX]_*(${hexDigits})(\\\\.(${hexDigits}))?` + `([pP][+-]?(${decimalDigits}))?\\\\b` },\n      // octal-literal\n      { match: `\\\\b0[oO](${octalDigits})\\\\b` },\n      // binary-literal\n      { match: `\\\\b0[bB](${binaryDigits})\\\\b` }\n    ]\n  };\n\n  return {\n    name: 'Haskell',\n    aliases: [ 'hs' ],\n    keywords:\n      'let in if then else case of where do module import hiding '\n      + 'qualified type data newtype deriving class instance as default '\n      + 'infix infixl infixr foreign export ccall stdcall cplusplus '\n      + 'jvm dotnet safe unsafe family forall mdo proc rec',\n    unicodeRegex: true,\n    contains: [\n      // Top-level constructions.\n      {\n        beginKeywords: 'module',\n        end: 'where',\n        keywords: 'module where',\n        contains: [\n          LIST,\n          COMMENT\n        ],\n        illegal: '\\\\W\\\\.|;'\n      },\n      {\n        begin: '\\\\bimport\\\\b',\n        end: '$',\n        keywords: 'import qualified as hiding',\n        contains: [\n          LIST,\n          COMMENT\n        ],\n        illegal: '\\\\W\\\\.|;'\n      },\n      {\n        className: 'class',\n        begin: '^(\\\\s*)?(class|instance)\\\\b',\n        end: 'where',\n        keywords: 'class family instance where',\n        contains: [\n          CONSTRUCTOR,\n          LIST,\n          COMMENT\n        ]\n      },\n      {\n        className: 'class',\n        begin: '\\\\b(data|(new)?type)\\\\b',\n        end: '$',\n        keywords: 'data family type newtype deriving',\n        contains: [\n          PRAGMA,\n          CONSTRUCTOR,\n          LIST,\n          RECORD,\n          COMMENT\n        ]\n      },\n      {\n        beginKeywords: 'default',\n        end: '$',\n        contains: [\n          CONSTRUCTOR,\n          LIST,\n          COMMENT\n        ]\n      },\n      {\n        beginKeywords: 'infix infixl infixr',\n        end: '$',\n        contains: [\n          hljs.C_NUMBER_MODE,\n          COMMENT\n        ]\n      },\n      {\n        begin: '\\\\bforeign\\\\b',\n        end: '$',\n        keywords: 'foreign import export ccall stdcall cplusplus jvm '\n                  + 'dotnet safe unsafe',\n        contains: [\n          CONSTRUCTOR,\n          hljs.QUOTE_STRING_MODE,\n          COMMENT\n        ]\n      },\n      {\n        className: 'meta',\n        begin: '#!\\\\/usr\\\\/bin\\\\/env\\ runhaskell',\n        end: '$'\n      },\n      // \"Whitespaces\".\n      PRAGMA,\n      PREPROCESSOR,\n\n      // Literals and names.\n\n      // Single characters.\n      {\n        scope: 'string',\n        begin: /'(?=\\\\?.')/,\n        end: /'/,\n        contains: [\n          {\n            scope: 'char.escape',\n            match: /\\\\./,\n          },\n        ]\n      },\n      hljs.QUOTE_STRING_MODE,\n      NUMBER,\n      CONSTRUCTOR,\n      hljs.inherit(hljs.TITLE_MODE, { begin: '^[_a-z][\\\\w\\']*' }),\n      // No markup, prevents infix operators from being recognized as comments.\n      { begin: `(?!-)${symbol}--+|--+(?!-)${symbol}`},\n      COMMENT,\n      { // No markup, relevance booster\n        begin: '->|<-' }\n    ]\n  };\n}\n\nexport { haskell as default };\n"],"x_google_ignoreList":[0],"mappings":";AAQA,SAAS,EAAQ,GAAM;CAQrB,IAAM,IAAgB,cAChB,IAAY,oBAMZ,IAAS,6EAET,IAAU,EAAE,UAAU,CAS1B,EAAK,QAAQ,OAAO,GAAG,GACvB,EAAK,QACH,OACA,OACA,EAAE,UAAU,CAAE,MAAO,EAAE,CACzB,CACF,EAAE,GAEI,IAAS;EACb,WAAW;EACX,OAAO;EACP,KAAK;CACP,GAEM,IAAe;EACnB,WAAW;EACX,OAAO;EACP,KAAK;CACP,GAEM,IAAc;EAClB,WAAW;EACX,OAAO;EACP,WAAW;CACb,GAEM,IAAO;EACX,OAAO;EACP,KAAK;EACL,SAAS;EACT,UAAU;GACR;GACA;GACA;IACE,WAAW;IACX,OAAO;GACT;GACA,EAAK,QAAQ,EAAK,YAAY,EAAE,OAAO,gBAAiB,CAAC;GACzD;EACF;CACF,GAEM,IAAS;EACb,OAAO;EACP,KAAK;EACL,UAAU,EAAK;CACjB,GAEM,IAAS;EACb,WAAW;EACX,WAAW;EACX,UAAU;GAER,EAAE,OAAO,OAAO,EAAc,QAAQ,EAAc,gBAAqB,EAAc,QAAQ;GAE/F,EAAE,OAAO,cAAc,EAAU,QAAQ,EAAU,gBAAqB,EAAc,QAAQ;GAE9F,EAAE,OAAO,0BAA8B;GAEvC,EAAE,OAAO,yBAA+B;EAC1C;CACF;CAEA,OAAO;EACL,MAAM;EACN,SAAS,CAAE,IAAK;EAChB,UACE;EAIF,cAAc;EACd,UAAU;GAER;IACE,eAAe;IACf,KAAK;IACL,UAAU;IACV,UAAU,CACR,GACA,CACF;IACA,SAAS;GACX;GACA;IACE,OAAO;IACP,KAAK;IACL,UAAU;IACV,UAAU,CACR,GACA,CACF;IACA,SAAS;GACX;GACA;IACE,WAAW;IACX,OAAO;IACP,KAAK;IACL,UAAU;IACV,UAAU;KACR;KACA;KACA;IACF;GACF;GACA;IACE,WAAW;IACX,OAAO;IACP,KAAK;IACL,UAAU;IACV,UAAU;KACR;KACA;KACA;KACA;KACA;IACF;GACF;GACA;IACE,eAAe;IACf,KAAK;IACL,UAAU;KACR;KACA;KACA;IACF;GACF;GACA;IACE,eAAe;IACf,KAAK;IACL,UAAU,CACR,EAAK,eACL,CACF;GACF;GACA;IACE,OAAO;IACP,KAAK;IACL,UAAU;IAEV,UAAU;KACR;KACA,EAAK;KACL;IACF;GACF;GACA;IACE,WAAW;IACX,OAAO;IACP,KAAK;GACP;GAEA;GACA;GAKA;IACE,OAAO;IACP,OAAO;IACP,KAAK;IACL,UAAU,CACR;KACE,OAAO;KACP,OAAO;IACT,CACF;GACF;GACA,EAAK;GACL;GACA;GACA,EAAK,QAAQ,EAAK,YAAY,EAAE,OAAO,iBAAkB,CAAC;GAE1D,EAAE,OAAO,QAAQ,EAAO,cAAc,IAAQ;GAC9C;GACA,EACE,OAAO,QAAQ;EACnB;CACF;AACF"}