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"
CStruct subclass: vty_app_info [
CStruct subclass: Vty_app_info [
<category: 'libosmovty'>
<comment: 'I represent the vty_app_info... some structs are wrong'>
<declaration: #(
@ -12,7 +12,7 @@ CStruct subclass: vty_app_info [
#(#is_config_node #(#ptr #int))) >
]
CStruct subclass: vty_vector [
CStruct subclass: Vty_vector [
<category: 'libosmovty'>
<comment: 'I am the struct _vector class'>
"the index is wrong but we do not need to access it"
@ -22,7 +22,7 @@ CStruct subclass: vty_vector [
#(#index #(#ptr #int))) >
]
CStruct subclass: vty_cmd_element [
CStruct subclass: Vty_cmd_element [
<category: 'libosmovty'>
<comment: 'I represent the lowlevel command'>
<declaration: #(
@ -30,14 +30,14 @@ CStruct subclass: vty_cmd_element [
#(#func #(#ptr #int))
#(#doc #string)
#(#daemon #int)
#(#strvec #(#ptr #{vty_vector}))
#(#strvec #(#ptr #{Vty_vector}))
#(#cmdsize #uInt)
#(#config #string)
#(#subconfig #(#ptr #{vty_vector}))
#(#subconfig #(#ptr #{Vty_vector}))
#(#attr #uChar))>
]
CStruct subclass: vty_cmd_node [
CStruct subclass: Vty_cmd_node [
<comment: 'I provide access to a cmd_node'>
<category: 'libosmovty'>
@ -46,7 +46,7 @@ CStruct subclass: vty_cmd_node [
#(#prompt #string)
#(#vtysh #int)
#(#func #(#ptr #int))
#(#cmd_vector #(#ptr #{vty_vector}))) >
#(#cmd_vector #(#ptr #{Vty_vector}))) >
]
Object subclass: NodeType [
@ -114,17 +114,17 @@ Object subclass: OSMOVTY [
]
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 [
<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 [
| app_info |
app_info := vty_app_info new.
app_info := Vty_app_info new.
app_info name value: aName.
app_info version value: aVersion.
app_info copyright value: aLicense.