Tcl Source Code

2011-07-03  Donal K. Fellows  <[email protected]>

	* doc/FileSystem.3: Corrected statements about ctime field of 'struct
	stat'; that was always the time of the last metadata change, not the
	time of creation.

2011-07-02  Kevin B. Kenny  <[email protected]>

2010-11-04 improved testing of sockets (max)

2010-11-05 (frq)[491789] setargv/unicode cmdline for MSVC (nijtmans)

2010-11-09 (bug fix)[3105999] fixed memleak in OO var resolver (fellows)

2010-11-15 (TIP 378)[3081184] improved TIP 280 performance (kupries)



2010-11-18 (bug fix)[3111059] leak in [namespace delete] w coroutines (sofer)

2010-11-28 [3120139,3105247] Tcl_PrintDouble improvements (kenny)

2010-11-29 (new cmd) [tcl::unsupported::inject] (ferrieux,sofer)

2010-11-30 (enhancement) Restore TclFormatInt for performance (hobbs)

2010-12-09 (new feature) [file] is now a [namespace ensemble] (fellows)



2010-12-12 (platform) OpenBSD build improvements (cassoff)

2010-12-17 (platform) Revisions to support rpm 4.4.2 (cassoff)



2010-12-30 (bug fix)[3142026] GrowEvaluationStack OBOE (harder,sofer)

2011-01-18 (bug fix)[3001438] [info frame -1] crash (mccormack,fellows)

2011-03-01 (performance)[3168398] optimize [interp cancel] (mistachkin)

2011-05-05 (enhancement) dict->list w/o string rep generation (porter)

2011-05-10 (bug fix)[3173086] Crash parsing long lists (rogers,porter)

2011-05-24 (enhancement) msgcat internal improvements (fellows)
=> msgcat 1.4.4

2011-05-24 tzdata updated to Olson's tzdata2011g (iyer)

2011-05-25 (TIP 381) [info object|class call] [self call] [nextto] (fellows)

2011-05-31 (bug fix)[3293874] let lists grow all the way to the limit (porter)

2011-06-02 (bug fix)[3185407] cmd resolution epoch flaw (nadkarni,fellows)

2011-06-13 (bug fix)[3315098] mem leak generating double string rep (neumann)

2011-06-22 (new feature) DEB_HOST_MULTIARCH support (kupries)
=> platform 1.0.10





Many more Tcl built-in command errors now set an -errorcode.

--- Released 8.6b2, XXX XX, 2011 --- See ChangeLog for details ---

'\"
'\" Copyright (c) 2007 Donal K. Fellows
'\"
'\" See the file "license.terms" for information on usage and redistribution
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
'\"
.so man.macros
.TH Tcl_Class 3 0.1 TclOO "TclOO Library Functions"
.BS
'\" Note:  do not modify the .SH NAME line immediately below!
.SH NAME
Tcl_ClassGetMetadata, Tcl_ClassSetMetadata, Tcl_CopyObjectInstance, Tcl_GetClassAsObject, Tcl_GetObjectAsClass, Tcl_GetObjectCommand, Tcl_GetObjectNamespace, Tcl_NewObjectInstance, Tcl_ObjectDeleted, Tcl_ObjectGetMetadata, Tcl_ObjectGetMethodNameMapper, Tcl_ObjectSetMetadata, Tcl_ObjectSetMethodNameMapper \- manipulate objects and classes
.SH SYNOPSIS
.nf
\fB#include <tclOO.h>\fR
.sp
Tcl_Object
\fBTcl_GetObjectFromObj\fR(\fIinterp, objPtr\fR)
.sp

'\"
'\" Copyright (c) 1989-1993 The Regents of the University of California.
'\" Copyright (c) 1994-1996 Sun Microsystems, Inc.
'\"
'\" See the file "license.terms" for information on usage and redistribution
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
'\" 
.so man.macros
.TH Tcl_CreateInterp 3 7.5 Tcl "Tcl Library Procedures"
.BS
.SH NAME
Tcl_CreateInterp, Tcl_DeleteInterp, Tcl_InterpDeleted \- create and delete Tcl command interpreters
.SH SYNOPSIS
.nf
\fB#include <tcl.h>\fR
.sp
Tcl_Interp *
\fBTcl_CreateInterp\fR()
.sp

'\"
'\" Copyright (c) 2005 Donal K. Fellows
'\"
'\" See the file "license.terms" for information on usage and redistribution
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
'\" 
'\" This documents the C API introduced in TIP#235
'\" 
.so man.macros
.TH Tcl_Ensemble 3 8.5 Tcl "Tcl Library Procedures"
.BS
.SH NAME
Tcl_CreateEnsemble, Tcl_FindEnsemble, Tcl_GetEnsembleFlags, Tcl_GetEnsembleMappingDict, Tcl_GetEnsembleNamespace, Tcl_GetEnsembleUnknownHandler, Tcl_GetEnsembleSubcommandList, Tcl_IsEnsemble, Tcl_SetEnsembleFlags, Tcl_SetEnsembleMappingDict, Tcl_SetEnsembleSubcommandList, Tcl_SetEnsembleUnknownHandler \- manipulate ensemble commands
.SH SYNOPSIS
.nf
\fB#include <tcl.h>\fR
.sp
Tcl_Command
\fBTcl_CreateEnsemble\fR(\fIinterp, name, namespacePtr, ensFlags\fR)
.sp

.QW ~
or
.QW ~user
sequences (these have been expanded to their current
representation in the filesystem). The object returned is owned by the
caller, which must store it or call Tcl_DecrRefCount to ensure memory is
freed. This function is of little practical use, and
\fBTcl_FSGetNormalizedPath\fR or \fBTcl_GetNativePath\fR are usually
better functions to use for most purposes.
.PP
\fBTcl_FSGetTranslatedStringPath\fR does the same as
\fBTcl_FSGetTranslatedPath\fR, but returns a character string or NULL.
The string returned is dynamically allocated and owned by the caller,
which must store it or call \fBckfree\fR to ensure it is freed. Again,
\fBTcl_FSGetNormalizedPath\fR or \fBTcl_GetNativePath\fR are usually
better functions to use for most purposes.
.PP
\fBTcl_FSNewNativePath\fR performs something like the reverse of the
usual obj->path->nativerep conversions. If some code retrieves a path
in native form (from, e.g.\ \fBreadlink\fR or a native dialog), and that path
is to be used at the Tcl level, then calling this function is an
efficient way of creating the appropriate path object type.

.PP
It returns one of \fBTCL_PATH_ABSOLUTE\fR, \fBTCL_PATH_RELATIVE\fR, or
\fBTCL_PATH_VOLUME_RELATIVE\fR
.SS "PORTABLE STAT RESULT API"
.PP
\fBTcl_AllocStatBuf\fR allocates a \fITcl_StatBuf\fR on the system heap (which
may be deallocated by being passed to \fBckfree\fR). This allows extensions to
invoke \fBTcl_FSStat\fR and \fBTcl_FSLStat\fR without being dependent on the
size of the buffer. That in turn depends on the flags used to build Tcl.
.PP
.VS 8.6
The portable fields of a \fITcl_StatBuf\fR may be read using the following
functions, each of which returns the value of the corresponding field listed
in the table below. Note that on some platforms there may be other fields in
the \fITcl_StatBuf\fR as it is an alias for a suitable system structure, but

'\"
'\" Copyright (c) 2007 Donal K. Fellows
'\"
'\" See the file "license.terms" for information on usage and redistribution
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
'\"
.so man.macros
.TH Tcl_Method 3 0.1 TclOO "TclOO Library Functions"
.BS
'\" Note:  do not modify the .SH NAME line immediately below!
.SH NAME
Tcl_ClassSetConstructor, Tcl_ClassSetDestructor, Tcl_MethodDeclarerClass, Tcl_MethodDeclarerObject, Tcl_MethodIsPublic, Tcl_MethodIsType, Tcl_MethodName, Tcl_NewInstanceMethod, Tcl_NewMethod, Tcl_ObjectContextIsFiltering, Tcl_ObjectContextMethod, Tcl_ObjectContextObject, Tcl_ObjectContextSkippedArgs \- manipulate methods and method-call contexts
.SH SYNOPSIS
.nf
\fB#include <tclOO.h>\fR
.sp
Tcl_Method
\fBTcl_NewMethod\fR(\fIinterp, class, nameObj, isPublic,
              methodTypePtr, clientData\fR)

invoke a single Tcl command whose words have already been separated
and substituted. The \fIobjc\fR and \fIobjv\fR parameters give the
words of the command to be evaluated when execution reaches the
trampoline.
.PP
\fBTcl_NRCmdSwap\fR allows for trampoline evaluation of a command whose
resolution is already known.  The \fIcmd\fR parameter gives a
\fBTcl_Command\fR object (returned from \fBTcl_CreateObjCmd\fR or
\fBTcl_GetCommandFromObj\fR) identifying the command to be invoked in
the trampoline; this command must match the word in \fIobjv[0]\fR.
The remaining arguments are as for \fBTcl_NREvalObj\fR.
.PP
\fBTcl_NREvalObj\fR, \fBTcl_NREvalObjv\fR and \fBTcl_NRCmdSwap\fR
all accept a \fIflags\fR parameter, which is an OR-ed-together set of
bits to control evaluation. At the present time, the only supported flag

\fBTcl_GetNamespaceUnknownHandler\fR returns the unknown command handler
for the namespace, or NULL if none is set.
.PP
\fBTcl_SetNamespaceUnknownHandler\fR sets the unknown command handler for
the namespace. If \fIhandlerPtr\fR is NULL, then the handler is reset to
its default.
.SH "SEE ALSO"
Tcl_CreateCommand(3), Tcl_ListObjAppendElements(3), Tcl_SetVar(3)
.SH KEYWORDS
namespace, command

similar manner, except that there is a separate event queue for
each thread containing a Tcl interpreter.
Calling \fBTcl_QueueEvent\fR in a multithreaded application adds
an event to the current thread's queue.
To add an event to another thread's queue, use \fBTcl_ThreadQueueEvent\fR.
\fBTcl_ThreadQueueEvent\fR accepts as an argument a Tcl_ThreadId argument,
which uniquely identifies a thread in a Tcl application.  To obtain the
Tcl_ThreadID for the current thread, use the \fBTcl_GetCurrentThread\fR
procedure.  (A thread would then need to pass this identifier to other
threads for those threads to be able to add events to its queue.)
After adding an event to another thread's queue, you then typically
need to call \fBTcl_ThreadAlert\fR to
.QW "wake up"
that thread's notifier to alert it to the new event.
.PP

hash character by OR-ing the flag value returned by \fBTcl_ScanElement\fR
with \fBTCL_DONT_QUOTE_HASH\fR.
.PP
\fBTcl_ScanCountedElement\fR and \fBTcl_ConvertCountedElement\fR are
the same as \fBTcl_ScanElement\fR and \fBTcl_ConvertElement\fR, except
the length of string \fIsrc\fR is specified by the \fIlength\fR
argument, and the string may contain embedded nulls.


.SH KEYWORDS
backslash, convert, element, list, merge, split, strings
.SH "SEE ALSO"
Tcl_GetListFromObj(3)

.QW ~ .
.AP Tcl_DString *bufferPtr in/out
If needed, this dynamic string is used to store the new file name.
At the time of the call it should be uninitialized or free.  The
caller must eventually call \fBTcl_DStringFree\fR to free up
anything stored here.
.BE

.SH DESCRIPTION
.PP
This utility procedure translates a file name to a platform-specific form
which, after being converted to the appropriate encoding, is suitable for
passing to the local operating system.  In particular, it converts
network names into native form and does tilde substitution.  
.PP
However, with the advent of the newer \fBTcl_FSGetNormalizedPath\fR and
\fBTcl_GetNativePath\fR, there is no longer any need to use this
procedure.  In particular, \fBTcl_GetNativePath\fR performs all the
necessary translation and encoding conversion, is virtual-filesystem
aware, and caches the native result for faster repeated calls.
Finally \fBTcl_GetNativePath\fR does not require you to free anything
afterwards.
.PP
If
\fBTcl_TranslateFileName\fR has to do tilde substitution or translate
the name then it uses
the dynamic string at \fI*bufferPtr\fR to hold the new string it
generates.

in the interpreter's result.
When an error occurs, \fBTcl_TranslateFileName\fR
frees the dynamic string itself so that the caller need not call
\fBTcl_DStringFree\fR.
.PP
The caller is responsible for making sure that the interpreter's result
has its default empty value when \fBTcl_TranslateFileName\fR is invoked.

.SH "SEE ALSO"
filename

.SH KEYWORDS
file name, home directory, tilde, translate, user

The command will be executed exactly once, at the given time.
The delayed command is formed by concatenating all the \fIscript\fR
arguments in the same fashion as the \fBconcat\fR command.
The command will be executed at global level (outside the context
of any Tcl procedure).
If an error occurs while executing the delayed command then 
the background error will be reported by the command
registered with \fB interp bgerror\fR.
The \fBafter\fR command returns an identifier that can be used
to cancel the delayed command using \fBafter cancel\fR.
.TP
\fBafter cancel \fIid\fR
.
Cancels the execution of a delayed command that
was previously scheduled.

for the resulting script to be evaluated later as an idle callback.
The script will be run exactly once, the next time the event
loop is entered and there are no events to process.
The command returns an identifier that can be used
to cancel the delayed command using \fBafter cancel\fR.
If an error occurs while executing the script then the
background error will be reported by the command
registered with \fB interp bgerror\fR.
.TP
\fBafter info \fR?\fIid\fR?
.
This command returns information about existing event handlers.
If no \fIid\fR argument is supplied, the command returns
a list of the identifiers for all existing
event handlers created by the \fBafter\fR command for this

.TH binary n 8.0 Tcl "Tcl Built-In Commands"
.BS
'\" Note:  do not modify the .SH NAME line immediately below!
.SH NAME
binary \- Insert and extract fields from binary strings
.SH SYNOPSIS
.VS 8.6
\fBbinary decode \fIformat\fR ?\fI-option value ...\fR? \fIdata\fR
.br
\fBbinary encode \fIformat\fR ?\fI-option value ...\fR? \fIdata\fR
.br
.VE 8.6
\fBbinary format \fIformatString \fR?\fIarg arg ...\fR?
.br
\fBbinary scan \fIstring formatString \fR?\fIvarName varName ...\fR?
.BE
.SH DESCRIPTION

.SH SYNOPSIS
\fBbreak\fR
.BE
.SH DESCRIPTION
.PP
This command is typically invoked inside the body of a looping command
such as \fBfor\fR or \fBforeach\fR or \fBwhile\fR.
It returns a \fBTCL_BREAK\fR code, which causes a break exception
to occur.
The exception causes the current script to be aborted
out to the innermost containing loop command, which then
aborts its execution and returns normally.
Break exceptions are also handled in a few other situations, such
as the \fBcatch\fR command, Tk event bindings, and the outermost
scripts of procedure bodies.

.QW \fBCALL\fR ,
in which case the parameter is a list made of the proc name and arguments at
the corresponding level; or it may be
.QW \fBUP\fR ,
in which case the parameter is
the relative level (as in \fBuplevel\fR) of the previous \fBCALL\fR. The
salient differences wrt \fB\-errorinfo\fR are that:
.IP (1)
it is a machine-readable form that is amenable to processing with
[\fBforeach\fR {tok prm} ...],
.IP (2)
it contains the true (substituted) values passed to the functions, instead of
the static text of the calling sites, and
.IP (3)
it is coarser-grained, with only one element per stack frame (like procs; no
separate elements for \fBforeach\fR constructs for example).
.VE 8.6
.PP
The values of the \fB\-errorinfo\fR and \fB\-errorcode\fR entries of
the most recent error are also available as values of the global
variables \fB::errorInfo\fR and \fB::errorCode\fR respectively.

\fBclock clicks\fR ?\fI\-option\fR?
If no \fI\-option\fR argument is supplied, returns a high-resolution
time value as a system-dependent integer value.  The unit of the value
is system-dependent but should be the highest resolution clock available
on the system such as a CPU cycle counter.  See \fBHIGH RESOLUTION TIMERS\fR for a full description.
.RS
.PP
If the \fI\-option\fR argument is \fI\-milliseconds\fR, then the command
is synonymous with \fBclock milliseconds\fR (see below).  This
usage is obsolete, and \fBclock milliseconds\fR is to be
considered the preferred way of obtaining a count of milliseconds.
.PP
If the \fI\-option\fR argument is \fI\-microseconds\fR, then the command
is synonymous with \fBclock microseconds\fR (see below).  This
usage is obsolete, and \fBclock microseconds\fR is to be
considered the preferred way of obtaining a count of microseconds.
.RE
.TP
\fBclock format\fR \fItimeVal\fR ?\fI\-option value\fR...?
Formats a time that is expressed as an integer number of seconds into a format

.PP
On \fBclock format\fR, the default format is
.PP
.CS
%a %b %d %H:%M:%S %z %Y
.CE
.PP
On \fBclock scan\fR, the lack of a \fI\-format\fR option indicates that a
.QW "free format scan"
is requested; see \fBFREE FORM SCAN\fR for a description of what happens.
.RE
.TP
\fB\-gmt\fR boolean
If \fIboolean\fR is true, specifies that a time specified to \fBclock add\fR,
\fBclock format\fR or \fBclock scan\fR should be processed in

.QW T ,
.QW "\fICCyymmdd hhmmss\fR" ,
or
.QW \fICCyymmdd\fBT\fIhh:mm:ss\fR .
Note that only these three formats are accepted.
The command does \fInot\fR accept the full range of point-in-time
specifications specified in ISO8601.  Other formats can be recognized by
giving an explicit \fI\-format\fR option to the \fBclock scan\fR command.
.TP
\fIrelative time\fR
A specification relative to the current time.  The format is \fBnumber
unit\fR. Acceptable units are \fByear\fR, \fBfortnight\fR, 
\fBmonth\fR, \fBweek\fR, \fBday\fR,
\fBhour\fR, \fBminute\fR (or \fBmin\fR), and \fBsecond\fR (or \fBsec\fR).  The
unit can be specified as a singular or plural, as in \fB3 weeks\fR.

.SH SYNOPSIS
\fBcontinue\fR
.BE
.SH DESCRIPTION
.PP
This command is typically invoked inside the body of a looping command
such as \fBfor\fR or \fBforeach\fR or \fBwhile\fR.
It returns a \fBTCL_CONTINUE\fR code, which causes a continue exception
to occur.
The exception causes the current script to be aborted
out to the innermost containing loop command, which then
continues with the next iteration of the loop.
Catch exceptions are also handled in a few other situations, such
as the \fBcatch\fR command and the outermost scripts of procedure
bodies.
.SH EXAMPLE

for {set i 1} {$i <= 20} {incr i} {
    puts "prime#$i = [\fIeratosthenes\fR]"
}
.CE
.SS "DETAILED SEMANTICS"
.PP
This example demonstrates that coroutines start from the global namespace, and
that\fIcommand\fR resolution happens before the coroutine stack is created.
.PP
.CS
proc report {where level} {
    # Where was the caller called from?
    set ns [uplevel 2 {namespace current}]
    \fByield\fR "made $where $level context=$ns name=[info coroutine]"
}

Historically, this feature had been most useful in conjunction
with the \fBcatch\fR command:
if a caught error cannot be handled successfully, \fIinfo\fR can be used
to return a stack trace reflecting the original point of occurrence
of the error:
.PP
.CS
\fBcatch {...} errMsg
set savedInfo $::errorInfo
\&...
error $errMsg $savedInfo\fR
.CE
.PP
When working with Tcl 8.5 or later, the following code
should be used instead:
.PP
.CS
\fBcatch {...} errMsg options
\&...
return -options $options $errMsg\fR
.CE
.PP
If the \fIcode\fR argument is present, then its value is stored
in the \fB\-errorcode\fR return option.  The \fB\-errorcode\fR
return option is intended to hold a machine-readable description
of the error in cases where such information is available; see
the \fBreturn\fR manual page for information on the proper format

    \fBerror\fR "something is very wrong with addition"
}
.CE
.SH "SEE ALSO"
catch(n), return(n)
.SH KEYWORDS
error, exception

.PP
Additionally, when calling a 16-bit DOS or Windows 3.X application, all path
names must use the short, cryptic, path format (e.g., using
.QW applba~1.def
instead of
.QW applbakery.default ),
which can be obtained with the
.QW "\fBfile attributes \fIfileName \fB\-shortname\fR"
command.
.PP
Two or more forward or backward slashes in a row in a path refer to a
network path.  For example, a simple concatenation of the root directory
\fBc:/\fR with a subdirectory \fB/windows/system\fR will yield
\fBc://windows/system\fR (two slashes together), which refers to the mount
point called \fBsystem\fR on the machine called \fBwindows\fR (and the

common to both Tcl and C, Tcl applies the same meaning and precedence
as the corresponding C operators.
Expressions almost always yield numeric results
(integer or floating-point values).
For example, the expression
.PP
.CS
\fBexpr 8.2 + 6\fR
.CE
.PP
evaluates to 14.2.
Tcl expressions differ from C expressions in the way that
operands are specified.  Also, Tcl expressions support
non-numeric operands and string comparisons, as well as some
additional operators not found in C.

braces or with double quotes), then an operand is left as a string
(and only a limited set of operators may be applied to it).
.PP
Operands may be specified in any of the following ways:
.IP [1]
As a numeric value, either integer or floating-point.
.IP [2]
As a boolean value, using any form understood by \fBstring is boolean\fR.

.IP [3]
As a Tcl variable, using standard \fB$\fR notation.
The variable's value will be used as the operand.
.IP [4]
As a string enclosed in double-quotes.
The expression parser will perform backslash, variable, and
command substitutions on the information between the quotes,

.PP
The \fB&&\fR, \fB||\fR, and \fB?:\fR operators have
.QW "lazy evaluation" ,
just as in C, which means that operands are not evaluated if they are
not needed to determine the outcome.  For example, in the command
.PP
.CS
\fBexpr {$v ? [a] : [b]}\fR
.CE
.PP
only one of
.QW \fB[a]\fR
or
.QW \fB[b]\fR
will actually be evaluated,

.PP
When the expression parser encounters a mathematical function
such as \fBsin($x)\fR, it replaces it with a call to an ordinary
Tcl function in the \fBtcl::mathfunc\fR namespace.  The processing
of an expression such as:
.PP
.CS
\fBexpr {sin($x+$y)}\fR
.CE
.PP
is the same in every way as the processing of:
.PP
.CS
\fBexpr {[tcl::mathfunc::sin [expr {$x+$y}]]}\fR
.CE
.PP
which in turn is the same as the processing of:
.PP
.CS
\fBtcl::mathfunc::sin [expr {$x+$y}]\fR
.CE
.PP
The executor will search for \fBtcl::mathfunc::sin\fR using the usual
rules for resolving functions in namespaces. Either
\fB::tcl::mathfunc::sin\fR or \fB[namespace
current]::tcl::mathfunc::sin\fR will satisfy the request, and others
may as well (depending on the current \fBnamespace path\fR setting).

operand value is generated to compare with the string operand.
Canonical string representation for integer values is a decimal string
format.  Canonical string representation for floating-point values
is that produced by the \fB%g\fR format specifier of Tcl's
\fBformat\fR command.  For example, the commands
.PP
.CS
\fBexpr {"0x03" > "2"}\fR
\fBexpr {"0y" < "0x12"}\fR
.CE
.PP
both return 1.  The first comparison is done using integer
comparison, and the second is done using string comparison after
the second operand is converted to the string \fB18\fR.
Because of Tcl's tendency to treat values as numbers whenever
possible, it is not generally a good idea to use operators like \fB==\fR

This allows the Tcl bytecode compiler to generate the best code.
.PP
As mentioned above, expressions are substituted twice:
once by the Tcl parser and once by the \fBexpr\fR command.
For example, the commands
.PP
.CS
\fBset a 3\fR
\fBset b {$a + 2}\fR
\fBexpr $b*4\fR
.CE
.PP
return 11, not a multiple of 4.
This is because the Tcl parser will first substitute \fB$a + 2\fR for
the variable \fBb\fR,
then the \fBexpr\fR command will evaluate the expression \fB$a + 2*4\fR.
.PP

arithmetic, boolean, compare, expression, fuzzy comparison
.SH COPYRIGHT
.nf
Copyright (c) 1993 The Regents of the University of California.
Copyright (c) 1994-2000 Sun Microsystems Incorporated.
Copyright (c) 2005 by Kevin B. Kenny <[email protected]>. All rights reserved.
.fi

overwritten unless the \fB\-force\fR option is specified (when Tcl will
also attempt to adjust permissions on the destination file or directory
if that is necessary to allow the copy to proceed).  When copying
within a single filesystem, \fIfile copy\fR will copy soft links (i.e.
the links themselves are copied, not the things they point to).  Trying
to overwrite a non-empty directory, overwrite a directory with a file,
or overwrite a file with a directory will all result in errors even if
\fI\-force\fR was specified.  Arguments are processed in the order
specified, halting at the first error, if any.  A \fB\-\|\-\fR marks
the end of switches; the argument following the \fB\-\|\-\fR will be
treated as a \fIsource\fR even if it starts with a \fB\-\fR.
.TP
\fBfile delete \fR?\fB\-force\fR? ?\fB\-\|\-\fR? ?\fIpathname\fR ... ?
.
Removes the file or directory specified by each \fIpathname\fR

only contains one path element, then returns
.QW \fB.\fR .
If \fIname\fR refers to a root directory, then the root directory is
returned.  For example,
.RS
.PP
.CS
\fBfile dirname c:/\fR
.CE
.PP
returns \fBc:/\fR. 
.PP
Note that tilde substitution will only be
performed if it is necessary to complete the command. For example,
.PP
.CS
\fBfile dirname ~/src/foo.c\fR
.CE
.PP
returns \fB~/src\fR, whereas
.PP
.CS
\fBfile dirname ~\fR
.CE
.PP
returns \fB/home\fR (or something similar).
.RE
.TP
\fBfile executable \fIname\fR
.

separator for the current platform.  If a particular \fIname\fR is
relative, then it will be joined to the previous file name argument.
Otherwise, any earlier arguments will be discarded, and joining will
proceed from the current argument.  For example,
.RS
.PP
.CS
\fBfile join a b /foo bar\fR
.CE
.PP
returns \fB/foo/bar\fR.
.PP
Note that any of the names can contain separators, and that the result
is always canonical for the current platform: \fB/\fR for Unix and
Windows.

create a link in a cross-platform way, and does not care what type of
link is created.
.PP
If the user wishes to make a link of a specific type only, (and signal an
error if for some reason that is not possible), then the optional
\fI\-linktype\fR argument should be given.  Accepted values for
\fI\-linktype\fR are
.QW \-symbolic
and
.QW \-hard .
.PP
On Unix, symbolic links can be made to relative paths, and those paths
must be relative to the actual \fIlinkName\fR's location (not to the
cwd), but on all other platforms where relative links are not supported,
target paths will always be converted to absolute, normalized form
before the link is created (and therefore relative paths are interpreted
as relative to the cwd).  Furthermore,

first element of the list will have the same path type as \fIname\fR.
All other elements will be relative.  Path separators will be discarded
unless they are needed to ensure that an element is unambiguously relative.
For example, under Unix
.RS
.PP
.CS
file split /foo/~bar/baz
.CE
.PP
returns
.QW \fB/\0\0foo\0\0./~bar\0\0baz\fR
to ensure that later commands
that use the third component do not attempt to perform tilde
substitution.

    puts "[string length $data] $data"
    if {[eof $chan]} {
        fileevent $chan readable {}
    }
}

fconfigure $chan -blocking 0 -encoding binary
fileevent $chan readable [list GetData $chan]
.CE
.PP
The next example demonstrates use of \fBgets\fR to read line-oriented
data.
.PP
.CS
proc GetData {chan} {
    if {[gets $chan line] >= 0} {
        puts $line
    }
    if {[eof $chan]} {
        close $chan
    }
}

fconfigure $chan -blocking 0 -buffering line -translation crlf
fileevent $chan readable [list GetData $chan]
.CE
.SH CREDITS
.PP
\fBfileevent\fR is based on the \fBaddinput\fR command created
by Mark Diekhans.
.SH "SEE ALSO"
fconfigure(n), gets(n), interp(n), puts(n), read(n), Tcl_StandardChannels(3)
.SH KEYWORDS
asynchronous I/O, blocking, channel, event handler, nonblocking, readable,
script, writable.

qualified, either giving the path relative to the root directory on the
current volume, or relative to the current directory of the specified
volume.  The \fBfile pathtype\fR command can be used to determine the
type of a given path.
.SH "PATH SYNTAX"
.PP
The rules for native names depend on the value reported in the Tcl
array element \fBtcl_platform(platform)\fR:
.TP 10
\fBUnix\fR
On Unix and Apple MacOS X platforms, Tcl uses path names where the
components are separated by slashes.  Path names may be relative or
absolute, and file names may contain any character other than slash.
The file names \fB\&.\fR and \fB\&..\fR are special and refer to the
current directory and the parent of the current directory respectively.

truncated to a 16-bit range before converting.  This option is rarely useful.
If it is \fBl\fR it specifies that the integer value is 
truncated to the same range as that produced by the \fBwide()\fR
function of the \fBexpr\fR command (at least a 64-bit range).
If neither \fBh\fR nor \fBl\fR are present, the integer value is
truncated to the same range as that produced by the \fBint()\fR
function of the \fBexpr\fR command (at least a 32-bit range, but
determined by the value of \fBtcl_platform(wordSize)\fR).

.SS "MANDATORY CONVERSION TYPE"
.PP
The last thing in a conversion specifier is an alphabetic character
that determines what kind of conversion to perform.
The following conversion characters are currently supported:
.TP 10
\fBd\fR

.QW \fI\e*\fR
will match the single character
.QW \fI*\fR
and will not be
interpreted as a wildcard character. One solution to this problem is
to use the Unix style forward slash as a path separator. Windows style
paths can be converted to Unix style paths with the command
.QW "\fBfile join $path\fR"
or
.QW "\fBfile normalize $path\fR" .
.SH EXAMPLES
.PP
Find all the Tcl files in the current directory:
.PP
.CS
\fBglob\fR *.tcl
.CE

'\" Note:  do not modify the .SH NAME line immediately below!
.SH NAME
http \- Client-side implementation of the HTTP/1.1 protocol
.SH SYNOPSIS
\fBpackage require http ?2.7?\fR
.\" See Also -useragent option documentation in body!
.sp
\fB::http::config ?\fI-option value\fR ...?
.sp
\fB::http::geturl \fIurl\fR ?\fI-option value\fR ...?
.sp
\fB::http::formatQuery\fR \fIkey value\fR ?\fIkey value\fR ...?
.sp
\fB::http::reset\fR \fItoken\fR ?\fIwhy\fR?
.sp
\fB::http::wait \fItoken\fR
.sp

\fB::http::register \fIproto port command\fR
.sp
\fB::http::unregister \fIproto\fR
.BE
.SH DESCRIPTION
.PP
The \fBhttp\fR package provides the client side of the HTTP/1.1

protocol.  The package implements the GET, POST, and HEAD operations
of HTTP/1.1.  It allows configuration of a proxy host to get through
firewalls.  The package is compatible with the \fBSafesock\fR security
policy, so it can be used by untrusted applets to do URL fetching from
a restricted set of hosts. This package can be extended to support
additional HTTP transport protocols, such as HTTPS, by providing
a custom \fBsocket\fR command, via \fB::http::register\fR.
.PP

class named \fIclass\fR.
.VE 8.6
.TP
\fBinfo class subclasses\fI class\fR ?\fIpattern\fR?
.VS 8.6
This subcommand returns a list of direct subclasses of class \fIclass\fR. If
the optional \fIpattern\fR argument is present, it constrains the list of
returned classes to those that match it according to the rules of \fBstring
match\fR.
.VE 8.6
.TP
\fBinfo class superclasses\fI class\fR
.VS 8.6
This subcommand returns a list of direct superclasses of class \fIclass\fR in
inheritance precedence order.
.VE 8.6

kernel call) between a slave interpreter and its master.
See \fBALIAS INVOCATION\fR, below, for more details
on how the alias mechanism works.
.PP
A qualified interpreter name is a proper Tcl lists containing a subset of its
ancestors in the interpreter hierarchy, terminated by the string naming the
interpreter in its immediate master. Interpreter names are relative to the
interpreter in which they are used. For example, if \fBa\fR is a slave of

the current interpreter and it has a slave \fBa1\fR, which in turn has a



slave \fBa11\fR, the qualified name of \fBa11\fR in \fBa\fR is the list




\fBa1 a11\fR.
.PP
The \fBinterp\fR command, described below, accepts qualified interpreter
names as arguments; the interpreter in which the command is being evaluated
can always be referred to as \fB{}\fR (the empty list or string). Note that
it is impossible to refer to a master (ancestor) interpreter by name in a
slave interpreter except through aliases. Also, there is no global name by
which one can refer to the first interpreter created in an application.

may be anywhere in the hierarchy of interpreters under the interpreter
invoking the command.
\fISrcPath\fR and \fIsrcCmd\fR identify the source of the alias.
\fISrcPath\fR is a Tcl list whose elements select a particular
interpreter.  For example,
.QW "\fBa b\fR"
identifies an interpreter

\fBb\fR, which is a slave of interpreter \fBa\fR, which is a slave

of the invoking interpreter.  An empty list specifies the interpreter
invoking the command.  \fIsrcCmd\fR gives the name of a new
command, which will be created in the source interpreter.
\fITargetPath\fR and \fItargetCmd\fR specify a target interpreter
and command, and the \fIarg\fR arguments, if any, specify additional
arguments to \fItargetCmd\fR which are prepended to any arguments specified
in the invocation of \fIsrcCmd\fR.
\fITargetCmd\fR may be undefined at the time of this call, or it may
already exist; it is not created by this command.
The alias arranges for the given target command to be invoked

value such as \fB\-safe\fR. The result of the command is the name of the
new interpreter. The name of a slave interpreter must be unique among all
the slaves for its master;  an error occurs if a slave interpreter by the
given name already exists in this master.
The initial recursion limit of the slave interpreter is set to the
current recursion limit of its parent interpreter.
.TP
\fBinterp\fR \fBdebug \fIpath\fR ?\fI\-frame\fR ?\fIbool\fR??
.
Controls whether frame-level stack information is captured in the
slave interpreter identified by \fIpath\fR.  If no arguments are
given, option and current setting are returned.  If \fI\-frame\fR
is given, the debug setting is set to the given boolean if provided
and the current setting is returned.
This only effects the output of \fBinfo frame\fR, in that exact
frame-level information for command invocation at the bytecode level
is only captured with this setting on.
.PP
.RS

For example, with code like
.PP
.CS
\fBproc\fR mycontrol {... script} {
  ...
  \fBuplevel\fR 1 $script
  ...

already trusted.
.TP
\fBinterp\fR \fBrecursionlimit\fR \fIpath\fR ?\fInewlimit\fR?
.
Returns the maximum allowable nesting depth for the interpreter
specified by \fIpath\fR.  If \fInewlimit\fR is specified,
the interpreter recursion limit will be set so that nesting
of more than \fInewlimit\fR calls to \fBTcl_Eval()\fR
and related procedures in that interpreter will return an error.
The \fInewlimit\fR value is also returned.
The \fInewlimit\fR value must be a positive integer between 1 and the
maximum value of a non-long integer on the platform.
.RS
.PP
The command sets the maximum size of the Tcl call stack only. It cannot

unassigned elements is returned.
.SH EXAMPLES
.PP
An illustration of how multiple assignment works, and what happens
when there are either too few or too many elements.
.PP
.CS
lassign {a b c} x y z       ;# Empty return
puts $x                     ;# Prints "a"
puts $y                     ;# Prints "b"
puts $z                     ;# Prints "c"

lassign {d e} x y z         ;# Empty return
puts $x                     ;# Prints "d"
puts $y                     ;# Prints "e"
puts $z                     ;# Prints ""

lassign {f g h i} x y       ;# Returns "h i"
puts $x                     ;# Prints "f"
puts $y                     ;# Prints "g"
.CE
.PP
The \fBlassign\fR command has other uses.  It can be used to create
the analogue of the
.QW shift
command in many shell languages like this:
.PP
.CS
set ::argv [lassign $::argv argumentToReadOff]
.CE
.SH "SEE ALSO"
lindex(n), list(n), lset(n), set(n)
.SH KEYWORDS
assign, element, list, multiple, set, variable
'\"Local Variables:
'\"mode: nroff
'\"End:

the list.  The indices may be presented either consecutively on the
command line, or grouped in a
Tcl list and presented as a single argument.
.PP
If no indices are presented, the command takes the form:
.PP
.CS
lindex list
.CE
.PP
or
.PP
.CS
lindex list {}
.CE
.PP
In this case, the return value of \fBlindex\fR is simply the value of the
\fIlist\fR parameter.
.PP
When presented with a single index, the \fBlindex\fR command
treats \fIlist\fR as a Tcl list and returns the

arithmetic and indices relative to the end of the list.
.PP
If additional \fIindex\fR arguments are supplied, then each argument is
used in turn to select an element from the previous indexing operation,
allowing the script to select elements from sublists.  The command,
.PP
.CS
lindex $a 1 2 3
.CE
.PP
or
.PP
.CS
lindex $a {1 2 3}
.CE
.PP
is synonymous with
.PP
.CS
lindex [lindex [lindex $a 1] 2] 3
.CE
.SH EXAMPLES
.PP
Lists can be indexed into from either end:
.PP
.CS
\fBlindex\fR {a b c} 0

.TP
\fB\-subindices\fR
.
If this option is given, the index result from this command (or every
index result when \fB\-all\fR is also specified) will be a complete
path (suitable for use with \fBlindex\fR or \fBlset\fR) within the
overall list to the term found.  This option has no effect unless the
\fI\-index\fR is also specified, and is just a convenience short-cut.
.SH EXAMPLES
.PP
Basic searching:
.PP
.CS
\fBlsearch\fR {a b c d e} c
      \fI\(-> 2\fR

command line, or grouped in a
Tcl list and presented as a single argument.
Finally, it accepts a new value for an element of \fIvarName\fR.
.PP
If no indices are presented, the command takes the form:
.PP
.CS
lset varName newValue
.CE
.PP
or
.PP
.CS
lset varName {} newValue
.CE
.PP
In this case, \fInewValue\fR replaces the old value of the variable
\fIvarName\fR.
.PP
When presented with a single index, the \fBlset\fR command
treats the content of the \fIvarName\fR variable as a Tcl list.

If additional \fIindex\fR arguments are supplied, then each argument is
used in turn to address an element within a sublist designated
by the previous indexing operation,
allowing the script to alter elements in sublists (or append elements
to sublists).  The command,
.PP
.CS
lset a 1 2 newValue
.CE
.PP
or
.PP
.CS
lset a {1 2} newValue
.CE
.PP
replaces element 2 of sublist 1 with \fInewValue\fR.
.PP
The integer appearing in each \fIindex\fR argument must be greater
than or equal to zero.  The integer appearing in each \fIindex\fR
argument must be less than or equal to the length of the corresponding

.
Return a list of indices into \fIlist\fR in sorted order instead of
the values themselves.
.TP
\fB\-index\0\fIindexList\fR
.
If this option is specified, each of the elements of \fIlist\fR must
itself be a proper Tcl sublist (unless \fB-stride\fR is used).
Instead of sorting based on whole sublists, \fBlsort\fR will extract
the \fIindexList\fR'th element from each sublist (as if the overall
element and the \fIindexList\fR were passed to \fBlindex\fR) and sort
based on the given element.
For example,
.RS
.PP
.CS
lsort -integer -index 1 \e
      {{First 24} {Second 18} {Third 30}}
.CE
.PP
returns \fB{Second 18} {First 24} {Third 30}\fR,
.PP
'\"
'\" This example is from the test suite!
'\"
.CS
lsort -index end-1 \e
        {{a 1 e i} {b 2 3 f g} {c 4 5 6 d h}}
.CE
.PP
returns \fB{c 4 5 6 d h} {a 1 e i} {b 2 3 f g}\fR,
and
.PP
.CS
lsort -index {0 1} {
    {{b i g} 12345}
    {{d e m o} 34512}
    {{c o d e} 54321}
}
.CE
.PP
returns \fB{{d e m o} 34512} {{b i g} 12345} {{c o d e} 54321}\fR

.PP
The list length must be an integer multiple of \fIstrideLength\fR, which
in turn must be at least 2.
.PP
For example,
.PP
.CS
lsort \-stride 2 {carrot 10 apple 50 banana 25}
.CE
.PP
returns
.QW "apple 50 banana 25 carrot 10" ,
and
.PP
.CS
lsort \-stride 2 \-index 1 \-integer {carrot 10 apple 50 banana 25}
.CE
.PP
returns
.QW "carrot 10 banana 25 apple 50" .
.RE
.TP
\fB\-nocase\fR
.
Causes comparisons to be handled in a case-insensitive manner.  Has no
effect if combined with the \fB\-dictionary\fR, \fB\-integer\fR, or 
\fB\-real\fR options.
.TP
\fB\-unique\fR
.
If this option is specified, then only the last set of duplicate
elements found in the list will be retained.  Note that duplicates are
determined relative to the comparison used in the sort.  Thus if 
\fI\-index 0\fR is used, \fB{1 a}\fR and \fB{1 b}\fR would be
considered duplicates and only the second element, \fB{1 b}\fR, would
be retained.
.SH "NOTES"
.PP
The options to \fBlsort\fR only control what sort of comparison is
used, and do not necessarily constrain what the values themselves
actually are.  This distinction is only noticeable when the list to be

\fBfmod \fIx y\fR
.
Returns the floating-point remainder of the division of \fIx\fR by
\fIy\fR.  If \fIy\fR is 0, an error is returned.
.TP
\fBhypot \fIx y\fR
.
Computes the length of the hypotenuse of a right-angled triangle

.QW "\fBsqrt\fR [\fBexpr\fR {\fIx\fB*\fIx\fB+\fIy\fB*\fIy\fR}]".


.TP
\fBint \fIarg\fR
.
The argument may be any numeric value.  The integer part of \fIarg\fR
is determined, and then the low order bits of that integer value up
to the machine word size are returned as an integer value.  For reference,
the number of bytes in the machine word are stored in
\fBtcl_platform(wordSize)\fR.
.TP
\fBisqrt \fIarg\fR
.
Computes the integer part of the square root of \fIarg\fR.  \fIArg\fR must be
a positive value, either an integer or a floating point number.
Unlike \fBsqrt\fR, which is limited to the precision of a floating point
number, \fIisqrt\fR will return a result of arbitrary precision.

Returns the integral modulus of the first argument with respect to the second.
Each \fInumber\fR must have an integral value. Note that Tcl defines this
operation exactly even for negative numbers, so that the following equality
holds true:
.RS
.PP
.CS
(\fIx \fB/ \fIy\fR) \fB* \fIy \fB== \fIx \fB-\fR (\fIx \fB% \fIy\fR)
.CE
.RE
.TP
\fB**\fR ?\fInumber\fR ...?
.
Returns the result of raising each value to the power of the result of
recursively operating on the result of processing the following arguments, so

of the next method in the method chain; if there are no further methods in the
method chain, the result of \fBnext\fR will be an error. The arguments,
\fIarg\fR, to \fBnext\fR are the arguments to pass to the next method in the
chain.
.PP
The \fBnextto\fR command is the same as the \fBnext\fR command, except that it
takes an additional \fIclass\fR argument that identifies a class whose
implementation of the current method chain (see \fBinfo object call\fR) should
be used; the method implementation selected will be the one provided by the
given class, and it must refer to an existing non-filter invocation that lies
further along the chain than the current implementation.
.SH "THE METHOD CHAIN"
.PP
When a method of an object is invoked, things happen in several stages:
.IP [1]

.
Open the file for reading and writing.  If the file does not exist,
create a new empty file.
Set the initial access position  to the end of the file.
.PP
All of the legal \fIaccess\fR values above may have the character
\fBb\fR added as the second or third character in the value to
indicate that the opened channel should be configured with the
\fB\-translation binary\fR option, making the channel suitable for 
reading or writing of binary data.
.PP
In the second form, \fIaccess\fR consists of a list of any of the
following flags, all of which have the standard POSIX meanings.
One of the flags must be either \fBRDONLY\fR, \fBWRONLY\fR or \fBRDWR\fR.
.TP 15
\fBRDONLY\fR

If a new file is created as part of opening it, \fIpermissions\fR
(an integer) is used to set the permissions for the new file in
conjunction with the process's file mode creation mask.
\fIPermissions\fR defaults to 0666.
.SH "COMMAND PIPELINES"
.PP
If the first character of \fIfileName\fR is
.QW |
then the
remaining characters of \fIfileName\fR are treated as a list of arguments
that describe a command pipeline to invoke, in the same style as the
arguments for \fBexec\fR.
In this case, the channel identifier returned by \fBopen\fR may be used
to write to the command's input pipe or read from its output pipe,
depending on the value of \fIaccess\fR.
If write-only access is used (e.g. \fIaccess\fR is \fBw\fR), then

standard output for the pipeline is directed to the current standard
output unless overridden by the command.
If read-only access is used (e.g. \fIaccess\fR is \fBr\fR),

standard input for the pipeline is taken from the current standard
input unless overridden by the command.
The id of the spawned process is accessible through the \fBpid\fR
command, using the channel id returned by \fBopen\fR as argument.
.PP
If the command (or one of the commands) executed in the command
pipeline returns an error (according to the definition in \fBexec\fR),

in the second form both input and output buffers are defined.
.TP
\fB\-lasterror\fR
.
(Windows only). This option is query only.
In case of a serial communication error, \fBread\fR or \fBputs\fR
returns a general Tcl file I/O error.
\fBfconfigure -lasterror\fR can be called to get a list of error details.
See below for an explanation of the various error codes.
.SH "SERIAL PORT SIGNALS"
.PP
RS-232 is the most commonly used standard electrical interface for serial
communications. A negative voltage (-3V..-12V) define a mark (on=1) bit and
a positive voltage (+3..+12V) define a space (off=0) bit (RS-232C).  The
following signals are specified for incoming and outgoing data, status
lines and handshaking. Here we are using the terms \fIworkstation\fR for
your computer and \fImodem\fR for the external device, because some signal
names (DCD, RI) come from modems. Of course your external device may use
these signal lines for other purposes.
.IP \fBTXD(output)\fR
\fBTransmitted Data:\fR Outgoing serial data.
.IP \fBRXD(input)\fR
\fBReceived Data:\fRIncoming serial data.
.IP \fBRTS(output)\fR
\fBRequest To Send:\fR This hardware handshake line informs the modem that
your workstation is ready to receive data. Your workstation may
automatically reset this signal to indicate that the input buffer is full.
.IP \fBCTS(input)\fR
\fBClear To Send:\fR The complement to RTS. Indicates that the modem is
ready to receive data.
.IP \fBDTR(output)\fR
\fBData Terminal Ready:\fR This signal tells the modem that the workstation
is ready to establish a link. DTR is often enabled automatically whenever a
serial port is opened.
.IP \fBDSR(input)\fR
\fBData Set Ready:\fR The complement to DTR. Tells the workstation that the
modem is ready to establish a link.
.IP \fBDCD(input)\fR
\fBData Carrier Detect:\fR This line becomes active when a modem detects a
.QW Carrier
signal.
.IP \fBRI(input)\fR
\fBRing Indicator:\fR Goes active when the modem detects an incoming call.
.IP \fBBREAK\fR
A BREAK condition is not a hardware signal line, but a logical zero on the
TXD or RXD lines for a long period of time, usually 250 to 500
milliseconds.  Normally a receive or transmit data signal stays at the mark
(on=1) voltage until the next character is transferred. A BREAK is sometimes
used to reset the communications line or change the operating mode of
communications hardware.
.SH "ERROR CODES (Windows only)"
.PP
A lot of different errors may occur during serial read operations or during
event polling in background. The external device may have been switched
off, the data lines may be noisy, system buffers may overrun or your mode
settings may be wrong.  That is why a reliable software should always
\fBcatch\fR serial read operations.  In cases of an error Tcl returns a
general file I/O error.  Then \fBfconfigure -lasterror\fR may help to
locate the problem.  The following error codes may be returned.
.TP 10
\fBRXOVER\fR
.
Windows input buffer overrun. The data comes faster than your scripts reads
it or your system is overloaded. Use \fBfconfigure -sysbuffer\fR to avoid a
temporary bottleneck and/or make your script faster.
.TP 10
\fBTXFULL\fR
.
Windows output buffer overrun. Complement to RXOVER. This error should
practically not happen, because Tcl cares about the output buffer status.
.TP 10
\fBOVERRUN\fR
.
UART buffer overrun (hardware) with data lost.
The data comes faster than the system driver receives it.
Check your advanced serial port settings to enable the FIFO (16550) buffer
and/or setup a lower(1) interrupt threshold value.
.TP 10
\fBRXPARITY\fR
.
A parity error has been detected by your UART.
Wrong parity settings with \fBfconfigure -mode\fR or a noisy data line (RXD)
may cause this error.
.TP 10
\fBFRAME\fR
.
A stop-bit error has been detected by your UART.
Wrong mode settings with \fBfconfigure -mode\fR or a noisy data line (RXD)
may cause this error.
.TP 10
\fBBREAK\fR
.
A BREAK condition has been detected by your UART (see above).
.SH "PORTABILITY ISSUES"
.TP

.CE
.SH "SEE ALSO"
file(n), close(n), filename(n), fconfigure(n), gets(n), read(n),
puts(n), exec(n), pid(n), fopen(3)
.SH KEYWORDS
access mode, append, create, file, non-blocking, open, permissions,
pipeline, process, serial

.TH package n 7.5 Tcl "Tcl Built-In Commands"
.BS
'\" Note:  do not modify the .SH NAME line immediately below!
.SH NAME
package \- Facilities for package loading and version control
.SH SYNOPSIS
.nf
\fBpackage forget ?\fIpackage package ...\fR?
\fBpackage ifneeded \fIpackage version\fR ?\fIscript\fR?
\fBpackage names\fR
\fBpackage present \fIpackage \fR?\fIrequirement...\fR?
\fBpackage present \-exact \fIpackage version\fR
\fBpackage provide \fIpackage \fR?\fIversion\fR?
\fBpackage require \fIpackage \fR?\fIrequirement...\fR?
\fBpackage require \-exact \fIpackage version\fR

Typically, only the \fBpackage require\fR and \fBpackage provide\fR
commands are invoked in normal Tcl scripts;  the other commands are used
primarily by system scripts that maintain the package database.
.PP
The behavior of the \fBpackage\fR command is determined by its first argument.
The following forms are permitted:
.TP
\fBpackage forget ?\fIpackage package ...\fR?
.
Removes all information about each specified package from this interpreter,
including information provided by both \fBpackage ifneeded\fR and
\fBpackage provide\fR.
.TP
\fBpackage ifneeded \fIpackage version\fR ?\fIscript\fR?
.

If \fIcommand\fR is specified as an empty string, then the current
\fBpackage unknown\fR script is removed, if there is one.
.TP
\fBpackage vcompare \fIversion1 version2\fR
.
Compares the two version numbers given by \fIversion1\fR and \fIversion2\fR.
Returns -1 if \fIversion1\fR is an earlier version than \fIversion2\fR,
0 if they are equal, and 1 if \fIversion1\fR is later than \fBversion2\fR.
.TP
\fBpackage versions \fIpackage\fR
.
Returns a list of all the version numbers of \fIpackage\fR
for which information has been provided by \fBpackage ifneeded\fR
commands.
.TP

'\"
'\" Copyright (c) 1998-2000 by Scriptics Corporation.
'\" All rights reserved.
'\" 
.so man.macros
.TH pkg::create n 8.3 Tcl "Tcl Built-In Commands"
.BS
'\" Note:  do not modify the .SH NAME line immediately below!
.SH NAME
pkg::create \- Construct an appropriate 'package ifneeded' command for a given package specification
.SH SYNOPSIS
\fB::pkg::create \fI\-name packageName\fR \fI\-version packageVersion\fR ?\fI\-load filespec\fR? ... ?\fI\-source filespec\fR? ...
.BE

.SH DESCRIPTION
.PP
\fB::pkg::create\fR is a utility procedure that is part of the standard Tcl
library.  It is used to create an appropriate \fBpackage ifneeded\fR
command for a given package specification.  It can be used to construct a
\fBpkgIndex.tcl\fR file for use with the \fBpackage\fR mechanism.

.SH OPTIONS
The parameters supported are:
.TP
\fB\-name\fR\0\fIpackageName\fR
This parameter specifies the name of the package.  It is required.
.TP
\fB\-version\fR\0\fIpackageVersion\fR
This parameter specifies the version of the package.  It is required.
.TP
\fB\-load\fR\0\fIfilespec\fR
This parameter specifies a binary library that must be loaded with the
\fBload\fR command.  \fIfilespec\fR is a list with two elements.  The
first element is the name of the file to load.  The second, optional
element is a list of commands supplied by loading that file.  If the
list of procedures is empty or omitted, \fB::pkg::create\fR will
set up the library for direct loading (see \fBpkg_mkIndex\fR).  Any
number of \fB\-load\fR parameters may be specified.
.TP
\fB\-source\fR\0\fIfilespec\fR
This parameter is similar to the \fB\-load\fR parameter, except that it
specifies a Tcl library that must be loaded with the
\fBsource\fR command.  Any number of \fB\-source\fR parameters may be
specified.
.PP
At least one \fB\-load\fR or \fB\-source\fR parameter must be given.
.SH "SEE ALSO"

.TH pkg_mkIndex n 8.3 Tcl "Tcl Built-In Commands"
.BS
'\" Note:  do not modify the .SH NAME line immediately below!
.SH NAME
pkg_mkIndex \- Build an index for automatic loading of packages
.SH SYNOPSIS
.nf
\fBpkg_mkIndex ?\fIoptions...\fR? \fIdir\fR ?\fIpattern pattern ...\fR?
.fi
.BE
.SH DESCRIPTION
.PP
\fBPkg_mkIndex\fR is a utility procedure that is part of the standard
Tcl library.
It is used to create index files that allow packages to be loaded

evaluates all of the \fBpkgIndex.tcl\fR files in the
\fBauto_path\fR.
The \fBpkgIndex.tcl\fR files contain \fBpackage ifneeded\fR
commands for each version of each available package;  these commands
invoke \fBpackage provide\fR commands to announce the
availability of the package, and they setup auto-loader
information to load the files of the package.
If the \fI\-lazy\fR flag was provided when the \fBpkgIndex.tcl\fR
was generated,
a given file of a given version of a given package is not
actually loaded until the first time one of its commands
is invoked.
Thus, after invoking \fBpackage require\fR you may
not see the package's commands in the interpreter, but you will be able
to invoke the commands and they will be auto-loaded.
.SH "DIRECT LOADING"
.PP
Some packages, for instance packages which use namespaces and export
commands or those which require special initialization, might select
that their package files be loaded immediately upon \fBpackage require\fR
instead of delaying the actual loading to the first use of one of the
package's command. This is the default mode when generating the package
index.  It can be overridden by specifying the \fI\-lazy\fR argument.
.SH "COMPLEX CASES"
Most complex cases of dependencies among scripts
and binary files, and packages being split among scripts and
binary files are handled OK.  However, you may have to adjust
the order in which files are processed by \fBpkg_mkIndex\fR.
These issues are described in detail below.
.PP

If you must use \fB\-load\fR,
then you must specify the scripts first; otherwise the package loaded from
the binary file may mask the package defined by the scripts.
.SH "SEE ALSO"
package(n)
.SH KEYWORDS
auto-load, index, package, version

for the channel.
See the \fBfconfigure\fR manual entry for a discussion on ways in
which \fBfconfigure\fR will alter input.
.SH "USE WITH SERIAL PORTS"
'\" Note:  this advice actually applies to many versions of Tcl
.PP
For most applications a channel connected to a serial port should be
configured to be nonblocking: \fBfconfigure \fIchannelId \fB\-blocking
\fI0\fR.  Then \fBread\fR behaves much like described above.  Care
must be taken when using \fBread\fR on blocking serial ports:
.TP
\fBread \fIchannelId numChars\fR 
.
In this form \fBread\fR blocks until \fInumChars\fR have been received
from the serial port.
.TP
\fBread \fIchannelId\fR 
.
In this form \fBread\fR blocks until the reception of the end-of-file
character, see \fBfconfigure -eofchar\fR. If there no end-of-file
character has been configured for the channel, then \fBread\fR will
block forever.
.SH "EXAMPLE"
.PP
This example code reads a file all at once, and splits it into a list,
with each line in the file corresponding to an element in the list:
.PP
.CS
set fl [open /proc/meminfo]
set data [\fBread\fR $fl]
close $fl
set lines [split $data \en]
.CE
.SH "SEE ALSO"
file(n), eof(n), fblocked(n), fconfigure(n), Tcl_StandardChannels(3)
.SH KEYWORDS
blocking, channel, end of line, end of file, nonblocking, read, translation, encoding

.SH SYNOPSIS
\fBcmdPrefix \fIoption\fR ?\fIarg arg ...\fR?
.BE
.SH DESCRIPTION
.PP
The Tcl-level handler for a reflected channel has to be a command with
subcommands (termed an \fIensemble\fR, as it is a command such as that
created by \fBnamespace ensemble create\fR, though the implementation
of handlers for reflected channel \fIis not\fR tied to \fBnamespace
ensemble\fRs in any way; see \fBEXAMPLE\fR below for how to build a
\fBclass\fR that supports the API). Note that \fIcmdPrefix\fR is whatever was
specified in the call to \fBchan create\fR, and may consist of
multiple arguments; this will be expanded to multiple words in place
of the prefix.
.PP
Of all the possible subcommands, the handler \fImust\fR support
\fBinitialize\fR, \fBfinalize\fR, and \fBwatch\fR. Support for the
other subcommands is optional.

data, see \fBSUPPORTED TYPES\fR, below.
.TP
\fBregistry keys \fIkeyName\fR ?\fIpattern\fR?
.
If \fIpattern\fR is not specified, returns a list of names of all the
subkeys of \fIkeyName\fR.  If \fIpattern\fR is specified, only those
names matching \fIpattern\fR are returned.  Matching is determined
using the same rules as for \fBstring\fR \fBmatch\fR.  If the
specified \fIkeyName\fR does not exist, then an error is generated.
.TP
\fBregistry set \fIkeyName\fR ?\fIvalueName data \fR?\fItype\fR??
.
If \fIvalueName\fR is not specified, creates the key \fIkeyName\fR if
it does not already exist.  If \fIvalueName\fR is specified, creates
the key \fIkeyName\fR and value \fIvalueName\fR if necessary.  The

\fBSUPPORTED TYPES\fR, below.
.TP
\fBregistry values \fIkeyName\fR ?\fIpattern\fR?
.
If \fIpattern\fR is not specified, returns a list of names of all the
values of \fIkeyName\fR.  If \fIpattern\fR is specified, only those
names matching \fIpattern\fR are returned.  Matching is determined
using the same rules as for \fBstring\fR \fBmatch\fR.
.SH "SUPPORTED TYPES"
Each value under a key in the registry contains some data of a
particular type in a type-specific representation.  The \fBregistry\fR
command converts between this internal representation and one that can
be manipulated by Tcl scripts.  In most cases, the data is simply
returned as a Tcl string.  The type indicates the intended use for the
data, but does not actually change the representation.  For some

    }
    set options [dict merge {-level 1} $args]
    dict incr options -level
    \fBreturn\fR -options $options $result
}
.CE
.SH "SEE ALSO"
break(n), catch(n), continue(n), dict(n), error(n), proc(n), source(n), tclvars(n)

.SH KEYWORDS
break, catch, continue, error, exception, procedure, result, return
.\" Local Variables:
.\" mode: nroff
.\" End:

optional arguments.
If the \fIslave\fR argument is omitted, a name will be generated.
\fB::safe::interpCreate\fR always returns the interpreter name.
.TP
\fB::safe::interpInit\fR \fIslave\fR ?\fIoptions...\fR?
This command is similar to \fBinterpCreate\fR except it that does not
create the safe interpreter. \fIslave\fR must have been created by some
other means, like \fBinterp create \-safe\fR.
.TP
\fB::safe::interpConfigure\fR \fIslave\fR ?\fIoptions...\fR?
If no \fIoptions\fR are given, returns the settings for all options for the
named safe interpreter as a list of options and their current values
for that \fIslave\fR. 
If a single additional argument is provided,
it will return a list of 2 elements \fIname\fR and \fIvalue\fR where

an \fBauto_reset\fR is automatically evaluated in the safe interpreter
to synchronize its \fBauto_index\fR with the new token list.
.SH "SEE ALSO"
interp(n), library(n), load(n), package(n), source(n), unknown(n)
.SH KEYWORDS
alias, auto\-loading, auto_mkindex, load, master interpreter, safe
interpreter, slave interpreter, source

actually desired; if omitted the result will be the same as if \fBself
object\fR was invoked. The supported subcommands are:
.TP
\fBself call\fR
.
This returns a two-element list describing the method implementations used to
implement the current call chain. The first element is the same as would be
reported by \fBinfo object call\fR for the current method (except that this
also reports useful values from within constructors and destructors, whose
names are reported as \fB<constructor>\fR and \fB<destructor>\fR
respectively), and the second element is an index into the first element's
list that indicates which actual implementation is currently executing (the
first implementation to execute is always at index 0).
.TP
\fBself caller\fR

mode using:
.RS
.PP
.CS
\fBchan configure \fIchan \fB\-blocking 0\fR
.CE
.PP
See the \fBchan\fR \fBconfigure\fR command for more details.

The Tcl event loop should be running while an asynchronous connection
is in progress, because it may have to do several connection attempts
in the background. Runnig the event loop also allows you to set up a
writable channel event on the socket to get notified when the
asyncronous connection has succeeded or failed. See the \fBvwait\fR
and the \fBchan\fR comands for more details on the event loop and

three elements, the address, the host name and the port number for the
socket. If the host name cannot be computed, the second element is
identical to the address, the first element of the list.

For server sockets this option returns a list of a multiple of three
elements each group of which have the same meaning as described
above. The list contains more than one group when the server socket
was created without \fB-myaddr\fR or with the argument to
\fB-myaddr\fR being a domain name that resolves multiple IP addresses
that are local to the invoking host.

.TP
\fB\-peername\fR
.
This option is not supported by server sockets. For client and accepted
sockets, this option returns a list of three elements; these are the

\fBtcltest::removeFile \fIname\fR ?\fIdirectory\fR?
\fBtcltest::viewFile \fIname\fR ?\fIdirectory\fR?
\fBtcltest::cleanupTests \fR?\fIrunningMultipleTests\fR?
\fBtcltest::runAllTests\fR

\fBtcltest::configure\fR
\fBtcltest::configure \fI\-option\fR
\fBtcltest::configure \fI\-option value\fR ?\fI-option value ...\fR?
\fBtcltest::customMatch \fImode command\fR
\fBtcltest::testConstraint \fIconstraint\fR ?\fIvalue\fR?
\fBtcltest::outputChannel \fR?\fIchannelID\fR?
\fBtcltest::errorChannel \fR?\fIchannelID\fR?
\fBtcltest::interpreter \fR?\fIinterp\fR?

\fBtcltest::debug \fR?\fIlevel\fR?

test suites.
.PP
See \fBCREATING TEST SUITES WITH TCLTEST\fR below for an extended example
of how to use the commands of \fBtcltest\fR to produce test suites
for your Tcl-enabled code.
.SH COMMANDS
.TP
\fBtest\fR \fIname description\fR ?\fI-option value ...\fR?
.
Defines and possibly runs a test with the name \fIname\fR and
description \fIdescription\fR.  The name and description of a test
are used in messages reported by \fBtest\fR during the
test, as configured by the options of \fBtcltest\fR.  The
remaining \fIoption value\fR arguments to \fBtest\fR
define the test, including the scripts to run, the conditions

Tcl format, using
.QW /
as the path separator, regardless of platform.
This variable is only used when initializing the \fBauto_path\fR variable.
.TP
\fBenv(TCL_INTERP_DEBUG_FRAME)\fR
.
If existing, it has the same effect as running \fBinterp debug {} -frame 1\fR

as the very first command of each new Tcl interpreter.
.RE
.TP
\fBerrorCode\fR
.
This variable holds the value of the \fB\-errorcode\fR return option
set by the most recent error that occurred in this interpreter.

hold the version number for this version of Tcl in the form \fIx.y\fR.
Changes to \fIx\fR represent major changes with probable
incompatibilities and changes to \fIy\fR represent small enhancements and
bug fixes that retain backward compatibility.
The value of this variable is returned by the \fBinfo tclversion\fR
command.
.SH "OTHER GLOBAL VARIABLES"

The following variables are only guaranteed to exist in \fBtclsh\fR
and \fBwish\fR executables; the Tcl library does not define them
itself but many Tcl environments do.
.TP 6
\fBargc\fR
.
The number of arguments to \fBtclsh\fR or \fBwish\fR.

was invoked.
.TP 6
\fBtcl_interactive\fR
.
Contains 1 if \fBtclsh\fR or \fBwish\fR is running interactively (no
script was specified and standard input is a terminal-like device), 0
otherwise.




































.SH "SEE ALSO"
eval(n), library(n), tclsh(1), tkvars(n), wish(1)
.SH KEYWORDS
arithmetic, bytecode, compiler, error, environment, POSIX, precision,
subprocess, user, variables
'\" Local Variables:
'\" mode: nroff
'\" End:

The following produces an error that is identical to that produced by
\fBexpr\fR when trying to divide a value by zero.
.PP
.CS
\fBthrow\fR {ARITH DIVZERO {divide by zero}} {divide by zero}
.CE
.SH "SEE ALSO"
catch(n), error(n), return(n), try(n)
.SH "KEYWORDS"
error, exception
'\" Local Variables:
'\" mode: nroff
'\" End:

if the interpreter is deleted.
.TP
\fIcmdPrefix \fBinitialize \fIhandle mode\fR
.
This mandatory subcommand is called first, and then never again (for the given
\fIhandle\fR). Its responsibility is to initialize all parts of the
transformation at the Tcl level. The \fImode\fR is a list containing any of
\fBread\fR and \fBwrite\fR.
.RS
.TP
\fBwrite\fR
.
implies that the channel is writable.
.TP
\fBread\fR
.
implies that the channel is readable.
.PP
The return value of the subcommand should be a list containing the names of
all subcommands supported by this handler. Any error thrown by the subcommand
will prevent the creation of the transformation. The thrown error will appear
as error thrown by \fBchan push\fR.
.RE
.SS "READ-RELATED SUBCOMMANDS"
.PP
These subcommands are used for handling transformations applied to readable
channels; though strictly \fBread\fR is optional, it must be supported if any
of the others is or the channel will be made non-readable.
.TP
\fIcmdPrefix \fBdrain \fIhandle\fR
.
This optional subcommand is called whenever data in the transformation input
(i.e. read) buffer has to be forced upward, i.e. towards the user or script.
The result returned by the method is taken as the \fIbinary\fR data to push

.so man.macros
.TH unset n 8.4 Tcl "Tcl Built-In Commands"
.BS
'\" Note:  do not modify the .SH NAME line immediately below!
.SH NAME
unset \- Delete variables
.SH SYNOPSIS
\fBunset \fR?\fI\-nocomplain\fR? ?\fI\-\-\fR? ?\fIname name name ...\fR?
.BE
.SH DESCRIPTION
.PP
This command removes one or more variables.
Each \fIname\fR is a variable name, specified in any of the
ways acceptable to the \fBset\fR command.
If a \fIname\fR refers to an element of an array then that
element is removed without affecting the rest of the array.
If a \fIname\fR consists of an array name with no parenthesized
index, then the entire array is deleted.
The \fBunset\fR command returns an empty string as result.
If \fI\-nocomplain\fR is specified as the first argument, any possible
errors are suppressed.  The option may not be abbreviated, in order to
disambiguate it from possible variable names.  The option \fI\-\-\fR
indicates the end of the options, and should be used if you wish to
remove a variable with the same name as any of the options.
If an error occurs during variable deletion, any variables after the named one
causing the error are not
deleted.  An error can occur when the named variable does not exist, or the
name refers to an array element but the variable is a scalar, or the name
refers to a variable in a non-existent namespace.

.SH DESCRIPTION
.PP
This command arranges for one or more local variables in the current
procedure to refer to variables in an enclosing procedure call or
to global variables.
\fILevel\fR may have any of the forms permitted for the \fBuplevel\fR
command, and may be omitted if the first letter of the first \fIotherVar\fR
is not \fB#\fR or a digit (it defaults to \fB1\fR).
For each \fIotherVar\fR argument, \fBupvar\fR makes the variable
by that name in the procedure frame given by \fIlevel\fR (or at
global level, if \fIlevel\fR is \fB#0\fR) accessible
in the current procedure by the name given in the corresponding
\fImyVar\fR argument.
The variable named by \fIotherVar\fR need not exist at the time of the
call;  it will be created the first time \fImyVar\fR is referenced, just like

	if (parsePtr->numWords > 0) {
	    /*
	     * If tracing, show each line assembled as it happens.
	     */

#ifdef TCL_COMPILE_DEBUG
	    if ((tclTraceCompile >= 2) && (envPtr->procPtr == NULL)) {
		printf("  %4d Assembling: ",
			envPtr->codeNext - envPtr->codeStart);
		TclPrintSource(stdout, parsePtr->commandStart,
			TclMin(instLen, 55));
		printf("\n");
	    }
#endif
	    if (AssembleOneLine(assemEnvPtr) != TCL_OK) {
		if (flags & TCL_EVAL_DIRECT) {

     *
     * data[1] stores a marker for use by tailcalls; it will be set to 1 by
     * command redirectors (imports, alias, ensembles) so that tailcalls
     * finishes the source command and not just the target.
     */

    if (iPtr->evalFlags & TCL_EVAL_REDIRECT) {
	TclNRAddCallback(interp, NRCommand, NULL, INT2PTR(1), objc, objv);
	iPtr->evalFlags &= ~TCL_EVAL_REDIRECT;
    } else {
	TclNRAddCallback(interp, NRCommand, NULL, NULL, INT2PTR(objc), objv);
    }
    cmdPtrPtr = (Command **) &(TOP_CB(interp)->data[0]);

    TclNRSpliceDeferred(interp);

	    "current packets allocated %10d\n"
	    "current bytes allocated   %10lu\n"
	    "maximum packets allocated %10d\n"
	    "maximum bytes allocated   %10lu\n",
	    total_mallocs,
	    total_frees,
	    current_malloc_packets,
	    current_bytes_malloced,
	    maximum_malloc_packets,
	    maximum_bytes_malloced);
    if (flags == 0) {
	fprintf((FILE *)clientData, "%s", buf);
    } else {
	/* Assume objPtr to append to */
	Tcl_AppendToObj((Tcl_Obj *) clientData, buf, -1);
    }
    return 1;

	return TCL_OK;
    }
    if (strcmp(argv[1],"info") == 0) {
	Tcl_SetObjResult(interp, Tcl_ObjPrintf(
		"%-25s %10d\n%-25s %10d\n%-25s %10d\n%-25s %10lu\n%-25s %10d\n%-25s %10lu\n",
		"total mallocs", total_mallocs, "total frees", total_frees,
		"current packets allocated", current_malloc_packets,
		"current bytes allocated", current_bytes_malloced,
		"maximum packets allocated", maximum_malloc_packets,
		"maximum bytes allocated", maximum_bytes_malloced));
	return TCL_OK;
    }
    if (strcmp(argv[1],"init") == 0) {
	if (argc != 3) {
	    goto bad_suboption;
	}
	init_malloced_bodies = (strcmp(argv[2],"on") == 0);

    p += sizeof(ByteCode);
    codePtr->codeStart = p;
    memcpy(p, envPtr->codeStart, (size_t) codeBytes);

    p += TCL_ALIGN(codeBytes);		/* align object array */
    codePtr->objArrayPtr = (Tcl_Obj **) p;
    for (i = 0;  i < numLitObjects;  i++) {











	codePtr->objArrayPtr[i] = envPtr->literalArrayPtr[i].objPtr;

    }

    p += TCL_ALIGN(objArrayBytes);	/* align exception range array */
    if (exceptArrayBytes > 0) {
	codePtr->exceptArrayPtr = (ExceptionRange *) p;
	memcpy(p, envPtr->exceptArrayPtr, (size_t) exceptArrayBytes);
    } else {

    p += auxDataArrayBytes;
#ifndef TCL_COMPILE_DEBUG
    EncodeCmdLocMap(envPtr, codePtr, (unsigned char *) p);
#else
    nextPtr = EncodeCmdLocMap(envPtr, codePtr, (unsigned char *) p);
    if (((size_t)(nextPtr - p)) != cmdLocBytes) {
	Tcl_Panic("TclInitByteCodeObj: encoded cmd location bytes %d != expected size %d", (nextPtr - p), cmdLocBytes);
    }
#endif

    /*
     * Record various compilation-related statistics about the new ByteCode
     * structure. Don't include overhead for statistics-related fields.
     */

void
RecordByteCodeStats(
    ByteCode *codePtr)		/* Points to ByteCode structure with info
				 * to add to accumulated statistics. */
{
    Interp *iPtr = (Interp *) *codePtr->interpHandle;
    register ByteCodeStats *statsPtr = &iPtr->stats;






    statsPtr->numCompilations++;
    statsPtr->totalSrcBytes += (double) codePtr->numSrcBytes;
    statsPtr->totalByteCodeBytes += (double) codePtr->structureSize;
    statsPtr->currentSrcBytes += (double) codePtr->numSrcBytes;
    statsPtr->currentByteCodeBytes += (double) codePtr->structureSize;

#define OBJ_AT_TOS	*tosPtr

#define OBJ_UNDER_TOS	*(tosPtr-1)

#define OBJ_AT_DEPTH(n)	*(tosPtr-(n))

#define CURR_DEPTH	((unsigned long) (tosPtr - initTosPtr))

/*
 * Macros used to trace instruction execution. The macros TRACE,
 * TRACE_WITH_OBJ, and O2S are only used inside TclNRExecuteByteCode. O2S is
 * only used in TRACE* calls to get a string from an object.
 */

    /*
     * Summary statistics, total and current source and ByteCode sizes.
     */

    Tcl_AppendPrintfToObj(objPtr, "\n----------------------------------------------------------------\n");
    Tcl_AppendPrintfToObj(objPtr,
	    "Compilation and execution statistics for interpreter %#lx\n",
	    iPtr);

    Tcl_AppendPrintfToObj(objPtr, "\nNumber ByteCodes executed\t%ld\n",
	    statsPtr->numExecutions);
    Tcl_AppendPrintfToObj(objPtr, "Number ByteCodes compiled\t%ld\n",
	    statsPtr->numCompilations);
    Tcl_AppendPrintfToObj(objPtr, "  Mean executions/compile\t%.1f\n",
	    statsPtr->numExecutions / (float)statsPtr->numCompilations);

	    } else {
		elementStr = TclGetStringFromObj(origObjv[i], &elemLen);
	    }
	    flags = 0;
	    len = TclScanElement(elementStr, elemLen, &flags);

	    if (MAY_QUOTE_WORD && len != elemLen) {
		char *quotedElementStr = ckalloc((unsigned)len);

		len = TclConvertElement(elementStr, elemLen,
			quotedElementStr, flags);
		Tcl_AppendToObj(objPtr, quotedElementStr, len);
		ckfree(quotedElementStr);
	    } else {
		Tcl_AppendToObj(objPtr, elementStr, elemLen);

	     */

	    elementStr = TclGetStringFromObj(objv[i], &elemLen);
	    flags = 0;
	    len = TclScanElement(elementStr, elemLen, &flags);

	    if (MAY_QUOTE_WORD && len != elemLen) {
		char *quotedElementStr = ckalloc((unsigned) len);

		len = TclConvertElement(elementStr, elemLen,
			quotedElementStr, flags);
		Tcl_AppendToObj(objPtr, quotedElementStr, len);
		ckfree(quotedElementStr);
	    } else {
		Tcl_AppendToObj(objPtr, elementStr, elemLen);

    DCM("create", 1,	TclOO_Class_Create),
    DCM("new", 1,	TclOO_Class_New),
    DCM("createWithNamespace", 0, TclOO_Class_CreateNs),
    {NULL, 0, {0, NULL, NULL, NULL, NULL}}
};

static char initScript[] =

    "namespace eval ::oo { variable version " TCLOO_VERSION " };"
    "namespace eval ::oo { variable patchlevel " TCLOO_PATCHLEVEL " };";
/*     "tcl_findLibrary tcloo $oo::version $oo::version" */
/*     " tcloo.tcl OO_LIBRARY oo::library;"; */

MODULE_SCOPE const TclOOStubs tclOOStubs;

	descObjs[2] = miPtr->mPtr->declaringClassPtr
		? Tcl_GetObjectName(interp,
			(Tcl_Object) miPtr->mPtr->declaringClassPtr->thisPtr)
		: objectLiteral;
	descObjs[3] = Tcl_NewStringObj(miPtr->mPtr->typePtr->name, -1);

	objv[i] = Tcl_NewListObj(4, descObjs);
	Tcl_IncrRefCount(objv[i]);
    }

    /*
     * Drop the local references to the literals; if they're actually used,
     * they'll live on the description itself.
     */

    /*
     * This macro declares a variable, so must come here...
     */

    ObjInitDeletionContext(context);

    if (objPtr->refCount < -1) {
	Tcl_Panic("Reference count for %lx was negative", objPtr);
    }

    /*
     * Invalidate the string rep first so we can use the bytes value for our
     * pointer chain, and signal an obj deletion (as opposed to shimmering)
     * with 'length == -1'.
     */

    /*
     * Check to make sure that the Tcl_Obj was allocated by the current
     * thread. Don't do this check when shutting down since thread local
     * storage can be finalized before the last Tcl_Obj is freed.
     */

    if (!TclInExit()) {

	Tcl_HashTable *tablePtr;
	Tcl_HashEntry *hPtr;
	ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);

	tablePtr = tsdPtr->objThreadMap;
	if (!tablePtr) {
	    Tcl_Panic("object table not initialized");
	}
	hPtr = Tcl_FindHashEntry(tablePtr, objPtr);
	if (!hPtr) {
	    Tcl_Panic("%s%s",
		    "Trying to incr ref count of "
		    "Tcl_Obj allocated in another thread");
	}
    }
# endif
#endif
    ++(objPtr)->refCount;
}

/*
 *----------------------------------------------------------------------
 *
 * Tcl_DbDecrRefCount --

    /*
     * Check to make sure that the Tcl_Obj was allocated by the current
     * thread. Don't do this check when shutting down since thread local
     * storage can be finalized before the last Tcl_Obj is freed.
     */

    if (!TclInExit()) {

	Tcl_HashTable *tablePtr;
	Tcl_HashEntry *hPtr;
	ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);

	tablePtr = tsdPtr->objThreadMap;
	if (!tablePtr) {
	    Tcl_Panic("object table not initialized");
	}
	hPtr = Tcl_FindHashEntry(tablePtr, objPtr);
	if (!hPtr) {
	    Tcl_Panic("%s%s",
		    "Trying to decr ref count of "
		    "Tcl_Obj allocated in another thread");
	}

	/*
	 * If the Tcl_Obj is going to be deleted, remove the entry.
	 */

	if ((objPtr->refCount - 1) <= 0) {
	    ObjData *objData = Tcl_GetHashValue(hPtr);

	    if (objData != NULL) {
		ckfree(objData);
	    }

	    Tcl_DeleteHashEntry(hPtr);
	}
    }
# endif
#endif

    if (--(objPtr)->refCount <= 0) {
	TclFreeObj(objPtr);
    }
}

/*
 *----------------------------------------------------------------------

    /*
     * Check to make sure that the Tcl_Obj was allocated by the current
     * thread. Don't do this check when shutting down since thread local
     * storage can be finalized before the last Tcl_Obj is freed.
     */

    if (!TclInExit()) {

	Tcl_HashTable *tablePtr;
	Tcl_HashEntry *hPtr;
	ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
	tablePtr = tsdPtr->objThreadMap;
	if (!tablePtr) {
	    Tcl_Panic("object table not initialized");
	}
	hPtr = Tcl_FindHashEntry(tablePtr, objPtr);
	if (!hPtr) {
	    Tcl_Panic("%s%s",
		    "Trying to check shared status of"
		    "Tcl_Obj allocated in another thread");
	}
    }
# endif
#endif

#ifdef TCL_COMPILE_STATS
    Tcl_MutexLock(&tclObjMutex);
    if ((objPtr)->refCount <= 1) {
	tclObjsShared[1]++;
    } else if ((objPtr)->refCount < TCL_MAX_SHARED_OBJ_STATS) {
	tclObjsShared[(objPtr)->refCount]++;
    } else {
	tclObjsShared[0]++;
    }
    Tcl_MutexUnlock(&tclObjMutex);
#endif

    return ((objPtr)->refCount > 1);
}

/*
 *----------------------------------------------------------------------
 *

				 * dereferencing it will give NULL. */
{
    HandleStruct *handlePtr;

    handlePtr = (HandleStruct *) handle;
#ifdef TCL_MEM_DEBUG
    if (handlePtr->refCount == 0x61616161) {
	Tcl_Panic("using previously disposed TclHandle %x", handlePtr);
    }
    if (handlePtr->ptr2 != handlePtr->ptr) {
	Tcl_Panic("someone has changed the block referenced by the handle %x\nfrom %x to %x",
		handlePtr, handlePtr->ptr2, handlePtr->ptr);
    }
#endif
    handlePtr->ptr = NULL;
    if (handlePtr->refCount == 0) {
	ckfree(handlePtr);
    }

				 * referenced by this handle. */
{
    HandleStruct *handlePtr;

    handlePtr = (HandleStruct *) handle;
#ifdef TCL_MEM_DEBUG
    if (handlePtr->refCount == 0x61616161) {
	Tcl_Panic("using previously disposed TclHandle %x", handlePtr);
    }
    if ((handlePtr->ptr != NULL) && (handlePtr->ptr != handlePtr->ptr2)) {
	Tcl_Panic("someone has changed the block referenced by the handle %x\nfrom %x to %x",
		handlePtr, handlePtr->ptr2, handlePtr->ptr);
    }
#endif
    handlePtr->refCount++;

    return handle;
}

				 * referenced by this handle. */
{
    HandleStruct *handlePtr;

    handlePtr = (HandleStruct *) handle;
#ifdef TCL_MEM_DEBUG
    if (handlePtr->refCount == 0x61616161) {
	Tcl_Panic("using previously disposed TclHandle %x", handlePtr);
    }
    if ((handlePtr->ptr != NULL) && (handlePtr->ptr != handlePtr->ptr2)) {
	Tcl_Panic("someone has changed the block referenced by the handle %x\nfrom %x to %x",
		handlePtr, handlePtr->ptr2, handlePtr->ptr);
    }
#endif
    handlePtr->refCount--;
    if ((handlePtr->refCount == 0) && (handlePtr->ptr == NULL)) {
	ckfree(handlePtr);
    }

		procPtr->firstLocalPtr = NULL;
	    }
	    procPtr->lastLocalPtr = lastPtr;
	    while (clPtr) {
		CompiledLocal *toFree = clPtr;

		clPtr = clPtr->nextPtr;







		ckfree(toFree);
	    }
	    procPtr->numCompiledLocals = procPtr->numArgs;
	}

	TclPushStackFrame(interp, &framePtr, (Tcl_Namespace *) nsPtr,
		/* isProcCallFrame */ 0);

    /* Escape leading hash as needed and requested. */
    if ((*src == '#') && !(flags & TCL_DONT_QUOTE_HASH)) {
	if (conversion == CONVERT_ESCAPE) {
	    p[0] = '\\';
	    p[1] = '#';
	    p += 2;
	    src++;
	    length--;
	} else {
	    conversion = CONVERT_BRACE;
	}
    }

    /* No escape or quoting needed.  Copy the literal string value. */
    if (conversion == CONVERT_NONE) {

    {1206799200 46800 1 ANAST}
    {1224943200 43200 0 ANAT}
    {1238248800 46800 1 ANAST}
    {1256392800 43200 0 ANAT}
    {1269698400 39600 0 ANAMMTT}
    {1269702000 43200 1 ANAST}
    {1288450800 39600 0 ANAT}
    {1301151600 43200 1 ANAST}
    {1319900400 39600 0 ANAT}
    {1332601200 43200 1 ANAST}
    {1351350000 39600 0 ANAT}
    {1364655600 43200 1 ANAST}
    {1382799600 39600 0 ANAT}
    {1396105200 43200 1 ANAST}
    {1414249200 39600 0 ANAT}
    {1427554800 43200 1 ANAST}
    {1445698800 39600 0 ANAT}
    {1459004400 43200 1 ANAST}
    {1477753200 39600 0 ANAT}
    {1490454000 43200 1 ANAST}
    {1509202800 39600 0 ANAT}
    {1521903600 43200 1 ANAST}
    {1540652400 39600 0 ANAT}
    {1553958000 43200 1 ANAST}
    {1572102000 39600 0 ANAT}
    {1585407600 43200 1 ANAST}
    {1603551600 39600 0 ANAT}
    {1616857200 43200 1 ANAST}
    {1635606000 39600 0 ANAT}
    {1648306800 43200 1 ANAST}
    {1667055600 39600 0 ANAT}
    {1679756400 43200 1 ANAST}
    {1698505200 39600 0 ANAT}
    {1711810800 43200 1 ANAST}
    {1729954800 39600 0 ANAT}
    {1743260400 43200 1 ANAST}
    {1761404400 39600 0 ANAT}
    {1774710000 43200 1 ANAST}
    {1792854000 39600 0 ANAT}
    {1806159600 43200 1 ANAST}
    {1824908400 39600 0 ANAT}
    {1837609200 43200 1 ANAST}
    {1856358000 39600 0 ANAT}
    {1869058800 43200 1 ANAST}
    {1887807600 39600 0 ANAT}
    {1901113200 43200 1 ANAST}
    {1919257200 39600 0 ANAT}
    {1932562800 43200 1 ANAST}
    {1950706800 39600 0 ANAT}
    {1964012400 43200 1 ANAST}
    {1982761200 39600 0 ANAT}
    {1995462000 43200 1 ANAST}
    {2014210800 39600 0 ANAT}
    {2026911600 43200 1 ANAST}
    {2045660400 39600 0 ANAT}
    {2058361200 43200 1 ANAST}
    {2077110000 39600 0 ANAT}
    {2090415600 43200 1 ANAST}
    {2108559600 39600 0 ANAT}
    {2121865200 43200 1 ANAST}
    {2140009200 39600 0 ANAT}
    {2153314800 43200 1 ANAST}
    {2172063600 39600 0 ANAT}
    {2184764400 43200 1 ANAST}
    {2203513200 39600 0 ANAT}
    {2216214000 43200 1 ANAST}
    {2234962800 39600 0 ANAT}
    {2248268400 43200 1 ANAST}
    {2266412400 39600 0 ANAT}
    {2279718000 43200 1 ANAST}
    {2297862000 39600 0 ANAT}
    {2311167600 43200 1 ANAST}
    {2329311600 39600 0 ANAT}
    {2342617200 43200 1 ANAST}
    {2361366000 39600 0 ANAT}
    {2374066800 43200 1 ANAST}
    {2392815600 39600 0 ANAT}
    {2405516400 43200 1 ANAST}
    {2424265200 39600 0 ANAT}
    {2437570800 43200 1 ANAST}
    {2455714800 39600 0 ANAT}
    {2469020400 43200 1 ANAST}
    {2487164400 39600 0 ANAT}
    {2500470000 43200 1 ANAST}
    {2519218800 39600 0 ANAT}
    {2531919600 43200 1 ANAST}
    {2550668400 39600 0 ANAT}
    {2563369200 43200 1 ANAST}
    {2582118000 39600 0 ANAT}
    {2595423600 43200 1 ANAST}
    {2613567600 39600 0 ANAT}
    {2626873200 43200 1 ANAST}
    {2645017200 39600 0 ANAT}
    {2658322800 43200 1 ANAST}
    {2676466800 39600 0 ANAT}
    {2689772400 43200 1 ANAST}
    {2708521200 39600 0 ANAT}
    {2721222000 43200 1 ANAST}
    {2739970800 39600 0 ANAT}
    {2752671600 43200 1 ANAST}
    {2771420400 39600 0 ANAT}
    {2784726000 43200 1 ANAST}
    {2802870000 39600 0 ANAT}
    {2816175600 43200 1 ANAST}
    {2834319600 39600 0 ANAT}
    {2847625200 43200 1 ANAST}
    {2866374000 39600 0 ANAT}
    {2879074800 43200 1 ANAST}
    {2897823600 39600 0 ANAT}
    {2910524400 43200 1 ANAST}
    {2929273200 39600 0 ANAT}
    {2941974000 43200 1 ANAST}
    {2960722800 39600 0 ANAT}
    {2974028400 43200 1 ANAST}
    {2992172400 39600 0 ANAT}
    {3005478000 43200 1 ANAST}
    {3023622000 39600 0 ANAT}
    {3036927600 43200 1 ANAST}
    {3055676400 39600 0 ANAT}
    {3068377200 43200 1 ANAST}
    {3087126000 39600 0 ANAT}
    {3099826800 43200 1 ANAST}
    {3118575600 39600 0 ANAT}
    {3131881200 43200 1 ANAST}
    {3150025200 39600 0 ANAT}
    {3163330800 43200 1 ANAST}
    {3181474800 39600 0 ANAT}
    {3194780400 43200 1 ANAST}
    {3212924400 39600 0 ANAT}
    {3226230000 43200 1 ANAST}
    {3244978800 39600 0 ANAT}
    {3257679600 43200 1 ANAST}
    {3276428400 39600 0 ANAT}
    {3289129200 43200 1 ANAST}
    {3307878000 39600 0 ANAT}
    {3321183600 43200 1 ANAST}
    {3339327600 39600 0 ANAT}
    {3352633200 43200 1 ANAST}
    {3370777200 39600 0 ANAT}
    {3384082800 43200 1 ANAST}
    {3402831600 39600 0 ANAT}
    {3415532400 43200 1 ANAST}
    {3434281200 39600 0 ANAT}
    {3446982000 43200 1 ANAST}
    {3465730800 39600 0 ANAT}
    {3479036400 43200 1 ANAST}
    {3497180400 39600 0 ANAT}
    {3510486000 43200 1 ANAST}
    {3528630000 39600 0 ANAT}
    {3541935600 43200 1 ANAST}
    {3560079600 39600 0 ANAT}
    {3573385200 43200 1 ANAST}
    {3592134000 39600 0 ANAT}
    {3604834800 43200 1 ANAST}
    {3623583600 39600 0 ANAT}
    {3636284400 43200 1 ANAST}
    {3655033200 39600 0 ANAT}
    {3668338800 43200 1 ANAST}
    {3686482800 39600 0 ANAT}
    {3699788400 43200 1 ANAST}
    {3717932400 39600 0 ANAT}
    {3731238000 43200 1 ANAST}
    {3749986800 39600 0 ANAT}
    {3762687600 43200 1 ANAST}
    {3781436400 39600 0 ANAT}
    {3794137200 43200 1 ANAST}
    {3812886000 39600 0 ANAT}
    {3825586800 43200 1 ANAST}
    {3844335600 39600 0 ANAT}
    {3857641200 43200 1 ANAST}
    {3875785200 39600 0 ANAT}
    {3889090800 43200 1 ANAST}
    {3907234800 39600 0 ANAT}
    {3920540400 43200 1 ANAST}
    {3939289200 39600 0 ANAT}
    {3951990000 43200 1 ANAST}
    {3970738800 39600 0 ANAT}
    {3983439600 43200 1 ANAST}
    {4002188400 39600 0 ANAT}
    {4015494000 43200 1 ANAST}
    {4033638000 39600 0 ANAT}
    {4046943600 43200 1 ANAST}
    {4065087600 39600 0 ANAT}
    {4078393200 43200 1 ANAST}
    {4096537200 39600 0 ANAT}
}

    {1193508000 28800 0 IRKT}
    {1206813600 32400 1 IRKST}
    {1224957600 28800 0 IRKT}
    {1238263200 32400 1 IRKST}
    {1256407200 28800 0 IRKT}
    {1269712800 32400 1 IRKST}
    {1288461600 28800 0 IRKT}
    {1301162400 32400 1 IRKST}
    {1319911200 28800 0 IRKT}
    {1332612000 32400 1 IRKST}
    {1351360800 28800 0 IRKT}
    {1364666400 32400 1 IRKST}
    {1382810400 28800 0 IRKT}
    {1396116000 32400 1 IRKST}
    {1414260000 28800 0 IRKT}
    {1427565600 32400 1 IRKST}
    {1445709600 28800 0 IRKT}
    {1459015200 32400 1 IRKST}
    {1477764000 28800 0 IRKT}
    {1490464800 32400 1 IRKST}
    {1509213600 28800 0 IRKT}
    {1521914400 32400 1 IRKST}
    {1540663200 28800 0 IRKT}
    {1553968800 32400 1 IRKST}
    {1572112800 28800 0 IRKT}
    {1585418400 32400 1 IRKST}
    {1603562400 28800 0 IRKT}
    {1616868000 32400 1 IRKST}
    {1635616800 28800 0 IRKT}
    {1648317600 32400 1 IRKST}
    {1667066400 28800 0 IRKT}
    {1679767200 32400 1 IRKST}
    {1698516000 28800 0 IRKT}
    {1711821600 32400 1 IRKST}
    {1729965600 28800 0 IRKT}
    {1743271200 32400 1 IRKST}
    {1761415200 28800 0 IRKT}
    {1774720800 32400 1 IRKST}
    {1792864800 28800 0 IRKT}
    {1806170400 32400 1 IRKST}
    {1824919200 28800 0 IRKT}
    {1837620000 32400 1 IRKST}
    {1856368800 28800 0 IRKT}
    {1869069600 32400 1 IRKST}
    {1887818400 28800 0 IRKT}
    {1901124000 32400 1 IRKST}
    {1919268000 28800 0 IRKT}
    {1932573600 32400 1 IRKST}
    {1950717600 28800 0 IRKT}
    {1964023200 32400 1 IRKST}
    {1982772000 28800 0 IRKT}
    {1995472800 32400 1 IRKST}
    {2014221600 28800 0 IRKT}
    {2026922400 32400 1 IRKST}
    {2045671200 28800 0 IRKT}
    {2058372000 32400 1 IRKST}
    {2077120800 28800 0 IRKT}
    {2090426400 32400 1 IRKST}
    {2108570400 28800 0 IRKT}
    {2121876000 32400 1 IRKST}
    {2140020000 28800 0 IRKT}
    {2153325600 32400 1 IRKST}
    {2172074400 28800 0 IRKT}
    {2184775200 32400 1 IRKST}
    {2203524000 28800 0 IRKT}
    {2216224800 32400 1 IRKST}
    {2234973600 28800 0 IRKT}
    {2248279200 32400 1 IRKST}
    {2266423200 28800 0 IRKT}
    {2279728800 32400 1 IRKST}
    {2297872800 28800 0 IRKT}
    {2311178400 32400 1 IRKST}
    {2329322400 28800 0 IRKT}
    {2342628000 32400 1 IRKST}
    {2361376800 28800 0 IRKT}
    {2374077600 32400 1 IRKST}
    {2392826400 28800 0 IRKT}
    {2405527200 32400 1 IRKST}
    {2424276000 28800 0 IRKT}
    {2437581600 32400 1 IRKST}
    {2455725600 28800 0 IRKT}
    {2469031200 32400 1 IRKST}
    {2487175200 28800 0 IRKT}
    {2500480800 32400 1 IRKST}
    {2519229600 28800 0 IRKT}
    {2531930400 32400 1 IRKST}
    {2550679200 28800 0 IRKT}
    {2563380000 32400 1 IRKST}
    {2582128800 28800 0 IRKT}
    {2595434400 32400 1 IRKST}
    {2613578400 28800 0 IRKT}
    {2626884000 32400 1 IRKST}
    {2645028000 28800 0 IRKT}
    {2658333600 32400 1 IRKST}
    {2676477600 28800 0 IRKT}
    {2689783200 32400 1 IRKST}
    {2708532000 28800 0 IRKT}
    {2721232800 32400 1 IRKST}
    {2739981600 28800 0 IRKT}
    {2752682400 32400 1 IRKST}
    {2771431200 28800 0 IRKT}
    {2784736800 32400 1 IRKST}
    {2802880800 28800 0 IRKT}
    {2816186400 32400 1 IRKST}
    {2834330400 28800 0 IRKT}
    {2847636000 32400 1 IRKST}
    {2866384800 28800 0 IRKT}
    {2879085600 32400 1 IRKST}
    {2897834400 28800 0 IRKT}
    {2910535200 32400 1 IRKST}
    {2929284000 28800 0 IRKT}
    {2941984800 32400 1 IRKST}
    {2960733600 28800 0 IRKT}
    {2974039200 32400 1 IRKST}
    {2992183200 28800 0 IRKT}
    {3005488800 32400 1 IRKST}
    {3023632800 28800 0 IRKT}
    {3036938400 32400 1 IRKST}
    {3055687200 28800 0 IRKT}
    {3068388000 32400 1 IRKST}
    {3087136800 28800 0 IRKT}
    {3099837600 32400 1 IRKST}
    {3118586400 28800 0 IRKT}
    {3131892000 32400 1 IRKST}
    {3150036000 28800 0 IRKT}
    {3163341600 32400 1 IRKST}
    {3181485600 28800 0 IRKT}
    {3194791200 32400 1 IRKST}
    {3212935200 28800 0 IRKT}
    {3226240800 32400 1 IRKST}
    {3244989600 28800 0 IRKT}
    {3257690400 32400 1 IRKST}
    {3276439200 28800 0 IRKT}
    {3289140000 32400 1 IRKST}
    {3307888800 28800 0 IRKT}
    {3321194400 32400 1 IRKST}
    {3339338400 28800 0 IRKT}
    {3352644000 32400 1 IRKST}
    {3370788000 28800 0 IRKT}
    {3384093600 32400 1 IRKST}
    {3402842400 28800 0 IRKT}
    {3415543200 32400 1 IRKST}
    {3434292000 28800 0 IRKT}
    {3446992800 32400 1 IRKST}
    {3465741600 28800 0 IRKT}
    {3479047200 32400 1 IRKST}
    {3497191200 28800 0 IRKT}
    {3510496800 32400 1 IRKST}
    {3528640800 28800 0 IRKT}
    {3541946400 32400 1 IRKST}
    {3560090400 28800 0 IRKT}
    {3573396000 32400 1 IRKST}
    {3592144800 28800 0 IRKT}
    {3604845600 32400 1 IRKST}
    {3623594400 28800 0 IRKT}
    {3636295200 32400 1 IRKST}
    {3655044000 28800 0 IRKT}
    {3668349600 32400 1 IRKST}
    {3686493600 28800 0 IRKT}
    {3699799200 32400 1 IRKST}
    {3717943200 28800 0 IRKT}
    {3731248800 32400 1 IRKST}
    {3749997600 28800 0 IRKT}
    {3762698400 32400 1 IRKST}
    {3781447200 28800 0 IRKT}
    {3794148000 32400 1 IRKST}
    {3812896800 28800 0 IRKT}
    {3825597600 32400 1 IRKST}
    {3844346400 28800 0 IRKT}
    {3857652000 32400 1 IRKST}
    {3875796000 28800 0 IRKT}
    {3889101600 32400 1 IRKST}
    {3907245600 28800 0 IRKT}
    {3920551200 32400 1 IRKST}
    {3939300000 28800 0 IRKT}
    {3952000800 32400 1 IRKST}
    {3970749600 28800 0 IRKT}
    {3983450400 32400 1 IRKST}
    {4002199200 28800 0 IRKT}
    {4015504800 32400 1 IRKST}
    {4033648800 28800 0 IRKT}
    {4046954400 32400 1 IRKST}
    {4065098400 28800 0 IRKT}
    {4078404000 32400 1 IRKST}
    {4096548000 28800 0 IRKT}
}

    {1206799200 46800 1 PETST}
    {1224943200 43200 0 PETT}
    {1238248800 46800 1 PETST}
    {1256392800 43200 0 PETT}
    {1269698400 39600 0 PETMMTT}
    {1269702000 43200 1 PETST}
    {1288450800 39600 0 PETT}
    {1301151600 43200 1 PETST}
    {1319900400 39600 0 PETT}
    {1332601200 43200 1 PETST}
    {1351350000 39600 0 PETT}
    {1364655600 43200 1 PETST}
    {1382799600 39600 0 PETT}
    {1396105200 43200 1 PETST}
    {1414249200 39600 0 PETT}
    {1427554800 43200 1 PETST}
    {1445698800 39600 0 PETT}
    {1459004400 43200 1 PETST}
    {1477753200 39600 0 PETT}
    {1490454000 43200 1 PETST}
    {1509202800 39600 0 PETT}
    {1521903600 43200 1 PETST}
    {1540652400 39600 0 PETT}
    {1553958000 43200 1 PETST}
    {1572102000 39600 0 PETT}
    {1585407600 43200 1 PETST}
    {1603551600 39600 0 PETT}
    {1616857200 43200 1 PETST}
    {1635606000 39600 0 PETT}
    {1648306800 43200 1 PETST}
    {1667055600 39600 0 PETT}
    {1679756400 43200 1 PETST}
    {1698505200 39600 0 PETT}
    {1711810800 43200 1 PETST}
    {1729954800 39600 0 PETT}
    {1743260400 43200 1 PETST}
    {1761404400 39600 0 PETT}
    {1774710000 43200 1 PETST}
    {1792854000 39600 0 PETT}
    {1806159600 43200 1 PETST}
    {1824908400 39600 0 PETT}
    {1837609200 43200 1 PETST}
    {1856358000 39600 0 PETT}
    {1869058800 43200 1 PETST}
    {1887807600 39600 0 PETT}
    {1901113200 43200 1 PETST}
    {1919257200 39600 0 PETT}
    {1932562800 43200 1 PETST}
    {1950706800 39600 0 PETT}
    {1964012400 43200 1 PETST}
    {1982761200 39600 0 PETT}
    {1995462000 43200 1 PETST}
    {2014210800 39600 0 PETT}
    {2026911600 43200 1 PETST}
    {2045660400 39600 0 PETT}
    {2058361200 43200 1 PETST}
    {2077110000 39600 0 PETT}
    {2090415600 43200 1 PETST}
    {2108559600 39600 0 PETT}
    {2121865200 43200 1 PETST}
    {2140009200 39600 0 PETT}
    {2153314800 43200 1 PETST}
    {2172063600 39600 0 PETT}
    {2184764400 43200 1 PETST}
    {2203513200 39600 0 PETT}
    {2216214000 43200 1 PETST}
    {2234962800 39600 0 PETT}
    {2248268400 43200 1 PETST}
    {2266412400 39600 0 PETT}
    {2279718000 43200 1 PETST}
    {2297862000 39600 0 PETT}
    {2311167600 43200 1 PETST}
    {2329311600 39600 0 PETT}
    {2342617200 43200 1 PETST}
    {2361366000 39600 0 PETT}
    {2374066800 43200 1 PETST}
    {2392815600 39600 0 PETT}
    {2405516400 43200 1 PETST}
    {2424265200 39600 0 PETT}
    {2437570800 43200 1 PETST}
    {2455714800 39600 0 PETT}
    {2469020400 43200 1 PETST}
    {2487164400 39600 0 PETT}
    {2500470000 43200 1 PETST}
    {2519218800 39600 0 PETT}
    {2531919600 43200 1 PETST}
    {2550668400 39600 0 PETT}
    {2563369200 43200 1 PETST}
    {2582118000 39600 0 PETT}
    {2595423600 43200 1 PETST}
    {2613567600 39600 0 PETT}
    {2626873200 43200 1 PETST}
    {2645017200 39600 0 PETT}
    {2658322800 43200 1 PETST}
    {2676466800 39600 0 PETT}
    {2689772400 43200 1 PETST}
    {2708521200 39600 0 PETT}
    {2721222000 43200 1 PETST}
    {2739970800 39600 0 PETT}
    {2752671600 43200 1 PETST}
    {2771420400 39600 0 PETT}
    {2784726000 43200 1 PETST}
    {2802870000 39600 0 PETT}
    {2816175600 43200 1 PETST}
    {2834319600 39600 0 PETT}
    {2847625200 43200 1 PETST}
    {2866374000 39600 0 PETT}
    {2879074800 43200 1 PETST}
    {2897823600 39600 0 PETT}
    {2910524400 43200 1 PETST}
    {2929273200 39600 0 PETT}
    {2941974000 43200 1 PETST}
    {2960722800 39600 0 PETT}
    {2974028400 43200 1 PETST}
    {2992172400 39600 0 PETT}
    {3005478000 43200 1 PETST}
    {3023622000 39600 0 PETT}
    {3036927600 43200 1 PETST}
    {3055676400 39600 0 PETT}
    {3068377200 43200 1 PETST}
    {3087126000 39600 0 PETT}
    {3099826800 43200 1 PETST}
    {3118575600 39600 0 PETT}
    {3131881200 43200 1 PETST}
    {3150025200 39600 0 PETT}
    {3163330800 43200 1 PETST}
    {3181474800 39600 0 PETT}
    {3194780400 43200 1 PETST}
    {3212924400 39600 0 PETT}
    {3226230000 43200 1 PETST}
    {3244978800 39600 0 PETT}
    {3257679600 43200 1 PETST}
    {3276428400 39600 0 PETT}
    {3289129200 43200 1 PETST}
    {3307878000 39600 0 PETT}
    {3321183600 43200 1 PETST}
    {3339327600 39600 0 PETT}
    {3352633200 43200 1 PETST}
    {3370777200 39600 0 PETT}
    {3384082800 43200 1 PETST}
    {3402831600 39600 0 PETT}
    {3415532400 43200 1 PETST}
    {3434281200 39600 0 PETT}
    {3446982000 43200 1 PETST}
    {3465730800 39600 0 PETT}
    {3479036400 43200 1 PETST}
    {3497180400 39600 0 PETT}
    {3510486000 43200 1 PETST}
    {3528630000 39600 0 PETT}
    {3541935600 43200 1 PETST}
    {3560079600 39600 0 PETT}
    {3573385200 43200 1 PETST}
    {3592134000 39600 0 PETT}
    {3604834800 43200 1 PETST}
    {3623583600 39600 0 PETT}
    {3636284400 43200 1 PETST}
    {3655033200 39600 0 PETT}
    {3668338800 43200 1 PETST}
    {3686482800 39600 0 PETT}
    {3699788400 43200 1 PETST}
    {3717932400 39600 0 PETT}
    {3731238000 43200 1 PETST}
    {3749986800 39600 0 PETT}
    {3762687600 43200 1 PETST}
    {3781436400 39600 0 PETT}
    {3794137200 43200 1 PETST}
    {3812886000 39600 0 PETT}
    {3825586800 43200 1 PETST}
    {3844335600 39600 0 PETT}
    {3857641200 43200 1 PETST}
    {3875785200 39600 0 PETT}
    {3889090800 43200 1 PETST}
    {3907234800 39600 0 PETT}
    {3920540400 43200 1 PETST}
    {3939289200 39600 0 PETT}
    {3951990000 43200 1 PETST}
    {3970738800 39600 0 PETT}
    {3983439600 43200 1 PETST}
    {4002188400 39600 0 PETT}
    {4015494000 43200 1 PETST}
    {4033638000 39600 0 PETT}
    {4046943600 43200 1 PETST}
    {4065087600 39600 0 PETT}
    {4078393200 43200 1 PETST}
    {4096537200 39600 0 PETT}
}

    {1193511600 25200 0 KRAT}
    {1206817200 28800 1 KRAST}
    {1224961200 25200 0 KRAT}
    {1238266800 28800 1 KRAST}
    {1256410800 25200 0 KRAT}
    {1269716400 28800 1 KRAST}
    {1288465200 25200 0 KRAT}
    {1301166000 28800 1 KRAST}
    {1319914800 25200 0 KRAT}
    {1332615600 28800 1 KRAST}
    {1351364400 25200 0 KRAT}
    {1364670000 28800 1 KRAST}
    {1382814000 25200 0 KRAT}
    {1396119600 28800 1 KRAST}
    {1414263600 25200 0 KRAT}
    {1427569200 28800 1 KRAST}
    {1445713200 25200 0 KRAT}
    {1459018800 28800 1 KRAST}
    {1477767600 25200 0 KRAT}
    {1490468400 28800 1 KRAST}
    {1509217200 25200 0 KRAT}
    {1521918000 28800 1 KRAST}
    {1540666800 25200 0 KRAT}
    {1553972400 28800 1 KRAST}
    {1572116400 25200 0 KRAT}
    {1585422000 28800 1 KRAST}
    {1603566000 25200 0 KRAT}
    {1616871600 28800 1 KRAST}
    {1635620400 25200 0 KRAT}
    {1648321200 28800 1 KRAST}
    {1667070000 25200 0 KRAT}
    {1679770800 28800 1 KRAST}
    {1698519600 25200 0 KRAT}
    {1711825200 28800 1 KRAST}
    {1729969200 25200 0 KRAT}
    {1743274800 28800 1 KRAST}
    {1761418800 25200 0 KRAT}
    {1774724400 28800 1 KRAST}
    {1792868400 25200 0 KRAT}
    {1806174000 28800 1 KRAST}
    {1824922800 25200 0 KRAT}
    {1837623600 28800 1 KRAST}
    {1856372400 25200 0 KRAT}
    {1869073200 28800 1 KRAST}
    {1887822000 25200 0 KRAT}
    {1901127600 28800 1 KRAST}
    {1919271600 25200 0 KRAT}
    {1932577200 28800 1 KRAST}
    {1950721200 25200 0 KRAT}
    {1964026800 28800 1 KRAST}
    {1982775600 25200 0 KRAT}
    {1995476400 28800 1 KRAST}
    {2014225200 25200 0 KRAT}
    {2026926000 28800 1 KRAST}
    {2045674800 25200 0 KRAT}
    {2058375600 28800 1 KRAST}
    {2077124400 25200 0 KRAT}
    {2090430000 28800 1 KRAST}
    {2108574000 25200 0 KRAT}
    {2121879600 28800 1 KRAST}
    {2140023600 25200 0 KRAT}
    {2153329200 28800 1 KRAST}
    {2172078000 25200 0 KRAT}
    {2184778800 28800 1 KRAST}
    {2203527600 25200 0 KRAT}
    {2216228400 28800 1 KRAST}
    {2234977200 25200 0 KRAT}
    {2248282800 28800 1 KRAST}
    {2266426800 25200 0 KRAT}
    {2279732400 28800 1 KRAST}
    {2297876400 25200 0 KRAT}
    {2311182000 28800 1 KRAST}
    {2329326000 25200 0 KRAT}
    {2342631600 28800 1 KRAST}
    {2361380400 25200 0 KRAT}
    {2374081200 28800 1 KRAST}
    {2392830000 25200 0 KRAT}
    {2405530800 28800 1 KRAST}
    {2424279600 25200 0 KRAT}
    {2437585200 28800 1 KRAST}
    {2455729200 25200 0 KRAT}
    {2469034800 28800 1 KRAST}
    {2487178800 25200 0 KRAT}
    {2500484400 28800 1 KRAST}
    {2519233200 25200 0 KRAT}
    {2531934000 28800 1 KRAST}
    {2550682800 25200 0 KRAT}
    {2563383600 28800 1 KRAST}
    {2582132400 25200 0 KRAT}
    {2595438000 28800 1 KRAST}
    {2613582000 25200 0 KRAT}
    {2626887600 28800 1 KRAST}
    {2645031600 25200 0 KRAT}
    {2658337200 28800 1 KRAST}
    {2676481200 25200 0 KRAT}
    {2689786800 28800 1 KRAST}
    {2708535600 25200 0 KRAT}
    {2721236400 28800 1 KRAST}
    {2739985200 25200 0 KRAT}
    {2752686000 28800 1 KRAST}
    {2771434800 25200 0 KRAT}
    {2784740400 28800 1 KRAST}
    {2802884400 25200 0 KRAT}
    {2816190000 28800 1 KRAST}
    {2834334000 25200 0 KRAT}
    {2847639600 28800 1 KRAST}
    {2866388400 25200 0 KRAT}
    {2879089200 28800 1 KRAST}
    {2897838000 25200 0 KRAT}
    {2910538800 28800 1 KRAST}
    {2929287600 25200 0 KRAT}
    {2941988400 28800 1 KRAST}
    {2960737200 25200 0 KRAT}
    {2974042800 28800 1 KRAST}
    {2992186800 25200 0 KRAT}
    {3005492400 28800 1 KRAST}
    {3023636400 25200 0 KRAT}
    {3036942000 28800 1 KRAST}
    {3055690800 25200 0 KRAT}
    {3068391600 28800 1 KRAST}
    {3087140400 25200 0 KRAT}
    {3099841200 28800 1 KRAST}
    {3118590000 25200 0 KRAT}
    {3131895600 28800 1 KRAST}
    {3150039600 25200 0 KRAT}
    {3163345200 28800 1 KRAST}
    {3181489200 25200 0 KRAT}
    {3194794800 28800 1 KRAST}
    {3212938800 25200 0 KRAT}
    {3226244400 28800 1 KRAST}
    {3244993200 25200 0 KRAT}
    {3257694000 28800 1 KRAST}
    {3276442800 25200 0 KRAT}
    {3289143600 28800 1 KRAST}
    {3307892400 25200 0 KRAT}
    {3321198000 28800 1 KRAST}
    {3339342000 25200 0 KRAT}
    {3352647600 28800 1 KRAST}
    {3370791600 25200 0 KRAT}
    {3384097200 28800 1 KRAST}
    {3402846000 25200 0 KRAT}
    {3415546800 28800 1 KRAST}
    {3434295600 25200 0 KRAT}
    {3446996400 28800 1 KRAST}
    {3465745200 25200 0 KRAT}
    {3479050800 28800 1 KRAST}
    {3497194800 25200 0 KRAT}
    {3510500400 28800 1 KRAST}
    {3528644400 25200 0 KRAT}
    {3541950000 28800 1 KRAST}
    {3560094000 25200 0 KRAT}
    {3573399600 28800 1 KRAST}
    {3592148400 25200 0 KRAT}
    {3604849200 28800 1 KRAST}
    {3623598000 25200 0 KRAT}
    {3636298800 28800 1 KRAST}
    {3655047600 25200 0 KRAT}
    {3668353200 28800 1 KRAST}
    {3686497200 25200 0 KRAT}
    {3699802800 28800 1 KRAST}
    {3717946800 25200 0 KRAT}
    {3731252400 28800 1 KRAST}
    {3750001200 25200 0 KRAT}
    {3762702000 28800 1 KRAST}
    {3781450800 25200 0 KRAT}
    {3794151600 28800 1 KRAST}
    {3812900400 25200 0 KRAT}
    {3825601200 28800 1 KRAST}
    {3844350000 25200 0 KRAT}
    {3857655600 28800 1 KRAST}
    {3875799600 25200 0 KRAT}
    {3889105200 28800 1 KRAST}
    {3907249200 25200 0 KRAT}
    {3920554800 28800 1 KRAST}
    {3939303600 25200 0 KRAT}
    {3952004400 28800 1 KRAST}
    {3970753200 25200 0 KRAT}
    {3983454000 28800 1 KRAST}
    {4002202800 25200 0 KRAT}
    {4015508400 28800 1 KRAST}
    {4033652400 25200 0 KRAT}
    {4046958000 28800 1 KRAST}
    {4065102000 25200 0 KRAT}
    {4078407600 28800 1 KRAST}
    {4096551600 25200 0 KRAT}
}

    {1193497200 39600 0 MAGT}
    {1206802800 43200 1 MAGST}
    {1224946800 39600 0 MAGT}
    {1238252400 43200 1 MAGST}
    {1256396400 39600 0 MAGT}
    {1269702000 43200 1 MAGST}
    {1288450800 39600 0 MAGT}
    {1301151600 43200 1 MAGST}
    {1319900400 39600 0 MAGT}
    {1332601200 43200 1 MAGST}
    {1351350000 39600 0 MAGT}
    {1364655600 43200 1 MAGST}
    {1382799600 39600 0 MAGT}
    {1396105200 43200 1 MAGST}
    {1414249200 39600 0 MAGT}
    {1427554800 43200 1 MAGST}
    {1445698800 39600 0 MAGT}
    {1459004400 43200 1 MAGST}
    {1477753200 39600 0 MAGT}
    {1490454000 43200 1 MAGST}
    {1509202800 39600 0 MAGT}
    {1521903600 43200 1 MAGST}
    {1540652400 39600 0 MAGT}
    {1553958000 43200 1 MAGST}
    {1572102000 39600 0 MAGT}
    {1585407600 43200 1 MAGST}
    {1603551600 39600 0 MAGT}
    {1616857200 43200 1 MAGST}
    {1635606000 39600 0 MAGT}
    {1648306800 43200 1 MAGST}
    {1667055600 39600 0 MAGT}
    {1679756400 43200 1 MAGST}
    {1698505200 39600 0 MAGT}
    {1711810800 43200 1 MAGST}
    {1729954800 39600 0 MAGT}
    {1743260400 43200 1 MAGST}
    {1761404400 39600 0 MAGT}
    {1774710000 43200 1 MAGST}
    {1792854000 39600 0 MAGT}
    {1806159600 43200 1 MAGST}
    {1824908400 39600 0 MAGT}
    {1837609200 43200 1 MAGST}
    {1856358000 39600 0 MAGT}
    {1869058800 43200 1 MAGST}
    {1887807600 39600 0 MAGT}
    {1901113200 43200 1 MAGST}
    {1919257200 39600 0 MAGT}
    {1932562800 43200 1 MAGST}
    {1950706800 39600 0 MAGT}
    {1964012400 43200 1 MAGST}
    {1982761200 39600 0 MAGT}
    {1995462000 43200 1 MAGST}
    {2014210800 39600 0 MAGT}
    {2026911600 43200 1 MAGST}
    {2045660400 39600 0 MAGT}
    {2058361200 43200 1 MAGST}
    {2077110000 39600 0 MAGT}
    {2090415600 43200 1 MAGST}
    {2108559600 39600 0 MAGT}
    {2121865200 43200 1 MAGST}
    {2140009200 39600 0 MAGT}
    {2153314800 43200 1 MAGST}
    {2172063600 39600 0 MAGT}
    {2184764400 43200 1 MAGST}
    {2203513200 39600 0 MAGT}
    {2216214000 43200 1 MAGST}
    {2234962800 39600 0 MAGT}
    {2248268400 43200 1 MAGST}
    {2266412400 39600 0 MAGT}
    {2279718000 43200 1 MAGST}
    {2297862000 39600 0 MAGT}
    {2311167600 43200 1 MAGST}
    {2329311600 39600 0 MAGT}
    {2342617200 43200 1 MAGST}
    {2361366000 39600 0 MAGT}
    {2374066800 43200 1 MAGST}
    {2392815600 39600 0 MAGT}
    {2405516400 43200 1 MAGST}
    {2424265200 39600 0 MAGT}
    {2437570800 43200 1 MAGST}
    {2455714800 39600 0 MAGT}
    {2469020400 43200 1 MAGST}
    {2487164400 39600 0 MAGT}
    {2500470000 43200 1 MAGST}
    {2519218800 39600 0 MAGT}
    {2531919600 43200 1 MAGST}
    {2550668400 39600 0 MAGT}
    {2563369200 43200 1 MAGST}
    {2582118000 39600 0 MAGT}
    {2595423600 43200 1 MAGST}
    {2613567600 39600 0 MAGT}
    {2626873200 43200 1 MAGST}
    {2645017200 39600 0 MAGT}
    {2658322800 43200 1 MAGST}
    {2676466800 39600 0 MAGT}
    {2689772400 43200 1 MAGST}
    {2708521200 39600 0 MAGT}
    {2721222000 43200 1 MAGST}
    {2739970800 39600 0 MAGT}
    {2752671600 43200 1 MAGST}
    {2771420400 39600 0 MAGT}
    {2784726000 43200 1 MAGST}
    {2802870000 39600 0 MAGT}
    {2816175600 43200 1 MAGST}
    {2834319600 39600 0 MAGT}
    {2847625200 43200 1 MAGST}
    {2866374000 39600 0 MAGT}
    {2879074800 43200 1 MAGST}
    {2897823600 39600 0 MAGT}
    {2910524400 43200 1 MAGST}
    {2929273200 39600 0 MAGT}
    {2941974000 43200 1 MAGST}
    {2960722800 39600 0 MAGT}
    {2974028400 43200 1 MAGST}
    {2992172400 39600 0 MAGT}
    {3005478000 43200 1 MAGST}
    {3023622000 39600 0 MAGT}
    {3036927600 43200 1 MAGST}
    {3055676400 39600 0 MAGT}
    {3068377200 43200 1 MAGST}
    {3087126000 39600 0 MAGT}
    {3099826800 43200 1 MAGST}
    {3118575600 39600 0 MAGT}
    {3131881200 43200 1 MAGST}
    {3150025200 39600 0 MAGT}
    {3163330800 43200 1 MAGST}
    {3181474800 39600 0 MAGT}
    {3194780400 43200 1 MAGST}
    {3212924400 39600 0 MAGT}
    {3226230000 43200 1 MAGST}
    {3244978800 39600 0 MAGT}
    {3257679600 43200 1 MAGST}
    {3276428400 39600 0 MAGT}
    {3289129200 43200 1 MAGST}
    {3307878000 39600 0 MAGT}
    {3321183600 43200 1 MAGST}
    {3339327600 39600 0 MAGT}
    {3352633200 43200 1 MAGST}
    {3370777200 39600 0 MAGT}
    {3384082800 43200 1 MAGST}
    {3402831600 39600 0 MAGT}
    {3415532400 43200 1 MAGST}
    {3434281200 39600 0 MAGT}
    {3446982000 43200 1 MAGST}
    {3465730800 39600 0 MAGT}
    {3479036400 43200 1 MAGST}
    {3497180400 39600 0 MAGT}
    {3510486000 43200 1 MAGST}
    {3528630000 39600 0 MAGT}
    {3541935600 43200 1 MAGST}
    {3560079600 39600 0 MAGT}
    {3573385200 43200 1 MAGST}
    {3592134000 39600 0 MAGT}
    {3604834800 43200 1 MAGST}
    {3623583600 39600 0 MAGT}
    {3636284400 43200 1 MAGST}
    {3655033200 39600 0 MAGT}
    {3668338800 43200 1 MAGST}
    {3686482800 39600 0 MAGT}
    {3699788400 43200 1 MAGST}
    {3717932400 39600 0 MAGT}
    {3731238000 43200 1 MAGST}
    {3749986800 39600 0 MAGT}
    {3762687600 43200 1 MAGST}
    {3781436400 39600 0 MAGT}
    {3794137200 43200 1 MAGST}
    {3812886000 39600 0 MAGT}
    {3825586800 43200 1 MAGST}
    {3844335600 39600 0 MAGT}
    {3857641200 43200 1 MAGST}
    {3875785200 39600 0 MAGT}
    {3889090800 43200 1 MAGST}
    {3907234800 39600 0 MAGT}
    {3920540400 43200 1 MAGST}
    {3939289200 39600 0 MAGT}
    {3951990000 43200 1 MAGST}
    {3970738800 39600 0 MAGT}
    {3983439600 43200 1 MAGST}
    {4002188400 39600 0 MAGT}
    {4015494000 43200 1 MAGST}
    {4033638000 39600 0 MAGT}
    {4046943600 43200 1 MAGST}
    {4065087600 39600 0 MAGT}
    {4078393200 43200 1 MAGST}
    {4096537200 39600 0 MAGT}
}

    {1206817200 28800 1 KRAST}
    {1224961200 25200 0 KRAT}
    {1238266800 28800 1 KRAST}
    {1256410800 25200 0 KRAT}
    {1269716400 21600 0 NOVMMTT}
    {1269720000 25200 1 NOVST}
    {1288468800 21600 0 NOVT}
    {1301169600 25200 1 NOVST}
    {1319918400 21600 0 NOVT}
    {1332619200 25200 1 NOVST}
    {1351368000 21600 0 NOVT}
    {1364673600 25200 1 NOVST}
    {1382817600 21600 0 NOVT}
    {1396123200 25200 1 NOVST}
    {1414267200 21600 0 NOVT}
    {1427572800 25200 1 NOVST}
    {1445716800 21600 0 NOVT}
    {1459022400 25200 1 NOVST}
    {1477771200 21600 0 NOVT}
    {1490472000 25200 1 NOVST}
    {1509220800 21600 0 NOVT}
    {1521921600 25200 1 NOVST}
    {1540670400 21600 0 NOVT}
    {1553976000 25200 1 NOVST}
    {1572120000 21600 0 NOVT}
    {1585425600 25200 1 NOVST}
    {1603569600 21600 0 NOVT}
    {1616875200 25200 1 NOVST}
    {1635624000 21600 0 NOVT}
    {1648324800 25200 1 NOVST}
    {1667073600 21600 0 NOVT}
    {1679774400 25200 1 NOVST}
    {1698523200 21600 0 NOVT}
    {1711828800 25200 1 NOVST}
    {1729972800 21600 0 NOVT}
    {1743278400 25200 1 NOVST}
    {1761422400 21600 0 NOVT}
    {1774728000 25200 1 NOVST}
    {1792872000 21600 0 NOVT}
    {1806177600 25200 1 NOVST}
    {1824926400 21600 0 NOVT}
    {1837627200 25200 1 NOVST}
    {1856376000 21600 0 NOVT}
    {1869076800 25200 1 NOVST}
    {1887825600 21600 0 NOVT}
    {1901131200 25200 1 NOVST}
    {1919275200 21600 0 NOVT}
    {1932580800 25200 1 NOVST}
    {1950724800 21600 0 NOVT}
    {1964030400 25200 1 NOVST}
    {1982779200 21600 0 NOVT}
    {1995480000 25200 1 NOVST}
    {2014228800 21600 0 NOVT}
    {2026929600 25200 1 NOVST}
    {2045678400 21600 0 NOVT}
    {2058379200 25200 1 NOVST}
    {2077128000 21600 0 NOVT}
    {2090433600 25200 1 NOVST}
    {2108577600 21600 0 NOVT}
    {2121883200 25200 1 NOVST}
    {2140027200 21600 0 NOVT}
    {2153332800 25200 1 NOVST}
    {2172081600 21600 0 NOVT}
    {2184782400 25200 1 NOVST}
    {2203531200 21600 0 NOVT}
    {2216232000 25200 1 NOVST}
    {2234980800 21600 0 NOVT}
    {2248286400 25200 1 NOVST}
    {2266430400 21600 0 NOVT}
    {2279736000 25200 1 NOVST}
    {2297880000 21600 0 NOVT}
    {2311185600 25200 1 NOVST}
    {2329329600 21600 0 NOVT}
    {2342635200 25200 1 NOVST}
    {2361384000 21600 0 NOVT}
    {2374084800 25200 1 NOVST}
    {2392833600 21600 0 NOVT}
    {2405534400 25200 1 NOVST}
    {2424283200 21600 0 NOVT}
    {2437588800 25200 1 NOVST}
    {2455732800 21600 0 NOVT}
    {2469038400 25200 1 NOVST}
    {2487182400 21600 0 NOVT}
    {2500488000 25200 1 NOVST}
    {2519236800 21600 0 NOVT}
    {2531937600 25200 1 NOVST}
    {2550686400 21600 0 NOVT}
    {2563387200 25200 1 NOVST}
    {2582136000 21600 0 NOVT}
    {2595441600 25200 1 NOVST}
    {2613585600 21600 0 NOVT}
    {2626891200 25200 1 NOVST}
    {2645035200 21600 0 NOVT}
    {2658340800 25200 1 NOVST}
    {2676484800 21600 0 NOVT}
    {2689790400 25200 1 NOVST}
    {2708539200 21600 0 NOVT}
    {2721240000 25200 1 NOVST}
    {2739988800 21600 0 NOVT}
    {2752689600 25200 1 NOVST}
    {2771438400 21600 0 NOVT}
    {2784744000 25200 1 NOVST}
    {2802888000 21600 0 NOVT}
    {2816193600 25200 1 NOVST}
    {2834337600 21600 0 NOVT}
    {2847643200 25200 1 NOVST}
    {2866392000 21600 0 NOVT}
    {2879092800 25200 1 NOVST}
    {2897841600 21600 0 NOVT}
    {2910542400 25200 1 NOVST}
    {2929291200 21600 0 NOVT}
    {2941992000 25200 1 NOVST}
    {2960740800 21600 0 NOVT}
    {2974046400 25200 1 NOVST}
    {2992190400 21600 0 NOVT}
    {3005496000 25200 1 NOVST}
    {3023640000 21600 0 NOVT}
    {3036945600 25200 1 NOVST}
    {3055694400 21600 0 NOVT}
    {3068395200 25200 1 NOVST}
    {3087144000 21600 0 NOVT}
    {3099844800 25200 1 NOVST}
    {3118593600 21600 0 NOVT}
    {3131899200 25200 1 NOVST}
    {3150043200 21600 0 NOVT}
    {3163348800 25200 1 NOVST}
    {3181492800 21600 0 NOVT}
    {3194798400 25200 1 NOVST}
    {3212942400 21600 0 NOVT}
    {3226248000 25200 1 NOVST}
    {3244996800 21600 0 NOVT}
    {3257697600 25200 1 NOVST}
    {3276446400 21600 0 NOVT}
    {3289147200 25200 1 NOVST}
    {3307896000 21600 0 NOVT}
    {3321201600 25200 1 NOVST}
    {3339345600 21600 0 NOVT}
    {3352651200 25200 1 NOVST}
    {3370795200 21600 0 NOVT}
    {3384100800 25200 1 NOVST}
    {3402849600 21600 0 NOVT}
    {3415550400 25200 1 NOVST}
    {3434299200 21600 0 NOVT}
    {3447000000 25200 1 NOVST}
    {3465748800 21600 0 NOVT}
    {3479054400 25200 1 NOVST}
    {3497198400 21600 0 NOVT}
    {3510504000 25200 1 NOVST}
    {3528648000 21600 0 NOVT}
    {3541953600 25200 1 NOVST}
    {3560097600 21600 0 NOVT}
    {3573403200 25200 1 NOVST}
    {3592152000 21600 0 NOVT}
    {3604852800 25200 1 NOVST}
    {3623601600 21600 0 NOVT}
    {3636302400 25200 1 NOVST}
    {3655051200 21600 0 NOVT}
    {3668356800 25200 1 NOVST}
    {3686500800 21600 0 NOVT}
    {3699806400 25200 1 NOVST}
    {3717950400 21600 0 NOVT}
    {3731256000 25200 1 NOVST}
    {3750004800 21600 0 NOVT}
    {3762705600 25200 1 NOVST}
    {3781454400 21600 0 NOVT}
    {3794155200 25200 1 NOVST}
    {3812904000 21600 0 NOVT}
    {3825604800 25200 1 NOVST}
    {3844353600 21600 0 NOVT}
    {3857659200 25200 1 NOVST}
    {3875803200 21600 0 NOVT}
    {3889108800 25200 1 NOVST}
    {3907252800 21600 0 NOVT}
    {3920558400 25200 1 NOVST}
    {3939307200 21600 0 NOVT}
    {3952008000 25200 1 NOVST}
    {3970756800 21600 0 NOVT}
    {3983457600 25200 1 NOVST}
    {4002206400 21600 0 NOVT}
    {4015512000 25200 1 NOVST}
    {4033656000 21600 0 NOVT}
    {4046961600 25200 1 NOVST}
    {4065105600 21600 0 NOVT}
    {4078411200 25200 1 NOVST}
    {4096555200 21600 0 NOVT}
}

    {1193515200 21600 0 NOVT}
    {1206820800 25200 1 NOVST}
    {1224964800 21600 0 NOVT}
    {1238270400 25200 1 NOVST}
    {1256414400 21600 0 NOVT}
    {1269720000 25200 1 NOVST}
    {1288468800 21600 0 NOVT}
    {1301169600 25200 1 NOVST}
    {1319918400 21600 0 NOVT}
    {1332619200 25200 1 NOVST}
    {1351368000 21600 0 NOVT}
    {1364673600 25200 1 NOVST}
    {1382817600 21600 0 NOVT}
    {1396123200 25200 1 NOVST}
    {1414267200 21600 0 NOVT}
    {1427572800 25200 1 NOVST}
    {1445716800 21600 0 NOVT}
    {1459022400 25200 1 NOVST}
    {1477771200 21600 0 NOVT}
    {1490472000 25200 1 NOVST}
    {1509220800 21600 0 NOVT}
    {1521921600 25200 1 NOVST}
    {1540670400 21600 0 NOVT}
    {1553976000 25200 1 NOVST}
    {1572120000 21600 0 NOVT}
    {1585425600 25200 1 NOVST}
    {1603569600 21600 0 NOVT}
    {1616875200 25200 1 NOVST}
    {1635624000 21600 0 NOVT}
    {1648324800 25200 1 NOVST}
    {1667073600 21600 0 NOVT}
    {1679774400 25200 1 NOVST}
    {1698523200 21600 0 NOVT}
    {1711828800 25200 1 NOVST}
    {1729972800 21600 0 NOVT}
    {1743278400 25200 1 NOVST}
    {1761422400 21600 0 NOVT}
    {1774728000 25200 1 NOVST}
    {1792872000 21600 0 NOVT}
    {1806177600 25200 1 NOVST}
    {1824926400 21600 0 NOVT}
    {1837627200 25200 1 NOVST}
    {1856376000 21600 0 NOVT}
    {1869076800 25200 1 NOVST}
    {1887825600 21600 0 NOVT}
    {1901131200 25200 1 NOVST}
    {1919275200 21600 0 NOVT}
    {1932580800 25200 1 NOVST}
    {1950724800 21600 0 NOVT}
    {1964030400 25200 1 NOVST}
    {1982779200 21600 0 NOVT}
    {1995480000 25200 1 NOVST}
    {2014228800 21600 0 NOVT}
    {2026929600 25200 1 NOVST}
    {2045678400 21600 0 NOVT}
    {2058379200 25200 1 NOVST}
    {2077128000 21600 0 NOVT}
    {2090433600 25200 1 NOVST}
    {2108577600 21600 0 NOVT}
    {2121883200 25200 1 NOVST}
    {2140027200 21600 0 NOVT}
    {2153332800 25200 1 NOVST}
    {2172081600 21600 0 NOVT}
    {2184782400 25200 1 NOVST}
    {2203531200 21600 0 NOVT}
    {2216232000 25200 1 NOVST}
    {2234980800 21600 0 NOVT}
    {2248286400 25200 1 NOVST}
    {2266430400 21600 0 NOVT}
    {2279736000 25200 1 NOVST}
    {2297880000 21600 0 NOVT}
    {2311185600 25200 1 NOVST}
    {2329329600 21600 0 NOVT}
    {2342635200 25200 1 NOVST}
    {2361384000 21600 0 NOVT}
    {2374084800 25200 1 NOVST}
    {2392833600 21600 0 NOVT}
    {2405534400 25200 1 NOVST}
    {2424283200 21600 0 NOVT}
    {2437588800 25200 1 NOVST}
    {2455732800 21600 0 NOVT}
    {2469038400 25200 1 NOVST}
    {2487182400 21600 0 NOVT}
    {2500488000 25200 1 NOVST}
    {2519236800 21600 0 NOVT}
    {2531937600 25200 1 NOVST}
    {2550686400 21600 0 NOVT}
    {2563387200 25200 1 NOVST}
    {2582136000 21600 0 NOVT}
    {2595441600 25200 1 NOVST}
    {2613585600 21600 0 NOVT}
    {2626891200 25200 1 NOVST}
    {2645035200 21600 0 NOVT}
    {2658340800 25200 1 NOVST}
    {2676484800 21600 0 NOVT}
    {2689790400 25200 1 NOVST}
    {2708539200 21600 0 NOVT}
    {2721240000 25200 1 NOVST}
    {2739988800 21600 0 NOVT}
    {2752689600 25200 1 NOVST}
    {2771438400 21600 0 NOVT}
    {2784744000 25200 1 NOVST}
    {2802888000 21600 0 NOVT}
    {2816193600 25200 1 NOVST}
    {2834337600 21600 0 NOVT}
    {2847643200 25200 1 NOVST}
    {2866392000 21600 0 NOVT}
    {2879092800 25200 1 NOVST}
    {2897841600 21600 0 NOVT}
    {2910542400 25200 1 NOVST}
    {2929291200 21600 0 NOVT}
    {2941992000 25200 1 NOVST}
    {2960740800 21600 0 NOVT}
    {2974046400 25200 1 NOVST}
    {2992190400 21600 0 NOVT}
    {3005496000 25200 1 NOVST}
    {3023640000 21600 0 NOVT}
    {3036945600 25200 1 NOVST}
    {3055694400 21600 0 NOVT}
    {3068395200 25200 1 NOVST}
    {3087144000 21600 0 NOVT}
    {3099844800 25200 1 NOVST}
    {3118593600 21600 0 NOVT}
    {3131899200 25200 1 NOVST}
    {3150043200 21600 0 NOVT}
    {3163348800 25200 1 NOVST}
    {3181492800 21600 0 NOVT}
    {3194798400 25200 1 NOVST}
    {3212942400 21600 0 NOVT}
    {3226248000 25200 1 NOVST}
    {3244996800 21600 0 NOVT}
    {3257697600 25200 1 NOVST}
    {3276446400 21600 0 NOVT}
    {3289147200 25200 1 NOVST}
    {3307896000 21600 0 NOVT}
    {3321201600 25200 1 NOVST}
    {3339345600 21600 0 NOVT}
    {3352651200 25200 1 NOVST}
    {3370795200 21600 0 NOVT}
    {3384100800 25200 1 NOVST}
    {3402849600 21600 0 NOVT}
    {3415550400 25200 1 NOVST}
    {3434299200 21600 0 NOVT}
    {3447000000 25200 1 NOVST}
    {3465748800 21600 0 NOVT}
    {3479054400 25200 1 NOVST}
    {3497198400 21600 0 NOVT}
    {3510504000 25200 1 NOVST}
    {3528648000 21600 0 NOVT}
    {3541953600 25200 1 NOVST}
    {3560097600 21600 0 NOVT}
    {3573403200 25200 1 NOVST}
    {3592152000 21600 0 NOVT}
    {3604852800 25200 1 NOVST}
    {3623601600 21600 0 NOVT}
    {3636302400 25200 1 NOVST}
    {3655051200 21600 0 NOVT}
    {3668356800 25200 1 NOVST}
    {3686500800 21600 0 NOVT}
    {3699806400 25200 1 NOVST}
    {3717950400 21600 0 NOVT}
    {3731256000 25200 1 NOVST}
    {3750004800 21600 0 NOVT}
    {3762705600 25200 1 NOVST}
    {3781454400 21600 0 NOVT}
    {3794155200 25200 1 NOVST}
    {3812904000 21600 0 NOVT}
    {3825604800 25200 1 NOVST}
    {3844353600 21600 0 NOVT}
    {3857659200 25200 1 NOVST}
    {3875803200 21600 0 NOVT}
    {3889108800 25200 1 NOVST}
    {3907252800 21600 0 NOVT}
    {3920558400 25200 1 NOVST}
    {3939307200 21600 0 NOVT}
    {3952008000 25200 1 NOVST}
    {3970756800 21600 0 NOVT}
    {3983457600 25200 1 NOVST}
    {4002206400 21600 0 NOVT}
    {4015512000 25200 1 NOVST}
    {4033656000 21600 0 NOVT}
    {4046961600 25200 1 NOVST}
    {4065105600 21600 0 NOVT}
    {4078411200 25200 1 NOVST}
    {4096555200 21600 0 NOVT}
}

    {1193515200 21600 0 OMST}
    {1206820800 25200 1 OMSST}
    {1224964800 21600 0 OMST}
    {1238270400 25200 1 OMSST}
    {1256414400 21600 0 OMST}
    {1269720000 25200 1 OMSST}
    {1288468800 21600 0 OMST}
    {1301169600 25200 1 OMSST}
    {1319918400 21600 0 OMST}
    {1332619200 25200 1 OMSST}
    {1351368000 21600 0 OMST}
    {1364673600 25200 1 OMSST}
    {1382817600 21600 0 OMST}
    {1396123200 25200 1 OMSST}
    {1414267200 21600 0 OMST}
    {1427572800 25200 1 OMSST}
    {1445716800 21600 0 OMST}
    {1459022400 25200 1 OMSST}
    {1477771200 21600 0 OMST}
    {1490472000 25200 1 OMSST}
    {1509220800 21600 0 OMST}
    {1521921600 25200 1 OMSST}
    {1540670400 21600 0 OMST}
    {1553976000 25200 1 OMSST}
    {1572120000 21600 0 OMST}
    {1585425600 25200 1 OMSST}
    {1603569600 21600 0 OMST}
    {1616875200 25200 1 OMSST}
    {1635624000 21600 0 OMST}
    {1648324800 25200 1 OMSST}
    {1667073600 21600 0 OMST}
    {1679774400 25200 1 OMSST}
    {1698523200 21600 0 OMST}
    {1711828800 25200 1 OMSST}
    {1729972800 21600 0 OMST}
    {1743278400 25200 1 OMSST}
    {1761422400 21600 0 OMST}
    {1774728000 25200 1 OMSST}
    {1792872000 21600 0 OMST}
    {1806177600 25200 1 OMSST}
    {1824926400 21600 0 OMST}
    {1837627200 25200 1 OMSST}
    {1856376000 21600 0 OMST}
    {1869076800 25200 1 OMSST}
    {1887825600 21600 0 OMST}
    {1901131200 25200 1 OMSST}
    {1919275200 21600 0 OMST}
    {1932580800 25200 1 OMSST}
    {1950724800 21600 0 OMST}
    {1964030400 25200 1 OMSST}
    {1982779200 21600 0 OMST}
    {1995480000 25200 1 OMSST}
    {2014228800 21600 0 OMST}
    {2026929600 25200 1 OMSST}
    {2045678400 21600 0 OMST}
    {2058379200 25200 1 OMSST}
    {2077128000 21600 0 OMST}
    {2090433600 25200 1 OMSST}
    {2108577600 21600 0 OMST}
    {2121883200 25200 1 OMSST}
    {2140027200 21600 0 OMST}
    {2153332800 25200 1 OMSST}
    {2172081600 21600 0 OMST}
    {2184782400 25200 1 OMSST}
    {2203531200 21600 0 OMST}
    {2216232000 25200 1 OMSST}
    {2234980800 21600 0 OMST}
    {2248286400 25200 1 OMSST}
    {2266430400 21600 0 OMST}
    {2279736000 25200 1 OMSST}
    {2297880000 21600 0 OMST}
    {2311185600 25200 1 OMSST}
    {2329329600 21600 0 OMST}
    {2342635200 25200 1 OMSST}
    {2361384000 21600 0 OMST}
    {2374084800 25200 1 OMSST}
    {2392833600 21600 0 OMST}
    {2405534400 25200 1 OMSST}
    {2424283200 21600 0 OMST}
    {2437588800 25200 1 OMSST}
    {2455732800 21600 0 OMST}
    {2469038400 25200 1 OMSST}
    {2487182400 21600 0 OMST}
    {2500488000 25200 1 OMSST}
    {2519236800 21600 0 OMST}
    {2531937600 25200 1 OMSST}
    {2550686400 21600 0 OMST}
    {2563387200 25200 1 OMSST}
    {2582136000 21600 0 OMST}
    {2595441600 25200 1 OMSST}
    {2613585600 21600 0 OMST}
    {2626891200 25200 1 OMSST}
    {2645035200 21600 0 OMST}
    {2658340800 25200 1 OMSST}
    {2676484800 21600 0 OMST}
    {2689790400 25200 1 OMSST}
    {2708539200 21600 0 OMST}
    {2721240000 25200 1 OMSST}
    {2739988800 21600 0 OMST}
    {2752689600 25200 1 OMSST}
    {2771438400 21600 0 OMST}
    {2784744000 25200 1 OMSST}
    {2802888000 21600 0 OMST}
    {2816193600 25200 1 OMSST}
    {2834337600 21600 0 OMST}
    {2847643200 25200 1 OMSST}
    {2866392000 21600 0 OMST}
    {2879092800 25200 1 OMSST}
    {2897841600 21600 0 OMST}
    {2910542400 25200 1 OMSST}
    {2929291200 21600 0 OMST}
    {2941992000 25200 1 OMSST}
    {2960740800 21600 0 OMST}
    {2974046400 25200 1 OMSST}
    {2992190400 21600 0 OMST}
    {3005496000 25200 1 OMSST}
    {3023640000 21600 0 OMST}
    {3036945600 25200 1 OMSST}
    {3055694400 21600 0 OMST}
    {3068395200 25200 1 OMSST}
    {3087144000 21600 0 OMST}
    {3099844800 25200 1 OMSST}
    {3118593600 21600 0 OMST}
    {3131899200 25200 1 OMSST}
    {3150043200 21600 0 OMST}
    {3163348800 25200 1 OMSST}
    {3181492800 21600 0 OMST}
    {3194798400 25200 1 OMSST}
    {3212942400 21600 0 OMST}
    {3226248000 25200 1 OMSST}
    {3244996800 21600 0 OMST}
    {3257697600 25200 1 OMSST}
    {3276446400 21600 0 OMST}
    {3289147200 25200 1 OMSST}
    {3307896000 21600 0 OMST}
    {3321201600 25200 1 OMSST}
    {3339345600 21600 0 OMST}
    {3352651200 25200 1 OMSST}
    {3370795200 21600 0 OMST}
    {3384100800 25200 1 OMSST}
    {3402849600 21600 0 OMST}
    {3415550400 25200 1 OMSST}
    {3434299200 21600 0 OMST}
    {3447000000 25200 1 OMSST}
    {3465748800 21600 0 OMST}
    {3479054400 25200 1 OMSST}
    {3497198400 21600 0 OMST}
    {3510504000 25200 1 OMSST}
    {3528648000 21600 0 OMST}
    {3541953600 25200 1 OMSST}
    {3560097600 21600 0 OMST}
    {3573403200 25200 1 OMSST}
    {3592152000 21600 0 OMST}
    {3604852800 25200 1 OMSST}
    {3623601600 21600 0 OMST}
    {3636302400 25200 1 OMSST}
    {3655051200 21600 0 OMST}
    {3668356800 25200 1 OMSST}
    {3686500800 21600 0 OMST}
    {3699806400 25200 1 OMSST}
    {3717950400 21600 0 OMST}
    {3731256000 25200 1 OMSST}
    {3750004800 21600 0 OMST}
    {3762705600 25200 1 OMSST}
    {3781454400 21600 0 OMST}
    {3794155200 25200 1 OMSST}
    {3812904000 21600 0 OMST}
    {3825604800 25200 1 OMSST}
    {3844353600 21600 0 OMST}
    {3857659200 25200 1 OMSST}
    {3875803200 21600 0 OMST}
    {3889108800 25200 1 OMSST}
    {3907252800 21600 0 OMST}
    {3920558400 25200 1 OMSST}
    {3939307200 21600 0 OMST}
    {3952008000 25200 1 OMSST}
    {3970756800 21600 0 OMST}
    {3983457600 25200 1 OMSST}
    {4002206400 21600 0 OMST}
    {4015512000 25200 1 OMSST}
    {4033656000 21600 0 OMST}
    {4046961600 25200 1 OMSST}
    {4065105600 21600 0 OMST}
    {4078411200 25200 1 OMSST}
    {4096555200 21600 0 OMST}
}

    {1193500800 36000 0 SAKT}
    {1206806400 39600 1 SAKST}
    {1224950400 36000 0 SAKT}
    {1238256000 39600 1 SAKST}
    {1256400000 36000 0 SAKT}
    {1269705600 39600 1 SAKST}
    {1288454400 36000 0 SAKT}
    {1301155200 39600 1 SAKST}
    {1319904000 36000 0 SAKT}
    {1332604800 39600 1 SAKST}
    {1351353600 36000 0 SAKT}
    {1364659200 39600 1 SAKST}
    {1382803200 36000 0 SAKT}
    {1396108800 39600 1 SAKST}
    {1414252800 36000 0 SAKT}
    {1427558400 39600 1 SAKST}
    {1445702400 36000 0 SAKT}
    {1459008000 39600 1 SAKST}
    {1477756800 36000 0 SAKT}
    {1490457600 39600 1 SAKST}
    {1509206400 36000 0 SAKT}
    {1521907200 39600 1 SAKST}
    {1540656000 36000 0 SAKT}
    {1553961600 39600 1 SAKST}
    {1572105600 36000 0 SAKT}
    {1585411200 39600 1 SAKST}
    {1603555200 36000 0 SAKT}
    {1616860800 39600 1 SAKST}
    {1635609600 36000 0 SAKT}
    {1648310400 39600 1 SAKST}
    {1667059200 36000 0 SAKT}
    {1679760000 39600 1 SAKST}
    {1698508800 36000 0 SAKT}
    {1711814400 39600 1 SAKST}
    {1729958400 36000 0 SAKT}
    {1743264000 39600 1 SAKST}
    {1761408000 36000 0 SAKT}
    {1774713600 39600 1 SAKST}
    {1792857600 36000 0 SAKT}
    {1806163200 39600 1 SAKST}
    {1824912000 36000 0 SAKT}
    {1837612800 39600 1 SAKST}
    {1856361600 36000 0 SAKT}
    {1869062400 39600 1 SAKST}
    {1887811200 36000 0 SAKT}
    {1901116800 39600 1 SAKST}
    {1919260800 36000 0 SAKT}
    {1932566400 39600 1 SAKST}
    {1950710400 36000 0 SAKT}
    {1964016000 39600 1 SAKST}
    {1982764800 36000 0 SAKT}
    {1995465600 39600 1 SAKST}
    {2014214400 36000 0 SAKT}
    {2026915200 39600 1 SAKST}
    {2045664000 36000 0 SAKT}
    {2058364800 39600 1 SAKST}
    {2077113600 36000 0 SAKT}
    {2090419200 39600 1 SAKST}
    {2108563200 36000 0 SAKT}
    {2121868800 39600 1 SAKST}
    {2140012800 36000 0 SAKT}
    {2153318400 39600 1 SAKST}
    {2172067200 36000 0 SAKT}
    {2184768000 39600 1 SAKST}
    {2203516800 36000 0 SAKT}
    {2216217600 39600 1 SAKST}
    {2234966400 36000 0 SAKT}
    {2248272000 39600 1 SAKST}
    {2266416000 36000 0 SAKT}
    {2279721600 39600 1 SAKST}
    {2297865600 36000 0 SAKT}
    {2311171200 39600 1 SAKST}
    {2329315200 36000 0 SAKT}
    {2342620800 39600 1 SAKST}
    {2361369600 36000 0 SAKT}
    {2374070400 39600 1 SAKST}
    {2392819200 36000 0 SAKT}
    {2405520000 39600 1 SAKST}
    {2424268800 36000 0 SAKT}
    {2437574400 39600 1 SAKST}
    {2455718400 36000 0 SAKT}
    {2469024000 39600 1 SAKST}
    {2487168000 36000 0 SAKT}
    {2500473600 39600 1 SAKST}
    {2519222400 36000 0 SAKT}
    {2531923200 39600 1 SAKST}
    {2550672000 36000 0 SAKT}
    {2563372800 39600 1 SAKST}
    {2582121600 36000 0 SAKT}
    {2595427200 39600 1 SAKST}
    {2613571200 36000 0 SAKT}
    {2626876800 39600 1 SAKST}
    {2645020800 36000 0 SAKT}
    {2658326400 39600 1 SAKST}
    {2676470400 36000 0 SAKT}
    {2689776000 39600 1 SAKST}
    {2708524800 36000 0 SAKT}
    {2721225600 39600 1 SAKST}
    {2739974400 36000 0 SAKT}
    {2752675200 39600 1 SAKST}
    {2771424000 36000 0 SAKT}
    {2784729600 39600 1 SAKST}
    {2802873600 36000 0 SAKT}
    {2816179200 39600 1 SAKST}
    {2834323200 36000 0 SAKT}
    {2847628800 39600 1 SAKST}
    {2866377600 36000 0 SAKT}
    {2879078400 39600 1 SAKST}
    {2897827200 36000 0 SAKT}
    {2910528000 39600 1 SAKST}
    {2929276800 36000 0 SAKT}
    {2941977600 39600 1 SAKST}
    {2960726400 36000 0 SAKT}
    {2974032000 39600 1 SAKST}
    {2992176000 36000 0 SAKT}
    {3005481600 39600 1 SAKST}
    {3023625600 36000 0 SAKT}
    {3036931200 39600 1 SAKST}
    {3055680000 36000 0 SAKT}
    {3068380800 39600 1 SAKST}
    {3087129600 36000 0 SAKT}
    {3099830400 39600 1 SAKST}
    {3118579200 36000 0 SAKT}
    {3131884800 39600 1 SAKST}
    {3150028800 36000 0 SAKT}
    {3163334400 39600 1 SAKST}
    {3181478400 36000 0 SAKT}
    {3194784000 39600 1 SAKST}
    {3212928000 36000 0 SAKT}
    {3226233600 39600 1 SAKST}
    {3244982400 36000 0 SAKT}
    {3257683200 39600 1 SAKST}
    {3276432000 36000 0 SAKT}
    {3289132800 39600 1 SAKST}
    {3307881600 36000 0 SAKT}
    {3321187200 39600 1 SAKST}
    {3339331200 36000 0 SAKT}
    {3352636800 39600 1 SAKST}
    {3370780800 36000 0 SAKT}
    {3384086400 39600 1 SAKST}
    {3402835200 36000 0 SAKT}
    {3415536000 39600 1 SAKST}
    {3434284800 36000 0 SAKT}
    {3446985600 39600 1 SAKST}
    {3465734400 36000 0 SAKT}
    {3479040000 39600 1 SAKST}
    {3497184000 36000 0 SAKT}
    {3510489600 39600 1 SAKST}
    {3528633600 36000 0 SAKT}
    {3541939200 39600 1 SAKST}
    {3560083200 36000 0 SAKT}
    {3573388800 39600 1 SAKST}
    {3592137600 36000 0 SAKT}
    {3604838400 39600 1 SAKST}
    {3623587200 36000 0 SAKT}
    {3636288000 39600 1 SAKST}
    {3655036800 36000 0 SAKT}
    {3668342400 39600 1 SAKST}
    {3686486400 36000 0 SAKT}
    {3699792000 39600 1 SAKST}
    {3717936000 36000 0 SAKT}
    {3731241600 39600 1 SAKST}
    {3749990400 36000 0 SAKT}
    {3762691200 39600 1 SAKST}
    {3781440000 36000 0 SAKT}
    {3794140800 39600 1 SAKST}
    {3812889600 36000 0 SAKT}
    {3825590400 39600 1 SAKST}
    {3844339200 36000 0 SAKT}
    {3857644800 39600 1 SAKST}
    {3875788800 36000 0 SAKT}
    {3889094400 39600 1 SAKST}
    {3907238400 36000 0 SAKT}
    {3920544000 39600 1 SAKST}
    {3939292800 36000 0 SAKT}
    {3951993600 39600 1 SAKST}
    {3970742400 36000 0 SAKT}
    {3983443200 39600 1 SAKST}
    {4002192000 36000 0 SAKT}
    {4015497600 39600 1 SAKST}
    {4033641600 36000 0 SAKT}
    {4046947200 39600 1 SAKST}
    {4065091200 36000 0 SAKT}
    {4078396800 39600 1 SAKST}
    {4096540800 36000 0 SAKT}
}

    {1193500800 36000 0 VLAT}
    {1206806400 39600 1 VLAST}
    {1224950400 36000 0 VLAT}
    {1238256000 39600 1 VLAST}
    {1256400000 36000 0 VLAT}
    {1269705600 39600 1 VLAST}
    {1288454400 36000 0 VLAT}
    {1301155200 39600 1 VLAST}
    {1319904000 36000 0 VLAT}
    {1332604800 39600 1 VLAST}
    {1351353600 36000 0 VLAT}
    {1364659200 39600 1 VLAST}
    {1382803200 36000 0 VLAT}
    {1396108800 39600 1 VLAST}
    {1414252800 36000 0 VLAT}
    {1427558400 39600 1 VLAST}
    {1445702400 36000 0 VLAT}
    {1459008000 39600 1 VLAST}
    {1477756800 36000 0 VLAT}
    {1490457600 39600 1 VLAST}
    {1509206400 36000 0 VLAT}
    {1521907200 39600 1 VLAST}
    {1540656000 36000 0 VLAT}
    {1553961600 39600 1 VLAST}
    {1572105600 36000 0 VLAT}
    {1585411200 39600 1 VLAST}
    {1603555200 36000 0 VLAT}
    {1616860800 39600 1 VLAST}
    {1635609600 36000 0 VLAT}
    {1648310400 39600 1 VLAST}
    {1667059200 36000 0 VLAT}
    {1679760000 39600 1 VLAST}
    {1698508800 36000 0 VLAT}
    {1711814400 39600 1 VLAST}
    {1729958400 36000 0 VLAT}
    {1743264000 39600 1 VLAST}
    {1761408000 36000 0 VLAT}
    {1774713600 39600 1 VLAST}
    {1792857600 36000 0 VLAT}
    {1806163200 39600 1 VLAST}
    {1824912000 36000 0 VLAT}
    {1837612800 39600 1 VLAST}
    {1856361600 36000 0 VLAT}
    {1869062400 39600 1 VLAST}
    {1887811200 36000 0 VLAT}
    {1901116800 39600 1 VLAST}
    {1919260800 36000 0 VLAT}
    {1932566400 39600 1 VLAST}
    {1950710400 36000 0 VLAT}
    {1964016000 39600 1 VLAST}
    {1982764800 36000 0 VLAT}
    {1995465600 39600 1 VLAST}
    {2014214400 36000 0 VLAT}
    {2026915200 39600 1 VLAST}
    {2045664000 36000 0 VLAT}
    {2058364800 39600 1 VLAST}
    {2077113600 36000 0 VLAT}
    {2090419200 39600 1 VLAST}
    {2108563200 36000 0 VLAT}
    {2121868800 39600 1 VLAST}
    {2140012800 36000 0 VLAT}
    {2153318400 39600 1 VLAST}
    {2172067200 36000 0 VLAT}
    {2184768000 39600 1 VLAST}
    {2203516800 36000 0 VLAT}
    {2216217600 39600 1 VLAST}
    {2234966400 36000 0 VLAT}
    {2248272000 39600 1 VLAST}
    {2266416000 36000 0 VLAT}
    {2279721600 39600 1 VLAST}
    {2297865600 36000 0 VLAT}
    {2311171200 39600 1 VLAST}
    {2329315200 36000 0 VLAT}
    {2342620800 39600 1 VLAST}
    {2361369600 36000 0 VLAT}
    {2374070400 39600 1 VLAST}
    {2392819200 36000 0 VLAT}
    {2405520000 39600 1 VLAST}
    {2424268800 36000 0 VLAT}
    {2437574400 39600 1 VLAST}
    {2455718400 36000 0 VLAT}
    {2469024000 39600 1 VLAST}
    {2487168000 36000 0 VLAT}
    {2500473600 39600 1 VLAST}
    {2519222400 36000 0 VLAT}
    {2531923200 39600 1 VLAST}
    {2550672000 36000 0 VLAT}
    {2563372800 39600 1 VLAST}
    {2582121600 36000 0 VLAT}
    {2595427200 39600 1 VLAST}
    {2613571200 36000 0 VLAT}
    {2626876800 39600 1 VLAST}
    {2645020800 36000 0 VLAT}
    {2658326400 39600 1 VLAST}
    {2676470400 36000 0 VLAT}
    {2689776000 39600 1 VLAST}
    {2708524800 36000 0 VLAT}
    {2721225600 39600 1 VLAST}
    {2739974400 36000 0 VLAT}
    {2752675200 39600 1 VLAST}
    {2771424000 36000 0 VLAT}
    {2784729600 39600 1 VLAST}
    {2802873600 36000 0 VLAT}
    {2816179200 39600 1 VLAST}
    {2834323200 36000 0 VLAT}
    {2847628800 39600 1 VLAST}
    {2866377600 36000 0 VLAT}
    {2879078400 39600 1 VLAST}
    {2897827200 36000 0 VLAT}
    {2910528000 39600 1 VLAST}
    {2929276800 36000 0 VLAT}
    {2941977600 39600 1 VLAST}
    {2960726400 36000 0 VLAT}
    {2974032000 39600 1 VLAST}
    {2992176000 36000 0 VLAT}
    {3005481600 39600 1 VLAST}
    {3023625600 36000 0 VLAT}
    {3036931200 39600 1 VLAST}
    {3055680000 36000 0 VLAT}
    {3068380800 39600 1 VLAST}
    {3087129600 36000 0 VLAT}
    {3099830400 39600 1 VLAST}
    {3118579200 36000 0 VLAT}
    {3131884800 39600 1 VLAST}
    {3150028800 36000 0 VLAT}
    {3163334400 39600 1 VLAST}
    {3181478400 36000 0 VLAT}
    {3194784000 39600 1 VLAST}
    {3212928000 36000 0 VLAT}
    {3226233600 39600 1 VLAST}
    {3244982400 36000 0 VLAT}
    {3257683200 39600 1 VLAST}
    {3276432000 36000 0 VLAT}
    {3289132800 39600 1 VLAST}
    {3307881600 36000 0 VLAT}
    {3321187200 39600 1 VLAST}
    {3339331200 36000 0 VLAT}
    {3352636800 39600 1 VLAST}
    {3370780800 36000 0 VLAT}
    {3384086400 39600 1 VLAST}
    {3402835200 36000 0 VLAT}
    {3415536000 39600 1 VLAST}
    {3434284800 36000 0 VLAT}
    {3446985600 39600 1 VLAST}
    {3465734400 36000 0 VLAT}
    {3479040000 39600 1 VLAST}
    {3497184000 36000 0 VLAT}
    {3510489600 39600 1 VLAST}
    {3528633600 36000 0 VLAT}
    {3541939200 39600 1 VLAST}
    {3560083200 36000 0 VLAT}
    {3573388800 39600 1 VLAST}
    {3592137600 36000 0 VLAT}
    {3604838400 39600 1 VLAST}
    {3623587200 36000 0 VLAT}
    {3636288000 39600 1 VLAST}
    {3655036800 36000 0 VLAT}
    {3668342400 39600 1 VLAST}
    {3686486400 36000 0 VLAT}
    {3699792000 39600 1 VLAST}
    {3717936000 36000 0 VLAT}
    {3731241600 39600 1 VLAST}
    {3749990400 36000 0 VLAT}
    {3762691200 39600 1 VLAST}
    {3781440000 36000 0 VLAT}
    {3794140800 39600 1 VLAST}
    {3812889600 36000 0 VLAT}
    {3825590400 39600 1 VLAST}
    {3844339200 36000 0 VLAT}
    {3857644800 39600 1 VLAST}
    {3875788800 36000 0 VLAT}
    {3889094400 39600 1 VLAST}
    {3907238400 36000 0 VLAT}
    {3920544000 39600 1 VLAST}
    {3939292800 36000 0 VLAT}
    {3951993600 39600 1 VLAST}
    {3970742400 36000 0 VLAT}
    {3983443200 39600 1 VLAST}
    {4002192000 36000 0 VLAT}
    {4015497600 39600 1 VLAST}
    {4033641600 36000 0 VLAT}
    {4046947200 39600 1 VLAST}
    {4065091200 36000 0 VLAT}
    {4078396800 39600 1 VLAST}
    {4096540800 36000 0 VLAT}
}

    {1193504400 32400 0 YAKT}
    {1206810000 36000 1 YAKST}
    {1224954000 32400 0 YAKT}
    {1238259600 36000 1 YAKST}
    {1256403600 32400 0 YAKT}
    {1269709200 36000 1 YAKST}
    {1288458000 32400 0 YAKT}
    {1301158800 36000 1 YAKST}
    {1319907600 32400 0 YAKT}
    {1332608400 36000 1 YAKST}
    {1351357200 32400 0 YAKT}
    {1364662800 36000 1 YAKST}
    {1382806800 32400 0 YAKT}
    {1396112400 36000 1 YAKST}
    {1414256400 32400 0 YAKT}
    {1427562000 36000 1 YAKST}
    {1445706000 32400 0 YAKT}
    {1459011600 36000 1 YAKST}
    {1477760400 32400 0 YAKT}
    {1490461200 36000 1 YAKST}
    {1509210000 32400 0 YAKT}
    {1521910800 36000 1 YAKST}
    {1540659600 32400 0 YAKT}
    {1553965200 36000 1 YAKST}
    {1572109200 32400 0 YAKT}
    {1585414800 36000 1 YAKST}
    {1603558800 32400 0 YAKT}
    {1616864400 36000 1 YAKST}
    {1635613200 32400 0 YAKT}
    {1648314000 36000 1 YAKST}
    {1667062800 32400 0 YAKT}
    {1679763600 36000 1 YAKST}
    {1698512400 32400 0 YAKT}
    {1711818000 36000 1 YAKST}
    {1729962000 32400 0 YAKT}
    {1743267600 36000 1 YAKST}
    {1761411600 32400 0 YAKT}
    {1774717200 36000 1 YAKST}
    {1792861200 32400 0 YAKT}
    {1806166800 36000 1 YAKST}
    {1824915600 32400 0 YAKT}
    {1837616400 36000 1 YAKST}
    {1856365200 32400 0 YAKT}
    {1869066000 36000 1 YAKST}
    {1887814800 32400 0 YAKT}
    {1901120400 36000 1 YAKST}
    {1919264400 32400 0 YAKT}
    {1932570000 36000 1 YAKST}
    {1950714000 32400 0 YAKT}
    {1964019600 36000 1 YAKST}
    {1982768400 32400 0 YAKT}
    {1995469200 36000 1 YAKST}
    {2014218000 32400 0 YAKT}
    {2026918800 36000 1 YAKST}
    {2045667600 32400 0 YAKT}
    {2058368400 36000 1 YAKST}
    {2077117200 32400 0 YAKT}
    {2090422800 36000 1 YAKST}
    {2108566800 32400 0 YAKT}
    {2121872400 36000 1 YAKST}
    {2140016400 32400 0 YAKT}
    {2153322000 36000 1 YAKST}
    {2172070800 32400 0 YAKT}
    {2184771600 36000 1 YAKST}
    {2203520400 32400 0 YAKT}
    {2216221200 36000 1 YAKST}
    {2234970000 32400 0 YAKT}
    {2248275600 36000 1 YAKST}
    {2266419600 32400 0 YAKT}
    {2279725200 36000 1 YAKST}
    {2297869200 32400 0 YAKT}
    {2311174800 36000 1 YAKST}
    {2329318800 32400 0 YAKT}
    {2342624400 36000 1 YAKST}
    {2361373200 32400 0 YAKT}
    {2374074000 36000 1 YAKST}
    {2392822800 32400 0 YAKT}
    {2405523600 36000 1 YAKST}
    {2424272400 32400 0 YAKT}
    {2437578000 36000 1 YAKST}
    {2455722000 32400 0 YAKT}
    {2469027600 36000 1 YAKST}
    {2487171600 32400 0 YAKT}
    {2500477200 36000 1 YAKST}
    {2519226000 32400 0 YAKT}
    {2531926800 36000 1 YAKST}
    {2550675600 32400 0 YAKT}
    {2563376400 36000 1 YAKST}
    {2582125200 32400 0 YAKT}
    {2595430800 36000 1 YAKST}
    {2613574800 32400 0 YAKT}
    {2626880400 36000 1 YAKST}
    {2645024400 32400 0 YAKT}
    {2658330000 36000 1 YAKST}
    {2676474000 32400 0 YAKT}
    {2689779600 36000 1 YAKST}
    {2708528400 32400 0 YAKT}
    {2721229200 36000 1 YAKST}
    {2739978000 32400 0 YAKT}
    {2752678800 36000 1 YAKST}
    {2771427600 32400 0 YAKT}
    {2784733200 36000 1 YAKST}
    {2802877200 32400 0 YAKT}
    {2816182800 36000 1 YAKST}
    {2834326800 32400 0 YAKT}
    {2847632400 36000 1 YAKST}
    {2866381200 32400 0 YAKT}
    {2879082000 36000 1 YAKST}
    {2897830800 32400 0 YAKT}
    {2910531600 36000 1 YAKST}
    {2929280400 32400 0 YAKT}
    {2941981200 36000 1 YAKST}
    {2960730000 32400 0 YAKT}
    {2974035600 36000 1 YAKST}
    {2992179600 32400 0 YAKT}
    {3005485200 36000 1 YAKST}
    {3023629200 32400 0 YAKT}
    {3036934800 36000 1 YAKST}
    {3055683600 32400 0 YAKT}
    {3068384400 36000 1 YAKST}
    {3087133200 32400 0 YAKT}
    {3099834000 36000 1 YAKST}
    {3118582800 32400 0 YAKT}
    {3131888400 36000 1 YAKST}
    {3150032400 32400 0 YAKT}
    {3163338000 36000 1 YAKST}
    {3181482000 32400 0 YAKT}
    {3194787600 36000 1 YAKST}
    {3212931600 32400 0 YAKT}
    {3226237200 36000 1 YAKST}
    {3244986000 32400 0 YAKT}
    {3257686800 36000 1 YAKST}
    {3276435600 32400 0 YAKT}
    {3289136400 36000 1 YAKST}
    {3307885200 32400 0 YAKT}
    {3321190800 36000 1 YAKST}
    {3339334800 32400 0 YAKT}
    {3352640400 36000 1 YAKST}
    {3370784400 32400 0 YAKT}
    {3384090000 36000 1 YAKST}
    {3402838800 32400 0 YAKT}
    {3415539600 36000 1 YAKST}
    {3434288400 32400 0 YAKT}
    {3446989200 36000 1 YAKST}
    {3465738000 32400 0 YAKT}
    {3479043600 36000 1 YAKST}
    {3497187600 32400 0 YAKT}
    {3510493200 36000 1 YAKST}
    {3528637200 32400 0 YAKT}
    {3541942800 36000 1 YAKST}
    {3560086800 32400 0 YAKT}
    {3573392400 36000 1 YAKST}
    {3592141200 32400 0 YAKT}
    {3604842000 36000 1 YAKST}
    {3623590800 32400 0 YAKT}
    {3636291600 36000 1 YAKST}
    {3655040400 32400 0 YAKT}
    {3668346000 36000 1 YAKST}
    {3686490000 32400 0 YAKT}
    {3699795600 36000 1 YAKST}
    {3717939600 32400 0 YAKT}
    {3731245200 36000 1 YAKST}
    {3749994000 32400 0 YAKT}
    {3762694800 36000 1 YAKST}
    {3781443600 32400 0 YAKT}
    {3794144400 36000 1 YAKST}
    {3812893200 32400 0 YAKT}
    {3825594000 36000 1 YAKST}
    {3844342800 32400 0 YAKT}
    {3857648400 36000 1 YAKST}
    {3875792400 32400 0 YAKT}
    {3889098000 36000 1 YAKST}
    {3907242000 32400 0 YAKT}
    {3920547600 36000 1 YAKST}
    {3939296400 32400 0 YAKT}
    {3951997200 36000 1 YAKST}
    {3970746000 32400 0 YAKT}
    {3983446800 36000 1 YAKST}
    {4002195600 32400 0 YAKT}
    {4015501200 36000 1 YAKST}
    {4033645200 32400 0 YAKT}
    {4046950800 36000 1 YAKST}
    {4065094800 32400 0 YAKT}
    {4078400400 36000 1 YAKST}
    {4096544400 32400 0 YAKT}
}

    {1193518800 18000 0 YEKT}
    {1206824400 21600 1 YEKST}
    {1224968400 18000 0 YEKT}
    {1238274000 21600 1 YEKST}
    {1256418000 18000 0 YEKT}
    {1269723600 21600 1 YEKST}
    {1288472400 18000 0 YEKT}
    {1301173200 21600 1 YEKST}
    {1319922000 18000 0 YEKT}
    {1332622800 21600 1 YEKST}
    {1351371600 18000 0 YEKT}
    {1364677200 21600 1 YEKST}
    {1382821200 18000 0 YEKT}
    {1396126800 21600 1 YEKST}
    {1414270800 18000 0 YEKT}
    {1427576400 21600 1 YEKST}
    {1445720400 18000 0 YEKT}
    {1459026000 21600 1 YEKST}
    {1477774800 18000 0 YEKT}
    {1490475600 21600 1 YEKST}
    {1509224400 18000 0 YEKT}
    {1521925200 21600 1 YEKST}
    {1540674000 18000 0 YEKT}
    {1553979600 21600 1 YEKST}
    {1572123600 18000 0 YEKT}
    {1585429200 21600 1 YEKST}
    {1603573200 18000 0 YEKT}
    {1616878800 21600 1 YEKST}
    {1635627600 18000 0 YEKT}
    {1648328400 21600 1 YEKST}
    {1667077200 18000 0 YEKT}
    {1679778000 21600 1 YEKST}
    {1698526800 18000 0 YEKT}
    {1711832400 21600 1 YEKST}
    {1729976400 18000 0 YEKT}
    {1743282000 21600 1 YEKST}
    {1761426000 18000 0 YEKT}
    {1774731600 21600 1 YEKST}
    {1792875600 18000 0 YEKT}
    {1806181200 21600 1 YEKST}
    {1824930000 18000 0 YEKT}
    {1837630800 21600 1 YEKST}
    {1856379600 18000 0 YEKT}
    {1869080400 21600 1 YEKST}
    {1887829200 18000 0 YEKT}
    {1901134800 21600 1 YEKST}
    {1919278800 18000 0 YEKT}
    {1932584400 21600 1 YEKST}
    {1950728400 18000 0 YEKT}
    {1964034000 21600 1 YEKST}
    {1982782800 18000 0 YEKT}
    {1995483600 21600 1 YEKST}
    {2014232400 18000 0 YEKT}
    {2026933200 21600 1 YEKST}
    {2045682000 18000 0 YEKT}
    {2058382800 21600 1 YEKST}
    {2077131600 18000 0 YEKT}
    {2090437200 21600 1 YEKST}
    {2108581200 18000 0 YEKT}
    {2121886800 21600 1 YEKST}
    {2140030800 18000 0 YEKT}
    {2153336400 21600 1 YEKST}
    {2172085200 18000 0 YEKT}
    {2184786000 21600 1 YEKST}
    {2203534800 18000 0 YEKT}
    {2216235600 21600 1 YEKST}
    {2234984400 18000 0 YEKT}
    {2248290000 21600 1 YEKST}
    {2266434000 18000 0 YEKT}
    {2279739600 21600 1 YEKST}
    {2297883600 18000 0 YEKT}
    {2311189200 21600 1 YEKST}
    {2329333200 18000 0 YEKT}
    {2342638800 21600 1 YEKST}
    {2361387600 18000 0 YEKT}
    {2374088400 21600 1 YEKST}
    {2392837200 18000 0 YEKT}
    {2405538000 21600 1 YEKST}
    {2424286800 18000 0 YEKT}
    {2437592400 21600 1 YEKST}
    {2455736400 18000 0 YEKT}
    {2469042000 21600 1 YEKST}
    {2487186000 18000 0 YEKT}
    {2500491600 21600 1 YEKST}
    {2519240400 18000 0 YEKT}
    {2531941200 21600 1 YEKST}
    {2550690000 18000 0 YEKT}
    {2563390800 21600 1 YEKST}
    {2582139600 18000 0 YEKT}
    {2595445200 21600 1 YEKST}
    {2613589200 18000 0 YEKT}
    {2626894800 21600 1 YEKST}
    {2645038800 18000 0 YEKT}
    {2658344400 21600 1 YEKST}
    {2676488400 18000 0 YEKT}
    {2689794000 21600 1 YEKST}
    {2708542800 18000 0 YEKT}
    {2721243600 21600 1 YEKST}
    {2739992400 18000 0 YEKT}
    {2752693200 21600 1 YEKST}
    {2771442000 18000 0 YEKT}
    {2784747600 21600 1 YEKST}
    {2802891600 18000 0 YEKT}
    {2816197200 21600 1 YEKST}
    {2834341200 18000 0 YEKT}
    {2847646800 21600 1 YEKST}
    {2866395600 18000 0 YEKT}
    {2879096400 21600 1 YEKST}
    {2897845200 18000 0 YEKT}
    {2910546000 21600 1 YEKST}
    {2929294800 18000 0 YEKT}
    {2941995600 21600 1 YEKST}
    {2960744400 18000 0 YEKT}
    {2974050000 21600 1 YEKST}
    {2992194000 18000 0 YEKT}
    {3005499600 21600 1 YEKST}
    {3023643600 18000 0 YEKT}
    {3036949200 21600 1 YEKST}
    {3055698000 18000 0 YEKT}
    {3068398800 21600 1 YEKST}
    {3087147600 18000 0 YEKT}
    {3099848400 21600 1 YEKST}
    {3118597200 18000 0 YEKT}
    {3131902800 21600 1 YEKST}
    {3150046800 18000 0 YEKT}
    {3163352400 21600 1 YEKST}
    {3181496400 18000 0 YEKT}
    {3194802000 21600 1 YEKST}
    {3212946000 18000 0 YEKT}
    {3226251600 21600 1 YEKST}
    {3245000400 18000 0 YEKT}
    {3257701200 21600 1 YEKST}
    {3276450000 18000 0 YEKT}
    {3289150800 21600 1 YEKST}
    {3307899600 18000 0 YEKT}
    {3321205200 21600 1 YEKST}
    {3339349200 18000 0 YEKT}
    {3352654800 21600 1 YEKST}
    {3370798800 18000 0 YEKT}
    {3384104400 21600 1 YEKST}
    {3402853200 18000 0 YEKT}
    {3415554000 21600 1 YEKST}
    {3434302800 18000 0 YEKT}
    {3447003600 21600 1 YEKST}
    {3465752400 18000 0 YEKT}
    {3479058000 21600 1 YEKST}
    {3497202000 18000 0 YEKT}
    {3510507600 21600 1 YEKST}
    {3528651600 18000 0 YEKT}
    {3541957200 21600 1 YEKST}
    {3560101200 18000 0 YEKT}
    {3573406800 21600 1 YEKST}
    {3592155600 18000 0 YEKT}
    {3604856400 21600 1 YEKST}
    {3623605200 18000 0 YEKT}
    {3636306000 21600 1 YEKST}
    {3655054800 18000 0 YEKT}
    {3668360400 21600 1 YEKST}
    {3686504400 18000 0 YEKT}
    {3699810000 21600 1 YEKST}
    {3717954000 18000 0 YEKT}
    {3731259600 21600 1 YEKST}
    {3750008400 18000 0 YEKT}
    {3762709200 21600 1 YEKST}
    {3781458000 18000 0 YEKT}
    {3794158800 21600 1 YEKST}
    {3812907600 18000 0 YEKT}
    {3825608400 21600 1 YEKST}
    {3844357200 18000 0 YEKT}
    {3857662800 21600 1 YEKST}
    {3875806800 18000 0 YEKT}
    {3889112400 21600 1 YEKST}
    {3907256400 18000 0 YEKT}
    {3920562000 21600 1 YEKST}
    {3939310800 18000 0 YEKT}
    {3952011600 21600 1 YEKST}
    {3970760400 18000 0 YEKT}
    {3983461200 21600 1 YEKST}
    {4002210000 18000 0 YEKT}
    {4015515600 21600 1 YEKST}
    {4033659600 18000 0 YEKT}
    {4046965200 21600 1 YEKST}
    {4065109200 18000 0 YEKT}
    {4078414800 21600 1 YEKST}
    {4096558800 18000 0 YEKT}
}

    {1193529600 7200 0 EET}
    {1206835200 10800 1 EEST}
    {1224979200 7200 0 EET}
    {1238284800 10800 1 EEST}
    {1256428800 7200 0 EET}
    {1269734400 10800 1 EEST}
    {1288483200 7200 0 EET}
    {1301184000 10800 1 EEST}
    {1319932800 7200 0 EET}
    {1332633600 10800 1 EEST}
    {1351382400 7200 0 EET}
    {1364688000 10800 1 EEST}
    {1382832000 7200 0 EET}
    {1396137600 10800 1 EEST}
    {1414281600 7200 0 EET}
    {1427587200 10800 1 EEST}
    {1445731200 7200 0 EET}
    {1459036800 10800 1 EEST}
    {1477785600 7200 0 EET}
    {1490486400 10800 1 EEST}
    {1509235200 7200 0 EET}
    {1521936000 10800 1 EEST}
    {1540684800 7200 0 EET}
    {1553990400 10800 1 EEST}
    {1572134400 7200 0 EET}
    {1585440000 10800 1 EEST}
    {1603584000 7200 0 EET}
    {1616889600 10800 1 EEST}
    {1635638400 7200 0 EET}
    {1648339200 10800 1 EEST}
    {1667088000 7200 0 EET}
    {1679788800 10800 1 EEST}
    {1698537600 7200 0 EET}
    {1711843200 10800 1 EEST}
    {1729987200 7200 0 EET}
    {1743292800 10800 1 EEST}
    {1761436800 7200 0 EET}
    {1774742400 10800 1 EEST}
    {1792886400 7200 0 EET}
    {1806192000 10800 1 EEST}
    {1824940800 7200 0 EET}
    {1837641600 10800 1 EEST}
    {1856390400 7200 0 EET}
    {1869091200 10800 1 EEST}
    {1887840000 7200 0 EET}
    {1901145600 10800 1 EEST}
    {1919289600 7200 0 EET}
    {1932595200 10800 1 EEST}
    {1950739200 7200 0 EET}
    {1964044800 10800 1 EEST}
    {1982793600 7200 0 EET}
    {1995494400 10800 1 EEST}
    {2014243200 7200 0 EET}
    {2026944000 10800 1 EEST}
    {2045692800 7200 0 EET}
    {2058393600 10800 1 EEST}
    {2077142400 7200 0 EET}
    {2090448000 10800 1 EEST}
    {2108592000 7200 0 EET}
    {2121897600 10800 1 EEST}
    {2140041600 7200 0 EET}
    {2153347200 10800 1 EEST}
    {2172096000 7200 0 EET}
    {2184796800 10800 1 EEST}
    {2203545600 7200 0 EET}
    {2216246400 10800 1 EEST}
    {2234995200 7200 0 EET}
    {2248300800 10800 1 EEST}
    {2266444800 7200 0 EET}
    {2279750400 10800 1 EEST}
    {2297894400 7200 0 EET}
    {2311200000 10800 1 EEST}
    {2329344000 7200 0 EET}
    {2342649600 10800 1 EEST}
    {2361398400 7200 0 EET}
    {2374099200 10800 1 EEST}
    {2392848000 7200 0 EET}
    {2405548800 10800 1 EEST}
    {2424297600 7200 0 EET}
    {2437603200 10800 1 EEST}
    {2455747200 7200 0 EET}
    {2469052800 10800 1 EEST}
    {2487196800 7200 0 EET}
    {2500502400 10800 1 EEST}
    {2519251200 7200 0 EET}
    {2531952000 10800 1 EEST}
    {2550700800 7200 0 EET}
    {2563401600 10800 1 EEST}
    {2582150400 7200 0 EET}
    {2595456000 10800 1 EEST}
    {2613600000 7200 0 EET}
    {2626905600 10800 1 EEST}
    {2645049600 7200 0 EET}
    {2658355200 10800 1 EEST}
    {2676499200 7200 0 EET}
    {2689804800 10800 1 EEST}
    {2708553600 7200 0 EET}
    {2721254400 10800 1 EEST}
    {2740003200 7200 0 EET}
    {2752704000 10800 1 EEST}
    {2771452800 7200 0 EET}
    {2784758400 10800 1 EEST}
    {2802902400 7200 0 EET}
    {2816208000 10800 1 EEST}
    {2834352000 7200 0 EET}
    {2847657600 10800 1 EEST}
    {2866406400 7200 0 EET}
    {2879107200 10800 1 EEST}
    {2897856000 7200 0 EET}
    {2910556800 10800 1 EEST}
    {2929305600 7200 0 EET}
    {2942006400 10800 1 EEST}
    {2960755200 7200 0 EET}
    {2974060800 10800 1 EEST}
    {2992204800 7200 0 EET}
    {3005510400 10800 1 EEST}
    {3023654400 7200 0 EET}
    {3036960000 10800 1 EEST}
    {3055708800 7200 0 EET}
    {3068409600 10800 1 EEST}
    {3087158400 7200 0 EET}
    {3099859200 10800 1 EEST}
    {3118608000 7200 0 EET}
    {3131913600 10800 1 EEST}
    {3150057600 7200 0 EET}
    {3163363200 10800 1 EEST}
    {3181507200 7200 0 EET}
    {3194812800 10800 1 EEST}
    {3212956800 7200 0 EET}
    {3226262400 10800 1 EEST}
    {3245011200 7200 0 EET}
    {3257712000 10800 1 EEST}
    {3276460800 7200 0 EET}
    {3289161600 10800 1 EEST}
    {3307910400 7200 0 EET}
    {3321216000 10800 1 EEST}
    {3339360000 7200 0 EET}
    {3352665600 10800 1 EEST}
    {3370809600 7200 0 EET}
    {3384115200 10800 1 EEST}
    {3402864000 7200 0 EET}
    {3415564800 10800 1 EEST}
    {3434313600 7200 0 EET}
    {3447014400 10800 1 EEST}
    {3465763200 7200 0 EET}
    {3479068800 10800 1 EEST}
    {3497212800 7200 0 EET}
    {3510518400 10800 1 EEST}
    {3528662400 7200 0 EET}
    {3541968000 10800 1 EEST}
    {3560112000 7200 0 EET}
    {3573417600 10800 1 EEST}
    {3592166400 7200 0 EET}
    {3604867200 10800 1 EEST}
    {3623616000 7200 0 EET}
    {3636316800 10800 1 EEST}
    {3655065600 7200 0 EET}
    {3668371200 10800 1 EEST}
    {3686515200 7200 0 EET}
    {3699820800 10800 1 EEST}
    {3717964800 7200 0 EET}
    {3731270400 10800 1 EEST}
    {3750019200 7200 0 EET}
    {3762720000 10800 1 EEST}
    {3781468800 7200 0 EET}
    {3794169600 10800 1 EEST}
    {3812918400 7200 0 EET}
    {3825619200 10800 1 EEST}
    {3844368000 7200 0 EET}
    {3857673600 10800 1 EEST}
    {3875817600 7200 0 EET}
    {3889123200 10800 1 EEST}
    {3907267200 7200 0 EET}
    {3920572800 10800 1 EEST}
    {3939321600 7200 0 EET}
    {3952022400 10800 1 EEST}
    {3970771200 7200 0 EET}
    {3983472000 10800 1 EEST}
    {4002220800 7200 0 EET}
    {4015526400 10800 1 EEST}
    {4033670400 7200 0 EET}
    {4046976000 10800 1 EEST}
    {4065120000 7200 0 EET}
    {4078425600 10800 1 EEST}
    {4096569600 7200 0 EET}
}

    {1193526000 10800 0 MSK}
    {1206831600 14400 1 MSD}
    {1224975600 10800 0 MSK}
    {1238281200 14400 1 MSD}
    {1256425200 10800 0 MSK}
    {1269730800 14400 1 MSD}
    {1288479600 10800 0 MSK}
    {1301180400 14400 1 MSD}
    {1319929200 10800 0 MSK}
    {1332630000 14400 1 MSD}
    {1351378800 10800 0 MSK}
    {1364684400 14400 1 MSD}
    {1382828400 10800 0 MSK}
    {1396134000 14400 1 MSD}
    {1414278000 10800 0 MSK}
    {1427583600 14400 1 MSD}
    {1445727600 10800 0 MSK}
    {1459033200 14400 1 MSD}
    {1477782000 10800 0 MSK}
    {1490482800 14400 1 MSD}
    {1509231600 10800 0 MSK}
    {1521932400 14400 1 MSD}
    {1540681200 10800 0 MSK}
    {1553986800 14400 1 MSD}
    {1572130800 10800 0 MSK}
    {1585436400 14400 1 MSD}
    {1603580400 10800 0 MSK}
    {1616886000 14400 1 MSD}
    {1635634800 10800 0 MSK}
    {1648335600 14400 1 MSD}
    {1667084400 10800 0 MSK}
    {1679785200 14400 1 MSD}
    {1698534000 10800 0 MSK}
    {1711839600 14400 1 MSD}
    {1729983600 10800 0 MSK}
    {1743289200 14400 1 MSD}
    {1761433200 10800 0 MSK}
    {1774738800 14400 1 MSD}
    {1792882800 10800 0 MSK}
    {1806188400 14400 1 MSD}
    {1824937200 10800 0 MSK}
    {1837638000 14400 1 MSD}
    {1856386800 10800 0 MSK}
    {1869087600 14400 1 MSD}
    {1887836400 10800 0 MSK}
    {1901142000 14400 1 MSD}
    {1919286000 10800 0 MSK}
    {1932591600 14400 1 MSD}
    {1950735600 10800 0 MSK}
    {1964041200 14400 1 MSD}
    {1982790000 10800 0 MSK}
    {1995490800 14400 1 MSD}
    {2014239600 10800 0 MSK}
    {2026940400 14400 1 MSD}
    {2045689200 10800 0 MSK}
    {2058390000 14400 1 MSD}
    {2077138800 10800 0 MSK}
    {2090444400 14400 1 MSD}
    {2108588400 10800 0 MSK}
    {2121894000 14400 1 MSD}
    {2140038000 10800 0 MSK}
    {2153343600 14400 1 MSD}
    {2172092400 10800 0 MSK}
    {2184793200 14400 1 MSD}
    {2203542000 10800 0 MSK}
    {2216242800 14400 1 MSD}
    {2234991600 10800 0 MSK}
    {2248297200 14400 1 MSD}
    {2266441200 10800 0 MSK}
    {2279746800 14400 1 MSD}
    {2297890800 10800 0 MSK}
    {2311196400 14400 1 MSD}
    {2329340400 10800 0 MSK}
    {2342646000 14400 1 MSD}
    {2361394800 10800 0 MSK}
    {2374095600 14400 1 MSD}
    {2392844400 10800 0 MSK}
    {2405545200 14400 1 MSD}
    {2424294000 10800 0 MSK}
    {2437599600 14400 1 MSD}
    {2455743600 10800 0 MSK}
    {2469049200 14400 1 MSD}
    {2487193200 10800 0 MSK}
    {2500498800 14400 1 MSD}
    {2519247600 10800 0 MSK}
    {2531948400 14400 1 MSD}
    {2550697200 10800 0 MSK}
    {2563398000 14400 1 MSD}
    {2582146800 10800 0 MSK}
    {2595452400 14400 1 MSD}
    {2613596400 10800 0 MSK}
    {2626902000 14400 1 MSD}
    {2645046000 10800 0 MSK}
    {2658351600 14400 1 MSD}
    {2676495600 10800 0 MSK}
    {2689801200 14400 1 MSD}
    {2708550000 10800 0 MSK}
    {2721250800 14400 1 MSD}
    {2739999600 10800 0 MSK}
    {2752700400 14400 1 MSD}
    {2771449200 10800 0 MSK}
    {2784754800 14400 1 MSD}
    {2802898800 10800 0 MSK}
    {2816204400 14400 1 MSD}
    {2834348400 10800 0 MSK}
    {2847654000 14400 1 MSD}
    {2866402800 10800 0 MSK}
    {2879103600 14400 1 MSD}
    {2897852400 10800 0 MSK}
    {2910553200 14400 1 MSD}
    {2929302000 10800 0 MSK}
    {2942002800 14400 1 MSD}
    {2960751600 10800 0 MSK}
    {2974057200 14400 1 MSD}
    {2992201200 10800 0 MSK}
    {3005506800 14400 1 MSD}
    {3023650800 10800 0 MSK}
    {3036956400 14400 1 MSD}
    {3055705200 10800 0 MSK}
    {3068406000 14400 1 MSD}
    {3087154800 10800 0 MSK}
    {3099855600 14400 1 MSD}
    {3118604400 10800 0 MSK}
    {3131910000 14400 1 MSD}
    {3150054000 10800 0 MSK}
    {3163359600 14400 1 MSD}
    {3181503600 10800 0 MSK}
    {3194809200 14400 1 MSD}
    {3212953200 10800 0 MSK}
    {3226258800 14400 1 MSD}
    {3245007600 10800 0 MSK}
    {3257708400 14400 1 MSD}
    {3276457200 10800 0 MSK}
    {3289158000 14400 1 MSD}
    {3307906800 10800 0 MSK}
    {3321212400 14400 1 MSD}
    {3339356400 10800 0 MSK}
    {3352662000 14400 1 MSD}
    {3370806000 10800 0 MSK}
    {3384111600 14400 1 MSD}
    {3402860400 10800 0 MSK}
    {3415561200 14400 1 MSD}
    {3434310000 10800 0 MSK}
    {3447010800 14400 1 MSD}
    {3465759600 10800 0 MSK}
    {3479065200 14400 1 MSD}
    {3497209200 10800 0 MSK}
    {3510514800 14400 1 MSD}
    {3528658800 10800 0 MSK}
    {3541964400 14400 1 MSD}
    {3560108400 10800 0 MSK}
    {3573414000 14400 1 MSD}
    {3592162800 10800 0 MSK}
    {3604863600 14400 1 MSD}
    {3623612400 10800 0 MSK}
    {3636313200 14400 1 MSD}
    {3655062000 10800 0 MSK}
    {3668367600 14400 1 MSD}
    {3686511600 10800 0 MSK}
    {3699817200 14400 1 MSD}
    {3717961200 10800 0 MSK}
    {3731266800 14400 1 MSD}
    {3750015600 10800 0 MSK}
    {3762716400 14400 1 MSD}
    {3781465200 10800 0 MSK}
    {3794166000 14400 1 MSD}
    {3812914800 10800 0 MSK}
    {3825615600 14400 1 MSD}
    {3844364400 10800 0 MSK}
    {3857670000 14400 1 MSD}
    {3875814000 10800 0 MSK}
    {3889119600 14400 1 MSD}
    {3907263600 10800 0 MSK}
    {3920569200 14400 1 MSD}
    {3939318000 10800 0 MSK}
    {3952018800 14400 1 MSD}
    {3970767600 10800 0 MSK}
    {3983468400 14400 1 MSD}
    {4002217200 10800 0 MSK}
    {4015522800 14400 1 MSD}
    {4033666800 10800 0 MSK}
    {4046972400 14400 1 MSD}
    {4065116400 10800 0 MSK}
    {4078422000 14400 1 MSD}
    {4096566000 10800 0 MSK}
}

    {1206828000 18000 1 SAMST}
    {1224972000 14400 0 SAMT}
    {1238277600 18000 1 SAMST}
    {1256421600 14400 0 SAMT}
    {1269727200 10800 0 SAMMMTT}
    {1269730800 14400 1 SAMST}
    {1288479600 10800 0 SAMT}
    {1301180400 14400 1 SAMST}
    {1319929200 10800 0 SAMT}
    {1332630000 14400 1 SAMST}
    {1351378800 10800 0 SAMT}
    {1364684400 14400 1 SAMST}
    {1382828400 10800 0 SAMT}
    {1396134000 14400 1 SAMST}
    {1414278000 10800 0 SAMT}
    {1427583600 14400 1 SAMST}
    {1445727600 10800 0 SAMT}
    {1459033200 14400 1 SAMST}
    {1477782000 10800 0 SAMT}
    {1490482800 14400 1 SAMST}
    {1509231600 10800 0 SAMT}
    {1521932400 14400 1 SAMST}
    {1540681200 10800 0 SAMT}
    {1553986800 14400 1 SAMST}
    {1572130800 10800 0 SAMT}
    {1585436400 14400 1 SAMST}
    {1603580400 10800 0 SAMT}
    {1616886000 14400 1 SAMST}
    {1635634800 10800 0 SAMT}
    {1648335600 14400 1 SAMST}
    {1667084400 10800 0 SAMT}
    {1679785200 14400 1 SAMST}
    {1698534000 10800 0 SAMT}
    {1711839600 14400 1 SAMST}
    {1729983600 10800 0 SAMT}
    {1743289200 14400 1 SAMST}
    {1761433200 10800 0 SAMT}
    {1774738800 14400 1 SAMST}
    {1792882800 10800 0 SAMT}
    {1806188400 14400 1 SAMST}
    {1824937200 10800 0 SAMT}
    {1837638000 14400 1 SAMST}
    {1856386800 10800 0 SAMT}
    {1869087600 14400 1 SAMST}
    {1887836400 10800 0 SAMT}
    {1901142000 14400 1 SAMST}
    {1919286000 10800 0 SAMT}
    {1932591600 14400 1 SAMST}
    {1950735600 10800 0 SAMT}
    {1964041200 14400 1 SAMST}
    {1982790000 10800 0 SAMT}
    {1995490800 14400 1 SAMST}
    {2014239600 10800 0 SAMT}
    {2026940400 14400 1 SAMST}
    {2045689200 10800 0 SAMT}
    {2058390000 14400 1 SAMST}
    {2077138800 10800 0 SAMT}
    {2090444400 14400 1 SAMST}
    {2108588400 10800 0 SAMT}
    {2121894000 14400 1 SAMST}
    {2140038000 10800 0 SAMT}
    {2153343600 14400 1 SAMST}
    {2172092400 10800 0 SAMT}
    {2184793200 14400 1 SAMST}
    {2203542000 10800 0 SAMT}
    {2216242800 14400 1 SAMST}
    {2234991600 10800 0 SAMT}
    {2248297200 14400 1 SAMST}
    {2266441200 10800 0 SAMT}
    {2279746800 14400 1 SAMST}
    {2297890800 10800 0 SAMT}
    {2311196400 14400 1 SAMST}
    {2329340400 10800 0 SAMT}
    {2342646000 14400 1 SAMST}
    {2361394800 10800 0 SAMT}
    {2374095600 14400 1 SAMST}
    {2392844400 10800 0 SAMT}
    {2405545200 14400 1 SAMST}
    {2424294000 10800 0 SAMT}
    {2437599600 14400 1 SAMST}
    {2455743600 10800 0 SAMT}
    {2469049200 14400 1 SAMST}
    {2487193200 10800 0 SAMT}
    {2500498800 14400 1 SAMST}
    {2519247600 10800 0 SAMT}
    {2531948400 14400 1 SAMST}
    {2550697200 10800 0 SAMT}
    {2563398000 14400 1 SAMST}
    {2582146800 10800 0 SAMT}
    {2595452400 14400 1 SAMST}
    {2613596400 10800 0 SAMT}
    {2626902000 14400 1 SAMST}
    {2645046000 10800 0 SAMT}
    {2658351600 14400 1 SAMST}
    {2676495600 10800 0 SAMT}
    {2689801200 14400 1 SAMST}
    {2708550000 10800 0 SAMT}
    {2721250800 14400 1 SAMST}
    {2739999600 10800 0 SAMT}
    {2752700400 14400 1 SAMST}
    {2771449200 10800 0 SAMT}
    {2784754800 14400 1 SAMST}
    {2802898800 10800 0 SAMT}
    {2816204400 14400 1 SAMST}
    {2834348400 10800 0 SAMT}
    {2847654000 14400 1 SAMST}
    {2866402800 10800 0 SAMT}
    {2879103600 14400 1 SAMST}
    {2897852400 10800 0 SAMT}
    {2910553200 14400 1 SAMST}
    {2929302000 10800 0 SAMT}
    {2942002800 14400 1 SAMST}
    {2960751600 10800 0 SAMT}
    {2974057200 14400 1 SAMST}
    {2992201200 10800 0 SAMT}
    {3005506800 14400 1 SAMST}
    {3023650800 10800 0 SAMT}
    {3036956400 14400 1 SAMST}
    {3055705200 10800 0 SAMT}
    {3068406000 14400 1 SAMST}
    {3087154800 10800 0 SAMT}
    {3099855600 14400 1 SAMST}
    {3118604400 10800 0 SAMT}
    {3131910000 14400 1 SAMST}
    {3150054000 10800 0 SAMT}
    {3163359600 14400 1 SAMST}
    {3181503600 10800 0 SAMT}
    {3194809200 14400 1 SAMST}
    {3212953200 10800 0 SAMT}
    {3226258800 14400 1 SAMST}
    {3245007600 10800 0 SAMT}
    {3257708400 14400 1 SAMST}
    {3276457200 10800 0 SAMT}
    {3289158000 14400 1 SAMST}
    {3307906800 10800 0 SAMT}
    {3321212400 14400 1 SAMST}
    {3339356400 10800 0 SAMT}
    {3352662000 14400 1 SAMST}
    {3370806000 10800 0 SAMT}
    {3384111600 14400 1 SAMST}
    {3402860400 10800 0 SAMT}
    {3415561200 14400 1 SAMST}
    {3434310000 10800 0 SAMT}
    {3447010800 14400 1 SAMST}
    {3465759600 10800 0 SAMT}
    {3479065200 14400 1 SAMST}
    {3497209200 10800 0 SAMT}
    {3510514800 14400 1 SAMST}
    {3528658800 10800 0 SAMT}
    {3541964400 14400 1 SAMST}
    {3560108400 10800 0 SAMT}
    {3573414000 14400 1 SAMST}
    {3592162800 10800 0 SAMT}
    {3604863600 14400 1 SAMST}
    {3623612400 10800 0 SAMT}
    {3636313200 14400 1 SAMST}
    {3655062000 10800 0 SAMT}
    {3668367600 14400 1 SAMST}
    {3686511600 10800 0 SAMT}
    {3699817200 14400 1 SAMST}
    {3717961200 10800 0 SAMT}
    {3731266800 14400 1 SAMST}
    {3750015600 10800 0 SAMT}
    {3762716400 14400 1 SAMST}
    {3781465200 10800 0 SAMT}
    {3794166000 14400 1 SAMST}
    {3812914800 10800 0 SAMT}
    {3825615600 14400 1 SAMST}
    {3844364400 10800 0 SAMT}
    {3857670000 14400 1 SAMST}
    {3875814000 10800 0 SAMT}
    {3889119600 14400 1 SAMST}
    {3907263600 10800 0 SAMT}
    {3920569200 14400 1 SAMST}
    {3939318000 10800 0 SAMT}
    {3952018800 14400 1 SAMST}
    {3970767600 10800 0 SAMT}
    {3983468400 14400 1 SAMST}
    {4002217200 10800 0 SAMT}
    {4015522800 14400 1 SAMST}
    {4033666800 10800 0 SAMT}
    {4046972400 14400 1 SAMST}
    {4065116400 10800 0 SAMT}
    {4078422000 14400 1 SAMST}
    {4096566000 10800 0 SAMT}
}

    {1193526000 10800 0 VOLT}
    {1206831600 14400 1 VOLST}
    {1224975600 10800 0 VOLT}
    {1238281200 14400 1 VOLST}
    {1256425200 10800 0 VOLT}
    {1269730800 14400 1 VOLST}
    {1288479600 10800 0 VOLT}
    {1301180400 14400 1 VOLST}
    {1319929200 10800 0 VOLT}
    {1332630000 14400 1 VOLST}
    {1351378800 10800 0 VOLT}
    {1364684400 14400 1 VOLST}
    {1382828400 10800 0 VOLT}
    {1396134000 14400 1 VOLST}
    {1414278000 10800 0 VOLT}
    {1427583600 14400 1 VOLST}
    {1445727600 10800 0 VOLT}
    {1459033200 14400 1 VOLST}
    {1477782000 10800 0 VOLT}
    {1490482800 14400 1 VOLST}
    {1509231600 10800 0 VOLT}
    {1521932400 14400 1 VOLST}
    {1540681200 10800 0 VOLT}
    {1553986800 14400 1 VOLST}
    {1572130800 10800 0 VOLT}
    {1585436400 14400 1 VOLST}
    {1603580400 10800 0 VOLT}
    {1616886000 14400 1 VOLST}
    {1635634800 10800 0 VOLT}
    {1648335600 14400 1 VOLST}
    {1667084400 10800 0 VOLT}
    {1679785200 14400 1 VOLST}
    {1698534000 10800 0 VOLT}
    {1711839600 14400 1 VOLST}
    {1729983600 10800 0 VOLT}
    {1743289200 14400 1 VOLST}
    {1761433200 10800 0 VOLT}
    {1774738800 14400 1 VOLST}
    {1792882800 10800 0 VOLT}
    {1806188400 14400 1 VOLST}
    {1824937200 10800 0 VOLT}
    {1837638000 14400 1 VOLST}
    {1856386800 10800 0 VOLT}
    {1869087600 14400 1 VOLST}
    {1887836400 10800 0 VOLT}
    {1901142000 14400 1 VOLST}
    {1919286000 10800 0 VOLT}
    {1932591600 14400 1 VOLST}
    {1950735600 10800 0 VOLT}
    {1964041200 14400 1 VOLST}
    {1982790000 10800 0 VOLT}
    {1995490800 14400 1 VOLST}
    {2014239600 10800 0 VOLT}
    {2026940400 14400 1 VOLST}
    {2045689200 10800 0 VOLT}
    {2058390000 14400 1 VOLST}
    {2077138800 10800 0 VOLT}
    {2090444400 14400 1 VOLST}
    {2108588400 10800 0 VOLT}
    {2121894000 14400 1 VOLST}
    {2140038000 10800 0 VOLT}
    {2153343600 14400 1 VOLST}
    {2172092400 10800 0 VOLT}
    {2184793200 14400 1 VOLST}
    {2203542000 10800 0 VOLT}
    {2216242800 14400 1 VOLST}
    {2234991600 10800 0 VOLT}
    {2248297200 14400 1 VOLST}
    {2266441200 10800 0 VOLT}
    {2279746800 14400 1 VOLST}
    {2297890800 10800 0 VOLT}
    {2311196400 14400 1 VOLST}
    {2329340400 10800 0 VOLT}
    {2342646000 14400 1 VOLST}
    {2361394800 10800 0 VOLT}
    {2374095600 14400 1 VOLST}
    {2392844400 10800 0 VOLT}
    {2405545200 14400 1 VOLST}
    {2424294000 10800 0 VOLT}
    {2437599600 14400 1 VOLST}
    {2455743600 10800 0 VOLT}
    {2469049200 14400 1 VOLST}
    {2487193200 10800 0 VOLT}
    {2500498800 14400 1 VOLST}
    {2519247600 10800 0 VOLT}
    {2531948400 14400 1 VOLST}
    {2550697200 10800 0 VOLT}
    {2563398000 14400 1 VOLST}
    {2582146800 10800 0 VOLT}
    {2595452400 14400 1 VOLST}
    {2613596400 10800 0 VOLT}
    {2626902000 14400 1 VOLST}
    {2645046000 10800 0 VOLT}
    {2658351600 14400 1 VOLST}
    {2676495600 10800 0 VOLT}
    {2689801200 14400 1 VOLST}
    {2708550000 10800 0 VOLT}
    {2721250800 14400 1 VOLST}
    {2739999600 10800 0 VOLT}
    {2752700400 14400 1 VOLST}
    {2771449200 10800 0 VOLT}
    {2784754800 14400 1 VOLST}
    {2802898800 10800 0 VOLT}
    {2816204400 14400 1 VOLST}
    {2834348400 10800 0 VOLT}
    {2847654000 14400 1 VOLST}
    {2866402800 10800 0 VOLT}
    {2879103600 14400 1 VOLST}
    {2897852400 10800 0 VOLT}
    {2910553200 14400 1 VOLST}
    {2929302000 10800 0 VOLT}
    {2942002800 14400 1 VOLST}
    {2960751600 10800 0 VOLT}
    {2974057200 14400 1 VOLST}
    {2992201200 10800 0 VOLT}
    {3005506800 14400 1 VOLST}
    {3023650800 10800 0 VOLT}
    {3036956400 14400 1 VOLST}
    {3055705200 10800 0 VOLT}
    {3068406000 14400 1 VOLST}
    {3087154800 10800 0 VOLT}
    {3099855600 14400 1 VOLST}
    {3118604400 10800 0 VOLT}
    {3131910000 14400 1 VOLST}
    {3150054000 10800 0 VOLT}
    {3163359600 14400 1 VOLST}
    {3181503600 10800 0 VOLT}
    {3194809200 14400 1 VOLST}
    {3212953200 10800 0 VOLT}
    {3226258800 14400 1 VOLST}
    {3245007600 10800 0 VOLT}
    {3257708400 14400 1 VOLST}
    {3276457200 10800 0 VOLT}
    {3289158000 14400 1 VOLST}
    {3307906800 10800 0 VOLT}
    {3321212400 14400 1 VOLST}
    {3339356400 10800 0 VOLT}
    {3352662000 14400 1 VOLST}
    {3370806000 10800 0 VOLT}
    {3384111600 14400 1 VOLST}
    {3402860400 10800 0 VOLT}
    {3415561200 14400 1 VOLST}
    {3434310000 10800 0 VOLT}
    {3447010800 14400 1 VOLST}
    {3465759600 10800 0 VOLT}
    {3479065200 14400 1 VOLST}
    {3497209200 10800 0 VOLT}
    {3510514800 14400 1 VOLST}
    {3528658800 10800 0 VOLT}
    {3541964400 14400 1 VOLST}
    {3560108400 10800 0 VOLT}
    {3573414000 14400 1 VOLST}
    {3592162800 10800 0 VOLT}
    {3604863600 14400 1 VOLST}
    {3623612400 10800 0 VOLT}
    {3636313200 14400 1 VOLST}
    {3655062000 10800 0 VOLT}
    {3668367600 14400 1 VOLST}
    {3686511600 10800 0 VOLT}
    {3699817200 14400 1 VOLST}
    {3717961200 10800 0 VOLT}
    {3731266800 14400 1 VOLST}
    {3750015600 10800 0 VOLT}
    {3762716400 14400 1 VOLST}
    {3781465200 10800 0 VOLT}
    {3794166000 14400 1 VOLST}
    {3812914800 10800 0 VOLT}
    {3825615600 14400 1 VOLST}
    {3844364400 10800 0 VOLT}
    {3857670000 14400 1 VOLST}
    {3875814000 10800 0 VOLT}
    {3889119600 14400 1 VOLST}
    {3907263600 10800 0 VOLT}
    {3920569200 14400 1 VOLST}
    {3939318000 10800 0 VOLT}
    {3952018800 14400 1 VOLST}
    {3970767600 10800 0 VOLT}
    {3983468400 14400 1 VOLST}
    {4002217200 10800 0 VOLT}
    {4015522800 14400 1 VOLST}
    {4033666800 10800 0 VOLT}
    {4046972400 14400 1 VOLST}
    {4065116400 10800 0 VOLT}
    {4078422000 14400 1 VOLST}
    {4096566000 10800 0 VOLT}
}

	assemble {
	    push NaN; uplus
	}
    }
    -returnCodes error
    -result {can't use non-numeric floating-point value as operand of "+"}
}
test assemble-7.43 {tryCvtToNumeric} {
    -body {
	assemble {
	    push NaN; tryCvtToNumeric
	}
    }
    -returnCodes error
    -result {domain error: argument not in valid range}

}
test assemble-15.6 {listIndexImm} {
    -body {
	assemble {push {a b c}; listIndexImm end-1}
    }
    -result b
}
test assemble-15.6 {listIndexImm} {
    -body {
	assemble {push {a b c}; listIndexImm end}
    }
    -result c
}

# assemble-16 - invokeStk

    chan close [lreplace [list a] 0 end]
} -returnCodes error -match glob -result *

# ### ### ### ######### ######### #########

# cleanup
foreach file [list fooBar longfile script output test1 pipe my_script \
	test2 test3 cat stdout kyrillic.txt utf8-fcopy.txt utf8-rp.txt] {
    removeFile $file
}
cleanupTests
}
namespace delete ::tcl::test::io

	coroutine D eval {yield X$x;yield Y$x}
    }
} -body {
    set ::x 15
    set ::x [f 12]
    D
} -cleanup {

    unset ::x
    rename f {}
} -result YX15

test coroutine-5.1 {right numLevels on coro return} -constraints {testnrelevels} \
-setup {
    proc nestedYield {{val {}}} {

# This file contains a collection of tests for tclEncoding.c
# Sourcing this file into Tcl runs the tests and generates output for
# errors.  No output means no errors were found.
#
# Copyright (c) 1997 Sun Microsystems, Inc.
# Copyright (c) 1998-1999 by Scriptics Corporation.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.

package require tcltest 2

namespace eval ::tcl::test::encoding {
    variable x

namespace import -force ::tcltest::*

proc toutf {args} {
    variable x
    lappend x "toutf $args"
}
proc fromutf {args} {
    variable x
    lappend x "fromutf $args"
}

proc runtests {} {

    variable x

# Some tests require the testencoding command
testConstraint testencoding [llength [info commands testencoding]]
testConstraint exec [llength [info commands exec]]


# TclInitEncodingSubsystem is tested by the rest of this file
# TclFinalizeEncodingSubsystem is not currently tested

test encoding-1.1 {Tcl_GetEncoding: system encoding} {testencoding} {
    testencoding create foo [namespace origin toutf] [namespace origin fromutf]
    set old [encoding system]


    encoding system foo
    set x {}
    encoding convertto abcd


    encoding system $old
    testencoding delete foo
    set x
} {{fromutf }}
test encoding-1.2 {Tcl_GetEncoding: existing encoding} {testencoding} {
    testencoding create foo [namespace origin toutf] [namespace origin fromutf]
    set x {}
    encoding convertto foo abcd
    testencoding delete foo
    set x
} {{fromutf }}
test encoding-1.3 {Tcl_GetEncoding: load encoding} {
    list [encoding convertto jis0208 \u4e4e] \
	[encoding convertfrom jis0208 8C]
} "8C \u4e4e"

test encoding-2.1 {Tcl_FreeEncoding: refcount == 0} {
    encoding convertto jis0208 \u4e4e
} {8C}
test encoding-2.2 {Tcl_FreeEncoding: refcount != 0} {testencoding} {
    set system [encoding system]
    set path [encoding dirs]

    encoding system shiftjis		;# incr ref count
    encoding dirs [list [pwd]]
    set x [encoding convertto shiftjis \u4e4e]	;# old one found   
    encoding system identity
    llength shiftjis		;# Shimmer away any cache of Tcl_Encoding
    lappend x [catch {encoding convertto shiftjis \u4e4e} msg] $msg

    encoding system identity
    encoding dirs $path
    encoding system $system
    set x
} "\u008c\u00c1 1 {unknown encoding \"shiftjis\"}"

test encoding-3.1 {Tcl_GetEncodingName, NULL} {
    set old [encoding system]

    encoding system shiftjis
    set x [encoding system]

    encoding system $old
    set x
} {shiftjis}
test encoding-3.2 {Tcl_GetEncodingName, non-null} {
    set old [fconfigure stdout -encoding]

    fconfigure stdout -encoding jis0208
    set x [fconfigure stdout -encoding]

    fconfigure stdout -encoding $old
    set x
} {jis0208}

test encoding-4.1 {Tcl_GetEncodingNames} {testencoding} {
    cd [makeDirectory tmp]
    makeDirectory [file join tmp encoding]
    makeFile {} [file join tmp encoding junk.enc]
    makeFile {} [file join tmp encoding junk2.enc]
    set path [encoding dirs]
    encoding dirs {}
    catch {unset encodings}
    catch {unset x}

    foreach encoding [encoding names] {
	set encodings($encoding) 1
    }


    encoding dirs [list [file join [pwd] encoding]]
    foreach encoding [encoding names] {
	if {![info exists encodings($encoding)]} {
	    lappend x $encoding
	}
    }


    encoding dirs $path
    cd [workingDirectory]
    removeFile [file join tmp encoding junk2.enc]
    removeFile [file join tmp encoding junk.enc]
    removeDirectory [file join tmp encoding]
    removeDirectory tmp
    lsort $x
} {junk junk2}

test encoding-5.1 {Tcl_SetSystemEncoding} {
    set old [encoding system]

    encoding system jis0208
    set x [encoding convertto \u4e4e]

    encoding system identity
    encoding system $old
    set x
} {8C}
test encoding-5.2 {Tcl_SetSystemEncoding: test ref count} {
    set old [encoding system]
    encoding system $old
    string compare $old [encoding system]
} {0}

test encoding-6.1 {Tcl_CreateEncoding: new} {testencoding} {
    testencoding create foo [namespace code {toutf 1}] \
	[namespace code {fromutf 2}]
    set x {}
    encoding convertfrom foo abcd
    encoding convertto foo abcd
    testencoding delete foo
    set x
} {{toutf 1} {fromutf 2}}
test encoding-6.2 {Tcl_CreateEncoding: replace encoding} {testencoding} {
    testencoding create foo [namespace code {toutf a}] \
	[namespace code {fromutf b}]
    set x {}
    encoding convertfrom foo abcd
    encoding convertto foo abcd
    testencoding delete foo
    set x
} {{toutf a} {fromutf b}}

test encoding-7.1 {Tcl_ExternalToUtfDString: small buffer} {
    encoding convertfrom jis0208 8c8c8c8c
} "\u543e\u543e\u543e\u543e"
test encoding-7.2 {Tcl_UtfToExternalDString: big buffer} {
    set a 8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C

    puts -nonewline $f "ab\x8c\xc1g"
    close $f
    set f [open [file join [temporaryDirectory] dummy] r]
    fconfigure $f -translation binary -encoding shiftjis    
    set x [read $f]
    close $f
    file delete [file join [temporaryDirectory] dummy]
    set x
} "ab\u4e4eg"

test encoding-9.1 {Tcl_UtfToExternalDString: small buffer} {
    encoding convertto jis0208 "\u543e\u543e\u543e\u543e"
} {8c8c8c8c}
test encoding-9.2 {Tcl_UtfToExternalDString: big buffer} {
    set a \u4e4e\u4e4e\u4e4e\u4e4e\u4e4e\u4e4e\u4e4e\u4e4e

    puts -nonewline $f "ab\u4e4eg"
    close $f
    set f [open [file join [temporaryDirectory] dummy] r]
    fconfigure $f -translation binary -encoding iso8859-1
    set x [read $f]
    close $f
    file delete [file join [temporaryDirectory] dummy]
    set x
} "ab\x8c\xc1g"

proc viewable {str} {
    set res ""
    foreach c [split $str {}] {
	if {[string is print $c] && [string is ascii $c]} {
	    append res $c

} "\u4e4e"
test encoding-11.5 {LoadEncodingFile: escape file} {
    viewable [encoding convertto iso2022 \u4e4e]
} [viewable "\x1b\$B8C\x1b(B"]
test encoding-11.5.1 {LoadEncodingFile: escape file} {
    viewable [encoding convertto iso2022-jp \u4e4e]
} [viewable "\x1b\$B8C\x1b(B"]
test encoding-11.6 {LoadEncodingFile: invalid file} {testencoding} {
    set system [encoding system]
    set path [encoding dirs]
    encoding system identity

    cd [temporaryDirectory]
    encoding dirs [file join tmp encoding]
    makeDirectory tmp
    makeDirectory [file join tmp encoding]
    set f [open [file join tmp encoding splat.enc] w]
    fconfigure $f -translation binary 
    puts $f "abcdefghijklmnop"
    close $f
    set x [list [catch {encoding convertto splat \u4e4e} msg] $msg]

    file delete [file join [temporaryDirectory] tmp encoding splat.enc]
    removeDirectory [file join tmp encoding]
    removeDirectory tmp
    cd [workingDirectory]
    encoding dirs $path
    encoding system $system
    set x
} {1 {invalid encoding file "splat"}}

# OpenEncodingFile is fully tested by the rest of the tests in this file.

test encoding-12.1 {LoadTableEncoding: normal encoding} {
    set x [encoding convertto iso8859-3 \u120]
    append x [encoding convertto iso8859-3 \ud5]
    append x [encoding convertfrom iso8859-3 \xd5]

test encoding-14.1 {BinaryProc} {
    encoding convertto identity \x12\x34\x56\xff\x69
} "\x12\x34\x56\xc3\xbf\x69"

test encoding-15.1 {UtfToUtfProc} {
    encoding convertto utf-8 \xa3
} "\xc2\xa3"

test encoding-15.2 {UtfToUtfProc null character output} {
    set x \u0000
    set y [encoding convertto utf-8 \u0000]
    set y [encoding convertfrom identity $y]
    binary scan $y H* z
    list [string bytelength $x] [string bytelength $y] $z
} {2 1 00}

test encoding-15.3 {UtfToUtfProc null character input} {
    set x [encoding convertfrom identity \x00]
    set y [encoding convertfrom utf-8 $x]
    binary scan [encoding convertto identity $y] H* z
    list [string bytelength $x] [string bytelength $y] $z
} {1 2 c080}

} [list [string length $iso2022uniData] $iso2022uniData]
test encoding-23.3 {iso2022-jp escape encoding test} {
    # read $fis <size> reads size in chars, not raw bytes.
    set fid [open iso2022.txt r]
    fconfigure $fid -encoding iso2022-jp
    set data [read $fid 50]
    close $fid
    set data
} [string range $iso2022uniData 0 49] ; # 0 .. 49 inclusive == 50
cd [workingDirectory]












test encoding-24.1 {EscapeFreeProc on open channels} -constraints {
	exec
} -setup {
    # Bug #524674 input
    set file [makeFile {
	set f [open [file join [file dirname [info script]] iso2022.txt]]
	fconfigure $f -encoding iso2022-jp
	gets $f
    } iso2022.tcl]
} -body {
    exec [interpreter] $file
} -cleanup {
    removeFile iso2022.tcl
} -result {}


test encoding-24.2 {EscapeFreeProc on open channels} -constraints {
	exec
} -setup {
    # Bug #524674 output
    set file [makeFile {
	encoding system cp1252;	# Bug #2891556 crash revelator
	fconfigure stdout -encoding iso2022-jp
	puts ab\u4e4e\u68d9g
	testfinexit
    } iso2022.tcl]
} -body {
    viewable [exec [interpreter] $file]
} -cleanup {
    removeFile iso2022.tcl
} -result "ab\x1b\$B8C\x1b\$(DD%\x1b(Bg (ab\\u001b\$B8C\\u001b\$(DD%\\u001b(Bg)"

test encoding-24.3 {EscapeFreeProc on open channels} {stdio} {
    # Bug #219314 - if we don't free escape encodings correctly on
    # channel closure, we go boom
    set file [makeFile {
	encoding system iso2022-jp
	set a "\u4e4e\u4e5e\u4e5f"; # 3 Japanese Kanji letters
	puts $a
    } iso2022.tcl]
    set f [open "|[list [interpreter] $file]"]
    fconfigure $f -encoding iso2022-jp

	{4F21 4F53}

	{50 21 73 7E}
	{7421 7426}
    } {
	if {[llength $range] == 2} {
	    # for adhoc range. simple {first last}. inclusive.
	    set first [scan [lindex $range 0] %x]
	    set last [scan [lindex $range 1] %x]
	    for {set i $first} {$i <= $last} {incr i} {
		set code $i
		uplevel 1 $command
	    }
	} elseif {[llength $range] == 4} {
	    # for uniform range.
	    set h0 [scan [lindex $range 0] %x]
	    set l0 [scan [lindex $range 1] %x]
	    set hend [scan [lindex $range 2] %x]
	    set lend [scan [lindex $range 3] %x]
	    for {set hi $h0} {$hi <= $hend} {incr hi} {
		for {set lo $l0} {$lo <= $lend} {incr lo} {
		    set code [expr {$hi << 8 | ($lo & 0xff)}]
		    uplevel 1 $command
		}
	    }
	} else {

	# For more readable (easy to analyze) output.
	set code [lindex $la 0]
	binary scan [lindex $la 1] H* expected
	binary scan [lindex $lb 1] H* got
	lappend diff [list $code $expected $got]
    }
    set diff
}

# Create char tables.
cd [temporaryDirectory]
foreach enc {cp932 euc-jp iso2022-jp} {
    set f [open $enc.chars w]
    fconfigure $f -encoding binary
    foreach-jisx0208 code {
	puts $f [format "%04X %s" $code [gen-jisx0208-$enc $code]]
    }
    close $f
}
# shiftjis == cp932 for jisx0208.
file copy -force cp932.chars shiftjis.chars

set NUM 0
foreach from {cp932 shiftjis euc-jp iso2022-jp} {
    foreach to {cp932 shiftjis euc-jp iso2022-jp} {
	test encoding-25.[incr NUM] "jisx0208 $from => $to" {
	    cd [temporaryDirectory]

	    set f [open $from.chars]
	    fconfigure $f -encoding $from
	    set out [open $from.$to.tcltestout w]
	    fconfigure $out -encoding $to
	    puts -nonewline $out [read $f]
	    close $out
	    close $f
	    
	    # then compare $to.chars <=> $from.to.tcltestout as binary.
	    set fa [open $to.chars]
	    fconfigure $fa -encoding binary
	    set fb [open $from.$to.tcltestout]
	    fconfigure $fb -encoding binary
	    set diff [channel-diff $fa $fb]


	    close $fa
	    close $fb
	    
	    # Difference should be empty.
	    set diff
	} {}
    }
}

testConstraint testgetdefenc [llength [info commands testgetdefenc]]

test encoding-26.0 {Tcl_GetDefaultEncodingDir} -constraints {
    testgetdefenc 
} -setup {
     set origDir [testgetdefenc]
     testsetdefenc slappy
} -body {
     testgetdefenc
} -cleanup {
     testsetdefenc $origDir
} -result slappy

file delete {*}[glob -directory [temporaryDirectory] *.chars *.tcltestout]
# ===> Cut here <===

# EscapeFreeProc, GetTableEncoding, unilen
# are fully tested by the rest of this file

}
runtests

}

# cleanup
namespace delete ::tcl::test::encoding
::tcltest::cleanupTests
return

test iortrans.tf-11.0 {origin thread of moved transform gone} -setup {
    #puts <<$tcltest::mainThread>>main
    set tida [testthread create];	#puts <<$tida>>
    set tidb [testthread create];	#puts <<$tidb>>
} -constraints {testchannel testthread} -match glob -body {
    # Set up channel in thread
    testthread send $tida $helperscript

    set chan [testthread send $tida {
	proc foo {args} {
	    handle.initialize clear drain flush limit? read write
	    handle.finalize
	    lappend ::res $args
	    return
	}

    lappend res [catch {testthread send $tidb [list tell $chan]} msg] $msg
    lappend res [catch {testthread send $tidb [list seek $chan 1]} msg] $msg
    lappend res [catch {testthread send $tidb [list gets $chan]} msg] $msg
    lappend res [catch {testthread send $tidb [list close $chan]} msg] $msg
    # The 'tell' is ok, as it passed through the transform to the base
    # channel without invoking the transform handler.
} -cleanup {

    tcltest::threadReap
    tempdone
} -result {1 {Owner lost} 0 0 1 {Owner lost} 1 {Owner lost} 1 {Owner lost}}
test iortrans.tf-11.1 {origin thread of moved transform destroyed during access} -setup {
    #puts <<$tcltest::mainThread>>main
    set tida [testthread create];	#puts <<$tida>>
    set tidb [testthread create];	#puts <<$tidb>>
} -constraints {testchannel testthread} -match glob -body {
    # Set up channel in thread
    set chan [testthread send $tida $helperscript]

    set chan [testthread send $tida {
	proc foo {args} {
	    handle.initialize clear drain flush limit? read write
	    handle.finalize
	    lappend ::res $args
	    # destroy thread during channel access
	    testthread exit