<?php

   ////////////////////////////////////////////////////////////////////
   //                P R O J E C T A R C H E T Y P E                 //
   //                 www.fuzzywoodlandcreature.net                  //
   ////////////////////////////////////////////////////////////////////

/**
 * Archetype's primary file
 *
 * @package Archetype
 * @subpackage system
 * @author Justin Krueger <hide@address.com>
 * @copyright © 2007 Justin Krueger.  All rights reserved.
 * @license http://www.opensource.org/licenses/mit-license.html MIT
 * @link http://fuzzywoodlandcreature.com/archetype
 * @version 2007.11.4
 */

// Audible errors because we can't have them ignored for development purposes (feel free to silence a production application if you're sure it's safe)
   error_reporting(E_ALL);

/**
 * Archetype's version
 */define('A_VERSION','2007.11.4');

/**
 * How should Archetype run?  0 for http, 1 for interactive
 */
   if(!defined('A_MODE')) { define('A_MODE',0); }

/**
 * Location of the system directory
 */if(!defined('A_SYSTEM_LOCATION')) { define('A_SYSTEM_LOCATION','Archetype/'); }
/**
 * Location of automator storage
 */if(!defined('A_AUTOMATORS_LOCATION')) { define('A_AUTOMATORS_LOCATION',A_SYSTEM_LOCATION.'automators/'); }
/**
 * Location of injector storage
 */if(!defined('A_INJECTORS_LOCATION')) { define('A_INJECTORS_LOCATION',A_SYSTEM_LOCATION.'injectors/'); }
/**
 * Location of config storage
 */if(!defined('A_SETTINGS_LOCATION')) { define('A_SETTINGS_LOCATION',A_SYSTEM_LOCATION.'settings/'); }
/**
 * Location of model storage
 */if(!defined('A_MODELS_LOCATION')) { define('A_MODELS_LOCATION',A_SYSTEM_LOCATION.'models/'); }
/**
 * Location of view storage
 */if(!defined('A_VIEWS_LOCATION')) { define('A_VIEWS_LOCATION',A_SYSTEM_LOCATION.'views/'); }
/**
 * Location of controller storage
 */if(!defined('A_CONTROLLERS_LOCATION')) { define('A_CONTROLLERS_LOCATION',A_SYSTEM_LOCATION.'controllers/'); }
/**
 * Location of global classes
 */if(!defined('A_GLOBAL_LOCATION')) { define('A_GLOBAL_LOCATION',A_SYSTEM_LOCATION.'global.inc.php'); }

/**
 * Universal variable passed between every object extended from Archetype
 * @var array
 */
   $_=array
      (
         'information'=>array // Storage of miscellaneous information
            (
               'settings'=>array(),
               'priority'=>array('construct'=>array(),'destruct'=>array()), // Automator priority
               'timings'=>array('archetype|start'=>microtime(true)), // Benchmark timings and the system's begin time
               'lists'=>array('automators'=>array(),'injectors'=>array()), // Lists of component types that require to be opened all at once
               'input'=>array
                  (
                     'controller'=>'',
                     'method'=>'',
                     'parameters'=>array()
                  )
            ),
         'objects'=>array // Storage of live objects
            (
               'automators'=>array(),
               'injectors'=>array(),
               'models'=>array('system'=>false),
               'controllers'=>array('system'=>false)
            ),
      );

// Open up our global class definitions
   require(A_GLOBAL_LOCATION);

// Scan the filesystem for injectors
   $_['information']['lists']['injectors']=array_slice(scandir(A_INJECTORS_LOCATION),2);

// Scan the filesystem for automators
   $_['information']['lists']['automators']=array_slice(scandir(A_AUTOMATORS_LOCATION),2);

// Execute in a sandbox so we can catch exceptions
   try
      {
      // Open injectors
         foreach($_['information']['lists']['injectors'] as $key=>$injector)
            {
               if($injector{0}==='.')
                  {
                  // Hide files and directories that should be hidden from the system
                     unset($_['information']['lists']['automators'][$key]);
                  }
               else
                  {
                     $injector=str_replace('.inc.php','',$injector);

                     require(A_INJECTORS_LOCATION.$injector.'.inc.php');

                     $class='A_'.$injector.'_injector';

                     if(class_exists($class))
                        {
                           $_['objects']['injectors'][$injector]=new $class($_);
                        }
                  }
            }

      // Open automators
         foreach($_['information']['lists']['automators'] as $key=>$automator)
            {
               if($automator{0}==='.')
                  {
                  // Hide files and directories that should be hidden from the system
                     unset($_['information']['lists']['automators'][$key]);
                  }
               else
                  {
                     $automator=str_replace('.inc.php','',$automator);

                     $construct=$destruct=0;

                     require(A_AUTOMATORS_LOCATION.$automator.'.inc.php');

                     $class='A_'.$automator.'_automator';

                     if(class_exists($class))
                        {
                           $_['information']['priority']['construct'][$automator]=$construct;
                           $_['information']['priority']['destruct'][$automator]=$destruct;
                        }
                  }
            }

      // Sort constructor and destructor orders
         arsort($_['information']['priority']['construct'],SORT_NUMERIC);
         arsort($_['information']['priority']['destruct'],SORT_NUMERIC);

      // Run constructors
         foreach($_['information']['priority']['construct'] as $automator=>$priority)
            {
               if(class_exists($class='A_'.$automator.'_automator'))
                  {
                     $_['objects']['automators'][$automator]=new $class($_);
                  }
            }

      // Run destructors
         foreach($_['information']['priority']['destruct'] as $automator=>$priority)
            {
               if(!empty($_['objects']['automators'][$automator]))
                  {
                     unset($_['objects']['automators'][$automator]);
                  }
            }
      }
// If an exception was caught, finish up with a professional, helpful error
   catch(Exception $x)
      {
      // Allow components to set a new exception handler
         if(!empty($_['objects']['models']['system']))
            {
               $_['objects']['models']['system']->controller('system','exception',array($x));
            }
      // But default to trigger_error()
         else
            {
               trigger_error($x->__toString(),E_USER_ERROR); // __toString() because PHP5.1 is stupid and because magic methods are sluggish
            }
      }
?>