[Plib-cvs] plib/examples/src/psl psl_demo.cxx,1.1,1.2

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

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

Modified Files:
	psl_demo.cxx 
Log Message:
PSL demo works!


Index: psl_demo.cxx
===================================================================
RCS file: /cvsroot/plib/plib/examples/src/psl/psl_demo.cxx,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- psl_demo.cxx	5 Sep 2002 06:35:24 -0000	1.1
+++ psl_demo.cxx	5 Sep 2002 06:46:06 -0000	1.2
@@ -6,8 +6,30 @@
 
 /* EMPTY FOR NOW */
 
+float hello ( int argc, float *argv )
+{
+  printf ( "Hello World\n" ) ;
+  return 0.0f ;
+}
+
+PSL_Extension extensions [] =
+{
+  { "hello", 0, hello },
+  { NULL, 0, NULL }
+} ;
+
+
 int main ()
 {
+  PSL_Program *prog = new PSL_Program ( extensions ) ;
+
+  prog -> parse ( "data/test.psl" ) ;
+
+  prog -> dump () ;
+
+  while ( prog -> step () != PSL_PROGRAM_END )
+    /* Do nothing */ ;
+
   exit ( 0 ) ;
 }