aview-app 1.0.2

package/aardio/lib/fsys/dirWatcher.aardio

@@ -0,0 +1,135 @@
+//dirWatcher 目录监视器
+import fsys.file;
+import thread.command;
+
+namespace fsys;
+
+class dirWatcher{
+	ctor( dir ){
+		if( ! ..io.exist(dir) )
+			error("请指定正确的目录参数",2);
+			
+		this = ..fsys.file(dir,0x1/*_FILE_LIST_DIRECTORY*/
+			,7/*_FILE_SHARE_READ | _FILE_SHARE_WRITE | _FILE_SHARE_DELETE*/
+			,0x3/*_OPEN_EXISTING*/
+			,0x2000000/*_FILE_FLAG_BACKUP_SEMANTICS*/ );
+		
+		//buffer 必须32位对齐,不可大于64KB	
+		var buffer = ..raw.buffer(0x10000/*64KB*/); 
+	};
+	readDirectoryChanges = function( flags = 0x5F/*_FILE_NOTIFY_CHANGE_NORMAL_ALL*/,subTree=true){ 
+		var bufLen = #buffer; 
+		var ok,size = ReadDirectoryChangesW( owner.hfile,buffer,bufLen,subTree,flags,0,{} );
+		if( ok ){
+			var offset = 0; 
+			var entry = { 
+				INT NextEntryOffset;
+				INT Action;
+    			INT FileNameLength;
+			}
+			var changes = {}; 
+			var convert = ..raw.convert;
+			var push = ..table.push;
+			do{
+				
+				convert( buffer, entry,offset);  
+				var path = ..raw.tostring(buffer,offset + 13,offset + 12 + entry.FileNameLength );  
+				push(changes,{filename = ..string.fromUnicode(path);filenameW = path; action=entry.Action;actionText = ACTION_TEXT[entry.Action]});
+				offset = offset + entry.NextEntryOffset; 
+			}while(entry.NextEntryOffset ? ( offset + 14/*12+WCHAR*/ <= size ) )
+			return changes;
+		}  	
+	}; 
+	eachChanges = function( flags,subTree){
+		var shift = ..table.remove; 
+		var changes = this.readDirectoryChanges();
+		var item,action;
+		return function(){
+			var item = shift(changes);
+			if(!item){
+				changes = this.readDirectoryChanges(flags,subTree);
+				item =  shift(changes);
+			}
+			return item.filename,item.action,item.actionText,item
+		} 	
+	};
+}
+ 
+namespace dirWatcher{
+	ReadDirectoryChangesW = ::Kernel32.api( "ReadDirectoryChangesW", "bool(pointer hDir,pointer buf,INT len,bool subtree,INT filter,INT& bytesRet,struct overlapped, pointer completionRoutine)");
+ 
+	class FILE_NOTIFY_INFORMATION{
+    	INT NextEntryOffset;
+    	INT Action;
+    	INT FileNameLength;
+	} 
+	
+    ACTION_TEXT = {
+		[ 1/*_FILE_ACTION_ADDED*/ ] = "添加文件";
+		[ 2/*_FILE_ACTION_REMOVED*/ ] = "移除文件";
+		[ 3/*_FILE_ACTION_MODIFIED*/ ] = "文件被修改";
+		[ 4/*_FILE_ACTION_RENAMED_OLD_NAME*/ ] = "重命名:原文件名";
+		[ 5/*_FILE_ACTION_RENAMED_NEW_NAME*/ ] = "重命名:新文件名";
+	}	
+	
+	thread = class {
+		ctor( onFileChange,dir,flags,subTree){
+			this._dir = dir;
+			this.ptrStopKey =  ..raw.realloc(1);//构造一个进程唯一的指针地址
+			this.listener = ..thread.command();
+			this.listener.onFileChange = onFileChange;
+			..table.gc(this,"close");
+			
+			this._thrdHandle = ..thread.create( 
+				function(dir,hwndListener,flags,subTree,ptrStopKey){
+					import thread.command; 
+					import fsys.dirWatcher; 
+					
+					watcher = fsys.dirWatcher( dir );
+					for( filename,action,actionText,item in watcher.eachChanges(flags,subTree) ){
+						if ( ..thread.get(ptrStopKey) ) break;
+						thread.command.post(hwndListener,"onFileChange",filename,action,actionText,item.filenameW );  
+					} 
+				},dir,this.listener.hwnd,flags,subTree,this.ptrStopKey
+			) 
+		}; 
+		close = function(){ 
+			if(!this.ptrStopKey) return;
+			
+			this.listener.onFileChange = null;
+			..thread.set(this.ptrStopKey,true);
+			
+    		do{ 
+    			var file = ..fsys.file.temp(this._dir + "\fsys.dirWatcher.~") or ..fsys.file.temp( ..io.tmpname() );
+    			if( file ) file.close();
+    		}while(!..thread.waitOne(this._thrdHandle,1000) )
+    		
+    		this.ptrStopKey = ..raw.realloc(0,this.ptrStopKey)
+		} 
+	}
+	 
+}
+
+/**intellisense()
+fsys.dirWatcher = 目录监视器
+fsys.dirWatcher("__/*目录路径*/") = 创建目录监视器
+fsys.dirWatcher() = !dirWatcher.
+!dirWatcher.eachChanges(选项,是否监视子目录) = @for( filename,action,actionText in ??.eachChanges() ){
+	io.print( filename,actionText,action & 0x10/*_FILE_NOTIFY_CHANGE_LAST_WRITE*/ ) 
+}
+!dirWatcher.readDirectoryChanges(.(选项,是否监视子目录) = 读取目录发生的变更\n返回值为数组,数组成员为一个table对象\nfilename字段表明变更的目录,action字段表明变更类型\naction为 _FILE_NOTIFY_CHANGE_ 前缀的常量标志
+!dirWatcher.readDirectoryChanges() = !dirWatcherEntry.
+!dirWatcher.close() = 关闭
+!dirWatcherEntry.filename = 文件名
+!dirWatcherEntry.filenameW = Unicode文件名
+!dirWatcherEntry.action = 变更类型
+!dirWatcherEntry.actionText = 变更类型说明
+fsys.dirWatcher.thread(回调函数,监视目录,选项) = @.thread(\n	function(filename,action,actionText){\n		\n	},__/*监视目录路径*/ );
+fsys.dirWatcher.thread() = !fsys_dirWatcher_thread.
+!fsys_dirWatcher_thread.close() = 关闭对象
+_FILE_ACTION_ADDED=@1/*_FILE_ACTION_ADDED*/
+_FILE_ACTION_REMOVED=@2/*_FILE_ACTION_REMOVED*/
+_FILE_ACTION_MODIFIED=@3/*_FILE_ACTION_MODIFIED*/
+_FILE_ACTION_RENAMED_OLD_NAME=@4/*_FILE_ACTION_RENAMED_OLD_NAME*/
+_FILE_ACTION_RENAMED_NEW_NAME=@5/*_FILE_ACTION_RENAMED_NEW_NAME*/
+end intellisense**/

package/aardio/lib/fsys/dlg.aardio

@@ -0,0 +1,214 @@
+//dlg 文件对话框
+
+import fsys;
+namespace fsys.dlg;
+
+::Comdlg32 := ..raw.loadDll("comdlg32.dll");
+
+OPENFILENAME = class{
+	ctor( bufSize = 0x208/*_MAX_PATH_U16*/,defFile ){}
+	INT structSize = 0;
+	INT hwndOwner  = 0;
+	pointer instance ;
+	ustring filter;
+	pointer customFilter;
+	INT maxCustFilter = 0;
+	INT filterIndex = 1;
+	pointer file = ..raw.buffer(bufSize,..string.toUnicode(defFile):0 ); 
+	INT maxFile =  bufSize-1;
+	ustring fileTitle;
+	INT maxFileTitle = 0;
+	ustring initialDir;
+	ustring title;
+	INT flags = 0;
+	WORD fileOffset = 0;
+	WORD fileExtension = 0;
+	ustring defExt;
+	pointer lCustData;
+	pointer lpfnHook;
+	ustring lpTemplateName;
+	pointer pvReserved;
+	INT dwReserved = 0;
+	INT flagsEx = 0; 
+	
+	_prepare = function(){
+		this.structSize = ..raw.sizeof(this);  
+		this.initialDir =  ..io.exist(this.initialDir )  
+		
+		if(type(this.filter) == type.string){
+			this.filter = ..string.replace( ..string.fromUnicodeIf(this.filter),'@|','\0');
+			this.filter = ..string.trimright(this.filter,'\0');
+			this.filter = this.filter + '\0'u; 
+			
+			if( !this.defExt ){
+				this.defExt = ..string.match( this.filter,"\z.+?\.(\w+)");
+			};
+		}
+		else{
+			this.filter = '所有文件\0*.*\0'u; 
+		}
+
+		this.maxFileTitle = #(this.title);
+		if( type(this.customFilter) == type.string ){
+			this.customFilter = ..raw.buffer( 40 + #this.customFilter,this.customFilter); 
+		}
+		this.maxCustFilter = #(this.customFilter);  
+		
+		if(!this.hwndOwner){
+			this.hwndOwner = ::User32.GetActiveWindow();
+		}
+	};
+	_getFileName = function(){ 
+		var len = ..string.find(this.file,"\z\z\z\z+$");
+		if(len){ if( len%2) len = len - 1; } else len = #this.file;
+		file = ..string.fromUnicode(this.file,,len/2);
+			
+		if( this.flags & 0x200/*_OFN_ALLOWMULTISELECT*/){  
+			var rawFiles = ..string.split(file,'\0');
+			if(#rawFiles>1){
+				var dir = ..table.remove(rawFiles);
+				var files = {}
+				if( dir[#dir] != '\\'# )
+					dir += "\"
+				for( i,name in rawFiles){ 
+					files[i] = dir ++ name;
+				}
+				return files,rawFiles;
+				
+			}
+			return rawFiles;
+		}
+		return file;
+	};
+	open = function(){
+		this._prepare();
+		if( ::Comdlg32.GetOpenFileName(this) ){ 
+			return this._getFileName();
+		}
+	};
+	save = function(){
+		this._prepare();
+		if( ::Comdlg32.GetSaveFileName(this) ){
+			return this._getFileName();
+		}
+	} 
+} 
+ 
+openEx  = function(filter,title,initialDir,hwndOwner,flag = 0,bufSize = 52000,defFile){ 
+	ofn = OPENFILENAME( bufSize,defFile ); 
+  	ofn.initialDir = initialDir;
+  	ofn.filter = filter : '所有文件|*.*|'; 
+	ofn.title = title : "打开文件";
+	ofn.hwndOwner = hwndOwner[["hwnd"]] : hwndOwner; 
+	
+	ofn.flags = flag | 0x80000 /*_OFN_EXPLORER*/ | 0x200/*_OFN_ALLOWMULTISELECT*/; 
+	return ofn.open(); 
+}
+
+open  = function(filter,title,initialDir,hwndOwner,flag = 0,defFile){ 
+	ofn = OPENFILENAME(,defFile); 
+  	ofn.initialDir = initialDir;
+  	ofn.filter = filter : '所有文件|*.*||'; 
+	ofn.title = title : '打开文件' ;
+	ofn.hwndOwner = hwndOwner[["hwnd"]] : hwndOwner; 
+	 
+	ofn.flags = 0x80000 /*_OFN_EXPLORER*/ | flag; 
+	return ofn.open(); 
+}
+
+save  = function(filter,title,initialDir,hwndOwner,flag = 0,defFile){ 
+	ofn = OPENFILENAME( bufSize,defFile ); 
+  	ofn.initialDir = initialDir;
+  	ofn.filter = filter : '所有文件|*.*||'; 
+	ofn.title = title : '保存文件' ;
+	ofn.hwndOwner = hwndOwner[["hwnd"]] : hwndOwner; 
+	 
+	ofn.flags = 0x80000 /*_OFN_EXPLORER*/ | flag; 
+	return ofn.save();  
+}
+
+saveOp = function(filter,title,initialDir,hwndOwner,defFile){
+	return save(filter,title,initialDir,hwndOwner,2/*_OFN_OVERWRITEPROMPT*/,defFile);
+} 
+
+var BROWSEINFO = class {
+	int hwndOwner;
+	ptr pidlRoot;
+	ptr pszDisplayName;
+	ustring lpszTitle; 
+	INT ulFlags =  0xD5 ; //BIF_STATUSTEXT | BIF_NEWDIALOGSTYLE | BIF_EDITBOX | BIF_RETURNONLYFSDIRS | BIF_BROWSEINCLUDEURLS; 
+	ptr lpfn;
+	int lParam;
+	int iImage;
+}
+
+openDir = function(dir,hwndOwner,caption,title='请选择目录'u ){
+    dir = ..io.exist(dir) 
+
+	var browseCallbackProc = function( hwnd, uMsg, lp, pData) {  
+		select(uMsg) {
+			case 1/*_BFFM_INITIALIZED*/ {
+				if( dir ){
+					::User32.SendMessage(hwnd,0x467/*BFFM_SETSELECTIONW*/,1,dir);
+				}
+				if(caption){
+					::User32.SetWindowTextW(hwnd,caption );
+				}
+			}
+			case 2/*_BFFM_SELCHANGED*/ {
+				var path = ..fsys.pathFromIdList( lp ) 
+				if( #path ) ::User32.SendMessage(hwnd,0x0400+100/*BFFM_SETSTATUSTEXT*/,null,path); 
+			} 
+		}
+	}  
+	bi = BROWSEINFO();
+	bi.pszDisplayName = ..raw.buffer(0x208/*_MAX_PATH_U16*/);
+	bi.hwndOwner = hwndOwner[["hwnd"]] : hwndOwner;
+	bi.lpszTitle = title;
+	bi.lpfn = ..raw.tostdcall( browseCallbackProc ,"int(int,int,pointer,pointer)"); 
+	var path = ..fsys.pathFromIdList( topointer(::Shell32.SHBrowseForFolderW(bi)),true);
+	return path; 
+}
+
+opendir = openDir; //@Deprecated
+
+/**intellisense(fsys.dlg)
+OPENFILENAME(.(缓冲区大小,默认文件名) = 创建 OPENFILENAME 结构体
+openEx( = 打开选择多文件对话框
+openEx(.(指定文件类型,对话框标题,默认目录,父窗口,选项参数,缓冲区大小) = 打开选择多文件对话框，所有参数可选。\n文件类型以竖线分隔,并以坚线分隔类型说明与后缀名,例如\n"所有文件|*.*|文本文件|*.txt;*.md|"\n\n一个类型说明匹配多个后缀名应以分号分隔，\n第一个返回值为一个数组,包含一个或多个被选定的文件路径\n多选则会返回第二个数组值,包含被选目录路径以及多个文件名
+open( = 打开选择单文件对话框
+open(.(指定文件类型,对话框标题,默认目录,父窗口,选项参数,默认文件名) = 打开选择单文件对话框，所有参可选。\n文件类型以竖线分隔,并以坚线分隔类型说明与后缀名,例如\n"所有文件|*.*|文本文件|*.txt;*.md|"\n\n一个类型说明匹配多个后缀名应以分号分隔
+save( = 显示保存文件对话框框\n覆盖已存在的文件时不显示确认对话框。
+save(.(指定文件类型,对话框标题,默认目录,父窗口,选项参数,默认文件名) = 显示保存文件对话框框,所有参数为可选参数\n文件类型以竖线分隔,并以坚线分隔类型说明与后缀名,例如\n"所有文件|*.*|文本文件|*.txt;*.md|"\n\n一个类型说明匹配多个后缀名应以分号分隔
+saveOp( = 显示保存文件对话框框,\n覆盖已存在的文件时显示确认对话框（overwrite prompt）
+saveOp(.(指定文件类型,对话框标题,默认目录,父窗口,默认文件名) = 显示保存文件对话框框,\n覆盖已存在的文件时显示确认对话框。\n\n所有参数为可选参数\n文件类型以竖线分隔,并以坚线分隔类型说明与后缀名,例如\n"所有文件|*.*|文本文件|*.txt;*.md|"\n\n一个类型说明匹配多个后缀名应以分号分隔
+openDir( = 打开选择目录对话框，\n建议改用 fsys.dlg.dir
+openDir(.(目录__,父窗口,标题,窗口标题) = 打开选择目录对话框,\n所有参数都是可选参数,支持unicode字符串
+openDir(.() = 打开选择目录对话框\n参数支持unicode字符串
+end intellisense**/
+
+/**intellisense()
+fsys.dlg = 系统文件对话框。\n\n请注意：文件对话框会改变当前目录，导致相对路径（例如 "./res/"）位置变化。\n路径首字符用单个斜杠或反斜杆表示「应用程序根目录」的写法更可靠，\n例如：（例如 "/res/"）。\n\n可以使用 fsys.setCurDir 函数设置当前目录，\n很多组件（例如文件对话框）都可能会悄悄改变当前目录。\n而「应用程序根目录」则是固定不变的
+fsys.dlg.OPENFILENAME() = !OPENFILENAME.
+!OPENFILENAME.save() = 打开保存文件对话框,返回文件名
+!OPENFILENAME.open() = 打开文件对话框,返回文件名
+!OPENFILENAME.initialDir = 初始目录
+!OPENFILENAME.filter = 指定文件类型\n例如'所有文件|*.*|文本文件|*.txt|'u
+!OPENFILENAME.defExt = 默认后缀名
+!OPENFILENAME.title = 标题
+!OPENFILENAME.hwndOwner = 父窗口句柄
+!OPENFILENAME.flags = 一个或多个_OFN_前缀选项\n参考MSDN文档
+!OPENFILENAME.defaultFileName = 默认文件名
+_BIF_BROWSEFORCOMPUTER=@0x1000/*_BIF_BROWSEFORCOMPUTER*/
+_BIF_BROWSEFORPRINTER=@0x2000/*_BIF_BROWSEFORPRINTER*/
+_BIF_BROWSEINCLUDEFILES=@0x4000/*_BIF_BROWSEINCLUDEFILES*/
+_BIF_BROWSEINCLUDEURLS=@0x80/*_BIF_BROWSEINCLUDEURLS*/
+_BIF_DONTGOBELOWDOMAIN=@0x2/*_BIF_DONTGOBELOWDOMAIN*/
+_BIF_EDITBOX=@0x10/*_BIF_EDITBOX*/
+_BIF_RETURNFSANCESTORS=@0x8/*_BIF_RETURNFSANCESTORS*/
+_BIF_RETURNONLYFSDIRS=@0x1/*_BIF_RETURNONLYFSDIRS*/
+_BIF_SHAREABLE=@0x8000/*_BIF_SHAREABLE*/
+_BIF_STATUSTEXT=@0x4/*_BIF_STATUSTEXT*/
+_BIF_USENEWUI=@0x50/*_BIF_USENEWUI*/
+_BIF_VALIDATE=@0x20/*_BIF_VALIDATE*/
+end intellisense**/

package/aardio/lib/fsys/dlg.dir.aardio

@@ -0,0 +1,24 @@
+//dlg.dir 目录对话框
+import fsys.dlg;
+import com.interface.IFileOpenDialog;
+
+namespace fsys.dlg;
+
+class dir{
+	ctor(path,hwndOwner,title,okLabel,clientGuid,multiSel){
+		if(!hwndOwner){
+			hwndOwner = ::User32.GetActiveWindow();
+		}
+		
+		if(_WINXP){
+			return ..fsys.dlg.openDir(path,hwndOwner,title);
+		}
+		
+		return ..com.interface.IFileOpenDialog.dir(path,hwndOwner,title,okLabel,clientGuid,multiSel);
+	};
+}
+
+/**intellisense()
+fsys.dlg.dir( = 打开新版目录对话框,\nXP 系统自动降级为 fsys.dlg.openDir
+fsys.dlg.dir(.(path,hwndOwner,title,okLabel,clientGuid,multiSel) = 打开目录对话框,所有参数可省略,\n参数@path 指定打开的目录,\n参数@hwndOwner 指定父窗口,\n参数@title 指定窗口标题\n参数@okLabel 指定确定按钮上的文本,\n参数@clientGuid 指定单独存储对话框状态的GUID,\n参数@multiSel 如果为true，则允许选择多目录并返回数组,\n默认仅能选择单个目录并返回选中的路径,\n取消返回null
+end intellisense**/

package/aardio/lib/fsys/drives.aardio

@@ -0,0 +1,58 @@
+//drives 逻辑分区
+namespace fsys.drives;
+
+each = function(f,ds){  
+	var i = 1;
+	ds = ds || ::Kernel32.GetLogicalDrives();
+	return function(){
+		while(i<32){
+			i++;
+			if( ds & (1 << i) ) {
+				var d = ..string.pack('A'# + i) + ":";
+				var t = ::Kernel32.GetDriveType( d )
+				if(!f || (t === f) ) return d,t;
+			}
+		} 
+	}
+}
+
+eachFixed = function(){
+	return each(3/*_DRIVE_FIXED*/);
+}
+
+eachRemovable = function(){
+	return each(2/*_DRIVE_REMOVABLE*/);
+}
+
+get = lambda(ds,f) ..table.array(,each(f,ds));
+
+getFixed  = lambda() ..table.array(,each(3/*_DRIVE_FIXED*/));
+
+getRemovable  = lambda() ..table.array(,2/*_DRIVE_REMOVABLE*/);
+
+free = function(){ 
+	var dr = ::Kernel32.GetLogicalDrives();
+	for(i=2;31){ 
+		if( !( dr & (1<<i) ) ) return ..string.pack('A'# + i) + ":"
+	} 
+}
+
+/**intellisense(fsys.drives)
+get() = 返回包含所有逻辑分区的数组,按字母排序,\n可选用参数@1指定包含所有可用分区的数组,\n可选用参数@2 指定分区类型,\n可用分区类型请参考 ::Kernel32.GetDriveType 的文档
+getFixed() = 返回包含所有硬盘逻辑分区的数组,按字母排序,\n包含 USB 硬盘但不包含 U盘,\n可使用 sys.storage.isUsbDevice 函数检测 USB 存储设备*/
+getRemovable() = 返回包含所有移动盘逻辑分区的数组,按字母排序
+each(driveType) = @for drive,driveType in ??.each() {
+	__/*按字母序遍历所有逻辑分区,\n可选在参数中用一个数值指定分区类型,例如 _DRIVE_FIXED,\n返回值 drive 为盘符,以冒号结束,\ndriveType 为分区类型,请参考 ::Kernel32.GetDriveType 的文档 */
+}
+eachFixed() = @for drive in ??.eachFixed() {
+	__/*按字母序遍历所有硬盘逻辑分区,\n迭代变量 drive 为盘符,以冒号结束,\n注意 USB 硬盘也会遍历到,\n但忽略普通 U盘,\n可使用 sys.storage.isUsbDevice 函数检测 USB 存储设备*/
+}
+eachRemovable() = @for drive in ??.eachRemovable() {
+	__/*按字母序遍历所有移动盘逻辑分区,这个一般指的是 U盘,\n迭代变量 drive 为盘符,以冒号结束,\n可使用 sys.storage.isUsbDevice 函数检测是否 USB 存储设备*/
+}
+free() = 返回首个未使用的可用盘符
+end intellisense**/
+
+/**intellisense()
+fsys.drives = 逻辑分区相关函数。\n相关库：sys.volume , sys.storage
+end intellisense**/

package/aardio/lib/fsys/environment.aardio

@@ -0,0 +1,58 @@
+//environment 环境变量
+import fsys;
+namespace fsys.environment;
+
+PathExpandEnvironmentStrings = ::Kernel32.api( "ExpandEnvironmentStringsW", "INT(ustring lpSrc,ustring &lpDst,INT nSize)");
+PathUnExpandEnvStrings = ::Shlwapi.api( "PathUnExpandEnvStringsW", "bool(ustring pszPath,ustring &pszBuf,INT cchBuf)"); 
+__paths__ = {
+	{ "%Desktop%";..fsys.getSpecial(0 /*_CSIDL_DESKTOP*/) }; 
+	{ "%CommonProgramFiles%";..fsys.getSpecial(0x17 /*_CSIDL_COMMON_PROGRAMS*/) }; 
+	{ "%MyDocuments%";..fsys.getSpecial(0x5 /*_CSIDL_MYDOCUMENTS*/ ) };
+	{ "%AppData%";..fsys.getSpecial(0x1a /*_CSIDL_APPDATA*/) };
+	{ "%DefaultAppData%";..fsys.getSpecialDefault(0x1a /*_CSIDL_APPDATA*/) };
+	{ "%CommonAppData%";..fsys.getSpecial(0x23 /*_CSIDL_COMMON_APPDATA*/) };
+	{ "%LocalAppData%";..fsys.getSpecial(0x1c /*_CSIDL_LOCAL_APPDATA*/) };
+	{ "%DefaultLocalAppData%";..fsys.getSpecialDefault(0x1c /*_CSIDL_LOCAL_APPDATA*/) }; 
+} 
+..table.sort( __paths__, function(p){ return #p[2] < #owner[2]  } );
+	
+expand = function(path){
+	if(path){
+		if( ..io.localpath(path) ) return ..io.localpath(path);
+		
+		path = ..string.replace( path,"%\%\%",function(v){
+			for(i=1;#__paths__;1){
+				if( ..string.cmp( v,__paths__[i][1]) == 0 ) return __paths__[i][2];
+			}
+		} )
+		
+		var len,str = PathExpandEnvironmentStrings(path,0x208/*_MAX_PATH_U16*/,0x104/*_MAX_PATH*/); 
+		if(len) return str;
+	}
+}
+
+unExpand = function(path){
+	if(#path ? path[1] != '\\'# ? path[1] != '/'# ){
+		if(path[1] == '%'#) path = expand(path);
+		
+		var relative = ..fsys.path.relative;
+		for(i=1;#__paths__;1){
+			var sub = relative(path,__paths__[i][2],true); 
+    		if( sub ) {
+    			path = __paths__[i][1];
+    			if sub != "\." path = path + sub;
+    			return path; 
+    		} 
+		}
+    	
+		var ok,str = PathUnExpandEnvStrings(path,0x208/*_MAX_PATH_U16*/,0x104/*_MAX_PATH*/); 
+		if(ok) return str;
+		return path;
+	}
+	return path;
+}
+
+/**intellisense(fsys.environment)
+expand(.(路径) = 展开路径中的环境变量\n如果是斜杠或~开关的路径直接调用 io.localpath 函数转换为绝对路径
+unExpand(.(路径) = 将路径中适合的部分替换为环境变量格式
+end intellisense**/