1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
<?php
/**
* +----------------------------------------------------------------------+
* | Copyright (c) 1997-2023 The PHP Group |
* +----------------------------------------------------------------------+
* | This source file is subject to version 3.01 of the PHP license, |
* | that is bundled with this package in the file LICENSE, and is |
* | available through the world-wide-web at the following url: |
* | https://www.php.net/license/3_01.txt. |
* | If you did not receive a copy of the PHP license and are unable to |
* | obtain it through the world-wide-web, please send a note to |
* | license@php.net, so we can mail you a copy immediately. |
* +----------------------------------------------------------------------+
* | Authors: André L F S Bacci <ae php.net> |
* +----------------------------------------------------------------------+
* | Description: Compare entities usage between XMLs. |
* +----------------------------------------------------------------------+
*/
echo "This tool is obsolete and will be REMOVED soon.\n";
echo "See https://github.com/php/doc-base/blob/master/scripts/translation/README.md\n";
echo "for alternatives.\n\n".
require_once __DIR__ . '/lib/all.php';
$qalist = QaFileInfo::cacheLoad();
$outarg = new OutputIgnoreArgv( $argv );
foreach ( $qalist as $qafile )
{
if ( $qafile->sourceHash != $qafile->targetHash )
continue;
$source = $qafile->sourceDir . '/' . $qafile->file;
$target = $qafile->targetDir . '/' . $qafile->file;
$s = XmlUtil::extractEntities( $source );
$t = XmlUtil::extractEntities( $target );
if ( implode( "\n" , $s ) == implode( "\n" , $t ) )
continue;
$output = new OutputIgnoreBuffer( $outarg , "qaxml.e: {$target}\n\n" , $target );
$match = [];
foreach( $s as $v )
$match[$v] = array( 0 , 0 );
foreach( $t as $v )
$match[$v] = array( 0 , 0 );
foreach( $s as $v )
$match[$v][0] += 1;
foreach( $t as $v )
$match[$v][1] += 1;
foreach( $match as $k => $v )
{
if ( $v[0] == $v[1] )
continue;
$output->add( "* &{$k}; -{$v[1]} +{$v[0]}\n" );
}
$output->addLine();
$output->print();
}
|
