Re: tcl command "type"

suchodj@xxxxxxxxxx wrote:
Hello i am under windows xp family and Tcl/Tk 8.4

in the book "SAMS teach yourself Tcl/Tk" isbn 0-672-31749-4
page 154 listing 9.6 i find the following code

source myfile.tcl
type myfile.tcl

when i code it i obtain the following error

invalid command name "type"

in the man pages "http://www.tcl.tk/man/tcl8.4/TclCmd/"; if cannot find
this command.

my question is:   if after having source any myfile.tcl i want to
print it in the console is there a command to do it ?

No, there is not. There are a myriad of ways to do this, though I'm puzzled why you would need to. You can simply open the file up with your editor of choice.

If you really want the contents dumped to the screen, you can read it in and print it out. Perhaps the SAMS book has you write a procedure to do that, and that is what the "type" command is.

For example, you can enter the following interactively or put it in myfile.tcl:

proc type {filename} {
    if {![file exists $filename]} {
        return -code error "file \"$filename\" doesn't exist"
    }
    if {![file readable $filename]} {
        return -code error "file \"$filename\" isn't readable"
    }
    set f [open $filename r]
    set data [read $f]
    close $f
    return $data
}

If you are running interactively, doing 'type myfile.tcl' at the prompt (without the quotes) will show the contents of the file. If you put the 'type myfile.tcl' command in a script you will need to explicitly print out the output from the type command:

    puts [type myfile.tcl]
    -or-
    set result [type myfile.tcl]
    puts $result

The reason is that when running interactively, tclsh and wish will automatically print out the result of a command when it is run as a convenience.



.

Relevant Pages

  • Re: Changing Uppercase filenames into Lowercase
    ... uppercase filename to a lowercase filename, ... foundfile = f$searchcommand line. ... Based on a command procedure by Willem Grooters which was ...
    (comp.os.vms)
  • Re: Pass command line file name parameter
    ... Then the document class has a copy of the filename, ... No need to access the original command line at all. ... want the user to see all the labels as they would be printed. ... filename or any other variable of your CWinApp class. ...
    (microsoft.public.vc.mfc)
  • Re: CStdioFile::Open gives error "No error occurred"
    ... I would avoid GetErrorMessage and just use FormatMessage on the error code itself, ... presume this is *not* the filename you planned to open, so why are you using m_lpCmdLine? ... there is a serious question here as to whether or not the command line has any ... Use the debugger, it is a very useful tool. ...
    (microsoft.public.vc.mfc)
  • Re: Cannot delete directory
    ... "Glenn" wrote in message ... > in a command window. ... >>window is a "normal" window. ... >>be a valid 8.3 filename - even if it has somehow been ...
    (microsoft.public.win2000.file_system)
  • Re: command line input and output
    ... Alternatively the first argument was a legal filename but it didn't exist, ... If there were no command line ... Microsoft Powerstation 4.0. ... qomputing dot demon dot co dot uk-- ...
    (comp.lang.fortran)