Add BoolValue context type.

joshthecoder · joshthecoder · commit ab13b35cc23a · 2010-03-11T21:02:46.000-06:00
diff --git a/mustang/Context.ooc b/mustang/Context.ooc
@@ -2,7 +2,7 @@ import structs/[HashMap, List]
 
 
 Value: abstract class {
-    typeName: abstract func -> String
+    type: abstract func -> String
     toString: abstract func -> String
 }
 
@@ -11,29 +11,58 @@ StringValue: class extends Value {
 
     init: func(=value) {}
 
-    typeName: func -> String { "String" }
-
+    type: func -> String { "String" }
     toString: func -> String { value }
 }
 
+BoolValue: class extends Value {
+    value: Bool
+
+    init: func(=value) {}
+
+    type: func -> String { "Bool" }
+    toString: func -> String { value toString() }
+}
+
 ListValue: class <T> extends Value {
     list: List<T>
 
     init: func(=list) {}
 
-    typeName: func -> String { "List" }
+    type: func -> String { "List" }
     toString: func -> String { "List size=%d" format(list size()) }
 
     list: func -> List<T> { list }
 }
 
-Context: class {
+Context: abstract class {
+    add: abstract func(name: String, value: Value)
+    get: abstract func(name: String, value: Value)
+
+    addString: func(name: String, value: String) {
+        add(name, StringValue new(value))
+    }
+
+    addBool: func(name: String, value: Bool) {
+        add(name, BoolValue new(value))
+    }
+
+    addList: func <T> (name: String, value: List<T>) {
+        add(name, ListValue<T> new(value))
+    }
+}
+
+HashContext: class extends Context {
     data: HashMap<Value>
 
     init: func ~withHashMap(=data) {}
     init: func { data = HashMap<Value> new() }
 
-    resolve: func(name: String) -> Value {
-        data[name]
+    add: func(name: String, value: Value) {
+        data add(name, value)
+    }
+
+    get: func(name: String) -> Value {
+        data get(name)
     }
 }
