Ported r75 (all JSON value classes) from POC_CONVERTERS_FACTORY branch to trunk

library/kernel/json_null.e

@@ -1,42 +1,47 @@
 indexing
-	description: "JSON Null Values"
-	author: "Javier Velilla"
-	date: "2008/08/24"
-	revision: "Revision 0.1"
+    description: "JSON Null Values"
+    author: "Javier Velilla"
+    date: "2008/08/24"
+    revision: "Revision 0.1"
 
 class
-	JSON_NULL
+    JSON_NULL
 
 inherit
-	JSON_VALUE
+    JSON_VALUE
 
 feature --Access
 
-	hash_code: INTEGER is
-			-- Hash code value
-		do
-			Result := null_value.hash_code
-		end
+    hash_code: INTEGER is
+            -- Hash code value
+        do
+            Result := null_value.hash_code
+        end
 
+    representation: STRING is
+        do
+            Result := "null"
+        end
+        
 feature -- Visitor pattern
 
-	accept (a_visitor: JSON_VISITOR) is
-			-- Accept `a_visitor'.
-			-- (Call `visit_element_a' procedure on `a_visitor'.)
-		do
-			a_visitor.visit_json_null (Current)
-		end
+    accept (a_visitor: JSON_VISITOR) is
+            -- Accept `a_visitor'.
+            -- (Call `visit_element_a' procedure on `a_visitor'.)
+        do
+            a_visitor.visit_json_null (Current)
+        end
 
 feature -- Status report
 
-	debug_output: STRING
-			-- String that should be displayed in debugger to represent `Current'.
-		do
-			Result := null_value
-		end
+    debug_output: STRING
+            -- String that should be displayed in debugger to represent `Current'.
+        do
+            Result := null_value
+        end
 
-feature {NONE}-- Implementation		
+feature {NONE}-- Implementation        
 
-	null_value: STRING is "null"
+    null_value: STRING is "null"
 
 end