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

VTY: Use capital for the class name as this appears to work better

This commit is contained in:
Holger Hans Peter Freyther 2010-09-13 16:08:28 +08:00
parent bffccd92d0
commit 883f1a7651
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
OsmoVTY.st
View File

@ -1,6 +1,6 @@
"Copyright placeholder" "Copyright placeholder"
CStruct subclass: vty_app_info [ CStruct subclass: Vty_app_info [
<category: 'libosmovty'> <category: 'libosmovty'>
<comment: 'I represent the vty_app_info... some structs are wrong'> <comment: 'I represent the vty_app_info... some structs are wrong'>
<declaration: #( <declaration: #(
@ -12,7 +12,7 @@ CStruct subclass: vty_app_info [
#(#is_config_node #(#ptr #int))) > #(#is_config_node #(#ptr #int))) >
] ]
CStruct subclass: vty_vector [ CStruct subclass: Vty_vector [
<category: 'libosmovty'> <category: 'libosmovty'>
<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"
@ -22,7 +22,7 @@ CStruct subclass: vty_vector [
#(#index #(#ptr #int))) > #(#index #(#ptr #int))) >
] ]
CStruct subclass: vty_cmd_element [ CStruct subclass: Vty_cmd_element [
<category: 'libosmovty'> <category: 'libosmovty'>
<comment: 'I represent the lowlevel command'> <comment: 'I represent the lowlevel command'>
<declaration: #( <declaration: #(
@ -30,14 +30,14 @@ CStruct subclass: vty_cmd_element [
#(#func #(#ptr #int)) #(#func #(#ptr #int))
#(#doc #string) #(#doc #string)
#(#daemon #int) #(#daemon #int)
#(#strvec #(#ptr #{vty_vector})) #(#strvec #(#ptr #{Vty_vector}))
#(#cmdsize #uInt) #(#cmdsize #uInt)
#(#config #string) #(#config #string)
#(#subconfig #(#ptr #{vty_vector})) #(#subconfig #(#ptr #{Vty_vector}))
#(#attr #uChar))> #(#attr #uChar))>
] ]
CStruct subclass: vty_cmd_node [ CStruct subclass: Vty_cmd_node [
<comment: 'I provide access to a cmd_node'> <comment: 'I provide access to a cmd_node'>
<category: 'libosmovty'> <category: 'libosmovty'>
@ -46,7 +46,7 @@ CStruct subclass: vty_cmd_node [
#(#prompt #string) #(#prompt #string)
#(#vtysh #int) #(#vtysh #int)
#(#func #(#ptr #int)) #(#func #(#ptr #int))
#(#cmd_vector #(#ptr #{vty_vector}))) > #(#cmd_vector #(#ptr #{Vty_vector}))) >
] ]
Object subclass: NodeType [ Object subclass: NodeType [
@ -114,17 +114,17 @@ Object subclass: OSMOVTY [
] ]
OSMOVTY class >> install_element: aNode cmd: aCmd [ OSMOVTY class >> install_element: aNode cmd: aCmd [
<cCall: 'install_element' returning: #void args: #(#int #{vty_cmd_element}) > <cCall: 'install_element' returning: #void args: #(#int #{Vty_cmd_element}) >
] ]
OSMOVTY class >> install_element_ve: aCmd [ OSMOVTY class >> install_element_ve: aCmd [
<cCall: 'install_element_ve' returning: #void args: #(#{vty_cmd_element}) > <cCall: 'install_element_ve' returning: #void args: #(#{Vty_cmd_element}) >
] ]
OSMOVTY class >> initWith: aName version: aVersion license: aLicense port: aPort [ OSMOVTY class >> initWith: aName version: aVersion license: aLicense port: aPort [
| app_info | | app_info |
app_info := vty_app_info new. app_info := Vty_app_info new.
app_info name value: aName. app_info name value: aName.
app_info version value: aVersion. app_info version value: aVersion.
app_info copyright value: aLicense. app_info copyright value: aLicense.