Artifact 242ad648c364ba6ebc13f2e443b8118cf05fe8a1:

• File library/ATWF/Filters/Dir.tcl — part of check-in [45dfb49135] at 2010-12-01 08:24:52 on branch trunk — renaming

  git-svn-id: https://atwf.svn.sourceforge.net/svnroot/atwf@495 3ddb7fe1-eb8e-4980-8f37-d9e37380b5db (user: arnulf@wiedemann-pri.de size: 1295)

#*************************************************************************
#*
#*  $Author$
#*  $URL$
#*
#*  This module has been implemented in Tcl by using mostly the corresponding module
#*  Filter/Dir.php from the Zend framework see: http://framework.zend.com
#*  So the ideas are also copyrighted by Zend Technologies USA Inc. (http://www.zend.com)
#*  The implementation in Tcl uses ditcs and lists instead of php arrays.
#* 
#*  The Contents of this file are made available subject to the terms of
#*  the following license see @license below
#*
#*  Copyright 2010 Arnulf Wiedemann
#*
#*  Author: Arnulf Wiedemann
#*
#*  Contributor(s): 
#*
# @category    ATWF
# @package     library
# @subpackage  Filters
# @license     BSD License (see file license.terms in the source top drectory)
# @version     $Id$
#************************************************************************/

namespace eval ::ATWF {

::itcl::extendedclass Filters::Dir {
    inherit ::ATWF::Filter

    public method filter {value}
}

  #============================ filter =========================================
  # Defined by Filter
  #
  # Returns dirname($value)
  #
  # @param  string $value
  # @return string
::itcl::body Filters::Dir::filter {value} {
    return [file dirname $value]
}

} ; # END ::ATWF