lang = "Perl"

def __init__(self):

self._properties = SilverCity.PropertySet()

self._lexer = SilverCity.find_lexer_module_by_id(ScintillaConstants.SCLEX_PERL)

self._keyword_lists = [

SilverCity.WordList(SilverCity.Keywords.perl_keywords)

def __str__(self):

return "Perl imports"

def eval(self, mgr):

try:

prefix = self.trg.extra["prefix"]

if prefix:

self.ctlr.set_desc("subimports of '%s'" % prefix)

prefix_tuple = tuple(prefix.split("::"))

else:

self.ctlr.set_desc("available imports")

prefix_tuple = ()

all_imports = set()

for lib in self.buf.libs:

# Reminder: A codeintel "blob" corresponds to a Perl module.

all_imports.update(lib.get_blob_imports(prefix_tuple))

if all_imports:

cplns = [((is_dir_import and "directory" or "module"), name)

for name, is_dir_import in all_imports]

cplns.sort(key=lambda i: i[1].upper())

self.ctlr.set_cplns(cplns)

finally:

ParenStyleCalltipIntelMixin,

ProgLangTriggerIntelMixin):

lang = "Perl"

# Add '=' to the default set for Perl. For example:

# my $foo =

# ^ ^

# | `-- terminate calltip here

# `-- calltip triggers here

# Because Perl doesn't have keywords args to functions this can work.

calltip_region_terminators = tuple(']});=')

preceding_trg_terminators = {';':None, '=':None}

#XXX This cog regen is out-of-date. Re-write to parse perl.cix?

# To regenerate this block:

# - install the cog Python tool:

# http://www.nedbatchelder.com/code/cog/index.html

# - run "cog -r lang_perl.py"

#[[[cog

#import cog

#import os, sys

#sys.path.insert(0, os.path.join(os.pardir, "codeintel"))

#import cidb

#dbpath = cidb.find_komodo_cidb_path()

#sql = """SELECT symbol.name FROM file,scan,module,symbol

# WHERE file.compare_path LIKE '%perl.cix'

# AND scan.file_id=file.id AND module.scan_id=scan.id

# AND symbol.module_id=module.id AND symbol.type=0"""

#cog.outl('_allow_trg_on_space_from_identifier = {')

#for line in cidb.query(dbpath, 3, sql, "csv"):

# cog.outl(' "%s": 1,' % line.strip())

#cog.outl('}')

#]]]

_allow_trg_on_space_from_identifier = {

"-r": 1,

"-w": 1,

"-x": 1,

"-o": 1,

"-R": 1,

"-W": 1,

"-X": 1,

"-O": 1,

"-e": 1,

"-z": 1,

"-s": 1,

"-f": 1,

"-d": 1,

"-l": 1,

"-p": 1,

"-S": 1,

"-b": 1,

"-c": 1,

"-t": 1,

"-u": 1,

"-g": 1,

"-k": 1,

"-T": 1,

"-B": 1,

"-M": 1,

"-A": 1,

"-C": 1,

"UNITCHECK": 1,

"abs": 1,

"accept": 1,

"alarm": 1,

"atan2": 1,

"bind": 1,

"binmode": 1,

"bless": 1,

"break": 1,

"caller": 1,

"chdir": 1,

"chmod": 1,

"chomp": 1,

"chop": 1,

"chown": 1,

"chr": 1,

"chroot": 1,

"close": 1,

"closedir": 1,

"connect": 1,

"continue": 1,

"cos": 1,

"crypt": 1,

"dbmclose": 1,

"dbmopen": 1,

"default": 1,

"defined": 1,

"delete": 1,

"die": 1,

"do": 1,

"dump": 1,

"each": 1,

"eof": 1,

"eval": 1,

"exec": 1,

"exists": 1,

"exit": 1,

"exp": 1,

"fcntl": 1,

"fileno": 1,

"flock": 1,

"fork": 1,

"format": 1,

"formline": 1,

"getc": 1,

"getlogin": 1,

"getpeername": 1,

"getpgrp": 1,

"getppid": 1,

"getpriority": 1,

"getpwnam": 1,

"getgrnam": 1,

"gethostbyname": 1,

"getnetbyname": 1,

"getprotobyname": 1,

"getpwuid": 1,

"getgrgid": 1,

"getservbyname": 1,

"gethostbyaddr": 1,

"getnetbyaddr": 1,

"getprotobynumber": 1,

"getservbyport": 1,

"getpwent": 1,

"getgrent": 1,

"gethostent": 1,

"getnetent": 1,

"getprotoent": 1,

"getservent": 1,

"setpwent": 1,

"setgrent": 1,

"sethostent": 1,

"setnetent": 1,

"setprotoent": 1,

"setservent": 1,

"endpwent": 1,

"endgrent": 1,

"endhostent": 1,

"endnetent": 1,

"endprotoent": 1,

"endservent": 1,

"getsockname": 1,

"getsockopt": 1,

"given": 1,

"glob": 1,

"gmtime": 1,

"goto": 1,

"grep": 1,

"hex": 1,

"import": 1,

"index": 1,

"int": 1,

"ioctl": 1,

"join": 1,

"keys": 1,

"kill": 1,

"last": 1,

"lc": 1,

"lcfirst": 1,

"length": 1,

"link": 1,

"listen": 1,

"local": 1,

"localtime": 1,

"lock": 1,

"log": 1,

"lstat": 1,

"m": 1,

"map": 1,

"mkdir": 1,

"msgctl": 1,

"msgget": 1,

"msgrcv": 1,

"msgsnd": 1,

"my": 1,

"next": 1,

"no": 1,

"oct": 1,

"open": 1,

"opendir": 1,

"ord": 1,

"our": 1,

"pack": 1,

"package": 1,

"pipe": 1,

"pop": 1,

"pos": 1,

"print": 1,

"printf": 1,

"prototype": 1,

"push": 1,

"q": 1,

"qq": 1,

"qr": 1,

"qx": 1,

"qw": 1,

"quotemeta": 1,

"rand": 1,

"read": 1,

"readdir": 1,

"readline": 1,

"readlink": 1,

"readpipe": 1,

"recv": 1,

"redo": 1,

"ref": 1,

"rename": 1,

"reset": 1,

"return": 1,

"reverse": 1,

"rewinddir": 1,

"rindex": 1,

"rmdir": 1,

"s": 1,

"say": 1,

"scalar": 1,

"seek": 1,

"seekdir": 1,

"select": 1,

"semctl": 1,

"semget": 1,

"semop": 1,

"send": 1,

"setpgrp": 1,

"setpriority": 1,

"setsockopt": 1,

"shift": 1,

"shmctl": 1,

"shmget": 1,

"shmread": 1,

"shmwrite": 1,

"shutdown": 1,

"sin": 1,

"sleep": 1,

"socket": 1,

"socketpair": 1,

"sort": 1,

"splice": 1,

"split": 1,

"sprintf": 1,

"sqrt": 1,

"srand": 1,

"stat": 1,

"state": 1,

"study": 1,

"substr": 1,

"symlink": 1,

"syscall": 1,

"sysopen": 1,

"sysread": 1,

"sysseek": 1,

"system": 1,

"syswrite": 1,

"tell": 1,

"telldir": 1,

"tie": 1,

"tied": 1,

"time": 1,

"times": 1,

"tr": 1,

"truncate": 1,

"uc": 1,

"ucfirst": 1,

"umask": 1,

"undef": 1,

"unlink": 1,

"unpack": 1,

"untie": 1,

"unshift": 1,

"utime": 1,

"values": 1,

"vec": 1,

"wait": 1,

"waitpid": 1,

"wantarray": 1,

"warn": 1,

"when": 1,

"write": 1,

"y": 1,

}

#[[[end]]]

# Match a subroutine definition. Used by trg_from_pos()

_sub_pat = re.compile(r"\bsub\s+(\w+(::|'))*\w+$")

# All Perl trigger points occur at one of these characters:

# ' ' (space) only supported for built-in functions

# '(' (open paren)

# '>' (greater than) "->" actually

# ':' (colon) "::" actually

# '$' (dollar sign)

trg_chars = tuple(' (>:$')

calltip_trg_chars = tuple(' (')

def trg_from_pos(self, buf, pos, implicit=True):

"""

DEBUG = False # not using 'logging' system, because want to be fast

if DEBUG:

print(banner("trg_from_pos(pos=%r, implicit=%r)"

% (pos, implicit)))

accessor = buf.accessor

last_pos = pos - 1

last_ch = accessor.char_at_pos(last_pos)

if DEBUG:

print(" last_pos: %s" % last_pos)

print(" last_ch: %r" % last_ch)

# All Perl trigger points occur at one of the trg_chars.

if last_ch not in self.trg_chars:

# 2 character trigger for built-ins.

last_style = accessor.style_at_pos(last_pos)

if pos >= 2 and \

(last_style == ScintillaConstants.SCE_PL_IDENTIFIER or \

last_style == ScintillaConstants.SCE_PL_WORD):

# Previous char also needs to be an identifier/word, then the

# one before that needs to be something different

# (operator/space).

if accessor.style_at_pos(last_pos - 1) != last_style or \

(pos > 2 and accessor.style_at_pos(last_pos - 2) == last_style):

if DEBUG:

print("Not a block of two ident/word chars")

return None

if (pos > 2 and accessor.char_at_pos(last_pos - 2) == '.') or \

(pos > 3 and accessor.char_at_pos(last_pos - 2) == ':' and

accessor.char_at_pos(last_pos - 3) == ':') or \

(pos > 3 and accessor.char_at_pos(last_pos - 2) == '>' and

accessor.char_at_pos(last_pos - 3) == '-'):

if DEBUG:

print(" preceded by '.', '::', or '->' operator - not a trigger")

return None

# Check if it makes sense to show the completions here. If

# defining a package name, or function name, you don't want to

# see completions. Also do not override another completion type

# (e.g. imports).

start = accessor.line_start_pos_from_pos(pos)

preceding_text = accessor.text_range(start, last_pos - 2).strip()

if preceding_text:

first_word = preceding_text.split(" ")[0]

if first_word in ("package", "sub", "use", "require", "no"):

if DEBUG:

print(" no trigger, as starts with %r" % first_word)

# Don't trigger over the top of another trigger,

# i.e.

# complete-package-members

# complete-*-subs

# complete-available-imports

return None

citdl_expr = accessor.text_range(last_pos - 1, last_pos + 1)

if DEBUG:

print(" triggered 2 char symbol trigger: %r" % citdl_expr)

return Trigger(self.lang, TRG_FORM_CPLN, "names",

last_pos - 1, implicit, citdl_expr=citdl_expr,

preceding_text=preceding_text)

if DEBUG:

print("no: %r is not in %r" % (last_ch, self.trg_chars))

return None

elif last_ch == ':' \

and not (last_pos > 0

and accessor.char_at_pos(last_pos-1) == ':'):

if DEBUG:

penultimate_ch = (last_pos > 0

and accessor.char_at_pos(last_pos-1) or '')

print("no: %r is not '::'" % (penultimate_ch+last_ch))

return None

elif last_ch == '>' \

and not (last_pos > 0 and accessor.char_at_pos(last_pos-1) == '-'):

if DEBUG:

penultimate_ch = (last_pos > 0

and accessor.char_at_pos(last_pos-1) or '')

print("no: %r is not '->'" % (penultimate_ch+last_ch))

return None

# We should never trigger in some styles (strings, comments, etc.).

last_style = accessor.style_at_pos(last_pos)

if DEBUG:

last_style_names = buf.style_names_from_style_num(last_style)

print(" style: %s %s" % (last_style, last_style_names))

if (implicit and last_style in buf.implicit_completion_skip_styles

or last_style in buf.completion_skip_styles):

if DEBUG:

print("no: completion is suppressed "\

"in style at %s: %s %s"\

% (last_pos, last_style, last_style_names))

return None

WHITESPACE = tuple(' \t\n\r')

if last_ch == ' ':

# This can be either "calltip-space-call-signature",

# "complete-available-imports", or None (or

# "complete-module-exports" when that is implemented).

#

# calltip-call-signature:

# Perl syntax allows a parameter list to be passed to a

# function name without enclosing parens. From a quick perusal

# of sample Perl code (from a default ActivePerl install)

# calling function this way seems to be limited to a number of

# core Perl built-ins or some library methods. For efficiency

# Komodo will maintain an explicit list of such function names

# for which a calltip with trigger without parentheses.

# XXX May want to make this a user-configurable list.

#

# complete-available-imports:

# After 'use', 'require' or 'no' by itself on a line.

#

LIMIT = 50

text = accessor.text_range(max(0,last_pos-LIMIT), last_pos) # working text

if DEBUG: print(" working text: %r" % text)

i = len(text)-1

if i >= 0 and not (isident(text[i]) or isdigit(text[i])):

if DEBUG:

print("no: two before trigger point is not "\

"an ident char: '%s'" % text[i])

return None

while i >= 0: # parse out the preceding identifier

if not isident(text[i]):

identifier = text[i+1:]

# Whitespace is allowed between a Perl variable special

# char and the variable name, e.g.: "$ myvar", "@ mylist"

j = i

while j >= 0 and text[j] in WHITESPACE: # parse off whitespace

j -= 1

if j >= 0:

preceding_ch = text[j]

else:

preceding_ch = None

break

i -= 1

else:

preceding_ch = None

identifier = text

if DEBUG: print(" identifier: %r" % identifier)

if not identifier:

if DEBUG:

print("no: no identifier preceding trigger point")

return None

if DEBUG: print(" preceding char: %r" % preceding_ch)

if identifier in ("use", "require", "no"):

return Trigger("Perl", TRG_FORM_CPLN,

"available-imports", pos, implicit, prefix="")

if preceding_ch and preceding_ch in "$@&%\\*": # indicating a Perl variable

if DEBUG:

print("no: triggering on space after Perl "\

"variables not supported")

return None

if identifier not in self._allow_trg_on_space_from_identifier:

if DEBUG:

print ("no: identifier not in set for which "

"space-triggering is supported "

"(_allow_trg_on_space_from_identifier)")

return None

# Specifically disallow trigger on defining a sub matching one of

# space-trigger names, i.e.: 'sub split <|>'. Optmization: Assume

# that there is exacly one space between 'sub' and the subroutine

# name. Almost all examples in the Perl lib seem to follow this.

if i >= 3 and text[i-3:i+1] == "sub ":

if DEBUG:

print("no: do not trigger in sub definition")

return None

if DEBUG: print("calltip-space-call-signature")

return Trigger("Perl", TRG_FORM_CALLTIP,

"space-call-signature", pos, implicit)

elif last_ch == '(':

# This can be either "calltip-call-signature" or None (or

# "complete-module-exports" when that is implemented).

LIMIT = 100

text = accessor.text_range(max(0,last_pos-LIMIT), last_pos) # working text

if DEBUG: print(" working text: %r" % text)

i = len(text)-1

while i >= 0 and text[i] in WHITESPACE: # parse off whitespace

i -= 1

if i >= 0 and not (isident(text[i]) or isdigit(text[i])):

if DEBUG:

print("no: first non-ws char before "\

"trigger point is not an ident char: '%s'" % text[i])

return None

end = i+1

while i >= 0: # parse out the preceding identifier

if not isident(text[i]):

identifier = text[i+1:end]

# Whitespace is allowed between a Perl variable special

# char and the variable name, e.g.: "$ myvar", "@ mylist"

j = i

while j >= 0 and text[j] in WHITESPACE: # parse off whitespace

j -= 1

if j >= 0:

preceding_ch = text[j]

else:

preceding_ch = None

break

i -= 1

else:

preceding_ch = None

identifier = text[:end]

if DEBUG: print(" identifier: %r" % identifier)

if DEBUG:

assert ' ' not in identifier, "parse error: space in identifier: %r" % identifier

if not identifier:

if DEBUG:

print("no: no identifier preceding trigger point")

return None

if DEBUG: print(" preceding char: %r" % preceding_ch)

if preceding_ch and preceding_ch in "$@%\\*":

# '&foo(' *is* a trigger point, but the others -- '$foo(',

# '&$foo(', etc. -- are not because current CodeIntel wouldn't

# practically be able to determine the method to which $foo

# refers.

if DEBUG:

print("no: calltip trigger on Perl var not supported")

return None

if identifier in ("if", "else", "elsif", "while", "for",

"sub", "unless", "my", "our"):

if DEBUG:

print("no: no trigger on anonymous sub or control structure")

return None

# Now we want to rule out the subroutine definition lines, e.g.:

# sub FOO(<|>

# sub FOO::BAR(<|>

# sub FOO'BAR(<|>

# sub FOO::BAR::BAZ(<|>

# Note: Frankly 80/20 rules out the last three.

line = text[:end].splitlines(0)[-1]

if DEBUG:

print(" trigger line: %r" % line)

if "sub " in line: # only use regex if "sub " on that line

if DEBUG:

print(" *could* be a subroutine definition")

if self._sub_pat.search(line):

if DEBUG:

print("no: no trigger on Perl sub definition")

return None

if DEBUG: print("calltip-call-signature")

return Trigger("Perl", TRG_FORM_CALLTIP, "call-signature",

pos, implicit)

elif last_ch == '>':

# Must be "complete-package-subs", "complete-object-subs"

# or None. Note that we have already checked (above) that the

# trigger string is '->'. Basically, as long as the first

# non-whitespace char preceding the '->' is an identifier char,

# then this is a trigger point.

LIMIT = 50

text = accessor.text_range(max(0,last_pos-1-LIMIT), last_pos-1) # working text

if DEBUG: print(" working text: %r" % text)

i = len(text)-1

while i >= 0 and text[i] in WHITESPACE: # parse off whitespace

i -= 1

if i < 0:

if DEBUG:

print("no: no non-whitespace text preceding '->'")

return None

elif not (isident(text[i]) or text[i].isdigit()):

if DEBUG:

print("no: first non-ws char before "\

"trigger point is not an ident char: '%s'" % text[i])

return None

# At this point we know it is either "complete-package-subs"

# or "complete-object-subs". We don't really care to take

# the time to distinguish now -- trg_from_pos is supposed to be

# quick -- and we don't have to.

if DEBUG: print("complete-*-subs")

return Trigger("Perl", TRG_FORM_CPLN, "*-subs", pos, implicit,

length=2)

elif last_ch == ':':

# Must be "complete-package-members" or

# "complete-available-imports" or None. Note that we have

# already checked (above) that the trigger string is '::'.

# Basically, as long as the first char preceding the '::' is

# an identifier char or one of Perl's funny variable

# identifying characters, then this is a trigger point.

LIMIT = 50

text = accessor.text_range(max(0,last_pos-1-LIMIT), last_pos-1) # working text

if DEBUG: print(" working text: %r" % text)

i = len(text)-1

if i < 0:

if DEBUG:

print("no: no text preceding '::'")

return None

ch = text[i]

if not (isident(ch) or isdigit(ch) or ch == '$'):

# Technically should allow '@', '%' and '&' in there, but

# there a total of 5 of all of this in the Perl std lib.

# 80/20 rule.

if DEBUG:

print("no: first char before trigger "\

"point is not an ident char or '$': '%s'" % ch)

return None

# Check if this is in a 'use' or 'require' statement.

while i > 0 and text[i-1] not in WHITESPACE: # skip to whitespace

i -= 1

prefix = text[i:pos-2]

while i > 0 and text[i-1] in WHITESPACE: # skip over whitespace

i -= 1

start_idx = end_idx = i

while start_idx > 0 and (isident(text[start_idx-1])

or text[start_idx-1] in '$@%'):

start_idx -= 1

ident = text[start_idx:end_idx]

if ident in ("use", "require", "no"):

if DEBUG:

print("complete-available-imports (prefix=%r)" % prefix)

return Trigger("Perl", TRG_FORM_CPLN, "available-imports",

pos, implicit, length=2, prefix=prefix)

if DEBUG: print("complete-package-members (prefix=%r)" % prefix)

return Trigger("Perl", TRG_FORM_CPLN, "package-members", pos,

implicit, length=2, prefix=prefix)

elif last_ch == '$':

# "complete-variables"

if DEBUG: print("complete-variables")

return Trigger("Perl", TRG_FORM_CPLN, "variables", pos, implicit)

return None

_perl_var_pat = re.compile(

r"((?P<prefix>[$@%\\*&]+)\s*)?(?P<scope>(::)?\b((?!\d)\w*?(::|'))*)(?P<name>(?!\d)\w+)$")

def citdl_expr_and_prefix_filter_from_trg(self, buf, trg):

"""Parse out the Perl expression at the given trigger and return

DEBUG = False

if DEBUG:

print()

print(banner("citdl_expr_and_prefix_filter_from_trg @ %d"

% trg.pos))

print(markup_text(buf.accessor.text, trg_pos=trg.pos))

print(banner(None, '-'))

if trg.implicit:

skip_styles = buf.implicit_completion_skip_styles

else:

skip_styles = {}

filter, citdl = None, []

accessor = buf.accessor

LIMIT = max(0, trg.pos-100) # working text area

if trg.form == TRG_FORM_DEFN:

# "Go to Definition" triggers can be in the middle of an

# expression. If so we want to move forward to the end of

# the current *part*. E.g., given:

# $fo<+>o->bar()

# move forward to:

# $foo<|>->bar()

# and NOT to:

# $foo->bar<|>()

#

# Perl package names are considered one "part":

# $Fo<+>o::Bar->blah() $Foo::Bar<|>->blah()

#

# Note: I suspect there are some problems with the

# subsequent parsing on when/if to convert "Foo::Bar" to

# "Foo.Bar" since codeintel2 changed Perl cpln eval.

p = trg.pos

length = accessor.length()

while p < length:

if not _is_perl_var_char(accessor.char_at_pos(p)):

break

p += 1

# Gracefully handle some situations where we are positioned

# after a trigger string. E.g. "Foo::Bar::<|> "

if p >= 2 and accessor.text_range(p-2, p) in ("->", "::"):

p = p - 2

if DEBUG:

print("'defn'-trigger: adjust position %d" % (p-trg.pos))

else:

p = trg.pos - trg.length

p -= 1

while p >= LIMIT:

# Parse off a perl variable/identifier.

if DEBUG:

print("look for Perl var at end of %r"\

% accessor.text_range(LIMIT, p+1))

match = self._perl_var_pat.search(

accessor.text_range(LIMIT, p+1))

if not match:

if DEBUG:

if p-LIMIT > 20:

segment = '...'+accessor.text_range(p-20, p+1)

else:

segment = accessor.text_range(LIMIT, p+1)

print("could not match a Perl var off %r" % segment)

citdl = None

break

prefix = match.group("prefix") or ""

if "&" in prefix:

prefix = prefix.replace("&", "")

scope = match.group("scope")

name = match.group("name")

trg_ch = None

try:

#TODO:PERF: Use the available faster accessor methods here.

trg_ch = accessor.char_at_pos(p+1)

except IndexError as ex:

if trg.form != TRG_FORM_DEFN:

log.warn("text does not include trailing trigger "

"char to resolve possible ambiguities in '%s'",

match.group(0))

if trg_ch == ':':

#XXX fix off-by-one here

# Foo::Bar<|>:: Foo::Bar

# $Foo::Bar<|>:: Foo::Bar

citdl.insert(0, scope+name) # intentionally drop prefix

# The prefix string is relevant for filtering the list of

# members for AutoComplete. E.g. if the prefix char is '&' then

# only subs should be shown. If '%', then only hashes.

filter = prefix

elif trg_ch == '-' and not prefix:

#XXX fix off-by-one here

# Foo::Bar<|>-> Foo::Bar

citdl.insert(0, scope+name)

else:

#XXX fix off-by-one here

# Foo::Bar<|>( Foo.Bar

# Foo::Bar<|> Foo.Bar # trigger char is a space here

# $Foo::Bar<|>-> Foo.$Bar

# $Foo::Bar<|>( Foo.$Bar

# $Foo::Bar<|> Foo.$Bar # trigger char is a space here

citdl.insert(0, prefix+name)

if scope:

scope = scope[:-2] # drop trailing '::'

if scope:

citdl.insert(0, scope)

p -= len(match.group(0))

if DEBUG:

print("parse out Perl var: %r (prefix=%r, scope=%r, "\

"name=%r): %r" % (match.group(0), prefix, scope,

name, citdl))

# Preceding characters will determine if we stop or continue.

WHITESPACE = tuple(" \t\n\r\v\f")

while p >= LIMIT and accessor.char_at_pos(p) in WHITESPACE:

#if DEBUG: print "drop whitespace: %r" % text[p]

p -= 1

if p >= LIMIT and accessor.style_at_pos(p) in skip_styles:

if DEBUG:

style = accessor.style_at_pos(p)

style_names = buf.style_names_from_style_num(style)

print("stop at style to ignore: %r (%s %s)"\

% (accessor.char_at_pos(p), style, style_names))

break

elif p >= LIMIT+1 and accessor.text_range(p-1, p+1) == '->':

if DEBUG: print("parse out '->'")

p -= 2

while p >= LIMIT and accessor.char_at_pos(p) in WHITESPACE:

#if DEBUG: print "drop whitespace: %r" % text[p]

p -= 1

continue

else:

break

if citdl:

retval = ('.'.join(citdl), filter)

else:

retval = (None, filter)

if DEBUG:

print("returning: %r" % (retval,))

banner("done")

return retval

def async_eval_at_trg(self, buf, trg, ctlr):

if _xpcom_:

trg = UnwrapObject(trg)

ctlr = UnwrapObject(ctlr)

assert trg.lang == "Perl"

ctlr.start(buf, trg)

if trg.id == ("Perl", TRG_FORM_CPLN, "available-imports"):

evalr = PerlImportsEvaluator(ctlr, buf, trg)

buf.mgr.request_eval(evalr)

return

if trg.id == ("Perl", TRG_FORM_CPLN, "variables"):

line = buf.accessor.line_from_pos(trg.pos)

evalr = PerlVariablesTreeEvaluator(ctlr, buf, trg, "$", line)

buf.mgr.request_eval(evalr)

return

# Remaining triggers all use this parsed CITDL expr.

# Extract the leading CITDL expression (and possible filter,

# i.e. '$', '@', ...).

try: