diff options
| -rw-r--r-- | LogArea.st | 2 | ||||
| -rw-r--r-- | OsmoCore.st | 2 | ||||
| -rw-r--r-- | OsmoVTY.st | 15 |
3 files changed, 11 insertions, 8 deletions
@@ -17,6 +17,8 @@ " Osmo.LogArea subclass: LogAreaOsmoCore [ + <category: 'OsmoBinding'> + LogAreaOsmoCore class >> areaName [ ^ #osmocore ] LogAreaOsmoCore class >> areaDescription [ ^ 'OSMOCore bindings' ] LogAreaOsmoCore class >> default [ diff --git a/OsmoCore.st b/OsmoCore.st index d768350..37634c8 100644 --- a/OsmoCore.st +++ b/OsmoCore.st @@ -26,7 +26,7 @@ Eval [ Object subclass: OSMOCore [ <comment: 'I provide lowlevel access libosmocore.so.0'> - <category: 'libosmocore'> + <category: 'OsmoBinding'> Process := nil. @@ -17,7 +17,7 @@ " CStruct subclass: Vty_app_info [ - <category: 'libosmovty'> + <category: 'OsmoBinding'> <comment: 'I represent the vty_app_info... some structs are wrong'> <declaration: #( #(#name #string) @@ -29,7 +29,7 @@ CStruct subclass: Vty_app_info [ ] CStruct subclass: Vty_vector [ - <category: 'libosmovty'> + <category: 'OsmoBinding'> <comment: 'I am the struct _vector class'> "the index is wrong but we do not need to access it" <declaration: #( @@ -39,7 +39,7 @@ CStruct subclass: Vty_vector [ ] CStruct subclass: Vty_cmd_element [ - <category: 'libosmovty'> + <category: 'OsmoBinding'> <comment: 'I represent the lowlevel command'> <declaration: #( #(#name #string) @@ -54,8 +54,8 @@ CStruct subclass: Vty_cmd_element [ ] CStruct subclass: Vty_cmd_node [ + <category: 'OsmoBinding'> <comment: 'I provide access to a cmd_node'> - <category: 'libosmovty'> <declaration: #( #(#node #int) @@ -102,8 +102,8 @@ Object subclass: NodeType [ ] Object subclass: OSMOVTY [ + <category: 'OsmoBinding'> <comment: 'I provide access to the VTY code'> - <category: 'libosmovty'> OSMOVTY class >> initialize [ DLD addLibrary: 'libosmovty.so.0' @@ -171,8 +171,8 @@ Object subclass: OSMOVTY [ ] Object subclass: VTYCommand [ - <comment: 'I represent a vty command'> - <category: 'libosmovty-st'> + <category: 'OsmoBinding'> + <comment: 'I represent a vty command with a callback'> | command callback handler | @@ -193,6 +193,7 @@ Object subclass: VTYCommand [ handleCommand: aCmd vty: aVty argc: aArgc argv: aArgv [ | str strings | + <category: 'private'> str := aArgv castTo: CStringType. strings := OrderedCollection new. |