1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
|
#include <tcl.h>
#include <tk.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <os.h>
#include <io_lib/traceType.h>
#include "misc.h"
#include "getfile.h"
#include "tcl_utils.h"
#include "capture.h"
#include "cli_arg.h"
#include "renz_utils.h"
#include "text_output.h"
/* 7/1/99 johnt - added S_ISDIR and S_ISREG definitions to WINNT support */
#ifndef S_ISDIR
#define S_ISDIR(m) (((m)&S_IFMT) == S_IFDIR)
#endif /*!S_ISDIR*/
#ifndef S_ISREG
#define S_ISREG(m) (((m)&S_IFMT) == S_IFREG)
#endif /*!S_ISREG*/
int tcl_expandpath(ClientData clientData, Tcl_Interp *interp,
int argc, char **argv) {
char exp_filename[FILENAME_MAX+1];
if (argc != 2)
return TCL_ERROR;
if (0 == expandpath(argv[1], exp_filename)) {
return TCL_ERROR;
}
vTcl_SetResult(interp, "%s", exp_filename);
return TCL_OK;
}
int tcl_createconsole(ClientData clientData, Tcl_Interp *interp,
int argc, char **argv) {
Tk_CreateConsoleWindow(interp);
return TCL_OK;
}
int tcl_mkdir(ClientData clientData, Tcl_Interp *interp,
int argc, char **argv) {
struct stat statbuf;
if (argc != 2)
return TCL_ERROR;
/* open output directory */
/* check for directory existance, and create if needed */
if (-1 == stat(argv[1], &statbuf)) {
if (-1 == mkdir(argv[1], 0777)) {
perror(argv[1]);
verror(ERR_WARN, "mkdir", "cannot create directory %s", argv[1]);
return TCL_ERROR;
}
} else {
if (!S_ISDIR(statbuf.st_mode)) {
verror(ERR_WARN, "mkdir", "%s already exists and is not a "
"directory", argv[1]);
return TCL_ERROR;
}
}
return TCL_OK;
}
#if 0
/* Old string based version. This also doesn't take a list as the input */
int tcl_dir_or_file(ClientData clientData, Tcl_Interp *interp,
int argc, char **argv) {
Tcl_DString files;
Tcl_DString dirs;
Tcl_DString result;
int i;
struct stat st;
if (argc < 2) {
Tcl_SetResult(interp,
"wrong # args: should be \"dir_or_file "
"filename ...\"\n", TCL_STATIC);
return TCL_ERROR;
}
Tcl_DStringInit(&files);
Tcl_DStringInit(&dirs);
Tcl_DStringInit(&result);
for (i=1; i<argc; i++) {
if (stat(argv[i], &st) != -1) {
if (S_ISDIR(st.st_mode))
Tcl_DStringAppendElement(&dirs, argv[i]);
else
Tcl_DStringAppendElement(&files, argv[i]);
}
}
Tcl_DStringAppendElement(&result, Tcl_DStringValue(&dirs));
Tcl_DStringAppendElement(&result, Tcl_DStringValue(&files));
Tcl_DStringFree(&dirs);
Tcl_DStringFree(&files);
Tcl_DStringResult(interp, &result);
return TCL_OK;
}
#endif
/*
* Takes a Tcl List of filenames as input and checks each to see whether it
* is a directory or not.
*
* Returns:
* A Tcl List of two elements: a list of directories and a list of
* non-directories (typically regular files).
*/
int tcl_dir_or_file(ClientData clientData, Tcl_Interp *interp,
int objc, Tcl_Obj *CONST objv[]) {
int i;
struct stat st;
int listc;
Tcl_Obj **listv, *dlist, *flist, *reslist;
if (objc != 2) {
Tcl_SetResult(interp,
"wrong # args: should be \"dir_or_file "
"file_list\"\n", TCL_STATIC);
return TCL_ERROR;
}
/* Split list */
if (Tcl_ListObjGetElements(interp, objv[1], &listc, &listv) != TCL_OK) {
return TCL_ERROR;
}
dlist = Tcl_NewObj();
flist = Tcl_NewObj();
reslist = Tcl_NewObj();
Tcl_ListObjAppendElement(interp, reslist, dlist);
Tcl_ListObjAppendElement(interp, reslist, flist);
for (i=0; i < listc; i++) {
if (stat(Tcl_GetStringFromObj(listv[i], NULL), &st) != -1) {
if (S_ISDIR(st.st_mode))
Tcl_ListObjAppendElement(interp, dlist, listv[i]);
else
Tcl_ListObjAppendElement(interp, flist, listv[i]);
}
}
Tcl_SetObjResult(interp, reslist);
return TCL_OK;
}
int tcl_trace_type(ClientData clientData, Tcl_Interp *interp,
int argc, char **argv) {
if (argc != 2) {
Tcl_SetResult(interp,
"wrong # args: should be \"trace_type filename\"\n",
TCL_STATIC);
return TCL_ERROR;
}
vTcl_SetResult(interp, "%s",
trace_type_int2str(determine_trace_type(argv[1])));
return TCL_OK;
}
int Tk_utils_Misc_Init(Tcl_Interp *interp) {
Tcl_CreateCommand(interp, "expandpath", tcl_expandpath,
(ClientData) NULL, NULL);
Tcl_CreateCommand(interp, "create_console", tcl_createconsole,
(ClientData) NULL, NULL);
Tcl_CreateCommand(interp, "mkdir", tcl_mkdir,
(ClientData) NULL, NULL);
/*
Tcl_CreateCommand(interp, "dir_or_file", tcl_dir_or_file,
(ClientData)NULL, NULL);
*/
Tcl_CreateObjCommand(interp, "dir_or_file", tcl_dir_or_file,
(ClientData)NULL, NULL);
Tcl_CreateCommand(interp, "trace_type", tcl_trace_type,
(ClientData)NULL, NULL);
/* from capture.c */
Tcl_CreateCommand(interp, "capture", tcl_capture,
(ClientData)NULL, NULL);
return TCL_OK;
}
|
