VTY: Put commands into a global dictionary... avoiding the GC

1 files changed, 16 insertions, 0 deletions

diff --git a/OsmoVTY.st b/OsmoVTY.st
index 18995a8..2b6e581 100644
--- a/OsmoVTY.st
+++ b/OsmoVTY.st
@@ -143,6 +143,15 @@ Object subclass: OSMOVTY [
         OSMOVTY vty_init: app_info.
         OSMOVTY telnet_init: nil priv: nil port: 4444.
     ]
+
+    OSMOVTY class >> commands [
+        ^ Smalltalk at: #VTY_Commands ifAbsent: [
+            | array |
+            array := OrderedCollection new.
+            Smalltalk at: #VTY_Commands put: array.
+            array.
+        ]
+    ]
 ]
 
 Object subclass: VTYCommand [
@@ -211,8 +220,15 @@ Object subclass: VTYCommand [
 
     install_ve [
         <category: 'install'>
+        OSMOVTY commands add: self.
         OSMOVTY install_element_ve: command.
     ]
+
+    install: aNode [
+        <category: 'install'>
+        OSMOVTY commands add: self.
+        OSMOVTY install_element: aNode cmd: command.
+    ]
 ]
 
 Eval [