~ [ source navigation ] ~ [ diff markup ] ~ [ identifier search ] ~ [ freetext search ] ~ [ file search ] ~

Linux Cross Reference
Tina4/src/TCLwidgets/tw_init.c

Version: ~
Architecture: ~ [ i386 ] ~ [ alpha ] ~ [ m68k ] ~ [ mips ] ~ [ ppc ] ~ [ sparc ] ~ [ sparc64 ] ~

  1 /*
  2   tw_init.c
  3 */
  4 
  5 #include <stdio.h>
  6 #include <tina/sys.h>
  7 #include <tcl.h>
  8 #include "tclWt.h"
  9 #include "tclWtPro.h"
 10 
 11 static char  *progname;
 12 
 13 
 14 Bool tw_save(void)
 15 {
 16         return (false);
 17 }
 18 
 19 
 20 Bool tw_recover(void)
 21 {
 22         return (false);
 23 }
 24 
 25 void tw_set_save(Bool newsave)
 26 {
 27 }
 28 
 29 char *tw_get_progname(void)
 30 {
 31         return (NULL);
 32 }
 33 
 34 void tw_quit(int dummy)
 35 {
 36 }
 37 
 38 
 39 int    Tcl_AppInit(Tcl_Interp *interp)
 40 {
 41   if (Tcl_Init(interp) == TCL_ERROR)
 42     return TCL_ERROR;
 43 
 44         ttcl_set_interp(interp);
 45         tinatool();
 46 
 47         if (Tcl_SerialiseInit(interp) == TCL_ERROR)
 48                 return TCL_ERROR;
 49 
 50   Tcl_SetVar(interp, "tcl_rcFileName", "~/.tinarc", TCL_GLOBAL_ONLY);
 51   return TCL_OK;
 52 }
 53 
 54 
 55 void tw_init(int argc, char **argv)
 56 {
 57         Tcl_Main(argc, argv, Tcl_AppInit);
 58 }
 59 

~ [ source navigation ] ~ [ diff markup ] ~ [ identifier search ] ~ [ freetext search ] ~ [ file search ] ~

This page was automatically generated by the LXR engine.
Visit the LXR main site for more information.