Searched refs:fileName (Results 1 - 23 of 23) sorted by relevance

/ast/src/lib/libtksh/tcl/
H A DtclLoadDl.c61 TclLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr)
63 char *fileName; /* Name of the file containing the desired
73 handle = dlopen(fileName, RTLD_NOW | RTLD_GLOBAL);
75 Tcl_AppendResult(interp, "couldn't load file \"", fileName,
106 TclGuessPackageName(fileName, bufPtr)
107 char *fileName; /* Name of file containing package (already
H A DtclLoad.c26 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 DtclCmdAH.c585 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...]
H A DtclUnixFile.c440 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 DtclIOUtil.c359 Tcl_EvalFile(interp, fileName)
361 char *fileName; /* Name of file to process. Tilde-substitution
375 iPtr->scriptFile = fileName;
377 nativeName = Tcl_TranslateFileName(interp, fileName, &buffer);
384 * here. This way we don't depend on fileName staying constant
396 Tcl_AppendResult(interp, "couldn't read file \"", fileName,
403 Tcl_AppendResult(interp, "couldn't read file \"", fileName,
411 Tcl_AppendResult(interp, "couldn't read file \"", fileName,
430 sprintf(msg, "\n (file \"%.150s\" line %d)", fileName,
H A DtclUnixChan.c1113 Tcl_OpenFileChannel(interp, fileName, modeString, permissions)
1116 char *fileName; /* Name of file to open. */
1152 nativeName = Tcl_TranslateFileName(interp, fileName, &buffer);
1167 Tcl_AppendResult(interp, "couldn't open \"", fileName, "\": ",
/ast/src/lib/libtksh/src/
H A DtclMain.c15 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 Dfilecmd.c42 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 Deval.c296 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 Dinit.c261 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 DtkImgPPM.c39 static int FileMatchPPM _ANSI_ARGS_((FILE *f, char *fileName,
43 FILE *f, char *fileName, char *formatString,
47 char *fileName, char *formatString,
87 FileMatchPPM(f, fileName, formatString, widthPtr, heightPtr)
89 char *fileName; /* The name of the image file. */
122 FileReadPPM(interp, f, fileName, formatString, imageHandle, destX, destY,
126 char *fileName; /* The name of the image file. */
144 fileName, "\"", NULL);
148 Tcl_AppendResult(interp, "PPM image file \"", fileName,
156 Tcl_AppendResult(interp, "PPM image file \"", fileName,
[all...]
H A DtkMain.c97 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 DtkImgGIF.c39 static int FileMatchGIF _ANSI_ARGS_((FILE *f, char *fileName,
42 FILE *f, char *fileName, char *formatString,
108 FileMatchGIF(f, fileName, formatString, widthPtr, heightPtr)
110 char *fileName; /* The name of the image file. */
141 FileReadGIF(interp, f, fileName, formatString, imageHandle, destX, destY,
145 char *fileName; /* The name of the image file. */
167 fileName, "\"", NULL);
171 Tcl_AppendResult(interp, "GIF image file \"", fileName,
H A DtkCanvPs.c57 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);
H A DtkOption.c211 Tk_Window tkwin, char *fileName, int priority));
543 argv[0], " readfile fileName ?priority?\"",
898 ReadOptionFile(interp, tkwin, fileName, priority)
902 char *fileName; /* Name of file containing options. */
913 realName = Tcl_TranslateFileName(interp, fileName, &newName);
921 Tcl_AppendResult(interp, "couldn't open \"", fileName,
936 fileName, "\":", Tcl_PosixError(interp), (char *) NULL);
944 Tcl_AppendResult(interp, "error reading file \"", fileName, "\":",
H A DtkImgBmap.c465 TkGetBitmapData(interp, string, fileName, widthPtr, heightPtr,
470 char *fileName; /* Name of file containing bitmap
486 expandedFileName = Tcl_TranslateFileName(interp, fileName, &buffer);
494 fileName, "\": ", Tcl_PosixError(interp), (char *) NULL);
H A Dtk.h831 typedef int (Tk_ImageFileMatchProc) _ANSI_ARGS_((FILE *f, char *fileName,
836 FILE *f, char *fileName, char *formatString, Tk_PhotoHandle imageHandle,
842 char *fileName, char *formatString, Tk_PhotoImageBlock *blockPtr));
H A DtkInt.h719 char *string, char *fileName, int *widthPtr,
H A DtkImgPhoto.c377 FILE *f, char *fileName, char *formatString,
836 " read fileName ?-format format-name?",
955 " write fileName ?-format format-name?",
3021 MatchFileFormat(interp, f, fileName, formatString, imageFormatPtr,
3025 char *fileName; /* The name of the image file. */
3058 if ((*formatPtr->fileMatchProc)(f, fileName, formatString,
3078 fileName, "\"", (char *) NULL);
/ast/src/cmd/tksh/
H A DtkMain.c99 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...]
/ast/src/lib/libtk/library/demos/
H A Dsearch.tcl89 entry $w.file.entry -width 40 -textvariable fileName
91 -command "textLoadFile $w.text \$fileName"
95 textLoadFile $w.text \$fileName
136 set fileName ""
/ast/src/lib/libtksh/include/
H A Dtkshlib.h180 extern int Tcl_TclEvalFile(Tcl_Interp *interp, char *fileName);
232 EXTERN int TclGuessPackageName(char *fileName,
235 char *fileName, char *sym1, char *sym2,
H A Dtcl.h430 EXTERN int Tcl_DumpActiveMemory _ANSI_ARGS_((char *fileName));
904 char *fileName));
1008 char *fileName, char *modeString,

Completed in 75 milliseconds