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 //<![CDATA[ 2 3 4 /** 5 * @name Colorless echo JavaScript kit/library base framework 6 * @fileoverview 7 * 本檔案包含了呼叫其他 library 需要用到的 function，以及常用 base functions。 8 * 9 * Copyright (C) 2002-, kanashimi <kanasimi@gmail.com>. All Rights Reserved. 10 * 11 * This file is in tab wide of 4 chars, documentation with JsDoc Toolkit (<a href="http://code.google.com/p/jsdoc-toolkit/wiki/TagReference">tags</a>). 12 * 13 * Please visit <a href="http://lyrics.meicho.com.tw/program/">Colorless echo program room</a> for more informations. 14 * @since 自 function.js 0.2 改寫 15 * @since JavaScript 1.2 16 * @since 2009/11/17 01:02:36 17 * @author kanasimi@gmail.com 18 * @version $Id: ce.js,v 0.2 2009/11/26 18:37:11 kanashimi $ 19 */ 20 21 22 /* 23 引用：參照 24 function addCode 25 26 單一JS引用： 27 // [function.js]_iF 28 function _iF(){}_iF.p='HKCU\\Software\\Colorless echo\\function.js.path';if(typeof WScript=="object")try{eval(getU((new ActiveXObject("WScript.Shell")).RegRead(_iF.p)));}catch(e){} 29 function getU(p,enc){var o;try{o=new ActiveXObject('Microsoft.XMLHTTP');}catch(e){o=new XMLHttpRequest();}if(o)with(o){open('GET',p,false);if(enc&&o.overrideMimeType)overrideMimeType('text/xml;charset='+enc);send(null);return responseText;}} 30 // [function.js]End 31 32 33 初始化：參照 34 initialization of function.js 35 36 <script type="text/javascript" src="path/to/function.js"></script> 37 <script type="application/javascript;version=1.7" src="path/to/function.js"></script> 38 39 40 */ 41 42 43 //try{ 44 45 if (typeof CeL !== 'function') 46 //void( 47 (function(){ 48 49 var 50 /** 51 * debug level 52 * @ignore 53 */ 54 debug = 1 55 56 ,global 57 58 //,window 59 60 /** 61 * Will speed up references to undefined, and allows redefining its name. (from jQuery) 62 * 用在 return undefined 63 */ 64 //,undefined 65 66 ,_CeL 67 68 ,CeL 69 70 ,loaded_module 71 72 //,_base_function_to_extend 73 ; 74 75 76 // members of library ----------------------------------------------- 77 ; 78 79 80 /** 81 * Global Scope object 82 * 於 CeL.eval 使用 83 * @ignore 84 */ 85 global = this; // isWeb()?window:this; 86 87 88 /* 89 var _Global=(function(){return this;})(); 90 _Global.JustANumber=2; // var _GlobalPrototype=_Global.constructor.prototype;_GlobalPrototype.JustANumber=2; 91 if(typeof _Global=='undefined')_Global=this; 92 for(i in _Global)alert(i); 93 */ 94 95 // 若已經定義過，跳過。 96 if(typeof (global.CeL) !== 'undefined') 97 return; 98 99 100 /** 101 * Will speed up references to DOM: window, and allows redefining its name. (from jQuery) 102 * @ignore 103 */ 104 //window = this; 105 106 107 /** 108 * 本 JavaScript framework 的框架基本宣告 109 * base name-space declaration of JavaScript library framework 110 * @example 111 * // 判別是否已經 load 過 112 * if(typeof CeL !== 'function' || CeL.Class !== 'CeL') 113 * ; // CeL has not been loaded 114 * @name CeL 115 * @class Colorless echo JavaScript kit/library: base name-space declaration 116 */ 117 CeL = function(){ 118 // function CeL // declaration for debug 119 //this.global = arguments[0] || arguments.callee.ce_doc; 120 return new (arguments.callee.init.apply(null, arguments)); 121 }; 122 123 /** 124 * JavaScript library framework main class name. 125 * @see <a href="http://www.ecma-international.org/publications/files/ECMA-ST/ECMA-262.pdf">ECMA-262</a>: Class: A string value indicating the kind of this object. 126 * @constant 127 */ 128 CeL.Class = 'CeL'; 129 130 131 /** 132 * Map over main name-space in case of overwrite (from jQuery) 133 * @ignore 134 */ 135 _CeL = global.CeL; 136 global[CeL.Class] = CeL; 137 138 139 /** 140 * framework main prototype definition 141 * for JSDT: 有 prototype 才會將之當作 Class 142 */ 143 CeL.prototype = { 144 }; 145 146 147 148 149 // 取得執行script之path,在.hta中取代 WScript.ScriptFullName，%20的部分最好再加其他的… 150 CeL.get_script_full_name = function(){ 151 return typeof WScript === 'object'? WScript.ScriptFullName 152 : typeof location === 'object'? unescape(location.pathname) 153 : ''; 154 }; 155 // 取得執行script之名稱 156 CeL.get_script_name = function(){ 157 var n, i, j; 158 159 if (typeof WScript === 'object') { 160 n = WScript.ScriptName; 161 i = n.lastIndexOf('.'); 162 return i == -1 ? n : n.slice(0, i); 163 } 164 165 if (typeof location === 'object') { 166 n = unescape(location.pathname), j = n.lastIndexOf('.'); 167 if (!(i = n.lastIndexOf('\\') + 1)) 168 i = n.lastIndexOf('/') + 1; // location.pathname在.hta中會回傳'\'形式的path 169 return i < j ? n.slice(i, j) : n.substr(i); 170 } 171 172 return typeof document === 'object' ? document.title : ''; 173 }; 174 175 176 177 178 /** 179 * 取得/設定環境變數 enumeration 180 * （雖然不喜歡另開 namespace，但以 2009 當下的 JsDoc Toolkit 來說，似乎沒辦法創造 enumeration。） 181 * @class 環境變數 (environment variables) 與程式會用到的 library 相關變數。 182 * @param name 環境變數名稱 183 * @param value 環境變數之值 184 * @return 舊環境變數之值 185 */ 186 CeL.env = function(name, value) { 187 if (!name) 188 return undefined; 189 190 var _s = arguments.callee, v = _s[name]; 191 if (arguments.length > 1) 192 _s[name] = value; 193 return isNaN(v) ? '' + v : v; 194 }; 195 196 /** 197 * Setup environment variables 198 * @param {string}[OS_type] type of OS 199 * @return environment variables set 200 */ 201 CeL.initial_env = function(OS_type){ 202 //this.env = {}; 203 var OS, env = this.env; 204 205 /** 206 * library main file base name 207 * full path: {@link CeL.env.registry_path} + {@link CeL.env.main_script} 208 * @name CeL.env.main_script 209 */ 210 env.main_script = 'ce.js'; 211 212 /** 213 * module 中的這 member 定義了哪些 member 不被 extend 214 * @name CeL.env.not_to_extend_keyword 215 */ 216 env.not_to_extend_keyword = 'no_extend'; 217 218 /** 219 * 本 library source 檔案使用之 encoding 220 * 不使用會產生語法錯誤 221 * @name CeL.env.source_encoding 222 */ 223 env.source_encoding = 'UTF-16'; 224 225 /** 226 * default global object 227 * @name CeL.env.global 228 */ 229 env.global = global; 230 231 /** 232 * creator group 233 * @name CeL.env.company 234 */ 235 env.company = 'Colorless echo'; 236 env.registry_key = 'HKCU\\Software\\' + env.company + '\\' + this.Class 237 + '.path'; 238 //if(typeof WScript==='object') 239 try { 240 /** 241 * 存放在 registry 中的 path 242 * @name CeL.env.registry_path 243 */ 244 env.registry_path = (WScript.CreateObject("WScript.Shell")) 245 .RegRead(env.registry_key).replace(/[^\\\/]+$/, ''); 246 // this.log(env.registry_path); 247 } catch (e) { 248 // this.log(e.message); 249 } 250 251 252 //條件式編譯(条件コンパイル) for version>=4, 用 /*@ and @*/ to 判別 253 /*@cc_on 254 @if(@_PowerPC||@_mac) 255 OS='Mac'; 256 @else 257 @if(@_win32||@_win64||@_win16) 258 OS='DOS'; 259 @else 260 OS='unix'; // unknown 261 @end 262 @end@*/ 263 264 /** 265 * 本次執行所在 OS 平台 266 * @name CeL.env.OS 267 */ 268 env.OS = OS = typeof OS_type === 'string' ? OS_type 269 // 假如未設定則取預設值 270 : (OS || 'unix'); 271 272 /** 273 * 文件預設 new line 274 * @name CeL.env.new_line 275 */ 276 env.new_line= OS == 'unix' ? '\n' : OS == 'Mac' ? '\r' : '\r\n'; // in VB: vbCrLf 277 /** 278 * file system 預設 path separator 279 * platform-dependent path separator character, 決定目錄(directory)分隔 280 * @name CeL.env.path_separator 281 */ 282 env.path_separator = OS == 'unix' ? '/' : '\\'; 283 /** 284 * 預設 module name separator 285 * @name CeL.env.module_name_separator 286 */ 287 env.module_name_separator='.'; 288 /** 289 * path_separator in 通用(regular)運算式 290 * @name CeL.env.path_separator_RegExp 291 */ 292 env.path_separator_RegExp = this.to_RegExp_pattern ? this 293 .to_RegExp_pattern(env.path_separator) 294 : (env.path_separator == '\\' ? '\\' : '') + env.path_separator; 295 /** 296 * 預設語系 297 * 0x404:中文-台灣,0x0411:日文-日本 298 * @name CeL.env.locale 299 * @see <a href="http://msdn.microsoft.com/zh-tw/library/system.globalization.cultureinfo(VS.80).aspx">CultureInfo 類別</a> 300 */ 301 env.locale = 0x404; 302 303 /** 304 * script name 305 * @name CeL.env.script_name 306 */ 307 env.script_name = this.get_script_name(); 308 /** 309 * base path of library 310 * @name CeL.env.library_base_path 311 */ 312 env.library_base_path = this.get_script_full_name(); // 以reg代替 313 314 return env; 315 }; 316 317 318 319 320 /** 321 * Tell if it's now debugging. 322 * @param {int}[debug_level] if it's now in this debug level. 323 * @type boolean 324 * @return It's now debugging or in specified debug level. 325 */ 326 CeL.is_debug = function(debug_level){ 327 return typeof debug_level === 'undefined' ? debug 328 : debug == debug_level; 329 }; 330 331 /** 332 * Set debug level 333 * @param {int}[debug_level] The debug level to set. 334 * @type int 335 * @return debug level now 336 */ 337 CeL.set_debug = function(debug_level){ 338 if(typeof debug_level === 'undefined') 339 debug_level = 1; 340 341 if(!isNaN(debug_level)) 342 debug = debug_level; 343 344 return debug; 345 }; 346 347 348 /* 349 CeL.extend(function f_name(){}, object || string, initial arguments); 350 CeL.extend({name:function(){},.. }, object || string); 351 CeL.extend([function1,function12,..], object || string); 352 353 set .name 354 */ 355 356 /** 357 * 延展物件 (learned from jQuery) 358 * @since 2009/11/25 21:17:44 359 * @param variable_set variable set 360 * @param namespace extend to what namespace 361 * @param from_namespace When inputing function names, we need a base namespace to search these functions. 362 * @return CeL 363 * @see <a href="http://blog.darkthread.net/blogs/darkthreadtw/archive/2009/03/01/jquery-extend.aspx" accessdate="2009/11/17 1:24" title="jQuery.extend的用法 - 黑暗執行緒">jQuery.extend的用法</a> 364 */ 365 CeL.extend = function(variable_set, namespace, from_namespace){ 366 /* 367 if(this.is_debug()) 368 throw new Error(1, 'UNDO'); 369 */ 370 var _s, i, l; 371 372 if(typeof namespace === 'undefined' || namespace === null) 373 namespace = this; 374 375 if(typeof from_namespace === 'undefined') 376 from_namespace = this; 377 378 if(typeof variable_set === 'function'){ 379 <span class="K