Semantic analyser for the credit DSL

diff --git a/logic/src/main/scala/gr/grnet/aquarium/logic/accounting/dsl/DSLSemanticChecks.scala b/logic/src/main/scala/gr/grnet/aquarium/logic/accounting/dsl/DSLSemanticChecks.scala
new file mode 100644 (file)
index 0000000..348d2fb
--- /dev/null
+++ b/logic/src/main/scala/gr/grnet/aquarium/logic/accounting/dsl/DSLSemanticChecks.scala
@@ -0,0 +1,67 @@
+/*
+ * Copyright 2011 GRNET S.A. All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or
+ * without modification, are permitted provided that the following
+ * conditions are met:
+ *
+ *   1. Redistributions of source code must retain the above
+ *      copyright notice, this list of conditions and the following
+ *      disclaimer.
+ *
+ *   2. 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.
+ *
+ * THIS SOFTWARE IS PROVIDED BY GRNET S.A. ``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 GRNET S.A OR
+ * 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.
+ *
+ * The views and conclusions contained in the software and
+ * documentation are those of the authors and should not be
+ * interpreted as representing official policies, either expressed
+ * or implied, of GRNET S.A.
+ */
+
+package gr.grnet.aquarium.logic.accounting.dsl
+
+import java.util.Date
+
+trait DSLSemanticChecks {
+
+  def check(policy: DSLCreditPolicy) : List[DSLConsistencyMsg] = {
+
+    List[DSLConsistencyMsg]() ++
+      policy.pricelists.flatMap(p => check(p))
+
+
+  }
+
+  def check(priceList: DSLPriceList) : List[DSLConsistencyMsg] = {
+    List[DSLConsistencyMsg]() ++
+      check(priceList.effective)
+  }
+
+  def check(time: DSLTimeFrame) : List[DSLConsistencyMsg] = {
+
+    val results = List[DSLConsistencyMsg]()
+
+    if (time.from.after(time.to.getOrElse(new Date(0))))
+      results += DSLConsistencyError("")
+
+  }
+}
+
+abstract class DSLConsistencyMsg(msg: String)
+case class DSLConsistencyWarn(warn: String) extends DSLConsistencyMsg(warn)
+case class DSLConsistencyError(err: String) extends DSLConsistencyMsg(err)