[Plib-cvs] plib/examples/src/psl/data test.psl,1.7,1.8

[Steve B. <sj...@us...>]

Update of /cvsroot/plib/plib/examples/src/psl/data
In directory usw-pr-cvs1:/tmp/cvs-serv31278/plib/examples/src/psl/data

Modified Files:
	test.psl 
Log Message:
Added string constants.


Index: test.psl
===================================================================
RCS file: /cvsroot/plib/plib/examples/src/psl/data/test.psl,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- test.psl	6 Sep 2002 17:50:05 -0000	1.7
+++ test.psl	7 Sep 2002 07:00:34 -0000	1.8
@@ -1,32 +1,39 @@
 
 
-float x = 0.0 ;
+int x = 0.0 ;
 
-void wibble ()
+int wibble ()
 {
   x = x + 1 ;
   identify () ;
+  return 123 ;
 }
 
 float y = 987.654 ;
 
+/*
+  C style Comments...
+*/
+
+// ...and C++ style both work...
+
 void main ()
 {
   x = 0 ;
 
-  print ( x ) ;
+  printf ( "X,Y=", x, y ) ;
 
   {
-    float x = 123 ;
+    int x = wibble();
 
-    print ( x ) ;
+    printf ( "X=", x ) ;
 
     {
-/*    float x = 456 ; //**/
-      print ( x ) ;
+      int x = 456.0 ; 
+      printf ( "Local X=", x ) ;
     }
 
-    print ( x ) ;
+    printf ( "X=", x ) ;
   }
 }