#!/usr/bin/env python  """ Common functions.  Copyright (C) 2007-2019, 2021 Paul Boddie <paul@boddie.org.uk>  This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version.  This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more details.  You should have received a copy of the GNU General Public License along with this program.  If not, see <http://www.gnu.org/licenses/>. """  from compiler.transformer import Transformer from errors import InspectError from os import listdir, makedirs, remove from os.path import exists, getmtime, isdir, join, split from results import ConstantValueRef, LiteralSequenceRef, NameRef import compiler.ast  class CommonOutput:      "Common output functionality."      def check_output(self, options=None):          "Check the existing output and remove it if irrelevant."          if not exists(self.output):             makedirs(self.output)          details = self.importer.get_cache_details()         recorded_details = self.get_output_details()          # Combine cache details with any options.          full_details = options and (details + " " + options) or details          if recorded_details != full_details:             self.remove_output()          writefile(self.get_output_details_filename(), full_details)      def get_output_details_filename(self):          "Return the output details filename."          return join(self.output, "$details")      def get_output_details(self):          "Return details of the existing output."          details_filename = self.get_output_details_filename()          if not exists(details_filename):             return None         else:             return readfile(details_filename)      def remove_output(self, dirname=None):          "Remove the output."          dirname = dirname or self.output          for filename in listdir(dirname):             path = join(dirname, filename)             if isdir(path):                 self.remove_output(path)             else:                 remove(path)  def copy(source, target, only_if_newer=True):      "Copy a text file from 'source' to 'target'."      if isdir(target):         target = join(target, split(source)[-1])      if only_if_newer and not is_newer(source, target):         return      infile = open(source)     outfile = open(target, "w")      try:         outfile.write(infile.read())     finally:         outfile.close()         infile.close()  def is_newer(source, target):      "Return whether 'source' is newer than 'target'."      if exists(target):         target_mtime = getmtime(target)         source_mtime = getmtime(source)         return source_mtime > target_mtime      return True  class CommonModule:      "A common module representation."      def __init__(self, name, importer):          """         Initialise this module with the given 'name' and an 'importer' which is         used to provide access to other modules when required.         """          self.name = name         self.importer = importer         self.filename = None          # Inspection-related attributes.          self.astnode = None         self.encoding = None         self.temp = {}         self.lambdas = {}          # Constants, literals and values.          self.constants = {}         self.constant_values = {}         self.literals = {}         self.literal_types = {}          # Nested namespaces.          self.namespace_path = []         self.in_function = False          # Retain the assignment value expression and track invocations.          self.in_assignment = None         self.in_invocation = None          # Attribute chain state management.          self.attrs = []         self.chain_assignment = []         self.chain_invocation = []      def __repr__(self):         return "CommonModule(%r, %r)" % (self.name, self.importer)      def parse_file(self, filename):          "Parse the file with the given 'filename', initialising attributes."          self.filename = filename          # Use the Transformer directly to obtain encoding information.          t = Transformer()         f = open(filename)          try:             self.astnode = t.parsesuite(f.read() + "\n")             self.encoding = t.encoding         finally:             f.close()      # Module-relative naming.      def get_global_path(self, name):         return "%s.%s" % (self.name, name)      def get_namespace_path(self):         return ".".join([self.name] + self.namespace_path)      def get_object_path(self, name):         return ".".join([self.name] + self.namespace_path + [name])      # Namespace management.      def enter_namespace(self, name):          "Enter the namespace having the given 'name'."          self.namespace_path.append(name)      def exit_namespace(self):          "Exit the current namespace."          self.namespace_path.pop()      # Constant reference naming.      def get_constant_name(self, value, value_type, encoding=None):          """         Add a new constant to the current namespace for 'value' with         'value_type'.         """          path = self.get_namespace_path()         init_item(self.constants, path, dict)         return "$c%d" % add_counter_item(self.constants[path], (value, value_type, encoding))      # Literal reference naming.      def get_literal_name(self):          "Add a new literal to the current namespace."          path = self.get_namespace_path()         init_item(self.literals, path, lambda: 0)         return "$C%d" % self.literals[path]      def next_literal(self):         self.literals[self.get_namespace_path()] += 1      # Temporary variable naming.      def get_temporary_name(self):         path = self.get_namespace_path()         init_item(self.temp, path, lambda: 0)         return "$t%d" % self.temp[path]      def next_temporary(self):         self.temp[self.get_namespace_path()] += 1      # Arbitrary function naming.      def get_lambda_name(self):         path = self.get_namespace_path()         init_item(self.lambdas, path, lambda: 0)         name = "$l%d" % self.lambdas[path]         self.lambdas[path] += 1         return name      def reset_lambdas(self):         self.lambdas = {}      # Constant and literal recording.      def get_constant_value(self, value, literals=None):          """         Encode the 'value' if appropriate, returning a value, a typename and any         encoding.         """          if isinstance(value, unicode):             return value.encode("utf-8"), "unicode", self.encoding          # Attempt to convert plain strings to text.          elif isinstance(value, str) and self.encoding:             try:                 return get_string_details(literals, self.encoding)             except UnicodeDecodeError:                 pass          return value, value.__class__.__name__, None      def get_constant_reference(self, ref, value, encoding=None):          """         Return a constant reference for the given 'ref' type and 'value', with         the optional 'encoding' applying to text values.         """          constant_name = self.get_constant_name(value, ref.get_origin(), encoding)          # Return a reference for the constant.          objpath = self.get_object_path(constant_name)         name_ref = ConstantValueRef(constant_name, ref.instance_of(objpath), value)          # Record the value and type for the constant.          self._reserve_constant(objpath, name_ref.value, name_ref.get_origin(), encoding)         return name_ref      def reserve_constant(self, objpath, value, origin, encoding=None):          """         Reserve a constant within 'objpath' with the given 'value' and having a         type with the given 'origin', with the optional 'encoding' applying to         text values.         """          constant_name = self.get_constant_name(value, origin)         objpath = self.get_object_path(constant_name)         self._reserve_constant(objpath, value, origin, encoding)      def _reserve_constant(self, objpath, value, origin, encoding):          """         Store a constant for 'objpath' with the given 'value' and 'origin', with         the optional 'encoding' applying to text values.         """          self.constant_values[objpath] = value, origin, encoding      def get_literal_reference(self, name, ref, items, cls):          """         Return a literal reference for the given type 'name', literal 'ref',         node 'items' and employing the given 'cls' as the class of the returned         reference object.         """          # Construct an invocation using the items as arguments.          typename = "$L%s" % name          invocation = compiler.ast.CallFunc(             compiler.ast.Name(typename),             items             )          # Get a name for the actual literal.          instname = self.get_literal_name()         self.next_literal()          # Record the type for the literal.          objpath = self.get_object_path(instname)         self.literal_types[objpath] = ref.get_origin()          # Return a wrapper for the invocation exposing the items.          return cls(             instname,             ref.instance_of(),             self.process_structure_node(invocation),             invocation.args             )      # Node handling.      def process_structure(self, node):          """         Within the given 'node', process the program structure.          During inspection, this will process global declarations, adjusting the         module namespace, and import statements, building a module dependency         hierarchy.          During translation, this will consult deduced program information and         output translated code.         """          l = []         for n in node.getChildNodes():             l.append(self.process_structure_node(n))         return l      def process_augassign_node(self, n):          "Process the given augmented assignment node 'n'."          op = operator_functions[n.op]          if isinstance(n.node, compiler.ast.Getattr):             target = compiler.ast.AssAttr(n.node.expr, n.node.attrname, "OP_ASSIGN")         elif isinstance(n.node, compiler.ast.Name):             target = compiler.ast.AssName(n.node.name, "OP_ASSIGN")         else:             target = n.node          assignment = compiler.ast.Assign(             [target],             compiler.ast.CallFunc(                 compiler.ast.Name("$op%s" % op),                 [n.node, n.expr]))          return self.process_structure_node(assignment)      def process_assignment_for_object(self, original_name, source):          """         Return an assignment operation making 'original_name' refer to the given         'source'.         """          assignment = compiler.ast.Assign(             [compiler.ast.AssName(original_name, "OP_ASSIGN")],             source             )          return self.process_structure_node(assignment)      def process_assignment_node_items(self, n, expr):          """         Process the given assignment node 'n' whose children are to be assigned         items of 'expr'.         """          name_ref = self.process_structure_node(expr)          # Either unpack the items and present them directly to each assignment         # node.          if isinstance(name_ref, LiteralSequenceRef) and \            self.process_literal_sequence_items(n, name_ref):              pass          # Or have the assignment nodes access each item via the sequence API.          else:             self.process_assignment_node_items_by_position(n, expr, name_ref)      def process_assignment_node_items_by_position(self, n, expr, name_ref):          """         Process the given sequence assignment node 'n', converting the node to         the separate assignment of each target using positional access on a         temporary variable representing the sequence. Use 'expr' as the assigned         value and 'name_ref' as the reference providing any existing temporary         variable.         """          statements = []          # Employ existing names to access the sequence.         # Literal sequences do not provide names of accessible objects.          if isinstance(name_ref, NameRef) and not isinstance(name_ref, LiteralSequenceRef):             temp = name_ref.name          # For other expressions, create a temporary name to reference the items.          else:             temp = self.get_temporary_name()             self.next_temporary()              statements.append(                 compiler.ast.Assign([compiler.ast.AssName(temp, "OP_ASSIGN")], expr)                 )          # Generate a test for the length of the expression object.          statements.append(compiler.ast.Discard(             compiler.ast.CallFunc(compiler.ast.Name("$seq_test_length"),                 [compiler.ast.Name(temp), compiler.ast.Const(len(n.nodes))])))          # Assign the items to the target nodes.          for i, node in enumerate(n.nodes):             statements.append(                 compiler.ast.Assign([node], compiler.ast.CallFunc(                     compiler.ast.Getattr(compiler.ast.Name(temp),                                          "__get_single_item_unchecked__",                                          privileged=True),                     [compiler.ast.Const(i, str(i))]))                 )          return self.process_structure_node(compiler.ast.Stmt(statements))      def process_literal_sequence_items(self, n, name_ref):          """         Process the given assignment node 'n', obtaining from the given         'name_ref' the items to be assigned to the assignment targets.          Return whether this method was able to process the assignment node as         a sequence of direct assignments.         """          if len(n.nodes) == len(name_ref.items):             assigned_names, count = get_names_from_nodes(n.nodes)             accessed_names, _count = get_names_from_nodes(name_ref.items)              # Only assign directly between items if all assigned names are             # plain names (not attribute assignments), and if the assigned names             # do not appear in the accessed names.              if len(assigned_names) == count and \                not assigned_names.intersection(accessed_names):                  for node, item in zip(n.nodes, name_ref.items):                     self.process_assignment_node(node, item)                  return True              # Otherwise, use the position-based mechanism to obtain values.              else:                 return False         else:             raise InspectError("In %s, item assignment needing %d items is given %d items." % (                 self.get_namespace_path(), len(n.nodes), len(name_ref.items)))      def process_compare_node(self, n):          """         Process the given comparison node 'n', converting an operator sequence         from...          <expr1> <op1> <expr2> <op2> <expr3>          ...to...          <op1>(<expr1>, <expr2>) and <op2>(<expr2>, <expr3>)         """          invocations = []         last = n.expr          for op, op_node in n.ops:             op = operator_functions.get(op)              invocations.append(compiler.ast.CallFunc(                 compiler.ast.Name("$op%s" % op),                 [last, op_node]))              last = op_node          if len(invocations) > 1:             result = compiler.ast.And(invocations)         else:             result = invocations[0]          return self.process_structure_node(result)      def process_dict_node(self, node):          """         Process the given dictionary 'node', returning a list of (key, value)         tuples.         """          l = []         for key, value in node.items:             l.append((                 self.process_structure_node(key),                 self.process_structure_node(value)))         return l      def process_for_node(self, n):          """         Generate attribute accesses for {n.list}.__iter__ and the next method on         the iterator, producing a replacement node for the original.         """          t0 = self.get_temporary_name()         self.next_temporary()         t1 = self.get_temporary_name()         self.next_temporary()         t2 = self.get_temporary_name()         self.next_temporary()         t3 = self.get_temporary_name()         self.next_temporary()          node = compiler.ast.Stmt([              # <t0> = {n.list}             # <t1> = <t0>.__iter__()              compiler.ast.Assign(                 [compiler.ast.AssName(t0, "OP_ASSIGN")],                 n.list),              compiler.ast.Assign(                 [compiler.ast.AssName(t1, "OP_ASSIGN")],                 compiler.ast.CallFunc(                     compiler.ast.Getattr(compiler.ast.Name(t0), "__iter__"),                     [])),              # <t2> = <t1>.next             # try:             #     while True:             #         try:             #             <t3> = <t2>()             #         except StopIteration:             #             raise LoopExit             #         <var>... = <t3>             #         {n.body}             # except LoopExit:             #     {n.else_}             #     pass              compiler.ast.Assign(                 [compiler.ast.AssName(t2, "OP_ASSIGN")],                 compiler.ast.Getattr(compiler.ast.Name(t1), "next")),              # try:              compiler.ast.TryExcept(                  # while True:                  compiler.ast.While(                     compiler.ast.Name("True"),                     compiler.ast.Stmt([                          # try:                          compiler.ast.TryExcept(                              # <t3> = <t2>()                              compiler.ast.Assign(                                 [compiler.ast.AssName(t3, "OP_ASSIGN")],                                 compiler.ast.CallFunc(                                     compiler.ast.Name(t2),                                     [])),                          # except StopIteration:                         #     raise LoopExit                              [(compiler.ast.Name("StopIteration"), None,                               compiler.ast.Raise(compiler.ast.Name("LoopExit")))],                             None),                          # <var>... = <t3>                          compiler.ast.Assign(                             [n.assign],                             compiler.ast.Name(t3)),                         n.body]),                     None),              # except LoopExit:             #     {n.else_}             #     pass                  [(compiler.ast.Name("LoopExit"), None, n.else_ or compiler.ast.Pass())],                 None)             ])          self.process_structure_node(node)      def process_literal_sequence_node(self, n, name, ref, cls):          """         Process the given literal sequence node 'n' as a function invocation,         with 'name' indicating the type of the sequence, and 'ref' being a         reference to the type. The 'cls' is used to instantiate a suitable name         reference.         """          if name == "dict":             items = []             for key, value in n.items:                 items.append(compiler.ast.Tuple([key, value]))         else: # name in ("list", "tuple"):             items = n.nodes          return self.get_literal_reference(name, ref, items, cls)      def process_operator_node(self, n):          """         Process the given operator node 'n' as an operator function invocation.         """          opname = n.__class__.__name__         operands = n.getChildNodes()          # Convert a unary operation to an invocation.          op = unary_operator_functions.get(opname)          if op:             invocation = compiler.ast.CallFunc(                 compiler.ast.Name("$op%s" % op),                 [operands[0]]                 )          # Convert a single operator with a list of operands to a combination of         # pairwise operations.          else:             op = operator_functions[opname]             invocation = self._process_operator_node(op, operands)          return self.process_structure_node(invocation)      def _process_operator_node(self, op, operands):          """         Process the given 'op', being an operator function, together with the         supplied 'operands', returning either a single remaining operand or an         invocation combining the operands.         """          remaining = operands[1:]         if not remaining:             return operands[0]          return compiler.ast.CallFunc(             compiler.ast.Name("$op%s" % op),             [operands[0], self._process_operator_node(op, remaining)]             )      def process_print_node(self, n):          """         Process the given print node 'n' as an invocation on a stream of the         form...          $print(dest, args, nl)          The special function name will be translated elsewhere.         """          nl = isinstance(n, compiler.ast.Printnl)         invocation = compiler.ast.CallFunc(             compiler.ast.Name("$print"),             [n.dest or compiler.ast.Name("None"),              compiler.ast.List(list(n.nodes)),              nl and compiler.ast.Name("True") or compiler.ast.Name("False")]             )         return self.process_structure_node(invocation)      def process_slice_node(self, n, expr=None):          """         Process the given slice node 'n' as a method invocation.         """          if n.flags == "OP_ASSIGN": op = "__setslice__"         elif n.flags == "OP_DELETE": op = "__delslice__"         else: op = "__getslice__"          invocation = compiler.ast.CallFunc(             compiler.ast.Getattr(n.expr, op),             [n.lower or compiler.ast.Name("None"), n.upper or compiler.ast.Name("None")] +                 (expr and [expr] or [])             )          # Fix parse tree structure.          if op == "__delslice__":             invocation = compiler.ast.Discard(invocation)          return self.process_structure_node(invocation)      def process_sliceobj_node(self, n):          """         Process the given slice object node 'n' as a slice constructor.         """          op = "slice"         invocation = compiler.ast.CallFunc(             compiler.ast.Name("$op%s" % op),             n.nodes             )         return self.process_structure_node(invocation)      def process_subscript_node(self, n, expr=None):          """         Process the given subscript node 'n' as a method invocation.         """          if n.flags == "OP_ASSIGN": op = "__setitem__"         elif n.flags == "OP_DELETE": op = "__delitem__"         else: op = "__getitem__"          invocation = compiler.ast.CallFunc(             compiler.ast.Getattr(n.expr, op),             list(n.subs) + (expr and [expr] or [])             )          # Fix parse tree structure.          if op == "__delitem__":             invocation = compiler.ast.Discard(invocation)          return self.process_structure_node(invocation)      def process_attribute_chain(self, n):          """         Process the given attribute access node 'n'. Return a reference         describing the expression.         """          # AssAttr/Getattr are nested with the outermost access being the last         # access in any chain.          self.attrs.insert(0, n.attrname)         attrs = self.attrs          # Break attribute chains where non-access nodes are found.          if not self.have_access_expression(n):             self.reset_attribute_chain()          # Descend into the expression, extending backwards any existing chain,         # or building another for the expression.          name_ref = self.process_structure_node(n.expr)          # Restore chain information applying to this node.          if not self.have_access_expression(n):             self.restore_attribute_chain(attrs)          # Return immediately if the expression was another access and thus a         # continuation backwards along the chain. The above processing will         # have followed the chain all the way to its conclusion.          if self.have_access_expression(n):             del self.attrs[0]          return name_ref      # Attribute chain handling.      def reset_attribute_chain(self):          "Reset the attribute chain for a subexpression of an attribute access."          self.attrs = []         self.chain_assignment.append(self.in_assignment)         self.chain_invocation.append(self.in_invocation)         self.in_assignment = None         self.in_invocation = None      def restore_attribute_chain(self, attrs):          "Restore the attribute chain for an attribute access."          self.attrs = attrs         self.in_assignment = self.chain_assignment.pop()         self.in_invocation = self.chain_invocation.pop()      def have_access_expression(self, node):          "Return whether the expression associated with 'node' is Getattr."          return isinstance(node.expr, compiler.ast.Getattr)      def get_name_for_tracking(self, name, name_ref=None, is_global=False):          """         Return the name to be used for attribute usage observations involving         the given 'name' in the current namespace.          If the name is being used outside a function, and if 'name_ref' is         given and indicates a global or if 'is_global' is specified as a true         value, a path featuring the name in the global namespace is returned.         Otherwise, a path computed using the current namespace and the given         name is returned.          The intention of this method is to provide a suitably-qualified name         that can be tracked across namespaces. Where globals are being         referenced in class namespaces, they should be referenced using their         path within the module, not using a path within each class.          It may not be possible to identify a global within a function at the         time of inspection (since a global may appear later in a file).         Consequently, globals are identified by their local name rather than         their module-qualified path.         """          # For functions, use the appropriate local names.          if self.in_function:             return name          # For global names outside functions, use a global name.          elif is_global or name_ref and name_ref.is_global_name():             return self.get_global_path(name)          # Otherwise, establish a name in the current namespace.          else:             return self.get_object_path(name)      def get_path_for_access(self):          "Outside functions, register accesses at the module level."          if not self.in_function:             return self.name         else:             return self.get_namespace_path()      def get_module_name(self, node):          """         Using the given From 'node' in this module, calculate any relative import         information, returning a tuple containing a module to import along with any         names to import based on the node's name information.          Where the returned module is given as None, whole module imports should         be performed for the returned modules using the returned names.         """          # Absolute import.          if node.level == 0:             return node.modname, node.names          # Relative to an ancestor of this module.          else:             path = self.name.split(".")             level = node.level              # Relative imports treat package roots as submodules.              if split(self.filename)[-1] == "__init__.py":                 level -= 1              if level > len(path):                 raise InspectError("Relative import %r involves too many levels up from module %r" % (                     ("%s%s" % ("." * node.level, node.modname or "")), self.name))              basename = ".".join(path[:len(path)-level])          # Name imports from a module.          if node.modname:             return "%s.%s" % (basename, node.modname), node.names          # Relative whole module imports.          else:             return basename, node.names  def get_argnames(args):      """     Return a list of all names provided by 'args'. Since tuples may be     employed, the arguments are traversed depth-first.     """      l = []     for arg in args:         if isinstance(arg, tuple):             l += get_argnames(arg)         else:             l.append(arg)     return l  def get_names_from_nodes(nodes):      """     Return the names employed in the given 'nodes' along with the number of     nodes excluding sequences.     """      names = set()     count = 0      for node in nodes:          # Add names and count them.          if isinstance(node, (compiler.ast.AssName, compiler.ast.Name)):             names.add(node.name)             count += 1          # Add names from sequences and incorporate their counts.          elif isinstance(node, (compiler.ast.AssList, compiler.ast.AssTuple,                                compiler.ast.List, compiler.ast.Set,                                compiler.ast.Tuple)):             _names, _count = get_names_from_nodes(node.nodes)             names.update(_names)             count += _count          # Count non-name, non-sequence nodes.          else:             count += 1      return names, count  # Location classes.  class Location:      "A generic program location."      def __init__(self, path, name, attrnames=None, version=None, access_number=None):         self.path = path         self.name = name         self.attrnames = attrnames         self.version = version         self.access_number = access_number      def __repr__(self):         return "Location(%r, %r, %r, %r, %r)" % self.as_tuple()      def as_tuple(self):         return (self.path, self.name, self.attrnames, self.version, self.access_number)      def __hash__(self):         return hash(self.as_tuple())      def __eq__(self, other):         return self.as_tuple() == other.as_tuple()      def __cmp__(self, other):         return cmp(self.as_tuple(), other.as_tuple())      def get_attrname(self):          """         Extract the first attribute from the attribute names employed in this         location.         """          attrnames = self.attrnames         if not attrnames:             return attrnames         return get_attrnames(attrnames)[0]  class AccessLocation(Location):      "A specialised access location."      def __init__(self, path, name, attrnames, access_number):          """         Initialise an access location featuring 'path', 'name', 'attrnames' and         'access_number'.         """          Location.__init__(self, path, name, attrnames, None, access_number)      def __repr__(self):         return "AccessLocation(%r, %r, %r, %r)" % (self.path, self.name, self.attrnames, self.access_number)  # Result classes.  class InstructionSequence:      "A generic sequence of instructions."      def __init__(self, instructions):         self.instructions = instructions      def get_value_instruction(self):         return self.instructions[-1]      def get_init_instructions(self):         return self.instructions[:-1]  # Dictionary utilities.  def init_item(d, key, fn):      """     Add to 'd' an entry for 'key' using the callable 'fn' to make an initial     value where no entry already exists.     """      if not d.has_key(key):         d[key] = fn()     return d[key]  def dict_for_keys(d, keys):      "Return a new dictionary containing entries from 'd' for the given 'keys'."      nd = {}     for key in keys:         if d.has_key(key):             nd[key] = d[key]     return nd  def make_key(s):      "Make sequence 's' into a tuple-based key, first sorting its contents."      l = list(s)     l.sort()     return tuple(l)  def add_counter_item(d, key):      """     Make a mapping in 'd' for 'key' to the number of keys added before it, thus     maintaining a mapping of keys to their order of insertion.     """      if not d.has_key(key):         d[key] = len(d.keys())     return d[key]   def remove_items(d1, d2):      "Remove from 'd1' all items from 'd2'."      for key in d2.keys():         if d1.has_key(key):             del d1[key]  # Set utilities.  def first(s):     return list(s)[0]  def same(s1, s2):     return set(s1) == set(s2)  def order_dependencies(all_depends):      """     Produce a dependency ordering for the 'all_depends' mapping. This mapping     has the form "A depends on B, C...". The result will order A, B, C, and so     on.     """      usage = init_reverse_dependencies(all_depends)      # Produce an ordering by obtaining exposed items (required by items already     # processed) and putting them at the start of the list.      ordered = []      while usage:         have_next = False          for key, n in usage.items():              # Add items needed by no other items to the ordering.              if not n:                 remove_dependency(key, all_depends, usage, ordered)                 have_next = True          if not have_next:             raise ValueError, usage      return ordered  def order_dependencies_partial(all_depends):      """     Produce a dependency ordering for the 'all_depends' mapping. This mapping     has the form "A depends on B, C...". The result will order A, B, C, and so     on. Where cycles exist, they will be broken and a partial ordering returned.     """      usage = init_reverse_dependencies(all_depends)      # Duplicate the dependencies for subsequent modification.      new_depends = {}     for key, values in all_depends.items():         new_depends[key] = set(values)      all_depends = new_depends      # Produce an ordering by obtaining exposed items (required by items already     # processed) and putting them at the start of the list.      ordered = []      while usage:         least = None         least_key = None          for key, n in usage.items():              # Add items needed by no other items to the ordering.              if not n:                 remove_dependency(key, all_depends, usage, ordered)                 least = 0              # When breaking cycles, note the least used items.              elif least is None or len(n) < least:                 least_key = key                 least = len(n)          if least:             transfer_dependencies(least_key, all_depends, usage, ordered)      return ordered  def init_reverse_dependencies(all_depends):      """     From 'all_depends', providing a mapping of the form "A depends on B, C...",     record the reverse dependencies, making a mapping of the form     "B is needed by A", "C is needed by A", and so on.     """      usage = {}      # Record path-based dependencies.      for key in all_depends.keys():         usage[key] = set()      for key, depends in all_depends.items():         for depend in depends:             init_item(usage, depend, set)             usage[depend].add(key)      return usage  def transfer_dependencies(key, all_depends, usage, ordered):      """     Transfer items needed by 'key' to those items needing 'key', found using     'all_depends', and updating 'usage'. Insert 'key' into the 'ordered'     collection of dependencies.      If "A is needed by X" and "B is needed by A", then transferring items needed     by A will cause "B is needed by X" to be recorded as a consequence.      Transferring items also needs to occur in the reverse mapping, so that     "A needs B" and "X needs A", then the consequence must be recorded as     "X needs B".     """      ordered.insert(0, key)      needing = usage[key]                        # A is needed by X     needed = all_depends.get(key)               # A needs B      if needing:         for depend in needing:             l = all_depends.get(depend)             if not l:                 continue              l.remove(key)                       # X needs (A)              if needed:                 l.update(needed)                # X needs B...                  # Prevent self references.                  if depend in needed:                     l.remove(depend)      if needed:         for depend in needed:             l = usage.get(depend)             if not l:                 continue              l.remove(key)                       # B is needed by (A)             l.update(needing)                   # B is needed by X...              # Prevent self references.              if depend in needing:                 l.remove(depend)      if needed:         del all_depends[key]     del usage[key]  def remove_dependency(key, all_depends, usage, ordered):      """     Remove 'key', found in 'all_depends', from 'usage', inserting it into the     'ordered' collection of dependencies.      Given that 'usage' for a given key A would indicate that "A needs <nothing>"     upon removing A from 'usage', the outcome is that all keys needing A will     have A removed from their 'usage' records.      So, if "B needs A", removing A will cause "B needs <nothing>" to be recorded     as a consequence.     """      ordered.insert(0, key)      depends = all_depends.get(key)      # Reduce usage of the referenced items.      if depends:         for depend in depends:             usage[depend].remove(key)      del usage[key]  # General input/output.  def readfile(filename):      "Return the contents of 'filename'."      f = open(filename)     try:         return f.read()     finally:         f.close()  def writefile(filename, s):      "Write to 'filename' the string 's'."      f = open(filename, "w")     try:         f.write(s)     finally:         f.close()  # General encoding.  def sorted_output(x):      "Sort sequence 'x' and return a string with commas separating the values."      x = map(str, x)     x.sort()     return ", ".join(x)  def get_string_details(literals, encoding):      """     Determine whether 'literals' represent Unicode strings or byte strings,     using 'encoding' to reproduce byte sequences.      Each literal is the full program representation including prefix and quotes     recoded by the parser to UTF-8. Thus, any literal found to represent a byte     string needs to be translated back to its original encoding.      Return a single encoded literal value, a type name, and the original     encoding as a tuple.     """      typename = "unicode"      l = []      for s in literals:         out, _typename = get_literal_details(s)         if _typename == "str":             typename = "str"         l.append(out)      out = "".join(l)      # For Unicode values, convert to the UTF-8 program representation.      if typename == "unicode":         return out.encode("utf-8"), typename, encoding      # For byte string values, convert back to the original encoding.      else:         return out.encode(encoding), typename, encoding  def get_literal_details(s):      """     Determine whether 's' represents a Unicode string or a byte string, where     's' contains the full program representation of a literal including prefix     and quotes, recoded by the parser to UTF-8.      Find and convert Unicode values starting with <backslash>u or <backslash>U,     and byte or Unicode values starting with <backslash><octal digit> or     <backslash>x.      Literals prefixed with "u" cause <backslash><octal digit> and <backslash>x     to be considered as Unicode values. Otherwise, they produce byte values and     cause unprefixed strings to be considered as byte strings.      Literals prefixed with "r" do not have their backslash-encoded values     converted unless also prefixed with "u", in which case only the above value     formats are converted, not any of the other special sequences for things     like newlines.      Return the literal value as a Unicode object together with the appropriate     type name in a tuple.     """      l = []      # Identify the quote character and use it to identify the prefix.      quote_type = s[-1]     prefix_end = s.find(quote_type)     prefix = s[:prefix_end].lower()      if prefix not in ("", "b", "br", "r", "u", "ur"):         raise ValueError, "String literal does not have a supported prefix: %s" % s      if "b" in prefix:         typename = "str"     else:         typename = "unicode"      # Identify triple quotes or single quotes.      if len(s) >= 6 and s[-2] == quote_type and s[-3] == quote_type:         quote = s[prefix_end:prefix_end+3]         current = prefix_end + 3         end = len(s) - 3     else:         quote = s[prefix_end]         current = prefix_end + 1         end = len(s) - 1      # Conversions of some quoted values.      searches = {         "u" : (6, 16),         "U" : (10, 16),         "x" : (4, 16),         }      octal_digits = map(str, range(0, 8))      # Translations of some quoted values.      escaped = {         "\\" : "\\", "'" : "'", '"' : '"',         "a" : "\a", "b" : "\b", "f" : "\f",         "n" : "\n", "r" : "\r", "t" : "\t",         }      while current < end:          # Look for quoted values.          index = s.find("\\", current)         if index == -1 or index + 1 == end:             l.append(s[current:end])             break          # Add the preceding text.          l.append(s[current:index])          # Handle quoted text.          term = s[index+1]          # Add Unicode values. Where a string is u-prefixed, even \o and \x         # produce Unicode values.          if typename == "unicode" and (             term in ("u", "U") or              "u" in prefix and (term == "x" or term in octal_digits)):              needed, base = searches.get(term, (4, 8))             value = convert_quoted_value(s, index, needed, end, base, unichr)             l.append(value)             current = index + needed          # Add raw byte values, changing the string type.          elif "r" not in prefix and (              term == "x" or term in octal_digits):              needed, base = searches.get(term, (4, 8))             value = convert_quoted_value(s, index, needed, end, base, chr)             l.append(value)             typename = "str"             current = index + needed          # Add other escaped values.          elif "r" not in prefix and escaped.has_key(term):             l.append(escaped[term])             current = index + 2          # Add other text as found.          else:             l.append(s[index:index+2])             current = index + 2      # Collect the components into a single Unicode object. Since the literal     # text was already in UTF-8 form, interpret plain strings as UTF-8     # sequences.      out = []      for value in l:         if isinstance(value, unicode):             out.append(value)         else:             out.append(unicode(value, "utf-8"))      return "".join(out), typename  def convert_quoted_value(s, index, needed, end, base, fn):      """     Interpret a quoted value in 's' at 'index' with the given 'needed' number of     positions, and with the given 'end' indicating the first position after the     end of the actual string content.      Use 'base' as the numerical base when interpreting the value, and use 'fn'     to convert the value to an appropriate type.     """      s = s[index:min(index+needed, end)]      # Not a complete occurrence.      if len(s) < needed:         return s      # Test for a well-formed value.      try:         first = base == 8 and 1 or 2         value = int(s[first:needed], base)     except ValueError:         return s     else:         return fn(value)  # Attribute chain decoding.  def get_attrnames(attrnames):      """     Split the qualified attribute chain 'attrnames' into its components,     handling special attributes starting with "#" that indicate type     conformance.     """      if attrnames.startswith("#"):         return [attrnames]     else:         return attrnames.split(".")  def get_name_path(path, name):      "Return a suitable qualified name from the given 'path' and 'name'."      if "." in name:         return name     else:         return "%s.%s" % (path, name)  # Usage-related functions.  def get_types_for_usage(attrnames, objects):      """     Identify the types that can support the given 'attrnames', using the     given 'objects' as the catalogue of type details.     """      types = []     for name, _attrnames in objects.items():         if set(attrnames).issubset(_attrnames):             types.append(name)     return types  def get_invoked_attributes(usage):      "Obtain invoked attribute from the given 'usage'."      invoked = []     if usage:         for attrname, invocation, assignment in usage:             if invocation:                 invoked.append(attrname)     return invoked  def get_assigned_attributes(usage):      "Obtain assigned attribute from the given 'usage'."      assigned = []     if usage:         for attrname, invocation, assignment in usage:             if assignment:                 assigned.append(attrname)     return assigned  # Type and module functions. # NOTE: This makes assumptions about the __builtins__ structure.  def get_builtin_module(name):      "Return the module name containing the given type 'name'."      if name == "string":         modname = "str"     elif name == "NoneType":         modname = "none"     else:         modname = name      return "__builtins__.%s" % modname  def get_builtin_type(name):      "Return the type name provided by the given Python value 'name'."      if name == "str":         return "string"     else:         return name  def get_builtin_class(name):      "Return the full name of the built-in class having the given 'name'."      typename = get_builtin_type(name)     module = get_builtin_module(typename)     return "%s.%s" % (module, typename)  # Useful data.  predefined_constants = "False", "None", "NotImplemented", "True"  privileged_attributes = [     "__get_single_item_unchecked__",     ]  unary_operator_functions = {      # Unary operations.      "Invert" : "invert",     "UnaryAdd" : "pos",     "UnarySub" : "neg",     }  operator_functions = {      # Fundamental operations.      "is" : "is_",     "is not" : "is_not",      # Binary operations.      "in" : "in_",     "not in" : "not_in",     "Add" : "add",     "Bitand" : "and_",     "Bitor" : "or_",     "Bitxor" : "xor",     "Div" : "div",     "FloorDiv" : "floordiv",     "LeftShift" : "lshift",     "Mod" : "mod",     "Mul" : "mul",     "Power" : "pow",     "RightShift" : "rshift",     "Sub" : "sub",      # Augmented assignment.      "+=" : "iadd",     "-=" : "isub",     "*=" : "imul",     "/=" : "idiv",     "//=" : "ifloordiv",     "%=" : "imod",     "**=" : "ipow",     "<<=" : "ilshift",     ">>=" : "irshift",     "&=" : "iand",     "^=" : "ixor",     "|=" : "ior",      # Comparisons.      "==" : "eq",     "!=" : "ne",     "<" : "lt",     "<=" : "le",     ">=" : "ge",     ">" : "gt",     }  operator_functions.update(unary_operator_functions)  # vim: tabstop=4 expandtab shiftwidth=4