Dugeon XAMPP Builder (MkPut)

<?php

include_once( 'go.php' );
$me = me_shorthand( $_SERVER['SCRIPT_NAME'] );

// top of page (title)
echo '<html><head><title>Roe XAMPP Builder (mk'.
( !is_null( $me ) ? ' '. $me['mk'] : '').
( !is_null( $me ) ? ' '. $me['me'] : '').
')</title><style>'. nen_css() . '</style></head><body>';

// copyright header
echo '<table style="width:100%;text-align:top;"><tr><th colspan="2">
<span style="alignment:center center;font-size:170%;">Roe Collector Card Game</span><br><span style="alignment:center center;font-size:120%;">Copyright 1997, 2021 Tim Keal</span></th></tr>';

echo '<tr><td>';
// perform regex upon data from table of contents
if( !is_null( $me ) ){


    //cycle_sourcefiles();
    //cycle_pagedata();
    cycle_pagedata( $me[ 'mk' ], $me[ 'me' ] );
}
echo '</td></tr>';

echo '</table>';

// bottom of page
echo '</body></html>';

function cycle_pagedata($mk = '', $me = '')
{
    global $nen;

    $toc_magic = 'dun';

    $toc = fasttoc( 'misc'. $toc_magic. '/', array( '.bas', '.BAS' ) );

    $page = '';
    $toc_index = 0;

    $toc_pattern = '/^(?<magicnumber>{{$toc_magic}})(?<sourcehandle>\d+)(?<extension>\.bas|\.BAS)$/m';
    $toc_pattern = str_replace( '{{$toc_magic}}', $toc_magic, $toc_pattern );

    $toc_pattern2 = file_get_contents( $nen[ 'root' ] . 'pcre/toc-'. strtolower( $me ). '.pattern.pcre' );
    $toc_pattern2 = str_replace( '{{$toc_magic}}', $toc_magic, $toc_pattern2 );

    if( $toc_pattern !== $toc_pattern2)
    {
        $toc_pattern = $toc_pattern2;
    }
    unset( $toc_pattern2 );

    $card_pattern='/^(?<linenumber>\d{3,5}) IF (?<resource>MAP)\((?<T>[A-Z]+),(?<TT>[A-Z]+)\)=(?<assignment>\d+)(?: AND \(?([A-Z]+)(=|<>)(\d+)(?: (AND|OR) ([A-Z]+)(=|<>)(\d+)\))?)? THEN PUT\(\(\k<T>-1\)\*(\d+),\(\k<TT>-1\)\*(\d+)\),(?<sprite>[A-Z]{2})$/m';

    $card_pattern2 = file_get_contents( $nen[ 'root' ] . 'pcre/'. $toc_magic. '-'. strtolower( $me ). '.pattern.pcre' );

    if( $card_pattern !== $card_pattern2)
    {
        $card_pattern = $card_pattern2;
    }
    unset( $card_pattern2 );

    trk_echo2( 'toc', $toc );
    trk_echo2( 'toc.pattern', $toc_pattern );
    trk_echo2( 'card.pattern', $card_pattern );

    while(
    ( $toc_index > ( count( $toc ) - 1 ) )
    ?
    false
    :
    preg_match( $toc_pattern, $toc[ $toc_index ], $toc_matches )
    )
    {
        trk_echo2( 'toc_index', ( $toc_index + 1 ). ' of '. count( $toc ). ':'. $toc[ $toc_index ] );

        $page2 = '';

        $toc_magic = strtolower( $toc_matches[ 'magicnumber' ] );

        echo '<h3>'. htmlentities( 'misc'. $toc_magic. '/'. $toc_magic. $toc_matches[ 'sourcehandle' ]. $toc_matches[ 'extension' ] ). '</h3>';

        $page = file_get_contents( $nen[ 'root' ] . 'misc'. $toc_magic. '/'. $toc[ $toc_index ] );

        echo '<h3>'. htmlentities( 'misc'. $toc_magic. '/'. $toc[ $toc_index ] ). '</h3>';

        while( preg_match_all( $card_pattern, $page, $card_matches, PREG_SET_ORDER, 0 ) )
        {
            foreach($card_matches as $card_key => $card_value )
            {
                if( strlen( $page2 ) > 0 )
                {
                    $page2 .= "\r\n";
                }
                $page2 .= $card_value;
            }
        }

        echo '<h3>'. htmlentities( 'meta'. strtolower( $me ). '/R'. $mk. '-'. $me. $toc_matches[ 'sourcehandle' ].  $toc_matches[ 'extension' ]. '.dat' ). '</h3>';

        file_put_contents( $nen[ 'root' ].
        'meta'. strtolower( $me ). '/R'. $mk. '-'. $me. $toc_matches[ 'sourcehandle' ].  $toc_matches[ 'extension' ]. '.dat', $page2 );

        echo $page2;

        $toc_index++;
    }

}

?>