~ubuntu-branches/ubuntu/maverick/swig1.3/maverick

« back to all changes in this revision

Viewing changes to Examples/guile/matrix/main.c

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

Examples/guile/matrix/main.c

 

1

#include <tcl.h>

 

2

extern int matrix_init(Tcl_Interp *);    /* Init function from matrix.i */

 

3

 

 

4

int main() {

 

5

 

 

6

  int        code;

 

7

  char       input[1024];

 

8

  Tcl_Interp *interp;

 

9

  

 

10

  interp = Tcl_CreateInterp();

 

11

 

 

12

  /* Initialize the wrappers */

 

13

 

 

14

  if (matrix_init(interp) == TCL_ERROR)

 

15

    exit(0);

 

16

  

 

17

  fprintf(stdout,"matrix > ");

 

18

  while(fgets(input, 1024, stdin) != NULL) {

 

19

    code = Tcl_Eval(interp, input);

 

20

    fprintf(stdout,"%s\n",interp->result);

 

21

    fprintf(stdout,"matrix > ");

 

22

  }

 

23

}

 

24

 

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1