home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 4
/
DATAFILE_PDCD4.iso
/
languages
/
tcl
/
!Tcl
/
library
/
posix
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1994-09-04
|
202 b
|
15 lines
proc cd {name} { system "dir $name" }
proc pwd {} {file full @}
proc directory {name}\
{ regsub {\.[^.]*$} $name "" x
return $x
}
proc leaf {name}\
{ regsub {^.*\.} $name "" x
return $x
}