wasCSharpSQLite – Rev 1
?pathlinks?
/*
* SeekCmd.java --
*
* 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: SeekCmd.java,v 1.3 2003/03/08 03:42:44 mdejong Exp $
*
*/
using System;
using System.IO;
namespace tcl.lang
{
/// <summary> This class implements the built-in "seek" command in Tcl.</summary>
class SeekCmd : Command
{
private static readonly string[] validOrigins = new string[] { "start", "current", "end" };
internal const int OPT_START = 0;
internal const int OPT_CURRENT = 1;
internal const int OPT_END = 2;
/// <summary> This procedure is invoked to process the "seek" Tcl command.
/// See the user documentation for details on what it does.
/// </summary>
public TCL.CompletionCode cmdProc( Interp interp, TclObject[] argv )
{
Channel chan; /* The channel being operated on this method */
int mode; /* Stores the search mode, either beg, cur or end
* of file. See the TclIO class for more info */
if ( argv.Length != 3 && argv.Length != 4 )
{
throw new TclNumArgsException( interp, 1, argv, "channelId offset ?origin?" );
}
// default is the beginning of the file
mode = TclIO.SEEK_SET;
if ( argv.Length == 4 )
{
int index = TclIndex.get( interp, argv[3], validOrigins, "origin", 0 );
switch ( index )
{
case OPT_START:
{
mode = TclIO.SEEK_SET;
break;
}
case OPT_CURRENT:
{
mode = TclIO.SEEK_CUR;
break;
}
case OPT_END:
{
mode = TclIO.SEEK_END;
break;
}
}
}
chan = TclIO.getChannel( interp, argv[1].ToString() );
if ( chan == null )
{
throw new TclException( interp, "can not find channel named \"" + argv[1].ToString() + "\"" );
}
long offset = TclInteger.get( interp, argv[2] );
try
{
chan.seek( interp, offset, mode );
}
catch ( IOException e )
{
// FIXME: Need to figure out Tcl specific error conditions.
// Should we also wrap an IOException in a ReflectException?
throw new TclRuntimeError( "SeekCmd.cmdProc() Error: IOException when seeking " + chan.ChanName + ":" + e.Message );
}
return TCL.CompletionCode.RETURN;
}
}
}