forked from luna/vim-rana-local
53 lines
1.5 KiB
Python
53 lines
1.5 KiB
Python
# -*- coding: utf-8 -*-
|
|
"""
|
|
wakatime.dependencies.haskell
|
|
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Parse dependencies from Haskell code.
|
|
|
|
:copyright: (c) 2018 Alan Hamlett.
|
|
:license: BSD, see LICENSE for more details.
|
|
"""
|
|
|
|
from . import TokenParser
|
|
|
|
|
|
class HaskellParser(TokenParser):
|
|
state = None
|
|
|
|
def parse(self):
|
|
for index, token, content in self.tokens:
|
|
self._process_token(token, content)
|
|
return self.dependencies
|
|
|
|
def _process_token(self, token, content):
|
|
if self.partial(token) == 'Reserved':
|
|
self._process_reserved(token, content)
|
|
elif self.partial(token) == 'Namespace':
|
|
self._process_namespace(token, content)
|
|
elif self.partial(token) == 'Keyword':
|
|
self._process_keyword(token, content)
|
|
elif self.partial(token) == 'Text':
|
|
self._process_text(token, content)
|
|
else:
|
|
self._process_other(token, content)
|
|
|
|
def _process_reserved(self, token, content):
|
|
self.state = content.strip()
|
|
|
|
def _process_namespace(self, token, content):
|
|
if self.state == 'import':
|
|
self.append(self._format(content))
|
|
|
|
def _process_keyword(self, token, content):
|
|
if self.state != 'import' or content.strip() != 'qualified':
|
|
self.state = None
|
|
|
|
def _process_text(self, token, content):
|
|
pass
|
|
|
|
def _process_other(self, token, content):
|
|
self.state = None
|
|
|
|
def _format(self, content):
|
|
return content.strip().split('.')[0].strip()
|