# obsolete.py - introduce the obsolete concept in mercurial.

#

# Copyright 2011 Pierre-Yves David <pierre-yves.david@ens-lyon.org>

#                Logilab SA        <contact@logilab.fr>

#

# This software may be used and distributed according to the terms of the

# GNU General Public License version 2 or any later version.

"""Introduce the Obsolete concept to mercurial

General concept

===============

This extension introduces the *obsolete* concept. It adds a new *obsolete*

relation between two changesets. A relation ``<changeset B> obsolete <changeset

A>`` is set to denote that ``<changeset B>`` is new version of ``<changeset

A>``.

The *obsolete* relation act as a **perpendicular history** to the standard

changeset history. Standard changeset history versions files. The *obsolete*

relation versions changesets.

:obsolete:     a changeset that have been replace by another one.

:unstable:     a non-obsolet changeset based on another one.

:suspended:    an obsolete changeset with unstable descendant.

:extinct:      an obsolete changeset without unstable descendant

               (subject to garbage collection)

Another name for unstable could be out of sync.

Usage and Feature

=================

Display and Exchange

....................

obsolete changesets are hidden. (except if they have non obsolete changeset)

obsolete changesets are currently not exchange. This will probably change later

but it was the simpler solution for now.

New commands

............

a ``debugobsolete`` command has been added.

It add an obsolete relation between too relation.

Context object

..............

Context gain a ``obsolete`` method that return True if a changeset is obsolete

False otherwise.

revset

......

Add an ``obsolete()`` entry.

repo extension

..............

To Do

-----

* refuse to obsolete published changesets

* handle split

* handle conflict

* handle unstable // out of sync

"""

import os

try:

    from cStringIO import StringIO

except ImportError:

    from StringIO import StringIO

from mercurial.i18n import _

import base64

from mercurial import util

from mercurial import context

from mercurial import revset

from mercurial import scmutil

from mercurial import extensions

from mercurial import pushkey

from mercurial import discovery

from mercurial import error

from mercurial import commands

from mercurial import changelog

from mercurial import phases

from mercurial.node import hex, bin, short, nullid

from mercurial.lock import release

try:

    from mercurial.localrepo import storecache

    storecache('babar') # to trigger import

except (TypeError, ImportError):

    def storecache(*args):

        return scmutil.filecache(*args, instore=True)

### Patch changectx

#############################

def obsolete(ctx):

    """is the changeset obsolete by other"""

    if ctx.node()is None:

        return False

    return bool(ctx._repo.obsoletedby(ctx.node())) and ctx.phase()

context.changectx.obsolete = obsolete

def unstable(ctx):

    """is the changeset unstable (have obsolete ancestor)"""

    if ctx.node() is None:

        return False

    return ctx.rev() in ctx._repo._unstableset

context.changectx.unstable = unstable

def extinct(ctx):

    """is the changeset extinct by other"""

    if ctx.node() is None:

        return False

    return ctx.rev() in ctx._repo._extinctset

context.changectx.extinct = extinct

### revset

#############################

def revsetobsolete(repo, subset, x):

    """obsolete changesets"""

    args = revset.getargs(x, 0, 0, 'obsolete takes no argument')

    return [r for r in subset if r in repo._obsoleteset and repo._phaserev[r] > 0]

def revsetunstable(repo, subset, x):

    """non obsolete changesets descendant of obsolete one"""

    args = revset.getargs(x, 0, 0, 'unstable takes no arguments')

    return [r for r in subset if r in repo._unstableset]

def revsetsuspended(repo, subset, x):

    """obsolete changesets with non obsolete descendants"""

    args = revset.getargs(x, 0, 0, 'unstable takes no arguments')

    return [r for r in subset if r in repo._suspendedset]

def revsetextinct(repo, subset, x):

    """obsolete changesets without obsolete descendants"""

    args = revset.getargs(x, 0, 0, 'unstable takes no arguments')

    return [r for r in subset if r in repo._extinctset]

def _obsparents(repo, s):

    """obsolete parents of a subset"""

    cs = set()

    nm = repo.changelog.nodemap

    for r in s:

        for p in repo._obssubrels.get(repo[r].node(), ()):

            pr = nm.get(p)

            if pr is not None:

                cs.add(pr)

    return cs

def revsetobsparents(repo, subset, x):

    """obsolete parents"""

    s = revset.getset(repo, range(len(repo)), x)

    cs = _obsparents(repo, s)

    return [r for r in subset if r in cs]

def _obsancestors(repo, s):

    """obsolete ancestors of a subset"""

    toproceed = [repo[r].node() for r in s]

    seen = set()

    while toproceed:

        nc = toproceed.pop()

        for np in repo._obssubrels.get(nc, ()):

            if np not in seen:

                seen.add(np)

                toproceed.append(np)

    nm = repo.changelog.nodemap

    cs = set()

    for p in seen:

        pr = nm.get(p)

        if pr is not None:

            cs.add(pr)

    return cs

def revsetobsancestors(repo, subset, x):

    """obsolete parents"""

    s = revset.getset(repo, range(len(repo)), x)

    cs = _obsancestors(repo, s)

    return [r for r in subset if r in cs]

### Other Extension compat

############################

def buildstate(orig, repo, dest, rebaseset, detach):

    """wrapper for rebase 's buildstate that exclude obsolete changeset"""

    rebaseset = repo.revs('%ld - extinct()', rebaseset)

    return orig(repo, dest, rebaseset, detach)

def concludenode(orig, repo, rev, *args, **kwargs):

    """wrapper for rebase 's concludenode that set obsolete relation"""

    newrev = orig(repo, rev, *args, **kwargs)

    oldnode = repo[rev].node()

    newnode = repo[newrev].node()

    repo.addobsolete(newnode, oldnode)

    return newrev

def cmdrebase(orig, repo, ui, *args, **kwargs):

    oldkeep = kwargs.pop('keep', False)

    if oldkeep:

        ui.warn('WARNING --keep option ignored by experimental obsolete extension')

    kwargs['keep'] = True

    return orig(repo, ui, *args, **kwargs)

def extsetup(ui):

    revset.symbols["obsolete"] = revsetobsolete

    revset.symbols["unstable"] = revsetunstable

    revset.symbols["suspended"] = revsetsuspended

    revset.symbols["extinct"] = revsetextinct

    revset.symbols["obsparents"] = revsetobsparents

    revset.symbols["obsancestors"] = revsetobsancestors

    try:

        rebase = extensions.find('rebase')

        if rebase:

            extensions.wrapfunction(rebase, 'buildstate', buildstate)

            extensions.wrapfunction(rebase, 'concludenode', concludenode)

            extensions.wrapcommand(rebase.cmdtable, "rebase", cmdrebase)

    except KeyError:

        pass # rebase not found

# Pushkey mechanism for mutable

#########################################

def pushobsolete(repo, key, old, raw):

    """push obsolete relation through pushkey"""

    assert key == "relations"

    w = repo.wlock()

    try:

        tmp = StringIO()

        tmp.write(raw)

        tmp.seek(0)

        relations = _obsdeserialise(tmp)

        for sub, objs in relations.iteritems():

            for obj in objs:

                try:

                    repo.addobsolete(sub, obj)

                except error.RepoLookupError:

                    pass

        return 0

    finally:

        w.release()

def listobsolete(repo):

    """dump all obsolete relation in

    XXX this have be improved"""

    tmp = StringIO()

    _obsserialise(repo._obssubrels, tmp)

    return {'relations': base64.b64encode(tmp.getvalue())}

pushkey.register('obsolete', pushobsolete, listobsolete)

### Discovery wrapping

#############################

class blist(list, object):

    """silly class to have non False but empty list"""

    def __nonzero__(self):

        return bool(len(self.orig))

def wrapfindcommonoutgoing(orig, repo, *args, **kwargs):

    """wrap mercurial.discovery.findcommonoutgoing to remove extinct changeset

    Such excluded changeset are removed from excluded  and will *not* appear

    are excluded secret changeset.

    """

    outgoing = orig(repo, *args, **kwargs)

    orig = outgoing.excluded

    outgoing.excluded = blist(n for n in orig if not repo[n].extinct())

    # when no revision is specified (push everything) a shortcut is taken when

    # nothign was exclude. taking this code path when extinct changeset have

    # been excluded leads to repository corruption.

    outgoing.excluded.orig = orig

    return outgoing

### New commands

#############################

def cmddebugobsolete(ui, repo, subject, object):

    """Add an obsolete relation between a too node

    The subject is expected to be a newer version of the object"""

    sub = repo[subject]

    obj = repo[object]

    repo.addobsolete(sub.node(), obj.node())

    return 0

cmdtable = {'debugobsolete': (cmddebugobsolete, [], '<subject> <object>')}

### Altering existing command

#############################

def wrapmayobsoletewc(origfn, ui, repo, *args, **opts):

    res = origfn(ui, repo, *args, **opts)

    if repo['.'].obsolete():

        ui.warn(_('Working directory parent is obsolete\n'))

    return res

def uisetup(ui):

    extensions.wrapcommand(commands.table, "update", wrapmayobsoletewc)

    extensions.wrapcommand(commands.table, "pull", wrapmayobsoletewc)

    extensions.wrapfunction(discovery, 'findcommonoutgoing', wrapfindcommonoutgoing)

### serialisation

#############################

def _obsserialise(obssubrels, flike):

    """serialise an obsolete relation mapping in a plain text one

    this is for subject -> [objects] mapping

    format is::

        <subject-full-hex> <object-full-hex>\n"""

    for sub, objs in obssubrels.iteritems():

        for obj in objs:

            if sub is None:

                sub = nullid

            flike.write('%s %s\n' % (hex(sub), hex(obj)))

def _obsdeserialise(flike):

    """read a file like object serialised with _obsserialise

    this desierialize into a {subject -> objects} mapping"""

    rels = {}

    for line in flike:

        subhex, objhex = line.split()

        subnode = bin(subhex)

        if subnode == nullid:

            subnode = None

        rels.setdefault( subnode, set()).add(bin(objhex))

    return rels

### diagnostique tools

#############################

def unstables(repo):

    """Return all unstable changeset"""

    return scmutil.revrange(repo, ['obsolete():: and (not obsolete())'])

def newerversion(repo, obs):

    """Return the newer version of an obsolete changeset"""

    toproceed = set([obs])

    # XXX know optimization available

    newer = set()

    while toproceed:

        current = toproceed.pop()

        if current in repo._obsobjrels:

            toproceed.update(repo._obsobjrels[current])

        elif current is not None: # None is kill

            newer.add((current,))

        else:

            newer.add(())

    return sorted(newer)

### repo subclassing

#############################

def reposetup(ui, repo):

    if not repo.local():