TrFctStart() - Code Metrics - mambax7/extgallery - Measure and Improve Code Quality continuously with Scrutinizer

TrFctStart() A
last analyzed 2021-10-13 17:23 UTC

↳ Parent: Project

Complexity

Conditions	4
Paths	5

Size

Total Lines	48
Code Lines	31

Duplication

Lines	0
Ratio	0 %

Importance

Changes

Metric	Value
cc	4
eloc	31
nc	5
nop	5
dl	0
loc	48
rs	9.424
c	0
b	0
f	0

<?php

namespace XoopsModules\Extgallery;

// --------------------------------------------------------------------------------
// PhpConcept Library (PCL) Trace 1.0
// --------------------------------------------------------------------------------
// License GNU/GPL - Vincent Blavet - Janvier 2001
// http://www.phpconcept.net & http://phpconcept.free.fr
// --------------------------------------------------------------------------------
// Français :
//   La description de l'usage de la librairie PCL Trace 1.0 n'est pas encore
//   disponible. Celle-ci n'est pour le moment distribuée qu'avec l'application
//   et la librairie PhpZip.
//   Une version indépendante sera bientot disponible sur http://www.phpconcept.net
//
// English :
//   The PCL Trace 1.0 library description is not available yet. This library is
//   released only with PhpZip application and library.
//   An independant release will be soon available on http://www.phpconcept.net
//
// --------------------------------------------------------------------------------
//
//   * Avertissement :
//
//   Cette librairie a été créée de façon non professionnelle.
//   Son usage est au risque et péril de celui qui l'utilise, en aucun cas l'auteur
//   de ce code ne pourra être tenu pour responsable des éventuels dégats qu'il pourrait
//   engendrer.
//   Il est entendu cependant que l'auteur a réalisé ce code par plaisir et n'y a
//   caché aucun virus, ni malveillance.
//   Cette libairie est distribuée sous la license GNU/GPL (https://www.gnu.org)
//
//   * Auteur :
//
//   Ce code a été écrit par Vincent Blavet ([email protected]) sur son temps
//   de loisir.
//
// --------------------------------------------------------------------------------

// ----- Look for double include
if (!\defined('PCLTRACE_LIB')) {
    \define('PCLTRACE_LIB', 1);

    // ----- Version
    $g_pcl_trace_version = '1.0';

    // ----- Internal variables
    // These values must be change by PclTrace library functions
    $g_pcl_trace_mode     = 'memory';
    $g_pcl_trace_filename = 'trace.txt';
    $g_pcl_trace_name     = [];
    $g_pcl_trace_index    = 0;
    $g_pcl_trace_level    = 0;
    //$g_pcl_trace_entries = [];

    // --------------------------------------------------------------------------------
    // Function : TrOn($p_level, $p_mode, $p_filename)
    // Description :
    // Parameters :
    //   $p_level : Trace level
    //   $p_mode : Mode of trace displaying :
    //             'normal' : messages are displayed at function call
    //             'memory' : messages are memorized in a table and can be display by
    //                        TrDisplay() function. (default)
    //             'log'    : messages are writed in the file $p_filename
    // --------------------------------------------------------------------------------
    /**
     * @param int    $p_level
     * @param string $p_mode
     * @param string $p_filename
     */
    function TrOn($p_level = 1, $p_mode = 'memory', $p_filename = 'trace.txt')
    {
        global $g_pcl_trace_level;
        global $g_pcl_trace_mode;
        global $g_pcl_trace_filename;
        global $g_pcl_trace_name;
        global $g_pcl_trace_index;
        global $g_pcl_trace_entries;

        // ----- Enable trace mode
        $g_pcl_trace_level = $p_level;

        // ----- Memorize mode and filename
        switch ($p_mode) {
            case 'normal':
            case 'memory':
            case 'log':
                $g_pcl_trace_mode = $p_mode;
                break;
            default:
                $g_pcl_trace_mode = 'logged';
        }

        // ----- Memorize filename
        $g_pcl_trace_filename = $p_filename;
    }

    // --------------------------------------------------------------------------------

    // --------------------------------------------------------------------------------
    // Function : IsTrOn()
    // Description :
    // Return value :
    //   The trace level (0 for disable).
    // --------------------------------------------------------------------------------
    /**
     * @return int
     */
    function IsTrOn()
    {
        global $g_pcl_trace_level;

        return $g_pcl_trace_level;
    }

    // --------------------------------------------------------------------------------

    // --------------------------------------------------------------------------------
    // Function : TrOff()
    // Description :
    // Parameters :
    // --------------------------------------------------------------------------------
    function TrOff()
    {
        global $g_pcl_trace_level;
        global $g_pcl_trace_mode;
        global $g_pcl_trace_filename;
        global $g_pcl_trace_name;
        global $g_pcl_trace_index;

        // ----- Clean
        $g_pcl_trace_mode = 'memory';
        unset($g_pcl_trace_entries, $g_pcl_trace_name, $g_pcl_trace_index);


        // ----- Switch off trace
        $g_pcl_trace_level = 0;
    }

    // --------------------------------------------------------------------------------

    // --------------------------------------------------------------------------------
    // Function : TrFctStart()
    // Description :
    //   Just a trace function for debbugging purpose before I use a better tool !!!!
    //   Start and stop of this function is by $g_pcl_trace_level global variable.
    // Parameters :
    //   $p_level : Level of trace required.
    // --------------------------------------------------------------------------------
    /**
     * @param        $p_file
     * @param        $p_line
     * @param        $p_name
     * @param string $p_param
     * @param string $p_message
     */
    function TrFctStart($p_file, $p_line, $p_name, $p_param = '', $p_message = '')
    {
        global $g_pcl_trace_level;
        global $g_pcl_trace_mode;
        global $g_pcl_trace_filename;
        global $g_pcl_trace_name;
        global $g_pcl_trace_index;
        global $g_pcl_trace_entries;

        // ----- Look for disabled trace
        if ($g_pcl_trace_level < 1) {
            return;
        }

        // ----- Add the function name in the list
        if (!isset($g_pcl_trace_name)) {
            $g_pcl_trace_name = $p_name;
        } else {
            $g_pcl_trace_name .= ',' . $p_name;
        }

        // ----- Update the function entry
        $i                                  = \count($g_pcl_trace_entries);
        $g_pcl_trace_entries[$i]['name']    = $p_name;
        $g_pcl_trace_entries[$i]['param']   = $p_param;
        $g_pcl_trace_entries[$i]['message'] = '';
        $g_pcl_trace_entries[$i]['file']    = $p_file;
        $g_pcl_trace_entries[$i]['line']    = $p_line;
        $g_pcl_trace_entries[$i]['index']   = $g_pcl_trace_index;
        $g_pcl_trace_entries[$i]['type']    = '1'; // means start of function

        // ----- Update the message entry
        if ('' != $p_message) {
            $i                                  = \count($g_pcl_trace_entries);
            $g_pcl_trace_entries[$i]['name']    = '';
            $g_pcl_trace_entries[$i]['param']   = '';
            $g_pcl_trace_entries[$i]['message'] = $p_message;
            $g_pcl_trace_entries[$i]['file']    = $p_file;
            $g_pcl_trace_entries[$i]['line']    = $p_line;
            $g_pcl_trace_entries[$i]['index']   = $g_pcl_trace_index;
            $g_pcl_trace_entries[$i]['type']    = '3'; // means message
        }

        // ----- Action depending on mode
        PclTraceAction($g_pcl_trace_entries[$i]);

        // ----- Increment the index
        ++$g_pcl_trace_index;
    }

    // --------------------------------------------------------------------------------

    // --------------------------------------------------------------------------------
    // Function : TrFctEnd()
    // Description :
    //   Just a trace function for debbugging purpose before I use a better tool !!!!
    //   Start and stop of this function is by $g_pcl_trace_level global variable.
    // Parameters :
    //   $p_level : Level of trace required.
    // --------------------------------------------------------------------------------
    /**
     * @param        $p_file
     * @param        $p_line
     * @param int    $p_return
     * @param string $p_message
     */
    function TrFctEnd($p_file, $p_line, $p_return = 1, $p_message = '')
    {
        global $g_pcl_trace_level;
        global $g_pcl_trace_mode;
        global $g_pcl_trace_filename;
        global $g_pcl_trace_name;
        global $g_pcl_trace_index;
        global $g_pcl_trace_entries;

        // ----- Look for disabled trace
        if ($g_pcl_trace_level < 1) {
            return;
        }

        // ----- Extract the function name in the list
        // ----- Remove the function name in the list
        if (!($v_name = mb_strrchr($g_pcl_trace_name, ','))) {
            $v_name           = $g_pcl_trace_name;
            $g_pcl_trace_name = '';
        } else {
            $g_pcl_trace_name = mb_substr($g_pcl_trace_name, 0, -mb_strlen($v_name));
            $v_name           = mb_substr($v_name, -mb_strlen($v_name) + 1);
        }

        // ----- Decrement the index
        $g_pcl_trace_index--;

        // ----- Update the message entry
        if ('' != $p_message) {
            $i                                  = \count($g_pcl_trace_entries);
            $g_pcl_trace_entries[$i]['name']    = '';
            $g_pcl_trace_entries[$i]['param']   = '';
            $g_pcl_trace_entries[$i]['message'] = $p_message;
            $g_pcl_trace_entries[$i]['file']    = $p_file;
            $g_pcl_trace_entries[$i]['line']    = $p_line;
            $g_pcl_trace_entries[$i]['index']   = $g_pcl_trace_index;
            $g_pcl_trace_entries[$i]['type']    = '3'; // means message
        }

        // ----- Update the function entry
        $i                                  = \count($g_pcl_trace_entries);
        $g_pcl_trace_entries[$i]['name']    = $v_name;
        $g_pcl_trace_entries[$i]['param']   = $p_return;
        $g_pcl_trace_entries[$i]['message'] = '';
        $g_pcl_trace_entries[$i]['file']    = $p_file;
        $g_pcl_trace_entries[$i]['line']    = $p_line;
        $g_pcl_trace_entries[$i]['index']   = $g_pcl_trace_index;
        $g_pcl_trace_entries[$i]['type']    = '2'; // means end of function

        // ----- Action depending on mode
        PclTraceAction($g_pcl_trace_entries[$i]);
    }

    // --------------------------------------------------------------------------------

    // --------------------------------------------------------------------------------
    // Function : TrFctMessage()
    // Description :
    // Parameters :
    // --------------------------------------------------------------------------------
    /**
     * @param        $p_file
     * @param        $p_line
     * @param        $p_level
     * @param string $p_message
     */
    function TrFctMessage($p_file, $p_line, $p_level, $p_message = '')
    {
        global $g_pcl_trace_level;
        global $g_pcl_trace_mode;
        global $g_pcl_trace_filename;
        global $g_pcl_trace_name;
        global $g_pcl_trace_index;
        global $g_pcl_trace_entries;

        // ----- Look for disabled trace
        if ($g_pcl_trace_level < $p_level) {
            return;
        }

        // ----- Update the entry
        $i                                  = \count($g_pcl_trace_entries);
        $g_pcl_trace_entries[$i]['name']    = '';
        $g_pcl_trace_entries[$i]['param']   = '';
        $g_pcl_trace_entries[$i]['message'] = $p_message;
        $g_pcl_trace_entries[$i]['file']    = $p_file;
        $g_pcl_trace_entries[$i]['line']    = $p_line;
        $g_pcl_trace_entries[$i]['index']   = $g_pcl_trace_index;
        $g_pcl_trace_entries[$i]['type']    = '3'; // means message of function

        // ----- Action depending on mode
        PclTraceAction($g_pcl_trace_entries[$i]);
    }

    // --------------------------------------------------------------------------------

    // --------------------------------------------------------------------------------
    // Function : TrMessage()
    // Description :
    // Parameters :
    // --------------------------------------------------------------------------------
    /**
     * @param        $p_file
     * @param        $p_line
     * @param        $p_level
     * @param string $p_message
     */
    function TrMessage($p_file, $p_line, $p_level, $p_message = '')
    {
        global $g_pcl_trace_level;
        global $g_pcl_trace_mode;
        global $g_pcl_trace_filename;
        global $g_pcl_trace_name;
        global $g_pcl_trace_index;
        global $g_pcl_trace_entries;

        // ----- Look for disabled trace
        if ($g_pcl_trace_level < $p_level) {
            return;
        }

        // ----- Update the entry
        $i                                  = \count($g_pcl_trace_entries);
        $g_pcl_trace_entries[$i]['name']    = '';
        $g_pcl_trace_entries[$i]['param']   = '';
        $g_pcl_trace_entries[$i]['message'] = $p_message;
        $g_pcl_trace_entries[$i]['file']    = $p_file;
        $g_pcl_trace_entries[$i]['line']    = $p_line;
        $g_pcl_trace_entries[$i]['index']   = $g_pcl_trace_index;
        $g_pcl_trace_entries[$i]['type']    = '4'; // means simple message

        // ----- Action depending on mode
        PclTraceAction($g_pcl_trace_entries[$i]);
    }

    // --------------------------------------------------------------------------------

    // --------------------------------------------------------------------------------
    // Function : TrDisplay()
    // Description :
    // Parameters :
    // --------------------------------------------------------------------------------
    function TrDisplay()
    {
        global $g_pcl_trace_level;
        global $g_pcl_trace_mode;
        global $g_pcl_trace_filename;
        global $g_pcl_trace_name;
        global $g_pcl_trace_index;
        global $g_pcl_trace_entries;

        // ----- Look for disabled trace
        if (($g_pcl_trace_level <= 0) || ('memory' !== $g_pcl_trace_mode)) {
            return;
        }

        $v_font = '"Verdana, Arial, Helvetica, sans-serif"';

        // ----- Trace Header
        echo '<table width=100% border=0 cellspacing=0 cellpadding=0>';
        echo '<tr bgcolor=#0000CC>';
        echo '<td bgcolor=#0000CC width=1>';
        echo '</td>';
        echo "<td><div align=center><span style='font-size: small; color: #FFFFFF; font-family: $v_font; '>Trace</span></div></td>";
        echo '</tr>';
        echo '<tr>';
        echo '<td bgcolor=#0000CC width=1>';
        echo '</td>';
        echo '<td>';

        // ----- Content header
        echo '<table width=100% border=0 cellspacing=0 cellpadding=0>';

        // ----- Display
        $v_again = 0;

        for ($i = 0, $iMax = \count($g_pcl_trace_entries); $i < $iMax; ++$i) {
            // ---- Row header
            echo '<tr>';
            echo '<td><table width=100% border=0 cellspacing=0 cellpadding=0><tr>';
            $n = ($g_pcl_trace_entries[$i]['index'] + 1) * 10;
            echo '<td width=' . $n . '><table width=100% border=0 cellspacing=0 cellpadding=0><tr>';

            for ($j = 0; $j <= $g_pcl_trace_entries[$i]['index']; ++$j) {
                if ($j == $g_pcl_trace_entries[$i]['index']) {
                    if ((1 == $g_pcl_trace_entries[$i]['type']) || (2 == $g_pcl_trace_entries[$i]['type'])) {
                        echo "<td width=10><div align=center><span style='font-size: x-small; font-family: $v_font; '>+</span></div></td>";
                    }
                } else {
                    echo "<td width=10><div align=center><span style='font-size: x-small; font-family: $v_font; '>|</span></div></td>";
                }
            }
            //echo "<td>&nbsp</td>";
            echo '</tr></table></td>';

            echo '<td width=2></td>';
            switch ($g_pcl_trace_entries[$i]['type']) {
                case 1:
                    echo "<td><span style='font-size: x-small; font-family: $v_font; '>" . $g_pcl_trace_entries[$i]['name'] . '(' . $g_pcl_trace_entries[$i]['param'] . ')</span></td>';
                    break;
                case 2:
                    echo "<td><span style='font-size: x-small; font-family: $v_font; '>" . $g_pcl_trace_entries[$i]['name'] . '()=' . $g_pcl_trace_entries[$i]['param'] . '</span></td>';
                    break;
                case 3:
                case 4:
                    echo '<td><table width=100% border=0 cellspacing=0 cellpadding=0><td width=20></td><td>';
                    echo "<span style='font-size: x-small; font-family: $v_font; '>" . $g_pcl_trace_entries[$i]['message'] . '</span>';
                    echo '</td></table></td>';
                    break;
                default:
                    echo "<td><span style='font-size: x-small; font-family: $v_font; '>" . $g_pcl_trace_entries[$i]['name'] . '(' . $g_pcl_trace_entries[$i]['param'] . ')</span></td>';
            }
            echo '</tr></table></td>';
            echo '<td width=5></td>';
            echo "<td><span style='font-size: xx-small; font-family: $v_font; '>" . \basename($g_pcl_trace_entries[$i]['file']) . '</span></td>';
            echo '<td width=5></td>';
            echo "<td><span style='font-size: xx-small; font-family: $v_font; '>" . $g_pcl_trace_entries[$i]['line'] . '</span></td>';
            echo '</tr>';
        }

        // ----- Content footer
        echo '</table>';

        // ----- Trace footer
        echo '</td>';
        echo '<td bgcolor=#0000CC width=1>';
        echo '</td>';
        echo '</tr>';
        echo '<tr bgcolor=#0000CC>';
        echo '<td bgcolor=#0000CC width=1>';
        echo '</td>';
        echo "<td><span align=center><span style='color: #FFFFFF; font-family: $v_font; '>&nbsp</font></span></td>";
        echo '</tr>';
        echo '</table>';
    }

    // --------------------------------------------------------------------------------

    // --------------------------------------------------------------------------------
    // Function : PclTraceAction()
    // Description :
    // Parameters :
    // --------------------------------------------------------------------------------
    /**
     * @param $p_entry
     */
    function PclTraceAction($p_entry)
    {
        global $g_pcl_trace_level;
        global $g_pcl_trace_mode;
        global $g_pcl_trace_filename;
        global $g_pcl_trace_name;
        global $g_pcl_trace_index;
        global $g_pcl_trace_entries;

        if ('normal' === $g_pcl_trace_mode) {
            for ($i = 0; $i < $p_entry['index']; ++$i) {
                echo '---';
            }
            if (1 == $p_entry['type']) {
                echo '<b>' . $p_entry['name'] . '</b>(' . $p_entry['param'] . ') : ' . $p_entry['message'] . ' [' . $p_entry['file'] . ', ' . $p_entry['line'] . ']<br>';
            } elseif (2 == $p_entry['type']) {
                echo '<b>' . $p_entry['name'] . '</b>()=' . $p_entry['param'] . ' : ' . $p_entry['message'] . ' [' . $p_entry['file'] . ', ' . $p_entry['line'] . ']<br>';
            } else {
                echo $p_entry['message'] . ' [' . $p_entry['file'] . ', ' . $p_entry['line'] . ']<br>';
            }
        }
    }

    // --------------------------------------------------------------------------------

    // ----- End of double include look
}


1			<?php
2
3			namespace XoopsModules\Extgallery;
4
5			// --------------------------------------------------------------------------------
6			// PhpConcept Library (PCL) Trace 1.0
7			// --------------------------------------------------------------------------------
8			// License GNU/GPL - Vincent Blavet - Janvier 2001
9			// http://www.phpconcept.net & http://phpconcept.free.fr
10			// --------------------------------------------------------------------------------
11			// Français :
12			// La description de l'usage de la librairie PCL Trace 1.0 n'est pas encore
13			// disponible. Celle-ci n'est pour le moment distribuée qu'avec l'application
14			// et la librairie PhpZip.
15			// Une version indépendante sera bientot disponible sur http://www.phpconcept.net
16			//
17			// English :
18			// The PCL Trace 1.0 library description is not available yet. This library is
19			// released only with PhpZip application and library.
20			// An independant release will be soon available on http://www.phpconcept.net
21			//
22			// --------------------------------------------------------------------------------
23			//
24			// * Avertissement :
25			//
26			// Cette librairie a été créée de façon non professionnelle.
27			// Son usage est au risque et péril de celui qui l'utilise, en aucun cas l'auteur
28			// de ce code ne pourra être tenu pour responsable des éventuels dégats qu'il pourrait
29			// engendrer.
30			// Il est entendu cependant que l'auteur a réalisé ce code par plaisir et n'y a
31			// caché aucun virus, ni malveillance.
32			// Cette libairie est distribuée sous la license GNU/GPL (https://www.gnu.org)
33			//
34			// * Auteur :
35			//
36			// Ce code a été écrit par Vincent Blavet ([email protected]) sur son temps
37			// de loisir.
38			//
39			// --------------------------------------------------------------------------------
40
41			// ----- Look for double include
42			if (!\defined('PCLTRACE_LIB')) {
43			\define('PCLTRACE_LIB', 1);
44
45			// ----- Version
46			$g_pcl_trace_version = '1.0';
47
48			// ----- Internal variables
49			// These values must be change by PclTrace library functions
50			$g_pcl_trace_mode = 'memory';
51			$g_pcl_trace_filename = 'trace.txt';
52			$g_pcl_trace_name = [];
53			$g_pcl_trace_index = 0;
54			$g_pcl_trace_level = 0;
55			//$g_pcl_trace_entries = [];
56
57			// --------------------------------------------------------------------------------
58			// Function : TrOn($p_level, $p_mode, $p_filename)
59			// Description :
60			// Parameters :
61			// $p_level : Trace level
62			// $p_mode : Mode of trace displaying :
63			// 'normal' : messages are displayed at function call
64			// 'memory' : messages are memorized in a table and can be display by
65			// TrDisplay() function. (default)
66			// 'log' : messages are writed in the file $p_filename
67			// --------------------------------------------------------------------------------
68			/**
69			* @param int $p_level
70			* @param string $p_mode
71			* @param string $p_filename
72			*/
73			function TrOn($p_level = 1, $p_mode = 'memory', $p_filename = 'trace.txt')
74			{
75			global $g_pcl_trace_level;
76			global $g_pcl_trace_mode;
77			global $g_pcl_trace_filename;
78			global $g_pcl_trace_name;
79			global $g_pcl_trace_index;
80			global $g_pcl_trace_entries;
81
82			// ----- Enable trace mode
83			$g_pcl_trace_level = $p_level;
84
85			// ----- Memorize mode and filename
86			switch ($p_mode) {
87			case 'normal':
88			case 'memory':
89			case 'log':
90			$g_pcl_trace_mode = $p_mode;
91			break;
92			default:
93			$g_pcl_trace_mode = 'logged';
94			}
95
96			// ----- Memorize filename
97			$g_pcl_trace_filename = $p_filename;
98			}
99
100			// --------------------------------------------------------------------------------
101
102			// --------------------------------------------------------------------------------
103			// Function : IsTrOn()
104			// Description :
105			// Return value :
106			// The trace level (0 for disable).
107			// --------------------------------------------------------------------------------
108			/**
109			* @return int
110			*/
111			function IsTrOn()
112			{
113			global $g_pcl_trace_level;
114
115			return $g_pcl_trace_level;
116			}
117
118			// --------------------------------------------------------------------------------
119
120			// --------------------------------------------------------------------------------
121			// Function : TrOff()
122			// Description :
123			// Parameters :
124			// --------------------------------------------------------------------------------
125			function TrOff()
126			{
127			global $g_pcl_trace_level;
128			global $g_pcl_trace_mode;
129			global $g_pcl_trace_filename;
130			global $g_pcl_trace_name;
131			global $g_pcl_trace_index;
132
133			// ----- Clean
134			$g_pcl_trace_mode = 'memory';
135			unset($g_pcl_trace_entries, $g_pcl_trace_name, $g_pcl_trace_index);
			0 ignored issues – show Comprehensibility Best Practice introduced 2018-03-17 07:54 UTC by Report Bug Copy Issue Report The variable `$g_pcl_trace_entries` does not exist. Did you maybe mean `$g_pcl_trace_level`? Loading history...
136
137			// ----- Switch off trace
138			$g_pcl_trace_level = 0;
139			}
140
141			// --------------------------------------------------------------------------------
142
143			// --------------------------------------------------------------------------------
144			// Function : TrFctStart()
145			// Description :
146			// Just a trace function for debbugging purpose before I use a better tool !!!!
147			// Start and stop of this function is by $g_pcl_trace_level global variable.
148			// Parameters :
149			// $p_level : Level of trace required.
150			// --------------------------------------------------------------------------------
151			/**
152			* @param $p_file
153			* @param $p_line
154			* @param $p_name
155			* @param string $p_param
156			* @param string $p_message
157			*/
158			function TrFctStart($p_file, $p_line, $p_name, $p_param = '', $p_message = '')
159			{
160			global $g_pcl_trace_level;
161			global $g_pcl_trace_mode;
162			global $g_pcl_trace_filename;
163			global $g_pcl_trace_name;
164			global $g_pcl_trace_index;
165			global $g_pcl_trace_entries;
166
167			// ----- Look for disabled trace
168			if ($g_pcl_trace_level < 1) {
169			return;
170			}
171
172			// ----- Add the function name in the list
173			if (!isset($g_pcl_trace_name)) {
174			$g_pcl_trace_name = $p_name;
175			} else {
176			$g_pcl_trace_name .= ',' . $p_name;
177			}
178
179			// ----- Update the function entry
180			$i = \count($g_pcl_trace_entries);
181			$g_pcl_trace_entries[$i]['name'] = $p_name;
182			$g_pcl_trace_entries[$i]['param'] = $p_param;
183			$g_pcl_trace_entries[$i]['message'] = '';
184			$g_pcl_trace_entries[$i]['file'] = $p_file;
185			$g_pcl_trace_entries[$i]['line'] = $p_line;
186			$g_pcl_trace_entries[$i]['index'] = $g_pcl_trace_index;
187			$g_pcl_trace_entries[$i]['type'] = '1'; // means start of function
188
189			// ----- Update the message entry
190			if ('' != $p_message) {
191			$i = \count($g_pcl_trace_entries);
192			$g_pcl_trace_entries[$i]['name'] = '';
193			$g_pcl_trace_entries[$i]['param'] = '';
194			$g_pcl_trace_entries[$i]['message'] = $p_message;
195			$g_pcl_trace_entries[$i]['file'] = $p_file;
196			$g_pcl_trace_entries[$i]['line'] = $p_line;
197			$g_pcl_trace_entries[$i]['index'] = $g_pcl_trace_index;
198			$g_pcl_trace_entries[$i]['type'] = '3'; // means message
199			}
200
201			// ----- Action depending on mode
202			PclTraceAction($g_pcl_trace_entries[$i]);
203
204			// ----- Increment the index
205			++$g_pcl_trace_index;
206			}
207
208			// --------------------------------------------------------------------------------
209
210			// --------------------------------------------------------------------------------
211			// Function : TrFctEnd()
212			// Description :
213			// Just a trace function for debbugging purpose before I use a better tool !!!!
214			// Start and stop of this function is by $g_pcl_trace_level global variable.
215			// Parameters :
216			// $p_level : Level of trace required.
217			// --------------------------------------------------------------------------------
218			/**
219			* @param $p_file
220			* @param $p_line
221			* @param int $p_return
222			* @param string $p_message
223			*/
224			function TrFctEnd($p_file, $p_line, $p_return = 1, $p_message = '')
225			{
226			global $g_pcl_trace_level;
227			global $g_pcl_trace_mode;
228			global $g_pcl_trace_filename;
229			global $g_pcl_trace_name;
230			global $g_pcl_trace_index;
231			global $g_pcl_trace_entries;
232
233			// ----- Look for disabled trace
234			if ($g_pcl_trace_level < 1) {
235			return;
236			}
237
238			// ----- Extract the function name in the list
239			// ----- Remove the function name in the list
240			if (!($v_name = mb_strrchr($g_pcl_trace_name, ','))) {
241			$v_name = $g_pcl_trace_name;
242			$g_pcl_trace_name = '';
243			} else {
244			$g_pcl_trace_name = mb_substr($g_pcl_trace_name, 0, -mb_strlen($v_name));
245			$v_name = mb_substr($v_name, -mb_strlen($v_name) + 1);
246			}
247
248			// ----- Decrement the index
249			$g_pcl_trace_index--;
250
251			// ----- Update the message entry
252			if ('' != $p_message) {
253			$i = \count($g_pcl_trace_entries);
254			$g_pcl_trace_entries[$i]['name'] = '';
255			$g_pcl_trace_entries[$i]['param'] = '';
256			$g_pcl_trace_entries[$i]['message'] = $p_message;
257			$g_pcl_trace_entries[$i]['file'] = $p_file;
258			$g_pcl_trace_entries[$i]['line'] = $p_line;
259			$g_pcl_trace_entries[$i]['index'] = $g_pcl_trace_index;
260			$g_pcl_trace_entries[$i]['type'] = '3'; // means message
261			}
262
263			// ----- Update the function entry
264			$i = \count($g_pcl_trace_entries);
265			$g_pcl_trace_entries[$i]['name'] = $v_name;
266			$g_pcl_trace_entries[$i]['param'] = $p_return;
267			$g_pcl_trace_entries[$i]['message'] = '';
268			$g_pcl_trace_entries[$i]['file'] = $p_file;
269			$g_pcl_trace_entries[$i]['line'] = $p_line;
270			$g_pcl_trace_entries[$i]['index'] = $g_pcl_trace_index;
271			$g_pcl_trace_entries[$i]['type'] = '2'; // means end of function
272
273			// ----- Action depending on mode
274			PclTraceAction($g_pcl_trace_entries[$i]);
275			}
276
277			// --------------------------------------------------------------------------------
278
279			// --------------------------------------------------------------------------------
280			// Function : TrFctMessage()
281			// Description :
282			// Parameters :
283			// --------------------------------------------------------------------------------
284			/**
285			* @param $p_file
286			* @param $p_line
287			* @param $p_level
288			* @param string $p_message
289			*/
290			function TrFctMessage($p_file, $p_line, $p_level, $p_message = '')
291			{
292			global $g_pcl_trace_level;
293			global $g_pcl_trace_mode;
294			global $g_pcl_trace_filename;
295			global $g_pcl_trace_name;
296			global $g_pcl_trace_index;
297			global $g_pcl_trace_entries;
298
299			// ----- Look for disabled trace
300			if ($g_pcl_trace_level < $p_level) {
301			return;
302			}
303
304			// ----- Update the entry
305			$i = \count($g_pcl_trace_entries);
306			$g_pcl_trace_entries[$i]['name'] = '';
307			$g_pcl_trace_entries[$i]['param'] = '';
308			$g_pcl_trace_entries[$i]['message'] = $p_message;
309			$g_pcl_trace_entries[$i]['file'] = $p_file;
310			$g_pcl_trace_entries[$i]['line'] = $p_line;
311			$g_pcl_trace_entries[$i]['index'] = $g_pcl_trace_index;
312			$g_pcl_trace_entries[$i]['type'] = '3'; // means message of function
313
314			// ----- Action depending on mode
315			PclTraceAction($g_pcl_trace_entries[$i]);
316			}
317
318			// --------------------------------------------------------------------------------
319
320			// --------------------------------------------------------------------------------
321			// Function : TrMessage()
322			// Description :
323			// Parameters :
324			// --------------------------------------------------------------------------------
325			/**
326			* @param $p_file
327			* @param $p_line
328			* @param $p_level
329			* @param string $p_message
330			*/
331			function TrMessage($p_file, $p_line, $p_level, $p_message = '')
332			{
333			global $g_pcl_trace_level;
334			global $g_pcl_trace_mode;
335			global $g_pcl_trace_filename;
336			global $g_pcl_trace_name;
337			global $g_pcl_trace_index;
338			global $g_pcl_trace_entries;
339
340			// ----- Look for disabled trace
341			if ($g_pcl_trace_level < $p_level) {
342			return;
343			}
344
345			// ----- Update the entry
346			$i = \count($g_pcl_trace_entries);
347			$g_pcl_trace_entries[$i]['name'] = '';
348			$g_pcl_trace_entries[$i]['param'] = '';
349			$g_pcl_trace_entries[$i]['message'] = $p_message;
350			$g_pcl_trace_entries[$i]['file'] = $p_file;
351			$g_pcl_trace_entries[$i]['line'] = $p_line;
352			$g_pcl_trace_entries[$i]['index'] = $g_pcl_trace_index;
353			$g_pcl_trace_entries[$i]['type'] = '4'; // means simple message
354
355			// ----- Action depending on mode
356			PclTraceAction($g_pcl_trace_entries[$i]);
357			}
358
359			// --------------------------------------------------------------------------------
360
361			// --------------------------------------------------------------------------------
362			// Function : TrDisplay()
363			// Description :
364			// Parameters :
365			// --------------------------------------------------------------------------------
366			function TrDisplay()
367			{
368			global $g_pcl_trace_level;
369			global $g_pcl_trace_mode;
370			global $g_pcl_trace_filename;
371			global $g_pcl_trace_name;
372			global $g_pcl_trace_index;
373			global $g_pcl_trace_entries;
374
375			// ----- Look for disabled trace
376			if (($g_pcl_trace_level <= 0) \|\| ('memory' !== $g_pcl_trace_mode)) {
377			return;
378			}
379
380			$v_font = '"Verdana, Arial, Helvetica, sans-serif"';
381
382			// ----- Trace Header
383			echo '<table width=100% border=0 cellspacing=0 cellpadding=0>';
384			echo '<tr bgcolor=#0000CC>';
385			echo '<td bgcolor=#0000CC width=1>';
386			echo '</td>';
387			echo "<td><div align=center><span style='font-size: small; color: #FFFFFF; font-family: $v_font; '>Trace</span></div></td>";
388			echo '</tr>';
389			echo '<tr>';
390			echo '<td bgcolor=#0000CC width=1>';
391			echo '</td>';
392			echo '<td>';
393
394			// ----- Content header
395			echo '<table width=100% border=0 cellspacing=0 cellpadding=0>';
396
397			// ----- Display
398			$v_again = 0;
			0 ignored issues – show Unused Code introduced 2018-03-17 07:54 UTC by Report Bug Copy Issue Report The assignment to `$v_again` is dead and can be removed. Loading history...
399			for ($i = 0, $iMax = \count($g_pcl_trace_entries); $i < $iMax; ++$i) {
400			// ---- Row header
401			echo '<tr>';
402			echo '<td><table width=100% border=0 cellspacing=0 cellpadding=0><tr>';
403			$n = ($g_pcl_trace_entries[$i]['index'] + 1) * 10;
404			echo '<td width=' . $n . '><table width=100% border=0 cellspacing=0 cellpadding=0><tr>';
405
406			for ($j = 0; $j <= $g_pcl_trace_entries[$i]['index']; ++$j) {
407			if ($j == $g_pcl_trace_entries[$i]['index']) {
408			if ((1 == $g_pcl_trace_entries[$i]['type']) \|\| (2 == $g_pcl_trace_entries[$i]['type'])) {
409			echo "<td width=10><div align=center><span style='font-size: x-small; font-family: $v_font; '>+</span></div></td>";
410			}
411			} else {
412			echo "<td width=10><div align=center><span style='font-size: x-small; font-family: $v_font; '>\|</span></div></td>";
413			}
414			}
415			//echo "<td>&nbsp</td>";
416			echo '</tr></table></td>';
417
418			echo '<td width=2></td>';
419			switch ($g_pcl_trace_entries[$i]['type']) {
420			case 1:
421			echo "<td><span style='font-size: x-small; font-family: $v_font; '>" . $g_pcl_trace_entries[$i]['name'] . '(' . $g_pcl_trace_entries[$i]['param'] . ')</span></td>';
422			break;
423			case 2:
424			echo "<td><span style='font-size: x-small; font-family: $v_font; '>" . $g_pcl_trace_entries[$i]['name'] . '()=' . $g_pcl_trace_entries[$i]['param'] . '</span></td>';
425			break;
426			case 3:
427			case 4:
428			echo '<td><table width=100% border=0 cellspacing=0 cellpadding=0><td width=20></td><td>';
429			echo "<span style='font-size: x-small; font-family: $v_font; '>" . $g_pcl_trace_entries[$i]['message'] . '</span>';
430			echo '</td></table></td>';
431			break;
432			default:
433			echo "<td><span style='font-size: x-small; font-family: $v_font; '>" . $g_pcl_trace_entries[$i]['name'] . '(' . $g_pcl_trace_entries[$i]['param'] . ')</span></td>';
434			}
435			echo '</tr></table></td>';
436			echo '<td width=5></td>';
437			echo "<td><span style='font-size: xx-small; font-family: $v_font; '>" . \basename($g_pcl_trace_entries[$i]['file']) . '</span></td>';
438			echo '<td width=5></td>';
439			echo "<td><span style='font-size: xx-small; font-family: $v_font; '>" . $g_pcl_trace_entries[$i]['line'] . '</span></td>';
440			echo '</tr>';
441			}
442
443			// ----- Content footer
444			echo '</table>';
445
446			// ----- Trace footer
447			echo '</td>';
448			echo '<td bgcolor=#0000CC width=1>';
449			echo '</td>';
450			echo '</tr>';
451			echo '<tr bgcolor=#0000CC>';
452			echo '<td bgcolor=#0000CC width=1>';
453			echo '</td>';
454			echo "<td><span align=center><span style='color: #FFFFFF; font-family: $v_font; '>&nbsp</font></span></td>";
455			echo '</tr>';
456			echo '</table>';
457			}
458
459			// --------------------------------------------------------------------------------
460
461			// --------------------------------------------------------------------------------
462			// Function : PclTraceAction()
463			// Description :
464			// Parameters :
465			// --------------------------------------------------------------------------------
466			/**
467			* @param $p_entry
468			*/
469			function PclTraceAction($p_entry)
470			{
471			global $g_pcl_trace_level;
472			global $g_pcl_trace_mode;
473			global $g_pcl_trace_filename;
474			global $g_pcl_trace_name;
475			global $g_pcl_trace_index;
476			global $g_pcl_trace_entries;
477
478			if ('normal' === $g_pcl_trace_mode) {
479			for ($i = 0; $i < $p_entry['index']; ++$i) {
480			echo '---';
481			}
482			if (1 == $p_entry['type']) {
483			echo '<b>' . $p_entry['name'] . '</b>(' . $p_entry['param'] . ') : ' . $p_entry['message'] . ' [' . $p_entry['file'] . ', ' . $p_entry['line'] . ']<br>';
484			} elseif (2 == $p_entry['type']) {
485			echo '<b>' . $p_entry['name'] . '</b>()=' . $p_entry['param'] . ' : ' . $p_entry['message'] . ' [' . $p_entry['file'] . ', ' . $p_entry['line'] . ']<br>';
486			} else {
487			echo $p_entry['message'] . ' [' . $p_entry['file'] . ', ' . $p_entry['line'] . ']<br>';
488			}
489			}
490			}
491
492			// --------------------------------------------------------------------------------
493
494			// ----- End of double include look
495			}
496

mambax7 / extgallery

TrFctStart() A last analyzed 2021-10-13 17:23 UTC

Complexity

Size

Duplication

Importance

Duplication Side-by-Side

Filter issues like

TrFctStart() A
last analyzed 2021-10-13 17:23 UTC