cejs

<html><head><meta http-equiv="content-type" content="text/html; charset=UTF-8"> <style> .KEYW {color: #933;} .COMM {color: #bbb; font-style: italic;} .NUMB {color: #393;} .STRN {color: #393;} .REGX {color: #339;} .line {border-right: 1px dotted #666; color: #666; font-style: normal;} </style></head><body><pre> 1 2 /** 3 * @name CeL data function 4 * @fileoverview 5 * 本檔案包含了 data 處理的 functions。 6 * @since 7 */ 8 9 10 if (typeof CeL === 'function') 11 CeL.setup_module('data', 12 { 13 require : 'data.native.to_fixed', 14 code : function(library_namespace, load_arguments) { 15 16 // requiring 17 var to_fixed; 18 eval(library_namespace.use_function(this)); 19 20 21 /** 22 * null module constructor 23 * @class data 處理的 functions 24 */ 25 CeL.data 26 = function() { 27 // null module constructor 28 }; 29 30 /** 31 * for JSDT: 有 prototype 才會將之當作 Class 32 */ 33 CeL.data 34 .prototype = { 35 }; 36 37 38 39 40 /* 41 eval(uneval(o)): IE 沒有 uneval 42 http://keithdevens.com/weblog/archive/2007/Jun/07/javascript.clone 43 44 way1: 45 return YAHOO.lang.JSON.parse( YAHOO.lang.JSON.stringify( obj ) ); 46 47 TODO: 48 1. 49 防止交叉參照版: try 50 var a=function(){this.a=1,this.b={a:this.a},this.a={b:this.b};},b=cloneObject(a); 51 .or. 52 var a={},b; 53 a.a={a:1}; 54 a.b={a:a.a}; 55 a.a={b:a.b}; 56 b=cloneObject(a); 57 58 恐須改成 59 =new cloneObject(); 60 61 62 2. 63 equal() 64 65 */ 66 CeL.data 67 . 68 clone_object = 69 /** 70 * clone native Object 71 * @param {Object} object 72 * @param {Boolean} not_trivial 73 * @return 74 * @since 2008/7/19 11:13:10 75 */ 76 function clone_object(object, not_trivial) { 77 if (!object || !(object instanceof Object) 78 // || typeof(object) != 'object' 79 ) 80 return object; 81 var i, r = new object.constructor(object); // o.constructor() 82 for (i in object) 83 // o[i]===o: 預防 loop, 但還是不能防止交叉參照 84 r[i] = not_trivial/* ||o[i]===o */? object[i] : clone_object(object[i], deep); 85 return r; 86 }; 87 88 89 /* 2004/5/5 90 輸入('"','dh"fdgfg')得到2:指向"的位置 91 */ 92 function getQuoteIndex(quote,str){ // quote:['"/]，[/]可能不太適用，除非將/[/]/→/[\/]/ 93 var i,l=0; 94 while(i=str.indexOf(quote,l),i>0&&str.charAt(i-1)=='\\') 95 if( str.slice(l,i-2).match(/(\\+)$/) && RegExp.$1.length%2 )break; 96 else l=i+1; 97 return i; 98 } 99 100 101 102 103 104 //{var a=[],b,t='',i;a[20]=4,a[12]=8,a[27]=4,a[29]=4,a[5]=6,a.e=60,a.d=17,a.c=1;alert(a);b=sortValue(a);alert(a+'\n'+b);for(i in b)t+='\n'+b[i]+' '+a[b[i]];alert(t);} 105 // 依值排出key array…起碼到現在，我還看不出此函數有啥大功用。 106 // array,否則會出現error! mode=1:相同value的以','合併,mode=2:相同value的以array填入 107 function sortValue(a,mode){ 108 var s=[],r=[],i,j,b,k=[]; 109 // 使用(i in n)的方法，僅有數字的i會自動排序；這樣雖不必用sort()，但數字亦會轉成字串。 110 for(i in a) 111 if((b=isNaN(i)?i:parseFloat(i)),typeof s[j=isNaN(j=a[i])?j:parseFloat(j)]=='undefined') 112 k.push(j),s[j]=b; 113 else if(typeof s[j]=='object')s[j].push(b); 114 else s[j]=[s[j],b]; 115 // sort 方法會在原地排序 Array 物件 116 for(i=0,k.sort(function(a,b){return a-b;});i<k.length;i++) 117 if(typeof(b=s[k[i]])=='object') 118 if(mode==1) 119 // b.join(',')與''+b效能相同 120 r.push(b.join(',')); 121 else if(mode==2)r.push(b); 122 else for(j in b)r.push(b[j]); 123 else r.push(b); 124 return r; 125 } 126 127 128 /* 2005/7/18 21:26 129 依照所要求的index(sortByIndex_I)對array排序。 130 sortByIndex_Datatype表某index為數字/字串或function 131 先設定sortByIndex_I,sortByIndex_Datatype再使用array.sort(sortByIndex); 132 133 example: 134 var array=[ 135 '123 avcf 334', 136 '131 hj 562', 137 '657 gfhj 435', 138 '131 ajy 52', 139 '345 fds 562', 140 '52 gh 435', 141 ]; 142 sortByIndex_I=[0,1],sortByIndex_Datatype={0:1,2:1}; 143 for(i in array)array[i]=array[i].split(' '); 144 array.sort(sortByIndex); 145 alert(array.join('\n')); 146 */ 147 var sortByIndex_I,sortByIndex_Datatype; 148 function sortByIndex(a,b){ 149 //alert(a+'\n'+b); 150 for(var i=0,n;i<sortByIndex_I.length;i++) 151 if(sortByIndex_Datatype[n=sortByIndex_I[i]]){ 152 if(typeof sortByIndex_Datatype[n]=='function'){ 153 if(n=sortByIndex_Datatype[n](a[n],b[n]))return n; 154 }else if(n=a[n]-b[n])return n; 155 }else if(a[n]!=b[n])return a[n]>b[n]?1:-1; 156 return 0; 157 } 158 159 /* 2005/7/18 21:26 160 依照所要求的index對array排序，傳回排序後的index array。 161 **假如設定了separator，array的元素會先被separator分割！ 162 163 example: 164 var array=[ 165 '123 avcf 334', 166 '131 hj 562', 167 '657 gfhj 435', 168 '131 ajy 52', 169 '345 fds 562', 170 '52 gh 435', 171 ]; 172 alert(getIndexSortByIndex(array,' ',[0,1],[0,2])); 173 alert(array.join('\n')); // 已被separator分割！ 174 175 */ 176 function getIndexSortByIndex(array, separator, indexArray, isNumberIndex) { 177 // 判定與事前準備(設定sortByIndex_I,sortByIndex_Datatype) 178 if (typeof indexArray === 'number') sortByIndex_I = [indexArray]; 179 else if (typeof indexArray !== 'object' || indexArray.constructor != Array) sortByIndex_I = [0]; 180 else sortByIndex_I = indexArray; 181 var i, sortByIndex_A = []; 182 sortByIndex_Datatype = {}; 183 if (typeof isNumberIndex == 'object') { 184 if (isNumberIndex.constructor == Array) { 185 sortByIndex_Datatype = {}; 186 for (i = 0; i < isNumberIndex.length; i++) sortByIndex_Datatype[isNumberIndex[i]] = 1; 187 } else sortByIndex_Datatype = isNumberIndex; 188 for (i in sortByIndex_Datatype) 189 if (isNaN(sortByIndex_Datatype[i]) || parseInt(sortByIndex_Datatype[i]) != sortByIndex_Datatype[i]) delete sortByIndex_Datatype[i]; 190 } 191 if (typeof array != 'object') return; 192 193 // main work: 可以不用重造array資料的話.. 194 for (i in array) { 195 if (separator) array[i] = array[i].split(separator); 196 sortByIndex_A.push(i); 197 } 198 sortByIndex_A.sort(function (a, b) { return sortByIndex(array[a], array[b]); }); 199 200 /* for: 重造array資料 201 var getIndexSortByIndexArray=array; 202 for(i in getIndexSortByIndexArray){ 203 if(separator)getIndexSortByIndexArray[i]=getIndexSortByIndexArray[i].split(separator); 204 sortByIndex_A.push(i); 205 } 206 sortByIndex_A.sort(function (a,b){return sortByIndex(getIndexSortByIndexArray[a],getIndexSortByIndexArray[b]);}); 207 */ 208 209 return sortByIndex_A; 210 } 211 212 213 //simpleWrite('char_frequency report3.txt',char_frequency(simpleRead('function.js')+simpleRead('accounts.js'))); 214 //{var t=reduceCode(simpleRead('function.js')+simpleRead('accounts.js'));simpleWrite('char_frequency source.js',t),simpleWrite('char_frequency report.txt',char_frequency(t));} // 所費時間：十數秒（…太扯了吧！） 215 CeL.data 216 . 217 /** 218 * 測出各字元的出現率。普通使用字元@0-127：9-10,13,32-126，reduce後常用：9,32-95,97-125 219 * 220 * @param {String} text 221 * 文檔 222 * @return 223 * @memberOf CeL.data 224 */ 225 char_frequency=function (text) { 226 var i, a, c = [], d, t = '' + text, l = t.length, used = '', unused = '', u1 = -1, u2 = u1; 227 for (i = 0; i < l; i++) 228 if (c[a = t.charCodeAt(i)]) 229 c[a]++; 230 else 231 c[a] = 1; 232 for (i = u1; i < 256; i++) 233 if (c[i]) { 234 if (u2 + 1 === i) 235 used += ',' + i, unused += (u2 < 0 ? '' : '-' + u2); 236 u1 = i; 237 } else { 238 if (u1 + 1 === i) 239 unused += ',' <span c