aview-app 1.0.2

package/aardio/lib/access/oleDb12.aardio

@@ -0,0 +1,26 @@
+//oleDb12 驱动程序
+import com.oleDb;
+import inet.installer;
+import process;
+import access;
+
+namespace access.oleDb12;
+
+exist = function(){
+	return ..com.oleDb.hasProvider("Microsoft.ACE.OLEDB.12.0") 
+}
+
+install = function(winform){
+	if( exist() ) return true;
+    
+	if( ..inet.installer("Microsoft.ACE.OLEDB.12.0"
+		,"https://download.microsoft.com/download/2/4/3/24375141-E08D-4803-AB0E-10F2E3A07AAA/AccessDatabaseEngine.exe"
+		,"/passive /quiet /norestart",,winform) ){
+			return exist();
+	} 	
+}
+
+/**intellisense(access.oleDb12)
+exist() = 检测 Microsoft.ACE.OLEDB.12.0 驱动程序是否已安装
+install(.(父窗体) = 所有参数可选。\n如果未安装 Microsoft.ACE.OLEDB.12.0，\n在微软网站下载并自动安装。\n安装成功返回 true，之前已安装直接返回 true 。\n失败返回 false 。\n\n安装驱动程序时需要管理权限，\n在已经有管理权限的安装向导中可自动执行，\n普通权限进程需要用户确认
+end intellisense**/

package/aardio/lib/access/query.aardio

@@ -0,0 +1,19 @@
+//query 查询工具 
+import zlib.httpFile;
+import process;
+
+namespace access;
+
+class query{
+	ctor( path ){
+        if(!..io.exist("\download\tool\MSAQuery\MSAQuery.exe")){
+            if(!..zlib.httpFile.download("http://www.mitec.cz/Downloads/MSAQuery.zip","MSA Query","~/download/tool") ) return;
+        }
+
+        return ..process.execute("\download\tool\MSAQuery\MSAQuery.exe",..io.fullpath(path) )
+	}; 
+}
+
+/**intellisense(access)
+query(__) = 调用 MSA Query 打开 mdb 数据库
+end intellisense**/

package/aardio/lib/bencoding/_.aardio

@@ -0,0 +1,2 @@
+import bencoding.decoder;
+import bencoding.encoder;

package/aardio/lib/bencoding/decoder.aardio

@@ -0,0 +1,131 @@
+//decoder 解码器
+namespace bencoding
+
+class decoder {
+
+	ctor( strData ){ 
+		 
+		if(!strData) return null,"请指定正确的种子文件数据或路径";
+	 
+		var pos = 1; 
+		var length = #strData;
+		var slice = ..string.slice;
+		var find = ..string.find;
+		this.__raw_offset__ = {};
+		
+		var parseNext,parseNumber,parseString,parseList,parseDict;
+		parseNumber = function(endChar){ 
+			var b,e = find(strData,"\d+",pos) 
+			if( b ){ 
+				pos = e + 1; 
+				if( strData[pos] != endChar){  
+					return null,"整数没有正确的标识结束,位置[" + pos + "]" ;
+				}
+				pos++; 
+				return ( tonumber( slice(strData,b,e),10 ) ),null;
+			}
+			return  null,"错误的数值格式,位置[" + pos + "]" ;
+		} 
+		parseString = function(){
+			var n,err = parseNumber(':'#);  
+			if(err)return null,"字符串长度语法错误,位置[" + pos + "]" 
+				
+			var ret  = slice(strData,pos,pos+n-1); 
+			pos += n ;  
+			return ret;
+		} 
+		parseList = function(){  
+ 			var list = {@{_type="array" }} 
+ 			this.__raw_offset__[list] = { ["begin"] = pos-1;}; 
+ 			
+ 			while( 
+ 				var val,err;
+ 				val,err = parseNext(); 
+ 				(val!==null) || err
+ 			) {
+ 				if( err ) return null,err;
+ 				..table.push(list,val );
+ 			} 
+ 			
+ 			this.__raw_offset__[list].end = pos - 1;
+ 			return list; 
+		};
+		parseDict = function(){  
+ 			var dict = {@{_type="object" }} 
+ 			this.__raw_offset__[dict] = { ["begin"] = pos-1;};  
+ 			
+ 			while( 
+ 				var key,err;
+ 				key,err = parseNext(); 
+ 				(key!==null) || err
+ 			) { 
+ 				if( err ) return null,err;
+ 				
+ 				var dataBegin = pos;
+ 				var val,err = parseNext();  
+ 				if( err ) return null,err;
+ 				
+ 				dict[key] = val; 
+ 			} 
+ 			
+ 			this.__raw_offset__[dict].end = pos - 1;
+ 			return dict; 
+		};
+		parseNext = function(){ 
+			var c = strData[pos];
+			select(c) {
+				case 'i'# { 
+					pos++;
+					return parseNumber( 'e'# );
+				}
+				case 'l'# {
+					pos++;
+					return parseList(); 
+				}
+				case 'd'# {
+					pos++;
+					return parseDict()
+				}
+				case 'e'# {
+					pos++;
+					return;
+				}
+				else {
+					return parseString();
+				}
+			}
+		}; 
+		this.parse = function(){
+			var result,err = parseNext();
+			pos = 1;;
+			return result,err;
+		};
+		this.getRange = function(obj){
+			var range = obj ? this.__raw_offset__[obj];
+			if( range ) return range.begin,range.end;
+		};
+		this.getString = function(obj){
+			var range = obj ? this.__raw_offset__[obj];
+			if( range ) return ..string.slice(strData, range.begin,range.end);
+		};
+	};
+} 
+
+namespace decoder{
+
+	load = function(path){
+		var s,e = ..string.load(path);
+		if(!s) return null,e;
+		return ..bencoding.decoder(s); 
+	} 
+}
+
+
+/**intellisense() 
+bencoding.decoder = bencoding解码器
+bencoding.decoder.load(.("文件路径") = 自文本文件中加载并解码返回数据
+bencoding.decoder() = 创建bencoding解码器\n!stdbencodingdecoder.
+!stdbencodingdecoder.parse() = 解码并返回数据
+!stdbencodingdecoder.getRange(.(对象) = 参数传入解码后返回的字典或列表对象,\n返回该对象在解码前原始数据中的起始位置,结束位置
+!stdbencodingdecoder.getString(.(对象) = 参数传入解码后返回的字典或列表对象,\n返回该对象在解码前的原始数据
+end intellisense**/ 

package/aardio/lib/bencoding/encoder.aardio

@@ -0,0 +1,61 @@
+//encoder 编码器
+namespace bencoding;
+
+class encoder{
+	ctor(){
+	   	var push = ..table.push;
+	   	var join = ..string.join;
+	   	var encodeString = function(value){
+	   		return #value + ":" + value;
+	   	};
+	   	var encodeInt = function(value){
+	   		return "i" + tostring(value,10) + "e";
+	   	};
+	   	var encodeList = function(value){
+	   		var lst = {"l"};
+	   		for(i=1;#value;1){
+	   			push(lst,this.stringify(value[i]));
+	   		}
+	   		push(lst,"e");
+	   		return join(lst);
+	   	} 
+	   	var encodeDict = function(value){
+	   		var dict = {"d"};
+	   		for k,v in ..table.eachName(value){
+	   			push(dict,encodeString(k),this.stringify(v) );
+	   		} 
+	   		push(dict,"e");
+	   		return join(dict);
+	   	}
+	   	this.stringify = function(value){
+	   		select(type(value)) {
+    			case "table" {
+    				var len = #value;  
+    				var dataType = type.rget(value);
+					if( ( len && (dataType != "object") ) || dataType == "array" ){ 
+						return encodeList(value); 
+					}
+					else {
+						return encodeDict(value); 
+					}
+    			} 
+    			case "string"{  
+        			return encodeString(value); 
+    			} 
+    			case "number"{
+        			return encodeInt(value); 
+    			} 
+    			else {
+    				return null,"unsupported data type:" + type(value);
+    			} 
+    		}
+	   	}
+	 } 
+}
+
+/**intellisense() 
+bencoding.encoder = bencoding编码器
+bencoding.encoder() = 创建bencoding编码器\n!stdbencodingencoder.
+!stdbencodingencoder.stringify(.(数据) = 编码并返回文本
+end intellisense**/
+

package/aardio/lib/bencoding/magnet.aardio

@@ -0,0 +1,24 @@
+//magnet 磁力链接
+import inet.url;
+import bencoding.decoder;
+import crypt;
+
+namespace bencoding.magnet;
+
+get = function(strTorrentData){
+	var bdecoder = ..bencoding.decoder(strTorrentData);
+	var torrentInfo,err =  bdecoder.parse();
+	if(!torrentInfo[["info"]]) return null,err;
+ 
+	return 'magnet:?'+ "xt=urn:btih:" 
+		+ ..crypt.sha1( bdecoder.getString( torrentInfo[["info"]]) ,true) 
+		+ "&" +..inet.url.stringifyParameters({   
+			dn = torrentInfo['info']['name'];
+			tr = torrentInfo['announce']; 
+			xl = torrentInfo['info']['length']
+		},false)
+}
+
+/**intellisense()
+bencoding.magnet.get(.(torrent数据) = torrent数据为bencoding编码的字符串,\n返回磁力链接
+end intellisense**/