Steve Karg
d50c190957
* moving folders and files and adjust server demo build * Fix Makefile for apps/server on Linux * fix unit test source file folders * fix datetime convert UTC functions. Add Code::Blocks project for datetime testing * added some ignore extensions * disable parallel make option * fix build for abort, dcc, and epics apps * fix build for dcc, epics, error, and getevent apps. * Fixed building of all apps * fix the ipv4 to ipv6 router app build * Change indent style from Google to Webkit * make pretty to re-format style * removed common Makefile since we already had one and two was too many * remove scripts from root folder that are no longer maintained or used * remove mercurial EOL and ignore files for git repo * remove .vscodeconfig files from repo * tweak clang-format style * clang-format src and apps with tweaked style * added clang-tidy to fix readability if braces in src * result of make tidy for src and apps * fix clang-tidy mangling * Added code::blocks project for BACnet server simulation * added code::blocks linux project for WhoIs app * update text files for EOL * fix EOL in some files * fixed make win32 apps for older gcc * Removed Borland C++ Makefile in apps. Unable to maintain support for Borland C++ compiler. * created codeblocks project for apps/epics for Windows * fixing ports/xplained to work with new data structure. * fix ports/xplained example for Atmel Studio compile * fix ports/stm32f10x example for gcc Makefile compile * fix ports/stm32f10x example for IAR EWARM compile * fix ports/xplained timer callback * fix ports/bdk_atxx_mspt build with subdirs * fix ports/bdk_atxx_mspt build with subdirs * updated git ignore for IAR build artifacts * updated gitignore for non-tracked files and folders * fixed bdk-atxx4-mstp port for Rowley Crossworks project file * fixed bdk-atxx4-mstp port for GCC AVR Makefile * fixed atmega168 port for IAR AVR and GCC AVR Makefile * fixed at91sam7s port for IAR ARM and GCC ARM Makefile * removed unmaintainable DOS, RTOS32, and atmega8 ports. Updated rx62n (untested). * changed arm7 to uip port
54 lines
1.7 KiB
Perl
54 lines
1.7 KiB
Perl
use warnings;
|
|
use strict;
|
|
|
|
my (
|
|
$device, # device instance number
|
|
$objectName, # object type name
|
|
$objectInst, # object instance number
|
|
$propName, # property name
|
|
$index, # property index
|
|
);
|
|
|
|
GetOptions(
|
|
'device=i' => \$device,
|
|
'objName=s' => \$objectName,
|
|
'objInst=i' => \$objectInst,
|
|
'property=s' => \$propName,
|
|
'index=i' => \$index,
|
|
);
|
|
|
|
Help() unless ( defined($device) &&
|
|
defined($objectName) &&
|
|
defined($objectInst) &&
|
|
defined($propName)
|
|
);
|
|
|
|
my ($resp, $failed) = ReadProperty($device, $objectName, $objectInst, $propName, $index);
|
|
print "status was '$failed' and the response was '$resp'\n";
|
|
|
|
sub Help {
|
|
print <<END;
|
|
|
|
This script demonstrates the ReadProperty service functionality using Perl
|
|
bindings. To run this script, you must specify the following arguments to it:
|
|
* device This is the device instance number (i.e. 1234)
|
|
* objName This is the object type name (i.e. OBJECT_ANALOG_VALUE). See
|
|
include/bacenum.h for complete list
|
|
* objInst This is the object instance number you want to read (i.e. 1)
|
|
* property This is the name of the property you want to read (i.e.
|
|
PROP_PRESENT_VALUE). See include/bacenum.h for complete list
|
|
* index This is an optional parameter. If you want to read from a specific
|
|
index, then specify here (i.e. 1). Otherwise, don't specify this
|
|
option.
|
|
|
|
As a complete example, to run this script using the main bacnet tool to read
|
|
AnalogValue1.PresentValue from device instance 1234, use
|
|
|
|
perl bacnet.pl --script example_readprop.pl -- --device=1234 --objName=OBJECT_ANALOG_VALUE --objInst=1 --property=PROP_PRESENT_VALUE
|
|
|
|
END
|
|
exit 1;
|
|
}
|
|
|
|
1;
|