Changeset 2651

Timestamp:

Oct 27, 2011 11:44:43 AM (13 years ago)

Author:

mmc

Message:

Added the Rappture::curses command needed for the new "submit" command.
Use "curses start" and "curses stop" to enter/exit curses mode. Use
"curses clear" to clear the screen. Use "curses puts -at line col string"
to put stuff on the screen. Use "curses getch" to read characters from
the keyboard. Many other options too. Use the source, Luke!

Location:

trunk/lang/tcl/src

Files:

• Makefile.in (modified) (1 diff)
• Rappture_Init.c (modified) (2 diffs)
• RpCurses.c (added)

trunk/lang/tcl/src/Makefile.in

@@ -49 +49 @@
 LIBS = \
         -L../../../src/core -lrappture \
-        $(TCL_LIB_SPEC) -lexpat -lz -lm -lstdc++
+        $(TCL_LIB_SPEC) -lncurses -lexpat -lz -lm -lstdc++
 
 OBJS = \
         Rappture_Init.o \
+        RpCurses.o \
         RpDaemon.o \
         RpEncodeTclInterface.o \

trunk/lang/tcl/src/Rappture_Init.c

@@ -29 +29 @@
 extern Tcl_AppInitProc RpSysinfo_Init;
 extern Tcl_AppInitProc RpDaemon_Init;
+extern Tcl_AppInitProc RpCurses_Init;
 
 #ifdef notdef
@@ -93 +94 @@
         return TCL_ERROR;
     }
+    if (RpCurses_Init(interp) != TCL_OK) {
+        return TCL_ERROR;
+    }
     return TCL_OK;
 }