aview-app 1.0.2

package/aardio/lib/string/lrc.aardio

@@ -0,0 +1,209 @@
+//lrc 歌词解析
+namespace string;
+
+class lrc{
+	ctor( lrcText ){ {
+		var s = lrcText;
+		if( s[1] == 0xEF  && s[2] == 0xBB && s[3] == 0xBF ){
+			s = ..string.right(s,-4);
+		}
+		elseif( #s%2 == 0 ){
+			if ( s[1] == 0xFF  && s[2] == 0xFE ){
+				s = ..string.fromUnicode( ..string.right(s,-3) );
+			}
+			elseif ( s[1] == 0xFF  && s[2] == 0xFE ){
+				s = ..string.fromto( ..string.right(s,-3),1201,65001 );
+			}
+			elseif( s[2] == 0 && s[4] == 0 ) {
+				s = ..string.fromUnicode(s);
+			}
+			elseif( s[1] == 0 && s[3] == 0 ) {
+				s = ..string.fromto( s,1201,65001 );
+			}
+			elseif( !..string.isUtf8(s) ){
+				s = ..string.fromto(s,0,65001);
+			}
+		}
+		else {
+			if( !..string.isUtf8(s) ){
+				s = ..string.fromto(s,0,65001);
+			}
+		}
+		
+		lrcText = s;
+
+		var find = ..string.find;
+		var indexOf = ..string.indexOf;
+		var slice = ..string.slice;
+		var push = ..table.push;
+		var tokens = {}; 	
+	  
+		for line in ..string.lines(lrcText) { 
+			var lrcBegin = 1;
+			while( 
+			    var tagBegin,tagEnd = 0,0;
+			    tagBegin = indexOf(line,"[",tagEnd+1) ;
+			    tagBegin 
+			) { 
+				tagBegin,tagEnd,tag = find(line,"(\[.+?\])",tagEnd+1 )
+				if( !tag ) break ;
+				
+				tagBegin--;
+				if( lrcBegin < tagBegin  ) {
+					push( tokens,slice(line,lrcBegin,tagBegin ) )
+				} 
+				push( tokens,tag );   
+				
+				lrcBegin = tagEnd + 1 ;  
+			}
+			
+			if( lrcBegin > 1  && lrcBegin < #line ){
+				push( tokens,slice(line,lrcBegin,#line  ) )
+			} 
+		} 
+
+		var lrc = "";
+		var t,m,s,ms;
+		var match = ..string.match;
+		this.tags = {};
+		var lyric = {};
+		for(i=#tokens;1;-1){
+			var line = tokens[i];
+			if( line[1] != '\['# ){
+				lrc = line;
+				continue;
+			}
+			m,s,ms = match(line, "\[\s*(\d{2})\s*\:\s*(\d{2})\s*\.*\s*(\d*)\s*\]");
+			
+			if( m === null ){
+				var k,v = match( line,"\[\s*([^\:\s]+)\s*\:(.+)\s*\]$")
+				if(k)this.tags[k] = v;
+				lrc = null;
+			}
+			elseif(lrc) { 
+			    push( lyric,{ (tonumber(m,10):0)* 60 * 1000 + (tonumber(s,10):0) * 1000 + (tonumber(ms,10):0); lrc;i })
+			} 	
+		} 
+		  
+		..table.sort( lyric,function(b){
+			if( owner[1] ==  b[1] ) return owner[3] < b[3];//稳定排序
+			return owner[1] <  b[1]
+		} )
+
+		for(i=#lyric;2;-1){
+			if( lyric[i][2] == lyric[i-1][2] )
+				..table.remove(lyric,i);
+		} 
+		
+		this.lyric = lyric;  
+		this.offset =  this.tags.offset ? tonumber(this.tags.offset) : 0; 
+		this.tags.offset = null;
+		this.index = 1;
+	} }; 
+	each = function(){
+		var i = 0;
+		return function(){
+			i++;
+			var lrc = this.lyric[i];
+			if( lrc ) return lrc[2],lrc[1];
+		}; 
+	};
+	findLrc = function(ms){
+		var b,e,ms = this.find(ms);
+		if(!b) return; 
+		if( b == e ) return this.lyric[b][2],ms;
+	}; 
+	find = function(ms){
+		var lyric = this.lyric;
+		var idx = this.index;
+		var len = #lyric;
+		var offset = this.offset;
+
+		if( idx > len ) idx = 1;
+		elseif( lyric[idx][1] > ms ) idx = 1;
+		ms = ms + offset;
+
+		for(i=idx;len;1){
+			
+			if( lyric[i][1] > ms){
+				if( i <= 1 ) return; 
+				this.index = i; 
+				
+				var lrc = {}
+				var tm1 = lyric[i-1][1]; 
+				var b = i-1;
+				for( j=i-1;idx;-1 ){ 
+					if( lyric[j][1] < tm1 ) break;
+					b = j;
+				} 
+				return b,i-1,lyric[i][1]-ms;
+			} 
+		}
+	};
+	stringify = function(){
+		var push = ..table.push;
+		var map = {}
+		var lyric = {};
+		for( line,ms in this.each() ){ 
+    		if( map[line] ){
+    			push(map[line][2],ms);//重复歌词合并
+    		} 
+    		else {
+    			var lrc = {line;{ms}}
+    			map[line] = lrc;
+    			push( lyric,lrc );
+    		} 
+		} 
+		
+		var output = {};
+		for(k,v in this.tags){
+			push( output,"[" + k + ":" + v + "]" );
+		}
+		if( this.offset ){
+			push( output,"[offset:" + this.offset + "]" );
+		}
+		
+		for(i=1;#lyric;1){
+			var line = "";
+			var tms = lyric[i][2];
+			for(j=1;#tms;1){ 
+				var ms = tonumber(tms[j]);
+				var m,s = ..math.modf( ms/( 1000 * 60 ) );
+				var s,s2  = ..math.modf( s * 60 );
+				var ms = ..math.round( s2 * 1000 );
+				 if( !ms ){ 
+				 	 line = line + ..string.format("[%02d:%02d]",m,s)
+				 }
+				 else { 
+				 	 line = line + ..string.format("[%02d:%02d.%03d]",m,s,ms )
+				 } 
+			}
+			line = line + lyric[i][1]; 
+			push( output,line );
+		}
+		return ..string.join(output,'\r\n');
+	}
+}
+
+/**intellisense()
+string.lrc = 歌词解析
+string.lrc( __/*歌词文本*/ ) = 创建歌词解析器
+string.lrc() = !string_lrc.
+!string_lrc.find( = 查找歌词位置
+!string_lrc.find(.(当前时间) = 返回开始索引,结束索引,歌词持纪时间\n开始索引与结束索引不同则应显示多行歌词\n时间以毫秒为单位\n失败返回空值
+!string_lrc.findLrc( = 查找歌词
+!string_lrc.findLrc(.(当前时间) = 返回歌词,歌词持续时间\n时间以毫秒为单位\n失败返回空值
+!string_lrc.offset = 歌词提前时间\n负数表示延后
+!string_lrc.tags.ti = title\n歌词标题
+!string_lrc.tags.ar = artist\n歌手、演唱者
+!string_lrc.tags.al = album\n唱片集,专辑名
+!string_lrc.tags.by = by ...\nLRC文件制作者
+!string_lrc.tags.re = player/editor\n创建此LRC文件的程序
+!string_lrc.tags.ve = version\n程序的版本
+!string_lrc.index = 当前歌词索引
+!string_lrc.lyric = 歌词按时间排序后的数组\n每个歌词为一个数组,索引1为显示时间,索引2为歌词
+!string_lrc.each() = @for( line,ms in ??.each() ){
+    io.print( line,ms );__/*按时间索引排序遍历所有歌词*/ 
+}
+!string_lrc.stringify() = 重新生成歌词并返回字符串\n重复歌词将自动合并时间标记,并自动修正不规范格式
+end intellisense**/

package/aardio/lib/string/markdown/.res/autolink.c

@@ -0,0 +1,297 @@
+/*
+ * Copyright (c) 2011, Vicent Marti
+ *
+ * Permission to use, copy, modify, and distribute this software for any
+ * purpose with or without fee is hereby granted, provided that the above
+ * copyright notice and this permission notice appear in all copies.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+ * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+ * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+ * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+ * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+ */
+
+#include "buffer.h"
+#include "autolink.h"
+
+#include <string.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <ctype.h>
+
+#if defined(_WIN32)
+#define strncasecmp	_strnicmp
+#endif
+
+int
+sd_autolink_issafe(const uint8_t *link, size_t link_len)
+{
+	static const size_t valid_uris_count = 5;
+	static const char *valid_uris[] = {
+		"/", "http://", "https://", "ftp://", "mailto:"
+	};
+
+	size_t i;
+
+	for (i = 0; i < valid_uris_count; ++i) {
+		size_t len = strlen(valid_uris[i]);
+
+		if (link_len > len &&
+			strncasecmp((char *)link, valid_uris[i], len) == 0 &&
+			isalnum(link[len]))
+			return 1;
+	}
+
+	return 0;
+}
+
+static size_t
+autolink_delim(uint8_t *data, size_t link_end, size_t max_rewind, size_t size)
+{
+	uint8_t cclose, copen = 0;
+	size_t i;
+
+	for (i = 0; i < link_end; ++i)
+		if (data[i] == '<') {
+			link_end = i;
+			break;
+		}
+
+	while (link_end > 0) {
+		if (strchr("?!.,", data[link_end - 1]) != NULL)
+			link_end--;
+
+		else if (data[link_end - 1] == ';') {
+			size_t new_end = link_end - 2;
+
+			while (new_end > 0 && isalpha(data[new_end]))
+				new_end--;
+
+			if (new_end < link_end - 2 && data[new_end] == '&')
+				link_end = new_end;
+			else
+				link_end--;
+		}
+		else break;
+	}
+
+	if (link_end == 0)
+		return 0;
+
+	cclose = data[link_end - 1];
+
+	switch (cclose) {
+	case '"':	copen = '"'; break;
+	case '\'':	copen = '\''; break;
+	case ')':	copen = '('; break;
+	case ']':	copen = '['; break;
+	case '}':	copen = '{'; break;
+	}
+
+	if (copen != 0) {
+		size_t closing = 0;
+		size_t opening = 0;
+		size_t i = 0;
+
+		/* Try to close the final punctuation sign in this same line;
+		 * if we managed to close it outside of the URL, that means that it's
+		 * not part of the URL. If it closes inside the URL, that means it
+		 * is part of the URL.
+		 *
+		 * Examples:
+		 *
+		 *	foo http://www.pokemon.com/Pikachu_(Electric) bar
+		 *		=> http://www.pokemon.com/Pikachu_(Electric)
+		 *
+		 *	foo (http://www.pokemon.com/Pikachu_(Electric)) bar
+		 *		=> http://www.pokemon.com/Pikachu_(Electric)
+		 *
+		 *	foo http://www.pokemon.com/Pikachu_(Electric)) bar
+		 *		=> http://www.pokemon.com/Pikachu_(Electric))
+		 *
+		 *	(foo http://www.pokemon.com/Pikachu_(Electric)) bar
+		 *		=> foo http://www.pokemon.com/Pikachu_(Electric)
+		 */
+
+		while (i < link_end) {
+			if (data[i] == copen)
+				opening++;
+			else if (data[i] == cclose)
+				closing++;
+
+			i++;
+		}
+
+		if (closing != opening)
+			link_end--;
+	}
+
+	return link_end;
+}
+
+static size_t
+check_domain(uint8_t *data, size_t size, int allow_short)
+{
+	size_t i, np = 0;
+
+	if (!isalnum(data[0]))
+		return 0;
+
+	for (i = 1; i < size - 1; ++i) {
+		if (data[i] == '.') np++;
+		else if (!isalnum(data[i]) && data[i] != '-') break;
+	}
+
+	if (allow_short) {
+		/* We don't need a valid domain in the strict sense (with
+		 * least one dot; so just make sure it's composed of valid
+		 * domain characters and return the length of the the valid
+		 * sequence. */
+		return i;
+	} else {
+		/* a valid domain needs to have at least a dot.
+		 * that's as far as we get */
+		return np ? i : 0;
+	}
+}
+
+size_t
+sd_autolink__www(
+	size_t *rewind_p,
+	struct buf *link,
+	uint8_t *data,
+	size_t max_rewind,
+	size_t size,
+	unsigned int flags)
+{
+	size_t link_end;
+
+	if (max_rewind > 0 && !ispunct(data[-1]) && !isspace(data[-1]))
+		return 0;
+
+	if (size < 4 || memcmp(data, "www.", strlen("www.")) != 0)
+		return 0;
+
+	link_end = check_domain(data, size, 0);
+
+	if (link_end == 0)
+		return 0;
+
+	while (link_end < size && !isspace(data[link_end]))
+		link_end++;
+
+	link_end = autolink_delim(data, link_end, max_rewind, size);
+
+	if (link_end == 0)
+		return 0;
+
+	bufput(link, data, link_end);
+	*rewind_p = 0;
+
+	return (int)link_end;
+}
+
+size_t
+sd_autolink__email(
+	size_t *rewind_p,
+	struct buf *link,
+	uint8_t *data,
+	size_t max_rewind,
+	size_t size,
+	unsigned int flags)
+{
+	size_t link_end, rewind;
+	int nb = 0, np = 0;
+
+	for (rewind = 0; rewind < max_rewind; ++rewind) {
+		uint8_t c = data[-rewind - 1];
+
+		if (isalnum(c))
+			continue;
+
+		if (strchr(".+-_", c) != NULL)
+			continue;
+
+		break;
+	}
+
+	if (rewind == 0)
+		return 0;
+
+	for (link_end = 0; link_end < size; ++link_end) {
+		uint8_t c = data[link_end];
+
+		if (isalnum(c))
+			continue;
+
+		if (c == '@')
+			nb++;
+		else if (c == '.' && link_end < size - 1)
+			np++;
+		else if (c != '-' && c != '_')
+			break;
+	}
+
+	if (link_end < 2 || nb != 1 || np == 0 ||
+		!isalpha(data[link_end - 1]))
+		return 0;
+
+	link_end = autolink_delim(data, link_end, max_rewind, size);
+
+	if (link_end == 0)
+		return 0;
+
+	bufput(link, data - rewind, link_end + rewind);
+	*rewind_p = rewind;
+
+	return link_end;
+}
+
+size_t
+sd_autolink__url(
+	size_t *rewind_p,
+	struct buf *link,
+	uint8_t *data,
+	size_t max_rewind,
+	size_t size,
+	unsigned int flags)
+{
+	size_t link_end, rewind = 0, domain_len;
+
+	if (size < 4 || data[1] != '/' || data[2] != '/')
+		return 0;
+
+	while (rewind < max_rewind && isalpha(data[-rewind - 1]))
+		rewind++;
+
+	if (!sd_autolink_issafe(data - rewind, size + rewind))
+		return 0;
+
+	link_end = strlen("://");
+
+	domain_len = check_domain(
+		data + link_end,
+		size - link_end,
+		flags & SD_AUTOLINK_SHORT_DOMAINS);
+
+	if (domain_len == 0)
+		return 0;
+
+	link_end += domain_len;
+	while (link_end < size && !isspace(data[link_end]))
+		link_end++;
+
+	link_end = autolink_delim(data, link_end, max_rewind, size);
+
+	if (link_end == 0)
+		return 0;
+
+	bufput(link, data - rewind, link_end + rewind);
+	*rewind_p = rewind;
+
+	return link_end;
+}
+

package/aardio/lib/string/markdown/.res/autolink.h

@@ -0,0 +1,51 @@
+/*
+ * Copyright (c) 2011, Vicent Marti
+ *
+ * Permission to use, copy, modify, and distribute this software for any
+ * purpose with or without fee is hereby granted, provided that the above
+ * copyright notice and this permission notice appear in all copies.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+ * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+ * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+ * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+ * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+ */
+
+#ifndef UPSKIRT_AUTOLINK_H
+#define UPSKIRT_AUTOLINK_H
+
+#include "buffer.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+enum {
+	SD_AUTOLINK_SHORT_DOMAINS = (1 << 0),
+};
+
+int
+sd_autolink_issafe(const uint8_t *link, size_t link_len);
+
+size_t
+sd_autolink__www(size_t *rewind_p, struct buf *link,
+	uint8_t *data, size_t offset, size_t size, unsigned int flags);
+
+size_t
+sd_autolink__email(size_t *rewind_p, struct buf *link,
+	uint8_t *data, size_t offset, size_t size, unsigned int flags);
+
+size_t
+sd_autolink__url(size_t *rewind_p, struct buf *link,
+	uint8_t *data, size_t offset, size_t size, unsigned int flags);
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif
+
+/* vim: set filetype=c: */