URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [libnetworking/] [rtems_webserver/] [websuemf.c] - Blame information for rev 389

Go to most recent revision | Details | Compare with Previous | View Log


/*
 * websuemf.c -- GoAhead Micro Embedded Management Framework
 *
 * Copyright (c) Go Ahead Software Inc., 1995-1999. All Rights Reserved.
 *
 * See the file "license.txt" for usage and redistribution license requirements
 */
 
/********************************** Description *******************************/
 
/*
 *      This modules provides compatibility with the full GoAhead EMF.
 */
 
/*********************************** Includes *********************************/
 
#include        "wsIntrn.h"
 
/************************************* Code ***********************************/
/*
 *      Evaluate a script
 */
 
int scriptEval(int engine, char_t* cmd, char_t** result, int chan)
{
        int             ejid;
 
        if (engine == EMF_SCRIPT_EJSCRIPT) {
                ejid = (int) chan;
                if (ejEval(ejid, cmd, NULL) ) {
                        return 0;
                } else {
                        return -1;
                }
        }
        return -1;
}
 
/******************************************************************************/

Line No.	Rev	Author	Line
1	30	unneback	`/*`
2			`* websuemf.c -- GoAhead Micro Embedded Management Framework`
3			`*`
4			`* Copyright (c) Go Ahead Software Inc., 1995-1999. All Rights Reserved.`
5			`*`
6			`* See the file "license.txt" for usage and redistribution license requirements`
7			`*/`
8
9			`/******************************** Description *****************************/`
10
11			`/*`
12			`* This modules provides compatibility with the full GoAhead EMF.`
13			`*/`
14
15			`/********************************* Includes *******************************/`
16
17			`#include "wsIntrn.h"`
18
19			`/*********************************** Code *********************************/`
20			`/*`
21			`* Evaluate a script`
22			`*/`
23
24			`int scriptEval(int engine, char_t* cmd, char_t** result, int chan)`
25			`{`
26			`int ejid;`
27
28			`if (engine == EMF_SCRIPT_EJSCRIPT) {`
29			`ejid = (int) chan;`
30			`if (ejEval(ejid, cmd, NULL) ) {`
31			`return 0;`
32			`} else {`
33			`return -1;`
34			`}`
35			`}`
36			`return -1;`
37			`}`
38
39			`/******************************************************************************/`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [libnetworking/] [rtems_webserver/] [websuemf.c] - Blame information for rev 389