| /ast/src/lib/libtksh/src/ |
| H A D | tclMain.c | 15 char buffer[1000], *args, *fileName; local
33 fileName = NULL;
35 fileName = argv[1];
44 Tcl_SetVar(interp, "argv0", (fileName != NULL) ? fileName : argv[0],
53 ((fileName == NULL) && tty) ? "1" : "0", TCL_GLOBAL_ONLY);
74 if (fileName != NULL) {
75 code = Tcl_EvalFile(interp, fileName);
|
| H A D | eval.c | 296 int Tcl_TclEvalFile(Tcl_Interp *interp, char *fileName) argument
303 if (fileName)
306 iPtr->scriptFile = fileName;
307 script = sfopen(NIL(Sfio_t *), fileName, "r");
313 fileName = "stdin";
335 sprintf(msg, "\n (file \"%.150s\" line %d)", fileName,
348 int Tcl_EvalFile(Tcl_Interp *interp, char *fileName) argument
356 return Tcl_TclEvalFile(interp, fileName);
361 fileName = Tcl_TildeSubst(interp, fileName,
[all...] |
| H A D | filecmd.c | 42 char *p, *fileName; local
63 fileName = Tcl_TildeSubst(interp, argv[2], &buffer);
64 if (fileName == NULL) {
77 p = strrchr(fileName, '/');
80 } else if (p == fileName) {
84 Tcl_SetResult(interp, fileName, TCL_VOLATILE);
96 p = strrchr(fileName, '.');
97 lastSlash = strrchr(fileName, '/');
99 Tcl_SetResult(interp, fileName, TCL_VOLATILE);
102 Tcl_SetResult(interp, fileName, TCL_VOLATIL
[all...] |
| H A D | init.c | 261 char *fileName; local
264 fileName = Tcl_GetVar(interp, "tcl_rcFileName", TCL_GLOBAL_ONLY);
266 if (fileName != NULL) {
271 fullName = Tcl_TranslateFileName(interp, fileName, &temp);
|
| /ast/src/lib/libtk/generic/ |
| H A D | tkMain.c | 97 char *args, *fileName;
116 fileName = NULL;
125 fileName = argv[1];
140 Tcl_SetVar(interp, "argv0", (fileName != NULL) ? fileName : argv[0],
160 ((fileName == NULL) && tty) ? "1" : "0", TCL_GLOBAL_ONLY);
180 if (fileName != NULL) {
181 code = Tcl_EvalFile(interp, fileName);
96 char *args, *fileName; local
|
| H A D | tkCanvPs.c | 57 char *fileName; /* Name of file in which to write Postscript; member in struct:TkPostscriptInfo
60 Tcl_Channel chan; /* Open channel corresponding to fileName. */
82 "", Tk_Offset(TkPostscriptInfo, fileName), 0},
193 psInfo.fileName = NULL;
294 if (psInfo.fileName != NULL) {
295 p = Tcl_TranslateFileName(canvasPtr->interp, psInfo.fileName, &buffer);
529 if (psInfo.fileName != NULL) {
530 ckfree(psInfo.fileName);
|
| /ast/src/lib/libtksh/tcl/ |
| H A D | tclUnixFile.c | 440 char fileName[L_tmpnam];
444 tmpnam(fileName);
445 file = TclOpenFile(fileName, O_RDWR|O_CREAT|O_TRUNC);
446 unlink(fileName);
463 Tcl_DStringAppend(namePtr, fileName, -1);
429 char fileName[L_tmpnam]; variable
433 tmpnam(fileName); variable
435 unlink(fileName); variable
|
| H A D | tclLoad.c | 26 char *fileName; /* Name of the file from which the member in struct:LoadedPackage
106 Tcl_DString pkgName, initName, safeInitName, fileName;
114 " fileName ?packageName? ?interp?\"", (char *) NULL);
117 fullFileName = Tcl_TranslateFileName(interp, argv[1], &fileName);
176 filesMatch = (strcmp(pkgPtr->fileName, fullFileName) == 0);
330 pkgPtr->fileName = (char *) ckalloc((unsigned)
332 strcpy(pkgPtr->fileName, fullFileName);
405 Tcl_DStringFree(&fileName);
467 pkgPtr->fileName = (char *) ckalloc((unsigned) 1);
468 pkgPtr->fileName[
105 Tcl_DString pkgName, initName, safeInitName, fileName; local
[all...] |
| H A D | tclCmdAH.c | 585 char *fileName, *extension;
616 fileName = argv[2];
623 Tcl_SplitPath(fileName, &pargc, &pargv);
624 if ((pargc == 1) && (*fileName == '~')) {
626 fileName = Tcl_TranslateFileName(interp, fileName, &buffer);
627 if (fileName == NULL) {
631 Tcl_SplitPath(fileName, &pargc, &pargv);
668 fileName = argv[2];
675 Tcl_SplitPath(fileName,
574 char *fileName, *extension; local
[all...] |
| /ast/src/cmd/tksh/ |
| H A D | tkMain.c | 99 char *args, *fileName;
121 fileName = NULL;
130 fileName = argv[1];
145 Tcl_SetVar(interp, "argv0", (fileName != NULL) ? fileName : argv[0],
165 ((fileName == NULL) && tty) ? "1" : "0", TCL_GLOBAL_ONLY);
187 if (fileName != NULL) {
188 code = Tcl_EvalFile(interp, fileName);
202 fileName = Tcl_GetVar(interp, "tcl_rcFileName", TCL_GLOBAL_ONLY);
204 if (fileName !
98 char *args, *fileName; local
[all...] |