aview-app 1.0.2

package/aardio/lib/sys/upnp/nat.aardio

@@ -0,0 +1,126 @@
+//nat 自动端口映射
+import com;
+import wsock.tcp.client; 
+
+namespace sys.upnp;
+
+class nat{
+	ctor(){
+		this.natter = ..com.TryCreateObject("HNetCfg.NATUPnP") 
+	}; 
+	valid = function(){
+		return !!(this.natter && this.natter.StaticPortMappingCollection);
+	};
+	each = function(){ 
+		if( !this.valid() ) return function(){}
+		return ..com.each(this.natter.StaticPortMappingCollection);
+	};
+	item = function(externalPort,protocol){
+		if( !this.valid() ) return null;
+		
+		var mappingPort;
+		try{
+			mappingPort = this.natter.StaticPortMappingCollection.getItem(2024,protocol : "TCP")	
+		}
+		
+		return mappingPort;
+	};
+	count = function(){
+		if( !this.valid() ) return 0;
+		return this.natter.StaticPortMappingCollection.Count;
+	};
+	getTable = function(){
+		
+		var tab = ..table.array();
+		if( !this.valid() ) return tab;
+		
+		for i,m in this.each() {
+			 ..table.push(tab,{
+			 	protocol = m.protocol,
+			 	description = m.description,
+			 	externalPort = m.externalPort,
+			 	externalIPAddress = m.externalIPAddress,
+			 	internalPort = m.internalPort,
+			 	internalClient = m.internalClient,
+			 	enabled = m.enabled,
+			 	comObject = m;
+			 })
+		} 
+		
+		return tab;
+	}; 
+	add = function(externalPort,protocol,internalPort,internalClient,description){
+		if( !this.valid() ) return;
+
+		var mappingPort,err;
+		
+		try{
+			mappingPort = this.natter.StaticPortMappingCollection.Add(externalPort
+				,protocol:"TCP",internalPort:externalPort,
+				internalClient : ..wsock.tcp.client.getLocalIp(),
+				true,
+				description:""
+			);
+		} 
+		catch(e){
+			err = e;
+		}
+		
+		return mappingPort,err;
+	};
+	remove = function(externalPort,protocol){
+		if( !this.valid() ) return;
+		
+		var succeeded,err;
+		try{
+			this.natter.StaticPortMappingCollection.Remove(externalPort,protocol : "TCP");
+			succeeded = true;
+		}
+		catch(e){
+			err = e;
+		}
+		
+		return succeeded,err;
+	};
+	close = function(){
+		if(this.natter){
+			..com.Release(this.natter);
+			this.natter = null;
+		}
+	};
+}
+
+//https://docs.microsoft.com/en-us/windows/win32/api/natupnp/nn-natupnp-iupnpnat
+/**intellisense()
+sys.upnp = 通用即插即用 Universal Plug and Play
+sys.upnp.nat = Network Address Translation 自动端口映射
+sys.upnp.nat() = 创建 UPnP 自动端口映射管理器,\n如果设备不支持自动端口映射或连接到受限的访客网络则所有函数忽略不执行,\n注意在XP系统上此对象的所有函数也会忽略不执行\n!sysUpnpNat.
+end intellisense**/
+
+/**intellisense(!sysUpnpNat)
+valid() = 检测当前系统以及路由器是否支持 UPnP 自动端口映射,\n注意连接到路由器设置受限的访客网络也可能不支持 UPnP
+item(.(externalPort,protocol) = 获取指定的端口映射对象,\n@externalPort 用一个数值指定外网端口,\n@protocol 用一个字符串指定网络协议,省略则为"TCP"
+item() = !sysUpnpNatMappingPort.
+each() = @for index,mappingPort in ??.each() {\n	\n}\n!sysUpnpNatMappingPort.
+getTable() = 返回所有端口映射数据为一个数组，\n每个数组成员为包含以下字段的普通表对象：\nprotocol 协议,\ndescription 描述,\nexternalPort 外部端口,\nexternalIPAddress 外网地址,\ninternalPort 内网端口,\ninternalClient 内网地址,\ncomObject 此映射对象的 COM 对象
+count = 返回端口映射对象总数
+add( = 添加端口映射,\n成功返回端口映射对象,失败返回null,\n如果指定外网端口已映射到其他主机,则添加该端口会失败,\n如果添加之前已映射到本机的端口则会成功
+add(.(externalPort,protocol,internalPort,internalClient,description) = 添加端口映射,\n除参数 @1 以外，所有参数都是可选参数,\n全部参数如下：\n@externalPort 外网端口,数值,\n@protocol 网络协议,默认为"TCP"\n@internalPort 内网端口,默认与外端端口相同,数值\n@internalClient 内网地址,默认获取本机联网的网卡IP地址,字符串值\n@description 描述,默认为空字符串
+add() = !sysUpnpNatMappingPort.
+remove(.(externalPort,protocol) = 移除指定的端口映射对象,成功返回 true,\n@externalPort 用一个数值指定外网端口,\n@protocol 用一个字符串指定网络协议,省略则为"TCP"
+close() = 关闭对象,一般可省略
+end intellisense**/
+
+/**intellisense(!sysUpnpNatMappingPort)
+description = 描述
+editDescription(__) = 设置描述,参数应为字符串
+internalClient = 内网IP地址或主机名
+editInternalClient(__) = 设置内网IP地址或主机名,参数应为字符串
+editInternalPort(__) = 设置内网端口,参数应为数值
+enabled = 是否启用\n注意这是只读属性,\n修改此属性应当调用 enable 函数
+enable(__) = 设置是否启用,即修改 enabled 属性的值,\n参数可为 true 或 false
+externalIPAddress = 外网 IP 地址
+externalPort = 外网端口
+internalPort = 内网端口
+protocol = 网络协议
+end intellisense**/

package/aardio/lib/sys/vc11.aardio

@@ -0,0 +1,14 @@
+//vc11 运行时（VC2012）
+namespace sys.vc11{
+	var module = ::Kernel32.LoadLibraryExP("MSVCR110.dll",,2/*_LOAD_LIBRARY_AS_DATAFILE*/ );
+	
+	if(!module){
+		import inet.installer; 
+		inet.installer("VC 2012","https://download.microsoft.com/download/1/6/B/16B06F60-3B20-4FF2-B699-5E9B7962F9AE/VSU_4/vcredist_x86.exe"
+			,"/install /quiet /norestart");	
+	} 
+}
+
+/**intellisense()
+sys.vc11 = 引用此库可检查 VC11( VC2012 ) 运行库是否安装，\n如果未安装则自动下载安装
+end intellisense**/

package/aardio/lib/sys/vc14.aardio

@@ -0,0 +1,98 @@
+//vc14 运行时（VC2015~2022）
+import inet.installer;
+import win.reg;
+
+namespace sys.vc14;
+
+isInstalled = function(minorVersion,buildNumber,architecture){
+    architecture = architecture === "x64" ? architecture:"x86";
+    
+	if(type.isString(minorVersion) ){
+	
+		if(minorVersion=="2015"){
+			minorVersion = null;	
+		}
+		elseif(minorVersion=="2017"){
+			minorVersion = 13;
+			if( !buildNumber || (buildNumber<26020) ) buildNumber = 26020;	
+		}
+		elseif(minorVersion=="2019"){ 
+			minorVersion = 20;
+			if( !buildNumber || (buildNumber<27820) ) buildNumber = 27820;
+		}
+		elseif(minorVersion=="2022"){ 
+			minorVersion = 30;
+			if( !buildNumber || (buildNumber<30401) ) buildNumber = 30401;
+		}
+	}
+	
+	var module = ::Kernel32.LoadLibraryExP("VCRUNTIME140.dll",,2/*_LOAD_LIBRARY_AS_DATAFILE*/ );
+	if(!module) return;
+	::Kernel32.FreeLibrary(module);
+	
+	if(buildNumber === null && minorVersion === null && architecture === "x86"){
+		return true;
+	}
+	
+	//也就是 vcruntime140.dll 的版本号
+	var reg = ..win.regReader("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\VisualStudio\14.0\VC\Runtimes\"+architecture);
+	if(!reg) return;
+
+	var installed = reg.queryValue("Installed");
+
+	if(installed){
+		if(minorVersion){
+			installed = reg.queryValue("Minor")>=minorVersion;	
+		}
+		
+		if(buildNumber){
+			installed = reg.queryValue("Bld")>=buildNumber;	
+		}
+	}
+	
+	reg.close();
+	
+	return installed;
+}
+
+isInstalled64 = function(minorVersion,buildNumber,architecture){
+    return isInstalled(minorVersion,buildNumber,"x64"); 
+}
+
+require = function(minorVersion,buildNumber,architecture){
+    architecture = architecture === "x64" ? architecture:"x86";
+    
+    if(isInstalled(minorVersion,buildNumber,architecture)){
+    	return true;
+    }
+
+	return !!..inet.installer("VC++ 2015~2022 支持组件"
+		,"https://aka.ms/vs/17/release/vc_redist."+architecture+".exe"
+		,`/install /quiet /norestart /log "%temp%\Install_vc_redist_14.log"`
+	)	
+}
+
+require64 = function(minorVersion,buildNumber,architecture){
+    return require(minorVersion,buildNumber,"x64"); 
+}
+
+/**intellisense(sys.vc14)
+isInstalled( = 是否安装 VC++14 运行时\n注意 VC2015、2017、2019、2022 都是使用同一运行库\n检测 VS 开发环境安装信息请使用库 process.vswhere
+isInstalled(.(minorVersion,buildNumber)  =  可选在参数中指定最低 C++ 运行时版本的 minorVersion 或 buildNumber,\n也可以直接在 minorVersion 中用字符串指定"2019","2017","2015"
+isInstalled(.() = 是否安装 VC2015 运行时
+isInstalled(.("2017") = 是否安装 VC2015 运行时
+isInstalled(.("2022") = 是否安装 VC2022 运行时
+isInstalled(.("2019") = 是否安装 VC2019 运行时
+isInstalled64(.() = 是否安装 VC2015 64位运行时
+isInstalled64(.("2017") = 是否安装 VC2017 64位运行时
+isInstalled64(.("2019") = 是否安装 VC2019 64位运行时
+isInstalled64(.("2022") = 是否安装 VC2022 64位运行时
+require( = 如果未安装 VC++14（VC2015、2017、2019） 运行时，则安装，\n注意VC2015、2017、2019都是使用同一运行库
+require(.(minorVersion,buildNumber)  = 可选在参数中指定最低 minorVersion 或 buildNumber,\n也可以直接在 minorVersion 中用字符串指定"2019","2017","2015"
+require(.() = 如果未安装 VC++14（VC2015） 运行时，则安装
+require(.("2017") = 如果未安装 VC++14（2017） 运行时，则安装
+require(.("2019") = 如果未安装 VC++14（2019） 运行时，则安装
+require64(.() = 如果未安装 VC++14（VC2015） 64位运行时，则安装
+require64(.("2017") = 如果未安装 VC++14（2017） 64位运行时，则安装
+require64(.("2019") = 如果未安装 VC++14（2019） 64位运行时，则安装
+end intellisense**/

package/aardio/lib/sys/volume.aardio

@@ -0,0 +1,134 @@
+//volume 存储卷
+import fsys.drives;
+namespace sys.volume;
+
+GetVolumeInformation = ::Kernel32.api("GetVolumeInformationW","int(ustring root,ustring &lab,INT labSize,INT& sNum,INT& maxlen,INT& flags,ustring& fsys,INT fsysSize)");
+QueryDosDevice = ::Kernel32.api("QueryDosDevice","int(ustring device,ustring &path,INT max)")
+
+deviceDefine  = function(path,device){
+	device := getFreeDrive();
+	if( ::Kernel32.DefineDosDevice(0,device,..io.fullpath(path) ) )
+		return device
+} 
+
+deviceRemove = function(device,path){
+	return ::Kernel32.DefineDosDevice(2,device,path )
+}
+
+setLabel = function(drv,label){
+	return ::Kernel32.SetVolumeLabel(drv[[1]]+":\",label)
+}
+
+getDriveType = function(drv){
+	return ::Kernel32.GetDriveType( drv[[1]] + ":" )
+}
+
+getInfo = function(drive){
+	drive = ..io.localpath(drive) : drive;
+	var ok,label,serialNum,maxlen,flag,fsys = GetVolumeInformation(drive[[1]] + ":\",510,255,0,0,0,510,255) ;	
+	if(ok)
+		return  { 
+			drive =drive[[1]] + ":"; 
+			serialNum=serialNum;serial =..string.format("%08X",serialNum ); 
+			label=label;lable=label;flag=flag;fsys=fsys;maxlen=maxlen 
+		}
+}
+
+getAllDevice = function(){
+	var len,device = QueryDosDevice(  , 0x5000, 0x5000 ) 
+	if(len){
+		return ..string.split( ..string.left(device,len-2) ,'\0');
+	}
+}
+ 
+getDeviceName = function( filepath ) {  
+	filepath = ..io.fullpath(filepath); 
+	var tfilepath = ..io.splitpath(filepath);
+	if(!#tfilepath.drive)return;
+	var ok,device = QueryDosDevice( tfilepath.drive, 0x208/*_MAX_PATH_U16*/, 0x208 ) 
+
+ 	var note;
+	if ( ok) { 
+		device = ..string.str(device)
+		if ( ..string.cmp( "\??\" , device, 4 ) == 0 ) {
+			device =  ..string.slice(device,5)
+			
+			return device + ..string.slice(filepath,#tfilepath.drive+1),"subst"; 
+		}
+		else 
+			if (  ..string.cmp( "\Device\LanmanRedirector\" , device, 25 ) == 0 ) {  
+				var letter,param,sharename = ..string.match(device,"\\Device\\LanmanRedirector\\;(.):(\d)\(.+)")
+	
+				if (! ( letter && param && sharename  ) )
+						return;
+	
+				device = "\Device\LanmanRedirector\" + sharename ; 
+				note = "share"
+			} 
+			return device ++ ..string.slice(filepath,#tfilepath.drive+1),note
+	} 
+}
+
+getPathName = function(devicePath){
+
+	for drv in ..fsys.drives.each() {
+		drv = drv + "\";
+		
+		var device = getDeviceName( drv ) 
+			if ( device &&  ( ..string.cmp( device, devicePath, #device ) == 0) ) 
+				return drv ++ ..string.slice(devicePath,#device+1);  
+	}
+	
+	return ( ..string.replace(devicePath,"^\\<@@Device@>\\\w+\\","\\\\") );
+}
+
+getFreeDrive = ..fsys.drives.free;
+getLogicalDrives = ..fsys.drives.get;
+
+getSpaceSize = function(dirName){
+	if( !#dirName ) error("参数@1不能为空",2)
+	var avaliable,total,free = ..math.size64(),..math.size64(),..math.size64();
+	if( ::Kernel32.GetDiskFreeSpaceExW( ..io.fullpath(dirName),{ LONG avaliable = avaliable},{ LONG total = total},{ LONG free = free}) ){
+		return {
+			totalSize = total;
+			avaliableSize = avaliable;
+			freeSize = free; 
+			avaliablePercentage =  ..math.round( avaliable.divf(total),4) * 100;
+			freePercentage =..math.round( avaliable.divf(total),4) * 100;
+		}
+	}
+}
+
+/**intellisense()
+sys.volume = 存储卷相关函数。\n相关库：fsys.drives, sys.storage
+sys.volume.getSpaceSize("C:\") = 获取分区空间大小, 剩余大小等信息\n参数可以是该驱动器下有效的目录路径
+sys.volume.getSpaceSize() = !valuespacesize.
+!valuespacesize.totalSize = 总大小\n返回值为math.size64对象\n!math_size64.
+!valuespacesize.avaliableSize = 剩余有效空间大小\n返回值为math.size64对象\n!math_size64.
+!valuespacesize.freeSize = 剩余空间大小\n返回值为math.size64对象\n!math_size64.
+!valuespacesize.avaliablePercentage = 有效空间百分比
+!valuespacesize.freePercentage = 剩余空间百分比
+!volumeinfo.drive = 分区路径
+!volumeinfo.serial = 序列号
+!volumeinfo.serialNum = 序列号(数值)
+!volumeinfo.label = 卷名
+!volumeinfo.flag = 标志位
+!volumeinfo.fsys = 文件系统
+!volumeinfo.maxlen = 文件路径最大长度
+sys.volume.getInfo() = !volumeinfo.
+sys.volume.getInfo(__/*分区或完整路径*/) = 返回分区信息,\n参数可指定盘符或完整文件路径\n盘符可带冒号也可以不带
+end intellisense**/
+
+/**intellisense(sys.volume)
+getDeviceName(__/*文件路径*/) = 文件路径转换为设备名
+getPathName(__/*设备名*/) = 设备名转换为文件路径
+getAllDevice() = 返回所有设备名
+getDriveType(__/*驱动器路径*/) = 返回驱动器类型\n以_DRIVE_为前缀的常量表示不同类型
+
+setLabel("__/*驱动器路径*/","卷标") = 设置区分卷标
+deviceDefine(__/*文件路径*/) = 将指定的目录映射为虚拟分区\n成功返回分区路径
+deviceDefine(__/*文件路径*/,"Z:") = 将指定的目录映射为虚拟分区\n成功返回分区路径
+deviceRemove("__/*驱动器路径*/") = 移除分区
+getFreeDrive() = 获取未使用的盘符（自"C:"开始）\n这个函数实际指向 fsys.drives.free 函数
+getLogicalDrives() = 返回一个包含所可用的逻辑分区盘符的数组,\n盘符以冒号结束\n\n这个函数实际指向 fsys.drives.get
+end intellisense**/

package/aardio/lib/sys/wallpaper.aardio

@@ -0,0 +1,45 @@
+//wallpaper 壁纸
+import win.reg;
+
+namespace sys.wallpaper;
+
+getHistory = function(){
+	var reg = ..win.reg("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Wallpapers");
+	if(!reg) return {};
+	
+	var history = {};
+	for(name,value,t in reg.eachValue()) {
+		var idx = ..string.match(name,"BackgroundHistoryPath(\d+)");
+		if(idx && t == 1/*_REG_SZ*/){
+			..table.push(history,{value,tonumber(idx) })
+		}
+	}
+	reg.close();
+	
+	if(!#history){
+		return { getCurrent() }
+	}
+	
+	..table.sort(history,lambda(v) owner[2]<v[2] );
+	return ..table.map(history,lambda(v)v[1])
+}
+
+getCurrent = function(){
+	var len = 0x208/*_MAX_PATH_U16*/;
+	var buf = ..raw.buffer(len);
+	
+	//与 HKEY_CURRENT_USER\Control Panel\Desktop  WallPaper 的值相同
+	if ::User32.SystemParametersInfo(0x73/*_SPI_GETDESKWALLPAPER*/,len/2,buf,0) {
+		return ..string.fromUnicode(buf,,-1); 
+	} 	
+}
+
+setCurrent = function(jpgPath){
+    return !!::User32.SystemParametersInfoW(0x14/*_SPI_SETDESKWALLPAPER*/,0, ..io.fullpath(jpgPath), 1 | 2 /*_SPIF_UPDATEINIFILE | _SPIF_SENDWININICHANGE*/);
+}
+
+/**intellisense(sys.wallpaper)
+getHistory() = 返回最近使用的壁纸路径数组,\n数组中第一个路径为当前正在使用的壁纸
+getCurrent() = 返回当前正在使用的壁纸路径
+setCurrent(__) = 修改壁纸,\n参数请指定 *.jpg 格式的路像路径,\npng 格式请先用 gdip.bitmap 转存为 jpg 格式
+end intellisense**/

package/aardio/lib/sys/wsa.aardio

@@ -0,0 +1,98 @@
+//wsa 安卓子系统
+import winex;
+import winex.key;
+import com.shell;
+import fsys.lnk;
+
+namespace sys.wsa;
+
+path = lambda() ..io.exist( ..io.appData("\Microsoft\WindowsApps\MicrosoftCorporationII.WindowsSubsystemForAndroid_8wekyb3d8bbwe\WsaClient.exe") ) 
+	|| "WsaClient.exe";
+
+start = lambda() ..raw.execute(path());
+
+restart = lambda() ..raw.execute(path(),"/restart");
+
+shutdown = lambda() ..raw.execute(path(),"/shutdown");
+
+uninstall = lambda(package) ..raw.execute(path(),`/uninstall "`+package+`"`);
+
+launch = lambda(package) ..raw.execute(path(),`/launch wsa://"`+package+`"`);
+
+modify = lambda(package) ..raw.execute(path(),`/modify "`+package+`"`);
+
+androidDeveloperSettings = lambda() ..raw.execute(path(),"/deeplink wsa-client://developer-settings");
+
+androidSettings = lambda() ..raw.execute("wsa://com.android.settings")
+
+settings = lambda() ..com.shell.activateApp("WindowsSubsystemForAndroid");
+
+listPackages = function(){
+	var result = {};
+	
+	..fsys.lnk.enum( 
+    	function(dir,filename,fullpath,target,arguments){ 
+        	var package = arguments ? ..string.match(arguments,"/launch\s+wsa\://(.+)");
+        	
+        	if(package){
+          		..table.push(result,{
+          			name = ..string.match(filename,"(.+)\.\w+$");
+          			package = package;
+          			url = "wsa://"+package
+          		})
+        	}
+    	},..io.getSpecial(0xb/*_CSIDL_STARTMENU*/,"Programs")
+	);
+	
+	return result;	
+}
+
+findPackage = function(name){
+ 	var packages = listPackages();
+ 	for(i,pk in packages){
+ 		
+ 		if( ..string.cmpMatch(pk.name,name)
+ 			|| ..string.cmpMatch(pk.package,name) ){
+ 			return pk;
+ 		}
+ 	}
+} 
+
+isInstalled = lambda() !!..com.shell.findApp(,"WindowsSubsystemForAndroid");
+
+findWindow = function(pk){
+	return ..winex.find("@"+pk,"");
+}
+
+fullscreen = function(v){
+	if(type.isString(v)){
+		var cls = v;
+		v = findWindow(cls); 
+		if(!v) return false;
+	} 
+	
+	..win.setForeground(v);
+	..winex.key.click(v,"F11");
+	return true;
+}
+
+/**intellisense(sys.wsa)
+path() = 返回 "WsaClient.exe" 路径
+start() = 启动安卓子系统。\n如果安卓子系统已启动仍然可以成功执行此函数。\n调用 process.adb.connect 以前最好调用一下。\n\n此函数成功返回 true ，\n如果未安装安卓子系统时返回 false
+shutdown() = 关闭安卓子系统
+uninstall(__) = 卸载指定的应用，参数指定应用包名
+launch(__) = 打开指定的应用，参数指定应用包名
+modify(__) = 设置指定的应用，参数指定应用包名
+androidDeveloperSettings() = 打开安卓开发者设置窗口
+androidSettings() = 打开安卓设置窗口
+settings() = 打开安卓子系统设置程序
+listPackages() = 返回所有安装到开始菜单的安卓应用程序信息。\n也可以用 process.adb.listPackages 查询安卓系统内的应用列表
+findPackage(__) = 查找并返回已安装到开始菜单的安卓应用程序信息。\n参数指定在应用显示名称或包名中搜索的关键词。\n成功返回包含应用信息的表对象
+isInstalled() = 检测安卓子系统是否安装
+findWindow(__) = 查找安卓应用窗口，成功返回窗口句柄。\n参数 @1 指安卓包名
+fullscreen(__) = 切换全屏。\n参数 @1 指定安卓包名或窗口句柄
+end intellisense**/
+
+/**intellisense()
+sys.wsa = 安卓子系统工具函数库。\n更多与安卓系统有关的功能请参考 process.adb 扩展库
+end intellisense**/

package/aardio/lib/table/product.aardio

@@ -0,0 +1,79 @@
+//product 笛卡尔积
+namespace table;
+
+var p;
+p = function(a,b,...){
+	
+	if(...) {
+		if( type(a) == type.function || #a  ) return p( p(a,b),...);
+		else return p(b,...);
+	}
+	
+	var ak,av,bk,bv;
+	if( type(a) == type.function ){
+		if(!#b) return a;
+		elseif(type.isString(b)){
+			b = ..string.split(b);
+		}
+		
+		var c = a();
+		var i = #c + 1;
+		return function(){
+			bk,bv = next(b,bk); 
+			if(!bv){
+				c = a(); 
+				bk,bv = next(b,bk);
+			}
+			if(!c) return;
+			
+			c[i] = bv; 
+			return c ;	
+		}
+	}
+	else {
+	
+		if(!#a) {
+			return function(){
+				bk,bv = next(b,bk);
+				if(bv) return {bv};
+			} 
+		}
+		elseif(type.isString(a)){
+			a = ..string.split(a);
+		}
+		
+		
+		if(!#b) {
+			return function(){
+				ak,av = next(a,ak);
+				if(av) return {av};
+			} 
+		}
+		elseif(type.isString(b)){
+			b = ..string.split(b);
+		}
+		
+		ak,av = next(a,ak); 
+		return function(){ 
+			bk,bv = next(b,bk);
+			if(!bv) {
+				ak,av = next(a,ak); 
+				bk,bv = next(b,bk);
+			}
+			if(av) return {av;bv};
+		}  	
+	} 
+}
+
+class product{
+	ctor( a,unpack,... ){
+		if(unpack===true) return p( ..table.unpack(a) )
+		return p(a,unpack,...);
+	}; 
+}
+
+/**intellisense()
+table.product = 创建迭代器用于运算笛卡尔积，需导入
+table.product(.(__) = 创建迭代器用于计算笛卡尔积,\n参数支持任意个数的数组或字符串,\n迭代器返回数组值,参于运行的数组有几个,返回的数组就包含几个值\n参与运算的空数组或空值将被忽略
+table.product(.(__,true) = 创建迭代器用于计算笛卡尔积,\n每次迭代返回一个包含当前组合结果的数组值,\n参数@1为包含多个数组的数组,参数@2为true时先展开数组再计算笛卡尔积,\n迭代器返回数组值,参于运行的数组有几个,返回的数组就包含几个值\n参与运算的空数组或空值将被忽略
+end intellisense**/

package/aardio/lib/table/zip.aardio

@@ -0,0 +1,40 @@
+//zip 链接
+
+namespace table{
+		
+	class zip{
+		ctor(args,...){
+			if(!args) error("参数 @1 类型错误",2);
+			if(args === true ) {
+				var a,b = ...;
+				if(!(a&&b)) error("参数类型错误",2); 
+				for(k,v in a) this[v] = b[k];
+				return this;
+			}
+			
+			if(...) args = {args,...};
+			 
+			var idx = 0;
+			var push = ..table.push;
+			while(true){
+				idx++;
+				var cur = {};
+				for(i=1;#args;1){
+					var v = args[i][idx];
+					if( v === null ) break 2;
+					
+					push(cur,v);
+				
+				}
+				
+				push(this,cur);
+			} 
+		}; 
+	}
+}
+
+/**intellisense()
+table.zip = 链接数组，需导入
+table.zip(.(->->->) = 参数指定多个数组时，\n将所有数组相同索引的元素链接为数组，并返回包含这些数组的数组。\n\n如果仅指定 1 个数组，\n则将数组中的所有成员数组作为参数进行链接，\n所有成员数组相同索引的元素链接为新的数组，\n返回包含这些数组的数组\n\n此函数至少需要一个参数，否则会抛出异常
+table.zip(.(true,keys,values) = 返回一个新的表，\n以 @keys 中元素为键，以 @values 中相同索引的数组元素为值
+end intellisense**/