Synnefo » snf-ganeti » ganeti-local

def IdentifyOrigin(all_items, value):

  """Tries to identify a constant name from a constant's value.

  This uses a simple algorithm: is there a constant (and only one)

  with the same value? If so, then it returns that constants' name.

  @note: it is recommended to use this only for tuples/lists/sets, and

      not for individual (top-level) values

  @param all_items: a dictionary of name/values for the current module

  @param value: the value for which we try to find an origin

  """

  found = [name for (name, v) in all_items.items() if v is value]

  if len(found) == 1:

    return found[0]

  else:

    return None

def FormatListElems(all_items, pfx_name, ovals, tvals):

  """Formats a list's elements.

  This formats the elements as either values or, if we find all

  origins, as names.

  @param all_items: a dictionary of name/values for the current module

  @param pfx_name: the prefix name currently used

  @param ovals: the list of actual (Python) values

  @param tvals: the list of values we want to format in the Haskell form

  """

  origins = [IdentifyOrigin(all_items, v) for v in ovals]

  if compat.all(x is not None for x in origins):

    values = [NameRules(pfx_name + origin) for origin in origins]

  else:

    values = tvals

  return ", ".join(values)

def ConvertVariable(prefix, name, value, all_items):

  @param all_items: a dictionary of name/value for the module being

      processed

        lines.extend(ConvertVariable(prefix, DictKeyName(name, k),

                                     value[k], all_items))

      tvals = FormatListElems(all_items, pfx_name, value, [e[1] for e in tvs])

        values = FormatListElems(all_items, pfx_name, value, tvals)

        lines.append("%s = [%s]" % (hs_name, values))

  all_items = dict((name, getattr(module, name)) for name in dir(module))

  for name in sorted(all_items.keys()):

    value = all_items[name]

    new_lines = ConvertVariable(prefix, name, value, all_items)