From a5f6a1d77bd76a13723991d80b980f38b2815738 Mon Sep 17 00:00:00 2001 From: gri6507 Date: Mon, 28 Nov 2011 18:40:12 +0000 Subject: [PATCH] Adding the perl bindings example. --- .../demo/perl/Documentation/index.html | 348 +++++ .../demo/perl/Documentation/jquery.js | 4 + .../demo/perl/Documentation/syntax.css | 75 ++ .../demo/perl/Documentation/syntax.js | 137 ++ bacnet-stack/demo/perl/bacnet.pl | 869 +++++++++++++ bacnet-stack/demo/perl/example_readprop.pl | 16 + bacnet-stack/demo/perl/perl_bindings.c | 1126 +++++++++++++++++ bacnet-stack/demo/perl/readme.txt | 14 + 8 files changed, 2589 insertions(+) create mode 100644 bacnet-stack/demo/perl/Documentation/index.html create mode 100755 bacnet-stack/demo/perl/Documentation/jquery.js create mode 100755 bacnet-stack/demo/perl/Documentation/syntax.css create mode 100755 bacnet-stack/demo/perl/Documentation/syntax.js create mode 100644 bacnet-stack/demo/perl/bacnet.pl create mode 100644 bacnet-stack/demo/perl/example_readprop.pl create mode 100644 bacnet-stack/demo/perl/perl_bindings.c create mode 100644 bacnet-stack/demo/perl/readme.txt diff --git a/bacnet-stack/demo/perl/Documentation/index.html b/bacnet-stack/demo/perl/Documentation/index.html new file mode 100644 index 00000000..8823f314 --- /dev/null +++ b/bacnet-stack/demo/perl/Documentation/index.html @@ -0,0 +1,348 @@ + + + + +API Documentation + + + + + + + + +
+

+ + + +
+
+ + +

+

+

NAME

+

bacnet.pl - Scriptable BACnet communications

+

+

+
+

DESCRIPTION

+

This is a tool for scriptable BACnet communication. Users can write their own +scripts using standard Perl syntax and API defined in this tool to perform desired +execution sequences. For details on this tool's API, see Documentation.html. For other +Perl documentation, see http://perldoc.perl.org

+ + +

+

+
+

OPTIONS

+

Usage: bacnet.pl [program_options] [-- script_args]

+

This program executes a script in perl syntax to perform BACnet/IP operations.

+
+
+ Possible program options:
+   --script=s    The script to execute.
+   --log=s       The file to log all output.
+   --help        This help message.
+
+ Possible environment variables are:
+    BACNET_IFACE - set this value to dotted IP address of the interface (see
+         ipconfig) for which you want to bind.  Default is the interface which
+         Windows considers to be the default (how???).  Hence, if there is only a
+         single network interface on Windows, the applications will choose it, and
+         this setting will not be needed.
+    BACNET_IP_PORT - UDP/IP port number (0..65534) used for BACnet/IP
+         communications.  Default is 47808 (0xBAC0).
+    BACNET_APDU_TIMEOUT - set this value in milliseconds to change the APDU
+         timeout.  APDU Timeout is how much time a client waits for a response from
+         a BACnet device.
+    BACNET_BBMD_PORT - UDP/IP port number (0..65534) used for Foreign Device
+         Registration.  Defaults to 47808 (0xBAC0).
+    BACNET_BBMD_TIMETOLIVE - number of seconds used in Foreign Device
+         Registration (0..65535). Defaults to 60000 seconds.
+    BACNET_BBMD_ADDRESS - dotted IPv4 address of the BBMD or Foreign Device
+         Registrar.
+

+

+
+

This tool's API

+

In addition to having all standard Perl flow control, functions, and modules, +the this tool provides an API for performing BACnet communication functions.

+

+

+

ReadProperty

+

This function implements the ReadProperty service. There are no built in retry +mechanisms. NOTE: all enumerations are defined in bacenum.h

+

+

+

Inputs to ReadProperty

+

+

+

Outputs from ReadProperty

+

+

+

Example of ReadProperty

+

The following example will read AV0.PresentValue from device 1234

+
+    my ($res, $failed) = ReadProperty(1234, 'OBJECT_ANALOG_VALUE', 0, 'PROP_PRESENT_VALUE');
+

+

+

ReadPropertyMultiple

+

This function implements the ReadPropertyMultiple service. There are no built in retry +mechanisms. NOTE: all enumerations are defined in bacenum.h

+

+

+

Inputs to ReadPropertyMultiple

+

+

+

Outputs from ReadPropertyMultiple

+

+

+

Example of ReadPropertyMultiple

+

The following example will read AV0.PresentValue and AV1.PresentValue from device 1234

+
+    my @RPM_request = ();
+    my @RPM_answer = ();
+    my $failed;
+    push @RPM_request, ['OBJECT_ANALOG_VALUE', 0, 'PROP_PRESENT_VALUE', -1];
+    push @RPM_request, ['OBJECT_ANALOG_VALUE', 1, 'PROP_PRESENT_VALUE', -1];
+    (undef, $failed) = ReadPropertyMultiple(1234, \@RPM_answer, @RPM_request);
+

+

+

WriteProperty

+

This function implements the WriteProperty service. There are no built in retry +mechanisms. NOTE: all enumerations are defined in bacenum.h

+

+

+

Inputs to WriteProperty

+

+

+

Outputs from WriteProperty

+

+

+

Example of WriteProperty

+

The following example will write 1.0 to AV0.PresentValue in device 1234

+
+    my ($res, $failed) = WriteProperty(1234, 'OBJECT_ANALOG_VALUE', 0, 'PROP_PRESENT_VALUE', 'BACNET_APPLICATION_TAG_REAL', 1.0);
+

+

+

TimeSync

+

This function implements the TimeSync and UTCTimeSync services

+

+

+

Inputs to TimeSync

+

+

+

Outputs from TimeSync

+

+

+

Example of TimeSync

+
+    $isFailure = TimeSync($deviceInstance, $1, $2, $3, $4, $5, $6) unless $isFailure;
+

+

+

Log

+

This function prints out to the desired method of logging (STDOUT or file). +NewLine characters are not required when making calls to this function. If any +NewLine characters are specified, they will be stripped out. To print an empty +line, pass in a space as the message. NOTE: This function will honor previous +requests to silence the log (see SilcenseLog for details)

+

+

+

Inputs to Log

+

+

+

Example of Log

+

The following example will print out "hello world"

+
+    Log("Hello World");
+

+

+

SilenceLog

+

This function requests that all future log messages be either suppressed or +enabled.

+

+

+

Inputs to SilenceLog

+

+

+

Outputs from SilenceLog

+

The previous value of whether or not the log was silenced before caling this +function.

+

+

+

Example of SilenceLog

+

The following example will print out "hello", but not "world"

+
+    Log("Hello");
+    SilenceLog(1);
+    Log("World");
+

+

+

Retry

+

This function will try to execute the requested command up to specified number +of times, awaiting the requested answer, with a specified pause between +retries. NOTE: the only functions which can be executed by this function are +ones which return two parameres in the form of ($response, $isFailure)

+

+

+

Inputs to Retry

+

+

+

Outputs from Retry

+

+

+

Example of Retry

+

The following example will execute the ReadProperty function to read a property +from an object (see ReadProperty for details on those arguments) with up to +$maxRetries retries (with $retryDelay delay between retries) or unitl the +desired answer of 42 is received.

+
+    my ($resp, $isFailure) = Retry(
+                \&ReadProperty, [$deviceInstance, 'OBJECT_ANALOG_VALUE', 0, 'PROP_PRESENT_VALUE'],
+                42, $maxRetries, $retryDelay
+              );
+    if ($isFailure)
+    {
+        die "Value was not 42. Last response was '$resp'";
+    }
+

The following example will try to execute a WriteProperty (see that function for +details on its arguments) until the write succeeds.

+
+    my ($resp, $isFailure) = Retry(
+                \&WriteProperty, [$deviceInstance, 'OBJECT_ANALOG_VALUE', 0, 'PROP_PRESENT_VALUE', 'BACNET_APPLICATION_TAG_REAL', 42.0],
+                "Acknowledged", $maxRetries, $retryDelay
+              );
+    if ($isFailure)
+    {
+        die "Could not write 42. Last response was '$resp'";
+    }
+ + + + diff --git a/bacnet-stack/demo/perl/Documentation/jquery.js b/bacnet-stack/demo/perl/Documentation/jquery.js new file mode 100755 index 00000000..3ca5e0f5 --- /dev/null +++ b/bacnet-stack/demo/perl/Documentation/jquery.js @@ -0,0 +1,4 @@ +/*! jQuery v1.7 jquery.com | jquery.org/license */ +(function(a,b){function cA(a){return f.isWindow(a)?a:a.nodeType===9?a.defaultView||a.parentWindow:!1}function cx(a){if(!cm[a]){var b=c.body,d=f("<"+a+">").appendTo(b),e=d.css("display");d.remove();if(e==="none"||e===""){cn||(cn=c.createElement("iframe"),cn.frameBorder=cn.width=cn.height=0),b.appendChild(cn);if(!co||!cn.createElement)co=(cn.contentWindow||cn.contentDocument).document,co.write((c.compatMode==="CSS1Compat"?"":"")+""),co.close();d=co.createElement(a),co.body.appendChild(d),e=f.css(d,"display"),b.removeChild(cn)}cm[a]=e}return cm[a]}function cw(a,b){var c={};f.each(cs.concat.apply([],cs.slice(0,b)),function(){c[this]=a});return c}function cv(){ct=b}function cu(){setTimeout(cv,0);return ct=f.now()}function cl(){try{return new a.ActiveXObject("Microsoft.XMLHTTP")}catch(b){}}function ck(){try{return new a.XMLHttpRequest}catch(b){}}function ce(a,c){a.dataFilter&&(c=a.dataFilter(c,a.dataType));var d=a.dataTypes,e={},g,h,i=d.length,j,k=d[0],l,m,n,o,p;for(g=1;g0){c!=="border"&&f.each(e,function(){c||(d-=parseFloat(f.css(a,"padding"+this))||0),c==="margin"?d+=parseFloat(f.css(a,c+this))||0:d-=parseFloat(f.css(a,"border"+this+"Width"))||0});return d+"px"}d=bB(a,b,b);if(d<0||d==null)d=a.style[b]||0;d=parseFloat(d)||0,c&&f.each(e,function(){d+=parseFloat(f.css(a,"padding"+this))||0,c!=="padding"&&(d+=parseFloat(f.css(a,"border"+this+"Width"))||0),c==="margin"&&(d+=parseFloat(f.css(a,c+this))||0)});return d+"px"}function br(a,b){b.src?f.ajax({url:b.src,async:!1,dataType:"script"}):f.globalEval((b.text||b.textContent||b.innerHTML||"").replace(bi,"/*$0*/")),b.parentNode&&b.parentNode.removeChild(b)}function bq(a){var b=(a.nodeName||"").toLowerCase();b==="input"?bp(a):b!=="script"&&typeof a.getElementsByTagName!="undefined"&&f.grep(a.getElementsByTagName("input"),bp)}function bp(a){if(a.type==="checkbox"||a.type==="radio")a.defaultChecked=a.checked}function bo(a){return typeof a.getElementsByTagName!="undefined"?a.getElementsByTagName("*"):typeof a.querySelectorAll!="undefined"?a.querySelectorAll("*"):[]}function bn(a,b){var c;if(b.nodeType===1){b.clearAttributes&&b.clearAttributes(),b.mergeAttributes&&b.mergeAttributes(a),c=b.nodeName.toLowerCase();if(c==="object")b.outerHTML=a.outerHTML;else if(c!=="input"||a.type!=="checkbox"&&a.type!=="radio"){if(c==="option")b.selected=a.defaultSelected;else if(c==="input"||c==="textarea")b.defaultValue=a.defaultValue}else a.checked&&(b.defaultChecked=b.checked=a.checked),b.value!==a.value&&(b.value=a.value);b.removeAttribute(f.expando)}}function bm(a,b){if(b.nodeType===1&&!!f.hasData(a)){var c,d,e,g=f._data(a),h=f._data(b,g),i=g.events;if(i){delete h.handle,h.events={};for(c in i)for(d=0,e=i[c].length;d=0===c})}function V(a){return!a||!a.parentNode||a.parentNode.nodeType===11}function N(){return!0}function M(){return!1}function n(a,b,c){var d=b+"defer",e=b+"queue",g=b+"mark",h=f._data(a,d);h&&(c==="queue"||!f._data(a,e))&&(c==="mark"||!f._data(a,g))&&setTimeout(function(){!f._data(a,e)&&!f._data(a,g)&&(f.removeData(a,d,!0),h.fire())},0)}function m(a){for(var b in a){if(b==="data"&&f.isEmptyObject(a[b]))continue;if(b!=="toJSON")return!1}return!0}function l(a,c,d){if(d===b&&a.nodeType===1){var e="data-"+c.replace(k,"-$1").toLowerCase();d=a.getAttribute(e);if(typeof d=="string"){try{d=d==="true"?!0:d==="false"?!1:d==="null"?null:f.isNumeric(d)?parseFloat(d):j.test(d)?f.parseJSON(d):d}catch(g){}f.data(a,c,d)}else d=b}return d}function h(a){var b=g[a]={},c,d;a=a.split(/\s+/);for(c=0,d=a.length;c)[^>]*$|#([\w\-]*)$)/,j=/\S/,k=/^\s+/,l=/\s+$/,m=/\d/,n=/^<(\w+)\s*\/?>(?:<\/\1>)?$/,o=/^[\],:{}\s]*$/,p=/\\(?:["\\\/bfnrt]|u[0-9a-fA-F]{4})/g,q=/"[^"\\\n\r]*"|true|false|null|-?\d+(?:\.\d*)?(?:[eE][+\-]?\d+)?/g,r=/(?:^|:|,)(?:\s*\[)+/g,s=/(webkit)[ \/]([\w.]+)/,t=/(opera)(?:.*version)?[ \/]([\w.]+)/,u=/(msie) ([\w.]+)/,v=/(mozilla)(?:.*? rv:([\w.]+))?/,w=/-([a-z]|[0-9])/ig,x=/^-ms-/,y=function(a,b){return(b+"").toUpperCase()},z=d.userAgent,A,B,C,D=Object.prototype.toString,E=Object.prototype.hasOwnProperty,F=Array.prototype.push,G=Array.prototype.slice,H=String.prototype.trim,I=Array.prototype.indexOf,J={};e.fn=e.prototype={constructor:e,init:function(a,d,f){var g,h,j,k;if(!a)return this;if(a.nodeType){this.context=this[0]=a,this.length=1;return this}if(a==="body"&&!d&&c.body){this.context=c,this[0]=c.body,this.selector=a,this.length=1;return this}if(typeof a=="string"){a.charAt(0)!=="<"||a.charAt(a.length-1)!==">"||a.length<3?g=i.exec(a):g=[null,a,null];if(g&&(g[1]||!d)){if(g[1]){d=d instanceof e?d[0]:d,k=d?d.ownerDocument||d:c,j=n.exec(a),j?e.isPlainObject(d)?(a=[c.createElement(j[1])],e.fn.attr.call(a,d,!0)):a=[k.createElement(j[1])]:(j=e.buildFragment([g[1]],[k]),a=(j.cacheable?e.clone(j.fragment):j.fragment).childNodes);return e.merge(this,a)}h=c.getElementById(g[2]);if(h&&h.parentNode){if(h.id!==g[2])return f.find(a);this.length=1,this[0]=h}this.context=c,this.selector=a;return this}return!d||d.jquery?(d||f).find(a):this.constructor(d).find(a)}if(e.isFunction(a))return f.ready(a);a.selector!==b&&(this.selector=a.selector,this.context=a.context);return e.makeArray(a,this)},selector:"",jquery:"1.7",length:0,size:function(){return this.length},toArray:function(){return G.call(this,0)},get:function(a){return a==null?this.toArray():a<0?this[this.length+a]:this[a]},pushStack:function(a,b,c){var d=this.constructor();e.isArray(a)?F.apply(d,a):e.merge(d,a),d.prevObject=this,d.context=this.context,b==="find"?d.selector=this.selector+(this.selector?" ":"")+c:b&&(d.selector=this.selector+"."+b+"("+c+")");return d},each:function(a,b){return e.each(this,a,b)},ready:function(a){e.bindReady(),B.add(a);return this},eq:function(a){return a===-1?this.slice(a):this.slice(a,+a+1)},first:function(){return this.eq(0)},last:function(){return this.eq(-1)},slice:function(){return this.pushStack(G.apply(this,arguments),"slice",G.call(arguments).join(","))},map:function(a){return this.pushStack(e.map(this,function(b,c){return a.call(b,c,b)}))},end:function(){return this.prevObject||this.constructor(null)},push:F,sort:[].sort,splice:[].splice},e.fn.init.prototype=e.fn,e.extend=e.fn.extend=function(){var a,c,d,f,g,h,i=arguments[0]||{},j=1,k=arguments.length,l=!1;typeof i=="boolean"&&(l=i,i=arguments[1]||{},j=2),typeof i!="object"&&!e.isFunction(i)&&(i={}),k===j&&(i=this,--j);for(;j0)return;B.fireWith(c,[e]),e.fn.trigger&&e(c).trigger("ready").unbind("ready")}},bindReady:function(){if(!B){B=e.Callbacks("once memory");if(c.readyState==="complete")return setTimeout(e.ready,1);if(c.addEventListener)c.addEventListener("DOMContentLoaded",C,!1),a.addEventListener("load",e.ready,!1);else if(c.attachEvent){c.attachEvent("onreadystatechange",C),a.attachEvent("onload",e.ready);var b=!1;try{b=a.frameElement==null}catch(d){}c.documentElement.doScroll&&b&&K()}}},isFunction:function(a){return e.type(a)==="function"},isArray:Array.isArray||function(a){return e.type(a)==="array"},isWindow:function(a){return a&&typeof a=="object"&&"setInterval"in a},isNumeric:function(a){return a!=null&&m.test(a)&&!isNaN(a)},type:function(a){return a==null?String(a):J[D.call(a)]||"object"},isPlainObject:function(a){if(!a||e.type(a)!=="object"||a.nodeType||e.isWindow(a))return!1;try{if(a.constructor&&!E.call(a,"constructor")&&!E.call(a.constructor.prototype,"isPrototypeOf"))return!1}catch(c){return!1}var d;for(d in a);return d===b||E.call(a,d)},isEmptyObject:function(a){for(var b in a)return!1;return!0},error:function(a){throw a},parseJSON:function(b){if(typeof b!="string"||!b)return null;b=e.trim(b);if(a.JSON&&a.JSON.parse)return a.JSON.parse(b);if(o.test(b.replace(p,"@").replace(q,"]").replace(r,"")))return(new Function("return "+b))();e.error("Invalid JSON: "+b)},parseXML:function(c){var d,f;try{a.DOMParser?(f=new DOMParser,d=f.parseFromString(c,"text/xml")):(d=new ActiveXObject("Microsoft.XMLDOM"),d.async="false",d.loadXML(c))}catch(g){d=b}(!d||!d.documentElement||d.getElementsByTagName("parsererror").length)&&e.error("Invalid XML: "+c);return d},noop:function(){},globalEval:function(b){b&&j.test(b)&&(a.execScript||function(b){a.eval.call(a,b)})(b)},camelCase:function(a){return a.replace(x,"ms-").replace(w,y)},nodeName:function(a,b){return a.nodeName&&a.nodeName.toUpperCase()===b.toUpperCase()},each:function(a,c,d){var f,g=0,h=a.length,i=h===b||e.isFunction(a);if(d){if(i){for(f in a)if(c.apply(a[f],d)===!1)break}else for(;g0&&a[0]&&a[j-1]||j===0||e.isArray(a));if(k)for(;i1?i.call(arguments,0):b,j.notifyWith(k,e)}}function l(a){return function(c){b[a]=arguments.length>1?i.call(arguments,0):c,--g||j.resolveWith(j,b)}}var b=i.call(arguments,0),c=0,d=b.length,e=Array(d),g=d,h=d,j=d<=1&&a&&f.isFunction(a.promise)?a:f.Deferred(),k=j.promise();if(d>1){for(;c
a",d=a.getElementsByTagName("*"),e=a.getElementsByTagName("a")[0];if(!d||!d.length||!e)return{};g=c.createElement("select"),h=g.appendChild(c.createElement("option")),i=a.getElementsByTagName("input")[0],k={leadingWhitespace:a.firstChild.nodeType===3,tbody:!a.getElementsByTagName("tbody").length,htmlSerialize:!!a.getElementsByTagName("link").length,style:/top/.test(e.getAttribute("style")),hrefNormalized:e.getAttribute("href")==="/a",opacity:/^0.55/.test(e.style.opacity),cssFloat:!!e.style.cssFloat,unknownElems:!!a.getElementsByTagName("nav").length,checkOn:i.value==="on",optSelected:h.selected,getSetAttribute:a.className!=="t",enctype:!!c.createElement("form").enctype,submitBubbles:!0,changeBubbles:!0,focusinBubbles:!1,deleteExpando:!0,noCloneEvent:!0,inlineBlockNeedsLayout:!1,shrinkWrapBlocks:!1,reliableMarginRight:!0},i.checked=!0,k.noCloneChecked=i.cloneNode(!0).checked,g.disabled=!0,k.optDisabled=!h.disabled;try{delete a.test}catch(v){k.deleteExpando=!1}!a.addEventListener&&a.attachEvent&&a.fireEvent&&(a.attachEvent("onclick",function(){k.noCloneEvent=!1}),a.cloneNode(!0).fireEvent("onclick")),i=c.createElement("input"),i.value="t",i.setAttribute("type","radio"),k.radioValue=i.value==="t",i.setAttribute("checked","checked"),a.appendChild(i),l=c.createDocumentFragment(),l.appendChild(a.lastChild),k.checkClone=l.cloneNode(!0).cloneNode(!0).lastChild.checked,a.innerHTML="",a.style.width=a.style.paddingLeft="1px",m=c.getElementsByTagName("body")[0],o=c.createElement(m?"div":"body"),p={visibility:"hidden",width:0,height:0,border:0,margin:0,background:"none"},m&&f.extend(p,{position:"absolute",left:"-999px",top:"-999px"});for(t in p)o.style[t]=p[t];o.appendChild(a),n=m||b,n.insertBefore(o,n.firstChild),k.appendChecked=i.checked,k.boxModel=a.offsetWidth===2,"zoom"in a.style&&(a.style.display="inline",a.style.zoom=1,k.inlineBlockNeedsLayout=a.offsetWidth===2,a.style.display="",a.innerHTML="
",k.shrinkWrapBlocks=a.offsetWidth!==2),a.innerHTML="
t
",q=a.getElementsByTagName("td"),u=q[0].offsetHeight===0,q[0].style.display="",q[1].style.display="none",k.reliableHiddenOffsets=u&&q[0].offsetHeight===0,a.innerHTML="",c.defaultView&&c.defaultView.getComputedStyle&&(j=c.createElement("div"),j.style.width="0",j.style.marginRight="0",a.appendChild(j),k.reliableMarginRight=(parseInt((c.defaultView.getComputedStyle(j,null)||{marginRight:0}).marginRight,10)||0)===0);if(a.attachEvent)for(t in{submit:1,change:1,focusin:1})s="on"+t,u=s in a,u||(a.setAttribute(s,"return;"),u=typeof a[s]=="function"),k[t+"Bubbles"]=u;f(function(){var a,b,d,e,g,h,i=1,j="position:absolute;top:0;left:0;width:1px;height:1px;margin:0;",l="visibility:hidden;border:0;",n="style='"+j+"border:5px solid #000;padding:0;'",p="
"+""+"
";m=c.getElementsByTagName("body")[0];!m||(a=c.createElement("div"),a.style.cssText=l+"width:0;height:0;position:static;top:0;margin-top:"+i+"px",m.insertBefore(a,m.firstChild),o=c.createElement("div"),o.style.cssText=j+l,o.innerHTML=p,a.appendChild(o),b=o.firstChild,d=b.firstChild,g=b.nextSibling.firstChild.firstChild,h={doesNotAddBorder:d.offsetTop!==5,doesAddBorderForTableAndCells:g.offsetTop===5},d.style.position="fixed",d.style.top="20px",h.fixedPosition=d.offsetTop===20||d.offsetTop===15,d.style.position=d.style.top="",b.style.overflow="hidden",b.style.position="relative",h.subtractsBorderForOverflowNotVisible=d.offsetTop===-5,h.doesNotIncludeMarginInBodyOffset=m.offsetTop!==i,m.removeChild(a),o=a=null,f.extend(k,h))}),o.innerHTML="",n.removeChild(o),o=l=g=h=m=j=a=i=null;return k}(),f.boxModel=f.support.boxModel;var j=/^(?:\{.*\}|\[.*\])$/,k=/([A-Z])/g;f.extend({cache:{},uuid:0,expando:"jQuery"+(f.fn.jquery+Math.random()).replace(/\D/g,""),noData:{embed:!0,object:"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000",applet:!0},hasData:function(a){a=a.nodeType?f.cache[a[f.expando]]:a[f.expando];return!!a&&!m(a)},data:function(a,c,d,e){if(!!f.acceptData(a)){var g,h,i,j=f.expando,k=typeof c=="string",l=a.nodeType,m=l?f.cache:a,n=l?a[f.expando]:a[f.expando]&&f.expando,o=c==="events";if((!n||!m[n]||!o&&!e&&!m[n].data)&&k&&d===b)return;n||(l?a[f.expando]=n=++f.uuid:n=f.expando),m[n]||(m[n]={},l||(m[n].toJSON=f.noop));if(typeof c=="object"||typeof c=="function")e?m[n]=f.extend(m[n],c):m[n].data=f.extend(m[n].data,c);g=h=m[n],e||(h.data||(h.data={}),h=h.data),d!==b&&(h[f.camelCase(c)]=d);if(o&&!h[c])return g.events;k?(i=h[c],i==null&&(i=h[f.camelCase(c)])):i=h;return i}},removeData:function(a,b,c){if(!!f.acceptData(a)){var d,e,g,h=f.expando,i=a.nodeType,j=i?f.cache:a,k=i?a[f.expando]:f.expando;if(!j[k])return;if(b){d=c?j[k]:j[k].data;if(d){f.isArray(b)?b=b:b in d?b=[b]:(b=f.camelCase(b),b in d?b=[b]:b=b.split(" "));for(e=0,g=b.length;e-1)return!0;return!1},val:function(a){var c,d,e,g=this[0];if(!arguments.length){if(g){c=f.valHooks[g.nodeName.toLowerCase()]||f.valHooks[g.type];if(c&&"get"in c&&(d=c.get(g,"value"))!==b)return d;d=g.value;return typeof d=="string"?d.replace(q,""):d==null?"":d}return b}e=f.isFunction(a);return this.each(function(d){var g=f(this),h;if(this.nodeType===1){e?h=a.call(this,d,g.val()):h=a,h==null?h="":typeof h=="number"?h+="":f.isArray(h)&&(h=f.map(h,function(a){return a==null?"":a+""})),c=f.valHooks[this.nodeName.toLowerCase()]||f.valHooks[this.type];if(!c||!("set"in c)||c.set(this,h,"value")===b)this.value=h}})}}),f.extend({valHooks:{option:{get:function(a){var b=a.attributes.value;return!b||b.specified?a.value:a.text}},select:{get:function(a){var b,c,d,e,g=a.selectedIndex,h=[],i=a.options,j=a.type==="select-one";if(g<0)return null;c=j?g:0,d=j?g+1:i.length;for(;c=0}),c.length||(a.selectedIndex=-1);return c}}},attrFn:{val:!0,css:!0,html:!0,text:!0,data:!0,width:!0,height:!0,offset:!0},attr:function(a,c,d,e){var g,h,i,j=a.nodeType;if(!a||j===3||j===8||j===2)return b;if(e&&c in f.attrFn)return f(a)[c](d);if(!("getAttribute"in a))return f.prop(a,c,d);i=j!==1||!f.isXMLDoc(a),i&&(c=c.toLowerCase(),h=f.attrHooks[c]||(u.test(c)?x:w));if(d!==b){if(d===null){f.removeAttr(a,c);return b}if(h&&"set"in h&&i&&(g=h.set(a,d,c))!==b)return g;a.setAttribute(c,""+d);return d}if(h&&"get"in h&&i&&(g=h.get(a,c))!==null)return g;g=a.getAttribute(c);return g===null?b:g},removeAttr:function(a,b){var c,d,e,g,h=0;if(a.nodeType===1){d=(b||"").split(p),g=d.length;for(;h=0}})});var z=/\.(.*)$/,A=/^(?:textarea|input|select)$/i,B=/\./g,C=/ /g,D=/[^\w\s.|`]/g,E=/^([^\.]*)?(?:\.(.+))?$/,F=/\bhover(\.\S+)?/,G=/^key/,H=/^(?:mouse|contextmenu)|click/,I=/^(\w*)(?:#([\w\-]+))?(?:\.([\w\-]+))?$/,J=function(a){var b=I.exec(a);b&& +(b[1]=(b[1]||"").toLowerCase(),b[3]=b[3]&&new RegExp("(?:^|\\s)"+b[3]+"(?:\\s|$)"));return b},K=function(a,b){return(!b[1]||a.nodeName.toLowerCase()===b[1])&&(!b[2]||a.id===b[2])&&(!b[3]||b[3].test(a.className))},L=function(a){return f.event.special.hover?a:a.replace(F,"mouseenter$1 mouseleave$1")};f.event={add:function(a,c,d,e,g){var h,i,j,k,l,m,n,o,p,q,r,s;if(!(a.nodeType===3||a.nodeType===8||!c||!d||!(h=f._data(a)))){d.handler&&(p=d,d=p.handler),d.guid||(d.guid=f.guid++),j=h.events,j||(h.events=j={}),i=h.handle,i||(h.handle=i=function(a){return typeof f!="undefined"&&(!a||f.event.triggered!==a.type)?f.event.dispatch.apply(i.elem,arguments):b},i.elem=a),c=L(c).split(" ");for(k=0;k=0&&(h=h.slice(0,-1),k=!0),h.indexOf(".")>=0&&(i=h.split("."),h=i.shift(),i.sort());if((!e||f.event.customEvent[h])&&!f.event.global[h])return;c=typeof c=="object"?c[f.expando]?c:new f.Event(h,c):new f.Event(h),c.type=h,c.isTrigger=!0,c.exclusive=k,c.namespace=i.join("."),c.namespace_re=c.namespace?new RegExp("(^|\\.)"+i.join("\\.(?:.*\\.)?")+"(\\.|$)"):null,o=h.indexOf(":")<0?"on"+h:"",(g||!e)&&c.preventDefault();if(!e){j=f.cache;for(l in j)j[l].events&&j[l].events[h]&&f.event.trigger(c,d,j[l].handle.elem,!0);return}c.result=b,c.target||(c.target=e),d=d!=null?f.makeArray(d):[],d.unshift(c),p=f.event.special[h]||{};if(p.trigger&&p.trigger.apply(e,d)===!1)return;r=[[e,p.bindType||h]];if(!g&&!p.noBubble&&!f.isWindow(e)){s=p.delegateType||h,n=null;for(m=e.parentNode;m;m=m.parentNode)r.push([m,s]),n=m;n&&n===e.ownerDocument&&r.push([n.defaultView||n.parentWindow||a,s])}for(l=0;l=0:t===b&&(t=o[s]=r.quick?K(m,r.quick):f(m).is(s)),t&&q.push(r);q.length&&j.push({elem:m,matches:q})}d.length>e&&j.push({elem:this,matches:d.slice(e)});for(k=0;k0?this.bind(b,a,c):this.trigger(b)},f.attrFn&&(f.attrFn[b]=!0),G.test(b)&&(f.event.fixHooks[b]=f.event.keyHooks),H.test(b)&&(f.event.fixHooks[b]=f.event.mouseHooks)}),function(){function x(a,b,c,e,f,g){for(var h=0,i=e.length;h0){k=j;break}}j=j[a]}e[h]=k}}}function w(a,b,c,e,f,g){for(var h=0,i=e.length;h+~,(\[\\]+)+|[>+~])(\s*,\s*)?((?:.|\r|\n)*)/g,d="sizcache"+(Math.random()+"").replace(".",""),e=0,g=Object.prototype.toString,h=!1,i=!0,j=/\\/g,k=/\r\n/g,l=/\W/;[0,0].sort(function(){i=!1;return 0});var m=function(b,d,e,f){e=e||[],d=d||c;var h=d;if(d.nodeType!==1&&d.nodeType!==9)return[];if(!b||typeof b!="string")return e;var i,j,k,l,n,q,r,t,u=!0,v=m.isXML(d),w=[],x=b;do{a.exec(""),i=a.exec(x);if(i){x=i[3],w.push(i[1]);if(i[2]){l=i[3];break}}}while(i);if(w.length>1&&p.exec(b))if(w.length===2&&o.relative[w[0]])j=y(w[0]+w[1],d,f);else{j=o.relative[w[0]]?[d]:m(w.shift(),d);while(w.length)b=w.shift(),o.relative[b]&&(b+=w.shift()),j=y(b,j,f)}else{!f&&w.length>1&&d.nodeType===9&&!v&&o.match.ID.test(w[0])&&!o.match.ID.test(w[w.length-1])&&(n=m.find(w.shift(),d,v),d=n.expr?m.filter(n.expr,n.set)[0]:n.set[0]);if(d){n=f?{expr:w.pop(),set:s(f)}:m.find(w.pop(),w.length===1&&(w[0]==="~"||w[0]==="+")&&d.parentNode?d.parentNode:d,v),j=n.expr?m.filter(n.expr,n.set):n.set,w.length>0?k=s(j):u=!1;while(w.length)q=w.pop(),r=q,o.relative[q]?r=w.pop():q="",r==null&&(r=d),o.relative[q](k,r,v)}else k=w=[]}k||(k=j),k||m.error(q||b);if(g.call(k)==="[object Array]")if(!u)e.push.apply(e,k);else if(d&&d.nodeType===1)for(t=0;k[t]!=null;t++)k[t]&&(k[t]===!0||k[t].nodeType===1&&m.contains(d,k[t]))&&e.push(j[t]);else for(t=0;k[t]!=null;t++)k[t]&&k[t].nodeType===1&&e.push(j[t]);else s(k,e);l&&(m(l,h,e,f),m.uniqueSort(e));return e};m.uniqueSort=function(a){if(u){h=i,a.sort(u);if(h)for(var b=1;b0},m.find=function(a,b,c){var d,e,f,g,h,i;if(!a)return[];for(e=0,f=o.order.length;e":function(a,b){var c,d=typeof b=="string",e=0,f=a.length;if(d&&!l.test(b)){b=b.toLowerCase();for(;e=0)?c||d.push(h):c&&(b[g]=!1));return!1},ID:function(a){return a[1].replace(j,"")},TAG:function(a,b){return a[1].replace(j,"").toLowerCase()},CHILD:function(a){if(a[1]==="nth"){a[2]||m.error(a[0]),a[2]=a[2].replace(/^\+|\s*/g,"");var b=/(-?)(\d*)(?:n([+\-]?\d*))?/.exec(a[2]==="even"&&"2n"||a[2]==="odd"&&"2n+1"||!/\D/.test(a[2])&&"0n+"+a[2]||a[2]);a[2]=b[1]+(b[2]||1)-0,a[3]=b[3]-0}else a[2]&&m.error(a[0]);a[0]=e++;return a},ATTR:function(a,b,c,d,e,f){var g=a[1]=a[1].replace(j,"");!f&&o.attrMap[g]&&(a[1]=o.attrMap[g]),a[4]=(a[4]||a[5]||"").replace(j,""),a[2]==="~="&&(a[4]=" "+a[4]+" ");return a},PSEUDO:function(b,c,d,e,f){if(b[1]==="not")if((a.exec(b[3])||"").length>1||/^\w/.test(b[3]))b[3]=m(b[3],null,null,c);else{var g=m.filter(b[3],c,d,!0^f);d||e.push.apply(e,g);return!1}else if(o.match.POS.test(b[0])||o.match.CHILD.test(b[0]))return!0;return b},POS:function(a){a.unshift(!0);return a}},filters:{enabled:function(a){return a.disabled===!1&&a.type!=="hidden"},disabled:function(a){return a.disabled===!0},checked:function(a){return a.checked===!0},selected:function(a){a.parentNode&&a.parentNode.selectedIndex;return a.selected===!0},parent:function(a){return!!a.firstChild},empty:function(a){return!a.firstChild},has:function(a,b,c){return!!m(c[3],a).length},header:function(a){return/h\d/i.test(a.nodeName)},text:function(a){var b=a.getAttribute("type"),c=a.type;return a.nodeName.toLowerCase()==="input"&&"text"===c&&(b===c||b===null)},radio:function(a){return a.nodeName.toLowerCase()==="input"&&"radio"===a.type},checkbox:function(a){return a.nodeName.toLowerCase()==="input"&&"checkbox"===a.type},file:function(a){return a.nodeName.toLowerCase()==="input"&&"file"===a.type},password:function(a){return a.nodeName.toLowerCase()==="input"&&"password"===a.type},submit:function(a){var b=a.nodeName.toLowerCase();return(b==="input"||b==="button")&&"submit"===a.type},image:function(a){return a.nodeName.toLowerCase()==="input"&&"image"===a.type},reset:function(a){var b=a.nodeName.toLowerCase();return(b==="input"||b==="button")&&"reset"===a.type},button:function(a){var b=a.nodeName.toLowerCase();return b==="input"&&"button"===a.type||b==="button"},input:function(a){return/input|select|textarea|button/i.test(a.nodeName)},focus:function(a){return a===a.ownerDocument.activeElement}},setFilters:{first:function(a,b){return b===0},last:function(a,b,c,d){return b===d.length-1},even:function(a,b){return b%2===0},odd:function(a,b){return b%2===1},lt:function(a,b,c){return bc[3]-0},nth:function(a,b,c){return c[3]-0===b},eq:function(a,b,c){return c[3]-0===b}},filter:{PSEUDO:function(a,b,c,d){var e=b[1],f=o.filters[e];if(f)return f(a,c,b,d);if(e==="contains")return(a.textContent||a.innerText||n([a])||"").indexOf(b[3])>=0;if(e==="not"){var g=b[3];for(var h=0,i=g.length;h=0}},ID:function(a,b){return a.nodeType===1&&a.getAttribute("id")===b},TAG:function(a,b){return b==="*"&&a.nodeType===1||!!a.nodeName&&a.nodeName.toLowerCase()===b},CLASS:function(a,b){return(" "+(a.className||a.getAttribute("class"))+" ").indexOf(b)>-1},ATTR:function(a,b){var c=b[1],d=m.attr?m.attr(a,c):o.attrHandle[c]?o.attrHandle[c](a):a[c]!=null?a[c]:a.getAttribute(c),e=d+"",f=b[2],g=b[4];return d==null?f==="!=":!f&&m.attr?d!=null:f==="="?e===g:f==="*="?e.indexOf(g)>=0:f==="~="?(" "+e+" ").indexOf(g)>=0:g?f==="!="?e!==g:f==="^="?e.indexOf(g)===0:f==="$="?e.substr(e.length-g.length)===g:f==="|="?e===g||e.substr(0,g.length+1)===g+"-":!1:e&&d!==!1},POS:function(a,b,c,d){var e=b[2],f=o.setFilters[e];if(f)return f(a,c,b,d)}}},p=o.match.POS,q=function(a,b){return"\\"+(b-0+1)};for(var r in o.match)o.match[r]=new RegExp(o.match[r].source+/(?![^\[]*\])(?![^\(]*\))/.source),o.leftMatch[r]=new RegExp(/(^(?:.|\r|\n)*?)/.source+o.match[r].source.replace(/\\(\d+)/g,q));var s=function(a,b){a=Array.prototype.slice.call(a,0);if(b){b.push.apply(b,a);return b}return a};try{Array.prototype.slice.call(c.documentElement.childNodes,0)[0].nodeType}catch(t){s=function(a,b){var c=0,d=b||[];if(g.call(a)==="[object Array]")Array.prototype.push.apply(d,a);else if(typeof a.length=="number")for(var e=a.length;c",e.insertBefore(a,e.firstChild),c.getElementById(d)&&(o.find.ID=function(a,c,d){if(typeof c.getElementById!="undefined"&&!d){var e=c.getElementById(a[1]);return e?e.id===a[1]||typeof e.getAttributeNode!="undefined"&&e.getAttributeNode("id").nodeValue===a[1]?[e]:b:[]}},o.filter.ID=function(a,b){var c=typeof a.getAttributeNode!="undefined"&&a.getAttributeNode("id");return a.nodeType===1&&c&&c.nodeValue===b}),e.removeChild(a),e=a=null}(),function(){var a=c.createElement("div");a.appendChild(c.createComment("")),a.getElementsByTagName("*").length>0&&(o.find.TAG=function(a,b){var c=b.getElementsByTagName(a[1]);if(a[1]==="*"){var d=[];for(var e=0;c[e];e++)c[e].nodeType===1&&d.push(c[e]);c=d}return c}),a.innerHTML="",a.firstChild&&typeof a.firstChild.getAttribute!="undefined"&&a.firstChild.getAttribute("href")!=="#"&&(o.attrHandle.href=function(a){return a.getAttribute("href",2)}),a=null}(),c.querySelectorAll&&function(){var a=m,b=c.createElement("div"),d="__sizzle__";b.innerHTML="

";if(!b.querySelectorAll||b.querySelectorAll(".TEST").length!==0){m=function(b,e,f,g){e=e||c;if(!g&&!m.isXML(e)){var h=/^(\w+$)|^\.([\w\-]+$)|^#([\w\-]+$)/.exec(b);if(h&&(e.nodeType===1||e.nodeType===9)){if(h[1])return s(e.getElementsByTagName(b),f);if(h[2]&&o.find.CLASS&&e.getElementsByClassName)return s(e.getElementsByClassName(h[2]),f)}if(e.nodeType===9){if(b==="body"&&e.body)return s([e.body],f);if(h&&h[3]){var i=e.getElementById(h[3]);if(!i||!i.parentNode)return s([],f);if(i.id===h[3])return s([i],f)}try{return s(e.querySelectorAll(b),f)}catch(j){}}else if(e.nodeType===1&&e.nodeName.toLowerCase()!=="object"){var k=e,l=e.getAttribute("id"),n=l||d,p=e.parentNode,q=/^\s*[+~]/.test(b);l?n=n.replace(/'/g,"\\$&"):e.setAttribute("id",n),q&&p&&(e=e.parentNode);try{if(!q||p)return s(e.querySelectorAll("[id='"+n+"'] "+b),f)}catch(r){}finally{l||k.removeAttribute("id")}}}return a(b,e,f,g)};for(var e in a)m[e]=a[e];b=null}}(),function(){var a=c.documentElement,b=a.matchesSelector||a.mozMatchesSelector||a.webkitMatchesSelector||a.msMatchesSelector;if(b){var d=!b.call(c.createElement("div"),"div"),e=!1;try{b.call(c.documentElement,"[test!='']:sizzle")}catch(f){e=!0}m.matchesSelector=function(a,c){c=c.replace(/\=\s*([^'"\]]*)\s*\]/g,"='$1']");if(!m.isXML(a))try{if(e||!o.match.PSEUDO.test(c)&&!/!=/.test(c)){var f=b.call(a,c);if(f||!d||a.document&&a.document.nodeType!==11)return f}}catch(g){}return m(c,null,null,[a]).length>0}}}(),function(){var a=c.createElement("div");a.innerHTML="
";if(!!a.getElementsByClassName&&a.getElementsByClassName("e").length!==0){a.lastChild.className="e";if(a.getElementsByClassName("e").length===1)return;o.order.splice(1,0,"CLASS"),o.find.CLASS=function(a,b,c){if(typeof b.getElementsByClassName!="undefined"&&!c)return b.getElementsByClassName(a[1])},a=null}}(),c.documentElement.contains?m.contains=function(a,b){return a!==b&&(a.contains?a.contains(b):!0)}:c.documentElement.compareDocumentPosition?m.contains=function(a,b){return!!(a.compareDocumentPosition(b)&16)}:m.contains=function(){return!1},m.isXML=function(a){var b=(a?a.ownerDocument||a:0).documentElement;return b?b.nodeName!=="HTML":!1};var y=function(a,b,c){var d,e=[],f="",g=b.nodeType?[b]:b;while(d=o.match.PSEUDO.exec(a))f+=d[0],a=a.replace(o.match.PSEUDO,"");a=o.relative[a]?a+"*":a;for(var h=0,i=g.length;h0)for(h=g;h=0:f.filter(a,this).length>0:this.filter(a).length>0)},closest:function(a,b){var c=[],d,e,g=this[0];if(f.isArray(a)){var h=1;while(g&&g.ownerDocument&&g!==b){for(d=0;d-1:f.find.matchesSelector(g,a)){c.push(g);break}g=g.parentNode;if(!g||!g.ownerDocument||g===b||g.nodeType===11)break}}c=c.length>1?f.unique(c):c;return this.pushStack(c,"closest",a)},index:function(a){if(!a)return this[0]&&this[0].parentNode?this.prevAll().length:-1;if(typeof a=="string")return f.inArray(this[0],f(a));return f.inArray(a.jquery?a[0]:a,this)},add:function(a,b){var c=typeof a=="string"?f(a,b):f.makeArray(a&&a.nodeType?[a]:a),d=f.merge(this.get(),c);return this.pushStack(V(c[0])||V(d[0])?d:f.unique(d))},andSelf:function(){return this.add(this.prevObject)}}),f.each({parent:function(a){var b=a.parentNode;return b&&b.nodeType!==11?b:null},parents:function(a){return f.dir(a,"parentNode")},parentsUntil:function(a,b,c){return f.dir(a,"parentNode",c)},next:function(a){return f.nth(a,2,"nextSibling")},prev:function(a){return f.nth(a,2,"previousSibling")},nextAll:function(a){return f.dir(a,"nextSibling")},prevAll:function(a){return f.dir(a,"previousSibling")},nextUntil:function(a,b,c){return f.dir(a,"nextSibling",c)},prevUntil:function(a,b,c){return f.dir(a,"previousSibling",c)},siblings:function(a){return f.sibling(a.parentNode.firstChild,a)},children:function(a){return f.sibling(a.firstChild)},contents:function(a){return f.nodeName(a,"iframe")?a.contentDocument||a.contentWindow.document:f.makeArray(a.childNodes)}},function(a,b){f.fn[a]=function(c,d){var e=f.map(this,b,c),g=S.call(arguments);O.test(a)||(d=c),d&&typeof d=="string"&&(e=f.filter(d,e)),e=this.length>1&&!U[a]?f.unique(e):e,(this.length>1||Q.test(d))&&P.test(a)&&(e=e.reverse());return this.pushStack(e,a,g.join(","))}}),f.extend({filter:function(a,b,c){c&&(a=":not("+a+")");return b.length===1?f.find.matchesSelector(b[0],a)?[b[0]]:[]:f.find.matches(a,b)},dir:function(a,c,d){var e=[],g=a[c];while(g&&g.nodeType!==9&&(d===b||g.nodeType!==1||!f(g).is(d)))g.nodeType===1&&e.push(g),g=g[c];return e},nth:function(a,b,c,d){b=b||1;var e=0;for(;a;a=a[c])if(a.nodeType===1&&++e===b)break;return a},sibling:function(a,b){var c=[];for(;a;a=a.nextSibling)a.nodeType===1&&a!==b&&c.push(a);return c}});var Y="abbr article aside audio canvas datalist details figcaption figure footer header hgroup mark meter nav output progress section summary time video",Z=/ jQuery\d+="(?:\d+|null)"/g,$=/^\s+/,_=/<(?!area|br|col|embed|hr|img|input|link|meta|param)(([\w:]+)[^>]*)\/>/ig,ba=/<([\w:]+)/,bb=/",""],legend:[1,"
","
"],thead:[1,"","
"],tr:[2,"","
"],td:[3,"","
"],col:[2,"","
"],area:[1,"",""],_default:[0,"",""]},bk=X(c);bj.optgroup=bj.option,bj.tbody=bj.tfoot=bj.colgroup=bj.caption=bj.thead,bj.th=bj.td,f.support.htmlSerialize||(bj._default=[1,"div
","
"]),f.fn.extend({text:function(a){if(f.isFunction(a))return this.each(function(b){var c=f(this);c.text(a.call(this,b,c.text()))});if(typeof a!="object"&&a!==b)return this.empty().append((this[0]&&this[0].ownerDocument||c).createTextNode(a));return f.text(this)},wrapAll:function(a){if(f.isFunction(a))return this.each(function(b){f(this).wrapAll(a.call(this,b))});if(this[0]){var b=f(a,this[0].ownerDocument).eq(0).clone(!0);this[0].parentNode&&b.insertBefore(this[0]),b.map(function(){var a=this;while(a.firstChild&&a.firstChild.nodeType===1)a=a.firstChild;return a}).append(this)}return this},wrapInner:function(a){if(f.isFunction(a))return this.each(function(b){f(this).wrapInner(a.call(this,b))});return this.each(function(){var b=f(this),c=b.contents();c.length?c.wrapAll(a):b.append(a)})},wrap:function(a){return this.each(function(){f(this).wrapAll(a)})},unwrap:function(){return this.parent().each(function(){f.nodeName(this,"body")||f(this).replaceWith(this.childNodes)}).end()},append:function(){return this.domManip(arguments,!0,function(a){this.nodeType===1&&this.appendChild(a)})},prepend:function(){return this.domManip(arguments,!0,function(a){this.nodeType===1&&this.insertBefore(a,this.firstChild)})},before:function(){if(this[0]&&this[0].parentNode)return this.domManip(arguments,!1,function(a){this.parentNode.insertBefore(a,this)});if(arguments.length){var a=f(arguments[0]);a.push.apply(a,this.toArray());return this.pushStack(a,"before",arguments)}},after:function(){if(this[0]&&this[0].parentNode)return this.domManip(arguments,!1,function(a){this.parentNode.insertBefore(a,this.nextSibling)});if(arguments.length){var a=this.pushStack(this,"after" +,arguments);a.push.apply(a,f(arguments[0]).toArray());return a}},remove:function(a,b){for(var c=0,d;(d=this[c])!=null;c++)if(!a||f.filter(a,[d]).length)!b&&d.nodeType===1&&(f.cleanData(d.getElementsByTagName("*")),f.cleanData([d])),d.parentNode&&d.parentNode.removeChild(d);return this},empty:function(){for(var a=0,b;(b=this[a])!=null;a++){b.nodeType===1&&f.cleanData(b.getElementsByTagName("*"));while(b.firstChild)b.removeChild(b.firstChild)}return this},clone:function(a,b){a=a==null?!1:a,b=b==null?a:b;return this.map(function(){return f.clone(this,a,b)})},html:function(a){if(a===b)return this[0]&&this[0].nodeType===1?this[0].innerHTML.replace(Z,""):null;if(typeof a=="string"&&!bd.test(a)&&(f.support.leadingWhitespace||!$.test(a))&&!bj[(ba.exec(a)||["",""])[1].toLowerCase()]){a=a.replace(_,"<$1>");try{for(var c=0,d=this.length;c1&&l0?this.clone(!0):this).get();f(e[h])[b](j),d=d.concat(j)}return this.pushStack(d,a,e.selector)}}),f.extend({clone:function(a,b,c){var d=a.cloneNode(!0),e,g,h;if((!f.support.noCloneEvent||!f.support.noCloneChecked)&&(a.nodeType===1||a.nodeType===11)&&!f.isXMLDoc(a)){bn(a,d),e=bo(a),g=bo(d);for(h=0;e[h];++h)g[h]&&bn(e[h],g[h])}if(b){bm(a,d);if(c){e=bo(a),g=bo(d);for(h=0;e[h];++h)bm(e[h],g[h])}}e=g=null;return d},clean:function(a,b,d,e){var g;b=b||c,typeof b.createElement=="undefined"&&(b=b.ownerDocument||b[0]&&b[0].ownerDocument||c);var h=[],i;for(var j=0,k;(k=a[j])!=null;j++){typeof k=="number"&&(k+="");if(!k)continue;if(typeof k=="string")if(!bc.test(k))k=b.createTextNode(k);else{k=k.replace(_,"<$1>");var l=(ba.exec(k)||["",""])[1].toLowerCase(),m=bj[l]||bj._default,n=m[0],o=b.createElement("div");b===c?bk.appendChild(o):X(b).appendChild(o),o.innerHTML=m[1]+k+m[2];while(n--)o=o.lastChild;if(!f.support.tbody){var p=bb.test(k),q=l==="table"&&!p?o.firstChild&&o.firstChild.childNodes:m[1]===""&&!p?o.childNodes:[];for(i=q.length-1;i>=0;--i)f.nodeName(q[i],"tbody")&&!q[i].childNodes.length&&q[i].parentNode.removeChild(q[i])}!f.support.leadingWhitespace&&$.test(k)&&o.insertBefore(b.createTextNode($.exec(k)[0]),o.firstChild),k=o.childNodes}var r;if(!f.support.appendChecked)if(k[0]&&typeof (r=k.length)=="number")for(i=0;i=0)return b+"px"}}}),f.support.opacity||(f.cssHooks.opacity={get:function(a,b){return bt.test((b&&a.currentStyle?a.currentStyle.filter:a.style.filter)||"")?parseFloat(RegExp.$1)/100+"":b?"1":""},set:function(a,b){var c=a.style,d=a.currentStyle,e=f.isNumeric(b)?"alpha(opacity="+b*100+")":"",g=d&&d.filter||c.filter||"";c.zoom=1;if(b>=1&&f.trim(g.replace(bs,""))===""){c.removeAttribute("filter");if(d&&!d.filter)return}c.filter=bs.test(g)?g.replace(bs,e):g+" "+e}}),f(function(){f.support.reliableMarginRight||(f.cssHooks.marginRight={get:function(a,b){var c;f.swap(a,{display:"inline-block"},function(){b?c=bB(a,"margin-right","marginRight"):c=a.style.marginRight});return c}})}),c.defaultView&&c.defaultView.getComputedStyle&&(bC=function(a,c){var d,e,g;c=c.replace(bu,"-$1").toLowerCase();if(!(e=a.ownerDocument.defaultView))return b;if(g=e.getComputedStyle(a,null))d=g.getPropertyValue(c),d===""&&!f.contains(a.ownerDocument.documentElement,a)&&(d=f.style(a,c));return d}),c.documentElement.currentStyle&&(bD=function(a,b){var c,d,e,f=a.currentStyle&&a.currentStyle[b],g=a.style;f===null&&g&&(e=g[b])&&(f=e),!bv.test(f)&&bw.test(f)&&(c=g.left,d=a.runtimeStyle&&a.runtimeStyle.left,d&&(a.runtimeStyle.left=a.currentStyle.left),g.left=b==="fontSize"?"1em":f||0,f=g.pixelLeft+"px",g.left=c,d&&(a.runtimeStyle.left=d));return f===""?"auto":f}),bB=bC||bD,f.expr&&f.expr.filters&&(f.expr.filters.hidden=function(a){var b=a.offsetWidth,c=a.offsetHeight;return b===0&&c===0||!f.support.reliableHiddenOffsets&&(a.style&&a.style.display||f.css(a,"display"))==="none"},f.expr.filters.visible=function(a){return!f.expr.filters.hidden(a)});var bF=/%20/g,bG=/\[\]$/,bH=/\r?\n/g,bI=/#.*$/,bJ=/^(.*?):[ \t]*([^\r\n]*)\r?$/mg,bK=/^(?:color|date|datetime|datetime-local|email|hidden|month|number|password|range|search|tel|text|time|url|week)$/i,bL=/^(?:about|app|app\-storage|.+\-extension|file|res|widget):$/,bM=/^(?:GET|HEAD)$/,bN=/^\/\//,bO=/\?/,bP=/)<[^<]*)*<\/script>/gi,bQ=/^(?:select|textarea)/i,bR=/\s+/,bS=/([?&])_=[^&]*/,bT=/^([\w\+\.\-]+:)(?:\/\/([^\/?#:]*)(?::(\d+))?)?/,bU=f.fn.load,bV={},bW={},bX,bY,bZ=["*/"]+["*"];try{bX=e.href}catch(b$){bX=c.createElement("a"),bX.href="",bX=bX.href}bY=bT.exec(bX.toLowerCase())||[],f.fn.extend({load:function(a,c,d){if(typeof a!="string"&&bU)return bU.apply(this,arguments);if(!this.length)return this;var e=a.indexOf(" ");if(e>=0){var g=a.slice(e,a.length);a=a.slice(0,e)}var h="GET";c&&(f.isFunction(c)?(d=c,c=b):typeof c=="object"&&(c=f.param(c,f.ajaxSettings.traditional),h="POST"));var i=this;f.ajax({url:a,type:h,dataType:"html",data:c,complete:function(a,b,c){c=a.responseText,a.isResolved()&&(a.done(function(a){c=a}),i.html(g?f("
").append(c.replace(bP,"")).find(g):c)),d&&i.each(d,[c,b,a])}});return this},serialize:function(){return f.param(this.serializeArray())},serializeArray:function(){return this.map(function(){return this.elements?f.makeArray(this.elements):this}).filter(function(){return this.name&&!this.disabled&&(this.checked||bQ.test(this.nodeName)||bK.test(this.type))}).map(function(a,b){var c=f(this).val();return c==null?null:f.isArray(c)?f.map(c,function(a,c){return{name:b.name,value:a.replace(bH,"\r\n")}}):{name:b.name,value:c.replace(bH,"\r\n")}}).get()}}),f.each("ajaxStart ajaxStop ajaxComplete ajaxError ajaxSuccess ajaxSend".split(" "),function(a,b){f.fn[b]=function(a){return this.bind(b,a)}}),f.each(["get","post"],function(a,c){f[c]=function(a,d,e,g){f.isFunction(d)&&(g=g||e,e=d,d=b);return f.ajax({type:c,url:a,data:d,success:e,dataType:g})}}),f.extend({getScript:function(a,c){return f.get(a,b,c,"script")},getJSON:function(a,b,c){return f.get(a,b,c,"json")},ajaxSetup:function(a,b){b?cb(a,f.ajaxSettings):(b=a,a=f.ajaxSettings),cb(a,b);return a},ajaxSettings:{url:bX,isLocal:bL.test(bY[1]),global:!0,type:"GET",contentType:"application/x-www-form-urlencoded",processData:!0,async:!0,accepts:{xml:"application/xml, text/xml",html:"text/html",text:"text/plain",json:"application/json, text/javascript","*":bZ},contents:{xml:/xml/,html:/html/,json:/json/},responseFields:{xml:"responseXML",text:"responseText"},converters:{"* text":a.String,"text html":!0,"text json":f.parseJSON,"text xml":f.parseXML},flatOptions:{context:!0,url:!0}},ajaxPrefilter:b_(bV),ajaxTransport:b_(bW),ajax:function(a,c){function w(a,c,l,m){if(s!==2){s=2,q&&clearTimeout(q),p=b,n=m||"",v.readyState=a>0?4:0;var o,r,u,w=c,x=l?cd(d,v,l):b,y,z;if(a>=200&&a<300||a===304){if(d.ifModified){if(y=v.getResponseHeader("Last-Modified"))f.lastModified[k]=y;if(z=v.getResponseHeader("Etag"))f.etag[k]=z}if(a===304)w="notmodified",o=!0;else try{r=ce(d,x),w="success",o=!0}catch(A){w="parsererror",u=A}}else{u=w;if(!w||a)w="error",a<0&&(a=0)}v.status=a,v.statusText=""+(c||w),o?h.resolveWith(e,[r,w,v]):h.rejectWith(e,[v,w,u]),v.statusCode(j),j=b,t&&g.trigger("ajax"+(o?"Success":"Error"),[v,d,o?r:u]),i.fireWith(e,[v,w]),t&&(g.trigger("ajaxComplete",[v,d]),--f.active||f.event.trigger("ajaxStop"))}}typeof a=="object"&&(c=a,a=b),c=c||{};var d=f.ajaxSetup({},c),e=d.context||d,g=e!==d&&(e.nodeType||e instanceof f)?f(e):f.event,h=f.Deferred(),i=f.Callbacks("once memory"),j=d.statusCode||{},k,l={},m={},n,o,p,q,r,s=0,t,u,v={readyState:0,setRequestHeader:function(a,b){if(!s){var c=a.toLowerCase();a=m[c]=m[c]||a,l[a]=b}return this},getAllResponseHeaders:function(){return s===2?n:null},getResponseHeader:function(a){var c;if(s===2){if(!o){o={};while(c=bJ.exec(n))o[c[1].toLowerCase()]=c[2]}c=o[a.toLowerCase()]}return c===b?null:c},overrideMimeType:function(a){s||(d.mimeType=a);return this},abort:function(a){a=a||"abort",p&&p.abort(a),w(0,a);return this}};h.promise(v),v.success=v.done,v.error=v.fail,v.complete=i.add,v.statusCode=function(a){if(a){var b;if(s<2)for(b in a)j[b]=[j[b],a[b]];else b=a[v.status],v.then(b,b)}return this},d.url=((a||d.url)+"").replace(bI,"").replace(bN,bY[1]+"//"),d.dataTypes=f.trim(d.dataType||"*").toLowerCase().split(bR),d.crossDomain==null&&(r=bT.exec(d.url.toLowerCase()),d.crossDomain=!(!r||r[1]==bY[1]&&r[2]==bY[2]&&(r[3]||(r[1]==="http:"?80:443))==(bY[3]||(bY[1]==="http:"?80:443)))),d.data&&d.processData&&typeof d.data!="string"&&(d.data=f.param(d.data,d.traditional)),ca(bV,d,c,v);if(s===2)return!1;t=d.global,d.type=d.type.toUpperCase(),d.hasContent=!bM.test(d.type),t&&f.active++===0&&f.event.trigger("ajaxStart");if(!d.hasContent){d.data&&(d.url+=(bO.test(d.url)?"&":"?")+d.data,delete d.data),k=d.url;if(d.cache===!1){var x=f.now(),y=d.url.replace(bS,"$1_="+x);d.url=y+(y===d.url?(bO.test(d.url)?"&":"?")+"_="+x:"")}}(d.data&&d.hasContent&&d.contentType!==!1||c.contentType)&&v.setRequestHeader("Content-Type",d.contentType),d.ifModified&&(k=k||d.url,f.lastModified[k]&&v.setRequestHeader("If-Modified-Since",f.lastModified[k]),f.etag[k]&&v.setRequestHeader("If-None-Match",f.etag[k])),v.setRequestHeader("Accept",d.dataTypes[0]&&d.accepts[d.dataTypes[0]]?d.accepts[d.dataTypes[0]]+(d.dataTypes[0]!=="*"?", "+bZ+"; q=0.01":""):d.accepts["*"]);for(u in d.headers)v.setRequestHeader(u,d.headers[u]);if(d.beforeSend&&(d.beforeSend.call(e,v,d)===!1||s===2)){v.abort();return!1}for(u in{success:1,error:1,complete:1})v[u](d[u]);p=ca(bW,d,c,v);if(!p)w(-1,"No Transport");else{v.readyState=1,t&&g.trigger("ajaxSend",[v,d]),d.async&&d.timeout>0&&(q=setTimeout(function(){v.abort("timeout")},d.timeout));try{s=1,p.send(l,w)}catch(z){s<2?w(-1,z):f.error(z)}}return v},param:function(a,c){var d=[],e=function(a,b){b=f.isFunction(b)?b():b,d[d.length]=encodeURIComponent(a)+"="+encodeURIComponent(b)};c===b&&(c=f.ajaxSettings.traditional);if(f.isArray(a)||a.jquery&&!f.isPlainObject(a))f.each(a,function(){e(this.name,this.value)});else for(var g in a)cc(g,a[g],c,e);return d.join("&").replace(bF,"+")}}),f.extend({active:0,lastModified:{},etag:{}});var cf=f.now(),cg=/(\=)\?(&|$)|\?\?/i;f.ajaxSetup({jsonp:"callback",jsonpCallback:function(){return f.expando+"_"+cf++}}),f.ajaxPrefilter("json jsonp",function(b,c,d){var e=b.contentType==="application/x-www-form-urlencoded"&&typeof b.data=="string";if(b.dataTypes[0]==="jsonp"||b.jsonp!==!1&&(cg.test(b.url)||e&&cg.test(b.data))){var g,h=b.jsonpCallback=f.isFunction(b.jsonpCallback)?b.jsonpCallback():b.jsonpCallback,i=a[h],j=b.url,k=b.data,l="$1"+h+"$2";b.jsonp!==!1&&(j=j.replace(cg,l),b.url===j&&(e&&(k=k.replace(cg,l)),b.data===k&&(j+=(/\?/.test(j)?"&":"?")+b.jsonp+"="+h))),b.url=j,b.data=k,a[h]=function(a){g=[a]},d.always(function(){a[h]=i,g&&f.isFunction(i)&&a[h](g[0])}),b.converters["script json"]=function(){g||f.error(h+" was not called");return g[0]},b.dataTypes[0]="json";return"script"}}),f.ajaxSetup({accepts:{script:"text/javascript, application/javascript, application/ecmascript, application/x-ecmascript"},contents:{script:/javascript|ecmascript/},converters:{"text script":function(a){f.globalEval(a);return a}}}),f.ajaxPrefilter("script",function(a){a.cache===b&&(a.cache=!1),a.crossDomain&&(a.type="GET",a.global=!1)}),f.ajaxTransport("script",function(a){if(a.crossDomain){var d,e=c.head||c.getElementsByTagName("head")[0]||c.documentElement;return{send:function(f,g){d=c.createElement("script"),d.async="async",a.scriptCharset&&(d.charset=a.scriptCharset),d.src=a.url,d.onload=d.onreadystatechange=function(a,c){if(c||!d.readyState||/loaded|complete/.test(d.readyState))d.onload=d.onreadystatechange=null,e&&d.parentNode&&e.removeChild(d),d=b,c||g(200,"success")},e.insertBefore(d,e.firstChild)},abort:function(){d&&d.onload(0,1)}}}});var ch=a.ActiveXObject?function(){for(var a in cj)cj[a](0,1)}:!1,ci=0,cj;f.ajaxSettings.xhr=a.ActiveXObject?function(){return!this.isLocal&&ck()||cl()}:ck,function(a){f.extend(f.support,{ajax:!!a,cors:!!a&&"withCredentials"in a})}(f.ajaxSettings.xhr()),f.support.ajax&&f.ajaxTransport(function(c){if(!c.crossDomain||f.support.cors){var d;return{send:function(e,g){var h=c.xhr(),i,j;c.username?h.open(c.type,c.url,c.async,c.username,c.password):h.open(c.type,c.url,c.async);if(c.xhrFields)for(j in c.xhrFields)h[j]=c.xhrFields[j];c.mimeType&&h.overrideMimeType&&h.overrideMimeType(c.mimeType),!c.crossDomain&&!e["X-Requested-With"]&&(e["X-Requested-With"]="XMLHttpRequest");try{for(j in e)h.setRequestHeader(j,e[j])}catch(k){}h.send(c.hasContent&&c.data||null),d=function(a,e){var j,k,l,m,n;try{if(d&&(e||h.readyState===4)){d=b,i&&(h.onreadystatechange=f.noop,ch&&delete cj[i]);if(e)h.readyState!==4&&h.abort();else{j=h.status,l=h.getAllResponseHeaders(),m={},n=h.responseXML,n&&n.documentElement&&(m.xml=n),m.text=h.responseText;try{k=h.statusText}catch(o){k=""}!j&&c.isLocal&&!c.crossDomain?j=m.text?200:404:j===1223&&(j=204)}}}catch(p){e||g(-1,p)}m&&g(j,k,m,l)},!c.async||h.readyState===4?d():(i=++ci,ch&&(cj||(cj={},f(a).unload(ch)),cj[i]=d),h.onreadystatechange=d)},abort:function(){d&&d(0,1)}}}});var cm={},cn,co,cp=/^(?:toggle|show|hide)$/,cq=/^([+\-]=)?([\d+.\-]+)([a-z%]*)$/i,cr,cs=[["height","marginTop","marginBottom","paddingTop","paddingBottom"],["width","marginLeft","marginRight","paddingLeft","paddingRight"],["opacity"]],ct;f.fn.extend({show:function(a,b,c){var d,e;if(a||a===0)return this.animate(cw("show",3),a,b,c);for(var g=0,h=this.length;g=i.duration+this.startTime){this.now=this.end,this.pos=this.state=1,this.update(),i.animatedProperties[this.prop]=!0;for(b in i.animatedProperties)i.animatedProperties[b]!==!0&&(g=!1);if(g){i.overflow!=null&&!f.support.shrinkWrapBlocks&&f.each(["","X","Y"],function(a,b){h.style["overflow"+b]=i.overflow[a]}),i.hide&&f(h).hide();if(i.hide||i.show)for(b in i.animatedProperties)f.style(h,b,i.orig[b]),f.removeData(h,"fxshow"+b,!0),f.removeData(h,"toggle"+b,!0);d=i.complete,d&&(i.complete=!1,d.call(h))}return!1}i.duration==Infinity?this.now=e:(c=e-this.startTime,this.state=c/i.duration,this.pos=f.easing[i.animatedProperties[this.prop]](this.state,c,0,1,i.duration),this.now=this.start+(this.end-this.start)*this.pos),this.update();return!0}},f.extend(f.fx,{tick:function(){var a,b=f.timers,c=0;for(;c-1,k={},l={},m,n;j?(l=e.position(),m=l.top,n=l.left):(m=parseFloat(h)||0,n=parseFloat(i)||0),f.isFunction(b)&&(b=b.call(a,c,g)),b.top!=null&&(k.top=b.top-g.top+m),b.left!=null&&(k.left=b.left-g.left+n),"using"in b?b.using.call(a,k):e.css(k)}},f.fn.extend({position:function(){if(!this[0])return null;var a=this[0],b=this.offsetParent(),c=this.offset(),d=cz.test(b[0].nodeName)?{top:0,left:0}:b.offset();c.top-=parseFloat(f.css(a,"marginTop"))||0,c.left-=parseFloat(f.css(a,"marginLeft"))||0,d.top+=parseFloat(f.css(b[0],"borderTopWidth"))||0,d.left+=parseFloat(f.css(b[0],"borderLeftWidth"))||0;return{top:c.top-d.top,left:c.left-d.left}},offsetParent:function(){return this.map(function(){var a=this.offsetParent||c.body;while(a&&!cz.test(a.nodeName)&&f.css(a,"position")==="static")a=a.offsetParent;return a})}}),f.each(["Left","Top"],function(a,c){var d="scroll"+c;f.fn[d]=function(c){var e,g;if(c===b){e=this[0];if(!e)return null;g=cA(e);return g?"pageXOffset"in g?g[a?"pageYOffset":"pageXOffset"]:f.support.boxModel&&g.document.documentElement[d]||g.document.body[d]:e[d]}return this.each(function(){g=cA(this),g?g.scrollTo(a?f(g).scrollLeft():c,a?c:f(g).scrollTop()):this[d]=c})}}),f.each(["Height","Width"],function(a,c){var d=c.toLowerCase();f.fn["inner"+c]=function(){var a=this[0];return a?a.style?parseFloat(f.css(a,d,"padding")):this[d]():null},f.fn["outer"+c]=function(a){var b=this[0];return b?b.style?parseFloat(f.css(b,d,a?"margin":"border")):this[d]():null},f.fn[d]=function(a){var e=this[0];if(!e)return a==null?null:this;if(f.isFunction(a))return this.each(function(b){var c=f(this);c[d](a.call(this,b,c[d]()))});if(f.isWindow(e)){var g=e.document.documentElement["client"+c],h=e.document.body;return e.document.compatMode==="CSS1Compat"&&g||h&&h["client"+c]||g}if(e.nodeType===9)return Math.max(e.documentElement["client"+c],e.body["scroll"+c],e.documentElement["scroll"+c],e.body["offset"+c],e.documentElement["offset"+c]);if(a===b){var i=f.css(e,d),j=parseFloat(i);return f.isNumeric(j)?j:i}return this.css(d,typeof a=="string"?a:a+"px")}}),a.jQuery=a.$=f})(window); \ No newline at end of file diff --git a/bacnet-stack/demo/perl/Documentation/syntax.css b/bacnet-stack/demo/perl/Documentation/syntax.css new file mode 100755 index 00000000..7b9c78c5 --- /dev/null +++ b/bacnet-stack/demo/perl/Documentation/syntax.css @@ -0,0 +1,75 @@ +pre{ + font-family: "Courier New", Courier, monospace, sans-serif; + text-align: left; + line-height: 1.6em; + font-size: 11px; + padding: 0.1em 0.5em 0.3em 0.7em; + border: 2px solid #888; + margin: 1.7em 0 1.7em 0.3em; + overflow: auto; + width: 93%; + background: #EEEEEE; +} +h1 { + font-size: 20pt; + counter-increment: counter-h1; + counter-reset: counter-h2; +} +h2 { + font-size: 17pt; + counter-increment: counter-h2; + counter-reset: counter-h3; +} +h3 { + font-size: 14pt; + counter-increment: counter-h3; + counter-reset: counter-h4; +} +h1:before { + content: counter(counter-h1) ". "; +} +h2:before { + content: counter(counter-h1) "." counter(counter-h2) ". "; +} +h3:before { + content: counter(counter-h1) "." counter(counter-h2) "." counter(counter-h3) ". "; +} +ul { + list-style-type: circle; +} +.quotedString +{ + color: #0000FF; +} +.comment +{ + color: #999999; +} +.operator +{ + color: #00CCCC; +} +.builtinVariable +{ + color: #CCCC00; +} +.variableSpecifier +{ + color: #FF0000; +} +.keyword +{ + color: #AA0033; +} +.builtinFunction +{ + color: #AA00AA; +} +.identifier +{ + color: #009900; +} +.number +{ + color: #9999FF; +} diff --git a/bacnet-stack/demo/perl/Documentation/syntax.js b/bacnet-stack/demo/perl/Documentation/syntax.js new file mode 100755 index 00000000..bce49d90 --- /dev/null +++ b/bacnet-stack/demo/perl/Documentation/syntax.js @@ -0,0 +1,137 @@ +var ie = document.all != null; +var moz = !ie && document.getElementById != null && document.layers == null; +function emulateHTMLModel() +{ +// copied from http://www.webfx.nu/dhtml/ieemu/htmlmodel.html + +// This function is used to generate a html string for the text properties/methods +// It replaces '\n' with " as well as fixes consecutive white spaces +// It also repalaces some special characters +function convertTextToHTML(s) { + s = s.replace(/\&/g, "&").replace(//g, ">").replace(/\n/g, "
").replace(/\t/g, " "); //tachyon + while (/\s\s/.test(s)) + s = s.replace(/\s\s/, "  "); + return s.replace(/\s/g, " "); +} + + +HTMLElement.prototype.__defineSetter__("innerText", function (sText) { + this.innerHTML = convertTextToHTML(sText); + return sText; +}); + +var tmpGet; +HTMLElement.prototype.__defineGetter__("innerText", tmpGet = function () { + var r = this.ownerDocument.createRange(); + r.selectNodeContents(this); + return r.toString(); +}); + +} + +if (moz) +emulateHTMLModel(); + + +// Regular Expressions largely copied from Cory Johns (darkness@yossman.net) excellent Syntax::Highlight::Perl module (see http://search.cpan.org/~johnsca/) + +var re; +var RE = new Array; + +// quoted string +re = /('|"|`).*?\1/; +RE[0] = new RegExp(re); + +// comment +re = /\#.*?([\r\n]+|$)/; //tachyon +RE[1] = new RegExp(re); + +// operator +re = /xor|\.\.\.|and|not|\|\|\=|cmp|\>\>\=|\<\<\=|\<\=\>|\&\&\=|or|\=\>|\!\~|\^\=|\&\=|\|\=|\.\=|x\=|\%\=|\/\=|\*\=|\-\=|\+\=|\=\~|\*\*|\-\-|\.\.|\|\||\&\&|\+\+|\-\>|ne|eq|\!\=|\=\=|ge|le|gt|lt|\>\=|\<\=|\>\>|\<\<|\,|\=|\:|\?|\^|\||x|\%|\/|\*|\<|\&|\\|\~|\!|\>|\.|\-|\+ /; +RE[2] = new RegExp(re); + +// builtin variables +re = /\$\#?_|\$(?:\^[LAECDFHIMOPRSTWX]|[0-9&`'+*.\/|,\\";#%=\-~^:?!@\$<>()\[\]])|\$\#?ARGV(?:\s*\[)?|\$\#?INC\s*\[|\$(?:ENV|SIG|INC)\s*\{|\@(?:_|ARGV|INC)|\%(?:INC|ENV|SIG)/; +RE[3] = new RegExp(re); + +// variable class specifiers +re = /(?:(?:[\@\%\*]|\$\#?)\$*)/; +RE[4] = new RegExp(re); + +// keyword +re = /(continue|foreach|require|package|scalar|format|unless|local|until|while|elsif|next|last|goto|else|redo|sub|for|use|no|if|my)\b/; +RE[5] = new RegExp(re); + +// builtin function +re = /(getprotobynumber|getprotobyname|getservbyname|gethostbyaddr|gethostbyname|getservbyport|getnetbyaddr|getnetbyname|getsockname|getpeername|setpriority|getprotoent|setprotoent|getpriority|endprotoent|getservent|setservent|endservent|sethostent|socketpair|getsockopt|gethostent|endhostent|setsockopt|setnetent|quotemeta|localtime|prototype|getnetent|endnetent|rewinddir|wantarray|getpwuid|closedir|getlogin|readlink|endgrent|getgrgid|getgrnam|shmwrite|shutdown|readline|endpwent|setgrent|readpipe|formline|truncate|dbmclose|syswrite|setpwent|getpwnam|getgrent|getpwent|ucfirst|sysread|setpgrp|shmread|sysseek|sysopen|telldir|defined|opendir|connect|lcfirst|getppid|binmode|syscall|sprintf|getpgrp|readdir|seekdir|waitpid|reverse|unshift|symlink|dbmopen|semget|msgrcv|rename|listen|chroot|msgsnd|shmctl|accept|unpack|exists|fileno|shmget|system|unlink|printf|gmtime|msgctl|semctl|values|rindex|substr|splice|length|msgget|select|socket|return|caller|delete|alarm|ioctl|index|undef|lstat|times|srand|chown|fcntl|close|write|umask|rmdir|study|sleep|chomp|untie|print|utime|mkdir|atan2|split|crypt|flock|chmod|BEGIN|bless|chdir|semop|shift|reset|link|stat|chop|grep|fork|dump|join|open|tell|pipe|exit|glob|warn|each|bind|sort|pack|eval|push|keys|getc|kill|seek|sqrt|send|wait|rand|tied|read|time|exec|recv|eof|chr|int|ord|exp|pos|pop|sin|log|abs|oct|hex|tie|cos|vec|END|ref|map|die|\-C|\-b|\-S|\-u|\-t|\-p|\-l|\-d|\-f|\-g|\-s|\-z|uc|\-k|\-e|\-O|\-T|\-B|\-M|do|\-A|\-X|\-W|\-c|\-R|\-o|\-x|lc|\-w|\-r)\b/; +RE[6] = new RegExp(re); + +// identifier (variable, subroutine, packages) +re = /(?:(?:[A-Za-z_]|::)(?:\w|::)*)/; +RE[7] = new RegExp(re); + +// number +re = /0x[\da-fA-F]+|[_.\d]+([eE][-+]?\d+)?/; +RE[8] = new RegExp(re); + + +var classes = new Array("quotedString", "comment", "operator", "builtinVariable", "variableSpecifier", "keyword", "builtinFunction", "identifier", "number"); + + +/* This is the actual highlighting function. + * Takes an html object as argument + * returns nothing + * replaces the text inside the html object with colored text using 's + * css is defined separately. See the array classes to find out the css class names. + */ +function HighlightCode(object) +{ + codeText = object.innerText; //HTML.replace(/<.*?>/g, ""); + object.innerHTML = ''; + var left; + var match; + var right; + while (codeText.length > 0) + { + var mode = -1 ; + var index = 999999999; + for (var i = 0; i < RE.length; i++) + { + if ((codeText.match(RE[i])) && (RegExp.leftContext.length < index)) + { + left = RegExp.leftContext; + match = RegExp.lastMatch; + right = RegExp.rightContext; + index = RegExp.leftContext.length; + mode = i; + } + } + if (mode == -1) + { + object.appendChild(document.createTextNode(codeText)); //.replace(/\r\n/g, "\r"))); + codeText = ''; + } + else + { + // append the plain text to the block + object.appendChild(document.createTextNode(left)); //.replace(/\r\n/g, "\r"))); + + // create a new with the current code + var span = document.createElement("span"); + span.setAttribute("className", classes[mode]); // ie + span.setAttribute("class", classes[mode]); //mozilla + span.appendChild(document.createTextNode(match)); + object.appendChild(span); + + codeText = right; + } + } +} + +// little bit of JQuery to highlight code in all pre elements +$(document).ready(function(){ + $("pre").each(function(i){ + HighlightCode(this); + }); +}); + diff --git a/bacnet-stack/demo/perl/bacnet.pl b/bacnet-stack/demo/perl/bacnet.pl new file mode 100644 index 00000000..75291a68 --- /dev/null +++ b/bacnet-stack/demo/perl/bacnet.pl @@ -0,0 +1,869 @@ +use warnings; +use strict; +use Getopt::Long; +use Convert::Binary::C; +use Hash::Util qw/lock_hash/; +use English; +use Scalar::Util qw/looks_like_number/; +use File::Basename; +use File::Spec; +use Pod::Usage; +use Carp; + +=head1 NAME + +bacnet.pl - Scriptable BACnet communications + +=head1 DESCRIPTION + +This is a tool for scriptable BACnet communication. Users can write their own +scripts using standard Perl syntax and API defined in this tool to perform desired +execution sequences. For details on this tool's API, see Documentation.html. For other +Perl documentation, see http://perldoc.perl.org + +=begin html + + + + +=end html + +=head1 OPTIONS + +Usage: bacnet.pl [program_options] [-- script_args] + +This program executes a script in perl syntax to perform BACnet/IP operations. + + Possible program options: + --script=s The script to execute. + --log=s The file to log all output. + --help This help message. + + Possible environment variables are: + BACNET_IFACE - set this value to dotted IP address of the interface (see + ipconfig) for which you want to bind. Default is the interface which + Windows considers to be the default (how???). Hence, if there is only a + single network interface on Windows, the applications will choose it, and + this setting will not be needed. + BACNET_IP_PORT - UDP/IP port number (0..65534) used for BACnet/IP + communications. Default is 47808 (0xBAC0). + BACNET_APDU_TIMEOUT - set this value in milliseconds to change the APDU + timeout. APDU Timeout is how much time a client waits for a response from + a BACnet device. + BACNET_BBMD_PORT - UDP/IP port number (0..65534) used for Foreign Device + Registration. Defaults to 47808 (0xBAC0). + BACNET_BBMD_TIMETOLIVE - number of seconds used in Foreign Device + Registration (0..65535). Defaults to 60000 seconds. + BACNET_BBMD_ADDRESS - dotted IPv4 address of the BBMD or Foreign Device + Registrar. + +=cut + +############################################ +# Steps to prepare for execution +############################################ + +# This is the relative path to get to the base directory cotaining the BACnet +# Stack sources from the directory containing this file and the directory +# within which InlineC code is built. The reason for delaring it here and +# setting the value in a BEGIN block is so that the variable gets its value at +# compile time before Inline::C tries to use that variable. +my $relSourcePath; +my $inlineCFile; +my $inlineBuildDir; +my $libDir; +my $incDir1; +my $incDir2; +my $incDir3; +BEGIN { + # the Perl source file is in the same directory as in the InlineC file + # this path should not contain any spaces + $relSourcePath = File::Spec->rel2abs(dirname($0)); + die "Install path must not have spaces.\n" if $relSourcePath =~ /\s/; + my @dirs = (); + push @dirs, $relSourcePath; + $inlineCFile = File::Spec->catfile(@dirs, "perl_bindings.c"); + + # all Inline C sources shall be contained in ./.Inline + push @dirs, ".Inline"; + $inlineBuildDir = File::Spec->catdir(@dirs); + pop @dirs; + + # to properly link, need to reference ./../../lib + push @dirs, ".."; + push @dirs, ".."; + push @dirs, "lib"; + $libDir = File::Spec->catdir(@dirs); + pop @dirs; + + # to properly build, need to reference ./../../include + push @dirs, "include"; + $incDir1 = File::Spec->catdir(@dirs); + pop @dirs; + + # we will use the demo handlers, need to reference ./../../demo/object + push @dirs, "demo"; + push @dirs, "object"; + $incDir2 = File::Spec->catdir(@dirs); + pop @dirs; + pop @dirs; + + # TODO: This should be done in a more universal way + # to properly build Win32 ports, need to refrence ./../../ports/win32 + push @dirs, "ports"; + push @dirs, "win32"; + $incDir3 = File::Spec->catdir(@dirs); +} + +use Inline ( + C => Config => + LIBS => "-L$libDir -lbacnet -liphlpapi", + INC => ["-I$incDir1", "-I$incDir2", "-I$incDir3"], + DIRECTORY => $inlineBuildDir, +); + +# this is the C source file for interfacing to the library. Yes, this could be +# done natively in Perl, but this is just as easy (and probably faster to +# execute). +use Inline C => "$inlineCFile"; + + +my $ask_help = 0; +my $script; +my $log; +my $logTo = \*STDOUT; +my $logIndent = 0; +my $logIsQuiet = 0; +my $errorMsg; +my $answer = ''; + +($ask_help = 1) unless GetOptions( + 'help|?' => \$ask_help, + 'script=s' => \$script, + 'log=s' => \$log, +); + +if (!defined($script) || !(-f $script)) +{ + print "Bad or no script file scpecified.\n"; + $ask_help = 1; +} +else +{ + # Add the script's location to @INC so that they can include other scripts + # using relative paths + my $scriptdir = File::Spec->rel2abs(dirname($script)); + push @INC,$scriptdir; +} + +if ($ask_help) { + print "============================\n\n"; + pod2usage( + -exitval => 0, + -verbose => 99, + -sections => "NAME|DESCRIPTION|OPTIONS" + ); +} + +if (defined($log)) +{ + open(LOG, ">$log") || croak "Cannot open $log for writing: $!\n"; + $logTo = \*LOG; +} + +# Pull in the BACnet enumerations from the C header file +my %C_ENUMS; +eval { + my $pwd = File::Spec->rel2abs(File::Spec->curdir()); + + # let's get into the directory so that we can pull in the bacnet enumerations + my @dirs = (); + push @dirs, dirname($0); + push @dirs, "../../include"; + chdir(File::Spec->catdir(@dirs)); + my $c = Convert::Binary::C->new->parse_file('bacenum.h'); + foreach my $typedef ($c->typedef) + { + if (ref($$typedef{type}) eq "HASH") + { + my $enumeration = \%{$C_ENUMS{$$typedef{declarator}}}; + foreach my $enum_name (keys %{$$typedef{type}{enumerators}}) + { + ${$C_ENUMS{$$typedef{declarator}}}{$enum_name} = ${$$typedef{type}{enumerators}}{$enum_name}; + } + } + } + lock_hash(%C_ENUMS); + chdir($pwd); +}; +if ($EVAL_ERROR) +{ + croak "Error pulling in the enumerations. $@\n"; +} + +# Prepare things for communication +BacnetPrepareComm(); + +# Execute the user specified script +Log("Executing $script - start time " . scalar(localtime(time())) ); +unless (my $return = do $script) +{ + croak "could not parse $script: $@" if $@; + croak "could not pull in $script: $!" unless defined $return; + croak "could not execute $script" unless $return; +} +Log("Finished executing $script - end time " . scalar(localtime(time())) ); + +=head1 This tool's API + +In addition to having all standard Perl flow control, functions, and modules, +the this tool provides an API for performing BACnet communication functions. + +=cut + +########################################## +# This block is the external API +########################################## + +=head2 ReadProperty + +This function implements the ReadProperty service. There are no built in retry +mechanisms. NOTE: all enumerations are defined in F + +=head3 Inputs to ReadProperty + +=begin html +
    +
  • devideInstance - the instance number of the device we are reading
    • +
  • objectName - the enumeration for the object name we are reading
    • +
  • objectInstance - the instance number of the object we are reading
    • +
  • propertyName - the enumeration for the property name we are reading
    • +
  • index - Optional (default -1): the index number we are reading from. -1 if not applicable
    • +
+ +=end html + +=head3 Outputs from ReadProperty + +=begin html +
    +
  • result - the sting result (value or error) for ReadProperty
    • +
  • isFailure - zero means no failure, non-zero means failure
    • +
+ +=end html + +=head3 Example of ReadProperty + +The following example will read AV0.PresentValue from device 1234 + + my ($res, $failed) = ReadProperty(1234, 'OBJECT_ANALOG_VALUE', 0, 'PROP_PRESENT_VALUE'); + +=cut + +sub ReadProperty { + my $deviceInstance = shift; + my $objectName = shift; + my $objectInstance = shift; + my $propertyName = shift; + my $index = shift; + my $isFailure = BindToDevice($deviceInstance); + + # Loop for early exit + while(1) + { + last if $isFailure; + + my ($objectPrintName, $objectValue) = LookupEnumValue('BACNET_OBJECT_TYPE', $objectName); + my ($propertyPrintName, $propertyValue) = LookupEnumValue('BACNET_PROPERTY_ID', $propertyName); + + my $msg = "ReadProperty $objectPrintName" . '[' . $objectInstance . "].$propertyPrintName"; + if (defined($index)) + { + $msg .= ".$index"; + } else { + $index = -1; + } + $msg .= " from Device" . '[' . $deviceInstance . "] ==> "; + + LogAnswer('', 0); + if ( BacnetReadProperty($deviceInstance, $objectValue, $objectInstance, $propertyValue, $index) ) + { + BacnetGetError($errorMsg); + $msg .= "Problem: $errorMsg"; + $isFailure = 1; + } + else + { + $msg .= $answer; + $isFailure = 0; + } + Log($msg); + last; + } + + return ($answer, $isFailure); +} + +=head2 ReadPropertyMultiple + +This function implements the ReadPropertyMultiple service. There are no built in retry +mechanisms. NOTE: all enumerations are defined in F + +=head3 Inputs to ReadPropertyMultiple + +=begin html +
    +
  • devideInstance - the instance number of the device we are reading
    • +
  • r_answerList - reference to a list where to store the answers
    • +
  • list - a list of ReadAccessSpecifications
    • +
      +
    • objectType - the enumeration for the object name to read from
      • +
    • objectInstance - the instance number of the object we are reading
      • +
    • propertyName - the enumeration for the property name we are reading
      • +
    • index - the index number we are reading from. Use -1 if not applicable
      • +
    +
+ +=end html + +=head3 Outputs from ReadPropertyMultiple + +=begin html +
    +
  • result - the 'QQQ' delimited concatenated sting result (value or error) for ReadPropertyMultiple. The parsed out result is returned in r_answerList
    • +
  • isFailure - zero means no failure, non-zero means failure
    • +
+ +=end html + +=head3 Example of ReadPropertyMultiple + +The following example will read AV0.PresentValue and AV1.PresentValue from device 1234 + + my @RPM_request = (); + my @RPM_answer = (); + my $failed; + push @RPM_request, ['OBJECT_ANALOG_VALUE', 0, 'PROP_PRESENT_VALUE', -1]; + push @RPM_request, ['OBJECT_ANALOG_VALUE', 1, 'PROP_PRESENT_VALUE', -1]; + (undef, $failed) = ReadPropertyMultiple(1234, \@RPM_answer, @RPM_request); + +=cut + +sub ReadPropertyMultiple +{ + my $deviceInstanceNumber = shift; + my $r_answerList = shift; + my @list = @ARG; + my @modifiedList = (); + my $msg = ''; + my $isFailure = BindToDevice($deviceInstanceNumber); + + # loop for early exit + while(1) + { + last if $isFailure; + + Log("ReadPropertyMultiple:"); + $logIndent += 4; + + foreach my $r_prop (@list) + { + my @tmpList = (); + push @tmpList, $$r_prop[$_] for (0 .. 3); + (undef, $tmpList[0]) = LookupEnumValue('BACNET_OBJECT_TYPE', $$r_prop[0]); + (undef, $tmpList[2]) = LookupEnumValue('BACNET_PROPERTY_ID', $$r_prop[2]); + push @modifiedList, \@tmpList; + } + + LogAnswer('', 0); + @{$r_answerList} = (); + if (BacnetReadPropertyMultiple($deviceInstanceNumber, @modifiedList)) + { + BacnetGetError($errorMsg); + Log("Problem: $errorMsg"); + $isFailure = 1; + } + else + { + my $i = 0; + foreach (split('QQQ', $answer)) + { + my ($objectPrintName, undef) = LookupEnumValue('BACNET_OBJECT_TYPE', $list[$i][0]); + my ($propertyPrintName, undef) = LookupEnumValue('BACNET_PROPERTY_ID', $list[$i][2]); + my $msg = $objectPrintName . '.[' . $list[$i][1] . '].' . $propertyPrintName; + if ($list[$i][3] != -1) + { + $msg .= '.[' . $list[$i][3] . ']'; + } + $msg .= " ==> $_"; + Log($msg); + push @{$r_answerList}, $_; + $i++; + } + $isFailure = 0; + } + + $logIndent -= 4; + last; + } + + return ($answer, $isFailure); +} + +=head2 WriteProperty + +This function implements the WriteProperty service. There are no built in retry +mechanisms. NOTE: all enumerations are defined in F + +=head3 Inputs to WriteProperty + +=begin html +
    +
  • devideInstance - the instance number of the device we are writing
    • +
  • objectName - the enumeration for the object name we are writing
    • +
  • objectInstance - the instance number of the object we are writing
    • +
  • propertyName - the enumeration for the property name we are writing
    • +
  • tagName - the enumeration for the type of value we are writing. To specify context tags, prepend the tag name with "Cn:" where 'n' is the context number.
    • +
  • value - the value we are writing
    • +
  • priority - Optional (default 0): the priority within Priority Array to write at. Use 1-16 when specify priority, 0 to not specify priority.
    • +
  • index - Optional (default -1): the index within an array we are writing to. Use positive number to indicate index, -1 to not specify index.
    • +
+ +=end html + +=head3 Outputs from WriteProperty + +=begin html +
    +
  • result - the sting result (value or error) for WriteProperty
    • +
  • isFailure - zero means no failure, non-zero means failure
    • +
+ +=end html + +=head3 Example of WriteProperty + +The following example will write 1.0 to AV0.PresentValue in device 1234 + + my ($res, $failed) = WriteProperty(1234, 'OBJECT_ANALOG_VALUE', 0, 'PROP_PRESENT_VALUE', 'BACNET_APPLICATION_TAG_REAL', 1.0); + +=cut + +sub WriteProperty { + my $deviceInstance = shift; + my $objectName = shift; + my $objectInstance = shift; + my $propertyName = shift; + my $tagName = shift; + my $value = shift; + my $priority = shift; + my $index = shift; + my $isFailure = BindToDevice($deviceInstance); + + # loop for early exit + while(1) + { + last if $isFailure; + + my ($objectPrintName, $objectValue) = LookupEnumValue('BACNET_OBJECT_TYPE', $objectName); + my ($propertyPrintName, $propertyValue) = LookupEnumValue('BACNET_PROPERTY_ID', $propertyName); + + my $tagValue = ''; + if ($tagName =~ /^(C\d+):(.*)$/) + { + $tagName = $2; + $tagValue = "$1 "; + } + my ($tagPrintName, $tagNewValue) = LookupEnumValue('BACNET_APPLICATION_TAG', $tagName); + $tagValue .= $tagNewValue; + + my $msg = "WriteProperty $tagPrintName:$value to $objectPrintName" . '[' . $objectInstance . "].$propertyPrintName"; + if (defined($index)) + { + $msg .= '[' . $index . ']'; + } + else + { + # an index of -1 means that we are not writing to an array + $index = -1; + } + if (defined($priority)) + { + $msg .= '@' . $priority + } + else + { + # a priority of 0 means we are not writing to a priority array + $priority = 0; + } + $msg .= " in Device" . '[' . $deviceInstance . "] ==> "; + + LogAnswer('', 0); + if ( BacnetWriteProperty($deviceInstance, $objectValue, $objectInstance, $propertyValue, $priority, $index, $tagValue, $value) ) + { + BacnetGetError($errorMsg); + $msg .= "Problem: $errorMsg\n"; + $isFailure = 1; + } + else + { + $msg .= $answer; + $isFailure = 0; + } + Log($msg); + last; + } + + return ($answer, $isFailure); +} + +=head2 TimeSync + +This function implements the TimeSync and UTCTimeSync services + +=head3 Inputs to TimeSync + +=begin html +
    +
  • deviceInstanceNumber - the instance number of the device we are reading
    • +
  • year - Year (i.e. 2011)
    • +
  • month - Month (i.e. 11 for November)
    • +
  • day - Day (i.e. 1 for first of month)
    • +
  • hour - Hour (i.e. 23 for 11pm)
    • +
  • minute - Minute (i.e. 0-59)
    • +
  • second - Second (i,e. 0-59)
    • +
  • utcOffset - Optional: if specified defines the UTC offset and forces UTCTimeSync
    • +
+ +=end html + +=head3 Outputs from TimeSync + +=begin html +
    +
  • isFailure - zero means no failure, non-zero means failure
    • +
+ +=end html + +=head3 Example of TimeSync + + $isFailure = TimeSync($deviceInstance, $1, $2, $3, $4, $5, $6) unless $isFailure; + +=cut + +sub TimeSync +{ + my $deviceInstanceNumber = shift; + my $year = shift; + my $month = shift; + my $day = shift; + my $hour = shift; + my $minute = shift; + my $second = shift; + my $utcOffset = shift; + my $isUTC; + + my $isFailure = BindToDevice($deviceInstanceNumber); + + # loop for early exit + while(1) + { + last if $isFailure; + + # be a pessimist. Assume things will fail + $isFailure = 1; + + if (defined($utcOffset)) + { + $isUTC = 1; + Log("UTC Time Sync not yet supported."); + last; + } + else + { + $utcOffset = 0; + $isUTC = 0; + } + + if ($year < 1900 || $year > 2099) + { + Log("Year '$year' is invalid."); + last; + } + + if ($month <= 0 || $month > 12) + { + Log("Month '$month' is invalid."); + last; + } + + if ($day <= 0 || $day > 31) + { + Log("Day '$day' is invalid."); + last; + } + + if ($hour < 0 || $hour > 23) + { + Log("Hour '$hour' is invalid."); + last; + } + + if ($minute < 0 || $minute > 59) + { + Log("Minute '$minute' is invalid."); + last; + } + + if ($second < 0 || $second > 59) + { + Log("Second '$second' is invalid."); + last; + } + + Log("TimeSync: Device[$deviceInstanceNumber] $year/$month/$day $hour:$minute:$second"); + + $isFailure = BacnetTimeSync($deviceInstanceNumber, $year, $month, $day, $hour, $minute, $second, $isUTC, $utcOffset); + last; + } + + return $isFailure; +} + +=head2 Log + +This function prints out to the desired method of logging (STDOUT or file). +NewLine characters are not required when making calls to this function. If any +NewLine characters are specified, they will be stripped out. To print an empty +line, pass in a space as the message. NOTE: This function will honor previous +requests to silence the log (see SilcenseLog for details) + +=head3 Inputs to Log + +=begin html +
    +
  • msg - the message to output +
+ +=end html + +=head3 Example of Log + +The following example will print out "hello world" + + Log("Hello World"); + +=cut + +############################################################################### +# Global Variables affecting this function +# logIsQuiet do not print anytihng if the log was qieted +# logIndent how many spaces to put in front of every logged line +############################################################################### +sub Log { + my $msg = shift; + + if (defined($msg) && !$logIsQuiet) + { + my @last = split('', substr($msg, -2)); + + # if there is nothing to print, then don't do it + return if (scalar(@last) == 0); + + # if there are newline-like characters, get rid of them. + while ($msg =~/^(.*)[\r\n]+(.*)$/) + { + $msg = $1 . $2; + } + + local $OUTPUT_RECORD_SEPARATOR = "\n"; + print $logTo ' ' x $logIndent . $msg; + } +} + +=head2 SilenceLog + +This function requests that all future log messages be either suppressed or +enabled. + +=head3 Inputs to SilenceLog + +=begin html +
    +
  • logIsQuiet - zero means print to log, non-zero means supress log +
+ +=end html + +=head3 Outputs from SilenceLog + +The previous value of whether or not the log was silenced before caling this +function. + +=head3 Example of SilenceLog + +The following example will print out "hello", but not "world" + + Log("Hello"); + SilenceLog(1); + Log("World"); + +=cut + +sub SilenceLog { + my $prevValue = $logIsQuiet; + $logIsQuiet = shift; + return $prevValue; +} + +=head2 Retry + +This function will try to execute the requested command up to specified number +of times, awaiting the requested answer, with a specified pause between +retries. NOTE: the only functions which can be executed by this function are +ones which return two parameres in the form of ($response, $isFailure) + +=head3 Inputs to Retry + +=begin html +
    +
  • r_func - The reference to the function which is to be retried
    • +
  • r_funcArgs - A reference to an array of arguments for the function to be executed
    • +
  • desiredOutput - The condition which will terminate the retrying. Can be either a number or a regexp to patch against the $response return of the function
    • +
  • maxTries - The maximum number of retry attempts before calling it quits
    • +
  • sleepSeconds - The number of seconds (could be fractional) to wait between retries
    • +
+ +=end html + +=head3 Outputs from Retry + +=begin html +
    +
  • $resp - The response from the last execution of requested function
    • +
  • isFailure - zero means no failure, non-zero means failure
    • +
+ +=end html + +=head3 Example of Retry + +The following example will execute the ReadProperty function to read a property +from an object (see ReadProperty for details on those arguments) with up to +$maxRetries retries (with $retryDelay delay between retries) or unitl the +desired answer of 42 is received. + + my ($resp, $isFailure) = Retry( + \&ReadProperty, [$deviceInstance, 'OBJECT_ANALOG_VALUE', 0, 'PROP_PRESENT_VALUE'], + 42, $maxRetries, $retryDelay + ); + if ($isFailure) + { + die "Value was not 42. Last response was '$resp'"; + } + +The following example will try to execute a WriteProperty (see that function for +details on its arguments) until the write succeeds. + + my ($resp, $isFailure) = Retry( + \&WriteProperty, [$deviceInstance, 'OBJECT_ANALOG_VALUE', 0, 'PROP_PRESENT_VALUE', 'BACNET_APPLICATION_TAG_REAL', 42.0], + "Acknowledged", $maxRetries, $retryDelay + ); + if ($isFailure) + { + die "Could not write 42. Last response was '$resp'"; + } + +=cut +sub Retry { + my $r_func = shift; + my $r_funcArgs = shift; + my $desiredOutput = shift; + my $maxTries = shift; + my $sleepSeconds = shift; + + my ($resp, $failed); + + my $i; + for ($i=0; $i<$maxTries; $i++) + { + ($resp, $failed) = &{$r_func}(@{$r_funcArgs}); + unless ($failed) + { + if (looks_like_number($desiredOutput)) + { + last if (looks_like_number($resp) && ($resp == $desiredOutput)); + } + else + { + last if ($resp =~ /$desiredOutput/); + } + } + select(undef, undef, undef, $sleepSeconds); + } + + return ($resp, ($i == $maxTries)); +} + + +########################################## +# These are the supporting functions +########################################## + +sub LookupEnumValue { + my $enumType = shift; + my $enumName = shift; + my $printName; + + if (!exists($C_ENUMS{$enumType}{$enumName})) + { + print "Requested enumeration '$enumName' does not exist within '$enumType'.\n"; + exit -1; + } + + # lookup the value + my $value = $C_ENUMS{$enumType}{$enumName}; + + # reformat the OBJECT name style + my %reformat = ( + 'BACNET_PROPERTY_ID' => 'PROP', + 'BACNET_OBJECT_TYPE' => 'OBJECT', + 'BACNET_APPLICATION_TAG' => 'BACNET_APPLICATION_TAG', + ); + + if (exists($reformat{$enumType})) + { + if ($enumName =~ /$reformat{$enumType}_(.*)/) + { + $printName = ''; + $printName .= ucfirst lc $_ foreach (split('_', $1)); + } + } + + return ($printName, $value); +} + +sub BindToDevice { + my $deviceInstance = shift; + my $isFailure = 0; + + if ( BacnetBindToDevice($deviceInstance) ) + { + BacnetGetError($errorMsg); + Log("Problem binding to deivce $deviceInstance: $errorMsg\n"); + $isFailure = 1; + } + + return $isFailure; +} + +sub LogAnswer { + my $newAnswer = shift; + my $append = shift; + + $answer = '' unless $append; + $answer .= $newAnswer; +} + diff --git a/bacnet-stack/demo/perl/example_readprop.pl b/bacnet-stack/demo/perl/example_readprop.pl new file mode 100644 index 00000000..dd36c430 --- /dev/null +++ b/bacnet-stack/demo/perl/example_readprop.pl @@ -0,0 +1,16 @@ +use warnings; +use strict; + +if (scalar(@ARGV) == 1) +{ + my $device = $ARGV[0]; + my ($resp, $failed) = ReadProperty($device, 'OBJECT_ANALOG_VALUE', 0, 'PROP_PRESENT_VALUE'); + + print "status was '$failed' and the response was '$resp'\n"; +} +else +{ + print "Must specify device instance number as an argument to this script\n"; +} + +1; diff --git a/bacnet-stack/demo/perl/perl_bindings.c b/bacnet-stack/demo/perl/perl_bindings.c new file mode 100644 index 00000000..62b23a36 --- /dev/null +++ b/bacnet-stack/demo/perl/perl_bindings.c @@ -0,0 +1,1126 @@ +#include "bacdef.h" +#include "handlers.h" +#include "bacenum.h" +#include "datalink.h" +#include "device.h" +#include +#include "arf.h" + +// Free is redefined as a macro, but Perl does not like that. +#undef free + +/* global variables used in this file */ +static uint32_t Target_Device_Object_Instance = 4194303; +static unsigned Target_Max_APDU = 0; +static bool Error_Detected = false; +static BACNET_ADDRESS Target_Address; +static uint8_t Request_Invoke_ID = 0; +static bool isReadPropertyHandlerRegistered = false; +static bool isReadPropertyMultipleHandlerRegistered = false; +static bool isWritePropertyHandlerRegistered = false; +static bool isAtomicWriteFileHandlerRegistered = false; +static bool isAtomicReadFileHandlerRegistered = false; + +/****************************************/ +// Logging Support +/****************************************/ +#define MAX_ERROR_STRING 128 +#define NO_ERROR "No Error" +static char Last_Error[MAX_ERROR_STRING] = NO_ERROR; +static void LogError(const char *msg) +{ + strcpy(Last_Error, msg); + Error_Detected = true; +} +void BacnetGetError(SV *errorMsg) +{ + sv_setpv(errorMsg, Last_Error); + strcpy(Last_Error, NO_ERROR); + Error_Detected = false; +} +static void __LogAnswer(const char *msg, unsigned append) +{ + dSP; + ENTER; + SAVETMPS; + PUSHMARK(SP); + XPUSHs(sv_2mortal(newSVpv(msg, 0))); + XPUSHs(sv_2mortal(newSViv(append))); + PUTBACK; + call_pv("LogAnswer", G_DISCARD); + FREETMPS; + LEAVE; +} + +/****************************************/ +// TODO: This should really be fixed in the library + +/* used to load the app data struct with the proper data + converted from a command line argument */ +bool my_bacapp_parse_application_data( + BACNET_APPLICATION_TAG tag_number, + const char *argv, + BACNET_APPLICATION_DATA_VALUE * value) +{ + int hour, min, sec, hundredths; + int year, month, day, wday; + int object_type = 0; + uint32_t instance = 0; + bool status = false; + long long_value = 0; + unsigned long unsigned_long_value = 0; + double double_value = 0.0; + int count = 0; + + if (value && (tag_number < MAX_BACNET_APPLICATION_TAG)) { + status = true; + value->tag = tag_number; + switch (tag_number) { + case BACNET_APPLICATION_TAG_BOOLEAN: + long_value = strtol(argv, NULL, 0); + if (long_value) + value->type.Boolean = true; + else + value->type.Boolean = false; + break; + case BACNET_APPLICATION_TAG_UNSIGNED_INT: + unsigned_long_value = strtoul(argv, NULL, 0); + value->type.Unsigned_Int = unsigned_long_value; + break; + case BACNET_APPLICATION_TAG_SIGNED_INT: + long_value = strtol(argv, NULL, 0); + value->type.Signed_Int = long_value; + break; + case BACNET_APPLICATION_TAG_REAL: + double_value = strtod(argv, NULL); + value->type.Real = (float) double_value; + break; +#if defined (BACAPP_DOUBLE) + case BACNET_APPLICATION_TAG_DOUBLE: + double_value = strtod(argv, NULL); + value->type.Double = double_value; + break; +#endif + case BACNET_APPLICATION_TAG_OCTET_STRING: + status = + octetstring_init(&value->type.Octet_String, + (uint8_t *) argv, strlen(argv)); + break; + case BACNET_APPLICATION_TAG_CHARACTER_STRING: + status = + characterstring_init_ansi(&value->type.Character_String, + (char *) argv); + break; + case BACNET_APPLICATION_TAG_BIT_STRING: + /* FIXME: how to parse a bit string? */ + status = false; + bitstring_init(&value->type.Bit_String); + break; + case BACNET_APPLICATION_TAG_ENUMERATED: + unsigned_long_value = strtoul(argv, NULL, 0); + value->type.Enumerated = unsigned_long_value; + break; + case BACNET_APPLICATION_TAG_DATE: + count = + sscanf(argv, "%d/%d/%d:%d", &year, &month, &day, &wday); + if (count == 3) { + datetime_set_date(&value->type.Date, (uint16_t) year, + (uint8_t) month, (uint8_t) day); + } else if (count == 4) { + value->type.Date.year = (uint16_t) year; + value->type.Date.month = (uint8_t) month; + value->type.Date.day = (uint8_t) day; + value->type.Date.wday = (uint8_t) wday; + } else { + status = false; + } + break; + case BACNET_APPLICATION_TAG_TIME: + count = + sscanf(argv, "%d:%d:%d.%d", &hour, &min, &sec, + &hundredths); + if (count == 4) { + value->type.Time.hour = (uint8_t) hour; + value->type.Time.min = (uint8_t) min; + value->type.Time.sec = (uint8_t) sec; + value->type.Time.hundredths = (uint8_t) hundredths; + } else if (count == 3) { + value->type.Time.hour = (uint8_t) hour; + value->type.Time.min = (uint8_t) min; + value->type.Time.sec = (uint8_t) sec; + value->type.Time.hundredths = 0; + } else if (count == 2) { + value->type.Time.hour = (uint8_t) hour; + value->type.Time.min = (uint8_t) min; + value->type.Time.sec = 0; + value->type.Time.hundredths = 0; + } else { + status = false; + } + break; + case BACNET_APPLICATION_TAG_OBJECT_ID: + count = sscanf(argv, "%d:%d", &object_type, &instance); + if (count == 2) { + value->type.Object_Id.type = (uint16_t) object_type; + value->type.Object_Id.instance = instance; + } else { + status = false; + } + break; + default: + break; + } + value->next = NULL; + } + + return status; +} + +// end of TODO +/****************************************/ + +/**************************************/ +// error handlers +/*************************************/ +static void MyAbortHandler( + BACNET_ADDRESS * src, + uint8_t invoke_id, + uint8_t abort_reason, + bool server) +{ + (void) server; + if (address_match(&Target_Address, src) && + (invoke_id == Request_Invoke_ID)) + { + char msg[MAX_ERROR_STRING]; + sprintf(msg, "BACnet Abort: %s", bactext_abort_reason_name((int) abort_reason)); + LogError(msg); + } +} + +static void MyRejectHandler( + BACNET_ADDRESS * src, + uint8_t invoke_id, + uint8_t reject_reason) +{ + if (address_match(&Target_Address, src) && + (invoke_id == Request_Invoke_ID)) + { + char msg[MAX_ERROR_STRING]; + sprintf(msg, "BACnet Reject: %s", bactext_reject_reason_name((int) reject_reason)); + LogError(msg); + } +} + +static void My_Error_Handler( + BACNET_ADDRESS * src, + uint8_t invoke_id, + BACNET_ERROR_CLASS error_class, + BACNET_ERROR_CODE error_code) +{ + if (address_match(&Target_Address, src) && + (invoke_id == Request_Invoke_ID)) + { + char msg[MAX_ERROR_STRING]; + sprintf(msg, "BACnet Error: %s: %s", bactext_error_class_name((int) error_class), bactext_error_code_name((int) error_code)); + LogError(msg); + } +} + +/**********************************/ +/* ACK handlers */ +/**********************************/ + +/*****************************************/ +// Decode the ReadProperty Ack and pass to perl +/****************************************/ +#define MAX_ACK_STRING 512 +void rp_ack_extract_data(BACNET_READ_PROPERTY_DATA * data) +{ + char ackString[MAX_ACK_STRING] = ""; + char *pAckString = &ackString[0]; + BACNET_OBJECT_PROPERTY_VALUE object_value; /* for bacapp printing */ + BACNET_APPLICATION_DATA_VALUE value; /* for decode value data */ + int len = 0; + uint8_t *application_data; + int application_data_len; + bool first_value = true; + bool print_brace = false; + size_t str_len; + + if (data) + { + application_data = data->application_data; + application_data_len = data->application_data_len; + /* FIXME: what if application_data_len is bigger than 255? */ + /* value? need to loop until all of the len is gone... */ + for (;;) { + len = + bacapp_decode_application_data(application_data, + (uint8_t) application_data_len, &value); + if (first_value && (len < application_data_len)) + { + first_value = false; + strncat(pAckString, "{", 1); + pAckString += 1; + print_brace = true; + } + object_value.object_type = data->object_type; + object_value.object_instance = data->object_instance; + object_value.object_property = data->object_property; + object_value.array_index = data->array_index; + object_value.value = &value; + bacapp_extract_value(&pAckString, ackString+MAX_ACK_STRING, &str_len, &object_value); + if (len > 0) { + if (len < application_data_len) { + application_data += len; + application_data_len -= len; + /* there's more! */ + strncat(pAckString, ",", 1); + pAckString += 1; + } else { + break; + } + } else { + break; + } + } + if (print_brace) + { + strncat(pAckString, "}", 1); + pAckString += 1; + } + + // Now let's call a Perl function to display the data + __LogAnswer(ackString, 0); + } +} + +/*****************************************/ +// Decode the ReadPropertyMultiple Ack and pass to perl +/****************************************/ +void rpm_ack_extract_data(BACNET_READ_ACCESS_DATA * rpm_data) +{ + BACNET_OBJECT_PROPERTY_VALUE object_value; /* for bacapp printing */ + BACNET_PROPERTY_REFERENCE *listOfProperties; + BACNET_APPLICATION_DATA_VALUE *value; + bool array_value = false; + char ackString[MAX_ACK_STRING] = ""; + char *pAckString = &ackString[0]; + size_t str_len; + + if (rpm_data) { + listOfProperties = rpm_data->listOfProperties; + while (listOfProperties) { + value = listOfProperties->value; + if (value) { + if (value->next) { + strncat(pAckString, "{", 1); + pAckString++; + array_value = true; + } else { + array_value = false; + } + object_value.object_type = rpm_data->object_type; + object_value.object_instance = rpm_data->object_instance; + while (value) { + object_value.object_property = listOfProperties->propertyIdentifier; + object_value.array_index = listOfProperties->propertyArrayIndex; + object_value.value = value; + bacapp_extract_value(&pAckString, ackString+MAX_ACK_STRING, &str_len, &object_value); + if (value->next) { + strncat(pAckString, ",", 1); + pAckString++; + } else { + if (array_value) { + strncat(pAckString, "}", 1); + pAckString++; + } + } + value = value->next; + } + } else { + /* AccessError */ + sprintf(ackString, "BACnet Error: %s: %s", + bactext_error_class_name((int) listOfProperties-> + error.error_class), + bactext_error_code_name((int) listOfProperties-> + error.error_code)); + LogError(ackString); + } + listOfProperties = listOfProperties->next; + + // Add a separator between consecutive entries so that Perl can + // parse this out + strncat(pAckString, "QQQ", 3); + pAckString += 3; + } + + // Now let's call a Perl function to display the data + __LogAnswer(ackString, 1); + } +} + +static void AtomicReadFileAckHandler( + uint8_t * service_request, + uint16_t service_len, + BACNET_ADDRESS * src, + BACNET_CONFIRMED_SERVICE_ACK_DATA * service_data) +{ + int len = 0; + BACNET_ATOMIC_READ_FILE_DATA data; + + if (address_match(&Target_Address, src) && (service_data->invoke_id == Request_Invoke_ID)) + { + len = arf_ack_decode_service_request(service_request, service_len, &data); + if (len > 0) + { + /* validate the parameters before storing data */ + if ((data.access == FILE_STREAM_ACCESS) && (service_data->invoke_id == Request_Invoke_ID)) + { + char msg[32]; + uint8_t *pFileData; + int i; + + sprintf(msg, "EOF=%d,start=%d,", data.endOfFile, data.type.stream.fileStartPosition); + __LogAnswer(msg, 0); + + pFileData = octetstring_value(&data.fileData); + for (i=0; iinvoke_id == Request_Invoke_ID)) { + len = rp_ack_decode_service_request(service_request, service_len, &data); + if (len > 0) + { + rp_ack_extract_data(&data); + } + } +} + +/** Handler for a ReadPropertyMultiple ACK. + * @ingroup DSRPM + * For each read property, print out the ACK'd data, + * and free the request data items from linked property list. + * + * @param service_request [in] The contents of the service request. + * @param service_len [in] The length of the service_request. + * @param src [in] BACNET_ADDRESS of the source of the message + * @param service_data [in] The BACNET_CONFIRMED_SERVICE_DATA information + * decoded from the APDU header of this message. + */ +static void My_Read_Property_Multiple_Ack_Handler( + uint8_t * service_request, + uint16_t service_len, + BACNET_ADDRESS * src, + BACNET_CONFIRMED_SERVICE_ACK_DATA * service_data) +{ + int len = 0; + BACNET_READ_ACCESS_DATA *rpm_data; + BACNET_READ_ACCESS_DATA *old_rpm_data; + BACNET_PROPERTY_REFERENCE *rpm_property; + BACNET_PROPERTY_REFERENCE *old_rpm_property; + BACNET_APPLICATION_DATA_VALUE *value; + BACNET_APPLICATION_DATA_VALUE *old_value; + + if (address_match(&Target_Address, src) && + (service_data->invoke_id == Request_Invoke_ID)) { + rpm_data = calloc(1, sizeof(BACNET_READ_ACCESS_DATA)); + if (rpm_data) { + len = + rpm_ack_decode_service_request(service_request, service_len, + rpm_data); + } + if (len > 0) { + while (rpm_data) { + rpm_ack_extract_data(rpm_data); + rpm_property = rpm_data->listOfProperties; + while (rpm_property) { + value = rpm_property->value; + while (value) { + old_value = value; + value = value->next; + free(old_value); + } + old_rpm_property = rpm_property; + rpm_property = rpm_property->next; + free(old_rpm_property); + } + old_rpm_data = rpm_data; + rpm_data = rpm_data->next; + free(old_rpm_data); + } + } else { + LogError("RPM Ack Malformed! Freeing memory..."); + while (rpm_data) { + rpm_property = rpm_data->listOfProperties; + while (rpm_property) { + value = rpm_property->value; + while (value) { + old_value = value; + value = value->next; + free(old_value); + } + old_rpm_property = rpm_property; + rpm_property = rpm_property->next; + free(old_rpm_property); + } + old_rpm_data = rpm_data; + rpm_data = rpm_data->next; + free(old_rpm_data); + } + } + } +} + +void My_Write_Property_SimpleAck_Handler( + BACNET_ADDRESS * src, + uint8_t invoke_id) +{ + if (address_match(&Target_Address, src) && + (invoke_id == Request_Invoke_ID)) + { + __LogAnswer("WriteProperty Acknowledged!", 0); + } +} + + +static void Init_Service_Handlers() +{ + Device_Init(NULL); + + /* we need to handle who-is to support dynamic device binding to us */ + apdu_set_unconfirmed_handler(SERVICE_UNCONFIRMED_WHO_IS, handler_who_is); + + /* handle i-am to support binding to other devices */ + apdu_set_unconfirmed_handler(SERVICE_UNCONFIRMED_I_AM, handler_i_am_bind); + + /* set the handler for all the services we don't implement + It is required to send the proper reject message... */ + apdu_set_unrecognized_service_handler_handler (handler_unrecognized_service); + + /* we must implement read property - it's required! */ + apdu_set_confirmed_handler(SERVICE_CONFIRMED_READ_PROPERTY, handler_read_property); + + /* handle generic errors coming back */ + apdu_set_abort_handler(MyAbortHandler); + apdu_set_reject_handler(MyRejectHandler); +} + +typedef enum +{ + waitAnswer, + waitBind, +} waitAction; + +static void Wait_For_Answer_Or_Timeout(unsigned timeout_ms, waitAction action) +{ + // Wait for timeout, failure, or success + time_t last_seconds = time(NULL); + time_t timeout_seconds = (apdu_timeout() / 1000) * apdu_retries(); + time_t elapsed_seconds = 0; + uint16_t pdu_len = 0; + BACNET_ADDRESS src = {0}; /* address where message came from */ + uint8_t Rx_Buf[MAX_MPDU] = { 0 }; + + while (true) + { + time_t current_seconds = time(NULL); + + // If error was detected then bail out + if (Error_Detected) + { + LogError("Some other error occurred"); + break; + } + + if (elapsed_seconds > timeout_seconds) + { + LogError("APDU Timeout"); + break; + } + + /* Process PDU if one comes in */ + pdu_len = datalink_receive(&src, &Rx_Buf[0], MAX_MPDU, timeout_ms); + if (pdu_len) + { + npdu_handler(&src, &Rx_Buf[0], pdu_len); + } + + /* at least one second has passed */ + if (current_seconds != last_seconds) + { + tsm_timer_milliseconds(((current_seconds - last_seconds) * 1000)); + } + + if (action == waitAnswer) + { + // Response was received. Exit. + if (tsm_invoke_id_free(Request_Invoke_ID)) + { + break; + } + else if (tsm_invoke_id_failed(Request_Invoke_ID)) + { + LogError("TSM Timeout!"); + tsm_free_invoke_id(Request_Invoke_ID); + break; + } + } + else if (action == waitBind) + { + if (address_bind_request(Target_Device_Object_Instance, &Target_Max_APDU, &Target_Address)) + { + break; + } + } + else + { + LogError("Invalid waitAction requested"); + break; + } + + // Keep track of time + elapsed_seconds += (current_seconds - last_seconds); + last_seconds = current_seconds; + } +} + +/****************************************************/ +/* Interface API */ +/****************************************************/ + +/****************************************************/ +// This is the most fundamental setup needed to start communication +/****************************************************/ +void BacnetPrepareComm() +{ + /* setup my info */ + Device_Set_Object_Instance_Number(BACNET_MAX_INSTANCE); + address_init(); + Init_Service_Handlers(); + dlenv_init(); +} + +/****************************************************/ +// Try to bind to a device. If successful, return zero. If failure, return +// non-zero and log the error details +/****************************************************/ +int BacnetBindToDevice(int deviceInstanceNumber) +{ + int isFailure = 0; + + // Store the requested device instance number in the global variable for + // reference in other communication routines + Target_Device_Object_Instance = deviceInstanceNumber; + + /* try to bind with the device */ + if (! address_bind_request(deviceInstanceNumber, &Target_Max_APDU, &Target_Address)) + { + Send_WhoIs(Target_Device_Object_Instance, Target_Device_Object_Instance); + + // Wait for timeout, failure, or success + Wait_For_Answer_Or_Timeout(100, waitBind); + } + + // Clean up after ourselves + isFailure = Error_Detected; + Error_Detected = false; + return isFailure; +} + +/****************************************************/ +// This is the interface to ReadProperty +/****************************************************/ +int BacnetReadProperty(int deviceInstanceNumber, int objectType, int objectInstanceNumber, int objectProperty, int objectIndex) +{ + if (!isReadPropertyHandlerRegistered) + { + /* handle the data coming back from confirmed requests */ + apdu_set_confirmed_ack_handler(SERVICE_CONFIRMED_READ_PROPERTY, My_Read_Property_Ack_Handler); + + /* handle any errors coming back */ + apdu_set_error_handler(SERVICE_CONFIRMED_READ_PROPERTY, My_Error_Handler); + + // indicate that handlers are now registered + isReadPropertyHandlerRegistered = true; + } + + // Send the message out + Request_Invoke_ID = Send_Read_Property_Request(deviceInstanceNumber, objectType, objectInstanceNumber, objectProperty, objectIndex); + Wait_For_Answer_Or_Timeout(100, waitAnswer); + + int isFailure = Error_Detected; + Error_Detected = 0; + return isFailure; +} + +/************************************************/ +// This is the interface to ReadPropertyMultiple +/************************************************/ +int BacnetReadPropertyMultiple(int deviceInstanceNumber, ... ) +{ + // Get the variable argument list from the stack + Inline_Stack_Vars; + int rpmIndex = 1; + BACNET_READ_ACCESS_DATA *rpm_object = calloc(1, sizeof(BACNET_READ_ACCESS_DATA)); + BACNET_READ_ACCESS_DATA *Read_Access_Data = rpm_object; + BACNET_PROPERTY_REFERENCE *rpm_property; + uint8_t buffer[MAX_PDU] = { 0 }; + + while (rpmIndex < Inline_Stack_Items) + { + SV *pSV = Inline_Stack_Item(rpmIndex++); + + // Make sure the argument is an Array Reference + if (SvTYPE(SvRV(pSV)) != SVt_PVAV) + { + LogError("Argument is not an Array reference"); + break; + } + + // Make sure we can access the memory + if (rpm_object) + { + rpm_object->listOfProperties = NULL; + } + else + { + LogError("Memory Allocation Issue"); + break; + } + + AV *pAV = (AV *)SvRV(pSV); + SV **ppSV; + + // The 0th argument is the object type + ppSV = av_fetch(pAV, 0, 0); + if (ppSV) + { + rpm_object->object_type = SvIV(*ppSV); + } + else + { + LogError("Problem parsing the Array of arguments"); + break; + } + + // The 1st argument is the object instance + ppSV = av_fetch(pAV, 1, 0); + if (ppSV) + { + rpm_object->object_instance = SvIV(*ppSV); + } + else + { + LogError("Problem parsing the Array of arguments"); + break; + } + + // The 2nd argument is the property type + ppSV = av_fetch(pAV, 2, 0); + if (ppSV) + { + rpm_property = calloc(1, sizeof(BACNET_PROPERTY_REFERENCE)); + rpm_object->listOfProperties = rpm_property; + if (rpm_property) + { + rpm_property->propertyIdentifier = SvIV(*ppSV); + } + else + { + LogError("Memory allocation error"); + break; + } + } + else + { + LogError("Problem parsing the Array of arguments"); + break; + } + + // The 3rd argument is the property index + ppSV = av_fetch(pAV, 3, 0); + if (ppSV) + { + rpm_property->propertyArrayIndex = SvIV(*ppSV); + } + else + { + LogError("Problem parsing the Array of arguments"); + break; + } + + // Advance to the next RPM index + if (rpmIndex < Inline_Stack_Items) + { + rpm_object->next = calloc(1, sizeof(BACNET_READ_ACCESS_DATA)); + rpm_object = rpm_object->next; + } + else + { + rpm_object->next = NULL; + } + } + + if (!isReadPropertyMultipleHandlerRegistered) + { + /* handle the data coming back from confirmed requests */ + apdu_set_confirmed_ack_handler(SERVICE_CONFIRMED_READ_PROP_MULTIPLE, + My_Read_Property_Multiple_Ack_Handler); + + /* handle any errors coming back */ + apdu_set_error_handler(SERVICE_CONFIRMED_READ_PROP_MULTIPLE, My_Error_Handler); + + // indicate that handlers are now registered + isReadPropertyMultipleHandlerRegistered = true; + } + + // Send the message out + if (!Error_Detected) + { + Request_Invoke_ID = Send_Read_Property_Multiple_Request( + &buffer[0], sizeof(buffer), + deviceInstanceNumber, Read_Access_Data); + Wait_For_Answer_Or_Timeout(100, waitAnswer); + } + + // Clean up allocated memory + BACNET_READ_ACCESS_DATA *old_rpm_object; + BACNET_PROPERTY_REFERENCE *old_rpm_property; + + rpm_object = Read_Access_Data; + old_rpm_object = rpm_object; + while (rpm_object) + { + rpm_property = rpm_object->listOfProperties; + while (rpm_property) + { + old_rpm_property = rpm_property; + rpm_property = rpm_property->next; + free(old_rpm_property); + } + old_rpm_object = rpm_object; + rpm_object = rpm_object->next; + free(old_rpm_object); + } + + // Process the return value + int isFailure = Error_Detected; + Error_Detected = 0; + return isFailure; +} + +/****************************************************/ +// This is the interface to WriteProperty +/****************************************************/ +int BacnetWriteProperty(int deviceInstanceNumber, + int objectType, + int objectInstanceNumber, + int objectProperty, + int objectPriority, + int objectIndex, + const char *tag, + const char *value) +{ + char msg[MAX_ERROR_STRING]; + int isFailure = 1; + + if (!isWritePropertyHandlerRegistered) + { + /* handle the ack coming back */ + apdu_set_confirmed_simple_ack_handler(SERVICE_CONFIRMED_WRITE_PROPERTY, My_Write_Property_SimpleAck_Handler); + + /* handle any errors coming back */ + apdu_set_error_handler(SERVICE_CONFIRMED_WRITE_PROPERTY, My_Error_Handler); + + // indicate that handlers are now registered + isWritePropertyHandlerRegistered = true; + } + + if (objectIndex == -1) + { + objectIndex = BACNET_ARRAY_ALL; + } + + // Loop for eary exit; + do + { + // Handle the tag/value pair + uint8_t context_tag = 0; + BACNET_APPLICATION_TAG property_tag; + BACNET_APPLICATION_DATA_VALUE propertyValue; + + if (toupper(tag[0]) == 'C') + { + context_tag = strtol(&tag[1], NULL, 0); + propertyValue.context_tag = context_tag; + propertyValue.context_specific = true; + } + else + { + propertyValue.context_specific = false; + } + property_tag = strtol(tag, NULL, 0); + + if (property_tag >= MAX_BACNET_APPLICATION_TAG) + { + sprintf(msg, "Error: tag=%u - it must be less than %u", property_tag, MAX_BACNET_APPLICATION_TAG); + LogError(msg); + break; + } + if (!my_bacapp_parse_application_data(property_tag, value, &propertyValue)) + { + sprintf(msg, "Error: unable to parse the tag value"); + LogError(msg); + break; + } + propertyValue.next = NULL; + + // Send out the message + Request_Invoke_ID = Send_Write_Property_Request( + deviceInstanceNumber, + objectType, objectInstanceNumber, + objectProperty, &propertyValue, objectPriority, objectIndex); + Wait_For_Answer_Or_Timeout(100, waitAnswer); + + // If we get here, then there were no explicit failures. However, there + // could have been implicit failures. Let's look at those also. + isFailure = Error_Detected; + } while(false); + + // Clean up after ourselves. + Error_Detected = false; + return isFailure; +} + + +int BacnetAtomicWriteFile (int deviceInstanceNumber, + int fileInstanceNumber, + int blockStartAddr, + int blockNumBytes, + char *nibbleBuffer) +{ + BACNET_OCTET_STRING fileData; + int i, nibble; + uint8_t byteValue; + unsigned char nibbleValue; + + if (!isAtomicWriteFileHandlerRegistered) + { + /* handle any errors coming back */ + apdu_set_error_handler(SERVICE_CONFIRMED_ATOMIC_WRITE_FILE, My_Error_Handler); + + // indicate that handlers are now registered + isAtomicWriteFileHandlerRegistered = true; + } + + for (i=0; i= '0') && (nibbleValue <= '9') ) + { + byteValue += (nibbleValue-'0') << (4*(1-nibble)); + } + else if ( (nibbleValue >= 'A') && (nibbleValue <= 'F') ) + { + byteValue += (nibbleValue-'A'+10) << (4*(1-nibble)); + } + else + { + LogError("Bad data in buffer."); + } + } + fileData.value[i] = byteValue; + } + octetstring_truncate(&fileData, blockNumBytes); + + // Send out the message and wait for answer + if (!Error_Detected) + { + Request_Invoke_ID = Send_Atomic_Write_File_Stream( + deviceInstanceNumber, + fileInstanceNumber, + blockStartAddr, + &fileData); + Wait_For_Answer_Or_Timeout(100, waitAnswer); + } + + int isFailure = Error_Detected; + Error_Detected = 0; + return isFailure; +} + +int BacnetGetMaxApdu() +{ + unsigned requestedOctetCount = 0; + uint16_t my_max_apdu = 0; + + /* calculate the smaller of our APDU size or theirs + and remove the overhead of the APDU (varies depending on size). + note: we could fail if there is a bottle neck (router) + and smaller MPDU in betweeen. */ + if (Target_Max_APDU < MAX_APDU) { + my_max_apdu = Target_Max_APDU; + } else { + my_max_apdu = MAX_APDU; + } + /* Typical sizes are 50, 128, 206, 480, 1024, and 1476 octets */ + if (my_max_apdu <= 50) { + requestedOctetCount = my_max_apdu - 19; + } else if (my_max_apdu <= 480) { + requestedOctetCount = my_max_apdu - 32; + } else if (my_max_apdu <= 1476) { + requestedOctetCount = my_max_apdu - 64; + } else { + requestedOctetCount = my_max_apdu / 2; + } + + return requestedOctetCount; +} + +int BacnetTimeSync(int deviceInstanceNumber, + int year, + int month, + int day, + int hour, + int minute, + int second, + int isUTC, + int UTCOffset) + +{ + BACNET_DATE bdate; + BACNET_TIME btime; + struct tm my_time; + time_t aTime; + struct tm *newTime; + + my_time.tm_sec = second; + my_time.tm_min = minute; + my_time.tm_hour = hour; + my_time.tm_mday = day; + my_time.tm_mon = month-1; + my_time.tm_year = year-1900; + my_time.tm_wday = 0; // does not matter + my_time.tm_yday = 0; // does not matter + my_time.tm_isdst = 0; // does not matter + + aTime = mktime(&my_time); + newTime = localtime(&aTime); + + bdate.year = newTime->tm_year; + bdate.month = newTime->tm_mon+1; + bdate.day = newTime->tm_mday; + bdate.wday = newTime->tm_wday ? newTime->tm_wday : 7; + btime.hour = newTime->tm_hour; + btime.min = newTime->tm_min; + btime.sec = newTime->tm_sec; + btime.hundredths = 0; + + int len = 0; + int pdu_len = 0; + int bytes_sent = 0; + BACNET_NPDU_DATA npdu_data; + BACNET_ADDRESS my_address; + uint8_t Handler_Transmit_Buffer[MAX_PDU] = { 0 }; + + // Loop for eary exit + do + { + if (!dcc_communication_enabled()) + { + LogError("DCC communicaiton is not enabled"); + break; + } + + /* encode the NPDU portion of the packet */ + npdu_encode_npdu_data(&npdu_data, false, MESSAGE_PRIORITY_NORMAL); + datalink_get_my_address(&my_address); + pdu_len = npdu_encode_pdu(&Handler_Transmit_Buffer[0], &Target_Address, &my_address, &npdu_data); + + /* encode the APDU portion of the packet */ + len = timesync_encode_apdu(&Handler_Transmit_Buffer[pdu_len], &bdate, &btime); + pdu_len += len; + + /* send it out the datalink */ + bytes_sent = datalink_send_pdu(&Target_Address, &npdu_data, &Handler_Transmit_Buffer[0], pdu_len); + if (bytes_sent <= 0) + { + char errorMsg[64]; + sprintf(errorMsg, "Failed to Send Time-Synchronization Request (%s)!", strerror(errno)); + LogError(errorMsg); + break; + } + + Wait_For_Answer_Or_Timeout(100, waitAnswer); + } while (false); + + int isFailure = Error_Detected; + Error_Detected = 0; + return isFailure; +} + +/****************************************************/ +// This is the interface to AtomicReadFile +/****************************************************/ +int BacnetAtomicReadFile(int deviceInstanceNumber, int fileInstanceNumber, int startOffset, int numBytes) +{ + if (!isAtomicReadFileHandlerRegistered) + { + /* handle the data coming back from confirmed requests */ + apdu_set_confirmed_ack_handler(SERVICE_CONFIRMED_ATOMIC_READ_FILE, AtomicReadFileAckHandler); + + /* handle any errors coming back */ + apdu_set_error_handler(SERVICE_CONFIRMED_ATOMIC_READ_FILE, My_Error_Handler); + + // indicate that handlers are now registered + isAtomicReadFileHandlerRegistered = true; + } + + // Send the message out + Request_Invoke_ID = Send_Atomic_Read_File_Stream(deviceInstanceNumber, fileInstanceNumber, startOffset, numBytes); + Wait_For_Answer_Or_Timeout(100, waitAnswer); + + int isFailure = Error_Detected; + Error_Detected = 0; + return isFailure; +} + diff --git a/bacnet-stack/demo/perl/readme.txt b/bacnet-stack/demo/perl/readme.txt new file mode 100644 index 00000000..bb33b8a4 --- /dev/null +++ b/bacnet-stack/demo/perl/readme.txt @@ -0,0 +1,14 @@ +The BACnet Scriptable (using Perl) Tool. + +* Running this tool assumes that the library has been already built. Currently, + the tool assumes only win32 port, but should be easily modifiable for any + port build. The library has to be built with BBMD_DEFINE=-DBBMD_ENABLED\=1 +* This tool has to be run from a path without any spaces. The presence of the + .Inline directory is required. +* Run the tool without any arguments to see usage instructions +* To run the example ReapProperty script (which reads Analog Value 0 Present + Value) for Device at instance 1234 run the following command + + perl bacnet.pl --script example_readprop.pl -- 1234 + +