Tk Library Source Code

Here is a package I've been working on that I
would like to offer for Tcllib. It is basically
a Tcl-only clone of the Python fileinput module,
i.e., it contains syntactic sugar for iterating
over the lines of a number of files, with
optional in-place editing and backups. This
allows code like

  # Number lines
  package require fileinput
  ::fileinput::foreach line $argv {
      puts [format "%d %s" [::fileinput::lineno] $line
  }

I have included a manual page for the package.
Please let me know if this is acceptable or if
there is anything I ought to change.

Logged In: YES 
user_id=75003

Comitted attached patch (449531.diff.2) to head.

Logged In: YES 
user_id=75003

In the near future we should also add pure-tcl versions of 
the scan-commands coming with TclX.

File Added - 9797: 449531.diff.2

Logged In: YES 
user_id=75003

Added patch which adds not 'fileinput' but two lower level 
commands ripped from TclX which can be used to 
create 'fileinput'.

Logged In: YES 
user_id=75003

I had a look at some TclX commands now (for_file, 
for_recursive_glob, 'scan*'-commands) and come
to the conclusion that it might be better to take
these and include them in tcllib. Partially they
are already written in Tcl. They just need btter 
names. With them it is possible to write the 
submitted 'fileinput' in maybe 10 lines of tcl.

Logged In: YES 
user_id=75003

Is a testsuite available for this too ?

File Added - 9758: fileinput.tar.gz

Logged In: YES 
user_id=75003

Retrieved the trimmed-down version from Anselm's website 
and attached it here.

Logged In: YES 
user_id=65359

Andreas is right. Here is a trimmed-down version that
uses »continue« in place of »fileinput::nextfile« and
»break« in place of »fileinput::close«.

Feel free to put this into the »fileutil« package if
you think it ought to go there. I think its scope is
somewhat different from the other commands in that package (which attempt to clone Unix commands) but
it's no big thing to me. Remember that you will have
to either change the name of the »foreach« command
or else change the »namespace export« in fileutil.tcl
or chaos will ensue.

File Added - 9416: fileinput.tar.gz

Logged In: YES 
user_id=65359

For some reason SourceForge won't let me attach the
files to this report. I've put them on
http://anselm.our-isp.org/tcltk/fileinput.tar.gz
for the time being. Sorry!