aview-app 1.0.2

package/aardio/lib/string/conv/pinyin.aardio

@@ -0,0 +1,65 @@
+namespace string.conv;
+
+class pinyin{
+	ctor( q,separator,polyphone ){ {
+		if(!..string.find(q,":")){
+			q = ..string.lower(q)
+			var chars = pyToChars[q];
+			if(chars){ return chars;}
+			
+			for(py,chars in pyToChars){
+				if(..string.startWith(py,q) ){
+					return chars;
+				}
+			}
+			return {}; 
+		}
+		
+		var chars = ..string.split(q);
+		if(polyphone && (#chars==1)){
+			var ret = {}
+			for(p,c in pyToChars){
+				var i = ..table.find(c,chars[1]);
+				if( i ) ..table.push(ret,{p;i/#chars}); 
+			}
+			
+			..table.sort(ret,lambda(b)owner[2]<b[2]);
+			ret = ..table.map(ret,lambda(v)v[1]);
+			return ..string.join(ret,separator : " ");
+		}
+		
+		for(k,v in chars){
+			chars[k] = charToPy[v] : v
+		}
+			
+		return ..string.join(chars,separator : " ");	
+	} }; 
+}
+
+namespace pinyin{
+	pyToChars = eval($"~\lib\string\conv\.res\data.txt") 
+	charToPy = {}
+	
+	begin
+		var score = {}
+		for(py,chars in pyToChars){
+			chars = ..string.split(chars);
+			pyToChars[py] = chars;
+			
+			var len = #chars;
+			for(i,chr in chars){
+				var c = i/len;
+				if((!score[chr]) || (c<score[chr])){
+					charToPy[chr] = py;
+					score[chr] = c;
+				}  
+			} 
+		}  
+	end; 
+}
+	
+/**intellisense()
+string.conv.pinyin = 汉字转拼音
+string.conv.pinyin(.("汉字","分隔符") = 输入中文字符串，返回对应拼音,\n省略分隔符参数时,默认使用空格,\n如果参数@3为true，且参数为1个字符时返回文本可包含多音字
+string.conv.pinyin(.(拼音) = 输入单字拼音，返回对应字符数组\n可仅输入拼音开头部分,\n找不到结果返回空数组
+end intellisense**/

package/aardio/lib/string/database.aardio

@@ -0,0 +1,182 @@
+//database 文本数据
+namespace string;
+
+class database{
+	ctor(separator,quote){
+		this.separator = separator : '\t';
+		this.quote = quote : '"';
+		this.dataTable = {};
+	};
+	parse = function(str){
+		var sep = this.separator[1] : '\t'#;
+		var q = this.quote ? this.quote[1];
+		var dt = {};
+		var push = ..table.push; 
+		
+		var row = {};
+		var len = #str;
+		var chr;
+  
+		for(i=1;len;1){ 
+			chr = str[i];
+			if( chr == sep ) { push( row,""); continue;  }
+			if( chr == ' ' || chr == '\t') { continue;  }
+			
+			var col = {};
+			if( q ? chr == q ){
+				for(j=i+1;len;1){
+					i=j;
+					chr = str[j];
+					if( chr & 0x80 ){
+						push(col,chr)
+						continue ;
+					}
+					if( chr = q ) {
+						if( str[j+1] = q ){  j++; };
+						else{ break; }
+					}
+					push(col,chr);
+				}
+				
+				for(j=i+1;len;1){ 
+					chr = str[i+1];
+					if( chr == '\r'# || chr == '\n'# ) break;
+					if( chr == sep ){ 
+						if(#col)push(row,..string.pack(col)); 
+						else push(row,"");
+						i++;
+						col={};
+					}
+				}
+				
+				chr = str[i+1];
+				if( chr == '\r'# || chr == '\n'# ) {
+					if(#col)push(row,..string.pack(col));else push(row,"");
+					if(#row)push( dt,row )
+					row = {};
+					i++;
+					
+					if(chr == '\r'#  && str[i+1]=='\n'#){i++;}
+					continue; 
+				}
+			}
+			else {
+				for(j=i;len;1){
+					i=j;
+					chr = str[j];
+					if( chr & 0x80 ){
+						push(col,chr)
+						continue ;
+					}
+					if( chr = sep ) {
+						if(#col)push(row,..string.pack(col)); 
+						else push(row,"");
+						continue 2;
+					}
+					if( chr == '\r'# || chr == '\n'# ) { 
+						if(#col)push(row,..string.pack(col));else push(row,"");
+						
+						if(#row){ push( dt,row ) }
+						row = {}; 
+						
+						if(chr == '\r'#  && str[i+1]=='\n'#){i++;}
+						continue 2; 
+					}
+					push(col,chr);
+				}	
+			} 
+			
+			if(#col)push(row,..string.pack(col)); 
+		}  
+		
+		if(#row){ push( dt,row ) } 
+		
+		this.dataTable = dt;
+		return dt;
+	}
+	stringify = function(tab){ 
+		if(!tab){
+			tab = this.dataTable;
+			this.dataTable = {};
+		}
+		if( tab.fields ){
+			var fields = tab.fields;
+			var dt = { fields }
+			for(r=1;#tab;1){
+				var row = {};
+				for(i=1;#fields;1){
+					..table.push(row,tab[r][ fields[i] ] )
+				} 
+				..table.push(dt,row);
+			}
+			return this.stringify(dt);
+		}
+		
+		var q = this.quote;
+		var q2 = q ? ( q ++ q );
+		var dt = {};
+		for(r=1;#tab;1){
+			var row = tab[r];
+			var line = {};
+			for(c=1;#row;1){
+				var col = tostring(row[c]); 
+				if( q ){
+					if(  ..string.indexOf(col,this.separator )
+						|| (    ..string.indexOf(col,q ) ) ){
+						col = '"' + ..string.replace( col, "@@"+q, q2  ) + '"'; 
+					}
+				}
+				..table.push(line,col);
+			}
+			..table.push(dt,..string.join(line,this.separator) );
+		}
+		return ..string.join(dt,'\r\n');
+	}
+	stringifyA = function(tab){
+		return ..string.fromto(this.stringify(tab)); 
+	}
+	load = function(path,cp){
+		var s = ..string.load(path);
+		if( s[1] == 0xEF  && s[2] == 0xBB && s[3] == 0xBF ){
+			s = ..string.right(s,-4);
+		}
+		else {
+			s = ..string.fromto(s,cp:0,65001);
+		} 
+		return this.parse(s);
+	};
+	save = function(path,tab){
+		..string.save(path,'\xEF\xBB\xBF');
+		..string.save(path, this.stringify(tab) ,true );
+	};
+	saveA = function(path,tab){
+		..string.save(path, this.stringifyA(tab)  );
+	};
+	push = function(...){ 
+		if( type(...) == "table" ) ..table.push( this.dataTable,... );
+		else ..table.push( this.dataTable,{...} );
+	}; 
+}
+
+/**intellisense()
+string.database = TXT,CSV 格式数据库简单解析。\n注意文本数据规范不统一，不同的程序解析结果可能有差异。\n用法请参考：范例程序 / 数据库 / csv / string.database
+string.database(.(分隔符,文本包含符) = 创建 TXT,CSV 格式数据库解析器,\n参数可以省略,默认使用制表符作为分隔符,双引号包含文本
+string.database() = !string_database.
+!string_database.separator = 列分隔符
+!string_database.quote = 文本包含符
+!string_database.dataTable = 对象本身存储的数据表。\nparse 函数解析得到的数组会赋值并替换此属性。\npush 函数则默认向此数据表添加数据。\nstringify,stringifyA 函数在不指定参数时使用此数据表作为参数
+!string_database.parse( = 解析数据并返回得到的数组
+!string_database.parse(.(文本) = 解析数据并返回得到的数组。\n对象的 dataTable 属性也会被赋值并替换为这里返回的数组
+!string_database.stringify( = 数据表转换为 UTF8 文本
+!string_database.stringify(.(数据数组) = 数据表转换为 UTF8 文本\n如果不指定参数,则使用对象的 dataTable 属性作为参数
+!string_database.stringifyA( = 数据表转换为 ANSI 文本
+!string_database.stringifyA(.(数据数组) = 数据表转换为 ANSI 文本\n如果不指定参数,则使用对象的 dataTable 属性作为参数
+!string_database.push( = 添加数据到对象的 dataTable 属性指向的数据表
+!string_database.push(.(->->->) = 添加数据到对象的 dataTable 属性指向的数据表\n参数 @1 如果是表，则所有参数都作为数据行添加到 dataTable 数据表\n否则所有参数合并为一行数据并添加到 dataTable 数据表\n之后可以调用 stringify 函数生成文本
+!string_database.load( = 加载并解析文件
+!string_database.load(.(文件路径,代码页) = 加载并解析文件，返回数组,\n文件开头有 UTF-8 BOM 则以 UTF-8 编码读入内容,\n否则以参数 @2 指定的编码读入并转换为 UTF-8 编码，\n参数 @2 省略时默认值为 0，表示当前默认 ANSI 编码
+!string_database.save( = 以 UTF-8 编码写入文件
+!string_database.save(.(文件路径,数据数组) = 在指定文件写入 UTF-8 BOM，\n然后将数据以 UTF-8 编码、CSV 格式写入文件\n如果不指定参数,则使用之前调用 push 函数添加的数据
+!string_database.saveA( = 以 ANSI 编码写入文件
+!string_database.saveA(.(文件路径,数据数组) = 将数据以 ANSI 编码、CSV 格式写入文件\n如果不指定参数,则使用之前调用 push 函数添加的数据
+end intellisense**/

package/aardio/lib/string/encoding.aardio

@@ -0,0 +1,54 @@
+//encoding 字符编码
+import win.reg;
+namespace string.encoding;
+
+getCharset = function(cp){
+	if(cp===null) cp = ::Kernel32.GetACP();
+	if( type(cp) != type.number ) error("参数必须是数值",2);
+	if( __cache__[charset] )return __cache__[charset];
+	
+	var reg = ..win.regReader("HKEY_CLASSES_ROOT\MIME\Database\Codepage\" + cp );
+	if(reg) { 
+		var charset = reg.queryValue("BodyCharset");
+		reg.close(); 
+		return charset;
+	}
+}
+
+getCodepage = function(charset){
+	if( charset === null) return ::Kernel32.GetACP();
+	if( type(charset) != type.string ) error("参数必须是字符串",2);
+	charset = ..string.lower(charset);
+	if( __cache__[charset] )return __cache__[charset];
+	
+	var reg = ..win.regReader("HKEY_CLASSES_ROOT\MIME\Database\Charset\" + charset);
+	if( !reg ) return;
+	
+	var cp;	 
+	while( ;cp = reg.queryValue("InternetEncoding");!cp ) {
+		
+		charset = reg.queryValue("AliasForCharset");
+		reg.close();
+		
+		if( !charset ) break;
+		reg = ..win.regReader("HKEY_CLASSES_ROOT\MIME\Database\Charset\" + charset )
+		if( !reg ) break;
+	}
+	
+	reg.close()
+	return cp;
+}
+
+__cache__ = {
+	["gbk"] = 936;
+	["gb2312"] = 936;
+	["utf-8"] = 65001;
+	["utf8"] = 65001;
+	[936] = "gbk";
+	[65001]= "utf-8";
+}
+
+/**intellisense(string.encoding)
+getCharset(.(codepage) = 内码转换为字符集\n参数为数值表示的内码页,返回值为文本\n省略参数则使用默认内码页
+getCodepage(.(charset) = 字符集转换为内码\n参数为文本,返回数值
+end intellisense**/

package/aardio/lib/string/fontRanges.aardio

@@ -0,0 +1,117 @@
+//fontRanges 字体数据
+import gdi;
+import ustring;
+
+namespace string.fontRanges;
+
+getRanges = function(hdc){
+	var size= ::Gdi32.GetFontUnicodeRanges(hdc,null);
+ 	if(!size) return;
+ 	
+	var pGlyphSet = ..raw.buffer(size,{INT cbThis=size});
+	size = ::Gdi32.GetFontUnicodeRanges(hdc,pGlyphSet); 
+	
+	var glyphset = { 
+		INT cbThis;
+    	INT flAccel;
+    	INT cGlyphsSupported;
+    	INT cRanges;
+    	struct ranges[] ={INT length;{WORD wcLow;WORD cGlyphs} };
+    	findByCharCode  = function(charCode){
+    		var ranges = owner.ranges;
+    		for(i=#ranges;1;-1){
+    			var low = ranges[i].wcLow;
+    			if( charCode >= low ){
+    				if(charCode < low + ranges[i].cGlyphs) return charCode;
+    				return;
+    			} 
+    		}
+    	}
+    }
+ 
+	..raw.convert(pGlyphSet,glyphset.ranges,12);
+    return ..raw.convert(pGlyphSet,glyphset);
+}
+
+filter = function(fontName,input){
+    var glyphset;
+    if(type(fontName) == type.pointer){
+    	glyphset = getRanges(hdc)
+    }
+    else {
+    	glyphset = getRangesByName(fontName)
+    }
+    
+    var result  = {}
+    var push = ..table.push;
+    var charCodeAt = ..string.charCodeAt;
+    var len = ..string.len(input);
+
+    for(i=1;len;1){
+        var charCode = glyphset.findByCharCode( charCodeAt(input,i) ) ;
+    	if( charCode ){
+    		push(result, charCode);
+    	} 
+    } 
+    
+    return ..ustring.fromCharCode(result)
+}
+
+getRangesByName = function(fontName){
+    var font = ::LOGFONT(name=fontName) 
+	var lf = font.createIndirect();
+	if(!lf) return;
+	
+    var hdc = ::GetDC(0);
+	var of = ::SelectObject(hdc,lf);
+	var fontRange = getRanges(hdc);
+	::SelectObject(hdc,of);
+	::ReleaseDC(0,hdc);	
+	font.deleteIndirect();
+	
+	return fontRange; 
+}
+
+eachUnicodeGlyphs = function(fontName){
+    var fontRange = getRangesByName(fontName);
+    if(!fontRange) return lambda() null;
+    
+    var ranges = fontRange.ranges;
+    var ri,rg,gi,count = 0;
+    
+    return function(){
+        if( gi === count ) {
+            ri = ri + 1;
+        	rg = ranges[ri];
+        	if(!rg) return;
+        	
+        	low = rg.wcLow;
+        	count = rg.cGlyphs;
+        	gi = 0;
+        } 
+        
+        gi = gi + 1;
+    	return rg.wcLow + gi - 1;
+    }
+}
+
+getUnicodeString = function(fontName,first=0,last=0xFFFF){
+  	var glyphs = {}
+    for(glyph  in eachUnicodeGlyphs(fontName) ){ 
+    	if(glyph>=first && glyph<=last) ..table.push(glyphs,glyph);
+    }
+    
+   return .. ustring.fromCharCode(glyphs);	
+}
+
+/**intellisense()
+string.fontRanges = 用于获取字体支持的字符Unicode码列表
+string.fontRanges.getRanges(.(hdc) = 获取hdc参数中指定绘图设备正在使用的字体中所有字符的Unicode代码
+string.fontRanges.getRangesByName(.(fontName) = 获取fontName参数中指定字体名的字体中所有字符的Unicode代码
+string.fontRanges.getGlyphs(fontName) = @for(glyph in string.fontRanges.eachUnicodeGlyphsByName("FontAwesome") ){ 
+    if(glyph>=0xF000) {__/*glyph为字符的Unicode代码,可使用ustring.fromCharCode函数转换为字符*/}
+}
+string.fontRanges.getUnicodeString(.(fontName,first,last) = 返回指定字体名支持的所有字符,\n可选参数first用于指定起始Unicode代码,默认为0,\n可选参数last用于指定结束Unicode代码,默认为0xFFFF
+string.fontRanges.getRangesByName() = !stringFontRanges.
+!stringFontRanges.findByCharCode(__) = 参数@1指定的字符Unicode码,\n如果该字符使用该字体可显示，返回该Unicode码
+end intellisense**/

package/aardio/lib/string/fuzzyMatching.aardio

@@ -0,0 +1,98 @@
+//fuzzyMatching 模糊匹配
+namespace string; 
+
+var replace =  ..string.replace;
+var left = ..string.left;
+var right = ..string.right;
+var push = ..table.push;
+
+class fuzzyMatching{
+	ctor(str,m=":|<[\a\p]+>"){ 
+		
+		this.tmplate = {}
+		for t in ..string.gmatch( str,m) { 
+			..table.push(this.tmplate,"@"+t);
+		}
+		
+		this.length = ..string.len(str);
+		this.str = ..string.trim(str);
+	};
+	match = function(strCmp){ 
+		if(strCmp==this.str) return 1; 
+		if(!strCmp) return 0;
+		
+		var rs,rc = strCmp,0;  
+		var count = 0; 
+		for(i,t in this.tmplate){ 
+			rs,rc = replace(rs,t,"",1);
+			if(rc)count += rc;
+		}
+
+		var ls;
+		var str = this.str;
+		for(i=this.length;1;-1){ 
+			
+			if( left(str,i,true) == left(strCmp,i,true) ){ 
+				count += i; 
+				ls = i;
+				break;
+			} 
+		}; 
+		
+		
+		for(i=this.length;(ls:1);-1){ 
+			
+			if( right(str,i,true) == right(strCmp,i,true) ){ 
+				count += i;
+				break;
+			} 
+		}; 
+		
+		return count / ( ( this.length + #this.tmplate + ..math.abs(this.length-..string.len(strCmp)) )/100 )/100;
+	}; 
+	find = function(array,minSimilar){
+		var tMatch = {}
+		for(i=1;#array;1){
+			push(tMatch,{string=array[i];similar=this.match(array[i]);index=i })
+		}
+		..table.sort(tMatch,function(b){ 
+			return owner.similar > b.similar
+		} ); 
+		
+		var match = tMatch[1].string; 
+		if(minSimilar===null) minSimilar = 0.6;
+		if(minSimilar && tMatch[1].similar<minSimilar){
+			return; 
+		}
+		
+		return match,tMatch[1].similar,tMatch[1].index; 
+	}; 
+	search = function(strCmp,minSimilar){ 
+		if(minSimilar===null) minSimilar = 0.8; 
+		
+		var len  = ..string.len(strCmp); 
+		if(len < this.length ) {
+			return  this.match(strCmp) >= minSimilar; 
+		}
+		
+		if(..string.indexOf(strCmp,this.str)){
+			return true;
+		}
+		 
+		for(i=1;len-this.length+1;1){
+			var temp = ..string.slice(strCmp,i,i+this.length-1,true);
+			if(this.match(temp) >= minSimilar){ 
+				return true;
+			}
+		} 
+	};
+}
+
+/**intellisense()
+string.fuzzyMatching = 模糊匹配字符串
+string.fuzzyMatching("模板字符串") = 创建模糊匹配对象
+string.fuzzyMatching() = !string_fuzzyMatching.
+!string_fuzzyMatching.search(.(字符串,最小相似度) = 模糊检测参数传入的字符串是否包含模板字符串\n最小相似度默认为 0.8
+!string_fuzzyMatching.match(.(匹配字符串) = 返回文本相似度\n相似度为小数,最大相似为1,不相似为0\n比较规则为先比较相同字符数,\n然后再自左侧或右侧查找相同的最长字符串
+!string_fuzzyMatching.find(.(匹配字符串数组,最小相似度) = 在文本数组中查找最接近的字符串\n最小相似度为可选参数,默认值为 0.6,\n成功则返回值@1为找到的文本,\n返回值@2为相似度（小数,最大相似为1,不相似为0）,\n返回值 @3 为匹配索引,\n无匹配则返回 null
+end intellisense**/

package/aardio/lib/string/glob.aardio

@@ -0,0 +1,79 @@
+//glob 模式匹配
+namespace string;
+
+class glob{
+	ctor( pattern ){
+		this.push = function(pattern){
+			if(type(pattern) === "table"){
+				pattern = ..table.unique(pattern);
+				for(i=1;#pattern;1){
+					..table.push(this, convert(pattern[i]) )
+				}
+			}
+			else {
+				..table.push(this,convert(pattern))
+			} 		
+		}
+		
+		if(pattern){
+			this.push(pattern)	
+			pattern = null;
+		}	
+	}; 
+	load = function(path){
+		if(..io.exist(path)){
+			for(line in ..io.lines(path)){ 
+				line = ..string.trim(line);
+				line = ..string.replace(line,"/","\\");
+				
+				if(!#line) continue;
+				if(line[1]!='#'#) ..table.push(this,convert(line))
+			} 
+		}
+	};
+	clear = function(){
+		if(#this){
+			..table.splice(this,1,#this);	
+		}
+	};
+	test = function(str){
+		for(i=1;#this;1){
+			if( ..string.find(str,this[i] ) )return true;
+		}
+	};
+}
+
+namespace glob{
+	
+	convert = function(pattern){
+		if(pattern[1]==='^'){
+			return pattern
+		}
+		
+		var set = false;
+		return "^" + ..string.replace(pattern,"<\*\*>|\p",function(c) {
+			if(set) {
+				if( c==="]" ) { set = false; }
+				return c;
+			}
+			if( c==="*" ) return "[^\\]*?";
+			if( c==="**" ) return ".*?";
+			if( c==="?" ) return "[^\\]";
+			if( c==="[" ) { 
+				set = true;
+				return c;
+			}
+			
+			return "\"+c;
+		}) + "$" 
+	} 
+}
+
+/**intellisense()
+string.glob(__) = glob模式匹配工具,\n参数可以是符合glob语法的模式文本，或包含模式文本的数组\n可省略参数
+string.glob() = !string_blog.
+!string_blog.test(__) = 测试一个字符串是否匹配
+!string_blog.push(__) = 添加模式,\n参数可以是符合glob语法的模式文本，或包含模式文本的数组
+!string_blog.load(__) = 自文件加载并添加模式,不清空之前的模式,\n每行文本指定一个模式,#字符开头的为注释,\n忽略首尾空格，忽略空行
+!string_blog.clear() = 清空所有模式
+end intellisense**/