forked from daneos/lutango
81 lines
2.4 KiB
Lua
81 lines
2.4 KiB
Lua
-------------------------------------------------------------------------------
|
|
--
|
|
-- luTango - Lua binding for Tango
|
|
--
|
|
-- Copyright (C) 2023 Grzegorz Kowalski
|
|
-- See LICENSE for legal information
|
|
--
|
|
-- file: run_cmds.lua
|
|
--
|
|
-- Test script for running commands
|
|
--
|
|
-------------------------------------------------------------------------------
|
|
|
|
local lut = require "lutango"
|
|
lut.log:set_log_level(lut.log.level.WARNING)
|
|
|
|
local dp = lut.DeviceProxy(arg[1] or "sys/tg_test/1")
|
|
|
|
function run_void_cmd(cmd)
|
|
io.write(cmd.."(): ")
|
|
print(dp[cmd]())
|
|
end
|
|
|
|
function run_scalar_cmd(cmd, input)
|
|
io.write(cmd.."("..tostring(input).."): ")
|
|
print(dp[cmd](input))
|
|
end
|
|
|
|
function run_array_cmd(cmd, input)
|
|
io.write(cmd.."({")
|
|
for _,v in ipairs(input) do
|
|
io.write(v..", ")
|
|
end
|
|
io.write("}): ")
|
|
local r = dp[cmd](input)
|
|
io.write(tostring(r)..": {")
|
|
for _,v in ipairs(input) do
|
|
io.write(v..", ")
|
|
end
|
|
print("}")
|
|
end
|
|
|
|
run_void_cmd("State")
|
|
run_void_cmd("Status")
|
|
run_void_cmd("SwitchStates")
|
|
run_void_cmd("DevVoid")
|
|
|
|
run_scalar_cmd("DevBoolean", true)
|
|
run_scalar_cmd("DevBoolean", false)
|
|
run_scalar_cmd("DevDouble", 88.888)
|
|
run_scalar_cmd("DevDouble", -88.888)
|
|
run_scalar_cmd("DevFloat", 8.88)
|
|
run_scalar_cmd("DevFloat", -8.88)
|
|
run_scalar_cmd("DevLong", 99112233)
|
|
run_scalar_cmd("DevLong", -99112233)
|
|
run_scalar_cmd("DevLong64", 1199228833775566)
|
|
run_scalar_cmd("DevLong64", -1199228833775566)
|
|
run_scalar_cmd("DevShort", 101)
|
|
run_scalar_cmd("DevShort", -101)
|
|
run_scalar_cmd("DevString", "hello world")
|
|
run_scalar_cmd("DevULong", 9911223344)
|
|
run_scalar_cmd("DevULong64", 1199228833775566)
|
|
run_scalar_cmd("DevUShort", 101)
|
|
-- run_scalar_cmd("DevVarCharArray", "hello world")
|
|
|
|
run_array_cmd("DevVarDoubleArray", {1.1111, -2.2222, 3.3333})
|
|
-- run_array_cmd("DevVarDoubleStringArray", {???})
|
|
run_array_cmd("DevVarFloatArray", {1.11, -2.22, 3.33})
|
|
run_array_cmd("DevVarLong64Array", {11111111111, -22222222222, 33333333333})
|
|
run_array_cmd("DevVarLongArray", {11111111111, -22222222222, 33333333333})
|
|
-- run_array_cmd("DevVarLongStringArray", {???})
|
|
run_array_cmd("DevVarShortArray", {1111, -2222, 3333})
|
|
run_array_cmd("DevVarStringArray", {"hello", "world", "from", "Lua"})
|
|
run_array_cmd("DevVarULong64Array", {11111111111, 22222222222, 33333333333})
|
|
run_array_cmd("DevVarULongArray", {11111111111, 22222222222, 33333333333})
|
|
run_array_cmd("DevVarUShortArray", {1111, 2222, 3333})
|
|
|
|
print("\nRunning non-existent command:")
|
|
local ok, ret = pcall(dp.NonExistentCmd)
|
|
print("ok="..tostring(ok).." ret="..tostring(ret))
|