wmi-1.3.16 from opsview.com
This commit is contained in:
Are Casilla
+785
@@ -0,0 +1,785 @@
|
||||
/*
|
||||
* @file ejsGlobal.c
|
||||
* @brief EJS support methods
|
||||
*/
|
||||
/********************************* Copyright **********************************/
|
||||
/*
|
||||
* @copy default
|
||||
*
|
||||
* Copyright (c) Mbedthis Software LLC, 2003-2006. All Rights Reserved.
|
||||
* Copyright (c) Michael O'Brien, 1994-1995. All Rights Reserved.
|
||||
*
|
||||
* This software is distributed under commercial and open source licenses.
|
||||
* You may use the GPL open source license described below or you may acquire
|
||||
* a commercial license from Mbedthis Software. You agree to be fully bound
|
||||
* by the terms of either license. Consult the LICENSE.TXT distributed with
|
||||
* this software for full details.
|
||||
*
|
||||
* This software is open source; you can redistribute it and/or modify it
|
||||
* under the terms of the GNU General Public License as published by the
|
||||
* Free Software Foundation; either version 2 of the License, or (at your
|
||||
* option) any later version. See the GNU General Public License for more
|
||||
* details at: http://www.mbedthis.com/downloads/gplLicense.html
|
||||
*
|
||||
* This program is distributed WITHOUT ANY WARRANTY; without even the
|
||||
* implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||||
*
|
||||
* This GPL license does NOT permit incorporating this software into
|
||||
* proprietary programs. If you are unable to comply with the GPL, you must
|
||||
* acquire a commercial license to use this software. Commercial licenses
|
||||
* for this software and support services are available from Mbedthis
|
||||
* Software at http://www.mbedthis.com
|
||||
*
|
||||
* @end
|
||||
*/
|
||||
/********************************** Includes **********************************/
|
||||
|
||||
#include "ejs.h"
|
||||
|
||||
#if BLD_FEATURE_EJS
|
||||
|
||||
/******************************************************************************/
|
||||
/************************************* Code ***********************************/
|
||||
/******************************************************************************/
|
||||
/*
|
||||
* assert(condition)
|
||||
*/
|
||||
|
||||
static int assertProc(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
|
||||
{
|
||||
int b;
|
||||
|
||||
if (argc < 1) {
|
||||
ejsError(ep, EJS_ARG_ERROR, "usage: assert(condition)");
|
||||
return -1;
|
||||
}
|
||||
b = ejsVarToBoolean(argv[0]);
|
||||
if (b == 0) {
|
||||
ejsError(ep, EJS_ASSERT_ERROR, "Assertion failure at line %d",
|
||||
ejsGetLineNumber(ep));
|
||||
return -1;
|
||||
}
|
||||
ejsWriteVarAsBoolean(ep, ep->result, b);
|
||||
return 0;
|
||||
}
|
||||
|
||||
/******************************************************************************/
|
||||
/*
|
||||
* breakpoint(msg)
|
||||
*/
|
||||
|
||||
static int breakpointProc(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
|
||||
{
|
||||
char *buf;
|
||||
|
||||
if (argc < 1) {
|
||||
return 0;
|
||||
}
|
||||
buf = ejsVarToString(ep, argv[0]);
|
||||
if (buf) {
|
||||
mprBreakpoint(0, buf);
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
/******************************************************************************/
|
||||
/*
|
||||
* basename(path)
|
||||
*/
|
||||
|
||||
static int basenameProc(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
|
||||
{
|
||||
char *path;
|
||||
|
||||
if (argc != 1) {
|
||||
ejsError(ep, EJS_ARG_ERROR, "usage: basename(path)");
|
||||
return -1;
|
||||
}
|
||||
|
||||
path = ejsVarToString(ep, argv[0]);
|
||||
if (path == 0) {
|
||||
return MPR_ERR_MEMORY;
|
||||
}
|
||||
ejsSetReturnValueToString(ep, mprGetBaseName(path));
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
/******************************************************************************/
|
||||
/*
|
||||
* stripext(path)
|
||||
*/
|
||||
|
||||
static int stripextProc(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
|
||||
{
|
||||
char *cp, *path, *stripPath;
|
||||
|
||||
if (argc != 1) {
|
||||
ejsError(ep, EJS_ARG_ERROR, "usage: stripext(path)");
|
||||
return -1;
|
||||
}
|
||||
|
||||
path = ejsVarToString(ep, argv[0]);
|
||||
if (path == 0) {
|
||||
return MPR_ERR_MEMORY;
|
||||
}
|
||||
stripPath = mprStrdup(ep, path);
|
||||
|
||||
if ((cp = strrchr(stripPath, '.')) != 0) {
|
||||
*cp = '\0';
|
||||
}
|
||||
|
||||
ejsSetReturnValueToString(ep, stripPath);
|
||||
|
||||
mprFree(stripPath);
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
/******************************************************************************/
|
||||
/*
|
||||
* dirname(path)
|
||||
*/
|
||||
|
||||
static int dirnameProc(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
|
||||
{
|
||||
char *path;
|
||||
char dirname[MPR_MAX_FNAME];
|
||||
|
||||
if (argc != 1) {
|
||||
ejsError(ep, EJS_ARG_ERROR, "usage: dirname(path)");
|
||||
return -1;
|
||||
}
|
||||
|
||||
path = ejsVarToString(ep, argv[0]);
|
||||
if (path == 0) {
|
||||
return MPR_ERR_MEMORY;
|
||||
}
|
||||
|
||||
ejsSetReturnValueToString(ep,
|
||||
mprGetDirName(dirname, sizeof(dirname), path));
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
/******************************************************************************/
|
||||
/*
|
||||
* trim(string) -- trim white space
|
||||
*/
|
||||
|
||||
static int trimProc(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
|
||||
{
|
||||
char *str, *buf, *cp;
|
||||
|
||||
if (argc != 1) {
|
||||
ejsError(ep, EJS_ARG_ERROR, "usage: trim(string)");
|
||||
return -1;
|
||||
}
|
||||
|
||||
str = ejsVarToString(ep, argv[0]);
|
||||
if (str == 0) {
|
||||
return MPR_ERR_MEMORY;
|
||||
}
|
||||
str = buf = mprStrdup(ep, str);
|
||||
|
||||
while (isspace(*str)) {
|
||||
str++;
|
||||
}
|
||||
cp = &str[strlen(str) - 1];
|
||||
while (cp >= str) {
|
||||
if (isspace(*cp)) {
|
||||
*cp = '\0';
|
||||
} else {
|
||||
break;
|
||||
}
|
||||
cp--;
|
||||
}
|
||||
|
||||
ejsSetReturnValueToString(ep, str);
|
||||
|
||||
mprFree(buf);
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
/******************************************************************************/
|
||||
/*
|
||||
* Terminate the script
|
||||
*/
|
||||
|
||||
static int exitScript(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
|
||||
{
|
||||
int status;
|
||||
|
||||
if (argc != 1) {
|
||||
ejsError(ep, EJS_ARG_ERROR, "usage: exit(status)");
|
||||
return -1;
|
||||
}
|
||||
status = (int) ejsVarToInteger(argv[0]);
|
||||
ejsExit(ep, status);
|
||||
|
||||
ejsWriteVarAsString(ep, ep->result, "");
|
||||
return 0;
|
||||
}
|
||||
|
||||
/******************************************************************************/
|
||||
/*
|
||||
* include javascript libraries.
|
||||
*/
|
||||
|
||||
static int includeProc(Ejs *ep, EjsVar *thisObj, int argc, char **argv)
|
||||
{
|
||||
int i;
|
||||
|
||||
mprAssert(argv);
|
||||
|
||||
for (i = 0; i < argc; i++) {
|
||||
if (ejsEvalFile(ep, argv[i], 0) < 0) {
|
||||
return -1;
|
||||
}
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
/******************************************************************************/
|
||||
/*
|
||||
* include javascript libraries at the global level
|
||||
*/
|
||||
|
||||
static int includeGlobalProc(Ejs *ep, EjsVar *thisObj, int argc, char **argv)
|
||||
{
|
||||
int fid, i;
|
||||
|
||||
mprAssert(argv);
|
||||
|
||||
/*
|
||||
* Create a new block and set the context to be the global scope
|
||||
*/
|
||||
fid = ejsSetBlock(ep, ep->global);
|
||||
|
||||
for (i = 0; i < argc; i++) {
|
||||
if (ejsEvalFile(ep, argv[i], 0) < 0) {
|
||||
ejsCloseBlock(ep, fid);
|
||||
return -1;
|
||||
}
|
||||
}
|
||||
ejsCloseBlock(ep, fid);
|
||||
return 0;
|
||||
}
|
||||
|
||||
/******************************************************************************/
|
||||
#if BLD_DEBUG
|
||||
/*
|
||||
* Print variables to stdout
|
||||
*/
|
||||
|
||||
static int printvProc(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
|
||||
{
|
||||
EjsVar *vp;
|
||||
char *buf;
|
||||
int i;
|
||||
|
||||
for (i = 0; i < argc; ) {
|
||||
vp = argv[i++];
|
||||
|
||||
/* mprPrintf(ep, "arg[%d] = ", i); */
|
||||
|
||||
buf = ejsVarToString(ep, vp);
|
||||
|
||||
if (vp->propertyName == 0 || *vp->propertyName == '\0') {
|
||||
mprPrintf(ep, "%s: ", buf);
|
||||
|
||||
} else if (i < argc) {
|
||||
mprPrintf(ep, "%s = %s, ", vp->propertyName, buf);
|
||||
} else {
|
||||
mprPrintf(ep, "%s = %s\n", vp->propertyName, buf);
|
||||
}
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
#endif
|
||||
/******************************************************************************/
|
||||
/*
|
||||
* Print the args to stdout
|
||||
*/
|
||||
|
||||
static int printProc(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
|
||||
{
|
||||
char *buf;
|
||||
int i;
|
||||
|
||||
for (i = 0; i < argc; i++) {
|
||||
buf = ejsVarToString(ep, argv[i]);
|
||||
mprPrintf(ep, "%s", buf);
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
/******************************************************************************/
|
||||
/*
|
||||
* println
|
||||
*/
|
||||
|
||||
static int printlnProc(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
|
||||
{
|
||||
printProc(ep, thisObj, argc, argv);
|
||||
mprPrintf(ep, "\n");
|
||||
return 0;
|
||||
}
|
||||
|
||||
/******************************************************************************/
|
||||
#if FUTURE
|
||||
/*
|
||||
* sprintf
|
||||
*/
|
||||
|
||||
static int sprintfProc(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
|
||||
{
|
||||
va_list ap;
|
||||
char *buf;
|
||||
void **args;
|
||||
int result;
|
||||
|
||||
if (argc <= 1) {
|
||||
ejsError(ep, EJS_ARG_ERROR, "Usage: sprintf(fmt, [args ...])");
|
||||
return -1;
|
||||
}
|
||||
|
||||
args = mprAlloc(ep, sizeof(void*) * (argc - 1));
|
||||
if (args == 0) {
|
||||
mprAssert(args);
|
||||
return -1;
|
||||
}
|
||||
|
||||
for (i = 1; i < argc; i++) {
|
||||
args[i - 1] = argv[i]);
|
||||
}
|
||||
|
||||
va_start(ap, fmt);
|
||||
*buf = 0;
|
||||
result = inner(0, &buf, MPR_MAX_STRING, fmt, args);
|
||||
va_end(ap);
|
||||
|
||||
ejsSetReturnValueToString(ep, buf);
|
||||
|
||||
mprFree(buf);
|
||||
return 0;
|
||||
}
|
||||
|
||||
/******************************************************************************/
|
||||
|
||||
inner(const char *fmt, void **args)
|
||||
{
|
||||
va_list ap;
|
||||
|
||||
va_start(ap, fmt);
|
||||
*buf = 0;
|
||||
mprSprintfCore(ctx, &buf, maxSize, fmt, ap, MPR_PRINTF_ARGV);
|
||||
va_end(ap);
|
||||
}
|
||||
|
||||
#endif
|
||||
/******************************************************************************/
|
||||
/*
|
||||
* sleep
|
||||
*/
|
||||
|
||||
static int sleepProc(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
|
||||
{
|
||||
if (argc != 1) {
|
||||
ejsError(ep, EJS_ARG_ERROR, "Usage: sleep(milliseconds)");
|
||||
return -1;
|
||||
}
|
||||
mprSleep(ep, ejsVarToInteger(argv[0]));
|
||||
return 0;
|
||||
}
|
||||
|
||||
/******************************************************************************/
|
||||
/*
|
||||
* sort properties
|
||||
* FUTURE -- should have option to sort object based on a given property value
|
||||
* ascending or descending
|
||||
* Usage: sort(object, order = ascending, property = 0);
|
||||
*/
|
||||
|
||||
static int sortProc(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
|
||||
{
|
||||
const char *property;
|
||||
int error, order;
|
||||
|
||||
error = 0;
|
||||
property = 0;
|
||||
|
||||
/*
|
||||
* Default order is increasing
|
||||
*/
|
||||
order = 1;
|
||||
|
||||
if (argc < 1 || argc > 3 || !ejsVarIsObject(argv[0])) {
|
||||
error++;
|
||||
}
|
||||
|
||||
if (argc >= 2) {
|
||||
order = ejsVarToInteger(argv[1]);
|
||||
}
|
||||
|
||||
/*
|
||||
* If property is not defined, it sorts the properties in the object
|
||||
*/
|
||||
if (argc == 3) {
|
||||
if (! ejsVarIsString(argv[2])) {
|
||||
error++;
|
||||
} else {
|
||||
property = argv[2]->string;
|
||||
}
|
||||
}
|
||||
|
||||
if (error) {
|
||||
ejsError(ep, EJS_ARG_ERROR, "Usage: sort(object, [order], [property])");
|
||||
return -1;
|
||||
}
|
||||
ejsSortProperties(ep, argv[0], 0, property, order);
|
||||
return 0;
|
||||
}
|
||||
|
||||
/******************************************************************************/
|
||||
/*
|
||||
* Get a time mark
|
||||
* MOB -- WARNING: this can overflow. OK on BREW, but other O/Ss it may have
|
||||
* overflowed on the first call. It should be renamed.
|
||||
* MOB -- replace with proper Date.
|
||||
*/
|
||||
|
||||
static int timeProc(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
|
||||
{
|
||||
MprTime now;
|
||||
|
||||
mprGetTime(ep, &now);
|
||||
#if WIN || LINUX || SOLARIS
|
||||
{
|
||||
/* MOB -- poor hack */
|
||||
static MprTime initial;
|
||||
if (initial.sec == 0) {
|
||||
initial = now;
|
||||
}
|
||||
now.sec -= initial.sec;
|
||||
|
||||
if (initial.msec > now.msec) {
|
||||
now.msec = now.msec + 1000 - initial.msec;
|
||||
now.sec--;
|
||||
} else {
|
||||
now.msec -= initial.msec;
|
||||
}
|
||||
}
|
||||
#endif
|
||||
/* MOB -- this can overflow */
|
||||
ejsSetReturnValueToInteger(ep, now.sec * 1000 + now.msec);
|
||||
return 0;
|
||||
}
|
||||
|
||||
/******************************************************************************/
|
||||
/*
|
||||
* MOB -- Temporary Get the date (time since Jan 6, 1980 GMT
|
||||
*/
|
||||
|
||||
static int dateProc(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
|
||||
{
|
||||
#if BREW
|
||||
uint now;
|
||||
|
||||
now = GETTIMESECONDS();
|
||||
ejsSetReturnValueToInteger(ep, now);
|
||||
#endif
|
||||
return 0;
|
||||
}
|
||||
|
||||
/******************************************************************************/
|
||||
/*
|
||||
* strlen(string)
|
||||
*/
|
||||
|
||||
static int strlenProc(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
|
||||
{
|
||||
char *buf;
|
||||
int len;
|
||||
|
||||
if (argc != 1) {
|
||||
ejsError(ep, EJS_ARG_ERROR, "Usage: strlen(var)");
|
||||
return -1;
|
||||
}
|
||||
|
||||
len = 0;
|
||||
if (! ejsVarIsString(argv[0])) {
|
||||
buf = ejsVarToString(ep, argv[0]);
|
||||
if (buf) {
|
||||
len = strlen(buf);
|
||||
}
|
||||
|
||||
} else {
|
||||
len = argv[0]->length;
|
||||
}
|
||||
|
||||
ejsSetReturnValueToInteger(ep, len);
|
||||
return 0;
|
||||
}
|
||||
|
||||
/******************************************************************************/
|
||||
/*
|
||||
* toint(num)
|
||||
*/
|
||||
|
||||
static int tointProc(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
|
||||
{
|
||||
int i;
|
||||
|
||||
if (argc != 1) {
|
||||
ejsError(ep, EJS_ARG_ERROR, "Usage: toint(number)");
|
||||
return -1;
|
||||
}
|
||||
|
||||
i = ejsVarToInteger(argv[0]);
|
||||
|
||||
ejsSetReturnValueToInteger(ep, i);
|
||||
return 0;
|
||||
}
|
||||
|
||||
/******************************************************************************/
|
||||
/*
|
||||
* string strstr(string, pat)
|
||||
*/
|
||||
|
||||
static int strstrProc(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
|
||||
{
|
||||
char *str, *pat;
|
||||
char *s;
|
||||
int strAlloc;
|
||||
|
||||
if (argc != 2) {
|
||||
ejsError(ep, EJS_ARG_ERROR, "Usage: strstr(string, pat)");
|
||||
return -1;
|
||||
}
|
||||
|
||||
str = ejsVarToString(ep, argv[0]);
|
||||
|
||||
strAlloc = ep->castAlloc;
|
||||
ep->castTemp = 0;
|
||||
|
||||
pat = ejsVarToString(ep, argv[1]);
|
||||
|
||||
s = strstr(str, pat);
|
||||
|
||||
if (s == 0) {
|
||||
ejsSetReturnValueToUndefined(ep);
|
||||
} else {
|
||||
ejsSetReturnValueToString(ep, s);
|
||||
}
|
||||
|
||||
if (strAlloc) {
|
||||
mprFree(str);
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
/******************************************************************************/
|
||||
/*
|
||||
* Trace
|
||||
*/
|
||||
|
||||
static int traceProc(Ejs *ep, EjsVar *thisObj, int argc, char **argv)
|
||||
{
|
||||
if (argc == 1) {
|
||||
mprLog(ep, 0, "%s", argv[0]);
|
||||
|
||||
} else if (argc == 2) {
|
||||
mprLog(ep, atoi(argv[0]), "%s", argv[1]);
|
||||
|
||||
} else {
|
||||
ejsError(ep, EJS_ARG_ERROR, "Usage: trace([level], message)");
|
||||
return -1;
|
||||
}
|
||||
ejsWriteVarAsString(ep, ep->result, "");
|
||||
return 0;
|
||||
}
|
||||
|
||||
/******************************************************************************/
|
||||
/*
|
||||
* Evaluate a sub-script. It is evaluated in the same variable scope as
|
||||
* the calling script / method.
|
||||
*/
|
||||
|
||||
static int evalScriptProc(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
|
||||
{
|
||||
EjsVar *arg;
|
||||
int i;
|
||||
|
||||
ejsWriteVarAsUndefined(ep, ep->result);
|
||||
|
||||
for (i = 0; i < argc; i++) {
|
||||
arg = argv[i];
|
||||
if (arg->type != EJS_TYPE_STRING) {
|
||||
continue;
|
||||
}
|
||||
if (ejsEvalScript(ep, arg->string, 0) < 0) {
|
||||
return -1;
|
||||
}
|
||||
}
|
||||
/*
|
||||
* Return with the value of the last expression
|
||||
*/
|
||||
return 0;
|
||||
}
|
||||
|
||||
/******************************************************************************/
|
||||
|
||||
/* MOB -- need a real datatype returning int, int64, etc */
|
||||
|
||||
static int typeofProc(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
|
||||
{
|
||||
const struct {
|
||||
EjsType type;
|
||||
const char *name;
|
||||
} types[] = {
|
||||
{ EJS_TYPE_UNDEFINED, "undefined" },
|
||||
#if EJS_ECMA_STND
|
||||
{ EJS_TYPE_NULL, "object" },
|
||||
#else
|
||||
{ EJS_TYPE_NULL, "null" },
|
||||
#endif
|
||||
{ EJS_TYPE_BOOL, "boolean" },
|
||||
{ EJS_TYPE_CMETHOD, "function" },
|
||||
{ EJS_TYPE_FLOAT, "number" },
|
||||
{ EJS_TYPE_INT, "number" },
|
||||
{ EJS_TYPE_INT64, "number" },
|
||||
{ EJS_TYPE_OBJECT, "object" },
|
||||
{ EJS_TYPE_METHOD, "function" },
|
||||
{ EJS_TYPE_STRING, "string" },
|
||||
{ EJS_TYPE_STRING_CMETHOD, "function" },
|
||||
{ EJS_TYPE_PTR, "pointer" }
|
||||
};
|
||||
const char *type;
|
||||
int i;
|
||||
|
||||
type = NULL;
|
||||
if (argc != 1) {
|
||||
ejsError(ep, EJS_ARG_ERROR, "Bad args: typeof(var)");
|
||||
return -1;
|
||||
}
|
||||
|
||||
for (i = 0; i < MPR_ARRAY_SIZE(types); i++) {
|
||||
if (argv[0]->type == types[i].type) {
|
||||
type = types[i].name;
|
||||
break;
|
||||
}
|
||||
}
|
||||
if (type == NULL) {
|
||||
mprAssert(type);
|
||||
return -1;
|
||||
}
|
||||
|
||||
ejsSetReturnValueToString(ep, type);
|
||||
return 0;
|
||||
}
|
||||
|
||||
/******************************************************************************/
|
||||
/*
|
||||
* Define the standard properties and methods inherited by all interpreters
|
||||
* Obj is set to the global class in the default interpreter. When an
|
||||
* interpreter attempts to write to any property, a copy will be written
|
||||
* into the interpeters own global space. This is like a "copy-on-write".
|
||||
*/
|
||||
|
||||
int ejsDefineGlobalProperties(Ejs *ep)
|
||||
{
|
||||
EjsVar *obj;
|
||||
|
||||
obj = ep->service->globalClass;
|
||||
mprAssert(obj);
|
||||
|
||||
ejsSetPropertyToNull(ep, obj, "null");
|
||||
ejsSetPropertyToUndefined(ep, obj, "undefined");
|
||||
ejsSetPropertyToBoolean(ep, obj, "true", 1);
|
||||
ejsSetPropertyToBoolean(ep, obj, "false", 0);
|
||||
|
||||
#if BLD_FEATURE_FLOATING_POINT
|
||||
{
|
||||
/* MOB. Fix. This generates warnings on some systems.
|
||||
This is intended. */
|
||||
double d = 0.0;
|
||||
double e = 0.0;
|
||||
ejsSetPropertyToFloat(ep, obj, "NaN", e / d);
|
||||
|
||||
d = MAX_FLOAT;
|
||||
ejsSetPropertyToFloat(ep, obj, "Infinity", d * d);
|
||||
}
|
||||
#endif
|
||||
|
||||
#if BLD_FEATURE_LEGACY_API
|
||||
/*
|
||||
* DEPRECATED: 2.0.
|
||||
* So that ESP/ASP can ignore "language=javascript" statements
|
||||
*/
|
||||
ejsSetPropertyToInteger(ep, obj, "javascript", 0);
|
||||
#endif
|
||||
|
||||
/*
|
||||
* Extension methods. We go directly to the mpr property APIs for speed.
|
||||
* Flags will cause the callbacks to be supplied the Ejs handle.
|
||||
*/
|
||||
ejsDefineCMethod(ep, obj, "assert", assertProc, EJS_NO_LOCAL);
|
||||
ejsDefineCMethod(ep, obj, "breakpoint", breakpointProc, EJS_NO_LOCAL);
|
||||
ejsDefineCMethod(ep, obj, "basename", basenameProc, EJS_NO_LOCAL);
|
||||
ejsDefineCMethod(ep, obj, "dirname", dirnameProc, EJS_NO_LOCAL);
|
||||
ejsDefineCMethod(ep, obj, "stripext", stripextProc, EJS_NO_LOCAL);
|
||||
ejsDefineCMethod(ep, obj, "trim", trimProc, EJS_NO_LOCAL);
|
||||
ejsDefineCMethod(ep, obj, "eval", evalScriptProc, EJS_NO_LOCAL);
|
||||
ejsDefineCMethod(ep, obj, "exit", exitScript, EJS_NO_LOCAL);
|
||||
ejsDefineCMethod(ep, obj, "print", printProc, EJS_NO_LOCAL);
|
||||
ejsDefineCMethod(ep, obj, "println", printlnProc, EJS_NO_LOCAL);
|
||||
ejsDefineCMethod(ep, obj, "sleep", sleepProc, EJS_NO_LOCAL);
|
||||
ejsDefineCMethod(ep, obj, "sort", sortProc, EJS_NO_LOCAL);
|
||||
ejsDefineCMethod(ep, obj, "time", timeProc, EJS_NO_LOCAL);
|
||||
ejsDefineCMethod(ep, obj, "date", dateProc, EJS_NO_LOCAL);
|
||||
ejsDefineCMethod(ep, obj, "strlen", strlenProc, EJS_NO_LOCAL);
|
||||
ejsDefineCMethod(ep, obj, "strstr", strstrProc, EJS_NO_LOCAL);
|
||||
ejsDefineCMethod(ep, obj, "typeof", typeofProc, EJS_NO_LOCAL);
|
||||
ejsDefineCMethod(ep, obj, "toint", tointProc, EJS_NO_LOCAL);
|
||||
|
||||
ejsDefineStringCMethod(ep, obj, "include", includeProc, EJS_NO_LOCAL);
|
||||
ejsDefineStringCMethod(ep, obj, "includeGlobal", includeGlobalProc,
|
||||
EJS_NO_LOCAL);
|
||||
ejsDefineStringCMethod(ep, obj, "trace", traceProc, EJS_NO_LOCAL);
|
||||
|
||||
#if BLD_DEBUG
|
||||
ejsDefineCMethod(ep, obj, "printv", printvProc, EJS_NO_LOCAL);
|
||||
#endif
|
||||
|
||||
#if FUTURE
|
||||
ejsDefineCMethod(ep, obj, "printf", printfProc, EJS_NO_LOCAL);
|
||||
ejsDefineCMethod(ep, obj, "sprintf", sprintfProc, EJS_NO_LOCAL);
|
||||
#endif
|
||||
|
||||
if (ejsObjHasErrors(obj)) {
|
||||
return MPR_ERR_CANT_INITIALIZE;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
/******************************************************************************/
|
||||
|
||||
#else
|
||||
void ejsProcsDummy() {}
|
||||
|
||||
/******************************************************************************/
|
||||
#endif /* BLD_FEATURE_EJS */
|
||||
|
||||
/*
|
||||
* Local variables:
|
||||
* tab-width: 4
|
||||
* c-basic-offset: 4
|
||||
* End:
|
||||
* vim:tw=78
|
||||
* vim600: sw=4 ts=4 fdm=marker
|
||||
* vim<600: sw=4 ts=4
|
||||
*/
|
||||
Reference in New Issue
Block a user