source.pascal.js

// This is a TextMate grammar distributed by `starry-night`.
// This grammar is licensed permissive.
// See <https://github.com/wooorm/starry-night> for more info.
/** @type {import('../lib/index.js').Grammar} */
const grammar = {
  extensions: ['.cps', '.dfm', '.dpr', '.lpr', '.pas', '.pascal', '.pp'],
  names: ['component-pascal', 'delphi', 'objectpascal', 'pascal'],
  patterns: [
    {
      match:
        '\\b(?i:(absolute|abstract|all|and|and_then|array|as|asm|attribute|begin|bindable|case|class|const|constructor|destructor|div|do|downto|else|end|except|export|exports|external|far|file|finalization|finally|for|forward|generic|goto|helper|if|implementation|import|in|inherited|initialization|interface|interrupt|is|label|library|mod|module|name|near|nil|not|object|of|only|operator|or|or_else|otherwise|packed|pow|private|program|property|protected|public|published|qualified|record|repeat|resident|restricted|segment|set|specialize|shl|shr|then|to|try|type|unit|until|uses|value|var|view|virtual|while|with|xor))\\b',
      name: 'keyword.control.pascal'
    },
    {
      captures: {
        1: {name: 'storage.type.prototype.pascal'},
        2: {name: 'entity.name.function.prototype.pascal'}
      },
      match:
        '\\b(?i:(function|procedure))\\b\\s+(\\w+(\\.\\w+)?)(\\(.*?\\))?;\\s*(?=(?i:attribute|forward|external))',
      name: 'meta.function.prototype.pascal'
    },
    {
      captures: {
        1: {name: 'storage.type.function.pascal'},
        2: {name: 'entity.name.function.pascal'}
      },
      match: '\\b(?i:(function|procedure))\\b\\s+(\\w+(\\.\\w+)?)',
      name: 'meta.function.pascal'
    },
    {
      match:
        '\\b((0(x|X)[0-9a-fA-F]*)|(([0-9]+\\.?[0-9]*)|(\\.[0-9]+))((e|E)(\\+|-)?[0-9]+)?)(L|l|UL|ul|u|U|F|f|ll|LL|ull|ULL)?\\b',
      name: 'constant.numeric.pascal'
    },
    {
      begin: '(^[ \\t]+)?(?=--)',
      beginCaptures: {
        1: {name: 'punctuation.whitespace.comment.leading.pascal'}
      },
      end: '(?!\\G)',
      patterns: [
        {
          begin: '--',
          beginCaptures: {0: {name: 'punctuation.definition.comment.pascal'}},
          end: '\\n',
          name: 'comment.line.double-dash.pascal.one'
        }
      ]
    },
    {
      begin: '(^[ \\t]+)?(?=//)',
      beginCaptures: {
        1: {name: 'punctuation.whitespace.comment.leading.pascal'}
      },
      end: '(?!\\G)',
      patterns: [
        {
          begin: '//',
          beginCaptures: {0: {name: 'punctuation.definition.comment.pascal'}},
          end: '\\n',
          name: 'comment.line.double-slash.pascal.two'
        }
      ]
    },
    {
      begin: '\\(\\*',
      captures: {0: {name: 'punctuation.definition.comment.pascal'}},
      end: '\\*\\)',
      name: 'comment.block.pascal.one'
    },
    {
      begin: '\\{',
      captures: {0: {name: 'punctuation.definition.comment.pascal'}},
      end: '\\}',
      name: 'comment.block.pascal.two'
    },
    {
      begin: '"',
      beginCaptures: {0: {name: 'punctuation.definition.string.begin.pascal'}},
      end: '"',
      endCaptures: {0: {name: 'punctuation.definition.string.end.pascal'}},
      name: 'string.quoted.double.pascal',
      patterns: [{match: '\\\\.', name: 'constant.character.escape.pascal'}]
    },
    {
      applyEndPatternLast: true,
      begin: "'",
      beginCaptures: {0: {name: 'punctuation.definition.string.begin.pascal'}},
      end: "'",
      endCaptures: {0: {name: 'punctuation.definition.string.end.pascal'}},
      name: 'string.quoted.single.pascal',
      patterns: [
        {match: "''", name: 'constant.character.escape.apostrophe.pascal'}
      ]
    }
  ],
  scopeName: 'source.pascal'
}

export default grammar