###############################################################################
#
# read4.eagle --
#
# Extensible Adaptable Generalized Logic Engine (Eagle)
#
# Copyright (c) 2007-2012 by Joe Mistachkin.  All rights reserved.
#
# See the file "license.terms" for information on usage and redistribution of
# this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# RCS: @(#) $Id: $
#
###############################################################################

#
# NOTE: Open this script and check for the trailing newline.
#
set f [open [info script] RDONLY]
fconfigure $f -translation binary

set x [read -nonewline $f]
close $f

return [string length $x]
