wasCSharpSQLite – Rev 1
?pathlinks?
/*
* PutsCmd.java
*
* Copyright (c) 1997 Cornell University.
* Copyright (c) 1997 Sun Microsystems, Inc.
*
* See the file "license.terms" for information on usage and
* redistribution of this file, and for a DISCLAIMER OF ALL
* WARRANTIES.
*
* Included in SQLite3 port to C# for use in testharness only; 2008 Noah B Hart
*
* RCS @(#) $Id: PutsCmd.java,v 1.6 2002/01/21 06:34:26 mdejong Exp $
*
*/
using System;
using System.IO;
namespace tcl.lang
{
/// <summary> This class implements the built-in "puts" command in Tcl.</summary>
class PutsCmd : Command
{
/// <summary> Prints the given string to a channel. See Tcl user
/// documentation for details.
///
/// </summary>
/// <param name="interp">the current interpreter.
/// </param>
/// <param name="argv">command arguments.
/// </param>
public TCL.CompletionCode cmdProc( Interp interp, TclObject[] argv )
{
Channel chan; // The channel being operated on this method
string channelId; // String containing the key to chanTable
string arg; // Argv[i] converted to a string
int i = 1; // Index to the next arg in argv
bool newline = true;
// Indicates to print a newline in result
if ( ( argv.Length >= 2 ) && ( argv[1].ToString().Equals( "-nonewline" ) ) )
{
newline = false;
i++;
}
if ( ( i < argv.Length - 3 ) || ( i >= argv.Length ) )
{
throw new TclNumArgsException( interp, 1, argv, "?-nonewline? ?channelId? string" );
}
// The code below provides backwards compatibility with an old
// form of the command that is no longer recommended or documented.
if ( i == ( argv.Length - 3 ) )
{
arg = argv[i + 2].ToString();
if ( !arg.Equals( "nonewline" ) )
{
throw new TclException( interp, "bad argument \"" + arg + "\": should be \"nonewline\"" );
}
newline = false;
}
if ( i == ( argv.Length - 1 ) )
{
channelId = "stdout";
}
else
{
channelId = argv[i].ToString();
i++;
}
if ( i != ( argv.Length - 1 ) )
{
throw new TclNumArgsException( interp, 1, argv, "?-nonewline? ?channelId? string" );
}
chan = TclIO.getChannel( interp, channelId );
if ( chan == null )
{
throw new TclException( interp, "can not find channel named \"" + channelId + "\"" );
}
try
{
if ( newline )
{
chan.write( interp, argv[i] );
chan.write( interp, "\n" );
}
else
{
chan.write( interp, argv[i] );
}
}
catch ( IOException e )
{
throw new TclRuntimeError( "PutsCmd.cmdProc() Error: IOException when putting " + chan.ChanName );
}
return TCL.CompletionCode.RETURN;
}
}
}