[naviserver-commits] naviserver/nsd tclcmds.c,1.1.1.1,1.2 tclsched.c,1.1.1.1,1.2

[Vlad S. <ser...@us...>]

Update of /cvsroot/naviserver/naviserver/nsd
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10315/nsd

Modified Files:
	tclcmds.c tclsched.c 
Log Message:
added ns_atstartup Tcl command, updated documentation at.n


Index: tclcmds.c
===================================================================
RCS file: /cvsroot/naviserver/naviserver/nsd/tclcmds.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** tclcmds.c	16 Feb 2005 08:39:50 -0000	1.1.1.1
--- tclcmds.c	22 Feb 2005 20:33:32 -0000	1.2
***************
*** 173,176 ****
--- 173,177 ----
      NsTclAtCloseCmd,
      NsTclAtExitCmd,
+     NsTclAtStartupCmd,
      NsTclAtShutdownCmd,
      NsTclAtSignalCmd,
***************
*** 320,323 ****
--- 321,325 ----
      {"ns_schedule_weekly", NsTclSchedWeeklyCmd, NULL},
      {"ns_atsignal", NsTclAtSignalCmd, NULL},
+     {"ns_atstartup", NsTclAtStartupCmd, NULL},
      {"ns_atshutdown", NsTclAtShutdownCmd, NULL},
      {"ns_atexit", NsTclAtExitCmd, NULL},

Index: tclsched.c
===================================================================
RCS file: /cvsroot/naviserver/naviserver/nsd/tclsched.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** tclsched.c	16 Feb 2005 08:40:01 -0000	1.1.1.1
--- tclsched.c	22 Feb 2005 20:33:36 -0000	1.2
***************
*** 63,67 ****
   * NsTclAt --
   *
!  *	Implements ns_atsignal, ns_atshutdown, and ns_atexit commands.
   *
   * Results:
--- 63,67 ----
   * NsTclAt --
   *
!  *	Implements ns_atstartup, ns_atsignal, ns_atshutdown, and ns_atexit commands.
   *
   * Results:
***************
*** 94,97 ****
--- 94,103 ----
      
  int
+ NsTclAtStartupCmd(ClientData arg, Tcl_Interp *interp, int argc, char **argv)
+ {
+     return AtCmd(Ns_RegisterAtStartup, interp, argc, argv);
+ }
+ 
+ int
  NsTclAtSignalCmd(ClientData arg, Tcl_Interp *interp, int argc, char **argv)
  {