###############################################################################
#
# tclHelper.eagle --
#
# Extensible Adaptable Generalized Logic Engine (Eagle)
# Supplementary Tcl Initialization File
#
# Copyright (c) 2007-2010 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: $
#
###############################################################################

proc isEagle {} {
  #
  # NOTE: Nothing too fancy or expensive should be done in here.  In
  #       theory, use of this routine should be rare; however, in
  #       practice, this routine is actually used quite a bit (e.g.
  #       by the test suite).
  #
  return [expr {[info exists ::tcl_platform(engine)] && \
      [string compare -nocase eagle $::tcl_platform(engine)] == 0}]
}

proc appendArgs { args } {
  #
  # NOTE: This should work properly in both Tcl and Eagle.
  #
  set result ""; eval append result $args
}