aboutsummaryrefslogtreecommitdiffstats
path: root/Model/Behavior.php
diff options
context:
space:
mode:
authorIvan Enderlin <ivan.enderlin@hoa-project.net>2012-11-23 17:35:54 +0100
committerIvan Enderlin <ivan.enderlin@hoa-project.net>2012-11-23 17:35:54 +0100
commita2430d429c689656655970f697d8350dd1539527 (patch)
tree00d73d05f3a7686bfcdecb8206a9528d234b34f4 /Model/Behavior.php
parent4b5e99f5003b30d98a7c5f74c3d02b33901af136 (diff)
downloadPraspel-a2430d429c689656655970f697d8350dd1539527.zip
Praspel-a2430d429c689656655970f697d8350dd1539527.tar.gz
Praspel-a2430d429c689656655970f697d8350dd1539527.tar.bz2
Welcome to Hoa\Praspel \o/!
Diffstat (limited to 'Model/Behavior.php')
-rw-r--r--Model/Behavior.php200
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;
+ }
+}
+
+}