aview-app 1.0.2

package/aardio/lib/web/script/json.aardio

@@ -0,0 +1,56 @@
+//json 解析器
+import web.json;
+import web.script;
+
+namespace web.script.json{};
+namespace web.script.preload.json3 begin
+
+language = {
+	javascript = true;
+	jscript = true;
+}
+
+code = /*****
+/*! http://bestiejs.github.io/json3 */(function(){function N(p,r){function q(a){if(q[a]!==w)return q[a];var c;if("bug-string-char-index"==a)c="a"!="a"[0];else if("json"==a)c=q("json-stringify")&&q("json-parse");else{var e;if("json-stringify"==a){c=r.stringify;var b="function"==typeof c&&s;if(b){(e=function(){return 1}).toJSON=e;try{b="0"===c(0)&&"0"===c(new t)&&'""'==c(new A)&&c(u)===w&&c(w)===w&&c()===w&&"1"===c(e)&&"[1]"==c([e])&&"[null]"==c([w])&&"null"==c(null)&&"[null,null,null]"==c([w,u,null])&&'{"a":[1,true,false,null,"\\u0000\\b\\n\\f\\r\\t"]}'==
+c({a:[e,!0,!1,null,"\x00\b\n\f\r\t"]})&&"1"===c(null,e)&&"[\n 1,\n 2\n]"==c([1,2],null,1)&&'"-271821-04-20T00:00:00.000Z"'==c(new C(-864E13))&&'"+275760-09-13T00:00:00.000Z"'==c(new C(864E13))&&'"-000001-01-01T00:00:00.000Z"'==c(new C(-621987552E5))&&'"1969-12-31T23:59:59.999Z"'==c(new C(-1))}catch(f){b=!1}}c=b}if("json-parse"==a){c=r.parse;if("function"==typeof c)try{if(0===c("0")&&!c(!1)){e=c('{"a":[1,true,false,null,"\\u0000\\b\\n\\f\\r\\t"]}');var n=5==e.a.length&&1===e.a[0];if(n){try{n=!c('"\t"')}catch(d){}if(n)try{n=
+1!==c("01")}catch(g){}if(n)try{n=1!==c("1.")}catch(m){}}}}catch(X){n=!1}c=n}}return q[a]=!!c}p||(p=k.Object());r||(r=k.Object());var t=p.Number||k.Number,A=p.String||k.String,H=p.Object||k.Object,C=p.Date||k.Date,G=p.SyntaxError||k.SyntaxError,K=p.TypeError||k.TypeError,L=p.Math||k.Math,I=p.JSON||k.JSON;"object"==typeof I&&I&&(r.stringify=I.stringify,r.parse=I.parse);var H=H.prototype,u=H.toString,v,B,w,s=new C(-0xc782b5b800cec);try{s=-109252==s.getUTCFullYear()&&0===s.getUTCMonth()&&1===s.getUTCDate()&&
+10==s.getUTCHours()&&37==s.getUTCMinutes()&&6==s.getUTCSeconds()&&708==s.getUTCMilliseconds()}catch(Q){}if(!q("json")){var D=q("bug-string-char-index");if(!s)var x=L.floor,M=[0,31,59,90,120,151,181,212,243,273,304,334],E=function(a,c){return M[c]+365*(a-1970)+x((a-1969+(c=+(1<c)))/4)-x((a-1901+c)/100)+x((a-1601+c)/400)};(v=H.hasOwnProperty)||(v=function(a){var c={},e;(c.__proto__=null,c.__proto__={toString:1},c).toString!=u?v=function(a){var c=this.__proto__;a=a in(this.__proto__=null,this);this.__proto__=
+c;return a}:(e=c.constructor,v=function(a){var c=(this.constructor||e).prototype;return a in this&&!(a in c&&this[a]===c[a])});c=null;return v.call(this,a)});B=function(a,c){var e=0,b,f,n;(b=function(){this.valueOf=0}).prototype.valueOf=0;f=new b;for(n in f)v.call(f,n)&&e++;b=f=null;e?B=2==e?function(a,c){var e={},b="[object Function]"==u.call(a),f;for(f in a)b&&"prototype"==f||v.call(e,f)||!(e[f]=1)||!v.call(a,f)||c(f)}:function(a,c){var e="[object Function]"==u.call(a),b,f;for(b in a)e&&"prototype"==
+b||!v.call(a,b)||(f="constructor"===b)||c(b);(f||v.call(a,b="constructor"))&&c(b)}:(f="valueOf toString toLocaleString propertyIsEnumerable isPrototypeOf hasOwnProperty constructor".split(" "),B=function(a,c){var e="[object Function]"==u.call(a),b,h=!e&&"function"!=typeof a.constructor&&F[typeof a.hasOwnProperty]&&a.hasOwnProperty||v;for(b in a)e&&"prototype"==b||!h.call(a,b)||c(b);for(e=f.length;b=f[--e];h.call(a,b)&&c(b));});return B(a,c)};if(!q("json-stringify")){var U={92:"\\\\",34:'\\"',8:"\\b",
+12:"\\f",10:"\\n",13:"\\r",9:"\\t"},y=function(a,c){return("000000"+(c||0)).slice(-a)},R=function(a){for(var c='"',b=0,h=a.length,f=!D||10<h,n=f&&(D?a.split(""):a);b<h;b++){var d=a.charCodeAt(b);switch(d){case 8:case 9:case 10:case 12:case 13:case 34:case 92:c+=U[d];break;default:if(32>d){c+="\\u00"+y(2,d.toString(16));break}c+=f?n[b]:a.charAt(b)}}return c+'"'},O=function(a,c,b,h,f,n,d){var g,m,k,l,p,r,s,t,q;try{g=c[a]}catch(z){}if("object"==typeof g&&g)if(m=u.call(g),"[object Date]"!=m||v.call(g,
+"toJSON"))"function"==typeof g.toJSON&&("[object Number]"!=m&&"[object String]"!=m&&"[object Array]"!=m||v.call(g,"toJSON"))&&(g=g.toJSON(a));else if(g>-1/0&&g<1/0){if(E){l=x(g/864E5);for(m=x(l/365.2425)+1970-1;E(m+1,0)<=l;m++);for(k=x((l-E(m,0))/30.42);E(m,k+1)<=l;k++);l=1+l-E(m,k);p=(g%864E5+864E5)%864E5;r=x(p/36E5)%24;s=x(p/6E4)%60;t=x(p/1E3)%60;p%=1E3}else m=g.getUTCFullYear(),k=g.getUTCMonth(),l=g.getUTCDate(),r=g.getUTCHours(),s=g.getUTCMinutes(),t=g.getUTCSeconds(),p=g.getUTCMilliseconds();
+g=(0>=m||1E4<=m?(0>m?"-":"+")+y(6,0>m?-m:m):y(4,m))+"-"+y(2,k+1)+"-"+y(2,l)+"T"+y(2,r)+":"+y(2,s)+":"+y(2,t)+"."+y(3,p)+"Z"}else g=null;b&&(g=b.call(c,a,g));if(null===g)return"null";m=u.call(g);if("[object Boolean]"==m)return""+g;if("[object Number]"==m)return g>-1/0&&g<1/0?""+g:"null";if("[object String]"==m)return R(""+g);if("object"==typeof g){for(a=d.length;a--;)if(d[a]===g)throw K();d.push(g);q=[];c=n;n+=f;if("[object Array]"==m){k=0;for(a=g.length;k<a;k++)m=O(k,g,b,h,f,n,d),q.push(m===w?"null":
+m);a=q.length?f?"[\n"+n+q.join(",\n"+n)+"\n"+c+"]":"["+q.join(",")+"]":"[]"}else B(h||g,function(a){var c=O(a,g,b,h,f,n,d);c!==w&&q.push(R(a)+":"+(f?" ":"")+c)}),a=q.length?f?"{\n"+n+q.join(",\n"+n)+"\n"+c+"}":"{"+q.join(",")+"}":"{}";d.pop();return a}};r.stringify=function(a,c,b){var h,f,n,d;if(F[typeof c]&&c)if("[object Function]"==(d=u.call(c)))f=c;else if("[object Array]"==d){n={};for(var g=0,k=c.length,l;g<k;l=c[g++],(d=u.call(l),"[object String]"==d||"[object Number]"==d)&&(n[l]=1));}if(b)if("[object Number]"==
+(d=u.call(b))){if(0<(b-=b%1))for(h="",10<b&&(b=10);h.length<b;h+=" ");}else"[object String]"==d&&(h=10>=b.length?b:b.slice(0,10));return O("",(l={},l[""]=a,l),f,n,h,"",[])}}if(!q("json-parse")){var V=A.fromCharCode,W={92:"\\",34:'"',47:"/",98:"\b",116:"\t",110:"\n",102:"\f",114:"\r"},b,J,l=function(){b=J=null;throw G();},z=function(){for(var a=J,c=a.length,e,h,f,k,d;b<c;)switch(d=a.charCodeAt(b),d){case 9:case 10:case 13:case 32:b++;break;case 123:case 125:case 91:case 93:case 58:case 44:return e=
+D?a.charAt(b):a[b],b++,e;case 34:e="@";for(b++;b<c;)if(d=a.charCodeAt(b),32>d)l();else if(92==d)switch(d=a.charCodeAt(++b),d){case 92:case 34:case 47:case 98:case 116:case 110:case 102:case 114:e+=W[d];b++;break;case 117:h=++b;for(f=b+4;b<f;b++)d=a.charCodeAt(b),48<=d&&57>=d||97<=d&&102>=d||65<=d&&70>=d||l();e+=V("0x"+a.slice(h,b));break;default:l()}else{if(34==d)break;d=a.charCodeAt(b);for(h=b;32<=d&&92!=d&&34!=d;)d=a.charCodeAt(++b);e+=a.slice(h,b)}if(34==a.charCodeAt(b))return b++,e;l();default:h=
+b;45==d&&(k=!0,d=a.charCodeAt(++b));if(48<=d&&57>=d){for(48==d&&(d=a.charCodeAt(b+1),48<=d&&57>=d)&&l();b<c&&(d=a.charCodeAt(b),48<=d&&57>=d);b++);if(46==a.charCodeAt(b)){for(f=++b;f<c&&(d=a.charCodeAt(f),48<=d&&57>=d);f++);f==b&&l();b=f}d=a.charCodeAt(b);if(101==d||69==d){d=a.charCodeAt(++b);43!=d&&45!=d||b++;for(f=b;f<c&&(d=a.charCodeAt(f),48<=d&&57>=d);f++);f==b&&l();b=f}return+a.slice(h,b)}k&&l();if("true"==a.slice(b,b+4))return b+=4,!0;if("false"==a.slice(b,b+5))return b+=5,!1;if("null"==a.slice(b,
+b+4))return b+=4,null;l()}return"$"},P=function(a){var c,b;"$"==a&&l();if("string"==typeof a){if("@"==(D?a.charAt(0):a[0]))return a.slice(1);if("["==a){for(c=[];;b||(b=!0)){a=z();if("]"==a)break;b&&(","==a?(a=z(),"]"==a&&l()):l());","==a&&l();c.push(P(a))}return c}if("{"==a){for(c={};;b||(b=!0)){a=z();if("}"==a)break;b&&(","==a?(a=z(),"}"==a&&l()):l());","!=a&&"string"==typeof a&&"@"==(D?a.charAt(0):a[0])&&":"==z()||l();c[a.slice(1)]=P(z())}return c}l()}return a},T=function(a,b,e){e=S(a,b,e);e===
+w?delete a[b]:a[b]=e},S=function(a,b,e){var h=a[b],f;if("object"==typeof h&&h)if("[object Array]"==u.call(h))for(f=h.length;f--;)T(h,f,e);else B(h,function(a){T(h,a,e)});return e.call(a,b,h)};r.parse=function(a,c){var e,h;b=0;J=""+a;e=P(z());"$"!=z()&&l();b=J=null;return c&&"[object Function]"==u.call(c)?S((h={},h[""]=e,h),"",c):e}}}r.runInContext=N;return r}var K=typeof define==="function"&&define.amd,F={"function":!0,object:!0},G=F[typeof exports]&&exports&&!exports.nodeType&&exports,k=F[typeof window]&&
+window||this,t=G&&F[typeof module]&&module&&!module.nodeType&&"object"==typeof global&&global;!t||t.global!==t&&t.window!==t&&t.self!==t||(k=t);if(G&&!K)N(k,G);else{var L=k.JSON,Q=k.JSON3,M=!1,A=N(k,k.JSON3={noConflict:function(){M||(M=!0,k.JSON=L,k.JSON3=Q,L=Q=null);return A}});k.JSON={parse:A.parse,stringify:A.stringify}}K&&define(function(){return A})}).call(this);
+*****/
+
+end
+
+namespace web.script.preload.json3vbs begin
+
+language = {
+	vbscript = true;
+	vbs = true;
+}
+
+init = function(msc){
+	msc.AddObject("JSON",{ 
+		parse = function(...){ 
+			return ..web.json.parse(...);
+		};
+		stringify = function(...){ 
+			return  ..web.json.stringify(...)
+		}; 	
+	})
+}
+
+end
+
+/**intellisense()
+web.script.json = JSON 解析器\n在创建 web.script 对象以前导入才会生效\nJScript 自动引入 JSON.parse,JSON.stringify,\nVBScript 引入 JSON.parse
+end intellisense**/

package/aardio/lib/web/simpleServer.aardio

@@ -0,0 +1,20 @@
+//simpleServer 网页服务端
+import wsock.tcp.simpleHttpServer;
+
+namespace web;
+
+simpleServer = ..wsock.tcp.simpleHttpServer;
+
+/**intellisense(web.simpleServer)
+getUrl("网页相对路径") = 可选使用参数@2指定网站根目录,默认为"/",\n查找可用端口创建HTTP服务器，返回返回完整URL\n此服务端限制使用本机IP127.0.0.1访问,并随机分配端口不会出现端口冲突\n如果HTTP服务器已启动则直接返回URL而不是重复启动服务器,\n省略参数返回首页URL,尾部不包含斜杠\n注意当前线程结束时,此服务器线程会自动退出
+getUrl(HTTP服务线程函数） = @.startUrl(\n	function(response,request){\n		response.loadcode( request.path );__/*注意此函数是用于响应网页请求的多线程回调函数,startUrl函数返回首页URL*/\n	} \n)
+threadNum = 此属性在调用getUrl以前自定义有效\n设置服务器线程数，默认为2个线程
+startPort = 此属性在调用getUrl以前自定义有效\n设置服务器端口,默认自动分配空闲端口
+documentRoot = 在调用getUrl以前自定义应用程序根目录位置\n不指定时默认为 io.fullpath("/")
+onThreadCreated() = @.onThreadCreated = function(documentRoot,urlRoot){
+	__/*一个HTTP服务监听线程准备就绪时触发此事件*/
+}
+wsock.tcp.simpleHttpServer.threadGlobal = @.threadGlobal = {
+	__/*在onThreadCreated事件触发前\n添加HTTP服务监听线程的全局变量*/
+}
+end intellisense**/

package/aardio/lib/web/soapClient/_.aardio

@@ -0,0 +1,241 @@
+import web.msxml; 
+import inet.http; 
+
+namespace web;
+
+class soapClient{
+	ctor( url,username,password){
+		this.http = ..inet.http();
+		this.http.username = username;
+		this.http.password = password;
+		
+		var wsdl = ..web.msxml( ..string.indexOf(url,"?") ? url : url + "?wsdl" ); 
+		if(#wsdl.document.parseError.reason)
+			return null,wsdl.document.parseError.reason;
+			 
+		this.wsdl = wsdl;
+		this.soapUrl = url;
+		
+		
+		this.bindService = function(serviceName){
+			import console;
+			
+			var service;
+			if(serviceName){
+				service = this.wsdl.queryNodes( name = "^" + serviceName + "";tagName = "^wsdl\:service$");	
+			}
+			else {
+				service = this.wsdl.documentElement.getElementsByTagName("wsdl:service");
+				service = service.length ? service(0) : null;
+			}
+			
+			if(!service){
+				error("打开SOAP服务失败",2);
+			}
+			this.soapServiceName = service.getAttributeNode("name").nodeValue;
+		 	
+			var soapAddress = service.getElementsByTagName("soap:address");
+			if(soapAddress.length) {
+				this.soapUrl = soapAddress(0).getAttributeNode("location").nodeValue; 
+				this.soapPortName = soapAddress(0).parentNode.getAttributeNode("name").nodeValue;
+			}
+			
+			if( !(this.soapUrl && this.soapPortName) ){
+				error("获取SOAP接口地址失败",2);
+			}
+			
+			var bindings = wsdl.documentElement.getElementsByTagName("wsdl:binding");
+			if( bindings.length ){
+				for(i=1;bindings.length;1){
+					if(bindings(i-1).getAttributeNode("name").nodeValue==this.soapPortName){
+						this.soapPortNode = bindings(i-1);
+						this.soapOperations = this.soapPortNode.getElementsByTagName("wsdl:operation");
+						break;
+					} 
+				}
+			}
+			
+			if(!this.soapPortNode){
+				error("打开SOAP服务接口失败",2);	
+			}		
+		}
+		
+		this.soapTargetNamespace =  wsdl.documentElement.attributes.getNamedItem("targetNamespace").nodeValue;
+		this.bindService();
+ 
+	}; 
+	_invoke = function(method,param,resultType,resultComplexType){ 
+			
+		var sr = /*
+<?xml version="1.0" encoding="utf-8"?>
+<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
+<soap:Body>
+			*/
+			sr = sr + "<" + method + " xmlns=""" + this.soapTargetNamespace + """>" +
+					param.toXml() +
+					"</" + method + "></soap:Body> </soap:Envelope>	";
+	
+		
+		
+		var soapaction = this.soapTargetNamespace;
+		if( soapaction ? (  ! ..string.endWith(soapaction,"/") ) ) soapaction += "/";
+		soapaction += method;
+		
+		if(this.soapOperations){
+			for(i=1;this.soapOperations.length;1){
+				var op = this.soapOperations(i-1);
+				if(op.attributes.getNamedItem("name").nodeValue==method){
+					var sop = op.getElementsByTagName("soap:operation")
+					if(sop.length){
+						soapaction = sop(0).attributes.getNamedItem("soapAction").nodeValue;
+					} 
+				}
+			}
+		}
+		
+		var ret,err = this.http.post(this.soapUrl,sr, "SOAPAction:" + soapaction + '\r\nContent-Type:text/xml; charset=utf-8\r\n');  
+
+		if(!ret)
+			return null,err;
+			 
+		ret = ..web.msxml( ret );  
+		var nd = ret.documentElement.getElementsByTagName(method + "Result")
+		if(nd.length == 0)
+			 nd = ret.documentElement.getElementsByTagName(method + "return")
+			 
+		if(nd.length == 0){
+			 if(ret.faultcode.length > 0 )
+			 	error(ret.faultstring(0).childNodes(0).nodeValue,2)
+		}
+		else { 
+			this.lastResultXml = nd(0);
+			return _wsdlParseObject(nd(0) ,resultType,resultComplexType)
+		} 
+	} 
+	@_meta;
+}
+
+import web.soapClient.parameters;
+namespace soapClient{
+
+	_wsdlGetComplexType = function(wsdl,method){
+		var methodWsdl = wsdl.queryNodes( name = "^" + method + "$";tagName = "!\welement$")
+		if(!#methodWsdl) return;  
+		
+		var ns = ..string.match( methodWsdl[1].tagName,"\a+\:")
+		var complexType = methodWsdl[1].getElementsByTagName( ..string.concat( ns,"complexType") );
+		if( complexType.length ) {  
+		
+			var sequence = complexType(0).getElementsByTagName( ..string.concat( ns,"sequence") );
+			if( sequence.length && sequence(0).hasChildNodes() ) {  
+				return sequence(0).childNodes  ; 
+ 			} 
+ 		} 
+	}
+	
+
+	_meta = {
+		_get = function( method ){
+			var argsWsdl = _wsdlGetComplexType(owner.wsdl,method)
+			var resultType;
+			var resultComplexType;
+			
+			{
+				var resultWsdl = owner.wsdl.queryNodes( name = "^" + method + "Result$";tagName = "!\welement$";type="\a+");
+				var resultComplexWsdl;
+				if( #resultWsdl ){
+					resultType = ..string.match( resultWsdl[1].getAttributeNode("type").nodeValue,"!\w\a+$");
+				}
+				else{
+					resultComplexWsdl = _wsdlGetComplexType(owner.wsdl,method + "Result")  
+				}
+			}
+			
+			owner[[method]] = function(...){
+				var param = parameters();
+				if( argsWsdl ){
+					var args = { ... }; 
+					for(i=1;#args;1){ 
+						param.add( argsWsdl(i-1).attributes.getNamedItem("name").nodeValue,args[i])
+					}
+				}
+				 
+				return owner._invoke(method,param,resultType,resultComplexType); 
+			} 
+			return owner[[method]];
+		}
+	};
+	
+	_wsdlParseObject = function(node,resultType,resultComplexType ) {
+		if(!node) return;
+		if(node.nodeType == 3/*TEXT*/ || node.nodeType == 4/*CDATA*/){
+
+			var value = node.nodeValue; 
+			select( resultType ) { 
+				case "string" 			
+					return (value != null) ? value : "";
+				case "boolean" 
+					return value  == "true";
+				case "int","long" 
+					return (value != null) ? tonumber(value) : 0;
+				case "double" 
+					return (value != null) ? tonumber(value) : 0;
+				case "datetime"{
+					if( value ){
+						return ..time(value,"%Y-%m-%dT%H:%M:%S");	
+					}
+				}
+				else { 
+					return value;
+				} 
+			}
+		} 
+		return _wsdlParseComplexObject(node,resultType,resultComplexType )
+	}
+	
+	_wsdlParseComplexObject = function(node,resultType,resultComplexType ) {
+		if(!node) return; 
+		
+		if (node.childNodes.length == 1){
+			var node = node.childNodes(0);
+			if(node.nodeType == 3 || node.nodeType == 4 ) return _wsdlParseObject(node, resultType,resultComplexType);
+		}
+			
+		var isarray = resultType ? ..string.find( ..string.lower( resultType ) , "arrayof")  ;
+ 	
+		if(!isarray) {
+			var obj = null;
+			if(node.hasChildNodes()) {
+				obj = {};
+				for index,child in ..com.each( node.childNodes ) {
+					obj[child.nodeName] = _wsdlParseObject(child,resultType,resultComplexType);;
+				} 
+			} 
+			return obj;
+		} 
+		else { 
+			var obj = null;
+			if(node.hasChildNodes()) {
+				obj = {};
+				for(i=0;node.childNodes.length-1){
+					..table.push(obj,_wsdlParseObject(node.childNodes(i), resultType,resultComplexType ) ) 
+				} 
+			}
+			return obj; 
+		} 
+	}
+}
+
+/**intellisense()
+web.soapClient = SOAP客户端支持库
+web.soapClient(.(WebService网址,用户名,密码) = 创建SOAP客户端,\n必须指定有效WSDL网址,\n用户名与密码为可选参数
+web.soapClient() = !web_soapClient.
+!web_soapClient.接口函数名字(调用参数) = 
+!web_soapClient.lastResultXml = 调用接口最后一次返回值创建XML节点对象\n!xnode.
+!web_soapClient.http = 用于发送请求的http客户端\n!inet_http.
+!web_soapClient.bindService(__) = 绑定服务,参数指定服务名,无参数绑定默认服务\n在创建对象时此函数会被自动调用一次并绑定默认服务
+!web_soapClient.soapUrl = 发送SOAP请求的目标URL，默认自WSDL中自动获取
+!web_soapClient.soapPortName = 当前绑定接口名
+!web_soapClient.soapServiceName = 当前绑定服务名
+!web_soapClient.soapTargetNamespace = SOAP目标名字空间
+end intellisense**/

package/aardio/lib/web/soapClient/parameters.aardio

@@ -0,0 +1,87 @@
+assert(web.soapClient,"私有类禁止调用")
+import time.zone;
+namespace web.soapClient;
+
+class parameters{
+
+	ctor( ){
+		var _pl = {};
+		this.add = function(name, value) { 
+			_pl[name] = value; 
+			return this; 
+		}
+		this.mixin = function(p){
+			..table.assign(_pl,p);
+		};
+		this.toXml = function() {
+			var xml = "";
+			for(p,v in _pl){  
+				select ( type(v) ) {
+                	case "string","number","boolean","table"{
+                    	xml += "<" + p + ">" + _serialize(_pl[p]) + "</" + p + ">";
+                    }
+            	}
+			}
+			return xml;	
+		}
+	}; 
+}
+
+namespace parameters{ 
+	var timeBias = ..time.zone.getInfo().bias; 
+	var formatTimeZone = ..string.format("%s%02d:%02d", timeBias < 0?"+":"-",..math.abs(timeBias) / 60, ..math.abs(timeBias) % 60 );
+
+	_serialize = function(o) {
+    	var s = "";
+    	select(type(o)) {
+        	case "string"{
+        		s = ..string.replace(o,"@&", "&amp;");
+        		s = ..string.replace(s,"@<", "&lt;");
+        		s = ..string.replace(s,"@>", "&gt;"); 
+        		s = ..string.replace(s," ","&#x20;");
+        		s = ..string.replace(s,'\r',"&#xD;");
+        		s = ..string.replace(s,'\n',"&#xA;");
+        	}
+        	case "number","boolean"{
+            	s += tostring(o);
+            }
+        	case "table"{
+            	if( ..time.istime(o) ) {
+        	 		o.format="!%Y-%m-%dT%H:%M:%S"
+        	 		s = s + tostring(o) + string.format(".%03d",o.milliseconds ) + formatTimeZone;
+            	} 
+            	else if(#o) {
+                	for( p,v in o){
+                    	if(type(p)==type.number) { 
+                        	var t = type(v);
+                        	select(t) { 
+                            	case "string"{ }
+                            	case "number" { t="int" }
+                            	case "boolean" { t="bool" }
+                            	case "table"{
+                            		if( ..time.istime(v) )
+                                		t = "DateTime";
+                                	else {
+                                		error("SOAP 不支持该数据类型 name:" + p +" type:" + t,2)
+                                	}
+                                	
+                                }
+                                else {
+                                	error("SOAP 不支持该数据类型 name:" + p +" type:" + t,2)
+                                } 
+                        	}
+                        	s += "<" + t + ">" +  _serialize(o[p]) + "</" + t + ">"
+                    	}
+                    	else 
+                        	s += "<" + p + ">" + _serialize(v) + "</" + p + ">"
+                	}
+            	} 
+            	else{ 
+                	for( p,v in o)
+                    	s += "<" + p + ">" + _serialize(v) + "</" + p + ">";
+            	} 
+            }
+    	}
+    	return s;
+	}	
+}

package/aardio/lib/web/socket/chrome.aardio

@@ -0,0 +1,122 @@
+//chrome 浏览器接口
+
+import web.json;
+import web.socket.jsonClient;
+import inet.http;
+
+namespace web.socket;
+
+class chrome{
+    
+	ctor(){
+		this = ..web.socket.jsonClient();
+		this.rpc.heartbeatInterval = -1;
+		this.rpc.varargs = false;
+		this.rpc.version = null;
+	}; 
+	getDebuggingInfo = function(port){
+		if(!port) port = self.lastRemoteDebuggingPort : ..electron[["lastRemoteDebuggingPort"]]: ..web.view[["lastRemoteDebuggingPort"]];
+		else {
+			port = port[["remoteDebuggingPort"]] : port;
+		}
+		
+		if(port) port = tonumber(port);
+		if( type(port) != type.number ) return {};
+
+		var http = ..inet.http();
+		http.disableCache();
+		
+		var json = http.get(..string.format("http://localhost:%d/json", port));
+		http.close();
+
+		var info =  ..web.json.tryParse(json) : {};
+		for(i=1;#info;1){
+			v = info[i];
+			if( v.devtoolsFrontendUrl ){
+				v.devtoolsFrontendUrl =  ..string.format("http://localhost:%d%s", port,v.devtoolsFrontendUrl);
+			} 
+		} 
+		return info;
+	};
+	getDebuggingPages = function(port){ 
+		var info = this.getDebuggingInfo(port); 
+		var pages = {};
+		
+		for(i=1;#info;1){
+			var v = info[i];
+			if( v.type !="page" ) continue;
+			if( !v.webSocketDebuggerUrl ) continue; 
+			..table.push(pages,v);
+		} 
+		
+		return pages;
+		
+	};
+	eachDebuggingPage = function(port){ 
+		var pages,i,v = this.getDebuggingPages(port); 
+		return function(){
+			i,v = ..table.next(pages,i);
+			if(v) return v.id,v.title,v.webSocketDebuggerUrl,v.devtoolsFrontendUrl;
+		}
+	}
+	connectFirstDebuggingPage = function(port){
+		for id,title,wsUrl,devtoolsUrl in this.eachDebuggingPage(port){
+			return this.connect(wsUrl);
+		} 
+	}
+	connect = function(url){
+		if(!url) url = this.rpc.url;
+		if( !url ){ 
+			for id,title,wsUrl,devtoolsUrl in this.eachDebuggingPage() {
+				url = wsUrl;
+			} 
+		}
+		
+		if(url) {
+			this.rpc.connect(url);
+			return true;
+		};
+	}; 
+	waitForConnected = function(hwnd,timeout){ 
+		..win.delay(1000);
+		return ..win.wait( 
+			function(){
+				if(!this.rpc.url) this.connect();
+				if( this.rpc.readyState > 1 ) return false;
+				if( this.rpc.readyState == 1 ) return true;
+			},hwnd,timeout,300
+		);	 
+	}
+}
+
+namespace chrome{
+	lastRemoteDebuggingPort = null;
+}
+
+/**intellisense()
+web.socket.chrome = chrome远程调试接口\nWebSocket / JSON-RPC 2.0 单线程异步客户端\n[chrome远程调试接口文档]( https://chromedevtools.github.io/devtools-protocol/ )
+web.socket.chrome() = 创建chrome远程调试客户端\n!stdwebsocketchromeClient.
+web.socket.chrome.lastRemoteDebuggingPort = 最近连接的远程调试端口号，也可以使用些属性指定下次连接远程调试服务端使用的默认端口
+end intellisense**/
+
+/**intellisense(!stdwebsocketchromeClient)
+rpc = WebSocket客户端对象\n此对象的成员谨慎改动\n!stdwebsocketjsonClientrpc.
+? = 远程对象名或远程方法名字,\n作为函数调用时返回一个调用对象,\n通过指定返回调用对象的 end 属性定义调用结束回调函数,例如:\nret.end=function(result,err){\n	\n}\n回调参数 result 为调用返回值,err 为错误信息,\n如果调和成功,err参数为null\n!stdWebSocketJsonClientObject.
+on(method,proc) = @.on("__/*需要监听的Rpc通知事件名字*/",function(param){\n    \n})
+on("open",proc) = @.on("open",function(){\n	__/*已打开连接*/		\n}
+on("close",proc) = @.on("close",function(e){\n	__/*连接被关闭\ne.code为错误代码e.reason为错误原因*/\n})
+on("error",proc) = @.on("error",function(err){\n	__/*发生错误,err为错误信息*/\n})
+on("message",proc) = @.on("message",function(msg){\n    __/*收到服务端数据\nmsg.type为1时msg.data为文本,\n否则msg.data为字节数组（buffer类型）*/\n})
+on("fragment",proc) = @.on("fragment",function(msg){\n   __/*收到分片数据\n第一个数据包使用msg.type指明类型,参考WebSocket协议规范\n后续数据包msg.type为0,最后一个数据包msg.fin为1\n\n如果不指定这个回调函数,则自动并接分片数据后触发onMessage事件*/	\n})
+connect("ws://__") = 重新连接到WebSocket服务端\n参数指定WebSocket服务端网址，例如 "ws://localhost:7511"\n如果不指定参数,则获取上次调用此函数指定的网址参数,\n如果之前也没有指定网址则尝试自动查找可用接口地址\n\n如果存在可用的远程接口地址,此函数返回true,否则返回null\n但返回true并不表示连接成功,应在open事件中判断是否连接成功\n\nchrome的远程调试接口必须是独占模式,\nchrome开发工具连上去了,再连接就会失败\nchrome在整个系统只能用一个端口，启动一个开发工具\n但是electron可以每个进程使用自己的端口,启动一个独立的远程调试接口
+waitForConnected(.(关联窗口句柄,超时) = 等待连接到远程调试接口\n所有参数可选,超时以毫秒为单位,\n\n如果没有找到有效的接口地址,\n此函数会自动发现嵌入electron的远程接口地址并重试连接\n\n连接成功返回true,失败返回false或null
+readyState = 连接状态,\n0为等待连接,1为已连接并准备就绪,2为正在关闭,3为已关闭\n只有成功通过WebSocket协议握手以后readyState才会被置为1\n这与socket.readyState连接成功就会置为1是不同的
+isClosed() = 套接字是否已关闭
+isConnected() = 套接字是否已连接并准备就绪(已与服务器握手成功)
+connectFirstDebuggingPage(__) = 连接到指定端口的首个有效调试页面对象, \n参数指定远程调试端口号，或者拥有remoteDebuggingPort属性的对象
+getDebuggingInfo(__) = 用于获取远程调试服务端信息\n参数指定远程调试端口号，或者拥有remoteDebuggingPort属性的对象\n返回的参数是一个数组,即使失败也会返回空数组\n每个元素是一个表
+getDebuggingPages(__) = 用于获取所有可以远程调试的页面对象\n参数指定远程调试端口号，或者拥有remoteDebuggingPort属性的对象\n返回的参数是一个数组,即使失败也会返回空数组\n每个元素是页面信息表
+eachDebuggingPage(port) = @for id,title,wsUrl,devtoolsUrl in ??.eachDebuggingPage(__/*参数指定远程调试端口号，或者拥有remoteDebuggingPort属性的对象*/) {
+	
+}
+end intellisense**/