d6
/
pmacs3
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

small update 

--HG--
branch : pmacs2
This commit is contained in:
moculus 2007-06-25 21:34:54 +00:00
parent a46052e581
commit a4b3f3fa57
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mode_perl.py
View File

@ -89,11 +89,6 @@ class PerlGrammar(Grammar):
PatternRule(name=r'function', pattern=r"(?:[a-zA-Z_][a-zA-Z_0-9]*::)*[a-zA-Z_][a-zA-Z_0-9]*(?= *\()"),
PatternRule(name=r'class', pattern=r"(?:[a-zA-Z_][a-zA-Z_0-9]*::)*[a-zA-Z_][a-zA-Z_0-9]*(?=->)"),
# nested regions
#RegionRule(name=r'paren', start=r'\(', grammar=None, end=r'\)'),
#RegionRule(name=r'brace', start=r'{', grammar=None, end=r'}'),
#RegionRule(name=r'bracket', start=r'\[', grammar=None, end=r'\]'),
# some basic stuff
PatternRule(name=r'delimiter', pattern=r"[,;=\?(){}\[\]]|->|=>|(?<!:):(?!=:)"),
PatternRule(name=r'operator', pattern=r"\+=|-=|\*=|/=|//=|%=|&=\|\^=|>>=|<<=|\*\*="),
@ -314,6 +309,7 @@ class PerlCheckSyntax(method.Method):
'''Check the syntax of a perl file'''
def _execute(self, w, **vargs):
app = w.application
app.set_error("Checking Syntax...")
cmd = "perl -c -I '%s' '%s'" % (w.mode.perllib, w.buffer.path)
(status, output) = commands.getstatusoutput(cmd)
if status == 0: