| Server IP : 80.87.202.40 / Your IP : 216.73.216.169 Web Server : Apache System : Linux rospirotorg.ru 5.14.0-539.el9.x86_64 #1 SMP PREEMPT_DYNAMIC Thu Dec 5 22:26:13 UTC 2024 x86_64 User : bitrix ( 600) PHP Version : 8.2.27 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /lib64/python3.9/site-packages/mercurial/__pycache__/ |
Upload File : |
a
�+�bEn � @ s� d dl mZ d dlZd dlZd dlZd dlZd dlZd dlZd dlZd dl Z d dl
Z
d dl Z d dl Z d dl
Z
d dlZd dlZd dlZd dlZd dlZd dlZd dlZddlmZ ddlmZmZmZmZ ddl m Z m Z ddl m Z m!Z!m"Z"m#Z#m$Z$m%Z%m&Z&m'Z'm(Z(m)Z)m*Z*m+Z+m,Z,m-Z-m.Z.m/Z/m0Z0m1Z1m2Z2m3Z4m5Z5m6Z7m8Z8m9Z9m:Z:m;Z;m<Z<m=Z=m>Z>m Z m?Z?m@Z@mAZAmBZBmCZCmDZDmEZEmFZFmGZGmHZHmIZImJZJmKZKmLZLmMZNmOZOmPZPmQZQmRZSmTZTmUZVmWZWmXZX ddlYmZZZ dd l[m\Z\m]Z]m^Z^m_Z_m`Z`maZa dd
lbmcZdmeZemfZfmgZg e4jhZhi Ziei�jeLjkjl� e?�kei�Zkekd g ed �d
d�dd� �Zmekdg �dd� �Znekdg d�dd� �Zoekdddded�fd d ded �fd d ded!�fd"d#ded$�fged%���d�d'd(��Zp�d�d)d*�Zq�d�d+d,�Zr�d�d-d.�Zsd/d0� Zt�d�d1d2�Zuekd3d4d5ded6�fd"d7g ed8�fd"d9ded:�fged�d
d;��d�d<d=��Zvekd>g ed?�d
d;�d@dA� �ZwekdBdCgdD�dEdF� �ZxekdGg d"�dHdI� �ZyekdJd"dKdedL�fgdM�dNdO� �ZzdPdQ� Z{dRdS� Z|ekdTg d�dUdV� �Z}ekdWdXdYdedZ�fd[d\ded]�fd"d^ded_�fd`dadedb�fgedc�d
d��d�ddde��Z~ekdfe#jedg���d�dhdi��Z�ekdjdkdldedm�fgedn�d
d
do��d�dpdq��Z�ekdre#je#j� eds�d
d��d�dtdu��Z�ekdvd"dwdedx�fd"dyd
edz�fd"d{ded|�fd"d}d&ed~�fd"d5d&ed�fged���d�d�� �Z�ekd�d"d�ded��fd"d�ded��fd"d�g d�fd�d�d�ge#j� e#j� ed����d�d�d���Z�d�Z�ekd�d d�d"ed��fgd
d��d�d�d���Z�ekd�e#j�g d
d�d�d�� �Z�ekd�d�d�d"ed��edD�fd"d�d&ed��fd`d�ded��fd�d�g ed��ed��fged���d�d�� �Z�ekd�d"d�d"ed��ed�fd"d�d"ed��ed�fd"d�d&ed��fge#j� �d�d�� �Z�ekd�g e#j� �d�d�� �Z�ekd�g ed��d
d;��d�d�d���Z�ekd�d�d�g ed��ed��fd�d�g ed��ed��fdXd�d�edÃedăfgedŃd
d;��d�d�dDŽ�Z�ekd�g dɃd�d˄ �Z�ekd�e#je#j� eds���d�d�d΄�Z�ekd�e#jeds�d
d��d�d�dф�Z�ekd�g �d�dԄ �Z�ekd�g e#j� d"d
d;�d�dׄ �Z�ekd�g edكd
d;�d�dۄ �Z�ekd�g ed݃�d�d߄ �Z�ekd�d�d�ded�fd�d�ded�fd`d�ded�fd�d�ded�fged���d�d� �Z�ekd�d"d�d&ed�fd4d�g ed�ed�fgd"��d�d�d���Z�ekd�g e#j� d"�d�d�� �Z�ekd�g ed���d�d�� �Z�ekd�d"d�d&e�d �fd"�dd&e�d�fd"�dd&e�d�fd"�dd&e�d�fg��d�d� �Z�ek�d d"�d
d e�d �fd"�d d&e�d
�fd�d�g e�d�fd"�dd&e�d�fd"�dd&e�d�fd"�dg e�d�fge#j� e#j� e�d���d�d�d��Z�ek�dd�d�d"e�d�edD�fge�d���d�d � �Z�ek�d d�d�d"e�d�edD�fge�d���d �d � �Z�ek�d �d �d!de�d"�fd �d#de�d$�fd4�d%de�d&�fd��d'de�d(�fge�d)���d*�d+� �Z�ek�d,e#j��d-d
�d.��d/�d0� �Z�ek�d1g ed?�d
d;��d2�d3� �Z�ek�d4d�d�d"e�d5�edD�fd"�d6de�d7�fge#j� e#j� e�d8�d
�d.��d9�d:� �Z�ek�d;g e�d<�d
d;��d=�d>� �Z�ek�d?g e�d@���d�dA�dB��Z�ek�dCd�d�d"e�dD�edD�fd"�dEde�dF�fge�d���dG�dH� �Z�ek�dId"�dJd&e�dK�fgd"��dL�dM� �Z�ek�dNd�d�d"e�d�edD�fge�dO���dP�dQ� �Z�ek�dRg d"��dS�dT� �Z�ek�dUe#j�dV�dWd&e�dX�fg eds�d
d��d�dY�dZ��Z�ek�d[e#j�d �d\d e�d]�e�d^�fg e�d_�d
d��d�d`�da��Z�ek�dbd"�dcde�dd�fd"�ded
e�df�fd`�dgde�dh�fd�d�g ed��ed��fd"�did&e�dj�fd"�dkd&e�dl�fg�dm��dn�do� �Z�ek�dpd"�dqd&e�dr�fd"�dsd"e�dt�fd"�dud"e�dv�fgd"��dw�dx� �Z�ek�dyg e�dz���d�d{�d|��Z�ek�d}e#jedg���d�d~�d��Z�ek�d�g �d�d
d��d�d��d���Z�ek�d��d�ge#j� e�d����d��d�� �Z�ek�d�d�d�d"e�d��edD�fge�d����d�d��d���Z�ek�d�d
d��d��d�� �Z�ek�d�d"�d�d&e�d��fge�d����d��d�� �Z�ek�d�g ��d��d�� �Z�ek�d�d�d�g e�d��edD�f�d��d�g e�d��e�d��fge�d��d
d��d��d�� �Z�ek�d�d��d�d"e�d��e�d��fge�d��d
d;��d�d��d���Z�ek�d�d��d�d"e�d��e�d��fge�d��d
d;��d�d��d���Z�ek�d�g ��d��d�� �Z�ek�d�d �dcg e�d��ed��fd"�d�d&e�d��fd"�d�d
e�d��fd"�d�de�d��fd"�d�de�d��fd"�d�de�d��fg��d�d��d���Z�ek�d�e#j�e�d��d
�d.��d��d�� �Z�ek�d�g edD���dÐdĄ �Z�ek�d�g �dƢe#j� e�dǃd
d;��dȐdɄ �Z��dʐd˄ Z�ek�d�d"�d�d&e�dfd"�d�d"e�dЃfd"�d�d&e�d҃fd"�d�d&e�dԃfge#j� ed��d
d��d�dՐdք�Z�dS (� � )�absolute_importN� )�_)�bin�hex�nullrev�short)�getattr�open)5�bundle2�
bundlerepo� changegroup�cmdutil�color�context�copies� dagparser�
dirstateutils�encoding�error�exchange�
extensions� filemerge� filesetlang� formatter�hg�httppeer� localrepo�lock�
logcmdutil�
mergestate�metadata�obsolete�obsutil�pathutil�phases�policy�pvec�pycompat� registrar�repair�repoview� requirements�revlog�revset�
revsetlang�scmutil� setdiscovery� simplemerge�sshpeer�sslutil� streamclone�strip�tags� templater�
treediscovery�upgrade�url�util�vfs�wireprotoframing�wireprotoserver)�
repository)�cborutil� compression�dateutil�procutil�
stringutil�urlutil)�deltas�nodemap�rewrite�sidedatas
debugancestors [INDEX] REV1 REV2T)� optionalrepoc G s� t |�dkr8|\}}}t�tjt�� dd�|�}|j}nBt |�dkrl|sVt�t d���|\}}|j
}|j}nt�t d���|� ||�||��}| � d|�
|�t|�f � dS ) z<find the ancestor revision of two revisions in a given index� F��audit� �5 there is no Mercurial repository here (.hg not found)s& either two or three arguments requireds %d:%s
N)�lenr- �vfsmodr= r �getcwd�lookupr �Abortr � changelog�ancestor�write�revr ) �ui�repo�args�index�rev1�rev2�rrT �a� rb �=/usr/lib64/python3.9/site-packages/mercurial/debugcommands.py�
debugancestorx s
�rd s debugantivirusrunningc C s^ |j �dd�� }|�t�d�� W d � n1 s40 Y t�d� t�|j �d�� dS )z?attempt to trigger an antivirus scanner to see if one is activezeicar-test-file.com� wbsU ST#=}P$fV?P+K%yP+C|uG$>GBDK|qyDK~v2MM*<JQY}+dK~6+LQba95PE<)&Nm5l)EmTEQR4qnHOhq9iNGnJxNrO ) Zcachevfsr
rX r< Z b85decode�time�sleep�unlink�join)rZ r[ �frb rb rc �debugantivirusrunning� s ��"
rk s debugapplystreamclonebundles FILEc C s( t �| |�}t�| ||�}|�|� dS )z apply a stream clone bundle fileN)r �openpathr �
readbundle�apply)rZ r[ �fnamerj �genrb rb rc �debugapplystreamclonebundle� s rq �
debugbuilddag� ms mergeable-files! add single file mergeable changes� os overwritten-files" add single file all revs overwrite� ns new-files add new file at each rev� s
from-existings$ continue from a non-empty repositorys [OPTION]... [TEXT]Fc " sd |du r | � td�� | j�� }|j}t|�dkrD|sDt�td���d}t� |�D ]\} }
| dkrR|d7 }qR|r�d} dd � t
� d|| �D �} | � d
� g }
| j
td �td �|d
�}|��� |�� ��h |�� ��< |�d��� d}d}g �d}|�|� t� |�D �]�\} }
| dk�r\| �dt
�|
� � |
\}}g }i � d}|�r"d�||d }t|�dk�r�||d }|�|�}�fdd �|||fD �\}}}t�|||�}dd � t�|�d D �}|� d
� n"|dk�r�|� �� �d�}n| }||| d| 7 < d�|�} |� �� | � �< |�rBd�|� �� d| � �< |�r�d| �|� �� d| � �< t|�dk�r�|�s�||d }|D ],���d��r�|� �� |� �� � �< �q�� fdd �} t|�dk�s�|d dk �r�ddg} n2t|�dk�r
�|d dg} n�fd d �|D �} t j || d | || |dfd d |id!�} |� | �} �� | � |}n\| d"k�r�|
\}}!| �d#|! � |
� d$t |j� |��|!f � n | d%k�r�| �d&|
� |
}|�|� �q|
�r�|j!�"d'd
�|
�� W d � n1 �s�0 Y W d � n1 �s0 Y W d � n1 �s60 Y W d � n1 �sV0 Y dS )(a builds a repo with a given DAG from scratch in the current empty repo
The description of the DAG is read from stdin if not given on the
command line.
Elements:
- "+n" is a linear run of n nodes based on the current default parent
- "." is a single node based on the current default parent
- "$" resets the default parent to null (implied at the start);
otherwise the default parent is always the last node created
- "<p" sets the default parent to the backref p
- "*p" is a fork at parent p, which is a backref
- "*p1/p2" is a merge of parents p1 and p2, which are backrefs
- "/p2" is a merge of the preceding node and p2
- ":tag" defines a local tag for the preceding node
- "@branch" sets the named branch for subsequent nodes
- "#...\n" is a comment up to the end of the line
Whitespace between the above elements is ignored.
A backref is either
- a number n, which references the node curr-n, where curr is the current
node, or
- the name of a local tag you placed earlier using ":tag", or
- empty to denote the default parent.
All string valued-elements are either strictly alphanumeric, or must
be enclosed in double quotes ("..."), with "\" as escape character.
Ns reading DAG from stdin
r s repository is not emptyru r rO c S s g | ] }d | �qS )s %drb )�.0�irb rb rc �
<listcomp>� s z!debugbuilddag.<locals>.<listcomp>rv s buildings revisions)Zunit�totals builddag���� defaults node %s
s mfc s g | ]}|� � � �qS rb )�data)rw �x��fnrb rc ry s c S s g | ] }|� � �qS rb �r6 �rw �lrb rb rc ry s ��
s r%is ofs r%i
s nf%is nfc s |� v r t �| ||� | �S d S �N)r Z
memfilectx)r[ �cx�path)� filecontentrb rc �fctxfn: s
�z debugbuilddag.<locals>.fctxfnc s g | ] }� | �qS rb rb �rw �p)�nodeidsrb rc ry F rv � r%irr � branch)�date�userZextra� ls tag %s
� %s %s
� as
branch %s
s localtags)#�statusr �fin�readrV rQ r rU r Zparsedagr( �xrange�appendZ makeprogress�wlockr � transaction�update�note�bytestrrW r2 Z
Merge3TextZrender_minimizedr} �splitri �
startswithr ZmemctxZ commitctxr �noder= rX )"rZ r[ �textZmergeable_fileZoverwritten_fileZnew_fileZ
from_existing�clrz �typer} Z linesperrevZinitialmergedlinesr7 ZprogressZatZatbranch�idZps�files�p2�p1�pa�base�local�otherZm3�mlZ
mergedtextr� Zparsr� �nodeid�namerb )r� r� r� rc �
debugbuilddag� s� B
�
�.
� �
�
r� c s� d| �|rn�� d� � � ��fdd�}� �� |d� � �� |d� t� ji �D ]}|d }||� qVnZt� tj�r�t� t
d���� �� � � � D ].}|\} }
} } }
}}}�� d �t
| �f � q�d S )
N� s3 %sformat: id, p1, p2, cset, delta base, len(delta)
c
sl �� d�| f � � �� D ]L}|\}}}}}}}} �� d�t|�t|�t|�t|�t|�t|�f � qd S )Ns
%s%s
s %s%s %s %s %s %s %d
)rX � deltaiterr rQ )
Znamed� deltadatar� r� r� �cs� deltabase�delta�flagsrJ �rp �
indent_stringrZ rb rc �
showchunksi s ���z%_debugchangegroup.<locals>.showchunks� changelog� manifests filenames use debugbundle2 for this file� %s%s
)� writenoi18nZchangelogheaderZmanifestheader�iterZ
filelogheader�
isinstancer �
unbundle20r rU r r� rX r )rZ rp �all�indent�optsr� Z chunkdataro r� r� r� r� r� r� r� r� rJ rb r� rc �_debugchangegroupa s* �� r� c
K s� t �|�}|�� }d| }zt�|�\}}W nH tjyt } z.d} | ||jt|�f; } | � | � W Y d}~nvd}~0 0 d} | ||t|�f; } | � | � | �
d|�}
t |�D ].} t �
d| �} |
�� |
�|� t�|
| � q�|
�� dS )�/display version and markers contained in 'data'r� s% %sunsupported version: %s (%d bytes)
Ns %sversion: %d (%d bytes)
�
debugobsolete)r( � byteskwargsr� r" Z _readmarkersr ZUnknownVersion�versionrQ rX r �sortedr# Zmarker� startitem�plainr �
showmarker�end)
rZ �partr� r� r} r� r� �markers�exc�msg�fmZ rawmarker�mrb rb rc �_debugobsmarkers� s&
r� c C sV d| }t �|�}t jD ]8}|| D ]*}| �|� | �dt|�t j| f � q$qdS )r� r� r� N)r% Z binarydecodeZ allphasesrX r Z
phasenames)rZ r} r� r� Z headsbyphaseZphase�headrb rb rc �_debugphaseheads� s
r� c sB t � ttjtjf�r4dd�� fdd�t� �D �� S t� t
� ��S )Ns {%s}� , c 3 s | ]}d |� | f V qdS )s %s: %sNrb )rw �k��thingrb rc � <genexpr>� rv z _quasirepr.<locals>.<genexpr>) r� �dictr< Zsortdict� collections� OrderedDictri r� r( r� �reprr� rb r� rc �
_quasirepr� s
�r� c K s t |tj�st�td���| �dt|j� � |� dg �}|�
� D ]�}|rV|j |vrVqBd}| �||j t|j�|j f � |j dkr�|j� dd�}t
�||d�}| js�t| |f|d d
�|�� |j d kr�| js�t| |fd d i|�� |j d
krB| jsBt| |d d� qBdS )z lists the contents of a bundle2s not a bundle2 files Stream params: %s
Z part_types %s -- %s (mandatory: %r)
s changegroups versions 01s UN� )r� r� s
obsmarkersr� s phase-heads)r� N)r� r r� r rU r rX r� �params�getZ iterpartsr� Z mandatoryr
Z getunbundler�quietr� r� r� ) rZ rp r� r� Z parttypesr� r� r� Zcgrb rb rc �
_debugbundle2� s(
r� s debugbundler� � alls show all detailss part-types show only the named part types specs" print the bundlespec of the bundle)�norepoc K s� t �| |���}|r<t�| |�}| �d| � W d � dS t�| ||�}t|tj�rzt | |fd|i|��W d � S t
| |fd|i|�� W d � n1 s�0 Y dS )z lists the contents of a bundle� %s
Nr� ) r rl r Z
getbundlespecrX rm r� r r� r� r� )rZ �
bundlepathr� �specr� rj rp rb rb rc � debugbundle� s $r� s debugcapabilitiess PATHc
K s� t �|�}t�| ||�}z�|�� }| �d� t|�D ]}| �d| � q4t� |�}|r�| �d� tt �
|��D ].\}}| �d| � |D ]} | �d| � q�qnW |� � n
|� � 0 dS )z'lists the capabilities of a remote peers Main capabilities:
� %s
s Bundle2 capabilities:
s %s
N) r( r� r �peerZ capabilitiesr� r� rX r Z bundle2caps� iteritems�close)
rZ r� r� r� Zcaps�cZb2caps�key�values�vrb rb rc �debugcapabilities� s
r� s debugchangedfiles)rv s computeFs6 compute information instead of reading it from storages REVc K s t �||d�}d}|d r&t�|�}n.|j�|�� �}|�tj�}|durTt� |�}|du�r
t
|j �D ]�}||j v r|d} n4||j
v r�d} n$||jv r�d} n||jv r�d} nd} d}
d} ||jv r�d }
|j| } n||jv r�d
}
|j| } | |
|| f} d }
| �|
| � qhdS ) z,list the stored files changes for a revisionNZcompute� added� removeds mergeds salvageds touchedrv � p1� p2s %-8s %2s: %s, %s;
)r � revsingler! Zcompute_all_files_changesrV rJ rY r� ZSD_FILESZdecode_files_sidedatar� Ztouched�added�removedZmergedZsalvagedZcopied_from_p1Zcopied_from_p2rX )rZ r[ rY r� �ctxr� �sdZ files_blockrj �actionZ copy_parentZ copy_sourcer} �templaterb rb rc �debugchangedfiles� s<
r s debugcheckstatec C sz |j �� \}}|| �� }|| �� }d}|j �||�D ]&}| �|d |dd� � |d7 }q8|rvtd�}t�|��dS )z0validate the correctness of the current dirstater r Ns8 .hg/dirstate inconsistent with current parent's manifest)�dirstate�parents�manifestZverify�warnr r rU ) rZ r[ Zparent1Zparent2Zm1Zm2�errors�errZerrstrrb rb rc �debugcheckstate, s
r s
debugcolors styles show all configured styless
hg debugcolorc K s4 | � dt�| j� � |�d�r(t| �S t| �S dS )z&show available color, effects or styles color mode: %s
ZstyleN)r� rE �pprintZ
_colormoder� �_debugdisplaystyle�_debugdisplaycolor�rZ r[ r� rb rb rc �
debugcolor; s
r c C s� | � � } | j�� t�| ��� D ]}|| j|< q | jr�| �d�D ]B\}}|�d�rf|dd � | j|< q@|�d�r@|dd � | j|< q@| � t
d�� t | j� � dd� d �}|D ]\}}| j d
| |d � q�d S ) Ns colors color.� s terminfo.� s available colors:
c S s d| d v | d | d fS )N� _r r rb )rx rb rb rc �<lambda>V rv z$_debugdisplaycolor.<locals>.<lambda>�r� r� ��label)
�copy�_styles�clearr Z_activeeffects�keysZ_terminfoparams� configitemsr� rX r r� �items)rZ Zeffectr� r� r Z colornamer rb rb rc r
I s
r
c s� � � td�� � jsd S tdd� � jD ��}t� j�� �D ]p\}}� j d| |d� |r�� � d� � � dtd|t|� � � � � d �� fd
d�|�� D ��� � � d � q:d S ) Ns available style:
c s s | ]}t |�V qd S r� �rQ �rw �srb rb rc r� _ rv z%_debugdisplaystyle.<locals>.<genexpr>� %sr s : r� r r� c 3 s | ]}� � ||�V qd S r� r �rw �e�rZ rb rc r� f rv r� ) rX r r �maxr� r rQ ri r� )rZ �widthr Zeffectsrb r rc r [ s
"r s debugcreatestreamclonebundlec C sT t �|�r| �td�� t�|�\}}t�| ||� | �td�d� t
|�� � dS )z�create a stream clone bundle file
Stream bundles are special bundles that are essentially archives of
revlog files. They are commonly used for cloning very quickly.
s= (warning: stream clone bundle will contain secret revisions)
s bundle requirements: %s
r� N) r% Z hassecretr r r5 Zgeneratebundlev1r
Z writechunksrX ri r� )rZ r[ ro r, rp rb rb rc � debugcreatestreamclonebundlej s
��r# s debugdag� ts tagss use tags as labels� b� branchess annotate with branch namess dotss use dots for runs� ss spacess separate elements by spacess [OPTION]... [FILE [REV]...]c s� |� d�}|� d�}|rPt�tjt�� dd�|��dd� �D ����fdd�}nv|r�|j�|� d ��|� d
�� �r�i �|�� �� D ] \}} �� ��
| �g �� |� q�� ���fd d�}nt �
td ���tj|� |d
d
||dd�D ]}
| �|
� | �d� q�dS )a format the changelog or an index DAG as a concise textual description
If you pass a revlog index, the revlog's DAG is emitted. If you list
revision numbers, they get labeled in the output as rN.
Otherwise, the changelog DAG of the current repo is emitted.
�spaces�dotsFrM c S s h | ] }t |��qS rb )�int�rw r` rb rb rc � <setcomp>� rv zdebugdag.<locals>.<setcomp>c 3 sJ �D ]@} d| t dd� ��| �D ��ffV | � v rd| d| ffV qd S )Nru c s s | ]}|d kr|V qdS �r{ Nrb r� rb rb rc r� � rv �+debugdag.<locals>.events.<locals>.<genexpr>r� r� )�list�
parentrevs)r` )�revs�rlogrb rc �events� s "zdebugdag.<locals>.eventsr7 �branchesc 3 s� d} �D ]�}� r>�� ��|��d d }|| kr>d|fV |} d|tdd� ��|�D ��ffV �r��|�}|r|D ]}d||ffV qvqd S ) Nr| � r� r� ru c s s | ]}|d kr|V qdS r- rb r� rb rb rc r� � rv r. r� )r� r� r/ r0 r� )�br` ZnewbZlsr� )r4 r� �labelsr7 rb rc r3 � s
"
s need repo for changelog dagT�F )Z addspacesZ
wraplabelsZwrapannotationsZ
wrapnonlinearZusedotsZ maxlinewidthr� N)r� r- rR r= r rS rV r7 r �
setdefaultrY r� r rU r r Z dagtextlinesrX ) rZ r[ �file_r1 r� r( r) r3 r� �n�linerb )r4 r� r7 r1 r2 r7 rc �debugdag� s6
�
r= � debugdatas -c|-m|FILE REVc K s� t �|�}|�d�s(|�d�s(|�d�rL|dur@t�dtd���d| }}n|du rdt�dtd���t�|d||�}z| �|� |�
|��� W n$ t y� t� td�| ��Y n0 dS )z)dump the contents of a data file revisionr� r� � dirNr> � invalid arguments� invalid revision identifier %s)
r( r� r� r � CommandErrorr r � openstoragerX ZrawdatarT �KeyErrorrU )rZ r[ r: rY r� r` rb rb rc � debugdata� s
rE s debugdate� es extendeds try extended date formatss [-e] DATE [RANGE])r� rK c K sl |d rt �|t j�}n
t �|�}| �d| � | �dt �|� � |rht �|�}| �d||d � � dS )zparse and display a dateZextendeds internal: %d %d
s
standard: %s
s
match: %s
r N)rC � parsedateZextendeddateformatsr� ZdatestrZ matchdate)rZ r� �ranger� �dr� rb rb rc � debugdate� s
rJ � debugdeltachains
-c|-m|FILEc sL t �|�}t�|d||���j��j}�j}�j� t�dd�}� ��fdd�}| � d|�}|�
d� |rr|�
d� |�
d� i } �D �]�}
||
�\} } }
}}|d }| � |t | �d
�}||�}||
�}|| | }|| }z |d }W n t
y� d }Y n0 | d k�r t|�t| � }n|}|d k�r<t|�t|� }n|}|�� |jd
d|
|t |�||
| | ||||||
|t |�||
| | |||||d� |�r4d }d }d }t��|�D ]L} |d
7 }|| d �|| d � } | || d � } || 7 }|| k �r�| }�q�|�rt|�t|� } nd
} |jdd||| |||| |d�
|�
d� q�|�� dS )a dump information about delta chains in a revlog
Output can be templatized. Available template keywords are:
:``rev``: revision number
:``chainid``: delta chain identifier (numbered by unique base)
:``chainlen``: delta chain length to this revision
:``prevrev``: previous revision in delta chain
:``deltatype``: role of delta / how it was computed
:``compsize``: compressed size of revision
:``uncompsize``: uncompressed size of revision
:``chainsize``: total size of compressed revisions in chain
:``chainratio``: total chain size divided by uncompressed revision size
(new delta chains typically start at ratio 2.00)
:``lindist``: linear distance from base revision in delta chain to end
of this revision
:``extradist``: total size of revisions not part of this delta chain from
base of delta chain to end of this revision; a measurement
of how much extra data we need to read/seek across to read
the delta chain for this revision
:``extraratio``: extradist divided by chainsize; another representation of
how much unrelated data is needed to load this delta chain
If the repository is configured to use the sparse read, additional keywords
are available:
:``readsize``: total size of data read from the disk for a revision
(sum of the sizes of all the blocks)
:``largestblock``: size of the largest block of data read from the disk
:``readdensity``: density of useful bytes in the data read from the disk
:``srchunks``: in how many data hunks the whole revision would be read
The sparse read can be enabled with experimental.sparse-read = True
rK Z_withsparsereadFc s� �| }|d }|d }d}� rz|d |d kr6d}q�|d |d krLd}q�|d | d krbd }q�|d | krtd
}q�d }n|d | kr�d
}nd }�� | �d }|D ]}�| }||d 7 }q�|||||fS ) Nr rO r rL r5 r� r
r� s prevs base� other)Z _deltachain)rY r �compsize�
uncompsize� chainsize� deltatype�chainZiterrev�Z generaldeltar] r` rb rc �revinfo s, z debugdeltachain.<locals>.revinfoss rev chain# chainlen prev delta size rawsize chainsize ratio lindist extradist extraratios) readsize largestblk rddensity srchunksr� r r ���r{ sl rev chainid chainlen prevrev deltatype compsize uncompsize chainsize chainratio lindist extradist extraratios7 %7d %7d %8d %8d %7s %10d %10d %10d %9.5f %9d %9d %10.5f) rY �chainid�chainlen�prevrevrP rM rN rO �
chainratioZlindist� extradist�
extraratios* readsize largestblock readdensity srchunkss %10d %10d %9.5f %8d)�readsize� largestblock� readdensity�srchunksN)r( r� r �
openrevlogr] �start�lengthZ
_generaldeltar r r� r9 rQ �
IndexError�floatr� rX � deltautilZ
slicechunkr� ) rZ r[ r: r� r` ra ZwithsparsereadrS r� �
chainbasesrY �compZuncomprP rQ rO � chainbaserU Z basestartZrevstartZ
lineardistrY rW rX rZ r[ r\ r^ Z revschunkZblkendZblksizer] rb rR rc �debugdeltachain� s� )
�
�
�
rh s debugdirstate|debugstates nodatess+ do not display the saved mtime (DEPRECATED)s datess display the saved mtimes datesorts sort by saved mtimes dockets* display the docket (metadata file) insteads9 display dirstate-v2 tree nodes that would not exist in v1s [OPTION]...c K s |� d�r�|jjs t�td���|jjj}tj j
� |j �\}}}}}} }
| �
td�|j � | �
td�|j � | �
td�| � | �
td�| � | �
td�| � | �
td�| � | �
td �| � | �
td
�t�|
� � d S |d } |� d
�d u�rd} |� d�} | �r dd� }
nd }
t|jjj|d d��}|j|
d� |D ]�}|\}}}}}|dk�rld}n(| �rxd}n t�dt�|��}t�|�}|d@ �r�d}nd|d @ tj @ }| �
d |||||f � �qJ|j� � D ]$}| �
td �|j� |�|f � �q�d S ) z)show the contents of the current dirstate�dockets" dirstate v1 does not have a dockets size of dirstate data: %d
s data file uuid: %s
s start offset of root nodes: %d
s number of root nodes: %d
s nodes with entries: %d
s nodes with copies: %d
s number of unused bytes: %d
s ignore pattern hash: %s
NZdates�nodatesT�datesortc S s | \}}}}}||fS r� rb )�entry�filename�_state�_mode�_size�mtimerb rb rc �keyfunc� s zdebugstate.<locals>.keyfuncr� )r� r r{ s unset s set z%Y-%m-%d %H:%M:%S i s lnks %3oi� s %c %s %10d %s%s
s copy: %s -> %s
) r� r Z_use_dirstate_v2r rU r �_mapri r Zv2Z
TREE_METADATA�unpackZ
tree_metadatarX � data_sizeZuuid�binasciiZhexlifyr/ Z
debug_iter�sortrf �strftime� localtimer �
strtolocalr< �umaskr Zcopied)rZ r[ r� ri Z start_offsetZ
root_nodesZnodes_with_entryZnodes_with_copyZ unused_bytesZ_unusedZignore_patternrj rk rr �entriesrl rm �state�mode�sizerq Ztimestrrj rb rb rc �
debugstate� s^
��
r� � debugdiscovery� olds use old-style discovery� nonheadss/ use old-style discovery with non-heads included� revs& restrict discovery to this set of revs)rv � seeds 12323s) specify the random seed use for discovery)rv s
local-as-revsrv s+ treat local has having these revisions only)rv s remote-as-revsrv s4 use local as remote, with only these these revisionss [--rev REV] [OTHER]r| c $ sN t ������� }�d }�d }t�t�d �� |stt�d��|�\}}t� ��|�}��
t d�t� |� � nNdg f}t
�|d| g��t����fdd �} | tjd
< �� � }|j�d
�|_|�rt
�|d| g��t����fd d �}
|
tjd
< ��d
��i � ��d��r*|f� ���fdd� } n|f� ��fdd� } tj�||dd�\} }
�d }��d��}|j�r�tj� �fdd��}ntj}|� �J t� d�� }| || �\}}W d � n1 �s�0 Y W d � n1 �s�0 Y t |�}t |�}t �� � �}||@ }||@ }||@ |@ }�� d�}�� d|�}�� d|�}�� d|�} �� d| �} �� d | �} �� d ||�} �� d| �} �� d | �}!| |@ }"| | @ }#|j � d < t!|�� d < t!|�� d < t!|�� d!< t!|�� d"< t!|�� d#< t!|�� d$< t!|�t!|� � d%< t!|�� d&< t!|�t!|� � d'< t!|�� d(< t!|�� d)< t!| �� d*< t!| �� d+< t!| �� d,< t!| �� d-< t!| �� d.< t!|!�� d/< t!|"�� d0< t!|#�� d1< |�"� |j#f i t �$� ��� |�%d2� � |�%d3� � |�%d4� |�%d5� � |�%d6� � |�%d7� � |�%d8� � |�%d9� � |�%d:� � |�%d;� � |�%d<� � |�%d=� � |�%d>� � |�%d?� � |�%d@� � |�%dA� � |�%dB� � |�%dC� � |�%dD� � |�%dE� � |�%dF� � |�%dG� � |�%dH� � |�%dI� � |�%dJ� � �j&�rB|�%dKdL�'t(dMdN� |D ��� � |�)� dS )Oa� runs the changeset discovery protocol in isolation
The local peer can be "replaced" by a subset of the local repository by
using the `--local-as-revs` flag. Int he same way, usual `remote` peer can
be "replaced" by a subset of the local repository using the
`--local-as-revs` flag. This is useful to efficiently debug pathological
discovery situation.
The following developer oriented config are relevant for people playing with this command:
* devel.discovery.exchange-heads=True
If False, the discovery will not start with
remote head fetching and local head querying.
* devel.discovery.grow-sample=True
If False, the sample size used in set discovery will not be increased
through the process
* devel.discovery.grow-sample.dynamic=True
When discovery.grow-sample.dynamic is True, the default, the sample size is
adapted to the shape of the undecided set (it is set to the max of:
<target-size>, len(roots(undecided)), len(heads(undecided)
* devel.discovery.grow-sample.rate=1.05
the rate at which the sample grow
* devel.discovery.randomize=True
If andom sampling during discovery are deterministic. It is meant for
integration tests.
* devel.discovery.sample-size=200
Control the initial size of the discovery sample
* devel.discovery.sample-size.initial=100
Control the initial size of the discovery for initial change
s
local_as_revss remote_as_revsr� r� s comparing with %s
Ns not (::(%s))c s � S r� rb �r~ )�remote_filtered_revsrb rc � remote_func] s z#debugdiscovery.<locals>.remote_funcs debug-discovery-remote-filterc s � S r� rb r� )�local_filtered_revsrb rc �
local_funck s z"debugdiscovery.<locals>.local_funcs debug-discovery-local-filterr� c s� t �|d�st�|�� �}tj�|d�d�\}}}t|�}��d�s��� dd�
t dd� |D ��� � �j j
� ��d |�}� fd
d �|D �}||fS ) Nr& T)�forcerN r� s unpruned common: %s
r� c s s | ]}t |�V qd S r� �r �rw r; rb rb rc r� rv z/debugdiscovery.<locals>.doit.<locals>.<genexpr>s heads(::%ln)c s h | ] }� |��qS rb rb r+ �Zclnoderb rc r, � rv z/debugdiscovery.<locals>.doit.<locals>.<setcomp>)r< � safehasattrr Zlocallegacypeerr� r9 Zfindcommonincoming�setr� r� ri r� rV r� r1 )�
pushedrevs� remoteheads�remote�commonZ_in�hds)r} r� r[ rZ r� rc �doitt s �
�� z debugdiscovery.<locals>.doitc sH d }| r&t ��| �}�fdd�|D �}tj��||� d�\}}}||fS )Nc s g | ]}� | � � �qS rb �r� r+ �r[ rb rc ry � rv z0debugdiscovery.<locals>.doit.<locals>.<listcomp>)Z ancestorsofrN )r �revranger1 Zfindcommonheads)r� r� r� �nodesr1 r� �anyr� )r} r[ rZ rb rc r� � s
� )r1 r� c 3 s �� � d V ��� � d< d S )N� output)Z
pushbufferZ popbufferrb )r} rZ rb rc �may_capture_output� s z*debugdiscovery.<locals>.may_capture_outputzdebug-discoverys all()s ::%lns roots(::%ld)s not ::%lds
heads(%ld)s
roots(%ld)s not (::%ln or %ln::)s elapseds nb-common-headss nb-common-heads-locals nb-common-heads-remotes nb-common-heads-boths nb-common-rootss
nb-head-locals nb-head-local-missings nb-head-remotes nb-head-remote-unknowns nb-revss nb-revs-commons nb-revs-missings nb-missing-headss nb-missing-rootss
nb-ini_unds nb-ini_und-headss nb-ini_und-rootss nb-ini_und-commons nb-ini_und-missings# elapsed time: %(elapsed)f seconds
s- round-trips: %(total-roundtrips)9d
s heads summary:
s, total common heads: %(nb-common-heads)9d
s2 also local heads: %(nb-common-heads-local)9d
s3 also remote heads: %(nb-common-heads-remote)9d
s1 both: %(nb-common-heads-both)9d
s* local heads: %(nb-head-local)9d
s2 common: %(nb-common-heads-local)9d
s2 missing: %(nb-head-local-missing)9d
s+ remote heads: %(nb-head-remote)9d
s3 common: %(nb-common-heads-remote)9d
s3 unknown: %(nb-head-remote-unknown)9d
s$ local changesets: %(nb-revs)9d
s+ common: %(nb-revs-common)9d
s, heads: %(nb-common-heads)9d
s, roots: %(nb-common-roots)9d
s, missing: %(nb-revs-missing)9d
s- heads: %(nb-missing-heads)9d
s- roots: %(nb-missing-roots)9d
s' first undecided set: %(nb-ini_und)9d
s- heads: %(nb-ini_und-heads)9d
s- roots: %(nb-ini_und-roots)9d
s. common: %(nb-ini_und-common)9d
s/ missing: %(nb-ini_und-missing)9d
s common heads: %s
r� c s s | ]}t |�V qd S r� r� r� rb rb rc r� � rv z!debugdiscovery.<locals>.<genexpr>)*r( r� �
unfiltered�randomZseedr* rF �get_unique_pull_pathr r� r� r Z hidepasswordr r� � frozensetr+ Z filtertableZ_repoZfilteredr� �
addbranchrevsr Z
strict_format�
contextlib�contextmanagerr< �nullcontextmanagerZtimedcmr� �headsr1 �elapsedrQ r� r} � strkwargsr� �verboseri r� r� )$rZ r[ Z remoteurlr� �unfiZ
local_revsZ remote_revsr4 r� r� r� r� Z
remoterevsZ _checkoutZ localrevsr� r� �tr� r� Z heads_commonZ heads_remoteZ heads_localZheads_common_localZheads_common_remoteZheads_common_bothr� Z roots_common�missingZ
heads_missingZ
roots_missingZinitial_undecidedZheads_initial_undecidedZroots_initial_undecidedZcommon_initial_undecidedZmissing_initial_undecidedrb )r} r� r� r� r[ rZ rc �debugdiscovery� s� I
�
�
�
N
�
�
��r� i s
debugdownloadr� s pathc K sj t �| ||�}| }|r"t|dt�}z4|�t�}|rH|�|� |�t�}q.W |rf|�� n|rd|�� 0 dS )z4download a resource using Mercurial logic and configre N)�urlmodr
�
_chunksizer� rX r� )rZ r[ r; �outputr� �fh�destr} rb rb rc �
debugdownload� s
�r� � debugextensionsc
K s� t �|�}t�| �}t�� }| �d|�}t|t�d�d�D �]v\}}t� |�}d} t�
|d�rlt � |j �} nt
tdd�r~t j} |r�g }
nt
|dd ��� }
t
|d
d�} |�� | js�| jr�|�d d |� nR|�d d
|� |s�||
v r�|�d� n,|
�s|�td�� n|
d } |�d| � |�| j�o(| dtd�| �p8d � | j�r^|�td�ddg| � |j|d� |�| j�ox|
dtd�|j|
dd�� |�| j�o�| d td �| �p�d � q:|�� dS ) z(show information about active extensionsr� r r N�__file__�oxidizedFZ
testedwithrv Zbuglink� namer� r r� s
(untested!)
r{ s (%s!)
s sources location: %s
s bundled: %s
� no� yes)Zbundleds
testedwiths tested with: %s
s ver�r� s buglinks bug reporting: %s
)r( r� r r< r� r r� �operator�
itemgetterZismoduleinternalr� �fsencoder� r �sys�
sysexecutabler� r� r� r� rX r� r � condwriter} �
formatlistr� )
rZ r[ r� Zexts�hgverr� ZextnameZextmodZ
isinternalZ extsourceZ
exttestedwithZ
extbuglinkZlasttestedversionrb rb rc �debugextensions s^
�
�
�r� s debugfileset� rs# apply the filespec on this revisions all-filess3 test files from all revisions and working directorys show-matchers( print internal representation of matcher� ps
show-stages$ print parsed tree at the given stages NAMEs+ [-r REV] [--all-files] [OPTION]... FILESPECc K sD ddl m} |j t�|�}t�||�d�d�}dtjfdt j
fdt j fg}dd � |D �}t � }| j
rx|d
sx|�d� |d
d gkr�|�|� n6|d
D ] } | |vr�t�td �| ��q�|�|d
� t �|�}
|D ]L\} } | |
�}
| |v r�|d
�s| dk�r| �d
| � | �t �|
�d� q�t � } |d �rb|D ](}
||
}| �|�� � | �|j� �q8|d �sz|�� du �r�|d }| �|jjt� |�t |j�ddd�� | �|j� n| �|�� � | �|j� |� |� � |�}|d �s |d du �r| j
�r| � dt!�"|�d� t#| �D ]"} || ��s.�q | �d| � �q dS )z'parse and apply a fileset specificationr )�filesetr� N� parsed� analyzed� optimizedc S s h | ] \}}|�qS rb rb �rw r; rj rb rb rc r, � rv z debugfileset.<locals>.<setcomp>�
show_stager� � invalid stage name: %s� * %s:
r� s all_filesT)Zsubrepos�unknown�ignoreds show_matcher� * matcher:
r� )$� r� Zsymbolsr( r� r r� r� �identityr �analyze�optimizer� r� �addr� r rU r �parserX � prettyformatr� �substaterY r �walkr0 Zmatchallr/ Z matchfilesetrS r� rE �
prettyreprr� )rZ r[ �exprr� r� r� �stages�
stagenames�
showalwaysr; �treerj r� r` r� Zwctxr� rb rb rc � debugfilesetU sf "
�
��
r� s debug-repair-issue6528s to-reports1 build a report of affected revisions to this files from-reports+ repair revisions listed in this report files paranoids3 check that both detection methods do the same thingc K sr t �|dddg� |�d�}|�d�}|�d�}|�d�}tj|jvrXd}t�t|���tj | |||||d� dS )a find affected revisions and repair them. See issue6528 for more details.
The `--to-report` and `--from-report` flags allow you to cache and reuse the
computation of affected revisions for a given repository across clones.
The report format is line-based (with empty lines ignored):
```
<ascii-hex of the affected revision>,... <unencoded filelog index filename>
```
There can be multiple broken revisions per filelog, they are separated by
a comma with no spaces. The only space is between the revision(s) and the
filename.
Note that this does *not* mean that this repairs future affected revisions,
that needs a separate fix at the exchange level that was introduced in
Mercurial 5.9.1.
There is a `--paranoid` flag to test that the fast implementation is correct
by checking it against the slow implementation. Since this matter is quite
urgent and testing every edge-case is probably quite costly, we use this
method to test on large repositories as a fuzzing method of sorts.
� to_report� from_report�dry_run�paranoids9 can only repair revlogv1 repositories, v2 is not affected)r� r� r� r� N)
r Z check_incompatible_argumentsr� r, ZREVLOGV1_REQUIREMENTr rU r rI Zrepair_issue6528)rZ r[ r� r� r� r� r� r� rb rb rc �debug_repair_issue6528� s$ 2
�
�r� � debugformatc s� t �|�}tdd� tjD ��� ttd�� �� � fdd�}| �d|�}|�� rVdd� }nt j}|� d� |� d � td� � |� d
� | j
r�|� d � |� d � tjD ]�}|� � |� |�}|�
|�}||kr�d
} d}
n ||jkr�d} d}
nd} d}
|jd||j�|j| d� |jdd||�|
d� |j|k�r6d} nd} |j| j
dd||�| d� |j| j
dd ||j�d d� |� d � q�|�� d S ) z�display format information about the current repository
Use --verbose to get extra information about current config value and
Mercurial default.c s s | ]}t |j�V qd S r� )rQ r� )rw �fvrb rb rc r� rv z debugformat.<locals>.<genexpr>s format-variantc s dd� t | � S )Ns %s:r� r r� �Zmaxvariantlengthrb rc �makeformatname
s z#debugformat.<locals>.makeformatnamer� c S s t �| d�r| S | rdS dS d S )Ns
startswithr� r� )r< r� ��valuerb rb rc � formatvalue s
z debugformat.<locals>.formatvaluer� s repos config defaultr� s! formatvariant.name.mismatchconfigs! formatvariant.repo.mismatchconfigs" formatvariant.name.mismatchdefaults" formatvariant.repo.mismatchdefaults formatvariant.name.uptodates formatvariant.repo.uptodater� r s repos %3ss formatvariant.config.specials formatvariant.config.defaults configs %6sr| s %7ss formatvariant.defaultN)r( r� r! r: ZallformatvariantrQ r Zisplainr� r� r� r� ZfromrepoZ
fromconfig�defaultrX r� r� r� ) rZ r[ r� r� r� r� r� Z repovalueZ configvalueZ namelabelZ repolabelZ configlabelrb r� rc � debugformat s^
�� r� s debugfsinfos [PATH]� .c C s | � d| � | � dt�|�p d � | � dt�|�r:dp<d � | � dt�|�pTd � | � dt�|�rndppd � | � d t�|�r�dp�d � d}zFtjd
|d ��$}t� |j
�r�dp�d}W d � n1 s�0 Y W n t y� Y n0 | � d
| � d S )z2show information detected about current filesystems path: %s
s mounted on: %s
s (unknown)s exec: %s
r� r� s fstype: %s
s symlink: %s
s
hardlink: %s
s .debugfsinfo)�prefix�dirNs case-sensitive: %s
) r� r< ZgetfsmountpointZ checkexecZ getfstypeZ checklinkZ
checknlinkr( Z
namedtempfileZfscasesensitiver� �OSError)rZ r� Z
casesensitiverj rb rb rc � debugfsinfoH s& � ��6 r� s debuggetbundle� Hs heads id of head nodes ID� Cs commons id of common node� type� bzip2s bundle compression type to uses TYPEs REPO FILE [-H|-C ID]...c K s� t �|�}t�| ||�}|�d�s,t�d��i }|rFdd� |D �|d< |r\dd� |D �|d< d|d < |jdi |��}|�d d �� � } d
dddd�}
|
�| �} | t
j vr�t�t d���t
�
| ||| � dS )z�retrieves a bundle from a repo
Every ID must be a full-length hex node id string. Saves the bundle to the
given file.
s getbundles. getbundle() not supported by target repositoryc S s g | ] }t |��qS rb �r r rb rb rc ry | rv z"debuggetbundle.<locals>.<listcomp>r� c S s g | ] }t |��qS rb r� r rb rb rc ry ~ rv r� NZ
bundlecaps� debugr� r� s HG10UNs HG10BZs HG10GZs HG20)s noner� s gzips bundle2s) unknown bundle type specified with --type)r� )r( r� r r� �capabler rU Z getbundler� �lowerr Z bundletypesr Z writebundle) rZ �repopathr� r� r� r� r[ r\ ZbundleZ
bundletypeZbtypesrb rb rc �debuggetbundle` s*
�
r� s debugignores [FILE]c O s0 |j j}|s$| �dt�|� � �ntj|d |d�}tj|dd�}|�� D ]�}t �
|�}d} d}
|dkr�||�r�|} |j � |�}
n,t �
|�D ] } || �r�| } |j � | �}
q�q�| �r| |kr�| �td�||� � n| �td�||�| f � |
\} }
}| �td �| |
|f � qL| �td
�||� � qLdS ) a display the combined ignore pattern and information about ignored files
With no argument display the combined ignore pattern.
Given space separated file names, shows if the given file is ignored and
if so, show the ignore rule (file and line number) that matched it.
r� N)�patsT)Zlegacyrelativevaluer� s %s is ignored
s1 %s is ignored because of containing directory %s
s# (ignore rule in %s, line %d: '%s')
s %s is not ignored
)r �_ignorerX r( Zbytereprr0 �matchZ getuipathfnr� r< �normpathZ_ignorefileandliner$ Zfinddirsr )rZ r[ r� r� �ignorer� Zuipathfnrj Znfr� Z
ignoredatar� Z
ignorefile�linenor< rb rb rc � debugignore� sF
�
��
��r �
debugindexc K s t �|�}t�|d||�}| jr&t}nt}d}|D ]}t||�|���} qNq2| � d|�}|�
dd� |�d� |�f � |D ]�} |�| �}
|� |
�} |�
� |�dd| � |�dd |�| �� |�d
d ||
�� |�dd || d �� |�d
d|| d �� |�
d� q||�� dS )z'dump index data for a storage primitiver � � rev linkrev %s %s p2
� nodeidr� r� s %6d s linkrevs %7d � nodes %s r r� r r r� N)r( r� r rC � debugflagr r rQ r� r r� �ljustr r� rX �linkrevr� ) rZ r[ r: r� �store�shortfn�idlenrx r� rY r� r rb rb rc �
debugindex� s4
��
r �
debugindexdotc K s� t �|�}t�|d||�}| �d� |D ]^}|�|�}|�|�}| �d|�|d �|f � |d |j kr(| �d|�|d �|f � q(| �d� dS )z(dump an index DAG as a graphviz dot filer s digraph G {
s
%d -> %d
r r s }
N)
r( r� r rC r� r� r rX rY �nullid)rZ r[ r: r� r` rx r� �pprb rb rc �
debugindexdot� s
r s debugindexstatsc C sb |j �|jd� |j j}t�|d�s2t�td���t |�
� � � �D ]\}}| � d||f � qBdS )z)show stats related to the changelog indexr s statss+ debugindexstats only works with native codes %s: %d
N)
rV Zshortestr r] r< r� r rU r r� Zstatsr rX )rZ r[ r] r� r� rb rb rc �debugindexstats� s r � debuginstallc "
K s t �|�}d}| �d|�}|�� |�ddtj� d}zt�t �tj�� W n6 t y� } z t
� |�}|d7 }W Y d}~n
d}~0 0 |� |dd|� d}t
�td �r�tj�t �tj��}nttd
d �r�t j}|�d td
�t jp�td�� |�dtd�t �t�� �� |�dtd�dtjdd� � |�dtd�|�p<td�� zddl m } |j W n t �yn d}Y n0 t t!j"�}t!j#�r�|�$d� |�dtd�|j%t&|�dd d d �� d |v�r�|�'td �� d|v�r�|�'td!�� |�'td"|du �r�d#nd$ �� t
�(� } |�d%td&�| �)d'�d � |�d(td)�d'�*| �)d'�dd� �� d}
t
�tj+t, d ��rvtj�t �t��}
nttd
d ��r�t j}
|�d*td+�t-j-� |�d,td-�|
�p�td�� t-j-d.v } | }t-j-d/v �p�| } | �p�|}
|
�r�d}zd| �r(dd0l.m/}m0}m1}m2} t3|�t3|�t3|�t3|�f |�rNdd1l m4}m5} t3|�t3|�f W n8 t6�y� } z t
� |�}|d7 }W Y d}~n
d}~0 0 |� |d2d3|� t
j7j8�9� }|�d4td5�|j%t&d6d7� |D ��d8d d9d �� |�d:td;�|j%t&d<d7� |D ��d8d d9d �� t:j7�;t:j<�}|�d=td>�|j%d?d@� |D �d8d d9d �� d#}t
j=�rJdA}|�'tdB�| � |j>t?t
j=�dC� t@�A� }|�dDdE|�p�dF� |� | dFtdG�� |�rBt@�BdH�\}}|�rd}zt@j@�C|� W n4 t6�y } zt
� |�}d}W Y d}~n
d}~0 0 |� |dId3|� nd}|� |dJtdK�|� |� | dLtdM�dN� |�sP|d7 }|� | dFtdO�� | �D� }t
�E|�}tF�G|�d }|�dPtdQ�|� tF�H|�} |� | �o�|dRkdStdT�| �o�|dRk�o�|� |� | �o�|dRkdUtdV�| �o�|� | �s|dRk�r|d7 }d} d}z | �I� } W n6 tJjK�y\ } z| jL}|d7 }W Y d} ~ n
d} ~ 0 0 |� | dWtdX�| � |� |dYtdZ�|� tM�M� D ].\} } t| d[d�}!|!du�r�||!| |�7 }�q�|� | dFtd\�� |�s�|j>|d]� |� |d^td_�|� |�N� |S )`z;test Mercurial installation
Returns 0 on success.
r r s encodings checking encoding (%s)...
Nr s
encodingerrors. %s
(check that your locale is properly set)
r� r� Fs pythonexes checking Python executable (%s)
s unknowns pythonimplementations$ checking Python implementation (%s)
s pythonvers checking Python version (%s)
s %d.%d.%drL s pythonlibs checking Python lib (%s)...
)�rustexts snis pythonsecuritys& checking Python security support (%s)
s protocolr � ,)r� �fmt�seps tls1.2sT TLS 1.2 not supported by Python install; network connections lack modern security
sV SNI not supported by Python install; may have connectivity issues with some servers
s checking Rust extensions (%s)
� missings installeds hgvers checking Mercurial version (%s)
� +s
hgverextras% checking Mercurial custom build (%s)
s hgmodulepolicys checking module policy (%s)
s hgmoduless# checking installed modules (%s)...
)s rust+cs rust+c-allow)� cs allow)�base85�bdiff�mpatch�osutil)rW r s extensionserrors %s
s compenginess- checking registered compression engines (%s)
c s s | ]}|� � V qd S r� r� r rb rb rc r� � rv z debuginstall.<locals>.<genexpr>s
compenginer� s compenginesavails, checking available compression engines (%s)
c s s | ]}|� � r|�� V qd S r� )Z availabler� r rb rb rc r� � rv s compenginesservers> checking available compression engines for wire protocol (%s)
c S s g | ]}|� � r|�� �qS rb )Zwireprotosupportr� r rb rb rc ry � rv z debuginstall.<locals>.<listcomp>s availables" checking "re2" regexp engine (%s)
)�re2s templatedirss checking templates (%s)...
rv s no template directories found
s map-cmdline.defaults defaulttemplateerrors defaulttemplates checking default template (%s)
s defaulttemplatenotfounds template '%s' not found
r| s5 (templates seem to have been installed incorrectly)
s editors checking commit editor... (%s)
s vis
vinotfoundsf No commit editor set and can't find %s in PATH
(specify a commit editor in your configuration file)
s editornotfoundsV Can't find editor '%s' in PATH
(specify a commit editor in your configuration file)
s usernames checking username (%s)
s
usernameerrorsJ checking username...
%s
(specify a username in your configuration file)
� debuginstalls no problems detected
)�problemss problemss1 %d problems detected, please check your install!
)Or( r� r r� rX r �codecsrT �sysstr� LookupErrorrE � forcebytestrr� r< r� �osr� �dirnamer� r� r r� r� r Zsysbytes�platformZpython_implementation� version_infor� r �__doc__� ImportErrorr� r4 ZsupportedprotocolsZhassnir� r� r� r� r� r� ri �modules�__name__r& �cextr r r r! r� rW r � Exception� compenginesZ_enginesr� rB ZsupportedwireenginesZ
SERVERROLEZ_re2r} �boolr8 Z templatedirZtry_open_templateZ frommapfileZ geteditorZ
expandpathrD Z
shellsplitZfindexe�usernamer rU �messager r� )"rZ r� r$ r� r �instZ pythonlibr Zsecurityr� Z hgmodulesZrustandcr1 Znopurer r r r! rW r r3 Zwirecompenginesr" r� r� �fpZeditorZ editorbinZcmdpathr5 r r� �modZhandlerrb rb rc r#
s�
� � �� �
�
��
�����
�� � �
��
��
�� ��
�� �
��
�
�
���
�r# s
debugknowns
REPO ID...c O sb t �|�}t�| ||�}|�d�s,t�d��|�dd� |D ��}| �dd� dd� |D �� � dS ) z�test whether node ids are known to a repo
Every ID must be a full-length hex node id string. Returns a list of 0s
and 1s indicating unknown/known.
s knowns* known() not supported by target repositoryc S s g | ] }t |��qS rb r� r rb rb rc ry A rv z debugknown.<locals>.<listcomp>r� rv c S s g | ]}|rd pd�qS )� 1� 0rb �rw rj rb rb rc ry B rv N)
r( r� r r� r� r rU ZknownrX ri )rZ r� Zidsr� r[ r� rb rb rc �
debugknown6 s
r= s debuglabelcompletes LABEL...c G s t | |g|�R � dS )zEbackwards compatibility with old bash completion scripts (DEPRECATED)N)�debugnamecomplete)rZ r[ r\ rb rb rc �debuglabelcompleteE s r? s
debuglocks� Ls force-free-locks free the store lock (DANGEROUS)� Ws force-free-wlocks' free the working state lock (DANGEROUS)s set-locks set the store lock until stopped� Ss set-wlocks( set the working state lock until stoppedc sN |� d�r|j�d� |� d�r,|j�d� |� d�s@|� d�rDdS g }z�|� d�r�z|�|�d�� W n" tjy� t�t d���Y n0 |� d �r�z|�|�
d�� W n" tjy� t�t d
���Y n0 t |�r�� t d �� W t
|� dS W t
|� n
t
|� 0 t�� � d}� �fd d
�}|||jd|j
�7 }|||jd|j�7 }|S )a� show or modify state of locks
By default, this command will show which locks are held. This
includes the user and process holding the lock, the amount of time
the lock has been held, and the machine name where the process is
running if it's not local.
Locks protect the integrity of Mercurial's data, so should be
treated with care. System crashes or other interruptions may cause
locks to not be properly released, though Mercurial will usually
detect and remove such stale locks automatically.
However, detecting stale locks may not always be possible (for
instance, on a shared filesystem). Removing locks may also be
blocked by filesystem permissions.
Setting a lock will prevent other commands from changing the data.
The command will wait until an interruption (SIGINT, SIGTERM, ...) occurs.
The set locks are removed when the command exits.
Returns 0 if no locks are held.
Zforce_free_locks lockZforce_free_wlocks wlockr Z set_wlockFs wlock is already heldZset_locks lock is already helds& ready to release the lock (y)? $$ &Yesc
s z |d�}W n t jy$ d }Y n0 |r4|�� n�z�| �|�}� |tj }t�|j�}| � |�}d|v r�|�
d�\}} |t � � kr�d|p�d| f }nd|p�d| |f }��
d|d ||f � W dS ty� }
z|
jtjkr� W Y d }
~
n
d }
~
0 0 ��
d|d � d S )
NF� :s user %s, process %ss Nones user %s, process %s, host %ss %-6s %s (%ds)
r s
%-6s free
r )r �LockHeld�release�lstat�stat�ST_MTIMEr< r5 �st_uidZreadlockr� �socketZ gethostnamer� r� �errno�ENOENT) r= r� �methodr� �stZager� Zlocker�host�pidr �ZnowrZ rb rc �report� s6
� zdebuglocks.<locals>.report)r� ZsvfsZ tryunlinkr= r� r� r rD rU r r rQ Z promptchoicerE rf )rZ r[ r� �locksZheldrR rb rQ rc �
debuglocksK s< -
�"rT s debugmanifestfulltextcaches clears clear the caches adds) add the given manifest nodes to the caches NODErb c s� � fdd�}|� d�rR� �� �$ |� }|jdd� W d � dS 1 sH0 Y |� r� �� �� � j}|�d�}|D ]X}z||�|� } W n8 tjy� }
z tjt |
�dd ��W Y d}
~
n
d}
~
0 0 | �
� qvW d � dS 1 � s�0 Y |� }t |��s| � t
d
�� n�| � t
d �t |�f � d } |D ]D} |�| �}
t |
�}| |d
7 } | � t
d�t| �t�|�f � �q2|j�d�j}| � t
d�t�| �t�|�f � dS )z@show, clear or amend the contents of the manifest fulltext cachec s> � j �d�} z| jW S ty8 td�}t�|��Y n0 d S )Nrv sO Current revlog implementation doesn't appear to have a manifest fulltext cache
)� manifestlog�
getstorageZ_fulltextcache�AttributeErrorr r rU )r` r� r� rb rc �getcache� s �z,debugmanifestfulltextcache.<locals>.getcacher T)Zclear_persisted_dataNrv s Check your manifest node id��hints cache empty
sF cache contains %d manifest entries, in order of most to least recent:
r � s id: %s, size %s
s manifestfulltextcaches% total cache data size %s, on-disk %s
)r� r� r rU rV rT r r' rU �bytesr� rQ rX r �peekr r< Z bytecount�_openerrG �st_size)rZ r[ r� r� rX �cacher� r
r; r r � totalsizer� r} r Zondiskrb r� rc �debugmanifestfulltextcache� sV
�
"
���
���rb � debugmergestatec O s | j r\t�|�}|�� }|�� }|s*|s*n2|s:| �d� n"|�||�rR| �d� n
| �d� t�|�}|d svd|d< tj� |�}| �
d|�}|� � |� d�}|�
� �rd|jd fd
|jd ffD ]T\} }
} |� � |j| d � |jt|
�d
� |jr�t|j�| kr�|j|j| d� q�|�� |� d�} |�
� �r~|D �]B}
| � � | j|
d� |j|
}| j|d d� |d tjtjfv �r�| j|d d� | j|d d� | j|d d� | j|d d� | j|d d� | j|d d � | j|d d � n6|d tjtjfv �r*| j|d d � | j|d d � | � d!�}t|�|
�� � �D ]*\}}|� � |j|d"� |j|d#� �qF|�� �q8| �� |� d!�}tt� |� � ��D ]Z\}
}|
|v �r��q�t� |�D ]6\}}|� � |j|
d$� |j|d"� |j|d#� �qq�|�� |�� d%S )&zpprint merge state
Use --verbose to print out information about whether v1 or v2 merge state
was chosen.s no version 2 merge state
s! v1 and v2 states match: using v2
s$ v1 and v2 states mismatch: using v1
� templates� {if(commits, "", "no merge state found
")}{commits % "{name}{if(label, " ({label})")}: {node}
"}{files % "file: {path} (state \"{state}\")
{if(local_path, " local path: {local_path} (hash {local_key}, flags \"{local_flags}\")
ancestor path: {ancestor_path} (node {ancestor_node})
other path: {other_path} (node {other_node})
")}{if(rename_side, " rename side: {rename_side}
renamed path: {renamed_path}
")}{extras % " extra: {key} = {value}
"}"}{extras % "extra: {file} ({key} = {value})
"}rc s commitss localr rL r r� r� r s files)r� )r} )Z local_keyrO )Z
local_pathrL )Z
ancestor_pathr� )Z
ancestor_noder5 )�
other_pathr
)Z
other_node� )Z local_flags)Z renamed_path)Z rename_sides extrasr r� )�fileN) r� �
mergestatemodr Z_readrecordsv1Z_readrecordsv2r� Z
_v1v2matchr( r� r� r r� �nestedZactiver� r� r} r Z_labelsrQ r� rn ZMERGE_RECORD_UNRESOLVEDZMERGE_RECORD_RESOLVEDZ MERGE_RECORD_UNRESOLVED_PATHZMERGE_RECORD_RESOLVED_PATHr� �extrasr r� Z allextras)rZ r[ r\ r� �msZ v1recordsZ v2recordsr� Z
fm_commitsr� r� Z label_indexZfm_filesrj r} Z fm_extrasr� r� rI rb rb rc �debugmergestate s�
�
�
��
rl s debugnamecompletes NAME...c s� t � }t�|j�D ] \}}|dkr|�|�|�� q|�dd� |�� �� D �� t � }|s`dg}|D ] � |�� fdd�|D �� qd| �d� t
|��� | �d� dS )z:complete "names" - tags, open branch names, bookmark namesr& c s s | ]\}}}}|s|V qd S r� rb )rw �tagr� Ztip�closedrb rb rc r� ~ s
�z$debugnamecomplete.<locals>.<genexpr>rv c 3 s | ]}|� � �r|V qd S r� )r� r� �ra rb rc r� � rv r� N) r� r( r� �namesr� Z listnamesZ branchmapZ iterbranchesrX ri r� )rZ r[ r\ rp r� �nsZ completionsrb ro rc r> t s
�r> s debugnodemaps dump-news1 write a (new) persistent binary nodemap on stdouts dump-disks dump on-disk data on stdouts checks- check that the data on disk data are correct.s metadatas- display the on disk meta data for the nodemapc K sz |d rJ|� � }|j}t�|jd�r0|j�� }n t�|j�}| �|� �n,|d r�|� � }|j}t� |�}|dur�|\}}| �|dd� � n�|d r�|� � }|j}t� |�}|dur�|\}}t�
| |j|�S n�|d �rv|� � }|j}t� |�}|du�rv|\}}| �d|j � | �d|j � | �d t
|j� � | �d
|j � | �d |j � |jd |j }| �d
| � dS )z!write and inspect on disk nodemapZdump_new�nodemap_data_allZ dump_diskN�checkr! s uid: %s
s tip-rev: %d
s
tip-node: %s
s data-length: %d
s data-unused: %d
� Y@s data-unused: %2.3f%%
)r� rV r< r� r] rr rH Zpersistent_datarX Zpersisted_dataZ
check_data�uidZtip_revr Ztip_nodeZ data_lengthZ data_unused) rZ r[ r� r� r� r} Znm_datari Z unused_percrb rb rc � debugnodemap� sD
rv r� � flagss markers flags record-parentss+ record parent information for the precursors display markers relevant to REV� exclusives0 restrict display to markers only relevant to REV� indexs display index of the marker� deletes# delete markers specified by indicess [OBSOLETED [REPLACEMENT ...]]c
sT t �|�}�fdd��|�d�r�g }|�d�D ]D}z|�t|�� W q. typ tjtd�| td�d��Y q.0 q.�� � r�t�
td����� � �0 t �
�j|�}| �td�| � W d � n1 s�0 Y d S |d u�rL|d
r�t�d ��i }t�|d �p
| �� �|d < t�fd
d�|D ��} �� � }
�z
��d�} z�z�|�d�} | �r^t�| �} nd } �|�}
d }|d �r�|
��� v�r�t�
d����� |
�� }tdd� |D ��}�jj| |
| |d || || d� | �� W n> t�y } z$t�
td�t� |� ��W Y d }~n
d }~0 0 W | � � n
| � � 0 W |
� � n
|
� � 0 �n|d
�r�t � �|d
�}�fdd�|D �}t t!j"�||d d��}|j#dd � d � n
t!�"��}|}d d � }|�d
��r�|�d ��r�t!�"��}t$|�� � fd d �}| �%d|�}t&|�D ]D\}}||��s�q|�'� |�d ��r0|nd }t(j)|||d!� �q|�*� d S )"zccreate arbitrary obsolete marker
With no arguments, displays the list of obsolescence markers.c sF z$t | �}t|�� jjkr t� �|W S ty@ t�d��Y n0 d S )Ns> changeset references must be full hexadecimal node identifiers)r rQ Z
nodeconstantsZnodelen� TypeErrorr �
InputError)r r; r� rb rc � parsenodeid� s �z"debugobsolete.<locals>.parsenodeidrz s invalid index value: %rs use integers for indicesrY s6 cannot delete obsmarkers in the middle of transaction.s deleted %i obsolescence markers
Nr� s+ cannot select revision when creating markers userc 3 s | ]}� |�V qd S r� rb )rw Zsucc)r} rb rc r�
rv z debugobsolete.<locals>.<genexpr>r� s dates record_parentss2 cannot used --record-parents on unknown changesetsc s s | ]}|� � V qd S r� r� r� rb rb rc r� )
rv rw )r r� r! rZ s bad obsmarker input: %sc s g | ]}� | � � �qS rb r� r+ r� rb rc ry @
rv z!debugobsolete.<locals>.<listcomp>rx )r� Z exclusivec S s | j S r� )�_datar� rb rb rc r F
rv z debugobsolete.<locals>.<lambda>r c S s dS )NTrb �r� rb rb rc r K
rv ry c s | � v S r� rb r )� markersetrb rc r O
rv )r] )+r( r� r� r� r* �
ValueErrorr r| r ZcurrenttransactionrU r r* ZdeleteobsmarkersZobsstorerX r Z fromlocalr5 �tupler� rC rG r� r Zcreater� rE r( rE r r� r/ r# Z
getmarkersrw r� r � enumerater� r r� r� )rZ r[ Z precursorZ
successorsr� �indicesr� r; r! Zsuccsr� �trr� Zprecr r� r1 r� r� Z
markerstoiterZ
isrelevantr� rx r� Zindrb )r� r} r[ rc �
debugobsolete� s�
��
0
�
��
�
��
r� s
debugp1copiess revision to debugs [-r REV]c K sL t �|�}tj||�d�dd�}|�� �� D ]\}}| �d||f � q,dS )z$dump copy information compared to p1r� N�r� � %s -> %s
)r( r� r0 r� r� Zp1copiesr rX �rZ r[ r� r� �dst�srcrb rb rc �
debugp1copiesb
s
r� s
debugp2copiesc K sL t �|�}tj||�d�dd�}|�� �� D ]\}}| �d||f � q,dS )z$dump copy information compared to p2r� Nr� r� )r( r� r0 r� r� Zp2copiesr rX r� rb rb rc r� p
s
s debugpathcomplete� fs fulls complete an entire paths normals show only normal filesr� s show only added filesr� s show only removed filess FILESPEC...c s� ��fdd�}d}�d r"|d7 }�d r2|d7 }�d rB|d 7 }�� � � |sTd
g}t� t� }}|D ]*}|||ptd �\} }
|�| � |�|
� qf|�|� | �d �� �fd
d�t|�D ��� | �d � dS )a) complete part or all of a tracked path
This command supports shells that offer path name completion. It
currently completes only files already known to the dirstate.
Completion extends only to the next path segment unless
--full is specified, in which case entire paths are used.c s8 �j }tj�tj�t�� | ��}�jtj }|�jkrH|�
|�sHg g fS tj� |�r\|d7 }|t |�d � }tj dk}|r�|�
tj d�}t |�}� d }t� t� }} | j|j }
} t�|�D ]p\} }
| �
|�r�|
j|v r�|r�| �
dtj �} |� r�| | � q�| �tj |�}|dk�r&|
| d |� � q�| | � q�|| fS )N� /Zfullr )r r) r� r ri r rS �rootr( �ossepr� �isdirrQ �replacer� r� r� r} �find)r� �
acceptabler r� ZrootdirZfixpathsZspeclenZ fullpathsr� �dirsZadddirZaddfilerj rN r )r� r[ rb rc �complete�
s6
z#debugpathcomplete.<locals>.completerv Znormals nmr� r� r� r� r� s nmarr� c 3 s | ]}�� |� �V qd S r� )�pathtor� )�cwdr[ rb rc r� �
rv z$debugpathcomplete.<locals>.<genexpr>N)rS r� r� rX ri r� ) rZ r[ Zspecsr� r� r� r� r� r� rj rI rb )r� r� r[ rc �debugpathcomplete~
s&
$r� s debugpathcopiess# hg debugpathcopies REV1 REV2 [FILE])Z inferrepoc O s\ t �||�}t �||�}t �|||�}tt�|||��� �D ]\} }
| �d|
| f � q<dS )z!show copies between two revisionsr� N)r0 r� r r� r Z
pathcopiesr rX ) rZ r[ r^ r_ r� r� Zctx1Zctx2r� r� r� rb rb rc �debugpathcopies�
s
r� s debugpeerc C s� ddi}| � |��� t�| i |�}zz|�� du}|�� }| �td�|�� � | �td�|rdtd�ntd� � | �td�|r�td�ntd� � W |�� n
|�� 0 W d � n1 s�0 Y dS ) z+establish a connection to a peer repository)s devels debug.peer-requestTNs url: %s
s
local: %s
r� r� s
pushable: %s
) �configoverrider r� r� �canpushrX r r; r� )rZ r� � overridesr� r� r� rb rb rc � debugpeer�
s � "�r� s debugpickmergetools check for files in this revision� changedeletes! emulate merging change and deletes [PATTERN]...c O sl t �|�}i }|d r:|d |d< | �dt �|d � � | �|d��� tj�d�}|durr| �dt �|� � | �dd �}|r�| �d
t �|� � t �
||�d ��}t � |||�}|d } |� |�D ]~}
||
} | j
s�| jd
d�nt�� �4 t�|| |
| �� d| �� v | �\} }
W d � n1 �s*0 Y | �d|
| f � q�W d � n1 �s^0 Y dS )af examine which merge tool is chosen for specified file
As described in :hg:`help merge-tools`, Mercurial examines
configurations below in this order to decide which merge tool is
chosen for specified file.
1. ``--tool`` option
2. ``HGMERGE`` environment variable
3. configurations in ``merge-patterns`` section
4. configuration of ``ui.merge``
5. configurations in ``merge-tools`` section
6. ``hgmerge`` tool (for historical reason only)
7. default tool for fallback (``:merge`` or ``:prompt``)
This command writes out examination result in the style below::
FILE = MERGETOOL
By default, all files known in the first parent context of the
working directory are examined. Use file patterns and/or -I/-X
options to limit target files. -r/--rev is also useful to examine
files in another context without actual updating to it.
With --debug, this command shows warning messages while matching
against ``merge-patterns`` and so on, too. It is recommended to
use this option with explicit file patterns and/or -I/-X options,
because this option increases amount of output per file according
to configurations in hgrc.
With -v/--verbose, this command shows configurations below at
first (only if specified).
- ``--tool`` option
- ``HGMERGE`` environment variable
- configuration of ``ui.merge``
If merge tool is chosen before matching against
``merge-patterns``, this command can't show any helpful
information, even with --debug. In such case, information above is
useful to know why a merge tool is chosen.
s tool)� uis
forcemerges with --tool %r
s debugmergepatternss HGMERGENs with HGMERGE=%r
r� s merges with ui.merge=%r
r� r� T)r r� s %s = %s
)r( r� �
notenoi18nr� r� r �environr� Zconfigr0 r� r r� r
�silentr< r� r Z _picktoolZisbinaryr� rX )rZ r[ r� r� r� ZhgmergeZuimerger� r� Z changedeleter� �fctxZtoolZtoolpathrb rb rc �debugpickmergetool�
s@ 5
���
�(r� s debugpushkeys REPO NAMESPACE [KEY OLD NEW]c
O s� t �| i |�}z�|r�|\}}}|�� �*} | �d||||d���� }
W d � n1 sV0 Y | �t�|
�d � |
W |�� S t t�
|� |���D ]&\} } | � dt
�| �t
�| �f � q�W |�� n
|�� 0 dS )z�access the pushkey key/value protocol
With two args, list the keys in the given namespace.
With five args, set a key to new if it currently is set to old.
Reports success or failure.
s pushkey)s namespaces keyr� s newNr� s %s %s
)r r� �commandexecutor� callcommand�resultr� r( r� r� r� r� ZlistkeysrX rE � escapestr)
rZ r� � namespaceZkeyinfor� �targetr� �old�newr r` r� r� rb rb rc � debugpushkeyB s0
��&
� ��r� s debugpvecs A Bc C s� t �||�}t �||�}t�|�}t�|�}||kr:d}n(||krHd}n||k rVd}n ||B rbd}| �td�| � | �td�| � | �td�|j|jf � | �td�t|j|j �t�|j |j �|�
|�|f � d S ) N� =� >� <� |s a: %s
s b: %s
s depth(a): %d depth(b): %d
s. delta: %d hdist: %d distance: %d relation: %s
) r0 r� r' ZctxpvecrX r Z_depth�absZ_hammingZ_vecZdistance) rZ r[ ra r6 �ca�cbr� Zpb�relrb rb rc � debugpvecg s0
���r� s& debugrebuilddirstate|debugrebuildstates revision to rebuild tos minimalsE only rebuild files that are inconsistent with the working copy parentc s� t �||�}|�� �| |j� d}|�d�rlt|�� �� �}t� �}|| }|| } � fdd�| D �}
||
B }� �|� � |�� |� W d � n1 s�0 Y dS )a� rebuild the dirstate as it would look like for the given revision
If no revision is specified the first current parent will be used.
The dirstate will be set to the files of the given revision.
The actual working directory content or existing dirstate
information such as adds or removes is not considered.
``minimal`` will only rebuild the dirstate status for files that claim to be
tracked but are not in the parent manifest, or that exist in the parent
manifest but are not in the dirstate. It will not change adds, removes, or
modified files that are in the working copy parent.
One use of this command is to make the next :hg:`status` invocation
check the actual file content.
NZminimalc s h | ]}� � |�js|�qS rb )Z get_entryr� r< �r rb rc r, � rv z'debugrebuilddirstate.<locals>.<setcomp>)
r0 r� r� r r� r� r r Zrebuildr� ) rZ r[ rY r� r� Z changedfilesZ
manifestfilesZ
dirstatefilesZ manifestonlyZdsonlyZ
dsnotaddedrb r� rc �debugrebuilddirstate� s !
r� s debugrebuildfncaches only-datas* only look for wrong .d files (much faster)c K s" t �|�}t�| ||�d�� dS )zrebuild the fncache files only_dataN)r( r� r* Zrebuildfncacher� r rb rb rc �debugrebuildfncache� s
r� s debugrenames [-r REV] [FILE]...c
O s� t �|�}t�||�d��}t�|||�}|�|�D ]d}|| }|�� �|� � �}|�
|�} |r�| � t d�| |d t
|d �f � q4| � t d�| � q4dS )zdump rename informationr� s %s renamed from %s:%s
r r s %s not renamed
N)r( r� r0 r� r� r r� ZfilelogZrenamedZfilenoder� rX r r )
rZ r[ r� r� r� r� r� r� �or� rb rb rc � debugrename� s
&r� s debugrequires|debugrequirementsc C s" t |j�D ]}| �d| � q
dS )z#print the current repo requirementsr� N)r� r, rX )rZ r[ r` rb rb rc �debugrequirements� s r� � debugrevlog� d� dumps dump index datac E sL
t �|�}t�|d||�}|�d��r8t|�}| �d� d}t� }t �|�D ]�}|� |�} | dkrf|} |�
|�}
|� |�} |� |�\} }
|�
|�}|| }|t|� |��8 }|�|� z||�|� }W n ty� d}Y n0 | �d|| |
|�|�|�|�|�| �|�|
�|�| �|�|
�|||t|�| f � qLdS |j}|j}g }d}|tj@ �rb|�d� |tj@ �r|d }|�d
� |�s�d g}d}d}d}d}d}d}t�d d
� �}d}d} d} d} d} d} g }!g }"g }#g d�}$g d�}%g d�}&t�dd
� �}'g d�}(i })i }*dd� }+t|�}t �|�D �]�}|� |�\} }
|� |�},|dk�rZ|+|�
|�|$� |
tk�rl|d7 }|�|�}-|,tk�r�|!�d� |"�|�|�� |#�|-� |-dk�r�|d7 }|d7 }n0|d7 }|d d7 < |+|-|%� |+|-|'d � �n&|!�|!|, d � |"|, }.|�|�}/|"�|.� |#�|/|. |- � |-dk�rP|d7 }|d7 }n�|� |��r�|+|-|&� |d7 }|� |�}0||0 d7 < |+|-|'|0 � n�|+|-|(� |,|d k�r�|d7 }|,| k�r�| d7 } n|,|
k�r| d7 } n:|,| k�r�| d7 } n&|,|
k�r| d7 } n|,tk�r| d7 } t � |d��r:|� ||�d }1n|j!� ||�d }1|1�rdt"|1dd� �}2nd}2|2|)v�r�d|)|2< d|*|2< |)|2 d7 < |*|2 |-7 < �q"|$|%|&|(fD ] }-|-d du �r�d|-d< �q�|| | | }3|| | }4|$d }5|$d | < |%d }6|dk�r d|%d< n|%d | < |&d }7i }8|dk�rV|&d | < |'D ].}0|'|0 d |8|0< |'|0 d ||0 < �qZ|(d }9|3dk�r�|(d |3 < |6|7 |9 }:t#|!�| };t$|!�}<t$|#�}=d}>|:�r�|5|: }>d� d�� fdd�}?dB�fdd � }@d d � }A| �%d | � | �%d d!�&|� � | �d"� |@|:�}B|?|:�}C| �%d#|C| � | �%d$|B|A||� � | �%d%|B|A|| |� � | �%d#|C| � | �%d&|B|A||� � | �%d'|B|A||| � � | �%d(|B|A||| � � | �%d)|B|A|| |� � t'|�D ]&}0| �d*|0 |B|A||0 |� � �q| �%d+|B|A|3|� � | �%d,|C|: � | �%d)|B|A|6|7 |:� � t'|�D ]&}0| �d*|0 |B|A|8|0 |:� � �q�| �%d+|B|A|9|:� � d-d.� }D| �d"� | �%d/|C| � t'|)�D ],}2| �|D|2�� | �|B|A|)|2 |� � �q�| �%d0|C|: � t'|)�D ],}2| �|D|2�� | �|B|A|*|2 |:� � �qB| �d"� |?t$|;|<|=|>��}B| �%d1|B|; � | �%d2|B|< � | �%d3|B|= � | �%d4|B|> � |dk�r�| �d"� | �%d5t(|$� � | �%d6t(|%� � | �%d7t(|&� � t'|'�D ]0}0|0dk� r8� q&| �%d8|0ft(|'|0 � � � q&| �%d9t(|(� � |3dk�
rH| �d"� |@|3�}B|@|3d:�}C| �%d;|B|A||3� � |dk� r�| �%d<|C|A| |� � | �%d=|C|A| |� � | �%d>|C|A|4|� � |�
rH| �%d?|B|A| |3� � | �%d@|B|A| |3� � | �%dA|B|A| |3� � dS )Cz'show data and statistics about a revlogr� r� se # rev p1rev p2rev start end deltastart base p1 p2 rawsize totalsize compression heads chainlen
r r{ s: %5d %5d %5d %5d %5d %10d %4d %4d %4d %7d %9d %11d %5d %8d
Fs inlineTs generaldeltas (none)c S s dS )Nr rb rb rb rb rc r 6 rv z debugrevlog.<locals>.<lambda>�Nr r c S s g d�S )Nr� rb rb rb rb rc r M rv c S sH |d d u s| |d k r | |d< | |d kr4| |d< |d | 7 < d S )Nr r rO rb )r r� rb rb rc �addsizeR s
z debugrevlog.<locals>.addsizer s _getsegmentforrevs� emptyNrO s %%%dd
s %%%dd %s(%%5.2f%%%%)
c s � t t| �� S r� �rQ �str)r! )� basedfmtstrrb rc �dfmtstr� s z debugrevlog.<locals>.dfmtstrc s � t t| ��d| f S )Nr� r� )r! Zpadding)� basepcfmtstrrb rc �pcfmtstr� s z debugrevlog.<locals>.pcfmtstrc S s$ |r| dt | � | fS | dfS d S )N�d rt )rc )r� rz rb rb rc �pcfmt� s zdebugrevlog.<locals>.pcfmts format : %d
s flags : %s
r� r� s revisions : s merges : s normal : s empty : s text : s delta : s snapshot : s lvl-%-3d : s deltas : s revision size : c S s@ | dkrd| S | t �tj�v r0dt| �| f S dt| � S d S )Nr� s
%s : s 0x%s (%s) : s 0x%s : )r( r� �string�
ascii_lettersr )� chunktyperb rb rc � fmtchunktype� s
z!debugrevlog.<locals>.fmtchunktypes chunks : s chunks size : s avg chain length : s max chain length : s max chain reach : s compression ratio : s4 uncompressed data size (min/max/avg) : %d / %d / %d
s4 full revision size (min/max/avg) : %d / %d / %d
s4 inter-snapshot size (min/max/avg) : %d / %d / %d
s5 level-%-3d (min/max/avg) : %d / %d / %d
s4 delta size (min/max/avg) : %d / %d / %d
r� s deltas against prev : s where prev = p1 : s where prev = p2 : s other : s deltas against p1 : s deltas against p2 : s deltas against other : )r ))r( r� r r_ r� rQ rX r� r� Z deltaparentrg rV r0 �rawsizer� r� �ZeroDivisionErrorr` Z_format_versionZ
_format_flagsr- ZFLAG_INLINE_DATAr� ZFLAG_GENERALDELTAr� � defaultdictr ra Z
issnapshotZ
snapshotdepthr< r� Z_getsegmentforrevs�_revlogr\ �sumr! r� ri r� r� )ErZ r[ r: r� r` Znumrevs�tsr� rY ZdbaseZcbaseZclenr� r� ZrsrB �formatr� r� ZgdeltaZ nummergesZnumemptyZ numemptytextZ
numemptydeltaZnumfullZnumsemiZ numsnapdepthZnumprevZnump1Znump2ZnumotherZ nump1prevZ nump2prevZ chainlengthsre Z
chainspansZdatasizeZfullsizeZsemisizeZ
snapsizedepthZ deltasizeZchunktypecountsZchunktypesizesr� r� r ZbaseaddrZrevaddr�depthZsegmentr� Z numdeltasZnumoprevZ totalrawsizeZ fulltotalZ semitotalZ snaptotalZ
deltatotalra Z avgchainlenZ maxchainlenZ maxchainspanZ compratior� r� r� r Zfmt2r� rb )r� r� rc � debugrevlog� s<
�
���
������ ��� ��
������
����
�
������r� � debugrevlogindex� formats
revlog formats FORMATs [-f FORMAT] -c|-m|FILEc K sn t �|�}t�|d||�}|�dd�}|dvr@t�td�| ��| jrLt }nt
}d}|D ]}t ||� |���} qtqX|dkr�| j
r�| �dd�|�d �|�f � q�| �d
d�|�d �|�f � n8|d kr�| j
r�| �d d�|� � n| �d
d�|� � |D �]h}|� |�} |dk�r�z|�| �}
W n t�yF |j|jg}
Y n0 | j
�r�| �d||�|�|�|�|�|�|| �||
d �||
d �f � n2| �d||�|�|| �||
d �||
d �f � q�|d kr�|�|�} | j
�r.| �d||�|�|�|�|�|�|�|�|�|�| d | d || �f � q�| �d||�|�|�|�|�|�| d | d || �f � q�dS )z#dump the contents of a revlog indexr� r� r )r r s unknown format %dr s* rev offset length linkrev %s %s p2
r r� r r s? rev flag offset length size link p1 p2 %s
s- rev flag size link p1 p2 %s
s % 6d % 9d % 7d % 7d %s %s %s
s % 6d % 7d %s %s %s
s+ % 6d %04x % 8d % 8d % 8d % 6d % 6d % 6d %s
s! % 6d %04x % 8d % 6d % 6d % 6d %s
N)r( r� r r_ r� r rU r r
r r rQ r� r� r� r �rjustr r2 r rX r` ra r r0 r� r� ) rZ r[ r: r� r` r� r r rx r� r Zprrb rb rc �debugrevlogindexF
s�
��������
���
���
������r� s debugrevspec� optimizes/ print parsed tree after optimizing (DEPRECATED)s show-revss( print list of result revisions (default)s show-sets+ print internal representation of result sets no-optimizeds" evaluate tree without optimizations verify-optimizeds verify optimized results REVSPECc s� t �|�}��d�� ddd� fd� �fdd�fdtjfdtjfd tjfg}|d
r^|d d � }|d
r||d
r|t�t d���dd� |D �}t
� }t
� }�j r�|d s�|� d� |�
ddg� |d r�|� d � |d r�|d r�t�t d���|d dgk�r|�
|� n:|d D ]"}||v�rt�t d�| ���q|�
|d � i } d }
tj|t�|�d�} |D ]p\}} | | � | |< } ||v �s�||v �rb| |
k�rb|d �s�|dk�r���d| � ��t�| �d� | }
�qb|d
�r<t�| d �|�}
t�| d �|�}|d �s"|d d u �rJ�j �rJ��dt�|
�d� ��dt�|�d� t|
�}
t|�}|
|k�rhd S �jd d d � �jd d!d � t�d |
|�}|�� D ]�\}}}}}|d"v �r�|
||� D ]}�jd#| d$d � �q�|d%v �r|||� D ]}�jd&| d'd � �q�|d(k�r�|
||� D ]}��d)| � �q �q�d*S t�| �}||�}|d �sn|d d u �r��j �r���d+t�|�d� |d, �s�d S |D ]}��d-| � �q�d S ).a� parse and apply a revision specification
Use -p/--show-stage option to print the parsed tree at the given stages.
Use -p all to print tree at every stage.
Use --no-show-revs option with -s or -p to print only the set
representation or the parsed tree respectively.
Use --verify-optimized to compare the optimized result with the unoptimized
one. Returns 1 if the optimized result differs.
s revsetaliasr� c S s | S r� rb �r� rb rb rc r �
rv z debugrevspec.<locals>.<lambda>s expandedc s t �| � �j�S r� )r/ �
expandaliasesr r� ��aliasesrZ rb rc r �
rv s concatenatedr� r� s no_optimizedNr{ s verify_optimizeds1 cannot use --verify-optimized with --no-optimizedc S s h | ] \}}|�qS rb rb r� rb rb rc r, �
rv z debugrevspec.<locals>.<setcomp>r� r� s' cannot use --optimize with --show-stager� r� �rT r� r� s show_sets * analyzed set:
s * optimized set:
r s
--- analyzed
s diff.file_ar s +++ optimized
s diff.file_b)�deleter� s -%d
s diff.deleted)�insertr� s +%d
s
diff.insertedZequals %d
r s * set:
s show_revss %d
)r( r� r r/ Z
foldconcatr� r� r rU r r� r� r� r� r� r. ZlookupfnrX r� Z makematcherr� rE r� r/ �difflibZSequenceMatcherZ get_opcodes)rZ r[ r� r� r� r� r� Z showchangedr; Z treebystageZ printedtreer� rj ZarevsZbrevsZsmrm ZaloZahiZbloZbhir� �funcr1 rb r� rc � debugrevspec�
s� -
��
�
� �
r� �
debugserve� sshstdios* run an SSH server bound to process handles� logiofds$ file descriptor to log server I/O to� logiofiles file to log server I/O toc
K s� t �|�}|d s t�td���d}|d rB|d rBt�td���|d r�zt�t|d �dd�}W q� ty� } z0|j t j
kr�� t�t|d �d d�}W Y d}~q�d}~0 0 n|d r�t |d d
d�}t j
| ||d �}|�� dS ) z�run a server with advanced settings
This command is similar to :hg:`serve`. It exists partially as a
workaround to the fact that ``hg serve --stdio`` must have specific
arguments for security reasons.
r� s& only --sshstdio is currently supportedNr� r� s) cannot use both --logiofd and --logiofile�abr �wbs ab)�logfh)r( r� r rU r r) �fdopenr* r� rK ZESPIPEr
r? Z sshserverZ
serve_forever)rZ r[ r� r� r r rb rb rc �
debugserve> s"
.r� s debugsetparentss REV1 [REV2]c C sZ t �||��� }t �||d��� }|�� � |�||� W d � n1 sL0 Y dS )a� manually set the parents of the current working directory (DANGEROUS)
This command is not what you are looking for and should not be used. Using
this command will most certainly results in slight corruption of the file
level histories withing your repository. DO NOT USE THIS COMMAND.
The command update the p1 and p2 field in the dirstate, and not touching
anything else. This useful for writing repository conversion tools, but
should be used with extreme care. For example, neither the working
directory nor the dirstate is updated, so file status may be incorrect
after running this command. Only used if you are one of the few people that
deeply unstand both conversion tools and file level histories. If you are
reading this help, you are not one of this people (most of them sailed west
from Mithlond anyway.
So one last time DO NOT USE THIS COMMAND.
Returns 0 on success.
s nullN)r0 r� r� r� Z
setparents)rZ r[ r^ r_ Znode1Znode2rb rb rc �debugsetparentsp s
r� s
debugsidedatac K s( t �|�}|�d�s(|�d�s(|�d�rL|dur@t�dtd���d| }}n|du rdt�dtd���t�|d||�}t|d|�}z|� |�
|��}W n$ t y� t� td�| ��Y n0 |�r$t
|�� �}|�� | �d t|� � |D ]8\}}| �d
|t|�f � | jr�| �d t�|� � q�dS ) zcdump the side data for a cl/manifest/file revision
Use --verbose to dump the sidedata content.r� r� r? Nr> r@ r� rA s %d sidedata entries
s entry-%04o size %d
r� )r( r� r� r rB r r rC r rJ rT rD rU r/ r rw r� rQ r� rE r ) rZ r[ r: rY r� r` rJ r� r� rb rb rc �
debugsidedata� s*
r� � debugssls [SOURCE]c K sv t jst�td���|s.|s*t�td���d}t�d|| |�\}}t�|�}ddd�}|j|v r�z |j t
|j pv||j �f}W q� t y� t�td���Y q�0 nt�td ���d
d l
m} tjt�� tjtjd d
�} z�| �|� | �d�}
| �td�|j � |j|
dd�} | �sN| �td�� |�|
��s>| �td�� n| �td�� n| �td�� W | �� n
| �� 0 d S )a test a secure connection to a server
This builds the certificate chain for the server on Windows, installing the
missing intermediates and trusted root via Windows Update if necessary. It
does nothing on other platforms.
If SOURCE is omitted, the 'default' path will be used. If a URL is given,
that server is used. See :hg:`help urls` for more information.
If the update succeeds, retry the original operation. Otherwise, the cause
of the SSL error is likely another issue.
s6 certificate chain building is only possible on Windowss> there is no Mercurial repository here, and no server specifiedr| r� i� � )s httpss sshs malformed port number in URLs, only https and ssh connections are supportedr )�win32N)Z ssl_versionZ cert_reqsZca_certsTs& checking the certificate chain for %s
F)Zbuilds- certificate chain is incomplete, updating... s failed.
s done.
s$ full certificate chain is available
)r( Z iswindowsr rU r rF r� r; �schemerO r* �portr� r� r� �sslZ wrap_socketrJ Z PROTOCOL_TLSZ CERT_NONEZconnectZ getpeercertr� Zcheckcertificatechainr� ) rZ r[ �sourcer� r4 r; Z defaultportZaddrr� r Zcertr� rb rb rc �debugssl� sT ����
�
r� � debugbackupbundle)rv � recoverrv s7 brings the specified changeset back into the repositorys% hg debugbackupbundle [--recover HASH]c s� t ttjjt��j�d�d ���}|jdd� dd� t �
���d�d< d �d
< t � ��� � ��fd d �}��
d
�}|r�t��|�r�| �td�| � d S n.|r�td�}| j|dd� n| �td�� d S |D �]�}tj�|t�� �} tjd�| | ��
d�d�\} }
zt���| ��W n` tj�yv } zDtd�| }td�t | j � } | j|| d� W Y d } ~ q�W Y d } ~ n
d } ~ 0 0 t� ��|
��
d��\}
}|
�r��fdd�|
D �}
| � � �^ z&t �!| ��|
�d �d
�\�}}W n& tj�y Y W d � q�Y n0 W d � n1 �s0 Y �z�|�s6W |� q�|�r.��"� �� ��#d ���}t��|��r�| �td �| � t�$| | �}t%�&| || �}t'|t(j)��r�t(j*�||d d | d � n|�+�d d | � W d � W d � W |� �q�W d � n1 �s0 Y W d � n1 �s"0 Y n�t�,t-�.d t-�/tj�0| ����}| �d!|�1d"� � | j2�r�| �d#d �1d$�| f � nd%�d&< t �3| ��d'�}|�||� |�4� W |� q�|� 0 q�d S )(a� lists the changesets available in backup bundles
Without any arguments, this command prints a list of the changesets in each
backup bundle.
--recover takes a changeset hash and unbundles the first bundle that
contains that hash, which puts that changeset back in your repository.
--verbose will print the entire commit message and the bundle path for that
backup.
s strip-backups /*.hgc S s t j�| �S r� )r) r� �getmtimer� rb rb rc r rv z#debugbackupbundle.<locals>.<lambda>T)r� �reverserv s bundleNs forcec s� �� d�r|�� d}|D ]`}� d ur2|� kr2 q|�fdd�| j�|�D �}�� d�rdt|�dkrdq|d7 }|�| | � qd S )Ns newest_firstr c s g | ]}|� j krd �qS )T)r r� r� rb rc ry s z6debugbackupbundle.<locals>.display.<locals>.<listcomp>s no_mergesrO r )r� r� rV r rQ �show)r� �chlist� displayer�countr; r )�limitr� r[ rb rc �display s
�z"debugbackupbundle.<locals>.displayr� s %s already exists in the repo
sg Recover changesets using: hg debugbackupbundle --recover <changeset hash>
Available backup changesets:s status.removedr s no backup changesets found
r� r� )Zdefault_branchess"
warning: unable to open bundle %ss
(missing parent rev %s)
rY r� c s g | ]}� � |��qS rb r� )rw rY )r� rb rc ry K rv z%debugbackupbundle.<locals>.<listcomp>s unbundles Unbundling %s
s bundle:)r� r; z%a %H:%M, %Y-%m-%ds
%s
�2 r� �
s8 {label('status.modified', node|short)} {desc|firstline}
rd F)5r/ �filterr) r� �isfile�globr= ri rw r( r� r Zgetlimitr� r0 Z isrevsymbolr r r� �relpathr rS rF r� r r� r r' r r� r� r� r Zgetremotechangesr r� rl r rm r� r r� Z applybundlern rz rf rx ry r� r r� Zchangesetdisplayerr� )rZ r[ r� r� Zbackupsr Z recovernoder� �backupr� r4 �exrZ r1 Zcheckoutr Z cleanupfnr� rj rp Z
backupdater rb )r r� r� r[ rc �debugbackupbundle� s� ��
�
�
"�
�6&� ��H�����
r
s debugsubs revision to checks [-r REV] [REV]c C s\ t �||d �}t|j�� �D ]:\}}| �d| � | �d|d � | �d|d � q d S )Ns path %s
s
source %s
r s
revision %s
r )r0 r� r� r� r r� )rZ r[ rY r� r� r� rb rb rc �debugsub� s
r s
debugshellc C s" ddl }| |d�}|j|d� dS )z�run an interactive Python interpreter
The local namespace is provided with a reference to the ui and
the repo instance (if available).
r N)rZ r[ )r� )�codeZinteract)rZ r[ r Zimported_objectsrb rb rc �
debugshell� s
�r s debugsuccessorssetss closests# return closest successors sets onlys [REV]c O s� i }t }t}t�||�D ]�}|| }| �d||� � tj||�� |d |d�D ]X} | r�| �d� | �|| d �� | dd� D ] }
| �d� | �||
�� q�| �d � qPqdS )
a} show set of successors for revision
A successors set of changeset A is a consistent group of revisions that
succeed A. It contains non-obsolete changesets only unless closests
successors set is set.
In most cases a changeset A has a single successors set containing a single
successor (changeset A replaced by A').
A changeset that is made obsolete with no successors are called "pruned".
Such changesets have no successors sets at all.
A changeset that has been "split" will have a successors set containing
more than one successor.
A changeset that has been rewritten in multiple different ways is called
"divergent". Such changesets have multiple successor sets (each of which
may also be split, i.e. have multiple successors).
Results are displayed as follows::
<rev1>
<successors-1A>
<rev2>
<successors-2A>
<successors-2B1> <successors-2B2> <successors-2B3>
Here rev2 has two possible (i.e. divergent) successors sets. The first
holds one element, whereas the second holds three (i.e. the changeset has
been split).
r� �closest)r r` s r r Nr� r� )r\ r r r� rX r# Zsuccessorssetsr� ) rZ r[ r1 r� r` Zctx2strZnode2strrY r� Zsuccssetr� rb rb rc �debugsuccessorssets� s &�
r s debugtagscachec C s� t �|�� �}|�d�}|D ]h}|| �� }|j|dd�}|rZt|�}|�|�sl|d7 }n|du rhd}nd}| �d|t|�|f � q dS ) z/display the contents of .hg/cache/hgtagsfnodes1s .hgtagsF)Zcomputemissings (unknown node)Nr s invalids %d %s %s
) �tagsmodZhgtagsfnodescacher� rg r� Zgetfnoder ZhasnoderX )rZ r[ r` Zflogr` r� ZtagsnodeZtagsnodedisplayrb rb rc �debugtagscache� s
r s
debugtemplates apply template on changesets� Ds defines define template keywords KEY=VALUEs& [-r REV]... [-D KEY=VALUE]... TEMPLATEc K s� d}|d r2|du r"t �td���t�||d �}i }|d D ]`}z6dd� |�dd�D �\}}|rj|d krnt�|||< W q> ty� t �td
�| ��Y q>0 q>| jr�| � d �} t
� |�}
| � t
�
|
�d � t
�|
| �} | |
kr�| �d
t
�
| �d � |du �rpt�| |�} tj| || d�}
| j�r^|
�� \}}| �dd�t|�� � | �dd�t|�� � | �|
�|�� n�t�| ||�}| j�r�|j�� \}}| �dd�t|�� � | �dd�t|�� � |D ]"}|j|| fi t� |��� �q�|� � dS )z�parse and apply a template
If -r/--rev is given, the template is processed as a log template and
applied to the given changesets. Otherwise, it is processed as a generic
template.
Use --verbose to print the parsed tree.
NrY rP Zdefinec s s | ]}|� � V qd S r� r� r rb rb rc r� rv z debugtemplate.<locals>.<genexpr>r� r r� s malformed keyword definition: %ss
templatealiasr� s * expanded:
)Z resourcess * keywords: %s
r� s * functions: %s
) r Z RepoErrorr r r� r� r� rU r� r r8 r� r� r� r� r� r ZtemplateresourcesZ
maketemplaterZsymbolsuseddefaultr� ri r� rX Z
renderdefaultr� r� r( r� r� )rZ r[ Ztmplr� r1 ZpropsrI r� r� r� r� ZnewtreeZtresr� �kwdsZfuncsr r` rb rb rc �
debugtemplate� sR �
�
r s debuguigetpasss prompts prompt texts TEXTs [-p TEXT]c C s( | � |�}|du rd}| �d| � dS )z show prompt to type passwordNs <default response>�
response: %s
)Zgetpassr� �rZ �promptr` rb rb rc �debuguigetpass+ s
r s
debuguipromptc C s | � |�}| �d| � dS )zshow plain promptr N)r r� r rb rb rc �
debuguiprompt; s
r s debugupdatecachesc O sb |� � �F |�� � |jtjd� W d � n1 s60 Y W d � n1 sT0 Y dS )z'warm all known caches in the repository)ZcachesN)r� r Z updatecachesr@ Z
CACHES_ALL)rZ r[ r� r� rb rb rc �debugupdatecachesI s r s debugupgraderepos extra optimization to performs runs performs an upgrades backups& keep the old repository content aroundr� s select the changelog for upgrader� s select the manifest for upgrades filelogss select all filelogs for upgradec K s t j| |f|t|�|d�|��S )a0 upgrade a repository to use different features
If no arguments are specified, the repository is evaluated for upgrade
and a list of problems and potential optimizations is printed.
With ``--run``, a repository upgrade is performed. Behavior of the upgrade
can be influenced via additional arguments. More details will be provided
by the command output when run without ``--run``.
During the upgrade, the repository will be locked and no writes will be
allowed.
At the end of the upgrade, the repository may not be readable while new
repository data is swapped in. This window will be as long as it takes to
rename some directories inside the ``.hg`` directory. On most machines, this
should complete almost instantaneously and the chances of a consumer being
unable to access the repository should be low.
By default, all revlogs will be upgraded. You can restrict this using flags
such as `--manifest`:
* `--manifest`: only optimize the manifest
* `--no-manifest`: optimize all revlog but the manifest
* `--changelog`: optimize the changelog only
* `--no-changelog --no-manifest`: optimize filelogs only
* `--filelogs`: optimize the filelogs only
* `--no-changelog --no-manifest --no-filelogs`: skip all revlog optimizations
)�runr� r )r: Z upgraderepor� )rZ r[ r r� r r� rb rb rc �debugupgraderepoP s .�
��r s debugwalks [OPTION]... [FILE]...c
s� t �|�}t�� d ||�}| jr6| �dt�|�d� t� d � |��}|sPdS dd� }| �
dd�rvt j dkrvd d� }d
t d d � |D ��t � fd
d �|D ��f }|D ]<}|||� �
|��|�|�r�dp�df } | �d| �� � q�dS )z&show how files match on given patternsNr� r� c S s | S r� rb r rb rb rc r � rv zdebugwalk.<locals>.<lambda>r� s slashr� c S s
t �| �S r� )r< r r rb rb rc r � rv s f %%-%ds %%-%ds %%sc S s g | ] }t |��qS rb r �rw r� rb rb rc ry � rv z debugwalk.<locals>.<listcomp>c s g | ]}t � �|���qS rb )rQ r� r r� rb rc ry � rv s exactrv r� )r( r� r0 r r� r� rE r� r/ r� Z
configboolr� r! r� �exactrX �rstrip)
rZ r[ r� r� r� r rj r r� r< rb r� rc � debugwalk� s*
� �r# s debugwhyunstablec C sj t �|t�||��D ]P}d}|�d�rBd�dd� |d D ��d }| �d|d ||d |d f � qd
S ) z$explain instabilities of a changesetrv s divergentnodesr� c s s" | ]}d |� � |�� f V qdS )s %s (%s)N)r Zphasestr)rw r� rb rb rc r� � s �z#debugwhyunstable.<locals>.<genexpr>s %s: %s%s %s
s instabilitys reasonr N)r# Z whyunstabler0 r� r� ri rX )rZ r[ rY rl Zdnodesrb rb rc �debugwhyunstable� s
�����r$ s
debugwireargs))rv � threerv r% )rv � fourrv r& )rv � fiverv r' s REPO [OPTIONS]... [ONE [TWO]]c O s� t �|�}t�| ||�}z�tjD ]}||d = q i }t �|�D ]\}}|r>|||< q>t �|�}|j|i |��} |j|i |��}
| � d| � | |
kr�| �
d|
� W |� � n
|� � 0 d S )Nr r� ) r( r� r r� r �
remoteoptsr� r� �
debugwireargsrX r r� ) rZ r� Zvalsr� r[ �optr\ r� r� Zres1Zres2rb rb rc r) � s
r) c c s� d }g }d}| D ]�}|� � }|s"q|�d�r.q|�d�sT|rF||fV |}g }d}q|sft�td���t|�t|�� � }||kr�|r�|d |�� 7 < q|�|� |}q|r�||fV d S )Nr � #r� s indented line outside of blockr{ )r" r� r rU r rQ �lstripr� )r� Z activeactionZ
blocklinesZ
lastindentr< r� rb rb rc �_parsewirelangblocks� s2
r- s debugwireproto� localsshs! start an SSH server for this repo� peers( construct a specific version of the peer� noreadstderrs% do not read from stderr of the remotes nologhandshakes, do not log I/O related to the peer handshakec * sR t �|�}|d r$|s$t�td���|d rN|d dvrNtjtd�td�d��|rh|d rht�td���| �� r~| �td �� tt| j ��}d
}d
}d
}d
}d
} |d �r�t
� � d |j d d
g }
t
jt �t
j|
�t
jt
jt
jdd�}|j}|j}|j}| j�s |d dk�rHtj| |jddd�}tj| |jddd�}tj| |jddd�}d} |d } |d dk�r�| �td�� tj| | ||||d
| d�}
nH|d dk�r�| �td�� d
}
n&| �td �� tj| | ||||| d�}
�n |�r�t� |�}|j d k�rt�td ���|� � \} }d d i}| j�r8|� | d!dd"d#�d$�� | j �rLd|d% d&< |d dk�rbd"|d'< t!j"| |fi |��} |d dk�r�| �td�� d
}
n2|d �r�t�td(�|d ��nt#j| || d)�}
nt�td*���d
}|D �]4\}}|d+v �rH|�s
t�td,���d-�$d.d/� |D ��}t%�&|�}|�|� |d0k� r|�'� �q�|d1k�rr|�sft�td2���|�'� �q�|�(d3��r2|
�s�t�td4���|�)d5d6�d6 }i }
|D ]l}|�*� �)d5d6�}t+|�d6k�r�|d }d-}n|\}}|�(d7��rt%�,|d8d
� �}n
t%�&|�}||
|< �q�|d
u�r4|�-||
f� �q�| �.td9�| � d:|
v �r�t/|
d: d;��d}|
d:= |
j0||fi t �1|
���\}} | �.td<�t%�2|� � | �.td=�t%�2| � � W d
� n1 �s�0 Y nX|
�3� � } | �4||
��5� }W d
� n1 �s0 Y | �.td>�t%j6|dd?d@� � �q�|dAk�r\|d
u�rTt�tdB���g }�q�|dCk�r�| �.tdD�t+|� � t7|
�8|��D ]&\} } | �.tdE�| t%�2| �f � �q�d
}�q�|�(dF��r�| �s�t�tdG���|�)d5d?�} t+| �dHk�rt�tdI���| d6d
� \� }!i }"d
}#g }$|D ]�}|�*� }t9�:dJ|�}%|%�rlt �;|%�<d6��}t �;|%�<d?��}||"|< �q"|�(dK��r�t/|�)d5d6�dL��}|�=� }#W d
� n1 �s�0 Y n@|�(dM��r�t>�?|t+dM�d
� �}&|$�-|&� nt�tdN�| ���q"||! } |$�r d-�$dOd/� |$D ��}#t!j@�At �;| �|#|"�}'� fdPdQ�|'_Bz| �/|'�}|�=� }#W nJ tjCjD�y� } z,tE| dRdSdQ� �� W Y d
} ~ �q�W Y d
} ~ n
d
} ~ 0 0 |jF�GdT�}(|(dUk� r| �tdV�t%j6tH�I|#�dd?d@� � �q�|dWk�r�|
�J� �q�|dXk�r4|�r |�st�tdY���|�J� |�=� |�=� n�|dZk�r\|�sRt�td[���|�K� n�|d\k�r�|�szt�td]���|�K� n�|�(d^��r�tL|�)d5d6�d6 �})|�s�t�td_���|�=|)� nR|�(d`�� rtL|�)d5d6�d6 �})|�s�t�tda���|�=|)� nt�tdb�| ���q�|d
u� r2t�tdc���|
� r@|
�J� |� rN|�M� d
S )da� send wire protocol commands to a server
This command can be used to issue wire protocol commands to remote
peers and to debug the raw data being exchanged.
``--localssh`` will start an SSH server against the current repository
and connect to that. By default, the connection will perform a handshake
and establish an appropriate peer instance.
``--peer`` can be used to bypass the handshake protocol and construct a
peer instance using the specified class type. Valid values are ``raw``,
``ssh1``. ``raw`` instances only allow sending raw data payloads and
don't support higher-level command actions.
``--noreadstderr`` can be used to disable automatic reading from stderr
of the peer (for SSH connections only). Disabling automatic reading of
stderr is useful for making output more deterministic.
Commands are issued via a mini language which is specified via stdin.
The language consists of individual actions to perform. An action is
defined by a block. A block is defined as a line with no leading
space followed by 0 or more lines with leading space. Blocks are
effectively a high-level command with additional metadata.
Lines beginning with ``#`` are ignored.
The following sections denote available actions.
raw
---
Send raw data to the server.
The block payload contains the raw data to send as one atomic send
operation. The data may not actually be delivered in a single system
call: it depends on the abilities of the transport being used.
Each line in the block is de-indented and concatenated. Then, that
value is evaluated as a Python b'' literal. This allows the use of
backslash escaping, etc.
raw+
----
Behaves like ``raw`` except flushes output afterwards.
command <X>
-----------
Send a request to run a named command, whose name follows the ``command``
string.
Arguments to the command are defined as lines in this block. The format of
each line is ``<key> <value>``. e.g.::
command listkeys
namespace bookmarks
If the value begins with ``eval:``, it will be interpreted as a Python
literal expression. Otherwise values are interpreted as Python b'' literals.
This allows sending complex types and encoding special byte sequences via
backslash escaping.
The following arguments have special meaning:
``PUSHFILE``
When defined, the *push* mechanism of the peer will be used instead
of the static request-response mechanism and the content of the
file specified in the value of this argument will be sent as the
command payload.
This can be used to submit a local bundle file to the remote.
batchbegin
----------
Instruct the peer to begin a batched send.
All ``command`` blocks are queued for execution until the next
``batchsubmit`` block.
batchsubmit
-----------
Submit previously queued ``command`` blocks as a batch request.
This action MUST be paired with a ``batchbegin`` action.
httprequest <method> <path>
---------------------------
(HTTP peer only)
Send an HTTP request to the peer.
The HTTP request line follows the ``httprequest`` action. e.g. ``GET /foo``.
Arguments of the form ``<key>: <value>`` are interpreted as HTTP request
headers to add to the request. e.g. ``Accept: foo``.
The following arguments are special:
``BODYFILE``
The content of the file defined as the value to this argument will be
transferred verbatim as the HTTP request body.
``frame <type> <flags> <payload>``
Send a unified protocol frame as part of the request body.
All frames will be collected and sent as the body to the HTTP
request.
close
-----
Close the connection to the server.
flush
-----
Flush data written to the server.
readavailable
-------------
Close the write end of the connection and read all available data from
the server.
If the connection to the server encompasses multiple pipes, we poll both
pipes and read available data.
readline
--------
Read a line of output from the server. If there are multiple output
pipes, reads only the main pipe.
ereadline
---------
Like ``readline``, but read from the stderr pipe, if available.
read <X>
--------
``read()`` N bytes from the server's main output pipe.
eread <X>
---------
``read()`` N bytes from the server's stderr pipe, if available.
Specifying Unified Frame-Based Protocol Frames
----------------------------------------------
It is possible to emit a *Unified Frame-Based Protocol* by using special
syntax.
A frame is composed as a type, flags, and payload. These can be parsed
from a string of the form:
<request-id> <stream-id> <stream-flags> <type> <flags> <payload>
``request-id`` and ``stream-id`` are integers defining the request and
stream identifiers.
``type`` can be an integer value for the frame type or the string name
of the type. The strings are defined in ``wireprotoframing.py``. e.g.
``command-name``.
``stream-flags`` and ``flags`` are a ``|`` delimited list of flag
components. Each component (and there can be just one) can be an integer
or a flag name for stream flags or frame flags, respectively. Values are
resolved to integers and then bitwise OR'd together.
``payload`` represents the raw frame payload. If it begins with
``cbor:``, the following string is evaluated as Python code and the
resulting object is fed into a CBOR encoder. Otherwise it is interpreted
as a Python byte string literal.
r. s --localssh requires a repositoryr/ )� raw� ssh1s invalid value for --peers! valid values are "raw" and "ssh1"rY s/ cannot specify --localssh with an explicit paths (waiting for commands on stdin)
Ns -Rr� s
--sshstdior )�stdin�stdout�stderr�bufsizer1 � iT)�logdatart rF s ssh://localserverr0 r2 s. creating ssh peer for wire protocol version 1
)�autoreadstderrs using raw connection to peer
s) creating ssh peer from handshake results
s https* only http:// paths are currently supportedZ useragents Mercurial debugwireprotor' F)r8 � logdataapis)Z loggingfhZ loggingname� loggingoptsr; r: Z
sendaccepts' --peer %s not supported with HTTP peers)�openers$ unsupported connection configuration)r1 � raw+s! cannot call raw/raw+ on this peerrv c s s | ]}|� � V qd S r� )r, r� rb rb rc r� a rv z!debugwireproto.<locals>.<genexpr>r= s flushs cannot call flush on this peers commands6 cannot send commands unless peer instance is availabler� r s eval:r5 s sending %s command
s PUSHFILE�rbs result: %s
s remote output: %s
r rO )Zbprefixr� s
batchbegins nested batchbegin not alloweds batchsubmits# sending batch with %d sub-commands
s response #%d: %s
s httprequest s+ cannot use httprequest without an HTTP peerrL sD invalid httprequest: expected format is "httprequest <method> <path>s ^([a-zA-Z0-9_-]+): (.*)$s BODYFILE s rbs frame s# unknown argument to httprequest: %sc s s | ]}t |�V qd S r� )r\ r< rb rb rc r� � rv c s
t �� �S r� )r( r& rb �rM rb rc r � rv z debugwireproto.<locals>.<lambda>r� c S s d S r� rb rb rb rb rc r � rv z Content-Typezapplication/mercurial-cbors cbor> %s
s closes
readavailables( readavailable not available on this peers readlines# readline not available on this peers ereadlines$ ereadline not available on this peers read s read not available on this peers eread s eread not available on this peers unknown action: %ss unclosed "batchbegin" request)Nr( r� r rU r � interactiverX r/ r- r� rD Zhgcmdr� �
subprocess�PopenZrapplyZ tonativestr�PIPEr3 r4 r5 r� r< Zmakeloggingfileobjectr3 Z sshv1peerZmakepeerrF r; r� �authinfor� r
r� r< r ri rE Z unescapestr�flushr� r� r, rQ Zevalpythonliteralr� r� r
Z _callpushr� r� r� r� r� r r� Z _submitbatch�rer Zstrurl�groupr� r> ZmakeframefromhumanstringZurlreq�requestZ
get_methodZurlerrZurlerrorr �headersr� rA Z decodeallr� �readliner* �kill)*rZ r[ r� r� Zblocks�procr3 r4 r5 r< r\ r; r9 r� �urD Z
openerargsZbatchedcommandsr� �linesr} �commandr< �fieldsr� r� r� �resr� r rx �chunkrH ZhttppathrI �bodyZframesr� �frameZreqZctr rb r? rc �debugwireproto� s L
�
� �
�
�
�
�
�
����
�
��
��
�&
0��
��� � �� * �
�
$
���
�
rU )NFFFF)Nr )r )r )N)NN)N)N)N)N)r| )N)r� )NN)N)N)rb )N)N)N)N)N)N)N)N)rv )rv )FNT)N)�Z
__future__r rv r% r� r� r� rK r r� r) r+ r� rF rJ r� rG r� rA r� rf Zi18nr r� r r r r r( r r
r� r r r
r r r r r r r r r r r r r r r r r Zlockmodr r rh r! r" r# r$ r% r& r' r) r* r+ r, r- r. r/ r0 r1 r2 r3 r4 r5 r6 r7 r r8 r9 r: r; r� r< r= rR r> r? Z
interfacesr@ ZutilsrA rB rC rD rE rF Z revlogutilsrG rd rH rI rJ rE �tabler� rO Z_tablerd rk rq r� r� r� r� r� r� r� r� r r r r
r r# r= ZdebugrevlogoptsrE rJ Z
formatteroptsrh r� r( r� r� r� r� r� Z
dryrunoptsr� r� r� r� r r r r r# r= r? rT rb Z templateoptsrl r> rv Z commitopts2r� r� r� Zwalkoptsr� r� Z
mergetooloptsr� r� r� r� r� r� r� r� r� r� r� r� r� r� Zlogoptsr
r r r r r r r r r r# r$ r) r- rU rb rb rb rc �<module> s� �7
����� � # )
��
��
'
�
�� <�
� 1�����
?�
���� c��
>����� �
A������
0
G�� �
1
�$�
-
����
]��
�=
l
�����'������� � ��
<� ���� K$��� �!��� � � ` ��l����� �!d��
�$ H�� �
� �3
�� 8����
���"��� *�����