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
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
|
# Tcl-based shell (for the Macintosh)
import TclUtil
import Tcl
from Tcl import Interpreter, TclRuntimeError
import mac
import macpath
from macpath import isfile, isdir, exists
UsageError = TclRuntimeError
class ShellInterpreter() = Interpreter():
#
def ResetVariables(interp):
interp.globals['ps1'] = '$ '
interp.globals['ps2'] = '> '
interp.globals['home'] = mac.getcwd()
#
def DefineCommands(interp):
interp.commands['cd'] = interp.CdCmd
interp.commands['grep'] = interp.GrepCmd
interp.commands['ls'] = interp.LsCmd
interp.commands['mkdir'] = interp.MkdirCmd
interp.commands['mv'] = interp.MvCmd
interp.commands['pg'] = interp.PgCmd
interp.commands['pwd'] = interp.PwdCmd
interp.commands['rm'] = interp.RmCmd
interp.commands['rmdir'] = interp.RmdirCmd
interp.commands['sync'] = interp.SyncCmd
#
def Reset(interp):
interp.ResetVariables()
interp.DefineCommands()
#
def Create(interp):
interp = Interpreter.Create(interp) # initialize base class
interp.Reset()
return interp
#
# Command-implementing functions
#
def CdCmd(interp, argv):
if len(argv) > 2:
raise UsageError, 'usage: cd [dirname]'
if len(argv) = 2:
chdirto(argv[1])
else:
chdirto(interp.globals['home'])
return ''
#
def GrepCmd(interp, argv):
if len(argv) < 3:
raise UsageError, 'usage: grep regexp file ...'
import regexp
try:
prog = regexp.compile(argv[1])
except regexp.error, msg:
raise TclRuntimeError, \
('grep', argv[1], ': bad regexp :', msg)
for file in argv[2:]:
grepfile(prog, file)
return ''
#
def LsCmd(interp, argv):
if len(argv) < 2:
lsdir(':')
else:
for dirname in argv[1:]:
lsdir(dirname)
return ''
#
def MkdirCmd(interp, argv):
if len(argv) < 2:
raise UsageError, 'usage: mkdir name ...'
for name in argv[1:]:
makedir(name)
return ''
#
def MvCmd(interp, argv):
if len(argv) <> 3:
raise UsageError, 'usage: mv src dst'
src, dst = argv[1], argv[2]
if not exists(src):
raise TclRuntimeError, \
('mv', src, dst, ': source does not exist')
if exists(dst):
raise TclRuntimeError, \
('mv', src, dst, ': destination already exists')
try:
mac.rename(src, dst)
except mac.error, msg:
raise TclRuntimeError, \
(src, dst, ': rename failed :', msg)
return ''
#
def PgCmd(interp, argv):
if len(argv) < 2:
raise UsageError, 'usage: page file ...'
for name in argv[1:]:
pagefile(name)
return ''
#
def PwdCmd(interp, argv):
if len(argv) > 1:
raise UsageError, 'usage: pwd'
else:
return mac.getcwd()
#
def RmCmd(interp, argv):
if len(argv) < 2:
raise UsageError, 'usage: rm file ...'
for name in argv[1:]:
remove(name)
return ''
#
def RmdirCmd(interp, argv):
if len(argv) < 2:
raise UsageError, 'usage: rmdir dir ...'
for name in argv[1:]:
rmdir(name)
return ''
#
def SyncCmd(interp, argv):
if len(argv) > 1:
raise UsageError, 'usage: sync'
try:
mac.sync()
except mac.error, msg:
raise TclRuntimeError, ('sync failed :', msg)
#
def chdirto(dirname):
try:
mac.chdir(dirname)
except mac.error, msg:
raise TclRuntimeError, (dirname, ': chdir failed :', msg)
def grepfile(prog, file):
try:
fp = open(file, 'r')
except RuntimeError, msg:
raise TclRuntimeError, (file, ': open failed :', msg)
lineno = 0
while 1:
line = fp.readline()
if not line: break
lineno = lineno+1
if prog.exec(line):
print file+'('+`lineno`+'):', line,
def lsdir(dirname):
if not isdir(dirname):
print dirname, ': no such directory'
return
names = mac.listdir(dirname)
lsfiles(names, dirname)
def lsfiles(names, dirname):
names = names[:] # Make a copy so we can modify it
for i in range(len(names)):
name = names[i]
if isdir(macpath.cat(dirname, name)):
names[i] = ':' + name + ':'
columnize(names)
def makedir(name):
if exists(name):
print name, ': already exists'
return
try:
mac.mkdir(name, 0777)
except mac.error, msg:
raise TclRuntimeError, (name, ': mkdir failed :', msg)
def pagefile(name):
import string
if not isfile(name):
print name, ': no such file'
return
LINES = 24 - 1
# For THINK C 3.0, make the path absolute:
# if not macpath.isabs(name):
# name = macpath.cat(mac.getcwd(), name)
try:
fp = open(name, 'r')
except RuntimeError, msg:
raise TclRuntimeError, (name, ': open failed :', msg)
line = fp.readline()
while line:
for i in range(LINES):
print line,
line = fp.readline()
if not line: break
if line:
try:
more = raw_input('[more]')
except (EOFError, KeyboardInterrupt):
print
break
if string.strip(more)[:1] in ('q', 'Q'):
break
def remove(name):
if not isfile(name):
print name, ': no such file'
return
try:
mac.unlink(name)
except mac.error, msg:
raise TclRuntimeError, (name, ': unlink failed :', msg)
def rmdir(name):
if not isdir(name):
raise TclRuntimeError, (name, ': no such directory')
try:
mac.rmdir(name)
except mac.error, msg:
raise TclRuntimeError, (name, ': rmdir failed :', msg)
def printlist(list):
for word in list:
print word,
def columnize(list):
import string
COLUMNS = 80-1
n = len(list)
colwidth = maxwidth(list)
ncols = (COLUMNS + 1) / (colwidth + 1)
if ncols < 1: ncols = 1
nrows = (n + ncols - 1) / ncols
for irow in range(nrows):
line = ''
for icol in range(ncols):
i = irow + nrows*icol
if 0 <= i < n:
word = list[i]
if i+nrows < n:
word = string.ljust(word, colwidth)
if icol > 0:
word = ' ' + word
line = line + word
print line
def maxwidth(list):
width = 0
for word in list:
if len(word) > width:
width = len(word)
return width
the_interpreter = ShellInterpreter().Create()
def main():
Tcl.MainLoop(the_interpreter)
|
