import bpy, sys
import __builtin__, tokenize
from Blender.sys import time
from tokenize import generate_tokens, TokenError

# TODO: Remove the dependency for a full Python installation.

class ClassDesc():
	
	def __init__(self, name, defs, vars):
		self.name = name
		self.defs = defs
		self.vars = vars

class ScriptDesc():
	
	def __init__(self, name, imports, classes, defs, vars, incomplete=False):
		self.name = name
		self.imports = imports
		self.classes = classes
		self.defs = defs
		self.vars = vars
		self.incomplete = incomplete
		self.time = 0
	
	def set_time(self):
		self.time = time()

# Context types
UNSET = -1
NORMAL = 0
SINGLE_QUOTE = 1
DOUBLE_QUOTE = 2
COMMENT = 3

# Special period constants
AUTO = -1

# Python keywords
KEYWORDS = ['and', 'del', 'from', 'not', 'while', 'as', 'elif', 'global',
			'or', 'with', 'assert', 'else', 'if', 'pass', 'yield',
			'break', 'except', 'import', 'print', 'class', 'exec', 'in',
			'raise', 'continue', 'finally', 'is', 'return', 'def', 'for',
			'lambda', 'try' ]

ModuleType = type(__builtin__)
NoneScriptDesc = ScriptDesc('', dict(), dict(), dict(), dict(), True)

_modules = dict([(n, None) for n in sys.builtin_module_names])
_modules_updated = 0
_parse_cache = dict()

def get_cached_descriptor(txt, period=AUTO):
	"""Returns the cached ScriptDesc for the specified Text object 'txt'. If the
	script has not been parsed in the last 'period' seconds it will be reparsed
	to obtain this descriptor.
	
	Specifying AUTO for the period (default) will choose a period based on the
	size of the Text object. Larger texts are parsed less often.
	"""
	
	global _parse_cache, NoneScriptDesc, AUTO
	
	if period == AUTO:
		m = txt.nlines
		r = 1
		while True:
			m = m >> 2
			if not m: break
			r = r << 1
		period = r
	
	key = hash(txt)
	parse = True
	if _parse_cache.has_key(key):
		desc = _parse_cache[key]
		if desc.time >= time() - period:
			parse = desc.incomplete
	
	if parse:
		try:
			desc = parse_text(txt)
		except:
			if _parse_cache.has_key(key):
				del _parse_cache[key]
			desc = NoneScriptDesc
	
	return desc

def parse_text(txt):
	"""Parses an entire script's text and returns a ScriptDesc instance
	containing information about the script.
	
	If the text is not a valid Python script a TokenError will be thrown.
	Currently this means leaving brackets open will result in the script failing
	to complete.
	"""
	
	global NORMAL, SINGLE_QUOTE, DOUBLE_QUOTE, COMMENT
	
	txt.reset()
	tokens = generate_tokens(txt.readline) # Throws TokenError
	
	curl, cursor = txt.getCursorPos()
	linen = curl + 1 # Token line numbers are one-based
	
	imports = dict()
	imp_step = 0
	
	classes = dict()
	cls_step = 0
	
	defs = dict()
	def_step = 0
	
	vars = dict()
	var_step = 0
	var_accum = dict()
	var_forflag = False
	
	indent = 0
	prev_type = -1
	prev_string = ''
	incomplete = False
	
	try:
	 for type, string, start, end, line in tokens:
		
		#################
		## Indentation ##
		#################
		
		if type == tokenize.INDENT:
			indent += 1
		elif type == tokenize.DEDENT:
			indent -= 1
		
		#########################
		## Module importing... ##
		#########################
		
		imp_store = False
		
		# Default, look for 'from' or 'import' to start
		if imp_step == 0:
			if string == 'from':
				imp_tmp = []
				imp_step = 1
			elif string == 'import':
				imp_from = None
				imp_tmp = []
				imp_step = 2
		
		# Found a 'from', create imp_from in form '???.???...'
		elif imp_step == 1:
			if string == 'import':
				imp_from = '.'.join(imp_tmp)
				imp_tmp = []
				imp_step = 2
			elif type == tokenize.NAME:
				imp_tmp.append(string)
			elif string != '.':
				imp_step = 0 # Invalid syntax
		
		# Found 'import', imp_from is populated or None, create imp_name
		elif imp_step == 2:
			if string == 'as':
				imp_name = '.'.join(imp_tmp)
				imp_step = 3
			elif type == tokenize.NAME or string == '*':
				imp_tmp.append(string)
			elif string != '.':
				imp_name = '.'.join(imp_tmp)
				imp_symb = imp_name
				imp_store = True
		
		# Found 'as', change imp_symb to this value and go back to step 2
		elif imp_step == 3:
			if type == tokenize.NAME:
				imp_symb = string
			else:
				imp_store = True
		
		# Both imp_name and imp_symb have now been populated so we can import
		if imp_store:
			
			# Handle special case of 'import *'
			if imp_name == '*':
				parent = get_module(imp_from)
				imports.update(parent.__dict__)
				
			else:
				# Try importing the name as a module
				try:
					if imp_from:
						module = get_module(imp_from +'.'+ imp_name)
					else:
						module = get_module(imp_name)
					imports[imp_symb] = module
				except (ImportError, ValueError, AttributeError, TypeError):
					# Try importing name as an attribute of the parent
					try:
						module = __import__(imp_from, globals(), locals(), [imp_name])
						imports[imp_symb] = getattr(module, imp_name)
					except (ImportError, ValueError, AttributeError, TypeError):
						pass
			
			# More to import from the same module?
			if string == ',':
				imp_tmp = []
				imp_step = 2
			else:
				imp_step = 0
		
		###################
		## Class parsing ##
		###################
		
		# If we are inside a class then def and variable parsing should be done
		# for the class. Otherwise the definitions are considered global
		
		# Look for 'class'
		if cls_step == 0:
			if string == 'class':
				cls_name = None
				cls_indent = indent
				cls_step = 1
		
		# Found 'class', look for cls_name followed by '('
		elif cls_step == 1:
			if not cls_name:
				if type == tokenize.NAME:
					cls_name = string
					cls_sline = False
					cls_defs = dict()
					cls_vars = dict()
			elif string == ':':
				cls_step = 2
		
		# Found 'class' name ... ':', now check if it's a single line statement
		elif cls_step == 2:
			if type == tokenize.NEWLINE:
				cls_sline = False
				cls_step = 3
			elif type != tokenize.COMMENT and type != tokenize.NL:
				cls_sline = True
				cls_step = 3
		
		elif cls_step == 3:
			if cls_sline:
				if type == tokenize.NEWLINE:
					classes[cls_name] = ClassDesc(cls_name, cls_defs, cls_vars)
					cls_step = 0
			else:
				if type == tokenize.DEDENT and indent <= cls_indent:
					classes[cls_name] = ClassDesc(cls_name, cls_defs, cls_vars)
					cls_step = 0
		
		#################
		## Def parsing ##
		#################
		
		# Look for 'def'
		if def_step == 0:
			if string == 'def':
				def_name = None
				def_step = 1
		
		# Found 'def', look for def_name followed by '('
		elif def_step == 1:
			if type == tokenize.NAME:
				def_name = string
				def_params = []
			elif def_name and string == '(':
				def_step = 2
		
		# Found 'def' name '(', now identify the parameters upto ')'
		# TODO: Handle ellipsis '...'
		elif def_step == 2:
			if type == tokenize.NAME:
				def_params.append(string)
			elif string == ')':
				if cls_step > 0: # Parsing a class
					cls_defs[def_name] = def_params
				else:
					defs[def_name] = def_params
				def_step = 0
		
		##########################
		## Variable assignation ##
		##########################
		
		if cls_step > 0: # Parsing a class
			# Look for 'self.???'
			if var_step == 0:
				if string == 'self':
					var_step = 1
			elif var_step == 1:
				if string == '.':
					var_name = None
					var_step = 2
				else:
					var_step = 0
			elif var_step == 2:
				if type == tokenize.NAME:
					var_name = string
					var_step = 3
			elif var_step == 3:
				if string == '=':
					cls_vars[var_name] = True
					var_step = 0
		
		elif def_step > 0: # Parsing a def
			# Look for 'global ???[,???]'
			if var_step == 0:
				if string == 'global':
					var_step = 1
			elif var_step == 1:
				if type == tokenize.NAME:
					vars[string] = True
				elif string != ',' and type != tokenize.NL:
					var_step == 0
		
		else: # In global scope
			# Look for names
			if string == 'for':
				var_accum = dict()
				var_forflag = True
			elif string == '=' or (var_forflag and string == 'in'):
				vars.update(var_accum)
				var_accum = dict()
				var_forflag = False
			elif type == tokenize.NAME:
				var_accum[string] = True
			elif not string in [',', '(', ')', '[', ']']:
				var_accum = dict()
				var_forflag = False
		
		#######################
		## General utilities ##
		#######################
		
		prev_type = type
		prev_string = string
	
	 # end:for
	
	except TokenError:
		incomplete = True
		pass
	
	desc = ScriptDesc(txt.name, imports, classes, defs, vars, incomplete)
	desc.set_time()
	
	global _parse_cache
	_parse_cache[hash(txt.name)] = desc
	return desc

def get_modules(since=1):
	"""Returns the set of built-in modules and any modules that have been
	imported into the system upto 'since' seconds ago.
	"""
	
	global _modules, _modules_updated
	
	t = time()
	if _modules_updated < t - since:
		_modules.update(sys.modules)
		_modules_updated = t
	return _modules.keys()

def suggest_cmp(x, y):
	"""Use this method when sorting a list of suggestions.
	"""
	
	return cmp(x[0].upper(), y[0].upper())

def get_module(name):
	"""Returns the module specified by its name. The module itself is imported
	by this method and, as such, any initialization code will be executed.
	"""
	
	mod = __import__(name)
	components = name.split('.')
	for comp in components[1:]:
		mod = getattr(mod, comp)
	return mod

def type_char(v):
	"""Returns the character used to signify the type of a variable. Use this
	method to identify the type character for an item in a suggestion list.
	
	The following values are returned:
	  'm' if the parameter is a module
	  'f' if the parameter is callable
	  'v' if the parameter is variable or otherwise indeterminable
	
	"""
	
	if isinstance(v, ModuleType):
		return 'm'
	elif callable(v):
		return 'f'
	else: 
		return 'v'

def get_context(txt):
	"""Establishes the context of the cursor in the given Blender Text object
	
	Returns one of:
	  NORMAL - Cursor is in a normal context
	  SINGLE_QUOTE - Cursor is inside a single quoted string
	  DOUBLE_QUOTE - Cursor is inside a double quoted string
	  COMMENT - Cursor is inside a comment
	
	"""
	
	l, cursor = txt.getCursorPos()
	lines = txt.asLines()[:l+1]
	
	# Detect context (in string or comment)
	in_str = 0			# 1-single quotes, 2-double quotes
	for line in lines:
		if l == 0:
			end = cursor
		else:
			end = len(line)
			l -= 1
		
		# Comments end at new lines
		if in_str == 3:
			in_str = 0
		
		for i in range(end):
			if in_str == 0:
				if line[i] == "'": in_str = 1
				elif line[i] == '"': in_str = 2
				elif line[i] == '#': in_str = 3
			else:
				if in_str == 1:
					if line[i] == "'":
						in_str = 0
						# In again if ' escaped, out again if \ escaped, and so on
						for a in range(i-1, -1, -1):
							if line[a] == '\\': in_str = 1-in_str
							else: break
				elif in_str == 2:
					if line[i] == '"':
						in_str = 0
						# In again if " escaped, out again if \ escaped, and so on
						for a in range(i-1, -1, -1):
							if line[i-a] == '\\': in_str = 2-in_str
							else: break
		
	return in_str

def current_line(txt):
	"""Extracts the Python script line at the cursor in the Blender Text object
	provided and cursor position within this line as the tuple pair (line,
	cursor).
	"""
	
	(lineindex, cursor) = txt.getCursorPos()
	lines = txt.asLines()
	line = lines[lineindex]
	
	# Join previous lines to this line if spanning
	i = lineindex - 1
	while i > 0:
		earlier = lines[i].rstrip()
		if earlier.endswith('\\'):
			line = earlier[:-1] + ' ' + line
			cursor += len(earlier)
		i -= 1
	
	# Join later lines while there is an explicit joining character
	i = lineindex
	while i < len(lines)-1 and lines[i].rstrip().endswith('\\'):
		later = lines[i+1].strip()
		line = line + ' ' + later[:-1]
		i += 1
	
	return line, cursor

def get_targets(line, cursor):
	"""Parses a period separated string of valid names preceding the cursor and
	returns them as a list in the same order.
	"""
	
	targets = []
	i = cursor - 1
	while i >= 0 and (line[i].isalnum() or line[i] == '_' or line[i] == '.'):
		i -= 1
	
	pre = line[i+1:cursor]
	return pre.split('.')

def get_defs(txt):
	"""Returns a dictionary which maps definition names in the source code to
	a list of their parameter names.
	
	The line 'def doit(one, two, three): print one' for example, results in the
	mapping 'doit' : [ 'one', 'two', 'three' ]
	"""
	
	return get_cached_descriptor(txt).defs

def get_vars(txt):
	"""Returns a dictionary of variable names found in the specified Text
	object. This method locates all names followed directly by an equal sign:
	'a = ???' or indirectly as part of a tuple/list assignment or inside a
	'for ??? in ???:' block.
	"""
	
	return get_cached_descriptor(txt).vars

def get_imports(txt):
	"""Returns a dictionary which maps symbol names in the source code to their
	respective modules.
	
	The line 'from Blender import Text as BText' for example, results in the
	mapping 'BText' : <module 'Blender.Text' (built-in)>
	
	Note that this method imports the modules to provide this mapping as as such
	will execute any initilization code found within.
	"""
	
	return get_cached_descriptor(txt).imports

def get_builtins():
	"""Returns a dictionary of built-in modules, functions and variables."""
	
	return __builtin__.__dict__


#################################
## Debugging utility functions ##
#################################

def print_cache_for(txt, period=sys.maxint):
	"""Prints out the data cached for a given Text object. If no period is
	given the text will not be reparsed and the cached version will be returned.
	Otherwise if the period has expired the text will be reparsed.
	"""
	
	desc = get_cached_descriptor(txt, period)
	print '================================================'
	print 'Name:', desc.name, '('+str(hash(txt))+')'
	print '------------------------------------------------'
	print 'Defs:'
	for name, params in desc.defs.items():
		print ' ', name, params
	print '------------------------------------------------'
	print 'Vars:'
	for name in desc.vars.keys():
		print ' ', name
	print '------------------------------------------------'
	print 'Imports:'
	for name, item in desc.imports.items():
		print ' ', name.ljust(15), item
	print '------------------------------------------------'
	print 'Classes:'
	for clsnme, clsdsc in desc.classes.items():
		print '  *********************************'
		print '  Name:', clsnme
		print '  ---------------------------------'
		print '  Defs:'
		for name, params in clsdsc.defs.items():
			print '   ', name, params
		print '  ---------------------------------'
		print '  Vars:'
		for name in clsdsc.vars.keys():
			print '   ', name
		print '  *********************************'
	print '================================================'