File: bytecode.c

package info (click to toggle)
libapache-mod-dtcl 0.7.3-2
  • links: PTS
  • area: main
  • in suites: potato
  • size: 404 kB
  • ctags: 300
  • sloc: tcl: 1,266; ansic: 1,164; lisp: 563; makefile: 94; sh: 91
file content (21 lines) | stat: -rw-r--r-- 448 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#include <tcl.h>

int main(int argc, char *argv[])
{
    char *script = "puts aaaaaaaaaaa\n";
    Tcl_Interp *interp;
    Tcl_Obj *objscript;
    Tcl_Obj *os;

    interp = Tcl_CreateInterp();

    Tcl_Init(interp);

    os = malloc(sizeof(Tcl_Obj));
    os->bytes = strdup("\370\356\026\100\370\356\026\100bbbbbbbb\030");
    Tcl_EvalObjEx(interp, os, 0);
    objscript = Tcl_NewStringObj(script, -1);
    Tcl_EvalObjEx(interp, objscript, 0);


}