aview-app 1.0.2

package/aardio/lib/process/command.aardio

@@ -0,0 +1,226 @@
+//command 进程命令
+import win.ui;
+import thread.table;
+namespace process;
+
+class command{
+	ctor( winform,changeMsgFilter ){ 
+		if(!winform){
+			winform = ..win.form( {} );
+			winform.messageOnly();
+		}
+		this._form = winform;
+		this._commands = {};
+		
+		if( winform.onCopyData ){
+			error("目标窗口已指定onCopyData事件,不能创建进程命令管理器!",2)
+		}  
+		
+		if( changeMsgFilter && ChangeWindowMessageFilterEx ){
+			ChangeWindowMessageFilterEx( this._form.hwnd,0x4A/*_WM_COPYDATA*/,1/*_MSGFLT_ALLOW*/,{});
+		}
+		
+		winform.onCopyData = function(args,argsType){ 
+			if( type(args) !="table" ) return;
+			
+			var method = this._commands[args[1] ] 
+			if(type(method)=="function"){ 
+				var _,argc = ..table.range(args) 
+				var ret = invoke(method,this._commands, ..table.unpack( args,2,argc) );
+				if( ret !== null ) return pushReturnValue(ret);	
+			} 
+		}
+			
+		..table.gc(this,function(){
+			for(name in this._commands ){
+				 this[name] = null;
+			} 
+		});
+	}; 
+	@_meta;
+}
+ 
+import process.mutex;
+import fsys.mmap;
+namespace command {  
+	try{ ChangeWindowMessageFilterEx = ::User32.api( "ChangeWindowMessageFilterEx", "bool(addr hwnd,INT msg,INT flag,struct &chgFilter)"); }
+ 	
+	var mutex,mmap,__groupName__; 
+	
+	var joinTest = function(name,size){
+		if(!#name) name = "{DE3F8932-2466-44EA-BA3B-851245C74DE3}";
+		
+		if( __groupName__  ) {
+			if( __groupName__ != name ) error("该线程已加入其他进程群组:" + __groupName__ + "\n不能再加入群组:" + name,2);
+			else{ return true;}
+		}
+		
+		mutex = ..process.mutex( name + ".mutex");
+		mmap = ..fsys.mmap( ,name + ".commands",size); 
+		
+		if(mutex && mmap){
+			__groupName__ = name;  
+			return true;
+		}
+	}
+	
+	join = function(name,size=0x100000){  
+		for(i=1;5;1){
+			if( joinTest(name,size) ){
+				return true;
+			}
+			sleep(200);
+		}
+		
+		var dbg = {
+			mutex = !!mutex;
+			mmap = !!mmap;
+			__groupName__ = __groupName__;
+			name = name;
+		}
+		var err = ..lasterr();
+		error( ..string.concat("注册进程群组时遇到错误"
+			,'\r\n',err," ->",..table.tostring(dbg)),2);
+	}
+	
+	pushReturnValue = function(v){
+		if(! mutex.waitOne() ) return;
+		
+		mmap.seek("set"); 
+		var commandTable  = mmap.readTable() : {};
+		if(!commandTable[-1])commandTable[-1] = {};
+		var ret = ..table.push(commandTable[-1],v);
+		mmap.seek("set"); 
+		mmap.writeTable(commandTable);  
+		mutex.release();
+		return ret;
+	}
+	
+	getReturnValue = function(idx){
+		if(! mutex.waitOne() ) return;
+		
+		mmap.seek("set"); 
+		var commandTable  = mmap.readTable() : {};
+		var ret;
+		if(commandTable[-1]){
+			ret = commandTable[-1][idx] ? ..table.remove(commandTable[-1],idx);
+		};
+		
+		mmap.seek("set"); 
+		mutex.release();
+		return ret;
+	}
+
+ 	_meta = {
+		_set = function(k,v){
+			if(!mutex) error("进程必须调用 process.command.join() 函数初始化",2);
+			if( k == -1 ) error("命令名不能设置为保留值-1",2);
+			
+			if(! mutex.waitOne() ) return;
+			mmap.seek("set"); 
+			var commandTable  = mmap.readTable() : {};
+			if(!commandTable[k])commandTable[k] = {};
+			commandTable[k][owner._form.hwnd] = v?true:null;
+			mmap.seek("set"); 
+			mmap.writeTable(commandTable);  
+			owner._commands[k] = v;
+			mutex.release();
+		}
+	}; 
+	
+	sendPid = function(pidDst,method,...){
+		var subscribe;
+		
+		if(! mutex.waitOne() ) return;
+		mmap.seek("set"); 
+		subscribe = mmap.readTable()[[realName]];  
+		mmap.seek("set");
+		mutex.release();
+		
+		var ret,tid,pid;
+		var sendTable = {method;...};
+		for(hwnd in subscribe){ 
+			tid,pid = ..win.getThreadProcessId();
+			if(pid!=pidDst) continue;
+			ret = ..win.sendCopyData( hwnd,sendTable );
+			if( ret ) return getReturnValue( ret );
+		}
+		return; 	
+	}
+	
+	
+	send = function(hwnd,method,... ){  
+		if(!mutex) error("进程必须调用 process.command.join() 函数初始化",2);
+		 
+ 		var t = type(hwnd); 
+		if( t == "string" ){
+			var realName = hwnd;
+			var sendTable = {realName;method;...};
+		 
+		 	var subscribe;
+		 	if(! mutex.waitOne() ) return;
+			mmap.seek("set"); 
+			subscribe = mmap.readTable()[[realName]];  
+			mmap.seek("set");
+			mutex.release();
+			
+			var ret;
+			for(hwnd in subscribe){ 
+				ret = ..win.sendCopyData( hwnd,sendTable );
+				if( ret ) return getReturnValue( ret );
+			}
+			return; 
+		}
+		elseif(t == "number" ){
+			var sendTable = {method;...}; 
+			var ret = ..win.sendCopyData( hwnd,sendTable )
+			if( ret ) return getReturnValue( ret );
+		}; 
+	};
+	
+	post = function( ...  ){
+		..thread.invoke( 
+			function(__groupName__,... ){
+				import process.command;
+				process.command.join(__groupName__)
+				process.command.send( ... );
+			},__groupName__,... 
+		)
+	};
+	
+	self.invoke = function(...){
+		return ..thread.invokeAndWait( 
+			function(__groupName__,... ){
+				import process.command;
+				process.command.join(__groupName__)
+				return process.command.send( ... );
+			},__groupName__,... 
+		)
+	}
+	
+	self@ = {
+		_get = function(k){
+			self[[k]] =  function(...){
+				return owner.send(k,...);
+			} 
+			
+			return self[[k]];
+		} 
+	} 
+}
+
+/**intellisense() 
+process.command.join(.("群组GUID") = 加入进程群组\n使用GUID区分不同的进程分组\n同一线程应当且必须在定义或发送进程命令前调用该函数一次,\n同一线程可多次调用该函数,但参数必须相同\n成功返回true
+process.command.sendPid(.(目标进程ID,"命令函数名",其他参数) = 阻塞调用跨进程命令,\n可获取回调函数的数值返回值,默认返回null
+process.command.post(.("命令函数名",其他参数) = 非阻塞调用跨进程命令,无返回值\n此函数需要创建线程调用send函数,不适合频繁调用\n异步命令如果尚未发出前,发送线程如果立即退出会导到命令发送失败
+process.command.invoke(.("命令函数名",其他参数) = 非阻塞调用跨进程命令,支持返回值
+process.command.send(.(窗口句柄,"命令函数名",其他参数) = 阻塞调用跨进程命令,\n可获取回调函数的数值返回值,默认返回null
+process.command.send(.("命令函数名",其他参数) = 阻塞调用跨进程命令\n不指定窗口句柄,所有同名的进程命令函数都会被调用,\n可获取处理该命令的回调函数返回值,默认返回0
+process.command.? = 可指定外部进程的命令函数名,并直接调用该函数，\n可获取外部进程中被调用函数的返回值
+process.command(.(窗口对象,是否取消特权隔离) = 创建进程命令对象\n省略窗口参数则创建 message only window,\n该对象定义的成员函数,都可在其他进程中用 thread.command.post()调用
+process.command() = !process_command.
+!process_command.自定义函数名 = @.命令函数 = function( ... ) {
+	__/*支持不定个数参数\n返回值可阻止命令继续传递*/
+}
+!process_command._form = 窗体对象\n!winform.
+end intellisense**/

package/aardio/lib/process/control.aardio

@@ -0,0 +1,29 @@
+//control 控制面板
+import process;
+namespace process;
+
+class control{
+	ctor( a, b,... ){
+		if( (...!==null) || (b!==null) ){
+			a = ..string.join({a;b; ... },",");
+		}
+		
+		if( type.isString(a) && ..string.startWith(a,"ms-settings:") ){
+			..process.execute(a,,,1/*_SW_NORMAL*/);
+		}
+		else {
+			..process.execute("control.exe",a,,1/*_SW_NORMAL*/);
+		}
+	};
+}
+
+/**intellisense(process)
+control = 用于打开控制面板\n[Windows相关文档] ( https://learn.microsoft.com/en-us/windows/win32/shell/executing-control-panel-items )
+control( = 打开控制面板。\n可指定一个或多个启动参数。\n参数也可以是 process.joinArguments 函数支持的数组或表
+control("ncpa->cpl")=显示所有网络连接
+control("desk->cpl",,2)=显示属性 外观选项
+control("desk->cpl",,0)=打开自定义桌面图标
+control("ms-settings:__") = Win10系统下打开设置页,\n[可用设置页面]( https://docs.microsoft.com/en-us/windows/uwp/launch-resume/launch-settings-app )
+control("userpasswords2")=打开系统用户管理（高级）,\n当相于调用 process.execute 函数运行 "Netplwiz.exe"
+control("nusrmgr->cpl")=打开系统用户管理
+end intellisense**/

package/aardio/lib/process/curl/_.aardio

@@ -0,0 +1,91 @@
+import string.cmdline;
+import process.popen;
+import process.wow64;
+import inet.url;
+import web.json;
+
+namespace process{
+
+	class curl{
+		ctor(param,...){
+			param = ..string.cmdline.arguments(param,...); 
+			
+			if(type(param[["-d"]]) == "table"){
+				param[["-d"]] = ..inet.url.stringifyParameters(param[["-d"]]);
+			}
+			
+			if(param[["--json"]]){
+				if(type(param[["--json"]]) == "table"){
+					param[["--json"]] = ..web.json.stringify(param[["--json"]]);
+				}
+				
+				..table.unshift(param, "--data", param[["--json"]]);
+				..table.unshift(param, "--header", "Content-Type: application/json");
+ 				..table.unshift(param, "--header",  "Accept: application/json");
+ 				
+ 				param[["--json"]] = null;
+			}
+			
+			..table.unshift(param,"-s");	
+			var prcs = ..process.popen.wow64(path,param,{workDir=workDir});
+			if(!prcs) error("请导入库 process.curl.7.81 以兼容版本低于 Win10 1803 的系统")
+			
+			var out,err,exitCode = prcs.readAll();
+			if( exitCode ) return null,exitCode,err:out;
+			
+			if((out[1]=='{'# && out[#out]=='}'# )|| 
+				(out[1]=='['# && out[#out]==']'#) ){
+				return ..web.json.tryParse(out) : out;
+			}
+			return out:""; 
+		}; 
+	}
+	
+	namespace curl{
+		
+		path = "curl.exe";
+    	workDir = "/";
+    	
+		class open{
+			ctor(param,...){
+				param = ..string.cmdline.arguments(param,...);
+				this = ..process.wow64(..process.curl.path,param,{workDir=..process.curl.workDir});
+			}; 
+		}
+		
+		class popen{
+			ctor(param,...){
+				param = ..string.cmdline.arguments(param,...);
+				..table.unshift(param,"-s");
+				
+				this = ..process.popen.wow64(..process.curl.path,param,{workDir=..process.curl.workDir});
+			}; 
+		}
+	}
+}
+
+/**details(必读与参考文档)
+默认调用系统自带的 "curl.exe"，适用于 Win10 1803 及之后操作系统。
+导入 process.curl.7.81 可兼容更低版本的操作系统。
+
+process.curl.open 会显示控制台与进度（可用 console.open 提前打开控制台，curl 就不会创建新控制台）。
+process.curl.popen 返回的是进程管道，不会显示控制台与进度。
+process.curl 直接返回进程输出，不会显示控制台与进度。
+
+如果希望直接调用 curl 的 API 接口，请改用 curl 扩展库。
+
+curl 文档：
+https://curl.se/docs/manual.html
+https://curl.se/docs/manpage.html
+end details**/
+
+/**intellisense()
+process.curl = 用于调用 curl 命令\n默认调用系统自带的 "curl.exe"，适用于 Win10 1803 及之后操作系统。\n导入 process.curl.7.81 可兼容更低版本的操作系统。\n\n如果希望直接调用 curl 的 API 接口，请改用 curl 扩展库
+process.curl.open(__) = 调用 curl 命令，返回进程对象。\n可用一个或多个字符串指定命令行参数，\n也可以用一个表参数指定一个或多个命令行参数，\n表参数可包含数组，也包含命名参数，键名首字符必须是 - 。\n所有参数调用 process.joinArguments 转换为单个参数。\n\n如果未指定 -s 或 --silent 参数则默认输出进度。\n此函数会打开控制台，适用于控制台程序（建议先调用 console.open ），\n改用 process.curl.popen 可隐藏控制台与进度
+process.curl.open() = !process.
+process.curl.popen(__) = 调用 curl 命令，\n隐藏控制台与进度，返回进程管道（process.popen 对象）。\n改用 process.curl.open 可显示控制台与进度。\n\n可用一个或多个字符串指定命令行参数，\n也可以用一个表参数指定一个或多个命令行参数，\n表参数可包含数组，也包含命名参数，键名首字符必须是 - 。\n所有参数调用 process.joinArguments 转换为单个参数
+process.curl.popen() = !process_popen.
+process.curl.path = curl.exe 路径。\n默认为 "curl.exe"，适用于 Win10 1803 及之后操作系统自带的 curl。\n改用 curl.process 可兼容更低版本的操作系统。
+process.curl.workDir = curl 工作目录。\n默认为 "/"，即 aardio 应用程序根目录
+process.curl(__) = 调用 curl 命令，不显示控制台与进度。\n可用一个或多个字符串指定命令行参数，\n也可以用一个表参数指定一个或多个命令行参数，\n表参数可包含数组，也包含命名参数，键名首字符必须是 - 。\n所有参数调用 process.joinArguments 转换为单个参数。\n\n成功返回输出结果，失败返回 null,错误退出代码，\n退出代码就参考 https://everything.curl.dev/usingcurl/returns \n如果返回输出首尾为 {} 或 [] 则尝试解析 JSON 并返回对象或数组
+end intellisense**/

package/aardio/lib/process/ffmpeg.aardio

@@ -0,0 +1,63 @@
+//ffmpeg 音视频工具
+import string.cmdline;
+import process.popen;
+ 
+namespace process;
+
+class ffmpeg {
+	ctor( workDir,... ){
+		var ffmpegPath = getPath();
+		if( !ffmpegPath ) return;
+		
+		this = ..process.popen( ffmpegPath
+			, ..string.cmdline.arguments(...)
+			, { workDir=workDir:..io.fullpath("/") }
+			);
+			
+		if(this){
+			this.codepage = 65001;
+		}
+	};
+}
+
+
+namespace ffmpeg {
+
+	getPath = function(){ 
+		if(self.path) return self.path;
+		
+	 	var path = ..io.appData("/aardio/ffmpeg-static/" + cdnVersion + "/" + cdnFilename);
+		if(! ..io.exist(path) ){
+			install();
+		}
+		
+		return ..io.exist(path);
+	};
+	
+	setPath = function(path){
+		self.path = ..io.exist(path);
+	};
+	
+	cdnFilename = _WIN_64 ? "win32-x64" : "win32-ia32";
+	cdnVersion = "5.0.1";
+	cdnUrl = "https://npmmirror.com/mirrors/ffmpeg-static/";
+	
+	install = function(name){ 
+		import zlib.httpFile;
+		if( zlib.httpFile.download("https://npmmirror.com/mirrors/ffmpeg-static/b"+cdnVersion+"/"+cdnFilename+".gz"
+			,"正在下载本程序必须组件：FFmpeg",..io.appData("/aardio/ffmpeg-static/" + cdnVersion) )) {
+			return getPath(name);
+		}
+	} 
+}
+
+/**intellisense()
+process.ffmpeg = 调用 ffmpeg.exe，返回 process.popen 管道对象
+process.ffmpeg(.(workDir,->->->) = 调用 ffmpeg.exe，返回 process.popen 管道对象\n@workDir 参数指定工作目录，传入空值则默认设为"/"。\n可传入一个或多个启动命令行参数。\n如果有多个命令行参数，则不在双引号内、且包含空白或需要转义的参数时，\n转义处理该参数后并在首尾添加双引号
+process.ffmpeg() = !process_popen.
+setPath(__) = 自定义 ffmpeg.exe 路径。\n参数 @1 指定文件路径
+process.ffmpeg.getPath() = 返回 ffmpeg.exe 路径。\n如果找不到路径则会自动安装
+process.ffmpeg.cdnFilename = 默认下载的 ffmpeg 文件名。\n64位系统默认为 "win32-x64"，32位默认为 "win32-ia3"
+process.ffmpeg.cdnVersion = 默认下载的 ffmpeg 版本。\n当前为 "5.0.1"
+process.ffmpeg.cdnUrl = ffmpeg.exe 默认下载地址
+end intellisense**/

package/aardio/lib/process/file.aardio

@@ -0,0 +1,118 @@
+//file 文件操作
+import fsys;
+import process;
+
+namespace process.file;
+
+each = function(exename){
+	var prcs,entry;
+	var next,freeItor = ..process.each(exename);
+	return function(){
+		if(prcs) prcs.free();
+		
+		while(  var  path; entry = next(entry);  entry ) {
+			prcs = ..process( entry.th32ProcessID );
+			if( prcs ) {
+				path = prcs.getPath();
+				if( path && #path && (path != "?") ) { 
+					if( ..io.exist(path) ) path =  ..fsys.longpath(path)
+					if(path) return path,prcs;
+				}
+				prcs.free();
+			}
+		} 
+	},freeItor
+}
+
+eachDir = function(parentDir){
+	if(!parentDir) return error("请指定进程所属上级目录",2)
+	parentDir = ..io.fullpath(parentDir);
+	
+	var prcs,entry;
+	var next,freeItor = ..process.each();
+	
+	return function(){
+		if(prcs) prcs.free();
+		while(  var  path; entry = next(entry);  entry ) { 
+			prcs = ..process( entry.th32ProcessID );
+			if( prcs ) {
+				path = prcs.getPath();
+				if( path && #path && (path != "?") ) {
+					if( ..io.localpath(path) ) { prcs.free();continue; } //过滤掉系统进程
+					if( parentDir[1] != path[1] ) { prcs.free();continue; }//过滤掉系统进程
+			
+					if( ..io.exist(path) ) {
+						path =  ..fsys.longpath(path)
+						if( ..fsys.path.relative(path,parentDir) ){
+							return path,prcs;
+						}
+					}
+				}
+				prcs.free();
+			}
+		} 
+	},freeItor
+}
+	
+find = function(path){
+	path = ..fsys.longpath(path);
+	var cmp = ..fsys.path.cmp;
+	for( fullpath,prcs in ..process.file.each() ){ 	 
+		if( cmp( fullpath,path ) == 0 ){
+			return prcs;
+		}
+	}
+}
+
+test = function(path){
+	var prcs = find(path);
+	if( prcs ) { prcs.free(); return true;}
+}
+
+wait = function(path){
+	while( !test(path) ){
+		sleep(1000)
+	}
+	return true;
+} 
+
+terminate = function(path){
+	path = ..fsys.longpath(path);
+	var cmp = ..fsys.path.cmp;
+	
+	var p;
+	do {
+		p = null;
+		for( fullpath,prcs in ..process.file.each() ){ 
+			if( fullpath == "?" ) continue;
+			
+			if( cmp( fullpath,path ) == 0 ){
+				prcs.terminate();
+				p = true; 
+			}
+		}
+		sleep(50)
+	}while(p);
+		
+}
+
+delete = function(path){
+	terminate(path);
+	while(..io.exist(path)){ sleep(10); ..fsys.delete(path) };
+}
+
+/**intellisense(process.file)
+each( ) = @for( path,prcs in ??.each() ){
+	__break ;
+}
+eachDir( ) = @for( path,prcs in ??.each(__/*输入EXE文件所属上级目录*/) ){
+	break ;
+}
+each() = !process.
+find() = !process.
+find(.(EXE路径) = 使用物理路径查找并返回进程对象\n仅使用文件名查找请使用process.find函数
+test(.(EXE路径) = 检测指定路径的进程是否存在\n该函数不会返回进程对象
+wait(.(EXE路径) = 等待指定的进程启动
+terminate(.(EXE路径) = 中止进程
+delete(.(EXE路径) = 中止进程、并删除执行程序文件\n一直重试直到删除成功
+end intellisense**/