45 lines
1.1 KiB
JavaScript
Executable File
45 lines
1.1 KiB
JavaScript
Executable File
/*
|
|
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;
|