2 * Implements the file command for jim
4 * (c) 2008 Steve Bennett <steveb@workware.net.au>
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above
13 * copyright notice, this list of conditions and the following
14 * disclaimer in the documentation and/or other materials
15 * provided with the distribution.
17 * THIS SOFTWARE IS PROVIDED BY THE JIM TCL PROJECT ``AS IS'' AND ANY
18 * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
19 * THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
20 * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
21 * JIM TCL PROJECT OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
22 * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
23 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
24 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
25 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
26 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
27 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
28 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
30 * The views and conclusions contained in the software and documentation
31 * are those of the authors and should not be interpreted as representing
32 * official policies, either expressed or implied, of the Jim Tcl Project.
34 * Based on code originally from Tcl 6.7:
36 * Copyright 1987-1991 Regents of the University of California
37 * Permission to use, copy, modify, and distribute this
38 * software and its documentation for any purpose and without
39 * fee is hereby granted, provided that the above copyright
40 * notice appear in all copies. The University of California
41 * makes no representations about the suitability of this
42 * software for any purpose. It is provided "as is" without
43 * express or implied warranty.
53 #include <jimautoconf.h>
54 #include <jim-subcmd.h>
61 #elif defined(_MSC_VER)
66 #define S_ISREG(m) (((m) & S_IFMT) == S_IFREG)
67 #define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR)
71 # define MAXPATHLEN JIM_PATH_LEN
74 #if defined(__MINGW32__) || defined(__MSYS__) || defined(_MSC_VER)
80 /* extract nanosecond resolution mtime from struct stat */
81 #if defined(HAVE_STRUCT_STAT_ST_MTIMESPEC)
82 #define STAT_MTIME_US(STAT) ((STAT).st_mtimespec.tv_sec * 1000000ll + (STAT).st_mtimespec.tv_nsec / 1000)
83 #elif defined(HAVE_STRUCT_STAT_ST_MTIM)
84 #define STAT_MTIME_US(STAT) ((STAT).st_mtim.tv_sec * 1000000ll + (STAT).st_mtim.tv_nsec / 1000)
88 *----------------------------------------------------------------------
92 * Given a mode word, returns a string identifying the type of a
96 * A static text string giving the file type from mode.
101 *----------------------------------------------------------------------
104 static const char *JimGetFileType(int mode
)
109 else if (S_ISDIR(mode
)) {
113 else if (S_ISCHR(mode
)) {
114 return "characterSpecial";
118 else if (S_ISBLK(mode
)) {
119 return "blockSpecial";
123 else if (S_ISFIFO(mode
)) {
128 else if (S_ISLNK(mode
)) {
133 else if (S_ISSOCK(mode
)) {
141 *----------------------------------------------------------------------
145 * This is a utility procedure that breaks out the fields of a
146 * "stat" structure and stores them in textual form into the
147 * elements of an associative array.
150 * Returns a standard Tcl return value. If an error occurs then
151 * a message is left in interp->result.
154 * Elements of the associative array given by "varName" are modified.
156 *----------------------------------------------------------------------
158 static void AppendStatElement(Jim_Interp
*interp
, Jim_Obj
*listObj
, const char *key
, jim_wide value
)
160 Jim_ListAppendElement(interp
, listObj
, Jim_NewStringObj(interp
, key
, -1));
161 Jim_ListAppendElement(interp
, listObj
, Jim_NewIntObj(interp
, value
));
164 static int StoreStatData(Jim_Interp
*interp
, Jim_Obj
*varName
, const struct stat
*sb
)
166 /* Just use a list to store the data */
167 Jim_Obj
*listObj
= Jim_NewListObj(interp
, NULL
, 0);
169 AppendStatElement(interp
, listObj
, "dev", sb
->st_dev
);
170 AppendStatElement(interp
, listObj
, "ino", sb
->st_ino
);
171 AppendStatElement(interp
, listObj
, "mode", sb
->st_mode
);
172 AppendStatElement(interp
, listObj
, "nlink", sb
->st_nlink
);
173 AppendStatElement(interp
, listObj
, "uid", sb
->st_uid
);
174 AppendStatElement(interp
, listObj
, "gid", sb
->st_gid
);
175 AppendStatElement(interp
, listObj
, "size", sb
->st_size
);
176 AppendStatElement(interp
, listObj
, "atime", sb
->st_atime
);
177 AppendStatElement(interp
, listObj
, "mtime", sb
->st_mtime
);
178 AppendStatElement(interp
, listObj
, "ctime", sb
->st_ctime
);
180 AppendStatElement(interp
, listObj
, "mtimeus", STAT_MTIME_US(*sb
));
182 Jim_ListAppendElement(interp
, listObj
, Jim_NewStringObj(interp
, "type", -1));
183 Jim_ListAppendElement(interp
, listObj
, Jim_NewStringObj(interp
, JimGetFileType((int)sb
->st_mode
), -1));
185 /* Was a variable specified? */
188 objPtr
= Jim_GetVariable(interp
, varName
, JIM_NONE
);
196 objPtr
= Jim_DictMerge(interp
, 2, objv
);
197 if (objPtr
== NULL
) {
198 /* This message matches the one from Tcl */
199 Jim_SetResultFormatted(interp
, "can't set \"%#s(dev)\": variable isn't array", varName
);
200 Jim_FreeNewObj(interp
, listObj
);
204 Jim_InvalidateStringRep(objPtr
);
206 Jim_FreeNewObj(interp
, listObj
);
209 Jim_SetVariable(interp
, varName
, listObj
);
212 /* And also return the value */
213 Jim_SetResult(interp
, listObj
);
219 * Give a path of length 'len', returns the length of the path
220 * with any trailing slashes removed.
222 static int JimPathLenNoTrailingSlashes(const char *path
, int len
)
225 for (i
= len
; i
> 1 && path
[i
- 1] == '/'; i
--) {
226 /* Trailing slash, so remove it */
227 if (ISWINDOWS
&& path
[i
- 2] == ':') {
228 /* But on windows, we won't remove the trailing slash from c:/ */
236 * Give a path in objPtr, returns a new path with any trailing slash removed.
237 * Use Jim_DecrRefCount() on the returned object (which may be identical to objPtr).
239 static Jim_Obj
*JimStripTrailingSlashes(Jim_Interp
*interp
, Jim_Obj
*objPtr
)
241 int len
= Jim_Length(objPtr
);
242 const char *path
= Jim_String(objPtr
);
243 int i
= JimPathLenNoTrailingSlashes(path
, len
);
245 objPtr
= Jim_NewStringObj(interp
, path
, i
);
247 Jim_IncrRefCount(objPtr
);
251 static int file_cmd_dirname(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
253 Jim_Obj
*objPtr
= JimStripTrailingSlashes(interp
, argv
[0]);
254 const char *path
= Jim_String(objPtr
);
255 const char *p
= strrchr(path
, '/');
257 if (!p
&& path
[0] == '.' && path
[1] == '.' && path
[2] == '\0') {
258 Jim_SetResultString(interp
, "..", -1);
260 Jim_SetResultString(interp
, ".", -1);
262 else if (p
== path
) {
263 Jim_SetResultString(interp
, "/", -1);
265 else if (ISWINDOWS
&& p
[-1] == ':') {
267 Jim_SetResultString(interp
, path
, p
- path
+ 1);
270 /* Strip any trailing slashes from the result */
271 int len
= JimPathLenNoTrailingSlashes(path
, p
- path
);
272 Jim_SetResultString(interp
, path
, len
);
274 Jim_DecrRefCount(interp
, objPtr
);
278 static int file_cmd_rootname(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
280 Jim_Obj
*objPtr
= JimStripTrailingSlashes(interp
, argv
[0]);
281 const char *path
= Jim_String(objPtr
);
282 const char *lastSlash
= strrchr(path
, '/');
283 const char *p
= strrchr(path
, '.');
285 if (p
== NULL
|| (lastSlash
!= NULL
&& lastSlash
> p
)) {
286 Jim_SetResult(interp
, objPtr
);
289 Jim_SetResultString(interp
, path
, p
- path
);
291 Jim_DecrRefCount(interp
, objPtr
);
295 static int file_cmd_extension(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
297 Jim_Obj
*objPtr
= JimStripTrailingSlashes(interp
, argv
[0]);
298 const char *path
= Jim_String(objPtr
);
299 const char *lastSlash
= strrchr(path
, '/');
300 const char *p
= strrchr(path
, '.');
302 if (p
== NULL
|| (lastSlash
!= NULL
&& lastSlash
>= p
)) {
305 Jim_SetResultString(interp
, p
, -1);
306 Jim_DecrRefCount(interp
, objPtr
);
310 static int file_cmd_tail(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
312 Jim_Obj
*objPtr
= JimStripTrailingSlashes(interp
, argv
[0]);
313 const char *path
= Jim_String(objPtr
);
314 const char *lastSlash
= strrchr(path
, '/');
317 Jim_SetResultString(interp
, lastSlash
+ 1, -1);
320 Jim_SetResult(interp
, objPtr
);
322 Jim_DecrRefCount(interp
, objPtr
);
326 static int file_cmd_normalize(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
329 const char *path
= Jim_String(argv
[0]);
330 char *newname
= Jim_Alloc(MAXPATHLEN
+ 1);
332 if (realpath(path
, newname
)) {
333 Jim_SetResult(interp
, Jim_NewStringObjNoAlloc(interp
, newname
, -1));
338 Jim_SetResultFormatted(interp
, "can't normalize \"%#s\": %s", argv
[0], strerror(errno
));
342 Jim_SetResultString(interp
, "Not implemented", -1);
347 static int file_cmd_join(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
350 char *newname
= Jim_Alloc(MAXPATHLEN
+ 1);
351 char *last
= newname
;
355 /* Simple implementation for now */
356 for (i
= 0; i
< argc
; i
++) {
358 const char *part
= Jim_GetString(argv
[i
], &len
);
361 /* Absolute component, so go back to the start */
364 else if (ISWINDOWS
&& strchr(part
, ':')) {
365 /* Absolute component on mingw, so go back to the start */
368 else if (part
[0] == '.') {
369 if (part
[1] == '/') {
373 else if (part
[1] == 0 && last
!= newname
) {
374 /* Adding '.' to an existing path does nothing */
379 /* Add a slash if needed */
380 if (last
!= newname
&& last
[-1] != '/') {
385 if (last
+ len
- newname
>= MAXPATHLEN
) {
387 Jim_SetResultString(interp
, "Path too long", -1);
390 memcpy(last
, part
, len
);
394 /* Remove a slash if needed */
395 if (last
> newname
+ 1 && last
[-1] == '/') {
396 /* but on on Windows, leave the trailing slash on "c:/ " */
397 if (!ISWINDOWS
|| !(last
> newname
+ 2 && last
[-2] == ':')) {
405 /* Probably need to handle some special cases ... */
407 Jim_SetResult(interp
, Jim_NewStringObjNoAlloc(interp
, newname
, last
- newname
));
412 static int file_access(Jim_Interp
*interp
, Jim_Obj
*filename
, int mode
)
414 Jim_SetResultBool(interp
, access(Jim_String(filename
), mode
) != -1);
419 static int file_cmd_readable(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
421 return file_access(interp
, argv
[0], R_OK
);
424 static int file_cmd_writable(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
426 return file_access(interp
, argv
[0], W_OK
);
429 static int file_cmd_executable(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
432 return file_access(interp
, argv
[0], X_OK
);
434 /* If no X_OK, just assume true. */
435 Jim_SetResultBool(interp
, 1);
440 static int file_cmd_exists(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
442 return file_access(interp
, argv
[0], F_OK
);
445 static int file_cmd_delete(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
447 int force
= Jim_CompareStringImmediate(interp
, argv
[0], "-force");
449 if (force
|| Jim_CompareStringImmediate(interp
, argv
[0], "--")) {
455 const char *path
= Jim_String(argv
[0]);
457 if (unlink(path
) == -1 && errno
!= ENOENT
) {
458 if (rmdir(path
) == -1) {
459 /* Maybe try using the script helper */
460 if (!force
|| Jim_EvalPrefix(interp
, "file delete force", 1, argv
) != JIM_OK
) {
461 Jim_SetResultFormatted(interp
, "couldn't delete file \"%s\": %s", path
,
472 #ifdef HAVE_MKDIR_ONE_ARG
473 #define MKDIR_DEFAULT(PATHNAME) mkdir(PATHNAME)
475 #define MKDIR_DEFAULT(PATHNAME) mkdir(PATHNAME, 0755)
479 * Create directory, creating all intermediate paths if necessary.
481 * Returns 0 if OK or -1 on failure (and sets errno)
483 * Note: The path may be modified.
485 static int mkdir_all(char *path
)
489 /* First time just try to make the dir */
493 /* Must have failed the first time, so recursively make the parent and try again */
495 char *slash
= strrchr(path
, '/');
497 if (slash
&& slash
!= path
) {
499 if (mkdir_all(path
) != 0) {
506 if (MKDIR_DEFAULT(path
) == 0) {
509 if (errno
== ENOENT
) {
510 /* Create the parent and try again */
513 /* Maybe it already exists as a directory */
514 if (errno
== EEXIST
) {
517 if (stat(path
, &sb
) == 0 && S_ISDIR(sb
.st_mode
)) {
529 static int file_cmd_mkdir(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
532 char *path
= Jim_StrDup(Jim_String(argv
[0]));
533 int rc
= mkdir_all(path
);
537 Jim_SetResultFormatted(interp
, "can't create directory \"%#s\": %s", argv
[0],
546 static int file_cmd_tempfile(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
548 int fd
= Jim_MakeTempFile(interp
, (argc
>= 1) ? Jim_String(argv
[0]) : NULL
, 0);
558 static int file_cmd_rename(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
565 if (!Jim_CompareStringImmediate(interp
, argv
[0], "-force")) {
573 source
= Jim_String(argv
[0]);
574 dest
= Jim_String(argv
[1]);
576 if (!force
&& access(dest
, F_OK
) == 0) {
577 Jim_SetResultFormatted(interp
, "error renaming \"%#s\" to \"%#s\": target exists", argv
[0],
582 if (rename(source
, dest
) != 0) {
583 Jim_SetResultFormatted(interp
, "error renaming \"%#s\" to \"%#s\": %s", argv
[0], argv
[1],
591 #if defined(HAVE_LINK) && defined(HAVE_SYMLINK)
592 static int file_cmd_link(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
597 static const char * const options
[] = { "-hard", "-symbolic", NULL
};
598 enum { OPT_HARD
, OPT_SYMBOLIC
, };
599 int option
= OPT_HARD
;
602 if (Jim_GetEnum(interp
, argv
[0], options
, &option
, NULL
, JIM_ENUM_ABBREV
| JIM_ERRMSG
) != JIM_OK
) {
609 dest
= Jim_String(argv
[0]);
610 source
= Jim_String(argv
[1]);
612 if (option
== OPT_HARD
) {
613 ret
= link(source
, dest
);
616 ret
= symlink(source
, dest
);
620 Jim_SetResultFormatted(interp
, "error linking \"%#s\" to \"%#s\": %s", argv
[0], argv
[1],
629 static int file_stat(Jim_Interp
*interp
, Jim_Obj
*filename
, struct stat
*sb
)
631 const char *path
= Jim_String(filename
);
633 if (stat(path
, sb
) == -1) {
634 Jim_SetResultFormatted(interp
, "could not read \"%#s\": %s", filename
, strerror(errno
));
641 static int file_lstat(Jim_Interp
*interp
, Jim_Obj
*filename
, struct stat
*sb
)
643 const char *path
= Jim_String(filename
);
645 if (lstat(path
, sb
) == -1) {
646 Jim_SetResultFormatted(interp
, "could not read \"%#s\": %s", filename
, strerror(errno
));
652 #define file_lstat file_stat
655 static int file_cmd_atime(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
659 if (file_stat(interp
, argv
[0], &sb
) != JIM_OK
) {
662 Jim_SetResultInt(interp
, sb
.st_atime
);
667 * Set file atime/mtime to the given time in microseconds since the epoch.
669 static int JimSetFileTimes(Jim_Interp
*interp
, const char *filename
, jim_wide us
)
672 struct timeval times
[2];
674 times
[1].tv_sec
= times
[0].tv_sec
= us
/ 1000000;
675 times
[1].tv_usec
= times
[0].tv_usec
= us
% 1000000;
677 if (utimes(filename
, times
) != 0) {
678 Jim_SetResultFormatted(interp
, "can't set time on \"%s\": %s", filename
, strerror(errno
));
683 Jim_SetResultString(interp
, "Not implemented", -1);
688 static int file_cmd_mtime(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
694 if (Jim_GetWide(interp
, argv
[1], &secs
) != JIM_OK
) {
697 return JimSetFileTimes(interp
, Jim_String(argv
[0]), secs
* 1000000);
699 if (file_stat(interp
, argv
[0], &sb
) != JIM_OK
) {
702 Jim_SetResultInt(interp
, sb
.st_mtime
);
707 static int file_cmd_mtimeus(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
713 if (Jim_GetWide(interp
, argv
[1], &us
) != JIM_OK
) {
716 return JimSetFileTimes(interp
, Jim_String(argv
[0]), us
);
718 if (file_stat(interp
, argv
[0], &sb
) != JIM_OK
) {
721 Jim_SetResultInt(interp
, STAT_MTIME_US(sb
));
726 static int file_cmd_copy(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
728 return Jim_EvalPrefix(interp
, "file copy", argc
, argv
);
731 static int file_cmd_size(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
735 if (file_stat(interp
, argv
[0], &sb
) != JIM_OK
) {
738 Jim_SetResultInt(interp
, sb
.st_size
);
742 static int file_cmd_isdirectory(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
747 if (file_stat(interp
, argv
[0], &sb
) == JIM_OK
) {
748 ret
= S_ISDIR(sb
.st_mode
);
750 Jim_SetResultInt(interp
, ret
);
754 static int file_cmd_isfile(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
759 if (file_stat(interp
, argv
[0], &sb
) == JIM_OK
) {
760 ret
= S_ISREG(sb
.st_mode
);
762 Jim_SetResultInt(interp
, ret
);
767 static int file_cmd_owned(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
772 if (file_stat(interp
, argv
[0], &sb
) == JIM_OK
) {
773 ret
= (geteuid() == sb
.st_uid
);
775 Jim_SetResultInt(interp
, ret
);
780 #if defined(HAVE_READLINK)
781 static int file_cmd_readlink(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
783 const char *path
= Jim_String(argv
[0]);
784 char *linkValue
= Jim_Alloc(MAXPATHLEN
+ 1);
786 int linkLength
= readlink(path
, linkValue
, MAXPATHLEN
);
788 if (linkLength
== -1) {
790 Jim_SetResultFormatted(interp
, "couldn't readlink \"%#s\": %s", argv
[0], strerror(errno
));
793 linkValue
[linkLength
] = 0;
794 Jim_SetResult(interp
, Jim_NewStringObjNoAlloc(interp
, linkValue
, linkLength
));
799 static int file_cmd_type(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
803 if (file_lstat(interp
, argv
[0], &sb
) != JIM_OK
) {
806 Jim_SetResultString(interp
, JimGetFileType((int)sb
.st_mode
), -1);
811 static int file_cmd_lstat(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
815 if (file_lstat(interp
, argv
[0], &sb
) != JIM_OK
) {
818 return StoreStatData(interp
, argc
== 2 ? argv
[1] : NULL
, &sb
);
821 #define file_cmd_lstat file_cmd_stat
824 static int file_cmd_stat(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
828 if (file_stat(interp
, argv
[0], &sb
) != JIM_OK
) {
831 return StoreStatData(interp
, argc
== 2 ? argv
[1] : NULL
, &sb
);
834 static const jim_subcmd_type file_command_table
[] = {
840 /* Description: Last access time */
847 /* Description: Get or set last modification time */
855 /* Description: Get or set last modification time in microseconds */
859 "?-force? source dest",
863 /* Description: Copy source file to destination file */
870 /* Description: Directory part of the name */
877 /* Description: Name without any extension */
884 /* Description: Last extension including the dot */
891 /* Description: Last component of the name */
898 /* Description: Normalized path of name */
905 /* Description: Join multiple path components */
912 /* Description: Is file readable */
919 /* Description: Is file writable */
926 /* Description: Is file executable */
933 /* Description: Does file exist */
936 "?-force|--? name ...",
940 /* Description: Deletes the files or directories (must be empty unless -force) */
947 /* Description: Creates the directories */
954 /* Description: Creates a temporary filename */
957 "?-force? source dest",
961 /* Description: Renames a file */
963 #if defined(HAVE_LINK) && defined(HAVE_SYMLINK)
965 "?-symbolic|-hard? newname target",
969 /* Description: Creates a hard or soft link */
972 #if defined(HAVE_READLINK)
978 /* Description: Value of the symbolic link */
986 /* Description: Size of file */
993 /* Description: Returns results of stat, and may store in var array */
1000 /* Description: Returns results of lstat, and may store in var array */
1007 /* Description: Returns type of the file */
1015 /* Description: Returns 1 if owned by the current owner */
1020 file_cmd_isdirectory
,
1023 /* Description: Returns 1 if name is a directory */
1030 /* Description: Returns 1 if name is a file */
1037 static int Jim_CdCmd(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
1042 Jim_WrongNumArgs(interp
, 1, argv
, "dirname");
1046 path
= Jim_String(argv
[1]);
1048 if (chdir(path
) != 0) {
1049 Jim_SetResultFormatted(interp
, "couldn't change working directory to \"%s\": %s", path
,
1056 static int Jim_PwdCmd(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
1058 char *cwd
= Jim_Alloc(MAXPATHLEN
);
1060 if (getcwd(cwd
, MAXPATHLEN
) == NULL
) {
1061 Jim_SetResultString(interp
, "Failed to get pwd", -1);
1065 else if (ISWINDOWS
) {
1066 /* Try to keep backslashes out of paths */
1068 while ((p
= strchr(p
, '\\')) != NULL
) {
1073 Jim_SetResultString(interp
, cwd
, -1);
1079 int Jim_fileInit(Jim_Interp
*interp
)
1081 if (Jim_PackageProvide(interp
, "file", "1.0", JIM_ERRMSG
))
1084 Jim_CreateCommand(interp
, "file", Jim_SubCmdProc
, (void *)file_command_table
, NULL
);
1085 Jim_CreateCommand(interp
, "pwd", Jim_PwdCmd
, NULL
, NULL
);
1086 Jim_CreateCommand(interp
, "cd", Jim_CdCmd
, NULL
, NULL
);