Source for file AddAction.php

Documentation is available at AddAction.php

  1. <?php
  2. // vim: foldmethod=marker
  3. /**
  4.  *  AddAction.php
  5.  *
  6.  *  @author     Masaki Fujimoto <fujimoto@php.net>
  7.  *  @license    http://www.opensource.org/licenses/bsd-license.php The BSD License
  8.  *  @package    Ethna
  9.  *  @version    $Id: 4251c3e6ce22b14f40304769b50a84959cdd7724 $
  10.  */
  11.  
  12. // {{{ Ethna_Plugin_Handle_AddAction
  13. /**
  14.  *  add-action handler
  15.  *
  16.  *  @author     Masaki Fujimoto <fujimoto@php.net>
  17.  *  @access     public
  18.  *  @package    Ethna
  19.  */
  20. class Ethna_Plugin_Handle_AddAction extends Ethna_Plugin_Handle
  21. {
  22.     /**
  23.      *  add action
  24.      *
  25.      *  @access public
  26.      */
  27.     function perform()
  28.     {
  29.         //
  30.         //  '-w[with-unittest]' and '-u[unittestskel]' option
  31.         //  are not intuisive, but I dare to define them because
  32.         //  -t and -s option are reserved by add-[action|view] handle
  33.         //  and Ethna_Getopt cannot interpret two-character option.
  34.         //
  35.         $r = $this->_getopt(
  36.                   array('basedir=',
  37.                         'skelfile=',
  38.                         'gateway=',
  39.                         'with-unittest',
  40.                         'unittestskel=',
  41.                   )
  42.              );
  43.         if (Ethna::isError($r)) {
  44.             return $r;
  45.         }
  46.         list($opt_list, $arg_list) = $r;
  47.  
  48.         // action_name
  49.         $action_name = array_shift($arg_list);
  50.         if ($action_name == null) {
  51.             return Ethna::raiseError('action name isn\'t set.', 'usage');
  52.         }
  53.         $r = Ethna_Controller::checkActionName($action_name);
  54.         if (Ethna::isError($r)) {
  55.             return $r;
  56.         }
  57.  
  58.         $ret = $this->_perform('Action', $action_name, $opt_list);
  59.         return $ret;
  60.     }
  61.  
  62.     /**
  63.      *  @access protected
  64.      */
  65.     function &_perform($target, $target_name, $opt_list)
  66.     {
  67.         // basedir
  68.         if (isset($opt_list['basedir'])) {
  69.             $basedir = realpath(end($opt_list['basedir']));
  70.         } else {
  71.             $basedir = getcwd();
  72.         }
  73.  
  74.         // skelfile
  75.         if (isset($opt_list['skelfile'])) {
  76.             $skelfile = end($opt_list['skelfile']);
  77.         } else {
  78.             $skelfile = null;
  79.         }
  80.         
  81.         // gateway
  82.         if (isset($opt_list['gateway'])) {
  83.             $gateway = 'GATEWAY_' . strtoupper(end($opt_list['gateway']));
  84.             if (defined($gateway)) {
  85.                 $gateway = constant($gateway);
  86.             } else {
  87.                 return Ethna::raiseError('unknown gateway', 'usage');
  88.             }
  89.         } else {
  90.             $gateway = GATEWAY_WWW;
  91.         }
  92.         
  93.         //  possible target is Action, View.
  94.         $r = Ethna_Generator::generate($target, $basedir,
  95.                                         $target_name, $skelfile, $gateway);
  96.         if (Ethna::isError($r)) {
  97.             printf("error occurred while generating skelton. please see also following error message(s)\n\n");
  98.             return $r;
  99.         }
  100.  
  101.         //
  102.         //  if specified, generate corresponding testcase,
  103.         //  except for template.
  104.         //
  105.         if ($target != 'Template' && isset($opt_list['with-unittest'])) {
  106.             $testskel = (isset($opt_list['unittestskel']))
  107.                       ? end($opt_list['unittestskel'])
  108.                       : null;
  109.             $r = Ethna_Generator::generate("{$target}Test", $basedir, $target_name, $testskel, $gateway);
  110.             if (Ethna::isError($r)) {
  111.                 printf("error occurred while generating action test skelton. please see also following error message(s)\n\n");
  112.                 return $r;
  113.             }
  114.         }  
  115.  
  116.         $true = true;
  117.         return $true;
  118.     }
  119.  
  120.     /**
  121.      *  get handler's description
  122.      *
  123.      *  @access public
  124.      */
  125.     function getDescription()
  126.     {
  127.         return <<<EOS
  128. add new action to project:
  129.     {$this->id} [-b|--basedir=dir] [-s|--skelfile=file] [-g|--gateway=www|cli|xmlrpc] [-w|--with-unittest] [-u|--unittestskel=file] [action]
  130.  
  131. EOS;
  132.     }
  133.  
  134.     /**
  135.      *  @access public
  136.      */
  137.     function getUsage()
  138.     {
  139.         return <<<EOS
  140. ethna {$this->id} [-b|--basedir=dir] [-s|--skelfile=file] [-g|--gateway=www|cli|xmlrpc] [-w|--with-unittest] [-u|--unittestskel=file] [action]
  141.  
  142. EOS;
  143.     }
  144. }
  145. // }}}

Documentation generated on Fri, 11 Nov 2011 03:57:26 +0900 by phpDocumentor 1.4.3