Welcome to Hoa\Praspel \o/!

1 files changed, 200 insertions, 0 deletions

diff --git a/Model/Behavior.php b/Model/Behavior.php
new file mode 100644
index 0000000..1d59695
--- /dev/null
+++ b/Model/Behavior.php
@@ -0,0 +1,200 @@
+<?php
+
+/**
+ * Hoa
+ *
+ *
+ * @license
+ *
+ * New BSD License
+ *
+ * Copyright © 2007-2012, Ivan Enderlin. All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions are met:
+ *     * Redistributions of source code must retain the above copyright
+ *       notice, this list of conditions and the following disclaimer.
+ *     * Redistributions in binary form must reproduce the above copyright
+ *       notice, this list of conditions and the following disclaimer in the
+ *       documentation and/or other materials provided with the distribution.
+ *     * Neither the name of the Hoa nor the names of its contributors may be
+ *       used to endorse or promote products derived from this software without
+ *       specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS AND CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+namespace {
+
+from('Hoa')
+
+/**
+ * \Hoa\Praspel\Exception\Model
+ */
+-> import('Praspel.Exception.Model')
+
+/**
+ * \Hoa\Praspel\Model\Clause
+ */
+-> import('Praspel.Model.Clause')
+
+/**
+ * \Hoa\Praspel\Model\Requires
+ */
+-> import('Praspel.Model.Requires')
+
+/**
+ * \Hoa\Praspel\Model\Ensures
+ */
+-> import('Praspel.Model.Ensures')
+
+/**
+ * \Hoa\Praspel\Model\Requires
+ */
+-> import('Praspel.Model.Throwable')
+
+/**
+ * \Hoa\Praspel\Model\Invariant
+ */
+-> import('Praspel.Model.Invariant')
+
+/**
+ * \Hoa\Praspel\Model\Forexample
+ */
+-> import('Praspel.Model.Forexample');
+
+}
+
+namespace Hoa\Praspel\Model {
+
+/**
+ * Class \Hoa\Praspel\Model\Behavior.
+ *
+ * Represent the @behavior clause.
+ *
+ * @author     Ivan Enderlin <ivan.enderlin@hoa-project.net>
+ * @copyright  Copyright © 2007-2012 Ivan Enderlin.
+ * @license    New BSD License
+ */
+
+class Behavior extends Clause {
+
+    /**
+     * Name.
+     *
+     * @const string
+     */
+    const NAME = 'behavior';
+
+    /**
+     * Clauses.
+     *
+     * @var \Hoa\Praspel\Model\Behavior array
+     */
+    protected $_clauses    = array();
+
+    /**
+     * Identifier (@behavior <identifier> { … }).
+     *
+     * @var \Hoa\Praspel\Model\Behavior string
+     */
+    protected $_identifier = null;
+
+
+
+    /**
+     * Get a specific clause.
+     *
+     * @access  public
+     * @param   string  $clause    Clause (without leading arobase).
+     * @return  \Hoa\Praspel\Model\Clause
+     * @throw   \Hoa\Praspel\Exception\Model
+     */
+    public function getClause ( $clause ) {
+
+        if(isset($this->_clauses[$clause]))
+            return $this->_clauses[$clause];
+
+        $handle = null;
+
+        switch($clause) {
+
+            case 'requires':
+                $handle = new Requires($this);
+              break;
+
+            case 'ensures':
+                $handle = new Ensures($this);
+              break;
+
+            case 'throwable':
+                $handle = new Throwable($this);
+              break;
+
+            case 'invariant':
+                $handle = new Invariant($this);
+              break;
+
+            case 'behavior':
+                $handle = new self($this);
+              break;
+
+            default:
+                throw new \Hoa\Praspel\Exception\Model(
+                    'Clause @%s is unknown or not allowed in %s.',
+                    0, array($clause, $this->getName()));
+        }
+
+        return $this->_clauses[$clause] = $handle;
+    }
+
+    /**
+     * Check if a clause already exists, i.e. has been declared.
+     *
+     * @access  public
+     * @param   string  $clause    Clause (without leading arobase).
+     * @return  bool
+     */
+    public function clauseExists ( $clause ) {
+
+        return isset($this->_clauses[$clause]);
+    }
+
+    /**
+     * Set identifier.
+     *
+     * @access  public
+     * @param   string  $identifier    Identifier.
+     * @return  string
+     */
+    public function setIdentifier ( $identifier ) {
+
+        $old               = $this->_identifier;
+        $this->_identifier = $identifier;
+
+        return $old;
+    }
+
+    /**
+     * Get identifier.
+     *
+     * @access  public
+     * @return  string
+     */
+    public function getIdentifier ( ) {
+
+        return $this->_identifier;
+    }
+}
+
+}