Artifact 54770d7ea73743f17ac5ec715a56ba5692e0d2e2:
- File
jim-file.c
-
2011-11-08 21:18:26
- part of checkin
[f2677ffd95]
on branch trunk
- Typo in error message
Signed-off-by: Steve Bennett <steveb@workware.net.au> (user: steveb@workware.net.au
-
2011-11-08 21:18:26
- part of checkin
[f2677ffd95]
on branch trunk
- Typo in error message
0000: 2f 2a 0a 20 2a 20 49 6d 70 6c 65 6d 65 6e 74 73 /*. * Implements
0010: 20 74 68 65 20 66 69 6c 65 20 63 6f 6d 6d 61 6e the file comman
0020: 64 20 66 6f 72 20 6a 69 6d 0a 20 2a 0a 20 2a 20 d for jim. *. *
0030: 28 63 29 20 32 30 30 38 20 53 74 65 76 65 20 42 (c) 2008 Steve B
0040: 65 6e 6e 65 74 74 20 3c 73 74 65 76 65 62 40 77 ennett <steveb@w
0050: 6f 72 6b 77 61 72 65 2e 6e 65 74 2e 61 75 3e 0a orkware.net.au>.
0060: 20 2a 0a 20 2a 20 52 65 64 69 73 74 72 69 62 75 *. * Redistribu
0070: 74 69 6f 6e 20 61 6e 64 20 75 73 65 20 69 6e 20 tion and use in
0080: 73 6f 75 72 63 65 20 61 6e 64 20 62 69 6e 61 72 source and binar
0090: 79 20 66 6f 72 6d 73 2c 20 77 69 74 68 20 6f 72 y forms, with or
00a0: 20 77 69 74 68 6f 75 74 0a 20 2a 20 6d 6f 64 69 without. * modi
00b0: 66 69 63 61 74 69 6f 6e 2c 20 61 72 65 20 70 65 fication, are pe
00c0: 72 6d 69 74 74 65 64 20 70 72 6f 76 69 64 65 64 rmitted provided
00d0: 20 74 68 61 74 20 74 68 65 20 66 6f 6c 6c 6f 77 that the follow
00e0: 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 73 0a 20 ing conditions.
00f0: 2a 20 61 72 65 20 6d 65 74 3a 0a 20 2a 0a 20 2a * are met:. *. *
0100: 20 31 2e 20 52 65 64 69 73 74 72 69 62 75 74 69 1. Redistributi
0110: 6f 6e 73 20 6f 66 20 73 6f 75 72 63 65 20 63 6f ons of source co
0120: 64 65 20 6d 75 73 74 20 72 65 74 61 69 6e 20 74 de must retain t
0130: 68 65 20 61 62 6f 76 65 20 63 6f 70 79 72 69 67 he above copyrig
0140: 68 74 0a 20 2a 20 20 20 20 6e 6f 74 69 63 65 2c ht. * notice,
0150: 20 74 68 69 73 20 6c 69 73 74 20 6f 66 20 63 6f this list of co
0160: 6e 64 69 74 69 6f 6e 73 20 61 6e 64 20 74 68 65 nditions and the
0170: 20 66 6f 6c 6c 6f 77 69 6e 67 20 64 69 73 63 6c following discl
0180: 61 69 6d 65 72 2e 0a 20 2a 20 32 2e 20 52 65 64 aimer.. * 2. Red
0190: 69 73 74 72 69 62 75 74 69 6f 6e 73 20 69 6e 20 istributions in
01a0: 62 69 6e 61 72 79 20 66 6f 72 6d 20 6d 75 73 74 binary form must
01b0: 20 72 65 70 72 6f 64 75 63 65 20 74 68 65 20 61 reproduce the a
01c0: 62 6f 76 65 0a 20 2a 20 20 20 20 63 6f 70 79 72 bove. * copyr
01d0: 69 67 68 74 20 6e 6f 74 69 63 65 2c 20 74 68 69 ight notice, thi
01e0: 73 20 6c 69 73 74 20 6f 66 20 63 6f 6e 64 69 74 s list of condit
01f0: 69 6f 6e 73 20 61 6e 64 20 74 68 65 20 66 6f 6c ions and the fol
0200: 6c 6f 77 69 6e 67 0a 20 2a 20 20 20 20 64 69 73 lowing. * dis
0210: 63 6c 61 69 6d 65 72 20 69 6e 20 74 68 65 20 64 claimer in the d
0220: 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 61 6e 64 ocumentation and
0230: 2f 6f 72 20 6f 74 68 65 72 20 6d 61 74 65 72 69 /or other materi
0240: 61 6c 73 0a 20 2a 20 20 20 20 70 72 6f 76 69 64 als. * provid
0250: 65 64 20 77 69 74 68 20 74 68 65 20 64 69 73 74 ed with the dist
0260: 72 69 62 75 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 ribution.. *. *
0270: 54 48 49 53 20 53 4f 46 54 57 41 52 45 20 49 53 THIS SOFTWARE IS
0280: 20 50 52 4f 56 49 44 45 44 20 42 59 20 54 48 45 PROVIDED BY THE
0290: 20 4a 49 4d 20 54 43 4c 20 50 52 4f 4a 45 43 54 JIM TCL PROJECT
02a0: 20 60 60 41 53 20 49 53 27 27 20 41 4e 44 20 41 ``AS IS'' AND A
02b0: 4e 59 0a 20 2a 20 45 58 50 52 45 53 53 20 4f 52 NY. * EXPRESS OR
02c0: 20 49 4d 50 4c 49 45 44 20 57 41 52 52 41 4e 54 IMPLIED WARRANT
02d0: 49 45 53 2c 20 49 4e 43 4c 55 44 49 4e 47 2c 20 IES, INCLUDING,
02e0: 42 55 54 20 4e 4f 54 20 4c 49 4d 49 54 45 44 20 BUT NOT LIMITED
02f0: 54 4f 2c 0a 20 2a 20 54 48 45 20 49 4d 50 4c 49 TO,. * THE IMPLI
0300: 45 44 20 57 41 52 52 41 4e 54 49 45 53 20 4f 46 ED WARRANTIES OF
0310: 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 MERCHANTABILITY
0320: 20 41 4e 44 20 46 49 54 4e 45 53 53 20 46 4f 52 AND FITNESS FOR
0330: 20 41 0a 20 2a 20 50 41 52 54 49 43 55 4c 41 52 A. * PARTICULAR
0340: 20 50 55 52 50 4f 53 45 20 41 52 45 20 44 49 53 PURPOSE ARE DIS
0350: 43 4c 41 49 4d 45 44 2e 20 49 4e 20 4e 4f 20 45 CLAIMED. IN NO E
0360: 56 45 4e 54 20 53 48 41 4c 4c 20 54 48 45 0a 20 VENT SHALL THE.
0370: 2a 20 4a 49 4d 20 54 43 4c 20 50 52 4f 4a 45 43 * JIM TCL PROJEC
0380: 54 20 4f 52 20 43 4f 4e 54 52 49 42 55 54 4f 52 T OR CONTRIBUTOR
0390: 53 20 42 45 20 4c 49 41 42 4c 45 20 46 4f 52 20 S BE LIABLE FOR
03a0: 41 4e 59 20 44 49 52 45 43 54 2c 0a 20 2a 20 49 ANY DIRECT,. * I
03b0: 4e 44 49 52 45 43 54 2c 20 49 4e 43 49 44 45 4e NDIRECT, INCIDEN
03c0: 54 41 4c 2c 20 53 50 45 43 49 41 4c 2c 20 45 58 TAL, SPECIAL, EX
03d0: 45 4d 50 4c 41 52 59 2c 20 4f 52 20 43 4f 4e 53 EMPLARY, OR CONS
03e0: 45 51 55 45 4e 54 49 41 4c 20 44 41 4d 41 47 45 EQUENTIAL DAMAGE
03f0: 53 0a 20 2a 20 28 49 4e 43 4c 55 44 49 4e 47 2c S. * (INCLUDING,
0400: 20 42 55 54 20 4e 4f 54 20 4c 49 4d 49 54 45 44 BUT NOT LIMITED
0410: 20 54 4f 2c 20 50 52 4f 43 55 52 45 4d 45 4e 54 TO, PROCUREMENT
0420: 20 4f 46 20 53 55 42 53 54 49 54 55 54 45 20 47 OF SUBSTITUTE G
0430: 4f 4f 44 53 0a 20 2a 20 4f 52 20 53 45 52 56 49 OODS. * OR SERVI
0440: 43 45 53 3b 20 4c 4f 53 53 20 4f 46 20 55 53 45 CES; LOSS OF USE
0450: 2c 20 44 41 54 41 2c 20 4f 52 20 50 52 4f 46 49 , DATA, OR PROFI
0460: 54 53 3b 20 4f 52 20 42 55 53 49 4e 45 53 53 20 TS; OR BUSINESS
0470: 49 4e 54 45 52 52 55 50 54 49 4f 4e 29 0a 20 2a INTERRUPTION). *
0480: 20 48 4f 57 45 56 45 52 20 43 41 55 53 45 44 20 HOWEVER CAUSED
0490: 41 4e 44 20 4f 4e 20 41 4e 59 20 54 48 45 4f 52 AND ON ANY THEOR
04a0: 59 20 4f 46 20 4c 49 41 42 49 4c 49 54 59 2c 20 Y OF LIABILITY,
04b0: 57 48 45 54 48 45 52 20 49 4e 20 43 4f 4e 54 52 WHETHER IN CONTR
04c0: 41 43 54 2c 0a 20 2a 20 53 54 52 49 43 54 20 4c ACT,. * STRICT L
04d0: 49 41 42 49 4c 49 54 59 2c 20 4f 52 20 54 4f 52 IABILITY, OR TOR
04e0: 54 20 28 49 4e 43 4c 55 44 49 4e 47 20 4e 45 47 T (INCLUDING NEG
04f0: 4c 49 47 45 4e 43 45 20 4f 52 20 4f 54 48 45 52 LIGENCE OR OTHER
0500: 57 49 53 45 29 0a 20 2a 20 41 52 49 53 49 4e 47 WISE). * ARISING
0510: 20 49 4e 20 41 4e 59 20 57 41 59 20 4f 55 54 20 IN ANY WAY OUT
0520: 4f 46 20 54 48 45 20 55 53 45 20 4f 46 20 54 48 OF THE USE OF TH
0530: 49 53 20 53 4f 46 54 57 41 52 45 2c 20 45 56 45 IS SOFTWARE, EVE
0540: 4e 20 49 46 0a 20 2a 20 41 44 56 49 53 45 44 20 N IF. * ADVISED
0550: 4f 46 20 54 48 45 20 50 4f 53 53 49 42 49 4c 49 OF THE POSSIBILI
0560: 54 59 20 4f 46 20 53 55 43 48 20 44 41 4d 41 47 TY OF SUCH DAMAG
0570: 45 2e 0a 20 2a 0a 20 2a 20 54 68 65 20 76 69 65 E.. *. * The vie
0580: 77 73 20 61 6e 64 20 63 6f 6e 63 6c 75 73 69 6f ws and conclusio
0590: 6e 73 20 63 6f 6e 74 61 69 6e 65 64 20 69 6e 20 ns contained in
05a0: 74 68 65 20 73 6f 66 74 77 61 72 65 20 61 6e 64 the software and
05b0: 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 0a 20 documentation.
05c0: 2a 20 61 72 65 20 74 68 6f 73 65 20 6f 66 20 74 * are those of t
05d0: 68 65 20 61 75 74 68 6f 72 73 20 61 6e 64 20 73 he authors and s
05e0: 68 6f 75 6c 64 20 6e 6f 74 20 62 65 20 69 6e 74 hould not be int
05f0: 65 72 70 72 65 74 65 64 20 61 73 20 72 65 70 72 erpreted as repr
0600: 65 73 65 6e 74 69 6e 67 0a 20 2a 20 6f 66 66 69 esenting. * offi
0610: 63 69 61 6c 20 70 6f 6c 69 63 69 65 73 2c 20 65 cial policies, e
0620: 69 74 68 65 72 20 65 78 70 72 65 73 73 65 64 20 ither expressed
0630: 6f 72 20 69 6d 70 6c 69 65 64 2c 20 6f 66 20 74 or implied, of t
0640: 68 65 20 4a 69 6d 20 54 63 6c 20 50 72 6f 6a 65 he Jim Tcl Proje
0650: 63 74 2e 0a 20 2a 0a 20 2a 20 42 61 73 65 64 20 ct.. *. * Based
0660: 6f 6e 20 63 6f 64 65 20 6f 72 69 67 69 6e 61 6c on code original
0670: 6c 79 20 66 72 6f 6d 20 54 63 6c 20 36 2e 37 3a ly from Tcl 6.7:
0680: 0a 20 2a 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 . *. * Copyright
0690: 20 31 39 38 37 2d 31 39 39 31 20 52 65 67 65 6e 1987-1991 Regen
06a0: 74 73 20 6f 66 20 74 68 65 20 55 6e 69 76 65 72 ts of the Univer
06b0: 73 69 74 79 20 6f 66 20 43 61 6c 69 66 6f 72 6e sity of Californ
06c0: 69 61 0a 20 2a 20 50 65 72 6d 69 73 73 69 6f 6e ia. * Permission
06d0: 20 74 6f 20 75 73 65 2c 20 63 6f 70 79 2c 20 6d to use, copy, m
06e0: 6f 64 69 66 79 2c 20 61 6e 64 20 64 69 73 74 72 odify, and distr
06f0: 69 62 75 74 65 20 74 68 69 73 0a 20 2a 20 73 6f ibute this. * so
0700: 66 74 77 61 72 65 20 61 6e 64 20 69 74 73 20 64 ftware and its d
0710: 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 ocumentation for
0720: 20 61 6e 79 20 70 75 72 70 6f 73 65 20 61 6e 64 any purpose and
0730: 20 77 69 74 68 6f 75 74 0a 20 2a 20 66 65 65 20 without. * fee
0740: 69 73 20 68 65 72 65 62 79 20 67 72 61 6e 74 65 is hereby grante
0750: 64 2c 20 70 72 6f 76 69 64 65 64 20 74 68 61 74 d, provided that
0760: 20 74 68 65 20 61 62 6f 76 65 20 63 6f 70 79 72 the above copyr
0770: 69 67 68 74 0a 20 2a 20 6e 6f 74 69 63 65 20 61 ight. * notice a
0780: 70 70 65 61 72 20 69 6e 20 61 6c 6c 20 63 6f 70 ppear in all cop
0790: 69 65 73 2e 20 20 54 68 65 20 55 6e 69 76 65 72 ies. The Univer
07a0: 73 69 74 79 20 6f 66 20 43 61 6c 69 66 6f 72 6e sity of Californ
07b0: 69 61 0a 20 2a 20 6d 61 6b 65 73 20 6e 6f 20 72 ia. * makes no r
07c0: 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 61 epresentations a
07d0: 62 6f 75 74 20 74 68 65 20 73 75 69 74 61 62 69 bout the suitabi
07e0: 6c 69 74 79 20 6f 66 20 74 68 69 73 0a 20 2a 20 lity of this. *
07f0: 73 6f 66 74 77 61 72 65 20 66 6f 72 20 61 6e 79 software for any
0800: 20 70 75 72 70 6f 73 65 2e 20 20 49 74 20 69 73 purpose. It is
0810: 20 70 72 6f 76 69 64 65 64 20 22 61 73 20 69 73 provided "as is
0820: 22 20 77 69 74 68 6f 75 74 0a 20 2a 20 65 78 70 " without. * exp
0830: 72 65 73 73 20 6f 72 20 69 6d 70 6c 69 65 64 20 ress or implied
0840: 77 61 72 72 61 6e 74 79 2e 0a 20 2a 2f 0a 0a 23 warranty.. */..#
0850: 69 6e 63 6c 75 64 65 20 3c 6c 69 6d 69 74 73 2e include <limits.
0860: 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 h>.#include <std
0870: 6c 69 62 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 lib.h>.#include
0880: 3c 73 74 72 69 6e 67 2e 68 3e 0a 23 69 6e 63 6c <string.h>.#incl
0890: 75 64 65 20 3c 73 74 64 69 6f 2e 68 3e 0a 23 69 ude <stdio.h>.#i
08a0: 6e 63 6c 75 64 65 20 3c 65 72 72 6e 6f 2e 68 3e nclude <errno.h>
08b0: 0a 23 69 6e 63 6c 75 64 65 20 3c 73 79 73 2f 73 .#include <sys/s
08c0: 74 61 74 2e 68 3e 0a 0a 23 69 6e 63 6c 75 64 65 tat.h>..#include
08d0: 20 22 6a 69 6d 2e 68 22 0a 23 69 6e 63 6c 75 64 "jim.h".#includ
08e0: 65 20 22 6a 69 6d 61 75 74 6f 63 6f 6e 66 2e 68 e "jimautoconf.h
08f0: 22 0a 23 69 6e 63 6c 75 64 65 20 22 6a 69 6d 2d ".#include "jim-
0900: 73 75 62 63 6d 64 2e 68 22 0a 0a 23 69 66 64 65 subcmd.h"..#ifde
0910: 66 20 48 41 56 45 5f 55 54 49 4d 45 53 0a 23 69 f HAVE_UTIMES.#i
0920: 6e 63 6c 75 64 65 20 3c 73 79 73 2f 74 69 6d 65 nclude <sys/time
0930: 2e 68 3e 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 .h>.#endif.#ifde
0940: 66 20 48 41 56 45 5f 55 4e 49 53 54 44 5f 48 0a f HAVE_UNISTD_H.
0950: 23 69 6e 63 6c 75 64 65 20 3c 75 6e 69 73 74 64 #include <unistd
0960: 2e 68 3e 0a 23 65 6c 69 66 20 64 65 66 69 6e 65 .h>.#elif define
0970: 64 28 5f 4d 53 43 5f 56 45 52 29 0a 23 69 6e 63 d(_MSC_VER).#inc
0980: 6c 75 64 65 20 3c 64 69 72 65 63 74 2e 68 3e 0a lude <direct.h>.
0990: 23 64 65 66 69 6e 65 20 46 5f 4f 4b 20 30 0a 23 #define F_OK 0.#
09a0: 64 65 66 69 6e 65 20 57 5f 4f 4b 20 32 0a 23 64 define W_OK 2.#d
09b0: 65 66 69 6e 65 20 52 5f 4f 4b 20 34 0a 23 64 65 efine R_OK 4.#de
09c0: 66 69 6e 65 20 53 5f 49 53 52 45 47 28 6d 29 20 fine S_ISREG(m)
09d0: 28 28 28 6d 29 20 26 20 53 5f 49 46 4d 54 29 20 (((m) & S_IFMT)
09e0: 3d 3d 20 53 5f 49 46 52 45 47 29 0a 23 64 65 66 == S_IFREG).#def
09f0: 69 6e 65 20 53 5f 49 53 44 49 52 28 6d 29 20 28 ine S_ISDIR(m) (
0a00: 28 28 6d 29 20 26 20 53 5f 49 46 4d 54 29 20 3d ((m) & S_IFMT) =
0a10: 3d 20 53 5f 49 46 44 49 52 29 0a 23 65 6e 64 69 = S_IFDIR).#endi
0a20: 66 0a 0a 23 20 69 66 6e 64 65 66 20 4d 41 58 50 f..# ifndef MAXP
0a30: 41 54 48 4c 45 4e 0a 23 20 64 65 66 69 6e 65 20 ATHLEN.# define
0a40: 4d 41 58 50 41 54 48 4c 45 4e 20 4a 49 4d 5f 50 MAXPATHLEN JIM_P
0a50: 41 54 48 5f 4c 45 4e 0a 23 20 65 6e 64 69 66 0a ATH_LEN.# endif.
0a60: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
0a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
0ab0: 20 2a 20 4a 69 6d 47 65 74 46 69 6c 65 54 79 70 * JimGetFileTyp
0ac0: 65 20 2d 2d 0a 20 2a 0a 20 2a 20 20 47 69 76 65 e --. *. * Give
0ad0: 6e 20 61 20 6d 6f 64 65 20 77 6f 72 64 2c 20 72 n a mode word, r
0ae0: 65 74 75 72 6e 73 20 61 20 73 74 72 69 6e 67 20 eturns a string
0af0: 69 64 65 6e 74 69 66 79 69 6e 67 20 74 68 65 20 identifying the
0b00: 74 79 70 65 20 6f 66 20 61 0a 20 2a 20 20 66 69 type of a. * fi
0b10: 6c 65 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 le.. *. * Result
0b20: 73 3a 0a 20 2a 20 20 41 20 73 74 61 74 69 63 20 s:. * A static
0b30: 74 65 78 74 20 73 74 72 69 6e 67 20 67 69 76 69 text string givi
0b40: 6e 67 20 74 68 65 20 66 69 6c 65 20 74 79 70 65 ng the file type
0b50: 20 66 72 6f 6d 20 6d 6f 64 65 2e 0a 20 2a 0a 20 from mode.. *.
0b60: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
0b70: 20 2a 20 20 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d * None.. *. *-
0b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0bc0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 -----. */..stati
0bd0: 63 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 4a 69 c const char *Ji
0be0: 6d 47 65 74 46 69 6c 65 54 79 70 65 28 69 6e 74 mGetFileType(int
0bf0: 20 6d 6f 64 65 29 0a 7b 0a 20 20 20 20 69 66 20 mode).{. if
0c00: 28 53 5f 49 53 52 45 47 28 6d 6f 64 65 29 29 20 (S_ISREG(mode))
0c10: 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e {. return
0c20: 20 22 66 69 6c 65 22 3b 0a 20 20 20 20 7d 0a 20 "file";. }.
0c30: 20 20 20 65 6c 73 65 20 69 66 20 28 53 5f 49 53 else if (S_IS
0c40: 44 49 52 28 6d 6f 64 65 29 29 20 7b 0a 20 20 20 DIR(mode)) {.
0c50: 20 20 20 20 20 72 65 74 75 72 6e 20 22 64 69 72 return "dir
0c60: 65 63 74 6f 72 79 22 3b 0a 20 20 20 20 7d 0a 23 ectory";. }.#
0c70: 69 66 64 65 66 20 53 5f 49 53 43 48 52 0a 20 20 ifdef S_ISCHR.
0c80: 20 20 65 6c 73 65 20 69 66 20 28 53 5f 49 53 43 else if (S_ISC
0c90: 48 52 28 6d 6f 64 65 29 29 20 7b 0a 20 20 20 20 HR(mode)) {.
0ca0: 20 20 20 20 72 65 74 75 72 6e 20 22 63 68 61 72 return "char
0cb0: 61 63 74 65 72 53 70 65 63 69 61 6c 22 3b 0a 20 acterSpecial";.
0cc0: 20 20 20 7d 0a 23 65 6e 64 69 66 0a 23 69 66 64 }.#endif.#ifd
0cd0: 65 66 20 53 5f 49 53 42 4c 4b 0a 20 20 20 20 65 ef S_ISBLK. e
0ce0: 6c 73 65 20 69 66 20 28 53 5f 49 53 42 4c 4b 28 lse if (S_ISBLK(
0cf0: 6d 6f 64 65 29 29 20 7b 0a 20 20 20 20 20 20 20 mode)) {.
0d00: 20 72 65 74 75 72 6e 20 22 62 6c 6f 63 6b 53 70 return "blockSp
0d10: 65 63 69 61 6c 22 3b 0a 20 20 20 20 7d 0a 23 65 ecial";. }.#e
0d20: 6e 64 69 66 0a 23 69 66 64 65 66 20 53 5f 49 53 ndif.#ifdef S_IS
0d30: 46 49 46 4f 0a 20 20 20 20 65 6c 73 65 20 69 66 FIFO. else if
0d40: 20 28 53 5f 49 53 46 49 46 4f 28 6d 6f 64 65 29 (S_ISFIFO(mode)
0d50: 29 20 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 ) {. retu
0d60: 72 6e 20 22 66 69 66 6f 22 3b 0a 20 20 20 20 7d rn "fifo";. }
0d70: 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 66 20 53 .#endif.#ifdef S
0d80: 5f 49 53 4c 4e 4b 0a 20 20 20 20 65 6c 73 65 20 _ISLNK. else
0d90: 69 66 20 28 53 5f 49 53 4c 4e 4b 28 6d 6f 64 65 if (S_ISLNK(mode
0da0: 29 29 20 7b 0a 20 20 20 20 20 20 20 20 72 65 74 )) {. ret
0db0: 75 72 6e 20 22 6c 69 6e 6b 22 3b 0a 20 20 20 20 urn "link";.
0dc0: 7d 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 66 20 }.#endif.#ifdef
0dd0: 53 5f 49 53 53 4f 43 4b 0a 20 20 20 20 65 6c 73 S_ISSOCK. els
0de0: 65 20 69 66 20 28 53 5f 49 53 53 4f 43 4b 28 6d e if (S_ISSOCK(m
0df0: 6f 64 65 29 29 20 7b 0a 20 20 20 20 20 20 20 20 ode)) {.
0e00: 72 65 74 75 72 6e 20 22 73 6f 63 6b 65 74 22 3b return "socket";
0e10: 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 20 20 . }.#endif.
0e20: 20 20 72 65 74 75 72 6e 20 22 75 6e 6b 6e 6f 77 return "unknow
0e30: 6e 22 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d n";.}../*. *----
0e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e80: 2d 2d 0a 20 2a 0a 20 2a 20 53 74 6f 72 65 53 74 --. *. * StoreSt
0e90: 61 74 44 61 74 61 20 2d 2d 0a 20 2a 0a 20 2a 20 atData --. *. *
0ea0: 20 54 68 69 73 20 69 73 20 61 20 75 74 69 6c 69 This is a utili
0eb0: 74 79 20 70 72 6f 63 65 64 75 72 65 20 74 68 61 ty procedure tha
0ec0: 74 20 62 72 65 61 6b 73 20 6f 75 74 20 74 68 65 t breaks out the
0ed0: 20 66 69 65 6c 64 73 20 6f 66 20 61 0a 20 2a 20 fields of a. *
0ee0: 20 22 73 74 61 74 22 20 73 74 72 75 63 74 75 72 "stat" structur
0ef0: 65 20 61 6e 64 20 73 74 6f 72 65 73 20 74 68 65 e and stores the
0f00: 6d 20 69 6e 20 74 65 78 74 75 61 6c 20 66 6f 72 m in textual for
0f10: 6d 20 69 6e 74 6f 20 74 68 65 0a 20 2a 20 20 65 m into the. * e
0f20: 6c 65 6d 65 6e 74 73 20 6f 66 20 61 6e 20 61 73 lements of an as
0f30: 73 6f 63 69 61 74 69 76 65 20 61 72 72 61 79 2e sociative array.
0f40: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
0f50: 20 2a 20 20 52 65 74 75 72 6e 73 20 61 20 73 74 * Returns a st
0f60: 61 6e 64 61 72 64 20 54 63 6c 20 72 65 74 75 72 andard Tcl retur
0f70: 6e 20 76 61 6c 75 65 2e 20 20 49 66 20 61 6e 20 n value. If an
0f80: 65 72 72 6f 72 20 6f 63 63 75 72 73 20 74 68 65 error occurs the
0f90: 6e 0a 20 2a 20 20 61 20 6d 65 73 73 61 67 65 20 n. * a message
0fa0: 69 73 20 6c 65 66 74 20 69 6e 20 69 6e 74 65 72 is left in inter
0fb0: 70 2d 3e 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a p->result.. *. *
0fc0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
0fd0: 2a 20 20 45 6c 65 6d 65 6e 74 73 20 6f 66 20 74 * Elements of t
0fe0: 68 65 20 61 73 73 6f 63 69 61 74 69 76 65 20 61 he associative a
0ff0: 72 72 61 79 20 67 69 76 65 6e 20 62 79 20 22 76 rray given by "v
1000: 61 72 4e 61 6d 65 22 20 61 72 65 20 6d 6f 64 69 arName" are modi
1010: 66 69 65 64 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d fied.. *. *-----
1020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1060: 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e -. */..static in
1070: 74 20 73 65 74 5f 61 72 72 61 79 5f 69 6e 74 5f t set_array_int_
1080: 76 61 6c 75 65 28 4a 69 6d 5f 49 6e 74 65 72 70 value(Jim_Interp
1090: 20 2a 69 6e 74 65 72 70 2c 20 4a 69 6d 5f 4f 62 *interp, Jim_Ob
10a0: 6a 20 2a 63 6f 6e 74 61 69 6e 65 72 2c 20 63 6f j *container, co
10b0: 6e 73 74 20 63 68 61 72 20 2a 6b 65 79 2c 0a 20 nst char *key,.
10c0: 20 20 20 6a 69 6d 5f 77 69 64 65 20 76 61 6c 75 jim_wide valu
10d0: 65 29 0a 7b 0a 20 20 20 20 4a 69 6d 5f 4f 62 6a e).{. Jim_Obj
10e0: 20 2a 6e 61 6d 65 6f 62 6a 20 3d 20 4a 69 6d 5f *nameobj = Jim_
10f0: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 69 6e 74 NewStringObj(int
1100: 65 72 70 2c 20 6b 65 79 2c 20 2d 31 29 3b 0a 20 erp, key, -1);.
1110: 20 20 20 4a 69 6d 5f 4f 62 6a 20 2a 76 61 6c 6f Jim_Obj *valo
1120: 62 6a 20 3d 20 4a 69 6d 5f 4e 65 77 57 69 64 65 bj = Jim_NewWide
1130: 4f 62 6a 28 69 6e 74 65 72 70 2c 20 76 61 6c 75 Obj(interp, valu
1140: 65 29 3b 0a 0a 20 20 20 20 69 66 20 28 4a 69 6d e);.. if (Jim
1150: 5f 53 65 74 44 69 63 74 4b 65 79 73 56 65 63 74 _SetDictKeysVect
1160: 6f 72 28 69 6e 74 65 72 70 2c 20 63 6f 6e 74 61 or(interp, conta
1170: 69 6e 65 72 2c 20 26 6e 61 6d 65 6f 62 6a 2c 20 iner, &nameobj,
1180: 31 2c 20 76 61 6c 6f 62 6a 2c 20 4a 49 4d 5f 45 1, valobj, JIM_E
1190: 52 52 4d 53 47 29 20 21 3d 20 4a 49 4d 5f 4f 4b RRMSG) != JIM_OK
11a0: 29 20 7b 0a 20 20 20 20 20 20 20 20 4a 69 6d 5f ) {. Jim_
11b0: 46 72 65 65 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FreeObj(interp,
11c0: 6e 61 6d 65 6f 62 6a 29 3b 0a 20 20 20 20 20 20 nameobj);.
11d0: 20 20 4a 69 6d 5f 46 72 65 65 4f 62 6a 28 69 6e Jim_FreeObj(in
11e0: 74 65 72 70 2c 20 76 61 6c 6f 62 6a 29 3b 0a 20 terp, valobj);.
11f0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 4a 49 return JI
1200: 4d 5f 45 52 52 3b 0a 20 20 20 20 7d 0a 20 20 20 M_ERR;. }.
1210: 20 72 65 74 75 72 6e 20 4a 49 4d 5f 4f 4b 3b 0a return JIM_OK;.
1220: 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 73 65 }..static int se
1230: 74 5f 61 72 72 61 79 5f 73 74 72 69 6e 67 5f 76 t_array_string_v
1240: 61 6c 75 65 28 4a 69 6d 5f 49 6e 74 65 72 70 20 alue(Jim_Interp
1250: 2a 69 6e 74 65 72 70 2c 20 4a 69 6d 5f 4f 62 6a *interp, Jim_Obj
1260: 20 2a 63 6f 6e 74 61 69 6e 65 72 2c 20 63 6f 6e *container, con
1270: 73 74 20 63 68 61 72 20 2a 6b 65 79 2c 0a 20 20 st char *key,.
1280: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 76 61 const char *va
1290: 6c 75 65 29 0a 7b 0a 20 20 20 20 4a 69 6d 5f 4f lue).{. Jim_O
12a0: 62 6a 20 2a 6e 61 6d 65 6f 62 6a 20 3d 20 4a 69 bj *nameobj = Ji
12b0: 6d 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 69 m_NewStringObj(i
12c0: 6e 74 65 72 70 2c 20 6b 65 79 2c 20 2d 31 29 3b nterp, key, -1);
12d0: 0a 20 20 20 20 4a 69 6d 5f 4f 62 6a 20 2a 76 61 . Jim_Obj *va
12e0: 6c 6f 62 6a 20 3d 20 4a 69 6d 5f 4e 65 77 53 74 lobj = Jim_NewSt
12f0: 72 69 6e 67 4f 62 6a 28 69 6e 74 65 72 70 2c 20 ringObj(interp,
1300: 76 61 6c 75 65 2c 20 2d 31 29 3b 0a 0a 20 20 20 value, -1);..
1310: 20 69 66 20 28 4a 69 6d 5f 53 65 74 44 69 63 74 if (Jim_SetDict
1320: 4b 65 79 73 56 65 63 74 6f 72 28 69 6e 74 65 72 KeysVector(inter
1330: 70 2c 20 63 6f 6e 74 61 69 6e 65 72 2c 20 26 6e p, container, &n
1340: 61 6d 65 6f 62 6a 2c 20 31 2c 20 76 61 6c 6f 62 ameobj, 1, valob
1350: 6a 2c 20 4a 49 4d 5f 45 52 52 4d 53 47 29 20 21 j, JIM_ERRMSG) !
1360: 3d 20 4a 49 4d 5f 4f 4b 29 20 7b 0a 20 20 20 20 = JIM_OK) {.
1370: 20 20 20 20 4a 69 6d 5f 46 72 65 65 4f 62 6a 28 Jim_FreeObj(
1380: 69 6e 74 65 72 70 2c 20 6e 61 6d 65 6f 62 6a 29 interp, nameobj)
1390: 3b 0a 20 20 20 20 20 20 20 20 4a 69 6d 5f 46 72 ;. Jim_Fr
13a0: 65 65 4f 62 6a 28 69 6e 74 65 72 70 2c 20 76 61 eeObj(interp, va
13b0: 6c 6f 62 6a 29 3b 0a 20 20 20 20 20 20 20 20 72 lobj);. r
13c0: 65 74 75 72 6e 20 4a 49 4d 5f 45 52 52 3b 0a 20 eturn JIM_ERR;.
13d0: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 }. return
13e0: 4a 49 4d 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 JIM_OK;.}..stati
13f0: 63 20 69 6e 74 20 53 74 6f 72 65 53 74 61 74 44 c int StoreStatD
1400: 61 74 61 28 4a 69 6d 5f 49 6e 74 65 72 70 20 2a ata(Jim_Interp *
1410: 69 6e 74 65 72 70 2c 20 4a 69 6d 5f 4f 62 6a 20 interp, Jim_Obj
1420: 2a 76 61 72 4e 61 6d 65 2c 20 63 6f 6e 73 74 20 *varName, const
1430: 73 74 72 75 63 74 20 73 74 61 74 20 2a 73 62 29 struct stat *sb)
1440: 0a 7b 0a 20 20 20 20 69 66 20 28 73 65 74 5f 61 .{. if (set_a
1450: 72 72 61 79 5f 69 6e 74 5f 76 61 6c 75 65 28 69 rray_int_value(i
1460: 6e 74 65 72 70 2c 20 76 61 72 4e 61 6d 65 2c 20 nterp, varName,
1470: 22 64 65 76 22 2c 20 73 62 2d 3e 73 74 5f 64 65 "dev", sb->st_de
1480: 76 29 20 21 3d 20 4a 49 4d 5f 4f 4b 29 20 7b 0a v) != JIM_OK) {.
1490: 20 20 20 20 20 20 20 20 4a 69 6d 5f 53 65 74 52 Jim_SetR
14a0: 65 73 75 6c 74 46 6f 72 6d 61 74 74 65 64 28 69 esultFormatted(i
14b0: 6e 74 65 72 70 2c 20 22 63 61 6e 27 74 20 73 65 nterp, "can't se
14c0: 74 20 5c 22 25 23 73 28 64 65 76 29 5c 22 3a 20 t \"%#s(dev)\":
14d0: 76 61 72 69 61 62 6c 65 20 69 73 6e 27 74 20 61 variable isn't a
14e0: 72 72 61 79 22 2c 20 76 61 72 4e 61 6d 65 29 3b rray", varName);
14f0: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 . return
1500: 4a 49 4d 5f 45 52 52 3b 0a 20 20 20 20 7d 0a 20 JIM_ERR;. }.
1510: 20 20 20 73 65 74 5f 61 72 72 61 79 5f 69 6e 74 set_array_int
1520: 5f 76 61 6c 75 65 28 69 6e 74 65 72 70 2c 20 76 _value(interp, v
1530: 61 72 4e 61 6d 65 2c 20 22 69 6e 6f 22 2c 20 73 arName, "ino", s
1540: 62 2d 3e 73 74 5f 69 6e 6f 29 3b 0a 20 20 20 20 b->st_ino);.
1550: 73 65 74 5f 61 72 72 61 79 5f 69 6e 74 5f 76 61 set_array_int_va
1560: 6c 75 65 28 69 6e 74 65 72 70 2c 20 76 61 72 4e lue(interp, varN
1570: 61 6d 65 2c 20 22 6d 6f 64 65 22 2c 20 73 62 2d ame, "mode", sb-
1580: 3e 73 74 5f 6d 6f 64 65 29 3b 0a 20 20 20 20 73 >st_mode);. s
1590: 65 74 5f 61 72 72 61 79 5f 69 6e 74 5f 76 61 6c et_array_int_val
15a0: 75 65 28 69 6e 74 65 72 70 2c 20 76 61 72 4e 61 ue(interp, varNa
15b0: 6d 65 2c 20 22 6e 6c 69 6e 6b 22 2c 20 73 62 2d me, "nlink", sb-
15c0: 3e 73 74 5f 6e 6c 69 6e 6b 29 3b 0a 20 20 20 20 >st_nlink);.
15d0: 73 65 74 5f 61 72 72 61 79 5f 69 6e 74 5f 76 61 set_array_int_va
15e0: 6c 75 65 28 69 6e 74 65 72 70 2c 20 76 61 72 4e lue(interp, varN
15f0: 61 6d 65 2c 20 22 75 69 64 22 2c 20 73 62 2d 3e ame, "uid", sb->
1600: 73 74 5f 75 69 64 29 3b 0a 20 20 20 20 73 65 74 st_uid);. set
1610: 5f 61 72 72 61 79 5f 69 6e 74 5f 76 61 6c 75 65 _array_int_value
1620: 28 69 6e 74 65 72 70 2c 20 76 61 72 4e 61 6d 65 (interp, varName
1630: 2c 20 22 67 69 64 22 2c 20 73 62 2d 3e 73 74 5f , "gid", sb->st_
1640: 67 69 64 29 3b 0a 20 20 20 20 73 65 74 5f 61 72 gid);. set_ar
1650: 72 61 79 5f 69 6e 74 5f 76 61 6c 75 65 28 69 6e ray_int_value(in
1660: 74 65 72 70 2c 20 76 61 72 4e 61 6d 65 2c 20 22 terp, varName, "
1670: 73 69 7a 65 22 2c 20 73 62 2d 3e 73 74 5f 73 69 size", sb->st_si
1680: 7a 65 29 3b 0a 20 20 20 20 73 65 74 5f 61 72 72 ze);. set_arr
1690: 61 79 5f 69 6e 74 5f 76 61 6c 75 65 28 69 6e 74 ay_int_value(int
16a0: 65 72 70 2c 20 76 61 72 4e 61 6d 65 2c 20 22 61 erp, varName, "a
16b0: 74 69 6d 65 22 2c 20 73 62 2d 3e 73 74 5f 61 74 time", sb->st_at
16c0: 69 6d 65 29 3b 0a 20 20 20 20 73 65 74 5f 61 72 ime);. set_ar
16d0: 72 61 79 5f 69 6e 74 5f 76 61 6c 75 65 28 69 6e ray_int_value(in
16e0: 74 65 72 70 2c 20 76 61 72 4e 61 6d 65 2c 20 22 terp, varName, "
16f0: 6d 74 69 6d 65 22 2c 20 73 62 2d 3e 73 74 5f 6d mtime", sb->st_m
1700: 74 69 6d 65 29 3b 0a 20 20 20 20 73 65 74 5f 61 time);. set_a
1710: 72 72 61 79 5f 69 6e 74 5f 76 61 6c 75 65 28 69 rray_int_value(i
1720: 6e 74 65 72 70 2c 20 76 61 72 4e 61 6d 65 2c 20 nterp, varName,
1730: 22 63 74 69 6d 65 22 2c 20 73 62 2d 3e 73 74 5f "ctime", sb->st_
1740: 63 74 69 6d 65 29 3b 0a 20 20 20 20 73 65 74 5f ctime);. set_
1750: 61 72 72 61 79 5f 73 74 72 69 6e 67 5f 76 61 6c array_string_val
1760: 75 65 28 69 6e 74 65 72 70 2c 20 76 61 72 4e 61 ue(interp, varNa
1770: 6d 65 2c 20 22 74 79 70 65 22 2c 20 4a 69 6d 47 me, "type", JimG
1780: 65 74 46 69 6c 65 54 79 70 65 28 28 69 6e 74 29 etFileType((int)
1790: 73 62 2d 3e 73 74 5f 6d 6f 64 65 29 29 3b 0a 0a sb->st_mode));..
17a0: 20 20 20 20 2f 2a 20 41 6e 64 20 61 6c 73 6f 20 /* And also
17b0: 72 65 74 75 72 6e 20 74 68 65 20 76 61 6c 75 65 return the value
17c0: 20 2a 2f 0a 20 20 20 20 4a 69 6d 5f 53 65 74 52 */. Jim_SetR
17d0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 4a 69 esult(interp, Ji
17e0: 6d 5f 47 65 74 56 61 72 69 61 62 6c 65 28 69 6e m_GetVariable(in
17f0: 74 65 72 70 2c 20 76 61 72 4e 61 6d 65 2c 20 30 terp, varName, 0
1800: 29 29 3b 0a 0a 20 20 20 20 72 65 74 75 72 6e 20 ));.. return
1810: 4a 49 4d 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 JIM_OK;.}..stati
1820: 63 20 69 6e 74 20 66 69 6c 65 5f 63 6d 64 5f 64 c int file_cmd_d
1830: 69 72 6e 61 6d 65 28 4a 69 6d 5f 49 6e 74 65 72 irname(Jim_Inter
1840: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 61 p *interp, int a
1850: 72 67 63 2c 20 4a 69 6d 5f 4f 62 6a 20 2a 63 6f rgc, Jim_Obj *co
1860: 6e 73 74 20 2a 61 72 67 76 29 0a 7b 0a 20 20 20 nst *argv).{.
1870: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 70 61 74 const char *pat
1880: 68 20 3d 20 4a 69 6d 5f 53 74 72 69 6e 67 28 61 h = Jim_String(a
1890: 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 63 6f 6e rgv[0]);. con
18a0: 73 74 20 63 68 61 72 20 2a 70 20 3d 20 73 74 72 st char *p = str
18b0: 72 63 68 72 28 70 61 74 68 2c 20 27 2f 27 29 3b rchr(path, '/');
18c0: 0a 0a 20 20 20 20 69 66 20 28 21 70 29 20 7b 0a .. if (!p) {.
18d0: 20 20 20 20 20 20 20 20 4a 69 6d 5f 53 65 74 52 Jim_SetR
18e0: 65 73 75 6c 74 53 74 72 69 6e 67 28 69 6e 74 65 esultString(inte
18f0: 72 70 2c 20 22 2e 22 2c 20 2d 31 29 3b 0a 20 20 rp, ".", -1);.
1900: 20 20 7d 0a 20 20 20 20 65 6c 73 65 20 69 66 20 }. else if
1910: 28 70 20 3d 3d 20 70 61 74 68 29 20 7b 0a 20 20 (p == path) {.
1920: 20 20 20 20 20 20 4a 69 6d 5f 53 65 74 52 65 73 Jim_SetRes
1930: 75 6c 74 53 74 72 69 6e 67 28 69 6e 74 65 72 70 ultString(interp
1940: 2c 20 22 2f 22 2c 20 2d 31 29 3b 0a 20 20 20 20 , "/", -1);.
1950: 7d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 5f 5f }.#if defined(__
1960: 4d 49 4e 47 57 33 32 5f 5f 29 20 7c 7c 20 64 65 MINGW32__) || de
1970: 66 69 6e 65 64 28 5f 4d 53 43 5f 56 45 52 29 0a fined(_MSC_VER).
1980: 20 20 20 20 65 6c 73 65 20 69 66 20 28 70 5b 2d else if (p[-
1990: 31 5d 20 3d 3d 20 27 3a 27 29 20 7b 0a 20 20 20 1] == ':') {.
19a0: 20 20 20 20 20 2f 2a 20 7a 3a 2f 64 69 72 20 3d /* z:/dir =
19b0: 3e 20 7a 3a 2f 20 2a 2f 0a 20 20 20 20 20 20 20 > z:/ */.
19c0: 20 4a 69 6d 5f 53 65 74 52 65 73 75 6c 74 53 74 Jim_SetResultSt
19d0: 72 69 6e 67 28 69 6e 74 65 72 70 2c 20 70 61 74 ring(interp, pat
19e0: 68 2c 20 70 20 2d 20 70 61 74 68 20 2b 20 31 29 h, p - path + 1)
19f0: 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 20 ;. }.#endif.
1a00: 20 20 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 else {.
1a10: 20 20 4a 69 6d 5f 53 65 74 52 65 73 75 6c 74 53 Jim_SetResultS
1a20: 74 72 69 6e 67 28 69 6e 74 65 72 70 2c 20 70 61 tring(interp, pa
1a30: 74 68 2c 20 70 20 2d 20 70 61 74 68 29 3b 0a 20 th, p - path);.
1a40: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 }. return
1a50: 4a 49 4d 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 JIM_OK;.}..stati
1a60: 63 20 69 6e 74 20 66 69 6c 65 5f 63 6d 64 5f 72 c int file_cmd_r
1a70: 6f 6f 74 6e 61 6d 65 28 4a 69 6d 5f 49 6e 74 65 ootname(Jim_Inte
1a80: 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 rp *interp, int
1a90: 61 72 67 63 2c 20 4a 69 6d 5f 4f 62 6a 20 2a 63 argc, Jim_Obj *c
1aa0: 6f 6e 73 74 20 2a 61 72 67 76 29 0a 7b 0a 20 20 onst *argv).{.
1ab0: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 70 61 const char *pa
1ac0: 74 68 20 3d 20 4a 69 6d 5f 53 74 72 69 6e 67 28 th = Jim_String(
1ad0: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 63 6f argv[0]);. co
1ae0: 6e 73 74 20 63 68 61 72 20 2a 6c 61 73 74 53 6c nst char *lastSl
1af0: 61 73 68 20 3d 20 73 74 72 72 63 68 72 28 70 61 ash = strrchr(pa
1b00: 74 68 2c 20 27 2f 27 29 3b 0a 20 20 20 20 63 6f th, '/');. co
1b10: 6e 73 74 20 63 68 61 72 20 2a 70 20 3d 20 73 74 nst char *p = st
1b20: 72 72 63 68 72 28 70 61 74 68 2c 20 27 2e 27 29 rrchr(path, '.')
1b30: 3b 0a 0a 20 20 20 20 69 66 20 28 70 20 3d 3d 20 ;.. if (p ==
1b40: 4e 55 4c 4c 20 7c 7c 20 28 6c 61 73 74 53 6c 61 NULL || (lastSla
1b50: 73 68 20 21 3d 20 4e 55 4c 4c 20 26 26 20 6c 61 sh != NULL && la
1b60: 73 74 53 6c 61 73 68 20 3e 20 70 29 29 20 7b 0a stSlash > p)) {.
1b70: 20 20 20 20 20 20 20 20 4a 69 6d 5f 53 65 74 52 Jim_SetR
1b80: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 61 72 esult(interp, ar
1b90: 67 76 5b 30 5d 29 3b 0a 20 20 20 20 7d 0a 20 20 gv[0]);. }.
1ba0: 20 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 else {.
1bb0: 20 4a 69 6d 5f 53 65 74 52 65 73 75 6c 74 53 74 Jim_SetResultSt
1bc0: 72 69 6e 67 28 69 6e 74 65 72 70 2c 20 70 61 74 ring(interp, pat
1bd0: 68 2c 20 70 20 2d 20 70 61 74 68 29 3b 0a 20 20 h, p - path);.
1be0: 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 4a }. return J
1bf0: 49 4d 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63 IM_OK;.}..static
1c00: 20 69 6e 74 20 66 69 6c 65 5f 63 6d 64 5f 65 78 int file_cmd_ex
1c10: 74 65 6e 73 69 6f 6e 28 4a 69 6d 5f 49 6e 74 65 tension(Jim_Inte
1c20: 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 rp *interp, int
1c30: 61 72 67 63 2c 20 4a 69 6d 5f 4f 62 6a 20 2a 63 argc, Jim_Obj *c
1c40: 6f 6e 73 74 20 2a 61 72 67 76 29 0a 7b 0a 20 20 onst *argv).{.
1c50: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 70 61 const char *pa
1c60: 74 68 20 3d 20 4a 69 6d 5f 53 74 72 69 6e 67 28 th = Jim_String(
1c70: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 63 6f argv[0]);. co
1c80: 6e 73 74 20 63 68 61 72 20 2a 6c 61 73 74 53 6c nst char *lastSl
1c90: 61 73 68 20 3d 20 73 74 72 72 63 68 72 28 70 61 ash = strrchr(pa
1ca0: 74 68 2c 20 27 2f 27 29 3b 0a 20 20 20 20 63 6f th, '/');. co
1cb0: 6e 73 74 20 63 68 61 72 20 2a 70 20 3d 20 73 74 nst char *p = st
1cc0: 72 72 63 68 72 28 70 61 74 68 2c 20 27 2e 27 29 rrchr(path, '.')
1cd0: 3b 0a 0a 20 20 20 20 69 66 20 28 70 20 3d 3d 20 ;.. if (p ==
1ce0: 4e 55 4c 4c 20 7c 7c 20 28 6c 61 73 74 53 6c 61 NULL || (lastSla
1cf0: 73 68 20 21 3d 20 4e 55 4c 4c 20 26 26 20 6c 61 sh != NULL && la
1d00: 73 74 53 6c 61 73 68 20 3e 3d 20 70 29 29 20 7b stSlash >= p)) {
1d10: 0a 20 20 20 20 20 20 20 20 70 20 3d 20 22 22 3b . p = "";
1d20: 0a 20 20 20 20 7d 0a 20 20 20 20 4a 69 6d 5f 53 . }. Jim_S
1d30: 65 74 52 65 73 75 6c 74 53 74 72 69 6e 67 28 69 etResultString(i
1d40: 6e 74 65 72 70 2c 20 70 2c 20 2d 31 29 3b 0a 20 nterp, p, -1);.
1d50: 20 20 20 72 65 74 75 72 6e 20 4a 49 4d 5f 4f 4b return JIM_OK
1d60: 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 ;.}..static int
1d70: 66 69 6c 65 5f 63 6d 64 5f 74 61 69 6c 28 4a 69 file_cmd_tail(Ji
1d80: 6d 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 m_Interp *interp
1d90: 2c 20 69 6e 74 20 61 72 67 63 2c 20 4a 69 6d 5f , int argc, Jim_
1da0: 4f 62 6a 20 2a 63 6f 6e 73 74 20 2a 61 72 67 76 Obj *const *argv
1db0: 29 0a 7b 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 ).{. const ch
1dc0: 61 72 20 2a 70 61 74 68 20 3d 20 4a 69 6d 5f 53 ar *path = Jim_S
1dd0: 74 72 69 6e 67 28 61 72 67 76 5b 30 5d 29 3b 0a tring(argv[0]);.
1de0: 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a const char *
1df0: 6c 61 73 74 53 6c 61 73 68 20 3d 20 73 74 72 72 lastSlash = strr
1e00: 63 68 72 28 70 61 74 68 2c 20 27 2f 27 29 3b 0a chr(path, '/');.
1e10: 0a 20 20 20 20 69 66 20 28 6c 61 73 74 53 6c 61 . if (lastSla
1e20: 73 68 29 20 7b 0a 20 20 20 20 20 20 20 20 4a 69 sh) {. Ji
1e30: 6d 5f 53 65 74 52 65 73 75 6c 74 53 74 72 69 6e m_SetResultStrin
1e40: 67 28 69 6e 74 65 72 70 2c 20 6c 61 73 74 53 6c g(interp, lastSl
1e50: 61 73 68 20 2b 20 31 2c 20 2d 31 29 3b 0a 20 20 ash + 1, -1);.
1e60: 20 20 7d 0a 20 20 20 20 65 6c 73 65 20 7b 0a 20 }. else {.
1e70: 20 20 20 20 20 20 20 4a 69 6d 5f 53 65 74 52 65 Jim_SetRe
1e80: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 61 72 67 sult(interp, arg
1e90: 76 5b 30 5d 29 3b 0a 20 20 20 20 7d 0a 20 20 20 v[0]);. }.
1ea0: 20 72 65 74 75 72 6e 20 4a 49 4d 5f 4f 4b 3b 0a return JIM_OK;.
1eb0: 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 66 69 }..static int fi
1ec0: 6c 65 5f 63 6d 64 5f 6e 6f 72 6d 61 6c 69 7a 65 le_cmd_normalize
1ed0: 28 4a 69 6d 5f 49 6e 74 65 72 70 20 2a 69 6e 74 (Jim_Interp *int
1ee0: 65 72 70 2c 20 69 6e 74 20 61 72 67 63 2c 20 4a erp, int argc, J
1ef0: 69 6d 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 2a 61 im_Obj *const *a
1f00: 72 67 76 29 0a 7b 0a 23 69 66 64 65 66 20 48 41 rgv).{.#ifdef HA
1f10: 56 45 5f 52 45 41 4c 50 41 54 48 0a 20 20 20 20 VE_REALPATH.
1f20: 63 6f 6e 73 74 20 63 68 61 72 20 2a 70 61 74 68 const char *path
1f30: 20 3d 20 4a 69 6d 5f 53 74 72 69 6e 67 28 61 72 = Jim_String(ar
1f40: 67 76 5b 30 5d 29 3b 0a 20 20 20 20 63 68 61 72 gv[0]);. char
1f50: 20 2a 6e 65 77 6e 61 6d 65 20 3d 20 4a 69 6d 5f *newname = Jim_
1f60: 41 6c 6c 6f 63 28 4d 41 58 50 41 54 48 4c 45 4e Alloc(MAXPATHLEN
1f70: 20 2b 20 31 29 3b 0a 0a 20 20 20 20 69 66 20 28 + 1);.. if (
1f80: 72 65 61 6c 70 61 74 68 28 70 61 74 68 2c 20 6e realpath(path, n
1f90: 65 77 6e 61 6d 65 29 29 20 7b 0a 20 20 20 20 20 ewname)) {.
1fa0: 20 20 20 4a 69 6d 5f 53 65 74 52 65 73 75 6c 74 Jim_SetResult
1fb0: 28 69 6e 74 65 72 70 2c 20 4a 69 6d 5f 4e 65 77 (interp, Jim_New
1fc0: 53 74 72 69 6e 67 4f 62 6a 4e 6f 41 6c 6c 6f 63 StringObjNoAlloc
1fd0: 28 69 6e 74 65 72 70 2c 20 6e 65 77 6e 61 6d 65 (interp, newname
1fe0: 2c 20 2d 31 29 29 3b 0a 20 20 20 20 7d 0a 20 20 , -1));. }.
1ff0: 20 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 else {.
2000: 20 4a 69 6d 5f 46 72 65 65 28 6e 65 77 6e 61 6d Jim_Free(newnam
2010: 65 29 3b 0a 20 20 20 20 20 20 20 20 4a 69 6d 5f e);. Jim_
2020: 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 SetResult(interp
2030: 2c 20 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 , argv[0]);.
2040: 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 4a 49 4d }. return JIM
2050: 5f 4f 4b 3b 0a 23 65 6c 73 65 0a 20 20 20 20 4a _OK;.#else. J
2060: 69 6d 5f 53 65 74 52 65 73 75 6c 74 53 74 72 69 im_SetResultStri
2070: 6e 67 28 69 6e 74 65 72 70 2c 20 22 4e 6f 74 20 ng(interp, "Not
2080: 69 6d 70 6c 65 6d 65 6e 74 65 64 22 2c 20 2d 31 implemented", -1
2090: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 4a 49 );. return JI
20a0: 4d 5f 45 52 52 3b 0a 23 65 6e 64 69 66 0a 7d 0a M_ERR;.#endif.}.
20b0: 0a 73 74 61 74 69 63 20 69 6e 74 20 66 69 6c 65 .static int file
20c0: 5f 63 6d 64 5f 6a 6f 69 6e 28 4a 69 6d 5f 49 6e _cmd_join(Jim_In
20d0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
20e0: 74 20 61 72 67 63 2c 20 4a 69 6d 5f 4f 62 6a 20 t argc, Jim_Obj
20f0: 2a 63 6f 6e 73 74 20 2a 61 72 67 76 29 0a 7b 0a *const *argv).{.
2100: 20 20 20 20 69 6e 74 20 69 3b 0a 20 20 20 20 63 int i;. c
2110: 68 61 72 20 2a 6e 65 77 6e 61 6d 65 20 3d 20 4a har *newname = J
2120: 69 6d 5f 41 6c 6c 6f 63 28 4d 41 58 50 41 54 48 im_Alloc(MAXPATH
2130: 4c 45 4e 20 2b 20 31 29 3b 0a 20 20 20 20 63 68 LEN + 1);. ch
2140: 61 72 20 2a 6c 61 73 74 20 3d 20 6e 65 77 6e 61 ar *last = newna
2150: 6d 65 3b 0a 0a 20 20 20 20 2a 6e 65 77 6e 61 6d me;.. *newnam
2160: 65 20 3d 20 30 3b 0a 0a 20 20 20 20 2f 2a 20 53 e = 0;.. /* S
2170: 69 6d 70 6c 65 20 69 6d 70 6c 65 6d 65 6e 74 61 imple implementa
2180: 74 69 6f 6e 20 66 6f 72 20 6e 6f 77 20 2a 2f 0a tion for now */.
2190: 20 20 20 20 66 6f 72 20 28 69 20 3d 20 30 3b 20 for (i = 0;
21a0: 69 20 3c 20 61 72 67 63 3b 20 69 2b 2b 29 20 7b i < argc; i++) {
21b0: 0a 20 20 20 20 20 20 20 20 69 6e 74 20 6c 65 6e . int len
21c0: 3b 0a 20 20 20 20 20 20 20 20 63 6f 6e 73 74 20 ;. const
21d0: 63 68 61 72 20 2a 70 61 72 74 20 3d 20 4a 69 6d char *part = Jim
21e0: 5f 47 65 74 53 74 72 69 6e 67 28 61 72 67 76 5b _GetString(argv[
21f0: 69 5d 2c 20 26 6c 65 6e 29 3b 0a 0a 20 20 20 20 i], &len);..
2200: 20 20 20 20 69 66 20 28 2a 70 61 72 74 20 3d 3d if (*part ==
2210: 20 27 2f 27 29 20 7b 0a 20 20 20 20 20 20 20 20 '/') {.
2220: 20 20 20 20 2f 2a 20 41 62 73 6f 6c 75 74 65 20 /* Absolute
2230: 63 6f 6d 70 6f 6e 65 6e 74 2c 20 73 6f 20 67 6f component, so go
2240: 20 62 61 63 6b 20 74 6f 20 74 68 65 20 73 74 61 back to the sta
2250: 72 74 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 rt */.
2260: 20 20 6c 61 73 74 20 3d 20 6e 65 77 6e 61 6d 65 last = newname
2270: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 23 69 66 20 ;. }.#if
2280: 64 65 66 69 6e 65 64 28 5f 5f 4d 49 4e 47 57 33 defined(__MINGW3
2290: 32 5f 5f 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 2__) || defined(
22a0: 5f 4d 53 43 5f 56 45 52 29 0a 20 20 20 20 20 20 _MSC_VER).
22b0: 20 20 65 6c 73 65 20 69 66 20 28 73 74 72 63 68 else if (strch
22c0: 72 28 70 61 72 74 2c 20 27 3a 27 29 29 20 7b 0a r(part, ':')) {.
22d0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 41 /* A
22e0: 62 73 6f 6c 75 74 65 20 63 6f 6d 70 6f 6e 74 65 bsolute componte
22f0: 6e 74 20 6f 6e 20 6d 69 6e 67 77 2c 20 73 6f 20 nt on mingw, so
2300: 67 6f 20 62 61 63 6b 20 74 6f 20 74 68 65 20 73 go back to the s
2310: 74 61 72 74 20 2a 2f 0a 20 20 20 20 20 20 20 20 tart */.
2320: 20 20 20 20 6c 61 73 74 20 3d 20 6e 65 77 6e 61 last = newna
2330: 6d 65 3b 0a 20 20 20 20 20 20 20 20 7d 0a 23 65 me;. }.#e
2340: 6e 64 69 66 0a 20 20 20 20 20 20 20 20 65 6c 73 ndif. els
2350: 65 20 69 66 20 28 70 61 72 74 5b 30 5d 20 3d 3d e if (part[0] ==
2360: 20 27 2e 27 29 20 7b 0a 20 20 20 20 20 20 20 20 '.') {.
2370: 20 20 20 20 69 66 20 28 70 61 72 74 5b 31 5d 20 if (part[1]
2380: 3d 3d 20 27 2f 27 29 20 7b 0a 20 20 20 20 20 20 == '/') {.
2390: 20 20 20 20 20 20 20 20 20 20 70 61 72 74 20 2b part +
23a0: 3d 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 = 2;.
23b0: 20 20 20 20 20 6c 65 6e 20 2d 3d 20 32 3b 0a 20 len -= 2;.
23c0: 20 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 }.
23d0: 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 69 66 else if
23e0: 20 28 70 61 72 74 5b 31 5d 20 3d 3d 20 30 20 26 (part[1] == 0 &
23f0: 26 20 6c 61 73 74 20 21 3d 20 6e 65 77 6e 61 6d & last != newnam
2400: 65 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 e) {.
2410: 20 20 20 20 20 2f 2a 20 41 64 64 69 6e 67 20 27 /* Adding '
2420: 2e 27 20 74 6f 20 61 6e 20 65 78 69 73 74 69 6e .' to an existin
2430: 67 20 70 61 74 68 20 64 6f 65 73 20 6e 6f 74 68 g path does noth
2440: 69 6e 67 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 ing */.
2450: 20 20 20 20 20 20 20 63 6f 6e 74 69 6e 75 65 3b continue;
2460: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a 20 . }.
2470: 20 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 }..
2480: 20 20 2f 2a 20 41 64 64 20 61 20 73 6c 61 73 68 /* Add a slash
2490: 20 69 66 20 6e 65 65 64 65 64 20 2a 2f 0a 20 20 if needed */.
24a0: 20 20 20 20 20 20 69 66 20 28 6c 61 73 74 20 21 if (last !
24b0: 3d 20 6e 65 77 6e 61 6d 65 20 26 26 20 6c 61 73 = newname && las
24c0: 74 5b 2d 31 5d 20 21 3d 20 27 2f 27 29 20 7b 0a t[-1] != '/') {.
24d0: 20 20 20 20 20 20 20 20 20 20 20 20 2a 6c 61 73 *las
24e0: 74 2b 2b 20 3d 20 27 2f 27 3b 0a 20 20 20 20 20 t++ = '/';.
24f0: 20 20 20 7d 0a 0a 20 20 20 20 20 20 20 20 69 66 }.. if
2500: 20 28 6c 65 6e 29 20 7b 0a 20 20 20 20 20 20 20 (len) {.
2510: 20 20 20 20 20 69 66 20 28 6c 61 73 74 20 2b 20 if (last +
2520: 6c 65 6e 20 2d 20 6e 65 77 6e 61 6d 65 20 3e 3d len - newname >=
2530: 20 4d 41 58 50 41 54 48 4c 45 4e 29 20 7b 0a 20 MAXPATHLEN) {.
2540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4a J
2550: 69 6d 5f 46 72 65 65 28 6e 65 77 6e 61 6d 65 29 im_Free(newname)
2560: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;.
2570: 20 20 4a 69 6d 5f 53 65 74 52 65 73 75 6c 74 53 Jim_SetResultS
2580: 74 72 69 6e 67 28 69 6e 74 65 72 70 2c 20 22 50 tring(interp, "P
2590: 61 74 68 20 74 6f 6f 20 6c 6f 6e 67 22 2c 20 2d ath too long", -
25a0: 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 1);.
25b0: 20 20 20 20 72 65 74 75 72 6e 20 4a 49 4d 5f 45 return JIM_E
25c0: 52 52 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 RR;.
25d0: 7d 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 }. me
25e0: 6d 63 70 79 28 6c 61 73 74 2c 20 70 61 72 74 2c mcpy(last, part,
25f0: 20 6c 65 6e 29 3b 0a 20 20 20 20 20 20 20 20 20 len);.
2600: 20 20 20 6c 61 73 74 20 2b 3d 20 6c 65 6e 3b 0a last += len;.
2610: 20 20 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 }..
2620: 20 20 20 2f 2a 20 52 65 6d 6f 76 65 20 61 20 73 /* Remove a s
2630: 6c 61 73 68 20 69 66 20 6e 65 65 64 65 64 20 2a lash if needed *
2640: 2f 0a 20 20 20 20 20 20 20 20 69 66 20 28 6c 61 /. if (la
2650: 73 74 20 3e 20 6e 65 77 6e 61 6d 65 20 2b 20 31 st > newname + 1
2660: 20 26 26 20 6c 61 73 74 5b 2d 31 5d 20 3d 3d 20 && last[-1] ==
2670: 27 2f 27 29 20 7b 0a 20 20 20 20 20 20 20 20 20 '/') {.
2680: 20 20 20 2a 2d 2d 6c 61 73 74 20 3d 20 30 3b 0a *--last = 0;.
2690: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a }. }.
26a0: 0a 20 20 20 20 2a 6c 61 73 74 20 3d 20 30 3b 0a . *last = 0;.
26b0: 0a 20 20 20 20 2f 2a 20 50 72 6f 62 61 62 6c 79 . /* Probably
26c0: 20 6e 65 65 64 20 74 6f 20 68 61 6e 64 6c 65 20 need to handle
26d0: 73 6f 6d 65 20 73 70 65 63 69 61 6c 20 63 61 73 some special cas
26e0: 65 73 20 2e 2e 2e 20 2a 2f 0a 0a 20 20 20 20 4a es ... */.. J
26f0: 69 6d 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 im_SetResult(int
2700: 65 72 70 2c 20 4a 69 6d 5f 4e 65 77 53 74 72 69 erp, Jim_NewStri
2710: 6e 67 4f 62 6a 4e 6f 41 6c 6c 6f 63 28 69 6e 74 ngObjNoAlloc(int
2720: 65 72 70 2c 20 6e 65 77 6e 61 6d 65 2c 20 6c 61 erp, newname, la
2730: 73 74 20 2d 20 6e 65 77 6e 61 6d 65 29 29 3b 0a st - newname));.
2740: 0a 20 20 20 20 72 65 74 75 72 6e 20 4a 49 4d 5f . return JIM_
2750: 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e OK;.}..static in
2760: 74 20 66 69 6c 65 5f 61 63 63 65 73 73 28 4a 69 t file_access(Ji
2770: 6d 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 m_Interp *interp
2780: 2c 20 4a 69 6d 5f 4f 62 6a 20 2a 66 69 6c 65 6e , Jim_Obj *filen
2790: 61 6d 65 2c 20 69 6e 74 20 6d 6f 64 65 29 0a 7b ame, int mode).{
27a0: 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 . const char
27b0: 2a 70 61 74 68 20 3d 20 4a 69 6d 5f 53 74 72 69 *path = Jim_Stri
27c0: 6e 67 28 66 69 6c 65 6e 61 6d 65 29 3b 0a 20 20 ng(filename);.
27d0: 20 20 69 6e 74 20 72 63 20 3d 20 61 63 63 65 73 int rc = acces
27e0: 73 28 70 61 74 68 2c 20 6d 6f 64 65 29 3b 0a 0a s(path, mode);..
27f0: 20 20 20 20 4a 69 6d 5f 53 65 74 52 65 73 75 6c Jim_SetResul
2800: 74 42 6f 6f 6c 28 69 6e 74 65 72 70 2c 20 72 63 tBool(interp, rc
2810: 20 21 3d 20 2d 31 29 3b 0a 0a 20 20 20 20 72 65 != -1);.. re
2820: 74 75 72 6e 20 4a 49 4d 5f 4f 4b 3b 0a 7d 0a 0a turn JIM_OK;.}..
2830: 73 74 61 74 69 63 20 69 6e 74 20 66 69 6c 65 5f static int file_
2840: 63 6d 64 5f 72 65 61 64 61 62 6c 65 28 4a 69 6d cmd_readable(Jim
2850: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
2860: 20 69 6e 74 20 61 72 67 63 2c 20 4a 69 6d 5f 4f int argc, Jim_O
2870: 62 6a 20 2a 63 6f 6e 73 74 20 2a 61 72 67 76 29 bj *const *argv)
2880: 0a 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 66 69 .{. return fi
2890: 6c 65 5f 61 63 63 65 73 73 28 69 6e 74 65 72 70 le_access(interp
28a0: 2c 20 61 72 67 76 5b 30 5d 2c 20 52 5f 4f 4b 29 , argv[0], R_OK)
28b0: 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 ;.}..static int
28c0: 66 69 6c 65 5f 63 6d 64 5f 77 72 69 74 61 62 6c file_cmd_writabl
28d0: 65 28 4a 69 6d 5f 49 6e 74 65 72 70 20 2a 69 6e e(Jim_Interp *in
28e0: 74 65 72 70 2c 20 69 6e 74 20 61 72 67 63 2c 20 terp, int argc,
28f0: 4a 69 6d 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 2a Jim_Obj *const *
2900: 61 72 67 76 29 0a 7b 0a 20 20 20 20 72 65 74 75 argv).{. retu
2910: 72 6e 20 66 69 6c 65 5f 61 63 63 65 73 73 28 69 rn file_access(i
2920: 6e 74 65 72 70 2c 20 61 72 67 76 5b 30 5d 2c 20 nterp, argv[0],
2930: 57 5f 4f 4b 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 W_OK);.}..static
2940: 20 69 6e 74 20 66 69 6c 65 5f 63 6d 64 5f 65 78 int file_cmd_ex
2950: 65 63 75 74 61 62 6c 65 28 4a 69 6d 5f 49 6e 74 ecutable(Jim_Int
2960: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 erp *interp, int
2970: 20 61 72 67 63 2c 20 4a 69 6d 5f 4f 62 6a 20 2a argc, Jim_Obj *
2980: 63 6f 6e 73 74 20 2a 61 72 67 76 29 0a 7b 0a 23 const *argv).{.#
2990: 69 66 64 65 66 20 58 5f 4f 4b 0a 20 20 20 20 72 ifdef X_OK. r
29a0: 65 74 75 72 6e 20 66 69 6c 65 5f 61 63 63 65 73 eturn file_acces
29b0: 73 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 30 s(interp, argv[0
29c0: 5d 2c 20 58 5f 4f 4b 29 3b 0a 23 65 6c 73 65 0a ], X_OK);.#else.
29d0: 20 20 20 20 2f 2a 20 58 58 58 3a 20 58 5f 4f 4b /* XXX: X_OK
29e0: 20 64 6f 65 73 6e 27 74 20 77 6f 72 6b 20 75 6e doesn't work un
29f0: 64 65 72 20 57 69 6e 64 6f 77 73 2e 0a 20 20 20 der Windows..
2a00: 20 20 2a 20 49 6e 20 61 6e 79 20 63 61 73 65 2c * In any case,
2a10: 20 6d 61 79 20 6e 65 65 64 20 74 6f 20 61 64 64 may need to add
2a20: 20 2e 65 78 65 2c 20 65 74 63 2e 20 73 6f 20 6a .exe, etc. so j
2a30: 75 73 74 20 6c 69 65 21 0a 20 20 20 20 20 2a 2f ust lie!. */
2a40: 0a 20 20 20 20 4a 69 6d 5f 53 65 74 52 65 73 75 . Jim_SetResu
2a50: 6c 74 42 6f 6f 6c 28 69 6e 74 65 72 70 2c 20 31 ltBool(interp, 1
2a60: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 4a 49 );. return JI
2a70: 4d 5f 4f 4b 3b 0a 23 65 6e 64 69 66 0a 7d 0a 0a M_OK;.#endif.}..
2a80: 73 74 61 74 69 63 20 69 6e 74 20 66 69 6c 65 5f static int file_
2a90: 63 6d 64 5f 65 78 69 73 74 73 28 4a 69 6d 5f 49 cmd_exists(Jim_I
2aa0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 nterp *interp, i
2ab0: 6e 74 20 61 72 67 63 2c 20 4a 69 6d 5f 4f 62 6a nt argc, Jim_Obj
2ac0: 20 2a 63 6f 6e 73 74 20 2a 61 72 67 76 29 0a 7b *const *argv).{
2ad0: 0a 20 20 20 20 72 65 74 75 72 6e 20 66 69 6c 65 . return file
2ae0: 5f 61 63 63 65 73 73 28 69 6e 74 65 72 70 2c 20 _access(interp,
2af0: 61 72 67 76 5b 30 5d 2c 20 46 5f 4f 4b 29 3b 0a argv[0], F_OK);.
2b00: 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 66 69 }..static int fi
2b10: 6c 65 5f 63 6d 64 5f 64 65 6c 65 74 65 28 4a 69 le_cmd_delete(Ji
2b20: 6d 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 m_Interp *interp
2b30: 2c 20 69 6e 74 20 61 72 67 63 2c 20 4a 69 6d 5f , int argc, Jim_
2b40: 4f 62 6a 20 2a 63 6f 6e 73 74 20 2a 61 72 67 76 Obj *const *argv
2b50: 29 0a 7b 0a 20 20 20 20 69 6e 74 20 66 6f 72 63 ).{. int forc
2b60: 65 20 3d 20 4a 69 6d 5f 43 6f 6d 70 61 72 65 53 e = Jim_CompareS
2b70: 74 72 69 6e 67 49 6d 6d 65 64 69 61 74 65 28 69 tringImmediate(i
2b80: 6e 74 65 72 70 2c 20 61 72 67 76 5b 30 5d 2c 20 nterp, argv[0],
2b90: 22 2d 66 6f 72 63 65 22 29 3b 0a 0a 20 20 20 20 "-force");..
2ba0: 69 66 20 28 66 6f 72 63 65 20 7c 7c 20 4a 69 6d if (force || Jim
2bb0: 5f 43 6f 6d 70 61 72 65 53 74 72 69 6e 67 49 6d _CompareStringIm
2bc0: 6d 65 64 69 61 74 65 28 69 6e 74 65 72 70 2c 20 mediate(interp,
2bd0: 61 72 67 76 5b 30 5d 2c 20 22 2d 2d 22 29 29 20 argv[0], "--"))
2be0: 7b 0a 20 20 20 20 20 20 20 20 61 72 67 63 2b 2b {. argc++
2bf0: 3b 0a 20 20 20 20 20 20 20 20 61 72 67 76 2d 2d ;. argv--
2c00: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 77 68 69 ;. }.. whi
2c10: 6c 65 20 28 61 72 67 63 2d 2d 29 20 7b 0a 20 20 le (argc--) {.
2c20: 20 20 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 const char
2c30: 20 2a 70 61 74 68 20 3d 20 4a 69 6d 5f 53 74 72 *path = Jim_Str
2c40: 69 6e 67 28 61 72 67 76 5b 30 5d 29 3b 0a 0a 20 ing(argv[0]);..
2c50: 20 20 20 20 20 20 20 69 66 20 28 75 6e 6c 69 6e if (unlin
2c60: 6b 28 70 61 74 68 29 20 3d 3d 20 2d 31 20 26 26 k(path) == -1 &&
2c70: 20 65 72 72 6e 6f 20 21 3d 20 45 4e 4f 45 4e 54 errno != ENOENT
2c80: 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ) {.
2c90: 69 66 20 28 72 6d 64 69 72 28 70 61 74 68 29 20 if (rmdir(path)
2ca0: 3d 3d 20 2d 31 29 20 7b 0a 20 20 20 20 20 20 20 == -1) {.
2cb0: 20 20 20 20 20 20 20 20 20 2f 2a 20 4d 61 79 62 /* Mayb
2cc0: 65 20 74 72 79 20 75 73 69 6e 67 20 74 68 65 20 e try using the
2cd0: 73 63 72 69 70 74 20 68 65 6c 70 65 72 20 2a 2f script helper */
2ce0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
2cf0: 20 69 66 20 28 21 66 6f 72 63 65 20 7c 7c 20 4a if (!force || J
2d00: 69 6d 5f 45 76 61 6c 50 72 65 66 69 78 28 69 6e im_EvalPrefix(in
2d10: 74 65 72 70 2c 20 22 66 69 6c 65 20 64 65 6c 65 terp, "file dele
2d20: 74 65 20 66 6f 72 63 65 22 2c 20 31 2c 20 61 72 te force", 1, ar
2d30: 67 76 29 20 21 3d 20 4a 49 4d 5f 4f 4b 29 20 7b gv) != JIM_OK) {
2d40: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
2d50: 20 20 20 20 20 4a 69 6d 5f 53 65 74 52 65 73 75 Jim_SetResu
2d60: 6c 74 46 6f 72 6d 61 74 74 65 64 28 69 6e 74 65 ltFormatted(inte
2d70: 72 70 2c 20 22 63 6f 75 6c 64 6e 27 74 20 64 65 rp, "couldn't de
2d80: 6c 65 74 65 20 66 69 6c 65 20 5c 22 25 73 5c 22 lete file \"%s\"
2d90: 3a 20 25 73 22 2c 20 70 61 74 68 2c 0a 20 20 20 : %s", path,.
2da0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2db0: 20 20 20 20 20 73 74 72 65 72 72 6f 72 28 65 72 strerror(er
2dc0: 72 6e 6f 29 29 3b 0a 20 20 20 20 20 20 20 20 20 rno));.
2dd0: 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 retur
2de0: 6e 20 4a 49 4d 5f 45 52 52 3b 0a 20 20 20 20 20 n JIM_ERR;.
2df0: 20 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 }.
2e00: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 }.
2e10: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 61 72 67 }. arg
2e20: 76 2b 2b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 v++;. }. r
2e30: 65 74 75 72 6e 20 4a 49 4d 5f 4f 4b 3b 0a 7d 0a eturn JIM_OK;.}.
2e40: 0a 23 69 66 64 65 66 20 48 41 56 45 5f 4d 4b 44 .#ifdef HAVE_MKD
2e50: 49 52 5f 4f 4e 45 5f 41 52 47 0a 23 64 65 66 69 IR_ONE_ARG.#defi
2e60: 6e 65 20 4d 4b 44 49 52 5f 44 45 46 41 55 4c 54 ne MKDIR_DEFAULT
2e70: 28 50 41 54 48 4e 41 4d 45 29 20 6d 6b 64 69 72 (PATHNAME) mkdir
2e80: 28 50 41 54 48 4e 41 4d 45 29 0a 23 65 6c 73 65 (PATHNAME).#else
2e90: 0a 23 64 65 66 69 6e 65 20 4d 4b 44 49 52 5f 44 .#define MKDIR_D
2ea0: 45 46 41 55 4c 54 28 50 41 54 48 4e 41 4d 45 29 EFAULT(PATHNAME)
2eb0: 20 6d 6b 64 69 72 28 50 41 54 48 4e 41 4d 45 2c mkdir(PATHNAME,
2ec0: 20 30 37 35 35 29 0a 23 65 6e 64 69 66 0a 0a 2f 0755).#endif../
2ed0: 2a 2a 0a 20 2a 20 43 72 65 61 74 65 20 64 69 72 **. * Create dir
2ee0: 65 63 74 6f 72 79 2c 20 63 72 65 61 74 69 6e 67 ectory, creating
2ef0: 20 61 6c 6c 20 69 6e 74 65 72 6d 65 64 69 61 74 all intermediat
2f00: 65 20 70 61 74 68 73 20 69 66 20 6e 65 63 65 73 e paths if neces
2f10: 73 61 72 79 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 sary.. *. * Retu
2f20: 72 6e 73 20 30 20 69 66 20 4f 4b 20 6f 72 20 2d rns 0 if OK or -
2f30: 31 20 6f 6e 20 66 61 69 6c 75 72 65 20 28 61 6e 1 on failure (an
2f40: 64 20 73 65 74 73 20 65 72 72 6e 6f 29 0a 20 2a d sets errno). *
2f50: 0a 20 2a 20 4e 6f 74 65 3a 20 54 68 65 20 70 61 . * Note: The pa
2f60: 74 68 20 6d 61 79 20 62 65 20 6d 6f 64 69 66 69 th may be modifi
2f70: 65 64 2e 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 ed.. */.static i
2f80: 6e 74 20 6d 6b 64 69 72 5f 61 6c 6c 28 63 68 61 nt mkdir_all(cha
2f90: 72 20 2a 70 61 74 68 29 0a 7b 0a 20 20 20 20 69 r *path).{. i
2fa0: 6e 74 20 6f 6b 20 3d 20 31 3b 0a 0a 20 20 20 20 nt ok = 1;..
2fb0: 2f 2a 20 46 69 72 73 74 20 74 69 6d 65 20 6a 75 /* First time ju
2fc0: 73 74 20 74 72 79 20 74 6f 20 6d 61 6b 65 20 74 st try to make t
2fd0: 68 65 20 64 69 72 20 2a 2f 0a 20 20 20 20 67 6f he dir */. go
2fe0: 74 6f 20 66 69 72 73 74 3b 0a 0a 20 20 20 20 77 to first;.. w
2ff0: 68 69 6c 65 20 28 6f 6b 2d 2d 29 20 7b 0a 20 20 hile (ok--) {.
3000: 20 20 20 20 20 20 2f 2a 20 4d 75 73 74 20 68 61 /* Must ha
3010: 76 65 20 66 61 69 6c 65 64 20 74 68 65 20 66 69 ve failed the fi
3020: 72 73 74 20 74 69 6d 65 2c 20 73 6f 20 72 65 63 rst time, so rec
3030: 75 72 73 69 76 65 6c 79 20 6d 61 6b 65 20 74 68 ursively make th
3040: 65 20 70 61 72 65 6e 74 20 61 6e 64 20 74 72 79 e parent and try
3050: 20 61 67 61 69 6e 20 2a 2f 0a 20 20 20 20 20 20 again */.
3060: 20 20 63 68 61 72 20 2a 73 6c 61 73 68 20 3d 20 char *slash =
3070: 73 74 72 72 63 68 72 28 70 61 74 68 2c 20 27 2f strrchr(path, '/
3080: 27 29 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 ');.. if
3090: 28 73 6c 61 73 68 20 26 26 20 73 6c 61 73 68 20 (slash && slash
30a0: 21 3d 20 70 61 74 68 29 20 7b 0a 20 20 20 20 20 != path) {.
30b0: 20 20 20 20 20 20 20 2a 73 6c 61 73 68 20 3d 20 *slash =
30c0: 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 0;. i
30d0: 66 20 28 6d 6b 64 69 72 5f 61 6c 6c 28 70 61 74 f (mkdir_all(pat
30e0: 68 29 20 21 3d 20 30 29 20 7b 0a 20 20 20 20 20 h) != 0) {.
30f0: 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 retur
3100: 6e 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 n -1;.
3110: 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 20 20 }.
3120: 2a 73 6c 61 73 68 20 3d 20 27 2f 27 3b 0a 20 20 *slash = '/';.
3130: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 66 69 }. fi
3140: 72 73 74 3a 0a 20 20 20 20 20 20 20 20 69 66 20 rst:. if
3150: 28 4d 4b 44 49 52 5f 44 45 46 41 55 4c 54 28 70 (MKDIR_DEFAULT(p
3160: 61 74 68 29 20 3d 3d 20 30 29 20 7b 0a 20 20 20 ath) == 0) {.
3170: 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 return
3180: 30 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 0;. }.
3190: 20 20 20 20 20 69 66 20 28 65 72 72 6e 6f 20 3d if (errno =
31a0: 3d 20 45 4e 4f 45 4e 54 29 20 7b 0a 20 20 20 20 = ENOENT) {.
31b0: 20 20 20 20 20 20 20 20 2f 2a 20 43 72 65 61 74 /* Creat
31c0: 65 20 74 68 65 20 70 61 72 65 6e 74 20 61 6e 64 e the parent and
31d0: 20 74 72 79 20 61 67 61 69 6e 20 2a 2f 0a 20 20 try again */.
31e0: 20 20 20 20 20 20 20 20 20 20 63 6f 6e 74 69 6e contin
31f0: 75 65 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 ue;. }.
3200: 20 20 20 20 20 20 2f 2a 20 4d 61 79 62 65 20 69 /* Maybe i
3210: 74 20 61 6c 72 65 61 64 79 20 65 78 69 73 74 73 t already exists
3220: 20 61 73 20 61 20 64 69 72 65 63 74 6f 72 79 20 as a directory
3230: 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 20 28 65 */. if (e
3240: 72 72 6e 6f 20 3d 3d 20 45 45 58 49 53 54 29 20 rrno == EEXIST)
3250: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 74 {. st
3260: 72 75 63 74 20 73 74 61 74 20 73 62 3b 0a 0a 20 ruct stat sb;..
3270: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 73 if (s
3280: 74 61 74 28 70 61 74 68 2c 20 26 73 62 29 20 3d tat(path, &sb) =
3290: 3d 20 30 20 26 26 20 53 5f 49 53 44 49 52 28 73 = 0 && S_ISDIR(s
32a0: 62 2e 73 74 5f 6d 6f 64 65 29 29 20 7b 0a 20 20 b.st_mode)) {.
32b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 re
32c0: 74 75 72 6e 20 30 3b 0a 20 20 20 20 20 20 20 20 turn 0;.
32d0: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 }.
32e0: 20 20 2f 2a 20 52 65 73 74 6f 72 65 20 65 72 72 /* Restore err
32f0: 6e 6f 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 no */.
3300: 20 20 65 72 72 6e 6f 20 3d 20 45 45 58 49 53 54 errno = EEXIST
3310: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 ;. }.
3320: 20 20 20 20 2f 2a 20 46 61 69 6c 65 64 20 2a 2f /* Failed */
3330: 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a . break;.
3340: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e }. return
3350: 20 2d 31 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 -1;.}..static i
3360: 6e 74 20 66 69 6c 65 5f 63 6d 64 5f 6d 6b 64 69 nt file_cmd_mkdi
3370: 72 28 4a 69 6d 5f 49 6e 74 65 72 70 20 2a 69 6e r(Jim_Interp *in
3380: 74 65 72 70 2c 20 69 6e 74 20 61 72 67 63 2c 20 terp, int argc,
3390: 4a 69 6d 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 2a Jim_Obj *const *
33a0: 61 72 67 76 29 0a 7b 0a 20 20 20 20 77 68 69 6c argv).{. whil
33b0: 65 20 28 61 72 67 63 2d 2d 29 20 7b 0a 20 20 20 e (argc--) {.
33c0: 20 20 20 20 20 63 68 61 72 20 2a 70 61 74 68 20 char *path
33d0: 3d 20 4a 69 6d 5f 53 74 72 44 75 70 28 4a 69 6d = Jim_StrDup(Jim
33e0: 5f 53 74 72 69 6e 67 28 61 72 67 76 5b 30 5d 29 _String(argv[0])
33f0: 29 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 72 );. int r
3400: 63 20 3d 20 6d 6b 64 69 72 5f 61 6c 6c 28 70 61 c = mkdir_all(pa
3410: 74 68 29 3b 0a 0a 20 20 20 20 20 20 20 20 4a 69 th);.. Ji
3420: 6d 5f 46 72 65 65 28 70 61 74 68 29 3b 0a 20 20 m_Free(path);.
3430: 20 20 20 20 20 20 69 66 20 28 72 63 20 21 3d 20 if (rc !=
3440: 30 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 0) {.
3450: 20 4a 69 6d 5f 53 65 74 52 65 73 75 6c 74 46 6f Jim_SetResultFo
3460: 72 6d 61 74 74 65 64 28 69 6e 74 65 72 70 2c 20 rmatted(interp,
3470: 22 63 61 6e 27 74 20 63 72 65 61 74 65 20 64 69 "can't create di
3480: 72 65 63 74 6f 72 79 20 5c 22 25 23 73 5c 22 3a rectory \"%#s\":
3490: 20 25 73 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 %s", argv[0],.
34a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 s
34b0: 74 72 65 72 72 6f 72 28 65 72 72 6e 6f 29 29 3b trerror(errno));
34c0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 . ret
34d0: 75 72 6e 20 4a 49 4d 5f 45 52 52 3b 0a 20 20 20 urn JIM_ERR;.
34e0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 61 }. a
34f0: 72 67 76 2b 2b 3b 0a 20 20 20 20 7d 0a 20 20 20 rgv++;. }.
3500: 20 72 65 74 75 72 6e 20 4a 49 4d 5f 4f 4b 3b 0a return JIM_OK;.
3510: 7d 0a 0a 23 69 66 64 65 66 20 48 41 56 45 5f 4d }..#ifdef HAVE_M
3520: 4b 53 54 45 4d 50 0a 73 74 61 74 69 63 20 69 6e KSTEMP.static in
3530: 74 20 66 69 6c 65 5f 63 6d 64 5f 74 65 6d 70 66 t file_cmd_tempf
3540: 69 6c 65 28 4a 69 6d 5f 49 6e 74 65 72 70 20 2a ile(Jim_Interp *
3550: 69 6e 74 65 72 70 2c 20 69 6e 74 20 61 72 67 63 interp, int argc
3560: 2c 20 4a 69 6d 5f 4f 62 6a 20 2a 63 6f 6e 73 74 , Jim_Obj *const
3570: 20 2a 61 72 67 76 29 0a 7b 0a 20 20 20 20 69 6e *argv).{. in
3580: 74 20 66 64 3b 0a 20 20 20 20 63 68 61 72 20 2a t fd;. char *
3590: 66 69 6c 65 6e 61 6d 65 3b 0a 20 20 20 20 63 6f filename;. co
35a0: 6e 73 74 20 63 68 61 72 20 2a 74 65 6d 70 6c 61 nst char *templa
35b0: 74 65 20 3d 20 22 2f 74 6d 70 2f 74 63 6c 2e 74 te = "/tmp/tcl.t
35c0: 6d 70 2e 58 58 58 58 58 58 22 3b 0a 0a 20 20 20 mp.XXXXXX";..
35d0: 20 69 66 20 28 61 72 67 63 20 3e 3d 20 31 29 20 if (argc >= 1)
35e0: 7b 0a 20 20 20 20 20 20 20 20 74 65 6d 70 6c 61 {. templa
35f0: 74 65 20 3d 20 4a 69 6d 5f 53 74 72 69 6e 67 28 te = Jim_String(
3600: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 7d 0a argv[0]);. }.
3610: 20 20 20 20 66 69 6c 65 6e 61 6d 65 20 3d 20 4a filename = J
3620: 69 6d 5f 53 74 72 44 75 70 28 74 65 6d 70 6c 61 im_StrDup(templa
3630: 74 65 29 3b 0a 0a 20 20 20 20 66 64 20 3d 20 6d te);.. fd = m
3640: 6b 73 74 65 6d 70 28 66 69 6c 65 6e 61 6d 65 29 kstemp(filename)
3650: 3b 0a 20 20 20 20 69 66 20 28 66 64 20 3c 20 30 ;. if (fd < 0
3660: 29 20 7b 0a 20 20 20 20 20 20 20 20 4a 69 6d 5f ) {. Jim_
3670: 53 65 74 52 65 73 75 6c 74 53 74 72 69 6e 67 28 SetResultString(
3680: 69 6e 74 65 72 70 2c 20 22 46 61 69 6c 65 64 20 interp, "Failed
3690: 74 6f 20 63 72 65 61 74 65 20 74 65 6d 70 66 69 to create tempfi
36a0: 6c 65 22 2c 20 2d 31 29 3b 0a 20 20 20 20 20 20 le", -1);.
36b0: 20 20 72 65 74 75 72 6e 20 4a 49 4d 5f 45 52 52 return JIM_ERR
36c0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 6c 6f 73 ;. }. clos
36d0: 65 28 66 64 29 3b 0a 0a 20 20 20 20 4a 69 6d 5f e(fd);.. Jim_
36e0: 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 SetResult(interp
36f0: 2c 20 4a 69 6d 5f 4e 65 77 53 74 72 69 6e 67 4f , Jim_NewStringO
3700: 62 6a 4e 6f 41 6c 6c 6f 63 28 69 6e 74 65 72 70 bjNoAlloc(interp
3710: 2c 20 66 69 6c 65 6e 61 6d 65 2c 20 2d 31 29 29 , filename, -1))
3720: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 4a 49 4d ;. return JIM
3730: 5f 4f 4b 3b 0a 7d 0a 23 65 6e 64 69 66 0a 0a 73 _OK;.}.#endif..s
3740: 74 61 74 69 63 20 69 6e 74 20 66 69 6c 65 5f 63 tatic int file_c
3750: 6d 64 5f 72 65 6e 61 6d 65 28 4a 69 6d 5f 49 6e md_rename(Jim_In
3760: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
3770: 74 20 61 72 67 63 2c 20 4a 69 6d 5f 4f 62 6a 20 t argc, Jim_Obj
3780: 2a 63 6f 6e 73 74 20 2a 61 72 67 76 29 0a 7b 0a *const *argv).{.
3790: 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a const char *
37a0: 73 6f 75 72 63 65 3b 0a 20 20 20 20 63 6f 6e 73 source;. cons
37b0: 74 20 63 68 61 72 20 2a 64 65 73 74 3b 0a 20 20 t char *dest;.
37c0: 20 20 69 6e 74 20 66 6f 72 63 65 20 3d 20 30 3b int force = 0;
37d0: 0a 0a 20 20 20 20 69 66 20 28 61 72 67 63 20 3d .. if (argc =
37e0: 3d 20 33 29 20 7b 0a 20 20 20 20 20 20 20 20 69 = 3) {. i
37f0: 66 20 28 21 4a 69 6d 5f 43 6f 6d 70 61 72 65 53 f (!Jim_CompareS
3800: 74 72 69 6e 67 49 6d 6d 65 64 69 61 74 65 28 69 tringImmediate(i
3810: 6e 74 65 72 70 2c 20 61 72 67 76 5b 30 5d 2c 20 nterp, argv[0],
3820: 22 2d 66 6f 72 63 65 22 29 29 20 7b 0a 20 20 20 "-force")) {.
3830: 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 return
3840: 2d 31 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 -1;. }.
3850: 20 20 20 20 20 20 66 6f 72 63 65 2b 2b 3b 0a 20 force++;.
3860: 20 20 20 20 20 20 20 61 72 67 76 2b 2b 3b 0a 20 argv++;.
3870: 20 20 20 20 20 20 20 61 72 67 63 2d 2d 3b 0a 20 argc--;.
3880: 20 20 20 7d 0a 0a 20 20 20 20 73 6f 75 72 63 65 }.. source
3890: 20 3d 20 4a 69 6d 5f 53 74 72 69 6e 67 28 61 72 = Jim_String(ar
38a0: 67 76 5b 30 5d 29 3b 0a 20 20 20 20 64 65 73 74 gv[0]);. dest
38b0: 20 3d 20 4a 69 6d 5f 53 74 72 69 6e 67 28 61 72 = Jim_String(ar
38c0: 67 76 5b 31 5d 29 3b 0a 0a 20 20 20 20 69 66 20 gv[1]);.. if
38d0: 28 21 66 6f 72 63 65 20 26 26 20 61 63 63 65 73 (!force && acces
38e0: 73 28 64 65 73 74 2c 20 46 5f 4f 4b 29 20 3d 3d s(dest, F_OK) ==
38f0: 20 30 29 20 7b 0a 20 20 20 20 20 20 20 20 4a 69 0) {. Ji
3900: 6d 5f 53 65 74 52 65 73 75 6c 74 46 6f 72 6d 61 m_SetResultForma
3910: 74 74 65 64 28 69 6e 74 65 72 70 2c 20 22 65 72 tted(interp, "er
3920: 72 6f 72 20 72 65 6e 61 6d 69 6e 67 20 5c 22 25 ror renaming \"%
3930: 23 73 5c 22 20 74 6f 20 5c 22 25 23 73 5c 22 3a #s\" to \"%#s\":
3940: 20 74 61 72 67 65 74 20 65 78 69 73 74 73 22 2c target exists",
3950: 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 argv[0],.
3960: 20 20 20 20 20 20 61 72 67 76 5b 31 5d 29 3b 0a argv[1]);.
3970: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 4a return J
3980: 49 4d 5f 45 52 52 3b 0a 20 20 20 20 7d 0a 0a 20 IM_ERR;. }..
3990: 20 20 20 69 66 20 28 72 65 6e 61 6d 65 28 73 6f if (rename(so
39a0: 75 72 63 65 2c 20 64 65 73 74 29 20 21 3d 20 30 urce, dest) != 0
39b0: 29 20 7b 0a 20 20 20 20 20 20 20 20 4a 69 6d 5f ) {. Jim_
39c0: 53 65 74 52 65 73 75 6c 74 46 6f 72 6d 61 74 74 SetResultFormatt
39d0: 65 64 28 69 6e 74 65 72 70 2c 20 22 65 72 72 6f ed(interp, "erro
39e0: 72 20 72 65 6e 61 6d 69 6e 67 20 5c 22 25 23 73 r renaming \"%#s
39f0: 5c 22 20 74 6f 20 5c 22 25 23 73 5c 22 3a 20 25 \" to \"%#s\": %
3a00: 73 22 2c 20 61 72 67 76 5b 30 5d 2c 20 61 72 67 s", argv[0], arg
3a10: 76 5b 31 5d 2c 0a 20 20 20 20 20 20 20 20 20 20 v[1],.
3a20: 20 20 73 74 72 65 72 72 6f 72 28 65 72 72 6e 6f strerror(errno
3a30: 29 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75 ));. retu
3a40: 72 6e 20 4a 49 4d 5f 45 52 52 3b 0a 20 20 20 20 rn JIM_ERR;.
3a50: 7d 0a 0a 20 20 20 20 72 65 74 75 72 6e 20 4a 49 }.. return JI
3a60: 4d 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 M_OK;.}..static
3a70: 69 6e 74 20 66 69 6c 65 5f 73 74 61 74 28 4a 69 int file_stat(Ji
3a80: 6d 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 m_Interp *interp
3a90: 2c 20 4a 69 6d 5f 4f 62 6a 20 2a 66 69 6c 65 6e , Jim_Obj *filen
3aa0: 61 6d 65 2c 20 73 74 72 75 63 74 20 73 74 61 74 ame, struct stat
3ab0: 20 2a 73 62 29 0a 7b 0a 20 20 20 20 63 6f 6e 73 *sb).{. cons
3ac0: 74 20 63 68 61 72 20 2a 70 61 74 68 20 3d 20 4a t char *path = J
3ad0: 69 6d 5f 53 74 72 69 6e 67 28 66 69 6c 65 6e 61 im_String(filena
3ae0: 6d 65 29 3b 0a 0a 20 20 20 20 69 66 20 28 73 74 me);.. if (st
3af0: 61 74 28 70 61 74 68 2c 20 73 62 29 20 3d 3d 20 at(path, sb) ==
3b00: 2d 31 29 20 7b 0a 20 20 20 20 20 20 20 20 4a 69 -1) {. Ji
3b10: 6d 5f 53 65 74 52 65 73 75 6c 74 46 6f 72 6d 61 m_SetResultForma
3b20: 74 74 65 64 28 69 6e 74 65 72 70 2c 20 22 63 6f tted(interp, "co
3b30: 75 6c 64 20 6e 6f 74 20 72 65 61 64 20 5c 22 25 uld not read \"%
3b40: 23 73 5c 22 3a 20 25 73 22 2c 20 66 69 6c 65 6e #s\": %s", filen
3b50: 61 6d 65 2c 20 73 74 72 65 72 72 6f 72 28 65 72 ame, strerror(er
3b60: 72 6e 6f 29 29 3b 0a 20 20 20 20 20 20 20 20 72 rno));. r
3b70: 65 74 75 72 6e 20 4a 49 4d 5f 45 52 52 3b 0a 20 eturn JIM_ERR;.
3b80: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 }. return
3b90: 4a 49 4d 5f 4f 4b 3b 0a 7d 0a 0a 23 69 66 6e 64 JIM_OK;.}..#ifnd
3ba0: 65 66 20 48 41 56 45 5f 4c 53 54 41 54 0a 23 64 ef HAVE_LSTAT.#d
3bb0: 65 66 69 6e 65 20 6c 73 74 61 74 20 73 74 61 74 efine lstat stat
3bc0: 0a 23 65 6e 64 69 66 0a 0a 73 74 61 74 69 63 20 .#endif..static
3bd0: 69 6e 74 20 66 69 6c 65 5f 6c 73 74 61 74 28 4a int file_lstat(J
3be0: 69 6d 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 im_Interp *inter
3bf0: 70 2c 20 4a 69 6d 5f 4f 62 6a 20 2a 66 69 6c 65 p, Jim_Obj *file
3c00: 6e 61 6d 65 2c 20 73 74 72 75 63 74 20 73 74 61 name, struct sta
3c10: 74 20 2a 73 62 29 0a 7b 0a 20 20 20 20 63 6f 6e t *sb).{. con
3c20: 73 74 20 63 68 61 72 20 2a 70 61 74 68 20 3d 20 st char *path =
3c30: 4a 69 6d 5f 53 74 72 69 6e 67 28 66 69 6c 65 6e Jim_String(filen
3c40: 61 6d 65 29 3b 0a 0a 20 20 20 20 69 66 20 28 6c ame);.. if (l
3c50: 73 74 61 74 28 70 61 74 68 2c 20 73 62 29 20 3d stat(path, sb) =
3c60: 3d 20 2d 31 29 20 7b 0a 20 20 20 20 20 20 20 20 = -1) {.
3c70: 4a 69 6d 5f 53 65 74 52 65 73 75 6c 74 46 6f 72 Jim_SetResultFor
3c80: 6d 61 74 74 65 64 28 69 6e 74 65 72 70 2c 20 22 matted(interp, "
3c90: 63 6f 75 6c 64 20 6e 6f 74 20 72 65 61 64 20 5c could not read \
3ca0: 22 25 23 73 5c 22 3a 20 25 73 22 2c 20 66 69 6c "%#s\": %s", fil
3cb0: 65 6e 61 6d 65 2c 20 73 74 72 65 72 72 6f 72 28 ename, strerror(
3cc0: 65 72 72 6e 6f 29 29 3b 0a 20 20 20 20 20 20 20 errno));.
3cd0: 20 72 65 74 75 72 6e 20 4a 49 4d 5f 45 52 52 3b return JIM_ERR;
3ce0: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
3cf0: 6e 20 4a 49 4d 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 n JIM_OK;.}..sta
3d00: 74 69 63 20 69 6e 74 20 66 69 6c 65 5f 63 6d 64 tic int file_cmd
3d10: 5f 61 74 69 6d 65 28 4a 69 6d 5f 49 6e 74 65 72 _atime(Jim_Inter
3d20: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 61 p *interp, int a
3d30: 72 67 63 2c 20 4a 69 6d 5f 4f 62 6a 20 2a 63 6f rgc, Jim_Obj *co
3d40: 6e 73 74 20 2a 61 72 67 76 29 0a 7b 0a 20 20 20 nst *argv).{.
3d50: 20 73 74 72 75 63 74 20 73 74 61 74 20 73 62 3b struct stat sb;
3d60: 0a 0a 20 20 20 20 69 66 20 28 66 69 6c 65 5f 73 .. if (file_s
3d70: 74 61 74 28 69 6e 74 65 72 70 2c 20 61 72 67 76 tat(interp, argv
3d80: 5b 30 5d 2c 20 26 73 62 29 20 21 3d 20 4a 49 4d [0], &sb) != JIM
3d90: 5f 4f 4b 29 20 7b 0a 20 20 20 20 20 20 20 20 72 _OK) {. r
3da0: 65 74 75 72 6e 20 4a 49 4d 5f 45 52 52 3b 0a 20 eturn JIM_ERR;.
3db0: 20 20 20 7d 0a 20 20 20 20 4a 69 6d 5f 53 65 74 }. Jim_Set
3dc0: 52 65 73 75 6c 74 49 6e 74 28 69 6e 74 65 72 70 ResultInt(interp
3dd0: 2c 20 73 62 2e 73 74 5f 61 74 69 6d 65 29 3b 0a , sb.st_atime);.
3de0: 20 20 20 20 72 65 74 75 72 6e 20 4a 49 4d 5f 4f return JIM_O
3df0: 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 K;.}..static int
3e00: 20 66 69 6c 65 5f 63 6d 64 5f 6d 74 69 6d 65 28 file_cmd_mtime(
3e10: 4a 69 6d 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Jim_Interp *inte
3e20: 72 70 2c 20 69 6e 74 20 61 72 67 63 2c 20 4a 69 rp, int argc, Ji
3e30: 6d 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 2a 61 72 m_Obj *const *ar
3e40: 67 76 29 0a 7b 0a 20 20 20 20 73 74 72 75 63 74 gv).{. struct
3e50: 20 73 74 61 74 20 73 62 3b 0a 0a 20 20 20 20 69 stat sb;.. i
3e60: 66 20 28 61 72 67 63 20 3d 3d 20 32 29 20 7b 0a f (argc == 2) {.
3e70: 23 69 66 64 65 66 20 48 41 56 45 5f 55 54 49 4d #ifdef HAVE_UTIM
3e80: 45 53 0a 20 20 20 20 20 20 20 20 6a 69 6d 5f 77 ES. jim_w
3e90: 69 64 65 20 6e 65 77 74 69 6d 65 3b 0a 20 20 20 ide newtime;.
3ea0: 20 20 20 20 20 73 74 72 75 63 74 20 74 69 6d 65 struct time
3eb0: 76 61 6c 20 74 69 6d 65 73 5b 32 5d 3b 0a 0a 20 val times[2];..
3ec0: 20 20 20 20 20 20 20 69 66 20 28 4a 69 6d 5f 47 if (Jim_G
3ed0: 65 74 57 69 64 65 28 69 6e 74 65 72 70 2c 20 61 etWide(interp, a
3ee0: 72 67 76 5b 31 5d 2c 20 26 6e 65 77 74 69 6d 65 rgv[1], &newtime
3ef0: 29 20 21 3d 20 4a 49 4d 5f 4f 4b 29 20 7b 0a 20 ) != JIM_OK) {.
3f00: 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 retur
3f10: 6e 20 4a 49 4d 5f 45 52 52 3b 0a 20 20 20 20 20 n JIM_ERR;.
3f20: 20 20 20 7d 0a 0a 20 20 20 20 20 20 20 20 74 69 }.. ti
3f30: 6d 65 73 5b 31 5d 2e 74 76 5f 73 65 63 20 3d 20 mes[1].tv_sec =
3f40: 74 69 6d 65 73 5b 30 5d 2e 74 76 5f 73 65 63 20 times[0].tv_sec
3f50: 3d 20 6e 65 77 74 69 6d 65 3b 0a 20 20 20 20 20 = newtime;.
3f60: 20 20 20 74 69 6d 65 73 5b 31 5d 2e 74 76 5f 75 times[1].tv_u
3f70: 73 65 63 20 3d 20 74 69 6d 65 73 5b 30 5d 2e 74 sec = times[0].t
3f80: 76 5f 75 73 65 63 20 3d 20 30 3b 0a 0a 20 20 20 v_usec = 0;..
3f90: 20 20 20 20 20 69 66 20 28 75 74 69 6d 65 73 28 if (utimes(
3fa0: 4a 69 6d 5f 53 74 72 69 6e 67 28 61 72 67 76 5b Jim_String(argv[
3fb0: 30 5d 29 2c 20 74 69 6d 65 73 29 20 21 3d 20 30 0]), times) != 0
3fc0: 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ) {.
3fd0: 4a 69 6d 5f 53 65 74 52 65 73 75 6c 74 46 6f 72 Jim_SetResultFor
3fe0: 6d 61 74 74 65 64 28 69 6e 74 65 72 70 2c 20 22 matted(interp, "
3ff0: 63 61 6e 27 74 20 73 65 74 20 74 69 6d 65 20 6f can't set time o
4000: 6e 20 5c 22 25 23 73 5c 22 3a 20 25 73 22 2c 20 n \"%#s\": %s",
4010: 61 72 67 76 5b 30 5d 2c 20 73 74 72 65 72 72 6f argv[0], strerro
4020: 72 28 65 72 72 6e 6f 29 29 3b 0a 20 20 20 20 20 r(errno));.
4030: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 4a 49 return JI
4040: 4d 5f 45 52 52 3b 0a 20 20 20 20 20 20 20 20 7d M_ERR;. }
4050: 0a 23 65 6c 73 65 0a 20 20 20 20 20 20 20 20 4a .#else. J
4060: 69 6d 5f 53 65 74 52 65 73 75 6c 74 53 74 72 69 im_SetResultStri
4070: 6e 67 28 69 6e 74 65 72 70 2c 20 22 4e 6f 74 20 ng(interp, "Not
4080: 69 6d 70 6c 65 6d 65 6e 74 65 64 22 2c 20 2d 31 implemented", -1
4090: 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 );. retur
40a0: 6e 20 4a 49 4d 5f 45 52 52 3b 0a 23 65 6e 64 69 n JIM_ERR;.#endi
40b0: 66 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 f. }. if (
40c0: 66 69 6c 65 5f 73 74 61 74 28 69 6e 74 65 72 70 file_stat(interp
40d0: 2c 20 61 72 67 76 5b 30 5d 2c 20 26 73 62 29 20 , argv[0], &sb)
40e0: 21 3d 20 4a 49 4d 5f 4f 4b 29 20 7b 0a 20 20 20 != JIM_OK) {.
40f0: 20 20 20 20 20 72 65 74 75 72 6e 20 4a 49 4d 5f return JIM_
4100: 45 52 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 4a ERR;. }. J
4110: 69 6d 5f 53 65 74 52 65 73 75 6c 74 49 6e 74 28 im_SetResultInt(
4120: 69 6e 74 65 72 70 2c 20 73 62 2e 73 74 5f 6d 74 interp, sb.st_mt
4130: 69 6d 65 29 3b 0a 20 20 20 20 72 65 74 75 72 6e ime);. return
4140: 20 4a 49 4d 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 JIM_OK;.}..stat
4150: 69 63 20 69 6e 74 20 66 69 6c 65 5f 63 6d 64 5f ic int file_cmd_
4160: 63 6f 70 79 28 4a 69 6d 5f 49 6e 74 65 72 70 20 copy(Jim_Interp
4170: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 61 72 67 *interp, int arg
4180: 63 2c 20 4a 69 6d 5f 4f 62 6a 20 2a 63 6f 6e 73 c, Jim_Obj *cons
4190: 74 20 2a 61 72 67 76 29 0a 7b 0a 20 20 20 20 72 t *argv).{. r
41a0: 65 74 75 72 6e 20 4a 69 6d 5f 45 76 61 6c 50 72 eturn Jim_EvalPr
41b0: 65 66 69 78 28 69 6e 74 65 72 70 2c 20 22 66 69 efix(interp, "fi
41c0: 6c 65 20 63 6f 70 79 22 2c 20 61 72 67 63 2c 20 le copy", argc,
41d0: 61 72 67 76 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 argv);.}..static
41e0: 20 69 6e 74 20 66 69 6c 65 5f 63 6d 64 5f 73 69 int file_cmd_si
41f0: 7a 65 28 4a 69 6d 5f 49 6e 74 65 72 70 20 2a 69 ze(Jim_Interp *i
4200: 6e 74 65 72 70 2c 20 69 6e 74 20 61 72 67 63 2c nterp, int argc,
4210: 20 4a 69 6d 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 Jim_Obj *const
4220: 2a 61 72 67 76 29 0a 7b 0a 20 20 20 20 73 74 72 *argv).{. str
4230: 75 63 74 20 73 74 61 74 20 73 62 3b 0a 0a 20 20 uct stat sb;..
4240: 20 20 69 66 20 28 66 69 6c 65 5f 73 74 61 74 28 if (file_stat(
4250: 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 30 5d 2c interp, argv[0],
4260: 20 26 73 62 29 20 21 3d 20 4a 49 4d 5f 4f 4b 29 &sb) != JIM_OK)
4270: 20 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 {. retur
4280: 6e 20 4a 49 4d 5f 45 52 52 3b 0a 20 20 20 20 7d n JIM_ERR;. }
4290: 0a 20 20 20 20 4a 69 6d 5f 53 65 74 52 65 73 75 . Jim_SetResu
42a0: 6c 74 49 6e 74 28 69 6e 74 65 72 70 2c 20 73 62 ltInt(interp, sb
42b0: 2e 73 74 5f 73 69 7a 65 29 3b 0a 20 20 20 20 72 .st_size);. r
42c0: 65 74 75 72 6e 20 4a 49 4d 5f 4f 4b 3b 0a 7d 0a eturn JIM_OK;.}.
42d0: 0a 73 74 61 74 69 63 20 69 6e 74 20 66 69 6c 65 .static int file
42e0: 5f 63 6d 64 5f 69 73 64 69 72 65 63 74 6f 72 79 _cmd_isdirectory
42f0: 28 4a 69 6d 5f 49 6e 74 65 72 70 20 2a 69 6e 74 (Jim_Interp *int
4300: 65 72 70 2c 20 69 6e 74 20 61 72 67 63 2c 20 4a erp, int argc, J
4310: 69 6d 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 2a 61 im_Obj *const *a
4320: 72 67 76 29 0a 7b 0a 20 20 20 20 73 74 72 75 63 rgv).{. struc
4330: 74 20 73 74 61 74 20 73 62 3b 0a 20 20 20 20 69 t stat sb;. i
4340: 6e 74 20 72 65 74 20 3d 20 30 3b 0a 0a 20 20 20 nt ret = 0;..
4350: 20 69 66 20 28 66 69 6c 65 5f 73 74 61 74 28 69 if (file_stat(i
4360: 6e 74 65 72 70 2c 20 61 72 67 76 5b 30 5d 2c 20 nterp, argv[0],
4370: 26 73 62 29 20 3d 3d 20 4a 49 4d 5f 4f 4b 29 20 &sb) == JIM_OK)
4380: 7b 0a 20 20 20 20 20 20 20 20 72 65 74 20 3d 20 {. ret =
4390: 53 5f 49 53 44 49 52 28 73 62 2e 73 74 5f 6d 6f S_ISDIR(sb.st_mo
43a0: 64 65 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 4a de);. }. J
43b0: 69 6d 5f 53 65 74 52 65 73 75 6c 74 49 6e 74 28 im_SetResultInt(
43c0: 69 6e 74 65 72 70 2c 20 72 65 74 29 3b 0a 20 20 interp, ret);.
43d0: 20 20 72 65 74 75 72 6e 20 4a 49 4d 5f 4f 4b 3b return JIM_OK;
43e0: 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 66 .}..static int f
43f0: 69 6c 65 5f 63 6d 64 5f 69 73 66 69 6c 65 28 4a ile_cmd_isfile(J
4400: 69 6d 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 im_Interp *inter
4410: 70 2c 20 69 6e 74 20 61 72 67 63 2c 20 4a 69 6d p, int argc, Jim
4420: 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 2a 61 72 67 _Obj *const *arg
4430: 76 29 0a 7b 0a 20 20 20 20 73 74 72 75 63 74 20 v).{. struct
4440: 73 74 61 74 20 73 62 3b 0a 20 20 20 20 69 6e 74 stat sb;. int
4450: 20 72 65 74 20 3d 20 30 3b 0a 0a 20 20 20 20 69 ret = 0;.. i
4460: 66 20 28 66 69 6c 65 5f 73 74 61 74 28 69 6e 74 f (file_stat(int
4470: 65 72 70 2c 20 61 72 67 76 5b 30 5d 2c 20 26 73 erp, argv[0], &s
4480: 62 29 20 3d 3d 20 4a 49 4d 5f 4f 4b 29 20 7b 0a b) == JIM_OK) {.
4490: 20 20 20 20 20 20 20 20 72 65 74 20 3d 20 53 5f ret = S_
44a0: 49 53 52 45 47 28 73 62 2e 73 74 5f 6d 6f 64 65 ISREG(sb.st_mode
44b0: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 4a 69 6d );. }. Jim
44c0: 5f 53 65 74 52 65 73 75 6c 74 49 6e 74 28 69 6e _SetResultInt(in
44d0: 74 65 72 70 2c 20 72 65 74 29 3b 0a 20 20 20 20 terp, ret);.
44e0: 72 65 74 75 72 6e 20 4a 49 4d 5f 4f 4b 3b 0a 7d return JIM_OK;.}
44f0: 0a 0a 23 69 66 64 65 66 20 48 41 56 45 5f 47 45 ..#ifdef HAVE_GE
4500: 54 45 55 49 44 0a 73 74 61 74 69 63 20 69 6e 74 TEUID.static int
4510: 20 66 69 6c 65 5f 63 6d 64 5f 6f 77 6e 65 64 28 file_cmd_owned(
4520: 4a 69 6d 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Jim_Interp *inte
4530: 72 70 2c 20 69 6e 74 20 61 72 67 63 2c 20 4a 69 rp, int argc, Ji
4540: 6d 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 2a 61 72 m_Obj *const *ar
4550: 67 76 29 0a 7b 0a 20 20 20 20 73 74 72 75 63 74 gv).{. struct
4560: 20 73 74 61 74 20 73 62 3b 0a 20 20 20 20 69 6e stat sb;. in
4570: 74 20 72 65 74 20 3d 20 30 3b 0a 0a 20 20 20 20 t ret = 0;..
4580: 69 66 20 28 66 69 6c 65 5f 73 74 61 74 28 69 6e if (file_stat(in
4590: 74 65 72 70 2c 20 61 72 67 76 5b 30 5d 2c 20 26 terp, argv[0], &
45a0: 73 62 29 20 3d 3d 20 4a 49 4d 5f 4f 4b 29 20 7b sb) == JIM_OK) {
45b0: 0a 20 20 20 20 20 20 20 20 72 65 74 20 3d 20 28 . ret = (
45c0: 67 65 74 65 75 69 64 28 29 20 3d 3d 20 73 62 2e geteuid() == sb.
45d0: 73 74 5f 75 69 64 29 3b 0a 20 20 20 20 7d 0a 20 st_uid);. }.
45e0: 20 20 20 4a 69 6d 5f 53 65 74 52 65 73 75 6c 74 Jim_SetResult
45f0: 49 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 74 29 Int(interp, ret)
4600: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 4a 49 4d ;. return JIM
4610: 5f 4f 4b 3b 0a 7d 0a 23 65 6e 64 69 66 0a 0a 23 _OK;.}.#endif..#
4620: 69 66 20 64 65 66 69 6e 65 64 28 48 41 56 45 5f if defined(HAVE_
4630: 52 45 41 44 4c 49 4e 4b 29 0a 73 74 61 74 69 63 READLINK).static
4640: 20 69 6e 74 20 66 69 6c 65 5f 63 6d 64 5f 72 65 int file_cmd_re
4650: 61 64 6c 69 6e 6b 28 4a 69 6d 5f 49 6e 74 65 72 adlink(Jim_Inter
4660: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 61 p *interp, int a
4670: 72 67 63 2c 20 4a 69 6d 5f 4f 62 6a 20 2a 63 6f rgc, Jim_Obj *co
4680: 6e 73 74 20 2a 61 72 67 76 29 0a 7b 0a 20 20 20 nst *argv).{.
4690: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 70 61 74 const char *pat
46a0: 68 20 3d 20 4a 69 6d 5f 53 74 72 69 6e 67 28 61 h = Jim_String(a
46b0: 72 67 76 5b 30 5d 29 3b 0a 20 20 20 20 63 68 61 rgv[0]);. cha
46c0: 72 20 2a 6c 69 6e 6b 56 61 6c 75 65 20 3d 20 4a r *linkValue = J
46d0: 69 6d 5f 41 6c 6c 6f 63 28 4d 41 58 50 41 54 48 im_Alloc(MAXPATH
46e0: 4c 45 4e 20 2b 20 31 29 3b 0a 0a 20 20 20 20 69 LEN + 1);.. i
46f0: 6e 74 20 6c 69 6e 6b 4c 65 6e 67 74 68 20 3d 20 nt linkLength =
4700: 72 65 61 64 6c 69 6e 6b 28 70 61 74 68 2c 20 6c readlink(path, l
4710: 69 6e 6b 56 61 6c 75 65 2c 20 4d 41 58 50 41 54 inkValue, MAXPAT
4720: 48 4c 45 4e 29 3b 0a 0a 20 20 20 20 69 66 20 28 HLEN);.. if (
4730: 6c 69 6e 6b 4c 65 6e 67 74 68 20 3d 3d 20 2d 31 linkLength == -1
4740: 29 20 7b 0a 20 20 20 20 20 20 20 20 4a 69 6d 5f ) {. Jim_
4750: 46 72 65 65 28 6c 69 6e 6b 56 61 6c 75 65 29 3b Free(linkValue);
4760: 0a 20 20 20 20 20 20 20 20 4a 69 6d 5f 53 65 74 . Jim_Set
4770: 52 65 73 75 6c 74 46 6f 72 6d 61 74 74 65 64 28 ResultFormatted(
4780: 69 6e 74 65 72 70 2c 20 22 63 6f 75 6c 64 6e 27 interp, "couldn'
4790: 74 20 72 65 61 64 6c 69 6e 6b 20 5c 22 25 23 73 t readlink \"%#s
47a0: 5c 22 3a 20 25 73 22 2c 20 61 72 67 76 5b 30 5d \": %s", argv[0]
47b0: 2c 20 73 74 72 65 72 72 6f 72 28 65 72 72 6e 6f , strerror(errno
47c0: 29 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75 ));. retu
47d0: 72 6e 20 4a 49 4d 5f 45 52 52 3b 0a 20 20 20 20 rn JIM_ERR;.
47e0: 7d 0a 20 20 20 20 6c 69 6e 6b 56 61 6c 75 65 5b }. linkValue[
47f0: 6c 69 6e 6b 4c 65 6e 67 74 68 5d 20 3d 20 30 3b linkLength] = 0;
4800: 0a 20 20 20 20 4a 69 6d 5f 53 65 74 52 65 73 75 . Jim_SetResu
4810: 6c 74 28 69 6e 74 65 72 70 2c 20 4a 69 6d 5f 4e lt(interp, Jim_N
4820: 65 77 53 74 72 69 6e 67 4f 62 6a 4e 6f 41 6c 6c ewStringObjNoAll
4830: 6f 63 28 69 6e 74 65 72 70 2c 20 6c 69 6e 6b 56 oc(interp, linkV
4840: 61 6c 75 65 2c 20 6c 69 6e 6b 4c 65 6e 67 74 68 alue, linkLength
4850: 29 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 4a ));. return J
4860: 49 4d 5f 4f 4b 3b 0a 7d 0a 23 65 6e 64 69 66 0a IM_OK;.}.#endif.
4870: 0a 73 74 61 74 69 63 20 69 6e 74 20 66 69 6c 65 .static int file
4880: 5f 63 6d 64 5f 74 79 70 65 28 4a 69 6d 5f 49 6e _cmd_type(Jim_In
4890: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
48a0: 74 20 61 72 67 63 2c 20 4a 69 6d 5f 4f 62 6a 20 t argc, Jim_Obj
48b0: 2a 63 6f 6e 73 74 20 2a 61 72 67 76 29 0a 7b 0a *const *argv).{.
48c0: 20 20 20 20 73 74 72 75 63 74 20 73 74 61 74 20 struct stat
48d0: 73 62 3b 0a 0a 20 20 20 20 69 66 20 28 66 69 6c sb;.. if (fil
48e0: 65 5f 6c 73 74 61 74 28 69 6e 74 65 72 70 2c 20 e_lstat(interp,
48f0: 61 72 67 76 5b 30 5d 2c 20 26 73 62 29 20 21 3d argv[0], &sb) !=
4900: 20 4a 49 4d 5f 4f 4b 29 20 7b 0a 20 20 20 20 20 JIM_OK) {.
4910: 20 20 20 72 65 74 75 72 6e 20 4a 49 4d 5f 45 52 return JIM_ER
4920: 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 4a 69 6d R;. }. Jim
4930: 5f 53 65 74 52 65 73 75 6c 74 53 74 72 69 6e 67 _SetResultString
4940: 28 69 6e 74 65 72 70 2c 20 4a 69 6d 47 65 74 46 (interp, JimGetF
4950: 69 6c 65 54 79 70 65 28 28 69 6e 74 29 73 62 2e ileType((int)sb.
4960: 73 74 5f 6d 6f 64 65 29 2c 20 2d 31 29 3b 0a 20 st_mode), -1);.
4970: 20 20 20 72 65 74 75 72 6e 20 4a 49 4d 5f 4f 4b return JIM_OK
4980: 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 ;.}..static int
4990: 66 69 6c 65 5f 63 6d 64 5f 6c 73 74 61 74 28 4a file_cmd_lstat(J
49a0: 69 6d 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 im_Interp *inter
49b0: 70 2c 20 69 6e 74 20 61 72 67 63 2c 20 4a 69 6d p, int argc, Jim
49c0: 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 2a 61 72 67 _Obj *const *arg
49d0: 76 29 0a 7b 0a 20 20 20 20 73 74 72 75 63 74 20 v).{. struct
49e0: 73 74 61 74 20 73 62 3b 0a 0a 20 20 20 20 69 66 stat sb;.. if
49f0: 20 28 66 69 6c 65 5f 6c 73 74 61 74 28 69 6e 74 (file_lstat(int
4a00: 65 72 70 2c 20 61 72 67 76 5b 30 5d 2c 20 26 73 erp, argv[0], &s
4a10: 62 29 20 21 3d 20 4a 49 4d 5f 4f 4b 29 20 7b 0a b) != JIM_OK) {.
4a20: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 4a return J
4a30: 49 4d 5f 45 52 52 3b 0a 20 20 20 20 7d 0a 20 20 IM_ERR;. }.
4a40: 20 20 72 65 74 75 72 6e 20 53 74 6f 72 65 53 74 return StoreSt
4a50: 61 74 44 61 74 61 28 69 6e 74 65 72 70 2c 20 61 atData(interp, a
4a60: 72 67 76 5b 31 5d 2c 20 26 73 62 29 3b 0a 7d 0a rgv[1], &sb);.}.
4a70: 0a 73 74 61 74 69 63 20 69 6e 74 20 66 69 6c 65 .static int file
4a80: 5f 63 6d 64 5f 73 74 61 74 28 4a 69 6d 5f 49 6e _cmd_stat(Jim_In
4a90: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
4aa0: 74 20 61 72 67 63 2c 20 4a 69 6d 5f 4f 62 6a 20 t argc, Jim_Obj
4ab0: 2a 63 6f 6e 73 74 20 2a 61 72 67 76 29 0a 7b 0a *const *argv).{.
4ac0: 20 20 20 20 73 74 72 75 63 74 20 73 74 61 74 20 struct stat
4ad0: 73 62 3b 0a 0a 20 20 20 20 69 66 20 28 66 69 6c sb;.. if (fil
4ae0: 65 5f 73 74 61 74 28 69 6e 74 65 72 70 2c 20 61 e_stat(interp, a
4af0: 72 67 76 5b 30 5d 2c 20 26 73 62 29 20 21 3d 20 rgv[0], &sb) !=
4b00: 4a 49 4d 5f 4f 4b 29 20 7b 0a 20 20 20 20 20 20 JIM_OK) {.
4b10: 20 20 72 65 74 75 72 6e 20 4a 49 4d 5f 45 52 52 return JIM_ERR
4b20: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 ;. }. retu
4b30: 72 6e 20 53 74 6f 72 65 53 74 61 74 44 61 74 61 rn StoreStatData
4b40: 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d (interp, argv[1]
4b50: 2c 20 26 73 62 29 3b 0a 7d 0a 0a 73 74 61 74 69 , &sb);.}..stati
4b60: 63 20 63 6f 6e 73 74 20 6a 69 6d 5f 73 75 62 63 c const jim_subc
4b70: 6d 64 5f 74 79 70 65 20 66 69 6c 65 5f 63 6f 6d md_type file_com
4b80: 6d 61 6e 64 5f 74 61 62 6c 65 5b 5d 20 3d 20 7b mand_table[] = {
4b90: 0a 20 20 20 20 7b 20 20 20 22 61 74 69 6d 65 22 . { "atime"
4ba0: 2c 0a 20 20 20 20 20 20 20 20 22 6e 61 6d 65 22 ,. "name"
4bb0: 2c 0a 20 20 20 20 20 20 20 20 66 69 6c 65 5f 63 ,. file_c
4bc0: 6d 64 5f 61 74 69 6d 65 2c 0a 20 20 20 20 20 20 md_atime,.
4bd0: 20 20 31 2c 0a 20 20 20 20 20 20 20 20 31 2c 0a 1,. 1,.
4be0: 20 20 20 20 20 20 20 20 2f 2a 20 44 65 73 63 72 /* Descr
4bf0: 69 70 74 69 6f 6e 3a 20 4c 61 73 74 20 61 63 63 iption: Last acc
4c00: 65 73 73 20 74 69 6d 65 20 2a 2f 0a 20 20 20 20 ess time */.
4c10: 7d 2c 0a 20 20 20 20 7b 20 20 20 22 6d 74 69 6d },. { "mtim
4c20: 65 22 2c 0a 20 20 20 20 20 20 20 20 22 6e 61 6d e",. "nam
4c30: 65 20 3f 74 69 6d 65 3f 22 2c 0a 20 20 20 20 20 e ?time?",.
4c40: 20 20 20 66 69 6c 65 5f 63 6d 64 5f 6d 74 69 6d file_cmd_mtim
4c50: 65 2c 0a 20 20 20 20 20 20 20 20 31 2c 0a 20 20 e,. 1,.
4c60: 20 20 20 20 20 20 32 2c 0a 20 20 20 20 20 20 20 2,.
4c70: 20 2f 2a 20 44 65 73 63 72 69 70 74 69 6f 6e 3a /* Description:
4c80: 20 47 65 74 20 6f 72 20 73 65 74 20 6c 61 73 74 Get or set last
4c90: 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 20 74 69 modification ti
4ca0: 6d 65 20 2a 2f 0a 20 20 20 20 7d 2c 0a 20 20 20 me */. },.
4cb0: 20 7b 20 20 20 22 63 6f 70 79 22 2c 0a 20 20 20 { "copy",.
4cc0: 20 20 20 20 20 22 3f 2d 66 6f 72 63 65 3f 20 73 "?-force? s
4cd0: 6f 75 72 63 65 20 64 65 73 74 22 2c 0a 20 20 20 ource dest",.
4ce0: 20 20 20 20 20 66 69 6c 65 5f 63 6d 64 5f 63 6f file_cmd_co
4cf0: 70 79 2c 0a 20 20 20 20 20 20 20 20 32 2c 0a 20 py,. 2,.
4d00: 20 20 20 20 20 20 20 33 2c 0a 20 20 20 20 20 20 3,.
4d10: 20 20 2f 2a 20 44 65 73 63 72 69 70 74 69 6f 6e /* Description
4d20: 3a 20 43 6f 70 79 20 73 6f 75 72 63 65 20 66 69 : Copy source fi
4d30: 6c 65 20 74 6f 20 64 65 73 74 69 6e 61 74 69 6f le to destinatio
4d40: 6e 20 66 69 6c 65 20 2a 2f 0a 20 20 20 20 7d 2c n file */. },
4d50: 0a 20 20 20 20 7b 20 20 20 22 64 69 72 6e 61 6d . { "dirnam
4d60: 65 22 2c 0a 20 20 20 20 20 20 20 20 22 6e 61 6d e",. "nam
4d70: 65 22 2c 0a 20 20 20 20 20 20 20 20 66 69 6c 65 e",. file
4d80: 5f 63 6d 64 5f 64 69 72 6e 61 6d 65 2c 0a 20 20 _cmd_dirname,.
4d90: 20 20 20 20 20 20 31 2c 0a 20 20 20 20 20 20 20 1,.
4da0: 20 31 2c 0a 20 20 20 20 20 20 20 20 2f 2a 20 44 1,. /* D
4db0: 65 73 63 72 69 70 74 69 6f 6e 3a 20 44 69 72 65 escription: Dire
4dc0: 63 74 6f 72 79 20 70 61 72 74 20 6f 66 20 74 68 ctory part of th
4dd0: 65 20 6e 61 6d 65 20 2a 2f 0a 20 20 20 20 7d 2c e name */. },
4de0: 0a 20 20 20 20 7b 20 20 20 22 72 6f 6f 74 6e 61 . { "rootna
4df0: 6d 65 22 2c 0a 20 20 20 20 20 20 20 20 22 6e 61 me",. "na
4e00: 6d 65 22 2c 0a 20 20 20 20 20 20 20 20 66 69 6c me",. fil
4e10: 65 5f 63 6d 64 5f 72 6f 6f 74 6e 61 6d 65 2c 0a e_cmd_rootname,.
4e20: 20 20 20 20 20 20 20 20 31 2c 0a 20 20 20 20 20 1,.
4e30: 20 20 20 31 2c 0a 20 20 20 20 20 20 20 20 2f 2a 1,. /*
4e40: 20 44 65 73 63 72 69 70 74 69 6f 6e 3a 20 4e 61 Description: Na
4e50: 6d 65 20 77 69 74 68 6f 75 74 20 61 6e 79 20 65 me without any e
4e60: 78 74 65 6e 73 69 6f 6e 20 2a 2f 0a 20 20 20 20 xtension */.
4e70: 7d 2c 0a 20 20 20 20 7b 20 20 20 22 65 78 74 65 },. { "exte
4e80: 6e 73 69 6f 6e 22 2c 0a 20 20 20 20 20 20 20 20 nsion",.
4e90: 22 6e 61 6d 65 22 2c 0a 20 20 20 20 20 20 20 20 "name",.
4ea0: 66 69 6c 65 5f 63 6d 64 5f 65 78 74 65 6e 73 69 file_cmd_extensi
4eb0: 6f 6e 2c 0a 20 20 20 20 20 20 20 20 31 2c 0a 20 on,. 1,.
4ec0: 20 20 20 20 20 20 20 31 2c 0a 20 20 20 20 20 20 1,.
4ed0: 20 20 2f 2a 20 44 65 73 63 72 69 70 74 69 6f 6e /* Description
4ee0: 3a 20 4c 61 73 74 20 65 78 74 65 6e 73 69 6f 6e : Last extension
4ef0: 20 69 6e 63 6c 75 64 69 6e 67 20 74 68 65 20 64 including the d
4f00: 6f 74 20 2a 2f 0a 20 20 20 20 7d 2c 0a 20 20 20 ot */. },.
4f10: 20 7b 20 20 20 22 74 61 69 6c 22 2c 0a 20 20 20 { "tail",.
4f20: 20 20 20 20 20 22 6e 61 6d 65 22 2c 0a 20 20 20 "name",.
4f30: 20 20 20 20 20 66 69 6c 65 5f 63 6d 64 5f 74 61 file_cmd_ta
4f40: 69 6c 2c 0a 20 20 20 20 20 20 20 20 31 2c 0a 20 il,. 1,.
4f50: 20 20 20 20 20 20 20 31 2c 0a 20 20 20 20 20 20 1,.
4f60: 20 20 2f 2a 20 44 65 73 63 72 69 70 74 69 6f 6e /* Description
4f70: 3a 20 4c 61 73 74 20 63 6f 6d 70 6f 6e 65 6e 74 : Last component
4f80: 20 6f 66 20 74 68 65 20 6e 61 6d 65 20 2a 2f 0a of the name */.
4f90: 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 20 20 22 },. { "
4fa0: 6e 6f 72 6d 61 6c 69 7a 65 22 2c 0a 20 20 20 20 normalize",.
4fb0: 20 20 20 20 22 6e 61 6d 65 22 2c 0a 20 20 20 20 "name",.
4fc0: 20 20 20 20 66 69 6c 65 5f 63 6d 64 5f 6e 6f 72 file_cmd_nor
4fd0: 6d 61 6c 69 7a 65 2c 0a 20 20 20 20 20 20 20 20 malize,.
4fe0: 31 2c 0a 20 20 20 20 20 20 20 20 31 2c 0a 20 20 1,. 1,.
4ff0: 20 20 20 20 20 20 2f 2a 20 44 65 73 63 72 69 70 /* Descrip
5000: 74 69 6f 6e 3a 20 4e 6f 72 6d 61 6c 69 7a 65 64 tion: Normalized
5010: 20 70 61 74 68 20 6f 66 20 6e 61 6d 65 20 2a 2f path of name */
5020: 0a 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 20 20 . },. {
5030: 22 6a 6f 69 6e 22 2c 0a 20 20 20 20 20 20 20 20 "join",.
5040: 22 6e 61 6d 65 20 3f 6e 61 6d 65 20 2e 2e 2e 3f "name ?name ...?
5050: 22 2c 0a 20 20 20 20 20 20 20 20 66 69 6c 65 5f ",. file_
5060: 63 6d 64 5f 6a 6f 69 6e 2c 0a 20 20 20 20 20 20 cmd_join,.
5070: 20 20 31 2c 0a 20 20 20 20 20 20 20 20 2d 31 2c 1,. -1,
5080: 0a 20 20 20 20 20 20 20 20 2f 2a 20 44 65 73 63 . /* Desc
5090: 72 69 70 74 69 6f 6e 3a 20 4a 6f 69 6e 20 6d 75 ription: Join mu
50a0: 6c 74 69 70 6c 65 20 70 61 74 68 20 63 6f 6d 70 ltiple path comp
50b0: 6f 6e 65 6e 74 73 20 2a 2f 0a 20 20 20 20 7d 2c onents */. },
50c0: 0a 20 20 20 20 7b 20 20 20 22 72 65 61 64 61 62 . { "readab
50d0: 6c 65 22 2c 0a 20 20 20 20 20 20 20 20 22 6e 61 le",. "na
50e0: 6d 65 22 2c 0a 20 20 20 20 20 20 20 20 66 69 6c me",. fil
50f0: 65 5f 63 6d 64 5f 72 65 61 64 61 62 6c 65 2c 0a e_cmd_readable,.
5100: 20 20 20 20 20 20 20 20 31 2c 0a 20 20 20 20 20 1,.
5110: 20 20 20 31 2c 0a 20 20 20 20 20 20 20 20 2f 2a 1,. /*
5120: 20 44 65 73 63 72 69 70 74 69 6f 6e 3a 20 49 73 Description: Is
5130: 20 66 69 6c 65 20 72 65 61 64 61 62 6c 65 20 2a file readable *
5140: 2f 0a 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 20 /. },. {
5150: 20 22 77 72 69 74 61 62 6c 65 22 2c 0a 20 20 20 "writable",.
5160: 20 20 20 20 20 22 6e 61 6d 65 22 2c 0a 20 20 20 "name",.
5170: 20 20 20 20 20 66 69 6c 65 5f 63 6d 64 5f 77 72 file_cmd_wr
5180: 69 74 61 62 6c 65 2c 0a 20 20 20 20 20 20 20 20 itable,.
5190: 31 2c 0a 20 20 20 20 20 20 20 20 31 2c 0a 20 20 1,. 1,.
51a0: 20 20 20 20 20 20 2f 2a 20 44 65 73 63 72 69 70 /* Descrip
51b0: 74 69 6f 6e 3a 20 49 73 20 66 69 6c 65 20 77 72 tion: Is file wr
51c0: 69 74 61 62 6c 65 20 2a 2f 0a 20 20 20 20 7d 2c itable */. },
51d0: 0a 20 20 20 20 7b 20 20 20 22 65 78 65 63 75 74 . { "execut
51e0: 61 62 6c 65 22 2c 0a 20 20 20 20 20 20 20 20 22 able",. "
51f0: 6e 61 6d 65 22 2c 0a 20 20 20 20 20 20 20 20 66 name",. f
5200: 69 6c 65 5f 63 6d 64 5f 65 78 65 63 75 74 61 62 ile_cmd_executab
5210: 6c 65 2c 0a 20 20 20 20 20 20 20 20 31 2c 0a 20 le,. 1,.
5220: 20 20 20 20 20 20 20 31 2c 0a 20 20 20 20 20 20 1,.
5230: 20 20 2f 2a 20 44 65 73 63 72 69 70 74 69 6f 6e /* Description
5240: 3a 20 49 73 20 66 69 6c 65 20 65 78 65 63 75 74 : Is file execut
5250: 61 62 6c 65 20 2a 2f 0a 20 20 20 20 7d 2c 0a 20 able */. },.
5260: 20 20 20 7b 20 20 20 22 65 78 69 73 74 73 22 2c { "exists",
5270: 0a 20 20 20 20 20 20 20 20 22 6e 61 6d 65 22 2c . "name",
5280: 0a 20 20 20 20 20 20 20 20 66 69 6c 65 5f 63 6d . file_cm
5290: 64 5f 65 78 69 73 74 73 2c 0a 20 20 20 20 20 20 d_exists,.
52a0: 20 20 31 2c 0a 20 20 20 20 20 20 20 20 31 2c 0a 1,. 1,.
52b0: 20 20 20 20 20 20 20 20 2f 2a 20 44 65 73 63 72 /* Descr
52c0: 69 70 74 69 6f 6e 3a 20 44 6f 65 73 20 66 69 6c iption: Does fil
52d0: 65 20 65 78 69 73 74 20 2a 2f 0a 20 20 20 20 7d e exist */. }
52e0: 2c 0a 20 20 20 20 7b 20 20 20 22 64 65 6c 65 74 ,. { "delet
52f0: 65 22 2c 0a 20 20 20 20 20 20 20 20 22 3f 2d 66 e",. "?-f
5300: 6f 72 63 65 7c 2d 2d 3f 20 6e 61 6d 65 20 2e 2e orce|--? name ..
5310: 2e 22 2c 0a 20 20 20 20 20 20 20 20 66 69 6c 65 .",. file
5320: 5f 63 6d 64 5f 64 65 6c 65 74 65 2c 0a 20 20 20 _cmd_delete,.
5330: 20 20 20 20 20 31 2c 0a 20 20 20 20 20 20 20 20 1,.
5340: 2d 31 2c 0a 20 20 20 20 20 20 20 20 2f 2a 20 44 -1,. /* D
5350: 65 73 63 72 69 70 74 69 6f 6e 3a 20 44 65 6c 65 escription: Dele
5360: 74 65 73 20 74 68 65 20 66 69 6c 65 73 20 6f 72 tes the files or
5370: 20 64 69 72 65 63 74 6f 72 69 65 73 20 28 6d 75 directories (mu
5380: 73 74 20 62 65 20 65 6d 70 74 79 20 75 6e 6c 65 st be empty unle
5390: 73 73 20 2d 66 6f 72 63 65 29 20 2a 2f 0a 20 20 ss -force) */.
53a0: 20 20 7d 2c 0a 20 20 20 20 7b 20 20 20 22 6d 6b },. { "mk
53b0: 64 69 72 22 2c 0a 20 20 20 20 20 20 20 20 22 64 dir",. "d
53c0: 69 72 20 2e 2e 2e 22 2c 0a 20 20 20 20 20 20 20 ir ...",.
53d0: 20 66 69 6c 65 5f 63 6d 64 5f 6d 6b 64 69 72 2c file_cmd_mkdir,
53e0: 0a 20 20 20 20 20 20 20 20 31 2c 0a 20 20 20 20 . 1,.
53f0: 20 20 20 20 2d 31 2c 0a 20 20 20 20 20 20 20 20 -1,.
5400: 2f 2a 20 44 65 73 63 72 69 70 74 69 6f 6e 3a 20 /* Description:
5410: 43 72 65 61 74 65 73 20 74 68 65 20 64 69 72 65 Creates the dire
5420: 63 74 6f 72 69 65 73 20 2a 2f 0a 20 20 20 20 7d ctories */. }
5430: 2c 0a 23 69 66 64 65 66 20 48 41 56 45 5f 4d 4b ,.#ifdef HAVE_MK
5440: 53 54 45 4d 50 0a 20 20 20 20 7b 20 20 20 22 74 STEMP. { "t
5450: 65 6d 70 66 69 6c 65 22 2c 0a 20 20 20 20 20 20 empfile",.
5460: 20 20 22 3f 74 65 6d 70 6c 61 74 65 3f 22 2c 0a "?template?",.
5470: 20 20 20 20 20 20 20 20 66 69 6c 65 5f 63 6d 64 file_cmd
5480: 5f 74 65 6d 70 66 69 6c 65 2c 0a 20 20 20 20 20 _tempfile,.
5490: 20 20 20 30 2c 0a 20 20 20 20 20 20 20 20 31 2c 0,. 1,
54a0: 0a 20 20 20 20 20 20 20 20 2f 2a 20 44 65 73 63 . /* Desc
54b0: 72 69 70 74 69 6f 6e 3a 20 43 72 65 61 74 65 73 ription: Creates
54c0: 20 61 20 74 65 6d 70 6f 72 61 72 79 20 66 69 6c a temporary fil
54d0: 65 6e 61 6d 65 20 2a 2f 0a 20 20 20 20 7d 2c 0a ename */. },.
54e0: 23 65 6e 64 69 66 0a 20 20 20 20 7b 20 20 20 22 #endif. { "
54f0: 72 65 6e 61 6d 65 22 2c 0a 20 20 20 20 20 20 20 rename",.
5500: 20 22 3f 2d 66 6f 72 63 65 3f 20 73 6f 75 72 63 "?-force? sourc
5510: 65 20 64 65 73 74 22 2c 0a 20 20 20 20 20 20 20 e dest",.
5520: 20 66 69 6c 65 5f 63 6d 64 5f 72 65 6e 61 6d 65 file_cmd_rename
5530: 2c 0a 20 20 20 20 20 20 20 20 32 2c 0a 20 20 20 ,. 2,.
5540: 20 20 20 20 20 33 2c 0a 20 20 20 20 20 20 20 20 3,.
5550: 2f 2a 20 44 65 73 63 72 69 70 74 69 6f 6e 3a 20 /* Description:
5560: 52 65 6e 61 6d 65 73 20 61 20 66 69 6c 65 20 2a Renames a file *
5570: 2f 0a 20 20 20 20 7d 2c 0a 23 69 66 20 64 65 66 /. },.#if def
5580: 69 6e 65 64 28 48 41 56 45 5f 52 45 41 44 4c 49 ined(HAVE_READLI
5590: 4e 4b 29 0a 20 20 20 20 7b 20 20 20 22 72 65 61 NK). { "rea
55a0: 64 6c 69 6e 6b 22 2c 0a 20 20 20 20 20 20 20 20 dlink",.
55b0: 22 6e 61 6d 65 22 2c 0a 20 20 20 20 20 20 20 20 "name",.
55c0: 66 69 6c 65 5f 63 6d 64 5f 72 65 61 64 6c 69 6e file_cmd_readlin
55d0: 6b 2c 0a 20 20 20 20 20 20 20 20 31 2c 0a 20 20 k,. 1,.
55e0: 20 20 20 20 20 20 31 2c 0a 20 20 20 20 20 20 20 1,.
55f0: 20 2f 2a 20 44 65 73 63 72 69 70 74 69 6f 6e 3a /* Description:
5600: 20 56 61 6c 75 65 20 6f 66 20 74 68 65 20 73 79 Value of the sy
5610: 6d 62 6f 6c 69 63 20 6c 69 6e 6b 20 2a 2f 0a 20 mbolic link */.
5620: 20 20 20 7d 2c 0a 23 65 6e 64 69 66 0a 20 20 20 },.#endif.
5630: 20 7b 20 20 20 22 73 69 7a 65 22 2c 0a 20 20 20 { "size",.
5640: 20 20 20 20 20 22 6e 61 6d 65 22 2c 0a 20 20 20 "name",.
5650: 20 20 20 20 20 66 69 6c 65 5f 63 6d 64 5f 73 69 file_cmd_si
5660: 7a 65 2c 0a 20 20 20 20 20 20 20 20 31 2c 0a 20 ze,. 1,.
5670: 20 20 20 20 20 20 20 31 2c 0a 20 20 20 20 20 20 1,.
5680: 20 20 2f 2a 20 44 65 73 63 72 69 70 74 69 6f 6e /* Description
5690: 3a 20 53 69 7a 65 20 6f 66 20 66 69 6c 65 20 2a : Size of file *
56a0: 2f 0a 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 20 /. },. {
56b0: 20 22 73 74 61 74 22 2c 0a 20 20 20 20 20 20 20 "stat",.
56c0: 20 22 6e 61 6d 65 20 76 61 72 22 2c 0a 20 20 20 "name var",.
56d0: 20 20 20 20 20 66 69 6c 65 5f 63 6d 64 5f 73 74 file_cmd_st
56e0: 61 74 2c 0a 20 20 20 20 20 20 20 20 32 2c 0a 20 at,. 2,.
56f0: 20 20 20 20 20 20 20 32 2c 0a 20 20 20 20 20 20 2,.
5700: 20 20 2f 2a 20 44 65 73 63 72 69 70 74 69 6f 6e /* Description
5710: 3a 20 53 74 6f 72 65 73 20 72 65 73 75 6c 74 73 : Stores results
5720: 20 6f 66 20 73 74 61 74 20 69 6e 20 76 61 72 20 of stat in var
5730: 61 72 72 61 79 20 2a 2f 0a 20 20 20 20 7d 2c 0a array */. },.
5740: 20 20 20 20 7b 20 20 20 22 6c 73 74 61 74 22 2c { "lstat",
5750: 0a 20 20 20 20 20 20 20 20 22 6e 61 6d 65 20 76 . "name v
5760: 61 72 22 2c 0a 20 20 20 20 20 20 20 20 66 69 6c ar",. fil
5770: 65 5f 63 6d 64 5f 6c 73 74 61 74 2c 0a 20 20 20 e_cmd_lstat,.
5780: 20 20 20 20 20 32 2c 0a 20 20 20 20 20 20 20 20 2,.
5790: 32 2c 0a 20 20 20 20 20 20 20 20 2f 2a 20 44 65 2,. /* De
57a0: 73 63 72 69 70 74 69 6f 6e 3a 20 53 74 6f 72 65 scription: Store
57b0: 73 20 72 65 73 75 6c 74 73 20 6f 66 20 6c 73 74 s results of lst
57c0: 61 74 20 69 6e 20 76 61 72 20 61 72 72 61 79 20 at in var array
57d0: 2a 2f 0a 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 */. },. {
57e0: 20 20 22 74 79 70 65 22 2c 0a 20 20 20 20 20 20 "type",.
57f0: 20 20 22 6e 61 6d 65 22 2c 0a 20 20 20 20 20 20 "name",.
5800: 20 20 66 69 6c 65 5f 63 6d 64 5f 74 79 70 65 2c file_cmd_type,
5810: 0a 20 20 20 20 20 20 20 20 31 2c 0a 20 20 20 20 . 1,.
5820: 20 20 20 20 31 2c 0a 20 20 20 20 20 20 20 20 2f 1,. /
5830: 2a 20 44 65 73 63 72 69 70 74 69 6f 6e 3a 20 52 * Description: R
5840: 65 74 75 72 6e 73 20 74 79 70 65 20 6f 66 20 74 eturns type of t
5850: 68 65 20 66 69 6c 65 20 2a 2f 0a 20 20 20 20 7d he file */. }
5860: 2c 0a 23 69 66 64 65 66 20 48 41 56 45 5f 47 45 ,.#ifdef HAVE_GE
5870: 54 45 55 49 44 0a 20 20 20 20 7b 20 20 20 22 6f TEUID. { "o
5880: 77 6e 65 64 22 2c 0a 20 20 20 20 20 20 20 20 22 wned",. "
5890: 6e 61 6d 65 22 2c 0a 20 20 20 20 20 20 20 20 66 name",. f
58a0: 69 6c 65 5f 63 6d 64 5f 6f 77 6e 65 64 2c 0a 20 ile_cmd_owned,.
58b0: 20 20 20 20 20 20 20 31 2c 0a 20 20 20 20 20 20 1,.
58c0: 20 20 31 2c 0a 20 20 20 20 20 20 20 20 2f 2a 20 1,. /*
58d0: 44 65 73 63 72 69 70 74 69 6f 6e 3a 20 52 65 74 Description: Ret
58e0: 75 72 6e 73 20 31 20 69 66 20 6f 77 6e 65 64 20 urns 1 if owned
58f0: 62 79 20 74 68 65 20 63 75 72 72 65 6e 74 20 6f by the current o
5900: 77 6e 65 72 20 2a 2f 0a 20 20 20 20 7d 2c 0a 23 wner */. },.#
5910: 65 6e 64 69 66 0a 20 20 20 20 7b 20 20 20 22 69 endif. { "i
5920: 73 64 69 72 65 63 74 6f 72 79 22 2c 0a 20 20 20 sdirectory",.
5930: 20 20 20 20 20 22 6e 61 6d 65 22 2c 0a 20 20 20 "name",.
5940: 20 20 20 20 20 66 69 6c 65 5f 63 6d 64 5f 69 73 file_cmd_is
5950: 64 69 72 65 63 74 6f 72 79 2c 0a 20 20 20 20 20 directory,.
5960: 20 20 20 31 2c 0a 20 20 20 20 20 20 20 20 31 2c 1,. 1,
5970: 0a 20 20 20 20 20 20 20 20 2f 2a 20 44 65 73 63 . /* Desc
5980: 72 69 70 74 69 6f 6e 3a 20 52 65 74 75 72 6e 73 ription: Returns
5990: 20 31 20 69 66 20 6e 61 6d 65 20 69 73 20 61 20 1 if name is a
59a0: 64 69 72 65 63 74 6f 72 79 20 2a 2f 0a 20 20 20 directory */.
59b0: 20 7d 2c 0a 20 20 20 20 7b 20 20 20 22 69 73 66 },. { "isf
59c0: 69 6c 65 22 2c 0a 20 20 20 20 20 20 20 20 22 6e ile",. "n
59d0: 61 6d 65 22 2c 0a 20 20 20 20 20 20 20 20 66 69 ame",. fi
59e0: 6c 65 5f 63 6d 64 5f 69 73 66 69 6c 65 2c 0a 20 le_cmd_isfile,.
59f0: 20 20 20 20 20 20 20 31 2c 0a 20 20 20 20 20 20 1,.
5a00: 20 20 31 2c 0a 20 20 20 20 20 20 20 20 2f 2a 20 1,. /*
5a10: 44 65 73 63 72 69 70 74 69 6f 6e 3a 20 52 65 74 Description: Ret
5a20: 75 72 6e 73 20 31 20 69 66 20 6e 61 6d 65 20 69 urns 1 if name i
5a30: 73 20 61 20 66 69 6c 65 20 2a 2f 0a 20 20 20 20 s a file */.
5a40: 7d 2c 0a 20 20 20 20 7b 0a 20 20 20 20 20 20 20 },. {.
5a50: 20 4e 55 4c 4c 0a 20 20 20 20 7d 0a 7d 3b 0a 0a NULL. }.};..
5a60: 73 74 61 74 69 63 20 69 6e 74 20 4a 69 6d 5f 43 static int Jim_C
5a70: 64 43 6d 64 28 4a 69 6d 5f 49 6e 74 65 72 70 20 dCmd(Jim_Interp
5a80: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 61 72 67 *interp, int arg
5a90: 63 2c 20 4a 69 6d 5f 4f 62 6a 20 2a 63 6f 6e 73 c, Jim_Obj *cons
5aa0: 74 20 2a 61 72 67 76 29 0a 7b 0a 20 20 20 20 63 t *argv).{. c
5ab0: 6f 6e 73 74 20 63 68 61 72 20 2a 70 61 74 68 3b onst char *path;
5ac0: 0a 0a 20 20 20 20 69 66 20 28 61 72 67 63 20 21 .. if (argc !
5ad0: 3d 20 32 29 20 7b 0a 20 20 20 20 20 20 20 20 4a = 2) {. J
5ae0: 69 6d 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 im_WrongNumArgs(
5af0: 69 6e 74 65 72 70 2c 20 31 2c 20 61 72 67 76 2c interp, 1, argv,
5b00: 20 22 64 69 72 6e 61 6d 65 22 29 3b 0a 20 20 20 "dirname");.
5b10: 20 20 20 20 20 72 65 74 75 72 6e 20 4a 49 4d 5f return JIM_
5b20: 45 52 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ERR;. }..
5b30: 70 61 74 68 20 3d 20 4a 69 6d 5f 53 74 72 69 6e path = Jim_Strin
5b40: 67 28 61 72 67 76 5b 31 5d 29 3b 0a 0a 20 20 20 g(argv[1]);..
5b50: 20 69 66 20 28 63 68 64 69 72 28 70 61 74 68 29 if (chdir(path)
5b60: 20 21 3d 20 30 29 20 7b 0a 20 20 20 20 20 20 20 != 0) {.
5b70: 20 4a 69 6d 5f 53 65 74 52 65 73 75 6c 74 46 6f Jim_SetResultFo
5b80: 72 6d 61 74 74 65 64 28 69 6e 74 65 72 70 2c 20 rmatted(interp,
5b90: 22 63 6f 75 6c 64 6e 27 74 20 63 68 61 6e 67 65 "couldn't change
5ba0: 20 77 6f 72 6b 69 6e 67 20 64 69 72 65 63 74 6f working directo
5bb0: 72 79 20 74 6f 20 5c 22 25 73 5c 22 3a 20 25 73 ry to \"%s\": %s
5bc0: 22 2c 20 70 61 74 68 2c 0a 20 20 20 20 20 20 20 ", path,.
5bd0: 20 20 20 20 20 73 74 72 65 72 72 6f 72 28 65 72 strerror(er
5be0: 72 6e 6f 29 29 3b 0a 20 20 20 20 20 20 20 20 72 rno));. r
5bf0: 65 74 75 72 6e 20 4a 49 4d 5f 45 52 52 3b 0a 20 eturn JIM_ERR;.
5c00: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 }. return
5c10: 4a 49 4d 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 JIM_OK;.}..stati
5c20: 63 20 69 6e 74 20 4a 69 6d 5f 50 77 64 43 6d 64 c int Jim_PwdCmd
5c30: 28 4a 69 6d 5f 49 6e 74 65 72 70 20 2a 69 6e 74 (Jim_Interp *int
5c40: 65 72 70 2c 20 69 6e 74 20 61 72 67 63 2c 20 4a erp, int argc, J
5c50: 69 6d 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 2a 61 im_Obj *const *a
5c60: 72 67 76 29 0a 7b 0a 20 20 20 20 63 6f 6e 73 74 rgv).{. const
5c70: 20 69 6e 74 20 63 77 64 5f 6c 65 6e 20 3d 20 32 int cwd_len = 2
5c80: 30 34 38 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 048;. char *c
5c90: 77 64 20 3d 20 6d 61 6c 6c 6f 63 28 63 77 64 5f wd = malloc(cwd_
5ca0: 6c 65 6e 29 3b 0a 0a 20 20 20 20 69 66 20 28 67 len);.. if (g
5cb0: 65 74 63 77 64 28 63 77 64 2c 20 63 77 64 5f 6c etcwd(cwd, cwd_l
5cc0: 65 6e 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 20 en) == NULL) {.
5cd0: 20 20 20 20 20 20 20 4a 69 6d 5f 53 65 74 52 65 Jim_SetRe
5ce0: 73 75 6c 74 53 74 72 69 6e 67 28 69 6e 74 65 72 sultString(inter
5cf0: 70 2c 20 22 46 61 69 6c 65 64 20 74 6f 20 67 65 p, "Failed to ge
5d00: 74 20 70 77 64 22 2c 20 2d 31 29 3b 0a 20 20 20 t pwd", -1);.
5d10: 20 20 20 20 20 72 65 74 75 72 6e 20 4a 49 4d 5f return JIM_
5d20: 45 52 52 3b 0a 20 20 20 20 7d 0a 23 69 66 20 64 ERR;. }.#if d
5d30: 65 66 69 6e 65 64 28 5f 5f 4d 49 4e 47 57 33 32 efined(__MINGW32
5d40: 5f 5f 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 5f __) || defined(_
5d50: 4d 53 43 5f 56 45 52 29 0a 20 20 20 20 7b 0a 20 MSC_VER). {.
5d60: 20 20 20 20 20 20 20 2f 2a 20 54 72 79 20 74 6f /* Try to
5d70: 20 6b 65 65 70 20 62 61 63 6b 6c 61 73 68 65 73 keep backlashes
5d80: 20 6f 75 74 20 6f 66 20 70 61 74 68 73 20 2a 2f out of paths */
5d90: 0a 20 20 20 20 20 20 20 20 63 68 61 72 20 2a 70 . char *p
5da0: 20 3d 20 63 77 64 3b 0a 20 20 20 20 20 20 20 20 = cwd;.
5db0: 77 68 69 6c 65 20 28 28 70 20 3d 20 73 74 72 63 while ((p = strc
5dc0: 68 72 28 70 2c 20 27 5c 5c 27 29 29 20 21 3d 20 hr(p, '\\')) !=
5dd0: 4e 55 4c 4c 29 20 7b 0a 20 20 20 20 20 20 20 20 NULL) {.
5de0: 20 20 20 20 2a 70 2b 2b 20 3d 20 27 2f 27 3b 0a *p++ = '/';.
5df0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a }. }.
5e00: 23 65 6e 64 69 66 0a 0a 20 20 20 20 4a 69 6d 5f #endif.. Jim_
5e10: 53 65 74 52 65 73 75 6c 74 53 74 72 69 6e 67 28 SetResultString(
5e20: 69 6e 74 65 72 70 2c 20 63 77 64 2c 20 2d 31 29 interp, cwd, -1)
5e30: 3b 0a 0a 20 20 20 20 66 72 65 65 28 63 77 64 29 ;.. free(cwd)
5e40: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 4a 49 4d ;. return JIM
5e50: 5f 4f 4b 3b 0a 7d 0a 0a 69 6e 74 20 4a 69 6d 5f _OK;.}..int Jim_
5e60: 66 69 6c 65 49 6e 69 74 28 4a 69 6d 5f 49 6e 74 fileInit(Jim_Int
5e70: 65 72 70 20 2a 69 6e 74 65 72 70 29 0a 7b 0a 20 erp *interp).{.
5e80: 20 20 20 69 66 20 28 4a 69 6d 5f 50 61 63 6b 61 if (Jim_Packa
5e90: 67 65 50 72 6f 76 69 64 65 28 69 6e 74 65 72 70 geProvide(interp
5ea0: 2c 20 22 66 69 6c 65 22 2c 20 22 31 2e 30 22 2c , "file", "1.0",
5eb0: 20 4a 49 4d 5f 45 52 52 4d 53 47 29 29 0a 20 20 JIM_ERRMSG)).
5ec0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 4a 49 4d return JIM
5ed0: 5f 45 52 52 3b 0a 0a 20 20 20 20 4a 69 6d 5f 43 _ERR;.. Jim_C
5ee0: 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28 69 6e 74 reateCommand(int
5ef0: 65 72 70 2c 20 22 66 69 6c 65 22 2c 20 4a 69 6d erp, "file", Jim
5f00: 5f 53 75 62 43 6d 64 50 72 6f 63 2c 20 28 76 6f _SubCmdProc, (vo
5f10: 69 64 20 2a 29 66 69 6c 65 5f 63 6f 6d 6d 61 6e id *)file_comman
5f20: 64 5f 74 61 62 6c 65 2c 20 4e 55 4c 4c 29 3b 0a d_table, NULL);.
5f30: 20 20 20 20 4a 69 6d 5f 43 72 65 61 74 65 43 6f Jim_CreateCo
5f40: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 70 mmand(interp, "p
5f50: 77 64 22 2c 20 4a 69 6d 5f 50 77 64 43 6d 64 2c wd", Jim_PwdCmd,
5f60: 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 29 3b 0a 20 20 NULL, NULL);.
5f70: 20 20 4a 69 6d 5f 43 72 65 61 74 65 43 6f 6d 6d Jim_CreateComm
5f80: 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 63 64 22 and(interp, "cd"
5f90: 2c 20 4a 69 6d 5f 43 64 43 6d 64 2c 20 4e 55 4c , Jim_CdCmd, NUL
5fa0: 4c 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 72 65 L, NULL);. re
5fb0: 74 75 72 6e 20 4a 49 4d 5f 4f 4b 3b 0a 7d 0a turn JIM_OK;.}.