aview-app 1.0.2

package/aardio/lib/string/html.aardio

@@ -0,0 +1,145 @@
+//html 简单解析器
+import string.xml;
+namespace string;
+
+class html{
+	ctor( str ){
+		this = ..string.xml(str,xmlElementType,optionalTags)
+	}; 
+}
+
+namespace html;
+    
+optionalTags = {
+    body={head=1};
+	li={li=1};
+	dt={dt=1;dd=1};
+	dd={dt=1;dd=1};
+	rt={rt=1;rp=1};
+	rp={rt=1;rp=1};
+	optgroup={optgroup=1;option=1};
+	option={option=1};
+	tbody={thead=1;tbody=1;th=1;tr=1;td=1;caption=1;colgroup=1;col=1};
+	tfoot={thead=1;tbody=1;tr=1;th=1;td=1;caption=1;colgroup=1;col=1};
+	thead={caption=1;colgroup=1;caption=1;col=1};
+	colgroup={colgroup=1;col=1;caption=1;};
+	tr={tr=1;td=1;th=1;caption=1;colgroup=1;col=1};
+	td={td=1;th=1};
+	th={td=1;th=1};
+	address={p=1};
+	article={p=1}; 
+	aside={p=1}; 
+	blockquote={p=1}; 
+	details={p=1}; 
+	div={p=1}; 
+	dl={p=1}; 
+	fieldset={p=1}; 
+	figcaption={p=1}; 
+	figure={p=1}; 
+	footer={p=1}; 
+	form={p=1}; 
+	h1={p=1}; 
+	h2={p=1}; 
+	h3={p=1}; 
+	h4={p=1}; 
+	h5={p=1}; 
+	h6={p=1}; 
+	header={p=1}; 
+	hr={p=1}; 
+	main={p=1}; 
+	nav={p=1}; 
+	ol={p=1}; 
+	p={p=1}; 
+	pre={p=1}; 
+	section={p=1}; 
+	table={p=1}; 
+	ul={p=1};
+}
+
+xmlElementType = {
+	//1 Void elements
+	area=1;base=1;br=1;col=1;embed=1;hr=1;img=1;input=1;link=1;meta=1;param=1;source=1;track=1;wbr=1; 
+
+    //2 Raw text elements
+	script=2;style=2;textarea=2;title=2;
+}
+
+var rep = ..string.replace;
+
+removeTag = function(html,tag,...){
+	var html = rep(html,"\<\!--.*?--\>" , "");
+    html = rep(html, "\<\s*<@@"+tag+"@>[^\>]*?\s*\>.*?\<\s*/<@@"+tag+"@>\s*>",""); 
+    html = rep(html, "\<\s*<@@"+tag+"@>!\W[^\>]*?\s*\>.+?\<\s*/","</");
+     html = rep(html, "\<\s*<@@"+tag+"@>!\W[^\>]*?\s*\>.+","");
+    if(!...) return html;
+    return removeTag(html,...);
+} 
+
+toXml = function(html){
+	var doc = ..string.html(html);
+	if(!doc) return;
+	
+	var dt = doc.queryEle(tagName="!doctype")
+	if(dt) dt.remove();
+	
+	var root = doc.queryEle(tagName="html") 
+	if(!root){ 
+		doc.tagName = (
+				doc.queryEle(tagName="body")  || doc.queryEle(tagName="head")
+			) ? "html" : "body";
+			
+		root = doc;
+	}
+	return `<?xml version="1.0" encoding="utf-8"?>` + root.outerXml(); 
+} 
+
+toText = function(html){ 
+	if(!html) return;
+	
+	var html = rep(html,"\<\!--.*?--\>" , "");
+	html = ..string.match(html,"\<\s*<@@body@>[^\>]*?\s*\>.+") : html;
+	html = removeTag(html,"head","style","script");
+
+	html = rep(html, 
+    	"\<\s*pre[^\>]*?\s*\>(.*?)\<\s*/pre\s*>",
+    	function(c){
+     		c = rep(c," ","&nbsp;");
+     		c = rep(c,'\n',"<br>");
+     		return c;
+    	}
+	);  
+	html = rep(html,"\s+"," ");
+	html = rep(html,"\<[bB][rR]\s*/*\>",'\r\n');
+	html = rep(html,"\</*[pP]\>",'\r\n');
+	html = rep(html,"\</div\>",'\r\n');
+	html = rep(html,"\</DIV\>",'\r\n');
+	html = rep(html,"\<.+?\>","");
+	
+	return ncr(html);
+}
+
+fromText = function(v){
+	if(!v) return;
+	v = rep(v,"@&",'&amp;');
+	v = rep(v,'@<',"&lt;");
+	v = rep(v,'@>',"&gt;");
+	v = rep(v,'@"',"&quot;"); 
+	v = rep(v,"@'","&apos;");
+	v = rep(v," ","&nbsp;");
+	v = rep(v,'\r\n',"<br>");
+	v = rep(v,'\n',"<br>");
+	v = rep(v,'\r',"<br>");
+	return v;
+}
+
+ncr =  ..string.xml.ncr;
+/**intellisense()
+string.html = HTML简单解析器\n\n严格的校验HTML语法正确性不是本模块的义务和目标,\n所以,此解析器尽可能兼容错误,兼容了HTML,SGML的部分规则:\n1、不要求存在根标签 \n2、尝试自动修正不配对的标记 \n3、在有必要的时候尝试忽略大小写\n支持识别HTML空标签、省略闭合标签规则
+string.html(__) = 创建HTML解析器,参数请指定包含HTML代码的字符串,\n调用string.xml解析HTML代码,用法与string.xml相同\n但支持识别HTML空标签、省略闭合标签规则
+string.html() = !string_xml.
+string.html.ncr(__) = NCR字符编码、HTML实体字符还原为UTF8文本
+string.html.toText(__/*HTML代码*/) = 将HTML代码转换为文本
+string.html.fromText(__/*普通文本*/) = 将普通文本转换为HTML
+string.html.removeTag(html,"script__") = 移除指定的html标记,支持不定个数的标记参数
+string.html.toXml(__/*HTML代码*/) = 将 HTML 代码转换为 XML 文本
+end intellisense**/

package/aardio/lib/string/intSegments.aardio

@@ -0,0 +1,52 @@
+//intSegments 整数列表
+namespace string;
+
+class intSegments{
+	ctor( str ){
+		
+		if(type(str)=="number"){
+			return {str}
+		}
+		elseif(type.isString(str) ){
+			var r = {}
+			var a = ..string.split(str,",");
+		 
+			for(i=#a;1;-1){
+				var b,e = ..string.match(a[i],"(\d+)\s*-\s*(\d+)");
+				if(b && e){
+					var p = {}
+					for(i=b;e;b>e?-1:1) ..table.push(p,i); 
+					..table.append(r,p);
+				}
+				else {
+					var n = tonumber(a[i]);
+					if(n) ..table.push(r,n);
+				}
+			} 
+  
+  			..table.sort(r);
+			return r; 
+		}
+		else {
+			return null;
+		} 
+	}; 
+}
+
+intSegments.each = function(str){
+	var a = ..string.intSegments(str); 
+	if(!a) return function(){}
+	
+	return function(i){
+		return ..table.next(a,i);
+	}
+}
+
+
+/**intellisense()
+string.intSegments = 用于解析文本格式的整数列表,支持区间表示法
+string.intSegments(__) = 解析参数@1指定的整数列表,\n并返回数值从小到大排序后的数组,\n\n参数@1可以指定单个数值,或用文本指定多个数值,\n文本中数值用逗号分隔,允许用 - 指定数值区间,\n例如："6881-6889,6999",\n参数@1传入非文本非数值参数返回 null
+string.intSegments.each(str) = @for i,num in ??.each(""){
+	__/*调用 string.intSegments 解析字符串获得数值数组,\n并遍历该数组*/
+}
+end intellisense**/

package/aardio/lib/string/keywords/_.aardio

@@ -0,0 +1,74 @@
+namespace string;
+
+class keywords{
+	ctor(keywords,codePage){
+		if(type.isString(keywords)) keywords = ..string.split(keywords,"|");
+		if(codePage!=null){
+			for(k,v in keywords) keywords[k] = ..string.fromto(v,65001,codePage);
+		}
+		
+		var keywordSizes = {}
+		for(i=1;#keywords) keywordSizes[i] = #keywords[i]; 
+		
+		this.keywords = keywords;//避免字符串失去引用被回收
+		var pKeywordSizes = ..raw.buffer({int items[]=keywordSizes});
+		var pKeyWords = ..raw.buffer({string items[]=keywords});
+		var keywordLength = #keywordSizes;
+		var dll = _dll;
+		
+		var result;
+		var push = ..table.push;
+		var getstr = ..raw.tostring;
+		this.callback = ..raw.tocdecl( function(p,n){
+			push(result,getstr(p,1,n));
+		},"void(ptr p,int len)") 
+		
+	};
+	findOne = function(data){
+		return dll.findOne(data,#data,pKeyWords,pKeywordSizes,keywordLength);
+	};
+	findAll = function(data){
+		return 0 == dll.findAll(data,#data,pKeyWords,pKeywordSizes,keywordLength);
+	};
+	anyMatchLines = function(data){
+		result = {}
+		dll.anyMatchLines(data,#data,pKeyWords,pKeywordSizes,keywordLength,this.callback);
+		return result;
+	};
+	allMatchLines = function(data){
+		result = {}
+		dll.allMatchLines(data,#data,pKeyWords,pKeywordSizes,keywordLength,this.callback);
+		return result;
+	};
+	noneMatchLines = function(data){
+		result = {}
+		dll.noneMatchLines(data,#data,pKeyWords,pKeywordSizes,keywordLength,this.callback);
+		return result;
+	};
+}
+
+namespace keywords{
+     _dll = ..raw.loadDll($"~/lib/string/keywords/.res/keywords.dll","string.keyword.dll","cdecl");
+}
+
+/**intellisense()
+string.keywords = 用于禁用模式匹配并快速搜索多关键字，区分大小写，\n支持非 UTF-8 编码文本或二进制数据
+string.keywords( = 创建关键字搜索 
+string.keywords(.(keywords) = 参数 @keywords 可用一个数组指定多个要搜索的字符串或 buffer\n也可以用一个字符串指定要搜索的关键字,多个关键字用竖线 | 分隔
+string.keywords(.(utf8Keywords,dataCodePage) = 参数 @keywords 可用一个数组指定多个要搜索的字符串或 buffer\n也可以用一个字符串指定要搜索的关键字,多个关键字用竖线 | 分隔,\n如果参数@1 指定的关键字使用默认的 UTF-8 编码,\n则允许用参数 @2 指定待搜索文本的代码页
+string.keywords() = !stdStringKeywords.
+end intellisense**/
+
+/**intellisense(!stdStringKeywords)
+findOne( = 查找任意关键字
+findOne(.(data) = 参数 @data 指定要搜索关键字的数据,\n@data 可以指定字符串、buffer、内存指针，\n找到任意关键字则返回非 0 值表示的关键字索引，\n否则返回 0
+findAll( = 查找全部关键字
+findAll(.(data) = 参数 @data 指定要搜索关键字的数据,\n@data 可以指定字符串、buffer、内存指针，\n找到所有关键字返回 true，否则返回 false
+anyMatchLines( = 查找所有包含任意关键字的文本行
+anyMatchLines(.(data) = 参数 @data 指定要搜索关键字的数据,\n@data 可以指定字符串、buffer、内存指针，\n返回一个数组包含所有找到任意关键字的文本行,\n返回文本行不包含行尾的回车换行，不修改文本编码
+allMatchLines( = 查找所有包含全部关键字的文本行
+allMatchLines(.(data) = 参数 @data 指定要搜索关键字的数据,\n@data 可以指定字符串、buffer、内存指针，\n返回一个数组包含所有找到全部关键字的文本行,\n返回文本行不包含行尾的回车换行，不修改文本编码
+noneMatchLines( = 查找所有不含任何关键字的文本行
+noneMatchLines(.(data) = 参数 @data 指定要搜索关键字的数据,\n@data 可以指定字符串、buffer、内存指针，\n返回一个数组包含所有找不到任何关键字的文本行,\n返回文本行不包含行尾的回车换行，不修改文本编码
+end intellisense**/
+

package/aardio/lib/string/list.aardio

@@ -0,0 +1,266 @@
+//list 字符串列表 
+namespace string;
+ 
+class list{ 
+    ctor(str,lineDelimiter,nameValueSeparator,quoteChar) {   
+    	this[-1] = { 
+    		lineDelimiter = lineDelimiter : '\r\n';
+    		nameValueSeparator = nameValueSeparator : '=';
+    		quoteChar = '""';
+    		quoteChars = {
+    			 ['\''#] = "''";
+				 ['"'#] = '""'; 
+				 ['{'#] = '{}';
+				 ['('#] = '()';
+				 ['['#] = '[]';
+			} 
+			
+			keys = {};
+			reserve = { each = 1; load = 1; save = 1;find=1;mixin=1}
+			reserveData = {};
+		};
+		if( quoteChar ){
+			this[-1].quoteChar = quoteChar;
+			this[-1].quoteChars[ quoteChar[1] ] = quoteChar;
+		}
+		
+        if( ( #str < 0x410/*_MAX_PATH_U8*/ ) && ( ..io.exist(str) ) ){
+        	this[-1].path = str;
+        	str = ..string.load(str);
+        }
+         
+        if(str) createList(this,str); 
+    };  
+    @ _metaProperty;  
+}
+ 
+namespace list {
+	import util.metaProperty;
+	
+	var push = ..table.push
+	var trim = ..string.trim;
+	var trimleft = ..string.trimleft;
+	var find = ..string.find;
+	var left = ..string.left;
+	var slice = ..string.slice;
+	var match = ..string.match;
+	
+	createList = function( this,s) {  
+		if(!#s) return;
+		var lineDelimiter = this[-1].lineDelimiter;
+		var nameValueSeparator = this[-1].nameValueSeparator;
+		var quoteChars = this[-1].quoteChars;
+		var keys = this[-1].keys;
+		var reserve = this[-1].reserve;
+		var reserveData = this[-1].reserveData;
+		if(lineDelimiter=='\r\n' || lineDelimiter=='\n' || lineDelimiter=='\n\r'){ lineDelimiter = "[\r\n]+" }
+		elseif( (lineDelimiter!="\s") && (lineDelimiter!="\s+") && lineDelimiter[1]!='['# ) lineDelimiter = "@" + lineDelimiter;
+		
+		nameValueSeparator = "@" + nameValueSeparator;
+		if(s[1] == 0xEF && s[2] == 0xBB & s[3] ==0xBF){
+			s = ..string.right(s,-4);
+		} 
+		
+		while( 
+    		var i,j,vi,vj,si,sj,q,k,v ;
+    		i,j = find(s, nameValueSeparator ); 
+    		i 
+		) {
+			k = trim( slice(s,1,i-1) );
+			s = trimleft( slice(s,j+1) ); 
+			si,sj = find(s,lineDelimiter); 
+			
+			if( si ){
+				q = quoteChars[s[1]]; 
+				if( q ){ 
+					vi,vj = find(s,"%\" + q )
+					if(vi){
+						v = slice(s,1,vj-1);  
+						si,sj = find(s,lineDelimiter,vj+1);
+						if(!si) {
+							v = s;
+							s = "";
+						}
+						else{
+							v = trim( slice(s,1,si-1) ); 
+							s = slice(s,sj+1);  
+						}
+					}
+					else { 
+						break;
+					} 
+				}
+				else {
+					v = trim( slice(s,1,si-1) );
+					s = trimleft( slice(s,sj+1) ); 	
+				}
+			} 
+			else { 
+				v =  s; 
+			} 
+
+			while( 
+			    var kl,kj;
+			    kl,kj = find(k,lineDelimiter);
+			    kl
+			) {
+				k = slice(k,kj+1);//作为注释忽略
+			} 
+			
+			if( !reserve[k] ){
+				if( !this[[k]] ) push(keys,k);
+				this[[k]] = trim(v);
+			}
+			else {
+				if( !reserveData[[k]] ) push(keys,k);
+				reserveData[[k]] = trim(v);
+			}
+			
+		}
+	}	 
+	
+	_metaProperty = ..util.metaProperty( 
+		_type = "object";
+		save = function(filepath){ 
+			if(filepath) owner[-1].path  = filepath;   
+    		..string.save(owner[-1].path  ,tostring(owner) )   
+    		return owner;
+    	}
+    	load = function(filepath){  
+    		if( ! #filepath ){
+    			error("请指定正确的文件路径",2)
+    		}  
+    		var str = ..string.load( filepath ) 
+    		if(!str) return;
+    		
+    		owner[-1].keys = {};
+    		owner[-1].reserveData = {}; 
+       		owner[-1].path  = filepath; 
+       		
+       		var cfg = owner[-1];
+       		for(k,v in owner){ owner[[k]]= null }
+       		owner[[-1]] = cfg;
+       		
+       		createList(owner,str);  
+       		return owner;
+    	};
+    	mixin = function(...){
+    		var cfg = owner[-1];
+    		var r = ..table.assign(owner,...);
+    		owner[-1] = cfg;
+    		return r;
+    	};
+		set = function(k,v) {   
+			k = tostring(k)
+			var keys = owner[-1].keys;
+			if( owner[[k]] === null ) ..table.push(keys,k);
+				
+			owner[[k]] = v;
+			return owner ; 
+		}; 
+		find = function(k,...){
+			var keys = owner[-1].keys;
+    		for(i=1;#keys){
+    			if( ..string.cmp( keys[i],k ) == 0) {
+    				k = keys[i];
+    				var v = owner[[k]];
+					if(owner[-1].reserve[k]) v = owner[-1].reserveData[k]; 
+    				return i,k,v; 
+    			}
+    		} 
+    		if(...) return owner.find(...);
+    	};  
+		each = function(){
+			var this = owner;
+			var keys = this[-1].keys;
+			var reserveData = owner[-1].reserveData; 
+			var reserve = owner[-1].reserve; 
+			
+			return function(i=0){
+				i++;
+				var k = keys[i]; 
+				if(!k)return;
+				
+				var v = this[[k]];
+				if(reserve[k]) v = reserveData[k]; 
+				return i,k,v
+			} 
+		}; 
+		_tostring = function(delimiter) {
+			var reserve = owner[-1].reserve; 
+			var reserveData = owner[-1].reserveData; 
+			var nameValueSeparator = owner[-1].nameValueSeparator; 
+			var lineDelimiter = owner[-1].lineDelimiter;
+			var quoteChars = owner[-1].quoteChars; 
+			var quoteChar = owner[-1].quoteChar; 
+			var keys = owner[-1].keys; 
+			if( not #keys ) return "";
+			
+			var lineDelimiter2 = lineDelimiter;
+			if( (lineDelimiter!="\s") && (lineDelimiter!="\s+") && lineDelimiter[1]!='['# ){
+				lineDelimiter = "@" + lineDelimiter;
+			}
+			else {
+				lineDelimiter2 = " ";
+			}
+			if(!delimiter) delimiter = lineDelimiter2;
+			
+			var k,v; 
+			var t = {};
+			for( i= 1 ; #keys){
+				k = keys[i];
+				v = owner[[ k ]];
+				if( reserve[k] ) v = reserveData[k];
+				
+				v = trim( tostring( v ) );
+				if( (!quoteChars[v[1]]) && quoteChar && ..string.find(v, lineDelimiter) ){
+					v = quoteChar[[1]] ++ v ++ quoteChar[[2]];
+				}
+    			push(t, ..string.concat( k,nameValueSeparator,v ) );
+			} 
+			return ..string.join(t,delimiter) ;
+		};
+		getConfiguration = function(){
+    		return owner[-1];
+    	} 
+    	separator = {
+    		_get = function(){
+    			return owner[-1].lineDelimiter
+    		};
+    		_set = function(v){
+    			owner[-1].lineDelimiter = v;
+    		} 
+    	}
+    	mark = {
+    		_get = function(v){
+    			return owner[-1].nameValueSeparator
+    		};
+    		_set = function(v){
+    			owner[-1].nameValueSeparator = v;
+    		}
+    	}
+	)
+}
+
+/**intellisense()
+string.list = 字符串列表
+string.list( = 创建字符串列表
+string.list(.(字符串,行分隔符,键值分隔符,引用符) = 第一个参数也可以是文件路径,所有参数可选\n行分隔符为"\s","\s+",或开始于"["字符时使用模式匹配语法\n如果使用了模式匹配,可在tostring的参数中指定拼接为字符串的行分隔符,不指定使用空格拼接,\n行分隔符不指定时默认为回车换行,\n\n键值分隔符默认为等号,\n\n引用符必须指字含两个单字节字符的字符串,例如两个引号，\n对于包含了分隔符的值,在生成字符串时自动置入引用符内。\n关于引用符请参考getConfiguration()函数说明，\n这里如果指定引用符则覆盖默认的quoteChar,quoteChars配置
+!stringlist.load("__/*文件路径*/") = 加载配置文件 
+!stringlist.save("__/*文件路径*/") = 保存配置文件
+!stringlist.save() = 保存配置文件\n!stringlist.
+!stringlist.mixin = @.mixin(\n	键 = 值__;\n)
+!stringlist.find("__/*键名*/") = 查找指定键所在位置,忽略大小写\n支持使用多个能有数指定多个查找键名,此函数将逐个查找,\n找到即返回返回三个值: 位置索引,键名,键值
+!stringlist.getConfiguration() = 返回配置\n!stringlistcfg.
+!stringlistcfg.lineDelimiter = 行分隔符,默认为回车换行
+!stringlistcfg.nameValueSeparator  = 键值对分隔符,默认为等号
+!stringlistcfg.quoteChars = 解析字符串时支持的引用符号\n默认为单双引号、大中小括号,\n可设为空表清空所有引用符号,\n引用符号内忽略行分隔符
+!stringlistcfg.quoteChar = 生成字符串使用的引用符号,默认为双引号\n如果某个键名对应的字符串值包含换行符,且没有包含在其他引用符内,\n在转换为文本格式的字符串列表时,自动添加此引用符
+!stringlistcfg.reserve = 保留名字表,不可修改
+!stringlistcfg.reserveData = 保留数据,不可手动修改
+!stringlist.each = @for i,k,v in ??.each() { 
+	io.print("顺序:"+i,"名字:"+k,"值:"+v )__ 
+}
+string.list() = !stringlist.
+!stringlist.load() = !stringlist.
+end intellisense**/