File: qaxml-pi.php

package info (click to toggle)
php-doc 20250827~git.abe740d%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 71,968 kB
  • sloc: xml: 985,760; php: 25,504; javascript: 671; sh: 177; makefile: 37
file content (71 lines) | stat: -rw-r--r-- 2,331 bytes parent folder | download
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
68
69
70
71
<?php /*
+----------------------------------------------------------------------+
| Copyright (c) 1997-2025 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 processing instructions usage between two XML files.          */

require_once __DIR__ . '/libqa/all.php';

$argv   = new ArgvParser( $argv );
$ignore = new OutputIgnore( $argv ); // may exit.
$argv->complete();

$list   = SyncFileList::load();

foreach ( $list as $file )
{
    $source = $file->sourceDir . '/' . $file->file;
    $target = $file->targetDir . '/' . $file->file;
    $output = new OutputBuffer( "# qaxml.p" , $target , $ignore );

    [ $s ] = XmlFrag::loadXmlFragmentFile( $source );
    [ $t ] = XmlFrag::loadXmlFragmentFile( $target );

    $s = XmlFrag::listNodes( $s , XML_PI_NODE );
    $t = XmlFrag::listNodes( $t , XML_PI_NODE );

    $s = extractPiData( $s );
    $t = extractPiData( $t );

    if ( implode( "\n" , $s ) === implode( "\n" , $t ) )
        continue;

    $sideCount = [];

    foreach( $s as $v )
        $sideCount[$v] = [ 0 , 0 ];
    foreach( $t as $v )
        $sideCount[$v] = [ 0 , 0 ];

    foreach( $s as $v )
        $sideCount[$v][0] += 1;
    foreach( $t as $v )
        $sideCount[$v][1] += 1;

    foreach( $sideCount as $k => $v )
        if ( $v[0] != $v[1] )
            $output->addDiff( $k , $v[0] , $v[1] );

    $output->print();
}

function extractPiData( array $list )
{
    $ret = [];
    foreach( $list as $elem )
        $ret[] = "{$elem->target} {$elem->data}";
    return $ret;
}