smalltalk
/
osmo-st-binding
Archived
1
0
Fork 0
Code Pull Requests Releases Activity

misc: Work on categories for the various classes.

This commit is contained in:
Holger Hans Peter Freyther 2011-09-27 16:35:44 +02:00
parent e4dc6132c9
commit 026611eb99
3 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
LogArea.st
View File

@ -17,6 +17,8 @@
" "
Osmo.LogArea subclass: LogAreaOsmoCore [ Osmo.LogArea subclass: LogAreaOsmoCore [
<category: 'OsmoBinding'>
LogAreaOsmoCore class >> areaName [ ^ #osmocore ] LogAreaOsmoCore class >> areaName [ ^ #osmocore ]
LogAreaOsmoCore class >> areaDescription [ ^ 'OSMOCore bindings' ] LogAreaOsmoCore class >> areaDescription [ ^ 'OSMOCore bindings' ]
LogAreaOsmoCore class >> default [ LogAreaOsmoCore class >> default [

2
OsmoCore.st
View File

@ -26,7 +26,7 @@ Eval [
Object subclass: OSMOCore [ Object subclass: OSMOCore [
<comment: 'I provide lowlevel access libosmocore.so.0'> <comment: 'I provide lowlevel access libosmocore.so.0'>
<category: 'libosmocore'> <category: 'OsmoBinding'>
Process := nil. Process := nil.

15
OsmoVTY.st
View File

@ -17,7 +17,7 @@
" "
CStruct subclass: Vty_app_info [ CStruct subclass: Vty_app_info [
<category: 'libosmovty'> <category: 'OsmoBinding'>
<comment: 'I represent the vty_app_info... some structs are wrong'> <comment: 'I represent the vty_app_info... some structs are wrong'>
<declaration: #( <declaration: #(
#(#name #string) #(#name #string)
@ -29,7 +29,7 @@ CStruct subclass: Vty_app_info [
] ]
CStruct subclass: Vty_vector [ CStruct subclass: Vty_vector [
<category: 'libosmovty'> <category: 'OsmoBinding'>
<comment: 'I am the struct _vector class'> <comment: 'I am the struct _vector class'>
"the index is wrong but we do not need to access it" "the index is wrong but we do not need to access it"
<declaration: #( <declaration: #(
@ -39,7 +39,7 @@ CStruct subclass: Vty_vector [
] ]
CStruct subclass: Vty_cmd_element [ CStruct subclass: Vty_cmd_element [
<category: 'libosmovty'> <category: 'OsmoBinding'>
<comment: 'I represent the lowlevel command'> <comment: 'I represent the lowlevel command'>
<declaration: #( <declaration: #(
#(#name #string) #(#name #string)
@ -54,8 +54,8 @@ CStruct subclass: Vty_cmd_element [
] ]
CStruct subclass: Vty_cmd_node [ CStruct subclass: Vty_cmd_node [
<category: 'OsmoBinding'>
<comment: 'I provide access to a cmd_node'> <comment: 'I provide access to a cmd_node'>
<category: 'libosmovty'>
<declaration: #( <declaration: #(
#(#node #int) #(#node #int)
@ -102,8 +102,8 @@ Object subclass: NodeType [
] ]
Object subclass: OSMOVTY [ Object subclass: OSMOVTY [
<category: 'OsmoBinding'>
<comment: 'I provide access to the VTY code'> <comment: 'I provide access to the VTY code'>
<category: 'libosmovty'>
OSMOVTY class >> initialize [ OSMOVTY class >> initialize [
DLD addLibrary: 'libosmovty.so.0' DLD addLibrary: 'libosmovty.so.0'
@ -171,8 +171,8 @@ Object subclass: OSMOVTY [
] ]
Object subclass: VTYCommand [ Object subclass: VTYCommand [
<comment: 'I represent a vty command'> <category: 'OsmoBinding'>
<category: 'libosmovty-st'> <comment: 'I represent a vty command with a callback'>
| command callback handler | | command callback handler |
@ -193,6 +193,7 @@ Object subclass: VTYCommand [
handleCommand: aCmd vty: aVty argc: aArgc argv: aArgv [ handleCommand: aCmd vty: aVty argc: aArgc argv: aArgv [
| str strings | | str strings |
<category: 'private'>
str := aArgv castTo: CStringType. str := aArgv castTo: CStringType.
strings := OrderedCollection new. strings := OrderedCollection new.