New example

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@736 626c5289-ae23-0410-ae9c-e8d60b6d4f22

SWIG/Examples/tcl/variables/example.c

@@ -4,6 +4,7 @@
 
 #include <stdio.h>
 #include <stdlib.h>
+#include "example.h"
 
 int              ivar = 0;                    
 short            svar = 0;
@@ -17,8 +18,15 @@ char             cvar = 0;
 float            fvar = 0;
 double           dvar = 0;
 char            *strvar = 0;
+const char      *cstrvar = 0;
 int             *iptrvar = 0;
 char             name[256] = "Dave";
+char             path[256] = "/home/beazley";
+
+
+/* Global variables involving a structure */
+Point           *ptptr = 0;
+Point            pt = { 10, 20 };
 
 /* A variable that we will make read-only in the interface */
 int              status = 1;
@@ -38,8 +46,11 @@ void print_vars() {
   printf("dvar      = %g\n", dvar);
   printf("cvar      = %c\n", cvar);
   printf("strvar    = %s\n", strvar ? strvar : "(null)");
+  printf("cstrvar   = %s\n", cstrvar ? cstrvar : "(null)");
   printf("iptrvar   = %x\n", iptrvar);
   printf("name      = %s\n", name);
+  printf("ptptr     = %x (%d, %d)\n", ptptr, ptptr ? ptptr->x : 0, ptptr ? ptptr->y : 0);
+  printf("pt        = (%d, %d)\n", pt.x, pt.y);
   printf("status    = %d\n", status);
 }
 
@@ -51,4 +62,25 @@ int *new_int(int value) {
   return ip;
 }
 
+/* A function to create a point */
 
+Point *new_Point(int x, int y) {
+  Point *p = (Point *) malloc(sizeof(Point));
+  p->x = x;
+  p->y = y;
+  return p;
+}
+
+char * Point_print(Point *p) {
+  static char buffer[256];
+  if (p) {
+    sprintf(buffer,"(%d,%d)", p->x,p->y);
+  } else {
+    sprintf(buffer,"null");
+  }
+  return buffer;
+}
+
+void pt_print() {
+  printf("(%d, %d)\n", pt.x, pt.y);
+}