overlibmws_function.js

来自「实现图书的借阅和管理信息化」· JavaScript 代码 · 共 45 行

/*
 overlibmws_function.js plug-in module - Copyright Foteos Macrides 2002-2007. All rights reserved.
   For support of the FUNCTION feature.
   Initial: August 18, 2002 - Last Revised: January 1, 2007
 See the Change History and Command Reference for overlibmws via:

	http://www.macridesweb.com/oltest/

 Published under an open source license: http://www.macridesweb.com/oltest/license.html
*/

OLloaded=0;
OLregCmds('function');

// DEFAULT CONFIGURATION
if(OLud('function'))var ol_function=null;
// END CONFIGURATION

var o3_function=null;

function OLloadFunction(){
OLload('function');
}

function OLparseFunction(pf,i,ar){
var k=i,v=null;
if(k<ar.length){
if(ar[k]==FUNCTION){if(pf=='ol_'){if(typeof ar[k+1]!='number'){v=ar[++k];
ol_function=(typeof v=='function'?v:null);}}
else{OLudf=0;v=null;if(typeof ar[k+1]!='number')v=ar[++k];OLoptFUNCTION(v);}return k;}}
return -1;
}

function OLoptFUNCTION(callme){
o3_text=(callme?(typeof callme=='string'?(/.+\(.*\)/.test(callme)?eval(callme):
callme):callme()):(o3_function?o3_function():'No Function'));
return 0;
}

OLregRunTimeFunc(OLloadFunction);
OLregCmdLineFunc(OLparseFunction);

OLfunctionPI=1;
OLloaded=1;