1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
/*
** $Id: tclscript.h,v 1.6 2001/01/14 13:50:21 pape Exp $
**
** Copyright 1996-1998 Michael 'Ghandi' Herold <michael@abadonna.mayn.de>
*/
#ifndef _VBOX_TCLSCRIPT_H
#define _VBOX_TCLSCRIPT_H 1
#include <tcl.h>
#include "vboxgetty.h"
/** Structures ***********************************************************/
struct vbox_tcl_function
{
unsigned char *name;
Tcl_ObjCmdProc *proc;
};
struct vbox_tcl_variable
{
unsigned char *name;
unsigned char *args;
};
/** Defines **************************************************************/
#define VBOX_TCLFUNC_PROTO ClientData, Tcl_Interp *, int, Tcl_Obj *CONST []
#define VBOX_TCLFUNC ClientData data, Tcl_Interp *intp, int objc, Tcl_Obj *CONST objv[]
/** Prototypes ***********************************************************/
extern int scr_create_interpreter(void);
extern void scr_remove_interpreter(void);
extern int scr_execute(unsigned char *, struct vboxuser *);
extern int scr_init_variables(struct vbox_tcl_variable *);
extern unsigned char *scr_tcl_version(void);
#endif /* _VBOX_TCLSCRIPT_H */
|
