aview-app 1.0.2

package/aardio/lib/fsys/cab/_.aardio

@@ -0,0 +1,123 @@
+import fsys;
+import process.popen;
+namespace fsys.cab;
+
+::Setupapi := ..raw.loadDll("Setupapi.dll") 
+SetupIterateCabinet =  ::Setupapi.api("SetupIterateCabinetW","bool(ustring cabinetFile,INT reserved,pointer msgHandler,pointer context)")
+
+class FILE_IN_CABINET_INFO {
+    ptr NameInCabinet;
+    INT FileSize;
+    INT Win32Error;
+    WORD DosDate;
+    WORD DosTime;
+    WORD DosAttribs;
+    WORD FullTargetName[0x104/*_MAX_PATH*/];
+}  
+class FILEPATHS {
+    ustring Target;
+    ustring Source;  
+    INT Win32Error;
+    INT Flags;  
+} 
+
+class CABINET_INFO {
+  ustring CabinetPath;
+  ustring CabinetFile;
+  ustring DiskName;
+  WORD SetId;
+  WORD CabinetNumber;
+} 
+ 
+var callback = ..raw.tostdcall(  
+	function(targetDir,notification,param1,param2){
+		var lRetVal = 0x0/*_NO_ERROR*/;  
+ 		select(notification) {
+ 			case 0x11/*_SPFILENOTIFY_FILEINCABINET*/{
+  				var info =  ..raw.convert( param1,FILE_IN_CABINET_INFO() ) 
+  				var filename = ..string.fromUnicode(info.NameInCabinet,,true);
+  				info.FullTargetName =  ..fsys.joinpath(targetDir,filename);
+  				..raw.mixin( param1, info );
+  				
+  				if( onFileInCabinet ){
+  					var ret = onFileInCabinet(filename,targetDir,info.FullTargetName );
+  					if( ret !== null && ret != 1/*_FILEOP_DOIT*/ )
+  						return ret; 
+  				}
+  				
+  				..fsys.createParentDir(info.FullTargetName)
+  				lRetVal = 1/*_FILEOP_DOIT*/;  // Extract the file.
+  			}
+ 			case 0x13/*_SPFILENOTIFY_FILEEXTRACTED*/{ 
+				var paths = ..raw.convert(param1,FILEPATHS() ) 
+				if( onFileExtracted ){
+  					return onFileExtracted(paths.Target,paths.Source,paths.Win32Error,paths.Flags); 
+  				} 
+  			}
+ 			case 0x12/*_SPFILENOTIFY_NEEDNEWCABINET*/{
+				if( onNeedNewCabinet ){
+					var cabInfo = ..raw.convert(param1,CABINET_INFO() ) 
+  					return onNeedNewCabinet(cabInfo.CabinetPath,cabInfo.CabinetFile,cabInfo.DiskName,cabInfo.SetId,cabInfo.CabinetNumber); 
+  				} 
+			} 
+ 		}
+ 		return lRetVal;
+
+	},"INT(string context,INT notification,pointer param1,pointer param2)"
+)
+
+
+extract = function(path,targetDir){  
+	if(! ..io.exist(path,4) )
+		error("cab文件路径错误",2)
+	
+	if(!targetDir){
+		targetDir = ..string.match(path,"(.+)\.[^.]+$")
+	}	
+	if(!targetDir)
+		error("解压目录错误",2)
+	  
+	..fsys.createDir(targetDir); 
+	if( SetupIterateCabinet(..io.fullpath(path),0,callback,..io.fullpath(targetDir)) ){
+		var ret = true;
+		..fsys.enum(  targetDir,  "*.cab", 
+			function(dir,file,fullpath,findData){ 
+				if(file){ 
+	           		if( extract(fullpath) ) {
+	           			 ..io.remove(fullpath) ;
+	           		}
+	           		else {
+	           			ret = false;
+	           			return false;
+	           		}
+	           		
+				} 
+			}  
+		)
+		return ret;
+	}
+}
+
+/**intellisense(fsys.cab)
+onFileInCabinet = @.onFileInCabinet = function(filename,targetDir,fullTargetName){
+	__
+}
+onFileExtracted = @.onFileExtracted = function(target,source,winError,flags){
+	__	
+}
+onNeedNewCabinet = @.onNeedNewCabinet =  function(path,fileName,diskName,setId,cabinetNumber){
+	__		
+}
+extract("\filename->cab","\tagetDir") = 解压cab文件,参数一指定cab文件,\n如果cab文件中包含cab文件,自动展开为子文件夹,\n参数二为可选参数,指定解压目录
+end intellisense**/
+
+/**intellisense()
+_FILEOP_COPY=@0/*_FILEOP_COPY*/
+_FILEOP_RENAME=@1/*_FILEOP_RENAME*/
+_FILEOP_DELETE=@2/*_FILEOP_DELETE*/
+_FILEOP_ABORT=@0/*_FILEOP_ABORT*/
+_FILEOP_DOIT=@1/*_FILEOP_DOIT*/
+_FILEOP_SKIP=@2/*_FILEOP_SKIP*/
+_FILEOP_RETRY=@1/*_FILEOP_RETRY*/
+_FILEOP_NEWPATH=@4/*_FILEOP_NEWPATH*/
+end intellisense**/

package/aardio/lib/fsys/cab/maker.aardio

@@ -0,0 +1,105 @@
+//maker 制作压缩包
+import fsys; 
+import process.popen;
+namespace fsys.cab.maker;
+
+folder = function(rootDir,targetPath,CompressionType="LZX"){
+	rootDir = ..fsys.longpath(  ..io.fullpath(rootDir) );
+	if(!targetPath){
+		targetPath = ..string.trimright( rootDir,"\/" ) + ".cab" 
+	}
+	else {
+		targetPath = ..io.fullpath(targetPath)
+	}
+	
+	if( ..io.exist(targetPath) ){
+		return null,'cab文件已存在:\r\n' + targetPath
+	}
+	var tTarget = ..io.splitpath(targetPath)	
+  
+	var tFiles = {"
+.OPTION EXPLICIT
+.Set CabinetNameTemplate=""" + tTarget.file + """
+.set DiskDirectoryTemplate=CDROM ;All cabinets go in a single directory
+.Set CompressionType="+CompressionType+";All files are compressed in cabinet files
+.Set UniqueFiles=""OFF""
+.Set Cabinet=on
+.Set DiskDirectory1="""+..fsys.shortpath(tTarget.dir) +"""
+	"};
+  
+	..fsys.enum(  rootDir, "*.*", 
+		function(dir,file,fullpath,findData){ 
+			if(file){ 
+				..table.push(tFiles,'"'  + fullpath + '"'); 
+			}  
+			 
+		},function(dirpath,dirname){
+			..table.push(tFiles,'.Set DestinationDir="'  + ..fsys.path.relative(dirpath,rootDir,false) + '"'); 
+			return true;
+		} 
+	); 
+	
+	var ddfPath =  ..io.tmpname("ddf") ;
+	..string.save(ddfPath, ..string.fromto( ..string.join(tFiles,'\r\n'),65001,0) );
+	var parameter = "/V0 /F " + ..fsys.shortpath(ddfPath) + " /D MaxDiskSize=CDROM /D CompressionType="+CompressionType+" /D CompressionMemory=21 /D Cabinet=ON /D Compress=ON /L " +  ..fsys.shortpath(tTarget.dir) +''
+	
+	var prcs = ..process.popen("makecab.exe",parameter )
+	if(!prcs){
+		return null,'压缩目录时出错:\r\n' + path;
+	}
+	prcs.logger = self.logger;
+	prcs.logResponse();
+	prcs.close();
+		
+	..io.remove(ddfPath);
+	return true,targetPath	 	
+}
+
+file = function( path,targetPath,CompressionType="LZX" ){
+	path = ..fsys.longpath(  ..io.fullpath(path) )  
+	if(!targetPath){
+		targetPath = ..string.trimright( path,"\/" ) + ".cab" 
+	}
+	else {
+		targetPath = ..io.fullpath(targetPath)
+	} 
+	var tTarget = ..io.splitpath(targetPath) 
+	var parameter = '/V0 /D MaxDiskSize=CDROM /D CompressionType='+CompressionType+' /D CompressionMemory=21 /D Cabinet=ON /D Compress=ON "' + ..fsys.longpath(path) + '" /L ' +  ..fsys.shortpath(tTarget.dir) + '  "' + tTarget.file + '"'
+
+	var prcs = ..process.popen("makecab.exe",parameter );
+	if(!prcs){
+		return null,'压缩文件时出错:\r\n' + path;
+	} 
+	prcs.logger = self.logger;
+	prcs.logResponse();
+	prcs.close();
+	prcs.close();  
+	
+	return true,targetPath	
+}
+
+compress = function(path,targetPath,CompressionType="LZX"){
+	path = ..io.fullpath(path)  
+	if(!targetPath){
+		targetPath = ..string.trimright( path,"\/" ) + ".cab" 
+	}
+	else {
+		targetPath = ..io.fullpath(targetPath)
+	}
+	if(! ..string.endWith( targetPath,".cab",true) ){
+		return "cab文件存储路径错误"; 
+	}
+	..fsys.delete(targetPath)
+	
+	if( ! ..fsys.isDir( path ) ){  	
+		return file(path,targetPath,CompressionType)
+	}
+	else{ 
+		return folder( path,targetPath,CompressionType ); 
+	} 
+}
+
+/**intellisense(fsys.cab.maker)
+logger = 指定压缩进度默认回显对象\n该对象必须有log或write成员函数用于输出信息
+compress(.(待压缩目录或文件,输出目录,"MSZIP") = 压缩文件名目录,生成cab文件,\n支持嵌套子目录\n参数二,参数三可省略,默认使用LZX算法(压缩率较高).\n成功返回true,失败返回 null,错误信息
+end intellisense**/

package/aardio/lib/fsys/codepage.aardio

@@ -0,0 +1,141 @@
+//codepage 文件编码
+namespace  fsys.codepage
+
+var encoding = { 
+	["UTF-8"] = 65001;
+	["UNICODE"] = 1200;
+	["UTF-16LE"] = 1200; 
+	["UTF-16BE"] = 1201;
+	["utf-8"] = 65001;
+	["unicode"] = 1200;
+	["unicodeFFFE"] = 1201;
+}
+ 
+import string.encoding;
+load = function(p,inputCp,cp=65001){
+	
+	if( type(inputCp) == type.string ){
+		inputCp = ..string.upper(inputCp)
+		inputCp = encoding[inputCp] || ..string.encoding.getCodepage(inputCp);
+		if(!inputCp){
+			error('错误的编码参数@2',2)
+		} 
+	}
+	if(!#p){
+		error("文件路径不能为空",2)
+	}
+	
+	var s;
+	var f,err = ..io.open(p,"rb");
+	if(f){  
+		var b = f.read(2) //BOM 
+		if( !b ){
+			f.seek("set"); 
+		}
+		elseif(  b[1] == 0xEF  && b[2] == 0xBB  ) {
+			var b = f.read(1)
+			if(b[1] == 0xBF ){
+				inputCp = 65001;//"UTF-8"; 
+			}
+			else{
+				f.seek("set");
+			}
+		} 
+		elseif(  b[1] == 0xFF  && b[2] == 0xFE  ) {
+			inputCp = 1200;  
+		}
+		elseif(  b[1] == 0xFE  && b[2] == 0xFF  ) {
+			inputCp = 1201;  
+		}
+		else {
+			f.seek("set"); 
+		}
+		s = f.read(-1);
+		f.close()  
+	}
+	else{
+		s = ..string.load(p)
+		if(!s)
+			return null,err;
+			
+		if(  s[1] == 0xEF  && s[2] == 0xBB && s[3] == 0xBF  ){
+			inputCp = 65001;//"UTF-8";
+			s = ..string.right(s,-4);
+		}
+		elseif( s[1] == 0xFF  && s[2] == 0xFE  ) {
+			inputCp = 1200;  
+			s = ..string.right(s,-3);
+		}
+		elseif( s[1] == 0xFE  && s[2] == 0xFF  ) {
+			inputCp = 1201;  
+			s = ..string.right(s,-3);
+		} 
+	} 
+	
+	if(::Kernel32.GetACP()===65001){
+		 if(!inputCp) inputCp = 65001;
+		 if(!cp) cp = 65001;
+	}
+	
+	if( inputCp === null ){
+		inputCp = ..string.isUtf8(s) ? 65001 : 0;
+	}
+	
+	return ..string.fromto(s,inputCp,cp),inputCp;  
+}
+
+save = function(p,s,outputCp,cp=65001){ 
+	var f;
+	var b;
+	if( type(outputCp) == type.string ){
+		outputCp = ..string.upper(outputCp)
+		outputCp = encoding[outputCp] || ..string.encoding.getCodepage(outputCp);
+		if(!outputCp){
+			error('错误的编码,可选编码格式如下\n"UNICODE"\n"UTF-8"\n"UTF-16LE"\n"UTF-16BE"',2)
+		} 
+	}
+	
+	if(::Kernel32.GetACP()===65001){
+		 if(!outputCp) outputCp = 65001;
+		 if(!cp) cp = 65001;
+	}
+	
+	f,err = ..io.open(p,"w+b");
+	if(!f){
+		return null,err;
+	}
+	
+	if( outputCp == 65001 ) {
+		f.write('\xEF\xBB\xBF') 
+		s = ..string.fromto(s,cp,outputCp);
+	} 
+	elseif( outputCp == 1200 ) {
+		f.write('\xFF\xFE') 
+		s = ..string.toUnicode(s,cp);
+	}
+	elseif( outputCp == 1201 ) {
+		f.write('\xFE\xFF') 
+		s = ..string.fromto(s,cp,outputCp);
+	} 
+	else {
+		s = ..string.fromto(s,cp,outputCp);
+	}
+	 
+	f.write( s );
+	f.close();
+};
+
+isTextUtf8 = function( str ) { 
+    return ..string.isUtf8(str);
+} 
+
+/**intellisense(fsys.codepage)*/
+load(.("文件路径",源编码,目标编码) = 读取文件,参数2,3都是可选参数,\n可自动识别文件编码,并自动转换为目标编码,\n目标编码默认为65001
+load(__/*文件路径*/,"utf-8") = 读取UTF-8编码文件\n并自动转换为UTF8编码,\n返回文件内容,读取内码
+load(__/*文件路径*/,"unicode") =  读取UNICODE（小尾序）编码文件\n并自动转换为UTF8编码,\n返回文件内容,以及读取内码
+load(__/*文件路径*/,"unicodeFFFE") =  读取UNICODE（大尾序）编码文件\n并自动转换为UTF8编码,返回文件内容,以及读取内码,\n\n注意 unicodeFFFE 的 BOM 是 '\xFE\xFF',反过来的！
+save(__/*文件路径*/,str,0) = 将参数@2指定的字符串以ANSI编码存为文件,参数@3指定输出代码页\n可选以参数@4指定输入代码页,默认为65001
+save(__/*文件路径*/,str,"utf-8") = 将参数@2指定的字符串存为UTF-8编码文件,并添加BOM编码标识\n可选以参数@4指定输入代码页,默认为65001
+save(__/*文件路径*/,str,"unicode") = 将参数@2指定的字符串存为UNICODE（小尾序）编码文件,并添加BOM编码标识\n可选以参数@4指定输入代码页,默认为65001
+save(__/*文件路径*/,str,"unicodeFFFE") = 将参数@2指定的字符串存为UNICODE（大尾序）编码文件,并添加BOM编码标识,\n注意 unicodeFFFE 的 BOM 是 '\xFE\xFF',反过来的！\n可选以参数@4指定输入代码页,默认为65001
+end intellisense**/

package/aardio/lib/fsys/config.aardio

@@ -0,0 +1,69 @@
+//config 配置文件
+import fsys;
+import fsys.table;
+namespace fsys;
+
+class config{
+	ctor( cfgDir = "/config/",cfgDir2 ) {
+		if(cfgDir2 && !..fsys.isDir(cfgDir) ){
+			cfgDir = cfgDir2;
+		}
+		
+		if( _cache[cfgDir] ) return _cache[cfgDir];
+			
+		 this._cfgDir = cfgDir; 
+		 _cache[cfgDir] = this;
+		 
+		 ..subscribe("beforeSystemEndSesssion",function(){
+		 	this.saveAll();
+		 } )
+	}; 
+	@_meta;
+};
+
+namespace config{
+	_cache = { @{_weak="kv"}; }
+	
+	_meta = {
+		saveAll = function(){
+			for(k,cfg in owner) {
+				if( ( type(k) != "string" ) || ( k[1] == '_'# ) ) continue;
+				
+				if( ( type(cfg) =="table" ) ? cfg.save ){
+					cfg.save();
+				} 
+			} 
+		}; 
+		_get = function(k) {
+			if( type(k) != type.string ) return;
+			
+			if(k[1] == '_'#) // e.g. _safearray,_struct
+				return;
+			
+			if( k == "saveAll" ){
+				return self._meta.saveAll;
+			}
+			 
+			var cfg = ..fsys.table( ..fsys.joinpath( owner[["_cfgDir"]] , k + ".table" ) );
+			
+			owner[[k]] = cfg; 
+			return cfg; 
+		}
+		_set = function(k,v){ 
+			if( ( type(k) == "string" ) && ( k[1] == '_'# ) ){
+				owner[[k]] = v;
+				return;	
+			}
+			error('fsys.config对象的成员对应只读的配置文件名称,不可修改!',2);//可使用 [[]] 操作符修改
+		}  
+	}	
+};
+
+/**intellisense()
+fsys.config = 基于 fsys.table 的配置文件对象。\nfsys.config 对象用不以下划线开始的名字获取成员会返回 fsys.table 对象。\nfsys.table 可作为普通 table 对象使用，\n在线程退出时将会同步存储到文件中。\n\nfsys.table 并非实时读写，而是将配置读入内存。\n所以请不要多对象、多线程、多进程打开同一配置文件。\n这会导致多份不同步的配置写入存储设备时会相互覆盖。\n\n注意此对象不可跨线程传递。\n多线程可通过 winform 成员函数转发到界面线程操作配置文件即可，\n多进程可利用原子窗体、进程互斥体避免冲突
+fsys.config( = 创建 fsys.config 对象。\nfsys.config 对象用不以下划线开始的名字获取成员会返回 fsys.table 对象
+fsys.config(.(默认配置目录,备选配置目录) = 参数 @1 指定默认目录，省略则默认使用 "/config/" 目录。\n如果默认配置目录不存在，且指定了备选配置目录，\n则改用备选配置目录。否则自动创建默认配置目录。\n可用 io.appData 函数指定 %LocalAppData% 目录的子目录。\n\n使用非下划线开始的名字获取 fsys.config 对象成员时，\n返回指向配置目录下同名配置文件的 fsys.table 对象。\n\n一般只应当在主线程中有一个指向同一配置目录的 fsys.config 对象，\n以避免 fsys.table 指向同一个硬盘文件则保存时会相互覆盖
+fsys.config() = !fsys_config.
+!fsys_config.saveAll() = 写入所有成员 fsys.table 对象到配置文件
+!fsys_config.? = 获取值时指定不以下划线开始的配置表名称，\n返回一个可自动序列化到同名配置文件的表对象。\n如果此对象名以下划线开始，则可以正常读写值不会序列化为配置文件。\n否则不能对此对象直接赋值，只能对配置表对象的成员赋值。\n\n配置表可自动自文件加载,退出线程前自动序列化并存入文件。\n仅序列化以字符串、数值为键的元素，\n仅序列化值为字符串、数值、buffer 以及定义了 _serialize 元方法的成员。\n循环引用的值转换为 null，序列化时忽略成员函数\n!fsys_table.
+end intellisense**/

package/aardio/lib/fsys/cookies.aardio

@@ -0,0 +1,214 @@
+//cookies 文件
+import inet.url;
+namespace fsys;
+
+class cookies{  
+	@_meta;
+}
+
+namespace cookies{
+    
+	_meta = {
+		_tostring = function(){
+			return owner.stringify();
+		};
+	};
+	_meta._get ={
+		
+    	mixin = function( lst ){
+    		..table.assign(owner,lst);
+    	}; 
+    	push = function(cookie){  
+    		
+        	if(cookie.domain){
+        		var domain = owner[cookie.domain]
+        		if(!domain){
+        			domain = { @{_readonly=false} };
+        			owner[cookie.domain] = domain;
+        		}
+        		
+        		if(!domain[cookie.name])domain[cookie.name] = cookie;
+        		else {
+        			..table.assign(domain[cookie.name],cookie);
+        			return;
+        		}
+        	}
+        	
+        	..table.push(owner,cookie);
+    	}; 
+		parseLine = function(line){
+			var httpOnly;
+			if(line[1]=='#'# ){
+				if( ..string.startWith(line,"#HttpOnly_") ){
+            		line = ..string.slice(line,11);
+            		httpOnly = true;
+        		}
+        		else {
+        			if(!owner.header) owner.header = line;
+        			else owner.header = owner.header + '\r\n' + line;
+        			return;
+        		} 
+			} 
+			
+			var arr = ..string.split(line,'\t',7);
+			if( #arr != 7 ) return;
+			
+        	var cookie ={
+            	domain = arr[1];
+            	flag  = arr[2] == "TRUE";
+            	path = arr[3];
+            	secure = arr[4] == "TRUE";
+            	expires = arr[5] !="0" ? ..time.gmt( (tonumber(arr[5])) ) :null;
+            	name = arr[6];
+            	value = arr[7];
+            	httpOnly = httpOnly;
+        	}
+        	
+        	owner.push(cookie);
+        	return cookie;
+		};
+		parse = function(str){
+			owner.clear();
+			for line in ..string.lines(str) { 
+				owner.parseLine(line);
+			}
+			return owner;
+		};
+		clear = function(){
+			for(i=#owner;1;-1){
+				..table.remove(owner,i);
+			}
+			for(k,v in owner){
+				if( type(v) != type.function ) owner[k] = null;
+			};	
+		};
+		load = function(path){
+			owner.clear();
+			for(line in ..io.lines(path) ){
+				owner.parseLine(line);
+			} 
+		};
+		stringifySetCookieLine = function(i,head){
+			var v = i;
+			if( type(v) == type.number ) v = owner[i];
+			if( ! (v && v.name) ) return "";
+			
+			if(!head) head =  "Set-Cookie: ";
+
+			if( v.value === null ){
+				return head + v.name + "=deleted; expires=" + tostring(  ..time.gmt(1) ) );  
+			}
+			
+			v.value = tostring(v.value);
+			if( ..string.find(v.value,":") ) v.value =  ..string.hex(v.value,"%",'\x80');
+			var s = { v.value };
+			
+			if(v.expires && ..time.istime(v.expires)  ){ 
+				..table.push(s,"expires=" + tostring( ..time.gmt(v.expires) ) );
+			} 
+			
+			if(v.domain) ..table.push(s,"domain=" + v.domain );
+			..table.push(s,"path=" + (v.path:"/") );
+			if(v.httpOnly ) ..table.push(s,"HttpOnly");
+			if(v.secure ) ..table.push(s,"Secure");
+			
+			return head + v.name + "=" + ..string.join(s,"; ");  
+		};
+		stringifyLine = function(i){
+			var cookie = i;
+			if( type(cookie) == type.number ) cookie = owner[i];
+			if(!cookie) return;
+			
+			var s = {};
+			if( cookie.httpOnly ) ..table.push(s,"#HttpOnly_");
+			..table.push(s,cookie.domain,'\t');
+			..table.push(s,cookie.flag?"TRUE":"FALSE",'\t');
+			..table.push(s,cookie.path,'\t');
+			..table.push(s,cookie.secure?"TRUE":"FALSE",'\t');
+			..table.push(s,cookie.expires ? tostring(tonumber(cookie.expires)) : 0,'\t');
+			..table.push(s,cookie.name,'\t');
+			..table.push(s,cookie.value);
+			return ..string.join(s);
+		};
+		stringify = function(){
+			var s = {};
+			for(i=1;#owner;1){
+				..table.push( s,owner.stringifyLine(i) );
+			}
+			return ..string.join(s,'\r\n');
+		};
+		save = function(path){
+			var file = ..io.open(path,"w+b");
+			if(!owner.header)owner.header=/*
+# Netscape HTTP Cookie File 
+# This file was generated by aardio! Edit at your own risk.
+*/
+			file.write(owner.header,'\r\n\r\n');
+			for(i=1;#owner;1){
+				file.write( owner.stringifyLine(i),'\r\n' );
+			} 
+			file.close();
+		};	
+		getCookies = function(domain,path){
+			if( type(domain)!= type.string ) error("请指定域名参数",2);
+			
+			var lst = owner.get(domain,path);
+			var s  = {};
+			for(k,v in lst){
+				..table.push(s,k + "=" + v.value);
+			} 
+			
+			if(#s) return ..string.join(s,"; ");
+		};
+		get = function(domain,path){
+			if( type(domain)!= type.string ) error("请指定域名参数",2);
+			
+			if(!#path) {
+				if(..inet.url.is(domain,0)){
+					var uri = ..inet.url.split(domain);
+					domain = uri.host;
+					path = uri.path;
+					if( type(domain)!= type.string ) error("无效的网址参数",2);
+				}
+				
+				if(!#path) path = "/";
+			}
+			if(domain[1]!='.'#) domain = "." + domain;
+			
+			var s = {@{_readonly=false}};
+			for(i=1;#owner;1){
+				if( type(owner[i]) != type.table) continue;
+				if(..string.endWith(domain,owner[i].domain,true)){
+					if( ..string.startWith(path,owner[i].path,true) ){
+						var pre =  s[owner[i].name];
+						if(!pre || (#pre.path < #owner[i].path) ) s[owner[i].name] = owner[i];
+					}
+				}
+			}
+			return s;
+			
+		};	
+	}
+}
+
+/**intellisense()
+fsys.cookies = netscape/curl cookie文件格式解析器
+fsys.cookies() = 创建netscape/curl cookie文件格式解析器\n此对象包含解析后的cookie数组,并包含以域名为键的cookie数组值,\n\n每个cookie的字段含义如下：\ndomain = 域名\nflag = 给定域的所有计算机是否可访问该值\npath = cookie路径\nsecure = cookie是否仅适用于https连接\nexpires = 过期时间,\n这是一个time.gmt对象,RFC1123格式的时间值\n会话cookie这个字段的值为null\nname = cookie名字\nvalue = cookie的值\n!stdfsyscookies.
+end intellisense**/
+
+/**intellisense(!stdfsyscookies)
+header = cookie文件头描述,一般不用指定
+parseLine(__) = 解析一行cookie文本,参数指定字符串\n此函数 不会 清空之前加载的cookie
+push( =  更新或添加cookie,参数应当是一个表,\n如果指定域下已经存在同名cookie，则更新cookie\n否则添加cookie
+push(cookie) = @.push( {\n    domain = domain;\n    flag  = flag;\n    path = path;\n    secure = secure;\n    expires = ..time.gmt() ;\n    name = name;\n    value = value;\n    httpOnly = httpOnly;\n})
+parse(__) = 解析多行cookie文本,参数指定字符串\n此函数会清空之前加载的cookie
+load(__) = 自文件加载cookie，参数指定类型\n此函数会清空之前加载的cookie
+stringifySetCookieLine(__) = cookie转换为HTTP Set-Cookie响应头格式,\n参数指定索引,也可以直接传入一个cookie对象,\n可选使用参数指定前缀，不指定时默认为"Set-Cookie: ",\n成功返回非空字符串
+stringifyLine(__) = cookie转换为字符串，参数指定索引\n也可以直接传入一个cookie对象
+stringify() = 所有cooke转换为字符串
+save(__) = 保存到文件,参数指定文件路径
+getCookies(__) =  返回键值对组成的cookies字符串,可用于http请求头,失败返回null,\n可用参数@1指定网址,也可以用参数@1指定域名,参数@2指定网站路径\n不指定网站路径时默认为"/"
+get(__) = 返回指定网址或域名的cookies,\n可用参数@1指定网址,也可以用参数@1指定域名,参数@2指定网站路径\n不指定网站路径时默认为"/"
+mixin(_) = 混入兼容cookie数组
+clear() = 清空已加载的cookie
+end intellisense**/