72 lines
2.8 KiB
Python
72 lines
2.8 KiB
Python
from method import Method
|
|
from method.shell import Interact
|
|
from point import Point
|
|
from lex import Grammar, PatternRule, RegionRule, OverridePatternRule
|
|
from mode.lisp import StringGrammar2, Lisp, LispTabber
|
|
|
|
class SchemeGrammar(Grammar):
|
|
rules = [
|
|
PatternRule(r'comment', r';.*$'),
|
|
PatternRule(r'delimiter', r'[()]'),
|
|
RegionRule(r'string', r'"', StringGrammar2, r'"'),
|
|
PatternRule(r'spaces', r' +'),
|
|
PatternRule(r'eol', r'\n'),
|
|
PatternRule(r'abbrev', r"'|`|,\@|,"),
|
|
|
|
# from r5rs
|
|
PatternRule(r'scheme_keyword', r'(?:=>|unquote-splicing|unquote|syntax-rules|set!|quote|quasiquote|or|map|loop|letrec-syntax|letrec|let-syntax|let\*|let|lambda|if|for-each|else|dynamic-wind|do|delay|define-syntax|define-macro|define|cond|case|call-with-output-file|call-with-input-file|call-with-current-continuation|begin|and)(?![^\n )])'),
|
|
|
|
PatternRule(r'scheme_boolean', r'#[tf]'),
|
|
PatternRule(r'scheme_char', r'#\\space|#\\newline|#\\.'),
|
|
PatternRule(r'scheme_number', '[+-]?[0-9][^ ()\n]+'),
|
|
PatternRule(r'scheme_number', '#[bodx][ie]?[^ ()\n]+'),
|
|
PatternRule(r'scheme_number', '#[ie][bodx]?[^ ()\n]+'),
|
|
|
|
PatternRule(r'variable', r'[a-zA-Z!$%&*/:<=>?\^_~][-a-zA-Z0-9!$%&*/:<=>?^_~+.@]*|\+|-|\.\.\.'),
|
|
]
|
|
|
|
class SchemeCheckSyntax(Method):
|
|
'''Check the syntax of a scheme file'''
|
|
def _execute(self, w, **vargs):
|
|
app = w.application
|
|
cmd = "guile -s %r" % (w.buffer.path)
|
|
(status, output) = commands.getstatusoutput(cmd)
|
|
if status == 0:
|
|
app.set_error("Syntax OK")
|
|
app.data_buffer("*Scheme-Check-Syntax*", output, switch_to=False)
|
|
else:
|
|
app.data_buffer("*Scheme-Check-Syntax*", output)
|
|
|
|
class GuileStart(Interact):
|
|
args = []
|
|
def _execute(self, w, **vargs):
|
|
Interact._execute(self, w, bname='*Guile*', cmd='guile')
|
|
|
|
class GuileLoadFile(Interact):
|
|
args = []
|
|
def _execute(self, w, **vargs):
|
|
Interact._execute(self, w, bname='*Guile*', cmd='guile')
|
|
b = w.application.get_buffer_by_name('*Guile*')
|
|
path = os.path.realpath(w.buffer.path)
|
|
b.pipe_write('(load "%s")\n' % path)
|
|
|
|
class Scheme(Lisp):
|
|
name = 'Scheme'
|
|
extensions = ['.scm']
|
|
grammar = SchemeGrammar
|
|
colors = {
|
|
'scheme_keyword': ('cyan', 'default', 'bold'),
|
|
'scheme_char': ('green', 'default', 'bold'),
|
|
'scheme_boolean': ('magenta', 'default', 'bold'),
|
|
'scheme_number': ('default', 'default', 'bold'),
|
|
}
|
|
actions = [SchemeCheckSyntax, GuileStart, GuileLoadFile]
|
|
_bindings = {
|
|
'close-paren': (')',),
|
|
'close-brace': ('}',),
|
|
'close-bracket': (']',),
|
|
'scheme-check-syntax': ('C-c s',),
|
|
}
|
|
|
|
install = Scheme.install
|