PHPTAL-NP-0.7.0/libs/PHPTAL/Attribute/METAL/Use_macro.php

   1 <?php
   2 /* vim: set expandtab tabstop=4 shiftwidth=4: */
   3 //
   4 //  Copyright (c) 2003 Laurent Bedubourg
   5 //
   6 //  This library is free software; you can redistribute it and/or
   7 //  modify it under the terms of the GNU Lesser General Public
   8 //  License as published by the Free Software Foundation; either
   9 //  version 2.1 of the License, or (at your option) any later version.
  10 //
  11 //  This library is distributed in the hope that it will be useful,
  12 //  but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 //  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14 //  Lesser General Public License for more details.
  15 //
  16 //  You should have received a copy of the GNU Lesser General Public
  17 //  License along with this library; if not, write to the Free Software
  18 //  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19 //
  20 //  Authors: Laurent Bedubourg <laurent.bedubourg@free.fr>
  21 //
  22
  23 class PHPTAL_Attribute_METAL_Use_Macro extends PHPTAL_Attribute
  24 {
  25     function activate(&$g, &$tag)
  26     {
  27         $g->doOBStart();
  28         $err = $tag->generateContent($g);
  29         if (PEAR::isError($err)) { return $err; }
  30         $g->doOBClean();
  31
  32         $path = $g->newTemporaryVar();
  33
  34         $g->doAffectResult($path, "'". PHPTAL_ES_path_in_string($this->expression,"'") . "'");
  35
  36         $temp = $g->newTemporaryVar();
  37
  38         // push error
  39         $g->execute('$__old_error = $__ctx__->_errorRaised');
  40         $g->execute('$__ctx__->_errorRaised = false');
  41
  42         $g->doAffectResult($temp, 'new PHPTAL_Macro($__tpl__, '. $path .')');
  43         $g->doAffectResult($temp, $temp.'->execute($__tpl__)');
  44
  45         $g->doIf('PEAR::isError('.$temp.')');
  46         $g->execute('$__ctx__->_errorRaised = '.$temp );
  47         $g->endBlock();
  48
  49         $g->doPrintVar($temp, true);
  50
  51         // restore error
  52         $g->doIf('!$__ctx__->_errorRaised');
  53         $g->execute('$__ctx__->_errorRaised = $__old_error');
  54         $g->endBlock();
  55     }
  56 }
  57
  58 ?>