aview-app 1.0.2

package/aardio/lib/fsys/localfile.aardio

@@ -0,0 +1,77 @@
+//localfile 资源文件本地化
+namespace fsys;
+
+class localfile{
+	ctor( path,extname ){ 
+		if( #path > 0x410/*_MAX_PATH_U8*/){
+			var bin = path;
+			this._tempdir= ..io.tmpname( ..string.random(5) );
+			..io.createDir(this._tempdir); 
+
+			this._path = ..io.joinpath( this._tempdir, ..string.concat(..string.random(5),extname) );
+			..string.save(this._path,bin );
+			..table.gc(this,"free");
+		}
+		elseif( ..io.localpath(path) ) {
+			if(  not  ..io.exist(path) ){
+				var bin = ..string.load(path); 
+				if( !bin ) return;
+				
+				var p = ..io.splitpath(path);
+				this._tempdir= ..io.tmpname( p.name );
+				..io.createDir(this._tempdir);
+				
+				this._path = ..io.joinpath( this._tempdir,p.file );
+				..string.save(this._path,bin );
+				..table.gc(this,"free");
+			}
+			else {
+				this._path = ..io.fullpath(path)
+			} 
+		}
+		else {
+			this._path = path;
+		}
+		path = null; extname = null;
+	};
+	temp = function(){
+		return this._tempdir;
+	};
+	free = function(){
+		if( this._tempdir ) ..io.remove( this._tempdir )
+	};
+	path = function(){
+		return this._path;
+	};
+	bindObject = function(obj){
+		_bind_objects[obj] = this;
+	};
+	loadDll = function(c){
+		var dll = ..raw.loadDll(this.path(),,c);
+		_bind_objects[dll] = this;
+		return dll;
+	};
+	@_meta;
+}
+
+namespace localfile{
+	_meta =  {
+		_tostring = function(){
+			return owner._path;
+		}
+	}
+	_bind_objects = { @{_weak="k"} }
+}
+
+/**intellisense()
+fsys.localfile = 如果参数传入的不是硬盘文件路径,而是资源文件或内存数据\n则创建临时文件以获取本地路径
+fsys.localfile(.("/rest/") = 创建资源文件路径本地化对象,\n该对象用于保证资源文件返回的是本地路径\n路径会保持原来的文件名
+fsys.localfile(.(内存数据,".默认后缀名") = 参数@1长度大于260字节,\n则使用指定的后缀名生成临时文件保存该数据
+fsys.localfile() = !fsys_localfile.
+!fsys_localfile.path() = 本地化的完整路径
+!fsys_localfile.temp() = 如果创建了临时文件则返回临时目录\n如果该函数返回值为空则path为普通路径
+!fsys_localfile.free() = 删除临时文件
+!fsys_localfile.loadDll(.(调用约定) = 加载DLL
+!fsys_localfile.loadDll() = !dllmodule.
+!fsys_localfile.bindObject(.(对象) = 绑定使用该文件的对象
+end intellisense**/

package/aardio/lib/fsys/log.aardio

@@ -0,0 +1,150 @@
+//log 日志文件
+import web.json;
+import util.table;
+import process.mutex;
+
+namespace fsys;
+
+class log{
+	ctor( path ){{
+		if(!path){
+			path = ..thread.get("fsys.log.default.path"):"/config/app$.log"; 
+		}
+		
+		path = ..io.fullpath( path );
+		var dir = ..io.splitpath(path).dir;
+		if(!..io.exist(dir) ) ..io.createDir(dir);
+		
+		this.path = path;
+		this.mutex = ..process.mutex("fsys.log" + ..string.replace(path,"@\","/") );
+		
+		if(!this.mutex ){
+			
+			//遇到服务进程,权限被拒
+			this.mutex = ..process.mutex("fsys.log" + ..string.replace(path,"@\","/") ++ ::Kernel32.GetCurrentProcessId() ) ;
+			
+			if(!this.mutex){
+				this.mutex = {
+					waitOne = function(){ };
+					release = function(){ }; 
+					close = function(){ };
+				}
+			}
+		}
+	}}; 
+	close = function(){
+		if( this.mutex ){
+			this.mutex.close();
+			this.mutex = null;
+		}
+	};
+	print = function(...){
+		var args = {...};
+		
+		if( this.mutex.waitOne() ){
+			var file = ..io.open(this.path,"a+t");
+			
+			for(i=1;#args;1){
+				file.write( ..string.crlf(args[i]),'\t');
+			}
+			file.write('\n');
+			file.close();
+			
+			this.mutex.release();
+		}
+	};
+	printf = function(s,...){
+		if( ...!== null ) s = ..string.format(s,... )
+		this.print( s );
+	}
+	dump = function(...){ 
+		var args = {...};
+		
+		if( this.mutex.waitOne() ){
+			var file = ..io.open(this.path,"a+t");
+			
+			for(i=1;#args;1){ 
+				if( type(args[i]) == type.table ) file.write( ..util.table.stringify(args[i],#args==1),'\t')
+				else file.write( tostring(args[i]),'\t')
+			}
+			file.write('\n');
+			file.write('\n');
+			file.close(); 
+			
+			this.mutex.release();
+		}
+	}  
+	dumpJson = function(...){ 
+		var args = {...};
+		
+		if( this.mutex.waitOne() ){
+			var file = ..io.open(this.path,"a+t");
+			
+			for(i=1;#args;1){ 
+				if( type(args[i]) == type.table ) file.write( ..web.json.stringify(args[i],#args==1),'\t')
+				else file.write( tostring(args[i]),'\t')
+			}
+			file.write('\n');
+			file.write('\n');
+			file.close(); 
+			
+			this.mutex.release();
+		}
+	}
+}
+
+namespace log{ 
+
+	var logFile;
+	setPath = function( path ){
+		if(logFile) logFile.close();
+		
+		..thread.set("fsys.log.default.path", path )
+		logFile = ..fsys.log();
+		
+		print = logFile.print;
+		printf = logFile.printf;
+		dump = logFile.dump;
+		dumpJson = logFile.dumpJson;
+		return logFile; 
+	}
+	getPath = function(){
+		return logFile.path;
+	}
+	
+	print = function(...){
+		setPath( ..thread.get("fsys.log.default.path") );
+		return logFile.print(...);
+	}
+	
+	printf = function(...){
+		setPath( ..thread.get("fsys.log.default.path") );
+		return logFile.printf(...);
+	}
+	
+	dump = function(...){
+		setPath( ..thread.get("fsys.log.default.path") );
+		return logFile.dump(...);		
+	}
+	
+	dumpJson = function(...){
+		setPath( ..thread.get("fsys.log.default.path") );
+		return logFile.dumpJson(...);	
+	}
+}
+
+/**intellisense()
+fsys.log = 日志文件\n用于代替控制台在文件中输出变量或文本
+fsys.log(.("日志文件路径") = 创建日志文件
+fsys.log() = !stdfsyslog.
+fsys.log.print(__) = 输出一行文本,支持多参数
+fsys.log.printf("%s__", ) = 输出格式化字符串,\n格式化语法与string.format相同
+fsys.log.dump(__/*变量*/) = 显示变量的值,支持多参数\n注意仅显示普通table,string,number等类型的值,不显示函数等
+fsys.log.dumpJson(__/*变量*/) = 将对像转换为格式化的JSON文本并输出到控制台
+fsys.log.setPath("/config/app$->log") = 设志日志文件路径,进程内全局有效,\n如果不指定路径,默认设置为 /config/app$.log
+!stdfsyslog.close() = 关闭对象
+!stdfsyslog.print(__) = 输出一行文本,支持多参数
+!stdfsyslog.printf("%s__", ) = 输出格式化字符串,\n格式化语法与string.format相同
+!stdfsyslog.dump(__/*变量*/) = 显示变量的值,支持多参数\n注意仅显示普通table,string,number等类型的值,不显示函数等
+!stdfsyslog.dumpJson(__/*变量*/) = 将对像转换为格式化的JSON文本并输出到控制台\n支持多参数
+end intellisense**/

package/aardio/lib/fsys/media.aardio

@@ -0,0 +1,199 @@
+//media 媒体文件播放
+import fsys.localfile;
+
+namespace fsys;
+
+class media{
+	ctor( path,flags,hwndCallback ){
+		if(_deviceCache[path]) {
+			_deviceCache[path].seek(1);
+			return _deviceCache[path];
+		}
+		
+		this.hwndCallback = hwndCallback[["hwnd"]] : hwndCallback ;
+		this.localfile = ..fsys.localfile(path);
+		if(!this.localfile) return null; 
+		
+		var cmd = 'open "' + ( this.localfile.path() ) + '" ';
+		if( flags ) {
+			cmd = cmd ++ flags;
+		}
+		var r,msg = self.execute( cmd,this.hwndCallback );
+		if( !r ) return null,msg;
+		 
+		this.deviceId = tonumber(msg);
+		_deviceCache[path] = this;
+		
+		..table.gc(this,"close");
+	};
+	path = function(){
+		return this.localfile ? this.localfile.path()
+	};
+	send = function(cmd,...){
+		if(!this.localfile) return null,"媒体文件已关闭"; 
+		cmd = ..string.replace(cmd,"@$PATH",'"' + ( this.localfile.path() ) + '"',1);
+		if( ... ) cmd = ..string.format(cmd,... )
+		return self.execute( cmd,this.hwndCallback   ); 
+	};
+	play = function(...){
+		return this.send( ..string.concat("play	$PATH ",...) ); 
+	};
+	stop = function(){
+		return this.send( "stop $PATH" );
+	};
+	resume = function(){
+		return this.send( "resume $PATH" );
+	};   
+	pause = function(){
+		return this.send( "pause $PATH" );
+	};
+	seek = function(pos){
+		return this.send( "seek $PATH to %d",pos ); 
+	};
+	step = function(step){ 
+		var cmd = 'step "' + ( this.localfile.path() ) + '"';
+		if( step ) cmd = cmd + ' by ' + step;
+		return this.send( cmd ); 
+	};
+	length = function(){
+		var r,len = this.send( "Status $PATH length"  ); 
+		if( r ) return (tonumber(len));
+		return r,len;
+	};
+	volume = function(v){
+		if( v ){ 
+			return this.send( "setaudio $PATH volume to %d",v  ); 
+		}
+		var r,volume = this.send( "Status $PATH volume"  ); 
+		if( r ) return (tonumber(volume));
+		return r,volume;
+	};
+	position = function(){
+		var r,position = this.send( "Status $PATH position"  ); 
+		if( r ) return (tonumber(position));
+		return r,position;
+	};
+	mode = function(){
+		var r,mode = this.send( "Status $PATH mode"  ); 
+		if( r ) return mode;
+		return r,mode;
+	}; 
+	isPlaying = function(){
+		return this.mode() == "playing"; 
+	};
+	isPaused = function(){
+		return this.mode() == "paused"; 
+	};
+	isStopped = function(){
+		return this.mode() == "stopped"; 
+	};
+	ready = function(){
+		var r,ready = this.send( "Status $PATH ready"  );  
+		return r && ..string.cmp(ready,"true")==0;
+	};
+	close = function(){
+		_deviceCache[path] = null;
+		var r,msg = this.send( "close $PATH"  ); 
+		this.localfile.free();
+		this.localfile = null;
+		return r,msg;
+	};
+}
+
+namespace media{
+	_deviceCache = ..table.cache();
+
+	::Winmm  :=  ..raw.loadDll("Winmm.dll");
+	var sendStringA = Winmm.api("mciSendString","int(ustring lpstrCommand,ustring &lpstrReturnString,int uReturnLength,int hwndCallback)")
+	var getErrorStringA = Winmm.api("mciGetErrorString","bool(INT err,ustring& strErr,INT cchErr )")
+	
+	getErrorString = function(err){
+		if( !err ) return;
+		var ok,msg = getErrorStringA(err,128,128);
+		if( ok) return msg;
+	}
+	
+	self.execute = function(command,hwndCallback){
+		if( hwndCallback ) command = command + " notify";
+    	var err,msg = sendStringA( command,256, 256, hwndCallback : 0 )
+    	if( err == 0 ) 
+    		return true,msg;
+    	else 
+    		return false,getErrorString(err);
+	}
+	
+	closeAll = function(){
+		..table.clear(_deviceCache);
+		self.execute("close all");
+	}
+	
+	playSound = function(filepath,flag){ 
+		if( flag === null ) flag = 1 /*_SND_ASYNC*/;
+		if( type(flag) != type.number ) error("参数@2未指定正确的选项",2);
+			
+    	if(!filepath) ::Winmm.PlaySound(null,0,flag)
+    	else{
+    		if( type(filepath) != type.string ) error("参数@1未指定正确的文件路径",2);
+    		
+    		if( #filepath > 0x410/*_MAX_PATH_U8*/ ){
+    			return  ::Winmm.PlaySound( filepath,0,flag | 0x4/*_SND_MEMORY*/ )
+    		}
+    		
+    		if( ( !..io.exist(filepath) ) && ..io.localpath(filepath) ){
+    			var wav = ..string.load(filepath)
+    			if( wav ) ::Winmm.PlaySound( wav,0,flag | 0x4/*_SND_MEMORY*/ )
+    		}
+    		else{
+				::Winmm.PlaySoundW( ..io.fullpath(filepath),0,flag)
+			}
+		}
+	} 
+	
+	playRepeat = function(path,count=1){
+		..thread.invoke( 
+        	function(path,count){
+            	import fsys.media;
+            	var media = fsys.media(path);
+            	for(i=1;count){
+                	media.play("wait"); 
+                	media.seek(1);
+            	}
+            	media.close()   
+        	},path,count
+    	)
+	}
+}
+
+/**intellisense(fsys)
+media.closeAll() = 全部关闭
+media.playSound(.("WAVE文件路径",选项) = 播放WAVE文件,参数@2可选\nWAVE文件可指定内嵌资源或内存文件,如果为null空值则停止播放\n选项不指定时默认为_SND_ASYNC,也即启用异步播放,\n选项指定为0时同步播放并等待播放完成,同步播放建议放到工作线程里
+media.playRepeat(.("音频文件路径",播放次数) = 创建线程并重复播放指定的wav或mp3文件,\n参数@1指定文件路径或资源文件路径\n参数@2指定播放次数
+media.getErrorString(.(错误代码) = 返回错误信息
+media.execute(.("MCI媒体控制命令",通知窗口句柄) = 发送MCI媒体控制命令\n如果指定通知窗口句柄则在命令尾部添加"notify",\n成功返回true,可选的返回消息,\n失败返回false,错误信息
+media(.("媒体文件路径","其他选项",通知窗口) = 打开媒体文件,支持 MP3。\n参数@2,@3为可选参数\n如果指定了通知窗口，操作完成以后窗口会收到 _MM_MCINOTIFY 消息\n\n如果同一线程已打开同一文件，则返回已打开的 fsys.media 对象，并移动播放位置到开始处。\nfsys.media 创建的对象在超出变量作用域后会自动释放\n对象关闭后会自动关闭正在播放的媒体文件\n所以不要使用临时变量播放媒体文件
+media() = !fsys_media.
+end intellisense**/
+
+/**intellisense(!fsys_media)
+deviceId = 打开的设备标识符，数值。\n_MM_MCINOTIFY 消息的 lParam 参数里存放的就是这里的 deviceId
+path() = 打开的文件路径
+send(.("MCI媒体控制命令") = 使用$PATH表示打开的媒体文件路径,不要加引号\n如果传入多个参数则使用string.format格式化\n[所有可用指令]( https://docs.microsoft.com/en-us/windows/desktop/Multimedia/multimedia-command-strings )
+play() = 播放声音\n可选添加多个文本指令参数\n无参数时不会阻塞当前线程，\nfsys.media 对像在析构时，会自动关闭声音，所以在声音播放时，要保持变量在生命周期内，\n重新播放声音应该调用要seek(1)回到开始位置
+play("wait") = 播放并等待，\n重新播放声音应该调用要seek(1)回到开始位置\n此操作会阻塞代码向后执行,最好是在工作线程里执行
+play("repeat") = 循环播放,\n仅适用于mp3，wav文件不支持
+stop() = 停止播放
+close() = 关闭
+pause() = 暂停
+resume() = 继续
+isPaused() = 是否已暂停
+isPlaying() = 是否正在播放
+isStopped() = 是否已停止播放
+ready() = 是否准备就绪可继续处理命令
+volume() = 无参数获取音量\n指定数值参数设置音量
+mode() = 返回当前模式，\n所有设备都存在 "not ready", "paused", "playing",  "stopped" 等模式,\n一些设备可能返回 "open", "parked", "recording",  "seeking" 等值
+length() = 音频长度
+position() = 返回当前播放位置
+seek(.(位置) = 移动到指定位置\n参数为1表示移动到开始位置，\n在播放声音以后重新播放声音时可调用此函数重新回到声音文件的开始位置
+step(.(-1) = 负数向前,正数向后,省略跳到下一步
+hwndCallback = 指定用于接收_MM_MCINOTIFY通知消息的窗口句柄\n_MM_MCINOTIFY可用于获取指令执行状态
+end intellisense**/

package/aardio/lib/fsys/mime.aardio

@@ -0,0 +1,115 @@
+//mime 多用途扩展文件类型
+namespace fsys.mime;
+
+var fileMime  = {
+    ["htm"] = "text/html";
+    ["html"] = "text/html";
+    ["css"] = "text/css";
+    ["xml"] = "text/xml";
+    ["xhtml"] = "application/xhtml+xml";
+    ["js"] = "application/x-javascript";
+    ["wasm"] = "application/wasm";
+    ["aardio"] = "text/plain";
+    ["txt"] = "text/plain"; 
+    ["ini"] = "text/plain";
+    ["rtf"] = "application/rtf";
+    ["pdf"] = "application/pdf";
+    ["ppt"] = "application/vnd.ms-powerpoint ";  
+    ["doc"] = "application/msword"; 
+    ["bmp"] = "application/x-MS-bmp"; 
+    ["png"] = "image/png"; 
+    ["gif"] = "image/gif"; 
+    ["jpeg"] = "image/jpeg";
+    ["jfif"] = "image/jpeg"; 
+    ["jpg"] = "image/jpeg"; 
+    ["jpe"] = "image/jpeg";
+    ["jpz"] = "image/jpeg";
+    ["avi"] = "video/x-msvideo";
+    ["mid"] = "audio/midi";
+    ["midi"] = "audio/x-midi";
+    ["mpg"] = "video/mpeg";
+    ["mpeg"] = "video/mpeg";
+    ["mp3"] = "audio/x-mpeg";
+    ["swf"] = "application/x-shockwave-flash";
+    ["mp4"] = "video/mp4";
+    ["wmv"] = "video/x-ms-wmv";
+    ["zip"] = "application/zip";
+    ["gz"] = "application/x-gzip";
+    ["7z"] = "application/x-7z-compressed";
+    ["lzma"] = "application/x-lzma";
+    ["tar"] = "application/x-tar"; 
+    ["taz"] = "application/x-tar";
+    ["rar"] = "application/x-rar-compressed";
+    ["dll"] = "application/octet-stream";
+    ["exe"] = "application/octet-stream";
+    ["svg"] = "image/svg+xml";
+    ["eot"]= "application/vnd.ms-fontobject";
+    ["otf"] = "application/x-font-opentype";
+    ["ttf"] = "application/x-font-ttf";
+    ["woff"] = "application/x-font-woff";
+    ["woff2"] = "font/woff2";
+    ["vtt"] = "text/vtt";
+}
+
+::Ole32 := ..raw.loadDll("Ole32.dll");
+::Urlmon := ..raw.loadDll("Urlmon.dll");
+FindMimeFromData = Urlmon.api("FindMimeFromData","int(pointer pBC,ustring url,pointer buffer,INT size,ustring mimeProposed,INT flags,pointer &mime,INT rsrv)" )
+
+fromData = function(buffer,url,proposed,flag = 0){  
+ 
+	if(url){
+		var path = ..string.match(url,"[^?]+")
+		var ext = ..string.match(path,"\.([^.]+)$");
+		if(ext) proposed = fileMime[ext];
+	}
+	
+	var hr,mime = FindMimeFromData(null,url,buffer,#buffer,proposed,flag,null,0);
+	if( hr >= 0/*_SUCCEEDED*/ ){
+		var s = ..string.fromUnicode(mime,,true)
+		::Ole32.CoTaskMemFree(mime);
+		return s;
+	}
+	
+	return "application/octet-stream"; 
+}
+
+fromUrl = function(url,flag=0){ 
+	if(!#url)return;
+	
+	var hr,mime = FindMimeFromData(null,url ,null,0,null,flag,null,0);
+	if( hr >= 0/*_SUCCEEDED*/ ){
+		var s = ..string.fromUnicode(mime,,true)
+		::Ole32.CoTaskMemFree(mime);
+		return s;
+	}	
+	else {
+		url = ..string.match(url,"[^?]+")
+		var fileExt = ..string.match(url,"\.([^.]+)$");
+		return fileExt ? fileMime[fileExt] : "application/octet-stream";
+	}	
+}
+
+fromFile = function(path,flag=0){ 
+	if(!#path)return;
+	var fileExt = ..string.match(path,"\.([^.]+)$");
+	if(fileExt){
+		var m = fileMime[fileExt];
+		if(m) return m;
+	}
+	
+	var hr,mime = FindMimeFromData(null,path,null,0,null,flag | 1,null,0);
+	if( hr >= 0/*_SUCCEEDED*/ ){
+		var s = ..string.fromUnicode(mime,,true)
+		::Ole32.CoTaskMemFree(mime);
+		return s;
+	}
+	else {
+		return "application/octet-stream";
+	}	
+}
+ 
+/**intellisense(fsys.mime)
+fromData(.(字符串数据,网址,默认MIME,选项) = 获取MIME类型\n除参数@1以外，其他参数可以省略,\n默认MIME建议设为 "text/html"\n此函数失败也会返回"application/octet-stream"
+fromUrl(.(网址,选项) = 获取MIME类型,参数@2可以省略,\n此函数失败也会返回"application/octet-stream"
+fromFile(.(文件路径,选项) = 获取MIME类型,参数@2可以省略,\n注意文件路径可以指向不存在的文件,根据文件后缀名检测MIME\n此函数失败也会返回"application/octet-stream"
+end intellisense**/