#!/usr/bin/php
<?php
/********************************************************************* 
* Copyright (c) mr-sk.com, 2008.
* 
* All rights reserved under the copyright laws of the United States.
* 
* Author: Ben Sgro aka mr-sk
* Email:  sk/@/mr-sk/dot/com
* Http:   mr-sk.com
*
* Run: ./dc.php -f fileToCheck
* 
* Shoutz: #innercircle slashproc - Thanks for the implementation!
*                      slashproc - and the ereg!
*         
* 
********************************************************************
*
* Who:    When:    	What:
* ----    -----     	-----
* sk      02-Aug-08    Created.
* 
********************************************************************/

define('VERSION', 0.1);

   /**
    * Displays a usage menu for the user.
    * 
    * @param    array   PHP populated CL arguments.
    */
   function throwUsage($argv)
   {
       printf("\nDoubleCheck %s [http://mr-sk.com]", VERSION);
       printf("\nUsage: %s -f <filename> [options]\n", $argv[0]);
       printf("Options: -f <filename> :The name of the file you wish do double check.\n");
       //printf("         -s on         :Smart Mode - Attempts to guess OOP related variables.\n");
       printf("         -m on         :Method Clean - Attempts to cleanup method declarations.\n");
       exit();
   }


   /**
    * Prints the contents of the data set beneath the header message.
    *
    * @parram   array   A data set.
    * @param    string  A header message for the user.
    */
   function displaySet($set, $msg)
   {
       printf("$msg\n");
       while(list($var, $count) = each($set))
       {
           printf("  %s => %u\n",$var, $count);
       }          
   }


   /**
    * Takes our data set and cleans it up, honoring counts.
    * 
    * @param    array   A data set to manipulate.
    * @return   array   A cleaned up data set.
    */
   function organizeSet($set)
   {
       $rSet = array();
       for($i=0; $i<count($set); $i++)
       {
           if (isset($rSet[$set[$i][0]]))
           {
               /* We have a count we have to honor. */
               $rSet[$set[$i][0]] = $rSet[$set[$i][0]] + $set[$i][1];
           }
           else
           {
               $rSet[$set[$i][0]] = $set[$i][1];
           }
       }        
       return $rSet;
   }


   /* MAIN */

   $args = getopt("f:s:m:");

   $fileToCheck  = $args['f'];
   $isSmartMode  = (strtolower($args['s']) == 'on')? 1:0;
   $isMethodMode = (strtolower($args['m']) == 'on')? 1:0;

   $fHandle = @ fopen($fileToCheck, "r"); /* Surpress it yo. */
   if ($fHandle != FALSE)
   {
       $buffer='';
       while(!feof($fHandle))
       {
           $line = fgets($fHandle);
           if( strlen($line) )
           {   /* Remove all comments. */
               $buffer .= ereg_replace('^(\'[\']*\'|\"[\"]*\")*//.*$', '', $line);
           }
       }
       fclose($fHandle);

       $buffer  = ereg_replace('/\*([^/]|[^*]/)*\*/', '', $buffer);
       $vars    = null;
       $methods = null;

       while (ereg("\\$[A-Za-z0-9_]+(\[([0-9]+|[\'\"][^\'\"]+[\'\"])\])*(->[A-Za-z0-9_]+(\[([0-9]+|[\'\"][^\'\"]+[\'\"])\])*)*(\([^\)]*\))?", $buffer, $match))
       {
           $buffer = str_replace($match[0], '', $buffer, $count);
           if ( ereg("\([^\)]*\)$", $match[0]) )
           {
               $methods[] = array($match[0], $count);
           }
           else
           {
               $vars[] = array($match[0], $count);
           }    
       }

       /* Attempt to clean up methods. */
       if ($isMethodMode)
       {
           for ($i=0; $i < count($methods); $i++)
           {
               $methods[$i][0] = ereg_replace("\([aA-zZ0-9_$&%^*/+-:;, \n\r\].*[)]", "", $methods[$i][0]);
               $methods[$i][0] = str_replace('()', '', $methods[$i][0]);                                        
           }
       }

       $varSet  = organizeSet($vars);
       $methSet = organizeSet($methods);

       ksort($varSet);
       ksort($methSet);

       displaySet($varSet, "\n[Variables => Count]");
       displaySet($methSet, "\n[Methods => Count]");

   }
   else { throwUsage($argv); }