aview-app 1.0.2

package/aardio/lib/service/simpleTool.aardio

@@ -0,0 +1,73 @@
+namespace service.simpleTool;
+
+run = function(serviceName,displayName,description){
+    if( _STUDIO_INVOKED ) return true;
+	if( !::Kernel32.GetConsoleWindow() ) return false;
+	
+	import service;	 
+	import console;
+	
+	if(!serviceName) serviceName = service.serviceName;
+	do{
+		if( service.isExist(serviceName) ){
+			console.log("服务[" + serviceName + "] 已安装")
+			
+			if( service.isRunning(serviceName) ){
+				console.log("服务[" + serviceName + "] 正在运行")
+				if( console.askYesNo("按Y键停止服务,按N键退出程序") ){
+			 		if( service.stop(serviceName) ){
+			 			sleep(500);
+			 			console.log("操作成功",serviceName);
+			 		}
+			 		else {
+			 			service.stop(serviceName,true);
+			 			sleep(500);
+			 		}
+				}
+				else {
+			 		return true;
+				}
+			}
+			else{
+				console.log("服务[" + serviceName + "] 已停止运行")
+				if( console.askYesNo("按Y键启动服务,按N键删除后台服务") ){
+			 		if( service.start(serviceName)  ){
+			 			sleep(500);
+			 			console.log("操作成功",serviceName);
+			 		} 
+			 		else {
+						console.log("启动服务失败",..lasterr()); 
+					}
+				}
+				else {
+			 		if(!service.delete( serviceName) ){
+			 			console.log("删除服务失败,请重启系统后再试",..lasterr());
+			 		}//最好不要同时打开服务管理器
+			 		sleep(500);
+				}
+			}
+		}
+		else{
+			console.log("服务[" + serviceName + "] 未安装")
+			if( console.askYesNo("按Y键注册后台服务,按N键退出程序") ){
+				if( service.create( ,serviceName,displayName:serviceName,description:serviceName)  ){
+			 		console.log("注册成功",serviceName)
+				} 
+				else {
+					console.log(..lasterr());
+				}
+				
+			}
+			else {
+				return true;
+			}
+		}
+	}while(true);
+	
+	return true; 
+}
+
+/**intellisense()
+service.simpleTool = 简单服务管理工具
+service.simpleTool.run(.(服务名,显示服务名,服务描述) = 是服务进程就直接返回false,否则启动简单服务管理工具\n如果指定了service.serviceName可以省略服务名,\n其他参数可选
+end intellisense**/

package/aardio/lib/sessionHandler/default.aardio

@@ -0,0 +1,106 @@
+import web.json;
+import fsys.file;
+import fsys;
+
+namespace sessionHandler.default;
+
+//载入用户session
+startSession = function(expires){ 
+    var id = ..request[["sessionId"]];
+    if(!id) return error("request.sessionId 不能为 null");
+    
+    var path = "/config/session/#." + id;
+    if(!..io.exist(path) ) return {};
+    
+	var file;
+	for(i=1;10;1){
+		file = ..fsys.file(path,"rb",0x1/*_FILE_SHARE_READ*/);
+		if(file) break;
+		sleep(100);
+	}
+	if(!file) error("打开session文件失败!");
+	var write = file.getTime().write;
+
+	expires = expires : 1800;
+	if( write &&( ..time().diffsecond(write) > expires ) ){
+		file.close();
+		..fsys.delete(path) ;
+		return {};
+	}
+						
+	var str = file.read(-1);
+	file.close();
+	
+	var ses = ..web.json.tryParse(str) : {}; 	 
+	return ses;
+}
+
+//用户修改了session
+updateSession = function(ses,k,v){
+	saveSession(ses);
+}
+
+//清空session
+clearSession = function(){
+	saveSession({});
+}
+
+//保存session
+saveSession = function(ses,expires){
+    var id = ..request[["sessionId"]];
+    if(!id) return error("request.sessionId 不能为 null",2);
+
+    ..io.createDir("/config/session/");
+    var path = "/config/session/#." + id;
+	var file,err;
+	for(i=1;10;1){
+		file ,err= ..io.open(path,"w+b",0x10/*独占读写*/);
+		if(file) break;
+		sleep(100);
+	}
+	if(!file) error( ..string.concat("打开session文件失败!",err) );
+
+	var ses = ..web.json.stringify(ses);
+	file.write(ses);
+	file.close();
+
+	if( expires === null ) return;
+	
+	var now =  tonumber(..time());
+	var last = ..thread.get("webServerLastClearSessionTime") ;
+	if( last && ( now -last > expires ) ){
+		..thread.invoke( 
+			function(expires){
+				sleep(100);
+				
+				import fsys;
+				import fsys.file;
+				
+				var files = ..fsys.list("/config/session/");
+				
+				var now = tonumber(..time())
+				for(i,id in files){
+					var path = "/config/session/"+id;
+					var file = ..fsys.file(path);
+					if(file){
+						var write = file.getTime().write;
+						file.close();
+						
+						if( tonumber(now) -tonumber(write) > expires ){
+							..fsys.delete(path) 
+						}
+					} 
+				} 				
+			},expires
+		)
+		..thread.set("webServerLastClearSessionTime", tonumber(..time()));
+	}
+	if(!last) ..thread.set("webServerLastClearSessionTime", tonumber(..time()));
+	
+}
+
+
+/*
+实现自定义的sessionHandler，都必须实现上面的4个接口函数,并且是session名字空间的成员
+服务器会首先查找sessionHandler名字空间下符合规范的sessionHandler实现，如果没有找到默认调用此实现
+*/

package/aardio/lib/sevenZip/lzma/_.aardio

@@ -0,0 +1,139 @@
+import fsys;
+namespace sevenZip.lzma;
+
+var ERRORMESSAGE = {
+	[ 1/*_SZ_ERROR_DATA*/ ] = "数据错误";
+	[ 2/*_SZ_ERROR_MEM*/ ] = "分配内存失败";
+	[ 6/*SZ_ERROR_INPUT_EOF*/ ] = "输入溢出";
+	[ 7/*SZ_ERROR_OUTPUT_EOF*/ ] = "输出溢出";
+	[ 8/*_SZ_ERROR_READ*/ ] = "读输入文件失败"; 
+	[ 9/*_SZ_ERROR_WRITE*/ ] = "写输出文件失败";
+}
+
+decodeFile = function(inFile,outFile,progress){
+	inFile = ..io.exist(inFile);
+	if(!inFile) return null,"打开输入文件失败";
+	
+	if(!outFile) error("请指定输出路径参数@2",2);
+	outFile = outFile ? ..io.fullpath(outFile);
+	if(!..fsys.createParentDir(outFile)) return null,"创建输出目录失败"
+	
+	var progress_c;
+	if( progress ){
+		progress_c = ..raw.tocdecl(progress,"int( INT inProcessed,INT outProcessed)");  
+	}
+	var ret  = lzmafile(inFile,outFile,progress_c,false);
+	if( ret ) return false,ERRORMESSAGE[ret]
+	return true;
+} 
+
+encodeFile = function(inFile,outFile,progress){
+	
+	inFile = ..io.exist(inFile);
+	if(!inFile) return null,"读输入文件失败";
+	
+	if(!outFile) outFile = inFile + ".lzma";
+	outFile = outFile ? ..io.fullpath(outFile);
+	if(!..fsys.createParentDir(outFile)) return null,"创建输出目录失败";	
+	
+	var progress_c;
+	if( progress ){
+		progress_c = ..raw.tocdecl(function(p,inSize,outSize){
+			return progress( inSize,outSize );
+		},"int(pointer,LONG,LONG)");
+	}
+	var ret  = lzmafile(inFile,outFile,progress_c,true);
+	if( ret ) return false,ERRORMESSAGE[ret]
+	return true;
+}
+
+class LZMA_HEADER {
+	BYTE properties[5]; 
+	long uncompressedSize; 
+	_struct_aligned = 1;
+} 
+
+compress = function( src,level=5,dictSize=0x1000000,numThreads=2, lc=3,lp=0,pb=2,fb=32){
+	var srcLen = #src;
+	var header = LZMA_HEADER(); 
+	var propSize = 5;
+	
+	var dest = ..raw.buffer( ( srcLen * 2) + 5 ,0);
+	var destLen = #dest; 
+ 	
+	var ret,destLen,,propSize = LzmaCompress(dest,destLen,src,srcLen,header,5/*_LZMA_PROPS_SIZE*/,level, dictSize, lc,lp,pb,fb,numThreads);
+	if(  ret == 7/*_SZ_ERROR_OUTPUT_EOF*/ ) { 
+		destLen = destLen *2;
+		dest = ..raw.buffer( destLen );
+		ret,destLen = LzmaCompress(dest,destLen,src,srcLen,header,5/*_LZMA_PROPS_SIZE*/,level, dictSize, lc,lp,pb,fb,numThreads); 
+	}
+	if( ret ) return false,ret;   
+	header.uncompressedSize = srcLen;
+	return header,..raw.tostring(dest,1,destLen);
+}
+
+unCompress = function( src,header ){
+	var srcLen = #src;
+	if(!header){
+		header = LZMA_HEADER(); 
+		..raw.convert(src,header); 
+		src = ..raw.toPointer(src,13);
+		srcLen = srcLen-13;
+	}
+	
+	var destLen = header.uncompressedSize;
+	if( (!destLen) or ( destLen < 0 ) ) destLen = srcLen*50;
+	var dest = ..raw.buffer( destLen); 
+	var ret,destLen = LzmaUncompress(dest,destLen,src,srcLen,header,5);  
+	
+	if( ret && ret!=6/*SZ_ERROR_INPUT_EOF*/) return false,ret; 
+	return ..raw.tostring(dest,1,destLen);
+}
+
+save = function(str,path,...){
+	var h,s = compress(str,...)
+	if( h ){
+		var file,err = ..io.open(path,"w+b")
+		if(!file) return null,err;
+		file.write(h);
+		file.write(s);
+		file.close();
+		return true;
+	}
+}
+
+load = function(path){
+	var file,err = ..io.open(path,"rb")
+	if(!file) return null,err;
+	
+	var header = LZMA_HEADER(); 
+	if( file.read(header) ){
+		var s = file.read(-1) 
+		if( s ){
+			file.close();
+			return unCompress(s,header);
+		}
+	}
+	file.close();
+}
+
+//7ZIP 15.14
+_dll = ..raw.loadDll( $"~/lib/sevenZip/lzma/.res/LzmaUtil.dll","sevenZip.LzmaUtil.dll")
+lzmafile = _dll.api("lzmafile","int(ustring in_path,ustring out_path,pointer progress,bool encodeMode)" ,"cdecl") 
+LzmaCompress = _dll.api("LzmaCompress","int(pointer dest,INT &destLen,pointer src,INT srcLen,struct &outProps, INT &outPropsSize,int level, INT dictSize,int lc,int lp,int pb,int fb, int numThreads )" ,"cdecl") 
+LzmaUncompress = _dll.api("LzmaUncompress","int(pointer dest,INT &destLen, pointer src,INT &srcLen, struct props, INT propsSize)" ,"cdecl") 
+ 
+/**intellisense(sevenZip.lzma)
+decodeFile(.(输入文件路径,输出文件路径,进度回调函数) = 解压文件,\n执行成功返回true,否则返回false,以及错误信息,\n\n可选指定进回调函数,回调函数原型如下：\nfunction(inProcessed,outProcessed){ } \n回调函数返回true停止解压
+encodeFile(.(输入文件路径,输出文件路径,进度回调函数) = 压缩文件,\n如果不指定输出路径,则自动添加.lzma后缀作为输出路径\n执行成功返回true,否则返回false,以及错误信息,\n\n可选指定进回调函数,回调函数原型如下：\nfunction(inSize,outSize){ } \n回调函数返回true停止压缩
+compress(.(待压缩数据,压缩级别,字典大小,线程数,lc,lp,pb,fb) = 压缩字符串,除参数一以外其他参数可选,\n成功返回两个值:lzmaHeaer,lzmaData,\nlzmaHeaer为LZMA压缩头,lzmaData为压缩后字符串\n失败返回false,以及错误代码\n存为lzma文件时必须首先写入文件头,然后再写入压缩数据
+unCompress(.(待解压数据,LZMA头) = 解压字符串,\n如果待解压数据已包含LZMA头，可省略参数@2
+compress() = !SEVERZIP_LZMA_HEADER.
+save(.(待压缩数据,输出文件路径,压缩级别,字典大小,线程数,lc,lp,pb,fb) = 压缩字符串并存储到文件\n除参数@1,@2以外其他参数可选
+load(.(lzma文件路径) = 解压文件并返回字符串
+end intellisense**/
+
+/**intellisense(!SEVERZIP_LZMA_HEADER) 
+properties = 记录压缩参数,\n该值为(pb * 5 + lp) * 9 + lc
+uncompressedSize = 文件原始大小
+end intellisense**/

package/aardio/lib/sevenZip/lzma/httpFile.aardio

@@ -0,0 +1,157 @@
+//httpFile 网络安装包
+import fsys;
+import inet.http;
+import sevenZip.lzma;
+import fsys.untar;
+import inet.downBox;
+namespace sevenZip.lzma.httpFile;
+
+download = function(url,title="下载",saveDir,extraDir,saveName,parentForm){
+	var tUrl = ..inet.url.split(url);
+	if(!tUrl){
+		error("错误的URL参数",2)
+	}
+	var tPath = ..io.splitpath(tUrl.path)
+	
+	saveDir = ..io.fullpath(saveDir : "~\download\" )
+	..fsys.createDir(saveDir);
+	
+	if(!saveName){
+		saveName = tPath.file;
+	}
+	if(!extraDir){
+		extraDir = ..string.match(saveName,"(.+)\.[^\.]+$"  );
+		if(!extraDir) extraDir = saveName + ".uncompress";
+		extraDir = ..fsys.joinpath(saveDir,extraDir)
+	}
+	else {
+		extraDir = ..io.fullpath(extraDir);
+	} 
+
+	var pathCabinet = ..fsys.joinpath(saveDir,saveName)
+	var downBox = ..inet.downBox(parentForm,title,false) 
+	downBox.headers = self.headers;
+	downBox.referer = self.referer;
+	downBox.userAgent = self.userAgent;
+	downBox.preget = self.preget;
+	
+	downBox.endProc = function(){
+		downBox.text = "正在解压缩:" + saveName; 
+		..win.peekPumpInputMessage();
+		
+		var tarTempName = pathCabinet + ".tar";   
+		downBox.progress.hide = false;
+		 
+		var processed = 0;
+		var step = downBox.contentLength / 1000;
+		downBox.progress.setProgressRange(1,1000);  
+		
+		var peekMsg = ..win.peekPumpMessage;
+		var ret = ..sevenZip.lzma.decodeFile(pathCabinet,tarTempName,function(inProcessed,outProcessed){ 
+			if( (peekMsg()!==null) && downBox.continueModal ){
+			 	processed = processed + inProcessed; 
+			 	downBox.progress.progressPos = processed / step;
+			}
+			else {
+				return true;
+			}
+			
+		} ); 
+		
+		if(!ret){
+			owner.complete = false;
+			owner.endModal(); 
+			return;
+		} 
+		
+		downBox.onClose = function(){ 
+			return false;
+		}
+		downBox.text = "正在展开:" + saveName; 
+		var tarFile = ..fsys.untar(tarTempName,extraDir);
+		tarFile.onProgressFile = function(path){
+			downBox.labInfo.text = path;
+		};
+		  
+		downBox.progress.setProgressRange(1,1000 ); 
+		for(fileName,writeSize,remainSize,pos in tarFile.eachBlock(1000) ){ 
+			if( peekMsg()!==null ){
+				downBox.progress.progressPos = pos;
+			}
+			else {
+				break ;
+			} 
+		}
+		
+		tarFile.close()
+		..io.remove( tarTempName );
+		downBox.onClose = null;
+		if(tarFile.complete){
+			owner.endModal(); 
+		}
+		else {
+			downBox.text = tarFile.lastError
+		} 
+	}
+	downBox.download(url,pathCabinet,null,null,"" ) 
+	
+	if(!downBox.complete){ 
+		return;
+	} 
+	
+	if( ! ..io.exist(pathCabinet,4) ){  
+		return false; 
+	} 
+ 
+ 	var fileRootDir;
+ 	..fsys.enum( extraDir, "*.*",
+ 		function(dir,filename,fullpath,findData){ 
+ 			if(filename){ 
+ 				fileRootDir = dir;
+ 	           	return false;
+ 			} 
+ 		}  
+ 	);
+ 	if(!fileRootDir)return;
+ 	
+ 	var setupFile = ..fsys.joinpath(fileRootDir,"setup.dl.aardio")
+	if( ..io.exist(setupFile) ){
+		var handle = ..thread.create( setupFile ); 
+		if( ..win.isClosed() ){
+			..thread.wait(handle) 
+		}
+		else {
+			..thread.waitOne(handle) 
+		} 
+		..raw.closehandle(handle) 
+	}
+	return true; 		
+}
+
+saveFromUrl = function(url,path){ 
+	var http = ..inet.http(); 
+	http.disableCache();
+	
+	var bin,err = http.get(url); 
+	if(bin){ 
+		bin = ..sevenZip.lzma.unCompress(bin);
+		if(bin){
+			..string.save(path,bin) 
+			return true;
+		}
+	}
+	else {
+		return null,err;
+	}	
+}
+
+
+/**intellisense(sevenZip.lzma)
+httpFile = 网络安装包
+httpFile.headers =下载时添加的HTTP请求头
+httpFile.referer = 下载时的HTTP引用页
+httpFile.userAgent =  下载时用到的User Agent
+httpFile.preget = 首次连接慢的下载服务器请设为true
+httpFile.download(.(URL,对话框标题,下载目录,解压目录,存储文件名,父窗口) = 下载zip文件,除url以外,其他所有参数可选\n如果zip文件第一个包含文件的目录下包含 setup.dl.aau ,自动执行该文件安装
+httpFile.saveFromUrl(.(url,path) = 自url指定的网址下载lzma文件，\n并解压后保存到path指定的路径,\n适合下载小文件,建议放到线程中
+end intellisense**/

package/aardio/lib/sevenZip/lzma/tar.aardio

@@ -0,0 +1,25 @@
+//tar 内存解压
+import fsys.untar;
+import fsys.stream;
+import sevenZip.lzma;
+	
+namespace sevenZip.lzma;
+
+class tar{
+	ctor( data,extraDir ){
+		if( ! (extraDir?..io.createDir(extraDir) ) ) return null,"错误的存储目录";
+		
+		data = ..sevenZip.lzma.unCompress(data);
+		if(!data) return;
+		
+		var stream = ..fsys.stream(data,#data);
+		var tarFile = ..fsys.untar(stream,extraDir);
+		
+		for _ in tarFile.eachBlock(1){}
+		return true;
+	};
+}
+
+/**intellisense()
+sevenZip.lzma.tar(.(内存压缩数据,解压目录) = 用于内存快速解压小型 *.lzma.tar 压缩包
+end intellisense**/