/[ascend]/trunk/tcltk98/generic/interface/EnvVarProc.c
ViewVC logotype

Diff of /trunk/tcltk98/generic/interface/EnvVarProc.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 17 by aw0a, Tue Dec 7 17:37:58 2004 UTC revision 389 by johnpye, Thu Mar 30 06:24:10 2006 UTC
# Line 34  Line 34 
34   *  It does not interact in any way the the Tcl global "env" array.   *  It does not interact in any way the the Tcl global "env" array.
35   */   */
36    
37  #include "tcl.h"  #include <tcl.h>
38  #include "utilities/ascConfig.h"  #include <utilities/ascConfig.h>
39  #include "utilities/ascMalloc.h"  #include <utilities/ascMalloc.h>
40  #include "utilities/ascEnvVar.h"  #include <utilities/ascEnvVar.h>
41  #include "interface/HelpProc.h"  #include "HelpProc.h"
42  #include "interface/EnvVarProc.h"  #include "EnvVarProc.h"
43    
44  #ifndef lint  #ifndef lint
45  CONST char *EnvVarProcID = "$Id: EnvVarProc.c,v 1.7 2003/08/23 18:43:06 ballan Exp $";  CONST char *EnvVarProcID = "$Id: EnvVarProc.c,v 1.7 2003/08/23 18:43:06 ballan Exp $";
# Line 157  int Asc_EnvVarCmd(ClientData cdata, Tcl_ Line 157  int Asc_EnvVarCmd(ClientData cdata, Tcl_
157      ascfree(envargv);      ascfree(envargv);
158      break;      break;
159    case 'n':    case 'n':
160      /*  names        /*  names
161       */       */
162      if (argc != 2) {      if (argc != 2) {
163        Tcl_AppendResult(interp,"wrong number of args : ",        Tcl_AppendResult(interp,"wrong number of args : ",
# Line 192  int Asc_EnvVarCmd(ClientData cdata, Tcl_ Line 192  int Asc_EnvVarCmd(ClientData cdata, Tcl_
192      }      }
193      break;      break;
194    case 's':    case 's':
195      /*  set var path      /*  set var path
196       */       */
197      if (argc != 4) {      if (argc != 4) {
198        Tcl_AppendResult(interp,"wrong number of args : ",        Tcl_AppendResult(interp,"wrong number of args : ",
Legend:
Removed from v.17  
changed lines
  Added in v.389
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22