Artifact 811eb9f644ddc07e0a47c20583b288a6d74e2def:
- File
jim-readdir.c
-
2011-11-07 05:31:41
- part of checkin
[42d776e90b]
on branch trunk
- Allow building with MSVC on windows
Signed-off-by: Steve Bennett <steveb@workware.net.au> (user: steveb@workware.net.au
-
2011-11-07 05:31:41
- part of checkin
[42d776e90b]
on branch trunk
- Allow building with MSVC on windows
0000: 0a 2f 2a 0a 20 2a 20 54 63 6c 20 72 65 61 64 64 ./*. * Tcl readd
0010: 69 72 20 63 6f 6d 6d 61 6e 64 2e 0a 20 2a 0a 20 ir command.. *.
0020: 2a 20 28 63 29 20 32 30 30 38 20 53 74 65 76 65 * (c) 2008 Steve
0030: 20 42 65 6e 6e 65 74 74 20 3c 73 74 65 76 65 62 Bennett <steveb
0040: 40 77 6f 72 77 61 72 65 2e 6e 65 74 2e 61 75 3e @worware.net.au>
0050: 0a 20 2a 0a 20 2a 20 52 65 64 69 73 74 72 69 62 . *. * Redistrib
0060: 75 74 69 6f 6e 20 61 6e 64 20 75 73 65 20 69 6e ution and use in
0070: 20 73 6f 75 72 63 65 20 61 6e 64 20 62 69 6e 61 source and bina
0080: 72 79 20 66 6f 72 6d 73 2c 20 77 69 74 68 20 6f ry forms, with o
0090: 72 20 77 69 74 68 6f 75 74 0a 20 2a 20 6d 6f 64 r without. * mod
00a0: 69 66 69 63 61 74 69 6f 6e 2c 20 61 72 65 20 70 ification, are p
00b0: 65 72 6d 69 74 74 65 64 20 70 72 6f 76 69 64 65 ermitted provide
00c0: 64 20 74 68 61 74 20 74 68 65 20 66 6f 6c 6c 6f d that the follo
00d0: 77 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 73 0a wing conditions.
00e0: 20 2a 20 61 72 65 20 6d 65 74 3a 0a 20 2a 0a 20 * are met:. *.
00f0: 2a 20 31 2e 20 52 65 64 69 73 74 72 69 62 75 74 * 1. Redistribut
0100: 69 6f 6e 73 20 6f 66 20 73 6f 75 72 63 65 20 63 ions of source c
0110: 6f 64 65 20 6d 75 73 74 20 72 65 74 61 69 6e 20 ode must retain
0120: 74 68 65 20 61 62 6f 76 65 20 63 6f 70 79 72 69 the above copyri
0130: 67 68 74 0a 20 2a 20 20 20 20 6e 6f 74 69 63 65 ght. * notice
0140: 2c 20 74 68 69 73 20 6c 69 73 74 20 6f 66 20 63 , this list of c
0150: 6f 6e 64 69 74 69 6f 6e 73 20 61 6e 64 20 74 68 onditions and th
0160: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 64 69 73 63 e following disc
0170: 6c 61 69 6d 65 72 2e 0a 20 2a 20 32 2e 20 52 65 laimer.. * 2. Re
0180: 64 69 73 74 72 69 62 75 74 69 6f 6e 73 20 69 6e distributions in
0190: 20 62 69 6e 61 72 79 20 66 6f 72 6d 20 6d 75 73 binary form mus
01a0: 74 20 72 65 70 72 6f 64 75 63 65 20 74 68 65 20 t reproduce the
01b0: 61 62 6f 76 65 0a 20 2a 20 20 20 20 63 6f 70 79 above. * copy
01c0: 72 69 67 68 74 20 6e 6f 74 69 63 65 2c 20 74 68 right notice, th
01d0: 69 73 20 6c 69 73 74 20 6f 66 20 63 6f 6e 64 69 is list of condi
01e0: 74 69 6f 6e 73 20 61 6e 64 20 74 68 65 20 66 6f tions and the fo
01f0: 6c 6c 6f 77 69 6e 67 0a 20 2a 20 20 20 20 64 69 llowing. * di
0200: 73 63 6c 61 69 6d 65 72 20 69 6e 20 74 68 65 20 sclaimer in the
0210: 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 61 6e documentation an
0220: 64 2f 6f 72 20 6f 74 68 65 72 20 6d 61 74 65 72 d/or other mater
0230: 69 61 6c 73 0a 20 2a 20 20 20 20 70 72 6f 76 69 ials. * provi
0240: 64 65 64 20 77 69 74 68 20 74 68 65 20 64 69 73 ded with the dis
0250: 74 72 69 62 75 74 69 6f 6e 2e 0a 20 2a 0a 20 2a tribution.. *. *
0260: 20 54 48 49 53 20 53 4f 46 54 57 41 52 45 20 49 THIS SOFTWARE I
0270: 53 20 50 52 4f 56 49 44 45 44 20 42 59 20 54 48 S PROVIDED BY TH
0280: 45 20 4a 49 4d 20 54 43 4c 20 50 52 4f 4a 45 43 E JIM TCL PROJEC
0290: 54 20 60 60 41 53 20 49 53 27 27 20 41 4e 44 20 T ``AS IS'' AND
02a0: 41 4e 59 0a 20 2a 20 45 58 50 52 45 53 53 20 4f ANY. * EXPRESS O
02b0: 52 20 49 4d 50 4c 49 45 44 20 57 41 52 52 41 4e R IMPLIED WARRAN
02c0: 54 49 45 53 2c 20 49 4e 43 4c 55 44 49 4e 47 2c TIES, INCLUDING,
02d0: 20 42 55 54 20 4e 4f 54 20 4c 49 4d 49 54 45 44 BUT NOT LIMITED
02e0: 20 54 4f 2c 0a 20 2a 20 54 48 45 20 49 4d 50 4c TO,. * THE IMPL
02f0: 49 45 44 20 57 41 52 52 41 4e 54 49 45 53 20 4f IED WARRANTIES O
0300: 46 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 F MERCHANTABILIT
0310: 59 20 41 4e 44 20 46 49 54 4e 45 53 53 20 46 4f Y AND FITNESS FO
0320: 52 20 41 0a 20 2a 20 50 41 52 54 49 43 55 4c 41 R A. * PARTICULA
0330: 52 20 50 55 52 50 4f 53 45 20 41 52 45 20 44 49 R PURPOSE ARE DI
0340: 53 43 4c 41 49 4d 45 44 2e 20 49 4e 20 4e 4f 20 SCLAIMED. IN NO
0350: 45 56 45 4e 54 20 53 48 41 4c 4c 20 54 48 45 0a EVENT SHALL THE.
0360: 20 2a 20 4a 49 4d 20 54 43 4c 20 50 52 4f 4a 45 * JIM TCL PROJE
0370: 43 54 20 4f 52 20 43 4f 4e 54 52 49 42 55 54 4f CT OR CONTRIBUTO
0380: 52 53 20 42 45 20 4c 49 41 42 4c 45 20 46 4f 52 RS BE LIABLE FOR
0390: 20 41 4e 59 20 44 49 52 45 43 54 2c 0a 20 2a 20 ANY DIRECT,. *
03a0: 49 4e 44 49 52 45 43 54 2c 20 49 4e 43 49 44 45 INDIRECT, INCIDE
03b0: 4e 54 41 4c 2c 20 53 50 45 43 49 41 4c 2c 20 45 NTAL, SPECIAL, E
03c0: 58 45 4d 50 4c 41 52 59 2c 20 4f 52 20 43 4f 4e XEMPLARY, OR CON
03d0: 53 45 51 55 45 4e 54 49 41 4c 20 44 41 4d 41 47 SEQUENTIAL DAMAG
03e0: 45 53 0a 20 2a 20 28 49 4e 43 4c 55 44 49 4e 47 ES. * (INCLUDING
03f0: 2c 20 42 55 54 20 4e 4f 54 20 4c 49 4d 49 54 45 , BUT NOT LIMITE
0400: 44 20 54 4f 2c 20 50 52 4f 43 55 52 45 4d 45 4e D TO, PROCUREMEN
0410: 54 20 4f 46 20 53 55 42 53 54 49 54 55 54 45 20 T OF SUBSTITUTE
0420: 47 4f 4f 44 53 0a 20 2a 20 4f 52 20 53 45 52 56 GOODS. * OR SERV
0430: 49 43 45 53 3b 20 4c 4f 53 53 20 4f 46 20 55 53 ICES; LOSS OF US
0440: 45 2c 20 44 41 54 41 2c 20 4f 52 20 50 52 4f 46 E, DATA, OR PROF
0450: 49 54 53 3b 20 4f 52 20 42 55 53 49 4e 45 53 53 ITS; OR BUSINESS
0460: 20 49 4e 54 45 52 52 55 50 54 49 4f 4e 29 0a 20 INTERRUPTION).
0470: 2a 20 48 4f 57 45 56 45 52 20 43 41 55 53 45 44 * HOWEVER CAUSED
0480: 20 41 4e 44 20 4f 4e 20 41 4e 59 20 54 48 45 4f AND ON ANY THEO
0490: 52 59 20 4f 46 20 4c 49 41 42 49 4c 49 54 59 2c RY OF LIABILITY,
04a0: 20 57 48 45 54 48 45 52 20 49 4e 20 43 4f 4e 54 WHETHER IN CONT
04b0: 52 41 43 54 2c 0a 20 2a 20 53 54 52 49 43 54 20 RACT,. * STRICT
04c0: 4c 49 41 42 49 4c 49 54 59 2c 20 4f 52 20 54 4f LIABILITY, OR TO
04d0: 52 54 20 28 49 4e 43 4c 55 44 49 4e 47 20 4e 45 RT (INCLUDING NE
04e0: 47 4c 49 47 45 4e 43 45 20 4f 52 20 4f 54 48 45 GLIGENCE OR OTHE
04f0: 52 57 49 53 45 29 0a 20 2a 20 41 52 49 53 49 4e RWISE). * ARISIN
0500: 47 20 49 4e 20 41 4e 59 20 57 41 59 20 4f 55 54 G IN ANY WAY OUT
0510: 20 4f 46 20 54 48 45 20 55 53 45 20 4f 46 20 54 OF THE USE OF T
0520: 48 49 53 20 53 4f 46 54 57 41 52 45 2c 20 45 56 HIS SOFTWARE, EV
0530: 45 4e 20 49 46 0a 20 2a 20 41 44 56 49 53 45 44 EN IF. * ADVISED
0540: 20 4f 46 20 54 48 45 20 50 4f 53 53 49 42 49 4c OF THE POSSIBIL
0550: 49 54 59 20 4f 46 20 53 55 43 48 20 44 41 4d 41 ITY OF SUCH DAMA
0560: 47 45 2e 0a 20 2a 0a 20 2a 20 54 68 65 20 76 69 GE.. *. * The vi
0570: 65 77 73 20 61 6e 64 20 63 6f 6e 63 6c 75 73 69 ews and conclusi
0580: 6f 6e 73 20 63 6f 6e 74 61 69 6e 65 64 20 69 6e ons contained in
0590: 20 74 68 65 20 73 6f 66 74 77 61 72 65 20 61 6e the software an
05a0: 64 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 0a d documentation.
05b0: 20 2a 20 61 72 65 20 74 68 6f 73 65 20 6f 66 20 * are those of
05c0: 74 68 65 20 61 75 74 68 6f 72 73 20 61 6e 64 20 the authors and
05d0: 73 68 6f 75 6c 64 20 6e 6f 74 20 62 65 20 69 6e should not be in
05e0: 74 65 72 70 72 65 74 65 64 20 61 73 20 72 65 70 terpreted as rep
05f0: 72 65 73 65 6e 74 69 6e 67 0a 20 2a 20 6f 66 66 resenting. * off
0600: 69 63 69 61 6c 20 70 6f 6c 69 63 69 65 73 2c 20 icial policies,
0610: 65 69 74 68 65 72 20 65 78 70 72 65 73 73 65 64 either expressed
0620: 20 6f 72 20 69 6d 70 6c 69 65 64 2c 20 6f 66 20 or implied, of
0630: 74 68 65 20 4a 69 6d 20 54 63 6c 20 50 72 6f 6a the Jim Tcl Proj
0640: 65 63 74 2e 0a 20 2a 0a 20 2a 20 42 61 73 65 64 ect.. *. * Based
0650: 20 6f 6e 20 6f 72 69 67 69 6e 61 6c 20 77 6f 72 on original wor
0660: 6b 20 62 79 3a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d k by:. *--------
0670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06b0: 2d 2d 2d 2d 2d 0a 20 2a 20 43 6f 70 79 72 69 67 -----. * Copyrig
06c0: 68 74 20 31 39 39 31 2d 31 39 39 34 20 4b 61 72 ht 1991-1994 Kar
06d0: 6c 20 4c 65 68 65 6e 62 61 75 65 72 20 61 6e 64 l Lehenbauer and
06e0: 20 4d 61 72 6b 20 44 69 65 6b 68 61 6e 73 2e 0a Mark Diekhans..
06f0: 20 2a 0a 20 2a 20 50 65 72 6d 69 73 73 69 6f 6e *. * Permission
0700: 20 74 6f 20 75 73 65 2c 20 63 6f 70 79 2c 20 6d to use, copy, m
0710: 6f 64 69 66 79 2c 20 61 6e 64 20 64 69 73 74 72 odify, and distr
0720: 69 62 75 74 65 20 74 68 69 73 20 73 6f 66 74 77 ibute this softw
0730: 61 72 65 20 61 6e 64 20 69 74 73 0a 20 2a 20 64 are and its. * d
0740: 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 ocumentation for
0750: 20 61 6e 79 20 70 75 72 70 6f 73 65 20 61 6e 64 any purpose and
0760: 20 77 69 74 68 6f 75 74 20 66 65 65 20 69 73 20 without fee is
0770: 68 65 72 65 62 79 20 67 72 61 6e 74 65 64 2c 20 hereby granted,
0780: 70 72 6f 76 69 64 65 64 0a 20 2a 20 74 68 61 74 provided. * that
0790: 20 74 68 65 20 61 62 6f 76 65 20 63 6f 70 79 72 the above copyr
07a0: 69 67 68 74 20 6e 6f 74 69 63 65 20 61 70 70 65 ight notice appe
07b0: 61 72 20 69 6e 20 61 6c 6c 20 63 6f 70 69 65 73 ar in all copies
07c0: 2e 20 20 4b 61 72 6c 20 4c 65 68 65 6e 62 61 75 . Karl Lehenbau
07d0: 65 72 20 61 6e 64 0a 20 2a 20 4d 61 72 6b 20 44 er and. * Mark D
07e0: 69 65 6b 68 61 6e 73 20 6d 61 6b 65 20 6e 6f 20 iekhans make no
07f0: 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 representations
0800: 61 62 6f 75 74 20 74 68 65 20 73 75 69 74 61 62 about the suitab
0810: 69 6c 69 74 79 20 6f 66 20 74 68 69 73 0a 20 2a ility of this. *
0820: 20 73 6f 66 74 77 61 72 65 20 66 6f 72 20 61 6e software for an
0830: 79 20 70 75 72 70 6f 73 65 2e 20 20 49 74 20 69 y purpose. It i
0840: 73 20 70 72 6f 76 69 64 65 64 20 22 61 73 20 69 s provided "as i
0850: 73 22 20 77 69 74 68 6f 75 74 20 65 78 70 72 65 s" without expre
0860: 73 73 20 6f 72 0a 20 2a 20 69 6d 70 6c 69 65 64 ss or. * implied
0870: 20 77 61 72 72 61 6e 74 79 2e 0a 20 2a 2d 2d 2d warranty.. *---
0880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
08a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
08b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
08c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a ----------. */..
08d0: 23 69 6e 63 6c 75 64 65 20 3c 65 72 72 6e 6f 2e #include <errno.
08e0: 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 h>.#include <std
08f0: 69 6f 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c io.h>.#include <
0900: 73 74 72 69 6e 67 2e 68 3e 0a 0a 23 69 6e 63 6c string.h>..#incl
0910: 75 64 65 20 22 6a 69 6d 2e 68 22 0a 23 69 6e 63 ude "jim.h".#inc
0920: 6c 75 64 65 20 22 6a 69 6d 61 75 74 6f 63 6f 6e lude "jimautocon
0930: 66 2e 68 22 0a 0a 23 69 66 64 65 66 20 48 41 56 f.h"..#ifdef HAV
0940: 45 5f 44 49 52 45 4e 54 5f 48 0a 23 69 6e 63 6c E_DIRENT_H.#incl
0950: 75 64 65 20 3c 64 69 72 65 6e 74 2e 68 3e 0a 23 ude <dirent.h>.#
0960: 65 6e 64 69 66 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d endif../*. *----
0970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
09a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
09b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
09c0: 4a 69 6d 5f 52 65 61 64 64 69 72 43 6d 64 20 2d Jim_ReaddirCmd -
09d0: 2d 0a 20 2a 20 20 20 20 20 49 6d 70 6c 65 6d 65 -. * Impleme
09e0: 6e 74 73 20 74 68 65 20 72 65 6e 61 6d 65 20 54 nts the rename T
09f0: 43 4c 20 63 6f 6d 6d 61 6e 64 3a 0a 20 2a 20 20 CL command:. *
0a00: 20 20 20 20 20 20 20 72 65 61 64 64 69 72 20 3f readdir ?
0a10: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 3f 20 64 69 72 -nocomplain? dir
0a20: 50 61 74 68 0a 20 2a 0a 20 2a 20 52 65 73 75 6c Path. *. * Resul
0a30: 74 73 3a 0a 20 2a 20 20 20 20 20 20 53 74 61 6e ts:. * Stan
0a40: 64 61 72 64 20 54 43 4c 20 72 65 73 75 6c 74 2e dard TCL result.
0a50: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
0a60: 2d 2d 2d 2d 2d 2d 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: 0a 20 2a 2f 0a 69 6e 74 20 4a 69 6d 5f 52 65 61 . */.int Jim_Rea
0ab0: 64 64 69 72 43 6d 64 28 4a 69 6d 5f 49 6e 74 65 ddirCmd(Jim_Inte
0ac0: 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 rp *interp, int
0ad0: 61 72 67 63 2c 20 4a 69 6d 5f 4f 62 6a 20 2a 63 argc, Jim_Obj *c
0ae0: 6f 6e 73 74 20 2a 61 72 67 76 29 0a 7b 0a 20 20 onst *argv).{.
0af0: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 64 69 const char *di
0b00: 72 50 61 74 68 3b 0a 20 20 20 20 44 49 52 20 2a rPath;. DIR *
0b10: 64 69 72 50 74 72 3b 0a 20 20 20 20 73 74 72 75 dirPtr;. stru
0b20: 63 74 20 64 69 72 65 6e 74 20 2a 65 6e 74 72 79 ct dirent *entry
0b30: 50 74 72 3b 0a 20 20 20 20 69 6e 74 20 6e 6f 63 Ptr;. int noc
0b40: 6f 6d 70 6c 61 69 6e 20 3d 20 30 3b 0a 0a 20 20 omplain = 0;..
0b50: 20 20 69 66 20 28 61 72 67 63 20 3d 3d 20 33 20 if (argc == 3
0b60: 26 26 20 4a 69 6d 5f 43 6f 6d 70 61 72 65 53 74 && Jim_CompareSt
0b70: 72 69 6e 67 49 6d 6d 65 64 69 61 74 65 28 69 6e ringImmediate(in
0b80: 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 22 terp, argv[1], "
0b90: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 22 29 29 20 7b -nocomplain")) {
0ba0: 0a 20 20 20 20 20 20 20 20 6e 6f 63 6f 6d 70 6c . nocompl
0bb0: 61 69 6e 20 3d 20 31 3b 0a 20 20 20 20 7d 0a 20 ain = 1;. }.
0bc0: 20 20 20 69 66 20 28 61 72 67 63 20 21 3d 20 32 if (argc != 2
0bd0: 20 26 26 20 21 6e 6f 63 6f 6d 70 6c 61 69 6e 29 && !nocomplain)
0be0: 20 7b 0a 20 20 20 20 20 20 20 20 4a 69 6d 5f 57 {. Jim_W
0bf0: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 rongNumArgs(inte
0c00: 72 70 2c 20 31 2c 20 61 72 67 76 2c 20 22 3f 2d rp, 1, argv, "?-
0c10: 6e 6f 63 6f 6d 70 6c 61 69 6e 3f 20 64 69 72 50 nocomplain? dirP
0c20: 61 74 68 22 29 3b 0a 20 20 20 20 20 20 20 20 72 ath");. r
0c30: 65 74 75 72 6e 20 4a 49 4d 5f 45 52 52 3b 0a 20 eturn JIM_ERR;.
0c40: 20 20 20 7d 0a 0a 20 20 20 20 64 69 72 50 61 74 }.. dirPat
0c50: 68 20 3d 20 4a 69 6d 5f 53 74 72 69 6e 67 28 61 h = Jim_String(a
0c60: 72 67 76 5b 31 20 2b 20 6e 6f 63 6f 6d 70 6c 61 rgv[1 + nocompla
0c70: 69 6e 5d 29 3b 0a 0a 20 20 20 20 64 69 72 50 74 in]);.. dirPt
0c80: 72 20 3d 20 6f 70 65 6e 64 69 72 28 64 69 72 50 r = opendir(dirP
0c90: 61 74 68 29 3b 0a 20 20 20 20 69 66 20 28 64 69 ath);. if (di
0ca0: 72 50 74 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a rPtr == NULL) {.
0cb0: 20 20 20 20 20 20 20 20 69 66 20 28 6e 6f 63 6f if (noco
0cc0: 6d 70 6c 61 69 6e 29 20 7b 0a 20 20 20 20 20 20 mplain) {.
0cd0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 4a 49 4d return JIM
0ce0: 5f 4f 4b 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 _OK;. }.
0cf0: 20 20 20 20 20 20 20 4a 69 6d 5f 53 65 74 52 65 Jim_SetRe
0d00: 73 75 6c 74 53 74 72 69 6e 67 28 69 6e 74 65 72 sultString(inter
0d10: 70 2c 20 73 74 72 65 72 72 6f 72 28 65 72 72 6e p, strerror(errn
0d20: 6f 29 2c 20 2d 31 29 3b 0a 20 20 20 20 20 20 20 o), -1);.
0d30: 20 72 65 74 75 72 6e 20 4a 49 4d 5f 45 52 52 3b return JIM_ERR;
0d40: 0a 20 20 20 20 7d 0a 20 20 20 20 4a 69 6d 5f 53 . }. Jim_S
0d50: 65 74 52 65 73 75 6c 74 53 74 72 69 6e 67 28 69 etResultString(i
0d60: 6e 74 65 72 70 2c 20 73 74 72 65 72 72 6f 72 28 nterp, strerror(
0d70: 65 72 72 6e 6f 29 2c 20 2d 31 29 3b 0a 0a 20 20 errno), -1);..
0d80: 20 20 4a 69 6d 5f 53 65 74 52 65 73 75 6c 74 28 Jim_SetResult(
0d90: 69 6e 74 65 72 70 2c 20 4a 69 6d 5f 4e 65 77 4c interp, Jim_NewL
0da0: 69 73 74 4f 62 6a 28 69 6e 74 65 72 70 2c 20 4e istObj(interp, N
0db0: 55 4c 4c 2c 20 30 29 29 3b 0a 0a 20 20 20 20 77 ULL, 0));.. w
0dc0: 68 69 6c 65 20 28 28 65 6e 74 72 79 50 74 72 20 hile ((entryPtr
0dd0: 3d 20 72 65 61 64 64 69 72 28 64 69 72 50 74 72 = readdir(dirPtr
0de0: 29 29 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 20 20 )) != NULL) {.
0df0: 20 20 20 20 20 20 69 66 20 28 65 6e 74 72 79 50 if (entryP
0e00: 74 72 2d 3e 64 5f 6e 61 6d 65 5b 30 5d 20 3d 3d tr->d_name[0] ==
0e10: 20 27 2e 27 29 20 7b 0a 20 20 20 20 20 20 20 20 '.') {.
0e20: 20 20 20 20 69 66 20 28 65 6e 74 72 79 50 74 72 if (entryPtr
0e30: 2d 3e 64 5f 6e 61 6d 65 5b 31 5d 20 3d 3d 20 27 ->d_name[1] == '
0e40: 5c 30 27 29 20 7b 0a 20 20 20 20 20 20 20 20 20 \0') {.
0e50: 20 20 20 20 20 20 20 63 6f 6e 74 69 6e 75 65 3b continue;
0e60: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a 20 . }.
0e70: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 28 if ((
0e80: 65 6e 74 72 79 50 74 72 2d 3e 64 5f 6e 61 6d 65 entryPtr->d_name
0e90: 5b 31 5d 20 3d 3d 20 27 2e 27 29 20 26 26 20 28 [1] == '.') && (
0ea0: 65 6e 74 72 79 50 74 72 2d 3e 64 5f 6e 61 6d 65 entryPtr->d_name
0eb0: 5b 32 5d 20 3d 3d 20 27 5c 30 27 29 29 0a 20 20 [2] == '\0')).
0ec0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f co
0ed0: 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 20 20 ntinue;.
0ee0: 7d 0a 20 20 20 20 20 20 20 20 4a 69 6d 5f 4c 69 }. Jim_Li
0ef0: 73 74 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 stAppendElement(
0f00: 69 6e 74 65 72 70 2c 20 4a 69 6d 5f 47 65 74 52 interp, Jim_GetR
0f10: 65 73 75 6c 74 28 69 6e 74 65 72 70 29 2c 20 4a esult(interp), J
0f20: 69 6d 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 im_NewStringObj(
0f30: 69 6e 74 65 72 70 2c 0a 20 20 20 20 20 20 20 20 interp,.
0f40: 20 20 20 20 20 20 20 20 65 6e 74 72 79 50 74 72 entryPtr
0f50: 2d 3e 64 5f 6e 61 6d 65 2c 20 2d 31 29 29 3b 0a ->d_name, -1));.
0f60: 20 20 20 20 7d 0a 20 20 20 20 63 6c 6f 73 65 64 }. closed
0f70: 69 72 28 64 69 72 50 74 72 29 3b 0a 0a 20 20 20 ir(dirPtr);..
0f80: 20 72 65 74 75 72 6e 20 4a 49 4d 5f 4f 4b 3b 0a return JIM_OK;.
0f90: 7d 0a 0a 69 6e 74 20 4a 69 6d 5f 72 65 61 64 64 }..int Jim_readd
0fa0: 69 72 49 6e 69 74 28 4a 69 6d 5f 49 6e 74 65 72 irInit(Jim_Inter
0fb0: 70 20 2a 69 6e 74 65 72 70 29 0a 7b 0a 20 20 20 p *interp).{.
0fc0: 20 69 66 20 28 4a 69 6d 5f 50 61 63 6b 61 67 65 if (Jim_Package
0fd0: 50 72 6f 76 69 64 65 28 69 6e 74 65 72 70 2c 20 Provide(interp,
0fe0: 22 72 65 61 64 64 69 72 22 2c 20 22 31 2e 30 22 "readdir", "1.0"
0ff0: 2c 20 4a 49 4d 5f 45 52 52 4d 53 47 29 29 0a 20 , JIM_ERRMSG)).
1000: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 4a 49 return JI
1010: 4d 5f 45 52 52 3b 0a 0a 20 20 20 20 4a 69 6d 5f M_ERR;.. Jim_
1020: 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28 69 6e CreateCommand(in
1030: 74 65 72 70 2c 20 22 72 65 61 64 64 69 72 22 2c terp, "readdir",
1040: 20 4a 69 6d 5f 52 65 61 64 64 69 72 43 6d 64 2c Jim_ReaddirCmd,
1050: 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 29 3b 0a 20 20 NULL, NULL);.
1060: 20 20 72 65 74 75 72 6e 20 4a 49 4d 5f 4f 4b 3b return JIM_OK;
1070: 0a 7d 0a .}.