Changes between Version 2 and Version 3 of NameSpaces

Timestamp:

2017-09-11 13:25:50 (8 years ago)

Author:

archibald

Comment:

--

NameSpaces

@@ -11 +11 @@
 {{{
 SINGLETON design
-    namespace{} ourNameSpaces
+    namespace ourNameSpaces = NEW namespace("system")
 
-CLASS namespace
-    namespace{} subSpaces    
-    ubyte$ name
+CLASS namespace(ubyte$ name)
+    namespace{} subSpaces
+    
+    namespace(namespace) addNamespace(newNameSpace) =
+    {
+        subSpaces.add(newNameSpace)
+        RETURN newNameSpace
+    }
 }}}