51 lines
1.4 KiB
Smalltalk
51 lines
1.4 KiB
Smalltalk
"Copyright placeholder"
|
|
|
|
CStruct subclass: vty_app_info [
|
|
<category: 'libosmovty'>
|
|
<comment: 'I represent the vty_app_info... some structs are wrong'>
|
|
<declaration: #(
|
|
#(#name #string)
|
|
#(#version #string)
|
|
#(#copyright #string)
|
|
#(#tall_ctx #(#ptr #int))
|
|
#(#go_parent_cb #(#ptr #int))
|
|
#(#is_config_node #(#ptr #int))) >
|
|
]
|
|
|
|
Object subclass: OSMOVTY [
|
|
<comment: 'I provide access to the VTY code'>
|
|
<category: 'libosmovty'>
|
|
|
|
OSMOVTY class >> initialize [
|
|
DLD addLibrary: 'libosmovty.so.0'
|
|
]
|
|
|
|
OSMOVTY class >> vty_init: app_info [
|
|
<cCall: 'vty_init' returning: #void args: #(#cObject) >
|
|
]
|
|
|
|
OSMOVTY class >> vty_read_config_file: file_name priv: priv [
|
|
<cCall: 'vty_read_config_file' returning: #int args: #(#string (#ptr #long)) >
|
|
]
|
|
|
|
OSMOVTY class >> telnet_init: tall_context priv: priv port: aPort [
|
|
<cCall: 'telnet_init' returning: #int args: #(#cObject #cObject #int) >
|
|
]
|
|
|
|
OSMOVTY class >> initWith: aName version: aVersion license: aLicense port: aPort [
|
|
| app_info |
|
|
|
|
app_info := vty_app_info new.
|
|
app_info name value: aName.
|
|
app_info version value: aVersion.
|
|
app_info copyright value: aLicense.
|
|
|
|
OSMOVTY vty_init: app_info.
|
|
OSMOVTY telnet_init: nil priv: nil port: 4444.
|
|
]
|
|
]
|
|
|
|
Eval [
|
|
OSMOVTY initialize.
|
|
]
|