################################################################################
# Content of main.lib :::                                                      #
################################################################################
#
#   -> proc readfile
#   -> proc wait
#   -> proc getline
#   -> proc is_int
#   -> proc is_float
#
################################################################################

proc main {} {
#  set htmlout ""
#  htmlout [mainmenu.html]
#  return $htmlout
  }

proc readfile {filename args} {
  set in [open $filename r]
  if [string length $args] {catch "fconfigure $in $args"}
  set data [read $in]
  close $in
  return $data
  }

proc wait {msec} {
  set waitvar 0
  after [expr $msec] set waitvar 1
  vwait waitvar
  }

proc getline {channel} {
  flush $channel
  set buffer [read $channel]
  return [string range $buffer [expr [string last [format %c 10] $buffer]+1] end]
  }

proc is_int {value} {
  if [scan $value %d int] {return 1} {return 0}
  }

proc is_float {value} {
  if [scan $value %f float] {return 1} {return 0}
  }